diff --git a/src/bootstrap/gerbil/compiler/base~0.scm b/src/bootstrap/gerbil/compiler/base~0.scm index f24c93747..c17c0beb0 100644 --- a/src/bootstrap/gerbil/compiler/base~0.scm +++ b/src/bootstrap/gerbil/compiler/base~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/base::timestamp 1713044316) + (define gerbil/compiler/base::timestamp 1713454411) (begin (define gxc#current-compile-symbol-table (make-parameter '#f)) (define gxc#current-compile-runtime-sections (make-parameter '#f)) @@ -11,14 +11,14 @@ (define gxc#current-compile-keep-scm (make-parameter '#f)) (define gxc#current-compile-verbose (make-parameter - (let ((_%verbosity132331132333%_ + (let ((_%verbosity132605132607%_ (let () (declare (not safe)) (##getenv '"GERBIL_BUILD_VERBOSE" '#f)))) - (if _%verbosity132331132333%_ - (let* ((_%verbosity132336%_ _%verbosity132331132333%_) - (_%$e132338%_ (string->number _%verbosity132336%_))) - (if _%$e132338%_ _%$e132338%_ _%verbosity132336%_)) + (if _%verbosity132605132607%_ + (let* ((_%verbosity132610%_ _%verbosity132605132607%_) + (_%$e132612%_ (string->number _%verbosity132610%_))) + (if _%$e132612%_ _%$e132612%_ _%verbosity132610%_)) '#f)))) (define gxc#current-compile-optimize (make-parameter '#f)) (define gxc#current-compile-debug (make-parameter '#f)) @@ -30,22 +30,22 @@ (define gxc#current-compile-parallel (make-parameter '#f)) (define gxc#current-compile-local-env (make-parameter '())) (define gxc#symbol-table::t - (let ((__tmp132393 (list)) (__tmp132392 (cons (cons 'struct: '#t) '()))) + (let ((__tmp132667 (list)) (__tmp132666 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#symbol-table::t 'symbol-table - __tmp132393 + __tmp132667 '(gensyms bindings) - __tmp132392 + __tmp132666 ':init!))) (define gxc#symbol-table? (let () (declare (not safe)) (__make-class-predicate gxc#symbol-table::t))) (define gxc#make-symbol-table - (lambda _%$args132329%_ - (apply make-instance gxc#symbol-table::t _%$args132329%_))) + (lambda _%$args132603%_ + (apply make-instance gxc#symbol-table::t _%$args132603%_))) (define gxc#symbol-table-gensyms (let () (declare (not safe)) @@ -79,44 +79,44 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#symbol-table::t 'bindings))) (define gxc#symbol-table:::init! - (lambda (_%self131851132314%_) - (let* ((_%self132317%_ _%self131851132314%_) - (_%self132319%_ _%self132317%_)) - (if (let ((__tmp132394 + (lambda (_%self132125132588%_) + (let* ((_%self132591%_ _%self132125132588%_) + (_%self132593%_ _%self132591%_)) + (if (let ((__tmp132668 (let () (declare (not safe)) - (##structure-length _%self132319%_)))) + (##structure-length _%self132593%_)))) (declare (not safe)) - (##fx< '2 __tmp132394)) + (##fx< '2 __tmp132668)) (begin - (let ((__tmp132395 + (let ((__tmp132669 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self132319%_ - __tmp132395 + _%self132593%_ + __tmp132669 '1 '#f '#f)) - (let ((__tmp132396 + (let ((__tmp132670 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self132319%_ - __tmp132396 + _%self132593%_ + __tmp132670 '2 '#f '#f)) '#!void) - (let ((__tmp132397 + (let ((__tmp132671 (let () (declare (not safe)) - (##vector-length _%self132319%_)))) + (##vector-length _%self132593%_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _%self132319%_ + _%self132593%_ '2 - __tmp132397)))))) + __tmp132671)))))) (let () (declare (not safe)) (__bind-method!__% @@ -125,138 +125,138 @@ gxc#symbol-table:::init! '#f)) (define gxc#raise-compile-error - (lambda (_%message132183%_ _%stx132184%_ . _%details132185%_) - (let ((_%ctx132190%_ - (let ((_%$e132187%_ + (lambda (_%message132457%_ _%stx132458%_ . _%details132459%_) + (let ((_%ctx132464%_ + (let ((_%$e132461%_ (let () (declare (not safe)) (gxc#current-compile-context)))) - (if _%$e132187%_ _%$e132187%_ 'compile)))) + (if _%$e132461%_ _%$e132461%_ 'compile)))) (apply gx#raise-syntax-error - _%ctx132190%_ - _%message132183%_ - _%stx132184%_ - _%details132185%_)))) + _%ctx132464%_ + _%message132457%_ + _%stx132458%_ + _%details132459%_)))) (define gxc#verbose - (lambda _%args132180%_ + (lambda _%args132454%_ (if (let () (declare (not safe)) (gxc#current-compile-verbose)) - (let ((__tmp132398 + (let ((__tmp132672 (lambda () (let () (declare (not safe)) - (##apply displayln _%args132180%_))))) + (##apply displayln _%args132454%_))))) (declare (not safe)) - (__with-lock gxc#__verbose-mutex __tmp132398)) + (__with-lock gxc#__verbose-mutex __tmp132672)) '#!void))) (define gxc#__verbose-mutex (make-mutex 'compiler/driver)) (define gxc#module-path-reserved-chars '":#<>&!?*;()[]{}|'`\"\\") (define gxc#module-id->path-string - (lambda (_%id132162%_) - (let* ((_%str132164%_ - (if (symbol? _%id132162%_) + (lambda (_%id132436%_) + (let* ((_%str132438%_ + (if (symbol? _%id132436%_) (let () (declare (not safe)) - (##symbol->string _%id132162%_)) - _%id132162%_)) - (_%len132166%_ (string-length _%str132164%_)) - (_%res132168%_ - (let () (declare (not safe)) (##make-string _%len132166%_)))) - (let _%lp132171%_ ((_%i132173%_ '0)) - (if (let () (declare (not safe)) (##fx< _%i132173%_ _%len132166%_)) - (let* ((_%char132175%_ (string-ref _%str132164%_ _%i132173%_)) - (_%xchar132177%_ + (##symbol->string _%id132436%_)) + _%id132436%_)) + (_%len132440%_ (string-length _%str132438%_)) + (_%res132442%_ + (let () (declare (not safe)) (##make-string _%len132440%_)))) + (let _%lp132445%_ ((_%i132447%_ '0)) + (if (let () (declare (not safe)) (##fx< _%i132447%_ _%len132440%_)) + (let* ((_%char132449%_ (string-ref _%str132438%_ _%i132447%_)) + (_%xchar132451%_ (if (let () (declare (not safe)) (string-index__0 gxc#module-path-reserved-chars - _%char132175%_)) + _%char132449%_)) '#\_ - _%char132175%_))) - (string-set! _%res132168%_ _%i132173%_ _%xchar132177%_) - (_%lp132171%_ - (let () (declare (not safe)) (##fx+ _%i132173%_ '1)))) - _%res132168%_))))) + _%char132449%_))) + (string-set! _%res132442%_ _%i132447%_ _%xchar132451%_) + (_%lp132445%_ + (let () (declare (not safe)) (##fx+ _%i132447%_ '1)))) + _%res132442%_))))) (define gxc#map* - (lambda (_%proc132104%_ _%maybe-improper-list132105%_) - (let _%recur132107%_ ((_%rest132109%_ _%maybe-improper-list132105%_)) - (let* ((_%rest132110132121%_ _%rest132109%_) - (_%E132114132125%_ + (lambda (_%proc132378%_ _%maybe-improper-list132379%_) + (let _%recur132381%_ ((_%rest132383%_ _%maybe-improper-list132379%_)) + (let* ((_%rest132384132395%_ _%rest132383%_) + (_%E132388132399%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest132110132121%_ + _%rest132384132395%_ '([hd . rest]) '([]) '(tail))) '#!void))) - (let ((_%K132117132150%_ - (lambda (_%rest132147%_ _%hd132148%_) - (cons (_%proc132104%_ _%hd132148%_) - (_%recur132107%_ _%rest132147%_)))) - (_%K132116132141%_ (lambda () '())) - (_%K132115132131%_ - (lambda (_%tail132129%_) (_%proc132104%_ _%tail132129%_)))) - (let ((_%try-match132112132144%_ + (let ((_%K132391132424%_ + (lambda (_%rest132421%_ _%hd132422%_) + (cons (_%proc132378%_ _%hd132422%_) + (_%recur132381%_ _%rest132421%_)))) + (_%K132390132415%_ (lambda () '())) + (_%K132389132405%_ + (lambda (_%tail132403%_) (_%proc132378%_ _%tail132403%_)))) + (let ((_%try-match132386132418%_ (lambda () (if (let () (declare (not safe)) - (##null? _%rest132110132121%_)) - (_%K132116132141%_) - (let ((_%tail132134%_ _%rest132110132121%_)) + (##null? _%rest132384132395%_)) + (_%K132390132415%_) + (let ((_%tail132408%_ _%rest132384132395%_)) (declare (not safe)) - (_%proc132104%_ _%tail132134%_)))))) + (_%proc132378%_ _%tail132408%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest132110132121%_)) - (let ((_%tl132119132155%_ + (##pair? _%rest132384132395%_)) + (let ((_%tl132393132429%_ (let () (declare (not safe)) - (##cdr _%rest132110132121%_))) - (_%hd132118132153%_ + (##cdr _%rest132384132395%_))) + (_%hd132392132427%_ (let () (declare (not safe)) - (##car _%rest132110132121%_)))) - (let ((_%hd132158%_ _%hd132118132153%_) - (_%rest132160%_ _%tl132119132155%_)) - (_%K132117132150%_ _%rest132160%_ _%hd132158%_))) - (_%try-match132112132144%_)))))))) + (##car _%rest132384132395%_)))) + (let ((_%hd132432%_ _%hd132392132427%_) + (_%rest132434%_ _%tl132393132429%_)) + (_%K132391132424%_ _%rest132434%_ _%hd132432%_))) + (_%try-match132386132418%_)))))))) (define gxc#symbol-in-local-scope? - (lambda (_%sym132099%_) - (let ((_%$e132101%_ (not (gxc#gensym-reference? _%sym132099%_)))) - (if _%$e132101%_ - _%$e132101%_ - (memq _%sym132099%_ + (lambda (_%sym132373%_) + (let ((_%$e132375%_ (not (gxc#gensym-reference? _%sym132373%_)))) + (if _%$e132375%_ + _%$e132375%_ + (memq _%sym132373%_ (let () (declare (not safe)) (gxc#current-compile-local-env))))))) (define gxc#gensym-reference? - (lambda (_%sym132095%_) - (let ((_%str132097%_ (symbol->string _%sym132095%_))) + (lambda (_%sym132369%_) + (let ((_%str132371%_ (symbol->string _%sym132369%_))) (if (let () (declare (not safe)) - (##string-prefix? '"_%" _%str132097%_)) + (##string-prefix? '"_%" _%str132371%_)) (let () (declare (not safe)) - (##string-suffix? '"%_" _%str132097%_)) + (##string-suffix? '"%_" _%str132371%_)) '#f)))) (define gxc#generate-runtime-binding-id - (lambda (_%id132066%_) - (let ((_%$e132068%_ + (lambda (_%id132340%_) + (let ((_%$e132342%_ (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%id132066%_ + _%id132340%_ 'gx#syntax-quote::t)) (let () (declare (not safe)) - (gx#resolve-identifier__0 _%id132066%_)) + (gx#resolve-identifier__0 _%id132340%_)) '#f))) - (if _%$e132068%_ - ((lambda (_%bind132071%_) - (let ((_%eid132073%_ - (##structure-ref _%bind132071%_ '1 gx#binding::t '#f)) - (_%ht132074%_ + (if _%$e132342%_ + ((lambda (_%bind132345%_) + (let ((_%eid132347%_ + (##structure-ref _%bind132345%_ '1 gx#binding::t '#f)) + (_%ht132348%_ (##structure-ref (let () (declare (not safe)) @@ -266,155 +266,155 @@ '#f))) (if (let () (declare (not safe)) - (interned-symbol? _%eid132073%_)) - _%eid132073%_ - (let ((_%$e132077%_ + (interned-symbol? _%eid132347%_)) + _%eid132347%_ + (let ((_%$e132351%_ (let () (declare (not safe)) - (hash-get _%ht132074%_ _%eid132073%_)))) - (if _%$e132077%_ - _%$e132077%_ + (hash-get _%ht132348%_ _%eid132347%_)))) + (if _%$e132351%_ + _%$e132351%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%bind132071%_ + _%bind132345%_ 'gx#local-binding::t)) - (let ((_%gid132081%_ + (let ((_%gid132355%_ (gxc#generate-runtime-gensym-reference__0 - _%eid132073%_))) + _%eid132347%_))) (let () (declare (not safe)) (hash-put! - _%ht132074%_ - _%eid132073%_ - _%gid132081%_)) - _%gid132081%_) + _%ht132348%_ + _%eid132347%_ + _%gid132355%_)) + _%gid132355%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%bind132071%_ + _%bind132345%_ 'gx#module-binding::t)) - (let ((_%gid132090%_ - (let ((_%$e132084%_ + (let ((_%gid132364%_ + (let ((_%$e132358%_ (##structure-ref (let () (declare (not safe)) (##unchecked-structure-ref - _%bind132071%_ + _%bind132345%_ '4 '#f '#f)) '6 gx#module-context::t '#f))) - (if _%$e132084%_ - ((lambda (_%ns132087%_) + (if _%$e132358%_ + ((lambda (_%ns132361%_) (let () (declare (not safe)) (make-symbol__1 - _%ns132087%_ + _%ns132361%_ '"#" - _%eid132073%_))) - _%$e132084%_) + _%eid132347%_))) + _%$e132358%_) (gxc#generate-runtime-gensym-reference__0 - _%eid132073%_))))) + _%eid132347%_))))) (let () (declare (not safe)) (hash-put! - _%ht132074%_ - _%eid132073%_ - _%gid132090%_)) - _%gid132090%_) + _%ht132348%_ + _%eid132347%_ + _%gid132364%_)) + _%gid132364%_) (gxc#raise-compile-error '"Cannot compile reference to uninterned binding" - _%id132066%_ - _%eid132073%_ - _%bind132071%_)))))))) - _%$e132068%_) - (if (let ((__tmp132399 + _%id132340%_ + _%eid132347%_ + _%bind132345%_)))))))) + _%$e132342%_) + (if (let ((__tmp132673 (let () (declare (not safe)) - (gx#stx-e _%id132066%_)))) + (gx#stx-e _%id132340%_)))) (declare (not safe)) - (interned-symbol? __tmp132399)) - (let () (declare (not safe)) (gx#stx-e _%id132066%_)) + (interned-symbol? __tmp132673)) + (let () (declare (not safe)) (gx#stx-e _%id132340%_)) (gxc#raise-compile-error '"Cannot compile reference to uninterned identifier" - _%id132066%_)))))) + _%id132340%_)))))) (define gxc#generate-runtime-binding-id* - (lambda (_%id132064%_) - (if (let () (declare (not safe)) (gx#identifier? _%id132064%_)) - (gxc#generate-runtime-binding-id _%id132064%_) + (lambda (_%id132338%_) + (if (let () (declare (not safe)) (gx#identifier? _%id132338%_)) + (gxc#generate-runtime-binding-id _%id132338%_) (gxc#generate-runtime-temporary__0)))) (define gxc#generate-runtime-temporary__% - (lambda (_%top132051%_) - (if _%top132051%_ - (let ((_%ns132053%_ + (lambda (_%top132325%_) + (if _%top132325%_ + (let ((_%ns132327%_ (##structure-ref - (let ((__tmp132400 + (let ((__tmp132674 (let () (declare (not safe)) (gx#current-expander-context)))) (declare (not safe)) - (gx#core-context-top__1 __tmp132400)) + (gx#core-context-top__1 __tmp132674)) '6 gx#module-context::t '#f)) - (_%phi132054%_ + (_%phi132328%_ (let () (declare (not safe)) (gx#current-expander-phi)))) - (if _%ns132053%_ - (if (fxpositive? _%phi132054%_) - (let ((__tmp132402 (number->string _%phi132054%_)) - (__tmp132401 + (if _%ns132327%_ + (if (fxpositive? _%phi132328%_) + (let ((__tmp132676 (number->string _%phi132328%_)) + (__tmp132675 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) (make-symbol__1 - _%ns132053%_ + _%ns132327%_ '"[" - __tmp132402 + __tmp132676 '"]#_" - __tmp132401 + __tmp132675 '"_")) - (let ((__tmp132403 + (let ((__tmp132677 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) - (make-symbol__1 _%ns132053%_ '"#_" __tmp132403 '"_"))) - (if (fxpositive? _%phi132054%_) - (let ((__tmp132405 (number->string _%phi132054%_)) - (__tmp132404 + (make-symbol__1 _%ns132327%_ '"#_" __tmp132677 '"_"))) + (if (fxpositive? _%phi132328%_) + (let ((__tmp132679 (number->string _%phi132328%_)) + (__tmp132678 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) (make-symbol__1 '"[" - __tmp132405 + __tmp132679 '"]#_" - __tmp132404 + __tmp132678 '"_")) - (let ((__tmp132406 + (let ((__tmp132680 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) - (make-symbol__1 '"_" __tmp132406 '"_"))))) - (let ((__tmp132407 (let () (declare (not safe)) (##gensym)))) + (make-symbol__1 '"_" __tmp132680 '"_"))))) + (let ((__tmp132681 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) - (make-symbol__1 '"_" __tmp132407 '"_"))))) + (make-symbol__1 '"_" __tmp132681 '"_"))))) (define gxc#generate-runtime-temporary__0 (lambda () - (let ((_%top132060%_ '#f)) - (gxc#generate-runtime-temporary__% _%top132060%_)))) + (let ((_%top132334%_ '#f)) + (gxc#generate-runtime-temporary__% _%top132334%_)))) (define gxc#generate-runtime-temporary - (lambda _g132409_ - (let ((_g132408_ (let () (declare (not safe)) (##length _g132409_)))) - (cond ((let () (declare (not safe)) (##fx= _g132408_ 0)) - (apply gxc#generate-runtime-temporary__0 _g132409_)) - ((let () (declare (not safe)) (##fx= _g132408_ 1)) - (apply gxc#generate-runtime-temporary__% _g132409_)) + (lambda _g132683_ + (let ((_g132682_ (let () (declare (not safe)) (##length _g132683_)))) + (cond ((let () (declare (not safe)) (##fx= _g132682_ 0)) + (apply gxc#generate-runtime-temporary__0 _g132683_)) + ((let () (declare (not safe)) (##fx= _g132682_ 1)) + (apply gxc#generate-runtime-temporary__% _g132683_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-temporary - _g132409_)))))) + _g132683_)))))) (define gxc#generate-runtime-gensym-reference__% - (lambda (_%sym132029%_ _%quote?132030%_) - (let* ((_%ht132032%_ + (lambda (_%sym132303%_ _%quote?132304%_) + (let* ((_%ht132306%_ (##structure-ref (let () (declare (not safe)) @@ -422,66 +422,66 @@ '1 gxc#symbol-table::t '#f)) - (_%$e132034%_ + (_%$e132308%_ (let () (declare (not safe)) - (hash-get _%ht132032%_ _%sym132029%_)))) - (if _%$e132034%_ - _%$e132034%_ - (let ((_%g132038%_ - (if _%quote?132030%_ - (let ((__tmp132410 + (hash-get _%ht132306%_ _%sym132303%_)))) + (if _%$e132308%_ + _%$e132308%_ + (let ((_%g132312%_ + (if _%quote?132304%_ + (let ((__tmp132684 (let () (declare (not safe)) (gxc#current-compile-timestamp)))) (declare (not safe)) (make-symbol__1 '"__" - _%sym132029%_ + _%sym132303%_ '"__" - __tmp132410)) + __tmp132684)) (let () (declare (not safe)) - (make-symbol__1 '"_%" _%sym132029%_ '"%_"))))) + (make-symbol__1 '"_%" _%sym132303%_ '"%_"))))) (let () (declare (not safe)) - (hash-put! _%ht132032%_ _%sym132029%_ _%g132038%_)) - _%g132038%_))))) + (hash-put! _%ht132306%_ _%sym132303%_ _%g132312%_)) + _%g132312%_))))) (define gxc#generate-runtime-gensym-reference__0 - (lambda (_%sym132043%_) - (let ((_%quote?132045%_ '#f)) + (lambda (_%sym132317%_) + (let ((_%quote?132319%_ '#f)) (gxc#generate-runtime-gensym-reference__% - _%sym132043%_ - _%quote?132045%_)))) + _%sym132317%_ + _%quote?132319%_)))) (define gxc#generate-runtime-gensym-reference - (lambda _g132412_ - (let ((_g132411_ (let () (declare (not safe)) (##length _g132412_)))) - (cond ((let () (declare (not safe)) (##fx= _g132411_ 1)) - (apply gxc#generate-runtime-gensym-reference__0 _g132412_)) - ((let () (declare (not safe)) (##fx= _g132411_ 2)) - (apply gxc#generate-runtime-gensym-reference__% _g132412_)) + (lambda _g132686_ + (let ((_g132685_ (let () (declare (not safe)) (##length _g132686_)))) + (cond ((let () (declare (not safe)) (##fx= _g132685_ 1)) + (apply gxc#generate-runtime-gensym-reference__0 _g132686_)) + ((let () (declare (not safe)) (##fx= _g132685_ 2)) + (apply gxc#generate-runtime-gensym-reference__% _g132686_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-gensym-reference - _g132412_)))))) + _g132686_)))))) (define gxc#runtime-identifier=? - (lambda (_%id1132021%_ _%id2132022%_) - (letrec ((_%symbol-e132024%_ - (lambda (_%id132026%_) - (if (symbol? _%id132026%_) - _%id132026%_ - (gxc#generate-runtime-binding-id _%id132026%_))))) - (eq? (_%symbol-e132024%_ _%id1132021%_) - (_%symbol-e132024%_ _%id2132022%_))))) + (lambda (_%id1132295%_ _%id2132296%_) + (letrec ((_%symbol-e132298%_ + (lambda (_%id132300%_) + (if (symbol? _%id132300%_) + _%id132300%_ + (gxc#generate-runtime-binding-id _%id132300%_))))) + (eq? (_%symbol-e132298%_ _%id1132295%_) + (_%symbol-e132298%_ _%id2132296%_))))) (define gxc#identifier-symbol - (lambda (_%stx132019%_) + (lambda (_%stx132293%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%stx132019%_ + _%stx132293%_ 'gx#syntax-quote::t)) - (gxc#generate-runtime-binding-id _%stx132019%_) - (let () (declare (not safe)) (gx#stx-e _%stx132019%_))))) + (gxc#generate-runtime-binding-id _%stx132293%_) + (let () (declare (not safe)) (gx#stx-e _%stx132293%_))))) (define gxc#__compile-jobs '()) (define gxc#__available-cores (string->number @@ -489,69 +489,69 @@ (define gxc#__jobs-mx (make-mutex)) (define gxc#__jobs-cv (make-condition-variable)) (define gxc#add-compile-job!__% - (lambda (_%thunk132004%_ _%name132005%_) + (lambda (_%thunk132278%_ _%name132279%_) (mutex-lock! gxc#__jobs-mx) - (let ((_%job132007%_ - (gxc#make-compile-job _%thunk132004%_ _%name132005%_))) - (set! gxc#__compile-jobs (cons _%job132007%_ gxc#__compile-jobs))) + (let ((_%job132281%_ + (gxc#make-compile-job _%thunk132278%_ _%name132279%_))) + (set! gxc#__compile-jobs (cons _%job132281%_ gxc#__compile-jobs))) (mutex-unlock! gxc#__jobs-mx))) (define gxc#add-compile-job!__0 - (lambda (_%thunk132012%_) - (let ((_%name132014%_ + (lambda (_%thunk132286%_) + (let ((_%name132288%_ (let () (declare (not safe)) (gxc#current-compile-context)))) - (gxc#add-compile-job!__% _%thunk132012%_ _%name132014%_)))) + (gxc#add-compile-job!__% _%thunk132286%_ _%name132288%_)))) (define gxc#add-compile-job! - (lambda _g132414_ - (let ((_g132413_ (let () (declare (not safe)) (##length _g132414_)))) - (cond ((let () (declare (not safe)) (##fx= _g132413_ 1)) - (apply gxc#add-compile-job!__0 _g132414_)) - ((let () (declare (not safe)) (##fx= _g132413_ 2)) - (apply gxc#add-compile-job!__% _g132414_)) + (lambda _g132688_ + (let ((_g132687_ (let () (declare (not safe)) (##length _g132688_)))) + (cond ((let () (declare (not safe)) (##fx= _g132687_ 1)) + (apply gxc#add-compile-job!__0 _g132688_)) + ((let () (declare (not safe)) (##fx= _g132687_ 2)) + (apply gxc#add-compile-job!__% _g132688_)) (else (##raise-wrong-number-of-arguments-exception gxc#add-compile-job! - _g132414_)))))) + _g132688_)))))) (define gxc#pending-compile-jobs (lambda () (mutex-lock! gxc#__jobs-mx) - (let ((_%result132001%_ (reverse! gxc#__compile-jobs))) + (let ((_%result132275%_ (reverse! gxc#__compile-jobs))) (set! gxc#__compile-jobs '()) (mutex-unlock! gxc#__jobs-mx) - _%result132001%_))) + _%result132275%_))) (define gxc#execute-pending-compile-jobs! (lambda () - (let _%loop131995%_ () - (let ((_%pending131998%_ (gxc#pending-compile-jobs))) - (if (null? _%pending131998%_) + (let _%loop132269%_ () + (let ((_%pending132272%_ (gxc#pending-compile-jobs))) + (if (null? _%pending132272%_) '#!void (begin (let () (declare (not safe)) - (##for-each thread-start! _%pending131998%_)) + (##for-each thread-start! _%pending132272%_)) (let () (declare (not safe)) - (##for-each gxc#join! _%pending131998%_)))))))) + (##for-each gxc#join! _%pending132272%_)))))))) (define gxc#make-compile-job - (lambda (_%thunk131984%_ _%name131985%_) + (lambda (_%thunk132258%_ _%name132259%_) (make-thread (lambda () - (let _%loop131988%_ () + (let _%loop132262%_ () (mutex-lock! gxc#__jobs-mx) (if (> gxc#__available-cores '0) (begin (set! gxc#__available-cores (- gxc#__available-cores '1)) (mutex-unlock! gxc#__jobs-mx) - (let ((__tmp132415 + (let ((__tmp132689 (lambda () (let () (declare (not safe)) (displayln '"... execute compile job " - _%name131985%_))))) + _%name132259%_))))) (declare (not safe)) - (__with-lock gxc#__verbose-mutex __tmp132415)) - (let ((__tmp132417 (lambda () (_%thunk131984%_))) - (__tmp132416 + (__with-lock gxc#__verbose-mutex __tmp132689)) + (let ((__tmp132691 (lambda () (_%thunk132258%_))) + (__tmp132690 (lambda () (mutex-lock! gxc#__jobs-mx) (set! gxc#__available-cores @@ -561,25 +561,25 @@ (condition-variable-signal! gxc#__jobs-cv) (mutex-unlock! gxc#__jobs-mx)))) (declare (not safe)) - (__with-unwind-protect __tmp132417 __tmp132416))) + (__with-unwind-protect __tmp132691 __tmp132690))) (begin (mutex-unlock! gxc#__jobs-mx gxc#__jobs-cv) - (_%loop131988%_))))) - _%name131985%_))) + (_%loop132262%_))))) + _%name132259%_))) (define gxc#join! - (lambda (_%thread131979%_) - (let ((__tmp132419 - (lambda (_%exn131981%_) + (lambda (_%thread132253%_) + (let ((__tmp132693 + (lambda (_%exn132255%_) (if (let () (declare (not safe)) - (uncaught-exception? _%exn131981%_)) - (let ((__tmp132420 + (uncaught-exception? _%exn132255%_)) + (let ((__tmp132694 (let () (declare (not safe)) - (uncaught-exception-reason _%exn131981%_)))) + (uncaught-exception-reason _%exn132255%_)))) (declare (not safe)) - (raise __tmp132420)) - (let () (declare (not safe)) (raise _%exn131981%_))))) - (__tmp132418 (lambda () (thread-join! _%thread131979%_)))) + (raise __tmp132694)) + (let () (declare (not safe)) (raise _%exn132255%_))))) + (__tmp132692 (lambda () (thread-join! _%thread132253%_)))) (declare (not safe)) - (__with-catch __tmp132419 __tmp132418)))))) + (__with-catch __tmp132693 __tmp132692)))))) diff --git a/src/bootstrap/gerbil/compiler/base~1.scm b/src/bootstrap/gerbil/compiler/base~1.scm index 3169a24ca..edc432449 100644 --- a/src/bootstrap/gerbil/compiler/base~1.scm +++ b/src/bootstrap/gerbil/compiler/base~1.scm @@ -1,76 +1,76 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g132430_| + (define |gxc[1]#_g132704_| (##structure gx#syntax-quote::t 'symbol-table::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g132432_| + (define |gxc[1]#_g132706_| (##structure gx#syntax-quote::t 'make-symbol-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g132434_| + (define |gxc[1]#_g132708_| (##structure gx#syntax-quote::t 'symbol-table? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g132436_| + (define |gxc[1]#_g132710_| (##structure gx#syntax-quote::t 'symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g132437_| + (define |gxc[1]#_g132711_| (##structure gx#syntax-quote::t 'symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g132439_| + (define |gxc[1]#_g132713_| (##structure gx#syntax-quote::t 'symbol-table-gensyms-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g132440_| + (define |gxc[1]#_g132714_| (##structure gx#syntax-quote::t 'symbol-table-bindings-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g132442_| + (define |gxc[1]#_g132716_| (##structure gx#syntax-quote::t '&symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g132443_| + (define |gxc[1]#_g132717_| (##structure gx#syntax-quote::t '&symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g132445_| + (define |gxc[1]#_g132719_| (##structure gx#syntax-quote::t '&symbol-table-gensyms-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g132446_| + (define |gxc[1]#_g132720_| (##structure gx#syntax-quote::t '&symbol-table-bindings-set! @@ -79,202 +79,202 @@ '())) (begin (define |gxc[:0:]#ast-case| - (lambda (_%stx131513%_) + (lambda (_%stx131787%_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__% - _%stx131513%_ + _%stx131787%_ 'stx-eq? 'stx-e 'quote)))) (define |gxc[:0:]#ast-rules| - (lambda (_%stx131516%_) - (let* ((_%g131519131543%_ - (lambda (_%g131520131539%_) + (lambda (_%stx131790%_) + (let* ((_%g131793131817%_ + (lambda (_%g131794131813%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g131520131539%_)))) - (_%g131518131846%_ - (lambda (_%g131520131547%_) + _%g131794131813%_)))) + (_%g131792132120%_ + (lambda (_%g131794131821%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g131520131547%_)) - (let ((_%e131523131550%_ + (gx#stx-pair? _%g131794131821%_)) + (let ((_%e131797131824%_ (let () (declare (not safe)) - (gx#syntax-e _%g131520131547%_)))) - (let ((_%hd131524131554%_ + (gx#syntax-e _%g131794131821%_)))) + (let ((_%hd131798131828%_ (let () (declare (not safe)) - (##car _%e131523131550%_))) - (_%tl131525131557%_ + (##car _%e131797131824%_))) + (_%tl131799131831%_ (let () (declare (not safe)) - (##cdr _%e131523131550%_)))) + (##cdr _%e131797131824%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl131525131557%_)) - (let ((_%e131526131560%_ + (gx#stx-pair? _%tl131799131831%_)) + (let ((_%e131800131834%_ (let () (declare (not safe)) - (gx#syntax-e _%tl131525131557%_)))) - (let ((_%hd131527131564%_ + (gx#syntax-e _%tl131799131831%_)))) + (let ((_%hd131801131838%_ (let () (declare (not safe)) - (##car _%e131526131560%_))) - (_%tl131528131567%_ + (##car _%e131800131834%_))) + (_%tl131802131841%_ (let () (declare (not safe)) - (##cdr _%e131526131560%_)))) + (##cdr _%e131800131834%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl131528131567%_)) - (let ((_g132421_ + (gx#stx-pair/null? _%tl131802131841%_)) + (let ((_g132695_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl131528131567%_ + _%tl131802131841%_ '0)))) (begin - (let ((_g132422_ + (let ((_g132696_ (let () (declare (not safe)) - (if (##values? _g132421_) + (if (##values? _g132695_) (##vector-length - _g132421_) + _g132695_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132422_ 2))) + (##fx= _g132696_ 2))) (error "Context expects 2 values" - _g132422_))) - (let ((_%target131529131570%_ + _g132696_))) + (let ((_%target131803131844%_ (let () (declare (not safe)) - (##vector-ref _g132421_ 0))) - (_%tl131531131573%_ + (##vector-ref _g132695_ 0))) + (_%tl131805131847%_ (let () (declare (not safe)) (##vector-ref - _g132421_ + _g132695_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl131531131573%_)) - (letrec ((_%loop131532131576%_ - (lambda (_%hd131530131580%_ + _%tl131805131847%_)) + (letrec ((_%loop131806131850%_ + (lambda (_%hd131804131854%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause131536131583%_) + _%clause131810131857%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd131530131580%_)) - (let ((_%e131533131586%_ + (gx#stx-pair? _%hd131804131854%_)) + (let ((_%e131807131860%_ (let () (declare (not safe)) - (gx#syntax-e _%hd131530131580%_)))) - (let ((_%lp-hd131534131590%_ + (gx#syntax-e _%hd131804131854%_)))) + (let ((_%lp-hd131808131864%_ (let () (declare (not safe)) - (##car _%e131533131586%_))) - (_%lp-tl131535131593%_ + (##car _%e131807131860%_))) + (_%lp-tl131809131867%_ (let () (declare (not safe)) - (##cdr _%e131533131586%_)))) - (_%loop131532131576%_ - _%lp-tl131535131593%_ - (cons _%lp-hd131534131590%_ - _%clause131536131583%_)))) - (let ((_%clause131537131596%_ - (reverse _%clause131536131583%_))) - ((lambda (_%L131600%_ _%L131602%_) + (##cdr _%e131807131860%_)))) + (_%loop131806131850%_ + _%lp-tl131809131867%_ + (cons _%lp-hd131808131864%_ + _%clause131810131857%_)))) + (let ((_%clause131811131870%_ + (reverse _%clause131810131857%_))) + ((lambda (_%L131874%_ _%L131876%_) (if (let () (declare (not safe)) - (gx#identifier-list? _%L131602%_)) - (let* ((_%g131621131638%_ - (lambda (_%g131622131634%_) + (gx#identifier-list? _%L131876%_)) + (let* ((_%g131895131912%_ + (lambda (_%g131896131908%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g131622131634%_)))) - (_%g131620131699%_ - (lambda (_%g131622131642%_) + _%g131896131908%_)))) + (_%g131894131973%_ + (lambda (_%g131896131916%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g131622131642%_)) - (let ((_g132423_ + _%g131896131916%_)) + (let ((_g132697_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g131622131642%_ + _%g131896131916%_ '0)))) (begin - (let ((_g132424_ + (let ((_g132698_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g132423_) - (##vector-length _g132423_) + _g132697_) + (##vector-length _g132697_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g132424_ 2))) - (error "Context expects 2 values" _g132424_))) + (##fx= _g132698_ 2))) + (error "Context expects 2 values" _g132698_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target131624131645%_ + (let ((_%target131898131919%_ (let () (declare (not safe)) (##vector-ref - _g132423_ + _g132697_ 0))) - (_%tl131626131648%_ + (_%tl131900131922%_ (let () (declare (not safe)) (##vector-ref - _g132423_ + _g132697_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl131626131648%_)) - (letrec ((_%loop131627131651%_ + _%tl131900131922%_)) + (letrec ((_%loop131901131925%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd131625131655%_ _%clause131631131658%_) + (lambda (_%hd131899131929%_ _%clause131905131932%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd131625131655%_)) - (let ((_%e131628131661%_ + (gx#stx-pair? _%hd131899131929%_)) + (let ((_%e131902131935%_ (let () (declare (not safe)) - (gx#syntax-e _%hd131625131655%_)))) - (let ((_%lp-hd131629131665%_ + (gx#syntax-e _%hd131899131929%_)))) + (let ((_%lp-hd131903131939%_ (let () (declare (not safe)) - (##car _%e131628131661%_))) - (_%lp-tl131630131668%_ + (##car _%e131902131935%_))) + (_%lp-tl131904131942%_ (let () (declare (not safe)) - (##cdr _%e131628131661%_)))) - (_%loop131627131651%_ - _%lp-tl131630131668%_ - (cons _%lp-hd131629131665%_ - _%clause131631131658%_)))) - (let ((_%clause131632131671%_ - (reverse _%clause131631131658%_))) - ((lambda (_%L131675%_) + (##cdr _%e131902131935%_)))) + (_%loop131901131925%_ + _%lp-tl131904131942%_ + (cons _%lp-hd131903131939%_ + _%clause131905131932%_)))) + (let ((_%clause131906131945%_ + (reverse _%clause131905131932%_))) + ((lambda (_%L131949%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -294,159 +294,159 @@ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '$stx)) - (cons _%L131602%_ - (let ((__tmp132425 - (lambda (_%g131690131693%_ - _%g131691131696%_) - (cons _%g131690131693%_ - _%g131691131696%_)))) + (cons _%L131876%_ + (let ((__tmp132699 + (lambda (_%g131964131967%_ + _%g131965131970%_) + (cons _%g131964131967%_ + _%g131965131970%_)))) (declare (not safe)) - (__foldr1 __tmp132425 '() _%L131675%_))))) + (__foldr1 __tmp132699 '() _%L131949%_))))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause131632131671%_)))))) - (_%loop131627131651%_ _%target131624131645%_ '())) - (_%g131621131638%_ _%g131622131642%_))))) + _%clause131906131945%_)))))) + (_%loop131901131925%_ _%target131898131919%_ '())) + (_%g131895131912%_ _%g131896131916%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g131621131638%_ - _%g131622131642%_))))) - (_%g131620131699%_ - (let ((__tmp132428 - (lambda (_%clause131703%_) - (let* ((_%__stx132341132342%_ - _%clause131703%_) - (_%g131707131734%_ + (_%g131895131912%_ + _%g131896131916%_))))) + (_%g131894131973%_ + (let ((__tmp132702 + (lambda (_%clause131977%_) + (let* ((_%__stx132615132616%_ + _%clause131977%_) + (_%g131981132008%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx132341132342%_))))) - (let ((_%__kont132344132345%_ - (lambda (_%L131819%_ - _%L131821%_) - (cons _%L131821%_ + _%__stx132615132616%_))))) + (let ((_%__kont132618132619%_ + (lambda (_%L132093%_ + _%L132095%_) + (cons _%L132095%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax)) - (cons _%L131819%_ '())) + (cons _%L132093%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont132346132347%_ - (lambda (_%L131771%_ - _%L131773%_ - _%L131774%_) - (cons _%L131774%_ - (cons _%L131773%_ + (_%__kont132620132621%_ + (lambda (_%L132045%_ + _%L132047%_ + _%L132048%_) + (cons _%L132048%_ + (cons _%L132047%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax)) - (cons _%L131771%_ '())) + (cons _%L132045%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx132341132342%_)) - (let ((_%e131711131799%_ + _%__stx132615132616%_)) + (let ((_%e131985132073%_ (let () (declare (not safe)) (gx#syntax-e - _%__stx132341132342%_)))) - (let ((_%tl131713131806%_ + _%__stx132615132616%_)))) + (let ((_%tl131987132080%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e131711131799%_))) - (_%hd131712131803%_ - (let () (declare (not safe)) (##car _%e131711131799%_)))) + (##cdr _%e131985132073%_))) + (_%hd131986132077%_ + (let () (declare (not safe)) (##car _%e131985132073%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl131713131806%_)) - (let ((_%e131714131809%_ + (gx#stx-pair? _%tl131987132080%_)) + (let ((_%e131988132083%_ (let () (declare (not safe)) - (gx#syntax-e _%tl131713131806%_)))) - (let ((_%tl131716131816%_ + (gx#syntax-e _%tl131987132080%_)))) + (let ((_%tl131990132090%_ (let () (declare (not safe)) - (##cdr _%e131714131809%_))) - (_%hd131715131813%_ + (##cdr _%e131988132083%_))) + (_%hd131989132087%_ (let () (declare (not safe)) - (##car _%e131714131809%_)))) + (##car _%e131988132083%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl131716131816%_)) - (_%__kont132344132345%_ - _%hd131715131813%_ - _%hd131712131803%_) + (gx#stx-null? _%tl131990132090%_)) + (_%__kont132618132619%_ + _%hd131989132087%_ + _%hd131986132077%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl131716131816%_)) - (let ((_%e131726131761%_ + (gx#stx-pair? _%tl131990132090%_)) + (let ((_%e132000132035%_ (let () (declare (not safe)) - (gx#syntax-e _%tl131716131816%_)))) - (let ((_%tl131728131768%_ + (gx#syntax-e _%tl131990132090%_)))) + (let ((_%tl132002132042%_ (let () (declare (not safe)) - (##cdr _%e131726131761%_))) - (_%hd131727131765%_ + (##cdr _%e132000132035%_))) + (_%hd132001132039%_ (let () (declare (not safe)) - (##car _%e131726131761%_)))) + (##car _%e132000132035%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl131728131768%_)) - (_%__kont132346132347%_ - _%hd131727131765%_ - _%hd131715131813%_ - _%hd131712131803%_) + (gx#stx-null? _%tl132002132042%_)) + (_%__kont132620132621%_ + _%hd132001132039%_ + _%hd131989132087%_ + _%hd131986132077%_) (let () (declare (not safe)) - (_%g131707131734%_))))) + (_%g131981132008%_))))) (let () (declare (not safe)) - (_%g131707131734%_)))))) - (let () (declare (not safe)) (_%g131707131734%_))))) + (_%g131981132008%_)))))) + (let () (declare (not safe)) (_%g131981132008%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g131707131734%_))))))) - (__tmp132426 - (let ((__tmp132427 - (lambda (_%g131837131840%_ - _%g131838131843%_) - (cons _%g131837131840%_ - _%g131838131843%_)))) + (_%g131981132008%_))))))) + (__tmp132700 + (let ((__tmp132701 + (lambda (_%g132111132114%_ + _%g132112132117%_) + (cons _%g132111132114%_ + _%g132112132117%_)))) (declare (not safe)) (__foldr1 - __tmp132427 + __tmp132701 '() - _%L131600%_)))) + _%L131874%_)))) (declare (not safe)) - (gx#stx-map1 __tmp132428 __tmp132426)))) - (_%g131519131543%_ _%g131520131547%_))) - _%clause131537131596%_ - _%hd131527131564%_)))))) + (gx#stx-map1 __tmp132702 __tmp132700)))) + (_%g131793131817%_ _%g131794131821%_))) + _%clause131811131870%_ + _%hd131801131838%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop131532131576%_ - _%target131529131570%_ + (_%loop131806131850%_ + _%target131803131844%_ '())) - (_%g131519131543%_ - _%g131520131547%_))))) - (_%g131519131543%_ _%g131520131547%_)))) - (_%g131519131543%_ _%g131520131547%_)))) - (_%g131519131543%_ _%g131520131547%_))))) - (_%g131518131846%_ _%stx131516%_)))) + (_%g131793131817%_ + _%g131794131821%_))))) + (_%g131793131817%_ _%g131794131821%_)))) + (_%g131793131817%_ _%g131794131821%_)))) + (_%g131793131817%_ _%g131794131821%_))))) + (_%g131792132120%_ _%stx131790%_)))) (define |gxc[:0:]#symbol-table| - (let ((__obj132391 + (let ((__obj132665 (let () (declare (not safe)) (##structure @@ -475,18 +475,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj132391 + __obj132665 'gxc#symbol-table::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132391 'symbol-table '2 '#f '#f)) + (##unchecked-structure-set! __obj132665 'symbol-table '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj132391 + __obj132665 '(gensyms bindings) '4 '#f @@ -494,111 +494,111 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj132391 + __obj132665 '(gensyms bindings) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132391 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj132665 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132391 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj132665 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132391 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj132665 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132391 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj132665 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132391 ':init! '11 '#f '#f)) - (let ((__tmp132429 |gxc[1]#_g132430_|)) + (##unchecked-structure-set! __obj132665 ':init! '11 '#f '#f)) + (let ((__tmp132703 |gxc[1]#_g132704_|)) (declare (not safe)) - (##unchecked-structure-set! __obj132391 __tmp132429 '12 '#f '#f)) - (let ((__tmp132431 |gxc[1]#_g132432_|)) + (##unchecked-structure-set! __obj132665 __tmp132703 '12 '#f '#f)) + (let ((__tmp132705 |gxc[1]#_g132706_|)) (declare (not safe)) - (##unchecked-structure-set! __obj132391 __tmp132431 '13 '#f '#f)) - (let ((__tmp132433 |gxc[1]#_g132434_|)) + (##unchecked-structure-set! __obj132665 __tmp132705 '13 '#f '#f)) + (let ((__tmp132707 |gxc[1]#_g132708_|)) (declare (not safe)) - (##unchecked-structure-set! __obj132391 __tmp132433 '14 '#f '#f)) - (let ((__tmp132435 - (cons (cons 'gensyms |gxc[1]#_g132436_|) - (cons (cons 'bindings |gxc[1]#_g132437_|) '())))) + (##unchecked-structure-set! __obj132665 __tmp132707 '14 '#f '#f)) + (let ((__tmp132709 + (cons (cons 'gensyms |gxc[1]#_g132710_|) + (cons (cons 'bindings |gxc[1]#_g132711_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj132391 __tmp132435 '15 '#f '#f)) - (let ((__tmp132438 - (cons (cons 'gensyms |gxc[1]#_g132439_|) - (cons (cons 'bindings |gxc[1]#_g132440_|) '())))) + (##unchecked-structure-set! __obj132665 __tmp132709 '15 '#f '#f)) + (let ((__tmp132712 + (cons (cons 'gensyms |gxc[1]#_g132713_|) + (cons (cons 'bindings |gxc[1]#_g132714_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj132391 __tmp132438 '16 '#f '#f)) - (let ((__tmp132441 - (cons (cons 'gensyms |gxc[1]#_g132442_|) - (cons (cons 'bindings |gxc[1]#_g132443_|) '())))) + (##unchecked-structure-set! __obj132665 __tmp132712 '16 '#f '#f)) + (let ((__tmp132715 + (cons (cons 'gensyms |gxc[1]#_g132716_|) + (cons (cons 'bindings |gxc[1]#_g132717_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj132391 __tmp132441 '17 '#f '#f)) - (let ((__tmp132444 - (cons (cons 'gensyms |gxc[1]#_g132445_|) - (cons (cons 'bindings |gxc[1]#_g132446_|) '())))) + (##unchecked-structure-set! __obj132665 __tmp132715 '17 '#f '#f)) + (let ((__tmp132718 + (cons (cons 'gensyms |gxc[1]#_g132719_|) + (cons (cons 'bindings |gxc[1]#_g132720_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj132391 __tmp132444 '18 '#f '#f)) + (##unchecked-structure-set! __obj132665 __tmp132718 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132391 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj132665 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132391 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj132665 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132391 '() '20 '#f '#f)) - __obj132391)) + (##unchecked-structure-set! __obj132665 '() '20 '#f '#f)) + __obj132665)) (define |gxc[:0:]#with-verbose-mutex| - (lambda (_%$stx131853%_) - (let* ((_%g131857131871%_ - (lambda (_%g131858131867%_) + (lambda (_%$stx132127%_) + (let* ((_%g132131132145%_ + (lambda (_%g132132132141%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g131858131867%_)))) - (_%g131856131912%_ - (lambda (_%g131858131875%_) + _%g132132132141%_)))) + (_%g132130132186%_ + (lambda (_%g132132132149%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g131858131875%_)) - (let ((_%e131860131878%_ + (gx#stx-pair? _%g132132132149%_)) + (let ((_%e132134132152%_ (let () (declare (not safe)) - (gx#syntax-e _%g131858131875%_)))) - (let ((_%hd131861131882%_ + (gx#syntax-e _%g132132132149%_)))) + (let ((_%hd132135132156%_ (let () (declare (not safe)) - (##car _%e131860131878%_))) - (_%tl131862131885%_ + (##car _%e132134132152%_))) + (_%tl132136132159%_ (let () (declare (not safe)) - (##cdr _%e131860131878%_)))) + (##cdr _%e132134132152%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl131862131885%_)) - (let ((_%e131863131888%_ + (gx#stx-pair? _%tl132136132159%_)) + (let ((_%e132137132162%_ (let () (declare (not safe)) - (gx#syntax-e _%tl131862131885%_)))) - (let ((_%hd131864131892%_ + (gx#syntax-e _%tl132136132159%_)))) + (let ((_%hd132138132166%_ (let () (declare (not safe)) - (##car _%e131863131888%_))) - (_%tl131865131895%_ + (##car _%e132137132162%_))) + (_%tl132139132169%_ (let () (declare (not safe)) - (##cdr _%e131863131888%_)))) + (##cdr _%e132137132162%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl131865131895%_)) - ((lambda (_%L131898%_) + (gx#stx-null? _%tl132139132169%_)) + ((lambda (_%L132172%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -613,60 +613,60 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)) - (cons '() (cons _%L131898%_ '()))) + (cons '() (cons _%L132172%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd131864131892%_) - (_%g131857131871%_ _%g131858131875%_)))) - (_%g131857131871%_ _%g131858131875%_)))) - (_%g131857131871%_ _%g131858131875%_))))) - (_%g131856131912%_ _%$stx131853%_)))) + _%hd132138132166%_) + (_%g132131132145%_ _%g132132132149%_)))) + (_%g132131132145%_ _%g132132132149%_)))) + (_%g132131132145%_ _%g132132132149%_))))) + (_%g132130132186%_ _%$stx132127%_)))) (define |gxc[:0:]#go!| - (lambda (_%$stx131916%_) - (let* ((_%g131920131934%_ - (lambda (_%g131921131930%_) + (lambda (_%$stx132190%_) + (let* ((_%g132194132208%_ + (lambda (_%g132195132204%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g131921131930%_)))) - (_%g131919131975%_ - (lambda (_%g131921131938%_) + _%g132195132204%_)))) + (_%g132193132249%_ + (lambda (_%g132195132212%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g131921131938%_)) - (let ((_%e131923131941%_ + (gx#stx-pair? _%g132195132212%_)) + (let ((_%e132197132215%_ (let () (declare (not safe)) - (gx#syntax-e _%g131921131938%_)))) - (let ((_%hd131924131945%_ + (gx#syntax-e _%g132195132212%_)))) + (let ((_%hd132198132219%_ (let () (declare (not safe)) - (##car _%e131923131941%_))) - (_%tl131925131948%_ + (##car _%e132197132215%_))) + (_%tl132199132222%_ (let () (declare (not safe)) - (##cdr _%e131923131941%_)))) + (##cdr _%e132197132215%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl131925131948%_)) - (let ((_%e131926131951%_ + (gx#stx-pair? _%tl132199132222%_)) + (let ((_%e132200132225%_ (let () (declare (not safe)) - (gx#syntax-e _%tl131925131948%_)))) - (let ((_%hd131927131955%_ + (gx#syntax-e _%tl132199132222%_)))) + (let ((_%hd132201132229%_ (let () (declare (not safe)) - (##car _%e131926131951%_))) - (_%tl131928131958%_ + (##car _%e132200132225%_))) + (_%tl132202132232%_ (let () (declare (not safe)) - (##cdr _%e131926131951%_)))) + (##cdr _%e132200132225%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl131928131958%_)) - ((lambda (_%L131961%_) + (gx#stx-null? _%tl132202132232%_)) + ((lambda (_%L132235%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -680,11 +680,11 @@ 'lambda)) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L131961%_ '()))) + (cons _%L132235%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd131927131955%_) - (_%g131920131934%_ _%g131921131938%_)))) - (_%g131920131934%_ _%g131921131938%_)))) - (_%g131920131934%_ _%g131921131938%_))))) - (_%g131919131975%_ _%$stx131916%_)))))) + _%hd132201132229%_) + (_%g132194132208%_ _%g132195132212%_)))) + (_%g132194132208%_ _%g132195132212%_)))) + (_%g132194132208%_ _%g132195132212%_))))) + (_%g132193132249%_ _%$stx132190%_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile~0.scm b/src/bootstrap/gerbil/compiler/compile~0.scm index 6d94efce5..3cc24ec61 100644 --- a/src/bootstrap/gerbil/compiler/compile~0.scm +++ b/src/bootstrap/gerbil/compiler/compile~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/compile::timestamp 1713044317) + (define gerbil/compiler/compile::timestamp 1713454411) (begin (define gxc#gambit-annotations '(not gambit-scheme @@ -46,10 +46,10 @@ (define gxc#current-compile-boolean-context (make-parameter '#f)) (define gxc#make-bound-identifier-table (lambda () - (letrec ((_%hash-e146063%_ - (lambda (_%id146065%_) + (letrec ((_%hash-e146337%_ + (lambda (_%id146339%_) (symbol-hash - (let () (declare (not safe)) (gx#stx-e _%id146065%_)))))) + (let () (declare (not safe)) (gx#stx-e _%id146339%_)))))) (let () (declare (not safe)) (make-hash-table__% @@ -57,31 +57,31 @@ absent-value absent-value gx#bound-identifier=? - _%hash-e146063%_ + _%hash-e146337%_ absent-value absent-value absent-value absent-value))))) (define gxc#::collect-bindings::t - (let ((__tmp147450 (list gxc#::void::t)) - (__tmp147449 (cons (cons 'final: '#t) '()))) + (let ((__tmp147724 (list gxc#::void::t)) + (__tmp147723 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-bindings::t '::collect-bindings - __tmp147450 + __tmp147724 '() - __tmp147449 + __tmp147723 '#f))) (define gxc#::collect-bindings? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-bindings::t))) (define gxc#make-::collect-bindings - (lambda _%$args146059%_ - (apply make-instance gxc#::collect-bindings::t _%$args146059%_))) + (lambda _%$args146333%_ + (apply make-instance gxc#::collect-bindings::t _%$args146333%_))) (define gxc#::collect-bindings-bind-methods! - (let ((__tmp147451 + (let ((__tmp147725 (lambda () (force gxc#::void-bind-methods!) (let () @@ -118,44 +118,44 @@ (declare (not safe)) (__seal-class! gxc#::collect-bindings::t))))) (declare (not safe)) - (__make-promise __tmp147451))) + (__make-promise __tmp147725))) (define gxc#apply-collect-bindings - (lambda (_%stx146051%_) + (lambda (_%stx146325%_) (force gxc#::collect-bindings-bind-methods!) - (let* ((_%self146054%_ - (let ((__obj147425 + (let* ((_%self146328%_ + (let ((__obj147699 (let () (declare (not safe)) (##structure gxc#::collect-bindings::t)))) - __obj147425)) - (__tmp147452 + __obj147699)) + (__tmp147726 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self146054%_ _%stx146051%_))))) + (gxc#compile-e__1 _%self146328%_ _%stx146325%_))))) (declare (not safe)) (__call-with-parameters - __tmp147452 + __tmp147726 gxc#current-compile-method - _%self146054%_)))) + _%self146328%_)))) (define gxc#::lift-modules::t - (let ((__tmp147454 (list gxc#::void::t)) - (__tmp147453 (cons (cons 'final: '#t) '()))) + (let ((__tmp147728 (list gxc#::void::t)) + (__tmp147727 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::lift-modules::t '::lift-modules - __tmp147454 + __tmp147728 '(modules) - __tmp147453 + __tmp147727 '#f))) (define gxc#::lift-modules? (let () (declare (not safe)) (__make-class-predicate gxc#::lift-modules::t))) (define gxc#make-::lift-modules - (lambda _%$args146048%_ - (apply make-instance gxc#::lift-modules::t _%$args146048%_))) + (lambda _%$args146322%_ + (apply make-instance gxc#::lift-modules::t _%$args146322%_))) (define gxc#::lift-modules-modules (let () (declare (not safe)) @@ -173,7 +173,7 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#::lift-modules::t 'modules))) (define gxc#::lift-modules-bind-methods! - (let ((__tmp147455 + (let ((__tmp147729 (lambda () (force gxc#::void-bind-methods!) (let () @@ -192,76 +192,76 @@ (declare (not safe)) (__seal-class! gxc#::lift-modules::t))))) (declare (not safe)) - (__make-promise __tmp147455))) + (__make-promise __tmp147729))) (define gxc#apply-lift-modules__% - (lambda (_%@@keywords146022%_ _%modules146019146023%_ _%stx146025%_) - (let ((_%modules146028%_ - (if (eq? _%modules146019146023%_ absent-value) + (lambda (_%@@keywords146296%_ _%modules146293146297%_ _%stx146299%_) + (let ((_%modules146302%_ + (if (eq? _%modules146293146297%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'modules:)) - _%modules146019146023%_))) + _%modules146293146297%_))) (force gxc#::lift-modules-bind-methods!) - (let* ((_%self146030%_ - (let ((__obj147427 + (let* ((_%self146304%_ + (let ((__obj147701 (let () (declare (not safe)) (##structure gxc#::lift-modules::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147427 - _%modules146028%_ + __obj147701 + _%modules146302%_ '1 '#f '#f)) - __obj147427)) - (__tmp147456 + __obj147701)) + (__tmp147730 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self146030%_ _%stx146025%_))))) + (gxc#compile-e__1 _%self146304%_ _%stx146299%_))))) (declare (not safe)) (__call-with-parameters - __tmp147456 + __tmp147730 gxc#current-compile-method - _%self146030%_))))) + _%self146304%_))))) (define gxc#apply-lift-modules__@ - (lambda (_%@@keywords146037%_ . _%args146038%_) + (lambda (_%@@keywords146311%_ . _%args146312%_) (apply gxc#apply-lift-modules__% - _%@@keywords146037%_ + _%@@keywords146311%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords146037%_ + _%@@keywords146311%_ 'modules: absent-value)) - _%args146038%_))) + _%args146312%_))) (define gxc#apply-lift-modules - (lambda _%args146020146044%_ + (lambda _%args146294146318%_ (apply keyword-dispatch '#(modules:) gxc#apply-lift-modules__@ - _%args146020146044%_))) + _%args146294146318%_))) (define gxc#::find-runtime-code::t - (let ((__tmp147458 (list)) (__tmp147457 (cons (cons 'final: '#t) '()))) + (let ((__tmp147732 (list)) (__tmp147731 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::find-runtime-code::t '::find-runtime-code - __tmp147458 + __tmp147732 '() - __tmp147457 + __tmp147731 '#f))) (define gxc#::find-runtime-code? (let () (declare (not safe)) (__make-class-predicate gxc#::find-runtime-code::t))) (define gxc#make-::find-runtime-code - (lambda _%$args146015%_ - (apply make-instance gxc#::find-runtime-code::t _%$args146015%_))) + (lambda _%$args146289%_ + (apply make-instance gxc#::find-runtime-code::t _%$args146289%_))) (define gxc#::find-runtime-code-bind-methods! - (let ((__tmp147459 + (let ((__tmp147733 (lambda () (let () (declare (not safe)) @@ -459,46 +459,46 @@ (declare (not safe)) (__seal-class! gxc#::find-runtime-code::t))))) (declare (not safe)) - (__make-promise __tmp147459))) + (__make-promise __tmp147733))) (define gxc#apply-find-runtime-code - (lambda (_%stx146007%_) + (lambda (_%stx146281%_) (force gxc#::find-runtime-code-bind-methods!) - (let* ((_%self146010%_ - (let ((__obj147429 + (let* ((_%self146284%_ + (let ((__obj147703 (let () (declare (not safe)) (##structure gxc#::find-runtime-code::t)))) - __obj147429)) - (__tmp147460 + __obj147703)) + (__tmp147734 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self146010%_ _%stx146007%_))))) + (gxc#compile-e__1 _%self146284%_ _%stx146281%_))))) (declare (not safe)) (__call-with-parameters - __tmp147460 + __tmp147734 gxc#current-compile-method - _%self146010%_)))) + _%self146284%_)))) (define gxc#::find-lambda-expression::t - (let ((__tmp147462 (list gxc#::false::t)) - (__tmp147461 (cons (cons 'final: '#t) '()))) + (let ((__tmp147736 (list gxc#::false::t)) + (__tmp147735 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::find-lambda-expression::t '::find-lambda-expression - __tmp147462 + __tmp147736 '() - __tmp147461 + __tmp147735 '#f))) (define gxc#::find-lambda-expression? (let () (declare (not safe)) (__make-class-predicate gxc#::find-lambda-expression::t))) (define gxc#make-::find-lambda-expression - (lambda _%$args146004%_ - (apply make-instance gxc#::find-lambda-expression::t _%$args146004%_))) + (lambda _%$args146278%_ + (apply make-instance gxc#::find-lambda-expression::t _%$args146278%_))) (define gxc#::find-lambda-expression-bind-methods! - (let ((__tmp147463 + (let ((__tmp147737 (lambda () (force gxc#::false-bind-methods!) (let () @@ -547,46 +547,46 @@ (declare (not safe)) (__seal-class! gxc#::find-lambda-expression::t))))) (declare (not safe)) - (__make-promise __tmp147463))) + (__make-promise __tmp147737))) (define gxc#apply-find-lambda-expression - (lambda (_%stx145996%_) + (lambda (_%stx146270%_) (force gxc#::find-lambda-expression-bind-methods!) - (let* ((_%self145999%_ - (let ((__obj147431 + (let* ((_%self146273%_ + (let ((__obj147705 (let () (declare (not safe)) (##structure gxc#::find-lambda-expression::t)))) - __obj147431)) - (__tmp147464 + __obj147705)) + (__tmp147738 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self145999%_ _%stx145996%_))))) + (gxc#compile-e__1 _%self146273%_ _%stx146270%_))))) (declare (not safe)) (__call-with-parameters - __tmp147464 + __tmp147738 gxc#current-compile-method - _%self145999%_)))) + _%self146273%_)))) (define gxc#::count-values::t - (let ((__tmp147466 (list gxc#::false-expression::t)) - (__tmp147465 (cons (cons 'final: '#t) '()))) + (let ((__tmp147740 (list gxc#::false-expression::t)) + (__tmp147739 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::count-values::t '::count-values - __tmp147466 + __tmp147740 '() - __tmp147465 + __tmp147739 '#f))) (define gxc#::count-values? (let () (declare (not safe)) (__make-class-predicate gxc#::count-values::t))) (define gxc#make-::count-values - (lambda _%$args145993%_ - (apply make-instance gxc#::count-values::t _%$args145993%_))) + (lambda _%$args146267%_ + (apply make-instance gxc#::count-values::t _%$args146267%_))) (define gxc#::count-values-bind-methods! - (let ((__tmp147467 + (let ((__tmp147741 (lambda () (force gxc#::false-expression-bind-methods!) (let () @@ -659,33 +659,33 @@ (declare (not safe)) (__seal-class! gxc#::count-values::t))))) (declare (not safe)) - (__make-promise __tmp147467))) + (__make-promise __tmp147741))) (define gxc#apply-count-values - (lambda (_%stx145985%_) + (lambda (_%stx146259%_) (force gxc#::count-values-bind-methods!) - (let* ((_%self145988%_ - (let ((__obj147433 + (let* ((_%self146262%_ + (let ((__obj147707 (let () (declare (not safe)) (##structure gxc#::count-values::t)))) - __obj147433)) - (__tmp147468 + __obj147707)) + (__tmp147742 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self145988%_ _%stx145985%_))))) + (gxc#compile-e__1 _%self146262%_ _%stx146259%_))))) (declare (not safe)) (__call-with-parameters - __tmp147468 + __tmp147742 gxc#current-compile-method - _%self145988%_)))) + _%self146262%_)))) (define gxc#::generate-runtime-empty::t - (let ((__tmp147469 (list))) + (let ((__tmp147743 (list))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime-empty::t '::generate-runtime-empty - __tmp147469 + __tmp147743 '() '() '#f))) @@ -694,10 +694,10 @@ (declare (not safe)) (__make-class-predicate gxc#::generate-runtime-empty::t))) (define gxc#make-::generate-runtime-empty - (lambda _%$args145982%_ - (apply make-instance gxc#::generate-runtime-empty::t _%$args145982%_))) + (lambda _%$args146256%_ + (apply make-instance gxc#::generate-runtime-empty::t _%$args146256%_))) (define gxc#::generate-runtime-empty-bind-methods! - (let ((__tmp147470 + (let ((__tmp147744 (lambda () (let () (declare (not safe)) @@ -892,27 +892,27 @@ '%#struct-unchecked-set! gxc#generate-runtime-empty))))) (declare (not safe)) - (__make-promise __tmp147470))) + (__make-promise __tmp147744))) (define gxc#::generate-loader::t - (let ((__tmp147472 (list gxc#::generate-runtime-empty::t)) - (__tmp147471 (cons (cons 'final: '#t) '()))) + (let ((__tmp147746 (list gxc#::generate-runtime-empty::t)) + (__tmp147745 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-loader::t '::generate-loader - __tmp147472 + __tmp147746 '() - __tmp147471 + __tmp147745 '#f))) (define gxc#::generate-loader? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-loader::t))) (define gxc#make-::generate-loader - (lambda _%$args145978%_ - (apply make-instance gxc#::generate-loader::t _%$args145978%_))) + (lambda _%$args146252%_ + (apply make-instance gxc#::generate-loader::t _%$args146252%_))) (define gxc#::generate-loader-bind-methods! - (let ((__tmp147473 + (let ((__tmp147747 (lambda () (force gxc#::generate-runtime-empty-bind-methods!) (let () @@ -931,33 +931,33 @@ (declare (not safe)) (__seal-class! gxc#::generate-loader::t))))) (declare (not safe)) - (__make-promise __tmp147473))) + (__make-promise __tmp147747))) (define gxc#apply-generate-loader - (lambda (_%stx145970%_) + (lambda (_%stx146244%_) (force gxc#::generate-loader-bind-methods!) - (let* ((_%self145973%_ - (let ((__obj147436 + (let* ((_%self146247%_ + (let ((__obj147710 (let () (declare (not safe)) (##structure gxc#::generate-loader::t)))) - __obj147436)) - (__tmp147474 + __obj147710)) + (__tmp147748 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self145973%_ _%stx145970%_))))) + (gxc#compile-e__1 _%self146247%_ _%stx146244%_))))) (declare (not safe)) (__call-with-parameters - __tmp147474 + __tmp147748 gxc#current-compile-method - _%self145973%_)))) + _%self146247%_)))) (define gxc#::generate-runtime::t - (let ((__tmp147475 (list gxc#::generate-runtime-empty::t))) + (let ((__tmp147749 (list gxc#::generate-runtime-empty::t))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime::t '::generate-runtime - __tmp147475 + __tmp147749 '() '() '#f))) @@ -966,10 +966,10 @@ (declare (not safe)) (__make-class-predicate gxc#::generate-runtime::t))) (define gxc#make-::generate-runtime - (lambda _%$args145967%_ - (apply make-instance gxc#::generate-runtime::t _%$args145967%_))) + (lambda _%$args146241%_ + (apply make-instance gxc#::generate-runtime::t _%$args146241%_))) (define gxc#::generate-runtime-bind-methods! - (let ((__tmp147476 + (let ((__tmp147750 (lambda () (force gxc#::generate-runtime-empty-bind-methods!) (let () @@ -1123,46 +1123,46 @@ '%#struct-unchecked-set! gxc#generate-runtime-struct-unchecked-setq%))))) (declare (not safe)) - (__make-promise __tmp147476))) + (__make-promise __tmp147750))) (define gxc#apply-generate-runtime - (lambda (_%stx145959%_) + (lambda (_%stx146233%_) (force gxc#::generate-runtime-bind-methods!) - (let* ((_%self145962%_ - (let ((__obj147438 + (let* ((_%self146236%_ + (let ((__obj147712 (let () (declare (not safe)) (##structure gxc#::generate-runtime::t)))) - __obj147438)) - (__tmp147477 + __obj147712)) + (__tmp147751 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self145962%_ _%stx145959%_))))) + (gxc#compile-e__1 _%self146236%_ _%stx146233%_))))) (declare (not safe)) (__call-with-parameters - __tmp147477 + __tmp147751 gxc#current-compile-method - _%self145962%_)))) + _%self146236%_)))) (define gxc#::generate-runtime-phi::t - (let ((__tmp147479 (list gxc#::generate-runtime::t)) - (__tmp147478 (cons (cons 'final: '#t) '()))) + (let ((__tmp147753 (list gxc#::generate-runtime::t)) + (__tmp147752 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime-phi::t '::generate-runtime-phi - __tmp147479 + __tmp147753 '() - __tmp147478 + __tmp147752 '#f))) (define gxc#::generate-runtime-phi? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-runtime-phi::t))) (define gxc#make-::generate-runtime-phi - (lambda _%$args145956%_ - (apply make-instance gxc#::generate-runtime-phi::t _%$args145956%_))) + (lambda _%$args146230%_ + (apply make-instance gxc#::generate-runtime-phi::t _%$args146230%_))) (define gxc#::generate-runtime-phi-bind-methods! - (let ((__tmp147480 + (let ((__tmp147754 (lambda () (force gxc#::generate-runtime-bind-methods!) (let () @@ -1175,33 +1175,33 @@ (declare (not safe)) (__seal-class! gxc#::generate-runtime-phi::t))))) (declare (not safe)) - (__make-promise __tmp147480))) + (__make-promise __tmp147754))) (define gxc#apply-generate-runtime-phi - (lambda (_%stx145948%_) + (lambda (_%stx146222%_) (force gxc#::generate-runtime-phi-bind-methods!) - (let* ((_%self145951%_ - (let ((__obj147440 + (let* ((_%self146225%_ + (let ((__obj147714 (let () (declare (not safe)) (##structure gxc#::generate-runtime-phi::t)))) - __obj147440)) - (__tmp147481 + __obj147714)) + (__tmp147755 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self145951%_ _%stx145948%_))))) + (gxc#compile-e__1 _%self146225%_ _%stx146222%_))))) (declare (not safe)) (__call-with-parameters - __tmp147481 + __tmp147755 gxc#current-compile-method - _%self145951%_)))) + _%self146225%_)))) (define gxc#::collect-expression-refs::t - (let ((__tmp147482 (list))) + (let ((__tmp147756 (list))) (declare (not safe)) (__make-class-type 'gxc#::collect-expression-refs::t '::collect-expression-refs - __tmp147482 + __tmp147756 '(table) '() '#f))) @@ -1210,10 +1210,10 @@ (declare (not safe)) (__make-class-predicate gxc#::collect-expression-refs::t))) (define gxc#make-::collect-expression-refs - (lambda _%$args145945%_ + (lambda _%$args146219%_ (apply make-instance gxc#::collect-expression-refs::t - _%$args145945%_))) + _%$args146219%_))) (define gxc#::collect-expression-refs-table (let () (declare (not safe)) @@ -1235,7 +1235,7 @@ gxc#::collect-expression-refs::t 'table))) (define gxc#::collect-expression-refs-bind-methods! - (let ((__tmp147483 + (let ((__tmp147757 (lambda () (let () (declare (not safe)) @@ -1370,18 +1370,18 @@ '%#struct-unchecked-set! gxc#apply-operands))))) (declare (not safe)) - (__make-promise __tmp147483))) + (__make-promise __tmp147757))) (define gxc#apply-collect-expression-refs__% - (lambda (_%@@keywords145919%_ _%table145916145920%_ _%stx145922%_) - (let ((_%table145925%_ - (if (eq? _%table145916145920%_ absent-value) + (lambda (_%@@keywords146193%_ _%table146190146194%_ _%stx146196%_) + (let ((_%table146199%_ + (if (eq? _%table146190146194%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'table:)) - _%table145916145920%_))) + _%table146190146194%_))) (force gxc#::collect-expression-refs-bind-methods!) - (let* ((_%self145927%_ - (let ((__obj147442 + (let* ((_%self146201%_ + (let ((__obj147716 (let () (declare (not safe)) (##structure @@ -1390,57 +1390,57 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147442 - _%table145925%_ + __obj147716 + _%table146199%_ '1 '#f '#f)) - __obj147442)) - (__tmp147484 + __obj147716)) + (__tmp147758 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self145927%_ _%stx145922%_))))) + (gxc#compile-e__1 _%self146201%_ _%stx146196%_))))) (declare (not safe)) (__call-with-parameters - __tmp147484 + __tmp147758 gxc#current-compile-method - _%self145927%_))))) + _%self146201%_))))) (define gxc#apply-collect-expression-refs__@ - (lambda (_%@@keywords145934%_ . _%args145935%_) + (lambda (_%@@keywords146208%_ . _%args146209%_) (apply gxc#apply-collect-expression-refs__% - _%@@keywords145934%_ + _%@@keywords146208%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords145934%_ + _%@@keywords146208%_ 'table: absent-value)) - _%args145935%_))) + _%args146209%_))) (define gxc#apply-collect-expression-refs - (lambda _%args145917145941%_ + (lambda _%args146191146215%_ (apply keyword-dispatch '#(table:) gxc#apply-collect-expression-refs__@ - _%args145917145941%_))) + _%args146191146215%_))) (define gxc#::generate-meta::t - (let ((__tmp147486 (list gxc#::void-expression::t)) - (__tmp147485 (cons (cons 'final: '#t) '()))) + (let ((__tmp147760 (list gxc#::void-expression::t)) + (__tmp147759 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-meta::t '::generate-meta - __tmp147486 + __tmp147760 '(state) - __tmp147485 + __tmp147759 '#f))) (define gxc#::generate-meta? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-meta::t))) (define gxc#make-::generate-meta - (lambda _%$args145912%_ - (apply make-instance gxc#::generate-meta::t _%$args145912%_))) + (lambda _%$args146186%_ + (apply make-instance gxc#::generate-meta::t _%$args146186%_))) (define gxc#::generate-meta-state (let () (declare (not safe)) @@ -1458,7 +1458,7 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#::generate-meta::t 'state))) (define gxc#::generate-meta-bind-methods! - (let ((__tmp147487 + (let ((__tmp147761 (lambda () (force gxc#::void-expression-bind-methods!) (let () @@ -1537,74 +1537,74 @@ (declare (not safe)) (__seal-class! gxc#::generate-meta::t))))) (declare (not safe)) - (__make-promise __tmp147487))) + (__make-promise __tmp147761))) (define gxc#apply-generate-meta__% - (lambda (_%@@keywords145886%_ _%state145883145887%_ _%stx145889%_) - (let ((_%state145892%_ - (if (eq? _%state145883145887%_ absent-value) + (lambda (_%@@keywords146160%_ _%state146157146161%_ _%stx146163%_) + (let ((_%state146166%_ + (if (eq? _%state146157146161%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'state:)) - _%state145883145887%_))) + _%state146157146161%_))) (force gxc#::generate-meta-bind-methods!) - (let* ((_%self145894%_ - (let ((__obj147444 + (let* ((_%self146168%_ + (let ((__obj147718 (let () (declare (not safe)) (##structure gxc#::generate-meta::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147444 - _%state145892%_ + __obj147718 + _%state146166%_ '1 '#f '#f)) - __obj147444)) - (__tmp147488 + __obj147718)) + (__tmp147762 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self145894%_ _%stx145889%_))))) + (gxc#compile-e__1 _%self146168%_ _%stx146163%_))))) (declare (not safe)) (__call-with-parameters - __tmp147488 + __tmp147762 gxc#current-compile-method - _%self145894%_))))) + _%self146168%_))))) (define gxc#apply-generate-meta__@ - (lambda (_%@@keywords145901%_ . _%args145902%_) + (lambda (_%@@keywords146175%_ . _%args146176%_) (apply gxc#apply-generate-meta__% - _%@@keywords145901%_ + _%@@keywords146175%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords145901%_ + _%@@keywords146175%_ 'state: absent-value)) - _%args145902%_))) + _%args146176%_))) (define gxc#apply-generate-meta - (lambda _%args145884145908%_ + (lambda _%args146158146182%_ (apply keyword-dispatch '#(state:) gxc#apply-generate-meta__@ - _%args145884145908%_))) + _%args146158146182%_))) (define gxc#::generate-meta-phi::t - (let ((__tmp147490 (list)) (__tmp147489 (cons (cons 'final: '#t) '()))) + (let ((__tmp147764 (list)) (__tmp147763 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-meta-phi::t '::generate-meta-phi - __tmp147490 + __tmp147764 '(state) - __tmp147489 + __tmp147763 '#f))) (define gxc#::generate-meta-phi? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-meta-phi::t))) (define gxc#make-::generate-meta-phi - (lambda _%$args145879%_ - (apply make-instance gxc#::generate-meta-phi::t _%$args145879%_))) + (lambda _%$args146153%_ + (apply make-instance gxc#::generate-meta-phi::t _%$args146153%_))) (define gxc#::generate-meta-phi-state (let () (declare (not safe)) @@ -1626,7 +1626,7 @@ gxc#::generate-meta-phi::t 'state))) (define gxc#::generate-meta-phi-bind-methods! - (let ((__tmp147491 + (let ((__tmp147765 (lambda () (let () (declare (not safe)) @@ -1794,343 +1794,343 @@ (declare (not safe)) (__seal-class! gxc#::generate-meta-phi::t))))) (declare (not safe)) - (__make-promise __tmp147491))) + (__make-promise __tmp147765))) (define gxc#apply-generate-meta-phi__% - (lambda (_%@@keywords145853%_ _%state145850145854%_ _%stx145856%_) - (let ((_%state145859%_ - (if (eq? _%state145850145854%_ absent-value) + (lambda (_%@@keywords146127%_ _%state146124146128%_ _%stx146130%_) + (let ((_%state146133%_ + (if (eq? _%state146124146128%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'state:)) - _%state145850145854%_))) + _%state146124146128%_))) (force gxc#::generate-meta-phi-bind-methods!) - (let* ((_%self145861%_ - (let ((__obj147446 + (let* ((_%self146135%_ + (let ((__obj147720 (let () (declare (not safe)) (##structure gxc#::generate-meta-phi::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147446 - _%state145859%_ + __obj147720 + _%state146133%_ '1 '#f '#f)) - __obj147446)) - (__tmp147492 + __obj147720)) + (__tmp147766 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self145861%_ _%stx145856%_))))) + (gxc#compile-e__1 _%self146135%_ _%stx146130%_))))) (declare (not safe)) (__call-with-parameters - __tmp147492 + __tmp147766 gxc#current-compile-method - _%self145861%_))))) + _%self146135%_))))) (define gxc#apply-generate-meta-phi__@ - (lambda (_%@@keywords145868%_ . _%args145869%_) + (lambda (_%@@keywords146142%_ . _%args146143%_) (apply gxc#apply-generate-meta-phi__% - _%@@keywords145868%_ + _%@@keywords146142%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords145868%_ + _%@@keywords146142%_ 'state: absent-value)) - _%args145869%_))) + _%args146143%_))) (define gxc#apply-generate-meta-phi - (lambda _%args145851145875%_ + (lambda _%args146125146149%_ (apply keyword-dispatch '#(state:) gxc#apply-generate-meta-phi__@ - _%args145851145875%_))) + _%args146125146149%_))) (define gxc#collect-bindings-define-values% - (lambda (_%self145779%_ _%stx145780%_) - (let* ((_%g145782145799%_ - (lambda (_%g145783145796%_) + (lambda (_%self146053%_ _%stx146054%_) + (let* ((_%g146056146073%_ + (lambda (_%g146057146070%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g145783145796%_)))) - (_%g145781145846%_ - (lambda (_%g145783145802%_) + _%g146057146070%_)))) + (_%g146055146120%_ + (lambda (_%g146057146076%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g145783145802%_)) - (let ((_%e145786145804%_ + (gx#stx-pair? _%g146057146076%_)) + (let ((_%e146060146078%_ (let () (declare (not safe)) - (gx#stx-e _%g145783145802%_)))) - (let ((_%hd145787145807%_ + (gx#stx-e _%g146057146076%_)))) + (let ((_%hd146061146081%_ (let () (declare (not safe)) - (##car _%e145786145804%_))) - (_%tl145788145809%_ + (##car _%e146060146078%_))) + (_%tl146062146083%_ (let () (declare (not safe)) - (##cdr _%e145786145804%_)))) + (##cdr _%e146060146078%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145788145809%_)) - (let ((_%e145789145812%_ + (gx#stx-pair? _%tl146062146083%_)) + (let ((_%e146063146086%_ (let () (declare (not safe)) - (gx#stx-e _%tl145788145809%_)))) - (let ((_%hd145790145815%_ + (gx#stx-e _%tl146062146083%_)))) + (let ((_%hd146064146089%_ (let () (declare (not safe)) - (##car _%e145789145812%_))) - (_%tl145791145817%_ + (##car _%e146063146086%_))) + (_%tl146065146091%_ (let () (declare (not safe)) - (##cdr _%e145789145812%_)))) + (##cdr _%e146063146086%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145791145817%_)) - (let ((_%e145792145820%_ + (gx#stx-pair? _%tl146065146091%_)) + (let ((_%e146066146094%_ (let () (declare (not safe)) - (gx#stx-e _%tl145791145817%_)))) - (let ((_%hd145793145823%_ + (gx#stx-e _%tl146065146091%_)))) + (let ((_%hd146067146097%_ (let () (declare (not safe)) - (##car _%e145792145820%_))) - (_%tl145794145825%_ + (##car _%e146066146094%_))) + (_%tl146068146099%_ (let () (declare (not safe)) - (##cdr _%e145792145820%_)))) + (##cdr _%e146066146094%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145794145825%_)) - ((lambda (_%L145828%_ - _%L145829%_) - (let ((__tmp147493 - (lambda (_%bind145844%_) + _%tl146068146099%_)) + ((lambda (_%L146102%_ + _%L146103%_) + (let ((__tmp147767 + (lambda (_%bind146118%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#identifier? _%bind145844%_)) - (gxc#add-module-binding! _%bind145844%_ '#f) + (gx#identifier? _%bind146118%_)) + (gxc#add-module-binding! _%bind146118%_ '#f) '#!void)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#stx-for-each1 - __tmp147493 - _%L145829%_))) - _%hd145793145823%_ - _%hd145790145815%_) - (_%g145782145799%_ - _%g145783145802%_)))) - (_%g145782145799%_ _%g145783145802%_)))) - (_%g145782145799%_ _%g145783145802%_)))) - (_%g145782145799%_ _%g145783145802%_))))) - (_%g145781145846%_ _%stx145780%_)))) + __tmp147767 + _%L146103%_))) + _%hd146067146097%_ + _%hd146064146089%_) + (_%g146056146073%_ + _%g146057146076%_)))) + (_%g146056146073%_ _%g146057146076%_)))) + (_%g146056146073%_ _%g146057146076%_)))) + (_%g146056146073%_ _%g146057146076%_))))) + (_%g146055146120%_ _%stx146054%_)))) (define gxc#collect-bindings-define-syntax% - (lambda (_%self145711%_ _%stx145712%_) - (let* ((_%g145714145731%_ - (lambda (_%g145715145728%_) + (lambda (_%self145985%_ _%stx145986%_) + (let* ((_%g145988146005%_ + (lambda (_%g145989146002%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g145715145728%_)))) - (_%g145713145776%_ - (lambda (_%g145715145734%_) + _%g145989146002%_)))) + (_%g145987146050%_ + (lambda (_%g145989146008%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g145715145734%_)) - (let ((_%e145718145736%_ + (gx#stx-pair? _%g145989146008%_)) + (let ((_%e145992146010%_ (let () (declare (not safe)) - (gx#stx-e _%g145715145734%_)))) - (let ((_%hd145719145739%_ + (gx#stx-e _%g145989146008%_)))) + (let ((_%hd145993146013%_ (let () (declare (not safe)) - (##car _%e145718145736%_))) - (_%tl145720145741%_ + (##car _%e145992146010%_))) + (_%tl145994146015%_ (let () (declare (not safe)) - (##cdr _%e145718145736%_)))) + (##cdr _%e145992146010%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145720145741%_)) - (let ((_%e145721145744%_ + (gx#stx-pair? _%tl145994146015%_)) + (let ((_%e145995146018%_ (let () (declare (not safe)) - (gx#stx-e _%tl145720145741%_)))) - (let ((_%hd145722145747%_ + (gx#stx-e _%tl145994146015%_)))) + (let ((_%hd145996146021%_ (let () (declare (not safe)) - (##car _%e145721145744%_))) - (_%tl145723145749%_ + (##car _%e145995146018%_))) + (_%tl145997146023%_ (let () (declare (not safe)) - (##cdr _%e145721145744%_)))) + (##cdr _%e145995146018%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145723145749%_)) - (let ((_%e145724145752%_ + (gx#stx-pair? _%tl145997146023%_)) + (let ((_%e145998146026%_ (let () (declare (not safe)) - (gx#stx-e _%tl145723145749%_)))) - (let ((_%hd145725145755%_ + (gx#stx-e _%tl145997146023%_)))) + (let ((_%hd145999146029%_ (let () (declare (not safe)) - (##car _%e145724145752%_))) - (_%tl145726145757%_ + (##car _%e145998146026%_))) + (_%tl146000146031%_ (let () (declare (not safe)) - (##cdr _%e145724145752%_)))) + (##cdr _%e145998146026%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145726145757%_)) - ((lambda (_%L145760%_ - _%L145761%_) + _%tl146000146031%_)) + ((lambda (_%L146034%_ + _%L146035%_) (gxc#add-module-binding! - _%L145761%_ + _%L146035%_ '#t)) - _%hd145725145755%_ - _%hd145722145747%_) - (_%g145714145731%_ - _%g145715145734%_)))) - (_%g145714145731%_ _%g145715145734%_)))) - (_%g145714145731%_ _%g145715145734%_)))) - (_%g145714145731%_ _%g145715145734%_))))) - (_%g145713145776%_ _%stx145712%_)))) + _%hd145999146029%_ + _%hd145996146021%_) + (_%g145988146005%_ + _%g145989146008%_)))) + (_%g145988146005%_ _%g145989146008%_)))) + (_%g145988146005%_ _%g145989146008%_)))) + (_%g145988146005%_ _%g145989146008%_))))) + (_%g145987146050%_ _%stx145986%_)))) (define gxc#lift-modules-module% - (lambda (_%self145653%_ _%stx145654%_) - (let* ((_%g145656145670%_ - (lambda (_%g145657145667%_) + (lambda (_%self145927%_ _%stx145928%_) + (let* ((_%g145930145944%_ + (lambda (_%g145931145941%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g145657145667%_)))) - (_%g145655145708%_ - (lambda (_%g145657145673%_) + _%g145931145941%_)))) + (_%g145929145982%_ + (lambda (_%g145931145947%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g145657145673%_)) - (let ((_%e145660145675%_ + (gx#stx-pair? _%g145931145947%_)) + (let ((_%e145934145949%_ (let () (declare (not safe)) - (gx#stx-e _%g145657145673%_)))) - (let ((_%hd145661145678%_ + (gx#stx-e _%g145931145947%_)))) + (let ((_%hd145935145952%_ (let () (declare (not safe)) - (##car _%e145660145675%_))) - (_%tl145662145680%_ + (##car _%e145934145949%_))) + (_%tl145936145954%_ (let () (declare (not safe)) - (##cdr _%e145660145675%_)))) + (##cdr _%e145934145949%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145662145680%_)) - (let ((_%e145663145683%_ + (gx#stx-pair? _%tl145936145954%_)) + (let ((_%e145937145957%_ (let () (declare (not safe)) - (gx#stx-e _%tl145662145680%_)))) - (let ((_%hd145664145686%_ + (gx#stx-e _%tl145936145954%_)))) + (let ((_%hd145938145960%_ (let () (declare (not safe)) - (##car _%e145663145683%_))) - (_%tl145665145688%_ + (##car _%e145937145957%_))) + (_%tl145939145962%_ (let () (declare (not safe)) - (##cdr _%e145663145683%_)))) - ((lambda (_%L145691%_ _%L145692%_) - (let ((_%ctx145705%_ + (##cdr _%e145937145957%_)))) + ((lambda (_%L145965%_ _%L145966%_) + (let ((_%ctx145979%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L145692%_)))) + _%L145966%_)))) (set-box! (let () (declare (not safe)) (slot-ref__0 - _%self145653%_ + _%self145927%_ 'modules)) - (cons _%ctx145705%_ + (cons _%ctx145979%_ (unbox (let () (declare (not safe)) (slot-ref__0 - _%self145653%_ + _%self145927%_ 'modules))))) - (let ((__tmp147494 + (let ((__tmp147768 (lambda () - (let ((__tmp147495 + (let ((__tmp147769 (##structure-ref - _%ctx145705%_ + _%ctx145979%_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - _%self145653%_ - __tmp147495))))) + _%self145927%_ + __tmp147769))))) (declare (not safe)) (__call-with-parameters - __tmp147494 + __tmp147768 gx#current-expander-context - _%ctx145705%_)))) - _%tl145665145688%_ - _%hd145664145686%_))) - (_%g145656145670%_ _%g145657145673%_)))) - (_%g145656145670%_ _%g145657145673%_))))) - (_%g145655145708%_ _%stx145654%_)))) + _%ctx145979%_)))) + _%tl145939145962%_ + _%hd145938145960%_))) + (_%g145930145944%_ _%g145931145947%_)))) + (_%g145930145944%_ _%g145931145947%_))))) + (_%g145929145982%_ _%stx145928%_)))) (define gxc#current-compile-decls-unsafe? (lambda () - (let ((_%decls145606145608%_ + (let ((_%decls145880145882%_ (let () (declare (not safe)) (gxc#current-compile-decls)))) - (if _%decls145606145608%_ - (let ((_%decls145611%_ _%decls145606145608%_)) - (let _%lp145613%_ ((_%rest145615%_ _%decls145611%_)) - (let* ((_%rest145616145624%_ _%rest145615%_) - (_%else145618145632%_ (lambda () '#f)) - (_%K145620145641%_ - (lambda (_%decls145635%_ _%decl145636%_) - (if (equal? _%decl145636%_ '(not safe)) + (if _%decls145880145882%_ + (let ((_%decls145885%_ _%decls145880145882%_)) + (let _%lp145887%_ ((_%rest145889%_ _%decls145885%_)) + (let* ((_%rest145890145898%_ _%rest145889%_) + (_%else145892145906%_ (lambda () '#f)) + (_%K145894145915%_ + (lambda (_%decls145909%_ _%decl145910%_) + (if (equal? _%decl145910%_ '(not safe)) '#t - (if (equal? _%decl145636%_ '(safe)) + (if (equal? _%decl145910%_ '(safe)) '#f - (_%lp145613%_ _%decls145635%_)))))) + (_%lp145887%_ _%decls145909%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest145616145624%_)) - (let ((_%hd145621145644%_ + (##pair? _%rest145890145898%_)) + (let ((_%hd145895145918%_ (let () (declare (not safe)) - (##car _%rest145616145624%_))) - (_%tl145622145646%_ + (##car _%rest145890145898%_))) + (_%tl145896145920%_ (let () (declare (not safe)) - (##cdr _%rest145616145624%_)))) - (let* ((_%decl145649%_ _%hd145621145644%_) - (_%decls145651%_ _%tl145622145646%_)) - (_%K145620145641%_ - _%decls145651%_ - _%decl145649%_))) - (_%else145618145632%_))))) + (##cdr _%rest145890145898%_)))) + (let* ((_%decl145923%_ _%hd145895145918%_) + (_%decls145925%_ _%tl145896145920%_)) + (_%K145894145915%_ + _%decls145925%_ + _%decl145923%_))) + (_%else145892145906%_))))) '#f)))) (define gxc#add-module-binding! - (lambda (_%id145600%_ _%syntax?145601%_) - (let ((_%eid145603%_ + (lambda (_%id145874%_ _%syntax?145875%_) + (let ((_%eid145877%_ (##structure-ref (let () (declare (not safe)) - (gx#resolve-identifier__0 _%id145600%_)) + (gx#resolve-identifier__0 _%id145874%_)) '1 gx#binding::t '#f)) - (_%ht145604%_ + (_%ht145878%_ (##structure-ref (let () (declare (not safe)) @@ -2138,788 +2138,788 @@ '2 gxc#symbol-table::t '#f))) - (if (let () (declare (not safe)) (interned-symbol? _%eid145603%_)) + (if (let () (declare (not safe)) (interned-symbol? _%eid145877%_)) '#!void - (let ((__tmp147496 - (let ((__tmp147497 + (let ((__tmp147770 + (let ((__tmp147771 (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _%eid145603%_)))) + _%eid145877%_)))) (declare (not safe)) - (gx#make-binding-id__1 __tmp147497 _%syntax?145601%_)))) + (gx#make-binding-id__1 __tmp147771 _%syntax?145875%_)))) (declare (not safe)) - (hash-put! _%ht145604%_ _%eid145603%_ __tmp147496)))))) + (hash-put! _%ht145878%_ _%eid145877%_ __tmp147770)))))) (define gxc#generate-runtime-identifier - (lambda (_%id145598%_) + (lambda (_%id145872%_) (gxc#generate-runtime-identifier-key - (let () (declare (not safe)) (gx#core-identifier-key _%id145598%_))))) + (let () (declare (not safe)) (gx#core-identifier-key _%id145872%_))))) (define gxc#generate-runtime-identifier-key - (lambda (_%key145553%_) - (if (let () (declare (not safe)) (interned-symbol? _%key145553%_)) - _%key145553%_ - (if (uninterned-symbol? _%key145553%_) + (lambda (_%key145827%_) + (if (let () (declare (not safe)) (interned-symbol? _%key145827%_)) + _%key145827%_ + (if (uninterned-symbol? _%key145827%_) (let () (declare (not safe)) - (gxc#generate-runtime-gensym-reference__0 _%key145553%_)) - (let* ((_%key145557145564%_ _%key145553%_) - (_%E145559145568%_ + (gxc#generate-runtime-gensym-reference__0 _%key145827%_)) + (let* ((_%key145831145838%_ _%key145827%_) + (_%E145833145842%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%key145557145564%_ + _%key145831145838%_ '([eid . mark]))) '#!void)) - (_%K145560145586%_ - (lambda (_%mark145571%_ _%eid145572%_) - (let ((_%$e145574%_ + (_%K145834145860%_ + (lambda (_%mark145845%_ _%eid145846%_) + (let ((_%$e145848%_ (##structure-ref - _%mark145571%_ + _%mark145845%_ '1 gx#expander-mark::t '#f))) - (if _%$e145574%_ - ((lambda (_%ht145577%_) - (let ((_%$e145579%_ + (if _%$e145848%_ + ((lambda (_%ht145851%_) + (let ((_%$e145853%_ (let () (declare (not safe)) (hash-get - _%ht145577%_ - _%eid145572%_)))) - (if _%$e145579%_ - ((lambda (_%id145582%_) + _%ht145851%_ + _%eid145846%_)))) + (if _%$e145853%_ + ((lambda (_%id145856%_) (if (let () (declare (not safe)) (interned-symbol? - _%id145582%_)) - _%id145582%_ + _%id145856%_)) + _%id145856%_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _%id145582%_)))) - _%$e145579%_) + _%id145856%_)))) + _%$e145853%_) (gxc#generate-runtime-identifier-key - _%eid145572%_)))) - _%$e145574%_) + _%eid145846%_)))) + _%$e145848%_) (gxc#generate-runtime-identifier-key - _%eid145572%_)))))) + _%eid145846%_)))))) (if (let () (declare (not safe)) - (##pair? _%key145557145564%_)) - (let ((_%hd145561145589%_ + (##pair? _%key145831145838%_)) + (let ((_%hd145835145863%_ (let () (declare (not safe)) - (##car _%key145557145564%_))) - (_%tl145562145591%_ + (##car _%key145831145838%_))) + (_%tl145836145865%_ (let () (declare (not safe)) - (##cdr _%key145557145564%_)))) - (let* ((_%eid145594%_ _%hd145561145589%_) - (_%mark145596%_ _%tl145562145591%_)) - (_%K145560145586%_ _%mark145596%_ _%eid145594%_))) - (_%E145559145568%_))))))) + (##cdr _%key145831145838%_)))) + (let* ((_%eid145868%_ _%hd145835145863%_) + (_%mark145870%_ _%tl145836145865%_)) + (_%K145834145860%_ _%mark145870%_ _%eid145868%_))) + (_%E145833145842%_))))))) (define gxc#generate-runtime-empty - (lambda (_%self145550%_ _%stx145551%_) '(begin))) + (lambda (_%self145824%_ _%stx145825%_) '(begin))) (define gxc#generate-runtime-begin% - (lambda (_%self145397%_ _%stx145398%_) - (letrec ((_%simplify145400%_ - (lambda (_%body145448%_) - (let _%lp145450%_ ((_%rest145452%_ _%body145448%_) - (_%r145453%_ '())) - (let* ((_%rest145454145462%_ _%rest145452%_) - (_%else145456145470%_ - (lambda () (reverse _%r145453%_))) - (_%K145458145538%_ - (lambda (_%rest145473%_ _%hd145474%_) - (let* ((_%hd145475145491%_ _%hd145474%_) - (_%else145479145499%_ + (lambda (_%self145671%_ _%stx145672%_) + (letrec ((_%simplify145674%_ + (lambda (_%body145722%_) + (let _%lp145724%_ ((_%rest145726%_ _%body145722%_) + (_%r145727%_ '())) + (let* ((_%rest145728145736%_ _%rest145726%_) + (_%else145730145744%_ + (lambda () (reverse _%r145727%_))) + (_%K145732145812%_ + (lambda (_%rest145747%_ _%hd145748%_) + (let* ((_%hd145749145765%_ _%hd145748%_) + (_%else145753145773%_ (lambda () - (_%lp145450%_ - _%rest145473%_ - (cons _%hd145474%_ _%r145453%_))))) - (let ((_%K145487145528%_ - (lambda (_%exprs145526%_) - (_%lp145450%_ + (_%lp145724%_ + _%rest145747%_ + (cons _%hd145748%_ _%r145727%_))))) + (let ((_%K145761145802%_ + (lambda (_%exprs145800%_) + (_%lp145724%_ (let () (declare (not safe)) (__foldr1 cons - _%rest145473%_ - _%exprs145526%_)) - _%r145453%_))) - (_%K145482145512%_ + _%rest145747%_ + _%exprs145800%_)) + _%r145727%_))) + (_%K145756145786%_ (lambda () - (if (null? _%rest145473%_) - (_%lp145450%_ - _%rest145473%_ - (cons _%hd145474%_ - _%r145453%_)) - (_%lp145450%_ - _%rest145473%_ - _%r145453%_)))) - (_%K145481145504%_ + (if (null? _%rest145747%_) + (_%lp145724%_ + _%rest145747%_ + (cons _%hd145748%_ + _%r145727%_)) + (_%lp145724%_ + _%rest145747%_ + _%r145727%_)))) + (_%K145755145778%_ (lambda () - (if (null? _%rest145473%_) - (_%lp145450%_ - _%rest145473%_ - (cons _%hd145474%_ - _%r145453%_)) - (_%lp145450%_ - _%rest145473%_ - _%r145453%_))))) - (let ((_%try-match145478145507%_ + (if (null? _%rest145747%_) + (_%lp145724%_ + _%rest145747%_ + (cons _%hd145748%_ + _%r145727%_)) + (_%lp145724%_ + _%rest145747%_ + _%r145727%_))))) + (let ((_%try-match145752145781%_ (lambda () - (if (symbol? _%hd145475145491%_) - (_%K145481145504%_) - (_%else145479145499%_))))) + (if (symbol? _%hd145749145765%_) + (_%K145755145778%_) + (_%else145753145773%_))))) (if (let () (declare (not safe)) - (##pair? _%hd145475145491%_)) - (let ((_%tl145489145533%_ + (##pair? _%hd145749145765%_)) + (let ((_%tl145763145807%_ (let () (declare (not safe)) - (##cdr _%hd145475145491%_))) - (_%hd145488145531%_ + (##cdr _%hd145749145765%_))) + (_%hd145762145805%_ (let () (declare (not safe)) - (##car _%hd145475145491%_)))) + (##car _%hd145749145765%_)))) (if (let () (declare (not safe)) - (##eq? _%hd145488145531%_ + (##eq? _%hd145762145805%_ 'begin)) - (let ((_%exprs145536%_ - _%tl145489145533%_)) - (_%K145487145528%_ - _%exprs145536%_)) + (let ((_%exprs145810%_ + _%tl145763145807%_)) + (_%K145761145802%_ + _%exprs145810%_)) (if (let () (declare (not safe)) - (##eq? _%hd145488145531%_ + (##eq? _%hd145762145805%_ 'quote)) (if (let () (declare (not safe)) - (##pair? _%tl145489145533%_)) - (let ((_%tl145486145520%_ + (##pair? _%tl145763145807%_)) + (let ((_%tl145760145794%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%tl145489145533%_)))) + (##cdr _%tl145763145807%_)))) (if (let () (declare (not safe)) - (##null? _%tl145486145520%_)) - (_%K145482145512%_) - (_%try-match145478145507%_))) - (_%try-match145478145507%_)) + (##null? _%tl145760145794%_)) + (_%K145756145786%_) + (_%try-match145752145781%_))) + (_%try-match145752145781%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%try-match145478145507%_)))) - (_%try-match145478145507%_)))))))) + (_%try-match145752145781%_)))) + (_%try-match145752145781%_)))))))) (if (let () (declare (not safe)) - (##pair? _%rest145454145462%_)) - (let ((_%hd145459145541%_ + (##pair? _%rest145728145736%_)) + (let ((_%hd145733145815%_ (let () (declare (not safe)) - (##car _%rest145454145462%_))) - (_%tl145460145543%_ + (##car _%rest145728145736%_))) + (_%tl145734145817%_ (let () (declare (not safe)) - (##cdr _%rest145454145462%_)))) - (let* ((_%hd145546%_ _%hd145459145541%_) - (_%rest145548%_ _%tl145460145543%_)) - (_%K145458145538%_ - _%rest145548%_ - _%hd145546%_))) - (_%else145456145470%_))))))) - (let* ((_%g145402145412%_ - (lambda (_%g145403145409%_) + (##cdr _%rest145728145736%_)))) + (let* ((_%hd145820%_ _%hd145733145815%_) + (_%rest145822%_ _%tl145734145817%_)) + (_%K145732145812%_ + _%rest145822%_ + _%hd145820%_))) + (_%else145730145744%_))))))) + (let* ((_%g145676145686%_ + (lambda (_%g145677145683%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g145403145409%_)))) - (_%g145401145445%_ - (lambda (_%g145403145415%_) + _%g145677145683%_)))) + (_%g145675145719%_ + (lambda (_%g145677145689%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g145403145415%_)) - (let ((_%e145405145417%_ + (gx#stx-pair? _%g145677145689%_)) + (let ((_%e145679145691%_ (let () (declare (not safe)) - (gx#stx-e _%g145403145415%_)))) - (let ((_%hd145406145420%_ + (gx#stx-e _%g145677145689%_)))) + (let ((_%hd145680145694%_ (let () (declare (not safe)) - (##car _%e145405145417%_))) - (_%tl145407145422%_ + (##car _%e145679145691%_))) + (_%tl145681145696%_ (let () (declare (not safe)) - (##cdr _%e145405145417%_)))) - ((lambda (_%L145425%_) - (let* ((_%body145440%_ - (map (lambda (_%g145435145437%_) + (##cdr _%e145679145691%_)))) + ((lambda (_%L145699%_) + (let* ((_%body145714%_ + (map (lambda (_%g145709145711%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self145397%_ - _%g145435145437%_))) - _%L145425%_)) - (_%body145442%_ - (_%simplify145400%_ _%body145440%_))) - (if (let ((__tmp147498 - (length _%body145442%_))) + _%self145671%_ + _%g145709145711%_))) + _%L145699%_)) + (_%body145716%_ + (_%simplify145674%_ _%body145714%_))) + (if (let ((__tmp147772 + (length _%body145716%_))) (declare (not safe)) - (##fx= __tmp147498 '1)) - (car _%body145442%_) - (cons 'begin _%body145442%_)))) - _%tl145407145422%_))) - (_%g145402145412%_ _%g145403145415%_))))) - (_%g145401145445%_ _%stx145398%_))))) + (##fx= __tmp147772 '1)) + (car _%body145716%_) + (cons 'begin _%body145716%_)))) + _%tl145681145696%_))) + (_%g145676145686%_ _%g145677145689%_))))) + (_%g145675145719%_ _%stx145672%_))))) (define gxc#generate-runtime-begin-foreign% - (lambda (_%self145358%_ _%stx145359%_) - (let* ((_%g145361145371%_ - (lambda (_%g145362145368%_) + (lambda (_%self145632%_ _%stx145633%_) + (let* ((_%g145635145645%_ + (lambda (_%g145636145642%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g145362145368%_)))) - (_%g145360145394%_ - (lambda (_%g145362145374%_) + _%g145636145642%_)))) + (_%g145634145668%_ + (lambda (_%g145636145648%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g145362145374%_)) - (let ((_%e145364145376%_ + (gx#stx-pair? _%g145636145648%_)) + (let ((_%e145638145650%_ (let () (declare (not safe)) - (gx#stx-e _%g145362145374%_)))) - (let ((_%hd145365145379%_ + (gx#stx-e _%g145636145648%_)))) + (let ((_%hd145639145653%_ (let () (declare (not safe)) - (##car _%e145364145376%_))) - (_%tl145366145381%_ + (##car _%e145638145650%_))) + (_%tl145640145655%_ (let () (declare (not safe)) - (##cdr _%e145364145376%_)))) - ((lambda (_%L145384%_) + (##cdr _%e145638145650%_)))) + ((lambda (_%L145658%_) (cons 'begin (let () (declare (not safe)) - (gx#syntax->datum _%L145384%_)))) - _%tl145366145381%_))) - (_%g145361145371%_ _%g145362145374%_))))) - (_%g145360145394%_ _%stx145359%_)))) + (gx#syntax->datum _%L145658%_)))) + _%tl145640145655%_))) + (_%g145635145645%_ _%g145636145648%_))))) + (_%g145634145668%_ _%stx145633%_)))) (define gxc#generate-runtime-begin-annotation% - (lambda (_%self145122%_ _%stx145123%_) - (let* ((_%__stx146088146089%_ _%stx145123%_) - (_%g145127145179%_ + (lambda (_%self145396%_ _%stx145397%_) + (let* ((_%__stx146362146363%_ _%stx145397%_) + (_%g145401145453%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx146088146089%_))))) - (let ((_%__kont146090146091%_ - (lambda (_%L145340%_ _%L145341%_) + _%__stx146362146363%_))))) + (let ((_%__kont146364146365%_ + (lambda (_%L145614%_ _%L145615%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self145122%_ _%L145340%_)))) - (_%__kont146092146093%_ - (lambda (_%L145288%_ _%L145289%_ _%L145290%_) - (if (let ((__tmp147499 + (gxc#compile-e__1 _%self145396%_ _%L145614%_)))) + (_%__kont146366146367%_ + (lambda (_%L145562%_ _%L145563%_ _%L145564%_) + (if (let ((__tmp147773 (let () (declare (not safe)) - (gx#stx-e _%L145290%_)))) + (gx#stx-e _%L145564%_)))) (declare (not safe)) - (##memq __tmp147499 '(@inline))) + (##memq __tmp147773 '(@inline))) '(begin) (let () (declare (not safe)) - (gxc#compile-e__1 _%self145122%_ _%L145288%_))))) - (_%__kont146096146097%_ - (lambda (_%L145208%_ _%L145209%_) - (let ((_%decls145224%_ (map gx#syntax->datum _%L145209%_))) - (let ((__tmp147502 + (gxc#compile-e__1 _%self145396%_ _%L145562%_))))) + (_%__kont146370146371%_ + (lambda (_%L145482%_ _%L145483%_) + (let ((_%decls145498%_ (map gx#syntax->datum _%L145483%_))) + (let ((__tmp147776 (lambda () (cons 'begin - (cons (cons 'declare _%decls145224%_) + (cons (cons 'declare _%decls145498%_) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self145122%_ - _%L145208%_)) + _%self145396%_ + _%L145482%_)) '()))))) - (__tmp147500 - (let ((__tmp147501 + (__tmp147774 + (let ((__tmp147775 (let () (declare (not safe)) (gxc#current-compile-decls)))) (declare (not safe)) - (__foldr1 cons __tmp147501 _%decls145224%_)))) + (__foldr1 cons __tmp147775 _%decls145498%_)))) (declare (not safe)) (__call-with-parameters - __tmp147502 + __tmp147776 gxc#current-compile-decls - __tmp147500)))))) - (let* ((_%__match146143146144%_ - (lambda (_%e145143145232%_ - _%hd145144145235%_ - _%tl145145145237%_ - _%e145146145240%_ - _%hd145147145243%_ - _%tl145148145245%_ - _%e145149145248%_ - _%hd145150145251%_ - _%tl145151145253%_ - _%__splice146094146095%_ - _%target145152145256%_ - _%tl145154145258%_) - (letrec ((_%loop145155145261%_ - (lambda (_%hd145153145264%_ - _%param145159145266%_) + __tmp147774)))))) + (let* ((_%__match146417146418%_ + (lambda (_%e145417145506%_ + _%hd145418145509%_ + _%tl145419145511%_ + _%e145420145514%_ + _%hd145421145517%_ + _%tl145422145519%_ + _%e145423145522%_ + _%hd145424145525%_ + _%tl145425145527%_ + _%__splice146368146369%_ + _%target145426145530%_ + _%tl145428145532%_) + (letrec ((_%loop145429145535%_ + (lambda (_%hd145427145538%_ + _%param145433145540%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145153145264%_)) - (let ((_%e145156145269%_ + (gx#stx-pair? _%hd145427145538%_)) + (let ((_%e145430145543%_ (let () (declare (not safe)) - (gx#stx-e _%hd145153145264%_)))) - (let ((_%lp-tl145158145274%_ + (gx#stx-e _%hd145427145538%_)))) + (let ((_%lp-tl145432145548%_ (let () (declare (not safe)) - (##cdr _%e145156145269%_))) - (_%lp-hd145157145272%_ + (##cdr _%e145430145543%_))) + (_%lp-hd145431145546%_ (let () (declare (not safe)) - (##car _%e145156145269%_)))) - (_%loop145155145261%_ - _%lp-tl145158145274%_ - (cons _%lp-hd145157145272%_ - _%param145159145266%_)))) - (let ((_%param145160145277%_ - (reverse _%param145159145266%_))) + (##car _%e145430145543%_)))) + (_%loop145429145535%_ + _%lp-tl145432145548%_ + (cons _%lp-hd145431145546%_ + _%param145433145540%_)))) + (let ((_%param145434145551%_ + (reverse _%param145433145540%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145148145245%_)) - (let ((_%e145161145280%_ + _%tl145422145519%_)) + (let ((_%e145435145554%_ (let () (declare (not safe)) (gx#stx-e - _%tl145148145245%_)))) - (let ((_%tl145163145285%_ + _%tl145422145519%_)))) + (let ((_%tl145437145559%_ (let () (declare (not safe)) - (##cdr _%e145161145280%_))) - (_%hd145162145283%_ + (##cdr _%e145435145554%_))) + (_%hd145436145557%_ (let () (declare (not safe)) - (##car _%e145161145280%_)))) + (##car _%e145435145554%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145163145285%_)) - (let ((_%L145288%_ - _%hd145162145283%_) - (_%L145289%_ - _%param145160145277%_) - (_%L145290%_ - _%hd145150145251%_)) + _%tl145437145559%_)) + (let ((_%L145562%_ + _%hd145436145557%_) + (_%L145563%_ + _%param145434145551%_) + (_%L145564%_ + _%hd145424145525%_)) (if (and (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _%L145290%_)) - (not (let ((__tmp147503 + (gx#identifier? _%L145564%_)) + (not (let ((__tmp147777 (let () (declare (not safe)) - (gx#stx-e _%L145290%_)))) + (gx#stx-e _%L145564%_)))) (declare (not safe)) - (##memq __tmp147503 gxc#gambit-annotations)))) - (_%__kont146092146093%_ _%L145288%_ _%L145289%_ _%L145290%_) - (_%__kont146096146097%_ - _%hd145162145283%_ - _%hd145147145243%_))) + (##memq __tmp147777 gxc#gambit-annotations)))) + (_%__kont146366146367%_ _%L145562%_ _%L145563%_ _%L145564%_) + (_%__kont146370146371%_ + _%hd145436145557%_ + _%hd145421145517%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g145127145179%_))))) + (_%g145401145453%_))))) (let () (declare (not safe)) - (_%g145127145179%_)))))))) - (_%loop145155145261%_ _%target145152145256%_ '())))) - (_%__match146117146118%_ - (lambda (_%e145131145316%_ - _%hd145132145319%_ - _%tl145133145321%_ - _%e145134145324%_ - _%hd145135145327%_ - _%tl145136145329%_ - _%e145137145332%_ - _%hd145138145335%_ - _%tl145139145337%_) - (let ((_%L145340%_ _%hd145138145335%_) - (_%L145341%_ _%hd145135145327%_)) + (_%g145401145453%_)))))))) + (_%loop145429145535%_ _%target145426145530%_ '())))) + (_%__match146391146392%_ + (lambda (_%e145405145590%_ + _%hd145406145593%_ + _%tl145407145595%_ + _%e145408145598%_ + _%hd145409145601%_ + _%tl145410145603%_ + _%e145411145606%_ + _%hd145412145609%_ + _%tl145413145611%_) + (let ((_%L145614%_ _%hd145412145609%_) + (_%L145615%_ _%hd145409145601%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L145341%_)) - (_%__kont146090146091%_ _%L145340%_ _%L145341%_) + (gx#identifier? _%L145615%_)) + (_%__kont146364146365%_ _%L145614%_ _%L145615%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145135145327%_)) - (let ((_%e145149145248%_ + (gx#stx-pair? _%hd145409145601%_)) + (let ((_%e145423145522%_ (let () (declare (not safe)) - (gx#stx-e _%hd145135145327%_)))) - (let ((_%tl145151145253%_ + (gx#stx-e _%hd145409145601%_)))) + (let ((_%tl145425145527%_ (let () (declare (not safe)) - (##cdr _%e145149145248%_))) - (_%hd145150145251%_ + (##cdr _%e145423145522%_))) + (_%hd145424145525%_ (let () (declare (not safe)) - (##car _%e145149145248%_)))) + (##car _%e145423145522%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl145151145253%_)) - (let ((_%__splice146094146095%_ + _%tl145425145527%_)) + (let ((_%__splice146368146369%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl145151145253%_ + _%tl145425145527%_ '0)))) - (let ((_%tl145154145258%_ + (let ((_%tl145428145532%_ (let () (declare (not safe)) (##vector-ref - _%__splice146094146095%_ + _%__splice146368146369%_ '1))) - (_%target145152145256%_ + (_%target145426145530%_ (let () (declare (not safe)) (##vector-ref - _%__splice146094146095%_ + _%__splice146368146369%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145154145258%_)) - (_%__match146143146144%_ - _%e145131145316%_ - _%hd145132145319%_ - _%tl145133145321%_ - _%e145134145324%_ - _%hd145135145327%_ - _%tl145136145329%_ - _%e145149145248%_ - _%hd145150145251%_ - _%tl145151145253%_ - _%__splice146094146095%_ - _%target145152145256%_ - _%tl145154145258%_) - (_%__kont146096146097%_ - _%hd145138145335%_ - _%hd145135145327%_)))) - (_%__kont146096146097%_ - _%hd145138145335%_ - _%hd145135145327%_)))) - (_%__kont146096146097%_ - _%hd145138145335%_ - _%hd145135145327%_))))))) + _%tl145428145532%_)) + (_%__match146417146418%_ + _%e145405145590%_ + _%hd145406145593%_ + _%tl145407145595%_ + _%e145408145598%_ + _%hd145409145601%_ + _%tl145410145603%_ + _%e145423145522%_ + _%hd145424145525%_ + _%tl145425145527%_ + _%__splice146368146369%_ + _%target145426145530%_ + _%tl145428145532%_) + (_%__kont146370146371%_ + _%hd145412145609%_ + _%hd145409145601%_)))) + (_%__kont146370146371%_ + _%hd145412145609%_ + _%hd145409145601%_)))) + (_%__kont146370146371%_ + _%hd145412145609%_ + _%hd145409145601%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx146088146089%_)) - (let ((_%e145131145316%_ + (gx#stx-pair? _%__stx146362146363%_)) + (let ((_%e145405145590%_ (let () (declare (not safe)) - (gx#stx-e _%__stx146088146089%_)))) - (let ((_%tl145133145321%_ + (gx#stx-e _%__stx146362146363%_)))) + (let ((_%tl145407145595%_ (let () (declare (not safe)) - (##cdr _%e145131145316%_))) - (_%hd145132145319%_ + (##cdr _%e145405145590%_))) + (_%hd145406145593%_ (let () (declare (not safe)) - (##car _%e145131145316%_)))) + (##car _%e145405145590%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145133145321%_)) - (let ((_%e145134145324%_ + (gx#stx-pair? _%tl145407145595%_)) + (let ((_%e145408145598%_ (let () (declare (not safe)) - (gx#stx-e _%tl145133145321%_)))) - (let ((_%tl145136145329%_ + (gx#stx-e _%tl145407145595%_)))) + (let ((_%tl145410145603%_ (let () (declare (not safe)) - (##cdr _%e145134145324%_))) - (_%hd145135145327%_ + (##cdr _%e145408145598%_))) + (_%hd145409145601%_ (let () (declare (not safe)) - (##car _%e145134145324%_)))) + (##car _%e145408145598%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145136145329%_)) - (let ((_%e145137145332%_ + (gx#stx-pair? _%tl145410145603%_)) + (let ((_%e145411145606%_ (let () (declare (not safe)) - (gx#stx-e _%tl145136145329%_)))) - (let ((_%tl145139145337%_ + (gx#stx-e _%tl145410145603%_)))) + (let ((_%tl145413145611%_ (let () (declare (not safe)) - (##cdr _%e145137145332%_))) - (_%hd145138145335%_ + (##cdr _%e145411145606%_))) + (_%hd145412145609%_ (let () (declare (not safe)) - (##car _%e145137145332%_)))) + (##car _%e145411145606%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145139145337%_)) - (_%__match146117146118%_ - _%e145131145316%_ - _%hd145132145319%_ - _%tl145133145321%_ - _%e145134145324%_ - _%hd145135145327%_ - _%tl145136145329%_ - _%e145137145332%_ - _%hd145138145335%_ - _%tl145139145337%_) + (gx#stx-null? _%tl145413145611%_)) + (_%__match146391146392%_ + _%e145405145590%_ + _%hd145406145593%_ + _%tl145407145595%_ + _%e145408145598%_ + _%hd145409145601%_ + _%tl145410145603%_ + _%e145411145606%_ + _%hd145412145609%_ + _%tl145413145611%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145135145327%_)) - (let ((_%e145149145248%_ + _%hd145409145601%_)) + (let ((_%e145423145522%_ (let () (declare (not safe)) (gx#stx-e - _%hd145135145327%_)))) - (let ((_%tl145151145253%_ + _%hd145409145601%_)))) + (let ((_%tl145425145527%_ (let () (declare (not safe)) - (##cdr _%e145149145248%_))) - (_%hd145150145251%_ + (##cdr _%e145423145522%_))) + (_%hd145424145525%_ (let () (declare (not safe)) - (##car _%e145149145248%_)))) + (##car _%e145423145522%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl145151145253%_)) - (let ((_%__splice146094146095%_ + _%tl145425145527%_)) + (let ((_%__splice146368146369%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl145151145253%_ '0)))) - (let ((_%tl145154145258%_ + (gx#syntax-split-splice _%tl145425145527%_ '0)))) + (let ((_%tl145428145532%_ (let () (declare (not safe)) - (##vector-ref _%__splice146094146095%_ '1))) - (_%target145152145256%_ + (##vector-ref _%__splice146368146369%_ '1))) + (_%target145426145530%_ (let () (declare (not safe)) - (##vector-ref _%__splice146094146095%_ '0)))) + (##vector-ref _%__splice146368146369%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145154145258%_)) - (_%__match146143146144%_ - _%e145131145316%_ - _%hd145132145319%_ - _%tl145133145321%_ - _%e145134145324%_ - _%hd145135145327%_ - _%tl145136145329%_ - _%e145149145248%_ - _%hd145150145251%_ - _%tl145151145253%_ - _%__splice146094146095%_ - _%target145152145256%_ - _%tl145154145258%_) - (let () (declare (not safe)) (_%g145127145179%_))))) - (let () (declare (not safe)) (_%g145127145179%_))))) + (gx#stx-null? _%tl145428145532%_)) + (_%__match146417146418%_ + _%e145405145590%_ + _%hd145406145593%_ + _%tl145407145595%_ + _%e145408145598%_ + _%hd145409145601%_ + _%tl145410145603%_ + _%e145423145522%_ + _%hd145424145525%_ + _%tl145425145527%_ + _%__splice146368146369%_ + _%target145426145530%_ + _%tl145428145532%_) + (let () (declare (not safe)) (_%g145401145453%_))))) + (let () (declare (not safe)) (_%g145401145453%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g145127145179%_)))))) + (_%g145401145453%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145135145327%_)) - (let ((_%e145149145248%_ + (gx#stx-pair? _%hd145409145601%_)) + (let ((_%e145423145522%_ (let () (declare (not safe)) - (gx#stx-e _%hd145135145327%_)))) - (let ((_%tl145151145253%_ + (gx#stx-e _%hd145409145601%_)))) + (let ((_%tl145425145527%_ (let () (declare (not safe)) - (##cdr _%e145149145248%_))) - (_%hd145150145251%_ + (##cdr _%e145423145522%_))) + (_%hd145424145525%_ (let () (declare (not safe)) - (##car _%e145149145248%_)))) + (##car _%e145423145522%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl145151145253%_)) - (let ((_%__splice146094146095%_ + _%tl145425145527%_)) + (let ((_%__splice146368146369%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl145151145253%_ + _%tl145425145527%_ '0)))) - (let ((_%tl145154145258%_ + (let ((_%tl145428145532%_ (let () (declare (not safe)) (##vector-ref - _%__splice146094146095%_ + _%__splice146368146369%_ '1))) - (_%target145152145256%_ + (_%target145426145530%_ (let () (declare (not safe)) (##vector-ref - _%__splice146094146095%_ + _%__splice146368146369%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145154145258%_)) - (_%__match146143146144%_ - _%e145131145316%_ - _%hd145132145319%_ - _%tl145133145321%_ - _%e145134145324%_ - _%hd145135145327%_ - _%tl145136145329%_ - _%e145149145248%_ - _%hd145150145251%_ - _%tl145151145253%_ - _%__splice146094146095%_ - _%target145152145256%_ - _%tl145154145258%_) + _%tl145428145532%_)) + (_%__match146417146418%_ + _%e145405145590%_ + _%hd145406145593%_ + _%tl145407145595%_ + _%e145408145598%_ + _%hd145409145601%_ + _%tl145410145603%_ + _%e145423145522%_ + _%hd145424145525%_ + _%tl145425145527%_ + _%__splice146368146369%_ + _%target145426145530%_ + _%tl145428145532%_) (let () (declare (not safe)) - (_%g145127145179%_))))) + (_%g145401145453%_))))) (let () (declare (not safe)) - (_%g145127145179%_))))) + (_%g145401145453%_))))) (let () (declare (not safe)) - (_%g145127145179%_)))))) - (let () (declare (not safe)) (_%g145127145179%_))))) - (let () (declare (not safe)) (_%g145127145179%_)))))))) + (_%g145401145453%_)))))) + (let () (declare (not safe)) (_%g145401145453%_))))) + (let () (declare (not safe)) (_%g145401145453%_)))))))) (define gxc#generate-runtime-declare% - (lambda (_%self145081%_ _%stx145082%_) - (let* ((_%g145084145094%_ - (lambda (_%g145085145091%_) + (lambda (_%self145355%_ _%stx145356%_) + (let* ((_%g145358145368%_ + (lambda (_%g145359145365%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g145085145091%_)))) - (_%g145083145119%_ - (lambda (_%g145085145097%_) + _%g145359145365%_)))) + (_%g145357145393%_ + (lambda (_%g145359145371%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g145085145097%_)) - (let ((_%e145087145099%_ + (gx#stx-pair? _%g145359145371%_)) + (let ((_%e145361145373%_ (let () (declare (not safe)) - (gx#stx-e _%g145085145097%_)))) - (let ((_%hd145088145102%_ + (gx#stx-e _%g145359145371%_)))) + (let ((_%hd145362145376%_ (let () (declare (not safe)) - (##car _%e145087145099%_))) - (_%tl145089145104%_ + (##car _%e145361145373%_))) + (_%tl145363145378%_ (let () (declare (not safe)) - (##cdr _%e145087145099%_)))) - ((lambda (_%L145107%_) - (let ((_%decls145117%_ - (map gx#syntax->datum _%L145107%_))) - (let ((__tmp147504 - (let ((__tmp147505 + (##cdr _%e145361145373%_)))) + ((lambda (_%L145381%_) + (let ((_%decls145391%_ + (map gx#syntax->datum _%L145381%_))) + (let ((__tmp147778 + (let ((__tmp147779 (let () (declare (not safe)) (gxc#current-compile-decls)))) (declare (not safe)) (__foldr1 cons - __tmp147505 - _%decls145117%_)))) + __tmp147779 + _%decls145391%_)))) (declare (not safe)) - (gxc#current-compile-decls __tmp147504)) - (cons 'declare _%decls145117%_))) - _%tl145089145104%_))) - (_%g145084145094%_ _%g145085145097%_))))) - (_%g145083145119%_ _%stx145082%_)))) + (gxc#current-compile-decls __tmp147778)) + (cons 'declare _%decls145391%_))) + _%tl145363145378%_))) + (_%g145358145368%_ _%g145359145371%_))))) + (_%g145357145393%_ _%stx145356%_)))) (define gxc#generate-runtime-define-values% - (lambda (_%self144827%_ _%stx144828%_) - (let* ((_%g144830144847%_ - (lambda (_%g144831144844%_) + (lambda (_%self145101%_ _%stx145102%_) + (let* ((_%g145104145121%_ + (lambda (_%g145105145118%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g144831144844%_)))) - (_%g144829145078%_ - (lambda (_%g144831144850%_) + _%g145105145118%_)))) + (_%g145103145352%_ + (lambda (_%g145105145124%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g144831144850%_)) - (let ((_%e144834144852%_ + (gx#stx-pair? _%g145105145124%_)) + (let ((_%e145108145126%_ (let () (declare (not safe)) - (gx#stx-e _%g144831144850%_)))) - (let ((_%hd144835144855%_ + (gx#stx-e _%g145105145124%_)))) + (let ((_%hd145109145129%_ (let () (declare (not safe)) - (##car _%e144834144852%_))) - (_%tl144836144857%_ + (##car _%e145108145126%_))) + (_%tl145110145131%_ (let () (declare (not safe)) - (##cdr _%e144834144852%_)))) + (##cdr _%e145108145126%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144836144857%_)) - (let ((_%e144837144860%_ + (gx#stx-pair? _%tl145110145131%_)) + (let ((_%e145111145134%_ (let () (declare (not safe)) - (gx#stx-e _%tl144836144857%_)))) - (let ((_%hd144838144863%_ + (gx#stx-e _%tl145110145131%_)))) + (let ((_%hd145112145137%_ (let () (declare (not safe)) - (##car _%e144837144860%_))) - (_%tl144839144865%_ + (##car _%e145111145134%_))) + (_%tl145113145139%_ (let () (declare (not safe)) - (##cdr _%e144837144860%_)))) + (##cdr _%e145111145134%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144839144865%_)) - (let ((_%e144840144868%_ + (gx#stx-pair? _%tl145113145139%_)) + (let ((_%e145114145142%_ (let () (declare (not safe)) - (gx#stx-e _%tl144839144865%_)))) - (let ((_%hd144841144871%_ + (gx#stx-e _%tl145113145139%_)))) + (let ((_%hd145115145145%_ (let () (declare (not safe)) - (##car _%e144840144868%_))) - (_%tl144842144873%_ + (##car _%e145114145142%_))) + (_%tl145116145147%_ (let () (declare (not safe)) - (##cdr _%e144840144868%_)))) + (##cdr _%e145114145142%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144842144873%_)) - ((lambda (_%L144876%_ - _%L144877%_) - (let* ((_%__stx146196146197%_ - _%L144877%_) - (_%g144894144908%_ + _%tl145116145147%_)) + ((lambda (_%L145150%_ + _%L145151%_) + (let* ((_%__stx146470146471%_ + _%L145151%_) + (_%g145168145182%_ (lambda () (let () (declare @@ -2927,304 +2927,304 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx146196146197%_))))) - (let ((_%__kont146198146199%_ + _%__stx146470146471%_))))) + (let ((_%__kont146472146473%_ (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self144827%_ - _%L144876%_)))) - (_%__kont146200146201%_ - (lambda (_%L145040%_) - (let ((_%eid145049%_ + _%self145101%_ + _%L145150%_)))) + (_%__kont146474146475%_ + (lambda (_%L145314%_) + (let ((_%eid145323%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _%L145040%_)))) - (let ((_%lambda-expr145050145052%_ - (gxc#apply-find-lambda-expression _%L144876%_))) - (if _%lambda-expr145050145052%_ - (let* ((_%lambda-expr145055%_ - _%lambda-expr145050145052%_) - (__tmp147506 + (gxc#generate-runtime-binding-id _%L145314%_)))) + (let ((_%lambda-expr145324145326%_ + (gxc#apply-find-lambda-expression _%L145150%_))) + (if _%lambda-expr145324145326%_ + (let* ((_%lambda-expr145329%_ + _%lambda-expr145324145326%_) + (__tmp147780 (let () (declare (not safe)) (gxc#current-compile-runtime-names)))) (declare (not safe)) (hash-put! - __tmp147506 - _%lambda-expr145055%_ - _%eid145049%_)) + __tmp147780 + _%lambda-expr145329%_ + _%eid145323%_)) '#f)) (cons 'define - (cons _%eid145049%_ + (cons _%eid145323%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self144827%_ - _%L144876%_)) + _%self145101%_ + _%L145150%_)) '())))))) - (_%__kont146202146203%_ + (_%__kont146476146477%_ (lambda () - (let* ((_%tmp144915%_ + (let* ((_%tmp145189%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%body145024%_ - (let _%lp144917%_ ((_%rest144919%_ _%L144877%_) - (_%k144920%_ '0) - (_%r144921%_ '())) - (let* ((_%__stx146166146167%_ _%rest144919%_) - (_%g144926144943%_ + (_%body145298%_ + (let _%lp145191%_ ((_%rest145193%_ _%L145151%_) + (_%k145194%_ '0) + (_%r145195%_ '())) + (let* ((_%__stx146440146441%_ _%rest145193%_) + (_%g145200145217%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx146166146167%_))))) - (let ((_%__kont146168146169%_ - (lambda (_%L145011%_) - (_%lp144917%_ - _%L145011%_ + _%__stx146440146441%_))))) + (let ((_%__kont146442146443%_ + (lambda (_%L145285%_) + (_%lp145191%_ + _%L145285%_ (let () (declare (not safe)) - (##fx+ _%k144920%_ '1)) - _%r144921%_))) - (_%__kont146170146171%_ - (lambda (_%L144984%_ _%L144985%_) - (_%lp144917%_ - _%L144984%_ + (##fx+ _%k145194%_ '1)) + _%r145195%_))) + (_%__kont146444146445%_ + (lambda (_%L145258%_ _%L145259%_) + (_%lp145191%_ + _%L145258%_ (let () (declare (not safe)) - (##fx+ _%k144920%_ '1)) + (##fx+ _%k145194%_ '1)) (cons (cons 'define (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L144985%_)) + _%L145259%_)) (cons (gxc#generate-runtime-values-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tmp144915%_ - _%k144920%_ - _%L144984%_) + _%tmp145189%_ + _%k145194%_ + _%L145258%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r144921%_)))) - (_%__kont146172146173%_ - (lambda (_%L144955%_) - (let ((__tmp147507 + _%r145195%_)))) + (_%__kont146446146447%_ + (lambda (_%L145229%_) + (let ((__tmp147781 (cons (cons 'define (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#generate-runtime-binding-id _%L144955%_)) + (gxc#generate-runtime-binding-id _%L145229%_)) (cons (gxc#generate-runtime-values->list - _%tmp144915%_ - _%k144920%_) + _%tmp145189%_ + _%k145194%_) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 cons - __tmp147507 - _%r144921%_)))) - (_%__kont146174146175%_ - (lambda () (reverse _%r144921%_)))) - (let ((_%g144924144971%_ + __tmp147781 + _%r145195%_)))) + (_%__kont146448146449%_ + (lambda () (reverse _%r145195%_)))) + (let ((_%g145198145245%_ (lambda () - (let ((_%L144955%_ - _%__stx146166146167%_)) + (let ((_%L145229%_ + _%__stx146440146441%_)) (if (let () (declare (not safe)) (gx#identifier? - _%L144955%_)) - (_%__kont146172146173%_ - _%L144955%_) - (_%__kont146174146175%_)))))) + _%L145229%_)) + (_%__kont146446146447%_ + _%L145229%_) + (_%__kont146448146449%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx146166146167%_)) - (let ((_%e144929145000%_ + (gx#stx-pair? _%__stx146440146441%_)) + (let ((_%e145203145274%_ (let () (declare (not safe)) (gx#stx-e - _%__stx146166146167%_)))) - (let ((_%tl144931145005%_ + _%__stx146440146441%_)))) + (let ((_%tl145205145279%_ (let () (declare (not safe)) - (##cdr _%e144929145000%_))) - (_%hd144930145003%_ + (##cdr _%e145203145274%_))) + (_%hd145204145277%_ (let () (declare (not safe)) - (##car _%e144929145000%_)))) + (##car _%e145203145274%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd144930145003%_)) - (let ((_%e144932145008%_ + _%hd145204145277%_)) + (let ((_%e145206145282%_ (let () (declare (not safe)) (gx#stx-e - _%hd144930145003%_)))) - (if (equal? _%e144932145008%_ + _%hd145204145277%_)))) + (if (equal? _%e145206145282%_ '#f) - (_%__kont146168146169%_ - _%tl144931145005%_) - (_%__kont146170146171%_ - _%tl144931145005%_ - _%hd144930145003%_))) - (_%__kont146170146171%_ - _%tl144931145005%_ - _%hd144930145003%_)))) + (_%__kont146442146443%_ + _%tl145205145279%_) + (_%__kont146444146445%_ + _%tl145205145279%_ + _%hd145204145277%_))) + (_%__kont146444146445%_ + _%tl145205145279%_ + _%hd145204145277%_)))) (let () (declare (not safe)) - (_%g144924144971%_))))))))) + (_%g145198145245%_))))))))) (cons 'begin (cons (cons 'define - (cons _%tmp144915%_ + (cons _%tmp145189%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self144827%_ - _%L144876%_)) + _%self145101%_ + _%L145150%_)) '()))) (cons (gxc#generate-runtime-check-values - _%tmp144915%_ - _%L144877%_ - _%L144876%_) - _%body145024%_))))))) + _%tmp145189%_ + _%L145151%_ + _%L145150%_) + _%body145298%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx146196146197%_)) - (let ((_%e144896145062%_ + _%__stx146470146471%_)) + (let ((_%e145170145336%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%__stx146196146197%_)))) - (let ((_%tl144898145067%_ + (gx#stx-e _%__stx146470146471%_)))) + (let ((_%tl145172145341%_ (let () (declare (not safe)) - (##cdr _%e144896145062%_))) - (_%hd144897145065%_ + (##cdr _%e145170145336%_))) + (_%hd145171145339%_ (let () (declare (not safe)) - (##car _%e144896145062%_)))) + (##car _%e145170145336%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd144897145065%_)) - (let ((_%e144899145070%_ + (gx#stx-datum? _%hd145171145339%_)) + (let ((_%e145173145344%_ (let () (declare (not safe)) - (gx#stx-e _%hd144897145065%_)))) - (if (equal? _%e144899145070%_ '#f) + (gx#stx-e _%hd145171145339%_)))) + (if (equal? _%e145173145344%_ '#f) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144898145067%_)) - (_%__kont146198146199%_) - (_%__kont146202146203%_)) + (gx#stx-null? _%tl145172145341%_)) + (_%__kont146472146473%_) + (_%__kont146476146477%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144898145067%_)) - (_%__kont146200146201%_ _%hd144897145065%_) - (_%__kont146202146203%_)))) + (gx#stx-null? _%tl145172145341%_)) + (_%__kont146474146475%_ _%hd145171145339%_) + (_%__kont146476146477%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144898145067%_)) - (_%__kont146200146201%_ _%hd144897145065%_) - (_%__kont146202146203%_))))) - (_%__kont146202146203%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd144841144871%_ - _%hd144838144863%_) - (_%g144830144847%_ - _%g144831144850%_)))) - (_%g144830144847%_ _%g144831144850%_)))) - (_%g144830144847%_ _%g144831144850%_)))) - (_%g144830144847%_ _%g144831144850%_))))) - (_%g144829145078%_ _%stx144828%_)))) + (gx#stx-null? _%tl145172145341%_)) + (_%__kont146474146475%_ _%hd145171145339%_) + (_%__kont146476146477%_))))) + (_%__kont146476146477%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd145115145145%_ + _%hd145112145137%_) + (_%g145104145121%_ + _%g145105145124%_)))) + (_%g145104145121%_ _%g145105145124%_)))) + (_%g145104145121%_ _%g145105145124%_)))) + (_%g145104145121%_ _%g145105145124%_))))) + (_%g145103145352%_ _%stx145102%_)))) (define gxc#generate-runtime-check-values - (lambda (_%vals144802%_ _%hd144803%_ _%expr144804%_) - (let ((_%$e144806%_ (gxc#apply-count-values _%expr144804%_))) - (if _%$e144806%_ - ((lambda (_%count144809%_) - (let ((_%len144811%_ + (lambda (_%vals145076%_ _%hd145077%_ _%expr145078%_) + (let ((_%$e145080%_ (gxc#apply-count-values _%expr145078%_))) + (if _%$e145080%_ + ((lambda (_%count145083%_) + (let ((_%len145085%_ (let () (declare (not safe)) - (gx#stx-length _%hd144803%_))) - (_%cmp144812%_ + (gx#stx-length _%hd145077%_))) + (_%cmp145086%_ (if (let () (declare (not safe)) - (gx#stx-list? _%hd144803%_)) + (gx#stx-list? _%hd145077%_)) fx= fx>=))) (if (or (let () (declare (not safe)) - (##fx= _%len144811%_ '0)) - (_%cmp144812%_ _%count144809%_ _%len144811%_)) + (##fx= _%len145085%_ '0)) + (_%cmp145086%_ _%count145083%_ _%len145085%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Value count mismatch" - _%expr144804%_ - _%hd144803%_))))) - _%$e144806%_) - (let* ((_%len144818%_ + _%expr145078%_ + _%hd145077%_))))) + _%$e145080%_) + (let* ((_%len145092%_ (let () (declare (not safe)) - (gx#stx-length _%hd144803%_))) - (_%cmp144820%_ + (gx#stx-length _%hd145077%_))) + (_%cmp145094%_ (if (let () (declare (not safe)) - (gx#stx-list? _%hd144803%_)) + (gx#stx-list? _%hd145077%_)) '##fx= '##fx>=)) - (_%errmsg144822%_ - (let ((__tmp147509 + (_%errmsg145096%_ + (let ((__tmp147783 (if (let () (declare (not safe)) - (gx#stx-list? _%hd144803%_)) + (gx#stx-list? _%hd145077%_)) '"Context expects " '"Context expects at least ")) - (__tmp147508 (number->string _%len144818%_))) + (__tmp147782 (number->string _%len145092%_))) (declare (not safe)) - (##string-append __tmp147509 __tmp147508 '" values"))) - (_%count144824%_ + (##string-append __tmp147783 __tmp147782 '" values"))) + (_%count145098%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0)))) (if (if (let () (declare (not safe)) - (gx#stx-list? _%hd144803%_)) + (gx#stx-list? _%hd145077%_)) '#f - (let () (declare (not safe)) (##fx= _%len144818%_ '0))) + (let () (declare (not safe)) (##fx= _%len145092%_ '0))) '#!void (cons 'let - (cons (cons (cons _%count144824%_ + (cons (cons (cons _%count145098%_ (cons (gxc#generate-runtime-values-count - _%vals144802%_) + _%vals145076%_) '())) '()) (cons (cons 'if (cons (cons 'not (cons (if (gxc#current-compile-decls-unsafe?) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%cmp144820%_ - (cons _%count144824%_ - (cons _%len144818%_ '()))) + (cons _%cmp145094%_ + (cons _%count145098%_ + (cons _%len145092%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) - (cons (cons _%cmp144820%_ - (cons _%count144824%_ - (cons _%len144818%_ + (cons (cons _%cmp145094%_ + (cons _%count145098%_ + (cons _%len145092%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -3232,82 +3232,82 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons 'error - (cons _%errmsg144822%_ + (cons _%errmsg145096%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%count144824%_ '()))) + (cons _%count145098%_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))))) (define gxc#generate-runtime-values-count - (lambda (_%var144797%_) - (letrec ((_%generate-inline144799%_ + (lambda (_%var145071%_) + (letrec ((_%generate-inline145073%_ (lambda () (cons 'if - (cons (cons '##values? (cons _%var144797%_ '())) + (cons (cons '##values? (cons _%var145071%_ '())) (cons (cons '##vector-length - (cons _%var144797%_ '())) + (cons _%var145071%_ '())) (cons '1 '()))))))) (if (gxc#current-compile-decls-unsafe?) - (_%generate-inline144799%_) + (_%generate-inline145073%_) (cons 'let (cons '() (cons '(declare (not safe)) - (cons (_%generate-inline144799%_) '())))))))) + (cons (_%generate-inline145073%_) '())))))))) (define gxc#generate-runtime-values-ref - (lambda (_%var144790%_ _%i144791%_ _%rest144792%_) - (letrec ((_%generate-inline144794%_ + (lambda (_%var145064%_ _%i145065%_ _%rest145066%_) + (letrec ((_%generate-inline145068%_ (lambda () (if (and (let () (declare (not safe)) - (##fx= _%i144791%_ '0)) + (##fx= _%i145065%_ '0)) (not (let () (declare (not safe)) - (gx#stx-pair? _%rest144792%_)))) + (gx#stx-pair? _%rest145066%_)))) (cons 'if - (cons (cons '##values? (cons _%var144790%_ '())) + (cons (cons '##values? (cons _%var145064%_ '())) (cons (cons '##vector-ref - (cons _%var144790%_ + (cons _%var145064%_ (cons '0 '()))) - (cons _%var144790%_ '())))) + (cons _%var145064%_ '())))) (cons '##vector-ref - (cons _%var144790%_ (cons _%i144791%_ '()))))))) + (cons _%var145064%_ (cons _%i145065%_ '()))))))) (if (gxc#current-compile-decls-unsafe?) - (_%generate-inline144794%_) + (_%generate-inline145068%_) (cons 'let (cons '() (cons '(declare (not safe)) - (cons (_%generate-inline144794%_) '())))))))) + (cons (_%generate-inline145068%_) '())))))))) (define gxc#generate-runtime-values->list - (lambda (_%var144784%_ _%i144785%_) - (if (let () (declare (not safe)) (##fx= _%i144785%_ '0)) + (lambda (_%var145058%_ _%i145059%_) + (if (let () (declare (not safe)) (##fx= _%i145059%_ '0)) (if (gxc#current-compile-decls-unsafe?) (cons 'if - (cons (cons '##values? (cons _%var144784%_ '())) + (cons (cons '##values? (cons _%var145058%_ '())) (cons (cons '##vector->list - (cons _%var144784%_ '())) - (cons (cons 'list (cons _%var144784%_ '())) + (cons _%var145058%_ '())) + (cons (cons 'list (cons _%var145058%_ '())) '())))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons 'if (cons (cons '##values? - (cons _%var144784%_ + (cons _%var145058%_ '())) (cons (cons '##vector->list - (cons _%var144784%_ + (cons _%var145058%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons (cons 'list (cons _%var144784%_ '())) '())))) + (cons (cons 'list (cons _%var145058%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (if (let () (declare (not safe)) (##fx= _%i144785%_ '1)) + (if (let () (declare (not safe)) (##fx= _%i145059%_ '1)) (if (gxc#current-compile-decls-unsafe?) (cons 'if - (cons (cons '##values? (cons _%var144784%_ '())) + (cons (cons '##values? (cons _%var145058%_ '())) (cons (cons '##cdr (cons (cons '##vector->list - (cons _%var144784%_ + (cons _%var145058%_ '())) '())) (cons ''() '())))) @@ -3316,8406 +3316,8406 @@ (cons '(declare (not safe)) (cons (cons 'if (cons (cons '##values? - (cons _%var144784%_ + (cons _%var145058%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '##cdr (cons (cons '##vector->list - (cons _%var144784%_ '())) + (cons _%var145058%_ '())) '())) (cons ''() '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (if (gxc#current-compile-decls-unsafe?) (cons '##list-tail - (cons (cons '##vector->list (cons _%var144784%_ '())) - (cons _%i144785%_ '()))) + (cons (cons '##vector->list (cons _%var145058%_ '())) + (cons _%i145059%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##list-tail (cons (cons '##vector->list - (cons _%var144784%_ + (cons _%var145058%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%i144785%_ '()))) + (cons _%i145059%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))))) (define gxc#generate-runtime-lambda% - (lambda (_%self144716%_ _%stx144717%_) - (let* ((_%g144719144736%_ - (lambda (_%g144720144733%_) + (lambda (_%self144990%_ _%stx144991%_) + (let* ((_%g144993145010%_ + (lambda (_%g144994145007%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g144720144733%_)))) - (_%g144718144781%_ - (lambda (_%g144720144739%_) + _%g144994145007%_)))) + (_%g144992145055%_ + (lambda (_%g144994145013%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g144720144739%_)) - (let ((_%e144723144741%_ + (gx#stx-pair? _%g144994145013%_)) + (let ((_%e144997145015%_ (let () (declare (not safe)) - (gx#stx-e _%g144720144739%_)))) - (let ((_%hd144724144744%_ + (gx#stx-e _%g144994145013%_)))) + (let ((_%hd144998145018%_ (let () (declare (not safe)) - (##car _%e144723144741%_))) - (_%tl144725144746%_ + (##car _%e144997145015%_))) + (_%tl144999145020%_ (let () (declare (not safe)) - (##cdr _%e144723144741%_)))) + (##cdr _%e144997145015%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144725144746%_)) - (let ((_%e144726144749%_ + (gx#stx-pair? _%tl144999145020%_)) + (let ((_%e145000145023%_ (let () (declare (not safe)) - (gx#stx-e _%tl144725144746%_)))) - (let ((_%hd144727144752%_ + (gx#stx-e _%tl144999145020%_)))) + (let ((_%hd145001145026%_ (let () (declare (not safe)) - (##car _%e144726144749%_))) - (_%tl144728144754%_ + (##car _%e145000145023%_))) + (_%tl145002145028%_ (let () (declare (not safe)) - (##cdr _%e144726144749%_)))) + (##cdr _%e145000145023%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144728144754%_)) - (let ((_%e144729144757%_ + (gx#stx-pair? _%tl145002145028%_)) + (let ((_%e145003145031%_ (let () (declare (not safe)) - (gx#stx-e _%tl144728144754%_)))) - (let ((_%hd144730144760%_ + (gx#stx-e _%tl145002145028%_)))) + (let ((_%hd145004145034%_ (let () (declare (not safe)) - (##car _%e144729144757%_))) - (_%tl144731144762%_ + (##car _%e145003145031%_))) + (_%tl145005145036%_ (let () (declare (not safe)) - (##cdr _%e144729144757%_)))) + (##cdr _%e145003145031%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144731144762%_)) - ((lambda (_%L144765%_ - _%L144766%_) + _%tl145005145036%_)) + ((lambda (_%L145039%_ + _%L145040%_) (gxc#generate-runtime-lambda-form - _%self144716%_ - _%L144766%_ - _%L144765%_)) - _%hd144730144760%_ - _%hd144727144752%_) - (_%g144719144736%_ - _%g144720144739%_)))) - (_%g144719144736%_ _%g144720144739%_)))) - (_%g144719144736%_ _%g144720144739%_)))) - (_%g144719144736%_ _%g144720144739%_))))) - (_%g144718144781%_ _%stx144717%_)))) + _%self144990%_ + _%L145040%_ + _%L145039%_)) + _%hd145004145034%_ + _%hd145001145026%_) + (_%g144993145010%_ + _%g144994145013%_)))) + (_%g144993145010%_ _%g144994145013%_)))) + (_%g144993145010%_ _%g144994145013%_)))) + (_%g144993145010%_ _%g144994145013%_))))) + (_%g144992145055%_ _%stx144991%_)))) (define gxc#generate-runtime-lambda-form - (lambda (_%self144675%_ _%hd144676%_ _%body144677%_) - (let* ((_%hd144679%_ (gxc#generate-runtime-lambda-head _%hd144676%_)) - (_%body144681%_ + (lambda (_%self144949%_ _%hd144950%_ _%body144951%_) + (let* ((_%hd144953%_ (gxc#generate-runtime-lambda-head _%hd144950%_)) + (_%body144955%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self144675%_ _%body144677%_))) - (_%body144713%_ - (let* ((_%body144682144690%_ _%body144681%_) - (_%else144684144698%_ - (lambda () (cons _%body144681%_ '()))) - (_%K144686144703%_ - (lambda (_%exprs144701%_) _%exprs144701%_))) + (gxc#compile-e__1 _%self144949%_ _%body144951%_))) + (_%body144987%_ + (let* ((_%body144956144964%_ _%body144955%_) + (_%else144958144972%_ + (lambda () (cons _%body144955%_ '()))) + (_%K144960144977%_ + (lambda (_%exprs144975%_) _%exprs144975%_))) (if (let () (declare (not safe)) - (##pair? _%body144682144690%_)) - (let ((_%hd144687144706%_ + (##pair? _%body144956144964%_)) + (let ((_%hd144961144980%_ (let () (declare (not safe)) - (##car _%body144682144690%_))) - (_%tl144688144708%_ + (##car _%body144956144964%_))) + (_%tl144962144982%_ (let () (declare (not safe)) - (##cdr _%body144682144690%_)))) + (##cdr _%body144956144964%_)))) (if (let () (declare (not safe)) - (##eq? _%hd144687144706%_ 'begin)) - (let ((_%exprs144711%_ _%tl144688144708%_)) - (_%K144686144703%_ _%exprs144711%_)) - (_%else144684144698%_))) - (_%else144684144698%_))))) - (cons 'lambda (cons _%hd144679%_ _%body144713%_))))) + (##eq? _%hd144961144980%_ 'begin)) + (let ((_%exprs144985%_ _%tl144962144982%_)) + (_%K144960144977%_ _%exprs144985%_)) + (_%else144958144972%_))) + (_%else144958144972%_))))) + (cons 'lambda (cons _%hd144953%_ _%body144987%_))))) (define gxc#generate-runtime-lambda-head - (lambda (_%hd144673%_) + (lambda (_%hd144947%_) (let () (declare (not safe)) - (gx#stx-map1 gxc#generate-runtime-binding-id* _%hd144673%_)))) + (gx#stx-map1 gxc#generate-runtime-binding-id* _%hd144947%_)))) (define gxc#generate-runtime-case-lambda% - (lambda (_%self143212%_ _%stx143213%_) - (letrec ((_%dispatch-case?143215%_ - (lambda (_%hd143903%_ _%body143904%_) - (let* ((_%form143906%_ - (cons _%hd143903%_ (cons _%body143904%_ '()))) - (_%__stx146228146229%_ _%form143906%_) - (_%g143911144068%_ + (lambda (_%self143486%_ _%stx143487%_) + (letrec ((_%dispatch-case?143489%_ + (lambda (_%hd144177%_ _%body144178%_) + (let* ((_%form144180%_ + (cons _%hd144177%_ (cons _%body144178%_ '()))) + (_%__stx146502146503%_ _%form144180%_) + (_%g144185144342%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx146228146229%_))))) - (let ((_%__kont146230146231%_ - (lambda (_%L144593%_ _%L144594%_ _%L144595%_) + _%__stx146502146503%_))))) + (let ((_%__kont146504146505%_ + (lambda (_%L144867%_ _%L144868%_ _%L144869%_) '#t)) - (_%__kont146236146237%_ - (lambda (_%L144381%_ - _%L144382%_ - _%L144383%_ - _%L144384%_ - _%L144385%_ - _%L144386%_) + (_%__kont146510146511%_ + (lambda (_%L144655%_ + _%L144656%_ + _%L144657%_ + _%L144658%_ + _%L144659%_ + _%L144660%_) '#t)) - (_%__kont146242146243%_ - (lambda (_%L144176%_ - _%L144177%_ - _%L144178%_ - _%L144179%_) + (_%__kont146516146517%_ + (lambda (_%L144450%_ + _%L144451%_ + _%L144452%_ + _%L144453%_) '#t)) - (_%__kont146244146245%_ (lambda () '#f))) - (let* ((_%__match146369146370%_ - (lambda (_%e144028144080%_ - _%hd144029144083%_ - _%tl144030144085%_ - _%e144031144088%_ - _%hd144032144091%_ - _%tl144033144093%_ - _%e144034144096%_ - _%hd144035144099%_ - _%tl144036144101%_ - _%e144037144104%_ - _%hd144038144107%_ - _%tl144039144109%_ - _%e144040144112%_ - _%hd144041144115%_ - _%tl144042144117%_ - _%e144043144120%_ - _%hd144044144123%_ - _%tl144045144125%_ - _%e144046144128%_ - _%hd144047144131%_ - _%tl144048144133%_ - _%e144049144136%_ - _%hd144050144139%_ - _%tl144051144141%_ - _%e144052144144%_ - _%hd144053144147%_ - _%tl144054144149%_ - _%e144055144152%_ - _%hd144056144155%_ - _%tl144057144157%_ - _%e144058144160%_ - _%hd144059144163%_ - _%tl144060144165%_ - _%e144061144168%_ - _%hd144062144171%_ - _%tl144063144173%_) - (let ((_%L144176%_ _%hd144062144171%_) - (_%L144177%_ _%hd144053144147%_) - (_%L144178%_ _%hd144044144123%_) - (_%L144179%_ _%hd144029144083%_)) + (_%__kont146518146519%_ (lambda () '#f))) + (let* ((_%__match146643146644%_ + (lambda (_%e144302144354%_ + _%hd144303144357%_ + _%tl144304144359%_ + _%e144305144362%_ + _%hd144306144365%_ + _%tl144307144367%_ + _%e144308144370%_ + _%hd144309144373%_ + _%tl144310144375%_ + _%e144311144378%_ + _%hd144312144381%_ + _%tl144313144383%_ + _%e144314144386%_ + _%hd144315144389%_ + _%tl144316144391%_ + _%e144317144394%_ + _%hd144318144397%_ + _%tl144319144399%_ + _%e144320144402%_ + _%hd144321144405%_ + _%tl144322144407%_ + _%e144323144410%_ + _%hd144324144413%_ + _%tl144325144415%_ + _%e144326144418%_ + _%hd144327144421%_ + _%tl144328144423%_ + _%e144329144426%_ + _%hd144330144429%_ + _%tl144331144431%_ + _%e144332144434%_ + _%hd144333144437%_ + _%tl144334144439%_ + _%e144335144442%_ + _%hd144336144445%_ + _%tl144337144447%_) + (let ((_%L144450%_ _%hd144336144445%_) + (_%L144451%_ _%hd144327144421%_) + (_%L144452%_ _%hd144318144397%_) + (_%L144453%_ _%hd144303144357%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L144179%_)) + (gx#identifier? _%L144453%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L144178%_ + _%L144452%_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _%L144179%_ - _%L144176%_)) + _%L144453%_ + _%L144450%_)) (not (let () (declare (not safe)) (gx#free-identifier=? - _%L144177%_ - _%L144179%_)))) - (_%__kont146242146243%_ - _%L144176%_ - _%L144177%_ - _%L144178%_ - _%L144179%_) - (_%__kont146244146245%_))))) - (_%__match146341146342%_ - (lambda (_%e144028144080%_ - _%hd144029144083%_ - _%tl144030144085%_ - _%e144031144088%_ - _%hd144032144091%_ - _%tl144033144093%_ - _%e144034144096%_ - _%hd144035144099%_ - _%tl144036144101%_ - _%e144037144104%_ - _%hd144038144107%_ - _%tl144039144109%_ - _%e144040144112%_ - _%hd144041144115%_ - _%tl144042144117%_ - _%e144043144120%_ - _%hd144044144123%_ - _%tl144045144125%_ - _%e144046144128%_ - _%hd144047144131%_ - _%tl144048144133%_ - _%e144049144136%_ - _%hd144050144139%_ - _%tl144051144141%_ - _%e144052144144%_ - _%hd144053144147%_ - _%tl144054144149%_) + _%L144451%_ + _%L144453%_)))) + (_%__kont146516146517%_ + _%L144450%_ + _%L144451%_ + _%L144452%_ + _%L144453%_) + (_%__kont146518146519%_))))) + (_%__match146615146616%_ + (lambda (_%e144302144354%_ + _%hd144303144357%_ + _%tl144304144359%_ + _%e144305144362%_ + _%hd144306144365%_ + _%tl144307144367%_ + _%e144308144370%_ + _%hd144309144373%_ + _%tl144310144375%_ + _%e144311144378%_ + _%hd144312144381%_ + _%tl144313144383%_ + _%e144314144386%_ + _%hd144315144389%_ + _%tl144316144391%_ + _%e144317144394%_ + _%hd144318144397%_ + _%tl144319144399%_ + _%e144320144402%_ + _%hd144321144405%_ + _%tl144322144407%_ + _%e144323144410%_ + _%hd144324144413%_ + _%tl144325144415%_ + _%e144326144418%_ + _%hd144327144421%_ + _%tl144328144423%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144048144133%_)) - (let ((_%e144055144152%_ + (gx#stx-pair? _%tl144322144407%_)) + (let ((_%e144329144426%_ (let () (declare (not safe)) - (gx#stx-e _%tl144048144133%_)))) - (let ((_%tl144057144157%_ + (gx#stx-e _%tl144322144407%_)))) + (let ((_%tl144331144431%_ (let () (declare (not safe)) - (##cdr _%e144055144152%_))) - (_%hd144056144155%_ + (##cdr _%e144329144426%_))) + (_%hd144330144429%_ (let () (declare (not safe)) - (##car _%e144055144152%_)))) + (##car _%e144329144426%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144056144155%_)) - (let ((_%e144058144160%_ + _%hd144330144429%_)) + (let ((_%e144332144434%_ (let () (declare (not safe)) (gx#stx-e - _%hd144056144155%_)))) - (let ((_%tl144060144165%_ + _%hd144330144429%_)))) + (let ((_%tl144334144439%_ (let () (declare (not safe)) - (##cdr _%e144058144160%_))) - (_%hd144059144163%_ + (##cdr _%e144332144434%_))) + (_%hd144333144437%_ (let () (declare (not safe)) - (##car _%e144058144160%_)))) + (##car _%e144332144434%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd144059144163%_)) + _%hd144333144437%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd144059144163%_)) + _%hd144333144437%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl144060144165%_)) - (let ((_%e144061144168%_ + (gx#stx-pair? _%tl144334144439%_)) + (let ((_%e144335144442%_ (let () (declare (not safe)) - (gx#stx-e _%tl144060144165%_)))) - (let ((_%tl144063144173%_ + (gx#stx-e _%tl144334144439%_)))) + (let ((_%tl144337144447%_ (let () (declare (not safe)) - (##cdr _%e144061144168%_))) - (_%hd144062144171%_ + (##cdr _%e144335144442%_))) + (_%hd144336144445%_ (let () (declare (not safe)) - (##car _%e144061144168%_)))) + (##car _%e144335144442%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144063144173%_)) + (gx#stx-null? _%tl144337144447%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144057144157%_)) + (gx#stx-null? _%tl144331144431%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144033144093%_)) - (_%__match146369146370%_ - _%e144028144080%_ - _%hd144029144083%_ - _%tl144030144085%_ - _%e144031144088%_ - _%hd144032144091%_ - _%tl144033144093%_ - _%e144034144096%_ - _%hd144035144099%_ - _%tl144036144101%_ - _%e144037144104%_ - _%hd144038144107%_ - _%tl144039144109%_ - _%e144040144112%_ - _%hd144041144115%_ - _%tl144042144117%_ - _%e144043144120%_ - _%hd144044144123%_ - _%tl144045144125%_ - _%e144046144128%_ - _%hd144047144131%_ - _%tl144048144133%_ - _%e144049144136%_ - _%hd144050144139%_ - _%tl144051144141%_ - _%e144052144144%_ - _%hd144053144147%_ - _%tl144054144149%_ - _%e144055144152%_ - _%hd144056144155%_ - _%tl144057144157%_ - _%e144058144160%_ - _%hd144059144163%_ - _%tl144060144165%_ - _%e144061144168%_ - _%hd144062144171%_ - _%tl144063144173%_) - (_%__kont146244146245%_)) - (_%__kont146244146245%_)) - (_%__kont146244146245%_)))) - (_%__kont146244146245%_)) - (_%__kont146244146245%_)) - (_%__kont146244146245%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont146244146245%_)))) - (_%__kont146244146245%_)))) - (_%__match146271146272%_ - (lambda (_%e143964144221%_ - _%hd143965144224%_ - _%tl143966144226%_ - _%__splice146238146239%_ - _%target143967144229%_ - _%tl143969144231%_) - (letrec ((_%loop143970144234%_ - (lambda (_%hd143968144237%_ - _%arg143974144239%_) + (gx#stx-null? _%tl144307144367%_)) + (_%__match146643146644%_ + _%e144302144354%_ + _%hd144303144357%_ + _%tl144304144359%_ + _%e144305144362%_ + _%hd144306144365%_ + _%tl144307144367%_ + _%e144308144370%_ + _%hd144309144373%_ + _%tl144310144375%_ + _%e144311144378%_ + _%hd144312144381%_ + _%tl144313144383%_ + _%e144314144386%_ + _%hd144315144389%_ + _%tl144316144391%_ + _%e144317144394%_ + _%hd144318144397%_ + _%tl144319144399%_ + _%e144320144402%_ + _%hd144321144405%_ + _%tl144322144407%_ + _%e144323144410%_ + _%hd144324144413%_ + _%tl144325144415%_ + _%e144326144418%_ + _%hd144327144421%_ + _%tl144328144423%_ + _%e144329144426%_ + _%hd144330144429%_ + _%tl144331144431%_ + _%e144332144434%_ + _%hd144333144437%_ + _%tl144334144439%_ + _%e144335144442%_ + _%hd144336144445%_ + _%tl144337144447%_) + (_%__kont146518146519%_)) + (_%__kont146518146519%_)) + (_%__kont146518146519%_)))) + (_%__kont146518146519%_)) + (_%__kont146518146519%_)) + (_%__kont146518146519%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont146518146519%_)))) + (_%__kont146518146519%_)))) + (_%__match146545146546%_ + (lambda (_%e144238144495%_ + _%hd144239144498%_ + _%tl144240144500%_ + _%__splice146512146513%_ + _%target144241144503%_ + _%tl144243144505%_) + (letrec ((_%loop144244144508%_ + (lambda (_%hd144242144511%_ + _%arg144248144513%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143968144237%_)) - (let ((_%e143971144242%_ + _%hd144242144511%_)) + (let ((_%e144245144516%_ (let () (declare (not safe)) (gx#stx-e - _%hd143968144237%_)))) - (let ((_%lp-tl143973144247%_ + _%hd144242144511%_)))) + (let ((_%lp-tl144247144521%_ (let () (declare (not safe)) - (##cdr _%e143971144242%_))) - (_%lp-hd143972144245%_ + (##cdr _%e144245144516%_))) + (_%lp-hd144246144519%_ (let () (declare (not safe)) - (##car _%e143971144242%_)))) - (_%loop143970144234%_ - _%lp-tl143973144247%_ - (cons _%lp-hd143972144245%_ - _%arg143974144239%_)))) - (let ((_%arg143975144250%_ - (reverse _%arg143974144239%_))) + (##car _%e144245144516%_)))) + (_%loop144244144508%_ + _%lp-tl144247144521%_ + (cons _%lp-hd144246144519%_ + _%arg144248144513%_)))) + (let ((_%arg144249144524%_ + (reverse _%arg144248144513%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143966144226%_)) - (let ((_%e143976144253%_ + _%tl144240144500%_)) + (let ((_%e144250144527%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl143966144226%_)))) - (let ((_%tl143978144258%_ + (gx#stx-e _%tl144240144500%_)))) + (let ((_%tl144252144532%_ (let () (declare (not safe)) - (##cdr _%e143976144253%_))) - (_%hd143977144256%_ + (##cdr _%e144250144527%_))) + (_%hd144251144530%_ (let () (declare (not safe)) - (##car _%e143976144253%_)))) + (##car _%e144250144527%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd143977144256%_)) - (let ((_%e143979144261%_ + (gx#stx-pair? _%hd144251144530%_)) + (let ((_%e144253144535%_ (let () (declare (not safe)) - (gx#stx-e _%hd143977144256%_)))) - (let ((_%tl143981144266%_ + (gx#stx-e _%hd144251144530%_)))) + (let ((_%tl144255144540%_ (let () (declare (not safe)) - (##cdr _%e143979144261%_))) - (_%hd143980144264%_ + (##cdr _%e144253144535%_))) + (_%hd144254144538%_ (let () (declare (not safe)) - (##car _%e143979144261%_)))) + (##car _%e144253144535%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd143980144264%_)) + (gx#identifier? _%hd144254144538%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd143980144264%_)) + (gx#stx-eq? '%#call _%hd144254144538%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143981144266%_)) - (let ((_%e143982144269%_ + (gx#stx-pair? _%tl144255144540%_)) + (let ((_%e144256144543%_ (let () (declare (not safe)) (gx#stx-e - _%tl143981144266%_)))) - (let ((_%tl143984144274%_ + _%tl144255144540%_)))) + (let ((_%tl144258144548%_ (let () (declare (not safe)) - (##cdr _%e143982144269%_))) - (_%hd143983144272%_ + (##cdr _%e144256144543%_))) + (_%hd144257144546%_ (let () (declare (not safe)) - (##car _%e143982144269%_)))) + (##car _%e144256144543%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143983144272%_)) - (let ((_%e143985144277%_ + _%hd144257144546%_)) + (let ((_%e144259144551%_ (let () (declare (not safe)) (gx#stx-e - _%hd143983144272%_)))) - (let ((_%tl143987144282%_ + _%hd144257144546%_)))) + (let ((_%tl144261144556%_ (let () (declare (not safe)) - (##cdr _%e143985144277%_))) - (_%hd143986144280%_ + (##cdr _%e144259144551%_))) + (_%hd144260144554%_ (let () (declare (not safe)) - (##car _%e143985144277%_)))) + (##car _%e144259144551%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd143986144280%_)) + _%hd144260144554%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd143986144280%_)) + _%hd144260144554%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl143987144282%_)) - (let ((_%e143988144285%_ + (gx#stx-pair? _%tl144261144556%_)) + (let ((_%e144262144559%_ (let () (declare (not safe)) - (gx#stx-e _%tl143987144282%_)))) - (let ((_%tl143990144290%_ + (gx#stx-e _%tl144261144556%_)))) + (let ((_%tl144264144564%_ (let () (declare (not safe)) - (##cdr _%e143988144285%_))) - (_%hd143989144288%_ + (##cdr _%e144262144559%_))) + (_%hd144263144562%_ (let () (declare (not safe)) - (##car _%e143988144285%_)))) + (##car _%e144262144559%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143990144290%_)) + (gx#stx-null? _%tl144264144564%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143984144274%_)) - (let ((_%e143991144293%_ + (gx#stx-pair? _%tl144258144548%_)) + (let ((_%e144265144567%_ (let () (declare (not safe)) - (gx#stx-e _%tl143984144274%_)))) - (let ((_%tl143993144298%_ + (gx#stx-e _%tl144258144548%_)))) + (let ((_%tl144267144572%_ (let () (declare (not safe)) - (##cdr _%e143991144293%_))) - (_%hd143992144296%_ + (##cdr _%e144265144567%_))) + (_%hd144266144570%_ (let () (declare (not safe)) - (##car _%e143991144293%_)))) + (##car _%e144265144567%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143992144296%_)) - (let ((_%e143994144301%_ + _%hd144266144570%_)) + (let ((_%e144268144575%_ (let () (declare (not safe)) (gx#stx-e - _%hd143992144296%_)))) - (let ((_%tl143996144306%_ + _%hd144266144570%_)))) + (let ((_%tl144270144580%_ (let () (declare (not safe)) - (##cdr _%e143994144301%_))) - (_%hd143995144304%_ + (##cdr _%e144268144575%_))) + (_%hd144269144578%_ (let () (declare (not safe)) - (##car _%e143994144301%_)))) + (##car _%e144268144575%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd143995144304%_)) + _%hd144269144578%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd143995144304%_)) + _%hd144269144578%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143996144306%_)) - (let ((_%e143997144309%_ + _%tl144270144580%_)) + (let ((_%e144271144583%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl143996144306%_)))) - (let ((_%tl143999144314%_ + (gx#stx-e _%tl144270144580%_)))) + (let ((_%tl144273144588%_ (let () (declare (not safe)) - (##cdr _%e143997144309%_))) - (_%hd143998144312%_ + (##cdr _%e144271144583%_))) + (_%hd144272144586%_ (let () (declare (not safe)) - (##car _%e143997144309%_)))) + (##car _%e144271144583%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143999144314%_)) + (gx#stx-null? _%tl144273144588%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl143993144298%_)) - (if (let ((__tmp147510 + (gx#stx-pair/null? _%tl144267144572%_)) + (if (let ((__tmp147784 (let () (declare (not safe)) (gx#stx-length - _%tl143993144298%_)))) + _%tl144267144572%_)))) (declare (not safe)) - (##fx>= __tmp147510 '1)) - (let ((_%__splice146240146241%_ + (##fx>= __tmp147784 '1)) + (let ((_%__splice146514146515%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl143993144298%_ + _%tl144267144572%_ '1)))) - (let ((_%tl144002144319%_ + (let ((_%tl144276144593%_ (let () (declare (not safe)) (##vector-ref - _%__splice146240146241%_ + _%__splice146514146515%_ '1))) - (_%target144000144317%_ + (_%target144274144591%_ (let () (declare (not safe)) (##vector-ref - _%__splice146240146241%_ + _%__splice146514146515%_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144002144319%_)) - (let ((_%e144009144322%_ + _%tl144276144593%_)) + (let ((_%e144283144596%_ (let () (declare (not safe)) (gx#stx-e - _%tl144002144319%_)))) - (let ((_%tl144011144327%_ + _%tl144276144593%_)))) + (let ((_%tl144285144601%_ (let () (declare (not safe)) - (##cdr _%e144009144322%_))) - (_%hd144010144325%_ + (##cdr _%e144283144596%_))) + (_%hd144284144599%_ (let () (declare (not safe)) - (##car _%e144009144322%_)))) + (##car _%e144283144596%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144010144325%_)) - (let ((_%e144012144330%_ + _%hd144284144599%_)) + (let ((_%e144286144604%_ (let () (declare (not safe)) (gx#stx-e - _%hd144010144325%_)))) - (let ((_%tl144014144335%_ + _%hd144284144599%_)))) + (let ((_%tl144288144609%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e144012144330%_))) - (_%hd144013144333%_ - (let () (declare (not safe)) (##car _%e144012144330%_)))) + (##cdr _%e144286144604%_))) + (_%hd144287144607%_ + (let () (declare (not safe)) (##car _%e144286144604%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd144013144333%_)) + (gx#identifier? _%hd144287144607%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd144013144333%_)) + (gx#stx-eq? '%#ref _%hd144287144607%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144014144335%_)) - (let ((_%e144015144338%_ + (gx#stx-pair? _%tl144288144609%_)) + (let ((_%e144289144612%_ (let () (declare (not safe)) - (gx#stx-e _%tl144014144335%_)))) - (let ((_%tl144017144343%_ + (gx#stx-e _%tl144288144609%_)))) + (let ((_%tl144291144617%_ (let () (declare (not safe)) - (##cdr _%e144015144338%_))) - (_%hd144016144341%_ + (##cdr _%e144289144612%_))) + (_%hd144290144615%_ (let () (declare (not safe)) - (##car _%e144015144338%_)))) + (##car _%e144289144612%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144017144343%_)) + (gx#stx-null? _%tl144291144617%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144011144327%_)) - (letrec ((_%loop144003144346%_ - (lambda (_%hd144001144349%_ - _%xarg144007144351%_) + (gx#stx-null? _%tl144285144601%_)) + (letrec ((_%loop144277144620%_ + (lambda (_%hd144275144623%_ + _%xarg144281144625%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144001144349%_)) - (let ((_%e144004144354%_ + _%hd144275144623%_)) + (let ((_%e144278144628%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd144001144349%_)))) - (let ((_%lp-tl144006144359%_ + (gx#stx-e _%hd144275144623%_)))) + (let ((_%lp-tl144280144633%_ (let () (declare (not safe)) - (##cdr _%e144004144354%_))) - (_%lp-hd144005144357%_ + (##cdr _%e144278144628%_))) + (_%lp-hd144279144631%_ (let () (declare (not safe)) - (##car _%e144004144354%_)))) + (##car _%e144278144628%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd144005144357%_)) - (let ((_%e144018144362%_ + (gx#stx-pair? _%lp-hd144279144631%_)) + (let ((_%e144292144636%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd144005144357%_)))) - (let ((_%tl144020144367%_ + (gx#stx-e _%lp-hd144279144631%_)))) + (let ((_%tl144294144641%_ (let () (declare (not safe)) - (##cdr _%e144018144362%_))) - (_%hd144019144365%_ + (##cdr _%e144292144636%_))) + (_%hd144293144639%_ (let () (declare (not safe)) - (##car _%e144018144362%_)))) + (##car _%e144292144636%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd144019144365%_)) + (gx#identifier? _%hd144293144639%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd144019144365%_)) + (gx#stx-eq? '%#ref _%hd144293144639%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144020144367%_)) - (let ((_%e144021144370%_ + (gx#stx-pair? _%tl144294144641%_)) + (let ((_%e144295144644%_ (let () (declare (not safe)) (gx#stx-e - _%tl144020144367%_)))) - (let ((_%tl144023144375%_ + _%tl144294144641%_)))) + (let ((_%tl144297144649%_ (let () (declare (not safe)) - (##cdr _%e144021144370%_))) - (_%hd144022144373%_ + (##cdr _%e144295144644%_))) + (_%hd144296144647%_ (let () (declare (not safe)) - (##car _%e144021144370%_)))) + (##car _%e144295144644%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144023144375%_)) - (_%loop144003144346%_ - _%lp-tl144006144359%_ - (cons _%hd144022144373%_ - _%xarg144007144351%_)) - (_%__match146341146342%_ - _%e143964144221%_ - _%hd143965144224%_ - _%tl143966144226%_ - _%e143976144253%_ - _%hd143977144256%_ - _%tl143978144258%_ - _%e143979144261%_ - _%hd143980144264%_ - _%tl143981144266%_ - _%e143982144269%_ - _%hd143983144272%_ - _%tl143984144274%_ - _%e143985144277%_ - _%hd143986144280%_ - _%tl143987144282%_ - _%e143988144285%_ - _%hd143989144288%_ - _%tl143990144290%_ - _%e143991144293%_ - _%hd143992144296%_ - _%tl143993144298%_ - _%e143994144301%_ - _%hd143995144304%_ - _%tl143996144306%_ - _%e143997144309%_ - _%hd143998144312%_ - _%tl143999144314%_)))) - (_%__match146341146342%_ - _%e143964144221%_ - _%hd143965144224%_ - _%tl143966144226%_ - _%e143976144253%_ - _%hd143977144256%_ - _%tl143978144258%_ - _%e143979144261%_ - _%hd143980144264%_ - _%tl143981144266%_ - _%e143982144269%_ - _%hd143983144272%_ - _%tl143984144274%_ - _%e143985144277%_ - _%hd143986144280%_ - _%tl143987144282%_ - _%e143988144285%_ - _%hd143989144288%_ - _%tl143990144290%_ - _%e143991144293%_ - _%hd143992144296%_ - _%tl143993144298%_ - _%e143994144301%_ - _%hd143995144304%_ - _%tl143996144306%_ - _%e143997144309%_ - _%hd143998144312%_ - _%tl143999144314%_)) - (_%__match146341146342%_ - _%e143964144221%_ - _%hd143965144224%_ - _%tl143966144226%_ - _%e143976144253%_ - _%hd143977144256%_ - _%tl143978144258%_ - _%e143979144261%_ - _%hd143980144264%_ - _%tl143981144266%_ - _%e143982144269%_ - _%hd143983144272%_ - _%tl143984144274%_ - _%e143985144277%_ - _%hd143986144280%_ - _%tl143987144282%_ - _%e143988144285%_ - _%hd143989144288%_ - _%tl143990144290%_ - _%e143991144293%_ - _%hd143992144296%_ - _%tl143993144298%_ - _%e143994144301%_ - _%hd143995144304%_ - _%tl143996144306%_ - _%e143997144309%_ - _%hd143998144312%_ - _%tl143999144314%_)) - (_%__match146341146342%_ - _%e143964144221%_ - _%hd143965144224%_ - _%tl143966144226%_ - _%e143976144253%_ - _%hd143977144256%_ - _%tl143978144258%_ - _%e143979144261%_ - _%hd143980144264%_ - _%tl143981144266%_ - _%e143982144269%_ - _%hd143983144272%_ - _%tl143984144274%_ - _%e143985144277%_ - _%hd143986144280%_ - _%tl143987144282%_ - _%e143988144285%_ - _%hd143989144288%_ - _%tl143990144290%_ - _%e143991144293%_ - _%hd143992144296%_ - _%tl143993144298%_ - _%e143994144301%_ - _%hd143995144304%_ - _%tl143996144306%_ - _%e143997144309%_ - _%hd143998144312%_ - _%tl143999144314%_)))) - (_%__match146341146342%_ - _%e143964144221%_ - _%hd143965144224%_ - _%tl143966144226%_ - _%e143976144253%_ - _%hd143977144256%_ - _%tl143978144258%_ - _%e143979144261%_ - _%hd143980144264%_ - _%tl143981144266%_ - _%e143982144269%_ - _%hd143983144272%_ - _%tl143984144274%_ - _%e143985144277%_ - _%hd143986144280%_ - _%tl143987144282%_ - _%e143988144285%_ - _%hd143989144288%_ - _%tl143990144290%_ - _%e143991144293%_ - _%hd143992144296%_ - _%tl143993144298%_ - _%e143994144301%_ - _%hd143995144304%_ - _%tl143996144306%_ - _%e143997144309%_ - _%hd143998144312%_ - _%tl143999144314%_)))) - (let ((_%xarg144008144378%_ (reverse _%xarg144007144351%_))) + _%tl144297144649%_)) + (_%loop144277144620%_ + _%lp-tl144280144633%_ + (cons _%hd144296144647%_ + _%xarg144281144625%_)) + (_%__match146615146616%_ + _%e144238144495%_ + _%hd144239144498%_ + _%tl144240144500%_ + _%e144250144527%_ + _%hd144251144530%_ + _%tl144252144532%_ + _%e144253144535%_ + _%hd144254144538%_ + _%tl144255144540%_ + _%e144256144543%_ + _%hd144257144546%_ + _%tl144258144548%_ + _%e144259144551%_ + _%hd144260144554%_ + _%tl144261144556%_ + _%e144262144559%_ + _%hd144263144562%_ + _%tl144264144564%_ + _%e144265144567%_ + _%hd144266144570%_ + _%tl144267144572%_ + _%e144268144575%_ + _%hd144269144578%_ + _%tl144270144580%_ + _%e144271144583%_ + _%hd144272144586%_ + _%tl144273144588%_)))) + (_%__match146615146616%_ + _%e144238144495%_ + _%hd144239144498%_ + _%tl144240144500%_ + _%e144250144527%_ + _%hd144251144530%_ + _%tl144252144532%_ + _%e144253144535%_ + _%hd144254144538%_ + _%tl144255144540%_ + _%e144256144543%_ + _%hd144257144546%_ + _%tl144258144548%_ + _%e144259144551%_ + _%hd144260144554%_ + _%tl144261144556%_ + _%e144262144559%_ + _%hd144263144562%_ + _%tl144264144564%_ + _%e144265144567%_ + _%hd144266144570%_ + _%tl144267144572%_ + _%e144268144575%_ + _%hd144269144578%_ + _%tl144270144580%_ + _%e144271144583%_ + _%hd144272144586%_ + _%tl144273144588%_)) + (_%__match146615146616%_ + _%e144238144495%_ + _%hd144239144498%_ + _%tl144240144500%_ + _%e144250144527%_ + _%hd144251144530%_ + _%tl144252144532%_ + _%e144253144535%_ + _%hd144254144538%_ + _%tl144255144540%_ + _%e144256144543%_ + _%hd144257144546%_ + _%tl144258144548%_ + _%e144259144551%_ + _%hd144260144554%_ + _%tl144261144556%_ + _%e144262144559%_ + _%hd144263144562%_ + _%tl144264144564%_ + _%e144265144567%_ + _%hd144266144570%_ + _%tl144267144572%_ + _%e144268144575%_ + _%hd144269144578%_ + _%tl144270144580%_ + _%e144271144583%_ + _%hd144272144586%_ + _%tl144273144588%_)) + (_%__match146615146616%_ + _%e144238144495%_ + _%hd144239144498%_ + _%tl144240144500%_ + _%e144250144527%_ + _%hd144251144530%_ + _%tl144252144532%_ + _%e144253144535%_ + _%hd144254144538%_ + _%tl144255144540%_ + _%e144256144543%_ + _%hd144257144546%_ + _%tl144258144548%_ + _%e144259144551%_ + _%hd144260144554%_ + _%tl144261144556%_ + _%e144262144559%_ + _%hd144263144562%_ + _%tl144264144564%_ + _%e144265144567%_ + _%hd144266144570%_ + _%tl144267144572%_ + _%e144268144575%_ + _%hd144269144578%_ + _%tl144270144580%_ + _%e144271144583%_ + _%hd144272144586%_ + _%tl144273144588%_)))) + (_%__match146615146616%_ + _%e144238144495%_ + _%hd144239144498%_ + _%tl144240144500%_ + _%e144250144527%_ + _%hd144251144530%_ + _%tl144252144532%_ + _%e144253144535%_ + _%hd144254144538%_ + _%tl144255144540%_ + _%e144256144543%_ + _%hd144257144546%_ + _%tl144258144548%_ + _%e144259144551%_ + _%hd144260144554%_ + _%tl144261144556%_ + _%e144262144559%_ + _%hd144263144562%_ + _%tl144264144564%_ + _%e144265144567%_ + _%hd144266144570%_ + _%tl144267144572%_ + _%e144268144575%_ + _%hd144269144578%_ + _%tl144270144580%_ + _%e144271144583%_ + _%hd144272144586%_ + _%tl144273144588%_)))) + (let ((_%xarg144282144652%_ (reverse _%xarg144281144625%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143978144258%_)) - (let ((_%L144381%_ _%hd144016144341%_) - (_%L144382%_ _%xarg144008144378%_) - (_%L144383%_ _%hd143998144312%_) - (_%L144384%_ _%hd143989144288%_) - (_%L144385%_ _%tl143969144231%_) - (_%L144386%_ _%arg143975144250%_)) - (if (and (let ((__tmp147511 - (let ((__tmp147512 - (lambda (_%g144429144432%_ - _%g144430144434%_) - (cons _%g144429144432%_ - _%g144430144434%_)))) + (gx#stx-null? _%tl144252144532%_)) + (let ((_%L144655%_ _%hd144290144615%_) + (_%L144656%_ _%xarg144282144652%_) + (_%L144657%_ _%hd144272144586%_) + (_%L144658%_ _%hd144263144562%_) + (_%L144659%_ _%tl144243144505%_) + (_%L144660%_ _%arg144249144524%_)) + (if (and (let ((__tmp147785 + (let ((__tmp147786 + (lambda (_%g144703144706%_ + _%g144704144708%_) + (cons _%g144703144706%_ + _%g144704144708%_)))) (declare (not safe)) (__foldr1 - __tmp147512 + __tmp147786 '() - _%L144386%_)))) + _%L144660%_)))) (declare (not safe)) - (gx#identifier-list? __tmp147511)) + (gx#identifier-list? __tmp147785)) (let () (declare (not safe)) - (gx#identifier? _%L144385%_)) + (gx#identifier? _%L144659%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L144384%_ + _%L144658%_ 'apply)) - (let ((__tmp147515 - (length (let ((__tmp147516 - (lambda (_%g144436144439%_ - _%g144437144441%_) - (cons _%g144436144439%_ - _%g144437144441%_)))) + (let ((__tmp147789 + (length (let ((__tmp147790 + (lambda (_%g144710144713%_ + _%g144711144715%_) + (cons _%g144710144713%_ + _%g144711144715%_)))) (declare (not safe)) (__foldr1 - __tmp147516 + __tmp147790 '() - _%L144386%_)))) - (__tmp147513 - (length (let ((__tmp147514 - (lambda (_%g144443144446%_ - _%g144444144448%_) - (cons _%g144443144446%_ - _%g144444144448%_)))) + _%L144660%_)))) + (__tmp147787 + (length (let ((__tmp147788 + (lambda (_%g144717144720%_ + _%g144718144722%_) + (cons _%g144717144720%_ + _%g144718144722%_)))) (declare (not safe)) (__foldr1 - __tmp147514 + __tmp147788 '() - _%L144382%_))))) + _%L144656%_))))) (declare (not safe)) - (##fx= __tmp147515 __tmp147513)) - (let ((__tmp147519 - (let ((__tmp147520 - (lambda (_%g144450144453%_ - _%g144451144455%_) - (cons _%g144450144453%_ - _%g144451144455%_)))) + (##fx= __tmp147789 __tmp147787)) + (let ((__tmp147793 + (let ((__tmp147794 + (lambda (_%g144724144727%_ + _%g144725144729%_) + (cons _%g144724144727%_ + _%g144725144729%_)))) (declare (not safe)) (__foldr1 - __tmp147520 + __tmp147794 '() - _%L144386%_))) - (__tmp147517 - (let ((__tmp147518 - (lambda (_%g144457144460%_ - _%g144458144462%_) - (cons _%g144457144460%_ - _%g144458144462%_)))) + _%L144660%_))) + (__tmp147791 + (let ((__tmp147792 + (lambda (_%g144731144734%_ + _%g144732144736%_) + (cons _%g144731144734%_ + _%g144732144736%_)))) (declare (not safe)) (__foldr1 - __tmp147518 + __tmp147792 '() - _%L144382%_)))) + _%L144656%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp147519 - __tmp147517)) + __tmp147793 + __tmp147791)) (let () (declare (not safe)) (gx#free-identifier=? - _%L144385%_ - _%L144381%_)) - (not (let ((__tmp147524 - (lambda (_%g144464144466%_) + _%L144659%_ + _%L144655%_)) + (not (let ((__tmp147798 + (lambda (_%g144738144740%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g144464144466%_ - _%L144383%_)))) - (__tmp147521 - (let ((__tmp147523 - (lambda (_%g144468144471%_ - _%g144469144473%_) - (cons _%g144468144471%_ - _%g144469144473%_))) - (__tmp147522 - (cons _%L144385%_ '()))) + _%g144738144740%_ + _%L144657%_)))) + (__tmp147795 + (let ((__tmp147797 + (lambda (_%g144742144745%_ + _%g144743144747%_) + (cons _%g144742144745%_ + _%g144743144747%_))) + (__tmp147796 + (cons _%L144659%_ '()))) (declare (not safe)) (__foldr1 - __tmp147523 - __tmp147522 - _%L144386%_)))) + __tmp147797 + __tmp147796 + _%L144660%_)))) (declare (not safe)) - (__find __tmp147524 __tmp147521)))) - (_%__kont146236146237%_ - _%L144381%_ - _%L144382%_ - _%L144383%_ - _%L144384%_ - _%L144385%_ - _%L144386%_) - (_%__match146341146342%_ - _%e143964144221%_ - _%hd143965144224%_ - _%tl143966144226%_ - _%e143976144253%_ - _%hd143977144256%_ - _%tl143978144258%_ - _%e143979144261%_ - _%hd143980144264%_ - _%tl143981144266%_ - _%e143982144269%_ - _%hd143983144272%_ - _%tl143984144274%_ - _%e143985144277%_ - _%hd143986144280%_ - _%tl143987144282%_ - _%e143988144285%_ - _%hd143989144288%_ - _%tl143990144290%_ - _%e143991144293%_ - _%hd143992144296%_ - _%tl143993144298%_ - _%e143994144301%_ - _%hd143995144304%_ - _%tl143996144306%_ - _%e143997144309%_ - _%hd143998144312%_ - _%tl143999144314%_))) - (_%__match146341146342%_ - _%e143964144221%_ - _%hd143965144224%_ - _%tl143966144226%_ - _%e143976144253%_ - _%hd143977144256%_ - _%tl143978144258%_ - _%e143979144261%_ - _%hd143980144264%_ - _%tl143981144266%_ - _%e143982144269%_ - _%hd143983144272%_ - _%tl143984144274%_ - _%e143985144277%_ - _%hd143986144280%_ - _%tl143987144282%_ - _%e143988144285%_ - _%hd143989144288%_ - _%tl143990144290%_ - _%e143991144293%_ - _%hd143992144296%_ - _%tl143993144298%_ - _%e143994144301%_ - _%hd143995144304%_ - _%tl143996144306%_ - _%e143997144309%_ - _%hd143998144312%_ - _%tl143999144314%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop144003144346%_ - _%target144000144317%_ + (__find __tmp147798 __tmp147795)))) + (_%__kont146510146511%_ + _%L144655%_ + _%L144656%_ + _%L144657%_ + _%L144658%_ + _%L144659%_ + _%L144660%_) + (_%__match146615146616%_ + _%e144238144495%_ + _%hd144239144498%_ + _%tl144240144500%_ + _%e144250144527%_ + _%hd144251144530%_ + _%tl144252144532%_ + _%e144253144535%_ + _%hd144254144538%_ + _%tl144255144540%_ + _%e144256144543%_ + _%hd144257144546%_ + _%tl144258144548%_ + _%e144259144551%_ + _%hd144260144554%_ + _%tl144261144556%_ + _%e144262144559%_ + _%hd144263144562%_ + _%tl144264144564%_ + _%e144265144567%_ + _%hd144266144570%_ + _%tl144267144572%_ + _%e144268144575%_ + _%hd144269144578%_ + _%tl144270144580%_ + _%e144271144583%_ + _%hd144272144586%_ + _%tl144273144588%_))) + (_%__match146615146616%_ + _%e144238144495%_ + _%hd144239144498%_ + _%tl144240144500%_ + _%e144250144527%_ + _%hd144251144530%_ + _%tl144252144532%_ + _%e144253144535%_ + _%hd144254144538%_ + _%tl144255144540%_ + _%e144256144543%_ + _%hd144257144546%_ + _%tl144258144548%_ + _%e144259144551%_ + _%hd144260144554%_ + _%tl144261144556%_ + _%e144262144559%_ + _%hd144263144562%_ + _%tl144264144564%_ + _%e144265144567%_ + _%hd144266144570%_ + _%tl144267144572%_ + _%e144268144575%_ + _%hd144269144578%_ + _%tl144270144580%_ + _%e144271144583%_ + _%hd144272144586%_ + _%tl144273144588%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop144277144620%_ + _%target144274144591%_ '())) - (_%__match146341146342%_ - _%e143964144221%_ - _%hd143965144224%_ - _%tl143966144226%_ - _%e143976144253%_ - _%hd143977144256%_ - _%tl143978144258%_ - _%e143979144261%_ - _%hd143980144264%_ - _%tl143981144266%_ - _%e143982144269%_ - _%hd143983144272%_ - _%tl143984144274%_ - _%e143985144277%_ - _%hd143986144280%_ - _%tl143987144282%_ - _%e143988144285%_ - _%hd143989144288%_ - _%tl143990144290%_ - _%e143991144293%_ - _%hd143992144296%_ - _%tl143993144298%_ - _%e143994144301%_ - _%hd143995144304%_ - _%tl143996144306%_ - _%e143997144309%_ - _%hd143998144312%_ - _%tl143999144314%_)) - (_%__match146341146342%_ - _%e143964144221%_ - _%hd143965144224%_ - _%tl143966144226%_ - _%e143976144253%_ - _%hd143977144256%_ - _%tl143978144258%_ - _%e143979144261%_ - _%hd143980144264%_ - _%tl143981144266%_ - _%e143982144269%_ - _%hd143983144272%_ - _%tl143984144274%_ - _%e143985144277%_ - _%hd143986144280%_ - _%tl143987144282%_ - _%e143988144285%_ - _%hd143989144288%_ - _%tl143990144290%_ - _%e143991144293%_ - _%hd143992144296%_ - _%tl143993144298%_ - _%e143994144301%_ - _%hd143995144304%_ - _%tl143996144306%_ - _%e143997144309%_ - _%hd143998144312%_ - _%tl143999144314%_)))) - (_%__match146341146342%_ - _%e143964144221%_ - _%hd143965144224%_ - _%tl143966144226%_ - _%e143976144253%_ - _%hd143977144256%_ - _%tl143978144258%_ - _%e143979144261%_ - _%hd143980144264%_ - _%tl143981144266%_ - _%e143982144269%_ - _%hd143983144272%_ - _%tl143984144274%_ - _%e143985144277%_ - _%hd143986144280%_ - _%tl143987144282%_ - _%e143988144285%_ - _%hd143989144288%_ - _%tl143990144290%_ - _%e143991144293%_ - _%hd143992144296%_ - _%tl143993144298%_ - _%e143994144301%_ - _%hd143995144304%_ - _%tl143996144306%_ - _%e143997144309%_ - _%hd143998144312%_ - _%tl143999144314%_)) - (_%__match146341146342%_ - _%e143964144221%_ - _%hd143965144224%_ - _%tl143966144226%_ - _%e143976144253%_ - _%hd143977144256%_ - _%tl143978144258%_ - _%e143979144261%_ - _%hd143980144264%_ - _%tl143981144266%_ - _%e143982144269%_ - _%hd143983144272%_ - _%tl143984144274%_ - _%e143985144277%_ - _%hd143986144280%_ - _%tl143987144282%_ - _%e143988144285%_ - _%hd143989144288%_ - _%tl143990144290%_ - _%e143991144293%_ - _%hd143992144296%_ - _%tl143993144298%_ - _%e143994144301%_ - _%hd143995144304%_ - _%tl143996144306%_ - _%e143997144309%_ - _%hd143998144312%_ - _%tl143999144314%_)) - (_%__match146341146342%_ - _%e143964144221%_ - _%hd143965144224%_ - _%tl143966144226%_ - _%e143976144253%_ - _%hd143977144256%_ - _%tl143978144258%_ - _%e143979144261%_ - _%hd143980144264%_ - _%tl143981144266%_ - _%e143982144269%_ - _%hd143983144272%_ - _%tl143984144274%_ - _%e143985144277%_ - _%hd143986144280%_ - _%tl143987144282%_ - _%e143988144285%_ - _%hd143989144288%_ - _%tl143990144290%_ - _%e143991144293%_ - _%hd143992144296%_ - _%tl143993144298%_ - _%e143994144301%_ - _%hd143995144304%_ - _%tl143996144306%_ - _%e143997144309%_ - _%hd143998144312%_ - _%tl143999144314%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match146341146342%_ - _%e143964144221%_ - _%hd143965144224%_ - _%tl143966144226%_ - _%e143976144253%_ - _%hd143977144256%_ - _%tl143978144258%_ - _%e143979144261%_ - _%hd143980144264%_ - _%tl143981144266%_ - _%e143982144269%_ - _%hd143983144272%_ - _%tl143984144274%_ - _%e143985144277%_ - _%hd143986144280%_ - _%tl143987144282%_ - _%e143988144285%_ - _%hd143989144288%_ - _%tl143990144290%_ - _%e143991144293%_ - _%hd143992144296%_ - _%tl143993144298%_ - _%e143994144301%_ - _%hd143995144304%_ - _%tl143996144306%_ - _%e143997144309%_ - _%hd143998144312%_ - _%tl143999144314%_)))) - (_%__match146341146342%_ - _%e143964144221%_ - _%hd143965144224%_ - _%tl143966144226%_ - _%e143976144253%_ - _%hd143977144256%_ - _%tl143978144258%_ - _%e143979144261%_ - _%hd143980144264%_ - _%tl143981144266%_ - _%e143982144269%_ - _%hd143983144272%_ - _%tl143984144274%_ - _%e143985144277%_ - _%hd143986144280%_ - _%tl143987144282%_ - _%e143988144285%_ - _%hd143989144288%_ - _%tl143990144290%_ - _%e143991144293%_ - _%hd143992144296%_ - _%tl143993144298%_ - _%e143994144301%_ - _%hd143995144304%_ - _%tl143996144306%_ - _%e143997144309%_ - _%hd143998144312%_ - _%tl143999144314%_)))) - (_%__match146341146342%_ - _%e143964144221%_ - _%hd143965144224%_ - _%tl143966144226%_ - _%e143976144253%_ - _%hd143977144256%_ - _%tl143978144258%_ - _%e143979144261%_ - _%hd143980144264%_ - _%tl143981144266%_ - _%e143982144269%_ - _%hd143983144272%_ - _%tl143984144274%_ - _%e143985144277%_ - _%hd143986144280%_ - _%tl143987144282%_ - _%e143988144285%_ - _%hd143989144288%_ - _%tl143990144290%_ - _%e143991144293%_ - _%hd143992144296%_ - _%tl143993144298%_ - _%e143994144301%_ - _%hd143995144304%_ - _%tl143996144306%_ - _%e143997144309%_ - _%hd143998144312%_ - _%tl143999144314%_)) - (_%__match146341146342%_ - _%e143964144221%_ - _%hd143965144224%_ - _%tl143966144226%_ - _%e143976144253%_ - _%hd143977144256%_ - _%tl143978144258%_ - _%e143979144261%_ - _%hd143980144264%_ - _%tl143981144266%_ - _%e143982144269%_ - _%hd143983144272%_ - _%tl143984144274%_ - _%e143985144277%_ - _%hd143986144280%_ - _%tl143987144282%_ - _%e143988144285%_ - _%hd143989144288%_ - _%tl143990144290%_ - _%e143991144293%_ - _%hd143992144296%_ - _%tl143993144298%_ - _%e143994144301%_ - _%hd143995144304%_ - _%tl143996144306%_ - _%e143997144309%_ - _%hd143998144312%_ - _%tl143999144314%_)) - (_%__kont146244146245%_)))) - (_%__kont146244146245%_)) - (_%__kont146244146245%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont146244146245%_)))) - (_%__kont146244146245%_)))) - (_%__kont146244146245%_)) - (_%__kont146244146245%_)))) - (_%__kont146244146245%_)) - (_%__kont146244146245%_)) - (_%__kont146244146245%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont146244146245%_)))) - (_%__kont146244146245%_)) - (_%__kont146244146245%_)) - (_%__kont146244146245%_)))) - (_%__kont146244146245%_)))) - (_%__kont146244146245%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop143970144234%_ - _%target143967144229%_ + (_%__match146615146616%_ + _%e144238144495%_ + _%hd144239144498%_ + _%tl144240144500%_ + _%e144250144527%_ + _%hd144251144530%_ + _%tl144252144532%_ + _%e144253144535%_ + _%hd144254144538%_ + _%tl144255144540%_ + _%e144256144543%_ + _%hd144257144546%_ + _%tl144258144548%_ + _%e144259144551%_ + _%hd144260144554%_ + _%tl144261144556%_ + _%e144262144559%_ + _%hd144263144562%_ + _%tl144264144564%_ + _%e144265144567%_ + _%hd144266144570%_ + _%tl144267144572%_ + _%e144268144575%_ + _%hd144269144578%_ + _%tl144270144580%_ + _%e144271144583%_ + _%hd144272144586%_ + _%tl144273144588%_)) + (_%__match146615146616%_ + _%e144238144495%_ + _%hd144239144498%_ + _%tl144240144500%_ + _%e144250144527%_ + _%hd144251144530%_ + _%tl144252144532%_ + _%e144253144535%_ + _%hd144254144538%_ + _%tl144255144540%_ + _%e144256144543%_ + _%hd144257144546%_ + _%tl144258144548%_ + _%e144259144551%_ + _%hd144260144554%_ + _%tl144261144556%_ + _%e144262144559%_ + _%hd144263144562%_ + _%tl144264144564%_ + _%e144265144567%_ + _%hd144266144570%_ + _%tl144267144572%_ + _%e144268144575%_ + _%hd144269144578%_ + _%tl144270144580%_ + _%e144271144583%_ + _%hd144272144586%_ + _%tl144273144588%_)))) + (_%__match146615146616%_ + _%e144238144495%_ + _%hd144239144498%_ + _%tl144240144500%_ + _%e144250144527%_ + _%hd144251144530%_ + _%tl144252144532%_ + _%e144253144535%_ + _%hd144254144538%_ + _%tl144255144540%_ + _%e144256144543%_ + _%hd144257144546%_ + _%tl144258144548%_ + _%e144259144551%_ + _%hd144260144554%_ + _%tl144261144556%_ + _%e144262144559%_ + _%hd144263144562%_ + _%tl144264144564%_ + _%e144265144567%_ + _%hd144266144570%_ + _%tl144267144572%_ + _%e144268144575%_ + _%hd144269144578%_ + _%tl144270144580%_ + _%e144271144583%_ + _%hd144272144586%_ + _%tl144273144588%_)) + (_%__match146615146616%_ + _%e144238144495%_ + _%hd144239144498%_ + _%tl144240144500%_ + _%e144250144527%_ + _%hd144251144530%_ + _%tl144252144532%_ + _%e144253144535%_ + _%hd144254144538%_ + _%tl144255144540%_ + _%e144256144543%_ + _%hd144257144546%_ + _%tl144258144548%_ + _%e144259144551%_ + _%hd144260144554%_ + _%tl144261144556%_ + _%e144262144559%_ + _%hd144263144562%_ + _%tl144264144564%_ + _%e144265144567%_ + _%hd144266144570%_ + _%tl144267144572%_ + _%e144268144575%_ + _%hd144269144578%_ + _%tl144270144580%_ + _%e144271144583%_ + _%hd144272144586%_ + _%tl144273144588%_)) + (_%__match146615146616%_ + _%e144238144495%_ + _%hd144239144498%_ + _%tl144240144500%_ + _%e144250144527%_ + _%hd144251144530%_ + _%tl144252144532%_ + _%e144253144535%_ + _%hd144254144538%_ + _%tl144255144540%_ + _%e144256144543%_ + _%hd144257144546%_ + _%tl144258144548%_ + _%e144259144551%_ + _%hd144260144554%_ + _%tl144261144556%_ + _%e144262144559%_ + _%hd144263144562%_ + _%tl144264144564%_ + _%e144265144567%_ + _%hd144266144570%_ + _%tl144267144572%_ + _%e144268144575%_ + _%hd144269144578%_ + _%tl144270144580%_ + _%e144271144583%_ + _%hd144272144586%_ + _%tl144273144588%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match146615146616%_ + _%e144238144495%_ + _%hd144239144498%_ + _%tl144240144500%_ + _%e144250144527%_ + _%hd144251144530%_ + _%tl144252144532%_ + _%e144253144535%_ + _%hd144254144538%_ + _%tl144255144540%_ + _%e144256144543%_ + _%hd144257144546%_ + _%tl144258144548%_ + _%e144259144551%_ + _%hd144260144554%_ + _%tl144261144556%_ + _%e144262144559%_ + _%hd144263144562%_ + _%tl144264144564%_ + _%e144265144567%_ + _%hd144266144570%_ + _%tl144267144572%_ + _%e144268144575%_ + _%hd144269144578%_ + _%tl144270144580%_ + _%e144271144583%_ + _%hd144272144586%_ + _%tl144273144588%_)))) + (_%__match146615146616%_ + _%e144238144495%_ + _%hd144239144498%_ + _%tl144240144500%_ + _%e144250144527%_ + _%hd144251144530%_ + _%tl144252144532%_ + _%e144253144535%_ + _%hd144254144538%_ + _%tl144255144540%_ + _%e144256144543%_ + _%hd144257144546%_ + _%tl144258144548%_ + _%e144259144551%_ + _%hd144260144554%_ + _%tl144261144556%_ + _%e144262144559%_ + _%hd144263144562%_ + _%tl144264144564%_ + _%e144265144567%_ + _%hd144266144570%_ + _%tl144267144572%_ + _%e144268144575%_ + _%hd144269144578%_ + _%tl144270144580%_ + _%e144271144583%_ + _%hd144272144586%_ + _%tl144273144588%_)))) + (_%__match146615146616%_ + _%e144238144495%_ + _%hd144239144498%_ + _%tl144240144500%_ + _%e144250144527%_ + _%hd144251144530%_ + _%tl144252144532%_ + _%e144253144535%_ + _%hd144254144538%_ + _%tl144255144540%_ + _%e144256144543%_ + _%hd144257144546%_ + _%tl144258144548%_ + _%e144259144551%_ + _%hd144260144554%_ + _%tl144261144556%_ + _%e144262144559%_ + _%hd144263144562%_ + _%tl144264144564%_ + _%e144265144567%_ + _%hd144266144570%_ + _%tl144267144572%_ + _%e144268144575%_ + _%hd144269144578%_ + _%tl144270144580%_ + _%e144271144583%_ + _%hd144272144586%_ + _%tl144273144588%_)) + (_%__match146615146616%_ + _%e144238144495%_ + _%hd144239144498%_ + _%tl144240144500%_ + _%e144250144527%_ + _%hd144251144530%_ + _%tl144252144532%_ + _%e144253144535%_ + _%hd144254144538%_ + _%tl144255144540%_ + _%e144256144543%_ + _%hd144257144546%_ + _%tl144258144548%_ + _%e144259144551%_ + _%hd144260144554%_ + _%tl144261144556%_ + _%e144262144559%_ + _%hd144263144562%_ + _%tl144264144564%_ + _%e144265144567%_ + _%hd144266144570%_ + _%tl144267144572%_ + _%e144268144575%_ + _%hd144269144578%_ + _%tl144270144580%_ + _%e144271144583%_ + _%hd144272144586%_ + _%tl144273144588%_)) + (_%__kont146518146519%_)))) + (_%__kont146518146519%_)) + (_%__kont146518146519%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont146518146519%_)))) + (_%__kont146518146519%_)))) + (_%__kont146518146519%_)) + (_%__kont146518146519%_)))) + (_%__kont146518146519%_)) + (_%__kont146518146519%_)) + (_%__kont146518146519%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont146518146519%_)))) + (_%__kont146518146519%_)) + (_%__kont146518146519%_)) + (_%__kont146518146519%_)))) + (_%__kont146518146519%_)))) + (_%__kont146518146519%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop144244144508%_ + _%target144241144503%_ '())))) - (_%__match146259146260%_ - (lambda (_%e143916144481%_ - _%hd143917144484%_ - _%tl143918144486%_ - _%__splice146232146233%_ - _%target143919144489%_ - _%tl143921144491%_) - (letrec ((_%loop143922144494%_ - (lambda (_%hd143920144497%_ - _%arg143926144499%_) + (_%__match146533146534%_ + (lambda (_%e144190144755%_ + _%hd144191144758%_ + _%tl144192144760%_ + _%__splice146506146507%_ + _%target144193144763%_ + _%tl144195144765%_) + (letrec ((_%loop144196144768%_ + (lambda (_%hd144194144771%_ + _%arg144200144773%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143920144497%_)) - (let ((_%e143923144502%_ + _%hd144194144771%_)) + (let ((_%e144197144776%_ (let () (declare (not safe)) (gx#stx-e - _%hd143920144497%_)))) - (let ((_%lp-tl143925144507%_ + _%hd144194144771%_)))) + (let ((_%lp-tl144199144781%_ (let () (declare (not safe)) - (##cdr _%e143923144502%_))) - (_%lp-hd143924144505%_ + (##cdr _%e144197144776%_))) + (_%lp-hd144198144779%_ (let () (declare (not safe)) - (##car _%e143923144502%_)))) - (_%loop143922144494%_ - _%lp-tl143925144507%_ - (cons _%lp-hd143924144505%_ - _%arg143926144499%_)))) - (let ((_%arg143927144510%_ - (reverse _%arg143926144499%_))) + (##car _%e144197144776%_)))) + (_%loop144196144768%_ + _%lp-tl144199144781%_ + (cons _%lp-hd144198144779%_ + _%arg144200144773%_)))) + (let ((_%arg144201144784%_ + (reverse _%arg144200144773%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143918144486%_)) - (let ((_%e143928144513%_ + _%tl144192144760%_)) + (let ((_%e144202144787%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl143918144486%_)))) - (let ((_%tl143930144518%_ + (gx#stx-e _%tl144192144760%_)))) + (let ((_%tl144204144792%_ (let () (declare (not safe)) - (##cdr _%e143928144513%_))) - (_%hd143929144516%_ + (##cdr _%e144202144787%_))) + (_%hd144203144790%_ (let () (declare (not safe)) - (##car _%e143928144513%_)))) + (##car _%e144202144787%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd143929144516%_)) - (let ((_%e143931144521%_ + (gx#stx-pair? _%hd144203144790%_)) + (let ((_%e144205144795%_ (let () (declare (not safe)) - (gx#stx-e _%hd143929144516%_)))) - (let ((_%tl143933144526%_ + (gx#stx-e _%hd144203144790%_)))) + (let ((_%tl144207144800%_ (let () (declare (not safe)) - (##cdr _%e143931144521%_))) - (_%hd143932144524%_ + (##cdr _%e144205144795%_))) + (_%hd144206144798%_ (let () (declare (not safe)) - (##car _%e143931144521%_)))) + (##car _%e144205144795%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd143932144524%_)) + (gx#identifier? _%hd144206144798%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd143932144524%_)) + (gx#stx-eq? '%#call _%hd144206144798%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143933144526%_)) - (let ((_%e143934144529%_ + (gx#stx-pair? _%tl144207144800%_)) + (let ((_%e144208144803%_ (let () (declare (not safe)) (gx#stx-e - _%tl143933144526%_)))) - (let ((_%tl143936144534%_ + _%tl144207144800%_)))) + (let ((_%tl144210144808%_ (let () (declare (not safe)) - (##cdr _%e143934144529%_))) - (_%hd143935144532%_ + (##cdr _%e144208144803%_))) + (_%hd144209144806%_ (let () (declare (not safe)) - (##car _%e143934144529%_)))) + (##car _%e144208144803%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143935144532%_)) - (let ((_%e143937144537%_ + _%hd144209144806%_)) + (let ((_%e144211144811%_ (let () (declare (not safe)) (gx#stx-e - _%hd143935144532%_)))) - (let ((_%tl143939144542%_ + _%hd144209144806%_)))) + (let ((_%tl144213144816%_ (let () (declare (not safe)) - (##cdr _%e143937144537%_))) - (_%hd143938144540%_ + (##cdr _%e144211144811%_))) + (_%hd144212144814%_ (let () (declare (not safe)) - (##car _%e143937144537%_)))) + (##car _%e144211144811%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd143938144540%_)) + _%hd144212144814%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd143938144540%_)) + _%hd144212144814%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl143939144542%_)) - (let ((_%e143940144545%_ + (gx#stx-pair? _%tl144213144816%_)) + (let ((_%e144214144819%_ (let () (declare (not safe)) - (gx#stx-e _%tl143939144542%_)))) - (let ((_%tl143942144550%_ + (gx#stx-e _%tl144213144816%_)))) + (let ((_%tl144216144824%_ (let () (declare (not safe)) - (##cdr _%e143940144545%_))) - (_%hd143941144548%_ + (##cdr _%e144214144819%_))) + (_%hd144215144822%_ (let () (declare (not safe)) - (##car _%e143940144545%_)))) + (##car _%e144214144819%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143942144550%_)) + (gx#stx-null? _%tl144216144824%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl143936144534%_)) - (let ((_%__splice146234146235%_ + (gx#stx-pair/null? _%tl144210144808%_)) + (let ((_%__splice146508146509%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl143936144534%_ + _%tl144210144808%_ '0)))) - (let ((_%tl143945144555%_ + (let ((_%tl144219144829%_ (let () (declare (not safe)) (##vector-ref - _%__splice146234146235%_ + _%__splice146508146509%_ '1))) - (_%target143943144553%_ + (_%target144217144827%_ (let () (declare (not safe)) (##vector-ref - _%__splice146234146235%_ + _%__splice146508146509%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143945144555%_)) - (letrec ((_%loop143946144558%_ - (lambda (_%hd143944144561%_ - _%xarg143950144563%_) + _%tl144219144829%_)) + (letrec ((_%loop144220144832%_ + (lambda (_%hd144218144835%_ + _%xarg144224144837%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143944144561%_)) - (let ((_%e143947144566%_ + _%hd144218144835%_)) + (let ((_%e144221144840%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd143944144561%_)))) - (let ((_%lp-tl143949144571%_ + (gx#stx-e _%hd144218144835%_)))) + (let ((_%lp-tl144223144845%_ (let () (declare (not safe)) - (##cdr _%e143947144566%_))) - (_%lp-hd143948144569%_ + (##cdr _%e144221144840%_))) + (_%lp-hd144222144843%_ (let () (declare (not safe)) - (##car _%e143947144566%_)))) + (##car _%e144221144840%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd143948144569%_)) - (let ((_%e143952144574%_ + (gx#stx-pair? _%lp-hd144222144843%_)) + (let ((_%e144226144848%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd143948144569%_)))) - (let ((_%tl143954144579%_ + (gx#stx-e _%lp-hd144222144843%_)))) + (let ((_%tl144228144853%_ (let () (declare (not safe)) - (##cdr _%e143952144574%_))) - (_%hd143953144577%_ + (##cdr _%e144226144848%_))) + (_%hd144227144851%_ (let () (declare (not safe)) - (##car _%e143952144574%_)))) + (##car _%e144226144848%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd143953144577%_)) + (gx#identifier? _%hd144227144851%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd143953144577%_)) + _%hd144227144851%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143954144579%_)) - (let ((_%e143955144582%_ + _%tl144228144853%_)) + (let ((_%e144229144856%_ (let () (declare (not safe)) (gx#stx-e - _%tl143954144579%_)))) - (let ((_%tl143957144587%_ + _%tl144228144853%_)))) + (let ((_%tl144231144861%_ (let () (declare (not safe)) - (##cdr _%e143955144582%_))) - (_%hd143956144585%_ + (##cdr _%e144229144856%_))) + (_%hd144230144859%_ (let () (declare (not safe)) - (##car _%e143955144582%_)))) + (##car _%e144229144856%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143957144587%_)) - (_%loop143946144558%_ - _%lp-tl143949144571%_ - (cons _%hd143956144585%_ - _%xarg143950144563%_)) - (_%__match146271146272%_ - _%e143916144481%_ - _%hd143917144484%_ - _%tl143918144486%_ - _%__splice146232146233%_ - _%target143919144489%_ - _%tl143921144491%_)))) - (_%__match146271146272%_ - _%e143916144481%_ - _%hd143917144484%_ - _%tl143918144486%_ - _%__splice146232146233%_ - _%target143919144489%_ - _%tl143921144491%_)) - (_%__match146271146272%_ - _%e143916144481%_ - _%hd143917144484%_ - _%tl143918144486%_ - _%__splice146232146233%_ - _%target143919144489%_ - _%tl143921144491%_)) - (_%__match146271146272%_ - _%e143916144481%_ - _%hd143917144484%_ - _%tl143918144486%_ - _%__splice146232146233%_ - _%target143919144489%_ - _%tl143921144491%_)))) - (_%__match146271146272%_ - _%e143916144481%_ - _%hd143917144484%_ - _%tl143918144486%_ - _%__splice146232146233%_ - _%target143919144489%_ - _%tl143921144491%_)))) - (let ((_%xarg143951144590%_ - (reverse _%xarg143950144563%_))) + _%tl144231144861%_)) + (_%loop144220144832%_ + _%lp-tl144223144845%_ + (cons _%hd144230144859%_ + _%xarg144224144837%_)) + (_%__match146545146546%_ + _%e144190144755%_ + _%hd144191144758%_ + _%tl144192144760%_ + _%__splice146506146507%_ + _%target144193144763%_ + _%tl144195144765%_)))) + (_%__match146545146546%_ + _%e144190144755%_ + _%hd144191144758%_ + _%tl144192144760%_ + _%__splice146506146507%_ + _%target144193144763%_ + _%tl144195144765%_)) + (_%__match146545146546%_ + _%e144190144755%_ + _%hd144191144758%_ + _%tl144192144760%_ + _%__splice146506146507%_ + _%target144193144763%_ + _%tl144195144765%_)) + (_%__match146545146546%_ + _%e144190144755%_ + _%hd144191144758%_ + _%tl144192144760%_ + _%__splice146506146507%_ + _%target144193144763%_ + _%tl144195144765%_)))) + (_%__match146545146546%_ + _%e144190144755%_ + _%hd144191144758%_ + _%tl144192144760%_ + _%__splice146506146507%_ + _%target144193144763%_ + _%tl144195144765%_)))) + (let ((_%xarg144225144864%_ + (reverse _%xarg144224144837%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143930144518%_)) - (let ((_%L144593%_ _%xarg143951144590%_) - (_%L144594%_ _%hd143941144548%_) - (_%L144595%_ _%arg143927144510%_)) - (if (and (let ((__tmp147525 - (let ((__tmp147526 - (lambda (_%g144623144626%_ - _%g144624144628%_) - (cons _%g144623144626%_ - _%g144624144628%_)))) + (gx#stx-null? _%tl144204144792%_)) + (let ((_%L144867%_ _%xarg144225144864%_) + (_%L144868%_ _%hd144215144822%_) + (_%L144869%_ _%arg144201144784%_)) + (if (and (let ((__tmp147799 + (let ((__tmp147800 + (lambda (_%g144897144900%_ + _%g144898144902%_) + (cons _%g144897144900%_ + _%g144898144902%_)))) (declare (not safe)) (__foldr1 - __tmp147526 + __tmp147800 '() - _%L144595%_)))) + _%L144869%_)))) (declare (not safe)) - (gx#identifier-list? __tmp147525)) - (let ((__tmp147529 - (length (let ((__tmp147530 - (lambda (_%g144630144633%_ + (gx#identifier-list? __tmp147799)) + (let ((__tmp147803 + (length (let ((__tmp147804 + (lambda (_%g144904144907%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g144631144635%_) - (cons _%g144630144633%_ _%g144631144635%_)))) + _%g144905144909%_) + (cons _%g144904144907%_ _%g144905144909%_)))) (declare (not safe)) - (__foldr1 __tmp147530 '() _%L144595%_)))) + (__foldr1 __tmp147804 '() _%L144869%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp147527 - (length (let ((__tmp147528 - (lambda (_%g144637144640%_ + (__tmp147801 + (length (let ((__tmp147802 + (lambda (_%g144911144914%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g144638144642%_) - (cons _%g144637144640%_ _%g144638144642%_)))) + _%g144912144916%_) + (cons _%g144911144914%_ _%g144912144916%_)))) (declare (not safe)) - (__foldr1 __tmp147528 '() _%L144593%_))))) + (__foldr1 __tmp147802 '() _%L144867%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##fx= __tmp147529 __tmp147527)) - (let ((__tmp147533 - (let ((__tmp147534 - (lambda (_%g144644144647%_ - _%g144645144649%_) - (cons _%g144644144647%_ - _%g144645144649%_)))) + (##fx= __tmp147803 __tmp147801)) + (let ((__tmp147807 + (let ((__tmp147808 + (lambda (_%g144918144921%_ + _%g144919144923%_) + (cons _%g144918144921%_ + _%g144919144923%_)))) (declare (not safe)) (__foldr1 - __tmp147534 + __tmp147808 '() - _%L144595%_))) - (__tmp147531 - (let ((__tmp147532 - (lambda (_%g144651144654%_ - _%g144652144656%_) - (cons _%g144651144654%_ - _%g144652144656%_)))) + _%L144869%_))) + (__tmp147805 + (let ((__tmp147806 + (lambda (_%g144925144928%_ + _%g144926144930%_) + (cons _%g144925144928%_ + _%g144926144930%_)))) (declare (not safe)) (__foldr1 - __tmp147532 + __tmp147806 '() - _%L144593%_)))) + _%L144867%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp147533 - __tmp147531)) - (not (let ((__tmp147537 - (lambda (_%g144658144660%_) + __tmp147807 + __tmp147805)) + (not (let ((__tmp147811 + (lambda (_%g144932144934%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g144658144660%_ - _%L144594%_)))) - (__tmp147535 - (let ((__tmp147536 - (lambda (_%g144662144665%_ + _%g144932144934%_ + _%L144868%_)))) + (__tmp147809 + (let ((__tmp147810 + (lambda (_%g144936144939%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g144663144667%_) - (cons _%g144662144665%_ _%g144663144667%_)))) + _%g144937144941%_) + (cons _%g144936144939%_ _%g144937144941%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp147536 + __tmp147810 '() - _%L144595%_)))) + _%L144869%_)))) (declare (not safe)) - (__find __tmp147537 __tmp147535)))) - (_%__kont146230146231%_ - _%L144593%_ - _%L144594%_ - _%L144595%_) - (_%__match146271146272%_ - _%e143916144481%_ - _%hd143917144484%_ - _%tl143918144486%_ - _%__splice146232146233%_ - _%target143919144489%_ - _%tl143921144491%_))) - (_%__match146271146272%_ - _%e143916144481%_ - _%hd143917144484%_ - _%tl143918144486%_ - _%__splice146232146233%_ - _%target143919144489%_ - _%tl143921144491%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop143946144558%_ - _%target143943144553%_ + (__find __tmp147811 __tmp147809)))) + (_%__kont146504146505%_ + _%L144867%_ + _%L144868%_ + _%L144869%_) + (_%__match146545146546%_ + _%e144190144755%_ + _%hd144191144758%_ + _%tl144192144760%_ + _%__splice146506146507%_ + _%target144193144763%_ + _%tl144195144765%_))) + (_%__match146545146546%_ + _%e144190144755%_ + _%hd144191144758%_ + _%tl144192144760%_ + _%__splice146506146507%_ + _%target144193144763%_ + _%tl144195144765%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop144220144832%_ + _%target144217144827%_ '())) - (_%__match146271146272%_ - _%e143916144481%_ - _%hd143917144484%_ - _%tl143918144486%_ - _%__splice146232146233%_ - _%target143919144489%_ - _%tl143921144491%_)))) - (_%__match146271146272%_ - _%e143916144481%_ - _%hd143917144484%_ - _%tl143918144486%_ - _%__splice146232146233%_ - _%target143919144489%_ - _%tl143921144491%_)) - (_%__match146271146272%_ - _%e143916144481%_ - _%hd143917144484%_ - _%tl143918144486%_ - _%__splice146232146233%_ - _%target143919144489%_ - _%tl143921144491%_)))) - (_%__match146271146272%_ - _%e143916144481%_ - _%hd143917144484%_ - _%tl143918144486%_ - _%__splice146232146233%_ - _%target143919144489%_ - _%tl143921144491%_)) - (_%__match146271146272%_ - _%e143916144481%_ - _%hd143917144484%_ - _%tl143918144486%_ - _%__splice146232146233%_ - _%target143919144489%_ - _%tl143921144491%_)) - (_%__match146271146272%_ - _%e143916144481%_ - _%hd143917144484%_ - _%tl143918144486%_ - _%__splice146232146233%_ - _%target143919144489%_ - _%tl143921144491%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match146271146272%_ - _%e143916144481%_ - _%hd143917144484%_ - _%tl143918144486%_ - _%__splice146232146233%_ - _%target143919144489%_ - _%tl143921144491%_)))) - (_%__match146271146272%_ - _%e143916144481%_ - _%hd143917144484%_ - _%tl143918144486%_ - _%__splice146232146233%_ - _%target143919144489%_ - _%tl143921144491%_)) - (_%__match146271146272%_ - _%e143916144481%_ - _%hd143917144484%_ - _%tl143918144486%_ - _%__splice146232146233%_ - _%target143919144489%_ - _%tl143921144491%_)) - (_%__match146271146272%_ - _%e143916144481%_ - _%hd143917144484%_ - _%tl143918144486%_ - _%__splice146232146233%_ - _%target143919144489%_ - _%tl143921144491%_)))) - (_%__match146271146272%_ - _%e143916144481%_ - _%hd143917144484%_ - _%tl143918144486%_ - _%__splice146232146233%_ - _%target143919144489%_ - _%tl143921144491%_)))) - (_%__match146271146272%_ - _%e143916144481%_ - _%hd143917144484%_ - _%tl143918144486%_ - _%__splice146232146233%_ - _%target143919144489%_ - _%tl143921144491%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop143922144494%_ - _%target143919144489%_ + (_%__match146545146546%_ + _%e144190144755%_ + _%hd144191144758%_ + _%tl144192144760%_ + _%__splice146506146507%_ + _%target144193144763%_ + _%tl144195144765%_)))) + (_%__match146545146546%_ + _%e144190144755%_ + _%hd144191144758%_ + _%tl144192144760%_ + _%__splice146506146507%_ + _%target144193144763%_ + _%tl144195144765%_)) + (_%__match146545146546%_ + _%e144190144755%_ + _%hd144191144758%_ + _%tl144192144760%_ + _%__splice146506146507%_ + _%target144193144763%_ + _%tl144195144765%_)))) + (_%__match146545146546%_ + _%e144190144755%_ + _%hd144191144758%_ + _%tl144192144760%_ + _%__splice146506146507%_ + _%target144193144763%_ + _%tl144195144765%_)) + (_%__match146545146546%_ + _%e144190144755%_ + _%hd144191144758%_ + _%tl144192144760%_ + _%__splice146506146507%_ + _%target144193144763%_ + _%tl144195144765%_)) + (_%__match146545146546%_ + _%e144190144755%_ + _%hd144191144758%_ + _%tl144192144760%_ + _%__splice146506146507%_ + _%target144193144763%_ + _%tl144195144765%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match146545146546%_ + _%e144190144755%_ + _%hd144191144758%_ + _%tl144192144760%_ + _%__splice146506146507%_ + _%target144193144763%_ + _%tl144195144765%_)))) + (_%__match146545146546%_ + _%e144190144755%_ + _%hd144191144758%_ + _%tl144192144760%_ + _%__splice146506146507%_ + _%target144193144763%_ + _%tl144195144765%_)) + (_%__match146545146546%_ + _%e144190144755%_ + _%hd144191144758%_ + _%tl144192144760%_ + _%__splice146506146507%_ + _%target144193144763%_ + _%tl144195144765%_)) + (_%__match146545146546%_ + _%e144190144755%_ + _%hd144191144758%_ + _%tl144192144760%_ + _%__splice146506146507%_ + _%target144193144763%_ + _%tl144195144765%_)))) + (_%__match146545146546%_ + _%e144190144755%_ + _%hd144191144758%_ + _%tl144192144760%_ + _%__splice146506146507%_ + _%target144193144763%_ + _%tl144195144765%_)))) + (_%__match146545146546%_ + _%e144190144755%_ + _%hd144191144758%_ + _%tl144192144760%_ + _%__splice146506146507%_ + _%target144193144763%_ + _%tl144195144765%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop144196144768%_ + _%target144193144763%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx146228146229%_)) - (let ((_%e143916144481%_ + (gx#stx-pair? _%__stx146502146503%_)) + (let ((_%e144190144755%_ (let () (declare (not safe)) - (gx#stx-e _%__stx146228146229%_)))) - (let ((_%tl143918144486%_ + (gx#stx-e _%__stx146502146503%_)))) + (let ((_%tl144192144760%_ (let () (declare (not safe)) - (##cdr _%e143916144481%_))) - (_%hd143917144484%_ + (##cdr _%e144190144755%_))) + (_%hd144191144758%_ (let () (declare (not safe)) - (##car _%e143916144481%_)))) + (##car _%e144190144755%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd143917144484%_)) - (let ((_%__splice146232146233%_ + (gx#stx-pair/null? _%hd144191144758%_)) + (let ((_%__splice146506146507%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd143917144484%_ + _%hd144191144758%_ '0)))) - (let ((_%tl143921144491%_ + (let ((_%tl144195144765%_ (let () (declare (not safe)) (##vector-ref - _%__splice146232146233%_ + _%__splice146506146507%_ '1))) - (_%target143919144489%_ + (_%target144193144763%_ (let () (declare (not safe)) (##vector-ref - _%__splice146232146233%_ + _%__splice146506146507%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143921144491%_)) - (_%__match146259146260%_ - _%e143916144481%_ - _%hd143917144484%_ - _%tl143918144486%_ - _%__splice146232146233%_ - _%target143919144489%_ - _%tl143921144491%_) - (_%__match146271146272%_ - _%e143916144481%_ - _%hd143917144484%_ - _%tl143918144486%_ - _%__splice146232146233%_ - _%target143919144489%_ - _%tl143921144491%_)))) + _%tl144195144765%_)) + (_%__match146533146534%_ + _%e144190144755%_ + _%hd144191144758%_ + _%tl144192144760%_ + _%__splice146506146507%_ + _%target144193144763%_ + _%tl144195144765%_) + (_%__match146545146546%_ + _%e144190144755%_ + _%hd144191144758%_ + _%tl144192144760%_ + _%__splice146506146507%_ + _%target144193144763%_ + _%tl144195144765%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143918144486%_)) - (let ((_%e144031144088%_ + (gx#stx-pair? _%tl144192144760%_)) + (let ((_%e144305144362%_ (let () (declare (not safe)) (gx#stx-e - _%tl143918144486%_)))) - (let ((_%tl144033144093%_ + _%tl144192144760%_)))) + (let ((_%tl144307144367%_ (let () (declare (not safe)) - (##cdr _%e144031144088%_))) - (_%hd144032144091%_ + (##cdr _%e144305144362%_))) + (_%hd144306144365%_ (let () (declare (not safe)) - (##car _%e144031144088%_)))) + (##car _%e144305144362%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144032144091%_)) - (let ((_%e144034144096%_ + _%hd144306144365%_)) + (let ((_%e144308144370%_ (let () (declare (not safe)) (gx#stx-e - _%hd144032144091%_)))) - (let ((_%tl144036144101%_ + _%hd144306144365%_)))) + (let ((_%tl144310144375%_ (let () (declare (not safe)) - (##cdr _%e144034144096%_))) - (_%hd144035144099%_ + (##cdr _%e144308144370%_))) + (_%hd144309144373%_ (let () (declare (not safe)) - (##car _%e144034144096%_)))) + (##car _%e144308144370%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd144035144099%_)) + _%hd144309144373%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#call _%hd144035144099%_)) + (gx#stx-eq? '%#call _%hd144309144373%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144036144101%_)) - (let ((_%e144037144104%_ + (gx#stx-pair? _%tl144310144375%_)) + (let ((_%e144311144378%_ (let () (declare (not safe)) - (gx#stx-e _%tl144036144101%_)))) - (let ((_%tl144039144109%_ + (gx#stx-e _%tl144310144375%_)))) + (let ((_%tl144313144383%_ (let () (declare (not safe)) - (##cdr _%e144037144104%_))) - (_%hd144038144107%_ + (##cdr _%e144311144378%_))) + (_%hd144312144381%_ (let () (declare (not safe)) - (##car _%e144037144104%_)))) + (##car _%e144311144378%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd144038144107%_)) - (let ((_%e144040144112%_ + (gx#stx-pair? _%hd144312144381%_)) + (let ((_%e144314144386%_ (let () (declare (not safe)) - (gx#stx-e _%hd144038144107%_)))) - (let ((_%tl144042144117%_ + (gx#stx-e _%hd144312144381%_)))) + (let ((_%tl144316144391%_ (let () (declare (not safe)) - (##cdr _%e144040144112%_))) - (_%hd144041144115%_ + (##cdr _%e144314144386%_))) + (_%hd144315144389%_ (let () (declare (not safe)) - (##car _%e144040144112%_)))) + (##car _%e144314144386%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd144041144115%_)) + _%hd144315144389%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd144041144115%_)) + _%hd144315144389%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144042144117%_)) - (let ((_%e144043144120%_ + _%tl144316144391%_)) + (let ((_%e144317144394%_ (let () (declare (not safe)) (gx#stx-e - _%tl144042144117%_)))) - (let ((_%tl144045144125%_ + _%tl144316144391%_)))) + (let ((_%tl144319144399%_ (let () (declare (not safe)) - (##cdr _%e144043144120%_))) - (_%hd144044144123%_ + (##cdr _%e144317144394%_))) + (_%hd144318144397%_ (let () (declare (not safe)) - (##car _%e144043144120%_)))) + (##car _%e144317144394%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144045144125%_)) + _%tl144319144399%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl144039144109%_)) - (let ((_%e144046144128%_ + (gx#stx-pair? _%tl144313144383%_)) + (let ((_%e144320144402%_ (let () (declare (not safe)) - (gx#stx-e _%tl144039144109%_)))) - (let ((_%tl144048144133%_ + (gx#stx-e _%tl144313144383%_)))) + (let ((_%tl144322144407%_ (let () (declare (not safe)) - (##cdr _%e144046144128%_))) - (_%hd144047144131%_ + (##cdr _%e144320144402%_))) + (_%hd144321144405%_ (let () (declare (not safe)) - (##car _%e144046144128%_)))) + (##car _%e144320144402%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd144047144131%_)) - (let ((_%e144049144136%_ + (gx#stx-pair? _%hd144321144405%_)) + (let ((_%e144323144410%_ (let () (declare (not safe)) - (gx#stx-e _%hd144047144131%_)))) - (let ((_%tl144051144141%_ + (gx#stx-e _%hd144321144405%_)))) + (let ((_%tl144325144415%_ (let () (declare (not safe)) - (##cdr _%e144049144136%_))) - (_%hd144050144139%_ + (##cdr _%e144323144410%_))) + (_%hd144324144413%_ (let () (declare (not safe)) - (##car _%e144049144136%_)))) + (##car _%e144323144410%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd144050144139%_)) + (gx#identifier? _%hd144324144413%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd144050144139%_)) + _%hd144324144413%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144051144141%_)) - (let ((_%e144052144144%_ + _%tl144325144415%_)) + (let ((_%e144326144418%_ (let () (declare (not safe)) (gx#stx-e - _%tl144051144141%_)))) - (let ((_%tl144054144149%_ + _%tl144325144415%_)))) + (let ((_%tl144328144423%_ (let () (declare (not safe)) - (##cdr _%e144052144144%_))) - (_%hd144053144147%_ + (##cdr _%e144326144418%_))) + (_%hd144327144421%_ (let () (declare (not safe)) - (##car _%e144052144144%_)))) + (##car _%e144326144418%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144054144149%_)) + _%tl144328144423%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144048144133%_)) - (let ((_%e144055144152%_ + _%tl144322144407%_)) + (let ((_%e144329144426%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl144048144133%_)))) - (let ((_%tl144057144157%_ + (gx#stx-e _%tl144322144407%_)))) + (let ((_%tl144331144431%_ (let () (declare (not safe)) - (##cdr _%e144055144152%_))) - (_%hd144056144155%_ + (##cdr _%e144329144426%_))) + (_%hd144330144429%_ (let () (declare (not safe)) - (##car _%e144055144152%_)))) + (##car _%e144329144426%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd144056144155%_)) - (let ((_%e144058144160%_ + (gx#stx-pair? _%hd144330144429%_)) + (let ((_%e144332144434%_ (let () (declare (not safe)) - (gx#stx-e _%hd144056144155%_)))) - (let ((_%tl144060144165%_ + (gx#stx-e _%hd144330144429%_)))) + (let ((_%tl144334144439%_ (let () (declare (not safe)) - (##cdr _%e144058144160%_))) - (_%hd144059144163%_ + (##cdr _%e144332144434%_))) + (_%hd144333144437%_ (let () (declare (not safe)) - (##car _%e144058144160%_)))) + (##car _%e144332144434%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd144059144163%_)) + (gx#identifier? _%hd144333144437%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd144059144163%_)) + (gx#stx-eq? '%#ref _%hd144333144437%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144060144165%_)) - (let ((_%e144061144168%_ + (gx#stx-pair? _%tl144334144439%_)) + (let ((_%e144335144442%_ (let () (declare (not safe)) (gx#stx-e - _%tl144060144165%_)))) - (let ((_%tl144063144173%_ + _%tl144334144439%_)))) + (let ((_%tl144337144447%_ (let () (declare (not safe)) - (##cdr _%e144061144168%_))) - (_%hd144062144171%_ + (##cdr _%e144335144442%_))) + (_%hd144336144445%_ (let () (declare (not safe)) - (##car _%e144061144168%_)))) + (##car _%e144335144442%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144063144173%_)) + _%tl144337144447%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144057144157%_)) + _%tl144331144431%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144033144093%_)) - (_%__match146369146370%_ - _%e143916144481%_ - _%hd143917144484%_ - _%tl143918144486%_ - _%e144031144088%_ - _%hd144032144091%_ - _%tl144033144093%_ - _%e144034144096%_ - _%hd144035144099%_ - _%tl144036144101%_ - _%e144037144104%_ - _%hd144038144107%_ - _%tl144039144109%_ - _%e144040144112%_ - _%hd144041144115%_ - _%tl144042144117%_ - _%e144043144120%_ - _%hd144044144123%_ - _%tl144045144125%_ - _%e144046144128%_ - _%hd144047144131%_ - _%tl144048144133%_ - _%e144049144136%_ - _%hd144050144139%_ - _%tl144051144141%_ - _%e144052144144%_ - _%hd144053144147%_ - _%tl144054144149%_ - _%e144055144152%_ - _%hd144056144155%_ - _%tl144057144157%_ - _%e144058144160%_ - _%hd144059144163%_ - _%tl144060144165%_ - _%e144061144168%_ - _%hd144062144171%_ - _%tl144063144173%_) - (_%__kont146244146245%_)) - (_%__kont146244146245%_)) - (_%__kont146244146245%_)))) - (_%__kont146244146245%_)) - (_%__kont146244146245%_)) - (_%__kont146244146245%_)))) - (_%__kont146244146245%_)))) - (_%__kont146244146245%_)) - (_%__kont146244146245%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont146244146245%_)) - (_%__kont146244146245%_)) - (_%__kont146244146245%_)))) - (_%__kont146244146245%_)))) - (_%__kont146244146245%_)) - (_%__kont146244146245%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont146244146245%_)) - (_%__kont146244146245%_)) - (_%__kont146244146245%_)))) - (_%__kont146244146245%_)))) - (_%__kont146244146245%_)) - (_%__kont146244146245%_)) - (_%__kont146244146245%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont146244146245%_)))) - (_%__kont146244146245%_))))) - (_%__kont146244146245%_))))))) - (_%dispatch-case-e143216%_ - (lambda (_%hd143367%_ _%body143368%_) - (let* ((_%form143370%_ - (cons _%hd143367%_ (cons _%body143368%_ '()))) - (_%__stx146372146373%_ _%form143370%_) - (_%g143374143498%_ + _%tl144307144367%_)) + (_%__match146643146644%_ + _%e144190144755%_ + _%hd144191144758%_ + _%tl144192144760%_ + _%e144305144362%_ + _%hd144306144365%_ + _%tl144307144367%_ + _%e144308144370%_ + _%hd144309144373%_ + _%tl144310144375%_ + _%e144311144378%_ + _%hd144312144381%_ + _%tl144313144383%_ + _%e144314144386%_ + _%hd144315144389%_ + _%tl144316144391%_ + _%e144317144394%_ + _%hd144318144397%_ + _%tl144319144399%_ + _%e144320144402%_ + _%hd144321144405%_ + _%tl144322144407%_ + _%e144323144410%_ + _%hd144324144413%_ + _%tl144325144415%_ + _%e144326144418%_ + _%hd144327144421%_ + _%tl144328144423%_ + _%e144329144426%_ + _%hd144330144429%_ + _%tl144331144431%_ + _%e144332144434%_ + _%hd144333144437%_ + _%tl144334144439%_ + _%e144335144442%_ + _%hd144336144445%_ + _%tl144337144447%_) + (_%__kont146518146519%_)) + (_%__kont146518146519%_)) + (_%__kont146518146519%_)))) + (_%__kont146518146519%_)) + (_%__kont146518146519%_)) + (_%__kont146518146519%_)))) + (_%__kont146518146519%_)))) + (_%__kont146518146519%_)) + (_%__kont146518146519%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont146518146519%_)) + (_%__kont146518146519%_)) + (_%__kont146518146519%_)))) + (_%__kont146518146519%_)))) + (_%__kont146518146519%_)) + (_%__kont146518146519%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont146518146519%_)) + (_%__kont146518146519%_)) + (_%__kont146518146519%_)))) + (_%__kont146518146519%_)))) + (_%__kont146518146519%_)) + (_%__kont146518146519%_)) + (_%__kont146518146519%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont146518146519%_)))) + (_%__kont146518146519%_))))) + (_%__kont146518146519%_))))))) + (_%dispatch-case-e143490%_ + (lambda (_%hd143641%_ _%body143642%_) + (let* ((_%form143644%_ + (cons _%hd143641%_ (cons _%body143642%_ '()))) + (_%__stx146646146647%_ _%form143644%_) + (_%g143648143772%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx146372146373%_))))) - (let ((_%__kont146374146375%_ - (lambda (_%L143869%_ _%L143870%_ _%L143871%_) - (let ((__tmp147538 + _%__stx146646146647%_))))) + (let ((_%__kont146648146649%_ + (lambda (_%L144143%_ _%L144144%_ _%L144145%_) + (let ((__tmp147812 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L143870%_ '())))) + (cons _%L144144%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self143212%_ - __tmp147538)))) - (_%__kont146380146381%_ - (lambda (_%L143717%_ - _%L143718%_ - _%L143719%_ - _%L143720%_) - (let ((__tmp147539 + _%self143486%_ + __tmp147812)))) + (_%__kont146654146655%_ + (lambda (_%L143991%_ + _%L143992%_ + _%L143993%_ + _%L143994%_) + (let ((__tmp147813 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L143717%_ '())))) + (cons _%L143991%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self143212%_ - __tmp147539)))) - (_%__kont146384146385%_ - (lambda (_%L143583%_ _%L143584%_ _%L143585%_) - (let ((__tmp147540 + _%self143486%_ + __tmp147813)))) + (_%__kont146658146659%_ + (lambda (_%L143857%_ _%L143858%_ _%L143859%_) + (let ((__tmp147814 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L143583%_ '())))) + (cons _%L143857%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self143212%_ - __tmp147540))))) - (let* ((_%__match146481146482%_ - (lambda (_%e143464143503%_ - _%hd143465143506%_ - _%tl143466143508%_ - _%e143467143511%_ - _%hd143468143514%_ - _%tl143469143516%_ - _%e143470143519%_ - _%hd143471143522%_ - _%tl143472143524%_ - _%e143473143527%_ - _%hd143474143530%_ - _%tl143475143532%_ - _%e143476143535%_ - _%hd143477143538%_ - _%tl143478143540%_ - _%e143479143543%_ - _%hd143480143546%_ - _%tl143481143548%_ - _%e143482143551%_ - _%hd143483143554%_ - _%tl143484143556%_ - _%e143485143559%_ - _%hd143486143562%_ - _%tl143487143564%_ - _%e143488143567%_ - _%hd143489143570%_ - _%tl143490143572%_) + _%self143486%_ + __tmp147814))))) + (let* ((_%__match146755146756%_ + (lambda (_%e143738143777%_ + _%hd143739143780%_ + _%tl143740143782%_ + _%e143741143785%_ + _%hd143742143788%_ + _%tl143743143790%_ + _%e143744143793%_ + _%hd143745143796%_ + _%tl143746143798%_ + _%e143747143801%_ + _%hd143748143804%_ + _%tl143749143806%_ + _%e143750143809%_ + _%hd143751143812%_ + _%tl143752143814%_ + _%e143753143817%_ + _%hd143754143820%_ + _%tl143755143822%_ + _%e143756143825%_ + _%hd143757143828%_ + _%tl143758143830%_ + _%e143759143833%_ + _%hd143760143836%_ + _%tl143761143838%_ + _%e143762143841%_ + _%hd143763143844%_ + _%tl143764143846%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143484143556%_)) - (let ((_%e143491143575%_ + (gx#stx-pair? _%tl143758143830%_)) + (let ((_%e143765143849%_ (let () (declare (not safe)) - (gx#stx-e _%tl143484143556%_)))) - (let ((_%tl143493143580%_ + (gx#stx-e _%tl143758143830%_)))) + (let ((_%tl143767143854%_ (let () (declare (not safe)) - (##cdr _%e143491143575%_))) - (_%hd143492143578%_ + (##cdr _%e143765143849%_))) + (_%hd143766143852%_ (let () (declare (not safe)) - (##car _%e143491143575%_)))) + (##car _%e143765143849%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143493143580%_)) + _%tl143767143854%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143469143516%_)) - (_%__kont146384146385%_ - _%hd143489143570%_ - _%hd143480143546%_ - _%hd143465143506%_) + _%tl143743143790%_)) + (_%__kont146658146659%_ + _%hd143763143844%_ + _%hd143754143820%_ + _%hd143739143780%_) (let () (declare (not safe)) - (_%g143374143498%_))) + (_%g143648143772%_))) (let () (declare (not safe)) - (_%g143374143498%_))))) + (_%g143648143772%_))))) (let () (declare (not safe)) - (_%g143374143498%_))))) - (_%__match146411146412%_ - (lambda (_%e143425143621%_ - _%hd143426143624%_ - _%tl143427143626%_ - _%__splice146382146383%_ - _%target143428143629%_ - _%tl143430143631%_) - (letrec ((_%loop143431143634%_ - (lambda (_%hd143429143637%_ - _%arg143435143639%_) + (_%g143648143772%_))))) + (_%__match146685146686%_ + (lambda (_%e143699143895%_ + _%hd143700143898%_ + _%tl143701143900%_ + _%__splice146656146657%_ + _%target143702143903%_ + _%tl143704143905%_) + (letrec ((_%loop143705143908%_ + (lambda (_%hd143703143911%_ + _%arg143709143913%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143429143637%_)) - (let ((_%e143432143642%_ + _%hd143703143911%_)) + (let ((_%e143706143916%_ (let () (declare (not safe)) (gx#stx-e - _%hd143429143637%_)))) - (let ((_%lp-tl143434143647%_ + _%hd143703143911%_)))) + (let ((_%lp-tl143708143921%_ (let () (declare (not safe)) - (##cdr _%e143432143642%_))) - (_%lp-hd143433143645%_ + (##cdr _%e143706143916%_))) + (_%lp-hd143707143919%_ (let () (declare (not safe)) - (##car _%e143432143642%_)))) - (_%loop143431143634%_ - _%lp-tl143434143647%_ - (cons _%lp-hd143433143645%_ - _%arg143435143639%_)))) - (let ((_%arg143436143650%_ - (reverse _%arg143435143639%_))) + (##car _%e143706143916%_)))) + (_%loop143705143908%_ + _%lp-tl143708143921%_ + (cons _%lp-hd143707143919%_ + _%arg143709143913%_)))) + (let ((_%arg143710143924%_ + (reverse _%arg143709143913%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143427143626%_)) - (let ((_%e143437143653%_ + _%tl143701143900%_)) + (let ((_%e143711143927%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl143427143626%_)))) - (let ((_%tl143439143658%_ + (gx#stx-e _%tl143701143900%_)))) + (let ((_%tl143713143932%_ (let () (declare (not safe)) - (##cdr _%e143437143653%_))) - (_%hd143438143656%_ + (##cdr _%e143711143927%_))) + (_%hd143712143930%_ (let () (declare (not safe)) - (##car _%e143437143653%_)))) + (##car _%e143711143927%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd143438143656%_)) - (let ((_%e143440143661%_ + (gx#stx-pair? _%hd143712143930%_)) + (let ((_%e143714143935%_ (let () (declare (not safe)) - (gx#stx-e _%hd143438143656%_)))) - (let ((_%tl143442143666%_ + (gx#stx-e _%hd143712143930%_)))) + (let ((_%tl143716143940%_ (let () (declare (not safe)) - (##cdr _%e143440143661%_))) - (_%hd143441143664%_ + (##cdr _%e143714143935%_))) + (_%hd143715143938%_ (let () (declare (not safe)) - (##car _%e143440143661%_)))) + (##car _%e143714143935%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd143441143664%_)) + (gx#identifier? _%hd143715143938%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd143441143664%_)) + (gx#stx-eq? '%#call _%hd143715143938%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143442143666%_)) - (let ((_%e143443143669%_ + (gx#stx-pair? _%tl143716143940%_)) + (let ((_%e143717143943%_ (let () (declare (not safe)) (gx#stx-e - _%tl143442143666%_)))) - (let ((_%tl143445143674%_ + _%tl143716143940%_)))) + (let ((_%tl143719143948%_ (let () (declare (not safe)) - (##cdr _%e143443143669%_))) - (_%hd143444143672%_ + (##cdr _%e143717143943%_))) + (_%hd143718143946%_ (let () (declare (not safe)) - (##car _%e143443143669%_)))) + (##car _%e143717143943%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143444143672%_)) - (let ((_%e143446143677%_ + _%hd143718143946%_)) + (let ((_%e143720143951%_ (let () (declare (not safe)) (gx#stx-e - _%hd143444143672%_)))) - (let ((_%tl143448143682%_ + _%hd143718143946%_)))) + (let ((_%tl143722143956%_ (let () (declare (not safe)) - (##cdr _%e143446143677%_))) - (_%hd143447143680%_ + (##cdr _%e143720143951%_))) + (_%hd143721143954%_ (let () (declare (not safe)) - (##car _%e143446143677%_)))) + (##car _%e143720143951%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd143447143680%_)) + _%hd143721143954%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd143447143680%_)) + _%hd143721143954%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl143448143682%_)) - (let ((_%e143449143685%_ + (gx#stx-pair? _%tl143722143956%_)) + (let ((_%e143723143959%_ (let () (declare (not safe)) - (gx#stx-e _%tl143448143682%_)))) - (let ((_%tl143451143690%_ + (gx#stx-e _%tl143722143956%_)))) + (let ((_%tl143725143964%_ (let () (declare (not safe)) - (##cdr _%e143449143685%_))) - (_%hd143450143688%_ + (##cdr _%e143723143959%_))) + (_%hd143724143962%_ (let () (declare (not safe)) - (##car _%e143449143685%_)))) + (##car _%e143723143959%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143451143690%_)) + (gx#stx-null? _%tl143725143964%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143445143674%_)) - (let ((_%e143452143693%_ + (gx#stx-pair? _%tl143719143948%_)) + (let ((_%e143726143967%_ (let () (declare (not safe)) - (gx#stx-e _%tl143445143674%_)))) - (let ((_%tl143454143698%_ + (gx#stx-e _%tl143719143948%_)))) + (let ((_%tl143728143972%_ (let () (declare (not safe)) - (##cdr _%e143452143693%_))) - (_%hd143453143696%_ + (##cdr _%e143726143967%_))) + (_%hd143727143970%_ (let () (declare (not safe)) - (##car _%e143452143693%_)))) + (##car _%e143726143967%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143453143696%_)) - (let ((_%e143455143701%_ + _%hd143727143970%_)) + (let ((_%e143729143975%_ (let () (declare (not safe)) (gx#stx-e - _%hd143453143696%_)))) - (let ((_%tl143457143706%_ + _%hd143727143970%_)))) + (let ((_%tl143731143980%_ (let () (declare (not safe)) - (##cdr _%e143455143701%_))) - (_%hd143456143704%_ + (##cdr _%e143729143975%_))) + (_%hd143730143978%_ (let () (declare (not safe)) - (##car _%e143455143701%_)))) + (##car _%e143729143975%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd143456143704%_)) + _%hd143730143978%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd143456143704%_)) + _%hd143730143978%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143457143706%_)) - (let ((_%e143458143709%_ + _%tl143731143980%_)) + (let ((_%e143732143983%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl143457143706%_)))) - (let ((_%tl143460143714%_ + (gx#stx-e _%tl143731143980%_)))) + (let ((_%tl143734143988%_ (let () (declare (not safe)) - (##cdr _%e143458143709%_))) - (_%hd143459143712%_ + (##cdr _%e143732143983%_))) + (_%hd143733143986%_ (let () (declare (not safe)) - (##car _%e143458143709%_)))) + (##car _%e143732143983%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143460143714%_)) + (gx#stx-null? _%tl143734143988%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143439143658%_)) - (_%__kont146380146381%_ - _%hd143459143712%_ - _%hd143450143688%_ - _%tl143430143631%_ - _%arg143436143650%_) - (_%__match146481146482%_ - _%e143425143621%_ - _%hd143426143624%_ - _%tl143427143626%_ - _%e143437143653%_ - _%hd143438143656%_ - _%tl143439143658%_ - _%e143440143661%_ - _%hd143441143664%_ - _%tl143442143666%_ - _%e143443143669%_ - _%hd143444143672%_ - _%tl143445143674%_ - _%e143446143677%_ - _%hd143447143680%_ - _%tl143448143682%_ - _%e143449143685%_ - _%hd143450143688%_ - _%tl143451143690%_ - _%e143452143693%_ - _%hd143453143696%_ - _%tl143454143698%_ - _%e143455143701%_ - _%hd143456143704%_ - _%tl143457143706%_ - _%e143458143709%_ - _%hd143459143712%_ - _%tl143460143714%_)) + (gx#stx-null? _%tl143713143932%_)) + (_%__kont146654146655%_ + _%hd143733143986%_ + _%hd143724143962%_ + _%tl143704143905%_ + _%arg143710143924%_) + (_%__match146755146756%_ + _%e143699143895%_ + _%hd143700143898%_ + _%tl143701143900%_ + _%e143711143927%_ + _%hd143712143930%_ + _%tl143713143932%_ + _%e143714143935%_ + _%hd143715143938%_ + _%tl143716143940%_ + _%e143717143943%_ + _%hd143718143946%_ + _%tl143719143948%_ + _%e143720143951%_ + _%hd143721143954%_ + _%tl143722143956%_ + _%e143723143959%_ + _%hd143724143962%_ + _%tl143725143964%_ + _%e143726143967%_ + _%hd143727143970%_ + _%tl143728143972%_ + _%e143729143975%_ + _%hd143730143978%_ + _%tl143731143980%_ + _%e143732143983%_ + _%hd143733143986%_ + _%tl143734143988%_)) (let () (declare (not safe)) - (_%g143374143498%_))))) - (let () (declare (not safe)) (_%g143374143498%_))) - (let () (declare (not safe)) (_%g143374143498%_))) + (_%g143648143772%_))))) + (let () (declare (not safe)) (_%g143648143772%_))) + (let () (declare (not safe)) (_%g143648143772%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g143374143498%_))))) + (_%g143648143772%_))))) (let () (declare (not safe)) - (_%g143374143498%_))))) + (_%g143648143772%_))))) (let () (declare (not safe)) - (_%g143374143498%_))) + (_%g143648143772%_))) (let () (declare (not safe)) - (_%g143374143498%_))))) - (let () (declare (not safe)) (_%g143374143498%_))) - (let () (declare (not safe)) (_%g143374143498%_))) - (let () (declare (not safe)) (_%g143374143498%_))))) + (_%g143648143772%_))))) + (let () (declare (not safe)) (_%g143648143772%_))) + (let () (declare (not safe)) (_%g143648143772%_))) + (let () (declare (not safe)) (_%g143648143772%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g143374143498%_))))) + (_%g143648143772%_))))) (let () (declare (not safe)) - (_%g143374143498%_))) + (_%g143648143772%_))) (let () (declare (not safe)) - (_%g143374143498%_))) + (_%g143648143772%_))) (let () (declare (not safe)) - (_%g143374143498%_))))) - (let () (declare (not safe)) (_%g143374143498%_))))) - (let () (declare (not safe)) (_%g143374143498%_)))))))) + (_%g143648143772%_))))) + (let () (declare (not safe)) (_%g143648143772%_))))) + (let () (declare (not safe)) (_%g143648143772%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop143431143634%_ - _%target143428143629%_ + (_%loop143705143908%_ + _%target143702143903%_ '())))) - (_%__match146399146400%_ - (lambda (_%e143379143757%_ - _%hd143380143760%_ - _%tl143381143762%_ - _%__splice146376146377%_ - _%target143382143765%_ - _%tl143384143767%_) - (letrec ((_%loop143385143770%_ - (lambda (_%hd143383143773%_ - _%arg143389143775%_) + (_%__match146673146674%_ + (lambda (_%e143653144031%_ + _%hd143654144034%_ + _%tl143655144036%_ + _%__splice146650146651%_ + _%target143656144039%_ + _%tl143658144041%_) + (letrec ((_%loop143659144044%_ + (lambda (_%hd143657144047%_ + _%arg143663144049%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143383143773%_)) - (let ((_%e143386143778%_ + _%hd143657144047%_)) + (let ((_%e143660144052%_ (let () (declare (not safe)) (gx#stx-e - _%hd143383143773%_)))) - (let ((_%lp-tl143388143783%_ + _%hd143657144047%_)))) + (let ((_%lp-tl143662144057%_ (let () (declare (not safe)) - (##cdr _%e143386143778%_))) - (_%lp-hd143387143781%_ + (##cdr _%e143660144052%_))) + (_%lp-hd143661144055%_ (let () (declare (not safe)) - (##car _%e143386143778%_)))) - (_%loop143385143770%_ - _%lp-tl143388143783%_ - (cons _%lp-hd143387143781%_ - _%arg143389143775%_)))) - (let ((_%arg143390143786%_ - (reverse _%arg143389143775%_))) + (##car _%e143660144052%_)))) + (_%loop143659144044%_ + _%lp-tl143662144057%_ + (cons _%lp-hd143661144055%_ + _%arg143663144049%_)))) + (let ((_%arg143664144060%_ + (reverse _%arg143663144049%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143381143762%_)) - (let ((_%e143391143789%_ + _%tl143655144036%_)) + (let ((_%e143665144063%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl143381143762%_)))) - (let ((_%tl143393143794%_ + (gx#stx-e _%tl143655144036%_)))) + (let ((_%tl143667144068%_ (let () (declare (not safe)) - (##cdr _%e143391143789%_))) - (_%hd143392143792%_ + (##cdr _%e143665144063%_))) + (_%hd143666144066%_ (let () (declare (not safe)) - (##car _%e143391143789%_)))) + (##car _%e143665144063%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd143392143792%_)) - (let ((_%e143394143797%_ + (gx#stx-pair? _%hd143666144066%_)) + (let ((_%e143668144071%_ (let () (declare (not safe)) - (gx#stx-e _%hd143392143792%_)))) - (let ((_%tl143396143802%_ + (gx#stx-e _%hd143666144066%_)))) + (let ((_%tl143670144076%_ (let () (declare (not safe)) - (##cdr _%e143394143797%_))) - (_%hd143395143800%_ + (##cdr _%e143668144071%_))) + (_%hd143669144074%_ (let () (declare (not safe)) - (##car _%e143394143797%_)))) + (##car _%e143668144071%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd143395143800%_)) + (gx#identifier? _%hd143669144074%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd143395143800%_)) + (gx#stx-eq? '%#call _%hd143669144074%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143396143802%_)) - (let ((_%e143397143805%_ + (gx#stx-pair? _%tl143670144076%_)) + (let ((_%e143671144079%_ (let () (declare (not safe)) (gx#stx-e - _%tl143396143802%_)))) - (let ((_%tl143399143810%_ + _%tl143670144076%_)))) + (let ((_%tl143673144084%_ (let () (declare (not safe)) - (##cdr _%e143397143805%_))) - (_%hd143398143808%_ + (##cdr _%e143671144079%_))) + (_%hd143672144082%_ (let () (declare (not safe)) - (##car _%e143397143805%_)))) + (##car _%e143671144079%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143398143808%_)) - (let ((_%e143400143813%_ + _%hd143672144082%_)) + (let ((_%e143674144087%_ (let () (declare (not safe)) (gx#stx-e - _%hd143398143808%_)))) - (let ((_%tl143402143818%_ + _%hd143672144082%_)))) + (let ((_%tl143676144092%_ (let () (declare (not safe)) - (##cdr _%e143400143813%_))) - (_%hd143401143816%_ + (##cdr _%e143674144087%_))) + (_%hd143675144090%_ (let () (declare (not safe)) - (##car _%e143400143813%_)))) + (##car _%e143674144087%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd143401143816%_)) + _%hd143675144090%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd143401143816%_)) + _%hd143675144090%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl143402143818%_)) - (let ((_%e143403143821%_ + (gx#stx-pair? _%tl143676144092%_)) + (let ((_%e143677144095%_ (let () (declare (not safe)) - (gx#stx-e _%tl143402143818%_)))) - (let ((_%tl143405143826%_ + (gx#stx-e _%tl143676144092%_)))) + (let ((_%tl143679144100%_ (let () (declare (not safe)) - (##cdr _%e143403143821%_))) - (_%hd143404143824%_ + (##cdr _%e143677144095%_))) + (_%hd143678144098%_ (let () (declare (not safe)) - (##car _%e143403143821%_)))) + (##car _%e143677144095%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143405143826%_)) + (gx#stx-null? _%tl143679144100%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl143399143810%_)) - (let ((_%__splice146378146379%_ + (gx#stx-pair/null? _%tl143673144084%_)) + (let ((_%__splice146652146653%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl143399143810%_ + _%tl143673144084%_ '0)))) - (let ((_%tl143408143831%_ + (let ((_%tl143682144105%_ (let () (declare (not safe)) (##vector-ref - _%__splice146378146379%_ + _%__splice146652146653%_ '1))) - (_%target143406143829%_ + (_%target143680144103%_ (let () (declare (not safe)) (##vector-ref - _%__splice146378146379%_ + _%__splice146652146653%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143408143831%_)) - (letrec ((_%loop143409143834%_ - (lambda (_%hd143407143837%_ - _%xarg143413143839%_) + _%tl143682144105%_)) + (letrec ((_%loop143683144108%_ + (lambda (_%hd143681144111%_ + _%xarg143687144113%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143407143837%_)) - (let ((_%e143410143842%_ + _%hd143681144111%_)) + (let ((_%e143684144116%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd143407143837%_)))) - (let ((_%lp-tl143412143847%_ + (gx#stx-e _%hd143681144111%_)))) + (let ((_%lp-tl143686144121%_ (let () (declare (not safe)) - (##cdr _%e143410143842%_))) - (_%lp-hd143411143845%_ + (##cdr _%e143684144116%_))) + (_%lp-hd143685144119%_ (let () (declare (not safe)) - (##car _%e143410143842%_)))) + (##car _%e143684144116%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd143411143845%_)) - (let ((_%e143415143850%_ + (gx#stx-pair? _%lp-hd143685144119%_)) + (let ((_%e143689144124%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd143411143845%_)))) - (let ((_%tl143417143855%_ + (gx#stx-e _%lp-hd143685144119%_)))) + (let ((_%tl143691144129%_ (let () (declare (not safe)) - (##cdr _%e143415143850%_))) - (_%hd143416143853%_ + (##cdr _%e143689144124%_))) + (_%hd143690144127%_ (let () (declare (not safe)) - (##car _%e143415143850%_)))) + (##car _%e143689144124%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd143416143853%_)) + (gx#identifier? _%hd143690144127%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd143416143853%_)) + _%hd143690144127%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143417143855%_)) - (let ((_%e143418143858%_ + _%tl143691144129%_)) + (let ((_%e143692144132%_ (let () (declare (not safe)) (gx#stx-e - _%tl143417143855%_)))) - (let ((_%tl143420143863%_ + _%tl143691144129%_)))) + (let ((_%tl143694144137%_ (let () (declare (not safe)) - (##cdr _%e143418143858%_))) - (_%hd143419143861%_ + (##cdr _%e143692144132%_))) + (_%hd143693144135%_ (let () (declare (not safe)) - (##car _%e143418143858%_)))) + (##car _%e143692144132%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143420143863%_)) - (_%loop143409143834%_ - _%lp-tl143412143847%_ - (cons _%hd143419143861%_ - _%xarg143413143839%_)) - (_%__match146411146412%_ - _%e143379143757%_ - _%hd143380143760%_ - _%tl143381143762%_ - _%__splice146376146377%_ - _%target143382143765%_ - _%tl143384143767%_)))) - (_%__match146411146412%_ - _%e143379143757%_ - _%hd143380143760%_ - _%tl143381143762%_ - _%__splice146376146377%_ - _%target143382143765%_ - _%tl143384143767%_)) - (_%__match146411146412%_ - _%e143379143757%_ - _%hd143380143760%_ - _%tl143381143762%_ - _%__splice146376146377%_ - _%target143382143765%_ - _%tl143384143767%_)) - (_%__match146411146412%_ - _%e143379143757%_ - _%hd143380143760%_ - _%tl143381143762%_ - _%__splice146376146377%_ - _%target143382143765%_ - _%tl143384143767%_)))) - (_%__match146411146412%_ - _%e143379143757%_ - _%hd143380143760%_ - _%tl143381143762%_ - _%__splice146376146377%_ - _%target143382143765%_ - _%tl143384143767%_)))) - (let ((_%xarg143414143866%_ - (reverse _%xarg143413143839%_))) + _%tl143694144137%_)) + (_%loop143683144108%_ + _%lp-tl143686144121%_ + (cons _%hd143693144135%_ + _%xarg143687144113%_)) + (_%__match146685146686%_ + _%e143653144031%_ + _%hd143654144034%_ + _%tl143655144036%_ + _%__splice146650146651%_ + _%target143656144039%_ + _%tl143658144041%_)))) + (_%__match146685146686%_ + _%e143653144031%_ + _%hd143654144034%_ + _%tl143655144036%_ + _%__splice146650146651%_ + _%target143656144039%_ + _%tl143658144041%_)) + (_%__match146685146686%_ + _%e143653144031%_ + _%hd143654144034%_ + _%tl143655144036%_ + _%__splice146650146651%_ + _%target143656144039%_ + _%tl143658144041%_)) + (_%__match146685146686%_ + _%e143653144031%_ + _%hd143654144034%_ + _%tl143655144036%_ + _%__splice146650146651%_ + _%target143656144039%_ + _%tl143658144041%_)))) + (_%__match146685146686%_ + _%e143653144031%_ + _%hd143654144034%_ + _%tl143655144036%_ + _%__splice146650146651%_ + _%target143656144039%_ + _%tl143658144041%_)))) + (let ((_%xarg143688144140%_ + (reverse _%xarg143687144113%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143393143794%_)) - (_%__kont146374146375%_ - _%xarg143414143866%_ - _%hd143404143824%_ - _%arg143390143786%_) - (_%__match146411146412%_ - _%e143379143757%_ - _%hd143380143760%_ - _%tl143381143762%_ - _%__splice146376146377%_ - _%target143382143765%_ - _%tl143384143767%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop143409143834%_ - _%target143406143829%_ + (gx#stx-null? _%tl143667144068%_)) + (_%__kont146648146649%_ + _%xarg143688144140%_ + _%hd143678144098%_ + _%arg143664144060%_) + (_%__match146685146686%_ + _%e143653144031%_ + _%hd143654144034%_ + _%tl143655144036%_ + _%__splice146650146651%_ + _%target143656144039%_ + _%tl143658144041%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop143683144108%_ + _%target143680144103%_ '())) - (_%__match146411146412%_ - _%e143379143757%_ - _%hd143380143760%_ - _%tl143381143762%_ - _%__splice146376146377%_ - _%target143382143765%_ - _%tl143384143767%_)))) - (_%__match146411146412%_ - _%e143379143757%_ - _%hd143380143760%_ - _%tl143381143762%_ - _%__splice146376146377%_ - _%target143382143765%_ - _%tl143384143767%_)) - (_%__match146411146412%_ - _%e143379143757%_ - _%hd143380143760%_ - _%tl143381143762%_ - _%__splice146376146377%_ - _%target143382143765%_ - _%tl143384143767%_)))) - (_%__match146411146412%_ - _%e143379143757%_ - _%hd143380143760%_ - _%tl143381143762%_ - _%__splice146376146377%_ - _%target143382143765%_ - _%tl143384143767%_)) - (_%__match146411146412%_ - _%e143379143757%_ - _%hd143380143760%_ - _%tl143381143762%_ - _%__splice146376146377%_ - _%target143382143765%_ - _%tl143384143767%_)) - (_%__match146411146412%_ - _%e143379143757%_ - _%hd143380143760%_ - _%tl143381143762%_ - _%__splice146376146377%_ - _%target143382143765%_ - _%tl143384143767%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match146411146412%_ - _%e143379143757%_ - _%hd143380143760%_ - _%tl143381143762%_ - _%__splice146376146377%_ - _%target143382143765%_ - _%tl143384143767%_)))) - (_%__match146411146412%_ - _%e143379143757%_ - _%hd143380143760%_ - _%tl143381143762%_ - _%__splice146376146377%_ - _%target143382143765%_ - _%tl143384143767%_)) - (_%__match146411146412%_ - _%e143379143757%_ - _%hd143380143760%_ - _%tl143381143762%_ - _%__splice146376146377%_ - _%target143382143765%_ - _%tl143384143767%_)) - (_%__match146411146412%_ - _%e143379143757%_ - _%hd143380143760%_ - _%tl143381143762%_ - _%__splice146376146377%_ - _%target143382143765%_ - _%tl143384143767%_)))) - (_%__match146411146412%_ - _%e143379143757%_ - _%hd143380143760%_ - _%tl143381143762%_ - _%__splice146376146377%_ - _%target143382143765%_ - _%tl143384143767%_)))) - (_%__match146411146412%_ - _%e143379143757%_ - _%hd143380143760%_ - _%tl143381143762%_ - _%__splice146376146377%_ - _%target143382143765%_ - _%tl143384143767%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop143385143770%_ - _%target143382143765%_ + (_%__match146685146686%_ + _%e143653144031%_ + _%hd143654144034%_ + _%tl143655144036%_ + _%__splice146650146651%_ + _%target143656144039%_ + _%tl143658144041%_)))) + (_%__match146685146686%_ + _%e143653144031%_ + _%hd143654144034%_ + _%tl143655144036%_ + _%__splice146650146651%_ + _%target143656144039%_ + _%tl143658144041%_)) + (_%__match146685146686%_ + _%e143653144031%_ + _%hd143654144034%_ + _%tl143655144036%_ + _%__splice146650146651%_ + _%target143656144039%_ + _%tl143658144041%_)))) + (_%__match146685146686%_ + _%e143653144031%_ + _%hd143654144034%_ + _%tl143655144036%_ + _%__splice146650146651%_ + _%target143656144039%_ + _%tl143658144041%_)) + (_%__match146685146686%_ + _%e143653144031%_ + _%hd143654144034%_ + _%tl143655144036%_ + _%__splice146650146651%_ + _%target143656144039%_ + _%tl143658144041%_)) + (_%__match146685146686%_ + _%e143653144031%_ + _%hd143654144034%_ + _%tl143655144036%_ + _%__splice146650146651%_ + _%target143656144039%_ + _%tl143658144041%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match146685146686%_ + _%e143653144031%_ + _%hd143654144034%_ + _%tl143655144036%_ + _%__splice146650146651%_ + _%target143656144039%_ + _%tl143658144041%_)))) + (_%__match146685146686%_ + _%e143653144031%_ + _%hd143654144034%_ + _%tl143655144036%_ + _%__splice146650146651%_ + _%target143656144039%_ + _%tl143658144041%_)) + (_%__match146685146686%_ + _%e143653144031%_ + _%hd143654144034%_ + _%tl143655144036%_ + _%__splice146650146651%_ + _%target143656144039%_ + _%tl143658144041%_)) + (_%__match146685146686%_ + _%e143653144031%_ + _%hd143654144034%_ + _%tl143655144036%_ + _%__splice146650146651%_ + _%target143656144039%_ + _%tl143658144041%_)))) + (_%__match146685146686%_ + _%e143653144031%_ + _%hd143654144034%_ + _%tl143655144036%_ + _%__splice146650146651%_ + _%target143656144039%_ + _%tl143658144041%_)))) + (_%__match146685146686%_ + _%e143653144031%_ + _%hd143654144034%_ + _%tl143655144036%_ + _%__splice146650146651%_ + _%target143656144039%_ + _%tl143658144041%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop143659144044%_ + _%target143656144039%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx146372146373%_)) - (let ((_%e143379143757%_ + (gx#stx-pair? _%__stx146646146647%_)) + (let ((_%e143653144031%_ (let () (declare (not safe)) - (gx#stx-e _%__stx146372146373%_)))) - (let ((_%tl143381143762%_ + (gx#stx-e _%__stx146646146647%_)))) + (let ((_%tl143655144036%_ (let () (declare (not safe)) - (##cdr _%e143379143757%_))) - (_%hd143380143760%_ + (##cdr _%e143653144031%_))) + (_%hd143654144034%_ (let () (declare (not safe)) - (##car _%e143379143757%_)))) + (##car _%e143653144031%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd143380143760%_)) - (let ((_%__splice146376146377%_ + (gx#stx-pair/null? _%hd143654144034%_)) + (let ((_%__splice146650146651%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd143380143760%_ + _%hd143654144034%_ '0)))) - (let ((_%tl143384143767%_ + (let ((_%tl143658144041%_ (let () (declare (not safe)) (##vector-ref - _%__splice146376146377%_ + _%__splice146650146651%_ '1))) - (_%target143382143765%_ + (_%target143656144039%_ (let () (declare (not safe)) (##vector-ref - _%__splice146376146377%_ + _%__splice146650146651%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143384143767%_)) - (_%__match146399146400%_ - _%e143379143757%_ - _%hd143380143760%_ - _%tl143381143762%_ - _%__splice146376146377%_ - _%target143382143765%_ - _%tl143384143767%_) - (_%__match146411146412%_ - _%e143379143757%_ - _%hd143380143760%_ - _%tl143381143762%_ - _%__splice146376146377%_ - _%target143382143765%_ - _%tl143384143767%_)))) + _%tl143658144041%_)) + (_%__match146673146674%_ + _%e143653144031%_ + _%hd143654144034%_ + _%tl143655144036%_ + _%__splice146650146651%_ + _%target143656144039%_ + _%tl143658144041%_) + (_%__match146685146686%_ + _%e143653144031%_ + _%hd143654144034%_ + _%tl143655144036%_ + _%__splice146650146651%_ + _%target143656144039%_ + _%tl143658144041%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143381143762%_)) - (let ((_%e143467143511%_ + (gx#stx-pair? _%tl143655144036%_)) + (let ((_%e143741143785%_ (let () (declare (not safe)) (gx#stx-e - _%tl143381143762%_)))) - (let ((_%tl143469143516%_ + _%tl143655144036%_)))) + (let ((_%tl143743143790%_ (let () (declare (not safe)) - (##cdr _%e143467143511%_))) - (_%hd143468143514%_ + (##cdr _%e143741143785%_))) + (_%hd143742143788%_ (let () (declare (not safe)) - (##car _%e143467143511%_)))) + (##car _%e143741143785%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143468143514%_)) - (let ((_%e143470143519%_ + _%hd143742143788%_)) + (let ((_%e143744143793%_ (let () (declare (not safe)) (gx#stx-e - _%hd143468143514%_)))) - (let ((_%tl143472143524%_ + _%hd143742143788%_)))) + (let ((_%tl143746143798%_ (let () (declare (not safe)) - (##cdr _%e143470143519%_))) - (_%hd143471143522%_ + (##cdr _%e143744143793%_))) + (_%hd143745143796%_ (let () (declare (not safe)) - (##car _%e143470143519%_)))) + (##car _%e143744143793%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd143471143522%_)) + _%hd143745143796%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#call _%hd143471143522%_)) + (gx#stx-eq? '%#call _%hd143745143796%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143472143524%_)) - (let ((_%e143473143527%_ + (gx#stx-pair? _%tl143746143798%_)) + (let ((_%e143747143801%_ (let () (declare (not safe)) - (gx#stx-e _%tl143472143524%_)))) - (let ((_%tl143475143532%_ + (gx#stx-e _%tl143746143798%_)))) + (let ((_%tl143749143806%_ (let () (declare (not safe)) - (##cdr _%e143473143527%_))) - (_%hd143474143530%_ + (##cdr _%e143747143801%_))) + (_%hd143748143804%_ (let () (declare (not safe)) - (##car _%e143473143527%_)))) + (##car _%e143747143801%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd143474143530%_)) - (let ((_%e143476143535%_ + (gx#stx-pair? _%hd143748143804%_)) + (let ((_%e143750143809%_ (let () (declare (not safe)) - (gx#stx-e _%hd143474143530%_)))) - (let ((_%tl143478143540%_ + (gx#stx-e _%hd143748143804%_)))) + (let ((_%tl143752143814%_ (let () (declare (not safe)) - (##cdr _%e143476143535%_))) - (_%hd143477143538%_ + (##cdr _%e143750143809%_))) + (_%hd143751143812%_ (let () (declare (not safe)) - (##car _%e143476143535%_)))) + (##car _%e143750143809%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd143477143538%_)) + _%hd143751143812%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd143477143538%_)) + _%hd143751143812%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143478143540%_)) - (let ((_%e143479143543%_ + _%tl143752143814%_)) + (let ((_%e143753143817%_ (let () (declare (not safe)) (gx#stx-e - _%tl143478143540%_)))) - (let ((_%tl143481143548%_ + _%tl143752143814%_)))) + (let ((_%tl143755143822%_ (let () (declare (not safe)) - (##cdr _%e143479143543%_))) - (_%hd143480143546%_ + (##cdr _%e143753143817%_))) + (_%hd143754143820%_ (let () (declare (not safe)) - (##car _%e143479143543%_)))) + (##car _%e143753143817%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143481143548%_)) + _%tl143755143822%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl143475143532%_)) - (let ((_%e143482143551%_ + (gx#stx-pair? _%tl143749143806%_)) + (let ((_%e143756143825%_ (let () (declare (not safe)) - (gx#stx-e _%tl143475143532%_)))) - (let ((_%tl143484143556%_ + (gx#stx-e _%tl143749143806%_)))) + (let ((_%tl143758143830%_ (let () (declare (not safe)) - (##cdr _%e143482143551%_))) - (_%hd143483143554%_ + (##cdr _%e143756143825%_))) + (_%hd143757143828%_ (let () (declare (not safe)) - (##car _%e143482143551%_)))) + (##car _%e143756143825%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd143483143554%_)) - (let ((_%e143485143559%_ + (gx#stx-pair? _%hd143757143828%_)) + (let ((_%e143759143833%_ (let () (declare (not safe)) - (gx#stx-e _%hd143483143554%_)))) - (let ((_%tl143487143564%_ + (gx#stx-e _%hd143757143828%_)))) + (let ((_%tl143761143838%_ (let () (declare (not safe)) - (##cdr _%e143485143559%_))) - (_%hd143486143562%_ + (##cdr _%e143759143833%_))) + (_%hd143760143836%_ (let () (declare (not safe)) - (##car _%e143485143559%_)))) + (##car _%e143759143833%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd143486143562%_)) + (gx#identifier? _%hd143760143836%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd143486143562%_)) + _%hd143760143836%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143487143564%_)) - (let ((_%e143488143567%_ + _%tl143761143838%_)) + (let ((_%e143762143841%_ (let () (declare (not safe)) (gx#stx-e - _%tl143487143564%_)))) - (let ((_%tl143490143572%_ + _%tl143761143838%_)))) + (let ((_%tl143764143846%_ (let () (declare (not safe)) - (##cdr _%e143488143567%_))) - (_%hd143489143570%_ + (##cdr _%e143762143841%_))) + (_%hd143763143844%_ (let () (declare (not safe)) - (##car _%e143488143567%_)))) + (##car _%e143762143841%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143490143572%_)) + _%tl143764143846%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143484143556%_)) - (let ((_%e143491143575%_ + _%tl143758143830%_)) + (let ((_%e143765143849%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl143484143556%_)))) - (let ((_%tl143493143580%_ + (gx#stx-e _%tl143758143830%_)))) + (let ((_%tl143767143854%_ (let () (declare (not safe)) - (##cdr _%e143491143575%_))) - (_%hd143492143578%_ + (##cdr _%e143765143849%_))) + (_%hd143766143852%_ (let () (declare (not safe)) - (##car _%e143491143575%_)))) + (##car _%e143765143849%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143493143580%_)) + (gx#stx-null? _%tl143767143854%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143469143516%_)) - (_%__kont146384146385%_ - _%hd143489143570%_ - _%hd143480143546%_ - _%hd143380143760%_) + (gx#stx-null? _%tl143743143790%_)) + (_%__kont146658146659%_ + _%hd143763143844%_ + _%hd143754143820%_ + _%hd143654144034%_) (let () (declare (not safe)) - (_%g143374143498%_))) - (let () (declare (not safe)) (_%g143374143498%_))))) - (let () (declare (not safe)) (_%g143374143498%_))) - (let () (declare (not safe)) (_%g143374143498%_))))) + (_%g143648143772%_))) + (let () (declare (not safe)) (_%g143648143772%_))))) + (let () (declare (not safe)) (_%g143648143772%_))) + (let () (declare (not safe)) (_%g143648143772%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g143374143498%_))) + (_%g143648143772%_))) (let () (declare (not safe)) - (_%g143374143498%_))) + (_%g143648143772%_))) (let () (declare (not safe)) - (_%g143374143498%_))))) + (_%g143648143772%_))))) (let () (declare (not safe)) - (_%g143374143498%_))))) - (let () (declare (not safe)) (_%g143374143498%_))) - (let () (declare (not safe)) (_%g143374143498%_))))) + (_%g143648143772%_))))) + (let () (declare (not safe)) (_%g143648143772%_))) + (let () (declare (not safe)) (_%g143648143772%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g143374143498%_))) + (_%g143648143772%_))) (let () (declare (not safe)) - (_%g143374143498%_))) + (_%g143648143772%_))) (let () (declare (not safe)) - (_%g143374143498%_))))) + (_%g143648143772%_))))) (let () (declare (not safe)) - (_%g143374143498%_))))) - (let () (declare (not safe)) (_%g143374143498%_))) - (let () (declare (not safe)) (_%g143374143498%_))) - (let () (declare (not safe)) (_%g143374143498%_))))) + (_%g143648143772%_))))) + (let () (declare (not safe)) (_%g143648143772%_))) + (let () (declare (not safe)) (_%g143648143772%_))) + (let () (declare (not safe)) (_%g143648143772%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g143374143498%_))))) + (_%g143648143772%_))))) (let () (declare (not safe)) - (_%g143374143498%_)))))) + (_%g143648143772%_)))))) (let () (declare (not safe)) - (_%g143374143498%_)))))))) - (_%generate1143217%_ - (lambda (_%args143352%_ - _%arglen143353%_ - _%hd143354%_ - _%body143355%_) - (let* ((_%len143357%_ + (_%g143648143772%_)))))))) + (_%generate1143491%_ + (lambda (_%args143626%_ + _%arglen143627%_ + _%hd143628%_ + _%body143629%_) + (let* ((_%len143631%_ (let () (declare (not safe)) - (gx#stx-length _%hd143354%_))) - (_%condition143362%_ + (gx#stx-length _%hd143628%_))) + (_%condition143636%_ (if (let () (declare (not safe)) - (gx#stx-list? _%hd143354%_)) + (gx#stx-list? _%hd143628%_)) (if (gxc#current-compile-decls-unsafe?) (cons '##fx= - (cons _%arglen143353%_ - (cons _%len143357%_ '()))) + (cons _%arglen143627%_ + (cons _%len143631%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##fx= ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%arglen143353%_ (cons _%len143357%_ '()))) + (cons _%arglen143627%_ (cons _%len143631%_ '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (> _%len143357%_ '0) + (if (> _%len143631%_ '0) (if (gxc#current-compile-decls-unsafe?) (cons '##fx>= - (cons _%arglen143353%_ - (cons _%len143357%_ '()))) + (cons _%arglen143627%_ + (cons _%len143631%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##fx>= ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%arglen143353%_ (cons _%len143357%_ '()))) + (cons _%arglen143627%_ (cons _%len143631%_ '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#t))) - (_%dispatch143364%_ - (if (_%dispatch-case?143215%_ - _%hd143354%_ - _%body143355%_) - (_%dispatch-case-e143216%_ - _%hd143354%_ - _%body143355%_) + (_%dispatch143638%_ + (if (_%dispatch-case?143489%_ + _%hd143628%_ + _%body143629%_) + (_%dispatch-case-e143490%_ + _%hd143628%_ + _%body143629%_) (gxc#generate-runtime-lambda-form - _%self143212%_ - _%hd143354%_ - _%body143355%_)))) - (cons _%condition143362%_ + _%self143486%_ + _%hd143628%_ + _%body143629%_)))) + (cons _%condition143636%_ (cons (cons 'apply - (cons _%dispatch143364%_ - (cons _%args143352%_ '()))) + (cons _%dispatch143638%_ + (cons _%args143626%_ '()))) '())))))) - (let* ((_%g143219143247%_ - (lambda (_%g143220143244%_) + (let* ((_%g143493143521%_ + (lambda (_%g143494143518%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143220143244%_)))) - (_%g143218143349%_ - (lambda (_%g143220143250%_) + _%g143494143518%_)))) + (_%g143492143623%_ + (lambda (_%g143494143524%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g143220143250%_)) - (let ((_%e143223143252%_ + (gx#stx-pair? _%g143494143524%_)) + (let ((_%e143497143526%_ (let () (declare (not safe)) - (gx#stx-e _%g143220143250%_)))) - (let ((_%hd143224143255%_ + (gx#stx-e _%g143494143524%_)))) + (let ((_%hd143498143529%_ (let () (declare (not safe)) - (##car _%e143223143252%_))) - (_%tl143225143257%_ + (##car _%e143497143526%_))) + (_%tl143499143531%_ (let () (declare (not safe)) - (##cdr _%e143223143252%_)))) + (##cdr _%e143497143526%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl143225143257%_)) - (let ((_g147541_ + (gx#stx-pair/null? _%tl143499143531%_)) + (let ((_g147815_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl143225143257%_ + _%tl143499143531%_ '0)))) (begin - (let ((_g147542_ + (let ((_g147816_ (let () (declare (not safe)) - (if (##values? _g147541_) - (##vector-length _g147541_) + (if (##values? _g147815_) + (##vector-length _g147815_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g147542_ 2))) + (##fx= _g147816_ 2))) (error "Context expects 2 values" - _g147542_))) - (let ((_%target143226143260%_ + _g147816_))) + (let ((_%target143500143534%_ (let () (declare (not safe)) - (##vector-ref _g147541_ 0))) - (_%tl143228143262%_ + (##vector-ref _g147815_ 0))) + (_%tl143502143536%_ (let () (declare (not safe)) - (##vector-ref _g147541_ 1)))) + (##vector-ref _g147815_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143228143262%_)) - (letrec ((_%loop143229143265%_ - (lambda (_%hd143227143268%_ - _%body143233143270%_ - _%hd143234143272%_) + (gx#stx-null? _%tl143502143536%_)) + (letrec ((_%loop143503143539%_ + (lambda (_%hd143501143542%_ + _%body143507143544%_ + _%hd143508143546%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143227143268%_)) - (let ((_%e143230143275%_ + _%hd143501143542%_)) + (let ((_%e143504143549%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd143227143268%_)))) - (let ((_%lp-hd143231143278%_ + (gx#stx-e _%hd143501143542%_)))) + (let ((_%lp-hd143505143552%_ (let () (declare (not safe)) - (##car _%e143230143275%_))) - (_%lp-tl143232143280%_ + (##car _%e143504143549%_))) + (_%lp-tl143506143554%_ (let () (declare (not safe)) - (##cdr _%e143230143275%_)))) + (##cdr _%e143504143549%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd143231143278%_)) - (let ((_%e143237143283%_ + (gx#stx-pair? _%lp-hd143505143552%_)) + (let ((_%e143511143557%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd143231143278%_)))) - (let ((_%hd143238143286%_ + (gx#stx-e _%lp-hd143505143552%_)))) + (let ((_%hd143512143560%_ (let () (declare (not safe)) - (##car _%e143237143283%_))) - (_%tl143239143288%_ + (##car _%e143511143557%_))) + (_%tl143513143562%_ (let () (declare (not safe)) - (##cdr _%e143237143283%_)))) + (##cdr _%e143511143557%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143239143288%_)) - (let ((_%e143240143291%_ + (gx#stx-pair? _%tl143513143562%_)) + (let ((_%e143514143565%_ (let () (declare (not safe)) - (gx#stx-e _%tl143239143288%_)))) - (let ((_%hd143241143294%_ + (gx#stx-e _%tl143513143562%_)))) + (let ((_%hd143515143568%_ (let () (declare (not safe)) - (##car _%e143240143291%_))) - (_%tl143242143296%_ + (##car _%e143514143565%_))) + (_%tl143516143570%_ (let () (declare (not safe)) - (##cdr _%e143240143291%_)))) + (##cdr _%e143514143565%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143242143296%_)) - (_%loop143229143265%_ - _%lp-tl143232143280%_ - (cons _%hd143241143294%_ - _%body143233143270%_) - (cons _%hd143238143286%_ - _%hd143234143272%_)) - (_%g143219143247%_ - _%g143220143250%_)))) - (_%g143219143247%_ _%g143220143250%_)))) - (_%g143219143247%_ _%g143220143250%_)))) - (let ((_%body143235143299%_ (reverse _%body143233143270%_)) - (_%hd143236143301%_ (reverse _%hd143234143272%_))) - ((lambda (_%L143304%_ _%L143305%_) - (let ((_%args143324%_ + (gx#stx-null? _%tl143516143570%_)) + (_%loop143503143539%_ + _%lp-tl143506143554%_ + (cons _%hd143515143568%_ + _%body143507143544%_) + (cons _%hd143512143560%_ + _%hd143508143546%_)) + (_%g143493143521%_ + _%g143494143524%_)))) + (_%g143493143521%_ _%g143494143524%_)))) + (_%g143493143521%_ _%g143494143524%_)))) + (let ((_%body143509143573%_ (reverse _%body143507143544%_)) + (_%hd143510143575%_ (reverse _%hd143508143546%_))) + ((lambda (_%L143578%_ _%L143579%_) + (let ((_%args143598%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%arglen143325%_ + (_%arglen143599%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%name143326%_ - (let ((_%$e143321%_ - (let ((__tmp147543 + (_%name143600%_ + (let ((_%$e143595%_ + (let ((__tmp147817 (let () (declare (not safe)) (gxc#current-compile-runtime-names)))) (declare (not safe)) - (hash-get __tmp147543 _%stx143213%_)))) - (if _%$e143321%_ - _%$e143321%_ + (hash-get __tmp147817 _%stx143487%_)))) + (if _%$e143595%_ + _%$e143595%_ ''case-lambda-dispatch)))) (cons 'lambda - (cons _%args143324%_ + (cons _%args143598%_ (cons (cons 'let - (cons (cons (cons _%arglen143325%_ + (cons (cons (cons _%arglen143599%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (if (gxc#current-compile-decls-unsafe?) - (cons '##length (cons _%args143324%_ '())) + (cons '##length (cons _%args143598%_ '())) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%args143324%_ '())) + (cons _%args143598%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) (cons (cons 'cond - (let ((__tmp147547 + (let ((__tmp147821 (cons (cons 'else (cons (cons '##raise-wrong-number-of-arguments-exception - (cons _%name143326%_ - (cons _%args143324%_ + (cons _%name143600%_ + (cons _%args143598%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())) - (__tmp147544 - (map (lambda (_%g143327143330%_ - _%g143328143332%_) - (_%generate1143217%_ - _%args143324%_ - _%arglen143325%_ - _%g143327143330%_ - _%g143328143332%_)) - (let ((__tmp147545 - (lambda (_%g143334143337%_ - _%g143335143339%_) - (cons _%g143334143337%_ - _%g143335143339%_)))) + (__tmp147818 + (map (lambda (_%g143601143604%_ + _%g143602143606%_) + (_%generate1143491%_ + _%args143598%_ + _%arglen143599%_ + _%g143601143604%_ + _%g143602143606%_)) + (let ((__tmp147819 + (lambda (_%g143608143611%_ + _%g143609143613%_) + (cons _%g143608143611%_ + _%g143609143613%_)))) (declare (not safe)) (__foldr1 - __tmp147545 + __tmp147819 '() - _%L143305%_)) - (let ((__tmp147546 - (lambda (_%g143341143344%_ - _%g143342143346%_) - (cons _%g143341143344%_ - _%g143342143346%_)))) + _%L143579%_)) + (let ((__tmp147820 + (lambda (_%g143615143618%_ + _%g143616143620%_) + (cons _%g143615143618%_ + _%g143616143620%_)))) (declare (not safe)) (__foldr1 - __tmp147546 + __tmp147820 '() - _%L143304%_))))) + _%L143578%_))))) (declare (not safe)) - (__foldr1 cons __tmp147547 __tmp147544))) + (__foldr1 cons __tmp147821 __tmp147818))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%body143235143299%_ - _%hd143236143301%_)))))) + _%body143509143573%_ + _%hd143510143575%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop143229143265%_ - _%target143226143260%_ + (_%loop143503143539%_ + _%target143500143534%_ '() '())) - (_%g143219143247%_ - _%g143220143250%_))))) - (_%g143219143247%_ _%g143220143250%_)))) - (_%g143219143247%_ _%g143220143250%_))))) - (_%g143218143349%_ _%stx143213%_))))) + (_%g143493143521%_ + _%g143494143524%_))))) + (_%g143493143521%_ _%g143494143524%_)))) + (_%g143493143521%_ _%g143494143524%_))))) + (_%g143492143623%_ _%stx143487%_))))) (define gxc#generate-runtime-let-values%__% - (lambda (_%self142449%_ _%stx142450%_ _%compiled-body?142451%_) - (letrec ((_%generate-simple142453%_ - (lambda (_%hd143197%_ _%body143198%_) - (_%coalesce-boolean142454%_ - (_%simplify-let142455%_ + (lambda (_%self142723%_ _%stx142724%_ _%compiled-body?142725%_) + (letrec ((_%generate-simple142727%_ + (lambda (_%hd143471%_ _%body143472%_) + (_%coalesce-boolean142728%_ + (_%simplify-let142729%_ (gxc#generate-runtime-simple-let - _%self142449%_ + _%self142723%_ 'let - _%hd143197%_ - _%body143198%_ - _%compiled-body?142451%_))))) - (_%coalesce-boolean142454%_ - (lambda (_%code143058%_) + _%hd143471%_ + _%body143472%_ + _%compiled-body?142725%_))))) + (_%coalesce-boolean142728%_ + (lambda (_%code143332%_) (if (let () (declare (not safe)) (gxc#current-compile-boolean-context)) - (let* ((_%code143059143085%_ _%code143058%_) - (_%else143061143093%_ - (lambda () _%code143058%_)) - (_%K143063143130%_ - (lambda (_%expr2143096%_ - _%expr1143097%_ - _%id143098%_) - (let* ((_%expr2143099143107%_ - _%expr2143096%_) - (_%else143101143115%_ + (let* ((_%code143333143359%_ _%code143332%_) + (_%else143335143367%_ + (lambda () _%code143332%_)) + (_%K143337143404%_ + (lambda (_%expr2143370%_ + _%expr1143371%_ + _%id143372%_) + (let* ((_%expr2143373143381%_ + _%expr2143370%_) + (_%else143375143389%_ (lambda () (cons 'or - (cons _%expr1143097%_ - (cons _%expr2143096%_ + (cons _%expr1143371%_ + (cons _%expr2143370%_ '()))))) - (_%K143103143120%_ - (lambda (_%exprs143118%_) + (_%K143377143394%_ + (lambda (_%exprs143392%_) (cons 'or - (cons _%expr1143097%_ - _%exprs143118%_))))) + (cons _%expr1143371%_ + _%exprs143392%_))))) (if (let () (declare (not safe)) - (##pair? _%expr2143099143107%_)) - (let ((_%hd143104143123%_ + (##pair? _%expr2143373143381%_)) + (let ((_%hd143378143397%_ (let () (declare (not safe)) - (##car _%expr2143099143107%_))) - (_%tl143105143125%_ + (##car _%expr2143373143381%_))) + (_%tl143379143399%_ (let () (declare (not safe)) - (##cdr _%expr2143099143107%_)))) + (##cdr _%expr2143373143381%_)))) (if (let () (declare (not safe)) - (##eq? _%hd143104143123%_ 'or)) - (let ((_%exprs143128%_ - _%tl143105143125%_)) - (_%K143103143120%_ - _%exprs143128%_)) - (_%else143101143115%_))) - (_%else143101143115%_)))))) + (##eq? _%hd143378143397%_ 'or)) + (let ((_%exprs143402%_ + _%tl143379143399%_)) + (_%K143377143394%_ + _%exprs143402%_)) + (_%else143375143389%_))) + (_%else143375143389%_)))))) (if (let () (declare (not safe)) - (##pair? _%code143059143085%_)) - (let ((_%hd143064143133%_ + (##pair? _%code143333143359%_)) + (let ((_%hd143338143407%_ (let () (declare (not safe)) - (##car _%code143059143085%_))) - (_%tl143065143135%_ + (##car _%code143333143359%_))) + (_%tl143339143409%_ (let () (declare (not safe)) - (##cdr _%code143059143085%_)))) + (##cdr _%code143333143359%_)))) (if (let () (declare (not safe)) - (##eq? _%hd143064143133%_ 'let)) + (##eq? _%hd143338143407%_ 'let)) (if (let () (declare (not safe)) - (##pair? _%tl143065143135%_)) - (let ((_%hd143066143138%_ + (##pair? _%tl143339143409%_)) + (let ((_%hd143340143412%_ (let () (declare (not safe)) - (##car _%tl143065143135%_))) - (_%tl143067143140%_ + (##car _%tl143339143409%_))) + (_%tl143341143414%_ (let () (declare (not safe)) - (##cdr _%tl143065143135%_)))) + (##cdr _%tl143339143409%_)))) (if (let () (declare (not safe)) - (##pair? _%hd143066143138%_)) - (let ((_%hd143078143143%_ + (##pair? _%hd143340143412%_)) + (let ((_%hd143352143417%_ (let () (declare (not safe)) - (##car _%hd143066143138%_))) - (_%tl143079143145%_ + (##car _%hd143340143412%_))) + (_%tl143353143419%_ (let () (declare (not safe)) - (##cdr _%hd143066143138%_)))) + (##cdr _%hd143340143412%_)))) (if (let () (declare (not safe)) - (##pair? _%hd143078143143%_)) - (let ((_%hd143080143148%_ + (##pair? _%hd143352143417%_)) + (let ((_%hd143354143422%_ (let () (declare (not safe)) - (##car _%hd143078143143%_))) - (_%tl143081143150%_ + (##car _%hd143352143417%_))) + (_%tl143355143424%_ (let () (declare (not safe)) - (##cdr _%hd143078143143%_)))) - (let ((_%id143153%_ - _%hd143080143148%_)) + (##cdr _%hd143352143417%_)))) + (let ((_%id143427%_ + _%hd143354143422%_)) (if (let () (declare (not safe)) - (##pair? _%tl143081143150%_)) - (let ((_%hd143082143155%_ + (##pair? _%tl143355143424%_)) + (let ((_%hd143356143429%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%tl143081143150%_))) - (_%tl143083143157%_ + (##car _%tl143355143424%_))) + (_%tl143357143431%_ (let () (declare (not safe)) - (##cdr _%tl143081143150%_)))) - (let ((_%expr1143160%_ _%hd143082143155%_)) + (##cdr _%tl143355143424%_)))) + (let ((_%expr1143434%_ _%hd143356143429%_)) (if (let () (declare (not safe)) - (##null? _%tl143083143157%_)) + (##null? _%tl143357143431%_)) (if (let () (declare (not safe)) - (##null? _%tl143079143145%_)) + (##null? _%tl143353143419%_)) (if (let () (declare (not safe)) - (##pair? _%tl143067143140%_)) - (let ((_%hd143068143162%_ + (##pair? _%tl143341143414%_)) + (let ((_%hd143342143436%_ (let () (declare (not safe)) - (##car _%tl143067143140%_))) - (_%tl143069143164%_ + (##car _%tl143341143414%_))) + (_%tl143343143438%_ (let () (declare (not safe)) - (##cdr _%tl143067143140%_)))) + (##cdr _%tl143341143414%_)))) (if (let () (declare (not safe)) - (##pair? _%hd143068143162%_)) - (let ((_%hd143070143167%_ + (##pair? _%hd143342143436%_)) + (let ((_%hd143344143441%_ (let () (declare (not safe)) - (##car _%hd143068143162%_))) - (_%tl143071143169%_ + (##car _%hd143342143436%_))) + (_%tl143345143443%_ (let () (declare (not safe)) - (##cdr _%hd143068143162%_)))) + (##cdr _%hd143342143436%_)))) (if (let () (declare (not safe)) - (##eq? _%hd143070143167%_ + (##eq? _%hd143344143441%_ 'if)) (if (let () (declare (not safe)) - (##pair? _%tl143071143169%_)) - (let ((_%hd143072143172%_ + (##pair? _%tl143345143443%_)) + (let ((_%hd143346143446%_ (let () (declare (not safe)) - (##car _%tl143071143169%_))) - (_%tl143073143174%_ + (##car _%tl143345143443%_))) + (_%tl143347143448%_ (let () (declare (not safe)) - (##cdr _%tl143071143169%_)))) - (if ((lambda (_%g143176143178%_) - (eq? _%g143176143178%_ + (##cdr _%tl143345143443%_)))) + (if ((lambda (_%g143450143452%_) + (eq? _%g143450143452%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id143153%_)) - _%hd143072143172%_) + _%id143427%_)) + _%hd143346143446%_) (if (let () (declare (not safe)) - (##pair? _%tl143073143174%_)) - (let ((_%hd143074143181%_ + (##pair? _%tl143347143448%_)) + (let ((_%hd143348143455%_ (let () (declare (not safe)) - (##car _%tl143073143174%_))) - (_%tl143075143183%_ + (##car _%tl143347143448%_))) + (_%tl143349143457%_ (let () (declare (not safe)) - (##cdr _%tl143073143174%_)))) - (if ((lambda (_%g143185143187%_) - (eq? _%g143185143187%_ _%id143153%_)) - _%hd143074143181%_) + (##cdr _%tl143347143448%_)))) + (if ((lambda (_%g143459143461%_) + (eq? _%g143459143461%_ _%id143427%_)) + _%hd143348143455%_) (if (let () (declare (not safe)) - (##pair? _%tl143075143183%_)) - (let ((_%hd143076143190%_ + (##pair? _%tl143349143457%_)) + (let ((_%hd143350143464%_ (let () (declare (not safe)) - (##car _%tl143075143183%_))) - (_%tl143077143192%_ + (##car _%tl143349143457%_))) + (_%tl143351143466%_ (let () (declare (not safe)) - (##cdr _%tl143075143183%_)))) - (let ((_%expr2143195%_ _%hd143076143190%_)) + (##cdr _%tl143349143457%_)))) + (let ((_%expr2143469%_ _%hd143350143464%_)) (if (let () (declare (not safe)) - (##null? _%tl143077143192%_)) + (##null? _%tl143351143466%_)) (if (let () (declare (not safe)) - (##null? _%tl143069143164%_)) - (_%K143063143130%_ - _%expr2143195%_ - _%expr1143160%_ - _%id143153%_) - (_%else143061143093%_)) - (_%else143061143093%_)))) - (_%else143061143093%_)) - (_%else143061143093%_))) - (_%else143061143093%_)) - (_%else143061143093%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else143061143093%_)) - (_%else143061143093%_))) - (_%else143061143093%_))) - (_%else143061143093%_)) - (_%else143061143093%_)) - (_%else143061143093%_)))) - (_%else143061143093%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else143061143093%_))) - (_%else143061143093%_))) - (_%else143061143093%_)) - (_%else143061143093%_))) - (_%else143061143093%_))) - _%code143058%_))) - (_%simplify-let142455%_ - (lambda (_%code142757%_) - (let* ((_%code142758142830%_ _%code142757%_) - (_%else142763142838%_ (lambda () _%code142757%_))) - (let ((_%K142822143038%_ - (lambda (_%expr143036%_) _%expr143036%_)) - (_%K142805142984%_ - (lambda (_%body142980%_ - _%expr142981%_ - _%id142982%_) + (##null? _%tl143343143438%_)) + (_%K143337143404%_ + _%expr2143469%_ + _%expr1143434%_ + _%id143427%_) + (_%else143335143367%_)) + (_%else143335143367%_)))) + (_%else143335143367%_)) + (_%else143335143367%_))) + (_%else143335143367%_)) + (_%else143335143367%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else143335143367%_)) + (_%else143335143367%_))) + (_%else143335143367%_))) + (_%else143335143367%_)) + (_%else143335143367%_)) + (_%else143335143367%_)))) + (_%else143335143367%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else143335143367%_))) + (_%else143335143367%_))) + (_%else143335143367%_)) + (_%else143335143367%_))) + (_%else143335143367%_))) + _%code143332%_))) + (_%simplify-let142729%_ + (lambda (_%code143031%_) + (let* ((_%code143032143104%_ _%code143031%_) + (_%else143037143112%_ (lambda () _%code143031%_))) + (let ((_%K143096143312%_ + (lambda (_%expr143310%_) _%expr143310%_)) + (_%K143079143258%_ + (lambda (_%body143254%_ + _%expr143255%_ + _%id143256%_) (cons 'let - (cons (cons (cons _%id142982%_ - (cons _%expr142981%_ + (cons (cons (cons _%id143256%_ + (cons _%expr143255%_ '())) '()) - _%body142980%_)))) - (_%K142782142908%_ - (lambda (_%body142902%_ - _%expr2142903%_ - _%id2142904%_ - _%expr1142905%_ - _%id1142906%_) + _%body143254%_)))) + (_%K143056143182%_ + (lambda (_%body143176%_ + _%expr2143177%_ + _%id2143178%_ + _%expr1143179%_ + _%id1143180%_) (cons 'let* - (cons (cons (cons _%id1142906%_ - (cons _%expr1142905%_ + (cons (cons (cons _%id1143180%_ + (cons _%expr1143179%_ '())) - (cons (cons _%id2142904%_ - (cons _%expr2142903%_ + (cons (cons _%id2143178%_ + (cons _%expr2143177%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body142902%_)))) - (_%K142765142847%_ - (lambda (_%body142842%_ - _%bind142843%_ - _%expr1142844%_ - _%id1142845%_) + _%body143176%_)))) + (_%K143039143121%_ + (lambda (_%body143116%_ + _%bind143117%_ + _%expr1143118%_ + _%id1143119%_) (cons 'let* - (cons (cons (cons _%id1142845%_ - (cons _%expr1142844%_ + (cons (cons (cons _%id1143119%_ + (cons _%expr1143118%_ '())) - _%bind142843%_) - _%body142842%_))))) + _%bind143117%_) + _%body143116%_))))) (if (let () (declare (not safe)) - (##pair? _%code142758142830%_)) - (let ((_%tl142824143043%_ + (##pair? _%code143032143104%_)) + (let ((_%tl143098143317%_ (let () (declare (not safe)) - (##cdr _%code142758142830%_))) - (_%hd142823143041%_ + (##cdr _%code143032143104%_))) + (_%hd143097143315%_ (let () (declare (not safe)) - (##car _%code142758142830%_)))) + (##car _%code143032143104%_)))) (if (let () (declare (not safe)) - (##eq? _%hd142823143041%_ 'let)) + (##eq? _%hd143097143315%_ 'let)) (if (let () (declare (not safe)) - (##pair? _%tl142824143043%_)) - (let ((_%tl142826143048%_ + (##pair? _%tl143098143317%_)) + (let ((_%tl143100143322%_ (let () (declare (not safe)) - (##cdr _%tl142824143043%_))) - (_%hd142825143046%_ + (##cdr _%tl143098143317%_))) + (_%hd143099143320%_ (let () (declare (not safe)) - (##car _%tl142824143043%_)))) + (##car _%tl143098143317%_)))) (if (let () (declare (not safe)) - (##null? _%hd142825143046%_)) + (##null? _%hd143099143320%_)) (if (let () (declare (not safe)) - (##pair? _%tl142826143048%_)) - (let ((_%tl142828143053%_ + (##pair? _%tl143100143322%_)) + (let ((_%tl143102143327%_ (let () (declare (not safe)) - (##cdr _%tl142826143048%_))) - (_%hd142827143051%_ + (##cdr _%tl143100143322%_))) + (_%hd143101143325%_ (let () (declare (not safe)) - (##car _%tl142826143048%_)))) + (##car _%tl143100143322%_)))) (if (let () (declare (not safe)) - (##null? _%tl142828143053%_)) - (let ((_%expr143056%_ - _%hd142827143051%_)) - (_%K142822143038%_ - _%expr143056%_)) - (_%else142763142838%_))) - (_%else142763142838%_)) + (##null? _%tl143102143327%_)) + (let ((_%expr143330%_ + _%hd143101143325%_)) + (_%K143096143312%_ + _%expr143330%_)) + (_%else143037143112%_))) + (_%else143037143112%_)) (if (let () (declare (not safe)) - (##pair? _%hd142825143046%_)) - (let ((_%tl142817142999%_ + (##pair? _%hd143099143320%_)) + (let ((_%tl143091143273%_ (let () (declare (not safe)) - (##cdr _%hd142825143046%_))) - (_%hd142816142997%_ + (##cdr _%hd143099143320%_))) + (_%hd143090143271%_ (let () (declare (not safe)) - (##car _%hd142825143046%_)))) + (##car _%hd143099143320%_)))) (if (let () (declare (not safe)) - (##pair? _%hd142816142997%_)) - (let ((_%tl142819143004%_ + (##pair? _%hd143090143271%_)) + (let ((_%tl143093143278%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%hd142816142997%_))) - (_%hd142818143002%_ - (let () (declare (not safe)) (##car _%hd142816142997%_)))) - (if (let () (declare (not safe)) (##pair? _%tl142819143004%_)) - (let ((_%tl142821143011%_ + (##cdr _%hd143090143271%_))) + (_%hd143092143276%_ + (let () (declare (not safe)) (##car _%hd143090143271%_)))) + (if (let () (declare (not safe)) (##pair? _%tl143093143278%_)) + (let ((_%tl143095143285%_ (let () (declare (not safe)) - (##cdr _%tl142819143004%_))) - (_%hd142820143009%_ + (##cdr _%tl143093143278%_))) + (_%hd143094143283%_ (let () (declare (not safe)) - (##car _%tl142819143004%_)))) + (##car _%tl143093143278%_)))) (if (let () (declare (not safe)) - (##null? _%tl142821143011%_)) + (##null? _%tl143095143285%_)) (if (let () (declare (not safe)) - (##null? _%tl142817142999%_)) + (##null? _%tl143091143273%_)) (if (let () (declare (not safe)) - (##pair? _%tl142826143048%_)) - (let ((_%tl142811143018%_ + (##pair? _%tl143100143322%_)) + (let ((_%tl143085143292%_ (let () (declare (not safe)) - (##cdr _%tl142826143048%_))) - (_%hd142810143016%_ + (##cdr _%tl143100143322%_))) + (_%hd143084143290%_ (let () (declare (not safe)) - (##car _%tl142826143048%_)))) + (##car _%tl143100143322%_)))) (if (let () (declare (not safe)) - (##pair? _%hd142810143016%_)) - (let ((_%tl142813143023%_ + (##pair? _%hd143084143290%_)) + (let ((_%tl143087143297%_ (let () (declare (not safe)) - (##cdr _%hd142810143016%_))) - (_%hd142812143021%_ + (##cdr _%hd143084143290%_))) + (_%hd143086143295%_ (let () (declare (not safe)) - (##car _%hd142810143016%_)))) + (##car _%hd143084143290%_)))) (if (let () (declare (not safe)) - (##eq? _%hd142812143021%_ + (##eq? _%hd143086143295%_ 'let)) (if (let () (declare (not safe)) - (##pair? _%tl142813143023%_)) - (let ((_%tl142815143028%_ + (##pair? _%tl143087143297%_)) + (let ((_%tl143089143302%_ (let () (declare (not safe)) - (##cdr _%tl142813143023%_))) - (_%hd142814143026%_ + (##cdr _%tl143087143297%_))) + (_%hd143088143300%_ (let () (declare (not safe)) - (##car _%tl142813143023%_)))) + (##car _%tl143087143297%_)))) (if (let () (declare (not safe)) - (##null? _%hd142814143026%_)) + (##null? _%hd143088143300%_)) (if (let () (declare (not safe)) - (##null? _%tl142811143018%_)) - (let ((_%id143007%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd142818143002%_) - (_%expr143014%_ _%hd142820143009%_) - (_%body143031%_ _%tl142815143028%_)) - (_%K142805142984%_ - _%body143031%_ - _%expr143014%_ - _%id143007%_)) - (_%else142763142838%_)) - (if (let () (declare (not safe)) (##pair? _%hd142814143026%_)) - (let ((_%tl142794142957%_ + (##null? _%tl143085143292%_)) + (let ((_%id143281%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%hd143092143276%_) + (_%expr143288%_ _%hd143094143283%_) + (_%body143305%_ _%tl143089143302%_)) + (_%K143079143258%_ + _%body143305%_ + _%expr143288%_ + _%id143281%_)) + (_%else143037143112%_)) + (if (let () (declare (not safe)) (##pair? _%hd143088143300%_)) + (let ((_%tl143068143231%_ (let () (declare (not safe)) - (##cdr _%hd142814143026%_))) - (_%hd142793142955%_ + (##cdr _%hd143088143300%_))) + (_%hd143067143229%_ (let () (declare (not safe)) - (##car _%hd142814143026%_)))) + (##car _%hd143088143300%_)))) (if (let () (declare (not safe)) - (##pair? _%hd142793142955%_)) - (let ((_%tl142796142962%_ + (##pair? _%hd143067143229%_)) + (let ((_%tl143070143236%_ (let () (declare (not safe)) - (##cdr _%hd142793142955%_))) - (_%hd142795142960%_ + (##cdr _%hd143067143229%_))) + (_%hd143069143234%_ (let () (declare (not safe)) - (##car _%hd142793142955%_)))) + (##car _%hd143067143229%_)))) (if (let () (declare (not safe)) - (##pair? _%tl142796142962%_)) - (let ((_%tl142798142969%_ + (##pair? _%tl143070143236%_)) + (let ((_%tl143072143243%_ (let () (declare (not safe)) - (##cdr _%tl142796142962%_))) - (_%hd142797142967%_ + (##cdr _%tl143070143236%_))) + (_%hd143071143241%_ (let () (declare (not safe)) - (##car _%tl142796142962%_)))) + (##car _%tl143070143236%_)))) (if (let () (declare (not safe)) - (##null? _%tl142798142969%_)) + (##null? _%tl143072143243%_)) (if (let () (declare (not safe)) - (##null? _%tl142794142957%_)) + (##null? _%tl143068143231%_)) (if (let () (declare (not safe)) - (##null? _%tl142811143018%_)) - (let ((_%id1142931%_ - _%hd142818143002%_) - (_%expr1142938%_ - _%hd142820143009%_) - (_%id2142965%_ - _%hd142795142960%_) - (_%expr2142972%_ - _%hd142797142967%_) - (_%body142974%_ - _%tl142815143028%_)) - (_%K142782142908%_ - _%body142974%_ - _%expr2142972%_ - _%id2142965%_ - _%expr1142938%_ - _%id1142931%_)) - (_%else142763142838%_)) - (_%else142763142838%_)) - (_%else142763142838%_))) - (_%else142763142838%_))) - (_%else142763142838%_))) - (_%else142763142838%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else142763142838%_)) + (##null? _%tl143085143292%_)) + (let ((_%id1143205%_ + _%hd143092143276%_) + (_%expr1143212%_ + _%hd143094143283%_) + (_%id2143239%_ + _%hd143069143234%_) + (_%expr2143246%_ + _%hd143071143241%_) + (_%body143248%_ + _%tl143089143302%_)) + (_%K143056143182%_ + _%body143248%_ + _%expr2143246%_ + _%id2143239%_ + _%expr1143212%_ + _%id1143205%_)) + (_%else143037143112%_)) + (_%else143037143112%_)) + (_%else143037143112%_))) + (_%else143037143112%_))) + (_%else143037143112%_))) + (_%else143037143112%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else143037143112%_)) (if (let () (declare (not safe)) - (##eq? _%hd142812143021%_ + (##eq? _%hd143086143295%_ 'let*)) (if (let () (declare (not safe)) - (##pair? _%tl142813143023%_)) - (let ((_%tl142775142891%_ + (##pair? _%tl143087143297%_)) + (let ((_%tl143049143165%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%tl142813143023%_))) - (_%hd142774142889%_ - (let () (declare (not safe)) (##car _%tl142813143023%_)))) - (if (let () (declare (not safe)) (##null? _%tl142811143018%_)) - (let ((_%id1142870%_ _%hd142818143002%_) - (_%expr1142877%_ _%hd142820143009%_) - (_%bind142894%_ _%hd142774142889%_) - (_%body142896%_ _%tl142775142891%_)) - (_%K142765142847%_ - _%body142896%_ - _%bind142894%_ - _%expr1142877%_ - _%id1142870%_)) - (_%else142763142838%_))) - (_%else142763142838%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else142763142838%_)))) - (_%else142763142838%_))) - (_%else142763142838%_)) - (_%else142763142838%_)) - (_%else142763142838%_))) - (_%else142763142838%_))) - (_%else142763142838%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else142763142838%_)))) - (_%else142763142838%_)) - (_%else142763142838%_))) - (_%else142763142838%_)))))) - (_%generate-values142456%_ - (lambda (_%hd142570%_ _%body142571%_) - (let _%lp142573%_ ((_%rest142575%_ _%hd142570%_) - (_%bind142576%_ '()) - (_%check142577%_ '()) - (_%post142578%_ '())) - (let* ((_%__stx146701146702%_ _%rest142575%_) - (_%g142581142592%_ + (##cdr _%tl143087143297%_))) + (_%hd143048143163%_ + (let () (declare (not safe)) (##car _%tl143087143297%_)))) + (if (let () (declare (not safe)) (##null? _%tl143085143292%_)) + (let ((_%id1143144%_ _%hd143092143276%_) + (_%expr1143151%_ _%hd143094143283%_) + (_%bind143168%_ _%hd143048143163%_) + (_%body143170%_ _%tl143049143165%_)) + (_%K143039143121%_ + _%body143170%_ + _%bind143168%_ + _%expr1143151%_ + _%id1143144%_)) + (_%else143037143112%_))) + (_%else143037143112%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else143037143112%_)))) + (_%else143037143112%_))) + (_%else143037143112%_)) + (_%else143037143112%_)) + (_%else143037143112%_))) + (_%else143037143112%_))) + (_%else143037143112%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else143037143112%_)))) + (_%else143037143112%_)) + (_%else143037143112%_))) + (_%else143037143112%_)))))) + (_%generate-values142730%_ + (lambda (_%hd142844%_ _%body142845%_) + (let _%lp142847%_ ((_%rest142849%_ _%hd142844%_) + (_%bind142850%_ '()) + (_%check142851%_ '()) + (_%post142852%_ '())) + (let* ((_%__stx146975146976%_ _%rest142849%_) + (_%g142855142866%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx146701146702%_))))) - (let ((_%__kont146703146704%_ - (lambda (_%L142619%_ _%L142620%_) - (let* ((_%__stx146657146658%_ _%L142620%_) - (_%g142635142660%_ + _%__stx146975146976%_))))) + (let ((_%__kont146977146978%_ + (lambda (_%L142893%_ _%L142894%_) + (let* ((_%__stx146931146932%_ _%L142894%_) + (_%g142909142934%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx146657146658%_))))) - (let ((_%__kont146659146660%_ - (lambda (_%L142733%_ _%L142734%_) - (let ((_%eid142748%_ + _%__stx146931146932%_))))) + (let ((_%__kont146933146934%_ + (lambda (_%L143007%_ _%L143008%_) + (let ((_%eid143022%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%L142734%_))) - (_%expr142749%_ + _%L143008%_))) + (_%expr143023%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self142449%_ - _%L142733%_)))) - (_%lp142573%_ - _%L142619%_ - (cons (cons _%eid142748%_ - (cons _%expr142749%_ + _%self142723%_ + _%L143007%_)))) + (_%lp142847%_ + _%L142893%_ + (cons (cons _%eid143022%_ + (cons _%expr143023%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind142576%_) - _%check142577%_ - _%post142578%_)))) - (_%__kont146661146662%_ - (lambda (_%L142681%_ _%L142682%_) - (let* ((_%vals142695%_ + _%bind142850%_) + _%check142851%_ + _%post142852%_)))) + (_%__kont146935146936%_ + (lambda (_%L142955%_ _%L142956%_) + (let* ((_%vals142969%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%check-values142697%_ + (_%check-values142971%_ (gxc#generate-runtime-check-values - _%vals142695%_ - _%L142682%_ - _%L142681%_)) - (_%refs142699%_ + _%vals142969%_ + _%L142956%_ + _%L142955%_)) + (_%refs142973%_ (gxc#generate-runtime-let-values-bind - _%vals142695%_ - _%L142682%_)) - (_%expr142701%_ + _%vals142969%_ + _%L142956%_)) + (_%expr142975%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self142449%_ - _%L142681%_)))) - (_%lp142573%_ - _%L142619%_ - (cons (cons _%vals142695%_ - (cons _%expr142701%_ + _%self142723%_ + _%L142955%_)))) + (_%lp142847%_ + _%L142893%_ + (cons (cons _%vals142969%_ + (cons _%expr142975%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind142576%_) - (cons _%check-values142697%_ - _%check142577%_) - (cons _%refs142699%_ - _%post142578%_)))))) + _%bind142850%_) + (cons _%check-values142971%_ + _%check142851%_) + (cons _%refs142973%_ + _%post142852%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx146657146658%_)) - (let ((_%e142639142709%_ + _%__stx146931146932%_)) + (let ((_%e142913142983%_ (let () (declare (not safe)) (gx#stx-e - _%__stx146657146658%_)))) - (let ((_%tl142641142714%_ + _%__stx146931146932%_)))) + (let ((_%tl142915142988%_ (let () (declare (not safe)) - (##cdr _%e142639142709%_))) - (_%hd142640142712%_ + (##cdr _%e142913142983%_))) + (_%hd142914142986%_ (let () (declare (not safe)) - (##car _%e142639142709%_)))) + (##car _%e142913142983%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142640142712%_)) - (let ((_%e142642142717%_ + _%hd142914142986%_)) + (let ((_%e142916142991%_ (let () (declare (not safe)) (gx#stx-e - _%hd142640142712%_)))) - (let ((_%tl142644142722%_ + _%hd142914142986%_)))) + (let ((_%tl142918142996%_ (let () (declare (not safe)) - (##cdr _%e142642142717%_))) - (_%hd142643142720%_ + (##cdr _%e142916142991%_))) + (_%hd142917142994%_ (let () (declare (not safe)) - (##car _%e142642142717%_)))) + (##car _%e142916142991%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142644142722%_)) + _%tl142918142996%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl142641142714%_)) - (let ((_%e142645142725%_ + (gx#stx-pair? _%tl142915142988%_)) + (let ((_%e142919142999%_ (let () (declare (not safe)) - (gx#stx-e _%tl142641142714%_)))) - (let ((_%tl142647142730%_ + (gx#stx-e _%tl142915142988%_)))) + (let ((_%tl142921143004%_ (let () (declare (not safe)) - (##cdr _%e142645142725%_))) - (_%hd142646142728%_ + (##cdr _%e142919142999%_))) + (_%hd142920143002%_ (let () (declare (not safe)) - (##car _%e142645142725%_)))) + (##car _%e142919142999%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142647142730%_)) - (_%__kont146659146660%_ - _%hd142646142728%_ - _%hd142643142720%_) + (gx#stx-null? _%tl142921143004%_)) + (_%__kont146933146934%_ + _%hd142920143002%_ + _%hd142917142994%_) (let () (declare (not safe)) - (_%g142635142660%_))))) - (let () (declare (not safe)) (_%g142635142660%_))) + (_%g142909142934%_))))) + (let () (declare (not safe)) (_%g142909142934%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142641142714%_)) - (let ((_%e142653142673%_ + (gx#stx-pair? _%tl142915142988%_)) + (let ((_%e142927142947%_ (let () (declare (not safe)) - (gx#stx-e _%tl142641142714%_)))) - (let ((_%tl142655142678%_ + (gx#stx-e _%tl142915142988%_)))) + (let ((_%tl142929142952%_ (let () (declare (not safe)) - (##cdr _%e142653142673%_))) - (_%hd142654142676%_ + (##cdr _%e142927142947%_))) + (_%hd142928142950%_ (let () (declare (not safe)) - (##car _%e142653142673%_)))) + (##car _%e142927142947%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142655142678%_)) - (_%__kont146661146662%_ - _%hd142654142676%_ - _%hd142640142712%_) + (gx#stx-null? _%tl142929142952%_)) + (_%__kont146935146936%_ + _%hd142928142950%_ + _%hd142914142986%_) (let () (declare (not safe)) - (_%g142635142660%_))))) - (let () (declare (not safe)) (_%g142635142660%_)))))) + (_%g142909142934%_))))) + (let () (declare (not safe)) (_%g142909142934%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142641142714%_)) - (let ((_%e142653142673%_ + _%tl142915142988%_)) + (let ((_%e142927142947%_ (let () (declare (not safe)) (gx#stx-e - _%tl142641142714%_)))) - (let ((_%tl142655142678%_ + _%tl142915142988%_)))) + (let ((_%tl142929142952%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e142653142673%_))) - (_%hd142654142676%_ - (let () (declare (not safe)) (##car _%e142653142673%_)))) + (##cdr _%e142927142947%_))) + (_%hd142928142950%_ + (let () (declare (not safe)) (##car _%e142927142947%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142655142678%_)) - (_%__kont146661146662%_ - _%hd142654142676%_ - _%hd142640142712%_) - (let () (declare (not safe)) (_%g142635142660%_))))) + (gx#stx-null? _%tl142929142952%_)) + (_%__kont146935146936%_ + _%hd142928142950%_ + _%hd142914142986%_) + (let () (declare (not safe)) (_%g142909142934%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g142635142660%_)))))) + (_%g142909142934%_)))))) (let () (declare (not safe)) - (_%g142635142660%_))))))) - (_%__kont146705146706%_ + (_%g142909142934%_))))))) + (_%__kont146979146980%_ (lambda () - (let* ((_%body142599%_ - (if _%compiled-body?142451%_ - _%body142571%_ + (let* ((_%body142873%_ + (if _%compiled-body?142725%_ + _%body142845%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self142449%_ - _%body142571%_)))) - (_%body142601%_ - (_%generate-values-post142457%_ - _%post142578%_ - _%body142599%_)) - (_%body142603%_ - (_%generate-values-check142458%_ - _%check142577%_ - _%body142601%_))) + _%self142723%_ + _%body142845%_)))) + (_%body142875%_ + (_%generate-values-post142731%_ + _%post142852%_ + _%body142873%_)) + (_%body142877%_ + (_%generate-values-check142732%_ + _%check142851%_ + _%body142875%_))) (cons 'let - (cons (reverse _%bind142576%_) - (cons _%body142603%_ '()))))))) + (cons (reverse _%bind142850%_) + (cons _%body142877%_ '()))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx146701146702%_)) - (let ((_%e142585142611%_ + (gx#stx-pair? _%__stx146975146976%_)) + (let ((_%e142859142885%_ (let () (declare (not safe)) - (gx#stx-e _%__stx146701146702%_)))) - (let ((_%tl142587142616%_ + (gx#stx-e _%__stx146975146976%_)))) + (let ((_%tl142861142890%_ (let () (declare (not safe)) - (##cdr _%e142585142611%_))) - (_%hd142586142614%_ + (##cdr _%e142859142885%_))) + (_%hd142860142888%_ (let () (declare (not safe)) - (##car _%e142585142611%_)))) - (_%__kont146703146704%_ - _%tl142587142616%_ - _%hd142586142614%_))) - (_%__kont146705146706%_))))))) - (_%generate-values-post142457%_ - (lambda (_%post142529%_ _%body142530%_) - (let _%lp142532%_ ((_%rest142534%_ _%post142529%_) - (_%body142535%_ _%body142530%_)) - (let* ((_%rest142536142544%_ _%rest142534%_) - (_%else142538142552%_ (lambda () _%body142535%_)) - (_%K142540142558%_ - (lambda (_%rest142555%_ _%bind142556%_) - (_%lp142532%_ - _%rest142555%_ + (##car _%e142859142885%_)))) + (_%__kont146977146978%_ + _%tl142861142890%_ + _%hd142860142888%_))) + (_%__kont146979146980%_))))))) + (_%generate-values-post142731%_ + (lambda (_%post142803%_ _%body142804%_) + (let _%lp142806%_ ((_%rest142808%_ _%post142803%_) + (_%body142809%_ _%body142804%_)) + (let* ((_%rest142810142818%_ _%rest142808%_) + (_%else142812142826%_ (lambda () _%body142809%_)) + (_%K142814142832%_ + (lambda (_%rest142829%_ _%bind142830%_) + (_%lp142806%_ + _%rest142829%_ (cons 'let - (cons _%bind142556%_ - (cons _%body142535%_ '()))))))) + (cons _%bind142830%_ + (cons _%body142809%_ '()))))))) (if (let () (declare (not safe)) - (##pair? _%rest142536142544%_)) - (let ((_%hd142541142561%_ + (##pair? _%rest142810142818%_)) + (let ((_%hd142815142835%_ (let () (declare (not safe)) - (##car _%rest142536142544%_))) - (_%tl142542142563%_ + (##car _%rest142810142818%_))) + (_%tl142816142837%_ (let () (declare (not safe)) - (##cdr _%rest142536142544%_)))) - (let* ((_%bind142566%_ _%hd142541142561%_) - (_%rest142568%_ _%tl142542142563%_)) - (_%K142540142558%_ - _%rest142568%_ - _%bind142566%_))) - (_%else142538142552%_)))))) - (_%generate-values-check142458%_ - (lambda (_%check142526%_ _%body142527%_) + (##cdr _%rest142810142818%_)))) + (let* ((_%bind142840%_ _%hd142815142835%_) + (_%rest142842%_ _%tl142816142837%_)) + (_%K142814142832%_ + _%rest142842%_ + _%bind142840%_))) + (_%else142812142826%_)))))) + (_%generate-values-check142732%_ + (lambda (_%check142800%_ _%body142801%_) (cons 'begin - (let ((__tmp147549 (cons _%body142527%_ '())) - (__tmp147548 (reverse _%check142526%_))) + (let ((__tmp147823 (cons _%body142801%_ '())) + (__tmp147822 (reverse _%check142800%_))) (declare (not safe)) - (__foldr1 cons __tmp147549 __tmp147548)))))) - (let* ((_%g142460142477%_ - (lambda (_%g142461142474%_) + (__foldr1 cons __tmp147823 __tmp147822)))))) + (let* ((_%g142734142751%_ + (lambda (_%g142735142748%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g142461142474%_)))) - (_%g142459142523%_ - (lambda (_%g142461142480%_) + _%g142735142748%_)))) + (_%g142733142797%_ + (lambda (_%g142735142754%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g142461142480%_)) - (let ((_%e142464142482%_ + (gx#stx-pair? _%g142735142754%_)) + (let ((_%e142738142756%_ (let () (declare (not safe)) - (gx#stx-e _%g142461142480%_)))) - (let ((_%hd142465142485%_ + (gx#stx-e _%g142735142754%_)))) + (let ((_%hd142739142759%_ (let () (declare (not safe)) - (##car _%e142464142482%_))) - (_%tl142466142487%_ + (##car _%e142738142756%_))) + (_%tl142740142761%_ (let () (declare (not safe)) - (##cdr _%e142464142482%_)))) + (##cdr _%e142738142756%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142466142487%_)) - (let ((_%e142467142490%_ + (gx#stx-pair? _%tl142740142761%_)) + (let ((_%e142741142764%_ (let () (declare (not safe)) - (gx#stx-e _%tl142466142487%_)))) - (let ((_%hd142468142493%_ + (gx#stx-e _%tl142740142761%_)))) + (let ((_%hd142742142767%_ (let () (declare (not safe)) - (##car _%e142467142490%_))) - (_%tl142469142495%_ + (##car _%e142741142764%_))) + (_%tl142743142769%_ (let () (declare (not safe)) - (##cdr _%e142467142490%_)))) + (##cdr _%e142741142764%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142469142495%_)) - (let ((_%e142470142498%_ + (gx#stx-pair? _%tl142743142769%_)) + (let ((_%e142744142772%_ (let () (declare (not safe)) (gx#stx-e - _%tl142469142495%_)))) - (let ((_%hd142471142501%_ + _%tl142743142769%_)))) + (let ((_%hd142745142775%_ (let () (declare (not safe)) - (##car _%e142470142498%_))) - (_%tl142472142503%_ + (##car _%e142744142772%_))) + (_%tl142746142777%_ (let () (declare (not safe)) - (##cdr _%e142470142498%_)))) + (##cdr _%e142744142772%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142472142503%_)) - ((lambda (_%L142506%_ - _%L142507%_) + _%tl142746142777%_)) + ((lambda (_%L142780%_ + _%L142781%_) (if (gxc#generate-runtime-simple-let? - _%L142507%_) - (_%generate-simple142453%_ - _%L142507%_ - _%L142506%_) - (_%generate-values142456%_ - _%L142507%_ - _%L142506%_))) - _%hd142471142501%_ - _%hd142468142493%_) - (_%g142460142477%_ - _%g142461142480%_)))) - (_%g142460142477%_ - _%g142461142480%_)))) - (_%g142460142477%_ _%g142461142480%_)))) - (_%g142460142477%_ _%g142461142480%_))))) - (_%g142459142523%_ _%stx142450%_))))) + _%L142781%_) + (_%generate-simple142727%_ + _%L142781%_ + _%L142780%_) + (_%generate-values142730%_ + _%L142781%_ + _%L142780%_))) + _%hd142745142775%_ + _%hd142742142767%_) + (_%g142734142751%_ + _%g142735142754%_)))) + (_%g142734142751%_ + _%g142735142754%_)))) + (_%g142734142751%_ _%g142735142754%_)))) + (_%g142734142751%_ _%g142735142754%_))))) + (_%g142733142797%_ _%stx142724%_))))) (define gxc#generate-runtime-let-values%__0 - (lambda (_%self143203%_ _%stx143204%_) - (let ((_%compiled-body?143206%_ '#f)) + (lambda (_%self143477%_ _%stx143478%_) + (let ((_%compiled-body?143480%_ '#f)) (gxc#generate-runtime-let-values%__% - _%self143203%_ - _%stx143204%_ - _%compiled-body?143206%_)))) + _%self143477%_ + _%stx143478%_ + _%compiled-body?143480%_)))) (define gxc#generate-runtime-let-values% - (lambda _g147551_ - (let ((_g147550_ (let () (declare (not safe)) (##length _g147551_)))) - (cond ((let () (declare (not safe)) (##fx= _g147550_ 2)) - (apply gxc#generate-runtime-let-values%__0 _g147551_)) - ((let () (declare (not safe)) (##fx= _g147550_ 3)) - (apply gxc#generate-runtime-let-values%__% _g147551_)) + (lambda _g147825_ + (let ((_g147824_ (let () (declare (not safe)) (##length _g147825_)))) + (cond ((let () (declare (not safe)) (##fx= _g147824_ 2)) + (apply gxc#generate-runtime-let-values%__0 _g147825_)) + ((let () (declare (not safe)) (##fx= _g147824_ 3)) + (apply gxc#generate-runtime-let-values%__% _g147825_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-let-values% - _g147551_)))))) + _g147825_)))))) (define gxc#generate-runtime-let-values-bind - (lambda (_%vals142343%_ _%hd142344%_) - (let _%lp142346%_ ((_%rest142348%_ _%hd142344%_) - (_%k142349%_ '0) - (_%r142350%_ '())) - (let* ((_%__stx146715146716%_ _%rest142348%_) - (_%g142355142372%_ + (lambda (_%vals142617%_ _%hd142618%_) + (let _%lp142620%_ ((_%rest142622%_ _%hd142618%_) + (_%k142623%_ '0) + (_%r142624%_ '())) + (let* ((_%__stx146989146990%_ _%rest142622%_) + (_%g142629142646%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx146715146716%_))))) - (let ((_%__kont146717146718%_ - (lambda (_%L142435%_) - (_%lp142346%_ - _%L142435%_ - (let () (declare (not safe)) (##fx+ _%k142349%_ '1)) - _%r142350%_))) - (_%__kont146719146720%_ - (lambda (_%L142408%_ _%L142409%_) - (_%lp142346%_ - _%L142408%_ - (let () (declare (not safe)) (##fx+ _%k142349%_ '1)) + _%__stx146989146990%_))))) + (let ((_%__kont146991146992%_ + (lambda (_%L142709%_) + (_%lp142620%_ + _%L142709%_ + (let () (declare (not safe)) (##fx+ _%k142623%_ '1)) + _%r142624%_))) + (_%__kont146993146994%_ + (lambda (_%L142682%_ _%L142683%_) + (_%lp142620%_ + _%L142682%_ + (let () (declare (not safe)) (##fx+ _%k142623%_ '1)) (cons (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L142409%_)) + _%L142683%_)) (cons (gxc#generate-runtime-values-ref - _%vals142343%_ - _%k142349%_ - _%L142408%_) + _%vals142617%_ + _%k142623%_ + _%L142682%_) '())) - _%r142350%_)))) - (_%__kont146721146722%_ - (lambda (_%L142384%_) - (let ((__tmp147552 + _%r142624%_)))) + (_%__kont146995146996%_ + (lambda (_%L142658%_) + (let ((__tmp147826 (cons (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L142384%_)) + _%L142658%_)) (cons (gxc#generate-runtime-values->list - _%vals142343%_ - _%k142349%_) + _%vals142617%_ + _%k142623%_) '())) '()))) (declare (not safe)) - (__foldl1 cons __tmp147552 _%r142350%_)))) - (_%__kont146723146724%_ (lambda () (reverse _%r142350%_)))) - (let ((_%g142353142395%_ + (__foldl1 cons __tmp147826 _%r142624%_)))) + (_%__kont146997146998%_ (lambda () (reverse _%r142624%_)))) + (let ((_%g142627142669%_ (lambda () - (let ((_%L142384%_ _%__stx146715146716%_)) + (let ((_%L142658%_ _%__stx146989146990%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L142384%_)) - (_%__kont146721146722%_ _%L142384%_) - (_%__kont146723146724%_)))))) + (gx#identifier? _%L142658%_)) + (_%__kont146995146996%_ _%L142658%_) + (_%__kont146997146998%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx146715146716%_)) - (let ((_%e142358142424%_ + (gx#stx-pair? _%__stx146989146990%_)) + (let ((_%e142632142698%_ (let () (declare (not safe)) - (gx#stx-e _%__stx146715146716%_)))) - (let ((_%tl142360142429%_ + (gx#stx-e _%__stx146989146990%_)))) + (let ((_%tl142634142703%_ (let () (declare (not safe)) - (##cdr _%e142358142424%_))) - (_%hd142359142427%_ + (##cdr _%e142632142698%_))) + (_%hd142633142701%_ (let () (declare (not safe)) - (##car _%e142358142424%_)))) + (##car _%e142632142698%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd142359142427%_)) - (let ((_%e142361142432%_ + (gx#stx-datum? _%hd142633142701%_)) + (let ((_%e142635142706%_ (let () (declare (not safe)) - (gx#stx-e _%hd142359142427%_)))) - (if (equal? _%e142361142432%_ '#f) - (_%__kont146717146718%_ _%tl142360142429%_) - (_%__kont146719146720%_ - _%tl142360142429%_ - _%hd142359142427%_))) - (_%__kont146719146720%_ - _%tl142360142429%_ - _%hd142359142427%_)))) - (let () (declare (not safe)) (_%g142353142395%_))))))))) + (gx#stx-e _%hd142633142701%_)))) + (if (equal? _%e142635142706%_ '#f) + (_%__kont146991146992%_ _%tl142634142703%_) + (_%__kont146993146994%_ + _%tl142634142703%_ + _%hd142633142701%_))) + (_%__kont146993146994%_ + _%tl142634142703%_ + _%hd142633142701%_)))) + (let () (declare (not safe)) (_%g142627142669%_))))))))) (define gxc#generate-runtime-letrec-values%__% - (lambda (_%self142022%_ _%stx142023%_ _%compiled-body?142024%_) - (letrec ((_%generate-simple142026%_ - (lambda (_%hd142328%_ _%body142329%_) + (lambda (_%self142296%_ _%stx142297%_ _%compiled-body?142298%_) + (letrec ((_%generate-simple142300%_ + (lambda (_%hd142602%_ _%body142603%_) (gxc#generate-runtime-simple-let - _%self142022%_ + _%self142296%_ 'letrec - _%hd142328%_ - _%body142329%_ - _%compiled-body?142024%_))) - (_%generate-values142027%_ - (lambda (_%hd142107%_ _%body142108%_) - (let _%lp142110%_ ((_%rest142112%_ _%hd142107%_) - (_%bind142113%_ '()) - (_%check142114%_ '()) - (_%post142115%_ '())) - (let* ((_%__stx146789146790%_ _%rest142112%_) - (_%g142118142129%_ + _%hd142602%_ + _%body142603%_ + _%compiled-body?142298%_))) + (_%generate-values142301%_ + (lambda (_%hd142381%_ _%body142382%_) + (let _%lp142384%_ ((_%rest142386%_ _%hd142381%_) + (_%bind142387%_ '()) + (_%check142388%_ '()) + (_%post142389%_ '())) + (let* ((_%__stx147063147064%_ _%rest142386%_) + (_%g142392142403%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx146789146790%_))))) - (let ((_%__kont146791146792%_ - (lambda (_%L142156%_ _%L142157%_) - (let* ((_%__stx146745146746%_ _%L142157%_) - (_%g142172142197%_ + _%__stx147063147064%_))))) + (let ((_%__kont147065147066%_ + (lambda (_%L142430%_ _%L142431%_) + (let* ((_%__stx147019147020%_ _%L142431%_) + (_%g142446142471%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx146745146746%_))))) - (let ((_%__kont146747146748%_ - (lambda (_%L142304%_ _%L142305%_) - (let ((_%eid142319%_ + _%__stx147019147020%_))))) + (let ((_%__kont147021147022%_ + (lambda (_%L142578%_ _%L142579%_) + (let ((_%eid142593%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%L142305%_))) - (_%expr142320%_ + _%L142579%_))) + (_%expr142594%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self142022%_ - _%L142304%_)))) - (_%lp142110%_ - _%L142156%_ - (cons (cons _%eid142319%_ - (cons _%expr142320%_ + _%self142296%_ + _%L142578%_)))) + (_%lp142384%_ + _%L142430%_ + (cons (cons _%eid142593%_ + (cons _%expr142594%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind142113%_) - _%check142114%_ - _%post142115%_)))) - (_%__kont146749146750%_ - (lambda (_%L142218%_ _%L142219%_) - (let* ((_%vals142232%_ + _%bind142387%_) + _%check142388%_ + _%post142389%_)))) + (_%__kont147023147024%_ + (lambda (_%L142492%_ _%L142493%_) + (let* ((_%vals142506%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%check-values142234%_ + (_%check-values142508%_ (gxc#generate-runtime-check-values - _%vals142232%_ - _%L142219%_ - _%L142218%_)) - (_%refs142236%_ + _%vals142506%_ + _%L142493%_ + _%L142492%_)) + (_%refs142510%_ (gxc#generate-runtime-let-values-bind - _%vals142232%_ - _%L142219%_)) - (_%expr142238%_ + _%vals142506%_ + _%L142493%_)) + (_%expr142512%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self142022%_ - _%L142218%_)))) - (_%lp142110%_ - _%L142156%_ - (let ((__tmp147554 - (cons (cons _%vals142232%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr142238%_ '())) - _%bind142113%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp147553 - (map (lambda (_%e142240142242%_) - (let* ((_%g142244142253%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e142240142242%_) - (_%E142246142257%_ + _%self142296%_ + _%L142492%_)))) + (_%lp142384%_ + _%L142430%_ + (let ((__tmp147828 + (cons (cons _%vals142506%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%expr142512%_ '())) + _%bind142387%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp147827 + (map (lambda (_%e142514142516%_) + (let* ((_%g142518142527%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%e142514142516%_) + (_%E142520142531%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g142244142253%_ + _%g142518142527%_ '([eid _]))) '#!void)) - (_%K142247142262%_ - (lambda (_%eid142260%_) - (cons _%eid142260%_ (cons '#!void '()))))) + (_%K142521142536%_ + (lambda (_%eid142534%_) + (cons _%eid142534%_ (cons '#!void '()))))) (if (let () (declare (not safe)) - (##pair? _%g142244142253%_)) - (let ((_%hd142248142265%_ + (##pair? _%g142518142527%_)) + (let ((_%hd142522142539%_ (let () (declare (not safe)) - (##car _%g142244142253%_))) - (_%tl142249142267%_ + (##car _%g142518142527%_))) + (_%tl142523142541%_ (let () (declare (not safe)) - (##cdr _%g142244142253%_)))) - (let ((_%eid142270%_ _%hd142248142265%_)) + (##cdr _%g142518142527%_)))) + (let ((_%eid142544%_ _%hd142522142539%_)) (if (let () (declare (not safe)) - (##pair? _%tl142249142267%_)) - (let ((_%tl142251142272%_ + (##pair? _%tl142523142541%_)) + (let ((_%tl142525142546%_ (let () (declare (not safe)) - (##cdr _%tl142249142267%_)))) + (##cdr _%tl142523142541%_)))) (if (let () (declare (not safe)) - (##null? _%tl142251142272%_)) - (_%K142247142262%_ _%eid142270%_) - (_%E142246142257%_))) - (_%E142246142257%_)))) - (_%E142246142257%_)))) - _%refs142236%_))) + (##null? _%tl142525142546%_)) + (_%K142521142536%_ _%eid142544%_) + (_%E142520142531%_))) + (_%E142520142531%_)))) + (_%E142520142531%_)))) + _%refs142510%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 cons - __tmp147554 - __tmp147553)) - (cons _%check-values142234%_ - _%check142114%_) + __tmp147828 + __tmp147827)) + (cons _%check-values142508%_ + _%check142388%_) (let () (declare (not safe)) (__foldl1 cons - _%refs142236%_ - _%post142115%_))))))) + _%refs142510%_ + _%post142389%_))))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx146745146746%_)) - (let ((_%e142176142280%_ + _%__stx147019147020%_)) + (let ((_%e142450142554%_ (let () (declare (not safe)) (gx#stx-e - _%__stx146745146746%_)))) - (let ((_%tl142178142285%_ + _%__stx147019147020%_)))) + (let ((_%tl142452142559%_ (let () (declare (not safe)) - (##cdr _%e142176142280%_))) - (_%hd142177142283%_ + (##cdr _%e142450142554%_))) + (_%hd142451142557%_ (let () (declare (not safe)) - (##car _%e142176142280%_)))) + (##car _%e142450142554%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142177142283%_)) - (let ((_%e142179142288%_ + _%hd142451142557%_)) + (let ((_%e142453142562%_ (let () (declare (not safe)) (gx#stx-e - _%hd142177142283%_)))) - (let ((_%tl142181142293%_ + _%hd142451142557%_)))) + (let ((_%tl142455142567%_ (let () (declare (not safe)) - (##cdr _%e142179142288%_))) - (_%hd142180142291%_ + (##cdr _%e142453142562%_))) + (_%hd142454142565%_ (let () (declare (not safe)) - (##car _%e142179142288%_)))) + (##car _%e142453142562%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142181142293%_)) + _%tl142455142567%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl142178142285%_)) - (let ((_%e142182142296%_ + (gx#stx-pair? _%tl142452142559%_)) + (let ((_%e142456142570%_ (let () (declare (not safe)) - (gx#stx-e _%tl142178142285%_)))) - (let ((_%tl142184142301%_ + (gx#stx-e _%tl142452142559%_)))) + (let ((_%tl142458142575%_ (let () (declare (not safe)) - (##cdr _%e142182142296%_))) - (_%hd142183142299%_ + (##cdr _%e142456142570%_))) + (_%hd142457142573%_ (let () (declare (not safe)) - (##car _%e142182142296%_)))) + (##car _%e142456142570%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142184142301%_)) - (_%__kont146747146748%_ - _%hd142183142299%_ - _%hd142180142291%_) + (gx#stx-null? _%tl142458142575%_)) + (_%__kont147021147022%_ + _%hd142457142573%_ + _%hd142454142565%_) (let () (declare (not safe)) - (_%g142172142197%_))))) - (let () (declare (not safe)) (_%g142172142197%_))) + (_%g142446142471%_))))) + (let () (declare (not safe)) (_%g142446142471%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142178142285%_)) - (let ((_%e142190142210%_ + (gx#stx-pair? _%tl142452142559%_)) + (let ((_%e142464142484%_ (let () (declare (not safe)) - (gx#stx-e _%tl142178142285%_)))) - (let ((_%tl142192142215%_ + (gx#stx-e _%tl142452142559%_)))) + (let ((_%tl142466142489%_ (let () (declare (not safe)) - (##cdr _%e142190142210%_))) - (_%hd142191142213%_ + (##cdr _%e142464142484%_))) + (_%hd142465142487%_ (let () (declare (not safe)) - (##car _%e142190142210%_)))) + (##car _%e142464142484%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142192142215%_)) - (_%__kont146749146750%_ - _%hd142191142213%_ - _%hd142177142283%_) + (gx#stx-null? _%tl142466142489%_)) + (_%__kont147023147024%_ + _%hd142465142487%_ + _%hd142451142557%_) (let () (declare (not safe)) - (_%g142172142197%_))))) - (let () (declare (not safe)) (_%g142172142197%_)))))) + (_%g142446142471%_))))) + (let () (declare (not safe)) (_%g142446142471%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142178142285%_)) - (let ((_%e142190142210%_ + _%tl142452142559%_)) + (let ((_%e142464142484%_ (let () (declare (not safe)) (gx#stx-e - _%tl142178142285%_)))) - (let ((_%tl142192142215%_ + _%tl142452142559%_)))) + (let ((_%tl142466142489%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e142190142210%_))) - (_%hd142191142213%_ - (let () (declare (not safe)) (##car _%e142190142210%_)))) + (##cdr _%e142464142484%_))) + (_%hd142465142487%_ + (let () (declare (not safe)) (##car _%e142464142484%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142192142215%_)) - (_%__kont146749146750%_ - _%hd142191142213%_ - _%hd142177142283%_) - (let () (declare (not safe)) (_%g142172142197%_))))) + (gx#stx-null? _%tl142466142489%_)) + (_%__kont147023147024%_ + _%hd142465142487%_ + _%hd142451142557%_) + (let () (declare (not safe)) (_%g142446142471%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g142172142197%_)))))) + (_%g142446142471%_)))))) (let () (declare (not safe)) - (_%g142172142197%_))))))) - (_%__kont146793146794%_ + (_%g142446142471%_))))))) + (_%__kont147067147068%_ (lambda () - (let* ((_%body142136%_ - (if _%compiled-body?142024%_ - _%body142108%_ + (let* ((_%body142410%_ + (if _%compiled-body?142298%_ + _%body142382%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self142022%_ - _%body142108%_)))) - (_%body142138%_ - (_%generate-values-post142029%_ - _%post142115%_ - _%body142136%_)) - (_%body142140%_ - (_%generate-values-check142028%_ - _%check142114%_ - _%body142138%_))) + _%self142296%_ + _%body142382%_)))) + (_%body142412%_ + (_%generate-values-post142303%_ + _%post142389%_ + _%body142410%_)) + (_%body142414%_ + (_%generate-values-check142302%_ + _%check142388%_ + _%body142412%_))) (cons 'letrec - (cons (reverse _%bind142113%_) - (cons _%body142140%_ '()))))))) + (cons (reverse _%bind142387%_) + (cons _%body142414%_ '()))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx146789146790%_)) - (let ((_%e142122142148%_ + (gx#stx-pair? _%__stx147063147064%_)) + (let ((_%e142396142422%_ (let () (declare (not safe)) - (gx#stx-e _%__stx146789146790%_)))) - (let ((_%tl142124142153%_ + (gx#stx-e _%__stx147063147064%_)))) + (let ((_%tl142398142427%_ (let () (declare (not safe)) - (##cdr _%e142122142148%_))) - (_%hd142123142151%_ + (##cdr _%e142396142422%_))) + (_%hd142397142425%_ (let () (declare (not safe)) - (##car _%e142122142148%_)))) - (_%__kont146791146792%_ - _%tl142124142153%_ - _%hd142123142151%_))) - (_%__kont146793146794%_))))))) - (_%generate-values-check142028%_ - (lambda (_%check142104%_ _%body142105%_) + (##car _%e142396142422%_)))) + (_%__kont147065147066%_ + _%tl142398142427%_ + _%hd142397142425%_))) + (_%__kont147067147068%_))))))) + (_%generate-values-check142302%_ + (lambda (_%check142378%_ _%body142379%_) (cons 'begin - (let ((__tmp147556 (cons _%body142105%_ '())) - (__tmp147555 (reverse _%check142104%_))) + (let ((__tmp147830 (cons _%body142379%_ '())) + (__tmp147829 (reverse _%check142378%_))) (declare (not safe)) - (__foldr1 cons __tmp147556 __tmp147555))))) - (_%generate-values-post142029%_ - (lambda (_%post142097%_ _%body142098%_) + (__foldr1 cons __tmp147830 __tmp147829))))) + (_%generate-values-post142303%_ + (lambda (_%post142371%_ _%body142372%_) (cons 'begin - (let ((__tmp147560 (cons _%body142098%_ '())) - (__tmp147557 - (let ((__tmp147559 - (lambda (_%g142099142101%_) - (cons 'set! _%g142099142101%_))) - (__tmp147558 (reverse _%post142097%_))) + (let ((__tmp147834 (cons _%body142372%_ '())) + (__tmp147831 + (let ((__tmp147833 + (lambda (_%g142373142375%_) + (cons 'set! _%g142373142375%_))) + (__tmp147832 (reverse _%post142371%_))) (declare (not safe)) - (##map __tmp147559 __tmp147558)))) + (##map __tmp147833 __tmp147832)))) (declare (not safe)) - (__foldr1 cons __tmp147560 __tmp147557)))))) - (let* ((_%g142031142048%_ - (lambda (_%g142032142045%_) + (__foldr1 cons __tmp147834 __tmp147831)))))) + (let* ((_%g142305142322%_ + (lambda (_%g142306142319%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g142032142045%_)))) - (_%g142030142094%_ - (lambda (_%g142032142051%_) + _%g142306142319%_)))) + (_%g142304142368%_ + (lambda (_%g142306142325%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g142032142051%_)) - (let ((_%e142035142053%_ + (gx#stx-pair? _%g142306142325%_)) + (let ((_%e142309142327%_ (let () (declare (not safe)) - (gx#stx-e _%g142032142051%_)))) - (let ((_%hd142036142056%_ + (gx#stx-e _%g142306142325%_)))) + (let ((_%hd142310142330%_ (let () (declare (not safe)) - (##car _%e142035142053%_))) - (_%tl142037142058%_ + (##car _%e142309142327%_))) + (_%tl142311142332%_ (let () (declare (not safe)) - (##cdr _%e142035142053%_)))) + (##cdr _%e142309142327%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142037142058%_)) - (let ((_%e142038142061%_ + (gx#stx-pair? _%tl142311142332%_)) + (let ((_%e142312142335%_ (let () (declare (not safe)) - (gx#stx-e _%tl142037142058%_)))) - (let ((_%hd142039142064%_ + (gx#stx-e _%tl142311142332%_)))) + (let ((_%hd142313142338%_ (let () (declare (not safe)) - (##car _%e142038142061%_))) - (_%tl142040142066%_ + (##car _%e142312142335%_))) + (_%tl142314142340%_ (let () (declare (not safe)) - (##cdr _%e142038142061%_)))) + (##cdr _%e142312142335%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142040142066%_)) - (let ((_%e142041142069%_ + (gx#stx-pair? _%tl142314142340%_)) + (let ((_%e142315142343%_ (let () (declare (not safe)) (gx#stx-e - _%tl142040142066%_)))) - (let ((_%hd142042142072%_ + _%tl142314142340%_)))) + (let ((_%hd142316142346%_ (let () (declare (not safe)) - (##car _%e142041142069%_))) - (_%tl142043142074%_ + (##car _%e142315142343%_))) + (_%tl142317142348%_ (let () (declare (not safe)) - (##cdr _%e142041142069%_)))) + (##cdr _%e142315142343%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142043142074%_)) - ((lambda (_%L142077%_ - _%L142078%_) + _%tl142317142348%_)) + ((lambda (_%L142351%_ + _%L142352%_) (if (gxc#generate-runtime-simple-let? - _%L142078%_) - (_%generate-simple142026%_ - _%L142078%_ - _%L142077%_) - (_%generate-values142027%_ - _%L142078%_ - _%L142077%_))) - _%hd142042142072%_ - _%hd142039142064%_) - (_%g142031142048%_ - _%g142032142051%_)))) - (_%g142031142048%_ - _%g142032142051%_)))) - (_%g142031142048%_ _%g142032142051%_)))) - (_%g142031142048%_ _%g142032142051%_))))) - (_%g142030142094%_ _%stx142023%_))))) + _%L142352%_) + (_%generate-simple142300%_ + _%L142352%_ + _%L142351%_) + (_%generate-values142301%_ + _%L142352%_ + _%L142351%_))) + _%hd142316142346%_ + _%hd142313142338%_) + (_%g142305142322%_ + _%g142306142325%_)))) + (_%g142305142322%_ + _%g142306142325%_)))) + (_%g142305142322%_ _%g142306142325%_)))) + (_%g142305142322%_ _%g142306142325%_))))) + (_%g142304142368%_ _%stx142297%_))))) (define gxc#generate-runtime-letrec-values%__0 - (lambda (_%self142334%_ _%stx142335%_) - (let ((_%compiled-body?142337%_ '#f)) + (lambda (_%self142608%_ _%stx142609%_) + (let ((_%compiled-body?142611%_ '#f)) (gxc#generate-runtime-letrec-values%__% - _%self142334%_ - _%stx142335%_ - _%compiled-body?142337%_)))) + _%self142608%_ + _%stx142609%_ + _%compiled-body?142611%_)))) (define gxc#generate-runtime-letrec-values% - (lambda _g147562_ - (let ((_g147561_ (let () (declare (not safe)) (##length _g147562_)))) - (cond ((let () (declare (not safe)) (##fx= _g147561_ 2)) - (apply gxc#generate-runtime-letrec-values%__0 _g147562_)) - ((let () (declare (not safe)) (##fx= _g147561_ 3)) - (apply gxc#generate-runtime-letrec-values%__% _g147562_)) + (lambda _g147836_ + (let ((_g147835_ (let () (declare (not safe)) (##length _g147836_)))) + (cond ((let () (declare (not safe)) (##fx= _g147835_ 2)) + (apply gxc#generate-runtime-letrec-values%__0 _g147836_)) + ((let () (declare (not safe)) (##fx= _g147835_ 3)) + (apply gxc#generate-runtime-letrec-values%__% _g147836_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-letrec-values% - _g147562_)))))) + _g147836_)))))) (define gxc#generate-runtime-letrec*-values% - (lambda (_%self141603%_ _%stx141604%_) - (letrec ((_%generate-values141606%_ - (lambda (_%hd141849%_ _%body141850%_) - (let _%lp141852%_ ((_%rest141854%_ _%hd141849%_) - (_%bind141855%_ '())) - (let* ((_%rest141856141864%_ _%rest141854%_) - (_%else141858141875%_ + (lambda (_%self141877%_ _%stx141878%_) + (letrec ((_%generate-values141880%_ + (lambda (_%hd142123%_ _%body142124%_) + (let _%lp142126%_ ((_%rest142128%_ _%hd142123%_) + (_%bind142129%_ '())) + (let* ((_%rest142130142138%_ _%rest142128%_) + (_%else142132142149%_ (lambda () - (let ((_%bind141872%_ (reverse _%bind141855%_)) - (_%body141873%_ + (let ((_%bind142146%_ (reverse _%bind142129%_)) + (_%body142147%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self141603%_ - _%body141850%_)))) + _%self141877%_ + _%body142124%_)))) (cons 'letrec* - (cons _%bind141872%_ - (cons _%body141873%_ '())))))) - (_%K141860142009%_ - (lambda (_%rest141878%_ _%hd-bind141879%_) - (let* ((_%__stx146803146804%_ - _%hd-bind141879%_) - (_%g141882141907%_ + (cons _%bind142146%_ + (cons _%body142147%_ '())))))) + (_%K142134142283%_ + (lambda (_%rest142152%_ _%hd-bind142153%_) + (let* ((_%__stx147077147078%_ + _%hd-bind142153%_) + (_%g142156142181%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx146803146804%_))))) - (let ((_%__kont146805146806%_ - (lambda (_%L141988%_ _%L141989%_) - (let ((_%eid142003%_ + _%__stx147077147078%_))))) + (let ((_%__kont147079147080%_ + (lambda (_%L142262%_ _%L142263%_) + (let ((_%eid142277%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%L141989%_))) - (_%expr142004%_ + _%L142263%_))) + (_%expr142278%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self141603%_ - _%L141988%_)))) - (_%lp141852%_ - _%rest141878%_ - (cons (cons _%eid142003%_ - (cons _%expr142004%_ + _%self141877%_ + _%L142262%_)))) + (_%lp142126%_ + _%rest142152%_ + (cons (cons _%eid142277%_ + (cons _%expr142278%_ '())) - _%bind141855%_))))) - (_%__kont146807146808%_ - (lambda (_%L141928%_ _%L141929%_) - (let* ((_%vals141948%_ + _%bind142129%_))))) + (_%__kont147081147082%_ + (lambda (_%L142202%_ _%L142203%_) + (let* ((_%vals142222%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%tmp141950%_ + (_%tmp142224%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%check-values141952%_ + (_%check-values142226%_ (gxc#generate-runtime-check-values - _%tmp141950%_ - _%L141929%_ - _%L141928%_)) - (_%refs141954%_ + _%tmp142224%_ + _%L142203%_ + _%L142202%_)) + (_%refs142228%_ (gxc#generate-runtime-let-values-bind - _%vals141948%_ - _%L141929%_)) - (_%expr141956%_ + _%vals142222%_ + _%L142203%_)) + (_%expr142230%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self141603%_ - _%L141928%_)))) - (_%lp141852%_ - _%rest141878%_ - (let ((__tmp147563 - (cons (cons _%vals141948%_ + _%self141877%_ + _%L142202%_)))) + (_%lp142126%_ + _%rest142152%_ + (let ((__tmp147837 + (cons (cons _%vals142222%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'let - (cons (cons (cons _%tmp141950%_ - (cons _%expr141956%_ + (cons (cons (cons _%tmp142224%_ + (cons _%expr142230%_ '())) '()) - (cons _%check-values141952%_ - (cons _%tmp141950%_ '())))) + (cons _%check-values142226%_ + (cons _%tmp142224%_ '())))) '())) - _%bind141855%_))) + _%bind142129%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 cons - __tmp147563 - _%refs141954%_))))))) + __tmp147837 + _%refs142228%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx146803146804%_)) - (let ((_%e141886141964%_ + (gx#stx-pair? _%__stx147077147078%_)) + (let ((_%e142160142238%_ (let () (declare (not safe)) (gx#stx-e - _%__stx146803146804%_)))) - (let ((_%tl141888141969%_ + _%__stx147077147078%_)))) + (let ((_%tl142162142243%_ (let () (declare (not safe)) - (##cdr _%e141886141964%_))) - (_%hd141887141967%_ + (##cdr _%e142160142238%_))) + (_%hd142161142241%_ (let () (declare (not safe)) - (##car _%e141886141964%_)))) + (##car _%e142160142238%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd141887141967%_)) - (let ((_%e141889141972%_ + _%hd142161142241%_)) + (let ((_%e142163142246%_ (let () (declare (not safe)) (gx#stx-e - _%hd141887141967%_)))) - (let ((_%tl141891141977%_ + _%hd142161142241%_)))) + (let ((_%tl142165142251%_ (let () (declare (not safe)) - (##cdr _%e141889141972%_))) - (_%hd141890141975%_ + (##cdr _%e142163142246%_))) + (_%hd142164142249%_ (let () (declare (not safe)) - (##car _%e141889141972%_)))) + (##car _%e142163142246%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141891141977%_)) + _%tl142165142251%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141888141969%_)) - (let ((_%e141892141980%_ + _%tl142162142243%_)) + (let ((_%e142166142254%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl141888141969%_)))) - (let ((_%tl141894141985%_ + (gx#stx-e _%tl142162142243%_)))) + (let ((_%tl142168142259%_ (let () (declare (not safe)) - (##cdr _%e141892141980%_))) - (_%hd141893141983%_ + (##cdr _%e142166142254%_))) + (_%hd142167142257%_ (let () (declare (not safe)) - (##car _%e141892141980%_)))) + (##car _%e142166142254%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141894141985%_)) - (_%__kont146805146806%_ - _%hd141893141983%_ - _%hd141890141975%_) + (gx#stx-null? _%tl142168142259%_)) + (_%__kont147079147080%_ + _%hd142167142257%_ + _%hd142164142249%_) (let () (declare (not safe)) - (_%g141882141907%_))))) - (let () (declare (not safe)) (_%g141882141907%_))) + (_%g142156142181%_))))) + (let () (declare (not safe)) (_%g142156142181%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141888141969%_)) - (let ((_%e141900141920%_ + (gx#stx-pair? _%tl142162142243%_)) + (let ((_%e142174142194%_ (let () (declare (not safe)) - (gx#stx-e _%tl141888141969%_)))) - (let ((_%tl141902141925%_ + (gx#stx-e _%tl142162142243%_)))) + (let ((_%tl142176142199%_ (let () (declare (not safe)) - (##cdr _%e141900141920%_))) - (_%hd141901141923%_ + (##cdr _%e142174142194%_))) + (_%hd142175142197%_ (let () (declare (not safe)) - (##car _%e141900141920%_)))) + (##car _%e142174142194%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141902141925%_)) - (_%__kont146807146808%_ - _%hd141901141923%_ - _%hd141887141967%_) + (gx#stx-null? _%tl142176142199%_)) + (_%__kont147081147082%_ + _%hd142175142197%_ + _%hd142161142241%_) (let () (declare (not safe)) - (_%g141882141907%_))))) - (let () (declare (not safe)) (_%g141882141907%_)))))) + (_%g142156142181%_))))) + (let () (declare (not safe)) (_%g142156142181%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141888141969%_)) - (let ((_%e141900141920%_ + _%tl142162142243%_)) + (let ((_%e142174142194%_ (let () (declare (not safe)) (gx#stx-e - _%tl141888141969%_)))) - (let ((_%tl141902141925%_ + _%tl142162142243%_)))) + (let ((_%tl142176142199%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e141900141920%_))) - (_%hd141901141923%_ - (let () (declare (not safe)) (##car _%e141900141920%_)))) + (##cdr _%e142174142194%_))) + (_%hd142175142197%_ + (let () (declare (not safe)) (##car _%e142174142194%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141902141925%_)) - (_%__kont146807146808%_ - _%hd141901141923%_ - _%hd141887141967%_) - (let () (declare (not safe)) (_%g141882141907%_))))) + (gx#stx-null? _%tl142176142199%_)) + (_%__kont147081147082%_ + _%hd142175142197%_ + _%hd142161142241%_) + (let () (declare (not safe)) (_%g142156142181%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g141882141907%_)))))) + (_%g142156142181%_)))))) (let () (declare (not safe)) - (_%g141882141907%_)))))))) + (_%g142156142181%_)))))))) (if (let () (declare (not safe)) - (##pair? _%rest141856141864%_)) - (let ((_%hd141861142012%_ + (##pair? _%rest142130142138%_)) + (let ((_%hd142135142286%_ (let () (declare (not safe)) - (##car _%rest141856141864%_))) - (_%tl141862142014%_ + (##car _%rest142130142138%_))) + (_%tl142136142288%_ (let () (declare (not safe)) - (##cdr _%rest141856141864%_)))) - (let* ((_%hd-bind142017%_ _%hd141861142012%_) - (_%rest142019%_ _%tl141862142014%_)) - (_%K141860142009%_ - _%rest142019%_ - _%hd-bind142017%_))) - (_%else141858141875%_)))))) - (_%generate-letrec?141607%_ - (lambda (_%hd141739%_) - (let _%lp141741%_ ((_%rest141743%_ _%hd141739%_)) - (let* ((_%rest141744141752%_ _%rest141743%_) - (_%else141746141760%_ (lambda () '#t)) - (_%K141748141837%_ - (lambda (_%rest141763%_ _%hd-bind141764%_) - (let* ((_%g141766141783%_ - (lambda (_%g141767141780%_) + (##cdr _%rest142130142138%_)))) + (let* ((_%hd-bind142291%_ _%hd142135142286%_) + (_%rest142293%_ _%tl142136142288%_)) + (_%K142134142283%_ + _%rest142293%_ + _%hd-bind142291%_))) + (_%else142132142149%_)))))) + (_%generate-letrec?141881%_ + (lambda (_%hd142013%_) + (let _%lp142015%_ ((_%rest142017%_ _%hd142013%_)) + (let* ((_%rest142018142026%_ _%rest142017%_) + (_%else142020142034%_ (lambda () '#t)) + (_%K142022142111%_ + (lambda (_%rest142037%_ _%hd-bind142038%_) + (let* ((_%g142040142057%_ + (lambda (_%g142041142054%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141767141780%_)))) - (_%g141765141834%_ - (lambda (_%g141767141786%_) + _%g142041142054%_)))) + (_%g142039142108%_ + (lambda (_%g142041142060%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g141767141786%_)) - (let ((_%e141770141788%_ + _%g142041142060%_)) + (let ((_%e142044142062%_ (let () (declare (not safe)) (gx#stx-e - _%g141767141786%_)))) - (let ((_%hd141771141791%_ + _%g142041142060%_)))) + (let ((_%hd142045142065%_ (let () (declare (not safe)) - (##car _%e141770141788%_))) - (_%tl141772141793%_ + (##car _%e142044142062%_))) + (_%tl142046142067%_ (let () (declare (not safe)) - (##cdr _%e141770141788%_)))) + (##cdr _%e142044142062%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd141771141791%_)) - (let ((_%e141773141796%_ + _%hd142045142065%_)) + (let ((_%e142047142070%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd141771141791%_)))) - (let ((_%hd141774141799%_ - (let () (declare (not safe)) (##car _%e141773141796%_))) - (_%tl141775141801%_ + (gx#stx-e _%hd142045142065%_)))) + (let ((_%hd142048142073%_ + (let () (declare (not safe)) (##car _%e142047142070%_))) + (_%tl142049142075%_ (let () (declare (not safe)) - (##cdr _%e141773141796%_)))) + (##cdr _%e142047142070%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141775141801%_)) + (gx#stx-null? _%tl142049142075%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141772141793%_)) - (let ((_%e141776141804%_ + (gx#stx-pair? _%tl142046142067%_)) + (let ((_%e142050142078%_ (let () (declare (not safe)) - (gx#stx-e _%tl141772141793%_)))) - (let ((_%hd141777141807%_ + (gx#stx-e _%tl142046142067%_)))) + (let ((_%hd142051142081%_ (let () (declare (not safe)) - (##car _%e141776141804%_))) - (_%tl141778141809%_ + (##car _%e142050142078%_))) + (_%tl142052142083%_ (let () (declare (not safe)) - (##cdr _%e141776141804%_)))) + (##cdr _%e142050142078%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141778141809%_)) - ((lambda (_%L141812%_ _%L141813%_) - (if (_%is-lambda-expr?141608%_ - _%L141812%_) - (_%lp141741%_ _%rest141763%_) + (gx#stx-null? _%tl142052142083%_)) + ((lambda (_%L142086%_ _%L142087%_) + (if (_%is-lambda-expr?141882%_ + _%L142086%_) + (_%lp142015%_ _%rest142037%_) '#f)) - _%hd141777141807%_ - _%hd141774141799%_) - (_%g141766141783%_ _%g141767141786%_)))) - (_%g141766141783%_ _%g141767141786%_)) - (_%g141766141783%_ _%g141767141786%_)))) - (_%g141766141783%_ _%g141767141786%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g141766141783%_ - _%g141767141786%_))))) - (_%g141765141834%_ _%hd-bind141764%_))))) + _%hd142051142081%_ + _%hd142048142073%_) + (_%g142040142057%_ _%g142041142060%_)))) + (_%g142040142057%_ _%g142041142060%_)) + (_%g142040142057%_ _%g142041142060%_)))) + (_%g142040142057%_ _%g142041142060%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g142040142057%_ + _%g142041142060%_))))) + (_%g142039142108%_ _%hd-bind142038%_))))) (if (let () (declare (not safe)) - (##pair? _%rest141744141752%_)) - (let ((_%hd141749141840%_ + (##pair? _%rest142018142026%_)) + (let ((_%hd142023142114%_ (let () (declare (not safe)) - (##car _%rest141744141752%_))) - (_%tl141750141842%_ + (##car _%rest142018142026%_))) + (_%tl142024142116%_ (let () (declare (not safe)) - (##cdr _%rest141744141752%_)))) - (let* ((_%hd-bind141845%_ _%hd141749141840%_) - (_%rest141847%_ _%tl141750141842%_)) - (_%K141748141837%_ - _%rest141847%_ - _%hd-bind141845%_))) - (_%else141746141760%_)))))) - (_%is-lambda-expr?141608%_ - (lambda (_%expr141676%_) - (let* ((_%__stx146847146848%_ _%expr141676%_) - (_%g141679141693%_ + (##cdr _%rest142018142026%_)))) + (let* ((_%hd-bind142119%_ _%hd142023142114%_) + (_%rest142121%_ _%tl142024142116%_)) + (_%K142022142111%_ + _%rest142121%_ + _%hd-bind142119%_))) + (_%else142020142034%_)))))) + (_%is-lambda-expr?141882%_ + (lambda (_%expr141950%_) + (let* ((_%__stx147121147122%_ _%expr141950%_) + (_%g141953141967%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx146847146848%_))))) - (let ((_%__kont146849146850%_ - (lambda (_%L141721%_ _%L141722%_) '#t)) - (_%__kont146851146852%_ (lambda () '#f))) + _%__stx147121147122%_))))) + (let ((_%__kont147123147124%_ + (lambda (_%L141995%_ _%L141996%_) '#t)) + (_%__kont147125147126%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx146847146848%_)) - (let ((_%e141683141705%_ + (gx#stx-pair? _%__stx147121147122%_)) + (let ((_%e141957141979%_ (let () (declare (not safe)) - (gx#stx-e _%__stx146847146848%_)))) - (let ((_%tl141685141710%_ + (gx#stx-e _%__stx147121147122%_)))) + (let ((_%tl141959141984%_ (let () (declare (not safe)) - (##cdr _%e141683141705%_))) - (_%hd141684141708%_ + (##cdr _%e141957141979%_))) + (_%hd141958141982%_ (let () (declare (not safe)) - (##car _%e141683141705%_)))) + (##car _%e141957141979%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd141684141708%_)) + (gx#identifier? _%hd141958141982%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd141684141708%_)) + _%hd141958141982%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141685141710%_)) - (let ((_%e141686141713%_ + _%tl141959141984%_)) + (let ((_%e141960141987%_ (let () (declare (not safe)) (gx#stx-e - _%tl141685141710%_)))) - (let ((_%tl141688141718%_ + _%tl141959141984%_)))) + (let ((_%tl141962141992%_ (let () (declare (not safe)) - (##cdr _%e141686141713%_))) - (_%hd141687141716%_ + (##cdr _%e141960141987%_))) + (_%hd141961141990%_ (let () (declare (not safe)) - (##car _%e141686141713%_)))) - (_%__kont146849146850%_ - _%tl141688141718%_ - _%hd141687141716%_))) - (_%__kont146851146852%_)) - (_%__kont146851146852%_)) - (_%__kont146851146852%_)))) - (_%__kont146851146852%_))))))) - (let* ((_%g141610141627%_ - (lambda (_%g141611141624%_) + (##car _%e141960141987%_)))) + (_%__kont147123147124%_ + _%tl141962141992%_ + _%hd141961141990%_))) + (_%__kont147125147126%_)) + (_%__kont147125147126%_)) + (_%__kont147125147126%_)))) + (_%__kont147125147126%_))))))) + (let* ((_%g141884141901%_ + (lambda (_%g141885141898%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141611141624%_)))) - (_%g141609141673%_ - (lambda (_%g141611141630%_) + _%g141885141898%_)))) + (_%g141883141947%_ + (lambda (_%g141885141904%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141611141630%_)) - (let ((_%e141614141632%_ + (gx#stx-pair? _%g141885141904%_)) + (let ((_%e141888141906%_ (let () (declare (not safe)) - (gx#stx-e _%g141611141630%_)))) - (let ((_%hd141615141635%_ + (gx#stx-e _%g141885141904%_)))) + (let ((_%hd141889141909%_ (let () (declare (not safe)) - (##car _%e141614141632%_))) - (_%tl141616141637%_ + (##car _%e141888141906%_))) + (_%tl141890141911%_ (let () (declare (not safe)) - (##cdr _%e141614141632%_)))) + (##cdr _%e141888141906%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141616141637%_)) - (let ((_%e141617141640%_ + (gx#stx-pair? _%tl141890141911%_)) + (let ((_%e141891141914%_ (let () (declare (not safe)) - (gx#stx-e _%tl141616141637%_)))) - (let ((_%hd141618141643%_ + (gx#stx-e _%tl141890141911%_)))) + (let ((_%hd141892141917%_ (let () (declare (not safe)) - (##car _%e141617141640%_))) - (_%tl141619141645%_ + (##car _%e141891141914%_))) + (_%tl141893141919%_ (let () (declare (not safe)) - (##cdr _%e141617141640%_)))) + (##cdr _%e141891141914%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141619141645%_)) - (let ((_%e141620141648%_ + (gx#stx-pair? _%tl141893141919%_)) + (let ((_%e141894141922%_ (let () (declare (not safe)) (gx#stx-e - _%tl141619141645%_)))) - (let ((_%hd141621141651%_ + _%tl141893141919%_)))) + (let ((_%hd141895141925%_ (let () (declare (not safe)) - (##car _%e141620141648%_))) - (_%tl141622141653%_ + (##car _%e141894141922%_))) + (_%tl141896141927%_ (let () (declare (not safe)) - (##cdr _%e141620141648%_)))) + (##cdr _%e141894141922%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141622141653%_)) - ((lambda (_%L141656%_ - _%L141657%_) + _%tl141896141927%_)) + ((lambda (_%L141930%_ + _%L141931%_) (if (gxc#generate-runtime-simple-let? - _%L141657%_) - (if (_%generate-letrec?141607%_ - _%L141657%_) + _%L141931%_) + (if (_%generate-letrec?141881%_ + _%L141931%_) (gxc#generate-runtime-simple-let - _%self141603%_ + _%self141877%_ 'letrec - _%L141657%_ - _%L141656%_ + _%L141931%_ + _%L141930%_ '#f) (gxc#generate-runtime-simple-let - _%self141603%_ + _%self141877%_ 'letrec* - _%L141657%_ - _%L141656%_ + _%L141931%_ + _%L141930%_ '#f)) - (_%generate-values141606%_ - _%L141657%_ - _%L141656%_))) - _%hd141621141651%_ - _%hd141618141643%_) - (_%g141610141627%_ - _%g141611141630%_)))) - (_%g141610141627%_ - _%g141611141630%_)))) - (_%g141610141627%_ _%g141611141630%_)))) - (_%g141610141627%_ _%g141611141630%_))))) - (_%g141609141673%_ _%stx141604%_))))) + (_%generate-values141880%_ + _%L141931%_ + _%L141930%_))) + _%hd141895141925%_ + _%hd141892141917%_) + (_%g141884141901%_ + _%g141885141904%_)))) + (_%g141884141901%_ + _%g141885141904%_)))) + (_%g141884141901%_ _%g141885141904%_)))) + (_%g141884141901%_ _%g141885141904%_))))) + (_%g141883141947%_ _%stx141878%_))))) (define gxc#generate-runtime-simple-let? - (lambda (_%hd141540%_) - (let _%lp141542%_ ((_%rest141544%_ _%hd141540%_)) - (let* ((_%rest141545141561%_ _%rest141544%_) - (_%else141548141569%_ (lambda () '#f))) - (let ((_%K141551141582%_ - (lambda (_%rest141580%_) (_%lp141542%_ _%rest141580%_))) - (_%K141550141574%_ (lambda () '#t))) - (let ((_%try-match141547141577%_ + (lambda (_%hd141814%_) + (let _%lp141816%_ ((_%rest141818%_ _%hd141814%_)) + (let* ((_%rest141819141835%_ _%rest141818%_) + (_%else141822141843%_ (lambda () '#f))) + (let ((_%K141825141856%_ + (lambda (_%rest141854%_) (_%lp141816%_ _%rest141854%_))) + (_%K141824141848%_ (lambda () '#t))) + (let ((_%try-match141821141851%_ (lambda () (if (let () (declare (not safe)) - (##null? _%rest141545141561%_)) - (_%K141550141574%_) - (_%else141548141569%_))))) + (##null? _%rest141819141835%_)) + (_%K141824141848%_) + (_%else141822141843%_))))) (if (let () (declare (not safe)) - (##pair? _%rest141545141561%_)) - (let ((_%tl141553141587%_ + (##pair? _%rest141819141835%_)) + (let ((_%tl141827141861%_ (let () (declare (not safe)) - (##cdr _%rest141545141561%_))) - (_%hd141552141585%_ + (##cdr _%rest141819141835%_))) + (_%hd141826141859%_ (let () (declare (not safe)) - (##car _%rest141545141561%_)))) + (##car _%rest141819141835%_)))) (if (let () (declare (not safe)) - (##pair? _%hd141552141585%_)) - (let ((_%tl141555141592%_ + (##pair? _%hd141826141859%_)) + (let ((_%tl141829141866%_ (let () (declare (not safe)) - (##cdr _%hd141552141585%_))) - (_%hd141554141590%_ + (##cdr _%hd141826141859%_))) + (_%hd141828141864%_ (let () (declare (not safe)) - (##car _%hd141552141585%_)))) + (##car _%hd141826141859%_)))) (if (let () (declare (not safe)) - (##pair? _%hd141554141590%_)) - (let ((_%tl141559141595%_ + (##pair? _%hd141828141864%_)) + (let ((_%tl141833141869%_ (let () (declare (not safe)) - (##cdr _%hd141554141590%_)))) + (##cdr _%hd141828141864%_)))) (if (let () (declare (not safe)) - (##null? _%tl141559141595%_)) + (##null? _%tl141833141869%_)) (if (let () (declare (not safe)) - (##pair? _%tl141555141592%_)) - (let ((_%tl141557141598%_ + (##pair? _%tl141829141866%_)) + (let ((_%tl141831141872%_ (let () (declare (not safe)) - (##cdr _%tl141555141592%_)))) + (##cdr _%tl141829141866%_)))) (if (let () (declare (not safe)) - (##null? _%tl141557141598%_)) - (let ((_%rest141601%_ - _%tl141553141587%_)) - (_%lp141542%_ - _%rest141601%_)) - (_%else141548141569%_))) - (_%else141548141569%_)) - (_%else141548141569%_))) - (_%else141548141569%_))) - (_%else141548141569%_))) - (_%try-match141547141577%_)))))))) + (##null? _%tl141831141872%_)) + (let ((_%rest141875%_ + _%tl141827141861%_)) + (_%lp141816%_ + _%rest141875%_)) + (_%else141822141843%_))) + (_%else141822141843%_)) + (_%else141822141843%_))) + (_%else141822141843%_))) + (_%else141822141843%_))) + (_%try-match141821141851%_)))))))) (define gxc#generate-runtime-simple-let - (lambda (_%self141451%_ - _%form141452%_ - _%hd141453%_ - _%body141454%_ - _%compiled-body?141455%_) - (letrec ((_%generate1141457%_ - (lambda (_%bind141496%_) - (let* ((_%bind141497141508%_ _%bind141496%_) - (_%E141499141512%_ + (lambda (_%self141725%_ + _%form141726%_ + _%hd141727%_ + _%body141728%_ + _%compiled-body?141729%_) + (letrec ((_%generate1141731%_ + (lambda (_%bind141770%_) + (let* ((_%bind141771141782%_ _%bind141770%_) + (_%E141773141786%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%bind141497141508%_ + _%bind141771141782%_ '([[id] expr]))) '#!void)) - (_%K141500141518%_ - (lambda (_%expr141515%_ _%id141516%_) + (_%K141774141792%_ + (lambda (_%expr141789%_ _%id141790%_) (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%id141516%_)) + _%id141790%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141451%_ - _%expr141515%_)) + _%self141725%_ + _%expr141789%_)) '()))))) (if (let () (declare (not safe)) - (##pair? _%bind141497141508%_)) - (let ((_%hd141501141521%_ + (##pair? _%bind141771141782%_)) + (let ((_%hd141775141795%_ (let () (declare (not safe)) - (##car _%bind141497141508%_))) - (_%tl141502141523%_ + (##car _%bind141771141782%_))) + (_%tl141776141797%_ (let () (declare (not safe)) - (##cdr _%bind141497141508%_)))) + (##cdr _%bind141771141782%_)))) (if (let () (declare (not safe)) - (##pair? _%hd141501141521%_)) - (let ((_%hd141505141526%_ + (##pair? _%hd141775141795%_)) + (let ((_%hd141779141800%_ (let () (declare (not safe)) - (##car _%hd141501141521%_))) - (_%tl141506141528%_ + (##car _%hd141775141795%_))) + (_%tl141780141802%_ (let () (declare (not safe)) - (##cdr _%hd141501141521%_)))) - (let ((_%id141531%_ _%hd141505141526%_)) + (##cdr _%hd141775141795%_)))) + (let ((_%id141805%_ _%hd141779141800%_)) (if (let () (declare (not safe)) - (##null? _%tl141506141528%_)) + (##null? _%tl141780141802%_)) (if (let () (declare (not safe)) - (##pair? _%tl141502141523%_)) - (let ((_%hd141503141533%_ + (##pair? _%tl141776141797%_)) + (let ((_%hd141777141807%_ (let () (declare (not safe)) - (##car _%tl141502141523%_))) - (_%tl141504141535%_ + (##car _%tl141776141797%_))) + (_%tl141778141809%_ (let () (declare (not safe)) - (##cdr _%tl141502141523%_)))) - (let ((_%expr141538%_ - _%hd141503141533%_)) + (##cdr _%tl141776141797%_)))) + (let ((_%expr141812%_ + _%hd141777141807%_)) (if (let () (declare (not safe)) - (##null? _%tl141504141535%_)) - (_%K141500141518%_ - _%expr141538%_ - _%id141531%_) - (_%E141499141512%_)))) - (_%E141499141512%_)) - (_%E141499141512%_)))) - (_%E141499141512%_))) - (_%E141499141512%_)))))) - (let* ((_%bind141459%_ (map _%generate1141457%_ _%hd141453%_)) - (_%body141461%_ - (if _%compiled-body?141455%_ - _%body141454%_ + (##null? _%tl141778141809%_)) + (_%K141774141792%_ + _%expr141812%_ + _%id141805%_) + (_%E141773141786%_)))) + (_%E141773141786%_)) + (_%E141773141786%_)))) + (_%E141773141786%_))) + (_%E141773141786%_)))))) + (let* ((_%bind141733%_ (map _%generate1141731%_ _%hd141727%_)) + (_%body141735%_ + (if _%compiled-body?141729%_ + _%body141728%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self141451%_ _%body141454%_)))) - (_%body141493%_ - (let* ((_%body141462141470%_ _%body141461%_) - (_%else141464141478%_ - (lambda () (cons _%body141461%_ '()))) - (_%K141466141483%_ - (lambda (_%exprs141481%_) _%exprs141481%_))) + (gxc#compile-e__1 _%self141725%_ _%body141728%_)))) + (_%body141767%_ + (let* ((_%body141736141744%_ _%body141735%_) + (_%else141738141752%_ + (lambda () (cons _%body141735%_ '()))) + (_%K141740141757%_ + (lambda (_%exprs141755%_) _%exprs141755%_))) (if (let () (declare (not safe)) - (##pair? _%body141462141470%_)) - (let ((_%hd141467141486%_ + (##pair? _%body141736141744%_)) + (let ((_%hd141741141760%_ (let () (declare (not safe)) - (##car _%body141462141470%_))) - (_%tl141468141488%_ + (##car _%body141736141744%_))) + (_%tl141742141762%_ (let () (declare (not safe)) - (##cdr _%body141462141470%_)))) + (##cdr _%body141736141744%_)))) (if (let () (declare (not safe)) - (##eq? _%hd141467141486%_ 'begin)) - (let ((_%exprs141491%_ _%tl141468141488%_)) - (_%K141466141483%_ _%exprs141491%_)) - (_%else141464141478%_))) - (_%else141464141478%_))))) - (cons _%form141452%_ (cons _%bind141459%_ _%body141493%_)))))) + (##eq? _%hd141741141760%_ 'begin)) + (let ((_%exprs141765%_ _%tl141742141762%_)) + (_%K141740141757%_ _%exprs141765%_)) + (_%else141738141752%_))) + (_%else141738141752%_))))) + (cons _%form141726%_ (cons _%bind141733%_ _%body141767%_)))))) (define gxc#generate-runtime-quote% - (lambda (_%self141351%_ _%stx141352%_) - (letrec ((_%generate1141354%_ - (lambda (_%datum141406%_) - (if (or (null? _%datum141406%_) + (lambda (_%self141625%_ _%stx141626%_) + (letrec ((_%generate1141628%_ + (lambda (_%datum141680%_) + (if (or (null? _%datum141680%_) (let () (declare (not safe)) - (interned-symbol? _%datum141406%_)) + (interned-symbol? _%datum141680%_)) (let () (declare (not safe)) - (gx#self-quoting? _%datum141406%_)) - (eof-object? _%datum141406%_)) - _%datum141406%_ - (if (uninterned-symbol? _%datum141406%_) + (gx#self-quoting? _%datum141680%_)) + (eof-object? _%datum141680%_)) + _%datum141680%_ + (if (uninterned-symbol? _%datum141680%_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _%datum141406%_ + _%datum141680%_ '#t)) - (if (pair? _%datum141406%_) - (cons (_%generate1141354%_ + (if (pair? _%datum141680%_) + (cons (_%generate1141628%_ (let () (declare (not safe)) - (##car _%datum141406%_))) - (_%generate1141354%_ + (##car _%datum141680%_))) + (_%generate1141628%_ (let () (declare (not safe)) - (##cdr _%datum141406%_)))) - (if (box? _%datum141406%_) - (box (_%generate1141354%_ - (unbox _%datum141406%_))) - (if (vector? _%datum141406%_) + (##cdr _%datum141680%_)))) + (if (box? _%datum141680%_) + (box (_%generate1141628%_ + (unbox _%datum141680%_))) + (if (vector? _%datum141680%_) (vector-map - _%generate1141354%_ - _%datum141406%_) - (if (or (s8vector? _%datum141406%_) - (u8vector? _%datum141406%_) - (s16vector? _%datum141406%_) - (u16vector? _%datum141406%_) - (s32vector? _%datum141406%_) - (u32vector? _%datum141406%_) - (s64vector? _%datum141406%_) - (u64vector? _%datum141406%_) - (f32vector? _%datum141406%_) - (f64vector? _%datum141406%_)) - _%datum141406%_ + _%generate1141628%_ + _%datum141680%_) + (if (or (s8vector? _%datum141680%_) + (u8vector? _%datum141680%_) + (s16vector? _%datum141680%_) + (u16vector? _%datum141680%_) + (s32vector? _%datum141680%_) + (u32vector? _%datum141680%_) + (s64vector? _%datum141680%_) + (u64vector? _%datum141680%_) + (f32vector? _%datum141680%_) + (f64vector? _%datum141680%_)) + _%datum141680%_ (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile non-primitive quote" - _%stx141352%_))))))))))) - (let* ((_%g141356141369%_ - (lambda (_%g141357141366%_) + _%stx141626%_))))))))))) + (let* ((_%g141630141643%_ + (lambda (_%g141631141640%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141357141366%_)))) - (_%g141355141403%_ - (lambda (_%g141357141372%_) + _%g141631141640%_)))) + (_%g141629141677%_ + (lambda (_%g141631141646%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141357141372%_)) - (let ((_%e141359141374%_ + (gx#stx-pair? _%g141631141646%_)) + (let ((_%e141633141648%_ (let () (declare (not safe)) - (gx#stx-e _%g141357141372%_)))) - (let ((_%hd141360141377%_ + (gx#stx-e _%g141631141646%_)))) + (let ((_%hd141634141651%_ (let () (declare (not safe)) - (##car _%e141359141374%_))) - (_%tl141361141379%_ + (##car _%e141633141648%_))) + (_%tl141635141653%_ (let () (declare (not safe)) - (##cdr _%e141359141374%_)))) + (##cdr _%e141633141648%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141361141379%_)) - (let ((_%e141362141382%_ + (gx#stx-pair? _%tl141635141653%_)) + (let ((_%e141636141656%_ (let () (declare (not safe)) - (gx#stx-e _%tl141361141379%_)))) - (let ((_%hd141363141385%_ + (gx#stx-e _%tl141635141653%_)))) + (let ((_%hd141637141659%_ (let () (declare (not safe)) - (##car _%e141362141382%_))) - (_%tl141364141387%_ + (##car _%e141636141656%_))) + (_%tl141638141661%_ (let () (declare (not safe)) - (##cdr _%e141362141382%_)))) + (##cdr _%e141636141656%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141364141387%_)) - ((lambda (_%L141390%_) + (gx#stx-null? _%tl141638141661%_)) + ((lambda (_%L141664%_) (cons 'quote - (cons (_%generate1141354%_ + (cons (_%generate1141628%_ (let () (declare (not safe)) (gx#stx-e - _%L141390%_))) + _%L141664%_))) '()))) - _%hd141363141385%_) - (_%g141356141369%_ - _%g141357141372%_)))) - (_%g141356141369%_ _%g141357141372%_)))) - (_%g141356141369%_ _%g141357141372%_))))) - (_%g141355141403%_ _%stx141352%_))))) + _%hd141637141659%_) + (_%g141630141643%_ + _%g141631141646%_)))) + (_%g141630141643%_ _%g141631141646%_)))) + (_%g141630141643%_ _%g141631141646%_))))) + (_%g141629141677%_ _%stx141626%_))))) (define gxc#generate-runtime-call% - (lambda (_%self140792%_ _%stx140793%_) - (letrec ((_%compile-call140795%_ - (lambda (_%rator141084%_ _%rands141085%_) - (let ((_%rator141091%_ + (lambda (_%self141066%_ _%stx141067%_) + (letrec ((_%compile-call141069%_ + (lambda (_%rator141358%_ _%rands141359%_) + (let ((_%rator141365%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self140792%_ - _%rator141084%_))) - (_%rands141092%_ - (map (lambda (_%g141086141088%_) + _%self141066%_ + _%rator141358%_))) + (_%rands141366%_ + (map (lambda (_%g141360141362%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self140792%_ - _%g141086141088%_))) - _%rands141085%_))) - (let* ((_%__stx146894146895%_ _%rator141091%_) - (_%g141095141147%_ + _%self141066%_ + _%g141360141362%_))) + _%rands141359%_))) + (let* ((_%__stx147168147169%_ _%rator141365%_) + (_%g141369141421%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx146894146895%_))))) - (let ((_%__kont146896146897%_ - (lambda (_%L141271%_ - _%L141272%_ - _%L141273%_ - _%L141274%_) - (if (let ((__tmp147566 + _%__stx147168147169%_))))) + (let ((_%__kont147170147171%_ + (lambda (_%L141545%_ + _%L141546%_ + _%L141547%_ + _%L141548%_) + (if (let ((__tmp147840 (let () (declare (not safe)) - (##length _%rands141092%_))) - (__tmp147564 - (length (let ((__tmp147565 - (lambda (_%g141310141313%_ + (##length _%rands141366%_))) + (__tmp147838 + (length (let ((__tmp147839 + (lambda (_%g141584141587%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g141311141315%_) - (cons _%g141310141313%_ _%g141311141315%_)))) + _%g141585141589%_) + (cons _%g141584141587%_ _%g141585141589%_)))) (declare (not safe)) - (__foldr1 __tmp147565 '() _%L141273%_))))) + (__foldr1 __tmp147839 '() _%L141547%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##fx= __tmp147566 __tmp147564)) - (let* ((_%id141318%_ _%L141274%_) - (_%args141327%_ - (let ((__tmp147567 - (lambda (_%g141319141322%_ - _%g141320141324%_) - (cons _%g141319141322%_ - _%g141320141324%_)))) + (##fx= __tmp147840 __tmp147838)) + (let* ((_%id141592%_ _%L141548%_) + (_%args141601%_ + (let ((__tmp147841 + (lambda (_%g141593141596%_ + _%g141594141598%_) + (cons _%g141593141596%_ + _%g141594141598%_)))) (declare (not safe)) (__foldr1 - __tmp147567 + __tmp147841 '() - _%L141273%_))) - (_%body141336%_ - (let ((__tmp147568 - (lambda (_%g141328141331%_ - _%g141329141333%_) - (cons _%g141328141331%_ - _%g141329141333%_)))) + _%L141547%_))) + (_%body141610%_ + (let ((__tmp147842 + (lambda (_%g141602141605%_ + _%g141603141607%_) + (cons _%g141602141605%_ + _%g141603141607%_)))) (declare (not safe)) (__foldr1 - __tmp147568 + __tmp147842 '() - _%L141272%_))) - (_%init141338%_ + _%L141546%_))) + (_%init141612%_ (map list - _%args141327%_ - _%rands141092%_))) + _%args141601%_ + _%rands141366%_))) (cons 'let - (cons _%id141318%_ - (cons _%init141338%_ - _%body141336%_)))) - (let ((__tmp147569 - (let ((__tmp147570 - (lambda (_%g141340141343%_ - _%g141341141345%_) - (cons _%g141340141343%_ - _%g141341141345%_)))) + (cons _%id141592%_ + (cons _%init141612%_ + _%body141610%_)))) + (let ((__tmp147843 + (let ((__tmp147844 + (lambda (_%g141614141617%_ + _%g141615141619%_) + (cons _%g141614141617%_ + _%g141615141619%_)))) (declare (not safe)) (__foldr1 - __tmp147570 + __tmp147844 '() - _%L141273%_)))) + _%L141547%_)))) (declare (not safe)) (gxc#raise-compile-error '"Illegal loop application; arity mismatch" - _%stx140793%_ - __tmp147569 - _%rands141092%_))))) - (_%__kont146902146903%_ + _%stx141067%_ + __tmp147843 + _%rands141366%_))))) + (_%__kont147176147177%_ (lambda () - (cons _%rator141091%_ _%rands141092%_)))) - (let ((_%__match146961146962%_ - (lambda (_%e141101141159%_ - _%hd141102141162%_ - _%tl141103141164%_ - _%e141104141167%_ - _%hd141105141170%_ - _%tl141106141172%_ - _%e141107141175%_ - _%hd141108141178%_ - _%tl141109141180%_ - _%e141110141183%_ - _%hd141111141186%_ - _%tl141112141188%_ - _%e141113141191%_ - _%hd141114141194%_ - _%tl141115141196%_ - _%e141116141199%_ - _%hd141117141202%_ - _%tl141118141204%_ - _%e141119141207%_ - _%hd141120141210%_ - _%tl141121141212%_ - _%__splice146898146899%_ - _%target141122141215%_ - _%tl141124141217%_) - (letrec ((_%loop141125141220%_ - (lambda (_%hd141123141223%_ - _%arg141129141225%_) + (cons _%rator141365%_ _%rands141366%_)))) + (let ((_%__match147235147236%_ + (lambda (_%e141375141433%_ + _%hd141376141436%_ + _%tl141377141438%_ + _%e141378141441%_ + _%hd141379141444%_ + _%tl141380141446%_ + _%e141381141449%_ + _%hd141382141452%_ + _%tl141383141454%_ + _%e141384141457%_ + _%hd141385141460%_ + _%tl141386141462%_ + _%e141387141465%_ + _%hd141388141468%_ + _%tl141389141470%_ + _%e141390141473%_ + _%hd141391141476%_ + _%tl141392141478%_ + _%e141393141481%_ + _%hd141394141484%_ + _%tl141395141486%_ + _%__splice147172147173%_ + _%target141396141489%_ + _%tl141398141491%_) + (letrec ((_%loop141399141494%_ + (lambda (_%hd141397141497%_ + _%arg141403141499%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd141123141223%_)) - (let ((_%e141126141228%_ + _%hd141397141497%_)) + (let ((_%e141400141502%_ (let () (declare (not safe)) (gx#stx-e - _%hd141123141223%_)))) - (let ((_%lp-tl141128141233%_ + _%hd141397141497%_)))) + (let ((_%lp-tl141402141507%_ (let () (declare (not safe)) - (##cdr _%e141126141228%_))) - (_%lp-hd141127141231%_ + (##cdr _%e141400141502%_))) + (_%lp-hd141401141505%_ (let () (declare (not safe)) - (##car _%e141126141228%_)))) - (_%loop141125141220%_ - _%lp-tl141128141233%_ - (cons _%lp-hd141127141231%_ - _%arg141129141225%_)))) - (let ((_%arg141130141236%_ - (reverse _%arg141129141225%_))) + (##car _%e141400141502%_)))) + (_%loop141399141494%_ + _%lp-tl141402141507%_ + (cons _%lp-hd141401141505%_ + _%arg141403141499%_)))) + (let ((_%arg141404141510%_ + (reverse _%arg141403141499%_))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl141121141212%_)) - (let ((_%__splice146900146901%_ + _%tl141395141486%_)) + (let ((_%__splice147174147175%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _%tl141121141212%_ '0)))) - (let ((_%tl141133141241%_ + (gx#syntax-split-splice _%tl141395141486%_ '0)))) + (let ((_%tl141407141515%_ (let () (declare (not safe)) - (##vector-ref _%__splice146900146901%_ '1))) - (_%target141131141239%_ + (##vector-ref _%__splice147174147175%_ '1))) + (_%target141405141513%_ (let () (declare (not safe)) - (##vector-ref _%__splice146900146901%_ '0)))) + (##vector-ref _%__splice147174147175%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141133141241%_)) - (letrec ((_%loop141134141244%_ - (lambda (_%hd141132141247%_ - _%body141138141249%_) + (gx#stx-null? _%tl141407141515%_)) + (letrec ((_%loop141408141518%_ + (lambda (_%hd141406141521%_ + _%body141412141523%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd141132141247%_)) - (let ((_%e141135141252%_ + (gx#stx-pair? _%hd141406141521%_)) + (let ((_%e141409141526%_ (let () (declare (not safe)) (gx#stx-e - _%hd141132141247%_)))) - (let ((_%lp-tl141137141257%_ + _%hd141406141521%_)))) + (let ((_%lp-tl141411141531%_ (let () (declare (not safe)) - (##cdr _%e141135141252%_))) - (_%lp-hd141136141255%_ + (##cdr _%e141409141526%_))) + (_%lp-hd141410141529%_ (let () (declare (not safe)) - (##car _%e141135141252%_)))) - (_%loop141134141244%_ - _%lp-tl141137141257%_ - (cons _%lp-hd141136141255%_ - _%body141138141249%_)))) - (let ((_%body141139141260%_ - (reverse _%body141138141249%_))) + (##car _%e141409141526%_)))) + (_%loop141408141518%_ + _%lp-tl141411141531%_ + (cons _%lp-hd141410141529%_ + _%body141412141523%_)))) + (let ((_%body141413141534%_ + (reverse _%body141412141523%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141115141196%_)) + _%tl141389141470%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141109141180%_)) + _%tl141383141454%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141106141172%_)) - (let ((_%e141140141263%_ + _%tl141380141446%_)) + (let ((_%e141414141537%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl141106141172%_)))) - (let ((_%tl141142141268%_ + (gx#stx-e _%tl141380141446%_)))) + (let ((_%tl141416141542%_ (let () (declare (not safe)) - (##cdr _%e141140141263%_))) - (_%hd141141141266%_ + (##cdr _%e141414141537%_))) + (_%hd141415141540%_ (let () (declare (not safe)) - (##car _%e141140141263%_)))) + (##car _%e141414141537%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141142141268%_)) - (let ((_%L141271%_ _%hd141141141266%_) - (_%L141272%_ _%body141139141260%_) - (_%L141273%_ _%arg141130141236%_) - (_%L141274%_ _%hd141111141186%_)) - (if (eq? _%L141274%_ _%L141271%_) - (_%__kont146896146897%_ - _%L141271%_ - _%L141272%_ - _%L141273%_ - _%L141274%_) - (_%__kont146902146903%_))) - (_%__kont146902146903%_)))) - (_%__kont146902146903%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont146902146903%_)) - (_%__kont146902146903%_))))))) - (_%loop141134141244%_ _%target141131141239%_ '())) - (_%__kont146902146903%_)))) - (_%__kont146902146903%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop141125141220%_ - _%target141122141215%_ + (gx#stx-null? _%tl141416141542%_)) + (let ((_%L141545%_ _%hd141415141540%_) + (_%L141546%_ _%body141413141534%_) + (_%L141547%_ _%arg141404141510%_) + (_%L141548%_ _%hd141385141460%_)) + (if (eq? _%L141548%_ _%L141545%_) + (_%__kont147170147171%_ + _%L141545%_ + _%L141546%_ + _%L141547%_ + _%L141548%_) + (_%__kont147176147177%_))) + (_%__kont147176147177%_)))) + (_%__kont147176147177%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147176147177%_)) + (_%__kont147176147177%_))))))) + (_%loop141408141518%_ _%target141405141513%_ '())) + (_%__kont147176147177%_)))) + (_%__kont147176147177%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop141399141494%_ + _%target141396141489%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx146894146895%_)) - (let ((_%e141101141159%_ + (gx#stx-pair? _%__stx147168147169%_)) + (let ((_%e141375141433%_ (let () (declare (not safe)) - (gx#stx-e _%__stx146894146895%_)))) - (let ((_%tl141103141164%_ + (gx#stx-e _%__stx147168147169%_)))) + (let ((_%tl141377141438%_ (let () (declare (not safe)) - (##cdr _%e141101141159%_))) - (_%hd141102141162%_ + (##cdr _%e141375141433%_))) + (_%hd141376141436%_ (let () (declare (not safe)) - (##car _%e141101141159%_)))) + (##car _%e141375141433%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd141102141162%_)) + (gx#identifier? _%hd141376141436%_)) (if (let () (declare (not safe)) (gx#stx-eq? 'letrec - _%hd141102141162%_)) + _%hd141376141436%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141103141164%_)) - (let ((_%e141104141167%_ + _%tl141377141438%_)) + (let ((_%e141378141441%_ (let () (declare (not safe)) (gx#stx-e - _%tl141103141164%_)))) - (let ((_%tl141106141172%_ + _%tl141377141438%_)))) + (let ((_%tl141380141446%_ (let () (declare (not safe)) - (##cdr _%e141104141167%_))) - (_%hd141105141170%_ + (##cdr _%e141378141441%_))) + (_%hd141379141444%_ (let () (declare (not safe)) - (##car _%e141104141167%_)))) + (##car _%e141378141441%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd141105141170%_)) - (let ((_%e141107141175%_ + _%hd141379141444%_)) + (let ((_%e141381141449%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd141105141170%_)))) - (let ((_%tl141109141180%_ + (gx#stx-e _%hd141379141444%_)))) + (let ((_%tl141383141454%_ (let () (declare (not safe)) - (##cdr _%e141107141175%_))) - (_%hd141108141178%_ + (##cdr _%e141381141449%_))) + (_%hd141382141452%_ (let () (declare (not safe)) - (##car _%e141107141175%_)))) + (##car _%e141381141449%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd141108141178%_)) - (let ((_%e141110141183%_ + (gx#stx-pair? _%hd141382141452%_)) + (let ((_%e141384141457%_ (let () (declare (not safe)) - (gx#stx-e _%hd141108141178%_)))) - (let ((_%tl141112141188%_ + (gx#stx-e _%hd141382141452%_)))) + (let ((_%tl141386141462%_ (let () (declare (not safe)) - (##cdr _%e141110141183%_))) - (_%hd141111141186%_ + (##cdr _%e141384141457%_))) + (_%hd141385141460%_ (let () (declare (not safe)) - (##car _%e141110141183%_)))) + (##car _%e141384141457%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141112141188%_)) - (let ((_%e141113141191%_ + (gx#stx-pair? _%tl141386141462%_)) + (let ((_%e141387141465%_ (let () (declare (not safe)) - (gx#stx-e _%tl141112141188%_)))) - (let ((_%tl141115141196%_ + (gx#stx-e _%tl141386141462%_)))) + (let ((_%tl141389141470%_ (let () (declare (not safe)) - (##cdr _%e141113141191%_))) - (_%hd141114141194%_ + (##cdr _%e141387141465%_))) + (_%hd141388141468%_ (let () (declare (not safe)) - (##car _%e141113141191%_)))) + (##car _%e141387141465%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd141114141194%_)) - (let ((_%e141116141199%_ + (gx#stx-pair? _%hd141388141468%_)) + (let ((_%e141390141473%_ (let () (declare (not safe)) (gx#stx-e - _%hd141114141194%_)))) - (let ((_%tl141118141204%_ + _%hd141388141468%_)))) + (let ((_%tl141392141478%_ (let () (declare (not safe)) - (##cdr _%e141116141199%_))) - (_%hd141117141202%_ + (##cdr _%e141390141473%_))) + (_%hd141391141476%_ (let () (declare (not safe)) - (##car _%e141116141199%_)))) + (##car _%e141390141473%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd141117141202%_)) + _%hd141391141476%_)) (if (let () (declare (not safe)) (gx#stx-eq? 'lambda - _%hd141117141202%_)) + _%hd141391141476%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141118141204%_)) - (let ((_%e141119141207%_ + _%tl141392141478%_)) + (let ((_%e141393141481%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl141118141204%_)))) - (let ((_%tl141121141212%_ + (gx#stx-e _%tl141392141478%_)))) + (let ((_%tl141395141486%_ (let () (declare (not safe)) - (##cdr _%e141119141207%_))) - (_%hd141120141210%_ + (##cdr _%e141393141481%_))) + (_%hd141394141484%_ (let () (declare (not safe)) - (##car _%e141119141207%_)))) + (##car _%e141393141481%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd141120141210%_)) - (let ((_%__splice146898146899%_ + (gx#stx-pair/null? _%hd141394141484%_)) + (let ((_%__splice147172147173%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd141120141210%_ + _%hd141394141484%_ '0)))) - (let ((_%tl141124141217%_ + (let ((_%tl141398141491%_ (let () (declare (not safe)) - (##vector-ref _%__splice146898146899%_ '1))) - (_%target141122141215%_ + (##vector-ref _%__splice147172147173%_ '1))) + (_%target141396141489%_ (let () (declare (not safe)) (##vector-ref - _%__splice146898146899%_ + _%__splice147172147173%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141124141217%_)) - (_%__match146961146962%_ - _%e141101141159%_ - _%hd141102141162%_ - _%tl141103141164%_ - _%e141104141167%_ - _%hd141105141170%_ - _%tl141106141172%_ - _%e141107141175%_ - _%hd141108141178%_ - _%tl141109141180%_ - _%e141110141183%_ - _%hd141111141186%_ - _%tl141112141188%_ - _%e141113141191%_ - _%hd141114141194%_ - _%tl141115141196%_ - _%e141116141199%_ - _%hd141117141202%_ - _%tl141118141204%_ - _%e141119141207%_ - _%hd141120141210%_ - _%tl141121141212%_ - _%__splice146898146899%_ - _%target141122141215%_ - _%tl141124141217%_) - (_%__kont146902146903%_)))) - (_%__kont146902146903%_)))) - (_%__kont146902146903%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont146902146903%_)) - (_%__kont146902146903%_)))) - (_%__kont146902146903%_)))) - (_%__kont146902146903%_)))) - (_%__kont146902146903%_)))) - (_%__kont146902146903%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont146902146903%_)) - (_%__kont146902146903%_)) - (_%__kont146902146903%_)))) - (_%__kont146902146903%_))))))))) - (let* ((_%g140797140820%_ - (lambda (_%g140798140817%_) + (gx#stx-null? _%tl141398141491%_)) + (_%__match147235147236%_ + _%e141375141433%_ + _%hd141376141436%_ + _%tl141377141438%_ + _%e141378141441%_ + _%hd141379141444%_ + _%tl141380141446%_ + _%e141381141449%_ + _%hd141382141452%_ + _%tl141383141454%_ + _%e141384141457%_ + _%hd141385141460%_ + _%tl141386141462%_ + _%e141387141465%_ + _%hd141388141468%_ + _%tl141389141470%_ + _%e141390141473%_ + _%hd141391141476%_ + _%tl141392141478%_ + _%e141393141481%_ + _%hd141394141484%_ + _%tl141395141486%_ + _%__splice147172147173%_ + _%target141396141489%_ + _%tl141398141491%_) + (_%__kont147176147177%_)))) + (_%__kont147176147177%_)))) + (_%__kont147176147177%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147176147177%_)) + (_%__kont147176147177%_)))) + (_%__kont147176147177%_)))) + (_%__kont147176147177%_)))) + (_%__kont147176147177%_)))) + (_%__kont147176147177%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147176147177%_)) + (_%__kont147176147177%_)) + (_%__kont147176147177%_)))) + (_%__kont147176147177%_))))))))) + (let* ((_%g141071141094%_ + (lambda (_%g141072141091%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140798140817%_)))) - (_%g140796141081%_ - (lambda (_%g140798140823%_) + _%g141072141091%_)))) + (_%g141070141355%_ + (lambda (_%g141072141097%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140798140823%_)) - (let ((_%e140801140825%_ + (gx#stx-pair? _%g141072141097%_)) + (let ((_%e141075141099%_ (let () (declare (not safe)) - (gx#stx-e _%g140798140823%_)))) - (let ((_%hd140802140828%_ + (gx#stx-e _%g141072141097%_)))) + (let ((_%hd141076141102%_ (let () (declare (not safe)) - (##car _%e140801140825%_))) - (_%tl140803140830%_ + (##car _%e141075141099%_))) + (_%tl141077141104%_ (let () (declare (not safe)) - (##cdr _%e140801140825%_)))) + (##cdr _%e141075141099%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140803140830%_)) - (let ((_%e140804140833%_ + (gx#stx-pair? _%tl141077141104%_)) + (let ((_%e141078141107%_ (let () (declare (not safe)) - (gx#stx-e _%tl140803140830%_)))) - (let ((_%hd140805140836%_ + (gx#stx-e _%tl141077141104%_)))) + (let ((_%hd141079141110%_ (let () (declare (not safe)) - (##car _%e140804140833%_))) - (_%tl140806140838%_ + (##car _%e141078141107%_))) + (_%tl141080141112%_ (let () (declare (not safe)) - (##cdr _%e140804140833%_)))) + (##cdr _%e141078141107%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl140806140838%_)) - (let ((_g147571_ + _%tl141080141112%_)) + (let ((_g147845_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl140806140838%_ + _%tl141080141112%_ '0)))) (begin - (let ((_g147572_ + (let ((_g147846_ (let () (declare (not safe)) - (if (##values? _g147571_) + (if (##values? _g147845_) (##vector-length - _g147571_) + _g147845_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g147572_ 2))) + (##fx= _g147846_ 2))) (error "Context expects 2 values" - _g147572_))) - (let ((_%target140807140841%_ + _g147846_))) + (let ((_%target141081141115%_ (let () (declare (not safe)) (##vector-ref - _g147571_ + _g147845_ 0))) - (_%tl140809140843%_ + (_%tl141083141117%_ (let () (declare (not safe)) (##vector-ref - _g147571_ + _g147845_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140809140843%_)) - (letrec ((_%loop140810140846%_ - (lambda (_%hd140808140849%_ + _%tl141083141117%_)) + (letrec ((_%loop141084141120%_ + (lambda (_%hd141082141123%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rand140814140851%_) + _%rand141088141125%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd140808140849%_)) - (let ((_%e140811140854%_ + (gx#stx-pair? _%hd141082141123%_)) + (let ((_%e141085141128%_ (let () (declare (not safe)) - (gx#stx-e _%hd140808140849%_)))) - (let ((_%lp-hd140812140857%_ + (gx#stx-e _%hd141082141123%_)))) + (let ((_%lp-hd141086141131%_ (let () (declare (not safe)) - (##car _%e140811140854%_))) - (_%lp-tl140813140859%_ + (##car _%e141085141128%_))) + (_%lp-tl141087141133%_ (let () (declare (not safe)) - (##cdr _%e140811140854%_)))) - (_%loop140810140846%_ - _%lp-tl140813140859%_ - (cons _%lp-hd140812140857%_ - _%rand140814140851%_)))) - (let ((_%rand140815140862%_ - (reverse _%rand140814140851%_))) - ((lambda (_%L140865%_ _%L140866%_) + (##cdr _%e141085141128%_)))) + (_%loop141084141120%_ + _%lp-tl141087141133%_ + (cons _%lp-hd141086141131%_ + _%rand141088141125%_)))) + (let ((_%rand141089141136%_ + (reverse _%rand141088141125%_))) + ((lambda (_%L141139%_ _%L141140%_) (if (gxc#current-compile-decls-unsafe?) - (_%compile-call140795%_ - _%L140866%_ - (let ((__tmp147573 - (lambda (_%g140883140886%_ - _%g140884140888%_) - (cons _%g140883140886%_ - _%g140884140888%_)))) + (_%compile-call141069%_ + _%L141140%_ + (let ((__tmp147847 + (lambda (_%g141157141160%_ + _%g141158141162%_) + (cons _%g141157141160%_ + _%g141158141162%_)))) (declare (not safe)) - (__foldr1 __tmp147573 '() _%L140865%_))) - (let* ((_%__stx147010147011%_ _%L140866%_) - (_%g140892140904%_ + (__foldr1 __tmp147847 '() _%L141139%_))) + (let* ((_%__stx147284147285%_ _%L141140%_) + (_%g141166141178%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147010147011%_))))) - (let ((_%__kont147012147013%_ + _%__stx147284147285%_))))) + (let ((_%__kont147286147287%_ (lambda () - (let ((_%f140941%_ + (let ((_%f141215%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self140792%_ - _%L140866%_)))) - (if (and (let ((__tmp147574 + _%self141066%_ + _%L141140%_)))) + (if (and (let ((__tmp147848 (symbol->string ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%f140941%_))) + _%f141215%_))) (declare (not safe)) - (##string-prefix? '"##" __tmp147574)) + (##string-prefix? '"##" __tmp147848)) (not (let () (declare (not safe)) - (##memq _%f140941%_ gxc#checked-primitives)))) + (##memq _%f141215%_ gxc#checked-primitives)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _%lp140943%_ ((_%rest140946%_ + (let _%lp141217%_ ((_%rest141220%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (reverse (let ((__tmp147576 - (lambda (_%g141063141066%_ - _%g141064141068%_) - (cons _%g141063141066%_ - _%g141064141068%_)))) + (reverse (let ((__tmp147850 + (lambda (_%g141337141340%_ + _%g141338141342%_) + (cons _%g141337141340%_ + _%g141338141342%_)))) (declare (not safe)) (__foldr1 - __tmp147576 + __tmp147850 '() - _%L140865%_)))) - (_%bind140948%_ '()) - (_%args140949%_ '())) - (let* ((_%rest140950140958%_ _%rest140946%_) - (_%else140952140966%_ + _%L141139%_)))) + (_%bind141222%_ '()) + (_%args141223%_ '())) + (let* ((_%rest141224141232%_ _%rest141220%_) + (_%else141226141240%_ (lambda () (cons 'let - (cons _%bind140948%_ + (cons _%bind141222%_ (cons '(declare (not safe)) - (cons (cons _%f140941%_ - _%args140949%_) + (cons (cons _%f141215%_ + _%args141223%_) '())))))) - (_%K140954141052%_ - (lambda (_%rest140969%_ _%e140970%_) - (let* ((_%__stx146964146965%_ _%e140970%_) - (_%g140975140993%_ + (_%K141228141326%_ + (lambda (_%rest141243%_ _%e141244%_) + (let* ((_%__stx147238147239%_ _%e141244%_) + (_%g141249141267%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx146964146965%_))))) - (let ((_%__kont146966146967%_ + _%__stx147238147239%_))))) + (let ((_%__kont147240147241%_ (lambda () - (_%lp140943%_ - _%rest140969%_ - _%bind140948%_ + (_%lp141217%_ + _%rest141243%_ + _%bind141222%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e140970%_)) - _%args140949%_)))) - (_%__kont146968146969%_ + (gxc#compile-e__0 _%e141244%_)) + _%args141223%_)))) + (_%__kont147242147243%_ (lambda () - (_%lp140943%_ - _%rest140969%_ - _%bind140948%_ + (_%lp141217%_ + _%rest141243%_ + _%bind141222%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e140970%_)) - _%args140949%_)))) - (_%__kont146970146971%_ + (gxc#compile-e__0 _%e141244%_)) + _%args141223%_)))) + (_%__kont147244147245%_ (lambda () - (let ((_%tmp141000%_ - (let ((__tmp147575 + (let ((_%tmp141274%_ + (let ((__tmp147849 (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp147575)))) - (_%lp140943%_ - _%rest140969%_ - (cons (cons _%tmp141000%_ + (make-symbol__0 __tmp147849)))) + (_%lp141217%_ + _%rest141243%_ + (cons (cons _%tmp141274%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e140970%_)) + _%e141244%_)) '())) - _%bind140948%_) - (cons _%tmp141000%_ _%args140949%_)))))) + _%bind141222%_) + (cons _%tmp141274%_ _%args141223%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx146964146965%_)) - (let ((_%e140977141031%_ + (gx#stx-pair? _%__stx147238147239%_)) + (let ((_%e141251141305%_ (let () (declare (not safe)) - (gx#stx-e _%__stx146964146965%_)))) - (let ((_%tl140979141036%_ + (gx#stx-e _%__stx147238147239%_)))) + (let ((_%tl141253141310%_ (let () (declare (not safe)) - (##cdr _%e140977141031%_))) - (_%hd140978141034%_ + (##cdr _%e141251141305%_))) + (_%hd141252141308%_ (let () (declare (not safe)) - (##car _%e140977141031%_)))) + (##car _%e141251141305%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd140978141034%_)) + (gx#identifier? _%hd141252141308%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd140978141034%_)) + _%hd141252141308%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140979141036%_)) - (let ((_%e140980141039%_ + _%tl141253141310%_)) + (let ((_%e141254141313%_ (let () (declare (not safe)) (gx#stx-e - _%tl140979141036%_)))) - (let ((_%tl140982141044%_ + _%tl141253141310%_)))) + (let ((_%tl141256141318%_ (let () (declare (not safe)) - (##cdr _%e140980141039%_))) - (_%hd140981141042%_ + (##cdr _%e141254141313%_))) + (_%hd141255141316%_ (let () (declare (not safe)) - (##car _%e140980141039%_)))) + (##car _%e141254141313%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140982141044%_)) - (_%__kont146966146967%_) - (_%__kont146970146971%_)))) - (_%__kont146970146971%_)) + _%tl141256141318%_)) + (_%__kont147240147241%_) + (_%__kont147244147245%_)))) + (_%__kont147244147245%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd140978141034%_)) + _%hd141252141308%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140979141036%_)) - (let ((_%e140986141016%_ + _%tl141253141310%_)) + (let ((_%e141260141290%_ (let () (declare (not safe)) (gx#stx-e - _%tl140979141036%_)))) - (let ((_%tl140988141021%_ + _%tl141253141310%_)))) + (let ((_%tl141262141295%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e140986141016%_))) - (_%hd140987141019%_ - (let () (declare (not safe)) (##car _%e140986141016%_)))) + (##cdr _%e141260141290%_))) + (_%hd141261141293%_ + (let () (declare (not safe)) (##car _%e141260141290%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140988141021%_)) - (_%__kont146968146969%_) - (_%__kont146970146971%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont146970146971%_)) - (_%__kont146970146971%_))) - (_%__kont146970146971%_)))) - (_%__kont146970146971%_))))))) + (gx#stx-null? _%tl141262141295%_)) + (_%__kont147242147243%_) + (_%__kont147244147245%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147244147245%_)) + (_%__kont147244147245%_))) + (_%__kont147244147245%_)))) + (_%__kont147244147245%_))))))) (if (let () (declare (not safe)) - (##pair? _%rest140950140958%_)) - (let ((_%hd140955141055%_ + (##pair? _%rest141224141232%_)) + (let ((_%hd141229141329%_ (let () (declare (not safe)) - (##car _%rest140950140958%_))) - (_%tl140956141057%_ + (##car _%rest141224141232%_))) + (_%tl141230141331%_ (let () (declare (not safe)) - (##cdr _%rest140950140958%_)))) - (let* ((_%e141060%_ _%hd140955141055%_) - (_%rest141062%_ _%tl140956141057%_)) - (_%K140954141052%_ _%rest141062%_ _%e141060%_))) - (_%else140952140966%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%compile-call140795%_ - _%L140866%_ - (let ((__tmp147577 - (lambda (_%g141070141073%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g141071141075%_) - (cons _%g141070141073%_ _%g141071141075%_)))) + (##cdr _%rest141224141232%_)))) + (let* ((_%e141334%_ _%hd141229141329%_) + (_%rest141336%_ _%tl141230141331%_)) + (_%K141228141326%_ _%rest141336%_ _%e141334%_))) + (_%else141226141240%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%compile-call141069%_ + _%L141140%_ + (let ((__tmp147851 + (lambda (_%g141344141347%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g141345141349%_) + (cons _%g141344141347%_ _%g141345141349%_)))) (declare (not safe)) - (__foldr1 __tmp147577 '() _%L140865%_))))))) + (__foldr1 __tmp147851 '() _%L141139%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147014147015%_ + (_%__kont147288147289%_ (lambda () - (_%compile-call140795%_ - _%L140866%_ - (let ((__tmp147578 - (lambda (_%g140910140913%_ - _%g140911140915%_) - (cons _%g140910140913%_ - _%g140911140915%_)))) + (_%compile-call141069%_ + _%L141140%_ + (let ((__tmp147852 + (lambda (_%g141184141187%_ + _%g141185141189%_) + (cons _%g141184141187%_ + _%g141185141189%_)))) (declare (not safe)) (__foldr1 - __tmp147578 + __tmp147852 '() - _%L140865%_)))))) + _%L141139%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx147010147011%_)) - (let ((_%e140894140923%_ + _%__stx147284147285%_)) + (let ((_%e141168141197%_ (let () (declare (not safe)) (gx#stx-e - _%__stx147010147011%_)))) - (let ((_%tl140896140928%_ + _%__stx147284147285%_)))) + (let ((_%tl141170141202%_ (let () (declare (not safe)) - (##cdr _%e140894140923%_))) - (_%hd140895140926%_ + (##cdr _%e141168141197%_))) + (_%hd141169141200%_ (let () (declare (not safe)) - (##car _%e140894140923%_)))) + (##car _%e141168141197%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd140895140926%_)) + _%hd141169141200%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd140895140926%_)) + _%hd141169141200%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140896140928%_)) - (let ((_%e140897140931%_ + _%tl141170141202%_)) + (let ((_%e141171141205%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl140896140928%_)))) - (let ((_%tl140899140936%_ + (gx#stx-e _%tl141170141202%_)))) + (let ((_%tl141173141210%_ (let () (declare (not safe)) - (##cdr _%e140897140931%_))) - (_%hd140898140934%_ + (##cdr _%e141171141205%_))) + (_%hd141172141208%_ (let () (declare (not safe)) - (##car _%e140897140931%_)))) + (##car _%e141171141205%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140899140936%_)) - (_%__kont147012147013%_) - (_%__kont147014147015%_)))) - (_%__kont147014147015%_)) - (_%__kont147014147015%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147014147015%_)))) - (_%__kont147014147015%_)))))) - _%rand140815140862%_ - _%hd140805140836%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop140810140846%_ - _%target140807140841%_ + (gx#stx-null? _%tl141173141210%_)) + (_%__kont147286147287%_) + (_%__kont147288147289%_)))) + (_%__kont147288147289%_)) + (_%__kont147288147289%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147288147289%_)))) + (_%__kont147288147289%_)))))) + _%rand141089141136%_ + _%hd141079141110%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop141084141120%_ + _%target141081141115%_ '())) - (_%g140797140820%_ - _%g140798140823%_))))) - (_%g140797140820%_ - _%g140798140823%_)))) - (_%g140797140820%_ _%g140798140823%_)))) - (_%g140797140820%_ _%g140798140823%_))))) - (_%g140796141081%_ _%stx140793%_))))) + (_%g141071141094%_ + _%g141072141097%_))))) + (_%g141071141094%_ + _%g141072141097%_)))) + (_%g141071141094%_ _%g141072141097%_)))) + (_%g141071141094%_ _%g141072141097%_))))) + (_%g141070141355%_ _%stx141067%_))))) (define gxc#generate-runtime-call-unchecked% - (lambda (_%self140535%_ _%stx140536%_) - (let* ((_%__stx147082147083%_ _%stx140536%_) - (_%g140539140568%_ + (lambda (_%self140809%_ _%stx140810%_) + (let* ((_%__stx147356147357%_ _%stx140810%_) + (_%g140813140842%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147082147083%_))))) - (let ((_%__kont147084147085%_ - (lambda (_%L140636%_ _%L140637%_) + _%__stx147356147357%_))))) + (let ((_%__kont147358147359%_ + (lambda (_%L140910%_ _%L140911%_) (if (gxc#current-compile-decls-unsafe?) (gxc#generate-runtime-call% - _%self140535%_ - _%stx140536%_) - (let ((_%f140659%_ - (let ((__tmp147579 + _%self140809%_ + _%stx140810%_) + (let ((_%f140933%_ + (let ((__tmp147853 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L140637%_ '())))) + (cons _%L140911%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self140535%_ - __tmp147579)))) - (let _%lp140661%_ ((_%rest140664%_ - (reverse (let ((__tmp147581 - (lambda (_%g140781140784%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g140782140786%_) - (cons _%g140781140784%_ _%g140782140786%_)))) + _%self140809%_ + __tmp147853)))) + (let _%lp140935%_ ((_%rest140938%_ + (reverse (let ((__tmp147855 + (lambda (_%g141055141058%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g141056141060%_) + (cons _%g141055141058%_ _%g141056141060%_)))) (declare (not safe)) - (__foldr1 __tmp147581 '() _%L140636%_)))) + (__foldr1 __tmp147855 '() _%L140910%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%bind140666%_ '()) - (_%args140667%_ '())) - (let* ((_%rest140668140676%_ _%rest140664%_) - (_%else140670140684%_ + (_%bind140940%_ '()) + (_%args140941%_ '())) + (let* ((_%rest140942140950%_ _%rest140938%_) + (_%else140944140958%_ (lambda () (cons 'let - (cons _%bind140666%_ + (cons _%bind140940%_ (cons '(declare (not safe)) - (cons (cons _%f140659%_ + (cons (cons _%f140933%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%args140667%_) + _%args140941%_) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K140672140770%_ - (lambda (_%rest140687%_ _%e140688%_) - (let* ((_%__stx147036147037%_ _%e140688%_) - (_%g140693140711%_ + (_%K140946141044%_ + (lambda (_%rest140961%_ _%e140962%_) + (let* ((_%__stx147310147311%_ _%e140962%_) + (_%g140967140985%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147036147037%_))))) - (let ((_%__kont147038147039%_ + _%__stx147310147311%_))))) + (let ((_%__kont147312147313%_ (lambda () - (_%lp140661%_ - _%rest140687%_ - _%bind140666%_ + (_%lp140935%_ + _%rest140961%_ + _%bind140940%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e140688%_)) - _%args140667%_)))) - (_%__kont147040147041%_ + _%e140962%_)) + _%args140941%_)))) + (_%__kont147314147315%_ (lambda () - (_%lp140661%_ - _%rest140687%_ - _%bind140666%_ + (_%lp140935%_ + _%rest140961%_ + _%bind140940%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e140688%_)) - _%args140667%_)))) - (_%__kont147042147043%_ + _%e140962%_)) + _%args140941%_)))) + (_%__kont147316147317%_ (lambda () - (let ((_%tmp140718%_ - (let ((__tmp147580 + (let ((_%tmp140992%_ + (let ((__tmp147854 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp147580)))) + (make-symbol__0 __tmp147854)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp140661%_ - _%rest140687%_ - (cons (cons _%tmp140718%_ + (_%lp140935%_ + _%rest140961%_ + (cons (cons _%tmp140992%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _%e140688%_)) + (gxc#compile-e__0 _%e140962%_)) '())) - _%bind140666%_) + _%bind140940%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%tmp140718%_ - _%args140667%_)))))) + (cons _%tmp140992%_ + _%args140941%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx147036147037%_)) - (let ((_%e140695140749%_ + _%__stx147310147311%_)) + (let ((_%e140969141023%_ (let () (declare (not safe)) (gx#stx-e - _%__stx147036147037%_)))) - (let ((_%tl140697140754%_ + _%__stx147310147311%_)))) + (let ((_%tl140971141028%_ (let () (declare (not safe)) - (##cdr _%e140695140749%_))) - (_%hd140696140752%_ + (##cdr _%e140969141023%_))) + (_%hd140970141026%_ (let () (declare (not safe)) - (##car _%e140695140749%_)))) + (##car _%e140969141023%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd140696140752%_)) + _%hd140970141026%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd140696140752%_)) + _%hd140970141026%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl140697140754%_)) - (let ((_%e140698140757%_ + (gx#stx-pair? _%tl140971141028%_)) + (let ((_%e140972141031%_ (let () (declare (not safe)) - (gx#stx-e _%tl140697140754%_)))) - (let ((_%tl140700140762%_ + (gx#stx-e _%tl140971141028%_)))) + (let ((_%tl140974141036%_ (let () (declare (not safe)) - (##cdr _%e140698140757%_))) - (_%hd140699140760%_ + (##cdr _%e140972141031%_))) + (_%hd140973141034%_ (let () (declare (not safe)) - (##car _%e140698140757%_)))) + (##car _%e140972141031%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140700140762%_)) - (_%__kont147038147039%_) - (_%__kont147042147043%_)))) - (_%__kont147042147043%_)) + (gx#stx-null? _%tl140974141036%_)) + (_%__kont147312147313%_) + (_%__kont147316147317%_)))) + (_%__kont147316147317%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd140696140752%_)) + (gx#stx-eq? '%#quote _%hd140970141026%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140697140754%_)) - (let ((_%e140704140734%_ + (gx#stx-pair? _%tl140971141028%_)) + (let ((_%e140978141008%_ (let () (declare (not safe)) - (gx#stx-e _%tl140697140754%_)))) - (let ((_%tl140706140739%_ + (gx#stx-e _%tl140971141028%_)))) + (let ((_%tl140980141013%_ (let () (declare (not safe)) - (##cdr _%e140704140734%_))) - (_%hd140705140737%_ + (##cdr _%e140978141008%_))) + (_%hd140979141011%_ (let () (declare (not safe)) - (##car _%e140704140734%_)))) + (##car _%e140978141008%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140706140739%_)) - (_%__kont147040147041%_) - (_%__kont147042147043%_)))) - (_%__kont147042147043%_)) - (_%__kont147042147043%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147042147043%_)))) - (_%__kont147042147043%_))))))) + (gx#stx-null? _%tl140980141013%_)) + (_%__kont147314147315%_) + (_%__kont147316147317%_)))) + (_%__kont147316147317%_)) + (_%__kont147316147317%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147316147317%_)))) + (_%__kont147316147317%_))))))) (if (let () (declare (not safe)) - (##pair? _%rest140668140676%_)) - (let ((_%hd140673140773%_ + (##pair? _%rest140942140950%_)) + (let ((_%hd140947141047%_ (let () (declare (not safe)) - (##car _%rest140668140676%_))) - (_%tl140674140775%_ + (##car _%rest140942140950%_))) + (_%tl140948141049%_ (let () (declare (not safe)) - (##cdr _%rest140668140676%_)))) - (let* ((_%e140778%_ _%hd140673140773%_) - (_%rest140780%_ _%tl140674140775%_)) - (_%K140672140770%_ - _%rest140780%_ - _%e140778%_))) - (_%else140670140684%_)))))))) - (_%__kont147088147089%_ + (##cdr _%rest140942140950%_)))) + (let* ((_%e141052%_ _%hd140947141047%_) + (_%rest141054%_ _%tl140948141049%_)) + (_%K140946141044%_ + _%rest141054%_ + _%e141052%_))) + (_%else140944140958%_)))))))) + (_%__kont147362147363%_ (lambda () - (gxc#generate-runtime-call% _%self140535%_ _%stx140536%_)))) - (let ((_%__match147127147128%_ - (lambda (_%e140543140580%_ - _%hd140544140583%_ - _%tl140545140585%_ - _%e140546140588%_ - _%hd140547140591%_ - _%tl140548140593%_ - _%e140549140596%_ - _%hd140550140599%_ - _%tl140551140601%_ - _%e140552140604%_ - _%hd140553140607%_ - _%tl140554140609%_ - _%__splice147086147087%_ - _%target140555140612%_ - _%tl140557140614%_) - (letrec ((_%loop140558140617%_ - (lambda (_%hd140556140620%_ - _%rand140562140622%_) + (gxc#generate-runtime-call% _%self140809%_ _%stx140810%_)))) + (let ((_%__match147401147402%_ + (lambda (_%e140817140854%_ + _%hd140818140857%_ + _%tl140819140859%_ + _%e140820140862%_ + _%hd140821140865%_ + _%tl140822140867%_ + _%e140823140870%_ + _%hd140824140873%_ + _%tl140825140875%_ + _%e140826140878%_ + _%hd140827140881%_ + _%tl140828140883%_ + _%__splice147360147361%_ + _%target140829140886%_ + _%tl140831140888%_) + (letrec ((_%loop140832140891%_ + (lambda (_%hd140830140894%_ + _%rand140836140896%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd140556140620%_)) - (let ((_%e140559140625%_ + (gx#stx-pair? _%hd140830140894%_)) + (let ((_%e140833140899%_ (let () (declare (not safe)) - (gx#stx-e _%hd140556140620%_)))) - (let ((_%lp-tl140561140630%_ + (gx#stx-e _%hd140830140894%_)))) + (let ((_%lp-tl140835140904%_ (let () (declare (not safe)) - (##cdr _%e140559140625%_))) - (_%lp-hd140560140628%_ + (##cdr _%e140833140899%_))) + (_%lp-hd140834140902%_ (let () (declare (not safe)) - (##car _%e140559140625%_)))) - (_%loop140558140617%_ - _%lp-tl140561140630%_ - (cons _%lp-hd140560140628%_ - _%rand140562140622%_)))) - (let ((_%rand140563140633%_ - (reverse _%rand140562140622%_))) - (_%__kont147084147085%_ - _%rand140563140633%_ - _%hd140553140607%_)))))) - (_%loop140558140617%_ _%target140555140612%_ '()))))) + (##car _%e140833140899%_)))) + (_%loop140832140891%_ + _%lp-tl140835140904%_ + (cons _%lp-hd140834140902%_ + _%rand140836140896%_)))) + (let ((_%rand140837140907%_ + (reverse _%rand140836140896%_))) + (_%__kont147358147359%_ + _%rand140837140907%_ + _%hd140827140881%_)))))) + (_%loop140832140891%_ _%target140829140886%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147082147083%_)) - (let ((_%e140543140580%_ + (gx#stx-pair? _%__stx147356147357%_)) + (let ((_%e140817140854%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147082147083%_)))) - (let ((_%tl140545140585%_ + (gx#stx-e _%__stx147356147357%_)))) + (let ((_%tl140819140859%_ (let () (declare (not safe)) - (##cdr _%e140543140580%_))) - (_%hd140544140583%_ + (##cdr _%e140817140854%_))) + (_%hd140818140857%_ (let () (declare (not safe)) - (##car _%e140543140580%_)))) + (##car _%e140817140854%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140545140585%_)) - (let ((_%e140546140588%_ + (gx#stx-pair? _%tl140819140859%_)) + (let ((_%e140820140862%_ (let () (declare (not safe)) - (gx#stx-e _%tl140545140585%_)))) - (let ((_%tl140548140593%_ + (gx#stx-e _%tl140819140859%_)))) + (let ((_%tl140822140867%_ (let () (declare (not safe)) - (##cdr _%e140546140588%_))) - (_%hd140547140591%_ + (##cdr _%e140820140862%_))) + (_%hd140821140865%_ (let () (declare (not safe)) - (##car _%e140546140588%_)))) + (##car _%e140820140862%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd140547140591%_)) - (let ((_%e140549140596%_ + (gx#stx-pair? _%hd140821140865%_)) + (let ((_%e140823140870%_ (let () (declare (not safe)) - (gx#stx-e _%hd140547140591%_)))) - (let ((_%tl140551140601%_ + (gx#stx-e _%hd140821140865%_)))) + (let ((_%tl140825140875%_ (let () (declare (not safe)) - (##cdr _%e140549140596%_))) - (_%hd140550140599%_ + (##cdr _%e140823140870%_))) + (_%hd140824140873%_ (let () (declare (not safe)) - (##car _%e140549140596%_)))) + (##car _%e140823140870%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd140550140599%_)) + _%hd140824140873%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd140550140599%_)) + _%hd140824140873%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140551140601%_)) - (let ((_%e140552140604%_ + _%tl140825140875%_)) + (let ((_%e140826140878%_ (let () (declare (not safe)) (gx#stx-e - _%tl140551140601%_)))) - (let ((_%tl140554140609%_ + _%tl140825140875%_)))) + (let ((_%tl140828140883%_ (let () (declare (not safe)) - (##cdr _%e140552140604%_))) - (_%hd140553140607%_ + (##cdr _%e140826140878%_))) + (_%hd140827140881%_ (let () (declare (not safe)) - (##car _%e140552140604%_)))) + (##car _%e140826140878%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140554140609%_)) + _%tl140828140883%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _%tl140548140593%_)) - (let ((_%__splice147086147087%_ + (gx#stx-pair/null? _%tl140822140867%_)) + (let ((_%__splice147360147361%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl140548140593%_ + _%tl140822140867%_ '0)))) - (let ((_%tl140557140614%_ + (let ((_%tl140831140888%_ (let () (declare (not safe)) - (##vector-ref _%__splice147086147087%_ '1))) - (_%target140555140612%_ + (##vector-ref _%__splice147360147361%_ '1))) + (_%target140829140886%_ (let () (declare (not safe)) - (##vector-ref _%__splice147086147087%_ '0)))) + (##vector-ref _%__splice147360147361%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140557140614%_)) - (_%__match147127147128%_ - _%e140543140580%_ - _%hd140544140583%_ - _%tl140545140585%_ - _%e140546140588%_ - _%hd140547140591%_ - _%tl140548140593%_ - _%e140549140596%_ - _%hd140550140599%_ - _%tl140551140601%_ - _%e140552140604%_ - _%hd140553140607%_ - _%tl140554140609%_ - _%__splice147086147087%_ - _%target140555140612%_ - _%tl140557140614%_) - (_%__kont147088147089%_)))) - (_%__kont147088147089%_)) - (_%__kont147088147089%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147088147089%_)) - (_%__kont147088147089%_)) - (_%__kont147088147089%_)))) - (_%__kont147088147089%_)))) - (_%__kont147088147089%_)))) - (_%__kont147088147089%_))))))) + (gx#stx-null? _%tl140831140888%_)) + (_%__match147401147402%_ + _%e140817140854%_ + _%hd140818140857%_ + _%tl140819140859%_ + _%e140820140862%_ + _%hd140821140865%_ + _%tl140822140867%_ + _%e140823140870%_ + _%hd140824140873%_ + _%tl140825140875%_ + _%e140826140878%_ + _%hd140827140881%_ + _%tl140828140883%_ + _%__splice147360147361%_ + _%target140829140886%_ + _%tl140831140888%_) + (_%__kont147362147363%_)))) + (_%__kont147362147363%_)) + (_%__kont147362147363%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147362147363%_)) + (_%__kont147362147363%_)) + (_%__kont147362147363%_)))) + (_%__kont147362147363%_)))) + (_%__kont147362147363%_)))) + (_%__kont147362147363%_))))))) (define gxc#generate-runtime-if% - (lambda (_%self140347%_ _%stx140348%_) - (letrec ((_%simplify140350%_ - (lambda (_%code140435%_) - (let* ((_%code140436140454%_ _%code140435%_) - (_%else140438140462%_ (lambda () _%code140435%_)) - (_%K140440140498%_ - (lambda (_%expr140465%_ _%test140466%_) - (let* ((_%expr140467140475%_ _%expr140465%_) - (_%else140469140483%_ + (lambda (_%self140621%_ _%stx140622%_) + (letrec ((_%simplify140624%_ + (lambda (_%code140709%_) + (let* ((_%code140710140728%_ _%code140709%_) + (_%else140712140736%_ (lambda () _%code140709%_)) + (_%K140714140772%_ + (lambda (_%expr140739%_ _%test140740%_) + (let* ((_%expr140741140749%_ _%expr140739%_) + (_%else140743140757%_ (lambda () (cons 'and - (cons _%test140466%_ - (cons _%expr140465%_ + (cons _%test140740%_ + (cons _%expr140739%_ '()))))) - (_%K140471140488%_ - (lambda (_%exprs140486%_) + (_%K140745140762%_ + (lambda (_%exprs140760%_) (cons 'and - (cons _%test140466%_ - _%exprs140486%_))))) + (cons _%test140740%_ + _%exprs140760%_))))) (if (let () (declare (not safe)) - (##pair? _%expr140467140475%_)) - (let ((_%hd140472140491%_ + (##pair? _%expr140741140749%_)) + (let ((_%hd140746140765%_ (let () (declare (not safe)) - (##car _%expr140467140475%_))) - (_%tl140473140493%_ + (##car _%expr140741140749%_))) + (_%tl140747140767%_ (let () (declare (not safe)) - (##cdr _%expr140467140475%_)))) + (##cdr _%expr140741140749%_)))) (if (let () (declare (not safe)) - (##eq? _%hd140472140491%_ 'and)) - (let ((_%exprs140496%_ - _%tl140473140493%_)) - (_%K140471140488%_ - _%exprs140496%_)) - (_%else140469140483%_))) - (_%else140469140483%_)))))) + (##eq? _%hd140746140765%_ 'and)) + (let ((_%exprs140770%_ + _%tl140747140767%_)) + (_%K140745140762%_ + _%exprs140770%_)) + (_%else140743140757%_))) + (_%else140743140757%_)))))) (if (let () (declare (not safe)) - (##pair? _%code140436140454%_)) - (let ((_%hd140441140501%_ + (##pair? _%code140710140728%_)) + (let ((_%hd140715140775%_ (let () (declare (not safe)) - (##car _%code140436140454%_))) - (_%tl140442140503%_ + (##car _%code140710140728%_))) + (_%tl140716140777%_ (let () (declare (not safe)) - (##cdr _%code140436140454%_)))) + (##cdr _%code140710140728%_)))) (if (let () (declare (not safe)) - (##eq? _%hd140441140501%_ 'if)) + (##eq? _%hd140715140775%_ 'if)) (if (let () (declare (not safe)) - (##pair? _%tl140442140503%_)) - (let ((_%hd140443140506%_ + (##pair? _%tl140716140777%_)) + (let ((_%hd140717140780%_ (let () (declare (not safe)) - (##car _%tl140442140503%_))) - (_%tl140444140508%_ + (##car _%tl140716140777%_))) + (_%tl140718140782%_ (let () (declare (not safe)) - (##cdr _%tl140442140503%_)))) - (let ((_%test140511%_ - _%hd140443140506%_)) + (##cdr _%tl140716140777%_)))) + (let ((_%test140785%_ + _%hd140717140780%_)) (if (let () (declare (not safe)) - (##pair? _%tl140444140508%_)) - (let ((_%hd140445140513%_ + (##pair? _%tl140718140782%_)) + (let ((_%hd140719140787%_ (let () (declare (not safe)) - (##car _%tl140444140508%_))) - (_%tl140446140515%_ + (##car _%tl140718140782%_))) + (_%tl140720140789%_ (let () (declare (not safe)) - (##cdr _%tl140444140508%_)))) - (let ((_%expr140518%_ - _%hd140445140513%_)) + (##cdr _%tl140718140782%_)))) + (let ((_%expr140792%_ + _%hd140719140787%_)) (if (let () (declare (not safe)) - (##pair? _%tl140446140515%_)) - (let ((_%hd140447140520%_ + (##pair? _%tl140720140789%_)) + (let ((_%hd140721140794%_ (let () (declare (not safe)) - (##car _%tl140446140515%_))) - (_%tl140448140522%_ + (##car _%tl140720140789%_))) + (_%tl140722140796%_ (let () (declare (not safe)) - (##cdr _%tl140446140515%_)))) + (##cdr _%tl140720140789%_)))) (if (let () (declare (not safe)) - (##pair? _%hd140447140520%_)) - (let ((_%hd140449140525%_ + (##pair? _%hd140721140794%_)) + (let ((_%hd140723140799%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%hd140447140520%_))) - (_%tl140450140527%_ + (##car _%hd140721140794%_))) + (_%tl140724140801%_ (let () (declare (not safe)) - (##cdr _%hd140447140520%_)))) + (##cdr _%hd140721140794%_)))) (if (let () (declare (not safe)) - (##eq? _%hd140449140525%_ 'quote)) + (##eq? _%hd140723140799%_ 'quote)) (if (let () (declare (not safe)) - (##pair? _%tl140450140527%_)) - (let ((_%hd140451140530%_ + (##pair? _%tl140724140801%_)) + (let ((_%hd140725140804%_ (let () (declare (not safe)) - (##car _%tl140450140527%_))) - (_%tl140452140532%_ + (##car _%tl140724140801%_))) + (_%tl140726140806%_ (let () (declare (not safe)) - (##cdr _%tl140450140527%_)))) + (##cdr _%tl140724140801%_)))) (if (let () (declare (not safe)) - (##eq? _%hd140451140530%_ '#f)) + (##eq? _%hd140725140804%_ '#f)) (if (let () (declare (not safe)) - (##null? _%tl140452140532%_)) + (##null? _%tl140726140806%_)) (if (let () (declare (not safe)) - (##null? _%tl140448140522%_)) - (_%K140440140498%_ - _%expr140518%_ - _%test140511%_) - (_%else140438140462%_)) - (_%else140438140462%_)) - (_%else140438140462%_))) - (_%else140438140462%_)) - (_%else140438140462%_))) - (_%else140438140462%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else140438140462%_)))) - (_%else140438140462%_)))) - (_%else140438140462%_)) - (_%else140438140462%_))) - (_%else140438140462%_)))))) - (let* ((_%g140352140373%_ - (lambda (_%g140353140370%_) + (##null? _%tl140722140796%_)) + (_%K140714140772%_ + _%expr140792%_ + _%test140785%_) + (_%else140712140736%_)) + (_%else140712140736%_)) + (_%else140712140736%_))) + (_%else140712140736%_)) + (_%else140712140736%_))) + (_%else140712140736%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else140712140736%_)))) + (_%else140712140736%_)))) + (_%else140712140736%_)) + (_%else140712140736%_))) + (_%else140712140736%_)))))) + (let* ((_%g140626140647%_ + (lambda (_%g140627140644%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140353140370%_)))) - (_%g140351140432%_ - (lambda (_%g140353140376%_) + _%g140627140644%_)))) + (_%g140625140706%_ + (lambda (_%g140627140650%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140353140376%_)) - (let ((_%e140357140378%_ + (gx#stx-pair? _%g140627140650%_)) + (let ((_%e140631140652%_ (let () (declare (not safe)) - (gx#stx-e _%g140353140376%_)))) - (let ((_%hd140358140381%_ + (gx#stx-e _%g140627140650%_)))) + (let ((_%hd140632140655%_ (let () (declare (not safe)) - (##car _%e140357140378%_))) - (_%tl140359140383%_ + (##car _%e140631140652%_))) + (_%tl140633140657%_ (let () (declare (not safe)) - (##cdr _%e140357140378%_)))) + (##cdr _%e140631140652%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140359140383%_)) - (let ((_%e140360140386%_ + (gx#stx-pair? _%tl140633140657%_)) + (let ((_%e140634140660%_ (let () (declare (not safe)) - (gx#stx-e _%tl140359140383%_)))) - (let ((_%hd140361140389%_ + (gx#stx-e _%tl140633140657%_)))) + (let ((_%hd140635140663%_ (let () (declare (not safe)) - (##car _%e140360140386%_))) - (_%tl140362140391%_ + (##car _%e140634140660%_))) + (_%tl140636140665%_ (let () (declare (not safe)) - (##cdr _%e140360140386%_)))) + (##cdr _%e140634140660%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140362140391%_)) - (let ((_%e140363140394%_ + (gx#stx-pair? _%tl140636140665%_)) + (let ((_%e140637140668%_ (let () (declare (not safe)) (gx#stx-e - _%tl140362140391%_)))) - (let ((_%hd140364140397%_ + _%tl140636140665%_)))) + (let ((_%hd140638140671%_ (let () (declare (not safe)) - (##car _%e140363140394%_))) - (_%tl140365140399%_ + (##car _%e140637140668%_))) + (_%tl140639140673%_ (let () (declare (not safe)) - (##cdr _%e140363140394%_)))) + (##cdr _%e140637140668%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140365140399%_)) - (let ((_%e140366140402%_ + _%tl140639140673%_)) + (let ((_%e140640140676%_ (let () (declare (not safe)) (gx#stx-e - _%tl140365140399%_)))) - (let ((_%hd140367140405%_ + _%tl140639140673%_)))) + (let ((_%hd140641140679%_ (let () (declare (not safe)) - (##car _%e140366140402%_))) - (_%tl140368140407%_ + (##car _%e140640140676%_))) + (_%tl140642140681%_ (let () (declare (not safe)) - (##cdr _%e140366140402%_)))) + (##cdr _%e140640140676%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140368140407%_)) - ((lambda (_%L140410%_ + _%tl140642140681%_)) + ((lambda (_%L140684%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L140411%_ - _%L140412%_) + _%L140685%_ + _%L140686%_) (if (let () (declare (not safe)) (gxc#current-compile-boolean-context)) - (_%simplify140350%_ + (_%simplify140624%_ (cons 'if (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140347%_ - _%L140412%_)) + _%self140621%_ + _%L140686%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140347%_ - _%L140411%_)) + _%self140621%_ + _%L140685%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140347%_ - _%L140410%_)) + _%self140621%_ + _%L140684%_)) '()))))) (cons 'if - (cons (let ((__tmp147582 + (cons (let ((__tmp147856 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self140347%_ - _%L140412%_))))) + _%self140621%_ + _%L140686%_))))) (declare (not safe)) (__call-with-parameters - __tmp147582 + __tmp147856 gxc#current-compile-boolean-context '#t)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140347%_ - _%L140411%_)) + _%self140621%_ + _%L140685%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140347%_ - _%L140410%_)) + _%self140621%_ + _%L140684%_)) '())))))) - _%hd140367140405%_ - _%hd140364140397%_ - _%hd140361140389%_) - (_%g140352140373%_ _%g140353140376%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g140352140373%_ - _%g140353140376%_)))) - (_%g140352140373%_ - _%g140353140376%_)))) - (_%g140352140373%_ _%g140353140376%_)))) - (_%g140352140373%_ _%g140353140376%_))))) - (_%g140351140432%_ _%stx140348%_))))) + _%hd140641140679%_ + _%hd140638140671%_ + _%hd140635140663%_) + (_%g140626140647%_ _%g140627140650%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g140626140647%_ + _%g140627140650%_)))) + (_%g140626140647%_ + _%g140627140650%_)))) + (_%g140626140647%_ _%g140627140650%_)))) + (_%g140626140647%_ _%g140627140650%_))))) + (_%g140625140706%_ _%stx140622%_))))) (define gxc#generate-runtime-ref% - (lambda (_%self140295%_ _%stx140296%_) - (let* ((_%g140298140311%_ - (lambda (_%g140299140308%_) + (lambda (_%self140569%_ _%stx140570%_) + (let* ((_%g140572140585%_ + (lambda (_%g140573140582%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140299140308%_)))) - (_%g140297140344%_ - (lambda (_%g140299140314%_) + _%g140573140582%_)))) + (_%g140571140618%_ + (lambda (_%g140573140588%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140299140314%_)) - (let ((_%e140301140316%_ + (gx#stx-pair? _%g140573140588%_)) + (let ((_%e140575140590%_ (let () (declare (not safe)) - (gx#stx-e _%g140299140314%_)))) - (let ((_%hd140302140319%_ + (gx#stx-e _%g140573140588%_)))) + (let ((_%hd140576140593%_ (let () (declare (not safe)) - (##car _%e140301140316%_))) - (_%tl140303140321%_ + (##car _%e140575140590%_))) + (_%tl140577140595%_ (let () (declare (not safe)) - (##cdr _%e140301140316%_)))) + (##cdr _%e140575140590%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140303140321%_)) - (let ((_%e140304140324%_ + (gx#stx-pair? _%tl140577140595%_)) + (let ((_%e140578140598%_ (let () (declare (not safe)) - (gx#stx-e _%tl140303140321%_)))) - (let ((_%hd140305140327%_ + (gx#stx-e _%tl140577140595%_)))) + (let ((_%hd140579140601%_ (let () (declare (not safe)) - (##car _%e140304140324%_))) - (_%tl140306140329%_ + (##car _%e140578140598%_))) + (_%tl140580140603%_ (let () (declare (not safe)) - (##cdr _%e140304140324%_)))) + (##cdr _%e140578140598%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140306140329%_)) - ((lambda (_%L140332%_) + (gx#stx-null? _%tl140580140603%_)) + ((lambda (_%L140606%_) (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L140332%_))) - _%hd140305140327%_) - (_%g140298140311%_ _%g140299140314%_)))) - (_%g140298140311%_ _%g140299140314%_)))) - (_%g140298140311%_ _%g140299140314%_))))) - (_%g140297140344%_ _%stx140296%_)))) + _%L140606%_))) + _%hd140579140601%_) + (_%g140572140585%_ _%g140573140588%_)))) + (_%g140572140585%_ _%g140573140588%_)))) + (_%g140572140585%_ _%g140573140588%_))))) + (_%g140571140618%_ _%stx140570%_)))) (define gxc#generate-runtime-setq% - (lambda (_%self140227%_ _%stx140228%_) - (let* ((_%g140230140247%_ - (lambda (_%g140231140244%_) + (lambda (_%self140501%_ _%stx140502%_) + (let* ((_%g140504140521%_ + (lambda (_%g140505140518%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140231140244%_)))) - (_%g140229140292%_ - (lambda (_%g140231140250%_) + _%g140505140518%_)))) + (_%g140503140566%_ + (lambda (_%g140505140524%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140231140250%_)) - (let ((_%e140234140252%_ + (gx#stx-pair? _%g140505140524%_)) + (let ((_%e140508140526%_ (let () (declare (not safe)) - (gx#stx-e _%g140231140250%_)))) - (let ((_%hd140235140255%_ + (gx#stx-e _%g140505140524%_)))) + (let ((_%hd140509140529%_ (let () (declare (not safe)) - (##car _%e140234140252%_))) - (_%tl140236140257%_ + (##car _%e140508140526%_))) + (_%tl140510140531%_ (let () (declare (not safe)) - (##cdr _%e140234140252%_)))) + (##cdr _%e140508140526%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140236140257%_)) - (let ((_%e140237140260%_ + (gx#stx-pair? _%tl140510140531%_)) + (let ((_%e140511140534%_ (let () (declare (not safe)) - (gx#stx-e _%tl140236140257%_)))) - (let ((_%hd140238140263%_ + (gx#stx-e _%tl140510140531%_)))) + (let ((_%hd140512140537%_ (let () (declare (not safe)) - (##car _%e140237140260%_))) - (_%tl140239140265%_ + (##car _%e140511140534%_))) + (_%tl140513140539%_ (let () (declare (not safe)) - (##cdr _%e140237140260%_)))) + (##cdr _%e140511140534%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140239140265%_)) - (let ((_%e140240140268%_ + (gx#stx-pair? _%tl140513140539%_)) + (let ((_%e140514140542%_ (let () (declare (not safe)) - (gx#stx-e _%tl140239140265%_)))) - (let ((_%hd140241140271%_ + (gx#stx-e _%tl140513140539%_)))) + (let ((_%hd140515140545%_ (let () (declare (not safe)) - (##car _%e140240140268%_))) - (_%tl140242140273%_ + (##car _%e140514140542%_))) + (_%tl140516140547%_ (let () (declare (not safe)) - (##cdr _%e140240140268%_)))) + (##cdr _%e140514140542%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140242140273%_)) - ((lambda (_%L140276%_ - _%L140277%_) + _%tl140516140547%_)) + ((lambda (_%L140550%_ + _%L140551%_) (cons 'set! (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#generate-runtime-binding-id _%L140277%_)) + (gxc#generate-runtime-binding-id _%L140551%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self140227%_ _%L140276%_)) + (gxc#compile-e__1 _%self140501%_ _%L140550%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd140241140271%_ - _%hd140238140263%_) - (_%g140230140247%_ - _%g140231140250%_)))) - (_%g140230140247%_ _%g140231140250%_)))) - (_%g140230140247%_ _%g140231140250%_)))) - (_%g140230140247%_ _%g140231140250%_))))) - (_%g140229140292%_ _%stx140228%_)))) + _%hd140515140545%_ + _%hd140512140537%_) + (_%g140504140521%_ + _%g140505140524%_)))) + (_%g140504140521%_ _%g140505140524%_)))) + (_%g140504140521%_ _%g140505140524%_)))) + (_%g140504140521%_ _%g140505140524%_))))) + (_%g140503140566%_ _%stx140502%_)))) (define gxc#generate-runtime-struct-instancep% - (lambda (_%self140038%_ _%stx140039%_) - (let* ((_%g140041140058%_ - (lambda (_%g140042140055%_) + (lambda (_%self140312%_ _%stx140313%_) + (let* ((_%g140315140332%_ + (lambda (_%g140316140329%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140042140055%_)))) - (_%g140040140224%_ - (lambda (_%g140042140061%_) + _%g140316140329%_)))) + (_%g140314140498%_ + (lambda (_%g140316140335%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140042140061%_)) - (let ((_%e140045140063%_ + (gx#stx-pair? _%g140316140335%_)) + (let ((_%e140319140337%_ (let () (declare (not safe)) - (gx#stx-e _%g140042140061%_)))) - (let ((_%hd140046140066%_ + (gx#stx-e _%g140316140335%_)))) + (let ((_%hd140320140340%_ (let () (declare (not safe)) - (##car _%e140045140063%_))) - (_%tl140047140068%_ + (##car _%e140319140337%_))) + (_%tl140321140342%_ (let () (declare (not safe)) - (##cdr _%e140045140063%_)))) + (##cdr _%e140319140337%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140047140068%_)) - (let ((_%e140048140071%_ + (gx#stx-pair? _%tl140321140342%_)) + (let ((_%e140322140345%_ (let () (declare (not safe)) - (gx#stx-e _%tl140047140068%_)))) - (let ((_%hd140049140074%_ + (gx#stx-e _%tl140321140342%_)))) + (let ((_%hd140323140348%_ (let () (declare (not safe)) - (##car _%e140048140071%_))) - (_%tl140050140076%_ + (##car _%e140322140345%_))) + (_%tl140324140350%_ (let () (declare (not safe)) - (##cdr _%e140048140071%_)))) + (##cdr _%e140322140345%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140050140076%_)) - (let ((_%e140051140079%_ + (gx#stx-pair? _%tl140324140350%_)) + (let ((_%e140325140353%_ (let () (declare (not safe)) - (gx#stx-e _%tl140050140076%_)))) - (let ((_%hd140052140082%_ + (gx#stx-e _%tl140324140350%_)))) + (let ((_%hd140326140356%_ (let () (declare (not safe)) - (##car _%e140051140079%_))) - (_%tl140053140084%_ + (##car _%e140325140353%_))) + (_%tl140327140358%_ (let () (declare (not safe)) - (##cdr _%e140051140079%_)))) + (##cdr _%e140325140353%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140053140084%_)) - ((lambda (_%L140087%_ - _%L140088%_) + _%tl140327140358%_)) + ((lambda (_%L140361%_ + _%L140362%_) (if (gxc#current-compile-decls-unsafe?) (cons '##structure-instance-of? (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self140038%_ _%L140087%_)) + (gxc#compile-e__1 _%self140312%_ _%L140361%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self140038%_ _%L140088%_)) + (gxc#compile-e__1 _%self140312%_ _%L140362%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _%lp140103%_ ((_%rest140106%_ + (let _%lp140377%_ ((_%rest140380%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L140088%_ (cons _%L140087%_ '()))) - (_%bind140108%_ '()) - (_%args140109%_ '())) - (let* ((_%rest140110140118%_ _%rest140106%_) - (_%else140112140126%_ + (cons _%L140362%_ (cons _%L140361%_ '()))) + (_%bind140382%_ '()) + (_%args140383%_ '())) + (let* ((_%rest140384140392%_ _%rest140380%_) + (_%else140386140400%_ (lambda () (cons 'let - (cons _%bind140108%_ + (cons _%bind140382%_ (cons '(declare (not safe)) (cons (cons '##structure-instance-of? - _%args140109%_) + _%args140383%_) '())))))) - (_%K140114140212%_ - (lambda (_%rest140129%_ _%e140130%_) - (let* ((_%__stx147130147131%_ _%e140130%_) - (_%g140135140153%_ + (_%K140388140486%_ + (lambda (_%rest140403%_ _%e140404%_) + (let* ((_%__stx147404147405%_ _%e140404%_) + (_%g140409140427%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147130147131%_))))) - (let ((_%__kont147132147133%_ + _%__stx147404147405%_))))) + (let ((_%__kont147406147407%_ (lambda () - (_%lp140103%_ - _%rest140129%_ - _%bind140108%_ + (_%lp140377%_ + _%rest140403%_ + _%bind140382%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e140130%_)) - _%args140109%_)))) - (_%__kont147134147135%_ + (gxc#compile-e__0 _%e140404%_)) + _%args140383%_)))) + (_%__kont147408147409%_ (lambda () - (_%lp140103%_ - _%rest140129%_ - _%bind140108%_ + (_%lp140377%_ + _%rest140403%_ + _%bind140382%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e140130%_)) - _%args140109%_)))) - (_%__kont147136147137%_ + (gxc#compile-e__0 _%e140404%_)) + _%args140383%_)))) + (_%__kont147410147411%_ (lambda () - (let ((_%tmp140160%_ - (let ((__tmp147583 + (let ((_%tmp140434%_ + (let ((__tmp147857 (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp147583)))) - (_%lp140103%_ - _%rest140129%_ - (cons (cons _%tmp140160%_ + (make-symbol__0 __tmp147857)))) + (_%lp140377%_ + _%rest140403%_ + (cons (cons _%tmp140434%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e140130%_)) + _%e140404%_)) '())) - _%bind140108%_) - (cons _%tmp140160%_ _%args140109%_)))))) + _%bind140382%_) + (cons _%tmp140434%_ _%args140383%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147130147131%_)) - (let ((_%e140137140191%_ + (gx#stx-pair? _%__stx147404147405%_)) + (let ((_%e140411140465%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147130147131%_)))) - (let ((_%tl140139140196%_ + (gx#stx-e _%__stx147404147405%_)))) + (let ((_%tl140413140470%_ (let () (declare (not safe)) - (##cdr _%e140137140191%_))) - (_%hd140138140194%_ + (##cdr _%e140411140465%_))) + (_%hd140412140468%_ (let () (declare (not safe)) - (##car _%e140137140191%_)))) + (##car _%e140411140465%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd140138140194%_)) + (gx#identifier? _%hd140412140468%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd140138140194%_)) + _%hd140412140468%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140139140196%_)) - (let ((_%e140140140199%_ + _%tl140413140470%_)) + (let ((_%e140414140473%_ (let () (declare (not safe)) (gx#stx-e - _%tl140139140196%_)))) - (let ((_%tl140142140204%_ + _%tl140413140470%_)))) + (let ((_%tl140416140478%_ (let () (declare (not safe)) - (##cdr _%e140140140199%_))) - (_%hd140141140202%_ + (##cdr _%e140414140473%_))) + (_%hd140415140476%_ (let () (declare (not safe)) - (##car _%e140140140199%_)))) + (##car _%e140414140473%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140142140204%_)) - (_%__kont147132147133%_) - (_%__kont147136147137%_)))) - (_%__kont147136147137%_)) + _%tl140416140478%_)) + (_%__kont147406147407%_) + (_%__kont147410147411%_)))) + (_%__kont147410147411%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd140138140194%_)) + _%hd140412140468%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140139140196%_)) - (let ((_%e140146140176%_ + _%tl140413140470%_)) + (let ((_%e140420140450%_ (let () (declare (not safe)) (gx#stx-e - _%tl140139140196%_)))) - (let ((_%tl140148140181%_ + _%tl140413140470%_)))) + (let ((_%tl140422140455%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e140146140176%_))) - (_%hd140147140179%_ - (let () (declare (not safe)) (##car _%e140146140176%_)))) + (##cdr _%e140420140450%_))) + (_%hd140421140453%_ + (let () (declare (not safe)) (##car _%e140420140450%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140148140181%_)) - (_%__kont147134147135%_) - (_%__kont147136147137%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147136147137%_)) - (_%__kont147136147137%_))) - (_%__kont147136147137%_)))) - (_%__kont147136147137%_))))))) + (gx#stx-null? _%tl140422140455%_)) + (_%__kont147408147409%_) + (_%__kont147410147411%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147410147411%_)) + (_%__kont147410147411%_))) + (_%__kont147410147411%_)))) + (_%__kont147410147411%_))))))) (if (let () (declare (not safe)) - (##pair? _%rest140110140118%_)) - (let ((_%hd140115140215%_ + (##pair? _%rest140384140392%_)) + (let ((_%hd140389140489%_ (let () (declare (not safe)) - (##car _%rest140110140118%_))) - (_%tl140116140217%_ + (##car _%rest140384140392%_))) + (_%tl140390140491%_ (let () (declare (not safe)) - (##cdr _%rest140110140118%_)))) - (let* ((_%e140220%_ _%hd140115140215%_) - (_%rest140222%_ _%tl140116140217%_)) - (_%K140114140212%_ _%rest140222%_ _%e140220%_))) - (_%else140112140126%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd140052140082%_ - _%hd140049140074%_) - (_%g140041140058%_ - _%g140042140061%_)))) - (_%g140041140058%_ _%g140042140061%_)))) - (_%g140041140058%_ _%g140042140061%_)))) - (_%g140041140058%_ _%g140042140061%_))))) - (_%g140040140224%_ _%stx140039%_)))) + (##cdr _%rest140384140392%_)))) + (let* ((_%e140494%_ _%hd140389140489%_) + (_%rest140496%_ _%tl140390140491%_)) + (_%K140388140486%_ _%rest140496%_ _%e140494%_))) + (_%else140386140400%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd140326140356%_ + _%hd140323140348%_) + (_%g140315140332%_ + _%g140316140335%_)))) + (_%g140315140332%_ _%g140316140335%_)))) + (_%g140315140332%_ _%g140316140335%_)))) + (_%g140315140332%_ _%g140316140335%_))))) + (_%g140314140498%_ _%stx140313%_)))) (define gxc#generate-runtime-struct-direct-instancep% - (lambda (_%self139849%_ _%stx139850%_) - (let* ((_%g139852139869%_ - (lambda (_%g139853139866%_) + (lambda (_%self140123%_ _%stx140124%_) + (let* ((_%g140126140143%_ + (lambda (_%g140127140140%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139853139866%_)))) - (_%g139851140035%_ - (lambda (_%g139853139872%_) + _%g140127140140%_)))) + (_%g140125140309%_ + (lambda (_%g140127140146%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139853139872%_)) - (let ((_%e139856139874%_ + (gx#stx-pair? _%g140127140146%_)) + (let ((_%e140130140148%_ (let () (declare (not safe)) - (gx#stx-e _%g139853139872%_)))) - (let ((_%hd139857139877%_ + (gx#stx-e _%g140127140146%_)))) + (let ((_%hd140131140151%_ (let () (declare (not safe)) - (##car _%e139856139874%_))) - (_%tl139858139879%_ + (##car _%e140130140148%_))) + (_%tl140132140153%_ (let () (declare (not safe)) - (##cdr _%e139856139874%_)))) + (##cdr _%e140130140148%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139858139879%_)) - (let ((_%e139859139882%_ + (gx#stx-pair? _%tl140132140153%_)) + (let ((_%e140133140156%_ (let () (declare (not safe)) - (gx#stx-e _%tl139858139879%_)))) - (let ((_%hd139860139885%_ + (gx#stx-e _%tl140132140153%_)))) + (let ((_%hd140134140159%_ (let () (declare (not safe)) - (##car _%e139859139882%_))) - (_%tl139861139887%_ + (##car _%e140133140156%_))) + (_%tl140135140161%_ (let () (declare (not safe)) - (##cdr _%e139859139882%_)))) + (##cdr _%e140133140156%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139861139887%_)) - (let ((_%e139862139890%_ + (gx#stx-pair? _%tl140135140161%_)) + (let ((_%e140136140164%_ (let () (declare (not safe)) - (gx#stx-e _%tl139861139887%_)))) - (let ((_%hd139863139893%_ + (gx#stx-e _%tl140135140161%_)))) + (let ((_%hd140137140167%_ (let () (declare (not safe)) - (##car _%e139862139890%_))) - (_%tl139864139895%_ + (##car _%e140136140164%_))) + (_%tl140138140169%_ (let () (declare (not safe)) - (##cdr _%e139862139890%_)))) + (##cdr _%e140136140164%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl139864139895%_)) - ((lambda (_%L139898%_ - _%L139899%_) + _%tl140138140169%_)) + ((lambda (_%L140172%_ + _%L140173%_) (if (gxc#current-compile-decls-unsafe?) (cons '##structure-direct-instance-of? (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self139849%_ _%L139898%_)) + (gxc#compile-e__1 _%self140123%_ _%L140172%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self139849%_ _%L139899%_)) + (gxc#compile-e__1 _%self140123%_ _%L140173%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _%lp139914%_ ((_%rest139917%_ + (let _%lp140188%_ ((_%rest140191%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L139899%_ (cons _%L139898%_ '()))) - (_%bind139919%_ '()) - (_%args139920%_ '())) - (let* ((_%rest139921139929%_ _%rest139917%_) - (_%else139923139937%_ + (cons _%L140173%_ (cons _%L140172%_ '()))) + (_%bind140193%_ '()) + (_%args140194%_ '())) + (let* ((_%rest140195140203%_ _%rest140191%_) + (_%else140197140211%_ (lambda () (cons 'let - (cons _%bind139919%_ + (cons _%bind140193%_ (cons '(declare (not safe)) (cons (cons '##structure-direct-instance-of? - _%args139920%_) + _%args140194%_) '())))))) - (_%K139925140023%_ - (lambda (_%rest139940%_ _%e139941%_) - (let* ((_%__stx147176147177%_ _%e139941%_) - (_%g139946139964%_ + (_%K140199140297%_ + (lambda (_%rest140214%_ _%e140215%_) + (let* ((_%__stx147450147451%_ _%e140215%_) + (_%g140220140238%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147176147177%_))))) - (let ((_%__kont147178147179%_ + _%__stx147450147451%_))))) + (let ((_%__kont147452147453%_ (lambda () - (_%lp139914%_ - _%rest139940%_ - _%bind139919%_ + (_%lp140188%_ + _%rest140214%_ + _%bind140193%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e139941%_)) - _%args139920%_)))) - (_%__kont147180147181%_ + (gxc#compile-e__0 _%e140215%_)) + _%args140194%_)))) + (_%__kont147454147455%_ (lambda () - (_%lp139914%_ - _%rest139940%_ - _%bind139919%_ + (_%lp140188%_ + _%rest140214%_ + _%bind140193%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e139941%_)) - _%args139920%_)))) - (_%__kont147182147183%_ + (gxc#compile-e__0 _%e140215%_)) + _%args140194%_)))) + (_%__kont147456147457%_ (lambda () - (let ((_%tmp139971%_ - (let ((__tmp147584 + (let ((_%tmp140245%_ + (let ((__tmp147858 (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp147584)))) - (_%lp139914%_ - _%rest139940%_ - (cons (cons _%tmp139971%_ + (make-symbol__0 __tmp147858)))) + (_%lp140188%_ + _%rest140214%_ + (cons (cons _%tmp140245%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e139941%_)) + _%e140215%_)) '())) - _%bind139919%_) - (cons _%tmp139971%_ _%args139920%_)))))) + _%bind140193%_) + (cons _%tmp140245%_ _%args140194%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147176147177%_)) - (let ((_%e139948140002%_ + (gx#stx-pair? _%__stx147450147451%_)) + (let ((_%e140222140276%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147176147177%_)))) - (let ((_%tl139950140007%_ + (gx#stx-e _%__stx147450147451%_)))) + (let ((_%tl140224140281%_ (let () (declare (not safe)) - (##cdr _%e139948140002%_))) - (_%hd139949140005%_ + (##cdr _%e140222140276%_))) + (_%hd140223140279%_ (let () (declare (not safe)) - (##car _%e139948140002%_)))) + (##car _%e140222140276%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd139949140005%_)) + (gx#identifier? _%hd140223140279%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd139949140005%_)) + _%hd140223140279%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139950140007%_)) - (let ((_%e139951140010%_ + _%tl140224140281%_)) + (let ((_%e140225140284%_ (let () (declare (not safe)) (gx#stx-e - _%tl139950140007%_)))) - (let ((_%tl139953140015%_ + _%tl140224140281%_)))) + (let ((_%tl140227140289%_ (let () (declare (not safe)) - (##cdr _%e139951140010%_))) - (_%hd139952140013%_ + (##cdr _%e140225140284%_))) + (_%hd140226140287%_ (let () (declare (not safe)) - (##car _%e139951140010%_)))) + (##car _%e140225140284%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl139953140015%_)) - (_%__kont147178147179%_) - (_%__kont147182147183%_)))) - (_%__kont147182147183%_)) + _%tl140227140289%_)) + (_%__kont147452147453%_) + (_%__kont147456147457%_)))) + (_%__kont147456147457%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd139949140005%_)) + _%hd140223140279%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139950140007%_)) - (let ((_%e139957139987%_ + _%tl140224140281%_)) + (let ((_%e140231140261%_ (let () (declare (not safe)) (gx#stx-e - _%tl139950140007%_)))) - (let ((_%tl139959139992%_ + _%tl140224140281%_)))) + (let ((_%tl140233140266%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e139957139987%_))) - (_%hd139958139990%_ - (let () (declare (not safe)) (##car _%e139957139987%_)))) + (##cdr _%e140231140261%_))) + (_%hd140232140264%_ + (let () (declare (not safe)) (##car _%e140231140261%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139959139992%_)) - (_%__kont147180147181%_) - (_%__kont147182147183%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147182147183%_)) - (_%__kont147182147183%_))) - (_%__kont147182147183%_)))) - (_%__kont147182147183%_))))))) + (gx#stx-null? _%tl140233140266%_)) + (_%__kont147454147455%_) + (_%__kont147456147457%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147456147457%_)) + (_%__kont147456147457%_))) + (_%__kont147456147457%_)))) + (_%__kont147456147457%_))))))) (if (let () (declare (not safe)) - (##pair? _%rest139921139929%_)) - (let ((_%hd139926140026%_ + (##pair? _%rest140195140203%_)) + (let ((_%hd140200140300%_ (let () (declare (not safe)) - (##car _%rest139921139929%_))) - (_%tl139927140028%_ + (##car _%rest140195140203%_))) + (_%tl140201140302%_ (let () (declare (not safe)) - (##cdr _%rest139921139929%_)))) - (let* ((_%e140031%_ _%hd139926140026%_) - (_%rest140033%_ _%tl139927140028%_)) - (_%K139925140023%_ _%rest140033%_ _%e140031%_))) - (_%else139923139937%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd139863139893%_ - _%hd139860139885%_) - (_%g139852139869%_ - _%g139853139872%_)))) - (_%g139852139869%_ _%g139853139872%_)))) - (_%g139852139869%_ _%g139853139872%_)))) - (_%g139852139869%_ _%g139853139872%_))))) - (_%g139851140035%_ _%stx139850%_)))) + (##cdr _%rest140195140203%_)))) + (let* ((_%e140305%_ _%hd140200140300%_) + (_%rest140307%_ _%tl140201140302%_)) + (_%K140199140297%_ _%rest140307%_ _%e140305%_))) + (_%else140197140211%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd140137140167%_ + _%hd140134140159%_) + (_%g140126140143%_ + _%g140127140146%_)))) + (_%g140126140143%_ _%g140127140146%_)))) + (_%g140126140143%_ _%g140127140146%_)))) + (_%g140126140143%_ _%g140127140146%_))))) + (_%g140125140309%_ _%stx140124%_)))) (define gxc#generate-runtime-struct-ref% - (lambda (_%self139765%_ _%stx139766%_) - (let* ((_%g139768139789%_ - (lambda (_%g139769139786%_) + (lambda (_%self140039%_ _%stx140040%_) + (let* ((_%g140042140063%_ + (lambda (_%g140043140060%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139769139786%_)))) - (_%g139767139846%_ - (lambda (_%g139769139792%_) + _%g140043140060%_)))) + (_%g140041140120%_ + (lambda (_%g140043140066%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139769139792%_)) - (let ((_%e139773139794%_ + (gx#stx-pair? _%g140043140066%_)) + (let ((_%e140047140068%_ (let () (declare (not safe)) - (gx#stx-e _%g139769139792%_)))) - (let ((_%hd139774139797%_ + (gx#stx-e _%g140043140066%_)))) + (let ((_%hd140048140071%_ (let () (declare (not safe)) - (##car _%e139773139794%_))) - (_%tl139775139799%_ + (##car _%e140047140068%_))) + (_%tl140049140073%_ (let () (declare (not safe)) - (##cdr _%e139773139794%_)))) + (##cdr _%e140047140068%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139775139799%_)) - (let ((_%e139776139802%_ + (gx#stx-pair? _%tl140049140073%_)) + (let ((_%e140050140076%_ (let () (declare (not safe)) - (gx#stx-e _%tl139775139799%_)))) - (let ((_%hd139777139805%_ + (gx#stx-e _%tl140049140073%_)))) + (let ((_%hd140051140079%_ (let () (declare (not safe)) - (##car _%e139776139802%_))) - (_%tl139778139807%_ + (##car _%e140050140076%_))) + (_%tl140052140081%_ (let () (declare (not safe)) - (##cdr _%e139776139802%_)))) + (##cdr _%e140050140076%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139778139807%_)) - (let ((_%e139779139810%_ + (gx#stx-pair? _%tl140052140081%_)) + (let ((_%e140053140084%_ (let () (declare (not safe)) - (gx#stx-e _%tl139778139807%_)))) - (let ((_%hd139780139813%_ + (gx#stx-e _%tl140052140081%_)))) + (let ((_%hd140054140087%_ (let () (declare (not safe)) - (##car _%e139779139810%_))) - (_%tl139781139815%_ + (##car _%e140053140084%_))) + (_%tl140055140089%_ (let () (declare (not safe)) - (##cdr _%e139779139810%_)))) + (##cdr _%e140053140084%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139781139815%_)) - (let ((_%e139782139818%_ + _%tl140055140089%_)) + (let ((_%e140056140092%_ (let () (declare (not safe)) (gx#stx-e - _%tl139781139815%_)))) - (let ((_%hd139783139821%_ + _%tl140055140089%_)))) + (let ((_%hd140057140095%_ (let () (declare (not safe)) - (##car _%e139782139818%_))) - (_%tl139784139823%_ + (##car _%e140056140092%_))) + (_%tl140058140097%_ (let () (declare (not safe)) - (##cdr _%e139782139818%_)))) + (##cdr _%e140056140092%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl139784139823%_)) - ((lambda (_%L139826%_ - _%L139827%_ - _%L139828%_) + _%tl140058140097%_)) + ((lambda (_%L140100%_ + _%L140101%_ + _%L140102%_) (cons '##structure-ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self139765%_ _%L139826%_)) + (gxc#compile-e__1 _%self140039%_ _%L140100%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139765%_ - _%L139827%_)) + _%self140039%_ + _%L140101%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139765%_ - _%L139828%_)) + _%self140039%_ + _%L140102%_)) (cons ''#f '())))))) - _%hd139783139821%_ - _%hd139780139813%_ - _%hd139777139805%_) - (_%g139768139789%_ _%g139769139792%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g139768139789%_ - _%g139769139792%_)))) - (_%g139768139789%_ _%g139769139792%_)))) - (_%g139768139789%_ _%g139769139792%_)))) - (_%g139768139789%_ _%g139769139792%_))))) - (_%g139767139846%_ _%stx139766%_)))) + _%hd140057140095%_ + _%hd140054140087%_ + _%hd140051140079%_) + (_%g140042140063%_ _%g140043140066%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g140042140063%_ + _%g140043140066%_)))) + (_%g140042140063%_ _%g140043140066%_)))) + (_%g140042140063%_ _%g140043140066%_)))) + (_%g140042140063%_ _%g140043140066%_))))) + (_%g140041140120%_ _%stx140040%_)))) (define gxc#generate-runtime-struct-setq% - (lambda (_%self139665%_ _%stx139666%_) - (let* ((_%g139668139693%_ - (lambda (_%g139669139690%_) + (lambda (_%self139939%_ _%stx139940%_) + (let* ((_%g139942139967%_ + (lambda (_%g139943139964%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139669139690%_)))) - (_%g139667139762%_ - (lambda (_%g139669139696%_) + _%g139943139964%_)))) + (_%g139941140036%_ + (lambda (_%g139943139970%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139669139696%_)) - (let ((_%e139674139698%_ + (gx#stx-pair? _%g139943139970%_)) + (let ((_%e139948139972%_ (let () (declare (not safe)) - (gx#stx-e _%g139669139696%_)))) - (let ((_%hd139675139701%_ + (gx#stx-e _%g139943139970%_)))) + (let ((_%hd139949139975%_ (let () (declare (not safe)) - (##car _%e139674139698%_))) - (_%tl139676139703%_ + (##car _%e139948139972%_))) + (_%tl139950139977%_ (let () (declare (not safe)) - (##cdr _%e139674139698%_)))) + (##cdr _%e139948139972%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139676139703%_)) - (let ((_%e139677139706%_ + (gx#stx-pair? _%tl139950139977%_)) + (let ((_%e139951139980%_ (let () (declare (not safe)) - (gx#stx-e _%tl139676139703%_)))) - (let ((_%hd139678139709%_ + (gx#stx-e _%tl139950139977%_)))) + (let ((_%hd139952139983%_ (let () (declare (not safe)) - (##car _%e139677139706%_))) - (_%tl139679139711%_ + (##car _%e139951139980%_))) + (_%tl139953139985%_ (let () (declare (not safe)) - (##cdr _%e139677139706%_)))) + (##cdr _%e139951139980%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139679139711%_)) - (let ((_%e139680139714%_ + (gx#stx-pair? _%tl139953139985%_)) + (let ((_%e139954139988%_ (let () (declare (not safe)) - (gx#stx-e _%tl139679139711%_)))) - (let ((_%hd139681139717%_ + (gx#stx-e _%tl139953139985%_)))) + (let ((_%hd139955139991%_ (let () (declare (not safe)) - (##car _%e139680139714%_))) - (_%tl139682139719%_ + (##car _%e139954139988%_))) + (_%tl139956139993%_ (let () (declare (not safe)) - (##cdr _%e139680139714%_)))) + (##cdr _%e139954139988%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139682139719%_)) - (let ((_%e139683139722%_ + _%tl139956139993%_)) + (let ((_%e139957139996%_ (let () (declare (not safe)) (gx#stx-e - _%tl139682139719%_)))) - (let ((_%hd139684139725%_ + _%tl139956139993%_)))) + (let ((_%hd139958139999%_ (let () (declare (not safe)) - (##car _%e139683139722%_))) - (_%tl139685139727%_ + (##car _%e139957139996%_))) + (_%tl139959140001%_ (let () (declare (not safe)) - (##cdr _%e139683139722%_)))) + (##cdr _%e139957139996%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139685139727%_)) - (let ((_%e139686139730%_ + _%tl139959140001%_)) + (let ((_%e139960140004%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl139685139727%_)))) - (let ((_%hd139687139733%_ - (let () (declare (not safe)) (##car _%e139686139730%_))) - (_%tl139688139735%_ + (gx#stx-e _%tl139959140001%_)))) + (let ((_%hd139961140007%_ + (let () (declare (not safe)) (##car _%e139960140004%_))) + (_%tl139962140009%_ (let () (declare (not safe)) - (##cdr _%e139686139730%_)))) + (##cdr _%e139960140004%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139688139735%_)) - ((lambda (_%L139738%_ - _%L139739%_ - _%L139740%_ - _%L139741%_) + (gx#stx-null? _%tl139962140009%_)) + ((lambda (_%L140012%_ + _%L140013%_ + _%L140014%_ + _%L140015%_) (cons '##structure-set! (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139665%_ - _%L139739%_)) + _%self139939%_ + _%L140013%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139665%_ - _%L139738%_)) + _%self139939%_ + _%L140012%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139665%_ - _%L139740%_)) + _%self139939%_ + _%L140014%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139665%_ - _%L139741%_)) + _%self139939%_ + _%L140015%_)) (cons ''#f '()))))))) - _%hd139687139733%_ - _%hd139684139725%_ - _%hd139681139717%_ - _%hd139678139709%_) - (_%g139668139693%_ _%g139669139696%_)))) - (_%g139668139693%_ _%g139669139696%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g139668139693%_ - _%g139669139696%_)))) - (_%g139668139693%_ _%g139669139696%_)))) - (_%g139668139693%_ _%g139669139696%_)))) - (_%g139668139693%_ _%g139669139696%_))))) - (_%g139667139762%_ _%stx139666%_)))) + _%hd139961140007%_ + _%hd139958139999%_ + _%hd139955139991%_ + _%hd139952139983%_) + (_%g139942139967%_ _%g139943139970%_)))) + (_%g139942139967%_ _%g139943139970%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g139942139967%_ + _%g139943139970%_)))) + (_%g139942139967%_ _%g139943139970%_)))) + (_%g139942139967%_ _%g139943139970%_)))) + (_%g139942139967%_ _%g139943139970%_))))) + (_%g139941140036%_ _%stx139940%_)))) (define gxc#generate-runtime-struct-direct-ref% - (lambda (_%self139581%_ _%stx139582%_) - (let* ((_%g139584139605%_ - (lambda (_%g139585139602%_) + (lambda (_%self139855%_ _%stx139856%_) + (let* ((_%g139858139879%_ + (lambda (_%g139859139876%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139585139602%_)))) - (_%g139583139662%_ - (lambda (_%g139585139608%_) + _%g139859139876%_)))) + (_%g139857139936%_ + (lambda (_%g139859139882%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139585139608%_)) - (let ((_%e139589139610%_ + (gx#stx-pair? _%g139859139882%_)) + (let ((_%e139863139884%_ (let () (declare (not safe)) - (gx#stx-e _%g139585139608%_)))) - (let ((_%hd139590139613%_ + (gx#stx-e _%g139859139882%_)))) + (let ((_%hd139864139887%_ (let () (declare (not safe)) - (##car _%e139589139610%_))) - (_%tl139591139615%_ + (##car _%e139863139884%_))) + (_%tl139865139889%_ (let () (declare (not safe)) - (##cdr _%e139589139610%_)))) + (##cdr _%e139863139884%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139591139615%_)) - (let ((_%e139592139618%_ + (gx#stx-pair? _%tl139865139889%_)) + (let ((_%e139866139892%_ (let () (declare (not safe)) - (gx#stx-e _%tl139591139615%_)))) - (let ((_%hd139593139621%_ + (gx#stx-e _%tl139865139889%_)))) + (let ((_%hd139867139895%_ (let () (declare (not safe)) - (##car _%e139592139618%_))) - (_%tl139594139623%_ + (##car _%e139866139892%_))) + (_%tl139868139897%_ (let () (declare (not safe)) - (##cdr _%e139592139618%_)))) + (##cdr _%e139866139892%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139594139623%_)) - (let ((_%e139595139626%_ + (gx#stx-pair? _%tl139868139897%_)) + (let ((_%e139869139900%_ (let () (declare (not safe)) - (gx#stx-e _%tl139594139623%_)))) - (let ((_%hd139596139629%_ + (gx#stx-e _%tl139868139897%_)))) + (let ((_%hd139870139903%_ (let () (declare (not safe)) - (##car _%e139595139626%_))) - (_%tl139597139631%_ + (##car _%e139869139900%_))) + (_%tl139871139905%_ (let () (declare (not safe)) - (##cdr _%e139595139626%_)))) + (##cdr _%e139869139900%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139597139631%_)) - (let ((_%e139598139634%_ + _%tl139871139905%_)) + (let ((_%e139872139908%_ (let () (declare (not safe)) (gx#stx-e - _%tl139597139631%_)))) - (let ((_%hd139599139637%_ + _%tl139871139905%_)))) + (let ((_%hd139873139911%_ (let () (declare (not safe)) - (##car _%e139598139634%_))) - (_%tl139600139639%_ + (##car _%e139872139908%_))) + (_%tl139874139913%_ (let () (declare (not safe)) - (##cdr _%e139598139634%_)))) + (##cdr _%e139872139908%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl139600139639%_)) - ((lambda (_%L139642%_ - _%L139643%_ - _%L139644%_) + _%tl139874139913%_)) + ((lambda (_%L139916%_ + _%L139917%_ + _%L139918%_) (cons '##direct-structure-ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self139581%_ _%L139642%_)) + (gxc#compile-e__1 _%self139855%_ _%L139916%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139581%_ - _%L139643%_)) + _%self139855%_ + _%L139917%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139581%_ - _%L139644%_)) + _%self139855%_ + _%L139918%_)) (cons ''#f '())))))) - _%hd139599139637%_ - _%hd139596139629%_ - _%hd139593139621%_) - (_%g139584139605%_ _%g139585139608%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g139584139605%_ - _%g139585139608%_)))) - (_%g139584139605%_ _%g139585139608%_)))) - (_%g139584139605%_ _%g139585139608%_)))) - (_%g139584139605%_ _%g139585139608%_))))) - (_%g139583139662%_ _%stx139582%_)))) + _%hd139873139911%_ + _%hd139870139903%_ + _%hd139867139895%_) + (_%g139858139879%_ _%g139859139882%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g139858139879%_ + _%g139859139882%_)))) + (_%g139858139879%_ _%g139859139882%_)))) + (_%g139858139879%_ _%g139859139882%_)))) + (_%g139858139879%_ _%g139859139882%_))))) + (_%g139857139936%_ _%stx139856%_)))) (define gxc#generate-runtime-struct-direct-setq% - (lambda (_%self139481%_ _%stx139482%_) - (let* ((_%g139484139509%_ - (lambda (_%g139485139506%_) + (lambda (_%self139755%_ _%stx139756%_) + (let* ((_%g139758139783%_ + (lambda (_%g139759139780%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139485139506%_)))) - (_%g139483139578%_ - (lambda (_%g139485139512%_) + _%g139759139780%_)))) + (_%g139757139852%_ + (lambda (_%g139759139786%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139485139512%_)) - (let ((_%e139490139514%_ + (gx#stx-pair? _%g139759139786%_)) + (let ((_%e139764139788%_ (let () (declare (not safe)) - (gx#stx-e _%g139485139512%_)))) - (let ((_%hd139491139517%_ + (gx#stx-e _%g139759139786%_)))) + (let ((_%hd139765139791%_ (let () (declare (not safe)) - (##car _%e139490139514%_))) - (_%tl139492139519%_ + (##car _%e139764139788%_))) + (_%tl139766139793%_ (let () (declare (not safe)) - (##cdr _%e139490139514%_)))) + (##cdr _%e139764139788%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139492139519%_)) - (let ((_%e139493139522%_ + (gx#stx-pair? _%tl139766139793%_)) + (let ((_%e139767139796%_ (let () (declare (not safe)) - (gx#stx-e _%tl139492139519%_)))) - (let ((_%hd139494139525%_ + (gx#stx-e _%tl139766139793%_)))) + (let ((_%hd139768139799%_ (let () (declare (not safe)) - (##car _%e139493139522%_))) - (_%tl139495139527%_ + (##car _%e139767139796%_))) + (_%tl139769139801%_ (let () (declare (not safe)) - (##cdr _%e139493139522%_)))) + (##cdr _%e139767139796%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139495139527%_)) - (let ((_%e139496139530%_ + (gx#stx-pair? _%tl139769139801%_)) + (let ((_%e139770139804%_ (let () (declare (not safe)) - (gx#stx-e _%tl139495139527%_)))) - (let ((_%hd139497139533%_ + (gx#stx-e _%tl139769139801%_)))) + (let ((_%hd139771139807%_ (let () (declare (not safe)) - (##car _%e139496139530%_))) - (_%tl139498139535%_ + (##car _%e139770139804%_))) + (_%tl139772139809%_ (let () (declare (not safe)) - (##cdr _%e139496139530%_)))) + (##cdr _%e139770139804%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139498139535%_)) - (let ((_%e139499139538%_ + _%tl139772139809%_)) + (let ((_%e139773139812%_ (let () (declare (not safe)) (gx#stx-e - _%tl139498139535%_)))) - (let ((_%hd139500139541%_ + _%tl139772139809%_)))) + (let ((_%hd139774139815%_ (let () (declare (not safe)) - (##car _%e139499139538%_))) - (_%tl139501139543%_ + (##car _%e139773139812%_))) + (_%tl139775139817%_ (let () (declare (not safe)) - (##cdr _%e139499139538%_)))) + (##cdr _%e139773139812%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139501139543%_)) - (let ((_%e139502139546%_ + _%tl139775139817%_)) + (let ((_%e139776139820%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl139501139543%_)))) - (let ((_%hd139503139549%_ - (let () (declare (not safe)) (##car _%e139502139546%_))) - (_%tl139504139551%_ + (gx#stx-e _%tl139775139817%_)))) + (let ((_%hd139777139823%_ + (let () (declare (not safe)) (##car _%e139776139820%_))) + (_%tl139778139825%_ (let () (declare (not safe)) - (##cdr _%e139502139546%_)))) + (##cdr _%e139776139820%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139504139551%_)) - ((lambda (_%L139554%_ - _%L139555%_ - _%L139556%_ - _%L139557%_) + (gx#stx-null? _%tl139778139825%_)) + ((lambda (_%L139828%_ + _%L139829%_ + _%L139830%_ + _%L139831%_) (cons '##direct-structure-set! (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139481%_ - _%L139555%_)) + _%self139755%_ + _%L139829%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139481%_ - _%L139554%_)) + _%self139755%_ + _%L139828%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139481%_ - _%L139556%_)) + _%self139755%_ + _%L139830%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139481%_ - _%L139557%_)) + _%self139755%_ + _%L139831%_)) (cons ''#f '()))))))) - _%hd139503139549%_ - _%hd139500139541%_ - _%hd139497139533%_ - _%hd139494139525%_) - (_%g139484139509%_ _%g139485139512%_)))) - (_%g139484139509%_ _%g139485139512%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g139484139509%_ - _%g139485139512%_)))) - (_%g139484139509%_ _%g139485139512%_)))) - (_%g139484139509%_ _%g139485139512%_)))) - (_%g139484139509%_ _%g139485139512%_))))) - (_%g139483139578%_ _%stx139482%_)))) + _%hd139777139823%_ + _%hd139774139815%_ + _%hd139771139807%_ + _%hd139768139799%_) + (_%g139758139783%_ _%g139759139786%_)))) + (_%g139758139783%_ _%g139759139786%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g139758139783%_ + _%g139759139786%_)))) + (_%g139758139783%_ _%g139759139786%_)))) + (_%g139758139783%_ _%g139759139786%_)))) + (_%g139758139783%_ _%g139759139786%_))))) + (_%g139757139852%_ _%stx139756%_)))) (define gxc#generate-runtime-struct-unchecked-ref% - (lambda (_%self139276%_ _%stx139277%_) - (let* ((_%g139279139300%_ - (lambda (_%g139280139297%_) + (lambda (_%self139550%_ _%stx139551%_) + (let* ((_%g139553139574%_ + (lambda (_%g139554139571%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139280139297%_)))) - (_%g139278139478%_ - (lambda (_%g139280139303%_) + _%g139554139571%_)))) + (_%g139552139752%_ + (lambda (_%g139554139577%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139280139303%_)) - (let ((_%e139284139305%_ + (gx#stx-pair? _%g139554139577%_)) + (let ((_%e139558139579%_ (let () (declare (not safe)) - (gx#stx-e _%g139280139303%_)))) - (let ((_%hd139285139308%_ + (gx#stx-e _%g139554139577%_)))) + (let ((_%hd139559139582%_ (let () (declare (not safe)) - (##car _%e139284139305%_))) - (_%tl139286139310%_ + (##car _%e139558139579%_))) + (_%tl139560139584%_ (let () (declare (not safe)) - (##cdr _%e139284139305%_)))) + (##cdr _%e139558139579%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139286139310%_)) - (let ((_%e139287139313%_ + (gx#stx-pair? _%tl139560139584%_)) + (let ((_%e139561139587%_ (let () (declare (not safe)) - (gx#stx-e _%tl139286139310%_)))) - (let ((_%hd139288139316%_ + (gx#stx-e _%tl139560139584%_)))) + (let ((_%hd139562139590%_ (let () (declare (not safe)) - (##car _%e139287139313%_))) - (_%tl139289139318%_ + (##car _%e139561139587%_))) + (_%tl139563139592%_ (let () (declare (not safe)) - (##cdr _%e139287139313%_)))) + (##cdr _%e139561139587%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139289139318%_)) - (let ((_%e139290139321%_ + (gx#stx-pair? _%tl139563139592%_)) + (let ((_%e139564139595%_ (let () (declare (not safe)) - (gx#stx-e _%tl139289139318%_)))) - (let ((_%hd139291139324%_ + (gx#stx-e _%tl139563139592%_)))) + (let ((_%hd139565139598%_ (let () (declare (not safe)) - (##car _%e139290139321%_))) - (_%tl139292139326%_ + (##car _%e139564139595%_))) + (_%tl139566139600%_ (let () (declare (not safe)) - (##cdr _%e139290139321%_)))) + (##cdr _%e139564139595%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139292139326%_)) - (let ((_%e139293139329%_ + _%tl139566139600%_)) + (let ((_%e139567139603%_ (let () (declare (not safe)) (gx#stx-e - _%tl139292139326%_)))) - (let ((_%hd139294139332%_ + _%tl139566139600%_)))) + (let ((_%hd139568139606%_ (let () (declare (not safe)) - (##car _%e139293139329%_))) - (_%tl139295139334%_ + (##car _%e139567139603%_))) + (_%tl139569139608%_ (let () (declare (not safe)) - (##cdr _%e139293139329%_)))) + (##cdr _%e139567139603%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl139295139334%_)) - ((lambda (_%L139337%_ - _%L139338%_ - _%L139339%_) + _%tl139569139608%_)) + ((lambda (_%L139611%_ + _%L139612%_ + _%L139613%_) (if (gxc#current-compile-decls-unsafe?) (cons '##unchecked-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139276%_ - _%L139337%_)) + _%self139550%_ + _%L139611%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139276%_ - _%L139338%_)) + _%self139550%_ + _%L139612%_)) (cons ''#f (cons ''#f '()))))) - (let _%lp139357%_ ((_%rest139360%_ - (cons _%L139338%_ - (cons _%L139337%_ '()))) - (_%bind139362%_ '()) - (_%args139363%_ '())) - (let* ((_%rest139364139372%_ _%rest139360%_) - (_%else139366139380%_ + (let _%lp139631%_ ((_%rest139634%_ + (cons _%L139612%_ + (cons _%L139611%_ '()))) + (_%bind139636%_ '()) + (_%args139637%_ '())) + (let* ((_%rest139638139646%_ _%rest139634%_) + (_%else139640139654%_ (lambda () (cons 'let - (cons _%bind139362%_ + (cons _%bind139636%_ (cons '(declare (not safe)) (cons (cons '##unchecked-structure-ref - (let ((__tmp147585 + (let ((__tmp147859 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons ''#f (cons ''#f '())))) (declare (not safe)) - (__foldr1 cons __tmp147585 _%args139363%_))) + (__foldr1 cons __tmp147859 _%args139637%_))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K139368139466%_ - (lambda (_%rest139383%_ _%e139384%_) - (let* ((_%__stx147222147223%_ _%e139384%_) - (_%g139389139407%_ + (_%K139642139740%_ + (lambda (_%rest139657%_ _%e139658%_) + (let* ((_%__stx147496147497%_ _%e139658%_) + (_%g139663139681%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147222147223%_))))) - (let ((_%__kont147224147225%_ + _%__stx147496147497%_))))) + (let ((_%__kont147498147499%_ (lambda () - (_%lp139357%_ - _%rest139383%_ - _%bind139362%_ + (_%lp139631%_ + _%rest139657%_ + _%bind139636%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e139384%_)) - _%args139363%_)))) - (_%__kont147226147227%_ + _%e139658%_)) + _%args139637%_)))) + (_%__kont147500147501%_ (lambda () - (_%lp139357%_ - _%rest139383%_ - _%bind139362%_ + (_%lp139631%_ + _%rest139657%_ + _%bind139636%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e139384%_)) - _%args139363%_)))) - (_%__kont147228147229%_ + _%e139658%_)) + _%args139637%_)))) + (_%__kont147502147503%_ (lambda () - (let ((_%tmp139414%_ - (let ((__tmp147586 + (let ((_%tmp139688%_ + (let ((__tmp147860 (let () (declare (not safe)) @@ -11723,1586 +11723,1586 @@ '__tmp)))) (declare (not safe)) (make-symbol__0 - __tmp147586)))) - (_%lp139357%_ - _%rest139383%_ - (cons (cons _%tmp139414%_ + __tmp147860)))) + (_%lp139631%_ + _%rest139657%_ + (cons (cons _%tmp139688%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _%e139384%_)) + (gxc#compile-e__0 _%e139658%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind139362%_) - (cons _%tmp139414%_ - _%args139363%_)))))) + _%bind139636%_) + (cons _%tmp139688%_ + _%args139637%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx147222147223%_)) - (let ((_%e139391139445%_ + _%__stx147496147497%_)) + (let ((_%e139665139719%_ (let () (declare (not safe)) (gx#stx-e - _%__stx147222147223%_)))) - (let ((_%tl139393139450%_ + _%__stx147496147497%_)))) + (let ((_%tl139667139724%_ (let () (declare (not safe)) - (##cdr _%e139391139445%_))) - (_%hd139392139448%_ + (##cdr _%e139665139719%_))) + (_%hd139666139722%_ (let () (declare (not safe)) - (##car _%e139391139445%_)))) + (##car _%e139665139719%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd139392139448%_)) + _%hd139666139722%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd139392139448%_)) + _%hd139666139722%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139393139450%_)) - (let ((_%e139394139453%_ + _%tl139667139724%_)) + (let ((_%e139668139727%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl139393139450%_)))) - (let ((_%tl139396139458%_ + (gx#stx-e _%tl139667139724%_)))) + (let ((_%tl139670139732%_ (let () (declare (not safe)) - (##cdr _%e139394139453%_))) - (_%hd139395139456%_ + (##cdr _%e139668139727%_))) + (_%hd139669139730%_ (let () (declare (not safe)) - (##car _%e139394139453%_)))) + (##car _%e139668139727%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139396139458%_)) - (_%__kont147224147225%_) - (_%__kont147228147229%_)))) - (_%__kont147228147229%_)) + (gx#stx-null? _%tl139670139732%_)) + (_%__kont147498147499%_) + (_%__kont147502147503%_)))) + (_%__kont147502147503%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd139392139448%_)) + _%hd139666139722%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl139393139450%_)) - (let ((_%e139400139430%_ + (gx#stx-pair? _%tl139667139724%_)) + (let ((_%e139674139704%_ (let () (declare (not safe)) - (gx#stx-e _%tl139393139450%_)))) - (let ((_%tl139402139435%_ + (gx#stx-e _%tl139667139724%_)))) + (let ((_%tl139676139709%_ (let () (declare (not safe)) - (##cdr _%e139400139430%_))) - (_%hd139401139433%_ + (##cdr _%e139674139704%_))) + (_%hd139675139707%_ (let () (declare (not safe)) - (##car _%e139400139430%_)))) + (##car _%e139674139704%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139402139435%_)) - (_%__kont147226147227%_) - (_%__kont147228147229%_)))) - (_%__kont147228147229%_)) - (_%__kont147228147229%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147228147229%_)))) - (_%__kont147228147229%_))))))) + (gx#stx-null? _%tl139676139709%_)) + (_%__kont147500147501%_) + (_%__kont147502147503%_)))) + (_%__kont147502147503%_)) + (_%__kont147502147503%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147502147503%_)))) + (_%__kont147502147503%_))))))) (if (let () (declare (not safe)) - (##pair? _%rest139364139372%_)) - (let ((_%hd139369139469%_ + (##pair? _%rest139638139646%_)) + (let ((_%hd139643139743%_ (let () (declare (not safe)) - (##car _%rest139364139372%_))) - (_%tl139370139471%_ + (##car _%rest139638139646%_))) + (_%tl139644139745%_ (let () (declare (not safe)) - (##cdr _%rest139364139372%_)))) - (let* ((_%e139474%_ _%hd139369139469%_) - (_%rest139476%_ _%tl139370139471%_)) - (_%K139368139466%_ - _%rest139476%_ - _%e139474%_))) - (_%else139366139380%_)))))) - _%hd139294139332%_ - _%hd139291139324%_ - _%hd139288139316%_) - (_%g139279139300%_ _%g139280139303%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g139279139300%_ - _%g139280139303%_)))) - (_%g139279139300%_ _%g139280139303%_)))) - (_%g139279139300%_ _%g139280139303%_)))) - (_%g139279139300%_ _%g139280139303%_))))) - (_%g139278139478%_ _%stx139277%_)))) + (##cdr _%rest139638139646%_)))) + (let* ((_%e139748%_ _%hd139643139743%_) + (_%rest139750%_ _%tl139644139745%_)) + (_%K139642139740%_ + _%rest139750%_ + _%e139748%_))) + (_%else139640139654%_)))))) + _%hd139568139606%_ + _%hd139565139598%_ + _%hd139562139590%_) + (_%g139553139574%_ _%g139554139577%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g139553139574%_ + _%g139554139577%_)))) + (_%g139553139574%_ _%g139554139577%_)))) + (_%g139553139574%_ _%g139554139577%_)))) + (_%g139553139574%_ _%g139554139577%_))))) + (_%g139552139752%_ _%stx139551%_)))) (define gxc#generate-runtime-struct-unchecked-setq% - (lambda (_%self139055%_ _%stx139056%_) - (let* ((_%g139058139083%_ - (lambda (_%g139059139080%_) + (lambda (_%self139329%_ _%stx139330%_) + (let* ((_%g139332139357%_ + (lambda (_%g139333139354%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139059139080%_)))) - (_%g139057139273%_ - (lambda (_%g139059139086%_) + _%g139333139354%_)))) + (_%g139331139547%_ + (lambda (_%g139333139360%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139059139086%_)) - (let ((_%e139064139088%_ + (gx#stx-pair? _%g139333139360%_)) + (let ((_%e139338139362%_ (let () (declare (not safe)) - (gx#stx-e _%g139059139086%_)))) - (let ((_%hd139065139091%_ + (gx#stx-e _%g139333139360%_)))) + (let ((_%hd139339139365%_ (let () (declare (not safe)) - (##car _%e139064139088%_))) - (_%tl139066139093%_ + (##car _%e139338139362%_))) + (_%tl139340139367%_ (let () (declare (not safe)) - (##cdr _%e139064139088%_)))) + (##cdr _%e139338139362%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139066139093%_)) - (let ((_%e139067139096%_ + (gx#stx-pair? _%tl139340139367%_)) + (let ((_%e139341139370%_ (let () (declare (not safe)) - (gx#stx-e _%tl139066139093%_)))) - (let ((_%hd139068139099%_ + (gx#stx-e _%tl139340139367%_)))) + (let ((_%hd139342139373%_ (let () (declare (not safe)) - (##car _%e139067139096%_))) - (_%tl139069139101%_ + (##car _%e139341139370%_))) + (_%tl139343139375%_ (let () (declare (not safe)) - (##cdr _%e139067139096%_)))) + (##cdr _%e139341139370%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139069139101%_)) - (let ((_%e139070139104%_ + (gx#stx-pair? _%tl139343139375%_)) + (let ((_%e139344139378%_ (let () (declare (not safe)) - (gx#stx-e _%tl139069139101%_)))) - (let ((_%hd139071139107%_ + (gx#stx-e _%tl139343139375%_)))) + (let ((_%hd139345139381%_ (let () (declare (not safe)) - (##car _%e139070139104%_))) - (_%tl139072139109%_ + (##car _%e139344139378%_))) + (_%tl139346139383%_ (let () (declare (not safe)) - (##cdr _%e139070139104%_)))) + (##cdr _%e139344139378%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139072139109%_)) - (let ((_%e139073139112%_ + _%tl139346139383%_)) + (let ((_%e139347139386%_ (let () (declare (not safe)) (gx#stx-e - _%tl139072139109%_)))) - (let ((_%hd139074139115%_ + _%tl139346139383%_)))) + (let ((_%hd139348139389%_ (let () (declare (not safe)) - (##car _%e139073139112%_))) - (_%tl139075139117%_ + (##car _%e139347139386%_))) + (_%tl139349139391%_ (let () (declare (not safe)) - (##cdr _%e139073139112%_)))) + (##cdr _%e139347139386%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl139075139117%_)) - (let ((_%e139076139120%_ + _%tl139349139391%_)) + (let ((_%e139350139394%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl139075139117%_)))) - (let ((_%hd139077139123%_ - (let () (declare (not safe)) (##car _%e139076139120%_))) - (_%tl139078139125%_ + (gx#stx-e _%tl139349139391%_)))) + (let ((_%hd139351139397%_ + (let () (declare (not safe)) (##car _%e139350139394%_))) + (_%tl139352139399%_ (let () (declare (not safe)) - (##cdr _%e139076139120%_)))) + (##cdr _%e139350139394%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139078139125%_)) - ((lambda (_%L139128%_ - _%L139129%_ - _%L139130%_ - _%L139131%_) + (gx#stx-null? _%tl139352139399%_)) + ((lambda (_%L139402%_ + _%L139403%_ + _%L139404%_ + _%L139405%_) (if (gxc#current-compile-decls-unsafe?) (cons '##unchecked-structure-set! (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139055%_ - _%L139129%_)) + _%self139329%_ + _%L139403%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139055%_ - _%L139128%_)) + _%self139329%_ + _%L139402%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self139055%_ - _%L139130%_)) + _%self139329%_ + _%L139404%_)) (cons ''#f (cons ''#f '())))))) - (let _%lp139152%_ ((_%rest139155%_ - (cons _%L139130%_ - (cons _%L139128%_ - (cons _%L139129%_ + (let _%lp139426%_ ((_%rest139429%_ + (cons _%L139404%_ + (cons _%L139402%_ + (cons _%L139403%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%bind139157%_ '()) - (_%args139158%_ '())) - (let* ((_%rest139159139167%_ _%rest139155%_) - (_%else139161139175%_ + (_%bind139431%_ '()) + (_%args139432%_ '())) + (let* ((_%rest139433139441%_ _%rest139429%_) + (_%else139435139449%_ (lambda () (cons 'let - (cons _%bind139157%_ + (cons _%bind139431%_ (cons '(declare (not safe)) (cons (cons '##unchecked-structure-set! ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp147587 (cons ''#f (cons ''#f '())))) + (let ((__tmp147861 (cons ''#f (cons ''#f '())))) (declare (not safe)) - (__foldr1 cons __tmp147587 _%args139158%_))) + (__foldr1 cons __tmp147861 _%args139432%_))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K139163139261%_ - (lambda (_%rest139178%_ _%e139179%_) - (let* ((_%__stx147268147269%_ - _%e139179%_) - (_%g139184139202%_ + (_%K139437139535%_ + (lambda (_%rest139452%_ _%e139453%_) + (let* ((_%__stx147542147543%_ + _%e139453%_) + (_%g139458139476%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147268147269%_))))) - (let ((_%__kont147270147271%_ + _%__stx147542147543%_))))) + (let ((_%__kont147544147545%_ (lambda () - (_%lp139152%_ - _%rest139178%_ - _%bind139157%_ + (_%lp139426%_ + _%rest139452%_ + _%bind139431%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e139179%_)) - _%args139158%_)))) - (_%__kont147272147273%_ + _%e139453%_)) + _%args139432%_)))) + (_%__kont147546147547%_ (lambda () - (_%lp139152%_ - _%rest139178%_ - _%bind139157%_ + (_%lp139426%_ + _%rest139452%_ + _%bind139431%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e139179%_)) - _%args139158%_)))) - (_%__kont147274147275%_ + _%e139453%_)) + _%args139432%_)))) + (_%__kont147548147549%_ (lambda () - (let ((_%tmp139209%_ - (let ((__tmp147588 + (let ((_%tmp139483%_ + (let ((__tmp147862 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp147588)))) - (_%lp139152%_ - _%rest139178%_ - (cons (cons _%tmp139209%_ + (make-symbol__0 __tmp147862)))) + (_%lp139426%_ + _%rest139452%_ + (cons (cons _%tmp139483%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e139179%_)) + (gxc#compile-e__0 _%e139453%_)) '())) - _%bind139157%_) - (cons _%tmp139209%_ _%args139158%_)))))) + _%bind139431%_) + (cons _%tmp139483%_ _%args139432%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx147268147269%_)) - (let ((_%e139186139240%_ + _%__stx147542147543%_)) + (let ((_%e139460139514%_ (let () (declare (not safe)) (gx#stx-e - _%__stx147268147269%_)))) - (let ((_%tl139188139245%_ + _%__stx147542147543%_)))) + (let ((_%tl139462139519%_ (let () (declare (not safe)) - (##cdr _%e139186139240%_))) - (_%hd139187139243%_ + (##cdr _%e139460139514%_))) + (_%hd139461139517%_ (let () (declare (not safe)) - (##car _%e139186139240%_)))) + (##car _%e139460139514%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd139187139243%_)) + _%hd139461139517%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd139187139243%_)) + (gx#stx-eq? '%#ref _%hd139461139517%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139188139245%_)) - (let ((_%e139189139248%_ + (gx#stx-pair? _%tl139462139519%_)) + (let ((_%e139463139522%_ (let () (declare (not safe)) - (gx#stx-e _%tl139188139245%_)))) - (let ((_%tl139191139253%_ + (gx#stx-e _%tl139462139519%_)))) + (let ((_%tl139465139527%_ (let () (declare (not safe)) - (##cdr _%e139189139248%_))) - (_%hd139190139251%_ + (##cdr _%e139463139522%_))) + (_%hd139464139525%_ (let () (declare (not safe)) - (##car _%e139189139248%_)))) + (##car _%e139463139522%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139191139253%_)) - (_%__kont147270147271%_) - (_%__kont147274147275%_)))) - (_%__kont147274147275%_)) + (gx#stx-null? _%tl139465139527%_)) + (_%__kont147544147545%_) + (_%__kont147548147549%_)))) + (_%__kont147548147549%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd139187139243%_)) + (gx#stx-eq? '%#quote _%hd139461139517%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139188139245%_)) - (let ((_%e139195139225%_ + (gx#stx-pair? _%tl139462139519%_)) + (let ((_%e139469139499%_ (let () (declare (not safe)) - (gx#stx-e _%tl139188139245%_)))) - (let ((_%tl139197139230%_ + (gx#stx-e _%tl139462139519%_)))) + (let ((_%tl139471139504%_ (let () (declare (not safe)) - (##cdr _%e139195139225%_))) - (_%hd139196139228%_ + (##cdr _%e139469139499%_))) + (_%hd139470139502%_ (let () (declare (not safe)) - (##car _%e139195139225%_)))) + (##car _%e139469139499%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139197139230%_)) - (_%__kont147272147273%_) - (_%__kont147274147275%_)))) - (_%__kont147274147275%_)) - (_%__kont147274147275%_))) - (_%__kont147274147275%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147274147275%_))))))) + (gx#stx-null? _%tl139471139504%_)) + (_%__kont147546147547%_) + (_%__kont147548147549%_)))) + (_%__kont147548147549%_)) + (_%__kont147548147549%_))) + (_%__kont147548147549%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147548147549%_))))))) (if (let () (declare (not safe)) - (##pair? _%rest139159139167%_)) - (let ((_%hd139164139264%_ + (##pair? _%rest139433139441%_)) + (let ((_%hd139438139538%_ (let () (declare (not safe)) - (##car _%rest139159139167%_))) - (_%tl139165139266%_ + (##car _%rest139433139441%_))) + (_%tl139439139540%_ (let () (declare (not safe)) - (##cdr _%rest139159139167%_)))) - (let* ((_%e139269%_ _%hd139164139264%_) - (_%rest139271%_ - _%tl139165139266%_)) - (_%K139163139261%_ - _%rest139271%_ - _%e139269%_))) - (_%else139161139175%_)))))) - _%hd139077139123%_ - _%hd139074139115%_ - _%hd139071139107%_ - _%hd139068139099%_) - (_%g139058139083%_ _%g139059139086%_)))) - (_%g139058139083%_ _%g139059139086%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g139058139083%_ - _%g139059139086%_)))) - (_%g139058139083%_ _%g139059139086%_)))) - (_%g139058139083%_ _%g139059139086%_)))) - (_%g139058139083%_ _%g139059139086%_))))) - (_%g139057139273%_ _%stx139056%_)))) + (##cdr _%rest139433139441%_)))) + (let* ((_%e139543%_ _%hd139438139538%_) + (_%rest139545%_ + _%tl139439139540%_)) + (_%K139437139535%_ + _%rest139545%_ + _%e139543%_))) + (_%else139435139449%_)))))) + _%hd139351139397%_ + _%hd139348139389%_ + _%hd139345139381%_ + _%hd139342139373%_) + (_%g139332139357%_ _%g139333139360%_)))) + (_%g139332139357%_ _%g139333139360%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g139332139357%_ + _%g139333139360%_)))) + (_%g139332139357%_ _%g139333139360%_)))) + (_%g139332139357%_ _%g139333139360%_)))) + (_%g139332139357%_ _%g139333139360%_))))) + (_%g139331139547%_ _%stx139330%_)))) (define gxc#generate-runtime-loader-import% - (lambda (_%self138894%_ _%stx138895%_) - (letrec ((_%import-set-template138897%_ - (lambda (_%in139000%_ _%phi139001%_) - (let ((_%iphi139003%_ - (fx+ _%phi139001%_ + (lambda (_%self139168%_ _%stx139169%_) + (letrec ((_%import-set-template139171%_ + (lambda (_%in139274%_ _%phi139275%_) + (let ((_%iphi139277%_ + (fx+ _%phi139275%_ (##direct-structure-ref - _%in139000%_ + _%in139274%_ '2 gx#import-set::t '#f))) - (_%imports139004%_ + (_%imports139278%_ (##structure-ref (##direct-structure-ref - _%in139000%_ + _%in139274%_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _%lp139006%_ ((_%rest139008%_ _%imports139004%_) - (_%r139009%_ '())) - (let* ((_%rest139010139018%_ _%rest139008%_) - (_%else139012139026%_ (lambda () _%r139009%_)) - (_%K139014139043%_ - (lambda (_%rest139029%_ _%in139030%_) + (let _%lp139280%_ ((_%rest139282%_ _%imports139278%_) + (_%r139283%_ '())) + (let* ((_%rest139284139292%_ _%rest139282%_) + (_%else139286139300%_ (lambda () _%r139283%_)) + (_%K139288139317%_ + (lambda (_%rest139303%_ _%in139304%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%in139030%_ + _%in139304%_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (##fxzero? _%iphi139003%_)) - (_%lp139006%_ - _%rest139029%_ - (cons _%in139030%_ _%r139009%_)) - (_%lp139006%_ - _%rest139029%_ - _%r139009%_)) + (##fxzero? _%iphi139277%_)) + (_%lp139280%_ + _%rest139303%_ + (cons _%in139304%_ _%r139283%_)) + (_%lp139280%_ + _%rest139303%_ + _%r139283%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in139030%_ + _%in139304%_ 'gx#module-import::t)) - (let ((_%iphi139034%_ - (fx+ _%phi139001%_ + (let ((_%iphi139308%_ + (fx+ _%phi139275%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139030%_ + _%in139304%_ '3 '#f '#f))))) (if (let () (declare (not safe)) - (##fxzero? _%iphi139034%_)) - (_%lp139006%_ - _%rest139029%_ + (##fxzero? _%iphi139308%_)) + (_%lp139280%_ + _%rest139303%_ (cons (##direct-structure-ref (let () (declare (not safe)) (##unchecked-structure-ref - _%in139030%_ + _%in139304%_ '1 '#f '#f)) '1 gx#module-export::t '#f) - _%r139009%_)) - (_%lp139006%_ - _%rest139029%_ - _%r139009%_))) + _%r139283%_)) + (_%lp139280%_ + _%rest139303%_ + _%r139283%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in139030%_ + _%in139304%_ 'gx#import-set::t)) - (let ((_%xphi139037%_ - (fx+ _%iphi139003%_ + (let ((_%xphi139311%_ + (fx+ _%iphi139277%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139030%_ + _%in139304%_ '2 '#f '#f))))) (if (let () (declare (not safe)) (##fxzero? - _%xphi139037%_)) - (_%lp139006%_ - _%rest139029%_ + _%xphi139311%_)) + (_%lp139280%_ + _%rest139303%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%in139030%_ + _%in139304%_ '1 '#f '#f)) - _%r139009%_)) + _%r139283%_)) (if (let () (declare (not safe)) (##fxpositive? - _%xphi139037%_)) - (_%lp139006%_ - _%rest139029%_ - (let ((__tmp147589 - (_%import-set-template138897%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in139030%_ - _%iphi139003%_))) + _%xphi139311%_)) + (_%lp139280%_ + _%rest139303%_ + (let ((__tmp147863 + (_%import-set-template139171%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%in139304%_ + _%iphi139277%_))) (declare (not safe)) - (__foldl1 cons _%r139009%_ __tmp147589))) - (_%lp139006%_ _%rest139029%_ _%r139009%_)))) + (__foldl1 cons _%r139283%_ __tmp147863))) + (_%lp139280%_ _%rest139303%_ _%r139283%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp139006%_ - _%rest139029%_ - _%r139009%_))))))) + (_%lp139280%_ + _%rest139303%_ + _%r139283%_))))))) (if (let () (declare (not safe)) - (##pair? _%rest139010139018%_)) - (let ((_%hd139015139046%_ + (##pair? _%rest139284139292%_)) + (let ((_%hd139289139320%_ (let () (declare (not safe)) - (##car _%rest139010139018%_))) - (_%tl139016139048%_ + (##car _%rest139284139292%_))) + (_%tl139290139322%_ (let () (declare (not safe)) - (##cdr _%rest139010139018%_)))) - (let* ((_%in139051%_ _%hd139015139046%_) - (_%rest139053%_ _%tl139016139048%_)) - (_%K139014139043%_ - _%rest139053%_ - _%in139051%_))) - (_%else139012139026%_)))))))) - (let* ((_%g138899138909%_ - (lambda (_%g138900138906%_) + (##cdr _%rest139284139292%_)))) + (let* ((_%in139325%_ _%hd139289139320%_) + (_%rest139327%_ _%tl139290139322%_)) + (_%K139288139317%_ + _%rest139327%_ + _%in139325%_))) + (_%else139286139300%_)))))))) + (let* ((_%g139173139183%_ + (lambda (_%g139174139180%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138900138906%_)))) - (_%g138898138997%_ - (lambda (_%g138900138912%_) + _%g139174139180%_)))) + (_%g139172139271%_ + (lambda (_%g139174139186%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138900138912%_)) - (let ((_%e138902138914%_ + (gx#stx-pair? _%g139174139186%_)) + (let ((_%e139176139188%_ (let () (declare (not safe)) - (gx#stx-e _%g138900138912%_)))) - (let ((_%hd138903138917%_ + (gx#stx-e _%g139174139186%_)))) + (let ((_%hd139177139191%_ (let () (declare (not safe)) - (##car _%e138902138914%_))) - (_%tl138904138919%_ + (##car _%e139176139188%_))) + (_%tl139178139193%_ (let () (declare (not safe)) - (##cdr _%e138902138914%_)))) - ((lambda (_%L138922%_) - (let ((_%ht138933%_ + (##cdr _%e139176139188%_)))) + ((lambda (_%L139196%_) + (let ((_%ht139207%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let _%lp138935%_ ((_%rest138937%_ - _%L138922%_) - (_%loads138938%_ '())) - (letrec ((_%K138940%_ - (lambda (_%ctx138990%_ - _%rest138991%_) - (let ((_%id138993%_ + (let _%lp139209%_ ((_%rest139211%_ + _%L139196%_) + (_%loads139212%_ '())) + (letrec ((_%K139214%_ + (lambda (_%ctx139264%_ + _%rest139265%_) + (let ((_%id139267%_ (##structure-ref - _%ctx138990%_ + _%ctx139264%_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) (__hash-get - _%ht138933%_ - _%id138993%_)) - (_%lp138935%_ - _%rest138991%_ - _%loads138938%_) - (let ((_%rt138995%_ + _%ht139207%_ + _%id139267%_)) + (_%lp139209%_ + _%rest139265%_ + _%loads139212%_) + (let ((_%rt139269%_ (let () (declare (not safe)) (gxc#module-id->path-string - _%id138993%_)))) + _%id139267%_)))) (let () (declare (not safe)) (__hash-put! - _%ht138933%_ - _%id138993%_ - _%rt138995%_)) - (_%lp138935%_ - _%rest138991%_ - (cons _%rt138995%_ - _%loads138938%_)))))))) - (let* ((_%rest138941138949%_ - _%rest138937%_) - (_%else138943138961%_ + _%ht139207%_ + _%id139267%_ + _%rt139269%_)) + (_%lp139209%_ + _%rest139265%_ + (cons _%rt139269%_ + _%loads139212%_)))))))) + (let* ((_%rest139215139223%_ + _%rest139211%_) + (_%else139217139235%_ (lambda () (cons 'begin - (let ((__tmp147591 - (lambda (_%g138956138958%_) + (let ((__tmp147865 + (lambda (_%g139230139232%_) (list 'load-module ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g138956138958%_))) - (__tmp147590 (reverse _%loads138938%_))) + _%g139230139232%_))) + (__tmp147864 (reverse _%loads139212%_))) (declare (not safe)) - (##map __tmp147591 __tmp147590))))) + (##map __tmp147865 __tmp147864))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K138945138978%_ - (lambda (_%rest138964%_ - _%in138965%_) + (_%K139219139252%_ + (lambda (_%rest139238%_ + _%in139239%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%in138965%_ + _%in139239%_ 'gx#module-context::t)) - (_%K138940%_ - _%in138965%_ - _%rest138964%_) + (_%K139214%_ + _%in139239%_ + _%rest139238%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in138965%_ + _%in139239%_ 'gx#module-import::t)) (if (fxzero? (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%in138965%_ + _%in139239%_ '3 '#f '#f))) - (_%K138940%_ + (_%K139214%_ (##direct-structure-ref (let () (declare (not safe)) - (##unchecked-structure-ref _%in138965%_ '1 '#f '#f)) + (##unchecked-structure-ref _%in139239%_ '1 '#f '#f)) '1 gx#module-export::t '#f) - _%rest138964%_) - (_%lp138935%_ _%rest138964%_ _%loads138938%_)) + _%rest139238%_) + (_%lp139209%_ _%rest139238%_ _%loads139212%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in138965%_ + _%in139239%_ 'gx#import-set::t)) - (let ((_%phi138970%_ + (let ((_%phi139244%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in138965%_ + _%in139239%_ '2 '#f '#f)))) - (if (fxzero? _%phi138970%_) - (_%K138940%_ + (if (fxzero? _%phi139244%_) + (_%K139214%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in138965%_ + _%in139239%_ '1 '#f '#f)) - _%rest138964%_) - (if (fxpositive? _%phi138970%_) - (let ((_%deps138974%_ - (_%import-set-template138897%_ - _%in138965%_ + _%rest139238%_) + (if (fxpositive? _%phi139244%_) + (let ((_%deps139248%_ + (_%import-set-template139171%_ + _%in139239%_ '0))) - (_%lp138935%_ + (_%lp139209%_ (let () (declare (not safe)) (__foldl1 cons - _%rest138964%_ - _%deps138974%_)) - _%loads138938%_)) - (_%lp138935%_ _%rest138964%_ _%loads138938%_)))) + _%rest139238%_ + _%deps139248%_)) + _%loads139212%_)) + (_%lp139209%_ _%rest139238%_ _%loads139212%_)))) (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected import" - _%stx138895%_ - _%in138965%_)))))))) + _%stx139169%_ + _%in139239%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%rest138941138949%_)) - (let ((_%hd138946138981%_ + (##pair? _%rest139215139223%_)) + (let ((_%hd139220139255%_ (let () (declare (not safe)) - (##car _%rest138941138949%_))) - (_%tl138947138983%_ + (##car _%rest139215139223%_))) + (_%tl139221139257%_ (let () (declare (not safe)) - (##cdr _%rest138941138949%_)))) - (let* ((_%in138986%_ - _%hd138946138981%_) - (_%rest138988%_ - _%tl138947138983%_)) - (_%K138945138978%_ - _%rest138988%_ - _%in138986%_))) - (_%else138943138961%_))))))) - _%tl138904138919%_))) - (_%g138899138909%_ _%g138900138912%_))))) - (_%g138898138997%_ _%stx138895%_))))) + (##cdr _%rest139215139223%_)))) + (let* ((_%in139260%_ + _%hd139220139255%_) + (_%rest139262%_ + _%tl139221139257%_)) + (_%K139219139252%_ + _%rest139262%_ + _%in139260%_))) + (_%else139217139235%_))))))) + _%tl139178139193%_))) + (_%g139173139183%_ _%g139174139186%_))))) + (_%g139172139271%_ _%stx139169%_))))) (define gxc#generate-runtime-quote-syntax% - (lambda (_%self138707%_ _%stx138708%_) - (letrec ((_%add-lift!138710%_ - (lambda (_%expr138892%_) + (lambda (_%self138981%_ _%stx138982%_) + (letrec ((_%add-lift!138984%_ + (lambda (_%expr139166%_) (set-box! (let () (declare (not safe)) (gxc#current-compile-lift)) - (cons _%expr138892%_ + (cons _%expr139166%_ (unbox (let () (declare (not safe)) (gxc#current-compile-lift))))))) - (_%generate-syntax-quote138711%_ - (lambda (_%id138889%_ _%marks138890%_) + (_%generate-syntax-quote138985%_ + (lambda (_%id139163%_ _%marks139164%_) (cons '##structure (cons 'gx#syntax-quote::t - (cons (cons 'quote (cons _%id138889%_ '())) + (cons (cons 'quote (cons _%id139163%_ '())) (cons '#f (cons '(gx#current-expander-context) - (cons _%marks138890%_ + (cons _%marks139164%_ '())))))))) - (_%generate-simple138712%_ - (lambda (_%stxq138884%_) - (let ((_%gid138886%_ + (_%generate-simple138986%_ + (lambda (_%stxq139158%_) + (let ((_%gid139160%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%qid138887%_ - (gxc#generate-runtime-identifier _%stxq138884%_))) - (_%add-lift!138710%_ + (_%qid139161%_ + (gxc#generate-runtime-identifier _%stxq139158%_))) + (_%add-lift!138984%_ (cons 'define - (cons _%gid138886%_ - (cons (_%generate-syntax-quote138711%_ - _%qid138887%_ + (cons _%gid139160%_ + (cons (_%generate-syntax-quote138985%_ + _%qid139161%_ ''()) '())))) - (let ((__tmp147592 + (let ((__tmp147866 (let () (declare (not safe)) (gxc#current-compile-identifiers)))) (declare (not safe)) - (hash-put! __tmp147592 _%stxq138884%_ _%gid138886%_)) - _%gid138886%_))) - (_%generate-serialized138713%_ - (lambda (_%stxq138874%_ _%marks138875%_) - (let* ((_%mark-refs138877%_ - (map _%generate-mark138714%_ _%marks138875%_)) - (_%gid138879%_ + (hash-put! __tmp147866 _%stxq139158%_ _%gid139160%_)) + _%gid139160%_))) + (_%generate-serialized138987%_ + (lambda (_%stxq139148%_ _%marks139149%_) + (let* ((_%mark-refs139151%_ + (map _%generate-mark138988%_ _%marks139149%_)) + (_%gid139153%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%qid138881%_ - (gxc#generate-runtime-identifier _%stxq138874%_))) - (_%add-lift!138710%_ + (_%qid139155%_ + (gxc#generate-runtime-identifier _%stxq139148%_))) + (_%add-lift!138984%_ (cons 'define - (cons _%gid138879%_ - (cons (_%generate-syntax-quote138711%_ - _%qid138881%_ - (cons 'list _%mark-refs138877%_)) + (cons _%gid139153%_ + (cons (_%generate-syntax-quote138985%_ + _%qid139155%_ + (cons 'list _%mark-refs139151%_)) '())))) - (let ((__tmp147593 + (let ((__tmp147867 (let () (declare (not safe)) (gxc#current-compile-identifiers)))) (declare (not safe)) - (hash-put! __tmp147593 _%stxq138874%_ _%gid138879%_)) - _%gid138879%_))) - (_%generate-mark138714%_ - (lambda (_%mark138859%_) - (let ((_%$e138861%_ - (let ((__tmp147594 + (hash-put! __tmp147867 _%stxq139148%_ _%gid139153%_)) + _%gid139153%_))) + (_%generate-mark138988%_ + (lambda (_%mark139133%_) + (let ((_%$e139135%_ + (let ((__tmp147868 (let () (declare (not safe)) (gxc#current-compile-marks)))) (declare (not safe)) - (hash-get __tmp147594 _%mark138859%_)))) - (if _%$e138861%_ - _%$e138861%_ - (let* ((_%gid138865%_ + (hash-get __tmp147868 _%mark139133%_)))) + (if _%$e139135%_ + _%$e139135%_ + (let* ((_%gid139139%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%repr138867%_ - (_%serialize-mark138715%_ _%mark138859%_)) - (_%ctx138869%_ - (let ((__tmp147595 + (_%repr139141%_ + (_%serialize-mark138989%_ _%mark139133%_)) + (_%ctx139143%_ + (let ((__tmp147869 (##structure-ref - _%mark138859%_ + _%mark139133%_ '2 gx#expander-mark::t '#f))) (declare (not safe)) - (gx#core-context-top__1 __tmp147595))) - (_%ctx-ref138871%_ - (if (eq? _%ctx138869%_ + (gx#core-context-top__1 __tmp147869))) + (_%ctx-ref139145%_ + (if (eq? _%ctx139143%_ (let () (declare (not safe)) (gx#current-expander-context))) '(gx#current-expander-context) (cons 'gx#import-module (cons (cons 'quote - (cons (_%context-ref138716%_ - _%ctx138869%_) + (cons (_%context-ref138990%_ + _%ctx139143%_) '())) '()))))) - (let ((__tmp147596 + (let ((__tmp147870 (let () (declare (not safe)) (gxc#current-compile-marks)))) (declare (not safe)) (hash-put! - __tmp147596 - _%mark138859%_ - _%gid138865%_)) - (_%add-lift!138710%_ + __tmp147870 + _%mark139133%_ + _%gid139139%_)) + (_%add-lift!138984%_ (cons 'define - (cons _%gid138865%_ + (cons _%gid139139%_ (cons (cons 'gx#core-deserialize-mark (cons (cons 'quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%repr138867%_ '())) - (cons _%ctx-ref138871%_ '()))) + (cons _%repr139141%_ '())) + (cons _%ctx-ref139145%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%gid138865%_))))) - (_%serialize-mark138715%_ - (lambda (_%mark138806%_) - (letrec ((_%quote-e138808%_ - (lambda (_%sym138857%_) + _%gid139139%_))))) + (_%serialize-mark138989%_ + (lambda (_%mark139080%_) + (letrec ((_%quote-e139082%_ + (lambda (_%sym139131%_) (if (let () (declare (not safe)) - (interned-symbol? _%sym138857%_)) - _%sym138857%_ + (interned-symbol? _%sym139131%_)) + _%sym139131%_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _%sym138857%_)))))) - (let* ((_%mark138809138818%_ _%mark138806%_) - (_%E138811138822%_ + _%sym139131%_)))))) + (let* ((_%mark139083139092%_ _%mark139080%_) + (_%E139085139096%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%mark138809138818%_ + _%mark139083139092%_ '((expander-mark subst ctx phi trace)))) '#!void)) - (_%K138812138834%_ - (lambda (_%trace138825%_ - _%phi138826%_ - _%ctx138827%_ - _%subst138828%_) - (let ((_%subs138830%_ - (if _%subst138828%_ + (_%K139086139108%_ + (lambda (_%trace139099%_ + _%phi139100%_ + _%ctx139101%_ + _%subst139102%_) + (let ((_%subs139104%_ + (if _%subst139102%_ (let () (declare (not safe)) - (hash->list _%subst138828%_)) + (hash->list _%subst139102%_)) '()))) - (cons _%phi138826%_ - (map (lambda (_%pair138832%_) - (cons (_%quote-e138808%_ - (car _%pair138832%_)) - (_%quote-e138808%_ - (cdr _%pair138832%_)))) - _%subs138830%_)))))) + (cons _%phi139100%_ + (map (lambda (_%pair139106%_) + (cons (_%quote-e139082%_ + (car _%pair139106%_)) + (_%quote-e139082%_ + (cdr _%pair139106%_)))) + _%subs139104%_)))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%mark138809138818%_ + _%mark139083139092%_ 'gx#expander-mark::t)) - (let* ((_%e138813138837%_ + (let* ((_%e139087139111%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark138809138818%_ + _%mark139083139092%_ '1 '#f '#f))) - (_%subst138840%_ _%e138813138837%_) - (_%e138814138842%_ + (_%subst139114%_ _%e139087139111%_) + (_%e139088139116%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark138809138818%_ + _%mark139083139092%_ '2 '#f '#f))) - (_%ctx138845%_ _%e138814138842%_) - (_%e138815138847%_ + (_%ctx139119%_ _%e139088139116%_) + (_%e139089139121%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark138809138818%_ + _%mark139083139092%_ '3 '#f '#f))) - (_%phi138850%_ _%e138815138847%_) - (_%e138816138852%_ + (_%phi139124%_ _%e139089139121%_) + (_%e139090139126%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark138809138818%_ + _%mark139083139092%_ '4 '#f '#f))) - (_%trace138855%_ _%e138816138852%_)) - (_%K138812138834%_ - _%trace138855%_ - _%phi138850%_ - _%ctx138845%_ - _%subst138840%_)) - (_%E138811138822%_)))))) - (_%context-ref138716%_ - (lambda (_%ctx138793%_) - (if (let ((__tmp147597 + (_%trace139129%_ _%e139090139126%_)) + (_%K139086139108%_ + _%trace139129%_ + _%phi139124%_ + _%ctx139119%_ + _%subst139114%_)) + (_%E139085139096%_)))))) + (_%context-ref138990%_ + (lambda (_%ctx139067%_) + (if (let ((__tmp147871 (##structure-ref - _%ctx138793%_ + _%ctx139067%_ '3 gx#phi-context::t '#f))) (declare (not safe)) (##structure-instance-of? - __tmp147597 + __tmp147871 'gx#module-context::t)) - (let ((_%ctx-ref138795%_ - (_%context-ref-nested138718%_ _%ctx138793%_)) - (_%ctx-origin138796%_ - (_%context-ref-origin138717%_ _%ctx138793%_)) - (_%origin138797%_ - (_%context-ref-origin138717%_ + (let ((_%ctx-ref139069%_ + (_%context-ref-nested138992%_ _%ctx139067%_)) + (_%ctx-origin139070%_ + (_%context-ref-origin138991%_ _%ctx139067%_)) + (_%origin139071%_ + (_%context-ref-origin138991%_ (let () (declare (not safe)) (gx#current-expander-context))))) - (if (eq? _%origin138797%_ _%ctx-origin138796%_) - (let ((_%ref138799%_ - (_%context-ref-nested138718%_ + (if (eq? _%origin139071%_ _%ctx-origin139070%_) + (let ((_%ref139073%_ + (_%context-ref-nested138992%_ (let () (declare (not safe)) (gx#current-expander-context))))) - (let _%lp138801%_ ((_%ref138803%_ - (cdr _%ref138799%_)) - (_%ctx-ref138804%_ - (cdr _%ctx-ref138795%_))) - (if (and (pair? _%ref138803%_) + (let _%lp139075%_ ((_%ref139077%_ + (cdr _%ref139073%_)) + (_%ctx-ref139078%_ + (cdr _%ctx-ref139069%_))) + (if (and (pair? _%ref139077%_) (eq? (let () (declare (not safe)) - (##car _%ref138803%_)) - (car _%ctx-ref138804%_))) - (_%lp138801%_ - (cdr _%ref138803%_) - (cdr _%ctx-ref138804%_)) - (cons '#f _%ctx-ref138804%_)))) - _%ctx-ref138795%_)) - (let ((__tmp147598 + (##car _%ref139077%_)) + (car _%ctx-ref139078%_))) + (_%lp139075%_ + (cdr _%ref139077%_) + (cdr _%ctx-ref139078%_)) + (cons '#f _%ctx-ref139078%_)))) + _%ctx-ref139069%_)) + (let ((__tmp147872 (##structure-ref - _%ctx138793%_ + _%ctx139067%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp147598))))) - (_%context-ref-origin138717%_ - (lambda (_%ctx138785%_) - (let _%lp138787%_ ((_%ctx138789%_ _%ctx138785%_)) - (let ((_%super138791%_ + (make-symbol__1 '":" __tmp147872))))) + (_%context-ref-origin138991%_ + (lambda (_%ctx139059%_) + (let _%lp139061%_ ((_%ctx139063%_ _%ctx139059%_)) + (let ((_%super139065%_ (##structure-ref - _%ctx138789%_ + _%ctx139063%_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _%super138791%_ + _%super139065%_ 'gx#module-context::t)) - (_%lp138787%_ _%super138791%_) - _%ctx138789%_))))) - (_%context-ref-nested138718%_ - (lambda (_%ctx138776%_) - (let _%lp138778%_ ((_%ctx138780%_ _%ctx138776%_) - (_%r138781%_ '())) - (let ((_%super138783%_ + (_%lp139061%_ _%super139065%_) + _%ctx139063%_))))) + (_%context-ref-nested138992%_ + (lambda (_%ctx139050%_) + (let _%lp139052%_ ((_%ctx139054%_ _%ctx139050%_) + (_%r139055%_ '())) + (let ((_%super139057%_ (##structure-ref - _%ctx138780%_ + _%ctx139054%_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _%super138783%_ + _%super139057%_ 'gx#module-context::t)) - (_%lp138778%_ - _%super138783%_ + (_%lp139052%_ + _%super139057%_ (cons (car (##structure-ref - _%ctx138780%_ + _%ctx139054%_ '7 gx#module-context::t '#f)) - _%r138781%_)) - (cons (let ((__tmp147599 + _%r139055%_)) + (cons (let ((__tmp147873 (##structure-ref - _%ctx138780%_ + _%ctx139054%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp147599)) - _%r138781%_))))))) - (let* ((_%g138720138733%_ - (lambda (_%g138721138730%_) + (make-symbol__1 '":" __tmp147873)) + _%r139055%_))))))) + (let* ((_%g138994139007%_ + (lambda (_%g138995139004%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138721138730%_)))) - (_%g138719138773%_ - (lambda (_%g138721138736%_) + _%g138995139004%_)))) + (_%g138993139047%_ + (lambda (_%g138995139010%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138721138736%_)) - (let ((_%e138723138738%_ + (gx#stx-pair? _%g138995139010%_)) + (let ((_%e138997139012%_ (let () (declare (not safe)) - (gx#stx-e _%g138721138736%_)))) - (let ((_%hd138724138741%_ + (gx#stx-e _%g138995139010%_)))) + (let ((_%hd138998139015%_ (let () (declare (not safe)) - (##car _%e138723138738%_))) - (_%tl138725138743%_ + (##car _%e138997139012%_))) + (_%tl138999139017%_ (let () (declare (not safe)) - (##cdr _%e138723138738%_)))) + (##cdr _%e138997139012%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138725138743%_)) - (let ((_%e138726138746%_ + (gx#stx-pair? _%tl138999139017%_)) + (let ((_%e139000139020%_ (let () (declare (not safe)) - (gx#stx-e _%tl138725138743%_)))) - (let ((_%hd138727138749%_ + (gx#stx-e _%tl138999139017%_)))) + (let ((_%hd139001139023%_ (let () (declare (not safe)) - (##car _%e138726138746%_))) - (_%tl138728138751%_ + (##car _%e139000139020%_))) + (_%tl139002139025%_ (let () (declare (not safe)) - (##cdr _%e138726138746%_)))) + (##cdr _%e139000139020%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl138728138751%_)) - ((lambda (_%L138754%_) + (gx#stx-null? _%tl139002139025%_)) + ((lambda (_%L139028%_) (if (let () (declare (not safe)) - (gx#identifier? _%L138754%_)) - (let ((_%$e138767%_ - (let ((__tmp147600 + (gx#identifier? _%L139028%_)) + (let ((_%$e139041%_ + (let ((__tmp147874 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#current-compile-identifiers)))) (declare (not safe)) - (hash-get __tmp147600 _%L138754%_)))) + (hash-get __tmp147874 _%L139028%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e138767%_ - _%$e138767%_ - (let ((_%marks138771%_ + (if _%$e139041%_ + _%$e139041%_ + (let ((_%marks139045%_ (##direct-structure-ref - _%L138754%_ + _%L139028%_ '4 gx#syntax-quote::t '#f))) - (if (null? _%marks138771%_) - (_%generate-simple138712%_ - _%L138754%_) - (_%generate-serialized138713%_ - _%L138754%_ - _%marks138771%_))))) + (if (null? _%marks139045%_) + (_%generate-simple138986%_ + _%L139028%_) + (_%generate-serialized138987%_ + _%L139028%_ + _%marks139045%_))))) (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot quote non-identifier syntax" - _%L138754%_)))) - _%hd138727138749%_) - (_%g138720138733%_ - _%g138721138736%_)))) - (_%g138720138733%_ _%g138721138736%_)))) - (_%g138720138733%_ _%g138721138736%_))))) - (_%g138719138773%_ _%stx138708%_))))) + _%L139028%_)))) + _%hd139001139023%_) + (_%g138994139007%_ + _%g138995139010%_)))) + (_%g138994139007%_ _%g138995139010%_)))) + (_%g138994139007%_ _%g138995139010%_))))) + (_%g138993139047%_ _%stx138982%_))))) (define gxc#generate-runtime-phi-define-runtime% - (lambda (_%self138639%_ _%stx138640%_) - (let* ((_%g138642138659%_ - (lambda (_%g138643138656%_) + (lambda (_%self138913%_ _%stx138914%_) + (let* ((_%g138916138933%_ + (lambda (_%g138917138930%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138643138656%_)))) - (_%g138641138704%_ - (lambda (_%g138643138662%_) + _%g138917138930%_)))) + (_%g138915138978%_ + (lambda (_%g138917138936%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138643138662%_)) - (let ((_%e138646138664%_ + (gx#stx-pair? _%g138917138936%_)) + (let ((_%e138920138938%_ (let () (declare (not safe)) - (gx#stx-e _%g138643138662%_)))) - (let ((_%hd138647138667%_ + (gx#stx-e _%g138917138936%_)))) + (let ((_%hd138921138941%_ (let () (declare (not safe)) - (##car _%e138646138664%_))) - (_%tl138648138669%_ + (##car _%e138920138938%_))) + (_%tl138922138943%_ (let () (declare (not safe)) - (##cdr _%e138646138664%_)))) + (##cdr _%e138920138938%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138648138669%_)) - (let ((_%e138649138672%_ + (gx#stx-pair? _%tl138922138943%_)) + (let ((_%e138923138946%_ (let () (declare (not safe)) - (gx#stx-e _%tl138648138669%_)))) - (let ((_%hd138650138675%_ + (gx#stx-e _%tl138922138943%_)))) + (let ((_%hd138924138949%_ (let () (declare (not safe)) - (##car _%e138649138672%_))) - (_%tl138651138677%_ + (##car _%e138923138946%_))) + (_%tl138925138951%_ (let () (declare (not safe)) - (##cdr _%e138649138672%_)))) + (##cdr _%e138923138946%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138651138677%_)) - (let ((_%e138652138680%_ + (gx#stx-pair? _%tl138925138951%_)) + (let ((_%e138926138954%_ (let () (declare (not safe)) - (gx#stx-e _%tl138651138677%_)))) - (let ((_%hd138653138683%_ + (gx#stx-e _%tl138925138951%_)))) + (let ((_%hd138927138957%_ (let () (declare (not safe)) - (##car _%e138652138680%_))) - (_%tl138654138685%_ + (##car _%e138926138954%_))) + (_%tl138928138959%_ (let () (declare (not safe)) - (##cdr _%e138652138680%_)))) + (##cdr _%e138926138954%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138654138685%_)) - ((lambda (_%L138688%_ - _%L138689%_) + _%tl138928138959%_)) + ((lambda (_%L138962%_ + _%L138963%_) (cons 'define (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%L138689%_)) + (gx#stx-e _%L138963%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self138639%_ _%L138688%_)) + (gxc#compile-e__1 _%self138913%_ _%L138962%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd138653138683%_ - _%hd138650138675%_) - (_%g138642138659%_ - _%g138643138662%_)))) - (_%g138642138659%_ _%g138643138662%_)))) - (_%g138642138659%_ _%g138643138662%_)))) - (_%g138642138659%_ _%g138643138662%_))))) - (_%g138641138704%_ _%stx138640%_)))) + _%hd138927138957%_ + _%hd138924138949%_) + (_%g138916138933%_ + _%g138917138936%_)))) + (_%g138916138933%_ _%g138917138936%_)))) + (_%g138916138933%_ _%g138917138936%_)))) + (_%g138916138933%_ _%g138917138936%_))))) + (_%g138915138978%_ _%stx138914%_)))) (define gxc#generate-meta-begin% - (lambda (_%self138588%_ _%stx138589%_) - (let* ((_%g138591138601%_ - (lambda (_%g138592138598%_) + (lambda (_%self138862%_ _%stx138863%_) + (let* ((_%g138865138875%_ + (lambda (_%g138866138872%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138592138598%_)))) - (_%g138590138636%_ - (lambda (_%g138592138604%_) + _%g138866138872%_)))) + (_%g138864138910%_ + (lambda (_%g138866138878%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138592138604%_)) - (let ((_%e138594138606%_ + (gx#stx-pair? _%g138866138878%_)) + (let ((_%e138868138880%_ (let () (declare (not safe)) - (gx#stx-e _%g138592138604%_)))) - (let ((_%hd138595138609%_ + (gx#stx-e _%g138866138878%_)))) + (let ((_%hd138869138883%_ (let () (declare (not safe)) - (##car _%e138594138606%_))) - (_%tl138596138611%_ + (##car _%e138868138880%_))) + (_%tl138870138885%_ (let () (declare (not safe)) - (##cdr _%e138594138606%_)))) - ((lambda (_%L138614%_) - (let* ((_%c-body138628%_ - (map (lambda (_%g138623138625%_) + (##cdr _%e138868138880%_)))) + ((lambda (_%L138888%_) + (let* ((_%c-body138902%_ + (map (lambda (_%g138897138899%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self138588%_ - _%g138623138625%_))) - _%L138614%_)) - (_%c-body138633%_ - (let ((__tmp147601 - (lambda (_%$obj138630%_) - (not (eq? _%$obj138630%_ + _%self138862%_ + _%g138897138899%_))) + _%L138888%_)) + (_%c-body138907%_ + (let ((__tmp147875 + (lambda (_%$obj138904%_) + (not (eq? _%$obj138904%_ '#!void))))) (declare (not safe)) (##filter - __tmp147601 - _%c-body138628%_)))) - (cons '%#begin _%c-body138633%_))) - _%tl138596138611%_))) - (_%g138591138601%_ _%g138592138604%_))))) - (_%g138590138636%_ _%stx138589%_)))) + __tmp147875 + _%c-body138902%_)))) + (cons '%#begin _%c-body138907%_))) + _%tl138870138885%_))) + (_%g138865138875%_ _%g138866138878%_))))) + (_%g138864138910%_ _%stx138863%_)))) (define gxc#generate-meta-begin-syntax% - (lambda (_%self138493%_ _%stx138494%_) - (let* ((_%g138496138506%_ - (lambda (_%g138497138503%_) + (lambda (_%self138767%_ _%stx138768%_) + (let* ((_%g138770138780%_ + (lambda (_%g138771138777%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138497138503%_)))) - (_%g138495138585%_ - (lambda (_%g138497138509%_) + _%g138771138777%_)))) + (_%g138769138859%_ + (lambda (_%g138771138783%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138497138509%_)) - (let ((_%e138499138511%_ + (gx#stx-pair? _%g138771138783%_)) + (let ((_%e138773138785%_ (let () (declare (not safe)) - (gx#stx-e _%g138497138509%_)))) - (let ((_%hd138500138514%_ + (gx#stx-e _%g138771138783%_)))) + (let ((_%hd138774138788%_ (let () (declare (not safe)) - (##car _%e138499138511%_))) - (_%tl138501138516%_ + (##car _%e138773138785%_))) + (_%tl138775138790%_ (let () (declare (not safe)) - (##cdr _%e138499138511%_)))) - ((lambda (_%L138519%_) - (let* ((_%phi138529%_ - (let ((__tmp147602 + (##cdr _%e138773138785%_)))) + ((lambda (_%L138793%_) + (let* ((_%phi138803%_ + (let ((__tmp147876 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp147602 '1))) - (_%block138531%_ + (##fx+ __tmp147876 '1))) + (_%block138805%_ (gxc#meta-state-begin-phi! (let () (declare (not safe)) - (slot-ref__0 _%self138493%_ 'state)) - _%phi138529%_)) - (_%compiled138534%_ - (let ((__tmp147603 + (slot-ref__0 _%self138767%_ 'state)) + _%phi138803%_)) + (_%compiled138808%_ + (let ((__tmp147877 (lambda () (gxc#apply-generate-meta-phi__% '#f (let () (declare (not safe)) (slot-ref__0 - _%self138493%_ + _%self138767%_ 'state)) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L138519%_))))) + _%L138793%_))))) (declare (not safe)) (__call-with-parameters - __tmp147603 + __tmp147877 gx#current-expander-phi - _%phi138529%_))) - (_%g138537138547%_ - (lambda (_%g138538138544%_) + _%phi138803%_))) + (_%g138811138821%_ + (lambda (_%g138812138818%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138538138544%_)))) - (_%g138536138582%_ - (lambda (_%g138538138550%_) + _%g138812138818%_)))) + (_%g138810138856%_ + (lambda (_%g138812138824%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138538138550%_)) - (let ((_%e138540138552%_ + (gx#stx-pair? _%g138812138824%_)) + (let ((_%e138814138826%_ (let () (declare (not safe)) (gx#stx-e - _%g138538138550%_)))) - (let ((_%hd138541138555%_ + _%g138812138824%_)))) + (let ((_%hd138815138829%_ (let () (declare (not safe)) - (##car _%e138540138552%_))) - (_%tl138542138557%_ + (##car _%e138814138826%_))) + (_%tl138816138831%_ (let () (declare (not safe)) - (##cdr _%e138540138552%_)))) + (##cdr _%e138814138826%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd138541138555%_)) + _%hd138815138829%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin - _%hd138541138555%_)) - ((lambda (_%L138560%_) - (let ((_%c-body138577%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (filter (lambda (_%$obj138574%_) - (not (eq? _%$obj138574%_ '#!void))) - _%L138560%_))) - (if _%block138531%_ + _%hd138815138829%_)) + ((lambda (_%L138834%_) + (let ((_%c-body138851%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (filter (lambda (_%$obj138848%_) + (not (eq? _%$obj138848%_ '#!void))) + _%L138834%_))) + (if _%block138805%_ (cons '%#begin-syntax (cons (cons '%#call (cons (cons '%#ref (cons 'load-module '())) (cons (cons '%#quote - (cons _%block138531%_ + (cons _%block138805%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%c-body138577%_)) - (if (null? _%c-body138577%_) + _%c-body138851%_)) + (if (null? _%c-body138851%_) '#!void - (cons '%#begin-syntax _%c-body138577%_))))) - _%tl138542138557%_) - (_%g138537138547%_ _%g138538138550%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g138537138547%_ - _%g138538138550%_)))) - (_%g138537138547%_ - _%g138538138550%_))))) - (_%g138536138582%_ _%compiled138534%_))) - _%tl138501138516%_))) - (_%g138496138506%_ _%g138497138509%_))))) - (_%g138495138585%_ _%stx138494%_)))) + (cons '%#begin-syntax _%c-body138851%_))))) + _%tl138816138831%_) + (_%g138811138821%_ _%g138812138824%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g138811138821%_ + _%g138812138824%_)))) + (_%g138811138821%_ + _%g138812138824%_))))) + (_%g138810138856%_ _%compiled138808%_))) + _%tl138775138790%_))) + (_%g138770138780%_ _%g138771138783%_))))) + (_%g138769138859%_ _%stx138768%_)))) (define gxc#generate-meta-module% - (lambda (_%self138424%_ _%stx138425%_) + (lambda (_%self138698%_ _%stx138699%_) (gxc#meta-state-end-phi! - (let () (declare (not safe)) (slot-ref__0 _%self138424%_ 'state))) - (let* ((_%g138427138441%_ - (lambda (_%g138428138438%_) + (let () (declare (not safe)) (slot-ref__0 _%self138698%_ 'state))) + (let* ((_%g138701138715%_ + (lambda (_%g138702138712%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138428138438%_)))) - (_%g138426138490%_ - (lambda (_%g138428138444%_) + _%g138702138712%_)))) + (_%g138700138764%_ + (lambda (_%g138702138718%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138428138444%_)) - (let ((_%e138431138446%_ + (gx#stx-pair? _%g138702138718%_)) + (let ((_%e138705138720%_ (let () (declare (not safe)) - (gx#stx-e _%g138428138444%_)))) - (let ((_%hd138432138449%_ + (gx#stx-e _%g138702138718%_)))) + (let ((_%hd138706138723%_ (let () (declare (not safe)) - (##car _%e138431138446%_))) - (_%tl138433138451%_ + (##car _%e138705138720%_))) + (_%tl138707138725%_ (let () (declare (not safe)) - (##cdr _%e138431138446%_)))) + (##cdr _%e138705138720%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138433138451%_)) - (let ((_%e138434138454%_ + (gx#stx-pair? _%tl138707138725%_)) + (let ((_%e138708138728%_ (let () (declare (not safe)) - (gx#stx-e _%tl138433138451%_)))) - (let ((_%hd138435138457%_ + (gx#stx-e _%tl138707138725%_)))) + (let ((_%hd138709138731%_ (let () (declare (not safe)) - (##car _%e138434138454%_))) - (_%tl138436138459%_ + (##car _%e138708138728%_))) + (_%tl138710138733%_ (let () (declare (not safe)) - (##cdr _%e138434138454%_)))) - ((lambda (_%L138462%_ _%L138463%_) - (let ((_%key138476%_ + (##cdr _%e138708138728%_)))) + ((lambda (_%L138736%_ _%L138737%_) + (let ((_%key138750%_ (let () (declare (not safe)) (gx#core-identifier-key - _%L138463%_)))) + _%L138737%_)))) (if (let () (declare (not safe)) - (interned-symbol? _%key138476%_)) + (interned-symbol? _%key138750%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile module with uninterned id" - _%stx138425%_ - _%L138463%_ - _%key138476%_))) - (let* ((_%ctx138478%_ + _%stx138699%_ + _%L138737%_ + _%key138750%_))) + (let* ((_%ctx138752%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L138463%_))) - (_%code138481%_ - (let ((__tmp147604 + _%L138737%_))) + (_%code138755%_ + (let ((__tmp147878 (lambda () - (let ((__tmp147605 + (let ((__tmp147879 (##structure-ref - _%ctx138478%_ + _%ctx138752%_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - _%self138424%_ - __tmp147605))))) + _%self138698%_ + __tmp147879))))) (declare (not safe)) (__call-with-parameters - __tmp147604 + __tmp147878 gx#current-expander-context - _%ctx138478%_))) - (_%rt138483%_ - (let ((__tmp147606 + _%ctx138752%_))) + (_%rt138757%_ + (let ((__tmp147880 (let () (declare (not safe)) (gxc#current-compile-runtime-sections)))) (declare (not safe)) (hash-get - __tmp147606 - _%ctx138478%_))) - (_%loader138485%_ - (if _%rt138483%_ + __tmp147880 + _%ctx138752%_))) + (_%loader138759%_ + (if _%rt138757%_ (cons (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'load-module '())) - (cons (cons '%#quote (cons _%rt138483%_ '())) + (cons (cons '%#quote (cons _%rt138757%_ '())) '()))) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (_%modid138487%_ + (_%modid138761%_ (let () (declare (not safe)) - (gx#stx-e _%L138463%_)))) + (gx#stx-e _%L138737%_)))) (gxc#meta-state-end-phi! (let () (declare (not safe)) (slot-ref__0 - _%self138424%_ + _%self138698%_ 'state))) (cons '%#module - (cons _%modid138487%_ - (cons _%code138481%_ - _%loader138485%_)))))) - _%tl138436138459%_ - _%hd138435138457%_))) - (_%g138427138441%_ _%g138428138444%_)))) - (_%g138427138441%_ _%g138428138444%_))))) - (_%g138426138490%_ _%stx138425%_)))) + (cons _%modid138761%_ + (cons _%code138755%_ + _%loader138759%_)))))) + _%tl138710138733%_ + _%hd138709138731%_))) + (_%g138701138715%_ _%g138702138718%_)))) + (_%g138701138715%_ _%g138702138718%_))))) + (_%g138700138764%_ _%stx138699%_)))) (define gxc#generate-meta-import-path - (lambda (_%ctx138411%_ _%context-chain138412%_) - (let _%lp138414%_ ((_%ctx138416%_ _%ctx138411%_) (_%path138417%_ '())) - (let ((_%super138419%_ - (##structure-ref _%ctx138416%_ '3 gx#phi-context::t '#f))) - (if (memq _%super138419%_ _%context-chain138412%_) + (lambda (_%ctx138685%_ _%context-chain138686%_) + (let _%lp138688%_ ((_%ctx138690%_ _%ctx138685%_) (_%path138691%_ '())) + (let ((_%super138693%_ + (##structure-ref _%ctx138690%_ '3 gx#phi-context::t '#f))) + (if (memq _%super138693%_ _%context-chain138686%_) (cons '#f (cons (car (##structure-ref - _%ctx138416%_ + _%ctx138690%_ '7 gx#module-context::t '#f)) - _%path138417%_)) + _%path138691%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%super138419%_ + _%super138693%_ 'gx#module-context::t)) - (_%lp138414%_ - _%super138419%_ + (_%lp138688%_ + _%super138693%_ (cons (car (##structure-ref - _%ctx138416%_ + _%ctx138690%_ '7 gx#module-context::t '#f)) - _%path138417%_)) - (cons (let ((__tmp147607 + _%path138691%_)) + (cons (let ((__tmp147881 (##structure-ref - _%ctx138416%_ + _%ctx138690%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp147607)) - _%path138417%_))))))) + (make-symbol__1 '":" __tmp147881)) + _%path138691%_))))))) (define gxc#current-context-chain (lambda () - (let _%lp138404%_ ((_%ctx138406%_ + (let _%lp138678%_ ((_%ctx138680%_ (let () (declare (not safe)) (gx#current-expander-context))) - (_%r138407%_ '())) + (_%r138681%_ '())) (if (let () (declare (not safe)) - (##structure-instance-of? _%ctx138406%_ 'gx#module-context::t)) - (_%lp138404%_ + (##structure-instance-of? _%ctx138680%_ 'gx#module-context::t)) + (_%lp138678%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%ctx138406%_ '3 '#f '#f)) - (cons _%ctx138406%_ _%r138407%_)) - _%r138407%_)))) + (##unchecked-structure-ref _%ctx138680%_ '3 '#f '#f)) + (cons _%ctx138680%_ _%r138681%_)) + _%r138681%_)))) (define gxc#generate-meta-import% - (lambda (_%self138167%_ _%stx138168%_) - (letrec* ((_%context-chain138170%_ (gxc#current-context-chain)) - (_%make-import-spec138171%_ - (lambda (_%in138340%_) - (let* ((_%in138341138353%_ _%in138340%_) - (_%E138343138357%_ + (lambda (_%self138441%_ _%stx138442%_) + (letrec* ((_%context-chain138444%_ (gxc#current-context-chain)) + (_%make-import-spec138445%_ + (lambda (_%in138614%_) + (let* ((_%in138615138627%_ _%in138614%_) + (_%E138617138631%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%in138341138353%_ + _%in138615138627%_ '((module-import (module-export src-ctx @@ -13312,396 +13312,396 @@ name phi)))) '#!void)) - (_%K138344138367%_ - (lambda (_%phi138360%_ - _%name138361%_ - _%src-name138362%_ - _%src-phi138363%_ - _%src-key138364%_ - _%src-ctx138365%_) - (cons _%phi138360%_ + (_%K138618138641%_ + (lambda (_%phi138634%_ + _%name138635%_ + _%src-name138636%_ + _%src-phi138637%_ + _%src-key138638%_ + _%src-ctx138639%_) + (cons _%phi138634%_ (cons (gxc#generate-runtime-identifier-key - _%name138361%_) - (cons _%src-phi138363%_ + _%name138635%_) + (cons _%src-phi138637%_ (cons (gxc#generate-runtime-identifier-key - _%src-name138362%_) + _%src-name138636%_) '()))))))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in138341138353%_ + _%in138615138627%_ 'gx#module-import::t)) - (let ((_%e138345138370%_ + (let ((_%e138619138644%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in138341138353%_ + _%in138615138627%_ '1 '#f '#f)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%e138345138370%_ + _%e138619138644%_ 'gx#module-export::t)) - (let* ((_%e138348138373%_ + (let* ((_%e138622138647%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e138345138370%_ + _%e138619138644%_ '1 '#f '#f))) - (_%src-ctx138376%_ _%e138348138373%_) - (_%e138349138378%_ + (_%src-ctx138650%_ _%e138622138647%_) + (_%e138623138652%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e138345138370%_ + _%e138619138644%_ '2 '#f '#f))) - (_%src-key138381%_ _%e138349138378%_) - (_%e138350138383%_ + (_%src-key138655%_ _%e138623138652%_) + (_%e138624138657%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e138345138370%_ + _%e138619138644%_ '3 '#f '#f))) - (_%src-phi138386%_ _%e138350138383%_) - (_%e138351138388%_ + (_%src-phi138660%_ _%e138624138657%_) + (_%e138625138662%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e138345138370%_ + _%e138619138644%_ '4 '#f '#f))) - (_%src-name138391%_ _%e138351138388%_) - (_%e138346138393%_ + (_%src-name138665%_ _%e138625138662%_) + (_%e138620138667%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in138341138353%_ + _%in138615138627%_ '2 '#f '#f))) - (_%name138396%_ _%e138346138393%_) - (_%e138347138398%_ + (_%name138670%_ _%e138620138667%_) + (_%e138621138672%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in138341138353%_ + _%in138615138627%_ '3 '#f '#f))) - (_%phi138401%_ _%e138347138398%_)) - (_%K138344138367%_ - _%phi138401%_ - _%name138396%_ - _%src-name138391%_ - _%src-phi138386%_ - _%src-key138381%_ - _%src-ctx138376%_)) - (_%E138343138357%_))) - (_%E138343138357%_))))) - (_%make-import-path138172%_ - (lambda (_%ctx138338%_) + (_%phi138675%_ _%e138621138672%_)) + (_%K138618138641%_ + _%phi138675%_ + _%name138670%_ + _%src-name138665%_ + _%src-phi138660%_ + _%src-key138655%_ + _%src-ctx138650%_)) + (_%E138617138631%_))) + (_%E138617138631%_))))) + (_%make-import-path138446%_ + (lambda (_%ctx138612%_) (gxc#generate-meta-import-path - _%ctx138338%_ - _%context-chain138170%_))) - (_%make-import-spec-in138173%_ - (lambda (_%ctx138335%_ _%in138336%_) + _%ctx138612%_ + _%context-chain138444%_))) + (_%make-import-spec-in138447%_ + (lambda (_%ctx138609%_ _%in138610%_) (cons 'spec: - (cons (_%make-import-path138172%_ _%ctx138335%_) - (reverse _%in138336%_)))))) + (cons (_%make-import-path138446%_ _%ctx138609%_) + (reverse _%in138610%_)))))) (gxc#meta-state-end-phi! - (let () (declare (not safe)) (slot-ref__0 _%self138167%_ 'state))) - (let* ((_%g138175138185%_ - (lambda (_%g138176138182%_) + (let () (declare (not safe)) (slot-ref__0 _%self138441%_ 'state))) + (let* ((_%g138449138459%_ + (lambda (_%g138450138456%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138176138182%_)))) - (_%g138174138332%_ - (lambda (_%g138176138188%_) + _%g138450138456%_)))) + (_%g138448138606%_ + (lambda (_%g138450138462%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138176138188%_)) - (let ((_%e138178138190%_ + (gx#stx-pair? _%g138450138462%_)) + (let ((_%e138452138464%_ (let () (declare (not safe)) - (gx#stx-e _%g138176138188%_)))) - (let ((_%hd138179138193%_ + (gx#stx-e _%g138450138462%_)))) + (let ((_%hd138453138467%_ (let () (declare (not safe)) - (##car _%e138178138190%_))) - (_%tl138180138195%_ + (##car _%e138452138464%_))) + (_%tl138454138469%_ (let () (declare (not safe)) - (##cdr _%e138178138190%_)))) - ((lambda (_%L138198%_) - (let _%lp138209%_ ((_%rest138211%_ _%L138198%_) - (_%current-src138212%_ '#f) - (_%current-in138213%_ '()) - (_%r138214%_ '())) - (let* ((_%rest138215138223%_ _%rest138211%_) - (_%else138217138233%_ + (##cdr _%e138452138464%_)))) + ((lambda (_%L138472%_) + (let _%lp138483%_ ((_%rest138485%_ _%L138472%_) + (_%current-src138486%_ '#f) + (_%current-in138487%_ '()) + (_%r138488%_ '())) + (let* ((_%rest138489138497%_ _%rest138485%_) + (_%else138491138507%_ (lambda () - (let ((_%r138231%_ - (if _%current-src138212%_ - (cons (_%make-import-spec-in138173%_ - _%current-src138212%_ - _%current-in138213%_) - _%r138214%_) - _%r138214%_))) + (let ((_%r138505%_ + (if _%current-src138486%_ + (cons (_%make-import-spec-in138447%_ + _%current-src138486%_ + _%current-in138487%_) + _%r138488%_) + _%r138488%_))) (cons '%#import - (reverse _%r138231%_))))) - (_%K138219138320%_ - (lambda (_%rest138236%_ _%in138237%_) + (reverse _%r138505%_))))) + (_%K138493138594%_ + (lambda (_%rest138510%_ _%in138511%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in138237%_ + _%in138511%_ 'gx#module-import::t)) - (let* ((_%in138239138246%_ - _%in138237%_) - (_%E138241138250%_ + (let* ((_%in138513138520%_ + _%in138511%_) + (_%E138515138524%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in138239138246%_ + _%in138513138520%_ '((module-import (module-export src-ctx))))) '#!void)) - (_%K138242138258%_ - (lambda (_%src-ctx138253%_) - (if (eq? _%current-src138212%_ _%src-ctx138253%_) - (_%lp138209%_ - _%rest138236%_ - _%current-src138212%_ - (cons (_%make-import-spec138171%_ _%in138237%_) - _%current-in138213%_) - _%r138214%_) - (if _%current-src138212%_ - (_%lp138209%_ - _%rest138236%_ - _%src-ctx138253%_ - (cons (_%make-import-spec138171%_ _%in138237%_) '()) - (cons (_%make-import-spec-in138173%_ - _%current-src138212%_ - _%current-in138213%_) - _%r138214%_)) - (_%lp138209%_ - _%rest138236%_ - _%src-ctx138253%_ - (cons (_%make-import-spec138171%_ _%in138237%_) '()) - _%r138214%_))))) - (_%e138243138261%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref _%in138239138246%_ '1 '#f '#f)))) + (_%K138516138532%_ + (lambda (_%src-ctx138527%_) + (if (eq? _%current-src138486%_ _%src-ctx138527%_) + (_%lp138483%_ + _%rest138510%_ + _%current-src138486%_ + (cons (_%make-import-spec138445%_ _%in138511%_) + _%current-in138487%_) + _%r138488%_) + (if _%current-src138486%_ + (_%lp138483%_ + _%rest138510%_ + _%src-ctx138527%_ + (cons (_%make-import-spec138445%_ _%in138511%_) '()) + (cons (_%make-import-spec-in138447%_ + _%current-src138486%_ + _%current-in138487%_) + _%r138488%_)) + (_%lp138483%_ + _%rest138510%_ + _%src-ctx138527%_ + (cons (_%make-import-spec138445%_ _%in138511%_) '()) + _%r138488%_))))) + (_%e138517138535%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref _%in138513138520%_ '1 '#f '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%e138243138261%_ + _%e138517138535%_ 'gx#module-export::t)) - (let* ((_%e138244138264%_ + (let* ((_%e138518138538%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _%e138243138261%_ + _%e138517138535%_ '1 '#f '#f))) - (_%src-ctx138267%_ _%e138244138264%_)) - (_%K138242138258%_ _%src-ctx138267%_)) + (_%src-ctx138541%_ _%e138518138538%_)) + (_%K138516138532%_ _%src-ctx138541%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E138241138250%_))) + (_%E138515138524%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in138237%_ + _%in138511%_ 'gx#import-set::t)) - (let* ((_%phi138270%_ + (let* ((_%phi138544%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in138237%_ + _%in138511%_ '2 '#f '#f))) - (_%src138272%_ + (_%src138546%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in138237%_ + _%in138511%_ '1 '#f '#f))) - (_%src-in138312%_ - (let* ((_%g138273138282%_ + (_%src-in138586%_ + (let* ((_%g138547138556%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_%make-import-path138172%_ _%src138272%_)) - (_%E138276138286%_ + (_%make-import-path138446%_ _%src138546%_)) + (_%E138550138560%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g138273138282%_ + _%g138547138556%_ '([path]) '(path))) '#!void))) - (let ((_%K138278138302%_ - (lambda (_%path138300%_) _%path138300%_)) - (_%K138277138292%_ - (lambda (_%path138290%_) - (cons 'in: _%path138290%_)))) + (let ((_%K138552138576%_ + (lambda (_%path138574%_) _%path138574%_)) + (_%K138551138566%_ + (lambda (_%path138564%_) + (cons 'in: _%path138564%_)))) (if (let () (declare (not safe)) - (##pair? _%g138273138282%_)) - (let ((_%tl138280138307%_ + (##pair? _%g138547138556%_)) + (let ((_%tl138554138581%_ (let () (declare (not safe)) - (##cdr _%g138273138282%_))) - (_%hd138279138305%_ + (##cdr _%g138547138556%_))) + (_%hd138553138579%_ (let () (declare (not safe)) - (##car _%g138273138282%_)))) + (##car _%g138547138556%_)))) (if (let () (declare (not safe)) - (##null? _%tl138280138307%_)) - (let ((_%path138310%_ _%hd138279138305%_)) - (_%K138278138302%_ _%path138310%_)) - (let ((_%path138295%_ _%g138273138282%_)) - (_%K138277138292%_ _%path138295%_)))) - (let ((_%path138295%_ _%g138273138282%_)) - (_%K138277138292%_ _%path138295%_)))))) - (_%r138314%_ - (if _%current-src138212%_ - (cons (_%make-import-spec-in138173%_ - _%current-src138212%_ - _%current-in138213%_) - _%r138214%_) - _%r138214%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp138209%_ - _%rest138236%_ + (##null? _%tl138554138581%_)) + (let ((_%path138584%_ _%hd138553138579%_)) + (_%K138552138576%_ _%path138584%_)) + (let ((_%path138569%_ _%g138547138556%_)) + (_%K138551138566%_ _%path138569%_)))) + (let ((_%path138569%_ _%g138547138556%_)) + (_%K138551138566%_ _%path138569%_)))))) + (_%r138588%_ + (if _%current-src138486%_ + (cons (_%make-import-spec-in138447%_ + _%current-src138486%_ + _%current-in138487%_) + _%r138488%_) + _%r138488%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%lp138483%_ + _%rest138510%_ '#f '() - (cons (if (fxzero? _%phi138270%_) - _%src-in138312%_ + (cons (if (fxzero? _%phi138544%_) + _%src-in138586%_ (cons 'phi: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%phi138270%_ - (cons _%src-in138312%_ '())))) - _%r138314%_))) + (cons _%phi138544%_ + (cons _%src-in138586%_ '())))) + _%r138588%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-instance-of? - _%in138237%_ + _%in138511%_ 'gx#module-context::t)) - (let ((_%r138318%_ - (if _%current-src138212%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (_%make-import-spec-in138173%_ - _%current-src138212%_ - _%current-in138213%_) - _%r138214%_) - _%r138214%_))) - (_%lp138209%_ - _%rest138236%_ + (let ((_%r138592%_ + (if _%current-src138486%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (_%make-import-spec-in138447%_ + _%current-src138486%_ + _%current-in138487%_) + _%r138488%_) + _%r138488%_))) + (_%lp138483%_ + _%rest138510%_ '#f '() (cons (cons 'runtime: - (_%make-import-path138172%_ _%in138237%_)) - _%r138318%_))) + (_%make-import-path138446%_ _%in138511%_)) + _%r138592%_))) '#!void)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%rest138215138223%_)) - (let ((_%hd138220138323%_ + (##pair? _%rest138489138497%_)) + (let ((_%hd138494138597%_ (let () (declare (not safe)) - (##car _%rest138215138223%_))) - (_%tl138221138325%_ + (##car _%rest138489138497%_))) + (_%tl138495138599%_ (let () (declare (not safe)) - (##cdr _%rest138215138223%_)))) - (let* ((_%in138328%_ - _%hd138220138323%_) - (_%rest138330%_ - _%tl138221138325%_)) - (_%K138219138320%_ - _%rest138330%_ - _%in138328%_))) - (_%else138217138233%_))))) - _%tl138180138195%_))) - (_%g138175138185%_ _%g138176138188%_))))) - (_%g138174138332%_ _%stx138168%_))))) + (##cdr _%rest138489138497%_)))) + (let* ((_%in138602%_ + _%hd138494138597%_) + (_%rest138604%_ + _%tl138495138599%_)) + (_%K138493138594%_ + _%rest138604%_ + _%in138602%_))) + (_%else138491138507%_))))) + _%tl138454138469%_))) + (_%g138449138459%_ _%g138450138462%_))))) + (_%g138448138606%_ _%stx138442%_))))) (define gxc#generate-meta-export% - (lambda (_%self137977%_ _%stx137978%_) - (letrec* ((_%context-chain137980%_ (gxc#current-context-chain)) - (_%make-import-path137981%_ - (lambda (_%ctx138165%_) + (lambda (_%self138251%_ _%stx138252%_) + (letrec* ((_%context-chain138254%_ (gxc#current-context-chain)) + (_%make-import-path138255%_ + (lambda (_%ctx138439%_) (gxc#generate-meta-import-path - _%ctx138165%_ - _%context-chain137980%_)))) - (let* ((_%g137983137993%_ - (lambda (_%g137984137990%_) + _%ctx138439%_ + _%context-chain138254%_)))) + (let* ((_%g138257138267%_ + (lambda (_%g138258138264%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137984137990%_)))) - (_%g137982138162%_ - (lambda (_%g137984137996%_) + _%g138258138264%_)))) + (_%g138256138436%_ + (lambda (_%g138258138270%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137984137996%_)) - (let ((_%e137986137998%_ + (gx#stx-pair? _%g138258138270%_)) + (let ((_%e138260138272%_ (let () (declare (not safe)) - (gx#stx-e _%g137984137996%_)))) - (let ((_%hd137987138001%_ + (gx#stx-e _%g138258138270%_)))) + (let ((_%hd138261138275%_ (let () (declare (not safe)) - (##car _%e137986137998%_))) - (_%tl137988138003%_ + (##car _%e138260138272%_))) + (_%tl138262138277%_ (let () (declare (not safe)) - (##cdr _%e137986137998%_)))) - ((lambda (_%L138006%_) - (let _%lp138017%_ ((_%rest138019%_ _%L138006%_) - (_%r138020%_ '())) - (let* ((_%rest138021138029%_ _%rest138019%_) - (_%else138023138037%_ + (##cdr _%e138260138272%_)))) + ((lambda (_%L138280%_) + (let _%lp138291%_ ((_%rest138293%_ _%L138280%_) + (_%r138294%_ '())) + (let* ((_%rest138295138303%_ _%rest138293%_) + (_%else138297138311%_ (lambda () (cons '%#export - (reverse _%r138020%_)))) - (_%K138025138150%_ - (lambda (_%rest138040%_ _%out138041%_) - (let* ((_%out138042138055%_ - _%out138041%_) - (_%E138045138059%_ + (reverse _%r138294%_)))) + (_%K138299138424%_ + (lambda (_%rest138314%_ _%out138315%_) + (let* ((_%out138316138329%_ + _%out138315%_) + (_%E138319138333%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%out138042138055%_ + _%out138316138329%_ '((module-export ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _ @@ -13711,501 +13711,501 @@ '((export-set src phi)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#!void))) - (let ((_%K138049138129%_ - (lambda (_%name138125%_ - _%phi138126%_ - _%key138127%_) - (_%lp138017%_ - _%rest138040%_ + (let ((_%K138323138403%_ + (lambda (_%name138399%_ + _%phi138400%_ + _%key138401%_) + (_%lp138291%_ + _%rest138314%_ (cons (cons 'spec: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%phi138126%_ + (cons _%phi138400%_ (cons (gxc#generate-runtime-identifier-key - _%key138127%_) + _%key138401%_) (cons (gxc#generate-runtime-identifier-key - _%name138125%_) + _%name138399%_) '())))) - _%r138020%_)))) + _%r138294%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K138046138109%_ - (lambda (_%phi138063%_ - _%src138064%_) - (let* ((_%out138104%_ - (if _%src138064%_ + (_%K138320138383%_ + (lambda (_%phi138337%_ + _%src138338%_) + (let* ((_%out138378%_ + (if _%src138338%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'import: - (cons (let* ((_%g138065138074%_ - (_%make-import-path137981%_ - _%src138064%_)) - (_%E138068138078%_ + (cons (let* ((_%g138339138348%_ + (_%make-import-path138255%_ + _%src138338%_)) + (_%E138342138352%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g138065138074%_ + _%g138339138348%_ '([path]) '(path))) '#!void))) - (let ((_%K138070138094%_ - (lambda (_%path138092%_) - _%path138092%_)) - (_%K138069138084%_ - (lambda (_%path138082%_) - (cons 'in: _%path138082%_)))) + (let ((_%K138344138368%_ + (lambda (_%path138366%_) + _%path138366%_)) + (_%K138343138358%_ + (lambda (_%path138356%_) + (cons 'in: _%path138356%_)))) (if (let () (declare (not safe)) - (##pair? _%g138065138074%_)) - (let ((_%tl138072138099%_ + (##pair? _%g138339138348%_)) + (let ((_%tl138346138373%_ (let () (declare (not safe)) - (##cdr _%g138065138074%_))) - (_%hd138071138097%_ + (##cdr _%g138339138348%_))) + (_%hd138345138371%_ (let () (declare (not safe)) - (##car _%g138065138074%_)))) + (##car _%g138339138348%_)))) (if (let () (declare (not safe)) - (##null? _%tl138072138099%_)) - (let ((_%path138102%_ - _%hd138071138097%_)) - (_%K138070138094%_ - _%path138102%_)) - (let ((_%path138087%_ - _%g138065138074%_)) - (_%K138069138084%_ - _%path138087%_)))) - (let ((_%path138087%_ - _%g138065138074%_)) - (_%K138069138084%_ - _%path138087%_))))) + (##null? _%tl138346138373%_)) + (let ((_%path138376%_ + _%hd138345138371%_)) + (_%K138344138368%_ + _%path138376%_)) + (let ((_%path138361%_ + _%g138339138348%_)) + (_%K138343138358%_ + _%path138361%_)))) + (let ((_%path138361%_ + _%g138339138348%_)) + (_%K138343138358%_ + _%path138361%_))))) '())) '#t)) - (_%out138106%_ - (if (fxzero? _%phi138063%_) - _%out138104%_ + (_%out138380%_ + (if (fxzero? _%phi138337%_) + _%out138378%_ (cons 'phi: - (cons _%phi138063%_ - (cons _%out138104%_ '())))))) - (_%lp138017%_ - _%rest138040%_ - (cons _%out138106%_ _%r138020%_)))))) + (cons _%phi138337%_ + (cons _%out138378%_ '())))))) + (_%lp138291%_ + _%rest138314%_ + (cons _%out138380%_ _%r138294%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%try-match138044138122%_ + (let ((_%try-match138318138396%_ (lambda () (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%out138042138055%_ + _%out138316138329%_ 'gx#export-set::t)) - (let* ((_%e138047138112%_ + (let* ((_%e138321138386%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _%out138042138055%_ + _%out138316138329%_ '1 '#f '#f))) - (_%e138048138117%_ + (_%e138322138391%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out138042138055%_ + _%out138316138329%_ '2 '#f '#f)))) - (let ((_%src138115%_ _%e138047138112%_) - (_%phi138120%_ _%e138048138117%_)) - (_%K138046138109%_ _%phi138120%_ _%src138115%_))) - (_%E138045138059%_))))) + (let ((_%src138389%_ _%e138321138386%_) + (_%phi138394%_ _%e138322138391%_)) + (_%K138320138383%_ _%phi138394%_ _%src138389%_))) + (_%E138319138333%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%out138042138055%_ + _%out138316138329%_ 'gx#module-export::t)) - (let* ((_%e138050138132%_ + (let* ((_%e138324138406%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _%out138042138055%_ + _%out138316138329%_ '1 '#f '#f))) - (_%e138051138135%_ + (_%e138325138409%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out138042138055%_ + _%out138316138329%_ '2 '#f '#f))) - (_%e138052138140%_ + (_%e138326138414%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out138042138055%_ + _%out138316138329%_ '3 '#f '#f))) - (_%e138053138145%_ + (_%e138327138419%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out138042138055%_ + _%out138316138329%_ '4 '#f '#f)))) - (let ((_%key138138%_ _%e138051138135%_) - (_%phi138143%_ _%e138052138140%_) - (_%name138148%_ _%e138053138145%_)) - (_%K138049138129%_ - _%name138148%_ - _%phi138143%_ - _%key138138%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%try-match138044138122%_)))))))) + (let ((_%key138412%_ _%e138325138409%_) + (_%phi138417%_ _%e138326138414%_) + (_%name138422%_ _%e138327138419%_)) + (_%K138323138403%_ + _%name138422%_ + _%phi138417%_ + _%key138412%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%try-match138318138396%_)))))))) (if (let () (declare (not safe)) - (##pair? _%rest138021138029%_)) - (let ((_%hd138026138153%_ + (##pair? _%rest138295138303%_)) + (let ((_%hd138300138427%_ (let () (declare (not safe)) - (##car _%rest138021138029%_))) - (_%tl138027138155%_ + (##car _%rest138295138303%_))) + (_%tl138301138429%_ (let () (declare (not safe)) - (##cdr _%rest138021138029%_)))) - (let* ((_%out138158%_ - _%hd138026138153%_) - (_%rest138160%_ - _%tl138027138155%_)) - (_%K138025138150%_ - _%rest138160%_ - _%out138158%_))) - (_%else138023138037%_))))) - _%tl137988138003%_))) - (_%g137983137993%_ _%g137984137996%_))))) - (_%g137982138162%_ _%stx137978%_))))) + (##cdr _%rest138295138303%_)))) + (let* ((_%out138432%_ + _%hd138300138427%_) + (_%rest138434%_ + _%tl138301138429%_)) + (_%K138299138424%_ + _%rest138434%_ + _%out138432%_))) + (_%else138297138311%_))))) + _%tl138262138277%_))) + (_%g138257138267%_ _%g138258138270%_))))) + (_%g138256138436%_ _%stx138252%_))))) (define gxc#generate-meta-provide% - (lambda (_%self137938%_ _%stx137939%_) + (lambda (_%self138212%_ _%stx138213%_) (gxc#meta-state-end-phi! - (let () (declare (not safe)) (slot-ref__0 _%self137938%_ 'state))) - (let* ((_%g137941137951%_ - (lambda (_%g137942137948%_) + (let () (declare (not safe)) (slot-ref__0 _%self138212%_ 'state))) + (let* ((_%g138215138225%_ + (lambda (_%g138216138222%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137942137948%_)))) - (_%g137940137974%_ - (lambda (_%g137942137954%_) + _%g138216138222%_)))) + (_%g138214138248%_ + (lambda (_%g138216138228%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137942137954%_)) - (let ((_%e137944137956%_ + (gx#stx-pair? _%g138216138228%_)) + (let ((_%e138218138230%_ (let () (declare (not safe)) - (gx#stx-e _%g137942137954%_)))) - (let ((_%hd137945137959%_ + (gx#stx-e _%g138216138228%_)))) + (let ((_%hd138219138233%_ (let () (declare (not safe)) - (##car _%e137944137956%_))) - (_%tl137946137961%_ + (##car _%e138218138230%_))) + (_%tl138220138235%_ (let () (declare (not safe)) - (##cdr _%e137944137956%_)))) - ((lambda (_%L137964%_) + (##cdr _%e138218138230%_)))) + ((lambda (_%L138238%_) (cons '%#provide (map gxc#generate-runtime-identifier - _%L137964%_))) - _%tl137946137961%_))) - (_%g137941137951%_ _%g137942137954%_))))) - (_%g137940137974%_ _%stx137939%_)))) + _%L138238%_))) + _%tl138220138235%_))) + (_%g138215138225%_ _%g138216138228%_))))) + (_%g138214138248%_ _%stx138213%_)))) (define gxc#generate-meta-extern% - (lambda (_%self137809%_ _%stx137810%_) - (letrec ((_%generate1137812%_ - (lambda (_%id137933%_ _%eid137934%_) - (let ((_%eid137936%_ + (lambda (_%self138083%_ _%stx138084%_) + (letrec ((_%generate1138086%_ + (lambda (_%id138207%_ _%eid138208%_) + (let ((_%eid138210%_ (let () (declare (not safe)) - (gx#stx-e _%eid137934%_)))) + (gx#stx-e _%eid138208%_)))) (if (let () (declare (not safe)) - (interned-symbol? _%eid137936%_)) + (interned-symbol? _%eid138210%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile extern reference" - _%stx137810%_ - _%eid137936%_))) - (cons (gxc#generate-runtime-identifier _%id137933%_) - (cons _%eid137936%_ '())))))) - (let* ((_%g137814137842%_ - (lambda (_%g137815137839%_) + _%stx138084%_ + _%eid138210%_))) + (cons (gxc#generate-runtime-identifier _%id138207%_) + (cons _%eid138210%_ '())))))) + (let* ((_%g138088138116%_ + (lambda (_%g138089138113%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137815137839%_)))) - (_%g137813137930%_ - (lambda (_%g137815137845%_) + _%g138089138113%_)))) + (_%g138087138204%_ + (lambda (_%g138089138119%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137815137845%_)) - (let ((_%e137818137847%_ + (gx#stx-pair? _%g138089138119%_)) + (let ((_%e138092138121%_ (let () (declare (not safe)) - (gx#stx-e _%g137815137845%_)))) - (let ((_%hd137819137850%_ + (gx#stx-e _%g138089138119%_)))) + (let ((_%hd138093138124%_ (let () (declare (not safe)) - (##car _%e137818137847%_))) - (_%tl137820137852%_ + (##car _%e138092138121%_))) + (_%tl138094138126%_ (let () (declare (not safe)) - (##cdr _%e137818137847%_)))) + (##cdr _%e138092138121%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl137820137852%_)) - (let ((_g147608_ + (gx#stx-pair/null? _%tl138094138126%_)) + (let ((_g147882_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl137820137852%_ + _%tl138094138126%_ '0)))) (begin - (let ((_g147609_ + (let ((_g147883_ (let () (declare (not safe)) - (if (##values? _g147608_) - (##vector-length _g147608_) + (if (##values? _g147882_) + (##vector-length _g147882_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g147609_ 2))) + (##fx= _g147883_ 2))) (error "Context expects 2 values" - _g147609_))) - (let ((_%target137821137855%_ + _g147883_))) + (let ((_%target138095138129%_ (let () (declare (not safe)) - (##vector-ref _g147608_ 0))) - (_%tl137823137857%_ + (##vector-ref _g147882_ 0))) + (_%tl138097138131%_ (let () (declare (not safe)) - (##vector-ref _g147608_ 1)))) + (##vector-ref _g147882_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl137823137857%_)) - (letrec ((_%loop137824137860%_ - (lambda (_%hd137822137863%_ - _%eid137828137865%_ - _%id137829137867%_) + (gx#stx-null? _%tl138097138131%_)) + (letrec ((_%loop138098138134%_ + (lambda (_%hd138096138137%_ + _%eid138102138139%_ + _%id138103138141%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd137822137863%_)) - (let ((_%e137825137870%_ + _%hd138096138137%_)) + (let ((_%e138099138144%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd137822137863%_)))) - (let ((_%lp-hd137826137873%_ + (gx#stx-e _%hd138096138137%_)))) + (let ((_%lp-hd138100138147%_ (let () (declare (not safe)) - (##car _%e137825137870%_))) - (_%lp-tl137827137875%_ + (##car _%e138099138144%_))) + (_%lp-tl138101138149%_ (let () (declare (not safe)) - (##cdr _%e137825137870%_)))) + (##cdr _%e138099138144%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd137826137873%_)) - (let ((_%e137832137878%_ + (gx#stx-pair? _%lp-hd138100138147%_)) + (let ((_%e138106138152%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd137826137873%_)))) - (let ((_%hd137833137881%_ + (gx#stx-e _%lp-hd138100138147%_)))) + (let ((_%hd138107138155%_ (let () (declare (not safe)) - (##car _%e137832137878%_))) - (_%tl137834137883%_ + (##car _%e138106138152%_))) + (_%tl138108138157%_ (let () (declare (not safe)) - (##cdr _%e137832137878%_)))) + (##cdr _%e138106138152%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137834137883%_)) - (let ((_%e137835137886%_ + (gx#stx-pair? _%tl138108138157%_)) + (let ((_%e138109138160%_ (let () (declare (not safe)) - (gx#stx-e _%tl137834137883%_)))) - (let ((_%hd137836137889%_ + (gx#stx-e _%tl138108138157%_)))) + (let ((_%hd138110138163%_ (let () (declare (not safe)) - (##car _%e137835137886%_))) - (_%tl137837137891%_ + (##car _%e138109138160%_))) + (_%tl138111138165%_ (let () (declare (not safe)) - (##cdr _%e137835137886%_)))) + (##cdr _%e138109138160%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl137837137891%_)) - (_%loop137824137860%_ - _%lp-tl137827137875%_ - (cons _%hd137836137889%_ - _%eid137828137865%_) - (cons _%hd137833137881%_ - _%id137829137867%_)) - (_%g137814137842%_ - _%g137815137845%_)))) - (_%g137814137842%_ _%g137815137845%_)))) - (_%g137814137842%_ _%g137815137845%_)))) - (let ((_%eid137830137894%_ (reverse _%eid137828137865%_)) - (_%id137831137896%_ (reverse _%id137829137867%_))) - ((lambda (_%L137899%_ _%L137900%_) + (gx#stx-null? _%tl138111138165%_)) + (_%loop138098138134%_ + _%lp-tl138101138149%_ + (cons _%hd138110138163%_ + _%eid138102138139%_) + (cons _%hd138107138155%_ + _%id138103138141%_)) + (_%g138088138116%_ + _%g138089138119%_)))) + (_%g138088138116%_ _%g138089138119%_)))) + (_%g138088138116%_ _%g138089138119%_)))) + (let ((_%eid138104138168%_ (reverse _%eid138102138139%_)) + (_%id138105138170%_ (reverse _%id138103138141%_))) + ((lambda (_%L138173%_ _%L138174%_) (cons '%#extern - (map _%generate1137812%_ - (let ((__tmp147610 - (lambda (_%g137915137918%_ - _%g137916137920%_) - (cons _%g137915137918%_ - _%g137916137920%_)))) + (map _%generate1138086%_ + (let ((__tmp147884 + (lambda (_%g138189138192%_ + _%g138190138194%_) + (cons _%g138189138192%_ + _%g138190138194%_)))) (declare (not safe)) - (__foldr1 __tmp147610 '() _%L137900%_)) - (let ((__tmp147611 - (lambda (_%g137922137925%_ - _%g137923137927%_) - (cons _%g137922137925%_ - _%g137923137927%_)))) + (__foldr1 __tmp147884 '() _%L138174%_)) + (let ((__tmp147885 + (lambda (_%g138196138199%_ + _%g138197138201%_) + (cons _%g138196138199%_ + _%g138197138201%_)))) (declare (not safe)) - (__foldr1 __tmp147611 '() _%L137899%_))))) - _%eid137830137894%_ - _%id137831137896%_)))))) + (__foldr1 __tmp147885 '() _%L138173%_))))) + _%eid138104138168%_ + _%id138105138170%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop137824137860%_ - _%target137821137855%_ + (_%loop138098138134%_ + _%target138095138129%_ '() '())) - (_%g137814137842%_ - _%g137815137845%_))))) - (_%g137814137842%_ _%g137815137845%_)))) - (_%g137814137842%_ _%g137815137845%_))))) - (_%g137813137930%_ _%stx137810%_))))) + (_%g138088138116%_ + _%g138089138119%_))))) + (_%g138088138116%_ _%g138089138119%_)))) + (_%g138088138116%_ _%g138089138119%_))))) + (_%g138087138204%_ _%stx138084%_))))) (define gxc#generate-meta-define-values% - (lambda (_%self137599%_ _%stx137600%_) - (letrec ((_%generate1137602%_ - (lambda (_%id137804%_) - (let ((_%eid137806%_ + (lambda (_%self137873%_ _%stx137874%_) + (letrec ((_%generate1137876%_ + (lambda (_%id138078%_) + (let ((_%eid138080%_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _%id137804%_))) - (_%ident137807%_ - (gxc#generate-runtime-identifier _%id137804%_))) + (gxc#generate-runtime-binding-id _%id138078%_))) + (_%ident138081%_ + (gxc#generate-runtime-identifier _%id138078%_))) (cons '%#define-runtime - (cons _%ident137807%_ (cons _%eid137806%_ '())))))) - (_%generate*137603%_ - (lambda (_%all137772%_) - (let* ((_%all137773137781%_ _%all137772%_) - (_%else137775137789%_ - (lambda () (cons '%#begin _%all137772%_))) - (_%K137777137794%_ - (lambda (_%one137792%_) _%one137792%_))) + (cons _%ident138081%_ (cons _%eid138080%_ '())))))) + (_%generate*137877%_ + (lambda (_%all138046%_) + (let* ((_%all138047138055%_ _%all138046%_) + (_%else138049138063%_ + (lambda () (cons '%#begin _%all138046%_))) + (_%K138051138068%_ + (lambda (_%one138066%_) _%one138066%_))) (if (let () (declare (not safe)) - (##pair? _%all137773137781%_)) - (let ((_%hd137778137797%_ + (##pair? _%all138047138055%_)) + (let ((_%hd138052138071%_ (let () (declare (not safe)) - (##car _%all137773137781%_))) - (_%tl137779137799%_ + (##car _%all138047138055%_))) + (_%tl138053138073%_ (let () (declare (not safe)) - (##cdr _%all137773137781%_)))) - (let ((_%one137802%_ _%hd137778137797%_)) + (##cdr _%all138047138055%_)))) + (let ((_%one138076%_ _%hd138052138071%_)) (if (let () (declare (not safe)) - (##null? _%tl137779137799%_)) - (_%K137777137794%_ _%one137802%_) - (_%else137775137789%_)))) - (_%else137775137789%_)))))) - (let* ((_%g137605137622%_ - (lambda (_%g137606137619%_) + (##null? _%tl138053138073%_)) + (_%K138051138068%_ _%one138076%_) + (_%else138049138063%_)))) + (_%else138049138063%_)))))) + (let* ((_%g137879137896%_ + (lambda (_%g137880137893%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137606137619%_)))) - (_%g137604137769%_ - (lambda (_%g137606137625%_) + _%g137880137893%_)))) + (_%g137878138043%_ + (lambda (_%g137880137899%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137606137625%_)) - (let ((_%e137609137627%_ + (gx#stx-pair? _%g137880137899%_)) + (let ((_%e137883137901%_ (let () (declare (not safe)) - (gx#stx-e _%g137606137625%_)))) - (let ((_%hd137610137630%_ + (gx#stx-e _%g137880137899%_)))) + (let ((_%hd137884137904%_ (let () (declare (not safe)) - (##car _%e137609137627%_))) - (_%tl137611137632%_ + (##car _%e137883137901%_))) + (_%tl137885137906%_ (let () (declare (not safe)) - (##cdr _%e137609137627%_)))) + (##cdr _%e137883137901%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137611137632%_)) - (let ((_%e137612137635%_ + (gx#stx-pair? _%tl137885137906%_)) + (let ((_%e137886137909%_ (let () (declare (not safe)) - (gx#stx-e _%tl137611137632%_)))) - (let ((_%hd137613137638%_ + (gx#stx-e _%tl137885137906%_)))) + (let ((_%hd137887137912%_ (let () (declare (not safe)) - (##car _%e137612137635%_))) - (_%tl137614137640%_ + (##car _%e137886137909%_))) + (_%tl137888137914%_ (let () (declare (not safe)) - (##cdr _%e137612137635%_)))) + (##cdr _%e137886137909%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137614137640%_)) - (let ((_%e137615137643%_ + (gx#stx-pair? _%tl137888137914%_)) + (let ((_%e137889137917%_ (let () (declare (not safe)) (gx#stx-e - _%tl137614137640%_)))) - (let ((_%hd137616137646%_ + _%tl137888137914%_)))) + (let ((_%hd137890137920%_ (let () (declare (not safe)) - (##car _%e137615137643%_))) - (_%tl137617137648%_ + (##car _%e137889137917%_))) + (_%tl137891137922%_ (let () (declare (not safe)) - (##cdr _%e137615137643%_)))) + (##cdr _%e137889137917%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137617137648%_)) - ((lambda (_%L137651%_ - _%L137652%_) - (let _%lp137668%_ ((_%rest137670%_ + _%tl137891137922%_)) + ((lambda (_%L137925%_ + _%L137926%_) + (let _%lp137942%_ ((_%rest137944%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L137652%_) - (_%r137671%_ '())) + _%L137926%_) + (_%r137945%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__stx147347147348%_ - _%rest137670%_) - (_%g137676137693%_ + (let* ((_%__stx147621147622%_ + _%rest137944%_) + (_%g137950137967%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -14213,160 +14213,160 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147347147348%_))))) - (let ((_%__kont147349147350%_ - (lambda (_%L137756%_) - (_%lp137668%_ _%L137756%_ _%r137671%_))) - (_%__kont147351147352%_ - (lambda (_%L137729%_ _%L137730%_) - (_%lp137668%_ - _%L137729%_ - (cons (_%generate1137602%_ _%L137730%_) - _%r137671%_)))) - (_%__kont147353147354%_ - (lambda (_%L137705%_) - (_%generate*137603%_ - (let ((__tmp147612 - (cons (_%generate1137602%_ _%L137705%_) '()))) + _%__stx147621147622%_))))) + (let ((_%__kont147623147624%_ + (lambda (_%L138030%_) + (_%lp137942%_ _%L138030%_ _%r137945%_))) + (_%__kont147625147626%_ + (lambda (_%L138003%_ _%L138004%_) + (_%lp137942%_ + _%L138003%_ + (cons (_%generate1137876%_ _%L138004%_) + _%r137945%_)))) + (_%__kont147627147628%_ + (lambda (_%L137979%_) + (_%generate*137877%_ + (let ((__tmp147886 + (cons (_%generate1137876%_ _%L137979%_) '()))) (declare (not safe)) - (__foldl1 cons __tmp147612 _%r137671%_))))) - (_%__kont147355147356%_ - (lambda () (_%generate*137603%_ (reverse _%r137671%_))))) - (let ((_%g137674137716%_ + (__foldl1 cons __tmp147886 _%r137945%_))))) + (_%__kont147629147630%_ + (lambda () (_%generate*137877%_ (reverse _%r137945%_))))) + (let ((_%g137948137990%_ (lambda () - (let ((_%L137705%_ _%__stx147347147348%_)) + (let ((_%L137979%_ _%__stx147621147622%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L137705%_)) - (_%__kont147353147354%_ _%L137705%_) - (_%__kont147355147356%_)))))) + (gx#identifier? _%L137979%_)) + (_%__kont147627147628%_ _%L137979%_) + (_%__kont147629147630%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147347147348%_)) - (let ((_%e137679137745%_ + (gx#stx-pair? _%__stx147621147622%_)) + (let ((_%e137953138019%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147347147348%_)))) - (let ((_%tl137681137750%_ + (gx#stx-e _%__stx147621147622%_)))) + (let ((_%tl137955138024%_ (let () (declare (not safe)) - (##cdr _%e137679137745%_))) - (_%hd137680137748%_ + (##cdr _%e137953138019%_))) + (_%hd137954138022%_ (let () (declare (not safe)) - (##car _%e137679137745%_)))) + (##car _%e137953138019%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd137680137748%_)) - (let ((_%e137682137753%_ + (gx#stx-datum? _%hd137954138022%_)) + (let ((_%e137956138027%_ (let () (declare (not safe)) - (gx#stx-e _%hd137680137748%_)))) - (if (equal? _%e137682137753%_ '#f) - (_%__kont147349147350%_ - _%tl137681137750%_) - (_%__kont147351147352%_ - _%tl137681137750%_ - _%hd137680137748%_))) - (_%__kont147351147352%_ - _%tl137681137750%_ - _%hd137680137748%_)))) - (let () (declare (not safe)) (_%g137674137716%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd137616137646%_ - _%hd137613137638%_) - (_%g137605137622%_ - _%g137606137625%_)))) - (_%g137605137622%_ - _%g137606137625%_)))) - (_%g137605137622%_ _%g137606137625%_)))) - (_%g137605137622%_ _%g137606137625%_))))) - (_%g137604137769%_ _%stx137600%_))))) + (gx#stx-e _%hd137954138022%_)))) + (if (equal? _%e137956138027%_ '#f) + (_%__kont147623147624%_ + _%tl137955138024%_) + (_%__kont147625147626%_ + _%tl137955138024%_ + _%hd137954138022%_))) + (_%__kont147625147626%_ + _%tl137955138024%_ + _%hd137954138022%_)))) + (let () (declare (not safe)) (_%g137948137990%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd137890137920%_ + _%hd137887137912%_) + (_%g137879137896%_ + _%g137880137899%_)))) + (_%g137879137896%_ + _%g137880137899%_)))) + (_%g137879137896%_ _%g137880137899%_)))) + (_%g137879137896%_ _%g137880137899%_))))) + (_%g137878138043%_ _%stx137874%_))))) (define gxc#generate-meta-define-syntax% - (lambda (_%self137496%_ _%stx137497%_) - (let* ((_%g137499137516%_ - (lambda (_%g137500137513%_) + (lambda (_%self137770%_ _%stx137771%_) + (let* ((_%g137773137790%_ + (lambda (_%g137774137787%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137500137513%_)))) - (_%g137498137596%_ - (lambda (_%g137500137519%_) + _%g137774137787%_)))) + (_%g137772137870%_ + (lambda (_%g137774137793%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137500137519%_)) - (let ((_%e137503137521%_ + (gx#stx-pair? _%g137774137793%_)) + (let ((_%e137777137795%_ (let () (declare (not safe)) - (gx#stx-e _%g137500137519%_)))) - (let ((_%hd137504137524%_ + (gx#stx-e _%g137774137793%_)))) + (let ((_%hd137778137798%_ (let () (declare (not safe)) - (##car _%e137503137521%_))) - (_%tl137505137526%_ + (##car _%e137777137795%_))) + (_%tl137779137800%_ (let () (declare (not safe)) - (##cdr _%e137503137521%_)))) + (##cdr _%e137777137795%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137505137526%_)) - (let ((_%e137506137529%_ + (gx#stx-pair? _%tl137779137800%_)) + (let ((_%e137780137803%_ (let () (declare (not safe)) - (gx#stx-e _%tl137505137526%_)))) - (let ((_%hd137507137532%_ + (gx#stx-e _%tl137779137800%_)))) + (let ((_%hd137781137806%_ (let () (declare (not safe)) - (##car _%e137506137529%_))) - (_%tl137508137534%_ + (##car _%e137780137803%_))) + (_%tl137782137808%_ (let () (declare (not safe)) - (##cdr _%e137506137529%_)))) + (##cdr _%e137780137803%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137508137534%_)) - (let ((_%e137509137537%_ + (gx#stx-pair? _%tl137782137808%_)) + (let ((_%e137783137811%_ (let () (declare (not safe)) - (gx#stx-e _%tl137508137534%_)))) - (let ((_%hd137510137540%_ + (gx#stx-e _%tl137782137808%_)))) + (let ((_%hd137784137814%_ (let () (declare (not safe)) - (##car _%e137509137537%_))) - (_%tl137511137542%_ + (##car _%e137783137811%_))) + (_%tl137785137816%_ (let () (declare (not safe)) - (##cdr _%e137509137537%_)))) + (##cdr _%e137783137811%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137511137542%_)) - ((lambda (_%L137545%_ - _%L137546%_) - (let* ((_%eid137561%_ + _%tl137785137816%_)) + ((lambda (_%L137819%_ + _%L137820%_) + (let* ((_%eid137835%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L137546%_))) - (_%phi137563%_ - (let ((__tmp147613 + _%L137820%_))) + (_%phi137837%_ + (let ((__tmp147887 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp147613 '1))) - (_%block137565%_ + (##fx+ __tmp147887 '1))) + (_%block137839%_ (gxc#meta-state-begin-phi! (let () (declare (not safe)) - (slot-ref__0 _%self137496%_ 'state)) - _%phi137563%_))) + (slot-ref__0 _%self137770%_ 'state)) + _%phi137837%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%g137568137575%_ - (lambda (_%g137569137572%_) + (let* ((_%g137842137849%_ + (lambda (_%g137843137846%_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -14374,24 +14374,24 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137569137572%_)))) - (_%g137567137593%_ - (lambda (_%g137569137578%_) - ((lambda (_%L137580%_) + _%g137843137846%_)))) + (_%g137841137867%_ + (lambda (_%g137843137852%_) + ((lambda (_%L137854%_) (gxc#meta-state-add-phi! (let () (declare (not safe)) - (slot-ref__0 _%self137496%_ 'state)) - _%phi137563%_ + (slot-ref__0 _%self137770%_ 'state)) + _%phi137837%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#define-runtime)) - (cons _%L137580%_ (cons _%L137545%_ '()))))) - _%g137569137578%_)))) + (cons _%L137854%_ (cons _%L137819%_ '()))))) + _%g137843137852%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g137567137593%_ - _%eid137561%_)) - (if _%block137565%_ + (_%g137841137867%_ + _%eid137835%_)) + (if _%block137839%_ (cons '%#begin (cons (cons '%#begin-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -14400,7 +14400,7 @@ (cons 'load-module '())) (cons (cons '%#quote - (cons _%block137565%_ + (cons _%block137839%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))) @@ -14408,129 +14408,129 @@ '())) (cons (cons '%#define-syntax (cons (gxc#generate-runtime-identifier - _%L137546%_) - (cons _%eid137561%_ '()))) + _%L137820%_) + (cons _%eid137835%_ '()))) '()))) (cons '%#define-syntax - (cons (gxc#generate-runtime-identifier _%L137546%_) - (cons _%eid137561%_ '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd137510137540%_ - _%hd137507137532%_) - (_%g137499137516%_ - _%g137500137519%_)))) - (_%g137499137516%_ _%g137500137519%_)))) - (_%g137499137516%_ _%g137500137519%_)))) - (_%g137499137516%_ _%g137500137519%_))))) - (_%g137498137596%_ _%stx137497%_)))) + (cons (gxc#generate-runtime-identifier _%L137820%_) + (cons _%eid137835%_ '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd137784137814%_ + _%hd137781137806%_) + (_%g137773137790%_ + _%g137774137793%_)))) + (_%g137773137790%_ _%g137774137793%_)))) + (_%g137773137790%_ _%g137774137793%_)))) + (_%g137773137790%_ _%g137774137793%_))))) + (_%g137772137870%_ _%stx137771%_)))) (define gxc#generate-meta-define-alias% - (lambda (_%self137428%_ _%stx137429%_) - (let* ((_%g137431137448%_ - (lambda (_%g137432137445%_) + (lambda (_%self137702%_ _%stx137703%_) + (let* ((_%g137705137722%_ + (lambda (_%g137706137719%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137432137445%_)))) - (_%g137430137493%_ - (lambda (_%g137432137451%_) + _%g137706137719%_)))) + (_%g137704137767%_ + (lambda (_%g137706137725%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137432137451%_)) - (let ((_%e137435137453%_ + (gx#stx-pair? _%g137706137725%_)) + (let ((_%e137709137727%_ (let () (declare (not safe)) - (gx#stx-e _%g137432137451%_)))) - (let ((_%hd137436137456%_ + (gx#stx-e _%g137706137725%_)))) + (let ((_%hd137710137730%_ (let () (declare (not safe)) - (##car _%e137435137453%_))) - (_%tl137437137458%_ + (##car _%e137709137727%_))) + (_%tl137711137732%_ (let () (declare (not safe)) - (##cdr _%e137435137453%_)))) + (##cdr _%e137709137727%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137437137458%_)) - (let ((_%e137438137461%_ + (gx#stx-pair? _%tl137711137732%_)) + (let ((_%e137712137735%_ (let () (declare (not safe)) - (gx#stx-e _%tl137437137458%_)))) - (let ((_%hd137439137464%_ + (gx#stx-e _%tl137711137732%_)))) + (let ((_%hd137713137738%_ (let () (declare (not safe)) - (##car _%e137438137461%_))) - (_%tl137440137466%_ + (##car _%e137712137735%_))) + (_%tl137714137740%_ (let () (declare (not safe)) - (##cdr _%e137438137461%_)))) + (##cdr _%e137712137735%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137440137466%_)) - (let ((_%e137441137469%_ + (gx#stx-pair? _%tl137714137740%_)) + (let ((_%e137715137743%_ (let () (declare (not safe)) - (gx#stx-e _%tl137440137466%_)))) - (let ((_%hd137442137472%_ + (gx#stx-e _%tl137714137740%_)))) + (let ((_%hd137716137746%_ (let () (declare (not safe)) - (##car _%e137441137469%_))) - (_%tl137443137474%_ + (##car _%e137715137743%_))) + (_%tl137717137748%_ (let () (declare (not safe)) - (##cdr _%e137441137469%_)))) + (##cdr _%e137715137743%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137443137474%_)) - ((lambda (_%L137477%_ - _%L137478%_) + _%tl137717137748%_)) + ((lambda (_%L137751%_ + _%L137752%_) (cons '%#define-alias (cons (gxc#generate-runtime-identifier - _%L137478%_) + _%L137752%_) (cons (gxc#generate-runtime-identifier ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L137477%_) + _%L137751%_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd137442137472%_ - _%hd137439137464%_) - (_%g137431137448%_ - _%g137432137451%_)))) - (_%g137431137448%_ _%g137432137451%_)))) - (_%g137431137448%_ _%g137432137451%_)))) - (_%g137431137448%_ _%g137432137451%_))))) - (_%g137430137493%_ _%stx137429%_)))) + _%hd137716137746%_ + _%hd137713137738%_) + (_%g137705137722%_ + _%g137706137725%_)))) + (_%g137705137722%_ _%g137706137725%_)))) + (_%g137705137722%_ _%g137706137725%_)))) + (_%g137705137722%_ _%g137706137725%_))))) + (_%g137704137767%_ _%stx137703%_)))) (define gxc#generate-meta-phi-define-values% - (lambda (_%self137425%_ _%stx137426%_) + (lambda (_%self137699%_ _%stx137700%_) (gxc#meta-state-add-phi! - (let () (declare (not safe)) (slot-ref__0 _%self137425%_ 'state)) + (let () (declare (not safe)) (slot-ref__0 _%self137699%_ 'state)) (let () (declare (not safe)) (gx#current-expander-phi)) - _%stx137426%_) - (gxc#generate-meta-define-values% _%self137425%_ _%stx137426%_))) + _%stx137700%_) + (gxc#generate-meta-define-values% _%self137699%_ _%stx137700%_))) (define gxc#generate-meta-phi-expr - (lambda (_%self137422%_ _%stx137423%_) + (lambda (_%self137696%_ _%stx137697%_) (gxc#meta-state-add-phi! - (let () (declare (not safe)) (slot-ref__0 _%self137422%_ 'state)) + (let () (declare (not safe)) (slot-ref__0 _%self137696%_ 'state)) (let () (declare (not safe)) (gx#current-expander-phi)) - _%stx137423%_) + _%stx137697%_) '#!void)) (define gxc#meta-state::t - (let ((__tmp147615 (list)) (__tmp147614 (cons (cons 'struct: '#t) '()))) + (let ((__tmp147889 (list)) (__tmp147888 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#meta-state::t 'meta-state - __tmp147615 + __tmp147889 '(src n open blocks) - __tmp147614 + __tmp147888 ':init!))) (define gxc#meta-state? (let () (declare (not safe)) (__make-class-predicate gxc#meta-state::t))) (define gxc#make-meta-state - (lambda _%$args137419%_ - (apply make-instance gxc#meta-state::t _%$args137419%_))) + (lambda _%$args137693%_ + (apply make-instance gxc#meta-state::t _%$args137693%_))) (define gxc#meta-state-src (let () (declare (not safe)) @@ -14596,77 +14596,77 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#meta-state::t 'blocks))) (define gxc#meta-state:::init! - (lambda (_%self136764137403%_ _%ctx137405%_) - (let* ((_%self137407%_ _%self136764137403%_) - (_%self137409%_ _%self137407%_)) - (if (let ((__tmp147616 + (lambda (_%self137038137677%_ _%ctx137679%_) + (let* ((_%self137681%_ _%self137038137677%_) + (_%self137683%_ _%self137681%_)) + (if (let ((__tmp147890 (let () (declare (not safe)) - (##structure-length _%self137409%_)))) + (##structure-length _%self137683%_)))) (declare (not safe)) - (##fx< '4 __tmp147616)) + (##fx< '4 __tmp147890)) (begin - (let ((__tmp147617 - (let ((__tmp147618 + (let ((__tmp147891 + (let ((__tmp147892 (##structure-ref - _%ctx137405%_ + _%ctx137679%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp147618)))) + (gxc#module-id->path-string __tmp147892)))) (declare (not safe)) (##unchecked-structure-set! - _%self137409%_ - __tmp147617 + _%self137683%_ + __tmp147891 '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self137409%_ '1 '2 '#f '#f)) - (let ((__tmp147619 + (##unchecked-structure-set! _%self137683%_ '1 '2 '#f '#f)) + (let ((__tmp147893 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self137409%_ - __tmp147619 + _%self137683%_ + __tmp147893 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self137409%_ '() '4 '#f '#f)) + (##unchecked-structure-set! _%self137683%_ '() '4 '#f '#f)) '#!void) - (let ((__tmp147620 + (let ((__tmp147894 (let () (declare (not safe)) - (##vector-length _%self137409%_)))) + (##vector-length _%self137683%_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _%self137409%_ + _%self137683%_ '4 - __tmp147620)))))) + __tmp147894)))))) (let () (declare (not safe)) (__bind-method!__% gxc#meta-state::t ':init! gxc#meta-state:::init! '#f)) (define gxc#meta-state-block::t - (let ((__tmp147622 (list)) (__tmp147621 (cons (cons 'struct: '#t) '()))) + (let ((__tmp147896 (list)) (__tmp147895 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#meta-state-block::t 'meta-state-block - __tmp147622 + __tmp147896 '(ctx phi n code) - __tmp147621 + __tmp147895 '#f))) (define gxc#meta-state-block? (let () (declare (not safe)) (__make-class-predicate gxc#meta-state-block::t))) (define gxc#make-meta-state-block - (lambda _%$args137278%_ - (apply make-instance gxc#meta-state-block::t _%$args137278%_))) + (lambda _%$args137552%_ + (apply make-instance gxc#meta-state-block::t _%$args137552%_))) (define gxc#meta-state-block-ctx (let () (declare (not safe)) @@ -14732,100 +14732,100 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#meta-state-block::t 'code))) (define gxc#meta-state-begin-phi! - (lambda (_%state137237%_ _%phi137238%_) - (let* ((_%state137239137247%_ _%state137237%_) - (_%E137241137251%_ + (lambda (_%state137511%_ _%phi137512%_) + (let* ((_%state137513137521%_ _%state137511%_) + (_%E137515137525%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%state137239137247%_ + _%state137513137521%_ '((meta-state src n open)))) '#!void)) - (_%K137242137260%_ - (lambda (_%open137254%_ _%n137255%_ _%src137256%_) + (_%K137516137534%_ + (lambda (_%open137528%_ _%n137529%_ _%src137530%_) (if (let () (declare (not safe)) - (hash-get _%open137254%_ _%phi137238%_)) + (hash-get _%open137528%_ _%phi137512%_)) '#f - (let ((_%block-ref137258%_ - (let ((__tmp147623 (number->string _%n137255%_))) + (let ((_%block-ref137532%_ + (let ((__tmp147897 (number->string _%n137529%_))) (declare (not safe)) (##string-append - _%src137256%_ + _%src137530%_ '"~" - __tmp147623)))) + __tmp147897)))) (##structure-set! - _%state137237%_ - (let () (declare (not safe)) (##fx+ _%n137255%_ '1)) + _%state137511%_ + (let () (declare (not safe)) (##fx+ _%n137529%_ '1)) '2 gxc#meta-state::t '#f) - (let ((__tmp147624 - (let ((__tmp147625 + (let ((__tmp147898 + (let ((__tmp147899 (let () (declare (not safe)) (gx#current-expander-context)))) (declare (not safe)) (##structure gxc#meta-state-block::t - __tmp147625 - _%phi137238%_ - _%n137255%_ + __tmp147899 + _%phi137512%_ + _%n137529%_ '())))) (declare (not safe)) - (hash-put! _%open137254%_ _%phi137238%_ __tmp147624)) - _%block-ref137258%_))))) + (hash-put! _%open137528%_ _%phi137512%_ __tmp147898)) + _%block-ref137532%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%state137239137247%_ + _%state137513137521%_ 'gxc#meta-state::t)) - (let* ((_%e137243137263%_ + (let* ((_%e137517137537%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%state137239137247%_ + _%state137513137521%_ '1 '#f '#f))) - (_%src137266%_ _%e137243137263%_) - (_%e137244137268%_ + (_%src137540%_ _%e137517137537%_) + (_%e137518137542%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%state137239137247%_ + _%state137513137521%_ '2 '#f '#f))) - (_%n137271%_ _%e137244137268%_) - (_%e137245137273%_ + (_%n137545%_ _%e137518137542%_) + (_%e137519137547%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%state137239137247%_ + _%state137513137521%_ '3 '#f '#f))) - (_%open137276%_ _%e137245137273%_)) - (_%K137242137260%_ _%open137276%_ _%n137271%_ _%src137266%_)) - (_%E137241137251%_))))) + (_%open137550%_ _%e137519137547%_)) + (_%K137516137534%_ _%open137550%_ _%n137545%_ _%src137540%_)) + (_%E137515137525%_))))) (define gxc#meta-state-add-phi! - (lambda (_%state137231%_ _%phi137232%_ _%stx137233%_) - (let ((_%block137235%_ - (let ((__tmp147626 + (lambda (_%state137505%_ _%phi137506%_ _%stx137507%_) + (let ((_%block137509%_ + (let ((__tmp147900 (##structure-ref - _%state137231%_ + _%state137505%_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-get __tmp147626 _%phi137232%_)))) + (hash-get __tmp147900 _%phi137506%_)))) (##structure-set! - _%block137235%_ - (cons _%stx137233%_ + _%block137509%_ + (cons _%stx137507%_ (##structure-ref - _%block137235%_ + _%block137509%_ '4 gxc#meta-state-block::t '#f)) @@ -14833,264 +14833,264 @@ gxc#meta-state-block::t '#f)))) (define gxc#meta-state-end-phi! - (lambda (_%state137225%_) + (lambda (_%state137499%_) (##structure-set! - _%state137225%_ - (let ((__tmp147629 - (lambda (_%_137227%_ _%block137228%_ _%r137229%_) - (cons _%block137228%_ _%r137229%_))) - (__tmp147628 - (##structure-ref _%state137225%_ '4 gxc#meta-state::t '#f)) - (__tmp147627 - (##structure-ref _%state137225%_ '3 gxc#meta-state::t '#f))) + _%state137499%_ + (let ((__tmp147903 + (lambda (_%_137501%_ _%block137502%_ _%r137503%_) + (cons _%block137502%_ _%r137503%_))) + (__tmp147902 + (##structure-ref _%state137499%_ '4 gxc#meta-state::t '#f)) + (__tmp147901 + (##structure-ref _%state137499%_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-fold __tmp147629 __tmp147628 __tmp147627)) + (hash-fold __tmp147903 __tmp147902 __tmp147901)) '4 gxc#meta-state::t '#f) (##structure-set! - _%state137225%_ + _%state137499%_ (let () (declare (not safe)) (make-hash-table-eq)) '3 gxc#meta-state::t '#f))) (define gxc#meta-state-end! - (lambda (_%state137177%_) - (gxc#meta-state-end-phi! _%state137177%_) - (let ((__tmp147631 - (lambda (_%block137179%_ _%r137180%_) - (let* ((_%block137181137190%_ _%block137179%_) - (_%E137183137194%_ + (lambda (_%state137451%_) + (gxc#meta-state-end-phi! _%state137451%_) + (let ((__tmp147905 + (lambda (_%block137453%_ _%r137454%_) + (let* ((_%block137455137464%_ _%block137453%_) + (_%E137457137468%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block137181137190%_ + _%block137455137464%_ '((meta-state-block ctx phi n code)))) '#!void)) - (_%K137184137202%_ - (lambda (_%code137197%_ - _%n137198%_ - _%phi137199%_ - _%ctx137200%_) - (if (null? _%code137197%_) - _%r137180%_ - (cons (cons _%ctx137200%_ - (cons _%phi137199%_ - (cons _%n137198%_ + (_%K137458137476%_ + (lambda (_%code137471%_ + _%n137472%_ + _%phi137473%_ + _%ctx137474%_) + (if (null? _%code137471%_) + _%r137454%_ + (cons (cons _%ctx137474%_ + (cons _%phi137473%_ + (cons _%n137472%_ (cons (cons '%#begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (reverse _%code137197%_)) + (reverse _%code137471%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r137180%_))))) + _%r137454%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%block137181137190%_ + _%block137455137464%_ 'gxc#meta-state-block::t)) - (let* ((_%e137185137205%_ + (let* ((_%e137459137479%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block137181137190%_ + _%block137455137464%_ '1 '#f '#f))) - (_%ctx137208%_ _%e137185137205%_) - (_%e137186137210%_ + (_%ctx137482%_ _%e137459137479%_) + (_%e137460137484%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block137181137190%_ + _%block137455137464%_ '2 '#f '#f))) - (_%phi137213%_ _%e137186137210%_) - (_%e137187137215%_ + (_%phi137487%_ _%e137460137484%_) + (_%e137461137489%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block137181137190%_ + _%block137455137464%_ '3 '#f '#f))) - (_%n137218%_ _%e137187137215%_) - (_%e137188137220%_ + (_%n137492%_ _%e137461137489%_) + (_%e137462137494%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block137181137190%_ + _%block137455137464%_ '4 '#f '#f))) - (_%code137223%_ _%e137188137220%_)) - (_%K137184137202%_ - _%code137223%_ - _%n137218%_ - _%phi137213%_ - _%ctx137208%_)) - (_%E137183137194%_))))) - (__tmp147630 - (##structure-ref _%state137177%_ '4 gxc#meta-state::t '#f))) + (_%code137497%_ _%e137462137494%_)) + (_%K137458137476%_ + _%code137497%_ + _%n137492%_ + _%phi137487%_ + _%ctx137482%_)) + (_%E137457137468%_))))) + (__tmp147904 + (##structure-ref _%state137451%_ '4 gxc#meta-state::t '#f))) (declare (not safe)) - (__foldl1 __tmp147631 '() __tmp147630)))) + (__foldl1 __tmp147905 '() __tmp147904)))) (define gxc#collect-expression-refs - (lambda (_%stx137173%_) - (let ((_%ht137175%_ + (lambda (_%stx137447%_) + (let ((_%ht137449%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (gxc#apply-collect-expression-refs__% '#f _%ht137175%_ _%stx137173%_) - _%ht137175%_))) + (gxc#apply-collect-expression-refs__% '#f _%ht137449%_ _%stx137447%_) + _%ht137449%_))) (define gxc#collect-refs-ref% - (lambda (_%self137116%_ _%stx137117%_) - (let* ((_%g137119137132%_ - (lambda (_%g137120137129%_) + (lambda (_%self137390%_ _%stx137391%_) + (let* ((_%g137393137406%_ + (lambda (_%g137394137403%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137120137129%_)))) - (_%g137118137170%_ - (lambda (_%g137120137135%_) + _%g137394137403%_)))) + (_%g137392137444%_ + (lambda (_%g137394137409%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137120137135%_)) - (let ((_%e137122137137%_ + (gx#stx-pair? _%g137394137409%_)) + (let ((_%e137396137411%_ (let () (declare (not safe)) - (gx#stx-e _%g137120137135%_)))) - (let ((_%hd137123137140%_ + (gx#stx-e _%g137394137409%_)))) + (let ((_%hd137397137414%_ (let () (declare (not safe)) - (##car _%e137122137137%_))) - (_%tl137124137142%_ + (##car _%e137396137411%_))) + (_%tl137398137416%_ (let () (declare (not safe)) - (##cdr _%e137122137137%_)))) + (##cdr _%e137396137411%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137124137142%_)) - (let ((_%e137125137145%_ + (gx#stx-pair? _%tl137398137416%_)) + (let ((_%e137399137419%_ (let () (declare (not safe)) - (gx#stx-e _%tl137124137142%_)))) - (let ((_%hd137126137148%_ + (gx#stx-e _%tl137398137416%_)))) + (let ((_%hd137400137422%_ (let () (declare (not safe)) - (##car _%e137125137145%_))) - (_%tl137127137150%_ + (##car _%e137399137419%_))) + (_%tl137401137424%_ (let () (declare (not safe)) - (##cdr _%e137125137145%_)))) + (##cdr _%e137399137419%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl137127137150%_)) - ((lambda (_%L137153%_) - (let* ((_%bind137165%_ + (gx#stx-null? _%tl137401137424%_)) + ((lambda (_%L137427%_) + (let* ((_%bind137439%_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _%L137153%_))) - (_%eid137167%_ - (if _%bind137165%_ + _%L137427%_))) + (_%eid137441%_ + (if _%bind137439%_ (##structure-ref - _%bind137165%_ + _%bind137439%_ '1 gx#binding::t '#f) (let () (declare (not safe)) (gx#stx-e - _%L137153%_)))) - (__tmp147632 + _%L137427%_)))) + (__tmp147906 (let () (declare (not safe)) (slot-ref__0 - _%self137116%_ + _%self137390%_ 'table)))) (declare (not safe)) (hash-put! - __tmp147632 - _%eid137167%_ - _%eid137167%_))) - _%hd137126137148%_) - (_%g137119137132%_ _%g137120137135%_)))) - (_%g137119137132%_ _%g137120137135%_)))) - (_%g137119137132%_ _%g137120137135%_))))) - (_%g137118137170%_ _%stx137117%_)))) + __tmp147906 + _%eid137441%_ + _%eid137441%_))) + _%hd137400137422%_) + (_%g137393137406%_ _%g137394137409%_)))) + (_%g137393137406%_ _%g137394137409%_)))) + (_%g137393137406%_ _%g137394137409%_))))) + (_%g137392137444%_ _%stx137391%_)))) (define gxc#collect-refs-setq% - (lambda (_%self137043%_ _%stx137044%_) - (let* ((_%g137046137063%_ - (lambda (_%g137047137060%_) + (lambda (_%self137317%_ _%stx137318%_) + (let* ((_%g137320137337%_ + (lambda (_%g137321137334%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137047137060%_)))) - (_%g137045137113%_ - (lambda (_%g137047137066%_) + _%g137321137334%_)))) + (_%g137319137387%_ + (lambda (_%g137321137340%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137047137066%_)) - (let ((_%e137050137068%_ + (gx#stx-pair? _%g137321137340%_)) + (let ((_%e137324137342%_ (let () (declare (not safe)) - (gx#stx-e _%g137047137066%_)))) - (let ((_%hd137051137071%_ + (gx#stx-e _%g137321137340%_)))) + (let ((_%hd137325137345%_ (let () (declare (not safe)) - (##car _%e137050137068%_))) - (_%tl137052137073%_ + (##car _%e137324137342%_))) + (_%tl137326137347%_ (let () (declare (not safe)) - (##cdr _%e137050137068%_)))) + (##cdr _%e137324137342%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137052137073%_)) - (let ((_%e137053137076%_ + (gx#stx-pair? _%tl137326137347%_)) + (let ((_%e137327137350%_ (let () (declare (not safe)) - (gx#stx-e _%tl137052137073%_)))) - (let ((_%hd137054137079%_ + (gx#stx-e _%tl137326137347%_)))) + (let ((_%hd137328137353%_ (let () (declare (not safe)) - (##car _%e137053137076%_))) - (_%tl137055137081%_ + (##car _%e137327137350%_))) + (_%tl137329137355%_ (let () (declare (not safe)) - (##cdr _%e137053137076%_)))) + (##cdr _%e137327137350%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137055137081%_)) - (let ((_%e137056137084%_ + (gx#stx-pair? _%tl137329137355%_)) + (let ((_%e137330137358%_ (let () (declare (not safe)) - (gx#stx-e _%tl137055137081%_)))) - (let ((_%hd137057137087%_ + (gx#stx-e _%tl137329137355%_)))) + (let ((_%hd137331137361%_ (let () (declare (not safe)) - (##car _%e137056137084%_))) - (_%tl137058137089%_ + (##car _%e137330137358%_))) + (_%tl137332137363%_ (let () (declare (not safe)) - (##cdr _%e137056137084%_)))) + (##cdr _%e137330137358%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137058137089%_)) - ((lambda (_%L137092%_ - _%L137093%_) - (let* ((_%bind137108%_ + _%tl137332137363%_)) + ((lambda (_%L137366%_ + _%L137367%_) + (let* ((_%bind137382%_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _%L137093%_))) - (_%eid137110%_ - (if _%bind137108%_ + _%L137367%_))) + (_%eid137384%_ + (if _%bind137382%_ (##structure-ref - _%bind137108%_ + _%bind137382%_ '1 gx#binding::t '#f) @@ -15098,382 +15098,382 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%L137093%_))))) + (gx#stx-e _%L137367%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp147633 + (let ((__tmp147907 (let () (declare (not safe)) (slot-ref__0 - _%self137043%_ + _%self137317%_ 'table)))) (declare (not safe)) (hash-put! - __tmp147633 - _%eid137110%_ - _%eid137110%_)) + __tmp147907 + _%eid137384%_ + _%eid137384%_)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self137043%_ - _%L137092%_)))) - _%hd137057137087%_ - _%hd137054137079%_) - (_%g137046137063%_ - _%g137047137066%_)))) - (_%g137046137063%_ _%g137047137066%_)))) - (_%g137046137063%_ _%g137047137066%_)))) - (_%g137046137063%_ _%g137047137066%_))))) - (_%g137045137113%_ _%stx137044%_)))) + _%self137317%_ + _%L137366%_)))) + _%hd137331137361%_ + _%hd137328137353%_) + (_%g137320137337%_ + _%g137321137340%_)))) + (_%g137320137337%_ _%g137321137340%_)))) + (_%g137320137337%_ _%g137321137340%_)))) + (_%g137320137337%_ _%g137321137340%_))))) + (_%g137319137387%_ _%stx137318%_)))) (define gxc#find-runtime-begin% - (lambda (_%self137000%_ _%stx137001%_) - (let* ((_%g137003137013%_ - (lambda (_%g137004137010%_) + (lambda (_%self137274%_ _%stx137275%_) + (let* ((_%g137277137287%_ + (lambda (_%g137278137284%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137004137010%_)))) - (_%g137002137040%_ - (lambda (_%g137004137016%_) + _%g137278137284%_)))) + (_%g137276137314%_ + (lambda (_%g137278137290%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137004137016%_)) - (let ((_%e137006137018%_ + (gx#stx-pair? _%g137278137290%_)) + (let ((_%e137280137292%_ (let () (declare (not safe)) - (gx#stx-e _%g137004137016%_)))) - (let ((_%hd137007137021%_ + (gx#stx-e _%g137278137290%_)))) + (let ((_%hd137281137295%_ (let () (declare (not safe)) - (##car _%e137006137018%_))) - (_%tl137008137023%_ + (##car _%e137280137292%_))) + (_%tl137282137297%_ (let () (declare (not safe)) - (##cdr _%e137006137018%_)))) - ((lambda (_%L137026%_) - (let ((__tmp147634 - (lambda (_%g137035137037%_) + (##cdr _%e137280137292%_)))) + ((lambda (_%L137300%_) + (let ((__tmp147908 + (lambda (_%g137309137311%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self137000%_ - _%g137035137037%_))))) + _%self137274%_ + _%g137309137311%_))))) (declare (not safe)) - (__ormap1 __tmp147634 _%L137026%_))) - _%tl137008137023%_))) - (_%g137003137013%_ _%g137004137016%_))))) - (_%g137002137040%_ _%stx137001%_)))) + (__ormap1 __tmp147908 _%L137300%_))) + _%tl137282137297%_))) + (_%g137277137287%_ _%g137278137290%_))))) + (_%g137276137314%_ _%stx137275%_)))) (define gxc#count-values-single% - (lambda (_%self136997%_ _%stx136998%_) '1)) + (lambda (_%self137271%_ _%stx137272%_) '1)) (define gxc#count-values-call% - (lambda (_%self136863%_ _%stx136864%_) - (let* ((_%__stx147377147378%_ _%stx136864%_) - (_%g136867136896%_ + (lambda (_%self137137%_ _%stx137138%_) + (let* ((_%__stx147651147652%_ _%stx137138%_) + (_%g137141137170%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147377147378%_))))) - (let ((_%__kont147379147380%_ - (lambda (_%L136964%_ _%L136965%_) - (length (let ((__tmp147635 - (lambda (_%g136986136989%_ _%g136987136991%_) - (cons _%g136986136989%_ - _%g136987136991%_)))) + _%__stx147651147652%_))))) + (let ((_%__kont147653147654%_ + (lambda (_%L137238%_ _%L137239%_) + (length (let ((__tmp147909 + (lambda (_%g137260137263%_ _%g137261137265%_) + (cons _%g137260137263%_ + _%g137261137265%_)))) (declare (not safe)) - (__foldr1 __tmp147635 '() _%L136964%_))))) - (_%__kont147383147384%_ (lambda () '#f))) - (let ((_%__match147422147423%_ - (lambda (_%e136871136908%_ - _%hd136872136911%_ - _%tl136873136913%_ - _%e136874136916%_ - _%hd136875136919%_ - _%tl136876136921%_ - _%e136877136924%_ - _%hd136878136927%_ - _%tl136879136929%_ - _%e136880136932%_ - _%hd136881136935%_ - _%tl136882136937%_ - _%__splice147381147382%_ - _%target136883136940%_ - _%tl136885136942%_) - (letrec ((_%loop136886136945%_ - (lambda (_%hd136884136948%_ - _%rand136890136950%_) + (__foldr1 __tmp147909 '() _%L137238%_))))) + (_%__kont147657147658%_ (lambda () '#f))) + (let ((_%__match147696147697%_ + (lambda (_%e137145137182%_ + _%hd137146137185%_ + _%tl137147137187%_ + _%e137148137190%_ + _%hd137149137193%_ + _%tl137150137195%_ + _%e137151137198%_ + _%hd137152137201%_ + _%tl137153137203%_ + _%e137154137206%_ + _%hd137155137209%_ + _%tl137156137211%_ + _%__splice147655147656%_ + _%target137157137214%_ + _%tl137159137216%_) + (letrec ((_%loop137160137219%_ + (lambda (_%hd137158137222%_ + _%rand137164137224%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd136884136948%_)) - (let ((_%e136887136953%_ + (gx#stx-pair? _%hd137158137222%_)) + (let ((_%e137161137227%_ (let () (declare (not safe)) - (gx#stx-e _%hd136884136948%_)))) - (let ((_%lp-tl136889136958%_ + (gx#stx-e _%hd137158137222%_)))) + (let ((_%lp-tl137163137232%_ (let () (declare (not safe)) - (##cdr _%e136887136953%_))) - (_%lp-hd136888136956%_ + (##cdr _%e137161137227%_))) + (_%lp-hd137162137230%_ (let () (declare (not safe)) - (##car _%e136887136953%_)))) - (_%loop136886136945%_ - _%lp-tl136889136958%_ - (cons _%lp-hd136888136956%_ - _%rand136890136950%_)))) - (let ((_%rand136891136961%_ - (reverse _%rand136890136950%_))) - (let ((_%L136964%_ _%rand136891136961%_) - (_%L136965%_ _%hd136881136935%_)) + (##car _%e137161137227%_)))) + (_%loop137160137219%_ + _%lp-tl137163137232%_ + (cons _%lp-hd137162137230%_ + _%rand137164137224%_)))) + (let ((_%rand137165137235%_ + (reverse _%rand137164137224%_))) + (let ((_%L137238%_ _%rand137165137235%_) + (_%L137239%_ _%hd137155137209%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L136965%_ + _%L137239%_ 'values)) - (_%__kont147379147380%_ - _%L136964%_ - _%L136965%_) - (_%__kont147383147384%_)))))))) - (_%loop136886136945%_ _%target136883136940%_ '()))))) + (_%__kont147653147654%_ + _%L137238%_ + _%L137239%_) + (_%__kont147657147658%_)))))))) + (_%loop137160137219%_ _%target137157137214%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147377147378%_)) - (let ((_%e136871136908%_ + (gx#stx-pair? _%__stx147651147652%_)) + (let ((_%e137145137182%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147377147378%_)))) - (let ((_%tl136873136913%_ + (gx#stx-e _%__stx147651147652%_)))) + (let ((_%tl137147137187%_ (let () (declare (not safe)) - (##cdr _%e136871136908%_))) - (_%hd136872136911%_ + (##cdr _%e137145137182%_))) + (_%hd137146137185%_ (let () (declare (not safe)) - (##car _%e136871136908%_)))) + (##car _%e137145137182%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136873136913%_)) - (let ((_%e136874136916%_ + (gx#stx-pair? _%tl137147137187%_)) + (let ((_%e137148137190%_ (let () (declare (not safe)) - (gx#stx-e _%tl136873136913%_)))) - (let ((_%tl136876136921%_ + (gx#stx-e _%tl137147137187%_)))) + (let ((_%tl137150137195%_ (let () (declare (not safe)) - (##cdr _%e136874136916%_))) - (_%hd136875136919%_ + (##cdr _%e137148137190%_))) + (_%hd137149137193%_ (let () (declare (not safe)) - (##car _%e136874136916%_)))) + (##car _%e137148137190%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd136875136919%_)) - (let ((_%e136877136924%_ + (gx#stx-pair? _%hd137149137193%_)) + (let ((_%e137151137198%_ (let () (declare (not safe)) - (gx#stx-e _%hd136875136919%_)))) - (let ((_%tl136879136929%_ + (gx#stx-e _%hd137149137193%_)))) + (let ((_%tl137153137203%_ (let () (declare (not safe)) - (##cdr _%e136877136924%_))) - (_%hd136878136927%_ + (##cdr _%e137151137198%_))) + (_%hd137152137201%_ (let () (declare (not safe)) - (##car _%e136877136924%_)))) + (##car _%e137151137198%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd136878136927%_)) + _%hd137152137201%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd136878136927%_)) + _%hd137152137201%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl136879136929%_)) - (let ((_%e136880136932%_ + _%tl137153137203%_)) + (let ((_%e137154137206%_ (let () (declare (not safe)) (gx#stx-e - _%tl136879136929%_)))) - (let ((_%tl136882136937%_ + _%tl137153137203%_)))) + (let ((_%tl137156137211%_ (let () (declare (not safe)) - (##cdr _%e136880136932%_))) - (_%hd136881136935%_ + (##cdr _%e137154137206%_))) + (_%hd137155137209%_ (let () (declare (not safe)) - (##car _%e136880136932%_)))) + (##car _%e137154137206%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136882136937%_)) + _%tl137156137211%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _%tl136876136921%_)) - (let ((_%__splice147381147382%_ + (gx#stx-pair/null? _%tl137150137195%_)) + (let ((_%__splice147655147656%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl136876136921%_ + _%tl137150137195%_ '0)))) - (let ((_%tl136885136942%_ + (let ((_%tl137159137216%_ (let () (declare (not safe)) - (##vector-ref _%__splice147381147382%_ '1))) - (_%target136883136940%_ + (##vector-ref _%__splice147655147656%_ '1))) + (_%target137157137214%_ (let () (declare (not safe)) - (##vector-ref _%__splice147381147382%_ '0)))) + (##vector-ref _%__splice147655147656%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl136885136942%_)) - (_%__match147422147423%_ - _%e136871136908%_ - _%hd136872136911%_ - _%tl136873136913%_ - _%e136874136916%_ - _%hd136875136919%_ - _%tl136876136921%_ - _%e136877136924%_ - _%hd136878136927%_ - _%tl136879136929%_ - _%e136880136932%_ - _%hd136881136935%_ - _%tl136882136937%_ - _%__splice147381147382%_ - _%target136883136940%_ - _%tl136885136942%_) - (_%__kont147383147384%_)))) - (_%__kont147383147384%_)) - (_%__kont147383147384%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147383147384%_)) - (_%__kont147383147384%_)) - (_%__kont147383147384%_)))) - (_%__kont147383147384%_)))) - (_%__kont147383147384%_)))) - (_%__kont147383147384%_))))))) + (gx#stx-null? _%tl137159137216%_)) + (_%__match147696147697%_ + _%e137145137182%_ + _%hd137146137185%_ + _%tl137147137187%_ + _%e137148137190%_ + _%hd137149137193%_ + _%tl137150137195%_ + _%e137151137198%_ + _%hd137152137201%_ + _%tl137153137203%_ + _%e137154137206%_ + _%hd137155137209%_ + _%tl137156137211%_ + _%__splice147655147656%_ + _%target137157137214%_ + _%tl137159137216%_) + (_%__kont147657147658%_)))) + (_%__kont147657147658%_)) + (_%__kont147657147658%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147657147658%_)) + (_%__kont147657147658%_)) + (_%__kont147657147658%_)))) + (_%__kont147657147658%_)))) + (_%__kont147657147658%_)))) + (_%__kont147657147658%_))))))) (define gxc#count-values-if% - (lambda (_%self136766%_ _%stx136767%_) - (let* ((_%g136769136790%_ - (lambda (_%g136770136787%_) + (lambda (_%self137040%_ _%stx137041%_) + (let* ((_%g137043137064%_ + (lambda (_%g137044137061%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136770136787%_)))) - (_%g136768136860%_ - (lambda (_%g136770136793%_) + _%g137044137061%_)))) + (_%g137042137134%_ + (lambda (_%g137044137067%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136770136793%_)) - (let ((_%e136774136795%_ + (gx#stx-pair? _%g137044137067%_)) + (let ((_%e137048137069%_ (let () (declare (not safe)) - (gx#stx-e _%g136770136793%_)))) - (let ((_%hd136775136798%_ + (gx#stx-e _%g137044137067%_)))) + (let ((_%hd137049137072%_ (let () (declare (not safe)) - (##car _%e136774136795%_))) - (_%tl136776136800%_ + (##car _%e137048137069%_))) + (_%tl137050137074%_ (let () (declare (not safe)) - (##cdr _%e136774136795%_)))) + (##cdr _%e137048137069%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136776136800%_)) - (let ((_%e136777136803%_ + (gx#stx-pair? _%tl137050137074%_)) + (let ((_%e137051137077%_ (let () (declare (not safe)) - (gx#stx-e _%tl136776136800%_)))) - (let ((_%hd136778136806%_ + (gx#stx-e _%tl137050137074%_)))) + (let ((_%hd137052137080%_ (let () (declare (not safe)) - (##car _%e136777136803%_))) - (_%tl136779136808%_ + (##car _%e137051137077%_))) + (_%tl137053137082%_ (let () (declare (not safe)) - (##cdr _%e136777136803%_)))) + (##cdr _%e137051137077%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136779136808%_)) - (let ((_%e136780136811%_ + (gx#stx-pair? _%tl137053137082%_)) + (let ((_%e137054137085%_ (let () (declare (not safe)) - (gx#stx-e _%tl136779136808%_)))) - (let ((_%hd136781136814%_ + (gx#stx-e _%tl137053137082%_)))) + (let ((_%hd137055137088%_ (let () (declare (not safe)) - (##car _%e136780136811%_))) - (_%tl136782136816%_ + (##car _%e137054137085%_))) + (_%tl137056137090%_ (let () (declare (not safe)) - (##cdr _%e136780136811%_)))) + (##cdr _%e137054137085%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl136782136816%_)) - (let ((_%e136783136819%_ + _%tl137056137090%_)) + (let ((_%e137057137093%_ (let () (declare (not safe)) (gx#stx-e - _%tl136782136816%_)))) - (let ((_%hd136784136822%_ + _%tl137056137090%_)))) + (let ((_%hd137058137096%_ (let () (declare (not safe)) - (##car _%e136783136819%_))) - (_%tl136785136824%_ + (##car _%e137057137093%_))) + (_%tl137059137098%_ (let () (declare (not safe)) - (##cdr _%e136783136819%_)))) + (##cdr _%e137057137093%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136785136824%_)) - ((lambda (_%L136827%_ - _%L136828%_ - _%L136829%_) - (let ((_%c1136846136848%_ + _%tl137059137098%_)) + ((lambda (_%L137101%_ + _%L137102%_ + _%L137103%_) + (let ((_%c1137120137122%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self136766%_ _%L136828%_)))) - (if _%c1136846136848%_ - (let* ((_%c1136851%_ _%c1136846136848%_) - (_%c2136852136854%_ + (gxc#compile-e__1 _%self137040%_ _%L137102%_)))) + (if _%c1137120137122%_ + (let* ((_%c1137125%_ _%c1137120137122%_) + (_%c2137126137128%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self136766%_ - _%L136827%_)))) - (if _%c2136852136854%_ - (let ((_%c2136857%_ _%c2136852136854%_)) - (if (fx= _%c1136851%_ _%c2136857%_) - _%c1136851%_ + _%self137040%_ + _%L137101%_)))) + (if _%c2137126137128%_ + (let ((_%c2137131%_ _%c2137126137128%_)) + (if (fx= _%c1137125%_ _%c2137131%_) + _%c1137125%_ '#f)) '#f)) '#f))) - _%hd136784136822%_ - _%hd136781136814%_ - _%hd136778136806%_) - (_%g136769136790%_ _%g136770136793%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g136769136790%_ - _%g136770136793%_)))) - (_%g136769136790%_ _%g136770136793%_)))) - (_%g136769136790%_ _%g136770136793%_)))) - (_%g136769136790%_ _%g136770136793%_))))) - (_%g136768136860%_ _%stx136767%_)))))) + _%hd137058137096%_ + _%hd137055137088%_ + _%hd137052137080%_) + (_%g137043137064%_ _%g137044137067%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g137043137064%_ + _%g137044137067%_)))) + (_%g137043137064%_ _%g137044137067%_)))) + (_%g137043137064%_ _%g137044137067%_)))) + (_%g137043137064%_ _%g137044137067%_))))) + (_%g137042137134%_ _%stx137041%_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile~1.scm b/src/bootstrap/gerbil/compiler/compile~1.scm index 51b2bf0a5..08ab138df 100644 --- a/src/bootstrap/gerbil/compiler/compile~1.scm +++ b/src/bootstrap/gerbil/compiler/compile~1.scm @@ -1,671 +1,671 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g147637_| + (define |gxc[1]#_g147911_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147639_| + (define |gxc[1]#_g147913_| (##structure gx#syntax-quote::t '::collect-bindings::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147641_| + (define |gxc[1]#_g147915_| (##structure gx#syntax-quote::t 'make-::collect-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147643_| + (define |gxc[1]#_g147917_| (##structure gx#syntax-quote::t '::collect-bindings? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147646_| + (define |gxc[1]#_g147920_| (##structure gx#syntax-quote::t '::lift-modules::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147648_| + (define |gxc[1]#_g147922_| (##structure gx#syntax-quote::t 'make-::lift-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147650_| + (define |gxc[1]#_g147924_| (##structure gx#syntax-quote::t '::lift-modules? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147652_| + (define |gxc[1]#_g147926_| (##structure gx#syntax-quote::t '::lift-modules-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147654_| + (define |gxc[1]#_g147928_| (##structure gx#syntax-quote::t '::lift-modules-modules-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147656_| + (define |gxc[1]#_g147930_| (##structure gx#syntax-quote::t '&::lift-modules-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147658_| + (define |gxc[1]#_g147932_| (##structure gx#syntax-quote::t '&::lift-modules-modules-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147660_| + (define |gxc[1]#_g147934_| (##structure gx#syntax-quote::t '::find-runtime-code::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147662_| + (define |gxc[1]#_g147936_| (##structure gx#syntax-quote::t 'make-::find-runtime-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147664_| + (define |gxc[1]#_g147938_| (##structure gx#syntax-quote::t '::find-runtime-code? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147666_| + (define |gxc[1]#_g147940_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147668_| + (define |gxc[1]#_g147942_| (##structure gx#syntax-quote::t '::find-lambda-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147670_| + (define |gxc[1]#_g147944_| (##structure gx#syntax-quote::t 'make-::find-lambda-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147672_| + (define |gxc[1]#_g147946_| (##structure gx#syntax-quote::t '::find-lambda-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147674_| + (define |gxc[1]#_g147948_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147676_| + (define |gxc[1]#_g147950_| (##structure gx#syntax-quote::t '::count-values::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147678_| + (define |gxc[1]#_g147952_| (##structure gx#syntax-quote::t 'make-::count-values #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147680_| + (define |gxc[1]#_g147954_| (##structure gx#syntax-quote::t '::count-values? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147682_| + (define |gxc[1]#_g147956_| (##structure gx#syntax-quote::t '::generate-runtime-empty::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147684_| + (define |gxc[1]#_g147958_| (##structure gx#syntax-quote::t 'make-::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147686_| + (define |gxc[1]#_g147960_| (##structure gx#syntax-quote::t '::generate-runtime-empty? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147688_| + (define |gxc[1]#_g147962_| (##structure gx#syntax-quote::t '::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147690_| + (define |gxc[1]#_g147964_| (##structure gx#syntax-quote::t '::generate-loader::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147692_| + (define |gxc[1]#_g147966_| (##structure gx#syntax-quote::t 'make-::generate-loader #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147694_| + (define |gxc[1]#_g147968_| (##structure gx#syntax-quote::t '::generate-loader? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147697_| + (define |gxc[1]#_g147971_| (##structure gx#syntax-quote::t '::generate-runtime::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147699_| + (define |gxc[1]#_g147973_| (##structure gx#syntax-quote::t 'make-::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147701_| + (define |gxc[1]#_g147975_| (##structure gx#syntax-quote::t '::generate-runtime? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147703_| + (define |gxc[1]#_g147977_| (##structure gx#syntax-quote::t '::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147705_| + (define |gxc[1]#_g147979_| (##structure gx#syntax-quote::t '::generate-runtime-phi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147707_| + (define |gxc[1]#_g147981_| (##structure gx#syntax-quote::t 'make-::generate-runtime-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147709_| + (define |gxc[1]#_g147983_| (##structure gx#syntax-quote::t '::generate-runtime-phi? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147711_| + (define |gxc[1]#_g147985_| (##structure gx#syntax-quote::t '::collect-expression-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147713_| + (define |gxc[1]#_g147987_| (##structure gx#syntax-quote::t 'make-::collect-expression-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147715_| + (define |gxc[1]#_g147989_| (##structure gx#syntax-quote::t '::collect-expression-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147717_| + (define |gxc[1]#_g147991_| (##structure gx#syntax-quote::t '::collect-expression-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147719_| + (define |gxc[1]#_g147993_| (##structure gx#syntax-quote::t '::collect-expression-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147721_| + (define |gxc[1]#_g147995_| (##structure gx#syntax-quote::t '&::collect-expression-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147723_| + (define |gxc[1]#_g147997_| (##structure gx#syntax-quote::t '&::collect-expression-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147725_| + (define |gxc[1]#_g147999_| (##structure gx#syntax-quote::t '::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147727_| + (define |gxc[1]#_g148001_| (##structure gx#syntax-quote::t '::generate-meta::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147729_| + (define |gxc[1]#_g148003_| (##structure gx#syntax-quote::t 'make-::generate-meta #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147731_| + (define |gxc[1]#_g148005_| (##structure gx#syntax-quote::t '::generate-meta? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147733_| + (define |gxc[1]#_g148007_| (##structure gx#syntax-quote::t '::generate-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147735_| + (define |gxc[1]#_g148009_| (##structure gx#syntax-quote::t '::generate-meta-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147737_| + (define |gxc[1]#_g148011_| (##structure gx#syntax-quote::t '&::generate-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147739_| + (define |gxc[1]#_g148013_| (##structure gx#syntax-quote::t '&::generate-meta-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147741_| + (define |gxc[1]#_g148015_| (##structure gx#syntax-quote::t '::generate-meta-phi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147743_| + (define |gxc[1]#_g148017_| (##structure gx#syntax-quote::t 'make-::generate-meta-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147745_| + (define |gxc[1]#_g148019_| (##structure gx#syntax-quote::t '::generate-meta-phi? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147747_| + (define |gxc[1]#_g148021_| (##structure gx#syntax-quote::t '::generate-meta-phi-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147749_| + (define |gxc[1]#_g148023_| (##structure gx#syntax-quote::t '::generate-meta-phi-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147751_| + (define |gxc[1]#_g148025_| (##structure gx#syntax-quote::t '&::generate-meta-phi-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147753_| + (define |gxc[1]#_g148027_| (##structure gx#syntax-quote::t '&::generate-meta-phi-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147758_| + (define |gxc[1]#_g148032_| (##structure gx#syntax-quote::t 'meta-state::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147760_| + (define |gxc[1]#_g148034_| (##structure gx#syntax-quote::t 'make-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147762_| + (define |gxc[1]#_g148036_| (##structure gx#syntax-quote::t 'meta-state? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147764_| + (define |gxc[1]#_g148038_| (##structure gx#syntax-quote::t 'meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147765_| + (define |gxc[1]#_g148039_| (##structure gx#syntax-quote::t 'meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147766_| + (define |gxc[1]#_g148040_| (##structure gx#syntax-quote::t 'meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147767_| + (define |gxc[1]#_g148041_| (##structure gx#syntax-quote::t 'meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147769_| + (define |gxc[1]#_g148043_| (##structure gx#syntax-quote::t 'meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147770_| + (define |gxc[1]#_g148044_| (##structure gx#syntax-quote::t 'meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147771_| + (define |gxc[1]#_g148045_| (##structure gx#syntax-quote::t 'meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147772_| + (define |gxc[1]#_g148046_| (##structure gx#syntax-quote::t 'meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147774_| + (define |gxc[1]#_g148048_| (##structure gx#syntax-quote::t '&meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147775_| + (define |gxc[1]#_g148049_| (##structure gx#syntax-quote::t '&meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147776_| + (define |gxc[1]#_g148050_| (##structure gx#syntax-quote::t '&meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147777_| + (define |gxc[1]#_g148051_| (##structure gx#syntax-quote::t '&meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147779_| + (define |gxc[1]#_g148053_| (##structure gx#syntax-quote::t '&meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147780_| + (define |gxc[1]#_g148054_| (##structure gx#syntax-quote::t '&meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147781_| + (define |gxc[1]#_g148055_| (##structure gx#syntax-quote::t '&meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147782_| + (define |gxc[1]#_g148056_| (##structure gx#syntax-quote::t '&meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147784_| + (define |gxc[1]#_g148058_| (##structure gx#syntax-quote::t 'meta-state-block::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147786_| + (define |gxc[1]#_g148060_| (##structure gx#syntax-quote::t 'make-meta-state-block #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147788_| + (define |gxc[1]#_g148062_| (##structure gx#syntax-quote::t 'meta-state-block? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147790_| + (define |gxc[1]#_g148064_| (##structure gx#syntax-quote::t 'meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147791_| + (define |gxc[1]#_g148065_| (##structure gx#syntax-quote::t 'meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147792_| + (define |gxc[1]#_g148066_| (##structure gx#syntax-quote::t 'meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147793_| + (define |gxc[1]#_g148067_| (##structure gx#syntax-quote::t 'meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147795_| + (define |gxc[1]#_g148069_| (##structure gx#syntax-quote::t 'meta-state-block-ctx-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147796_| + (define |gxc[1]#_g148070_| (##structure gx#syntax-quote::t 'meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147797_| + (define |gxc[1]#_g148071_| (##structure gx#syntax-quote::t 'meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147798_| + (define |gxc[1]#_g148072_| (##structure gx#syntax-quote::t 'meta-state-block-code-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147800_| + (define |gxc[1]#_g148074_| (##structure gx#syntax-quote::t '&meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147801_| + (define |gxc[1]#_g148075_| (##structure gx#syntax-quote::t '&meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147802_| + (define |gxc[1]#_g148076_| (##structure gx#syntax-quote::t '&meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147803_| + (define |gxc[1]#_g148077_| (##structure gx#syntax-quote::t '&meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147805_| + (define |gxc[1]#_g148079_| (##structure gx#syntax-quote::t '&meta-state-block-ctx-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147806_| + (define |gxc[1]#_g148080_| (##structure gx#syntax-quote::t '&meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147807_| + (define |gxc[1]#_g148081_| (##structure gx#syntax-quote::t '&meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g147808_| + (define |gxc[1]#_g148082_| (##structure gx#syntax-quote::t '&meta-state-block-code-set! @@ -674,7 +674,7 @@ '())) (begin (define |gxc[:0:]#::collect-bindings| - (let ((__obj147424 + (let ((__obj147698 (let () (declare (not safe)) (##structure @@ -703,7 +703,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147424 + __obj147698 'gxc#::collect-bindings::t '1 '#f @@ -711,65 +711,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147424 + __obj147698 '::collect-bindings '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147424 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj147698 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147424 '() '6 '#f '#f)) - (let ((__tmp147636 (cons |gxc[1]#_g147637_| '()))) + (##unchecked-structure-set! __obj147698 '() '6 '#f '#f)) + (let ((__tmp147910 (cons |gxc[1]#_g147911_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147424 __tmp147636 '3 '#f '#f)) + (##unchecked-structure-set! __obj147698 __tmp147910 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147424 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj147698 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147424 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj147698 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147424 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147698 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147424 '#f '11 '#f '#f)) - (let ((__tmp147638 |gxc[1]#_g147639_|)) + (##unchecked-structure-set! __obj147698 '#f '11 '#f '#f)) + (let ((__tmp147912 |gxc[1]#_g147913_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147424 __tmp147638 '12 '#f '#f)) - (let ((__tmp147640 |gxc[1]#_g147641_|)) + (##unchecked-structure-set! __obj147698 __tmp147912 '12 '#f '#f)) + (let ((__tmp147914 |gxc[1]#_g147915_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147424 __tmp147640 '13 '#f '#f)) - (let ((__tmp147642 |gxc[1]#_g147643_|)) + (##unchecked-structure-set! __obj147698 __tmp147914 '13 '#f '#f)) + (let ((__tmp147916 |gxc[1]#_g147917_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147424 __tmp147642 '14 '#f '#f)) + (##unchecked-structure-set! __obj147698 __tmp147916 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147424 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj147698 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147424 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj147698 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147424 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj147698 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147424 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj147698 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147424 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147698 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147424 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147698 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147424 '() '20 '#f '#f)) - __obj147424)) + (##unchecked-structure-set! __obj147698 '() '20 '#f '#f)) + __obj147698)) (define |gxc[:0:]#::lift-modules| - (let ((__obj147426 + (let ((__obj147700 (let () (declare (not safe)) (##structure @@ -798,68 +798,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147426 + __obj147700 'gxc#::lift-modules::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147426 '::lift-modules '2 '#f '#f)) + (##unchecked-structure-set! __obj147700 '::lift-modules '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147426 '(modules) '4 '#f '#f)) + (##unchecked-structure-set! __obj147700 '(modules) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147426 '(modules) '6 '#f '#f)) - (let ((__tmp147644 (cons |gxc[1]#_g147637_| '()))) + (##unchecked-structure-set! __obj147700 '(modules) '6 '#f '#f)) + (let ((__tmp147918 (cons |gxc[1]#_g147911_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147426 __tmp147644 '3 '#f '#f)) + (##unchecked-structure-set! __obj147700 __tmp147918 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147426 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj147700 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147426 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj147700 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147426 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147700 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147426 '#f '11 '#f '#f)) - (let ((__tmp147645 |gxc[1]#_g147646_|)) + (##unchecked-structure-set! __obj147700 '#f '11 '#f '#f)) + (let ((__tmp147919 |gxc[1]#_g147920_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147426 __tmp147645 '12 '#f '#f)) - (let ((__tmp147647 |gxc[1]#_g147648_|)) + (##unchecked-structure-set! __obj147700 __tmp147919 '12 '#f '#f)) + (let ((__tmp147921 |gxc[1]#_g147922_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147426 __tmp147647 '13 '#f '#f)) - (let ((__tmp147649 |gxc[1]#_g147650_|)) + (##unchecked-structure-set! __obj147700 __tmp147921 '13 '#f '#f)) + (let ((__tmp147923 |gxc[1]#_g147924_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147426 __tmp147649 '14 '#f '#f)) - (let ((__tmp147651 (cons (cons 'modules |gxc[1]#_g147652_|) '()))) + (##unchecked-structure-set! __obj147700 __tmp147923 '14 '#f '#f)) + (let ((__tmp147925 (cons (cons 'modules |gxc[1]#_g147926_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147426 __tmp147651 '15 '#f '#f)) - (let ((__tmp147653 (cons (cons 'modules |gxc[1]#_g147654_|) '()))) + (##unchecked-structure-set! __obj147700 __tmp147925 '15 '#f '#f)) + (let ((__tmp147927 (cons (cons 'modules |gxc[1]#_g147928_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147426 __tmp147653 '16 '#f '#f)) - (let ((__tmp147655 (cons (cons 'modules |gxc[1]#_g147656_|) '()))) + (##unchecked-structure-set! __obj147700 __tmp147927 '16 '#f '#f)) + (let ((__tmp147929 (cons (cons 'modules |gxc[1]#_g147930_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147426 __tmp147655 '17 '#f '#f)) - (let ((__tmp147657 (cons (cons 'modules |gxc[1]#_g147658_|) '()))) + (##unchecked-structure-set! __obj147700 __tmp147929 '17 '#f '#f)) + (let ((__tmp147931 (cons (cons 'modules |gxc[1]#_g147932_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147426 __tmp147657 '18 '#f '#f)) + (##unchecked-structure-set! __obj147700 __tmp147931 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147426 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147700 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147426 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147700 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147426 '() '20 '#f '#f)) - __obj147426)) + (##unchecked-structure-set! __obj147700 '() '20 '#f '#f)) + __obj147700)) (define |gxc[:0:]#::find-runtime-code| - (let ((__obj147428 + (let ((__obj147702 (let () (declare (not safe)) (##structure @@ -888,7 +888,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147428 + __obj147702 'gxc#::find-runtime-code::t '1 '#f @@ -896,65 +896,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147428 + __obj147702 '::find-runtime-code '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147428 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj147702 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147428 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj147702 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147428 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj147702 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147428 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj147702 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147428 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj147702 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147428 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147702 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147428 '#f '11 '#f '#f)) - (let ((__tmp147659 |gxc[1]#_g147660_|)) + (##unchecked-structure-set! __obj147702 '#f '11 '#f '#f)) + (let ((__tmp147933 |gxc[1]#_g147934_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147428 __tmp147659 '12 '#f '#f)) - (let ((__tmp147661 |gxc[1]#_g147662_|)) + (##unchecked-structure-set! __obj147702 __tmp147933 '12 '#f '#f)) + (let ((__tmp147935 |gxc[1]#_g147936_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147428 __tmp147661 '13 '#f '#f)) - (let ((__tmp147663 |gxc[1]#_g147664_|)) + (##unchecked-structure-set! __obj147702 __tmp147935 '13 '#f '#f)) + (let ((__tmp147937 |gxc[1]#_g147938_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147428 __tmp147663 '14 '#f '#f)) + (##unchecked-structure-set! __obj147702 __tmp147937 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147428 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj147702 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147428 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj147702 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147428 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj147702 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147428 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj147702 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147428 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147702 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147428 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147702 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147428 '() '20 '#f '#f)) - __obj147428)) + (##unchecked-structure-set! __obj147702 '() '20 '#f '#f)) + __obj147702)) (define |gxc[:0:]#::find-lambda-expression| - (let ((__obj147430 + (let ((__obj147704 (let () (declare (not safe)) (##structure @@ -983,7 +983,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147430 + __obj147704 'gxc#::find-lambda-expression::t '1 '#f @@ -991,65 +991,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147430 + __obj147704 '::find-lambda-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147430 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj147704 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147430 '() '6 '#f '#f)) - (let ((__tmp147665 (cons |gxc[1]#_g147666_| '()))) + (##unchecked-structure-set! __obj147704 '() '6 '#f '#f)) + (let ((__tmp147939 (cons |gxc[1]#_g147940_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147430 __tmp147665 '3 '#f '#f)) + (##unchecked-structure-set! __obj147704 __tmp147939 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147430 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj147704 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147430 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj147704 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147430 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147704 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147430 '#f '11 '#f '#f)) - (let ((__tmp147667 |gxc[1]#_g147668_|)) + (##unchecked-structure-set! __obj147704 '#f '11 '#f '#f)) + (let ((__tmp147941 |gxc[1]#_g147942_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147430 __tmp147667 '12 '#f '#f)) - (let ((__tmp147669 |gxc[1]#_g147670_|)) + (##unchecked-structure-set! __obj147704 __tmp147941 '12 '#f '#f)) + (let ((__tmp147943 |gxc[1]#_g147944_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147430 __tmp147669 '13 '#f '#f)) - (let ((__tmp147671 |gxc[1]#_g147672_|)) + (##unchecked-structure-set! __obj147704 __tmp147943 '13 '#f '#f)) + (let ((__tmp147945 |gxc[1]#_g147946_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147430 __tmp147671 '14 '#f '#f)) + (##unchecked-structure-set! __obj147704 __tmp147945 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147430 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj147704 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147430 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj147704 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147430 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj147704 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147430 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj147704 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147430 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147704 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147430 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147704 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147430 '() '20 '#f '#f)) - __obj147430)) + (##unchecked-structure-set! __obj147704 '() '20 '#f '#f)) + __obj147704)) (define |gxc[:0:]#::count-values| - (let ((__obj147432 + (let ((__obj147706 (let () (declare (not safe)) (##structure @@ -1078,68 +1078,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147432 + __obj147706 'gxc#::count-values::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147432 '::count-values '2 '#f '#f)) + (##unchecked-structure-set! __obj147706 '::count-values '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147432 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj147706 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147432 '() '6 '#f '#f)) - (let ((__tmp147673 (cons |gxc[1]#_g147674_| '()))) + (##unchecked-structure-set! __obj147706 '() '6 '#f '#f)) + (let ((__tmp147947 (cons |gxc[1]#_g147948_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147432 __tmp147673 '3 '#f '#f)) + (##unchecked-structure-set! __obj147706 __tmp147947 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147432 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj147706 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147432 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj147706 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147432 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147706 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147432 '#f '11 '#f '#f)) - (let ((__tmp147675 |gxc[1]#_g147676_|)) + (##unchecked-structure-set! __obj147706 '#f '11 '#f '#f)) + (let ((__tmp147949 |gxc[1]#_g147950_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147432 __tmp147675 '12 '#f '#f)) - (let ((__tmp147677 |gxc[1]#_g147678_|)) + (##unchecked-structure-set! __obj147706 __tmp147949 '12 '#f '#f)) + (let ((__tmp147951 |gxc[1]#_g147952_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147432 __tmp147677 '13 '#f '#f)) - (let ((__tmp147679 |gxc[1]#_g147680_|)) + (##unchecked-structure-set! __obj147706 __tmp147951 '13 '#f '#f)) + (let ((__tmp147953 |gxc[1]#_g147954_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147432 __tmp147679 '14 '#f '#f)) + (##unchecked-structure-set! __obj147706 __tmp147953 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147432 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj147706 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147432 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj147706 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147432 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj147706 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147432 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj147706 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147432 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147706 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147432 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147706 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147432 '() '20 '#f '#f)) - __obj147432)) + (##unchecked-structure-set! __obj147706 '() '20 '#f '#f)) + __obj147706)) (define |gxc[:0:]#::generate-runtime-empty| - (let ((__obj147434 + (let ((__obj147708 (let () (declare (not safe)) (##structure @@ -1168,7 +1168,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147434 + __obj147708 'gxc#::generate-runtime-empty::t '1 '#f @@ -1176,65 +1176,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147434 + __obj147708 '::generate-runtime-empty '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147434 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj147708 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147434 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj147708 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147434 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj147708 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147434 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj147708 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147434 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj147708 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147434 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147708 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147434 '#f '11 '#f '#f)) - (let ((__tmp147681 |gxc[1]#_g147682_|)) + (##unchecked-structure-set! __obj147708 '#f '11 '#f '#f)) + (let ((__tmp147955 |gxc[1]#_g147956_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147434 __tmp147681 '12 '#f '#f)) - (let ((__tmp147683 |gxc[1]#_g147684_|)) + (##unchecked-structure-set! __obj147708 __tmp147955 '12 '#f '#f)) + (let ((__tmp147957 |gxc[1]#_g147958_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147434 __tmp147683 '13 '#f '#f)) - (let ((__tmp147685 |gxc[1]#_g147686_|)) + (##unchecked-structure-set! __obj147708 __tmp147957 '13 '#f '#f)) + (let ((__tmp147959 |gxc[1]#_g147960_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147434 __tmp147685 '14 '#f '#f)) + (##unchecked-structure-set! __obj147708 __tmp147959 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147434 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj147708 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147434 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj147708 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147434 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj147708 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147434 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj147708 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147434 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147708 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147434 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147708 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147434 '() '20 '#f '#f)) - __obj147434)) + (##unchecked-structure-set! __obj147708 '() '20 '#f '#f)) + __obj147708)) (define |gxc[:0:]#::generate-loader| - (let ((__obj147435 + (let ((__obj147709 (let () (declare (not safe)) (##structure @@ -1263,7 +1263,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147435 + __obj147709 'gxc#::generate-loader::t '1 '#f @@ -1271,65 +1271,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147435 + __obj147709 '::generate-loader '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147435 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj147709 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147435 '() '6 '#f '#f)) - (let ((__tmp147687 (cons |gxc[1]#_g147688_| '()))) + (##unchecked-structure-set! __obj147709 '() '6 '#f '#f)) + (let ((__tmp147961 (cons |gxc[1]#_g147962_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147435 __tmp147687 '3 '#f '#f)) + (##unchecked-structure-set! __obj147709 __tmp147961 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147435 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj147709 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147435 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj147709 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147435 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147709 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147435 '#f '11 '#f '#f)) - (let ((__tmp147689 |gxc[1]#_g147690_|)) + (##unchecked-structure-set! __obj147709 '#f '11 '#f '#f)) + (let ((__tmp147963 |gxc[1]#_g147964_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147435 __tmp147689 '12 '#f '#f)) - (let ((__tmp147691 |gxc[1]#_g147692_|)) + (##unchecked-structure-set! __obj147709 __tmp147963 '12 '#f '#f)) + (let ((__tmp147965 |gxc[1]#_g147966_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147435 __tmp147691 '13 '#f '#f)) - (let ((__tmp147693 |gxc[1]#_g147694_|)) + (##unchecked-structure-set! __obj147709 __tmp147965 '13 '#f '#f)) + (let ((__tmp147967 |gxc[1]#_g147968_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147435 __tmp147693 '14 '#f '#f)) + (##unchecked-structure-set! __obj147709 __tmp147967 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147435 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj147709 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147435 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj147709 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147435 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj147709 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147435 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj147709 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147435 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147709 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147435 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147709 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147435 '() '20 '#f '#f)) - __obj147435)) + (##unchecked-structure-set! __obj147709 '() '20 '#f '#f)) + __obj147709)) (define |gxc[:0:]#::generate-runtime| - (let ((__obj147437 + (let ((__obj147711 (let () (declare (not safe)) (##structure @@ -1358,7 +1358,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147437 + __obj147711 'gxc#::generate-runtime::t '1 '#f @@ -1366,65 +1366,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147437 + __obj147711 '::generate-runtime '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147437 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj147711 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147437 '() '6 '#f '#f)) - (let ((__tmp147695 (cons |gxc[1]#_g147688_| '()))) + (##unchecked-structure-set! __obj147711 '() '6 '#f '#f)) + (let ((__tmp147969 (cons |gxc[1]#_g147962_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147437 __tmp147695 '3 '#f '#f)) + (##unchecked-structure-set! __obj147711 __tmp147969 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147437 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj147711 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147437 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj147711 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147437 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147711 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147437 '#f '11 '#f '#f)) - (let ((__tmp147696 |gxc[1]#_g147697_|)) + (##unchecked-structure-set! __obj147711 '#f '11 '#f '#f)) + (let ((__tmp147970 |gxc[1]#_g147971_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147437 __tmp147696 '12 '#f '#f)) - (let ((__tmp147698 |gxc[1]#_g147699_|)) + (##unchecked-structure-set! __obj147711 __tmp147970 '12 '#f '#f)) + (let ((__tmp147972 |gxc[1]#_g147973_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147437 __tmp147698 '13 '#f '#f)) - (let ((__tmp147700 |gxc[1]#_g147701_|)) + (##unchecked-structure-set! __obj147711 __tmp147972 '13 '#f '#f)) + (let ((__tmp147974 |gxc[1]#_g147975_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147437 __tmp147700 '14 '#f '#f)) + (##unchecked-structure-set! __obj147711 __tmp147974 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147437 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj147711 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147437 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj147711 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147437 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj147711 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147437 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj147711 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147437 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147711 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147437 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147711 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147437 '() '20 '#f '#f)) - __obj147437)) + (##unchecked-structure-set! __obj147711 '() '20 '#f '#f)) + __obj147711)) (define |gxc[:0:]#::generate-runtime-phi| - (let ((__obj147439 + (let ((__obj147713 (let () (declare (not safe)) (##structure @@ -1453,7 +1453,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147439 + __obj147713 'gxc#::generate-runtime-phi::t '1 '#f @@ -1461,65 +1461,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147439 + __obj147713 '::generate-runtime-phi '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147439 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj147713 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147439 '() '6 '#f '#f)) - (let ((__tmp147702 (cons |gxc[1]#_g147703_| '()))) + (##unchecked-structure-set! __obj147713 '() '6 '#f '#f)) + (let ((__tmp147976 (cons |gxc[1]#_g147977_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147439 __tmp147702 '3 '#f '#f)) + (##unchecked-structure-set! __obj147713 __tmp147976 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147439 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj147713 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147439 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj147713 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147439 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147713 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147439 '#f '11 '#f '#f)) - (let ((__tmp147704 |gxc[1]#_g147705_|)) + (##unchecked-structure-set! __obj147713 '#f '11 '#f '#f)) + (let ((__tmp147978 |gxc[1]#_g147979_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147439 __tmp147704 '12 '#f '#f)) - (let ((__tmp147706 |gxc[1]#_g147707_|)) + (##unchecked-structure-set! __obj147713 __tmp147978 '12 '#f '#f)) + (let ((__tmp147980 |gxc[1]#_g147981_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147439 __tmp147706 '13 '#f '#f)) - (let ((__tmp147708 |gxc[1]#_g147709_|)) + (##unchecked-structure-set! __obj147713 __tmp147980 '13 '#f '#f)) + (let ((__tmp147982 |gxc[1]#_g147983_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147439 __tmp147708 '14 '#f '#f)) + (##unchecked-structure-set! __obj147713 __tmp147982 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147439 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj147713 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147439 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj147713 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147439 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj147713 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147439 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj147713 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147439 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147713 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147439 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147713 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147439 '() '20 '#f '#f)) - __obj147439)) + (##unchecked-structure-set! __obj147713 '() '20 '#f '#f)) + __obj147713)) (define |gxc[:0:]#::collect-expression-refs| - (let ((__obj147441 + (let ((__obj147715 (let () (declare (not safe)) (##structure @@ -1548,7 +1548,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147441 + __obj147715 'gxc#::collect-expression-refs::t '1 '#f @@ -1556,65 +1556,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147441 + __obj147715 '::collect-expression-refs '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147441 '(table) '4 '#f '#f)) + (##unchecked-structure-set! __obj147715 '(table) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147441 '(table) '6 '#f '#f)) + (##unchecked-structure-set! __obj147715 '(table) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147441 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj147715 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147441 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj147715 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147441 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj147715 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147441 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147715 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147441 '#f '11 '#f '#f)) - (let ((__tmp147710 |gxc[1]#_g147711_|)) + (##unchecked-structure-set! __obj147715 '#f '11 '#f '#f)) + (let ((__tmp147984 |gxc[1]#_g147985_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147441 __tmp147710 '12 '#f '#f)) - (let ((__tmp147712 |gxc[1]#_g147713_|)) + (##unchecked-structure-set! __obj147715 __tmp147984 '12 '#f '#f)) + (let ((__tmp147986 |gxc[1]#_g147987_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147441 __tmp147712 '13 '#f '#f)) - (let ((__tmp147714 |gxc[1]#_g147715_|)) + (##unchecked-structure-set! __obj147715 __tmp147986 '13 '#f '#f)) + (let ((__tmp147988 |gxc[1]#_g147989_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147441 __tmp147714 '14 '#f '#f)) - (let ((__tmp147716 (cons (cons 'table |gxc[1]#_g147717_|) '()))) + (##unchecked-structure-set! __obj147715 __tmp147988 '14 '#f '#f)) + (let ((__tmp147990 (cons (cons 'table |gxc[1]#_g147991_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147441 __tmp147716 '15 '#f '#f)) - (let ((__tmp147718 (cons (cons 'table |gxc[1]#_g147719_|) '()))) + (##unchecked-structure-set! __obj147715 __tmp147990 '15 '#f '#f)) + (let ((__tmp147992 (cons (cons 'table |gxc[1]#_g147993_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147441 __tmp147718 '16 '#f '#f)) - (let ((__tmp147720 (cons (cons 'table |gxc[1]#_g147721_|) '()))) + (##unchecked-structure-set! __obj147715 __tmp147992 '16 '#f '#f)) + (let ((__tmp147994 (cons (cons 'table |gxc[1]#_g147995_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147441 __tmp147720 '17 '#f '#f)) - (let ((__tmp147722 (cons (cons 'table |gxc[1]#_g147723_|) '()))) + (##unchecked-structure-set! __obj147715 __tmp147994 '17 '#f '#f)) + (let ((__tmp147996 (cons (cons 'table |gxc[1]#_g147997_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147441 __tmp147722 '18 '#f '#f)) + (##unchecked-structure-set! __obj147715 __tmp147996 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147441 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147715 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147441 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147715 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147441 '() '20 '#f '#f)) - __obj147441)) + (##unchecked-structure-set! __obj147715 '() '20 '#f '#f)) + __obj147715)) (define |gxc[:0:]#::generate-meta| - (let ((__obj147443 + (let ((__obj147717 (let () (declare (not safe)) (##structure @@ -1643,68 +1643,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147443 + __obj147717 'gxc#::generate-meta::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147443 '::generate-meta '2 '#f '#f)) + (##unchecked-structure-set! __obj147717 '::generate-meta '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147443 '(state) '4 '#f '#f)) + (##unchecked-structure-set! __obj147717 '(state) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147443 '(state) '6 '#f '#f)) - (let ((__tmp147724 (cons |gxc[1]#_g147725_| '()))) + (##unchecked-structure-set! __obj147717 '(state) '6 '#f '#f)) + (let ((__tmp147998 (cons |gxc[1]#_g147999_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147443 __tmp147724 '3 '#f '#f)) + (##unchecked-structure-set! __obj147717 __tmp147998 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147443 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj147717 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147443 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj147717 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147443 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147717 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147443 '#f '11 '#f '#f)) - (let ((__tmp147726 |gxc[1]#_g147727_|)) + (##unchecked-structure-set! __obj147717 '#f '11 '#f '#f)) + (let ((__tmp148000 |gxc[1]#_g148001_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147443 __tmp147726 '12 '#f '#f)) - (let ((__tmp147728 |gxc[1]#_g147729_|)) + (##unchecked-structure-set! __obj147717 __tmp148000 '12 '#f '#f)) + (let ((__tmp148002 |gxc[1]#_g148003_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147443 __tmp147728 '13 '#f '#f)) - (let ((__tmp147730 |gxc[1]#_g147731_|)) + (##unchecked-structure-set! __obj147717 __tmp148002 '13 '#f '#f)) + (let ((__tmp148004 |gxc[1]#_g148005_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147443 __tmp147730 '14 '#f '#f)) - (let ((__tmp147732 (cons (cons 'state |gxc[1]#_g147733_|) '()))) + (##unchecked-structure-set! __obj147717 __tmp148004 '14 '#f '#f)) + (let ((__tmp148006 (cons (cons 'state |gxc[1]#_g148007_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147443 __tmp147732 '15 '#f '#f)) - (let ((__tmp147734 (cons (cons 'state |gxc[1]#_g147735_|) '()))) + (##unchecked-structure-set! __obj147717 __tmp148006 '15 '#f '#f)) + (let ((__tmp148008 (cons (cons 'state |gxc[1]#_g148009_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147443 __tmp147734 '16 '#f '#f)) - (let ((__tmp147736 (cons (cons 'state |gxc[1]#_g147737_|) '()))) + (##unchecked-structure-set! __obj147717 __tmp148008 '16 '#f '#f)) + (let ((__tmp148010 (cons (cons 'state |gxc[1]#_g148011_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147443 __tmp147736 '17 '#f '#f)) - (let ((__tmp147738 (cons (cons 'state |gxc[1]#_g147739_|) '()))) + (##unchecked-structure-set! __obj147717 __tmp148010 '17 '#f '#f)) + (let ((__tmp148012 (cons (cons 'state |gxc[1]#_g148013_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147443 __tmp147738 '18 '#f '#f)) + (##unchecked-structure-set! __obj147717 __tmp148012 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147443 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147717 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147443 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147717 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147443 '() '20 '#f '#f)) - __obj147443)) + (##unchecked-structure-set! __obj147717 '() '20 '#f '#f)) + __obj147717)) (define |gxc[:0:]#::generate-meta-phi| - (let ((__obj147445 + (let ((__obj147719 (let () (declare (not safe)) (##structure @@ -1733,7 +1733,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147445 + __obj147719 'gxc#::generate-meta-phi::t '1 '#f @@ -1741,220 +1741,220 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147445 + __obj147719 '::generate-meta-phi '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147445 '(state) '4 '#f '#f)) + (##unchecked-structure-set! __obj147719 '(state) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147445 '(state) '6 '#f '#f)) + (##unchecked-structure-set! __obj147719 '(state) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147445 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj147719 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147445 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj147719 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147445 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj147719 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147445 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147719 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147445 '#f '11 '#f '#f)) - (let ((__tmp147740 |gxc[1]#_g147741_|)) + (##unchecked-structure-set! __obj147719 '#f '11 '#f '#f)) + (let ((__tmp148014 |gxc[1]#_g148015_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147445 __tmp147740 '12 '#f '#f)) - (let ((__tmp147742 |gxc[1]#_g147743_|)) + (##unchecked-structure-set! __obj147719 __tmp148014 '12 '#f '#f)) + (let ((__tmp148016 |gxc[1]#_g148017_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147445 __tmp147742 '13 '#f '#f)) - (let ((__tmp147744 |gxc[1]#_g147745_|)) + (##unchecked-structure-set! __obj147719 __tmp148016 '13 '#f '#f)) + (let ((__tmp148018 |gxc[1]#_g148019_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147445 __tmp147744 '14 '#f '#f)) - (let ((__tmp147746 (cons (cons 'state |gxc[1]#_g147747_|) '()))) + (##unchecked-structure-set! __obj147719 __tmp148018 '14 '#f '#f)) + (let ((__tmp148020 (cons (cons 'state |gxc[1]#_g148021_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147445 __tmp147746 '15 '#f '#f)) - (let ((__tmp147748 (cons (cons 'state |gxc[1]#_g147749_|) '()))) + (##unchecked-structure-set! __obj147719 __tmp148020 '15 '#f '#f)) + (let ((__tmp148022 (cons (cons 'state |gxc[1]#_g148023_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147445 __tmp147748 '16 '#f '#f)) - (let ((__tmp147750 (cons (cons 'state |gxc[1]#_g147751_|) '()))) + (##unchecked-structure-set! __obj147719 __tmp148022 '16 '#f '#f)) + (let ((__tmp148024 (cons (cons 'state |gxc[1]#_g148025_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147445 __tmp147750 '17 '#f '#f)) - (let ((__tmp147752 (cons (cons 'state |gxc[1]#_g147753_|) '()))) + (##unchecked-structure-set! __obj147719 __tmp148024 '17 '#f '#f)) + (let ((__tmp148026 (cons (cons 'state |gxc[1]#_g148027_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj147445 __tmp147752 '18 '#f '#f)) + (##unchecked-structure-set! __obj147719 __tmp148026 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147445 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147719 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147445 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147719 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147445 '() '20 '#f '#f)) - __obj147445)) + (##unchecked-structure-set! __obj147719 '() '20 '#f '#f)) + __obj147719)) (define |gxc[:0:]#with-primitive-bind+args| - (lambda (_%$stx136514%_) - (let* ((_%g136518136553%_ - (lambda (_%g136519136549%_) + (lambda (_%$stx136788%_) + (let* ((_%g136792136827%_ + (lambda (_%g136793136823%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136519136549%_)))) - (_%g136517136679%_ - (lambda (_%g136519136557%_) + _%g136793136823%_)))) + (_%g136791136953%_ + (lambda (_%g136793136831%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136519136557%_)) - (let ((_%e136524136560%_ + (gx#stx-pair? _%g136793136831%_)) + (let ((_%e136798136834%_ (let () (declare (not safe)) - (gx#syntax-e _%g136519136557%_)))) - (let ((_%hd136525136564%_ + (gx#syntax-e _%g136793136831%_)))) + (let ((_%hd136799136838%_ (let () (declare (not safe)) - (##car _%e136524136560%_))) - (_%tl136526136567%_ + (##car _%e136798136834%_))) + (_%tl136800136841%_ (let () (declare (not safe)) - (##cdr _%e136524136560%_)))) + (##cdr _%e136798136834%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136526136567%_)) - (let ((_%e136527136570%_ + (gx#stx-pair? _%tl136800136841%_)) + (let ((_%e136801136844%_ (let () (declare (not safe)) - (gx#syntax-e _%tl136526136567%_)))) - (let ((_%hd136528136574%_ + (gx#syntax-e _%tl136800136841%_)))) + (let ((_%hd136802136848%_ (let () (declare (not safe)) - (##car _%e136527136570%_))) - (_%tl136529136577%_ + (##car _%e136801136844%_))) + (_%tl136803136851%_ (let () (declare (not safe)) - (##cdr _%e136527136570%_)))) + (##cdr _%e136801136844%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd136528136574%_)) - (let ((_%e136530136580%_ + (gx#stx-pair? _%hd136802136848%_)) + (let ((_%e136804136854%_ (let () (declare (not safe)) (gx#syntax-e - _%hd136528136574%_)))) - (let ((_%hd136531136584%_ + _%hd136802136848%_)))) + (let ((_%hd136805136858%_ (let () (declare (not safe)) - (##car _%e136530136580%_))) - (_%tl136532136587%_ + (##car _%e136804136854%_))) + (_%tl136806136861%_ (let () (declare (not safe)) - (##cdr _%e136530136580%_)))) + (##cdr _%e136804136854%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl136532136587%_)) - (let ((_%e136533136590%_ + _%tl136806136861%_)) + (let ((_%e136807136864%_ (let () (declare (not safe)) (gx#syntax-e - _%tl136532136587%_)))) - (let ((_%hd136534136594%_ + _%tl136806136861%_)))) + (let ((_%hd136808136868%_ (let () (declare (not safe)) - (##car _%e136533136590%_))) - (_%tl136535136597%_ + (##car _%e136807136864%_))) + (_%tl136809136871%_ (let () (declare (not safe)) - (##cdr _%e136533136590%_)))) + (##cdr _%e136807136864%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl136535136597%_)) - (let ((_%e136536136600%_ + _%tl136809136871%_)) + (let ((_%e136810136874%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl136535136597%_)))) - (let ((_%hd136537136604%_ - (let () (declare (not safe)) (##car _%e136536136600%_))) - (_%tl136538136607%_ + (gx#syntax-e _%tl136809136871%_)))) + (let ((_%hd136811136878%_ + (let () (declare (not safe)) (##car _%e136810136874%_))) + (_%tl136812136881%_ (let () (declare (not safe)) - (##cdr _%e136536136600%_)))) + (##cdr _%e136810136874%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl136538136607%_)) + (gx#stx-null? _%tl136812136881%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl136529136577%_)) - (let ((_g147754_ + (gx#stx-pair/null? _%tl136803136851%_)) + (let ((_g148028_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl136529136577%_ + _%tl136803136851%_ '0)))) (begin - (let ((_g147755_ + (let ((_g148029_ (let () (declare (not safe)) - (if (##values? _g147754_) - (##vector-length _g147754_) + (if (##values? _g148028_) + (##vector-length _g148028_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g147755_ 2))) + (##fx= _g148029_ 2))) (error "Context expects 2 values" - _g147755_))) - (let ((_%target136539136610%_ + _g148029_))) + (let ((_%target136813136884%_ (let () (declare (not safe)) - (##vector-ref _g147754_ 0))) - (_%tl136541136613%_ + (##vector-ref _g148028_ 0))) + (_%tl136815136887%_ (let () (declare (not safe)) - (##vector-ref _g147754_ 1)))) + (##vector-ref _g148028_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl136541136613%_)) - (letrec ((_%loop136542136616%_ - (lambda (_%hd136540136620%_ - _%body136546136623%_) + (gx#stx-null? _%tl136815136887%_)) + (letrec ((_%loop136816136890%_ + (lambda (_%hd136814136894%_ + _%body136820136897%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd136540136620%_)) - (let ((_%e136543136626%_ + _%hd136814136894%_)) + (let ((_%e136817136900%_ (let () (declare (not safe)) (gx#syntax-e - _%hd136540136620%_)))) - (let ((_%lp-hd136544136630%_ + _%hd136814136894%_)))) + (let ((_%lp-hd136818136904%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e136543136626%_))) - (_%lp-tl136545136633%_ - (let () (declare (not safe)) (##cdr _%e136543136626%_)))) - (_%loop136542136616%_ - _%lp-tl136545136633%_ - (cons _%lp-hd136544136630%_ _%body136546136623%_)))) + (##car _%e136817136900%_))) + (_%lp-tl136819136907%_ + (let () (declare (not safe)) (##cdr _%e136817136900%_)))) + (_%loop136816136890%_ + _%lp-tl136819136907%_ + (cons _%lp-hd136818136904%_ _%body136820136897%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%body136547136636%_ - (reverse _%body136546136623%_))) - ((lambda (_%L136640%_ - _%L136642%_ - _%L136643%_ - _%L136644%_) + (let ((_%body136821136910%_ + (reverse _%body136820136897%_))) + ((lambda (_%L136914%_ + _%L136916%_ + _%L136917%_ + _%L136918%_) (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1967,8 +1967,8 @@ (gx#datum->syntax__0 '#f 'rest)) - (cons _%L136642%_ '())) - (cons (cons _%L136644%_ + (cons _%L136916%_ '())) + (cons (cons _%L136918%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1976,7 +1976,7 @@ '()) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L136643%_ + (cons (cons _%L136917%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -2037,7 +2037,7 @@ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)) - (cons _%L136644%_ + (cons _%L136918%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2051,7 +2051,7 @@ (declare (not safe)) (gx#datum->syntax__0 '#f 'e)) '())) - (cons _%L136643%_ '()))) + (cons _%L136917%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())) @@ -2068,7 +2068,7 @@ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)) - (cons _%L136644%_ + (cons _%L136918%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -2080,7 +2080,7 @@ (declare (not safe)) (gx#datum->syntax__0 '#f 'e)) '())) - (cons _%L136643%_ '()))) + (cons _%L136917%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -2149,7 +2149,7 @@ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L136644%_ '()))) + (cons _%L136918%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2160,7 +2160,7 @@ (gx#datum->syntax__0 '#f 'tmp)) - (cons _%L136643%_ '()))) + (cons _%L136917%_ '()))) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2171,99 +2171,99 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else)) - (let ((__tmp147756 - (lambda (_%g136670136673%_ - _%g136671136676%_) - (cons _%g136670136673%_ - _%g136671136676%_)))) + (let ((__tmp148030 + (lambda (_%g136944136947%_ + _%g136945136950%_) + (cons _%g136944136947%_ + _%g136945136950%_)))) (declare (not safe)) - (__foldr1 __tmp147756 '() _%L136640%_))) + (__foldr1 __tmp148030 '() _%L136914%_))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%body136547136636%_ - _%hd136537136604%_ - _%hd136534136594%_ - _%hd136531136584%_)))))) + _%body136821136910%_ + _%hd136811136878%_ + _%hd136808136868%_ + _%hd136805136858%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop136542136616%_ - _%target136539136610%_ + (_%loop136816136890%_ + _%target136813136884%_ '())) - (_%g136518136553%_ _%g136519136557%_))))) - (_%g136518136553%_ _%g136519136557%_)) - (_%g136518136553%_ _%g136519136557%_)))) - (_%g136518136553%_ _%g136519136557%_)))) + (_%g136792136827%_ _%g136793136831%_))))) + (_%g136792136827%_ _%g136793136831%_)) + (_%g136792136827%_ _%g136793136831%_)))) + (_%g136792136827%_ _%g136793136831%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g136518136553%_ - _%g136519136557%_)))) - (_%g136518136553%_ _%g136519136557%_)))) - (_%g136518136553%_ _%g136519136557%_)))) - (_%g136518136553%_ _%g136519136557%_))))) - (_%g136517136679%_ _%$stx136514%_)))) + (_%g136792136827%_ + _%g136793136831%_)))) + (_%g136792136827%_ _%g136793136831%_)))) + (_%g136792136827%_ _%g136793136831%_)))) + (_%g136792136827%_ _%g136793136831%_))))) + (_%g136791136953%_ _%$stx136788%_)))) (define |gxc[:0:]#with-inline-unsafe-primitives| - (lambda (_%$stx136684%_) - (let* ((_%g136688136706%_ - (lambda (_%g136689136702%_) + (lambda (_%$stx136958%_) + (let* ((_%g136962136980%_ + (lambda (_%g136963136976%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136689136702%_)))) - (_%g136687136761%_ - (lambda (_%g136689136710%_) + _%g136963136976%_)))) + (_%g136961137035%_ + (lambda (_%g136963136984%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136689136710%_)) - (let ((_%e136692136713%_ + (gx#stx-pair? _%g136963136984%_)) + (let ((_%e136966136987%_ (let () (declare (not safe)) - (gx#syntax-e _%g136689136710%_)))) - (let ((_%hd136693136717%_ + (gx#syntax-e _%g136963136984%_)))) + (let ((_%hd136967136991%_ (let () (declare (not safe)) - (##car _%e136692136713%_))) - (_%tl136694136720%_ + (##car _%e136966136987%_))) + (_%tl136968136994%_ (let () (declare (not safe)) - (##cdr _%e136692136713%_)))) + (##cdr _%e136966136987%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136694136720%_)) - (let ((_%e136695136723%_ + (gx#stx-pair? _%tl136968136994%_)) + (let ((_%e136969136997%_ (let () (declare (not safe)) - (gx#syntax-e _%tl136694136720%_)))) - (let ((_%hd136696136727%_ + (gx#syntax-e _%tl136968136994%_)))) + (let ((_%hd136970137001%_ (let () (declare (not safe)) - (##car _%e136695136723%_))) - (_%tl136697136730%_ + (##car _%e136969136997%_))) + (_%tl136971137004%_ (let () (declare (not safe)) - (##cdr _%e136695136723%_)))) + (##cdr _%e136969136997%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136697136730%_)) - (let ((_%e136698136733%_ + (gx#stx-pair? _%tl136971137004%_)) + (let ((_%e136972137007%_ (let () (declare (not safe)) (gx#syntax-e - _%tl136697136730%_)))) - (let ((_%hd136699136737%_ + _%tl136971137004%_)))) + (let ((_%hd136973137011%_ (let () (declare (not safe)) - (##car _%e136698136733%_))) - (_%tl136700136740%_ + (##car _%e136972137007%_))) + (_%tl136974137014%_ (let () (declare (not safe)) - (##cdr _%e136698136733%_)))) + (##cdr _%e136972137007%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136700136740%_)) - ((lambda (_%L136743%_ - _%L136745%_) + _%tl136974137014%_)) + ((lambda (_%L137017%_ + _%L137019%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2275,7 +2275,7 @@ (gx#datum->syntax__0 '#f 'gambit-inline-unsafe-primitives)) - (cons _%L136745%_ '())) + (cons _%L137019%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else)) @@ -2288,22 +2288,22 @@ '#f 'current-compile-decls-unsafe?)) '()) - (cons _%L136745%_ - (cons _%L136743%_ + (cons _%L137019%_ + (cons _%L137017%_ '())))) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd136699136737%_ - _%hd136696136727%_) - (_%g136688136706%_ - _%g136689136710%_)))) - (_%g136688136706%_ _%g136689136710%_)))) - (_%g136688136706%_ _%g136689136710%_)))) - (_%g136688136706%_ _%g136689136710%_))))) - (_%g136687136761%_ _%$stx136684%_)))) + _%hd136973137011%_ + _%hd136970137001%_) + (_%g136962136980%_ + _%g136963136984%_)))) + (_%g136962136980%_ _%g136963136984%_)))) + (_%g136962136980%_ _%g136963136984%_)))) + (_%g136962136980%_ _%g136963136984%_))))) + (_%g136961137035%_ _%$stx136958%_)))) (define |gxc[:0:]#meta-state| - (let ((__obj147447 + (let ((__obj147721 (let () (declare (not safe)) (##structure @@ -2332,18 +2332,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147447 + __obj147721 'gxc#meta-state::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147447 'meta-state '2 '#f '#f)) + (##unchecked-structure-set! __obj147721 'meta-state '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147447 + __obj147721 '(src n open blocks) '4 '#f @@ -2351,79 +2351,79 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147447 + __obj147721 '(src n open blocks) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147447 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj147721 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147447 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj147721 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147447 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj147721 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147447 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147721 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147447 ':init! '11 '#f '#f)) - (let ((__tmp147757 |gxc[1]#_g147758_|)) + (##unchecked-structure-set! __obj147721 ':init! '11 '#f '#f)) + (let ((__tmp148031 |gxc[1]#_g148032_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147447 __tmp147757 '12 '#f '#f)) - (let ((__tmp147759 |gxc[1]#_g147760_|)) + (##unchecked-structure-set! __obj147721 __tmp148031 '12 '#f '#f)) + (let ((__tmp148033 |gxc[1]#_g148034_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147447 __tmp147759 '13 '#f '#f)) - (let ((__tmp147761 |gxc[1]#_g147762_|)) + (##unchecked-structure-set! __obj147721 __tmp148033 '13 '#f '#f)) + (let ((__tmp148035 |gxc[1]#_g148036_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147447 __tmp147761 '14 '#f '#f)) - (let ((__tmp147763 - (cons (cons 'src |gxc[1]#_g147764_|) - (cons (cons 'n |gxc[1]#_g147765_|) - (cons (cons 'open |gxc[1]#_g147766_|) - (cons (cons 'blocks |gxc[1]#_g147767_|) + (##unchecked-structure-set! __obj147721 __tmp148035 '14 '#f '#f)) + (let ((__tmp148037 + (cons (cons 'src |gxc[1]#_g148038_|) + (cons (cons 'n |gxc[1]#_g148039_|) + (cons (cons 'open |gxc[1]#_g148040_|) + (cons (cons 'blocks |gxc[1]#_g148041_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj147447 __tmp147763 '15 '#f '#f)) - (let ((__tmp147768 - (cons (cons 'src |gxc[1]#_g147769_|) - (cons (cons 'n |gxc[1]#_g147770_|) - (cons (cons 'open |gxc[1]#_g147771_|) - (cons (cons 'blocks |gxc[1]#_g147772_|) + (##unchecked-structure-set! __obj147721 __tmp148037 '15 '#f '#f)) + (let ((__tmp148042 + (cons (cons 'src |gxc[1]#_g148043_|) + (cons (cons 'n |gxc[1]#_g148044_|) + (cons (cons 'open |gxc[1]#_g148045_|) + (cons (cons 'blocks |gxc[1]#_g148046_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj147447 __tmp147768 '16 '#f '#f)) - (let ((__tmp147773 - (cons (cons 'src |gxc[1]#_g147774_|) - (cons (cons 'n |gxc[1]#_g147775_|) - (cons (cons 'open |gxc[1]#_g147776_|) - (cons (cons 'blocks |gxc[1]#_g147777_|) + (##unchecked-structure-set! __obj147721 __tmp148042 '16 '#f '#f)) + (let ((__tmp148047 + (cons (cons 'src |gxc[1]#_g148048_|) + (cons (cons 'n |gxc[1]#_g148049_|) + (cons (cons 'open |gxc[1]#_g148050_|) + (cons (cons 'blocks |gxc[1]#_g148051_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj147447 __tmp147773 '17 '#f '#f)) - (let ((__tmp147778 - (cons (cons 'src |gxc[1]#_g147779_|) - (cons (cons 'n |gxc[1]#_g147780_|) - (cons (cons 'open |gxc[1]#_g147781_|) - (cons (cons 'blocks |gxc[1]#_g147782_|) + (##unchecked-structure-set! __obj147721 __tmp148047 '17 '#f '#f)) + (let ((__tmp148052 + (cons (cons 'src |gxc[1]#_g148053_|) + (cons (cons 'n |gxc[1]#_g148054_|) + (cons (cons 'open |gxc[1]#_g148055_|) + (cons (cons 'blocks |gxc[1]#_g148056_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj147447 __tmp147778 '18 '#f '#f)) + (##unchecked-structure-set! __obj147721 __tmp148052 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147447 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147721 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147447 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147721 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147447 '() '20 '#f '#f)) - __obj147447)) + (##unchecked-structure-set! __obj147721 '() '20 '#f '#f)) + __obj147721)) (define |gxc[:0:]#meta-state-block| - (let ((__obj147448 + (let ((__obj147722 (let () (declare (not safe)) (##structure @@ -2452,7 +2452,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147448 + __obj147722 'gxc#meta-state-block::t '1 '#f @@ -2460,7 +2460,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147448 + __obj147722 'meta-state-block '2 '#f @@ -2468,7 +2468,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147448 + __obj147722 '(ctx phi n code) '4 '#f @@ -2476,74 +2476,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147448 + __obj147722 '(ctx phi n code) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147448 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj147722 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147448 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj147722 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147448 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj147722 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147448 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj147722 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147448 '#f '11 '#f '#f)) - (let ((__tmp147783 |gxc[1]#_g147784_|)) + (##unchecked-structure-set! __obj147722 '#f '11 '#f '#f)) + (let ((__tmp148057 |gxc[1]#_g148058_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147448 __tmp147783 '12 '#f '#f)) - (let ((__tmp147785 |gxc[1]#_g147786_|)) + (##unchecked-structure-set! __obj147722 __tmp148057 '12 '#f '#f)) + (let ((__tmp148059 |gxc[1]#_g148060_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147448 __tmp147785 '13 '#f '#f)) - (let ((__tmp147787 |gxc[1]#_g147788_|)) + (##unchecked-structure-set! __obj147722 __tmp148059 '13 '#f '#f)) + (let ((__tmp148061 |gxc[1]#_g148062_|)) (declare (not safe)) - (##unchecked-structure-set! __obj147448 __tmp147787 '14 '#f '#f)) - (let ((__tmp147789 - (cons (cons 'ctx |gxc[1]#_g147790_|) - (cons (cons 'phi |gxc[1]#_g147791_|) - (cons (cons 'n |gxc[1]#_g147792_|) - (cons (cons 'code |gxc[1]#_g147793_|) + (##unchecked-structure-set! __obj147722 __tmp148061 '14 '#f '#f)) + (let ((__tmp148063 + (cons (cons 'ctx |gxc[1]#_g148064_|) + (cons (cons 'phi |gxc[1]#_g148065_|) + (cons (cons 'n |gxc[1]#_g148066_|) + (cons (cons 'code |gxc[1]#_g148067_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj147448 __tmp147789 '15 '#f '#f)) - (let ((__tmp147794 - (cons (cons 'ctx |gxc[1]#_g147795_|) - (cons (cons 'phi |gxc[1]#_g147796_|) - (cons (cons 'n |gxc[1]#_g147797_|) - (cons (cons 'code |gxc[1]#_g147798_|) + (##unchecked-structure-set! __obj147722 __tmp148063 '15 '#f '#f)) + (let ((__tmp148068 + (cons (cons 'ctx |gxc[1]#_g148069_|) + (cons (cons 'phi |gxc[1]#_g148070_|) + (cons (cons 'n |gxc[1]#_g148071_|) + (cons (cons 'code |gxc[1]#_g148072_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj147448 __tmp147794 '16 '#f '#f)) - (let ((__tmp147799 - (cons (cons 'ctx |gxc[1]#_g147800_|) - (cons (cons 'phi |gxc[1]#_g147801_|) - (cons (cons 'n |gxc[1]#_g147802_|) - (cons (cons 'code |gxc[1]#_g147803_|) + (##unchecked-structure-set! __obj147722 __tmp148068 '16 '#f '#f)) + (let ((__tmp148073 + (cons (cons 'ctx |gxc[1]#_g148074_|) + (cons (cons 'phi |gxc[1]#_g148075_|) + (cons (cons 'n |gxc[1]#_g148076_|) + (cons (cons 'code |gxc[1]#_g148077_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj147448 __tmp147799 '17 '#f '#f)) - (let ((__tmp147804 - (cons (cons 'ctx |gxc[1]#_g147805_|) - (cons (cons 'phi |gxc[1]#_g147806_|) - (cons (cons 'n |gxc[1]#_g147807_|) - (cons (cons 'code |gxc[1]#_g147808_|) + (##unchecked-structure-set! __obj147722 __tmp148073 '17 '#f '#f)) + (let ((__tmp148078 + (cons (cons 'ctx |gxc[1]#_g148079_|) + (cons (cons 'phi |gxc[1]#_g148080_|) + (cons (cons 'n |gxc[1]#_g148081_|) + (cons (cons 'code |gxc[1]#_g148082_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj147448 __tmp147804 '18 '#f '#f)) + (##unchecked-structure-set! __obj147722 __tmp148078 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147448 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj147722 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147448 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj147722 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj147448 '() '20 '#f '#f)) - __obj147448)))) + (##unchecked-structure-set! __obj147722 '() '20 '#f '#f)) + __obj147722)))) diff --git a/src/bootstrap/gerbil/compiler/driver~0.scm b/src/bootstrap/gerbil/compiler/driver~0.scm index 1b43669e1..489748207 100644 --- a/src/bootstrap/gerbil/compiler/driver~0.scm +++ b/src/bootstrap/gerbil/compiler/driver~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/driver::timestamp 1713044323) + (define gerbil/compiler/driver::timestamp 1713454418) (begin (define gxc#default-gerbil-gsc (path-expand '"gsc" (path-expand '"bin" (path-expand '"~~")))) @@ -10,21 +10,21 @@ (define gxc#compile-timestamp (lambda () (inexact->exact - (floor (let ((__tmp200942 (current-time))) + (floor (let ((__tmp201216 (current-time))) (declare (not safe)) - (##time->seconds __tmp200942)))))) + (##time->seconds __tmp201216)))))) (define gxc#compile-timestamp-nanos (lambda () - (let ((__tmp200943 (current-time))) + (let ((__tmp201217 (current-time))) (declare (not safe)) - (##time->seconds __tmp200943)))) + (##time->seconds __tmp201217)))) (define gxc#scheme-file-settings '(permissions: 420 char-encoding: UTF-8 eol-encoding: lf)) (define gxc#with-output-to-scheme-file - (lambda (_%path200799%_ _%fun200800%_) + (lambda (_%path201073%_ _%fun201074%_) (with-output-to-file - (cons 'path: (cons _%path200799%_ gxc#scheme-file-settings)) - _%fun200800%_))) + (cons 'path: (cons _%path201073%_ gxc#scheme-file-settings)) + _%fun201074%_))) (define gxc#+gerbil-gsc+ '#f) (define gxc#gerbil-gsc (lambda () @@ -56,8 +56,8 @@ (##getenv '"GERBIL_AR" gxc#default-gerbil-ar)))) gxc#+gerbil-ar+)) (define gxc#gerbil-rpath - (lambda (_%gerbil-libdir200794%_) - (string-append '"-Wl,-rpath=" _%gerbil-libdir200794%_))) + (lambda (_%gerbil-libdir201068%_) + (string-append '"-Wl,-rpath=" _%gerbil-libdir201068%_))) (define gxc#gerbil-runtime-modules '("gerbil/runtime/gambit" "gerbil/runtime/util" @@ -78,251 +78,251 @@ "gerbil/runtime/init" "gerbil/runtime")) (define gxc#delete-directory* - (lambda (_%dir200792%_) (delete-file-or-directory _%dir200792%_ '#t))) + (lambda (_%dir201066%_) (delete-file-or-directory _%dir201066%_ '#t))) (define gxc#compile-module__% - (lambda (_%srcpath200765%_ _%opts200766%_) - (if (string? _%srcpath200765%_) + (lambda (_%srcpath201039%_ _%opts201040%_) + (if (string? _%srcpath201039%_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _%srcpath200765%_))) - (let ((_%outdir200768%_ + _%srcpath201039%_))) + (let ((_%outdir201042%_ (let () (declare (not safe)) - (pgetq__0 'output-dir: _%opts200766%_))) - (_%invoke-gsc?200769%_ + (pgetq__0 'output-dir: _%opts201040%_))) + (_%invoke-gsc?201043%_ (let () (declare (not safe)) - (pgetq__0 'invoke-gsc: _%opts200766%_))) - (_%gsc-options200770%_ + (pgetq__0 'invoke-gsc: _%opts201040%_))) + (_%gsc-options201044%_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _%opts200766%_))) - (_%keep-scm?200771%_ + (pgetq__0 'gsc-options: _%opts201040%_))) + (_%keep-scm?201045%_ (let () (declare (not safe)) - (pgetq__0 'keep-scm: _%opts200766%_))) - (_%verbosity200772%_ + (pgetq__0 'keep-scm: _%opts201040%_))) + (_%verbosity201046%_ (let () (declare (not safe)) - (pgetq__0 'verbose: _%opts200766%_))) - (_%optimize200773%_ + (pgetq__0 'verbose: _%opts201040%_))) + (_%optimize201047%_ (let () (declare (not safe)) - (pgetq__0 'optimize: _%opts200766%_))) - (_%debug200774%_ - (let () (declare (not safe)) (pgetq__0 'debug: _%opts200766%_))) - (_%gen-ssxi200775%_ + (pgetq__0 'optimize: _%opts201040%_))) + (_%debug201048%_ + (let () (declare (not safe)) (pgetq__0 'debug: _%opts201040%_))) + (_%gen-ssxi201049%_ (let () (declare (not safe)) - (pgetq__0 'generate-ssxi: _%opts200766%_))) - (_%parallel?200776%_ + (pgetq__0 'generate-ssxi: _%opts201040%_))) + (_%parallel?201050%_ (let () (declare (not safe)) - (pgetq__0 'parallel: _%opts200766%_)))) - (if _%outdir200768%_ - (let ((__tmp200944 + (pgetq__0 'parallel: _%opts201040%_)))) + (if _%outdir201042%_ + (let ((__tmp201218 (lambda () (let () (declare (not safe)) - (create-directory*__0 _%outdir200768%_))))) + (create-directory*__0 _%outdir201042%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp200944)) + (__with-lock gxc#+driver-mutex+ __tmp201218)) '#!void) - (if _%optimize200773%_ - (let ((__tmp200945 + (if _%optimize201047%_ + (let ((__tmp201219 (lambda () (let () (declare (not safe)) (gxc#optimizer-info-init!))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp200945)) + (__with-lock gxc#+driver-mutex+ __tmp201219)) '#!void) - (let ((__tmp200948 + (let ((__tmp201222 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile " _%srcpath200765%_)) + (gxc#verbose '"compile " _%srcpath201039%_)) (gxc#compile-top-module - (let ((__tmp200949 + (let ((__tmp201223 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _%srcpath200765%_))))) + (gx#import-module__0 _%srcpath201039%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp200949))))) - (__tmp200947 (gxc#compile-timestamp)) - (__tmp200946 - (cons 'compile-module (cons _%srcpath200765%_ '())))) + (__with-lock gxc#+driver-mutex+ __tmp201223))))) + (__tmp201221 (gxc#compile-timestamp)) + (__tmp201220 + (cons 'compile-module (cons _%srcpath201039%_ '())))) (declare (not safe)) (__call-with-parameters - __tmp200948 + __tmp201222 gxc#current-compile-output-dir - _%outdir200768%_ + _%outdir201042%_ gxc#current-compile-invoke-gsc - _%invoke-gsc?200769%_ + _%invoke-gsc?201043%_ gxc#current-compile-gsc-options - _%gsc-options200770%_ + _%gsc-options201044%_ gxc#current-compile-keep-scm - _%keep-scm?200771%_ + _%keep-scm?201045%_ gxc#current-compile-verbose - _%verbosity200772%_ + _%verbosity201046%_ gxc#current-compile-optimize - _%optimize200773%_ + _%optimize201047%_ gxc#current-compile-debug - _%debug200774%_ + _%debug201048%_ gxc#current-compile-generate-ssxi - _%gen-ssxi200775%_ + _%gen-ssxi201049%_ gxc#current-compile-timestamp - __tmp200947 + __tmp201221 gxc#current-compile-context - __tmp200946 + __tmp201220 gxc#current-compile-parallel - _%parallel?200776%_ + _%parallel?201050%_ gx#current-expander-compiling? '#t))))) (define gxc#compile-module__0 - (lambda (_%srcpath200785%_) - (let ((_%opts200787%_ '())) - (gxc#compile-module__% _%srcpath200785%_ _%opts200787%_)))) + (lambda (_%srcpath201059%_) + (let ((_%opts201061%_ '())) + (gxc#compile-module__% _%srcpath201059%_ _%opts201061%_)))) (define gxc#compile-module - (lambda _g200951_ - (let ((_g200950_ (let () (declare (not safe)) (##length _g200951_)))) - (cond ((let () (declare (not safe)) (##fx= _g200950_ 1)) - (apply gxc#compile-module__0 _g200951_)) - ((let () (declare (not safe)) (##fx= _g200950_ 2)) - (apply gxc#compile-module__% _g200951_)) + (lambda _g201225_ + (let ((_g201224_ (let () (declare (not safe)) (##length _g201225_)))) + (cond ((let () (declare (not safe)) (##fx= _g201224_ 1)) + (apply gxc#compile-module__0 _g201225_)) + ((let () (declare (not safe)) (##fx= _g201224_ 2)) + (apply gxc#compile-module__% _g201225_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-module - _g200951_)))))) + _g201225_)))))) (define gxc#compile-exe__% - (lambda (_%srcpath200740%_ _%opts200741%_) - (if (string? _%srcpath200740%_) + (lambda (_%srcpath201014%_ _%opts201015%_) + (if (string? _%srcpath201014%_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _%srcpath200740%_))) - (let ((_%outdir200743%_ + _%srcpath201014%_))) + (let ((_%outdir201017%_ (let () (declare (not safe)) - (pgetq__0 'output-dir: _%opts200741%_))) - (_%invoke-gsc?200744%_ + (pgetq__0 'output-dir: _%opts201015%_))) + (_%invoke-gsc?201018%_ (let () (declare (not safe)) - (pgetq__0 'invoke-gsc: _%opts200741%_))) - (_%gsc-options200745%_ + (pgetq__0 'invoke-gsc: _%opts201015%_))) + (_%gsc-options201019%_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _%opts200741%_))) - (_%keep-scm?200746%_ + (pgetq__0 'gsc-options: _%opts201015%_))) + (_%keep-scm?201020%_ (let () (declare (not safe)) - (pgetq__0 'keep-scm: _%opts200741%_))) - (_%verbosity200747%_ + (pgetq__0 'keep-scm: _%opts201015%_))) + (_%verbosity201021%_ (let () (declare (not safe)) - (pgetq__0 'verbose: _%opts200741%_))) - (_%debug200748%_ - (let () (declare (not safe)) (pgetq__0 'debug: _%opts200741%_))) - (_%parallel?200749%_ + (pgetq__0 'verbose: _%opts201015%_))) + (_%debug201022%_ + (let () (declare (not safe)) (pgetq__0 'debug: _%opts201015%_))) + (_%parallel?201023%_ (let () (declare (not safe)) - (pgetq__0 'parallel: _%opts200741%_)))) - (if _%outdir200743%_ - (let ((__tmp200952 + (pgetq__0 'parallel: _%opts201015%_)))) + (if _%outdir201017%_ + (let ((__tmp201226 (lambda () (let () (declare (not safe)) - (create-directory*__0 _%outdir200743%_))))) + (create-directory*__0 _%outdir201017%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp200952)) + (__with-lock gxc#+driver-mutex+ __tmp201226)) '#!void) - (let ((__tmp200955 + (let ((__tmp201229 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile exe " _%srcpath200740%_)) + (gxc#verbose '"compile exe " _%srcpath201014%_)) (gxc#compile-executable-module - (let ((__tmp200956 + (let ((__tmp201230 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _%srcpath200740%_))))) + (gx#import-module__0 _%srcpath201014%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp200956)) - _%opts200741%_))) - (__tmp200954 (gxc#compile-timestamp)) - (__tmp200953 (cons 'compile-exe (cons _%srcpath200740%_ '())))) + (__with-lock gxc#+driver-mutex+ __tmp201230)) + _%opts201015%_))) + (__tmp201228 (gxc#compile-timestamp)) + (__tmp201227 (cons 'compile-exe (cons _%srcpath201014%_ '())))) (declare (not safe)) (__call-with-parameters - __tmp200955 + __tmp201229 gxc#current-compile-output-dir - _%outdir200743%_ + _%outdir201017%_ gxc#current-compile-invoke-gsc - _%invoke-gsc?200744%_ + _%invoke-gsc?201018%_ gxc#current-compile-gsc-options - _%gsc-options200745%_ + _%gsc-options201019%_ gxc#current-compile-keep-scm - _%keep-scm?200746%_ + _%keep-scm?201020%_ gxc#current-compile-verbose - _%verbosity200747%_ + _%verbosity201021%_ gxc#current-compile-debug - _%debug200748%_ + _%debug201022%_ gxc#current-compile-timestamp - __tmp200954 + __tmp201228 gxc#current-compile-context - __tmp200953 + __tmp201227 gxc#current-compile-parallel - _%parallel?200749%_ + _%parallel?201023%_ gx#current-expander-compiling? '#t))))) (define gxc#compile-exe__0 - (lambda (_%srcpath200757%_) - (let ((_%opts200759%_ '())) - (gxc#compile-exe__% _%srcpath200757%_ _%opts200759%_)))) + (lambda (_%srcpath201031%_) + (let ((_%opts201033%_ '())) + (gxc#compile-exe__% _%srcpath201031%_ _%opts201033%_)))) (define gxc#compile-exe - (lambda _g200958_ - (let ((_g200957_ (let () (declare (not safe)) (##length _g200958_)))) - (cond ((let () (declare (not safe)) (##fx= _g200957_ 1)) - (apply gxc#compile-exe__0 _g200958_)) - ((let () (declare (not safe)) (##fx= _g200957_ 2)) - (apply gxc#compile-exe__% _g200958_)) + (lambda _g201232_ + (let ((_g201231_ (let () (declare (not safe)) (##length _g201232_)))) + (cond ((let () (declare (not safe)) (##fx= _g201231_ 1)) + (apply gxc#compile-exe__0 _g201232_)) + ((let () (declare (not safe)) (##fx= _g201231_ 2)) + (apply gxc#compile-exe__% _g201232_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-exe - _g200958_)))))) + _g201232_)))))) (define gxc#compile-executable-module - (lambda (_%ctx200736%_ _%opts200737%_) + (lambda (_%ctx201010%_ _%opts201011%_) (if (let () (declare (not safe)) - (pgetq__0 'full-program-optimization: _%opts200737%_)) + (pgetq__0 'full-program-optimization: _%opts201011%_)) (gxc#compile-executable-module/full-program-optimization - _%ctx200736%_ - _%opts200737%_) + _%ctx201010%_ + _%opts201011%_) (gxc#compile-executable-module/separate - _%ctx200736%_ - _%opts200737%_)))) + _%ctx201010%_ + _%opts201011%_)))) (define gxc#compile-executable-module/separate - (lambda (_%ctx200526%_ _%opts200527%_) - (letrec ((_%generate-stub200529%_ - (lambda (_%builtin-modules200732%_) - (let ((_%mod-main200734%_ - (gxc#find-runtime-symbol _%ctx200526%_ 'main))) - (let ((__tmp200959 + (lambda (_%ctx200800%_ _%opts200801%_) + (letrec ((_%generate-stub200803%_ + (lambda (_%builtin-modules201006%_) + (let ((_%mod-main201008%_ + (gxc#find-runtime-symbol _%ctx200800%_ 'main))) + (let ((__tmp201233 (cons 'define (cons 'builtin-modules (cons (cons 'quote - (cons _%builtin-modules200732%_ + (cons _%builtin-modules201006%_ '())) '()))))) (declare (not safe)) - (##write __tmp200959)) - (let ((__tmp200960 + (##write __tmp201233)) + (let ((__tmp201234 (cons 'define (cons (cons 'gerbil-main '()) (cons (cons 'with-unwind-protect @@ -332,7 +332,7 @@ (cons (cons 'gerbil-runtime-init! (cons 'builtin-modules '())) (cons (cons 'apply - (cons _%mod-main200734%_ + (cons _%mod-main201008%_ (cons (cons 'cdr ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'command-line '()) '())) @@ -370,327 +370,327 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (##write __tmp200960)) + (##write __tmp201234)) (let () (declare (not safe)) (##write '(gerbil-main))) (newline)))) - (_%get-libgerbil-ld-opts200530%_ - (lambda (_%gerbil-libdir200730%_) - (let ((__tmp200961 + (_%get-libgerbil-ld-opts200804%_ + (lambda (_%gerbil-libdir201004%_) + (let ((__tmp201235 (path-expand '"libgerbil.ldd" - _%gerbil-libdir200730%_))) + _%gerbil-libdir201004%_))) (declare (not safe)) - (##call-with-input-file __tmp200961 read)))) - (_%replace-extension200531%_ - (lambda (_%path200727%_ _%ext200728%_) + (##call-with-input-file __tmp201235 read)))) + (_%replace-extension200805%_ + (lambda (_%path201001%_ _%ext201002%_) (string-append - (path-strip-extension _%path200727%_) - _%ext200728%_))) - (_%userlib-module?200532%_ - (lambda (_%ctx200725%_) - (if (_%exclude-module?200534%_ _%ctx200725%_) + (path-strip-extension _%path201001%_) + _%ext201002%_))) + (_%userlib-module?200806%_ + (lambda (_%ctx200999%_) + (if (_%exclude-module?200808%_ _%ctx200999%_) '#f - (not (_%libgerbil-module?200533%_ _%ctx200725%_))))) - (_%libgerbil-module?200533%_ - (lambda (_%ctx200718%_) - (let ((_%id-str200720%_ + (not (_%libgerbil-module?200807%_ _%ctx200999%_))))) + (_%libgerbil-module?200807%_ + (lambda (_%ctx200992%_) + (let ((_%id-str200994%_ (symbol->string (##structure-ref - _%ctx200718%_ + _%ctx200992%_ '1 gx#expander-context::t '#f)))) - (if (_%exclude-module?200534%_ _%id-str200720%_) + (if (_%exclude-module?200808%_ _%id-str200994%_) '#f - (let ((_%$e200722%_ + (let ((_%$e200996%_ (let () (declare (not safe)) (##string-prefix? '"gerbil/" - _%id-str200720%_)))) - (if _%$e200722%_ - _%$e200722%_ + _%id-str200994%_)))) + (if _%$e200996%_ + _%$e200996%_ (let () (declare (not safe)) (##string-prefix? '"std/" - _%id-str200720%_)))))))) - (_%exclude-module?200534%_ - (lambda (_%ctx-or-str200714%_) - (let ((_%str200716%_ - (if (string? _%ctx-or-str200714%_) - _%ctx-or-str200714%_ + _%id-str200994%_)))))))) + (_%exclude-module?200808%_ + (lambda (_%ctx-or-str200988%_) + (let ((_%str200990%_ + (if (string? _%ctx-or-str200988%_) + _%ctx-or-str200988%_ (symbol->string (##structure-ref - _%ctx-or-str200714%_ + _%ctx-or-str200988%_ '1 gx#expander-context::t '#f))))) (declare (not safe)) - (##string-prefix? '"gerbil/core" _%str200716%_)))) - (_%not-file-empty?200535%_ - (lambda (_%path200712%_) - (not (gxc#file-empty? _%path200712%_)))) - (_%fold-libgerbil-runtime-scm200536%_ - (lambda (_%gerbil-staticdir200705%_ _%libgerbil-scm200706%_) - (let ((_%gerbil-runtime-scm200710%_ - (let ((__tmp200962 - (lambda (_%rtm200708%_) + (##string-prefix? '"gerbil/core" _%str200990%_)))) + (_%not-file-empty?200809%_ + (lambda (_%path200986%_) + (not (gxc#file-empty? _%path200986%_)))) + (_%fold-libgerbil-runtime-scm200810%_ + (lambda (_%gerbil-staticdir200979%_ _%libgerbil-scm200980%_) + (let ((_%gerbil-runtime-scm200984%_ + (let ((__tmp201236 + (lambda (_%rtm200982%_) (path-expand - (let ((__tmp200963 - (let ((__tmp200964 + (let ((__tmp201237 + (let ((__tmp201238 (let () (declare (not safe)) (string-split - _%rtm200708%_ + _%rtm200982%_ '#\/)))) (declare (not safe)) (string-join - __tmp200964 + __tmp201238 '"__")))) (declare (not safe)) - (##string-append __tmp200963 '".scm")) - _%gerbil-staticdir200705%_)))) + (##string-append __tmp201237 '".scm")) + _%gerbil-staticdir200979%_)))) (declare (not safe)) - (##map __tmp200962 gxc#gerbil-runtime-modules)))) - (_%remove-duplicates200537%_ - (append _%gerbil-runtime-scm200710%_ - _%libgerbil-scm200706%_))))) - (_%remove-duplicates200537%_ - (lambda (_%strlst200665%_) - (let _%loop200667%_ ((_%rest200669%_ _%strlst200665%_) - (_%result200670%_ '())) - (let* ((_%rest200671200679%_ _%rest200669%_) - (_%else200673200687%_ - (lambda () (reverse! _%result200670%_))) - (_%K200675200693%_ - (lambda (_%rest200690%_ _%path200691%_) - (if (member _%path200691%_ _%result200670%_) - (_%loop200667%_ - _%rest200690%_ - _%result200670%_) - (_%loop200667%_ - _%rest200690%_ - (cons _%path200691%_ - _%result200670%_)))))) + (##map __tmp201236 gxc#gerbil-runtime-modules)))) + (_%remove-duplicates200811%_ + (append _%gerbil-runtime-scm200984%_ + _%libgerbil-scm200980%_))))) + (_%remove-duplicates200811%_ + (lambda (_%strlst200939%_) + (let _%loop200941%_ ((_%rest200943%_ _%strlst200939%_) + (_%result200944%_ '())) + (let* ((_%rest200945200953%_ _%rest200943%_) + (_%else200947200961%_ + (lambda () (reverse! _%result200944%_))) + (_%K200949200967%_ + (lambda (_%rest200964%_ _%path200965%_) + (if (member _%path200965%_ _%result200944%_) + (_%loop200941%_ + _%rest200964%_ + _%result200944%_) + (_%loop200941%_ + _%rest200964%_ + (cons _%path200965%_ + _%result200944%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest200671200679%_)) - (let ((_%hd200676200696%_ + (##pair? _%rest200945200953%_)) + (let ((_%hd200950200970%_ (let () (declare (not safe)) - (##car _%rest200671200679%_))) - (_%tl200677200698%_ + (##car _%rest200945200953%_))) + (_%tl200951200972%_ (let () (declare (not safe)) - (##cdr _%rest200671200679%_)))) - (let* ((_%path200701%_ _%hd200676200696%_) - (_%rest200703%_ _%tl200677200698%_)) - (_%K200675200693%_ - _%rest200703%_ - _%path200701%_))) - (_%else200673200687%_)))))) - (_%compile-stub200538%_ - (lambda (_%output-scm200545%_ _%output-bin200546%_) - (let* ((_%gerbil-home200548%_ - (let ((__tmp200965 + (##cdr _%rest200945200953%_)))) + (let* ((_%path200975%_ _%hd200950200970%_) + (_%rest200977%_ _%tl200951200972%_)) + (_%K200949200967%_ + _%rest200977%_ + _%path200975%_))) + (_%else200947200961%_)))))) + (_%compile-stub200812%_ + (lambda (_%output-scm200819%_ _%output-bin200820%_) + (let* ((_%gerbil-home200822%_ + (let ((__tmp201239 (let () (declare (not safe)) (gerbil-home)))) (declare (not safe)) - (##getenv '"GERBIL_BUILD_PREFIX" __tmp200965))) - (_%gerbil-libdir200550%_ - (path-expand '"lib" _%gerbil-home200548%_)) - (_%gerbil-staticdir200552%_ - (path-expand '"static" _%gerbil-libdir200550%_)) - (_%deps200554%_ - (gxc#find-runtime-module-deps _%ctx200526%_)) - (_%libgerbil-deps200556%_ + (##getenv '"GERBIL_BUILD_PREFIX" __tmp201239))) + (_%gerbil-libdir200824%_ + (path-expand '"lib" _%gerbil-home200822%_)) + (_%gerbil-staticdir200826%_ + (path-expand '"static" _%gerbil-libdir200824%_)) + (_%deps200828%_ + (gxc#find-runtime-module-deps _%ctx200800%_)) + (_%libgerbil-deps200830%_ (let () (declare (not safe)) (##filter - _%libgerbil-module?200533%_ - _%deps200554%_))) - (_%libgerbil-scm200558%_ + _%libgerbil-module?200807%_ + _%deps200828%_))) + (_%libgerbil-scm200832%_ (let () (declare (not safe)) (##map gxc#find-static-module-file - _%libgerbil-deps200556%_))) - (_%libgerbil-scm200560%_ - (_%fold-libgerbil-runtime-scm200536%_ - _%gerbil-staticdir200552%_ - _%libgerbil-scm200558%_)) - (_%libgerbil-c200566%_ - (map (lambda (_%g200561200563%_) - (_%replace-extension200531%_ - _%g200561200563%_ + _%libgerbil-deps200830%_))) + (_%libgerbil-scm200834%_ + (_%fold-libgerbil-runtime-scm200810%_ + _%gerbil-staticdir200826%_ + _%libgerbil-scm200832%_)) + (_%libgerbil-c200840%_ + (map (lambda (_%g200835200837%_) + (_%replace-extension200805%_ + _%g200835200837%_ '".c")) - _%libgerbil-scm200560%_)) - (_%libgerbil-o200572%_ - (map (lambda (_%g200567200569%_) - (_%replace-extension200531%_ - _%g200567200569%_ + _%libgerbil-scm200834%_)) + (_%libgerbil-o200846%_ + (map (lambda (_%g200841200843%_) + (_%replace-extension200805%_ + _%g200841200843%_ '".o")) - _%libgerbil-scm200560%_)) - (_%src-deps200574%_ + _%libgerbil-scm200834%_)) + (_%src-deps200848%_ (let () (declare (not safe)) (##filter - _%userlib-module?200532%_ - _%deps200554%_))) - (_%src-deps-scm200576%_ + _%userlib-module?200806%_ + _%deps200828%_))) + (_%src-deps-scm200850%_ (let () (declare (not safe)) (##map gxc#find-static-module-file - _%src-deps200574%_))) - (_%src-deps-scm200578%_ + _%src-deps200848%_))) + (_%src-deps-scm200852%_ (let () (declare (not safe)) (##filter - _%not-file-empty?200535%_ - _%src-deps-scm200576%_))) - (_%src-deps-scm200580%_ + _%not-file-empty?200809%_ + _%src-deps-scm200850%_))) + (_%src-deps-scm200854%_ (let () (declare (not safe)) - (##map path-expand _%src-deps-scm200578%_))) - (_%src-deps-c200586%_ - (let ((__tmp200966 - (lambda (_%g200581200583%_) - (_%replace-extension200531%_ - _%g200581200583%_ + (##map path-expand _%src-deps-scm200852%_))) + (_%src-deps-c200860%_ + (let ((__tmp201240 + (lambda (_%g200855200857%_) + (_%replace-extension200805%_ + _%g200855200857%_ '".c")))) (declare (not safe)) - (##map __tmp200966 _%src-deps-scm200580%_))) - (_%src-deps-o200592%_ - (let ((__tmp200967 - (lambda (_%g200587200589%_) - (_%replace-extension200531%_ - _%g200587200589%_ + (##map __tmp201240 _%src-deps-scm200854%_))) + (_%src-deps-o200866%_ + (let ((__tmp201241 + (lambda (_%g200861200863%_) + (_%replace-extension200805%_ + _%g200861200863%_ '".o")))) (declare (not safe)) - (##map __tmp200967 _%src-deps-scm200580%_))) - (_%src-bin-scm200594%_ - (gxc#find-static-module-file _%ctx200526%_)) - (_%src-bin-scm200596%_ - (path-expand _%src-bin-scm200594%_)) - (_%src-bin-c200598%_ - (_%replace-extension200531%_ - _%src-bin-scm200596%_ + (##map __tmp201241 _%src-deps-scm200854%_))) + (_%src-bin-scm200868%_ + (gxc#find-static-module-file _%ctx200800%_)) + (_%src-bin-scm200870%_ + (path-expand _%src-bin-scm200868%_)) + (_%src-bin-c200872%_ + (_%replace-extension200805%_ + _%src-bin-scm200870%_ '".c")) - (_%src-bin-o200600%_ - (_%replace-extension200531%_ - _%src-bin-scm200596%_ + (_%src-bin-o200874%_ + (_%replace-extension200805%_ + _%src-bin-scm200870%_ '".o")) - (_%output-bin200602%_ - (path-expand _%output-bin200546%_)) - (_%output-scm200604%_ - (path-expand _%output-scm200545%_)) - (_%output-c200606%_ - (_%replace-extension200531%_ - _%output-scm200604%_ + (_%output-bin200876%_ + (path-expand _%output-bin200820%_)) + (_%output-scm200878%_ + (path-expand _%output-scm200819%_)) + (_%output-c200880%_ + (_%replace-extension200805%_ + _%output-scm200878%_ '".c")) - (_%output-o200608%_ - (_%replace-extension200531%_ - _%output-scm200604%_ + (_%output-o200882%_ + (_%replace-extension200805%_ + _%output-scm200878%_ '".o")) - (_%output_-c200610%_ - (_%replace-extension200531%_ - _%output-scm200604%_ + (_%output_-c200884%_ + (_%replace-extension200805%_ + _%output-scm200878%_ '"_.c")) - (_%output_-o200612%_ - (_%replace-extension200531%_ - _%output-scm200604%_ + (_%output_-o200886%_ + (_%replace-extension200805%_ + _%output-scm200878%_ '"_.o")) - (_%gsc-link-opts200614%_ (gxc#gsc-link-options__0)) - (_%gsc-cc-opts200616%_ + (_%gsc-link-opts200888%_ (gxc#gsc-link-options__0)) + (_%gsc-cc-opts200890%_ (gxc#gsc-cc-options__%__0 '#f '#t)) - (_%gsc-static-opts200618%_ + (_%gsc-static-opts200892%_ (gxc#gsc-static-include-options - _%gerbil-staticdir200552%_)) - (_%output-ld-opts200620%_ (gxc#gcc-ld-options)) - (_%libgerbil-ld-opts200622%_ - (_%get-libgerbil-ld-opts200530%_ - _%gerbil-libdir200550%_)) - (_%rpath200624%_ - (gxc#gerbil-rpath _%gerbil-libdir200550%_)) - (_%builtin-modules200628%_ - (_%remove-duplicates200537%_ - (let ((__tmp200968 - (let ((__tmp200970 - (lambda (_%mod200626%_) + _%gerbil-staticdir200826%_)) + (_%output-ld-opts200894%_ (gxc#gcc-ld-options)) + (_%libgerbil-ld-opts200896%_ + (_%get-libgerbil-ld-opts200804%_ + _%gerbil-libdir200824%_)) + (_%rpath200898%_ + (gxc#gerbil-rpath _%gerbil-libdir200824%_)) + (_%builtin-modules200902%_ + (_%remove-duplicates200811%_ + (let ((__tmp201242 + (let ((__tmp201244 + (lambda (_%mod200900%_) (symbol->string (##structure-ref - _%mod200626%_ + _%mod200900%_ '1 gx#expander-context::t '#f)))) - (__tmp200969 - (cons _%ctx200526%_ - _%deps200554%_))) + (__tmp201243 + (cons _%ctx200800%_ + _%deps200828%_))) (declare (not safe)) - (##map __tmp200970 __tmp200969)))) + (##map __tmp201244 __tmp201243)))) (declare (not safe)) (##append gxc#gerbil-runtime-modules - __tmp200968))))) - (letrec ((_%compile-obj200631%_ - (lambda (_%scm-path200638%_ _%c-path200639%_) - (let* ((_%o-path200641%_ - (_%replace-extension200531%_ - _%c-path200639%_ + __tmp201242))))) + (letrec ((_%compile-obj200905%_ + (lambda (_%scm-path200912%_ _%c-path200913%_) + (let* ((_%o-path200915%_ + (_%replace-extension200805%_ + _%c-path200913%_ '".o")) - (_%lock200643%_ + (_%lock200917%_ (let () (declare (not safe)) (##string-append - _%o-path200641%_ + _%o-path200915%_ '".lock"))) - (_%locked200645%_ '#f) - (_%unlock200648%_ + (_%locked200919%_ '#f) + (_%unlock200922%_ (lambda () - (close-port _%locked200645%_) + (close-port _%locked200919%_) (let () (declare (not safe)) (##delete-file - _%lock200643%_))))) - (let _%retry200651%_ () + _%lock200917%_))))) + (let _%retry200925%_ () (if (let () (declare (not safe)) - (##file-exists? _%lock200643%_)) + (##file-exists? _%lock200917%_)) (begin (thread-sleep! '.01) - (_%retry200651%_)) + (_%retry200925%_)) (begin - (set! _%locked200645%_ - (let ((__tmp200971 + (set! _%locked200919%_ + (let ((__tmp201245 (lambda () (open-file (cons 'path: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%lock200643%_ + (cons _%lock200917%_ (cons 'create: (cons '#t '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__with-catch false - __tmp200971))) - (if _%locked200645%_ + __tmp201245))) + (if _%locked200919%_ '#!void - (_%retry200651%_))))) - (let ((__tmp200973 + (_%retry200925%_))))) + (let ((__tmp201247 (lambda () (if (or (not (let () (declare (not safe)) (##file-exists? - _%o-path200641%_))) - (not _%scm-path200638%_) + _%o-path200915%_))) + (not _%scm-path200912%_) (let () (declare (not safe)) (file-newer? - _%scm-path200638%_ - _%o-path200641%_))) - (let ((_%gsc-cc-opts200662%_ + _%scm-path200912%_ + _%o-path200915%_))) + (let ((_%gsc-cc-opts200936%_ (gxc#gsc-cc-options__%__0 '#f '#f))) @@ -700,41 +700,41 @@ absent-value (gxc#gerbil-gsc) (cons '"-obj" - (let ((__tmp200974 + (let ((__tmp201248 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp200975 (cons _%c-path200639%_ '()))) + (let ((__tmp201249 (cons _%c-path200913%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp200975 - _%gsc-static-opts200618%_)))) + __tmp201249 + _%gsc-static-opts200892%_)))) (declare (not safe)) - (__foldr1 cons __tmp200974 _%gsc-cc-opts200662%_))))) + (__foldr1 cons __tmp201248 _%gsc-cc-opts200936%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#!void))) - (__tmp200972 - (lambda () (_%unlock200648%_)))) + (__tmp201246 + (lambda () (_%unlock200922%_)))) (declare (not safe)) (__with-unwind-protect - __tmp200973 - __tmp200972)))))) - (let ((__tmp200976 + __tmp201247 + __tmp201246)))))) + (let ((__tmp201250 (lambda () - (let ((__tmp200977 - (path-directory _%output-bin200602%_))) + (let ((__tmp201251 + (path-directory _%output-bin200876%_))) (declare (not safe)) - (create-directory*__0 __tmp200977))))) + (create-directory*__0 __tmp201251))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp200976)) + (__with-lock gxc#+driver-mutex+ __tmp201250)) (gxc#with-output-to-scheme-file - _%output-scm200604%_ + _%output-scm200878%_ (lambda () - (_%generate-stub200529%_ - _%builtin-modules200628%_))) + (_%generate-stub200803%_ + _%builtin-modules200902%_))) (if (let () (declare (not safe)) (gxc#current-compile-invoke-gsc)) - (let ((_%compile-it200636%_ + (let ((_%compile-it200910%_ (lambda () (gxc#invoke__% '#f @@ -742,46 +742,46 @@ absent-value (gxc#gerbil-gsc) (cons '"-link" - (let ((__tmp200978 - (let ((__tmp200979 - (let ((__tmp200980 + (let ((__tmp201252 + (let ((__tmp201253 + (let ((__tmp201254 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%src-bin-scm200596%_ - (cons _%output-scm200604%_ '())))) + (cons _%src-bin-scm200870%_ + (cons _%output-scm200878%_ '())))) (declare (not safe)) - (__foldr1 cons __tmp200980 _%src-deps-scm200580%_)))) + (__foldr1 cons __tmp201254 _%src-deps-scm200854%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 cons - __tmp200979 - _%libgerbil-c200566%_)))) + __tmp201253 + _%libgerbil-c200840%_)))) (declare (not safe)) (__foldr1 cons - __tmp200978 - _%gsc-link-opts200614%_)))) + __tmp201252 + _%gsc-link-opts200888%_)))) (for-each - _%compile-obj200631%_ - (let ((__tmp200981 - (cons _%src-bin-scm200596%_ - (cons _%output-scm200604%_ + _%compile-obj200905%_ + (let ((__tmp201255 + (cons _%src-bin-scm200870%_ + (cons _%output-scm200878%_ (cons '#f '()))))) (declare (not safe)) (__foldr1 cons - __tmp200981 - _%src-deps-scm200580%_)) - (let ((__tmp200982 - (cons _%src-bin-c200598%_ - (cons _%output-c200606%_ - (cons _%output_-c200610%_ + __tmp201255 + _%src-deps-scm200854%_)) + (let ((__tmp201256 + (cons _%src-bin-c200872%_ + (cons _%output-c200880%_ + (cons _%output_-c200884%_ '()))))) (declare (not safe)) (__foldr1 cons - __tmp200982 - _%src-deps-c200586%_))) + __tmp201256 + _%src-deps-c200860%_))) (gxc#invoke__% '#f absent-value @@ -789,71 +789,71 @@ (gxc#gerbil-gcc) (cons '"-w" (cons '"-o" - (cons _%output-bin200602%_ - (let ((__tmp200983 - (cons _%src-bin-o200600%_ + (cons _%output-bin200876%_ + (let ((__tmp201257 + (cons _%src-bin-o200874%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%output-o200608%_ - (cons _%output_-o200612%_ - (let ((__tmp200984 - (let ((__tmp200985 - (let ((__tmp200987 + (cons _%output-o200882%_ + (cons _%output_-o200886%_ + (let ((__tmp201258 + (let ((__tmp201259 + (let ((__tmp201261 (cons '"-L" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%gerbil-libdir200550%_ + (cons _%gerbil-libdir200824%_ (cons '"-lgambit" - _%libgerbil-ld-opts200622%_)))) - (__tmp200986 + _%libgerbil-ld-opts200896%_)))) + (__tmp201260 (if (gxc#gerbil-enable-shared?) - (cons _%rpath200624%_ '()) + (cons _%rpath200898%_ '()) '()))) (declare (not safe)) - (__foldr1 cons __tmp200987 __tmp200986)))) + (__foldr1 cons __tmp201261 __tmp201260)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 cons - __tmp200985 - _%output-ld-opts200620%_)))) + __tmp201259 + _%output-ld-opts200894%_)))) (declare (not safe)) (__foldr1 cons - __tmp200984 - _%libgerbil-o200572%_))))))) + __tmp201258 + _%libgerbil-o200846%_))))))) (declare (not safe)) - (__foldr1 cons __tmp200983 _%src-deps-o200592%_)))))) + (__foldr1 cons __tmp201257 _%src-deps-o200866%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp200988 - (cons _%output-c200606%_ - (cons _%output_-c200610%_ - (cons _%output-o200608%_ - (cons _%output_-o200612%_ + (let ((__tmp201262 + (cons _%output-c200880%_ + (cons _%output_-c200884%_ + (cons _%output-o200882%_ + (cons _%output_-o200886%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##for-each delete-file __tmp200988))))) + (##for-each delete-file __tmp201262))))) (if (let () (declare (not safe)) (gxc#current-compile-parallel)) (let () (declare (not safe)) (gxc#add-compile-job!__0 - _%compile-it200636%_)) - (_%compile-it200636%_))) + _%compile-it200910%_)) + (_%compile-it200910%_))) '#!void)))))) - (let* ((_%output-bin200540%_ - (gxc#compile-exe-output-file _%ctx200526%_ _%opts200527%_)) - (_%output-scm200542%_ + (let* ((_%output-bin200814%_ + (gxc#compile-exe-output-file _%ctx200800%_ _%opts200801%_)) + (_%output-scm200816%_ (let () (declare (not safe)) - (##string-append _%output-bin200540%_ '"__exe.scm")))) - (_%compile-stub200538%_ - _%output-scm200542%_ - _%output-bin200540%_))))) + (##string-append _%output-bin200814%_ '"__exe.scm")))) + (_%compile-stub200812%_ + _%output-scm200816%_ + _%output-bin200814%_))))) (define gxc#compile-executable-module/full-program-optimization - (lambda (_%ctx200348%_ _%opts200349%_) - (letrec ((_%reset-declare200351%_ + (lambda (_%ctx200622%_ _%opts200623%_) + (letrec ((_%reset-declare200625%_ (lambda () '(declare (gambit-scheme) @@ -875,36 +875,36 @@ (optimize-dead-definitions) (generic) (mostly-fixnum-flonum)))) - (_%generate-stub200352%_ - (lambda (_%deps200517%_) - (let ((_%mod-main200519%_ - (gxc#find-runtime-symbol _%ctx200348%_ 'main)) - (_%reset-decl200520%_ (_%reset-declare200351%_)) - (_%user-decl200521%_ (_%user-declare200353%_))) + (_%generate-stub200626%_ + (lambda (_%deps200791%_) + (let ((_%mod-main200793%_ + (gxc#find-runtime-symbol _%ctx200622%_ 'main)) + (_%reset-decl200794%_ (_%reset-declare200625%_)) + (_%user-decl200795%_ (_%user-declare200627%_))) (for-each - (lambda (_%dep200523%_) + (lambda (_%dep200797%_) (let () (declare (not safe)) (##write '(##namespace ("")))) (newline) (let () (declare (not safe)) - (##write _%reset-decl200520%_)) + (##write _%reset-decl200794%_)) (newline) - (if _%user-decl200521%_ + (if _%user-decl200795%_ (begin (let () (declare (not safe)) - (##write _%user-decl200521%_)) + (##write _%user-decl200795%_)) (newline)) '#!void) - (let ((__tmp200989 - (cons 'include (cons _%dep200523%_ '())))) + (let ((__tmp201263 + (cons 'include (cons _%dep200797%_ '())))) (declare (not safe)) - (##write __tmp200989)) + (##write __tmp201263)) (newline)) - _%deps200517%_) - (let ((__tmp200990 + _%deps200791%_) + (let ((__tmp201264 (cons 'define (cons (cons 'gerbil-main '()) (cons (cons 'gerbil-runtime-init! @@ -914,240 +914,240 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons 'apply - (cons _%mod-main200519%_ + (cons _%mod-main200793%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'cdr (cons (cons 'command-line '()) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (##write __tmp200990)) + (##write __tmp201264)) (let () (declare (not safe)) (##write '(gerbil-main))) (newline)))) - (_%user-declare200353%_ + (_%user-declare200627%_ (lambda () - (let* ((_%gsc-opts200422%_ + (let* ((_%gsc-opts200696%_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _%opts200349%_))) - (_%gsc-prelude200424%_ - (if _%gsc-opts200422%_ - (member '"-prelude" _%gsc-opts200422%_) + (pgetq__0 'gsc-options: _%opts200623%_))) + (_%gsc-prelude200698%_ + (if _%gsc-opts200696%_ + (member '"-prelude" _%gsc-opts200696%_) '#f)) - (_%gsc-prelude200426%_ - (if _%gsc-prelude200424%_ + (_%gsc-prelude200700%_ + (if _%gsc-prelude200698%_ (read (open-input-string - (cadr _%gsc-prelude200424%_))) + (cadr _%gsc-prelude200698%_))) '#f))) - (let _%lp200429%_ ((_%rest200431%_ - (cons _%gsc-prelude200426%_ '())) - (_%user-decls200432%_ '())) - (let* ((_%rest200433200441%_ _%rest200431%_) - (_%else200435200449%_ + (let _%lp200703%_ ((_%rest200705%_ + (cons _%gsc-prelude200700%_ '())) + (_%user-decls200706%_ '())) + (let* ((_%rest200707200715%_ _%rest200705%_) + (_%else200709200723%_ (lambda () - (if (null? _%user-decls200432%_) + (if (null? _%user-decls200706%_) '#f (cons 'declare - (reverse _%user-decls200432%_))))) - (_%K200437200505%_ - (lambda (_%rest200452%_ _%expr200453%_) - (let* ((_%expr200454200466%_ _%expr200453%_) - (_%else200457200474%_ + (reverse _%user-decls200706%_))))) + (_%K200711200779%_ + (lambda (_%rest200726%_ _%expr200727%_) + (let* ((_%expr200728200740%_ _%expr200727%_) + (_%else200731200748%_ (lambda () - (_%lp200429%_ - _%rest200452%_ - _%user-decls200432%_)))) - (let ((_%K200462200495%_ - (lambda (_%decls200493%_) - (_%lp200429%_ - _%rest200452%_ + (_%lp200703%_ + _%rest200726%_ + _%user-decls200706%_)))) + (let ((_%K200736200769%_ + (lambda (_%decls200767%_) + (_%lp200703%_ + _%rest200726%_ (let () (declare (not safe)) (__foldl1 cons - _%user-decls200432%_ - _%decls200493%_))))) - (_%K200459200480%_ - (lambda (_%exprs200478%_) - (_%lp200429%_ - (append _%exprs200478%_ - _%rest200452%_) - _%user-decls200432%_)))) + _%user-decls200706%_ + _%decls200767%_))))) + (_%K200733200754%_ + (lambda (_%exprs200752%_) + (_%lp200703%_ + (append _%exprs200752%_ + _%rest200726%_) + _%user-decls200706%_)))) (if (let () (declare (not safe)) - (##pair? _%expr200454200466%_)) - (let ((_%tl200464200500%_ + (##pair? _%expr200728200740%_)) + (let ((_%tl200738200774%_ (let () (declare (not safe)) - (##cdr _%expr200454200466%_))) - (_%hd200463200498%_ + (##cdr _%expr200728200740%_))) + (_%hd200737200772%_ (let () (declare (not safe)) - (##car _%expr200454200466%_)))) + (##car _%expr200728200740%_)))) (if (let () (declare (not safe)) - (##eq? _%hd200463200498%_ + (##eq? _%hd200737200772%_ 'declare)) - (let ((_%decls200503%_ - _%tl200464200500%_)) - (_%K200462200495%_ - _%decls200503%_)) + (let ((_%decls200777%_ + _%tl200738200774%_)) + (_%K200736200769%_ + _%decls200777%_)) (if (let () (declare (not safe)) - (##eq? _%hd200463200498%_ + (##eq? _%hd200737200772%_ 'begin)) - (let ((_%exprs200488%_ - _%tl200464200500%_)) - (_%K200459200480%_ - _%exprs200488%_)) - (_%else200457200474%_)))) - (_%else200457200474%_))))))) + (let ((_%exprs200762%_ + _%tl200738200774%_)) + (_%K200733200754%_ + _%exprs200762%_)) + (_%else200731200748%_)))) + (_%else200731200748%_))))))) (if (let () (declare (not safe)) - (##pair? _%rest200433200441%_)) - (let ((_%hd200438200508%_ + (##pair? _%rest200707200715%_)) + (let ((_%hd200712200782%_ (let () (declare (not safe)) - (##car _%rest200433200441%_))) - (_%tl200439200510%_ + (##car _%rest200707200715%_))) + (_%tl200713200784%_ (let () (declare (not safe)) - (##cdr _%rest200433200441%_)))) - (let* ((_%expr200513%_ _%hd200438200508%_) - (_%rest200515%_ _%tl200439200510%_)) - (_%K200437200505%_ - _%rest200515%_ - _%expr200513%_))) - (_%else200435200449%_))))))) - (_%compile-stub200354%_ - (lambda (_%output-scm200361%_ _%output-bin200362%_) - (let* ((_%gerbil-home200364%_ - (let ((__tmp200991 + (##cdr _%rest200707200715%_)))) + (let* ((_%expr200787%_ _%hd200712200782%_) + (_%rest200789%_ _%tl200713200784%_)) + (_%K200711200779%_ + _%rest200789%_ + _%expr200787%_))) + (_%else200709200723%_))))))) + (_%compile-stub200628%_ + (lambda (_%output-scm200635%_ _%output-bin200636%_) + (let* ((_%gerbil-home200638%_ + (let ((__tmp201265 (let () (declare (not safe)) (gerbil-home)))) (declare (not safe)) - (##getenv '"GERBIL_BUILD_PREFIX" __tmp200991))) - (_%gerbil-libdir200366%_ - (path-expand '"lib" _%gerbil-home200364%_)) - (_%runtime200368%_ + (##getenv '"GERBIL_BUILD_PREFIX" __tmp201265))) + (_%gerbil-libdir200640%_ + (path-expand '"lib" _%gerbil-home200638%_)) + (_%runtime200642%_ (let () (declare (not safe)) (##map gxc#find-static-module-file gxc#gerbil-runtime-modules))) - (_%gambit-sharp200370%_ + (_%gambit-sharp200644%_ (path-expand '"lib/_gambit#.scm" - _%gerbil-home200364%_)) - (_%include-gambit-sharp200372%_ + _%gerbil-home200638%_)) + (_%include-gambit-sharp200646%_ (let () (declare (not safe)) (##string-append '"(include \"" - _%gambit-sharp200370%_ + _%gambit-sharp200644%_ '"\")"))) - (_%bin-scm200374%_ - (gxc#find-static-module-file _%ctx200348%_)) - (_%deps200376%_ - (gxc#find-runtime-module-deps _%ctx200348%_)) - (_%deps200378%_ + (_%bin-scm200648%_ + (gxc#find-static-module-file _%ctx200622%_)) + (_%deps200650%_ + (gxc#find-runtime-module-deps _%ctx200622%_)) + (_%deps200652%_ (let () (declare (not safe)) (##map gxc#find-static-module-file - _%deps200376%_))) - (_%deps200383%_ - (let ((__tmp200992 - (lambda (_%$obj200380%_) - (not (gxc#file-empty? _%$obj200380%_))))) + _%deps200650%_))) + (_%deps200657%_ + (let ((__tmp201266 + (lambda (_%$obj200654%_) + (not (gxc#file-empty? _%$obj200654%_))))) (declare (not safe)) - (##filter __tmp200992 _%deps200378%_))) - (_%deps200387%_ - (let ((__tmp200993 - (lambda (_%f200385%_) + (##filter __tmp201266 _%deps200652%_))) + (_%deps200661%_ + (let ((__tmp201267 + (lambda (_%f200659%_) (not (let () (declare (not safe)) (##member - _%f200385%_ - _%runtime200368%_)))))) + _%f200659%_ + _%runtime200642%_)))))) (declare (not safe)) - (##filter __tmp200993 _%deps200383%_))) - (_%output-base200389%_ - (let ((__tmp200994 + (##filter __tmp201267 _%deps200657%_))) + (_%output-base200663%_ + (let ((__tmp201268 (path-strip-extension - _%output-scm200361%_))) + _%output-scm200635%_))) (declare (not safe)) - (##string-append __tmp200994))) - (_%output-c200391%_ + (##string-append __tmp201268))) + (_%output-c200665%_ (let () (declare (not safe)) - (##string-append _%output-base200389%_ '".c"))) - (_%output-o200393%_ + (##string-append _%output-base200663%_ '".c"))) + (_%output-o200667%_ (let () (declare (not safe)) - (##string-append _%output-base200389%_ '".o"))) - (_%output-c_200395%_ + (##string-append _%output-base200663%_ '".o"))) + (_%output-c_200669%_ (let () (declare (not safe)) - (##string-append _%output-base200389%_ '"_.c"))) - (_%output-o_200397%_ + (##string-append _%output-base200663%_ '"_.c"))) + (_%output-o_200671%_ (let () (declare (not safe)) - (##string-append _%output-base200389%_ '"_.o"))) - (_%gsc-link-opts200399%_ (gxc#gsc-link-options__0)) - (_%gsc-cc-opts200401%_ + (##string-append _%output-base200663%_ '"_.o"))) + (_%gsc-link-opts200673%_ (gxc#gsc-link-options__0)) + (_%gsc-cc-opts200675%_ (gxc#gsc-cc-options__%__0 '#f '#t)) - (_%gsc-static-opts200403%_ + (_%gsc-static-opts200677%_ (gxc#gsc-static-include-options - (path-expand '"static" _%gerbil-libdir200366%_))) - (_%output-ld-opts200405%_ (gxc#gcc-ld-options)) - (_%gsc-gx-macros200407%_ + (path-expand '"static" _%gerbil-libdir200640%_))) + (_%output-ld-opts200679%_ (gxc#gcc-ld-options)) + (_%gsc-gx-macros200681%_ (if (let () (declare (not safe)) (gerbil-runtime-smp?)) (cons '"-e" (cons '"(define-cond-expand-feature|enable-smp|)" (cons '"-e" - (cons _%include-gambit-sharp200372%_ + (cons _%include-gambit-sharp200646%_ '())))) (cons '"-e" - (cons _%include-gambit-sharp200372%_ + (cons _%include-gambit-sharp200646%_ '())))) - (_%gsc-link-opts200409%_ + (_%gsc-link-opts200683%_ (let () (declare (not safe)) (##append - _%gsc-link-opts200399%_ - _%gsc-gx-macros200407%_))) - (_%rpath200411%_ - (gxc#gerbil-rpath _%gerbil-libdir200366%_)) - (_%default-ld-options200413%_ + _%gsc-link-opts200673%_ + _%gsc-gx-macros200681%_))) + (_%rpath200685%_ + (gxc#gerbil-rpath _%gerbil-libdir200640%_)) + (_%default-ld-options200687%_ (cons '"-ldl" (cons '"-lm" '())))) - (let ((__tmp200995 + (let ((__tmp201269 (lambda () - (let ((__tmp200996 - (path-directory _%output-bin200362%_))) + (let ((__tmp201270 + (path-directory _%output-bin200636%_))) (declare (not safe)) - (create-directory*__0 __tmp200996))))) + (create-directory*__0 __tmp201270))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp200995)) + (__with-lock gxc#+driver-mutex+ __tmp201269)) (gxc#with-output-to-scheme-file - _%output-scm200361%_ + _%output-scm200635%_ (lambda () - (_%generate-stub200352%_ - (let ((__tmp200997 - (let ((__tmp200998 - (cons _%bin-scm200374%_ '()))) + (_%generate-stub200626%_ + (let ((__tmp201271 + (let ((__tmp201272 + (cons _%bin-scm200648%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp200998 - _%deps200387%_)))) + __tmp201272 + _%deps200661%_)))) (declare (not safe)) - (__foldr1 cons __tmp200997 _%runtime200368%_))))) + (__foldr1 cons __tmp201271 _%runtime200642%_))))) (if (let () (declare (not safe)) (gxc#current-compile-invoke-gsc)) - (let ((_%compile-it200419%_ + (let ((_%compile-it200693%_ (lambda () (gxc#invoke__% '#f @@ -1156,13 +1156,13 @@ (gxc#gerbil-gsc) (cons '"-link" (cons '"-o" - (cons _%output-c_200395%_ - (let ((__tmp200999 - (cons _%output-scm200361%_ + (cons _%output-c_200669%_ + (let ((__tmp201273 + (cons _%output-scm200635%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) (declare (not safe)) - (__foldr1 cons __tmp200999 _%gsc-link-opts200409%_)))))) + (__foldr1 cons __tmp201273 _%gsc-link-opts200683%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gxc#invoke__% '#f @@ -1170,23 +1170,23 @@ absent-value (gxc#gerbil-gsc) (cons '"-obj" - (let ((__tmp201000 - (let ((__tmp201001 - (cons _%output-c200391%_ - (cons _%output-c_200395%_ + (let ((__tmp201274 + (let ((__tmp201275 + (cons _%output-c200665%_ + (cons _%output-c_200669%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 cons - __tmp201001 - _%gsc-static-opts200403%_)))) + __tmp201275 + _%gsc-static-opts200677%_)))) (declare (not safe)) (__foldr1 cons - __tmp201000 - _%gsc-cc-opts200401%_)))) + __tmp201274 + _%gsc-cc-opts200675%_)))) (gxc#invoke__% '#f absent-value @@ -1194,27 +1194,27 @@ (gxc#gerbil-gcc) (cons '"-w" (cons '"-o" - (cons _%output-bin200362%_ - (cons _%output-o200393%_ - (cons _%output-o_200397%_ + (cons _%output-bin200636%_ + (cons _%output-o200667%_ + (cons _%output-o_200671%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp201002 - (let ((__tmp201004 + (let ((__tmp201276 + (let ((__tmp201278 (cons '"-L" - (cons _%gerbil-libdir200366%_ + (cons _%gerbil-libdir200640%_ (cons '"-lgambit" - _%default-ld-options200413%_)))) - (__tmp201003 + _%default-ld-options200687%_)))) + (__tmp201277 (if (gxc#gerbil-enable-shared?) - (cons _%rpath200411%_ '()) + (cons _%rpath200685%_ '()) '()))) (declare (not safe)) - (__foldr1 cons __tmp201004 __tmp201003)))) + (__foldr1 cons __tmp201278 __tmp201277)))) (declare (not safe)) (__foldr1 cons - __tmp201002 - _%output-ld-opts200405%_))))))))))) + __tmp201276 + _%output-ld-opts200679%_))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) @@ -1222,630 +1222,630 @@ (let () (declare (not safe)) (gxc#add-compile-job!__0 - _%compile-it200419%_)) - (_%compile-it200419%_))) + _%compile-it200693%_)) + (_%compile-it200693%_))) '#!void))))) - (let* ((_%output-bin200356%_ - (gxc#compile-exe-output-file _%ctx200348%_ _%opts200349%_)) - (_%output-scm200358%_ + (let* ((_%output-bin200630%_ + (gxc#compile-exe-output-file _%ctx200622%_ _%opts200623%_)) + (_%output-scm200632%_ (let () (declare (not safe)) - (##string-append _%output-bin200356%_ '"__exe.scm")))) - (_%compile-stub200354%_ - _%output-scm200358%_ - _%output-bin200356%_))))) + (##string-append _%output-bin200630%_ '"__exe.scm")))) + (_%compile-stub200628%_ + _%output-scm200632%_ + _%output-bin200630%_))))) (define gxc#find-export-binding - (lambda (_%ctx200297%_ _%id200298%_) - (let ((_%$e200344%_ - (let ((__tmp201006 - (lambda (_%e200299200301%_) - (let* ((_%g200303200313%_ _%e200299200301%_) - (_%else200305200321%_ (lambda () '#f)) - (_%K200307200325%_ (lambda () '#t))) + (lambda (_%ctx200571%_ _%id200572%_) + (let ((_%$e200618%_ + (let ((__tmp201280 + (lambda (_%e200573200575%_) + (let* ((_%g200577200587%_ _%e200573200575%_) + (_%else200579200595%_ (lambda () '#f)) + (_%K200581200599%_ (lambda () '#t))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%g200303200313%_ + _%g200577200587%_ 'gx#module-export::t)) - (let* ((_%e200308200328%_ + (let* ((_%e200582200602%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g200303200313%_ + _%g200577200587%_ '1 '#f '#f))) - (_%e200309200331%_ + (_%e200583200605%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g200303200313%_ + _%g200577200587%_ '2 '#f '#f))) - (_%e200310200334%_ + (_%e200584200608%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g200303200313%_ + _%g200577200587%_ '3 '#f '#f)))) (if (let () (declare (not safe)) - (##eq? _%e200310200334%_ '0)) - (let ((_%e200311200337%_ + (##eq? _%e200584200608%_ '0)) + (let ((_%e200585200611%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g200303200313%_ + _%g200577200587%_ '4 '#f '#f)))) - (if ((lambda (_%g200339200341%_) - (eq? _%g200339200341%_ - _%id200298%_)) - _%e200311200337%_) - (_%K200307200325%_) - (_%else200305200321%_))) - (_%else200305200321%_))) - (_%else200305200321%_))))) - (__tmp201005 + (if ((lambda (_%g200613200615%_) + (eq? _%g200613200615%_ + _%id200572%_)) + _%e200585200611%_) + (_%K200581200599%_) + (_%else200579200595%_))) + (_%else200579200595%_))) + (_%else200579200595%_))))) + (__tmp201279 (##structure-ref - _%ctx200297%_ + _%ctx200571%_ '9 gx#module-context::t '#f))) (declare (not safe)) - (__find __tmp201006 __tmp201005)))) - (if _%$e200344%_ + (__find __tmp201280 __tmp201279)))) + (if _%$e200618%_ (let () (declare (not safe)) - (gx#core-resolve-module-export _%$e200344%_)) + (gx#core-resolve-module-export _%$e200618%_)) '#f)))) (define gxc#find-runtime-symbol - (lambda (_%ctx200288%_ _%id200289%_) - (let ((_%$e200291%_ - (gxc#find-export-binding _%ctx200288%_ _%id200289%_))) - (if _%$e200291%_ - ((lambda (_%bind200294%_) + (lambda (_%ctx200562%_ _%id200563%_) + (let ((_%$e200565%_ + (gxc#find-export-binding _%ctx200562%_ _%id200563%_))) + (if _%$e200565%_ + ((lambda (_%bind200568%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%bind200294%_ + _%bind200568%_ 'gx#runtime-binding::t)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"export is not a runtime binding" - _%id200289%_))) - (##structure-ref _%bind200294%_ '1 gx#binding::t '#f)) - _%$e200291%_) - (let ((__tmp201007 + _%id200563%_))) + (##structure-ref _%bind200568%_ '1 gx#binding::t '#f)) + _%$e200565%_) + (let ((__tmp201281 (##structure-ref - _%ctx200288%_ + _%ctx200562%_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"module does not export symbol" - __tmp201007 - _%id200289%_)))))) + __tmp201281 + _%id200563%_)))))) (define gxc#find-runtime-module-deps - (lambda (_%ctx200154%_) - (letrec* ((_%ht200156%_ + (lambda (_%ctx200428%_) + (letrec* ((_%ht200430%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%import-set-template200157%_ - (lambda (_%in200233%_ _%phi200234%_) - (let ((_%iphi200236%_ - (fx+ _%phi200234%_ + (_%import-set-template200431%_ + (lambda (_%in200507%_ _%phi200508%_) + (let ((_%iphi200510%_ + (fx+ _%phi200508%_ (##direct-structure-ref - _%in200233%_ + _%in200507%_ '2 gx#import-set::t '#f))) - (_%imports200237%_ + (_%imports200511%_ (##structure-ref (##direct-structure-ref - _%in200233%_ + _%in200507%_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _%lp200239%_ ((_%rest200241%_ _%imports200237%_) - (_%r200242%_ '())) - (let* ((_%rest200243200251%_ _%rest200241%_) - (_%else200245200259%_ (lambda () _%r200242%_)) - (_%K200247200276%_ - (lambda (_%rest200262%_ _%in200263%_) + (let _%lp200513%_ ((_%rest200515%_ _%imports200511%_) + (_%r200516%_ '())) + (let* ((_%rest200517200525%_ _%rest200515%_) + (_%else200519200533%_ (lambda () _%r200516%_)) + (_%K200521200550%_ + (lambda (_%rest200536%_ _%in200537%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%in200263%_ + _%in200537%_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (##fxzero? _%iphi200236%_)) - (_%lp200239%_ - _%rest200262%_ - (cons _%in200263%_ _%r200242%_)) - (_%lp200239%_ - _%rest200262%_ - _%r200242%_)) + (##fxzero? _%iphi200510%_)) + (_%lp200513%_ + _%rest200536%_ + (cons _%in200537%_ _%r200516%_)) + (_%lp200513%_ + _%rest200536%_ + _%r200516%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in200263%_ + _%in200537%_ 'gx#module-import::t)) - (let ((_%iphi200267%_ - (fx+ _%phi200234%_ + (let ((_%iphi200541%_ + (fx+ _%phi200508%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in200263%_ + _%in200537%_ '3 '#f '#f))))) (if (let () (declare (not safe)) - (##fxzero? _%iphi200267%_)) - (_%lp200239%_ - _%rest200262%_ + (##fxzero? _%iphi200541%_)) + (_%lp200513%_ + _%rest200536%_ (cons (##direct-structure-ref (let () (declare (not safe)) (##unchecked-structure-ref - _%in200263%_ + _%in200537%_ '1 '#f '#f)) '1 gx#module-export::t '#f) - _%r200242%_)) - (_%lp200239%_ - _%rest200262%_ - _%r200242%_))) + _%r200516%_)) + (_%lp200513%_ + _%rest200536%_ + _%r200516%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in200263%_ + _%in200537%_ 'gx#import-set::t)) - (let ((_%xphi200270%_ - (fx+ _%iphi200236%_ + (let ((_%xphi200544%_ + (fx+ _%iphi200510%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in200263%_ + _%in200537%_ '2 '#f '#f))))) (if (let () (declare (not safe)) (##fxzero? - _%xphi200270%_)) - (_%lp200239%_ - _%rest200262%_ + _%xphi200544%_)) + (_%lp200513%_ + _%rest200536%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%in200263%_ + _%in200537%_ '1 '#f '#f)) - _%r200242%_)) + _%r200516%_)) (if (let () (declare (not safe)) (##fxpositive? - _%xphi200270%_)) - (_%lp200239%_ - _%rest200262%_ - (let ((__tmp201008 + _%xphi200544%_)) + (_%lp200513%_ + _%rest200536%_ + (let ((__tmp201282 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_%import-set-template200157%_ - _%in200263%_ - _%iphi200236%_))) + (_%import-set-template200431%_ + _%in200537%_ + _%iphi200510%_))) (declare (not safe)) - (__foldl1 cons _%r200242%_ __tmp201008))) - (_%lp200239%_ _%rest200262%_ _%r200242%_)))) + (__foldl1 cons _%r200516%_ __tmp201282))) + (_%lp200513%_ _%rest200536%_ _%r200516%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp200239%_ - _%rest200262%_ - _%r200242%_))))))) + (_%lp200513%_ + _%rest200536%_ + _%r200516%_))))))) (if (let () (declare (not safe)) - (##pair? _%rest200243200251%_)) - (let ((_%hd200248200279%_ + (##pair? _%rest200517200525%_)) + (let ((_%hd200522200553%_ (let () (declare (not safe)) - (##car _%rest200243200251%_))) - (_%tl200249200281%_ + (##car _%rest200517200525%_))) + (_%tl200523200555%_ (let () (declare (not safe)) - (##cdr _%rest200243200251%_)))) - (let* ((_%in200284%_ _%hd200248200279%_) - (_%rest200286%_ _%tl200249200281%_)) - (_%K200247200276%_ - _%rest200286%_ - _%in200284%_))) - (_%else200245200259%_))))))) - (_%find-deps200158%_ - (lambda (_%rest200166%_ _%deps200167%_) - (let* ((_%rest200168200176%_ _%rest200166%_) - (_%else200170200184%_ (lambda () _%deps200167%_)) - (_%K200172200221%_ - (lambda (_%rest200187%_ _%hd200188%_) + (##cdr _%rest200517200525%_)))) + (let* ((_%in200558%_ _%hd200522200553%_) + (_%rest200560%_ _%tl200523200555%_)) + (_%K200521200550%_ + _%rest200560%_ + _%in200558%_))) + (_%else200519200533%_))))))) + (_%find-deps200432%_ + (lambda (_%rest200440%_ _%deps200441%_) + (let* ((_%rest200442200450%_ _%rest200440%_) + (_%else200444200458%_ (lambda () _%deps200441%_)) + (_%K200446200495%_ + (lambda (_%rest200461%_ _%hd200462%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd200188%_ + _%hd200462%_ 'gx#module-context::t)) - (let ((_%id200191%_ + (let ((_%id200465%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200188%_ + _%hd200462%_ '1 '#f '#f))) - (_%imports200192%_ + (_%imports200466%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200188%_ + _%hd200462%_ '8 '#f '#f)))) (if (let () (declare (not safe)) (__hash-get - _%ht200156%_ - _%id200191%_)) - (_%find-deps200158%_ - _%rest200187%_ - _%deps200167%_) - (let ((_%$e200195%_ + _%ht200430%_ + _%id200465%_)) + (_%find-deps200432%_ + _%rest200461%_ + _%deps200441%_) + (let ((_%$e200469%_ (let () (declare (not safe)) (gx#core-context-prelude__% - _%hd200188%_)))) - (if _%$e200195%_ - ((lambda (_%pre200198%_) - (let ((_%xdeps200200%_ - (_%find-deps200158%_ - (cons _%pre200198%_ - _%imports200192%_) - _%deps200167%_))) + _%hd200462%_)))) + (if _%$e200469%_ + ((lambda (_%pre200472%_) + (let ((_%xdeps200474%_ + (_%find-deps200432%_ + (cons _%pre200472%_ + _%imports200466%_) + _%deps200441%_))) (let () (declare (not safe)) (__hash-put! - _%ht200156%_ - _%id200191%_ - _%hd200188%_)) - (_%find-deps200158%_ - _%rest200187%_ - (cons _%hd200188%_ - _%xdeps200200%_)))) - _%$e200195%_) - (let ((_%xdeps200203%_ - (_%find-deps200158%_ - _%imports200192%_ - _%deps200167%_))) + _%ht200430%_ + _%id200465%_ + _%hd200462%_)) + (_%find-deps200432%_ + _%rest200461%_ + (cons _%hd200462%_ + _%xdeps200474%_)))) + _%$e200469%_) + (let ((_%xdeps200477%_ + (_%find-deps200432%_ + _%imports200466%_ + _%deps200441%_))) (let () (declare (not safe)) (__hash-put! - _%ht200156%_ - _%id200191%_ - _%hd200188%_)) - (_%find-deps200158%_ - _%rest200187%_ - (cons _%hd200188%_ - _%xdeps200203%_))))))) + _%ht200430%_ + _%id200465%_ + _%hd200462%_)) + (_%find-deps200432%_ + _%rest200461%_ + (cons _%hd200462%_ + _%xdeps200477%_))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd200188%_ + _%hd200462%_ 'gx#prelude-context::t)) - (let ((_%id200206%_ + (let ((_%id200480%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200188%_ + _%hd200462%_ '1 '#f '#f)))) (if (let () (declare (not safe)) (__hash-get - _%ht200156%_ - _%id200206%_)) - (_%find-deps200158%_ - _%rest200187%_ - _%deps200167%_) - (let ((_%xdeps200210%_ - (_%find-deps200158%_ + _%ht200430%_ + _%id200480%_)) + (_%find-deps200432%_ + _%rest200461%_ + _%deps200441%_) + (let ((_%xdeps200484%_ + (_%find-deps200432%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200188%_ + _%hd200462%_ '7 '#f '#f)) - _%deps200167%_))) + _%deps200441%_))) (if (let () (declare (not safe)) (__hash-get - _%ht200156%_ - _%id200206%_)) - (_%find-deps200158%_ - _%rest200187%_ - _%xdeps200210%_) + _%ht200430%_ + _%id200480%_)) + (_%find-deps200432%_ + _%rest200461%_ + _%xdeps200484%_) (begin (let () (declare (not safe)) (__hash-put! - _%ht200156%_ - _%id200206%_ - _%hd200188%_)) - (_%find-deps200158%_ - _%rest200187%_ - (cons _%hd200188%_ - _%xdeps200210%_))))))) + _%ht200430%_ + _%id200480%_ + _%hd200462%_)) + (_%find-deps200432%_ + _%rest200461%_ + (cons _%hd200462%_ + _%xdeps200484%_))))))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd200188%_ + _%hd200462%_ 'gx#module-import::t)) (if (fxzero? (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200188%_ + _%hd200462%_ '3 '#f '#f))) - (_%find-deps200158%_ + (_%find-deps200432%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200188%_ + _%hd200462%_ '1 '#f '#f)) - _%rest200187%_) - _%deps200167%_) - (_%find-deps200158%_ - _%rest200187%_ - _%deps200167%_)) + _%rest200461%_) + _%deps200441%_) + (_%find-deps200432%_ + _%rest200461%_ + _%deps200441%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd200188%_ + _%hd200462%_ 'gx#module-export::t)) - (_%find-deps200158%_ + (_%find-deps200432%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200188%_ + _%hd200462%_ '1 '#f '#f)) - _%rest200187%_) - _%deps200167%_) + _%rest200461%_) + _%deps200441%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd200188%_ + _%hd200462%_ 'gx#import-set::t)) (if (fxzero? (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##unchecked-structure-ref _%hd200188%_ '2 '#f '#f))) - (_%find-deps200158%_ + (##unchecked-structure-ref _%hd200462%_ '2 '#f '#f))) + (_%find-deps200432%_ (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%hd200188%_ '1 '#f '#f)) - _%rest200187%_) - _%deps200167%_) + (##unchecked-structure-ref _%hd200462%_ '1 '#f '#f)) + _%rest200461%_) + _%deps200441%_) (if (fxpositive? (let () (declare (not safe)) - (##unchecked-structure-ref _%hd200188%_ '2 '#f '#f))) - (let ((_%xdeps200217%_ - (_%import-set-template200157%_ _%hd200188%_ '0))) - (_%find-deps200158%_ + (##unchecked-structure-ref _%hd200462%_ '2 '#f '#f))) + (let ((_%xdeps200491%_ + (_%import-set-template200431%_ _%hd200462%_ '0))) + (_%find-deps200432%_ (let () (declare (not safe)) - (__foldl1 cons _%rest200187%_ _%xdeps200217%_)) - _%deps200167%_)) - (_%find-deps200158%_ _%rest200187%_ _%deps200167%_))) + (__foldl1 cons _%rest200461%_ _%xdeps200491%_)) + _%deps200441%_)) + (_%find-deps200432%_ _%rest200461%_ _%deps200441%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (error '"Unexpected module import" - _%hd200188%_)))))))))) + _%hd200462%_)))))))))) (if (let () (declare (not safe)) - (##pair? _%rest200168200176%_)) - (let ((_%hd200173200224%_ + (##pair? _%rest200442200450%_)) + (let ((_%hd200447200498%_ (let () (declare (not safe)) - (##car _%rest200168200176%_))) - (_%tl200174200226%_ + (##car _%rest200442200450%_))) + (_%tl200448200500%_ (let () (declare (not safe)) - (##cdr _%rest200168200176%_)))) - (let* ((_%hd200229%_ _%hd200173200224%_) - (_%rest200231%_ _%tl200174200226%_)) - (_%K200172200221%_ - _%rest200231%_ - _%hd200229%_))) - (_%else200170200184%_)))))) - (let ((__tmp201009 + (##cdr _%rest200442200450%_)))) + (let* ((_%hd200503%_ _%hd200447200498%_) + (_%rest200505%_ _%tl200448200500%_)) + (_%K200446200495%_ + _%rest200505%_ + _%hd200503%_))) + (_%else200444200458%_)))))) + (let ((__tmp201283 (filter gx#expander-context-id - (_%find-deps200158%_ - (let ((_%$e200160%_ + (_%find-deps200432%_ + (let ((_%$e200434%_ (let () (declare (not safe)) (gx#core-context-prelude__% - _%ctx200154%_)))) - (if _%$e200160%_ - ((lambda (_%pre200163%_) - (cons _%pre200163%_ + _%ctx200428%_)))) + (if _%$e200434%_ + ((lambda (_%pre200437%_) + (cons _%pre200437%_ (##structure-ref - _%ctx200154%_ + _%ctx200428%_ '8 gx#module-context::t '#f))) - _%$e200160%_) + _%$e200434%_) (##structure-ref - _%ctx200154%_ + _%ctx200428%_ '8 gx#module-context::t '#f))) '())))) (declare (not safe)) - (##reverse __tmp201009))))) + (##reverse __tmp201283))))) (define gxc#find-static-module-file - (lambda (_%ctx200084%_) - (let* ((_%context-id200086%_ + (lambda (_%ctx200358%_) + (let* ((_%context-id200360%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%ctx200084%_ + _%ctx200358%_ 'gx#module-context::t)) (let () (declare (not safe)) - (##unchecked-structure-ref _%ctx200084%_ '1 '#f '#f)) - (string->symbol _%ctx200084%_))) - (_%scm200088%_ - (let ((__tmp201010 - (gxc#static-module-name _%context-id200086%_))) + (##unchecked-structure-ref _%ctx200358%_ '1 '#f '#f)) + (string->symbol _%ctx200358%_))) + (_%scm200362%_ + (let ((__tmp201284 + (gxc#static-module-name _%context-id200360%_))) (declare (not safe)) - (##string-append __tmp201010 '".scm"))) - (_%dirs200090%_ (let () (declare (not safe)) (load-path))) - (_%dirs200096%_ - (let ((_%user-libpath200092%_ + (##string-append __tmp201284 '".scm"))) + (_%dirs200364%_ (let () (declare (not safe)) (load-path))) + (_%dirs200370%_ + (let ((_%user-libpath200366%_ (let () (declare (not safe)) (##getenv '"GERBIL_PATH" '#f)))) - (if _%user-libpath200092%_ - (let ((_%user-libpath200094%_ - (path-expand '"lib" _%user-libpath200092%_))) + (if _%user-libpath200366%_ + (let ((_%user-libpath200368%_ + (path-expand '"lib" _%user-libpath200366%_))) (if (let () (declare (not safe)) - (##member _%user-libpath200094%_ _%dirs200090%_)) - _%dirs200090%_ - (cons _%user-libpath200094%_ _%dirs200090%_))) - _%dirs200090%_))) - (_%dirs200106%_ - (let ((_%$e200098%_ + (##member _%user-libpath200368%_ _%dirs200364%_)) + _%dirs200364%_ + (cons _%user-libpath200368%_ _%dirs200364%_))) + _%dirs200364%_))) + (_%dirs200380%_ + (let ((_%$e200372%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%$e200098%_ - ((lambda (_%g200100200102%_) - (cons _%g200100200102%_ _%dirs200096%_)) - _%$e200098%_) - _%dirs200096%_))) - (_%dirs200112%_ - (let ((__tmp201011 - (lambda (_%g200107200109%_) - (path-expand '"static" _%g200107200109%_)))) + (if _%$e200372%_ + ((lambda (_%g200374200376%_) + (cons _%g200374200376%_ _%dirs200370%_)) + _%$e200372%_) + _%dirs200370%_))) + (_%dirs200386%_ + (let ((__tmp201285 + (lambda (_%g200381200383%_) + (path-expand '"static" _%g200381200383%_)))) (declare (not safe)) - (##map __tmp201011 _%dirs200106%_)))) - (let _%lp200115%_ ((_%rest200117%_ _%dirs200112%_)) - (let* ((_%rest200118200126%_ _%rest200117%_) - (_%else200120200134%_ + (##map __tmp201285 _%dirs200380%_)))) + (let _%lp200389%_ ((_%rest200391%_ _%dirs200386%_)) + (let* ((_%rest200392200400%_ _%rest200391%_) + (_%else200394200408%_ (lambda () - (let ((__tmp201012 + (let ((__tmp201286 (##structure-ref - _%ctx200084%_ + _%ctx200358%_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"cannot find static module" - __tmp201012 - _%scm200088%_)))) - (_%K200122200142%_ - (lambda (_%rest200137%_ _%dir200138%_) - (let ((_%path200140%_ - (path-expand _%scm200088%_ _%dir200138%_))) + __tmp201286 + _%scm200362%_)))) + (_%K200396200416%_ + (lambda (_%rest200411%_ _%dir200412%_) + (let ((_%path200414%_ + (path-expand _%scm200362%_ _%dir200412%_))) (if (let () (declare (not safe)) - (##file-exists? _%path200140%_)) - _%path200140%_ - (_%lp200115%_ _%rest200137%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest200118200126%_)) - (let ((_%hd200123200145%_ + (##file-exists? _%path200414%_)) + _%path200414%_ + (_%lp200389%_ _%rest200411%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest200392200400%_)) + (let ((_%hd200397200419%_ (let () (declare (not safe)) - (##car _%rest200118200126%_))) - (_%tl200124200147%_ + (##car _%rest200392200400%_))) + (_%tl200398200421%_ (let () (declare (not safe)) - (##cdr _%rest200118200126%_)))) - (let* ((_%dir200150%_ _%hd200123200145%_) - (_%rest200152%_ _%tl200124200147%_)) - (_%K200122200142%_ _%rest200152%_ _%dir200150%_))) - (_%else200120200134%_))))))) + (##cdr _%rest200392200400%_)))) + (let* ((_%dir200424%_ _%hd200397200419%_) + (_%rest200426%_ _%tl200398200421%_)) + (_%K200396200416%_ _%rest200426%_ _%dir200424%_))) + (_%else200394200408%_))))))) (define gxc#file-empty? - (lambda (_%path200082%_) - (zero? (let ((__tmp201013 (file-info _%path200082%_ '#t))) + (lambda (_%path200356%_) + (zero? (let ((__tmp201287 (file-info _%path200356%_ '#t))) (declare (not safe)) - (##file-info-size __tmp201013))))) + (##file-info-size __tmp201287))))) (define gxc#compile-top-module - (lambda (_%ctx200078%_) - (let ((__tmp201017 + (lambda (_%ctx200352%_) + (let ((__tmp201291 (lambda () - (let ((__tmp201018 + (let ((__tmp201292 (##structure-ref - _%ctx200078%_ + _%ctx200352%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#verbose '"compile " __tmp201018)) + (gxc#verbose '"compile " __tmp201292)) (if (let () (declare (not safe)) (gxc#current-compile-optimize)) - (let ((__tmp201019 + (let ((__tmp201293 (lambda () (let () (declare (not safe)) - (gxc#optimize! _%ctx200078%_))))) + (gxc#optimize! _%ctx200352%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp201019)) + (__with-lock gxc#+driver-mutex+ __tmp201293)) '#!void) - (gxc#collect-bindings _%ctx200078%_) - (gxc#compile-runtime-code _%ctx200078%_) - (gxc#compile-meta-code _%ctx200078%_) + (gxc#collect-bindings _%ctx200352%_) + (gxc#compile-runtime-code _%ctx200352%_) + (gxc#compile-meta-code _%ctx200352%_) (if (and (let () (declare (not safe)) (gxc#current-compile-optimize)) (let () (declare (not safe)) (gxc#current-compile-generate-ssxi))) - (gxc#compile-ssxi-code _%ctx200078%_) + (gxc#compile-ssxi-code _%ctx200352%_) '#!void))) - (__tmp201016 - (let ((__obj200940 + (__tmp201290 + (let ((__obj201214 (let () (declare (not safe)) (##structure gxc#symbol-table::t '#f '#f)))) (let () (declare (not safe)) - (gxc#symbol-table:::init! __obj200940)) - __obj200940)) - (__tmp201015 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp201014 + (gxc#symbol-table:::init! __obj201214)) + __obj201214)) + (__tmp201289 (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp201288 (let () (declare (not safe)) (make-hash-table__% @@ -1860,137 +1860,137 @@ absent-value)))) (declare (not safe)) (__call-with-parameters - __tmp201017 + __tmp201291 gx#current-expander-context - _%ctx200078%_ + _%ctx200352%_ gx#current-expander-phi '0 gx#current-expander-marks '() gxc#current-compile-symbol-table - __tmp201016 + __tmp201290 gxc#current-compile-runtime-sections - __tmp201015 + __tmp201289 gxc#current-compile-runtime-names - __tmp201014)))) + __tmp201288)))) (define gxc#collect-bindings - (lambda (_%ctx200076%_) - (let ((__tmp201020 - (##structure-ref _%ctx200076%_ '11 gx#module-context::t '#f))) + (lambda (_%ctx200350%_) + (let ((__tmp201294 + (##structure-ref _%ctx200350%_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-collect-bindings __tmp201020)))) + (gxc#apply-collect-bindings __tmp201294)))) (define gxc#compile-runtime-code - (lambda (_%ctx200024%_) - (letrec ((_%compile1200026%_ - (lambda (_%ctx200065%_) - (let* ((_%code200067%_ + (lambda (_%ctx200298%_) + (letrec ((_%compile1200300%_ + (lambda (_%ctx200339%_) + (let* ((_%code200341%_ (##structure-ref - _%ctx200065%_ + _%ctx200339%_ '11 gx#module-context::t '#f)) - (_%rtm200071%_ - (let ((_%idstr200069%_ - (let ((__tmp201021 + (_%rtm200345%_ + (let ((_%idstr200343%_ + (let ((__tmp201295 (##structure-ref - _%ctx200065%_ + _%ctx200339%_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp201021)))) + __tmp201295)))) (declare (not safe)) - (##string-append _%idstr200069%_ '"~0"))) - (_%rtc?200073%_ + (##string-append _%idstr200343%_ '"~0"))) + (_%rtc?200347%_ (let () (declare (not safe)) - (gxc#apply-find-runtime-code _%code200067%_)))) - (if _%rtc?200073%_ - (let ((__tmp201022 + (gxc#apply-find-runtime-code _%code200341%_)))) + (if _%rtc?200347%_ + (let ((__tmp201296 (let () (declare (not safe)) (gxc#current-compile-runtime-sections)))) (declare (not safe)) (hash-put! - __tmp201022 - _%ctx200065%_ - _%rtm200071%_)) + __tmp201296 + _%ctx200339%_ + _%rtm200345%_)) '#!void) - (_%generate-runtime-code200028%_ - _%ctx200065%_ - _%code200067%_ - (if _%rtc?200073%_ _%rtm200071%_ '#f))))) - (_%context-timestamp200027%_ - (lambda (_%ctx200063%_) - (let ((__tmp201023 - (let ((__tmp201024 + (_%generate-runtime-code200302%_ + _%ctx200339%_ + _%code200341%_ + (if _%rtc?200347%_ _%rtm200345%_ '#f))))) + (_%context-timestamp200301%_ + (lambda (_%ctx200337%_) + (let ((__tmp201297 + (let ((__tmp201298 (symbol->string (##structure-ref - _%ctx200063%_ + _%ctx200337%_ '1 gx#expander-context::t '#f)))) (declare (not safe)) - (##string-append __tmp201024 '"::timestamp")))) + (##string-append __tmp201298 '"::timestamp")))) (declare (not safe)) - (##string->symbol __tmp201023)))) - (_%generate-runtime-code200028%_ - (lambda (_%ctx200035%_ _%code200036%_ _%rtm200037%_) - (let* ((_%runtime-code?200039%_ (if _%rtm200037%_ '#t '#f)) - (_%lifts200041%_ (box '())) - (_%runtime-code200044%_ - (if _%runtime-code?200039%_ - (let ((__tmp201027 + (##string->symbol __tmp201297)))) + (_%generate-runtime-code200302%_ + (lambda (_%ctx200309%_ _%code200310%_ _%rtm200311%_) + (let* ((_%runtime-code?200313%_ (if _%rtm200311%_ '#t '#f)) + (_%lifts200315%_ (box '())) + (_%runtime-code200318%_ + (if _%runtime-code?200313%_ + (let ((__tmp201301 (lambda () (let () (declare (not safe)) (gxc#apply-generate-runtime - _%code200036%_)))) - (__tmp201026 + _%code200310%_)))) + (__tmp201300 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp201025 + (__tmp201299 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (__call-with-parameters - __tmp201027 + __tmp201301 gx#current-expander-context - _%ctx200035%_ + _%ctx200309%_ gx#current-expander-phi '0 gxc#current-compile-lift - _%lifts200041%_ + _%lifts200315%_ gxc#current-compile-marks - __tmp201026 + __tmp201300 gxc#current-compile-identifiers - __tmp201025)) + __tmp201299)) '#f)) - (_%runtime-code200046%_ - (if _%runtime-code?200039%_ - (if (null? (unbox _%lifts200041%_)) - _%runtime-code200044%_ + (_%runtime-code200320%_ + (if _%runtime-code?200313%_ + (if (null? (unbox _%lifts200315%_)) + _%runtime-code200318%_ (cons 'begin - (let ((__tmp201029 - (cons _%runtime-code200044%_ + (let ((__tmp201303 + (cons _%runtime-code200318%_ '())) - (__tmp201028 - (reverse (unbox _%lifts200041%_)))) + (__tmp201302 + (reverse (unbox _%lifts200315%_)))) (declare (not safe)) (__foldr1 cons - __tmp201029 - __tmp201028)))) + __tmp201303 + __tmp201302)))) '#f)) - (_%runtime-code200048%_ - (if _%runtime-code?200039%_ + (_%runtime-code200322%_ + (if _%runtime-code?200313%_ (cons 'begin (cons (cons 'define - (cons (_%context-timestamp200027%_ - _%ctx200035%_) + (cons (_%context-timestamp200301%_ + _%ctx200309%_) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -1998,806 +1998,806 @@ (gxc#current-compile-timestamp)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%runtime-code200046%_ '()))) + (cons _%runtime-code200320%_ '()))) '#f)) - (_%loader-code200051%_ - (let ((__tmp201030 + (_%loader-code200325%_ + (let ((__tmp201304 (lambda () (let () (declare (not safe)) (gxc#apply-generate-loader - _%code200036%_))))) + _%code200310%_))))) (declare (not safe)) (__call-with-parameters - __tmp201030 + __tmp201304 gx#current-expander-context - _%ctx200035%_))) - (_%loader-code200053%_ + _%ctx200309%_))) + (_%loader-code200327%_ (cons 'begin - (cons _%loader-code200051%_ - (cons (if _%runtime-code?200039%_ + (cons _%loader-code200325%_ + (cons (if _%runtime-code?200313%_ (cons 'load-module - (cons _%rtm200037%_ + (cons _%rtm200311%_ '())) '(begin)) '())))) - (_%scm0200055%_ - (gxc#compile-output-file _%ctx200035%_ '0 '".scm")) - (_%scmrt200057%_ + (_%scm0200329%_ + (gxc#compile-output-file _%ctx200309%_ '0 '".scm")) + (_%scmrt200331%_ (gxc#compile-output-file - _%ctx200035%_ + _%ctx200309%_ '#f '".scm")) - (_%scms200059%_ - (gxc#compile-static-output-file _%ctx200035%_))) - (if _%runtime-code?200039%_ + (_%scms200333%_ + (gxc#compile-static-output-file _%ctx200309%_))) + (if _%runtime-code?200313%_ (gxc#compile-scm-file__0 - _%scm0200055%_ - _%runtime-code200048%_) + _%scm0200329%_ + _%runtime-code200322%_) '#!void) - (let ((__tmp201031 + (let ((__tmp201305 (lambda () (gxc#compile-scm-file__0 - _%scmrt200057%_ - _%loader-code200053%_)))) + _%scmrt200331%_ + _%loader-code200327%_)))) (declare (not safe)) (__call-with-parameters - __tmp201031 + __tmp201305 gxc#current-compile-gsc-options '#f)) (if (let () (declare (not safe)) - (##file-exists? _%scms200059%_)) + (##file-exists? _%scms200333%_)) (let () (declare (not safe)) - (##delete-file _%scms200059%_)) + (##delete-file _%scms200333%_)) '#!void) - (if _%runtime-code?200039%_ + (if _%runtime-code?200313%_ (let () (declare (not safe)) - (##copy-file _%scm0200055%_ _%scms200059%_)) + (##copy-file _%scm0200329%_ _%scms200333%_)) (let () (declare (not safe)) - (##call-with-output-file _%scms200059%_ void))))))) - (let* ((_%all-modules200030%_ - (cons _%ctx200024%_ (gxc#lift-nested-modules _%ctx200024%_))) - (__tmp201032 - (lambda (_%ctx200032%_) - (let ((__tmp201033 - (lambda () (_%compile1200026%_ _%ctx200032%_)))) + (##call-with-output-file _%scms200333%_ void))))))) + (let* ((_%all-modules200304%_ + (cons _%ctx200298%_ (gxc#lift-nested-modules _%ctx200298%_))) + (__tmp201306 + (lambda (_%ctx200306%_) + (let ((__tmp201307 + (lambda () (_%compile1200300%_ _%ctx200306%_)))) (declare (not safe)) (__call-with-parameters - __tmp201033 + __tmp201307 gxc#current-compile-decls '()))))) (declare (not safe)) - (##for-each __tmp201032 _%all-modules200030%_))))) + (##for-each __tmp201306 _%all-modules200304%_))))) (define gxc#compile-meta-code - (lambda (_%ctx199924%_) - (letrec ((_%compile-ssi199926%_ - (lambda (_%code199992%_) - (let* ((_%path199994%_ + (lambda (_%ctx200198%_) + (letrec ((_%compile-ssi200200%_ + (lambda (_%code200266%_) + (let* ((_%path200268%_ (gxc#compile-output-file - _%ctx199924%_ + _%ctx200198%_ '#f '".ssi")) - (_%prelude200006%_ - (let* ((_%super199996%_ + (_%prelude200280%_ + (let* ((_%super200270%_ (##structure-ref - _%ctx199924%_ + _%ctx200198%_ '3 gx#phi-context::t '#f)) - (_%$e199998%_ + (_%$e200272%_ (##structure-ref - _%super199996%_ + _%super200270%_ '1 gx#expander-context::t '#f))) - (if _%$e199998%_ - ((lambda (_%g200000200002%_) + (if _%$e200272%_ + ((lambda (_%g200274200276%_) (let () (declare (not safe)) (make-symbol__1 '":" - _%g200000200002%_))) - _%$e199998%_) + _%g200274200276%_))) + _%$e200272%_) ':))) - (_%ns200008%_ + (_%ns200282%_ (##structure-ref - _%ctx199924%_ + _%ctx200198%_ '6 gx#module-context::t '#f)) - (_%idstr200010%_ + (_%idstr200284%_ (symbol->string (##structure-ref - _%ctx199924%_ + _%ctx200198%_ '1 gx#expander-context::t '#f))) - (_%pkg200018%_ - (let ((_%$e200012%_ + (_%pkg200292%_ + (let ((_%$e200286%_ (let () (declare (not safe)) - (string-rindex__0 _%idstr200010%_ '#\/)))) - (if _%$e200012%_ - ((lambda (_%x200015%_) - (let ((__tmp201034 + (string-rindex__0 _%idstr200284%_ '#\/)))) + (if _%$e200286%_ + ((lambda (_%x200289%_) + (let ((__tmp201308 (substring - _%idstr200010%_ + _%idstr200284%_ '0 - _%x200015%_))) + _%x200289%_))) (declare (not safe)) - (##string->symbol __tmp201034))) - _%$e200012%_) + (##string->symbol __tmp201308))) + _%$e200286%_) '#f))) - (_%rt200020%_ - (let ((__tmp201035 + (_%rt200294%_ + (let ((__tmp201309 (let () (declare (not safe)) (gxc#current-compile-runtime-sections)))) (declare (not safe)) - (hash-get __tmp201035 _%ctx199924%_)))) + (hash-get __tmp201309 _%ctx200198%_)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _%path199994%_)) + (gxc#verbose '"compile " _%path200268%_)) (gxc#with-output-to-scheme-file - _%path199994%_ + _%path200268%_ (lambda () (let () (declare (not safe)) - (displayln '"prelude:" '" " _%prelude200006%_)) - (if _%pkg200018%_ + (displayln '"prelude:" '" " _%prelude200280%_)) + (if _%pkg200292%_ (let () (declare (not safe)) - (displayln '"package:" '" " _%pkg200018%_)) + (displayln '"package:" '" " _%pkg200292%_)) '#!void) (let () (declare (not safe)) - (displayln '"namespace:" '" " _%ns200008%_)) + (displayln '"namespace:" '" " _%ns200282%_)) (newline) - (pretty-print _%code199992%_) - (if _%rt200020%_ + (pretty-print _%code200266%_) + (if _%rt200294%_ (pretty-print (cons '%#call (cons (cons '%#ref (cons 'load-module '())) (cons (cons '%#quote - (cons _%rt200020%_ '())) + (cons _%rt200294%_ '())) '())))) '#!void)))))) - (_%compile-phi199927%_ - (lambda (_%part199932%_) - (let* ((_%part199933199946%_ _%part199932%_) - (_%E199935199950%_ + (_%compile-phi200201%_ + (lambda (_%part200206%_) + (let* ((_%part200207200220%_ _%part200206%_) + (_%E200209200224%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%part199933199946%_ + _%part200207200220%_ '([phi-ctx phi n code]))) '#!void)) - (_%K199936199961%_ - (lambda (_%code199953%_ - _%n199954%_ - _%phi199955%_ - _%phi-ctx199956%_) - (let ((_%code199959%_ - (let ((__tmp201036 + (_%K200210200235%_ + (lambda (_%code200227%_ + _%n200228%_ + _%phi200229%_ + _%phi-ctx200230%_) + (let ((_%code200233%_ + (let ((__tmp201310 (lambda () (gxc#generate-runtime-phi - _%code199953%_)))) + _%code200227%_)))) (declare (not safe)) (__call-with-parameters - __tmp201036 + __tmp201310 gx#current-expander-context - _%phi-ctx199956%_ + _%phi-ctx200230%_ gx#current-expander-phi - _%phi199955%_)))) + _%phi200229%_)))) (gxc#compile-scm-file__% (gxc#compile-output-file - _%ctx199924%_ - _%n199954%_ + _%ctx200198%_ + _%n200228%_ '".scm") - _%code199959%_ + _%code200233%_ '#t))))) (if (let () (declare (not safe)) - (##pair? _%part199933199946%_)) - (let ((_%hd199937199964%_ + (##pair? _%part200207200220%_)) + (let ((_%hd200211200238%_ (let () (declare (not safe)) - (##car _%part199933199946%_))) - (_%tl199938199966%_ + (##car _%part200207200220%_))) + (_%tl200212200240%_ (let () (declare (not safe)) - (##cdr _%part199933199946%_)))) - (let ((_%phi-ctx199969%_ _%hd199937199964%_)) + (##cdr _%part200207200220%_)))) + (let ((_%phi-ctx200243%_ _%hd200211200238%_)) (if (let () (declare (not safe)) - (##pair? _%tl199938199966%_)) - (let ((_%hd199939199971%_ + (##pair? _%tl200212200240%_)) + (let ((_%hd200213200245%_ (let () (declare (not safe)) - (##car _%tl199938199966%_))) - (_%tl199940199973%_ + (##car _%tl200212200240%_))) + (_%tl200214200247%_ (let () (declare (not safe)) - (##cdr _%tl199938199966%_)))) - (let ((_%phi199976%_ _%hd199939199971%_)) + (##cdr _%tl200212200240%_)))) + (let ((_%phi200250%_ _%hd200213200245%_)) (if (let () (declare (not safe)) - (##pair? _%tl199940199973%_)) - (let ((_%hd199941199978%_ + (##pair? _%tl200214200247%_)) + (let ((_%hd200215200252%_ (let () (declare (not safe)) - (##car _%tl199940199973%_))) - (_%tl199942199980%_ + (##car _%tl200214200247%_))) + (_%tl200216200254%_ (let () (declare (not safe)) - (##cdr _%tl199940199973%_)))) - (let ((_%n199983%_ - _%hd199941199978%_)) + (##cdr _%tl200214200247%_)))) + (let ((_%n200257%_ + _%hd200215200252%_)) (if (let () (declare (not safe)) - (##pair? _%tl199942199980%_)) - (let ((_%hd199943199985%_ + (##pair? _%tl200216200254%_)) + (let ((_%hd200217200259%_ (let () (declare (not safe)) - (##car _%tl199942199980%_))) - (_%tl199944199987%_ + (##car _%tl200216200254%_))) + (_%tl200218200261%_ (let () (declare (not safe)) - (##cdr _%tl199942199980%_)))) - (let ((_%code199990%_ - _%hd199943199985%_)) + (##cdr _%tl200216200254%_)))) + (let ((_%code200264%_ + _%hd200217200259%_)) (if (let () (declare (not safe)) - (##null? _%tl199944199987%_)) - (_%K199936199961%_ - _%code199990%_ - _%n199983%_ - _%phi199976%_ - _%phi-ctx199969%_) - (_%E199935199950%_)))) - (_%E199935199950%_)))) - (_%E199935199950%_)))) - (_%E199935199950%_)))) - (_%E199935199950%_)))))) - (let ((_g201037_ (gxc#generate-meta-code _%ctx199924%_))) + (##null? _%tl200218200261%_)) + (_%K200210200235%_ + _%code200264%_ + _%n200257%_ + _%phi200250%_ + _%phi-ctx200243%_) + (_%E200209200224%_)))) + (_%E200209200224%_)))) + (_%E200209200224%_)))) + (_%E200209200224%_)))) + (_%E200209200224%_)))))) + (let ((_g201311_ (gxc#generate-meta-code _%ctx200198%_))) (begin - (let ((_g201038_ + (let ((_g201312_ (let () (declare (not safe)) - (if (##values? _g201037_) - (##vector-length _g201037_) + (if (##values? _g201311_) + (##vector-length _g201311_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g201038_ 2))) - (error "Context expects 2 values" _g201038_))) - (let ((_%ssi-code199929%_ - (let () (declare (not safe)) (##vector-ref _g201037_ 0))) - (_%phi-code199930%_ - (let () (declare (not safe)) (##vector-ref _g201037_ 1)))) + (if (not (let () (declare (not safe)) (##fx= _g201312_ 2))) + (error "Context expects 2 values" _g201312_))) + (let ((_%ssi-code200203%_ + (let () (declare (not safe)) (##vector-ref _g201311_ 0))) + (_%phi-code200204%_ + (let () (declare (not safe)) (##vector-ref _g201311_ 1)))) (begin - (_%compile-ssi199926%_ _%ssi-code199929%_) - (for-each _%compile-phi199927%_ _%phi-code199930%_)))))))) + (_%compile-ssi200200%_ _%ssi-code200203%_) + (for-each _%compile-phi200201%_ _%phi-code200204%_)))))))) (define gxc#compile-ssxi-code - (lambda (_%ctx199906%_) - (let* ((_%path199908%_ - (gxc#compile-output-file _%ctx199906%_ '#f '".ssxi.ss")) - (_%code199910%_ - (let ((__tmp201039 + (lambda (_%ctx200180%_) + (let* ((_%path200182%_ + (gxc#compile-output-file _%ctx200180%_ '#f '".ssxi.ss")) + (_%code200184%_ + (let ((__tmp201313 (##structure-ref - _%ctx199906%_ + _%ctx200180%_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-generate-ssxi __tmp201039))) - (_%idstr199912%_ + (gxc#apply-generate-ssxi __tmp201313))) + (_%idstr200186%_ (symbol->string (##structure-ref - _%ctx199906%_ + _%ctx200180%_ '1 gx#expander-context::t '#f))) - (_%pkg199920%_ - (let ((_%$e199914%_ + (_%pkg200194%_ + (let ((_%$e200188%_ (let () (declare (not safe)) - (string-rindex__0 _%idstr199912%_ '#\/)))) - (if _%$e199914%_ - ((lambda (_%x199917%_) - (let ((__tmp201040 - (substring _%idstr199912%_ '0 _%x199917%_))) + (string-rindex__0 _%idstr200186%_ '#\/)))) + (if _%$e200188%_ + ((lambda (_%x200191%_) + (let ((__tmp201314 + (substring _%idstr200186%_ '0 _%x200191%_))) (declare (not safe)) - (##string->symbol __tmp201040))) - _%$e199914%_) + (##string->symbol __tmp201314))) + _%$e200188%_) '#f)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _%path199908%_)) + (gxc#verbose '"compile " _%path200182%_)) (gxc#with-output-to-scheme-file - _%path199908%_ + _%path200182%_ (lambda () (let () (declare (not safe)) (displayln '"prelude: :gerbil/compiler/ssxi")) - (if _%pkg199920%_ + (if _%pkg200194%_ (let () (declare (not safe)) - (displayln '"package: " _%pkg199920%_)) + (displayln '"package: " _%pkg200194%_)) '#!void) (newline) - (pretty-print _%code199910%_)))))) + (pretty-print _%code200184%_)))))) (define gxc#generate-meta-code - (lambda (_%ctx199899%_) - (let* ((_%state199901%_ - (let ((__obj200941 + (lambda (_%ctx200173%_) + (let* ((_%state200175%_ + (let ((__obj201215 (let () (declare (not safe)) (##structure gxc#meta-state::t '#f '#f '#f '#f)))) (let () (declare (not safe)) - (gxc#meta-state:::init! __obj200941 _%ctx199899%_)) - __obj200941)) - (_%ssi-code199903%_ - (let ((__tmp201041 + (gxc#meta-state:::init! __obj201215 _%ctx200173%_)) + __obj201215)) + (_%ssi-code200177%_ + (let ((__tmp201315 (##structure-ref - _%ctx199899%_ + _%ctx200173%_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#apply-generate-meta__% '#f - _%state199901%_ - __tmp201041)))) - (values _%ssi-code199903%_ + _%state200175%_ + __tmp201315)))) + (values _%ssi-code200177%_ (let () (declare (not safe)) - (gxc#meta-state-end! _%state199901%_)))))) + (gxc#meta-state-end! _%state200175%_)))))) (define gxc#generate-runtime-phi - (lambda (_%stx199892%_) - (let ((_%lifts199894%_ (box '()))) - (let ((__tmp201044 + (lambda (_%stx200166%_) + (let ((_%lifts200168%_ (box '()))) + (let ((__tmp201318 (lambda () - (let ((_%code199897%_ + (let ((_%code200171%_ (let () (declare (not safe)) - (gxc#apply-generate-runtime-phi _%stx199892%_)))) - (if (null? (unbox _%lifts199894%_)) - _%code199897%_ + (gxc#apply-generate-runtime-phi _%stx200166%_)))) + (if (null? (unbox _%lifts200168%_)) + _%code200171%_ (cons 'begin - (let ((__tmp201046 (cons _%code199897%_ '())) - (__tmp201045 - (reverse (unbox _%lifts199894%_)))) + (let ((__tmp201320 (cons _%code200171%_ '())) + (__tmp201319 + (reverse (unbox _%lifts200168%_)))) (declare (not safe)) - (__foldr1 cons __tmp201046 __tmp201045))))))) - (__tmp201043 + (__foldr1 cons __tmp201320 __tmp201319))))))) + (__tmp201317 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp201042 + (__tmp201316 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (__call-with-parameters - __tmp201044 + __tmp201318 gxc#current-compile-lift - _%lifts199894%_ + _%lifts200168%_ gxc#current-compile-marks - __tmp201043 + __tmp201317 gxc#current-compile-identifiers - __tmp201042))))) + __tmp201316))))) (define gxc#lift-nested-modules - (lambda (_%ctx199888%_) - (let ((_%modules199890%_ (box '()))) - (let ((__tmp201047 - (##structure-ref _%ctx199888%_ '11 gx#module-context::t '#f))) + (lambda (_%ctx200162%_) + (let ((_%modules200164%_ (box '()))) + (let ((__tmp201321 + (##structure-ref _%ctx200162%_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-lift-modules__% '#f _%modules199890%_ __tmp201047)) - (reverse (unbox _%modules199890%_))))) + (gxc#apply-lift-modules__% '#f _%modules200164%_ __tmp201321)) + (reverse (unbox _%modules200164%_))))) (define gxc#compile-scm-file__% - (lambda (_%path199868%_ _%code199869%_ _%phi?199870%_) - (let () (declare (not safe)) (gxc#verbose '"compile " _%path199868%_)) + (lambda (_%path200142%_ _%code200143%_ _%phi?200144%_) + (let () (declare (not safe)) (gxc#verbose '"compile " _%path200142%_)) (gxc#with-output-to-scheme-file - _%path199868%_ + _%path200142%_ (lambda () (pretty-print (cons 'declare (cons (cons 'block '()) (cons (cons 'standard-bindings '()) (cons (cons 'extended-bindings '()) - (let ((__tmp201048 - (if _%phi?199870%_ + (let ((__tmp201322 + (if _%phi?200144%_ '((inlining-limit 200)) '()))) (declare (not safe)) - (__foldr1 cons '() __tmp201048))))))) - (pretty-print _%code199869%_))) + (__foldr1 cons '() __tmp201322))))))) + (pretty-print _%code200143%_))) (if (let () (declare (not safe)) (gxc#current-compile-invoke-gsc)) - (let ((_%compile-it199874%_ + (let ((_%compile-it200148%_ (lambda () - (gxc#gsc-compile-file _%path199868%_ _%phi?199870%_)))) + (gxc#gsc-compile-file _%path200142%_ _%phi?200144%_)))) (if (let () (declare (not safe)) (gxc#current-compile-parallel)) - (let ((__tmp201049 - (cons 'compile-file (cons _%path199868%_ '())))) + (let ((__tmp201323 + (cons 'compile-file (cons _%path200142%_ '())))) (declare (not safe)) - (gxc#add-compile-job!__% _%compile-it199874%_ __tmp201049)) - (_%compile-it199874%_))) + (gxc#add-compile-job!__% _%compile-it200148%_ __tmp201323)) + (_%compile-it200148%_))) '#!void))) (define gxc#compile-scm-file__0 - (lambda (_%path199879%_ _%code199880%_) - (let ((_%phi?199882%_ '#f)) + (lambda (_%path200153%_ _%code200154%_) + (let ((_%phi?200156%_ '#f)) (gxc#compile-scm-file__% - _%path199879%_ - _%code199880%_ - _%phi?199882%_)))) + _%path200153%_ + _%code200154%_ + _%phi?200156%_)))) (define gxc#compile-scm-file - (lambda _g201051_ - (let ((_g201050_ (let () (declare (not safe)) (##length _g201051_)))) - (cond ((let () (declare (not safe)) (##fx= _g201050_ 2)) - (apply gxc#compile-scm-file__0 _g201051_)) - ((let () (declare (not safe)) (##fx= _g201050_ 3)) - (apply gxc#compile-scm-file__% _g201051_)) + (lambda _g201325_ + (let ((_g201324_ (let () (declare (not safe)) (##length _g201325_)))) + (cond ((let () (declare (not safe)) (##fx= _g201324_ 2)) + (apply gxc#compile-scm-file__0 _g201325_)) + ((let () (declare (not safe)) (##fx= _g201324_ 3)) + (apply gxc#compile-scm-file__% _g201325_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-scm-file - _g201051_)))))) + _g201325_)))))) (define gxc#gsc-link-options__% - (lambda (_%phi?199769%_) - (let _%lp199771%_ ((_%rest199773%_ + (lambda (_%phi?200043%_) + (let _%lp200045%_ ((_%rest200047%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts199774%_ '())) - (let* ((_%rest199775199795%_ _%rest199773%_) - (_%else199779199803%_ + (_%opts200048%_ '())) + (let* ((_%rest200049200069%_ _%rest200047%_) + (_%else200053200077%_ (lambda () (if (let () (declare (not safe)) (gxc#current-compile-debug)) (cons '"-debug-source" - (cons '"-track-scheme" (reverse _%opts199774%_))) - (reverse _%opts199774%_))))) - (let ((_%K199789199846%_ - (lambda (_%rest199844%_) - (_%lp199771%_ _%rest199844%_ _%opts199774%_))) - (_%K199784199828%_ - (lambda (_%rest199826%_) - (_%lp199771%_ _%rest199826%_ _%opts199774%_))) - (_%K199781199810%_ - (lambda (_%rest199807%_ _%opt199808%_) - (_%lp199771%_ - _%rest199807%_ - (cons _%opt199808%_ _%opts199774%_))))) - (if (let () (declare (not safe)) (##pair? _%rest199775199795%_)) - (let ((_%tl199791199851%_ + (cons '"-track-scheme" (reverse _%opts200048%_))) + (reverse _%opts200048%_))))) + (let ((_%K200063200120%_ + (lambda (_%rest200118%_) + (_%lp200045%_ _%rest200118%_ _%opts200048%_))) + (_%K200058200102%_ + (lambda (_%rest200100%_) + (_%lp200045%_ _%rest200100%_ _%opts200048%_))) + (_%K200055200084%_ + (lambda (_%rest200081%_ _%opt200082%_) + (_%lp200045%_ + _%rest200081%_ + (cons _%opt200082%_ _%opts200048%_))))) + (if (let () (declare (not safe)) (##pair? _%rest200049200069%_)) + (let ((_%tl200065200125%_ (let () (declare (not safe)) - (##cdr _%rest199775199795%_))) - (_%hd199790199849%_ + (##cdr _%rest200049200069%_))) + (_%hd200064200123%_ (let () (declare (not safe)) - (##car _%rest199775199795%_)))) - (if (equal? _%hd199790199849%_ '"-cc-options") + (##car _%rest200049200069%_)))) + (if (equal? _%hd200064200123%_ '"-cc-options") (if (let () (declare (not safe)) - (##pair? _%tl199791199851%_)) - (let* ((_%tl199793199854%_ + (##pair? _%tl200065200125%_)) + (let* ((_%tl200067200128%_ (let () (declare (not safe)) - (##cdr _%tl199791199851%_))) - (_%rest199857%_ _%tl199793199854%_)) - (_%K199789199846%_ _%rest199857%_)) - (let ((_%opt199818%_ _%hd199790199849%_) - (_%rest199820%_ _%tl199791199851%_)) - (_%K199781199810%_ - _%rest199820%_ - _%opt199818%_))) - (if (equal? _%hd199790199849%_ '"-ld-options") + (##cdr _%tl200065200125%_))) + (_%rest200131%_ _%tl200067200128%_)) + (_%K200063200120%_ _%rest200131%_)) + (let ((_%opt200092%_ _%hd200064200123%_) + (_%rest200094%_ _%tl200065200125%_)) + (_%K200055200084%_ + _%rest200094%_ + _%opt200092%_))) + (if (equal? _%hd200064200123%_ '"-ld-options") (if (let () (declare (not safe)) - (##pair? _%tl199791199851%_)) - (let* ((_%tl199788199836%_ + (##pair? _%tl200065200125%_)) + (let* ((_%tl200062200110%_ (let () (declare (not safe)) - (##cdr _%tl199791199851%_))) - (_%rest199839%_ _%tl199788199836%_)) - (_%K199784199828%_ _%rest199839%_)) - (let ((_%opt199818%_ _%hd199790199849%_) - (_%rest199820%_ _%tl199791199851%_)) - (_%K199781199810%_ - _%rest199820%_ - _%opt199818%_))) - (let ((_%opt199818%_ _%hd199790199849%_) - (_%rest199820%_ _%tl199791199851%_)) - (_%K199781199810%_ - _%rest199820%_ - _%opt199818%_))))) - (_%else199779199803%_))))))) + (##cdr _%tl200065200125%_))) + (_%rest200113%_ _%tl200062200110%_)) + (_%K200058200102%_ _%rest200113%_)) + (let ((_%opt200092%_ _%hd200064200123%_) + (_%rest200094%_ _%tl200065200125%_)) + (_%K200055200084%_ + _%rest200094%_ + _%opt200092%_))) + (let ((_%opt200092%_ _%hd200064200123%_) + (_%rest200094%_ _%tl200065200125%_)) + (_%K200055200084%_ + _%rest200094%_ + _%opt200092%_))))) + (_%else200053200077%_))))))) (define gxc#gsc-link-options__0 (lambda () - (let ((_%phi?199863%_ '#f)) (gxc#gsc-link-options__% _%phi?199863%_)))) + (let ((_%phi?200137%_ '#f)) (gxc#gsc-link-options__% _%phi?200137%_)))) (define gxc#gsc-link-options - (lambda _g201053_ - (let ((_g201052_ (let () (declare (not safe)) (##length _g201053_)))) - (cond ((let () (declare (not safe)) (##fx= _g201052_ 0)) - (apply gxc#gsc-link-options__0 _g201053_)) - ((let () (declare (not safe)) (##fx= _g201052_ 1)) - (apply gxc#gsc-link-options__% _g201053_)) + (lambda _g201327_ + (let ((_g201326_ (let () (declare (not safe)) (##length _g201327_)))) + (cond ((let () (declare (not safe)) (##fx= _g201326_ 0)) + (apply gxc#gsc-link-options__0 _g201327_)) + ((let () (declare (not safe)) (##fx= _g201326_ 1)) + (apply gxc#gsc-link-options__% _g201327_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-link-options - _g201053_)))))) + _g201327_)))))) (define gxc#gsc-cc-options__%__% - (lambda (_%@@keywords199618%_ _%static?199614199619%_ _%phi?199621%_) - (let ((_%static?199623%_ - (if (eq? _%static?199614199619%_ absent-value) + (lambda (_%@@keywords199892%_ _%static?199888199893%_ _%phi?199895%_) + (let ((_%static?199897%_ + (if (eq? _%static?199888199893%_ absent-value) '#f - _%static?199614199619%_))) - (if _%phi?199621%_ + _%static?199888199893%_))) + (if _%phi?199895%_ (if (let () (declare (not safe)) (gxc#current-compile-debug)) (cons '"-cc-options" (cons '"-g" '())) '()) - (let _%lp199625%_ ((_%rest199627%_ + (let _%lp199899%_ ((_%rest199901%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts199628%_ '())) - (let* ((_%rest199629199655%_ _%rest199627%_) - (_%else199634199663%_ + (_%opts199902%_ '())) + (let* ((_%rest199903199929%_ _%rest199901%_) + (_%else199908199937%_ (lambda () (if (let () (declare (not safe)) (gxc#current-compile-debug)) (cons '"-cc-options" - (cons '"-g" (reverse! _%opts199628%_))) - (reverse! _%opts199628%_))))) - (let ((_%K199649199726%_ - (lambda (_%rest199723%_ _%opt199724%_) - (if _%static?199623%_ - (_%lp199625%_ - _%rest199723%_ - (cons _%opt199724%_ - (cons '"-cc-options" _%opts199628%_))) - (_%lp199625%_ _%rest199723%_ _%opts199628%_)))) - (_%K199644199703%_ - (lambda (_%rest199700%_ _%opt199701%_) - (_%lp199625%_ - _%rest199700%_ - (cons _%opt199701%_ - (cons '"-cc-options" _%opts199628%_))))) - (_%K199639199683%_ - (lambda (_%rest199681%_) - (_%lp199625%_ _%rest199681%_ _%opts199628%_))) - (_%K199636199669%_ - (lambda (_%rest199667%_) - (_%lp199625%_ _%rest199667%_ _%opts199628%_)))) + (cons '"-g" (reverse! _%opts199902%_))) + (reverse! _%opts199902%_))))) + (let ((_%K199923200000%_ + (lambda (_%rest199997%_ _%opt199998%_) + (if _%static?199897%_ + (_%lp199899%_ + _%rest199997%_ + (cons _%opt199998%_ + (cons '"-cc-options" _%opts199902%_))) + (_%lp199899%_ _%rest199997%_ _%opts199902%_)))) + (_%K199918199977%_ + (lambda (_%rest199974%_ _%opt199975%_) + (_%lp199899%_ + _%rest199974%_ + (cons _%opt199975%_ + (cons '"-cc-options" _%opts199902%_))))) + (_%K199913199957%_ + (lambda (_%rest199955%_) + (_%lp199899%_ _%rest199955%_ _%opts199902%_))) + (_%K199910199943%_ + (lambda (_%rest199941%_) + (_%lp199899%_ _%rest199941%_ _%opts199902%_)))) (if (let () (declare (not safe)) - (##pair? _%rest199629199655%_)) - (let ((_%tl199651199731%_ + (##pair? _%rest199903199929%_)) + (let ((_%tl199925200005%_ (let () (declare (not safe)) - (##cdr _%rest199629199655%_))) - (_%hd199650199729%_ + (##cdr _%rest199903199929%_))) + (_%hd199924200003%_ (let () (declare (not safe)) - (##car _%rest199629199655%_)))) - (if (equal? _%hd199650199729%_ '"-cc-options") + (##car _%rest199903199929%_)))) + (if (equal? _%hd199924200003%_ '"-cc-options") (if (let () (declare (not safe)) - (##pair? _%tl199651199731%_)) - (let ((_%tl199653199736%_ + (##pair? _%tl199925200005%_)) + (let ((_%tl199927200010%_ (let () (declare (not safe)) - (##cdr _%tl199651199731%_))) - (_%hd199652199734%_ + (##cdr _%tl199925200005%_))) + (_%hd199926200008%_ (let () (declare (not safe)) - (##car _%tl199651199731%_)))) - (if (equal? _%hd199652199734%_ '"-Bstatic") - (let ((_%opt199739%_ - _%hd199652199734%_) - (_%rest199741%_ - _%tl199653199736%_)) - (_%K199649199726%_ - _%rest199741%_ - _%opt199739%_)) - (let ((_%opt199716%_ - _%hd199652199734%_) - (_%rest199718%_ - _%tl199653199736%_)) - (_%K199644199703%_ - _%rest199718%_ - _%opt199716%_)))) - (let ((_%rest199675%_ _%tl199651199731%_)) - (_%K199636199669%_ _%rest199675%_))) - (if (equal? _%hd199650199729%_ '"-ld-options") + (##car _%tl199925200005%_)))) + (if (equal? _%hd199926200008%_ '"-Bstatic") + (let ((_%opt200013%_ + _%hd199926200008%_) + (_%rest200015%_ + _%tl199927200010%_)) + (_%K199923200000%_ + _%rest200015%_ + _%opt200013%_)) + (let ((_%opt199990%_ + _%hd199926200008%_) + (_%rest199992%_ + _%tl199927200010%_)) + (_%K199918199977%_ + _%rest199992%_ + _%opt199990%_)))) + (let ((_%rest199949%_ _%tl199925200005%_)) + (_%K199910199943%_ _%rest199949%_))) + (if (equal? _%hd199924200003%_ '"-ld-options") (if (let () (declare (not safe)) - (##pair? _%tl199651199731%_)) - (let* ((_%tl199643199691%_ + (##pair? _%tl199925200005%_)) + (let* ((_%tl199917199965%_ (let () (declare (not safe)) - (##cdr _%tl199651199731%_))) - (_%rest199694%_ - _%tl199643199691%_)) - (_%K199639199683%_ _%rest199694%_)) - (let ((_%rest199675%_ - _%tl199651199731%_)) - (_%K199636199669%_ _%rest199675%_))) - (let ((_%rest199675%_ _%tl199651199731%_)) - (_%K199636199669%_ _%rest199675%_))))) - (_%else199634199663%_))))))))) + (##cdr _%tl199925200005%_))) + (_%rest199968%_ + _%tl199917199965%_)) + (_%K199913199957%_ _%rest199968%_)) + (let ((_%rest199949%_ + _%tl199925200005%_)) + (_%K199910199943%_ _%rest199949%_))) + (let ((_%rest199949%_ _%tl199925200005%_)) + (_%K199910199943%_ _%rest199949%_))))) + (_%else199908199937%_))))))))) (define gxc#gsc-cc-options__%__0 - (lambda (_%@@keywords199746%_ _%static?199614199747%_) - (let ((_%phi?199749%_ '#f)) + (lambda (_%@@keywords200020%_ _%static?199888200021%_) + (let ((_%phi?200023%_ '#f)) (gxc#gsc-cc-options__%__% - _%@@keywords199746%_ - _%static?199614199747%_ - _%phi?199749%_)))) + _%@@keywords200020%_ + _%static?199888200021%_ + _%phi?200023%_)))) (define gxc#gsc-cc-options__% - (lambda _g201055_ - (let ((_g201054_ (let () (declare (not safe)) (##length _g201055_)))) - (cond ((let () (declare (not safe)) (##fx= _g201054_ 2)) - (apply gxc#gsc-cc-options__%__0 _g201055_)) - ((let () (declare (not safe)) (##fx= _g201054_ 3)) - (apply gxc#gsc-cc-options__%__% _g201055_)) + (lambda _g201329_ + (let ((_g201328_ (let () (declare (not safe)) (##length _g201329_)))) + (cond ((let () (declare (not safe)) (##fx= _g201328_ 2)) + (apply gxc#gsc-cc-options__%__0 _g201329_)) + ((let () (declare (not safe)) (##fx= _g201328_ 3)) + (apply gxc#gsc-cc-options__%__% _g201329_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-cc-options__% - _g201055_)))))) + _g201329_)))))) (define gxc#gsc-cc-options__@ - (lambda (_%@@keywords199758%_ . _%args199759%_) + (lambda (_%@@keywords200032%_ . _%args200033%_) (apply gxc#gsc-cc-options__% - _%@@keywords199758%_ + _%@@keywords200032%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords199758%_ + _%@@keywords200032%_ 'static: absent-value)) - _%args199759%_))) + _%args200033%_))) (define gxc#gsc-cc-options - (lambda _%args199615199765%_ + (lambda _%args199889200039%_ (apply keyword-dispatch '#(static:) gxc#gsc-cc-options__@ - _%args199615199765%_))) + _%args199889200039%_))) (define gxc#gsc-ld-options__%__% - (lambda (_%@@keywords199463%_ _%static?199459199464%_ _%phi?199466%_) - (let ((_%static?199468%_ - (if (eq? _%static?199459199464%_ absent-value) + (lambda (_%@@keywords199737%_ _%static?199733199738%_ _%phi?199740%_) + (let ((_%static?199742%_ + (if (eq? _%static?199733199738%_ absent-value) '#f - _%static?199459199464%_))) - (if _%phi?199466%_ + _%static?199733199738%_))) + (if _%phi?199740%_ '() - (let _%lp199470%_ ((_%rest199472%_ + (let _%lp199744%_ ((_%rest199746%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts199473%_ '())) - (let* ((_%rest199474199500%_ _%rest199472%_) - (_%else199479199508%_ - (lambda () (reverse! _%opts199473%_)))) - (let ((_%K199494199571%_ - (lambda (_%rest199568%_ _%opt199569%_) - (if _%static?199468%_ - (_%lp199470%_ - _%rest199568%_ - (cons _%opt199569%_ - (cons '"-ld-options" _%opts199473%_))) - (_%lp199470%_ _%rest199568%_ _%opts199473%_)))) - (_%K199489199548%_ - (lambda (_%rest199545%_ _%opt199546%_) - (_%lp199470%_ - _%rest199545%_ - (cons _%opt199546%_ - (cons '"-ld-options" _%opts199473%_))))) - (_%K199484199528%_ - (lambda (_%rest199526%_) - (_%lp199470%_ _%rest199526%_ _%opts199473%_))) - (_%K199481199514%_ - (lambda (_%rest199512%_) - (_%lp199470%_ _%rest199512%_ _%opts199473%_)))) + (_%opts199747%_ '())) + (let* ((_%rest199748199774%_ _%rest199746%_) + (_%else199753199782%_ + (lambda () (reverse! _%opts199747%_)))) + (let ((_%K199768199845%_ + (lambda (_%rest199842%_ _%opt199843%_) + (if _%static?199742%_ + (_%lp199744%_ + _%rest199842%_ + (cons _%opt199843%_ + (cons '"-ld-options" _%opts199747%_))) + (_%lp199744%_ _%rest199842%_ _%opts199747%_)))) + (_%K199763199822%_ + (lambda (_%rest199819%_ _%opt199820%_) + (_%lp199744%_ + _%rest199819%_ + (cons _%opt199820%_ + (cons '"-ld-options" _%opts199747%_))))) + (_%K199758199802%_ + (lambda (_%rest199800%_) + (_%lp199744%_ _%rest199800%_ _%opts199747%_))) + (_%K199755199788%_ + (lambda (_%rest199786%_) + (_%lp199744%_ _%rest199786%_ _%opts199747%_)))) (if (let () (declare (not safe)) - (##pair? _%rest199474199500%_)) - (let ((_%tl199496199576%_ + (##pair? _%rest199748199774%_)) + (let ((_%tl199770199850%_ (let () (declare (not safe)) - (##cdr _%rest199474199500%_))) - (_%hd199495199574%_ + (##cdr _%rest199748199774%_))) + (_%hd199769199848%_ (let () (declare (not safe)) - (##car _%rest199474199500%_)))) - (if (equal? _%hd199495199574%_ '"-ld-options") + (##car _%rest199748199774%_)))) + (if (equal? _%hd199769199848%_ '"-ld-options") (if (let () (declare (not safe)) - (##pair? _%tl199496199576%_)) - (let ((_%tl199498199581%_ + (##pair? _%tl199770199850%_)) + (let ((_%tl199772199855%_ (let () (declare (not safe)) - (##cdr _%tl199496199576%_))) - (_%hd199497199579%_ + (##cdr _%tl199770199850%_))) + (_%hd199771199853%_ (let () (declare (not safe)) - (##car _%tl199496199576%_)))) - (if (equal? _%hd199497199579%_ '"-static") - (let ((_%opt199584%_ - _%hd199497199579%_) - (_%rest199586%_ - _%tl199498199581%_)) - (_%K199494199571%_ - _%rest199586%_ - _%opt199584%_)) - (let ((_%opt199561%_ - _%hd199497199579%_) - (_%rest199563%_ - _%tl199498199581%_)) - (_%K199489199548%_ - _%rest199563%_ - _%opt199561%_)))) - (let ((_%rest199520%_ _%tl199496199576%_)) - (_%K199481199514%_ _%rest199520%_))) - (if (equal? _%hd199495199574%_ '"-cc-options") + (##car _%tl199770199850%_)))) + (if (equal? _%hd199771199853%_ '"-static") + (let ((_%opt199858%_ + _%hd199771199853%_) + (_%rest199860%_ + _%tl199772199855%_)) + (_%K199768199845%_ + _%rest199860%_ + _%opt199858%_)) + (let ((_%opt199835%_ + _%hd199771199853%_) + (_%rest199837%_ + _%tl199772199855%_)) + (_%K199763199822%_ + _%rest199837%_ + _%opt199835%_)))) + (let ((_%rest199794%_ _%tl199770199850%_)) + (_%K199755199788%_ _%rest199794%_))) + (if (equal? _%hd199769199848%_ '"-cc-options") (if (let () (declare (not safe)) - (##pair? _%tl199496199576%_)) - (let* ((_%tl199488199536%_ + (##pair? _%tl199770199850%_)) + (let* ((_%tl199762199810%_ (let () (declare (not safe)) - (##cdr _%tl199496199576%_))) - (_%rest199539%_ - _%tl199488199536%_)) - (_%K199484199528%_ _%rest199539%_)) - (let ((_%rest199520%_ - _%tl199496199576%_)) - (_%K199481199514%_ _%rest199520%_))) - (let ((_%rest199520%_ _%tl199496199576%_)) - (_%K199481199514%_ _%rest199520%_))))) - (_%else199479199508%_))))))))) + (##cdr _%tl199770199850%_))) + (_%rest199813%_ + _%tl199762199810%_)) + (_%K199758199802%_ _%rest199813%_)) + (let ((_%rest199794%_ + _%tl199770199850%_)) + (_%K199755199788%_ _%rest199794%_))) + (let ((_%rest199794%_ _%tl199770199850%_)) + (_%K199755199788%_ _%rest199794%_))))) + (_%else199753199782%_))))))))) (define gxc#gsc-ld-options__%__0 - (lambda (_%@@keywords199591%_ _%static?199459199592%_) - (let ((_%phi?199594%_ '#f)) + (lambda (_%@@keywords199865%_ _%static?199733199866%_) + (let ((_%phi?199868%_ '#f)) (gxc#gsc-ld-options__%__% - _%@@keywords199591%_ - _%static?199459199592%_ - _%phi?199594%_)))) + _%@@keywords199865%_ + _%static?199733199866%_ + _%phi?199868%_)))) (define gxc#gsc-ld-options__% - (lambda _g201057_ - (let ((_g201056_ (let () (declare (not safe)) (##length _g201057_)))) - (cond ((let () (declare (not safe)) (##fx= _g201056_ 2)) - (apply gxc#gsc-ld-options__%__0 _g201057_)) - ((let () (declare (not safe)) (##fx= _g201056_ 3)) - (apply gxc#gsc-ld-options__%__% _g201057_)) + (lambda _g201331_ + (let ((_g201330_ (let () (declare (not safe)) (##length _g201331_)))) + (cond ((let () (declare (not safe)) (##fx= _g201330_ 2)) + (apply gxc#gsc-ld-options__%__0 _g201331_)) + ((let () (declare (not safe)) (##fx= _g201330_ 3)) + (apply gxc#gsc-ld-options__%__% _g201331_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-ld-options__% - _g201057_)))))) + _g201331_)))))) (define gxc#gsc-ld-options__@ - (lambda (_%@@keywords199603%_ . _%args199604%_) + (lambda (_%@@keywords199877%_ . _%args199878%_) (apply gxc#gsc-ld-options__% - _%@@keywords199603%_ + _%@@keywords199877%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords199603%_ + _%@@keywords199877%_ 'static: absent-value)) - _%args199604%_))) + _%args199878%_))) (define gxc#gsc-ld-options - (lambda _%args199460199610%_ + (lambda _%args199734199884%_ (apply keyword-dispatch '#(static:) gxc#gsc-ld-options__@ - _%args199460199610%_))) + _%args199734199884%_))) (define gxc#gsc-static-include-options - (lambda (_%staticdir199454%_) - (let ((_%user-staticdir199456%_ + (lambda (_%staticdir199728%_) + (let ((_%user-staticdir199730%_ (path-expand (path-expand '"lib/static" @@ -2805,341 +2805,341 @@ (cons '"-cc-options" (cons (string-append '"-I " - _%staticdir199454%_ + _%staticdir199728%_ '" -I " - _%user-staticdir199456%_) + _%user-staticdir199730%_) '()))))) (define gxc#gcc-ld-options (lambda () - (let _%lp199366%_ ((_%rest199368%_ + (let _%lp199640%_ ((_%rest199642%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts199369%_ '())) - (let* ((_%rest199370199390%_ _%rest199368%_) - (_%else199374199398%_ (lambda () _%opts199369%_))) - (let ((_%K199384199441%_ - (lambda (_%rest199439%_) - (_%lp199366%_ _%rest199439%_ _%opts199369%_))) - (_%K199379199419%_ - (lambda (_%rest199416%_ _%opt199417%_) - (_%lp199366%_ - _%rest199416%_ - (let ((__tmp201058 - (let ((__tmp201059 + (_%opts199643%_ '())) + (let* ((_%rest199644199664%_ _%rest199642%_) + (_%else199648199672%_ (lambda () _%opts199643%_))) + (let ((_%K199658199715%_ + (lambda (_%rest199713%_) + (_%lp199640%_ _%rest199713%_ _%opts199643%_))) + (_%K199653199693%_ + (lambda (_%rest199690%_ _%opt199691%_) + (_%lp199640%_ + _%rest199690%_ + (let ((__tmp201332 + (let ((__tmp201333 (let () (declare (not safe)) - (string-split _%opt199417%_ '#\space)))) + (string-split _%opt199691%_ '#\space)))) (declare (not safe)) - (##filter gxc#not-string-empty? __tmp201059)))) + (##filter gxc#not-string-empty? __tmp201333)))) (declare (not safe)) - (##append _%opts199369%_ __tmp201058))))) - (_%K199376199404%_ - (lambda (_%rest199402%_) - (_%lp199366%_ _%rest199402%_ _%opts199369%_)))) - (if (let () (declare (not safe)) (##pair? _%rest199370199390%_)) - (let ((_%tl199386199446%_ + (##append _%opts199643%_ __tmp201332))))) + (_%K199650199678%_ + (lambda (_%rest199676%_) + (_%lp199640%_ _%rest199676%_ _%opts199643%_)))) + (if (let () (declare (not safe)) (##pair? _%rest199644199664%_)) + (let ((_%tl199660199720%_ (let () (declare (not safe)) - (##cdr _%rest199370199390%_))) - (_%hd199385199444%_ + (##cdr _%rest199644199664%_))) + (_%hd199659199718%_ (let () (declare (not safe)) - (##car _%rest199370199390%_)))) - (if (equal? _%hd199385199444%_ '"-cc-options") + (##car _%rest199644199664%_)))) + (if (equal? _%hd199659199718%_ '"-cc-options") (if (let () (declare (not safe)) - (##pair? _%tl199386199446%_)) - (let* ((_%tl199388199449%_ + (##pair? _%tl199660199720%_)) + (let* ((_%tl199662199723%_ (let () (declare (not safe)) - (##cdr _%tl199386199446%_))) - (_%rest199452%_ _%tl199388199449%_)) - (_%K199384199441%_ _%rest199452%_)) - (let ((_%rest199410%_ _%tl199386199446%_)) - (_%K199376199404%_ _%rest199410%_))) - (if (equal? _%hd199385199444%_ '"-ld-options") + (##cdr _%tl199660199720%_))) + (_%rest199726%_ _%tl199662199723%_)) + (_%K199658199715%_ _%rest199726%_)) + (let ((_%rest199684%_ _%tl199660199720%_)) + (_%K199650199678%_ _%rest199684%_))) + (if (equal? _%hd199659199718%_ '"-ld-options") (if (let () (declare (not safe)) - (##pair? _%tl199386199446%_)) - (let ((_%tl199383199429%_ + (##pair? _%tl199660199720%_)) + (let ((_%tl199657199703%_ (let () (declare (not safe)) - (##cdr _%tl199386199446%_))) - (_%hd199382199427%_ + (##cdr _%tl199660199720%_))) + (_%hd199656199701%_ (let () (declare (not safe)) - (##car _%tl199386199446%_)))) - (let ((_%opt199432%_ _%hd199382199427%_) - (_%rest199434%_ _%tl199383199429%_)) - (_%K199379199419%_ - _%rest199434%_ - _%opt199432%_))) - (let ((_%rest199410%_ _%tl199386199446%_)) - (_%K199376199404%_ _%rest199410%_))) - (let ((_%rest199410%_ _%tl199386199446%_)) - (_%K199376199404%_ _%rest199410%_))))) - (_%else199374199398%_))))))) + (##car _%tl199660199720%_)))) + (let ((_%opt199706%_ _%hd199656199701%_) + (_%rest199708%_ _%tl199657199703%_)) + (_%K199653199693%_ + _%rest199708%_ + _%opt199706%_))) + (let ((_%rest199684%_ _%tl199660199720%_)) + (_%K199650199678%_ _%rest199684%_))) + (let ((_%rest199684%_ _%tl199660199720%_)) + (_%K199650199678%_ _%rest199684%_))))) + (_%else199648199672%_))))))) (define gxc#not-string-empty? - (lambda (_%str199363%_) - (not (let () (declare (not safe)) (string-empty? _%str199363%_))))) + (lambda (_%str199637%_) + (not (let () (declare (not safe)) (string-empty? _%str199637%_))))) (define gxc#gsc-compile-file - (lambda (_%path199356%_ _%phi?199357%_) - (let ((_%gsc-link-opts199359%_ - (gxc#gsc-link-options__% _%phi?199357%_)) - (_%gsc-cc-opts199360%_ - (gxc#gsc-cc-options__%__% '#f absent-value _%phi?199357%_)) - (_%gsc-ld-opts199361%_ - (gxc#gsc-ld-options__%__% '#f absent-value _%phi?199357%_))) + (lambda (_%path199630%_ _%phi?199631%_) + (let ((_%gsc-link-opts199633%_ + (gxc#gsc-link-options__% _%phi?199631%_)) + (_%gsc-cc-opts199634%_ + (gxc#gsc-cc-options__%__% '#f absent-value _%phi?199631%_)) + (_%gsc-ld-opts199635%_ + (gxc#gsc-ld-options__%__% '#f absent-value _%phi?199631%_))) (gxc#invoke__% '#f absent-value absent-value (gxc#gerbil-gsc) - (let ((__tmp201060 - (let ((__tmp201061 - (let ((__tmp201062 (cons _%path199356%_ '()))) + (let ((__tmp201334 + (let ((__tmp201335 + (let ((__tmp201336 (cons _%path199630%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp201062 - _%gsc-link-opts199359%_)))) + __tmp201336 + _%gsc-link-opts199633%_)))) (declare (not safe)) - (__foldr1 cons __tmp201061 _%gsc-ld-opts199361%_)))) + (__foldr1 cons __tmp201335 _%gsc-ld-opts199635%_)))) (declare (not safe)) - (__foldr1 cons __tmp201060 _%gsc-cc-opts199360%_)))))) + (__foldr1 cons __tmp201334 _%gsc-cc-opts199634%_)))))) (define gxc#compile-output-file - (lambda (_%ctx199322%_ _%n199323%_ _%ext199324%_) - (letrec ((_%module-relative-path199326%_ - (lambda (_%ctx199354%_) + (lambda (_%ctx199596%_ _%n199597%_ _%ext199598%_) + (letrec ((_%module-relative-path199600%_ + (lambda (_%ctx199628%_) (path-strip-directory - (let ((__tmp201063 + (let ((__tmp201337 (##structure-ref - _%ctx199354%_ + _%ctx199628%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp201063))))) - (_%module-source-directory199327%_ - (lambda (_%ctx199350%_) + (gxc#module-id->path-string __tmp201337))))) + (_%module-source-directory199601%_ + (lambda (_%ctx199624%_) (path-directory - (let ((_%mpath199352%_ + (let ((_%mpath199626%_ (##structure-ref - _%ctx199350%_ + _%ctx199624%_ '7 gx#module-context::t '#f))) - (if (string? _%mpath199352%_) - _%mpath199352%_ - (last _%mpath199352%_)))))) - (_%section-string199328%_ - (lambda (_%n199344%_) - (if (number? _%n199344%_) + (if (string? _%mpath199626%_) + _%mpath199626%_ + (last _%mpath199626%_)))))) + (_%section-string199602%_ + (lambda (_%n199618%_) + (if (number? _%n199618%_) (let () (declare (not safe)) - (##number->string _%n199344%_)) - (if (symbol? _%n199344%_) + (##number->string _%n199618%_)) + (if (symbol? _%n199618%_) (let () (declare (not safe)) - (##symbol->string _%n199344%_)) - (if (string? _%n199344%_) - _%n199344%_ + (##symbol->string _%n199618%_)) + (if (string? _%n199618%_) + _%n199618%_ (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected section" - _%n199344%_))))))) - (_%file-name199329%_ - (lambda (_%path199342%_) - (if _%n199323%_ + _%n199618%_))))))) + (_%file-name199603%_ + (lambda (_%path199616%_) + (if _%n199597%_ (string-append - _%path199342%_ + _%path199616%_ '"~" - (_%section-string199328%_ _%n199323%_) - _%ext199324%_) - (string-append _%path199342%_ _%ext199324%_)))) - (_%file-path199330%_ + (_%section-string199602%_ _%n199597%_) + _%ext199598%_) + (string-append _%path199616%_ _%ext199598%_)))) + (_%file-path199604%_ (lambda () - (let ((_%$e199336%_ + (let ((_%$e199610%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%$e199336%_ - ((lambda (_%outdir199339%_) + (if _%$e199610%_ + ((lambda (_%outdir199613%_) (path-expand - (_%file-name199329%_ - (let ((__tmp201064 + (_%file-name199603%_ + (let ((__tmp201338 (##structure-ref - _%ctx199322%_ + _%ctx199596%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp201064))) - _%outdir199339%_)) - _%$e199336%_) + (gxc#module-id->path-string __tmp201338))) + _%outdir199613%_)) + _%$e199610%_) (path-expand - (_%file-name199329%_ - (_%module-relative-path199326%_ _%ctx199322%_)) - (_%module-source-directory199327%_ - _%ctx199322%_))))))) - (let ((_%path199332%_ (_%file-path199330%_))) - (let ((__tmp201065 + (_%file-name199603%_ + (_%module-relative-path199600%_ _%ctx199596%_)) + (_%module-source-directory199601%_ + _%ctx199596%_))))))) + (let ((_%path199606%_ (_%file-path199604%_))) + (let ((__tmp201339 (lambda () - (let ((__tmp201066 (path-directory _%path199332%_))) + (let ((__tmp201340 (path-directory _%path199606%_))) (declare (not safe)) - (create-directory*__0 __tmp201066))))) + (create-directory*__0 __tmp201340))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp201065)) - _%path199332%_)))) + (__with-lock gxc#+driver-mutex+ __tmp201339)) + _%path199606%_)))) (define gxc#compile-static-output-file - (lambda (_%ctx199303%_) - (letrec ((_%file-name199305%_ - (lambda (_%id199320%_) - (let ((__tmp201067 (gxc#static-module-name _%id199320%_))) + (lambda (_%ctx199577%_) + (letrec ((_%file-name199579%_ + (lambda (_%id199594%_) + (let ((__tmp201341 (gxc#static-module-name _%id199594%_))) (declare (not safe)) - (##string-append __tmp201067 '".scm")))) - (_%file-path199306%_ + (##string-append __tmp201341 '".scm")))) + (_%file-path199580%_ (lambda () - (let* ((_%file199312%_ - (_%file-name199305%_ + (let* ((_%file199586%_ + (_%file-name199579%_ (##structure-ref - _%ctx199303%_ + _%ctx199577%_ '1 gx#expander-context::t '#f))) - (_%$e199314%_ + (_%$e199588%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%$e199314%_ - ((lambda (_%outdir199317%_) + (if _%$e199588%_ + ((lambda (_%outdir199591%_) (path-expand - _%file199312%_ - (path-expand '"static" _%outdir199317%_))) - _%$e199314%_) - (path-expand _%file199312%_ '"static")))))) - (let ((_%path199308%_ (_%file-path199306%_))) - (let ((__tmp201068 + _%file199586%_ + (path-expand '"static" _%outdir199591%_))) + _%$e199588%_) + (path-expand _%file199586%_ '"static")))))) + (let ((_%path199582%_ (_%file-path199580%_))) + (let ((__tmp201342 (lambda () - (let ((__tmp201069 (path-directory _%path199308%_))) + (let ((__tmp201343 (path-directory _%path199582%_))) (declare (not safe)) - (create-directory*__0 __tmp201069))))) + (create-directory*__0 __tmp201343))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp201068)) - _%path199308%_)))) + (__with-lock gxc#+driver-mutex+ __tmp201342)) + _%path199582%_)))) (define gxc#compile-exe-output-file - (lambda (_%ctx199296%_ _%opts199297%_) - (let ((_%$e199299%_ + (lambda (_%ctx199570%_ _%opts199571%_) + (let ((_%$e199573%_ (let () (declare (not safe)) - (pgetq__0 'output-file: _%opts199297%_)))) - (if _%$e199299%_ - _%$e199299%_ + (pgetq__0 'output-file: _%opts199571%_)))) + (if _%$e199573%_ + _%$e199573%_ (path-strip-directory (symbol->string (##structure-ref - _%ctx199296%_ + _%ctx199570%_ '1 gx#expander-context::t '#f))))))) (define gxc#static-module-name - (lambda (_%idstr199286%_) - (if (string? _%idstr199286%_) - (let* ((_%str199289%_ + (lambda (_%idstr199560%_) + (if (string? _%idstr199560%_) + (let* ((_%str199563%_ (let () (declare (not safe)) - (gxc#module-id->path-string _%idstr199286%_))) - (_%strs199291%_ + (gxc#module-id->path-string _%idstr199560%_))) + (_%strs199565%_ (let () (declare (not safe)) - (string-split _%str199289%_ '#\/)))) + (string-split _%str199563%_ '#\/)))) (declare (not safe)) - (string-join _%strs199291%_ '"__")) - (if (symbol? _%idstr199286%_) + (string-join _%strs199565%_ '"__")) + (if (symbol? _%idstr199560%_) (gxc#static-module-name (let () (declare (not safe)) - (##symbol->string _%idstr199286%_))) + (##symbol->string _%idstr199560%_))) (let () (declare (not safe)) - (error '"Bad module id" _%idstr199286%_)))))) + (error '"Bad module id" _%idstr199560%_)))))) (define gxc#gerbil-enable-shared? (lambda () - (let ((__tmp201070 - (let ((__tmp201071 (configure-command-string))) + (let ((__tmp201344 + (let ((__tmp201345 (configure-command-string))) (declare (not safe)) - (__string-split __tmp201071 '#\')))) + (__string-split __tmp201345 '#\')))) (declare (not safe)) - (##member '"--enable-shared" __tmp201070)))) + (##member '"--enable-shared" __tmp201344)))) (define gxc#invoke__% - (lambda (_%@@keywords199250%_ - _%stdout-redirection199246199251%_ - _%stderr-redirection199247199253%_ - _%program199255%_ - _%args199256%_) - (let* ((_%stdout-redirection199258%_ - (if (eq? _%stdout-redirection199246199251%_ absent-value) + (lambda (_%@@keywords199524%_ + _%stdout-redirection199520199525%_ + _%stderr-redirection199521199527%_ + _%program199529%_ + _%args199530%_) + (let* ((_%stdout-redirection199532%_ + (if (eq? _%stdout-redirection199520199525%_ absent-value) '#f - _%stdout-redirection199246199251%_)) - (_%stderr-redirection199260%_ - (if (eq? _%stderr-redirection199247199253%_ absent-value) + _%stdout-redirection199520199525%_)) + (_%stderr-redirection199534%_ + (if (eq? _%stderr-redirection199521199527%_ absent-value) '#f - _%stderr-redirection199247199253%_))) - (let ((__tmp201072 (cons _%program199255%_ _%args199256%_))) + _%stderr-redirection199521199527%_))) + (let ((__tmp201346 (cons _%program199529%_ _%args199530%_))) (declare (not safe)) - (gxc#verbose '"invoke " __tmp201072)) - (let* ((_%proc199262%_ + (gxc#verbose '"invoke " __tmp201346)) + (let* ((_%proc199536%_ (open-process (cons 'path: - (cons _%program199255%_ + (cons _%program199529%_ (cons 'arguments: - (cons _%args199256%_ + (cons _%args199530%_ (cons 'stdout-redirection: - (cons _%stdout-redirection199258%_ + (cons _%stdout-redirection199532%_ (cons 'stderr-redirection: - (cons _%stderr-redirection199260%_ + (cons _%stderr-redirection199534%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%output199267%_ - (if (or _%stdout-redirection199258%_ - _%stderr-redirection199260%_) - (read-line _%proc199262%_ '#f) + (_%output199541%_ + (if (or _%stdout-redirection199532%_ + _%stderr-redirection199534%_) + (read-line _%proc199536%_ '#f) '#f)) - (_%status199270%_ (process-status _%proc199262%_))) - (let () (declare (not safe)) (##close-port _%proc199262%_)) - (if (zero? _%status199270%_) + (_%status199544%_ (process-status _%proc199536%_))) + (let () (declare (not safe)) (##close-port _%proc199536%_)) + (if (zero? _%status199544%_) '#!void (begin - (display _%output199267%_) - (let ((__tmp201073 (cons _%program199255%_ _%args199256%_))) + (display _%output199541%_) + (let ((__tmp201347 (cons _%program199529%_ _%args199530%_))) (declare (not safe)) (gxc#raise-compile-error '"Compilation error; process exit with nonzero status" - __tmp201073 - _%status199270%_)))))))) + __tmp201347 + _%status199544%_)))))))) (define gxc#invoke__@ - (lambda (_%@@keywords199275%_ . _%args199276%_) + (lambda (_%@@keywords199549%_ . _%args199550%_) (apply gxc#invoke__% - _%@@keywords199275%_ + _%@@keywords199549%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords199275%_ + _%@@keywords199549%_ 'stdout-redirection: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords199275%_ + _%@@keywords199549%_ 'stderr-redirection: absent-value)) - _%args199276%_))) + _%args199550%_))) (define gxc#invoke - (lambda _%args199248199282%_ + (lambda _%args199522199556%_ (apply keyword-dispatch '#(stderr-redirection: stdout-redirection:) gxc#invoke__@ - _%args199248199282%_))))) + _%args199522199556%_))))) diff --git a/src/bootstrap/gerbil/compiler/driver~1.scm b/src/bootstrap/gerbil/compiler/driver~1.scm index 11c376b54..157a39d16 100644 --- a/src/bootstrap/gerbil/compiler/driver~1.scm +++ b/src/bootstrap/gerbil/compiler/driver~1.scm @@ -1,50 +1,50 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (define |gxc[:0:]#with-driver-mutex| - (lambda (_%$stx199181%_) - (let* ((_%g199185199199%_ - (lambda (_%g199186199195%_) + (lambda (_%$stx199455%_) + (let* ((_%g199459199473%_ + (lambda (_%g199460199469%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g199186199195%_)))) - (_%g199184199241%_ - (lambda (_%g199186199203%_) + _%g199460199469%_)))) + (_%g199458199515%_ + (lambda (_%g199460199477%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g199186199203%_)) - (let ((_%e199188199206%_ + (gx#stx-pair? _%g199460199477%_)) + (let ((_%e199462199480%_ (let () (declare (not safe)) - (gx#syntax-e _%g199186199203%_)))) - (let ((_%hd199189199210%_ + (gx#syntax-e _%g199460199477%_)))) + (let ((_%hd199463199484%_ (let () (declare (not safe)) - (##car _%e199188199206%_))) - (_%tl199190199213%_ + (##car _%e199462199480%_))) + (_%tl199464199487%_ (let () (declare (not safe)) - (##cdr _%e199188199206%_)))) + (##cdr _%e199462199480%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199190199213%_)) - (let ((_%e199191199216%_ + (gx#stx-pair? _%tl199464199487%_)) + (let ((_%e199465199490%_ (let () (declare (not safe)) - (gx#syntax-e _%tl199190199213%_)))) - (let ((_%hd199192199220%_ + (gx#syntax-e _%tl199464199487%_)))) + (let ((_%hd199466199494%_ (let () (declare (not safe)) - (##car _%e199191199216%_))) - (_%tl199193199223%_ + (##car _%e199465199490%_))) + (_%tl199467199497%_ (let () (declare (not safe)) - (##cdr _%e199191199216%_)))) + (##cdr _%e199465199490%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199193199223%_)) - ((lambda (_%L199226%_) + (gx#stx-null? _%tl199467199497%_)) + ((lambda (_%L199500%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -60,11 +60,11 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'lambda)) - (cons '() (cons _%L199226%_ '()))) + (cons '() (cons _%L199500%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd199192199220%_) - (_%g199185199199%_ _%g199186199203%_)))) - (_%g199185199199%_ _%g199186199203%_)))) - (_%g199185199199%_ _%g199186199203%_))))) - (_%g199184199241%_ _%$stx199181%_)))) + _%hd199466199494%_) + (_%g199459199473%_ _%g199460199477%_)))) + (_%g199459199473%_ _%g199460199477%_)))) + (_%g199459199473%_ _%g199460199477%_))))) + (_%g199458199515%_ _%$stx199455%_)))) diff --git a/src/bootstrap/gerbil/compiler/method~0.scm b/src/bootstrap/gerbil/compiler/method~0.scm index 04086c51f..279a7544d 100644 --- a/src/bootstrap/gerbil/compiler/method~0.scm +++ b/src/bootstrap/gerbil/compiler/method~0.scm @@ -1,81 +1,81 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/method::timestamp 1713044316) + (define gerbil/compiler/method::timestamp 1713454411) (begin (define gxc#current-compile-method (make-parameter '#f)) (define gxc#compile-e__0 - (lambda (_%stx136129%_) - (let* ((_%self136131%_ + (lambda (_%stx136403%_) + (let* ((_%self136405%_ (let () (declare (not safe)) (gxc#current-compile-method))) - (_%$e136133%_ - (let ((__tmp136329 (gxc#stx-car-e _%stx136129%_))) + (_%$e136407%_ + (let ((__tmp136603 (gxc#stx-car-e _%stx136403%_))) (declare (not safe)) - (method-ref _%self136131%_ __tmp136329)))) - (if _%$e136133%_ - ((lambda (_%method136136%_) - (declare (not safe)) - (_%method136136%_ _%self136131%_ _%stx136129%_)) - _%$e136133%_) - (let ((__tmp136331 (gxc#stx-car-e _%stx136129%_)) - (__tmp136330 + (method-ref _%self136405%_ __tmp136603)))) + (if _%$e136407%_ + ((lambda (_%method136410%_) + (declare (not safe)) + (_%method136410%_ _%self136405%_ _%stx136403%_)) + _%$e136407%_) + (let ((__tmp136605 (gxc#stx-car-e _%stx136403%_)) + (__tmp136604 (let () (declare (not safe)) - (gx#syntax->datum _%stx136129%_)))) + (gx#syntax->datum _%stx136403%_)))) (declare (not safe)) (error '"missing method" - _%self136131%_ - __tmp136331 - __tmp136330)))))) + _%self136405%_ + __tmp136605 + __tmp136604)))))) (define gxc#compile-e__1 - (lambda (_%self136140%_ _%stx136141%_) - (let ((_%$e136143%_ - (let ((__tmp136332 (gxc#stx-car-e _%stx136141%_))) - (declare (not safe)) - (method-ref _%self136140%_ __tmp136332)))) - (if _%$e136143%_ - ((lambda (_%method136146%_) - (declare (not safe)) - (_%method136146%_ _%self136140%_ _%stx136141%_)) - _%$e136143%_) - (let ((__tmp136334 (gxc#stx-car-e _%stx136141%_)) - (__tmp136333 + (lambda (_%self136414%_ _%stx136415%_) + (let ((_%$e136417%_ + (let ((__tmp136606 (gxc#stx-car-e _%stx136415%_))) + (declare (not safe)) + (method-ref _%self136414%_ __tmp136606)))) + (if _%$e136417%_ + ((lambda (_%method136420%_) + (declare (not safe)) + (_%method136420%_ _%self136414%_ _%stx136415%_)) + _%$e136417%_) + (let ((__tmp136608 (gxc#stx-car-e _%stx136415%_)) + (__tmp136607 (let () (declare (not safe)) - (gx#syntax->datum _%stx136141%_)))) + (gx#syntax->datum _%stx136415%_)))) (declare (not safe)) (error '"missing method" - _%self136140%_ - __tmp136334 - __tmp136333)))))) + _%self136414%_ + __tmp136608 + __tmp136607)))))) (define gxc#compile-e - (lambda _g136336_ - (let ((_g136335_ (let () (declare (not safe)) (##length _g136336_)))) - (cond ((let () (declare (not safe)) (##fx= _g136335_ 1)) - (apply gxc#compile-e__0 _g136336_)) - ((let () (declare (not safe)) (##fx= _g136335_ 2)) - (apply gxc#compile-e__1 _g136336_)) + (lambda _g136610_ + (let ((_g136609_ (let () (declare (not safe)) (##length _g136610_)))) + (cond ((let () (declare (not safe)) (##fx= _g136609_ 1)) + (apply gxc#compile-e__0 _g136610_)) + ((let () (declare (not safe)) (##fx= _g136609_ 2)) + (apply gxc#compile-e__1 _g136610_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-e - _g136336_)))))) + _g136610_)))))) (define gxc#stx-car-e - (lambda (_%stx136127%_) - (let ((__tmp136337 - (car (let () (declare (not safe)) (gx#stx-e _%stx136127%_))))) + (lambda (_%stx136401%_) + (let ((__tmp136611 + (car (let () (declare (not safe)) (gx#stx-e _%stx136401%_))))) (declare (not safe)) - (gx#stx-e __tmp136337)))) - (define gxc#void-method (lambda (_%self136124%_ _%stx136125%_) '#!void)) - (define gxc#false-method (lambda (_%self136121%_ _%stx136122%_) '#f)) - (define gxc#true-method (lambda (_%self136118%_ _%stx136119%_) '#t)) + (gx#stx-e __tmp136611)))) + (define gxc#void-method (lambda (_%self136398%_ _%stx136399%_) '#!void)) + (define gxc#false-method (lambda (_%self136395%_ _%stx136396%_) '#f)) + (define gxc#true-method (lambda (_%self136392%_ _%stx136393%_) '#t)) (define gxc#identity-method - (lambda (_%self136115%_ _%stx136116%_) _%stx136116%_)) + (lambda (_%self136389%_ _%stx136390%_) _%stx136390%_)) (define gxc#::void-expression::t - (let ((__tmp136338 (list))) + (let ((__tmp136612 (list))) (declare (not safe)) (__make-class-type 'gxc#::void-expression::t '::void-expression - __tmp136338 + __tmp136612 '() '() '#f))) @@ -84,10 +84,10 @@ (declare (not safe)) (__make-class-predicate gxc#::void-expression::t))) (define gxc#make-::void-expression - (lambda _%$args136112%_ - (apply make-instance gxc#::void-expression::t _%$args136112%_))) + (lambda _%$args136386%_ + (apply make-instance gxc#::void-expression::t _%$args136386%_))) (define gxc#::void-expression-bind-methods! - (let ((__tmp136339 + (let ((__tmp136613 (lambda () (let () (declare (not safe)) @@ -216,14 +216,14 @@ '%#struct-unchecked-set! gxc#void-method))))) (declare (not safe)) - (__make-promise __tmp136339))) + (__make-promise __tmp136613))) (define gxc#::void-special-form::t - (let ((__tmp136340 (list))) + (let ((__tmp136614 (list))) (declare (not safe)) (__make-class-type 'gxc#::void-special-form::t '::void-special-form - __tmp136340 + __tmp136614 '() '() '#f))) @@ -232,10 +232,10 @@ (declare (not safe)) (__make-class-predicate gxc#::void-special-form::t))) (define gxc#make-::void-special-form - (lambda _%$args136108%_ - (apply make-instance gxc#::void-special-form::t _%$args136108%_))) + (lambda _%$args136382%_ + (apply make-instance gxc#::void-special-form::t _%$args136382%_))) (define gxc#::void-special-form-bind-methods! - (let ((__tmp136341 + (let ((__tmp136615 (lambda () (let () (declare (not safe)) @@ -310,31 +310,31 @@ '%#declare gxc#void-method))))) (declare (not safe)) - (__make-promise __tmp136341))) + (__make-promise __tmp136615))) (define gxc#::void::t - (let ((__tmp136342 + (let ((__tmp136616 (list gxc#::void-special-form::t gxc#::void-expression::t))) (declare (not safe)) - (__make-class-type 'gxc#::void::t '::void __tmp136342 '() '() '#f))) + (__make-class-type 'gxc#::void::t '::void __tmp136616 '() '() '#f))) (define gxc#::void? (let () (declare (not safe)) (__make-class-predicate gxc#::void::t))) (define gxc#make-::void - (lambda _%$args136104%_ - (apply make-instance gxc#::void::t _%$args136104%_))) + (lambda _%$args136378%_ + (apply make-instance gxc#::void::t _%$args136378%_))) (define gxc#::void-bind-methods! - (let ((__tmp136343 + (let ((__tmp136617 (lambda () (force gxc#::void-special-form-bind-methods!) (force gxc#::void-expression-bind-methods!)))) (declare (not safe)) - (__make-promise __tmp136343))) + (__make-promise __tmp136617))) (define gxc#::false-expression::t - (let ((__tmp136344 (list))) + (let ((__tmp136618 (list))) (declare (not safe)) (__make-class-type 'gxc#::false-expression::t '::false-expression - __tmp136344 + __tmp136618 '() '() '#f))) @@ -343,10 +343,10 @@ (declare (not safe)) (__make-class-predicate gxc#::false-expression::t))) (define gxc#make-::false-expression - (lambda _%$args136100%_ - (apply make-instance gxc#::false-expression::t _%$args136100%_))) + (lambda _%$args136374%_ + (apply make-instance gxc#::false-expression::t _%$args136374%_))) (define gxc#::false-expression-bind-methods! - (let ((__tmp136345 + (let ((__tmp136619 (lambda () (let () (declare (not safe)) @@ -475,14 +475,14 @@ '%#struct-unchecked-set! gxc#false-method))))) (declare (not safe)) - (__make-promise __tmp136345))) + (__make-promise __tmp136619))) (define gxc#::false-special-form::t - (let ((__tmp136346 (list))) + (let ((__tmp136620 (list))) (declare (not safe)) (__make-class-type 'gxc#::false-special-form::t '::false-special-form - __tmp136346 + __tmp136620 '() '() '#f))) @@ -491,10 +491,10 @@ (declare (not safe)) (__make-class-predicate gxc#::false-special-form::t))) (define gxc#make-::false-special-form - (lambda _%$args136096%_ - (apply make-instance gxc#::false-special-form::t _%$args136096%_))) + (lambda _%$args136370%_ + (apply make-instance gxc#::false-special-form::t _%$args136370%_))) (define gxc#::false-special-form-bind-methods! - (let ((__tmp136347 + (let ((__tmp136621 (lambda () (let () (declare (not safe)) @@ -569,31 +569,31 @@ '%#declare gxc#false-method))))) (declare (not safe)) - (__make-promise __tmp136347))) + (__make-promise __tmp136621))) (define gxc#::false::t - (let ((__tmp136348 + (let ((__tmp136622 (list gxc#::false-special-form::t gxc#::false-expression::t))) (declare (not safe)) - (__make-class-type 'gxc#::false::t '::false __tmp136348 '() '() '#f))) + (__make-class-type 'gxc#::false::t '::false __tmp136622 '() '() '#f))) (define gxc#::false? (let () (declare (not safe)) (__make-class-predicate gxc#::false::t))) (define gxc#make-::false - (lambda _%$args136092%_ - (apply make-instance gxc#::false::t _%$args136092%_))) + (lambda _%$args136366%_ + (apply make-instance gxc#::false::t _%$args136366%_))) (define gxc#::false-bind-methods! - (let ((__tmp136349 + (let ((__tmp136623 (lambda () (force gxc#::false-special-form-bind-methods!) (force gxc#::false-expression-bind-methods!)))) (declare (not safe)) - (__make-promise __tmp136349))) + (__make-promise __tmp136623))) (define gxc#::identity-expression::t - (let ((__tmp136350 (list))) + (let ((__tmp136624 (list))) (declare (not safe)) (__make-class-type 'gxc#::identity-expression::t '::identity-expression - __tmp136350 + __tmp136624 '() '() '#f))) @@ -602,10 +602,10 @@ (declare (not safe)) (__make-class-predicate gxc#::identity-expression::t))) (define gxc#make-::identity-expression - (lambda _%$args136088%_ - (apply make-instance gxc#::identity-expression::t _%$args136088%_))) + (lambda _%$args136362%_ + (apply make-instance gxc#::identity-expression::t _%$args136362%_))) (define gxc#::identity-expression-bind-methods! - (let ((__tmp136351 + (let ((__tmp136625 (lambda () (let () (declare (not safe)) @@ -734,14 +734,14 @@ '%#struct-unchecked-set! gxc#identity-method))))) (declare (not safe)) - (__make-promise __tmp136351))) + (__make-promise __tmp136625))) (define gxc#::identity-special-form::t - (let ((__tmp136352 (list))) + (let ((__tmp136626 (list))) (declare (not safe)) (__make-class-type 'gxc#::identity-special-form::t '::identity-special-form - __tmp136352 + __tmp136626 '() '() '#f))) @@ -750,10 +750,10 @@ (declare (not safe)) (__make-class-predicate gxc#::identity-special-form::t))) (define gxc#make-::identity-special-form - (lambda _%$args136084%_ - (apply make-instance gxc#::identity-special-form::t _%$args136084%_))) + (lambda _%$args136358%_ + (apply make-instance gxc#::identity-special-form::t _%$args136358%_))) (define gxc#::identity-special-form-bind-methods! - (let ((__tmp136353 + (let ((__tmp136627 (lambda () (let () (declare (not safe)) @@ -828,38 +828,38 @@ '%#declare gxc#identity-method))))) (declare (not safe)) - (__make-promise __tmp136353))) + (__make-promise __tmp136627))) (define gxc#::identity::t - (let ((__tmp136354 + (let ((__tmp136628 (list gxc#::identity-special-form::t gxc#::identity-expression::t))) (declare (not safe)) (__make-class-type 'gxc#::identity::t '::identity - __tmp136354 + __tmp136628 '() '() '#f))) (define gxc#::identity? (let () (declare (not safe)) (__make-class-predicate gxc#::identity::t))) (define gxc#make-::identity - (lambda _%$args136080%_ - (apply make-instance gxc#::identity::t _%$args136080%_))) + (lambda _%$args136354%_ + (apply make-instance gxc#::identity::t _%$args136354%_))) (define gxc#::identity-bind-methods! - (let ((__tmp136355 + (let ((__tmp136629 (lambda () (force gxc#::identity-special-form-bind-methods!) (force gxc#::identity-expression-bind-methods!)))) (declare (not safe)) - (__make-promise __tmp136355))) + (__make-promise __tmp136629))) (define gxc#::basic-xform-expression::t - (let ((__tmp136356 (list))) + (let ((__tmp136630 (list))) (declare (not safe)) (__make-class-type 'gxc#::basic-xform-expression::t '::basic-xform-expression - __tmp136356 + __tmp136630 '() '() '#f))) @@ -868,10 +868,10 @@ (declare (not safe)) (__make-class-predicate gxc#::basic-xform-expression::t))) (define gxc#make-::basic-xform-expression - (lambda _%$args136076%_ - (apply make-instance gxc#::basic-xform-expression::t _%$args136076%_))) + (lambda _%$args136350%_ + (apply make-instance gxc#::basic-xform-expression::t _%$args136350%_))) (define gxc#::basic-xform-expression-bind-methods! - (let ((__tmp136357 + (let ((__tmp136631 (lambda () (let () (declare (not safe)) @@ -1000,15 +1000,15 @@ '%#struct-unchecked-set! gxc#xform-operands))))) (declare (not safe)) - (__make-promise __tmp136357))) + (__make-promise __tmp136631))) (define gxc#::basic-xform::t - (let ((__tmp136358 + (let ((__tmp136632 (list gxc#::basic-xform-expression::t gxc#::identity::t))) (declare (not safe)) (__make-class-type 'gxc#::basic-xform::t '::basic-xform - __tmp136358 + __tmp136632 '() '() '#f))) @@ -1017,10 +1017,10 @@ (declare (not safe)) (__make-class-predicate gxc#::basic-xform::t))) (define gxc#make-::basic-xform - (lambda _%$args136072%_ - (apply make-instance gxc#::basic-xform::t _%$args136072%_))) + (lambda _%$args136346%_ + (apply make-instance gxc#::basic-xform::t _%$args136346%_))) (define gxc#::basic-xform-bind-methods! - (let ((__tmp136359 + (let ((__tmp136633 (lambda () (force gxc#::basic-xform-expression-bind-methods!) (force gxc#::identity-bind-methods!) @@ -1055,2554 +1055,2554 @@ '%#define-syntax gxc#xform-define-syntax%))))) (declare (not safe)) - (__make-promise __tmp136359))) + (__make-promise __tmp136633))) (define gxc#apply-begin% - (lambda (_%self136028%_ _%stx136029%_) - (let* ((_%g136031136041%_ - (lambda (_%g136032136038%_) + (lambda (_%self136302%_ _%stx136303%_) + (let* ((_%g136305136315%_ + (lambda (_%g136306136312%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136032136038%_)))) - (_%g136030136068%_ - (lambda (_%g136032136044%_) + _%g136306136312%_)))) + (_%g136304136342%_ + (lambda (_%g136306136318%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136032136044%_)) - (let ((_%e136034136046%_ + (gx#stx-pair? _%g136306136318%_)) + (let ((_%e136308136320%_ (let () (declare (not safe)) - (gx#stx-e _%g136032136044%_)))) - (let ((_%hd136035136049%_ + (gx#stx-e _%g136306136318%_)))) + (let ((_%hd136309136323%_ (let () (declare (not safe)) - (##car _%e136034136046%_))) - (_%tl136036136051%_ + (##car _%e136308136320%_))) + (_%tl136310136325%_ (let () (declare (not safe)) - (##cdr _%e136034136046%_)))) - ((lambda (_%L136054%_) + (##cdr _%e136308136320%_)))) + ((lambda (_%L136328%_) (for-each - (lambda (_%g136063136065%_) + (lambda (_%g136337136339%_) (gxc#compile-e__1 - _%self136028%_ - _%g136063136065%_)) + _%self136302%_ + _%g136337136339%_)) (let () (declare (not safe)) - (gx#stx-e _%L136054%_)))) - _%tl136036136051%_))) - (_%g136031136041%_ _%g136032136044%_))))) - (_%g136030136068%_ _%stx136029%_)))) + (gx#stx-e _%L136328%_)))) + _%tl136310136325%_))) + (_%g136305136315%_ _%g136306136318%_))))) + (_%g136304136342%_ _%stx136303%_)))) (define gxc#apply-last-begin% - (lambda (_%self135989%_ _%stx135990%_) - (let* ((_%g135992136002%_ - (lambda (_%g135993135999%_) + (lambda (_%self136263%_ _%stx136264%_) + (let* ((_%g136266136276%_ + (lambda (_%g136267136273%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135993135999%_)))) - (_%g135991136025%_ - (lambda (_%g135993136005%_) + _%g136267136273%_)))) + (_%g136265136299%_ + (lambda (_%g136267136279%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135993136005%_)) - (let ((_%e135995136007%_ + (gx#stx-pair? _%g136267136279%_)) + (let ((_%e136269136281%_ (let () (declare (not safe)) - (gx#stx-e _%g135993136005%_)))) - (let ((_%hd135996136010%_ + (gx#stx-e _%g136267136279%_)))) + (let ((_%hd136270136284%_ (let () (declare (not safe)) - (##car _%e135995136007%_))) - (_%tl135997136012%_ + (##car _%e136269136281%_))) + (_%tl136271136286%_ (let () (declare (not safe)) - (##cdr _%e135995136007%_)))) - ((lambda (_%L136015%_) + (##cdr _%e136269136281%_)))) + ((lambda (_%L136289%_) (gxc#compile-e__1 - _%self135989%_ - (last _%L136015%_))) - _%tl135997136012%_))) - (_%g135992136002%_ _%g135993136005%_))))) - (_%g135991136025%_ _%stx135990%_)))) + _%self136263%_ + (last _%L136289%_))) + _%tl136271136286%_))) + (_%g136266136276%_ _%g136267136279%_))))) + (_%g136265136299%_ _%stx136264%_)))) (define gxc#apply-begin-syntax% - (lambda (_%self135985%_ _%stx135986%_) - (let ((__tmp136362 - (lambda () (gxc#apply-begin% _%self135985%_ _%stx135986%_))) - (__tmp136360 - (let ((__tmp136361 + (lambda (_%self136259%_ _%stx136260%_) + (let ((__tmp136636 + (lambda () (gxc#apply-begin% _%self136259%_ _%stx136260%_))) + (__tmp136634 + (let ((__tmp136635 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp136361 '1)))) + (##fx+ __tmp136635 '1)))) (declare (not safe)) (__call-with-parameters - __tmp136362 + __tmp136636 gx#current-expander-phi - __tmp136360)))) + __tmp136634)))) (define gxc#apply-module% - (lambda (_%self135924%_ _%stx135925%_) - (let* ((_%g135927135941%_ - (lambda (_%g135928135938%_) + (lambda (_%self136198%_ _%stx136199%_) + (let* ((_%g136201136215%_ + (lambda (_%g136202136212%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135928135938%_)))) - (_%g135926135982%_ - (lambda (_%g135928135944%_) + _%g136202136212%_)))) + (_%g136200136256%_ + (lambda (_%g136202136218%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135928135944%_)) - (let ((_%e135931135946%_ + (gx#stx-pair? _%g136202136218%_)) + (let ((_%e136205136220%_ (let () (declare (not safe)) - (gx#stx-e _%g135928135944%_)))) - (let ((_%hd135932135949%_ + (gx#stx-e _%g136202136218%_)))) + (let ((_%hd136206136223%_ (let () (declare (not safe)) - (##car _%e135931135946%_))) - (_%tl135933135951%_ + (##car _%e136205136220%_))) + (_%tl136207136225%_ (let () (declare (not safe)) - (##cdr _%e135931135946%_)))) + (##cdr _%e136205136220%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135933135951%_)) - (let ((_%e135934135954%_ + (gx#stx-pair? _%tl136207136225%_)) + (let ((_%e136208136228%_ (let () (declare (not safe)) - (gx#stx-e _%tl135933135951%_)))) - (let ((_%hd135935135957%_ + (gx#stx-e _%tl136207136225%_)))) + (let ((_%hd136209136231%_ (let () (declare (not safe)) - (##car _%e135934135954%_))) - (_%tl135936135959%_ + (##car _%e136208136228%_))) + (_%tl136210136233%_ (let () (declare (not safe)) - (##cdr _%e135934135954%_)))) - ((lambda (_%L135962%_ _%L135963%_) - (let* ((_%ctx135976%_ + (##cdr _%e136208136228%_)))) + ((lambda (_%L136236%_ _%L136237%_) + (let* ((_%ctx136250%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L135963%_))) - (_%ctx-stx135978%_ + _%L136237%_))) + (_%ctx-stx136252%_ (##structure-ref - _%ctx135976%_ + _%ctx136250%_ '11 gx#module-context::t '#f)) - (__tmp136363 + (__tmp136637 (lambda () (gxc#compile-e__1 - _%self135924%_ - _%ctx-stx135978%_)))) + _%self136198%_ + _%ctx-stx136252%_)))) (declare (not safe)) (__call-with-parameters - __tmp136363 + __tmp136637 gx#current-expander-context - _%ctx135976%_))) - _%tl135936135959%_ - _%hd135935135957%_))) - (_%g135927135941%_ _%g135928135944%_)))) - (_%g135927135941%_ _%g135928135944%_))))) - (_%g135926135982%_ _%stx135925%_)))) + _%ctx136250%_))) + _%tl136210136233%_ + _%hd136209136231%_))) + (_%g136201136215%_ _%g136202136218%_)))) + (_%g136201136215%_ _%g136202136218%_))))) + (_%g136200136256%_ _%stx136199%_)))) (define gxc#apply-begin-annotation% - (lambda (_%self135856%_ _%stx135857%_) - (let* ((_%g135859135876%_ - (lambda (_%g135860135873%_) + (lambda (_%self136130%_ _%stx136131%_) + (let* ((_%g136133136150%_ + (lambda (_%g136134136147%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135860135873%_)))) - (_%g135858135921%_ - (lambda (_%g135860135879%_) + _%g136134136147%_)))) + (_%g136132136195%_ + (lambda (_%g136134136153%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135860135879%_)) - (let ((_%e135863135881%_ + (gx#stx-pair? _%g136134136153%_)) + (let ((_%e136137136155%_ (let () (declare (not safe)) - (gx#stx-e _%g135860135879%_)))) - (let ((_%hd135864135884%_ + (gx#stx-e _%g136134136153%_)))) + (let ((_%hd136138136158%_ (let () (declare (not safe)) - (##car _%e135863135881%_))) - (_%tl135865135886%_ + (##car _%e136137136155%_))) + (_%tl136139136160%_ (let () (declare (not safe)) - (##cdr _%e135863135881%_)))) + (##cdr _%e136137136155%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135865135886%_)) - (let ((_%e135866135889%_ + (gx#stx-pair? _%tl136139136160%_)) + (let ((_%e136140136163%_ (let () (declare (not safe)) - (gx#stx-e _%tl135865135886%_)))) - (let ((_%hd135867135892%_ + (gx#stx-e _%tl136139136160%_)))) + (let ((_%hd136141136166%_ (let () (declare (not safe)) - (##car _%e135866135889%_))) - (_%tl135868135894%_ + (##car _%e136140136163%_))) + (_%tl136142136168%_ (let () (declare (not safe)) - (##cdr _%e135866135889%_)))) + (##cdr _%e136140136163%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135868135894%_)) - (let ((_%e135869135897%_ + (gx#stx-pair? _%tl136142136168%_)) + (let ((_%e136143136171%_ (let () (declare (not safe)) - (gx#stx-e _%tl135868135894%_)))) - (let ((_%hd135870135900%_ + (gx#stx-e _%tl136142136168%_)))) + (let ((_%hd136144136174%_ (let () (declare (not safe)) - (##car _%e135869135897%_))) - (_%tl135871135902%_ + (##car _%e136143136171%_))) + (_%tl136145136176%_ (let () (declare (not safe)) - (##cdr _%e135869135897%_)))) + (##cdr _%e136143136171%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135871135902%_)) - ((lambda (_%L135905%_ - _%L135906%_) + _%tl136145136176%_)) + ((lambda (_%L136179%_ + _%L136180%_) (gxc#compile-e__1 - _%self135856%_ - _%L135905%_)) - _%hd135870135900%_ - _%hd135867135892%_) - (_%g135859135876%_ - _%g135860135879%_)))) - (_%g135859135876%_ _%g135860135879%_)))) - (_%g135859135876%_ _%g135860135879%_)))) - (_%g135859135876%_ _%g135860135879%_))))) - (_%g135858135921%_ _%stx135857%_)))) + _%self136130%_ + _%L136179%_)) + _%hd136144136174%_ + _%hd136141136166%_) + (_%g136133136150%_ + _%g136134136153%_)))) + (_%g136133136150%_ _%g136134136153%_)))) + (_%g136133136150%_ _%g136134136153%_)))) + (_%g136133136150%_ _%g136134136153%_))))) + (_%g136132136195%_ _%stx136131%_)))) (define gxc#apply-define-values% - (lambda (_%self135788%_ _%stx135789%_) - (let* ((_%g135791135808%_ - (lambda (_%g135792135805%_) + (lambda (_%self136062%_ _%stx136063%_) + (let* ((_%g136065136082%_ + (lambda (_%g136066136079%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135792135805%_)))) - (_%g135790135853%_ - (lambda (_%g135792135811%_) + _%g136066136079%_)))) + (_%g136064136127%_ + (lambda (_%g136066136085%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135792135811%_)) - (let ((_%e135795135813%_ + (gx#stx-pair? _%g136066136085%_)) + (let ((_%e136069136087%_ (let () (declare (not safe)) - (gx#stx-e _%g135792135811%_)))) - (let ((_%hd135796135816%_ + (gx#stx-e _%g136066136085%_)))) + (let ((_%hd136070136090%_ (let () (declare (not safe)) - (##car _%e135795135813%_))) - (_%tl135797135818%_ + (##car _%e136069136087%_))) + (_%tl136071136092%_ (let () (declare (not safe)) - (##cdr _%e135795135813%_)))) + (##cdr _%e136069136087%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135797135818%_)) - (let ((_%e135798135821%_ + (gx#stx-pair? _%tl136071136092%_)) + (let ((_%e136072136095%_ (let () (declare (not safe)) - (gx#stx-e _%tl135797135818%_)))) - (let ((_%hd135799135824%_ + (gx#stx-e _%tl136071136092%_)))) + (let ((_%hd136073136098%_ (let () (declare (not safe)) - (##car _%e135798135821%_))) - (_%tl135800135826%_ + (##car _%e136072136095%_))) + (_%tl136074136100%_ (let () (declare (not safe)) - (##cdr _%e135798135821%_)))) + (##cdr _%e136072136095%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135800135826%_)) - (let ((_%e135801135829%_ + (gx#stx-pair? _%tl136074136100%_)) + (let ((_%e136075136103%_ (let () (declare (not safe)) - (gx#stx-e _%tl135800135826%_)))) - (let ((_%hd135802135832%_ + (gx#stx-e _%tl136074136100%_)))) + (let ((_%hd136076136106%_ (let () (declare (not safe)) - (##car _%e135801135829%_))) - (_%tl135803135834%_ + (##car _%e136075136103%_))) + (_%tl136077136108%_ (let () (declare (not safe)) - (##cdr _%e135801135829%_)))) + (##cdr _%e136075136103%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135803135834%_)) - ((lambda (_%L135837%_ - _%L135838%_) + _%tl136077136108%_)) + ((lambda (_%L136111%_ + _%L136112%_) (gxc#compile-e__1 - _%self135788%_ - _%L135837%_)) - _%hd135802135832%_ - _%hd135799135824%_) - (_%g135791135808%_ - _%g135792135811%_)))) - (_%g135791135808%_ _%g135792135811%_)))) - (_%g135791135808%_ _%g135792135811%_)))) - (_%g135791135808%_ _%g135792135811%_))))) - (_%g135790135853%_ _%stx135789%_)))) + _%self136062%_ + _%L136111%_)) + _%hd136076136106%_ + _%hd136073136098%_) + (_%g136065136082%_ + _%g136066136085%_)))) + (_%g136065136082%_ _%g136066136085%_)))) + (_%g136065136082%_ _%g136066136085%_)))) + (_%g136065136082%_ _%g136066136085%_))))) + (_%g136064136127%_ _%stx136063%_)))) (define gxc#apply-define-syntax% - (lambda (_%self135719%_ _%stx135720%_) - (let* ((_%g135722135739%_ - (lambda (_%g135723135736%_) + (lambda (_%self135993%_ _%stx135994%_) + (let* ((_%g135996136013%_ + (lambda (_%g135997136010%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135723135736%_)))) - (_%g135721135785%_ - (lambda (_%g135723135742%_) + _%g135997136010%_)))) + (_%g135995136059%_ + (lambda (_%g135997136016%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135723135742%_)) - (let ((_%e135726135744%_ + (gx#stx-pair? _%g135997136016%_)) + (let ((_%e136000136018%_ (let () (declare (not safe)) - (gx#stx-e _%g135723135742%_)))) - (let ((_%hd135727135747%_ + (gx#stx-e _%g135997136016%_)))) + (let ((_%hd136001136021%_ (let () (declare (not safe)) - (##car _%e135726135744%_))) - (_%tl135728135749%_ + (##car _%e136000136018%_))) + (_%tl136002136023%_ (let () (declare (not safe)) - (##cdr _%e135726135744%_)))) + (##cdr _%e136000136018%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135728135749%_)) - (let ((_%e135729135752%_ + (gx#stx-pair? _%tl136002136023%_)) + (let ((_%e136003136026%_ (let () (declare (not safe)) - (gx#stx-e _%tl135728135749%_)))) - (let ((_%hd135730135755%_ + (gx#stx-e _%tl136002136023%_)))) + (let ((_%hd136004136029%_ (let () (declare (not safe)) - (##car _%e135729135752%_))) - (_%tl135731135757%_ + (##car _%e136003136026%_))) + (_%tl136005136031%_ (let () (declare (not safe)) - (##cdr _%e135729135752%_)))) + (##cdr _%e136003136026%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135731135757%_)) - (let ((_%e135732135760%_ + (gx#stx-pair? _%tl136005136031%_)) + (let ((_%e136006136034%_ (let () (declare (not safe)) - (gx#stx-e _%tl135731135757%_)))) - (let ((_%hd135733135763%_ + (gx#stx-e _%tl136005136031%_)))) + (let ((_%hd136007136037%_ (let () (declare (not safe)) - (##car _%e135732135760%_))) - (_%tl135734135765%_ + (##car _%e136006136034%_))) + (_%tl136008136039%_ (let () (declare (not safe)) - (##cdr _%e135732135760%_)))) + (##cdr _%e136006136034%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135734135765%_)) - ((lambda (_%L135768%_ - _%L135769%_) - (let ((__tmp136366 + _%tl136008136039%_)) + ((lambda (_%L136042%_ + _%L136043%_) + (let ((__tmp136640 (lambda () (gxc#compile-e__1 - _%self135719%_ - _%L135768%_))) - (__tmp136364 - (let ((__tmp136365 + _%self135993%_ + _%L136042%_))) + (__tmp136638 + (let ((__tmp136639 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp136365 '1)))) + (##fx+ __tmp136639 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp136366 + __tmp136640 gx#current-expander-phi - __tmp136364))) - _%hd135733135763%_ - _%hd135730135755%_) - (_%g135722135739%_ - _%g135723135742%_)))) - (_%g135722135739%_ _%g135723135742%_)))) - (_%g135722135739%_ _%g135723135742%_)))) - (_%g135722135739%_ _%g135723135742%_))))) - (_%g135721135785%_ _%stx135720%_)))) + __tmp136638))) + _%hd136007136037%_ + _%hd136004136029%_) + (_%g135996136013%_ + _%g135997136016%_)))) + (_%g135996136013%_ _%g135997136016%_)))) + (_%g135996136013%_ _%g135997136016%_)))) + (_%g135996136013%_ _%g135997136016%_))))) + (_%g135995136059%_ _%stx135994%_)))) (define gxc#apply-body-lambda% - (lambda (_%self135651%_ _%stx135652%_) - (let* ((_%g135654135671%_ - (lambda (_%g135655135668%_) + (lambda (_%self135925%_ _%stx135926%_) + (let* ((_%g135928135945%_ + (lambda (_%g135929135942%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135655135668%_)))) - (_%g135653135716%_ - (lambda (_%g135655135674%_) + _%g135929135942%_)))) + (_%g135927135990%_ + (lambda (_%g135929135948%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135655135674%_)) - (let ((_%e135658135676%_ + (gx#stx-pair? _%g135929135948%_)) + (let ((_%e135932135950%_ (let () (declare (not safe)) - (gx#stx-e _%g135655135674%_)))) - (let ((_%hd135659135679%_ + (gx#stx-e _%g135929135948%_)))) + (let ((_%hd135933135953%_ (let () (declare (not safe)) - (##car _%e135658135676%_))) - (_%tl135660135681%_ + (##car _%e135932135950%_))) + (_%tl135934135955%_ (let () (declare (not safe)) - (##cdr _%e135658135676%_)))) + (##cdr _%e135932135950%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135660135681%_)) - (let ((_%e135661135684%_ + (gx#stx-pair? _%tl135934135955%_)) + (let ((_%e135935135958%_ (let () (declare (not safe)) - (gx#stx-e _%tl135660135681%_)))) - (let ((_%hd135662135687%_ + (gx#stx-e _%tl135934135955%_)))) + (let ((_%hd135936135961%_ (let () (declare (not safe)) - (##car _%e135661135684%_))) - (_%tl135663135689%_ + (##car _%e135935135958%_))) + (_%tl135937135963%_ (let () (declare (not safe)) - (##cdr _%e135661135684%_)))) + (##cdr _%e135935135958%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135663135689%_)) - (let ((_%e135664135692%_ + (gx#stx-pair? _%tl135937135963%_)) + (let ((_%e135938135966%_ (let () (declare (not safe)) - (gx#stx-e _%tl135663135689%_)))) - (let ((_%hd135665135695%_ + (gx#stx-e _%tl135937135963%_)))) + (let ((_%hd135939135969%_ (let () (declare (not safe)) - (##car _%e135664135692%_))) - (_%tl135666135697%_ + (##car _%e135938135966%_))) + (_%tl135940135971%_ (let () (declare (not safe)) - (##cdr _%e135664135692%_)))) + (##cdr _%e135938135966%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135666135697%_)) - ((lambda (_%L135700%_ - _%L135701%_) + _%tl135940135971%_)) + ((lambda (_%L135974%_ + _%L135975%_) (gxc#compile-e__1 - _%self135651%_ - _%L135700%_)) - _%hd135665135695%_ - _%hd135662135687%_) - (_%g135654135671%_ - _%g135655135674%_)))) - (_%g135654135671%_ _%g135655135674%_)))) - (_%g135654135671%_ _%g135655135674%_)))) - (_%g135654135671%_ _%g135655135674%_))))) - (_%g135653135716%_ _%stx135652%_)))) + _%self135925%_ + _%L135974%_)) + _%hd135939135969%_ + _%hd135936135961%_) + (_%g135928135945%_ + _%g135929135948%_)))) + (_%g135928135945%_ _%g135929135948%_)))) + (_%g135928135945%_ _%g135929135948%_)))) + (_%g135928135945%_ _%g135929135948%_))))) + (_%g135927135990%_ _%stx135926%_)))) (define gxc#apply-body-case-lambda% - (lambda (_%self135533%_ _%stx135534%_) - (let* ((_%g135536135564%_ - (lambda (_%g135537135561%_) + (lambda (_%self135807%_ _%stx135808%_) + (let* ((_%g135810135838%_ + (lambda (_%g135811135835%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135537135561%_)))) - (_%g135535135648%_ - (lambda (_%g135537135567%_) + _%g135811135835%_)))) + (_%g135809135922%_ + (lambda (_%g135811135841%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135537135567%_)) - (let ((_%e135540135569%_ + (gx#stx-pair? _%g135811135841%_)) + (let ((_%e135814135843%_ (let () (declare (not safe)) - (gx#stx-e _%g135537135567%_)))) - (let ((_%hd135541135572%_ + (gx#stx-e _%g135811135841%_)))) + (let ((_%hd135815135846%_ (let () (declare (not safe)) - (##car _%e135540135569%_))) - (_%tl135542135574%_ + (##car _%e135814135843%_))) + (_%tl135816135848%_ (let () (declare (not safe)) - (##cdr _%e135540135569%_)))) + (##cdr _%e135814135843%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl135542135574%_)) - (let ((_g136367_ + (gx#stx-pair/null? _%tl135816135848%_)) + (let ((_g136641_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl135542135574%_ + _%tl135816135848%_ '0)))) (begin - (let ((_g136368_ + (let ((_g136642_ (let () (declare (not safe)) - (if (##values? _g136367_) - (##vector-length _g136367_) + (if (##values? _g136641_) + (##vector-length _g136641_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g136368_ 2))) + (##fx= _g136642_ 2))) (error "Context expects 2 values" - _g136368_))) - (let ((_%target135543135577%_ + _g136642_))) + (let ((_%target135817135851%_ (let () (declare (not safe)) - (##vector-ref _g136367_ 0))) - (_%tl135545135579%_ + (##vector-ref _g136641_ 0))) + (_%tl135819135853%_ (let () (declare (not safe)) - (##vector-ref _g136367_ 1)))) + (##vector-ref _g136641_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl135545135579%_)) - (letrec ((_%loop135546135582%_ - (lambda (_%hd135544135585%_ - _%body135550135587%_ - _%hd135551135589%_) + (gx#stx-null? _%tl135819135853%_)) + (letrec ((_%loop135820135856%_ + (lambda (_%hd135818135859%_ + _%body135824135861%_ + _%hd135825135863%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd135544135585%_)) - (let ((_%e135547135592%_ + _%hd135818135859%_)) + (let ((_%e135821135866%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd135544135585%_)))) - (let ((_%lp-hd135548135595%_ + (gx#stx-e _%hd135818135859%_)))) + (let ((_%lp-hd135822135869%_ (let () (declare (not safe)) - (##car _%e135547135592%_))) - (_%lp-tl135549135597%_ + (##car _%e135821135866%_))) + (_%lp-tl135823135871%_ (let () (declare (not safe)) - (##cdr _%e135547135592%_)))) + (##cdr _%e135821135866%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd135548135595%_)) - (let ((_%e135554135600%_ + (gx#stx-pair? _%lp-hd135822135869%_)) + (let ((_%e135828135874%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd135548135595%_)))) - (let ((_%hd135555135603%_ + (gx#stx-e _%lp-hd135822135869%_)))) + (let ((_%hd135829135877%_ (let () (declare (not safe)) - (##car _%e135554135600%_))) - (_%tl135556135605%_ + (##car _%e135828135874%_))) + (_%tl135830135879%_ (let () (declare (not safe)) - (##cdr _%e135554135600%_)))) + (##cdr _%e135828135874%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135556135605%_)) - (let ((_%e135557135608%_ + (gx#stx-pair? _%tl135830135879%_)) + (let ((_%e135831135882%_ (let () (declare (not safe)) - (gx#stx-e _%tl135556135605%_)))) - (let ((_%hd135558135611%_ + (gx#stx-e _%tl135830135879%_)))) + (let ((_%hd135832135885%_ (let () (declare (not safe)) - (##car _%e135557135608%_))) - (_%tl135559135613%_ + (##car _%e135831135882%_))) + (_%tl135833135887%_ (let () (declare (not safe)) - (##cdr _%e135557135608%_)))) + (##cdr _%e135831135882%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl135559135613%_)) - (_%loop135546135582%_ - _%lp-tl135549135597%_ - (cons _%hd135558135611%_ - _%body135550135587%_) - (cons _%hd135555135603%_ - _%hd135551135589%_)) - (_%g135536135564%_ - _%g135537135567%_)))) - (_%g135536135564%_ _%g135537135567%_)))) - (_%g135536135564%_ _%g135537135567%_)))) - (let ((_%body135552135616%_ (reverse _%body135550135587%_)) - (_%hd135553135618%_ (reverse _%hd135551135589%_))) - ((lambda (_%L135621%_ _%L135622%_) + (gx#stx-null? _%tl135833135887%_)) + (_%loop135820135856%_ + _%lp-tl135823135871%_ + (cons _%hd135832135885%_ + _%body135824135861%_) + (cons _%hd135829135877%_ + _%hd135825135863%_)) + (_%g135810135838%_ + _%g135811135841%_)))) + (_%g135810135838%_ _%g135811135841%_)))) + (_%g135810135838%_ _%g135811135841%_)))) + (let ((_%body135826135890%_ (reverse _%body135824135861%_)) + (_%hd135827135892%_ (reverse _%hd135825135863%_))) + ((lambda (_%L135895%_ _%L135896%_) (for-each - (lambda (_%g135636135638%_) - (gxc#compile-e__1 _%self135533%_ _%g135636135638%_)) - (let ((__tmp136369 - (lambda (_%g135640135643%_ _%g135641135645%_) - (cons _%g135640135643%_ _%g135641135645%_)))) + (lambda (_%g135910135912%_) + (gxc#compile-e__1 _%self135807%_ _%g135910135912%_)) + (let ((__tmp136643 + (lambda (_%g135914135917%_ _%g135915135919%_) + (cons _%g135914135917%_ _%g135915135919%_)))) (declare (not safe)) - (__foldr1 __tmp136369 '() _%L135621%_)))) - _%body135552135616%_ - _%hd135553135618%_)))))) + (__foldr1 __tmp136643 '() _%L135895%_)))) + _%body135826135890%_ + _%hd135827135892%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop135546135582%_ - _%target135543135577%_ + (_%loop135820135856%_ + _%target135817135851%_ '() '())) - (_%g135536135564%_ - _%g135537135567%_))))) - (_%g135536135564%_ _%g135537135567%_)))) - (_%g135536135564%_ _%g135537135567%_))))) - (_%g135535135648%_ _%stx135534%_)))) + (_%g135810135838%_ + _%g135811135841%_))))) + (_%g135810135838%_ _%g135811135841%_)))) + (_%g135810135838%_ _%g135811135841%_))))) + (_%g135809135922%_ _%stx135808%_)))) (define gxc#apply-body-let-values% - (lambda (_%self135386%_ _%stx135387%_) - (let* ((_%g135389135424%_ - (lambda (_%g135390135421%_) + (lambda (_%self135660%_ _%stx135661%_) + (let* ((_%g135663135698%_ + (lambda (_%g135664135695%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135390135421%_)))) - (_%g135388135530%_ - (lambda (_%g135390135427%_) + _%g135664135695%_)))) + (_%g135662135804%_ + (lambda (_%g135664135701%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135390135427%_)) - (let ((_%e135394135429%_ + (gx#stx-pair? _%g135664135701%_)) + (let ((_%e135668135703%_ (let () (declare (not safe)) - (gx#stx-e _%g135390135427%_)))) - (let ((_%hd135395135432%_ + (gx#stx-e _%g135664135701%_)))) + (let ((_%hd135669135706%_ (let () (declare (not safe)) - (##car _%e135394135429%_))) - (_%tl135396135434%_ + (##car _%e135668135703%_))) + (_%tl135670135708%_ (let () (declare (not safe)) - (##cdr _%e135394135429%_)))) + (##cdr _%e135668135703%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135396135434%_)) - (let ((_%e135397135437%_ + (gx#stx-pair? _%tl135670135708%_)) + (let ((_%e135671135711%_ (let () (declare (not safe)) - (gx#stx-e _%tl135396135434%_)))) - (let ((_%hd135398135440%_ + (gx#stx-e _%tl135670135708%_)))) + (let ((_%hd135672135714%_ (let () (declare (not safe)) - (##car _%e135397135437%_))) - (_%tl135399135442%_ + (##car _%e135671135711%_))) + (_%tl135673135716%_ (let () (declare (not safe)) - (##cdr _%e135397135437%_)))) + (##cdr _%e135671135711%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd135398135440%_)) - (let ((_g136370_ + (gx#stx-pair/null? _%hd135672135714%_)) + (let ((_g136644_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd135398135440%_ + _%hd135672135714%_ '0)))) (begin - (let ((_g136371_ + (let ((_g136645_ (let () (declare (not safe)) - (if (##values? _g136370_) + (if (##values? _g136644_) (##vector-length - _g136370_) + _g136644_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g136371_ 2))) + (##fx= _g136645_ 2))) (error "Context expects 2 values" - _g136371_))) - (let ((_%target135400135445%_ + _g136645_))) + (let ((_%target135674135719%_ (let () (declare (not safe)) - (##vector-ref _g136370_ 0))) - (_%tl135402135447%_ + (##vector-ref _g136644_ 0))) + (_%tl135676135721%_ (let () (declare (not safe)) (##vector-ref - _g136370_ + _g136644_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135402135447%_)) - (letrec ((_%loop135403135450%_ - (lambda (_%hd135401135453%_ + _%tl135676135721%_)) + (letrec ((_%loop135677135724%_ + (lambda (_%hd135675135727%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr135407135455%_ - _%hd135408135457%_) + _%expr135681135729%_ + _%hd135682135731%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd135401135453%_)) - (let ((_%e135404135460%_ + (gx#stx-pair? _%hd135675135727%_)) + (let ((_%e135678135734%_ (let () (declare (not safe)) - (gx#stx-e _%hd135401135453%_)))) - (let ((_%lp-hd135405135463%_ + (gx#stx-e _%hd135675135727%_)))) + (let ((_%lp-hd135679135737%_ (let () (declare (not safe)) - (##car _%e135404135460%_))) - (_%lp-tl135406135465%_ + (##car _%e135678135734%_))) + (_%lp-tl135680135739%_ (let () (declare (not safe)) - (##cdr _%e135404135460%_)))) + (##cdr _%e135678135734%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd135405135463%_)) - (let ((_%e135414135468%_ + (gx#stx-pair? _%lp-hd135679135737%_)) + (let ((_%e135688135742%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd135405135463%_)))) - (let ((_%hd135415135471%_ + (gx#stx-e _%lp-hd135679135737%_)))) + (let ((_%hd135689135745%_ (let () (declare (not safe)) - (##car _%e135414135468%_))) - (_%tl135416135473%_ + (##car _%e135688135742%_))) + (_%tl135690135747%_ (let () (declare (not safe)) - (##cdr _%e135414135468%_)))) + (##cdr _%e135688135742%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135416135473%_)) - (let ((_%e135417135476%_ + (gx#stx-pair? _%tl135690135747%_)) + (let ((_%e135691135750%_ (let () (declare (not safe)) (gx#stx-e - _%tl135416135473%_)))) - (let ((_%hd135418135479%_ + _%tl135690135747%_)))) + (let ((_%hd135692135753%_ (let () (declare (not safe)) - (##car _%e135417135476%_))) - (_%tl135419135481%_ + (##car _%e135691135750%_))) + (_%tl135693135755%_ (let () (declare (not safe)) - (##cdr _%e135417135476%_)))) + (##cdr _%e135691135750%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135419135481%_)) - (_%loop135403135450%_ - _%lp-tl135406135465%_ - (cons _%hd135418135479%_ - _%expr135407135455%_) - (cons _%hd135415135471%_ - _%hd135408135457%_)) - (_%g135389135424%_ - _%g135390135427%_)))) - (_%g135389135424%_ - _%g135390135427%_)))) - (_%g135389135424%_ _%g135390135427%_)))) - (let ((_%expr135409135484%_ - (reverse _%expr135407135455%_)) - (_%hd135410135486%_ - (reverse _%hd135408135457%_))) + _%tl135693135755%_)) + (_%loop135677135724%_ + _%lp-tl135680135739%_ + (cons _%hd135692135753%_ + _%expr135681135729%_) + (cons _%hd135689135745%_ + _%hd135682135731%_)) + (_%g135663135698%_ + _%g135664135701%_)))) + (_%g135663135698%_ + _%g135664135701%_)))) + (_%g135663135698%_ _%g135664135701%_)))) + (let ((_%expr135683135758%_ + (reverse _%expr135681135729%_)) + (_%hd135684135760%_ + (reverse _%hd135682135731%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135399135442%_)) - (let ((_%e135411135489%_ + (gx#stx-pair? _%tl135673135716%_)) + (let ((_%e135685135763%_ (let () (declare (not safe)) - (gx#stx-e _%tl135399135442%_)))) - (let ((_%hd135412135492%_ + (gx#stx-e _%tl135673135716%_)))) + (let ((_%hd135686135766%_ (let () (declare (not safe)) - (##car _%e135411135489%_))) - (_%tl135413135494%_ + (##car _%e135685135763%_))) + (_%tl135687135768%_ (let () (declare (not safe)) - (##cdr _%e135411135489%_)))) + (##cdr _%e135685135763%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl135413135494%_)) - ((lambda (_%L135497%_ - _%L135498%_ - _%L135499%_) + (gx#stx-null? _%tl135687135768%_)) + ((lambda (_%L135771%_ + _%L135772%_ + _%L135773%_) (for-each - (lambda (_%g135518135520%_) + (lambda (_%g135792135794%_) (gxc#compile-e__1 - _%self135386%_ - _%g135518135520%_)) - (let ((__tmp136373 - (lambda (_%g135522135525%_ - _%g135523135527%_) - (cons _%g135522135525%_ - _%g135523135527%_))) - (__tmp136372 - (cons _%L135497%_ '()))) + _%self135660%_ + _%g135792135794%_)) + (let ((__tmp136647 + (lambda (_%g135796135799%_ + _%g135797135801%_) + (cons _%g135796135799%_ + _%g135797135801%_))) + (__tmp136646 + (cons _%L135771%_ '()))) (declare (not safe)) (__foldr1 - __tmp136373 - __tmp136372 - _%L135498%_)))) - _%hd135412135492%_ - _%expr135409135484%_ - _%hd135410135486%_) - (_%g135389135424%_ _%g135390135427%_)))) - (_%g135389135424%_ _%g135390135427%_))))))) + __tmp136647 + __tmp136646 + _%L135772%_)))) + _%hd135686135766%_ + _%expr135683135758%_ + _%hd135684135760%_) + (_%g135663135698%_ _%g135664135701%_)))) + (_%g135663135698%_ _%g135664135701%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop135403135450%_ - _%target135400135445%_ + (_%loop135677135724%_ + _%target135674135719%_ '() '())) - (_%g135389135424%_ - _%g135390135427%_))))) - (_%g135389135424%_ _%g135390135427%_)))) - (_%g135389135424%_ _%g135390135427%_)))) - (_%g135389135424%_ _%g135390135427%_))))) - (_%g135388135530%_ _%stx135387%_)))) + (_%g135663135698%_ + _%g135664135701%_))))) + (_%g135663135698%_ _%g135664135701%_)))) + (_%g135663135698%_ _%g135664135701%_)))) + (_%g135663135698%_ _%g135664135701%_))))) + (_%g135662135804%_ _%stx135661%_)))) (define gxc#apply-body-last-let-values% - (lambda (_%self135331%_ _%stx135332%_) - (let* ((_%g135334135348%_ - (lambda (_%g135335135345%_) + (lambda (_%self135605%_ _%stx135606%_) + (let* ((_%g135608135622%_ + (lambda (_%g135609135619%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135335135345%_)))) - (_%g135333135383%_ - (lambda (_%g135335135351%_) + _%g135609135619%_)))) + (_%g135607135657%_ + (lambda (_%g135609135625%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135335135351%_)) - (let ((_%e135338135353%_ + (gx#stx-pair? _%g135609135625%_)) + (let ((_%e135612135627%_ (let () (declare (not safe)) - (gx#stx-e _%g135335135351%_)))) - (let ((_%hd135339135356%_ + (gx#stx-e _%g135609135625%_)))) + (let ((_%hd135613135630%_ (let () (declare (not safe)) - (##car _%e135338135353%_))) - (_%tl135340135358%_ + (##car _%e135612135627%_))) + (_%tl135614135632%_ (let () (declare (not safe)) - (##cdr _%e135338135353%_)))) + (##cdr _%e135612135627%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135340135358%_)) - (let ((_%e135341135361%_ + (gx#stx-pair? _%tl135614135632%_)) + (let ((_%e135615135635%_ (let () (declare (not safe)) - (gx#stx-e _%tl135340135358%_)))) - (let ((_%hd135342135364%_ + (gx#stx-e _%tl135614135632%_)))) + (let ((_%hd135616135638%_ (let () (declare (not safe)) - (##car _%e135341135361%_))) - (_%tl135343135366%_ + (##car _%e135615135635%_))) + (_%tl135617135640%_ (let () (declare (not safe)) - (##cdr _%e135341135361%_)))) - ((lambda (_%L135369%_ _%L135370%_) + (##cdr _%e135615135635%_)))) + ((lambda (_%L135643%_ _%L135644%_) (gxc#compile-e__1 - _%self135331%_ - (last _%L135369%_))) - _%tl135343135366%_ - _%hd135342135364%_))) - (_%g135334135348%_ _%g135335135351%_)))) - (_%g135334135348%_ _%g135335135351%_))))) - (_%g135333135383%_ _%stx135332%_)))) + _%self135605%_ + (last _%L135643%_))) + _%tl135617135640%_ + _%hd135616135638%_))) + (_%g135608135622%_ _%g135609135625%_)))) + (_%g135608135622%_ _%g135609135625%_))))) + (_%g135607135657%_ _%stx135606%_)))) (define gxc#apply-body-setq% - (lambda (_%self135263%_ _%stx135264%_) - (let* ((_%g135266135283%_ - (lambda (_%g135267135280%_) + (lambda (_%self135537%_ _%stx135538%_) + (let* ((_%g135540135557%_ + (lambda (_%g135541135554%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135267135280%_)))) - (_%g135265135328%_ - (lambda (_%g135267135286%_) + _%g135541135554%_)))) + (_%g135539135602%_ + (lambda (_%g135541135560%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135267135286%_)) - (let ((_%e135270135288%_ + (gx#stx-pair? _%g135541135560%_)) + (let ((_%e135544135562%_ (let () (declare (not safe)) - (gx#stx-e _%g135267135286%_)))) - (let ((_%hd135271135291%_ + (gx#stx-e _%g135541135560%_)))) + (let ((_%hd135545135565%_ (let () (declare (not safe)) - (##car _%e135270135288%_))) - (_%tl135272135293%_ + (##car _%e135544135562%_))) + (_%tl135546135567%_ (let () (declare (not safe)) - (##cdr _%e135270135288%_)))) + (##cdr _%e135544135562%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135272135293%_)) - (let ((_%e135273135296%_ + (gx#stx-pair? _%tl135546135567%_)) + (let ((_%e135547135570%_ (let () (declare (not safe)) - (gx#stx-e _%tl135272135293%_)))) - (let ((_%hd135274135299%_ + (gx#stx-e _%tl135546135567%_)))) + (let ((_%hd135548135573%_ (let () (declare (not safe)) - (##car _%e135273135296%_))) - (_%tl135275135301%_ + (##car _%e135547135570%_))) + (_%tl135549135575%_ (let () (declare (not safe)) - (##cdr _%e135273135296%_)))) + (##cdr _%e135547135570%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135275135301%_)) - (let ((_%e135276135304%_ + (gx#stx-pair? _%tl135549135575%_)) + (let ((_%e135550135578%_ (let () (declare (not safe)) - (gx#stx-e _%tl135275135301%_)))) - (let ((_%hd135277135307%_ + (gx#stx-e _%tl135549135575%_)))) + (let ((_%hd135551135581%_ (let () (declare (not safe)) - (##car _%e135276135304%_))) - (_%tl135278135309%_ + (##car _%e135550135578%_))) + (_%tl135552135583%_ (let () (declare (not safe)) - (##cdr _%e135276135304%_)))) + (##cdr _%e135550135578%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135278135309%_)) - ((lambda (_%L135312%_ - _%L135313%_) + _%tl135552135583%_)) + ((lambda (_%L135586%_ + _%L135587%_) (gxc#compile-e__1 - _%self135263%_ - _%L135312%_)) - _%hd135277135307%_ - _%hd135274135299%_) - (_%g135266135283%_ - _%g135267135286%_)))) - (_%g135266135283%_ _%g135267135286%_)))) - (_%g135266135283%_ _%g135267135286%_)))) - (_%g135266135283%_ _%g135267135286%_))))) - (_%g135265135328%_ _%stx135264%_)))) + _%self135537%_ + _%L135586%_)) + _%hd135551135581%_ + _%hd135548135573%_) + (_%g135540135557%_ + _%g135541135560%_)))) + (_%g135540135557%_ _%g135541135560%_)))) + (_%g135540135557%_ _%g135541135560%_)))) + (_%g135540135557%_ _%g135541135560%_))))) + (_%g135539135602%_ _%stx135538%_)))) (define gxc#apply-operands - (lambda (_%self135176%_ _%stx135177%_) - (let* ((_%g135179135198%_ - (lambda (_%g135180135195%_) + (lambda (_%self135450%_ _%stx135451%_) + (let* ((_%g135453135472%_ + (lambda (_%g135454135469%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135180135195%_)))) - (_%g135178135260%_ - (lambda (_%g135180135201%_) + _%g135454135469%_)))) + (_%g135452135534%_ + (lambda (_%g135454135475%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135180135201%_)) - (let ((_%e135182135203%_ + (gx#stx-pair? _%g135454135475%_)) + (let ((_%e135456135477%_ (let () (declare (not safe)) - (gx#stx-e _%g135180135201%_)))) - (let ((_%hd135183135206%_ + (gx#stx-e _%g135454135475%_)))) + (let ((_%hd135457135480%_ (let () (declare (not safe)) - (##car _%e135182135203%_))) - (_%tl135184135208%_ + (##car _%e135456135477%_))) + (_%tl135458135482%_ (let () (declare (not safe)) - (##cdr _%e135182135203%_)))) + (##cdr _%e135456135477%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl135184135208%_)) - (let ((_g136374_ + (gx#stx-pair/null? _%tl135458135482%_)) + (let ((_g136648_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl135184135208%_ + _%tl135458135482%_ '0)))) (begin - (let ((_g136375_ + (let ((_g136649_ (let () (declare (not safe)) - (if (##values? _g136374_) - (##vector-length _g136374_) + (if (##values? _g136648_) + (##vector-length _g136648_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g136375_ 2))) + (##fx= _g136649_ 2))) (error "Context expects 2 values" - _g136375_))) - (let ((_%target135185135211%_ + _g136649_))) + (let ((_%target135459135485%_ (let () (declare (not safe)) - (##vector-ref _g136374_ 0))) - (_%tl135187135213%_ + (##vector-ref _g136648_ 0))) + (_%tl135461135487%_ (let () (declare (not safe)) - (##vector-ref _g136374_ 1)))) + (##vector-ref _g136648_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl135187135213%_)) - (letrec ((_%loop135188135216%_ - (lambda (_%hd135186135219%_ - _%rands135192135221%_) + (gx#stx-null? _%tl135461135487%_)) + (letrec ((_%loop135462135490%_ + (lambda (_%hd135460135493%_ + _%rands135466135495%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd135186135219%_)) - (let ((_%e135189135224%_ + _%hd135460135493%_)) + (let ((_%e135463135498%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd135186135219%_)))) - (let ((_%lp-hd135190135227%_ + (gx#stx-e _%hd135460135493%_)))) + (let ((_%lp-hd135464135501%_ (let () (declare (not safe)) - (##car _%e135189135224%_))) - (_%lp-tl135191135229%_ + (##car _%e135463135498%_))) + (_%lp-tl135465135503%_ (let () (declare (not safe)) - (##cdr _%e135189135224%_)))) - (_%loop135188135216%_ - _%lp-tl135191135229%_ - (cons _%lp-hd135190135227%_ _%rands135192135221%_)))) - (let ((_%rands135193135232%_ (reverse _%rands135192135221%_))) - ((lambda (_%L135235%_) + (##cdr _%e135463135498%_)))) + (_%loop135462135490%_ + _%lp-tl135465135503%_ + (cons _%lp-hd135464135501%_ _%rands135466135495%_)))) + (let ((_%rands135467135506%_ (reverse _%rands135466135495%_))) + ((lambda (_%L135509%_) (for-each - (lambda (_%g135248135250%_) - (gxc#compile-e__1 _%self135176%_ _%g135248135250%_)) - (let ((__tmp136376 - (lambda (_%g135252135255%_ _%g135253135257%_) - (cons _%g135252135255%_ _%g135253135257%_)))) + (lambda (_%g135522135524%_) + (gxc#compile-e__1 _%self135450%_ _%g135522135524%_)) + (let ((__tmp136650 + (lambda (_%g135526135529%_ _%g135527135531%_) + (cons _%g135526135529%_ _%g135527135531%_)))) (declare (not safe)) - (__foldr1 __tmp136376 '() _%L135235%_)))) - _%rands135193135232%_)))))) + (__foldr1 __tmp136650 '() _%L135509%_)))) + _%rands135467135506%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop135188135216%_ - _%target135185135211%_ + (_%loop135462135490%_ + _%target135459135485%_ '())) - (_%g135179135198%_ - _%g135180135201%_))))) - (_%g135179135198%_ _%g135180135201%_)))) - (_%g135179135198%_ _%g135180135201%_))))) - (_%g135178135260%_ _%stx135177%_)))) + (_%g135453135472%_ + _%g135454135475%_))))) + (_%g135453135472%_ _%g135454135475%_)))) + (_%g135453135472%_ _%g135454135475%_))))) + (_%g135452135534%_ _%stx135451%_)))) (define gxc#xform-wrap-source - (lambda (_%stx135173%_ _%src-stx135174%_) - (let ((__tmp136377 + (lambda (_%stx135447%_ _%src-stx135448%_) + (let ((__tmp136651 (let () (declare (not safe)) - (gx#stx-source _%src-stx135174%_)))) + (gx#stx-source _%src-stx135448%_)))) (declare (not safe)) - (gx#stx-wrap-source _%stx135173%_ __tmp136377)))) + (gx#stx-wrap-source _%stx135447%_ __tmp136651)))) (define gxc#xform-wrap-apply - (lambda (_%stx135169%_ _%src-stx135170%_ _%ctx135171%_) + (lambda (_%stx135443%_ _%src-stx135444%_ _%ctx135445%_) (gxc#compile-e__1 - _%ctx135171%_ - (gxc#xform-wrap-source _%stx135169%_ _%src-stx135170%_)))) + _%ctx135445%_ + (gxc#xform-wrap-source _%stx135443%_ _%src-stx135444%_)))) (define gxc#xform-begin% - (lambda (_%self135124%_ _%stx135125%_) - (let* ((_%g135127135137%_ - (lambda (_%g135128135134%_) + (lambda (_%self135398%_ _%stx135399%_) + (let* ((_%g135401135411%_ + (lambda (_%g135402135408%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135128135134%_)))) - (_%g135126135166%_ - (lambda (_%g135128135140%_) + _%g135402135408%_)))) + (_%g135400135440%_ + (lambda (_%g135402135414%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135128135140%_)) - (let ((_%e135130135142%_ + (gx#stx-pair? _%g135402135414%_)) + (let ((_%e135404135416%_ (let () (declare (not safe)) - (gx#stx-e _%g135128135140%_)))) - (let ((_%hd135131135145%_ + (gx#stx-e _%g135402135414%_)))) + (let ((_%hd135405135419%_ (let () (declare (not safe)) - (##car _%e135130135142%_))) - (_%tl135132135147%_ + (##car _%e135404135416%_))) + (_%tl135406135421%_ (let () (declare (not safe)) - (##cdr _%e135130135142%_)))) - ((lambda (_%L135150%_) - (let ((_%forms135164%_ - (map (lambda (_%g135159135161%_) + (##cdr _%e135404135416%_)))) + ((lambda (_%L135424%_) + (let ((_%forms135438%_ + (map (lambda (_%g135433135435%_) (gxc#compile-e__1 - _%self135124%_ - _%g135159135161%_)) - _%L135150%_))) + _%self135398%_ + _%g135433135435%_)) + _%L135424%_))) (gxc#xform-wrap-source - (cons '%#begin _%forms135164%_) - _%stx135125%_))) - _%tl135132135147%_))) - (_%g135127135137%_ _%g135128135140%_))))) - (_%g135126135166%_ _%stx135125%_)))) + (cons '%#begin _%forms135438%_) + _%stx135399%_))) + _%tl135406135421%_))) + (_%g135401135411%_ _%g135402135414%_))))) + (_%g135400135440%_ _%stx135399%_)))) (define gxc#xform-begin-syntax% - (lambda (_%self135078%_ _%stx135079%_) - (let* ((_%g135081135091%_ - (lambda (_%g135082135088%_) + (lambda (_%self135352%_ _%stx135353%_) + (let* ((_%g135355135365%_ + (lambda (_%g135356135362%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135082135088%_)))) - (_%g135080135121%_ - (lambda (_%g135082135094%_) + _%g135356135362%_)))) + (_%g135354135395%_ + (lambda (_%g135356135368%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135082135094%_)) - (let ((_%e135084135096%_ + (gx#stx-pair? _%g135356135368%_)) + (let ((_%e135358135370%_ (let () (declare (not safe)) - (gx#stx-e _%g135082135094%_)))) - (let ((_%hd135085135099%_ + (gx#stx-e _%g135356135368%_)))) + (let ((_%hd135359135373%_ (let () (declare (not safe)) - (##car _%e135084135096%_))) - (_%tl135086135101%_ + (##car _%e135358135370%_))) + (_%tl135360135375%_ (let () (declare (not safe)) - (##cdr _%e135084135096%_)))) - ((lambda (_%L135104%_) - (let ((__tmp136380 + (##cdr _%e135358135370%_)))) + ((lambda (_%L135378%_) + (let ((__tmp136654 (lambda () - (let ((_%forms135119%_ - (map (lambda (_%g135114135116%_) + (let ((_%forms135393%_ + (map (lambda (_%g135388135390%_) (gxc#compile-e__1 - _%self135078%_ - _%g135114135116%_)) - _%L135104%_))) + _%self135352%_ + _%g135388135390%_)) + _%L135378%_))) (gxc#xform-wrap-source - (cons '%#begin-syntax _%forms135119%_) - _%stx135079%_)))) - (__tmp136378 - (let ((__tmp136379 + (cons '%#begin-syntax _%forms135393%_) + _%stx135353%_)))) + (__tmp136652 + (let ((__tmp136653 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp136379 '1)))) + (##fx+ __tmp136653 '1)))) (declare (not safe)) (__call-with-parameters - __tmp136380 + __tmp136654 gx#current-expander-phi - __tmp136378))) - _%tl135086135101%_))) - (_%g135081135091%_ _%g135082135094%_))))) - (_%g135080135121%_ _%stx135079%_)))) + __tmp136652))) + _%tl135360135375%_))) + (_%g135355135365%_ _%g135356135368%_))))) + (_%g135354135395%_ _%stx135353%_)))) (define gxc#xform-module% - (lambda (_%self135015%_ _%stx135016%_) - (let* ((_%g135018135032%_ - (lambda (_%g135019135029%_) + (lambda (_%self135289%_ _%stx135290%_) + (let* ((_%g135292135306%_ + (lambda (_%g135293135303%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135019135029%_)))) - (_%g135017135075%_ - (lambda (_%g135019135035%_) + _%g135293135303%_)))) + (_%g135291135349%_ + (lambda (_%g135293135309%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135019135035%_)) - (let ((_%e135022135037%_ + (gx#stx-pair? _%g135293135309%_)) + (let ((_%e135296135311%_ (let () (declare (not safe)) - (gx#stx-e _%g135019135035%_)))) - (let ((_%hd135023135040%_ + (gx#stx-e _%g135293135309%_)))) + (let ((_%hd135297135314%_ (let () (declare (not safe)) - (##car _%e135022135037%_))) - (_%tl135024135042%_ + (##car _%e135296135311%_))) + (_%tl135298135316%_ (let () (declare (not safe)) - (##cdr _%e135022135037%_)))) + (##cdr _%e135296135311%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135024135042%_)) - (let ((_%e135025135045%_ + (gx#stx-pair? _%tl135298135316%_)) + (let ((_%e135299135319%_ (let () (declare (not safe)) - (gx#stx-e _%tl135024135042%_)))) - (let ((_%hd135026135048%_ + (gx#stx-e _%tl135298135316%_)))) + (let ((_%hd135300135322%_ (let () (declare (not safe)) - (##car _%e135025135045%_))) - (_%tl135027135050%_ + (##car _%e135299135319%_))) + (_%tl135301135324%_ (let () (declare (not safe)) - (##cdr _%e135025135045%_)))) - ((lambda (_%L135053%_ _%L135054%_) - (let* ((_%ctx135067%_ + (##cdr _%e135299135319%_)))) + ((lambda (_%L135327%_ _%L135328%_) + (let* ((_%ctx135341%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L135054%_))) - (_%code135069%_ + _%L135328%_))) + (_%code135343%_ (##structure-ref - _%ctx135067%_ + _%ctx135341%_ '11 gx#module-context::t '#f)) - (_%code135072%_ - (let ((__tmp136381 + (_%code135346%_ + (let ((__tmp136655 (lambda () (gxc#compile-e__1 - _%self135015%_ - _%code135069%_)))) + _%self135289%_ + _%code135343%_)))) (declare (not safe)) (__call-with-parameters - __tmp136381 + __tmp136655 gx#current-expander-context - _%ctx135067%_)))) + _%ctx135341%_)))) (##structure-set! - _%ctx135067%_ - _%code135072%_ + _%ctx135341%_ + _%code135346%_ '11 gx#module-context::t '#f) (gxc#xform-wrap-source (cons '%#module - (cons _%L135054%_ - (cons _%code135072%_ '()))) - _%stx135016%_))) - _%tl135027135050%_ - _%hd135026135048%_))) - (_%g135018135032%_ _%g135019135035%_)))) - (_%g135018135032%_ _%g135019135035%_))))) - (_%g135017135075%_ _%stx135016%_)))) + (cons _%L135328%_ + (cons _%code135346%_ '()))) + _%stx135290%_))) + _%tl135301135324%_ + _%hd135300135322%_))) + (_%g135292135306%_ _%g135293135309%_)))) + (_%g135292135306%_ _%g135293135309%_))))) + (_%g135291135349%_ _%stx135290%_)))) (define gxc#xform-define-values% - (lambda (_%self134945%_ _%stx134946%_) - (let* ((_%g134948134965%_ - (lambda (_%g134949134962%_) + (lambda (_%self135219%_ _%stx135220%_) + (let* ((_%g135222135239%_ + (lambda (_%g135223135236%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134949134962%_)))) - (_%g134947135012%_ - (lambda (_%g134949134968%_) + _%g135223135236%_)))) + (_%g135221135286%_ + (lambda (_%g135223135242%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134949134968%_)) - (let ((_%e134952134970%_ + (gx#stx-pair? _%g135223135242%_)) + (let ((_%e135226135244%_ (let () (declare (not safe)) - (gx#stx-e _%g134949134968%_)))) - (let ((_%hd134953134973%_ + (gx#stx-e _%g135223135242%_)))) + (let ((_%hd135227135247%_ (let () (declare (not safe)) - (##car _%e134952134970%_))) - (_%tl134954134975%_ + (##car _%e135226135244%_))) + (_%tl135228135249%_ (let () (declare (not safe)) - (##cdr _%e134952134970%_)))) + (##cdr _%e135226135244%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134954134975%_)) - (let ((_%e134955134978%_ + (gx#stx-pair? _%tl135228135249%_)) + (let ((_%e135229135252%_ (let () (declare (not safe)) - (gx#stx-e _%tl134954134975%_)))) - (let ((_%hd134956134981%_ + (gx#stx-e _%tl135228135249%_)))) + (let ((_%hd135230135255%_ (let () (declare (not safe)) - (##car _%e134955134978%_))) - (_%tl134957134983%_ + (##car _%e135229135252%_))) + (_%tl135231135257%_ (let () (declare (not safe)) - (##cdr _%e134955134978%_)))) + (##cdr _%e135229135252%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134957134983%_)) - (let ((_%e134958134986%_ + (gx#stx-pair? _%tl135231135257%_)) + (let ((_%e135232135260%_ (let () (declare (not safe)) - (gx#stx-e _%tl134957134983%_)))) - (let ((_%hd134959134989%_ + (gx#stx-e _%tl135231135257%_)))) + (let ((_%hd135233135263%_ (let () (declare (not safe)) - (##car _%e134958134986%_))) - (_%tl134960134991%_ + (##car _%e135232135260%_))) + (_%tl135234135265%_ (let () (declare (not safe)) - (##cdr _%e134958134986%_)))) + (##cdr _%e135232135260%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134960134991%_)) - ((lambda (_%L134994%_ - _%L134995%_) - (let ((_%expr135010%_ + _%tl135234135265%_)) + ((lambda (_%L135268%_ + _%L135269%_) + (let ((_%expr135284%_ (gxc#compile-e__1 - _%self134945%_ - _%L134994%_))) + _%self135219%_ + _%L135268%_))) (gxc#xform-wrap-source (cons '%#define-values - (cons _%L134995%_ - (cons _%expr135010%_ + (cons _%L135269%_ + (cons _%expr135284%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx134946%_))) - _%hd134959134989%_ - _%hd134956134981%_) - (_%g134948134965%_ - _%g134949134968%_)))) - (_%g134948134965%_ _%g134949134968%_)))) - (_%g134948134965%_ _%g134949134968%_)))) - (_%g134948134965%_ _%g134949134968%_))))) - (_%g134947135012%_ _%stx134946%_)))) + _%stx135220%_))) + _%hd135233135263%_ + _%hd135230135255%_) + (_%g135222135239%_ + _%g135223135242%_)))) + (_%g135222135239%_ _%g135223135242%_)))) + (_%g135222135239%_ _%g135223135242%_)))) + (_%g135222135239%_ _%g135223135242%_))))) + (_%g135221135286%_ _%stx135220%_)))) (define gxc#xform-define-syntax% - (lambda (_%self134874%_ _%stx134875%_) - (let* ((_%g134877134894%_ - (lambda (_%g134878134891%_) + (lambda (_%self135148%_ _%stx135149%_) + (let* ((_%g135151135168%_ + (lambda (_%g135152135165%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134878134891%_)))) - (_%g134876134942%_ - (lambda (_%g134878134897%_) + _%g135152135165%_)))) + (_%g135150135216%_ + (lambda (_%g135152135171%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134878134897%_)) - (let ((_%e134881134899%_ + (gx#stx-pair? _%g135152135171%_)) + (let ((_%e135155135173%_ (let () (declare (not safe)) - (gx#stx-e _%g134878134897%_)))) - (let ((_%hd134882134902%_ + (gx#stx-e _%g135152135171%_)))) + (let ((_%hd135156135176%_ (let () (declare (not safe)) - (##car _%e134881134899%_))) - (_%tl134883134904%_ + (##car _%e135155135173%_))) + (_%tl135157135178%_ (let () (declare (not safe)) - (##cdr _%e134881134899%_)))) + (##cdr _%e135155135173%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134883134904%_)) - (let ((_%e134884134907%_ + (gx#stx-pair? _%tl135157135178%_)) + (let ((_%e135158135181%_ (let () (declare (not safe)) - (gx#stx-e _%tl134883134904%_)))) - (let ((_%hd134885134910%_ + (gx#stx-e _%tl135157135178%_)))) + (let ((_%hd135159135184%_ (let () (declare (not safe)) - (##car _%e134884134907%_))) - (_%tl134886134912%_ + (##car _%e135158135181%_))) + (_%tl135160135186%_ (let () (declare (not safe)) - (##cdr _%e134884134907%_)))) + (##cdr _%e135158135181%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134886134912%_)) - (let ((_%e134887134915%_ + (gx#stx-pair? _%tl135160135186%_)) + (let ((_%e135161135189%_ (let () (declare (not safe)) - (gx#stx-e _%tl134886134912%_)))) - (let ((_%hd134888134918%_ + (gx#stx-e _%tl135160135186%_)))) + (let ((_%hd135162135192%_ (let () (declare (not safe)) - (##car _%e134887134915%_))) - (_%tl134889134920%_ + (##car _%e135161135189%_))) + (_%tl135163135194%_ (let () (declare (not safe)) - (##cdr _%e134887134915%_)))) + (##cdr _%e135161135189%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134889134920%_)) - ((lambda (_%L134923%_ - _%L134924%_) - (let ((__tmp136384 + _%tl135163135194%_)) + ((lambda (_%L135197%_ + _%L135198%_) + (let ((__tmp136658 (lambda () - (let ((_%expr134940%_ + (let ((_%expr135214%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gxc#compile-e__1 _%self134874%_ _%L134923%_))) + (gxc#compile-e__1 _%self135148%_ _%L135197%_))) (gxc#xform-wrap-source (cons '%#define-syntax - (cons _%L134924%_ (cons _%expr134940%_ '()))) - _%stx134875%_)))) - (__tmp136382 - (let ((__tmp136383 + (cons _%L135198%_ (cons _%expr135214%_ '()))) + _%stx135149%_)))) + (__tmp136656 + (let ((__tmp136657 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp136383 '1)))) + (##fx+ __tmp136657 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp136384 + __tmp136658 gx#current-expander-phi - __tmp136382))) - _%hd134888134918%_ - _%hd134885134910%_) - (_%g134877134894%_ - _%g134878134897%_)))) - (_%g134877134894%_ _%g134878134897%_)))) - (_%g134877134894%_ _%g134878134897%_)))) - (_%g134877134894%_ _%g134878134897%_))))) - (_%g134876134942%_ _%stx134875%_)))) + __tmp136656))) + _%hd135162135192%_ + _%hd135159135184%_) + (_%g135151135168%_ + _%g135152135171%_)))) + (_%g135151135168%_ _%g135152135171%_)))) + (_%g135151135168%_ _%g135152135171%_)))) + (_%g135151135168%_ _%g135152135171%_))))) + (_%g135150135216%_ _%stx135149%_)))) (define gxc#xform-begin-annotation% - (lambda (_%self134804%_ _%stx134805%_) - (let* ((_%g134807134824%_ - (lambda (_%g134808134821%_) + (lambda (_%self135078%_ _%stx135079%_) + (let* ((_%g135081135098%_ + (lambda (_%g135082135095%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134808134821%_)))) - (_%g134806134871%_ - (lambda (_%g134808134827%_) + _%g135082135095%_)))) + (_%g135080135145%_ + (lambda (_%g135082135101%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134808134827%_)) - (let ((_%e134811134829%_ + (gx#stx-pair? _%g135082135101%_)) + (let ((_%e135085135103%_ (let () (declare (not safe)) - (gx#stx-e _%g134808134827%_)))) - (let ((_%hd134812134832%_ + (gx#stx-e _%g135082135101%_)))) + (let ((_%hd135086135106%_ (let () (declare (not safe)) - (##car _%e134811134829%_))) - (_%tl134813134834%_ + (##car _%e135085135103%_))) + (_%tl135087135108%_ (let () (declare (not safe)) - (##cdr _%e134811134829%_)))) + (##cdr _%e135085135103%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134813134834%_)) - (let ((_%e134814134837%_ + (gx#stx-pair? _%tl135087135108%_)) + (let ((_%e135088135111%_ (let () (declare (not safe)) - (gx#stx-e _%tl134813134834%_)))) - (let ((_%hd134815134840%_ + (gx#stx-e _%tl135087135108%_)))) + (let ((_%hd135089135114%_ (let () (declare (not safe)) - (##car _%e134814134837%_))) - (_%tl134816134842%_ + (##car _%e135088135111%_))) + (_%tl135090135116%_ (let () (declare (not safe)) - (##cdr _%e134814134837%_)))) + (##cdr _%e135088135111%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134816134842%_)) - (let ((_%e134817134845%_ + (gx#stx-pair? _%tl135090135116%_)) + (let ((_%e135091135119%_ (let () (declare (not safe)) - (gx#stx-e _%tl134816134842%_)))) - (let ((_%hd134818134848%_ + (gx#stx-e _%tl135090135116%_)))) + (let ((_%hd135092135122%_ (let () (declare (not safe)) - (##car _%e134817134845%_))) - (_%tl134819134850%_ + (##car _%e135091135119%_))) + (_%tl135093135124%_ (let () (declare (not safe)) - (##cdr _%e134817134845%_)))) + (##cdr _%e135091135119%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134819134850%_)) - ((lambda (_%L134853%_ - _%L134854%_) - (let ((_%expr134869%_ + _%tl135093135124%_)) + ((lambda (_%L135127%_ + _%L135128%_) + (let ((_%expr135143%_ (gxc#compile-e__1 - _%self134804%_ - _%L134853%_))) + _%self135078%_ + _%L135127%_))) (gxc#xform-wrap-source (cons '%#begin-annotation - (cons _%L134854%_ - (cons _%expr134869%_ + (cons _%L135128%_ + (cons _%expr135143%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx134805%_))) - _%hd134818134848%_ - _%hd134815134840%_) - (_%g134807134824%_ - _%g134808134827%_)))) - (_%g134807134824%_ _%g134808134827%_)))) - (_%g134807134824%_ _%g134808134827%_)))) - (_%g134807134824%_ _%g134808134827%_))))) - (_%g134806134871%_ _%stx134805%_)))) + _%stx135079%_))) + _%hd135092135122%_ + _%hd135089135114%_) + (_%g135081135098%_ + _%g135082135101%_)))) + (_%g135081135098%_ _%g135082135101%_)))) + (_%g135081135098%_ _%g135082135101%_)))) + (_%g135081135098%_ _%g135082135101%_))))) + (_%g135080135145%_ _%stx135079%_)))) (define gxc#xform-lambda% - (lambda (_%self134742%_ _%stx134743%_) - (let* ((_%g134745134759%_ - (lambda (_%g134746134756%_) + (lambda (_%self135016%_ _%stx135017%_) + (let* ((_%g135019135033%_ + (lambda (_%g135020135030%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134746134756%_)))) - (_%g134744134801%_ - (lambda (_%g134746134762%_) + _%g135020135030%_)))) + (_%g135018135075%_ + (lambda (_%g135020135036%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134746134762%_)) - (let ((_%e134749134764%_ + (gx#stx-pair? _%g135020135036%_)) + (let ((_%e135023135038%_ (let () (declare (not safe)) - (gx#stx-e _%g134746134762%_)))) - (let ((_%hd134750134767%_ + (gx#stx-e _%g135020135036%_)))) + (let ((_%hd135024135041%_ (let () (declare (not safe)) - (##car _%e134749134764%_))) - (_%tl134751134769%_ + (##car _%e135023135038%_))) + (_%tl135025135043%_ (let () (declare (not safe)) - (##cdr _%e134749134764%_)))) + (##cdr _%e135023135038%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134751134769%_)) - (let ((_%e134752134772%_ + (gx#stx-pair? _%tl135025135043%_)) + (let ((_%e135026135046%_ (let () (declare (not safe)) - (gx#stx-e _%tl134751134769%_)))) - (let ((_%hd134753134775%_ + (gx#stx-e _%tl135025135043%_)))) + (let ((_%hd135027135049%_ (let () (declare (not safe)) - (##car _%e134752134772%_))) - (_%tl134754134777%_ + (##car _%e135026135046%_))) + (_%tl135028135051%_ (let () (declare (not safe)) - (##cdr _%e134752134772%_)))) - ((lambda (_%L134780%_ _%L134781%_) - (let ((__tmp136386 + (##cdr _%e135026135046%_)))) + ((lambda (_%L135054%_ _%L135055%_) + (let ((__tmp136660 (lambda () - (let ((_%body134799%_ - (map (lambda (_%g134794134796%_) + (let ((_%body135073%_ + (map (lambda (_%g135068135070%_) (gxc#compile-e__1 - _%self134742%_ - _%g134794134796%_)) - _%L134780%_))) + _%self135016%_ + _%g135068135070%_)) + _%L135054%_))) (gxc#xform-wrap-source (cons '%#lambda - (cons _%L134781%_ - _%body134799%_)) - _%stx134743%_)))) - (__tmp136385 + (cons _%L135055%_ + _%body135073%_)) + _%stx135017%_)))) + (__tmp136659 (gxc#xform-let-locals - _%L134781%_))) + _%L135055%_))) (declare (not safe)) (__call-with-parameters - __tmp136386 + __tmp136660 gxc#current-compile-local-env - __tmp136385))) - _%tl134754134777%_ - _%hd134753134775%_))) - (_%g134745134759%_ _%g134746134762%_)))) - (_%g134745134759%_ _%g134746134762%_))))) - (_%g134744134801%_ _%stx134743%_)))) + __tmp136659))) + _%tl135028135051%_ + _%hd135027135049%_))) + (_%g135019135033%_ _%g135020135036%_)))) + (_%g135019135033%_ _%g135020135036%_))))) + (_%g135018135075%_ _%stx135017%_)))) (define gxc#xform-case-lambda% - (lambda (_%self134650%_ _%stx134651%_) - (letrec ((_%clause-e134653%_ - (lambda (_%clause134694%_) - (let* ((_%g134696134707%_ - (lambda (_%g134697134704%_) + (lambda (_%self134924%_ _%stx134925%_) + (letrec ((_%clause-e134927%_ + (lambda (_%clause134968%_) + (let* ((_%g134970134981%_ + (lambda (_%g134971134978%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134697134704%_)))) - (_%g134695134739%_ - (lambda (_%g134697134710%_) + _%g134971134978%_)))) + (_%g134969135013%_ + (lambda (_%g134971134984%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134697134710%_)) - (let ((_%e134700134712%_ + (gx#stx-pair? _%g134971134984%_)) + (let ((_%e134974134986%_ (let () (declare (not safe)) - (gx#stx-e _%g134697134710%_)))) - (let ((_%hd134701134715%_ + (gx#stx-e _%g134971134984%_)))) + (let ((_%hd134975134989%_ (let () (declare (not safe)) - (##car _%e134700134712%_))) - (_%tl134702134717%_ + (##car _%e134974134986%_))) + (_%tl134976134991%_ (let () (declare (not safe)) - (##cdr _%e134700134712%_)))) - ((lambda (_%L134720%_ _%L134721%_) - (let ((__tmp136388 + (##cdr _%e134974134986%_)))) + ((lambda (_%L134994%_ _%L134995%_) + (let ((__tmp136662 (lambda () - (let ((_%body134737%_ - (map (lambda (_%g134732134734%_) + (let ((_%body135011%_ + (map (lambda (_%g135006135008%_) (gxc#compile-e__1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%self134650%_ - _%g134732134734%_)) - _%L134720%_))) + _%self134924%_ + _%g135006135008%_)) + _%L134994%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L134721%_ - _%body134737%_)))) - (__tmp136387 + (cons _%L134995%_ + _%body135011%_)))) + (__tmp136661 (gxc#xform-let-locals - _%L134721%_))) + _%L134995%_))) (declare (not safe)) (__call-with-parameters - __tmp136388 + __tmp136662 gxc#current-compile-local-env - __tmp136387))) - _%tl134702134717%_ - _%hd134701134715%_))) - (_%g134696134707%_ _%g134697134710%_))))) - (_%g134695134739%_ _%clause134694%_))))) - (let* ((_%g134655134665%_ - (lambda (_%g134656134662%_) + __tmp136661))) + _%tl134976134991%_ + _%hd134975134989%_))) + (_%g134970134981%_ _%g134971134984%_))))) + (_%g134969135013%_ _%clause134968%_))))) + (let* ((_%g134929134939%_ + (lambda (_%g134930134936%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134656134662%_)))) - (_%g134654134691%_ - (lambda (_%g134656134668%_) + _%g134930134936%_)))) + (_%g134928134965%_ + (lambda (_%g134930134942%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134656134668%_)) - (let ((_%e134658134670%_ + (gx#stx-pair? _%g134930134942%_)) + (let ((_%e134932134944%_ (let () (declare (not safe)) - (gx#stx-e _%g134656134668%_)))) - (let ((_%hd134659134673%_ + (gx#stx-e _%g134930134942%_)))) + (let ((_%hd134933134947%_ (let () (declare (not safe)) - (##car _%e134658134670%_))) - (_%tl134660134675%_ + (##car _%e134932134944%_))) + (_%tl134934134949%_ (let () (declare (not safe)) - (##cdr _%e134658134670%_)))) - ((lambda (_%L134678%_) - (let ((_%clauses134689%_ - (map _%clause-e134653%_ _%L134678%_))) + (##cdr _%e134932134944%_)))) + ((lambda (_%L134952%_) + (let ((_%clauses134963%_ + (map _%clause-e134927%_ _%L134952%_))) (gxc#xform-wrap-source - (cons '%#case-lambda _%clauses134689%_) - _%stx134651%_))) - _%tl134660134675%_))) - (_%g134655134665%_ _%g134656134668%_))))) - (_%g134654134691%_ _%stx134651%_))))) + (cons '%#case-lambda _%clauses134963%_) + _%stx134925%_))) + _%tl134934134949%_))) + (_%g134929134939%_ _%g134930134942%_))))) + (_%g134928134965%_ _%stx134925%_))))) (define gxc#xform-let-values% - (lambda (_%self134404%_ _%stx134405%_) - (let* ((_%g134407134440%_ - (lambda (_%g134408134437%_) + (lambda (_%self134678%_ _%stx134679%_) + (let* ((_%g134681134714%_ + (lambda (_%g134682134711%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134408134437%_)))) - (_%g134406134647%_ - (lambda (_%g134408134443%_) + _%g134682134711%_)))) + (_%g134680134921%_ + (lambda (_%g134682134717%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134408134443%_)) - (let ((_%e134413134445%_ + (gx#stx-pair? _%g134682134717%_)) + (let ((_%e134687134719%_ (let () (declare (not safe)) - (gx#stx-e _%g134408134443%_)))) - (let ((_%hd134414134448%_ + (gx#stx-e _%g134682134717%_)))) + (let ((_%hd134688134722%_ (let () (declare (not safe)) - (##car _%e134413134445%_))) - (_%tl134415134450%_ + (##car _%e134687134719%_))) + (_%tl134689134724%_ (let () (declare (not safe)) - (##cdr _%e134413134445%_)))) + (##cdr _%e134687134719%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134415134450%_)) - (let ((_%e134416134453%_ + (gx#stx-pair? _%tl134689134724%_)) + (let ((_%e134690134727%_ (let () (declare (not safe)) - (gx#stx-e _%tl134415134450%_)))) - (let ((_%hd134417134456%_ + (gx#stx-e _%tl134689134724%_)))) + (let ((_%hd134691134730%_ (let () (declare (not safe)) - (##car _%e134416134453%_))) - (_%tl134418134458%_ + (##car _%e134690134727%_))) + (_%tl134692134732%_ (let () (declare (not safe)) - (##cdr _%e134416134453%_)))) + (##cdr _%e134690134727%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd134417134456%_)) - (let ((_g136389_ + (gx#stx-pair/null? _%hd134691134730%_)) + (let ((_g136663_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd134417134456%_ + _%hd134691134730%_ '0)))) (begin - (let ((_g136390_ + (let ((_g136664_ (let () (declare (not safe)) - (if (##values? _g136389_) + (if (##values? _g136663_) (##vector-length - _g136389_) + _g136663_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g136390_ 2))) + (##fx= _g136664_ 2))) (error "Context expects 2 values" - _g136390_))) - (let ((_%target134419134461%_ + _g136664_))) + (let ((_%target134693134735%_ (let () (declare (not safe)) - (##vector-ref _g136389_ 0))) - (_%tl134421134463%_ + (##vector-ref _g136663_ 0))) + (_%tl134695134737%_ (let () (declare (not safe)) (##vector-ref - _g136389_ + _g136663_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134421134463%_)) - (letrec ((_%loop134422134466%_ - (lambda (_%hd134420134469%_ + _%tl134695134737%_)) + (letrec ((_%loop134696134740%_ + (lambda (_%hd134694134743%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr134426134471%_ - _%hd134427134473%_) + _%expr134700134745%_ + _%hd134701134747%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134420134469%_)) - (let ((_%e134423134476%_ + (gx#stx-pair? _%hd134694134743%_)) + (let ((_%e134697134750%_ (let () (declare (not safe)) - (gx#stx-e _%hd134420134469%_)))) - (let ((_%lp-hd134424134479%_ + (gx#stx-e _%hd134694134743%_)))) + (let ((_%lp-hd134698134753%_ (let () (declare (not safe)) - (##car _%e134423134476%_))) - (_%lp-tl134425134481%_ + (##car _%e134697134750%_))) + (_%lp-tl134699134755%_ (let () (declare (not safe)) - (##cdr _%e134423134476%_)))) + (##cdr _%e134697134750%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd134424134479%_)) - (let ((_%e134430134484%_ + (gx#stx-pair? _%lp-hd134698134753%_)) + (let ((_%e134704134758%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd134424134479%_)))) - (let ((_%hd134431134487%_ + (gx#stx-e _%lp-hd134698134753%_)))) + (let ((_%hd134705134761%_ (let () (declare (not safe)) - (##car _%e134430134484%_))) - (_%tl134432134489%_ + (##car _%e134704134758%_))) + (_%tl134706134763%_ (let () (declare (not safe)) - (##cdr _%e134430134484%_)))) + (##cdr _%e134704134758%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134432134489%_)) - (let ((_%e134433134492%_ + (gx#stx-pair? _%tl134706134763%_)) + (let ((_%e134707134766%_ (let () (declare (not safe)) (gx#stx-e - _%tl134432134489%_)))) - (let ((_%hd134434134495%_ + _%tl134706134763%_)))) + (let ((_%hd134708134769%_ (let () (declare (not safe)) - (##car _%e134433134492%_))) - (_%tl134435134497%_ + (##car _%e134707134766%_))) + (_%tl134709134771%_ (let () (declare (not safe)) - (##cdr _%e134433134492%_)))) + (##cdr _%e134707134766%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134435134497%_)) - (_%loop134422134466%_ - _%lp-tl134425134481%_ - (cons _%hd134434134495%_ - _%expr134426134471%_) - (cons _%hd134431134487%_ - _%hd134427134473%_)) - (_%g134407134440%_ - _%g134408134443%_)))) - (_%g134407134440%_ - _%g134408134443%_)))) - (_%g134407134440%_ _%g134408134443%_)))) - (let ((_%expr134428134500%_ - (reverse _%expr134426134471%_)) - (_%hd134429134502%_ - (reverse _%hd134427134473%_))) - ((lambda (_%L134505%_ - _%L134506%_ - _%L134507%_ - _%L134508%_) - (let* ((_%g134527134543%_ - (lambda (_%g134528134540%_) + _%tl134709134771%_)) + (_%loop134696134740%_ + _%lp-tl134699134755%_ + (cons _%hd134708134769%_ + _%expr134700134745%_) + (cons _%hd134705134761%_ + _%hd134701134747%_)) + (_%g134681134714%_ + _%g134682134717%_)))) + (_%g134681134714%_ + _%g134682134717%_)))) + (_%g134681134714%_ _%g134682134717%_)))) + (let ((_%expr134702134774%_ + (reverse _%expr134700134745%_)) + (_%hd134703134776%_ + (reverse _%hd134701134747%_))) + ((lambda (_%L134779%_ + _%L134780%_ + _%L134781%_ + _%L134782%_) + (let* ((_%g134801134817%_ + (lambda (_%g134802134814%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134528134540%_)))) - (_%g134526134633%_ - (lambda (_%g134528134546%_) + _%g134802134814%_)))) + (_%g134800134907%_ + (lambda (_%g134802134820%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g134528134546%_)) - (let ((_g136391_ + _%g134802134820%_)) + (let ((_g136665_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g134528134546%_ + _%g134802134820%_ '0)))) (begin - (let ((_g136392_ + (let ((_g136666_ (let () (declare (not safe)) (if (##values? - _g136391_) + _g136665_) (##vector-length - _g136391_) + _g136665_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g136392_ + (##fx= _g136666_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g136392_))) - (let ((_%target134530134548%_ + _g136666_))) + (let ((_%target134804134822%_ (let () (declare (not safe)) (##vector-ref - _g136391_ + _g136665_ 0))) - (_%tl134532134550%_ + (_%tl134806134824%_ (let () (declare (not safe)) (##vector-ref - _g136391_ + _g136665_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134532134550%_)) - (letrec ((_%loop134533134553%_ - (lambda (_%hd134531134556%_ + _%tl134806134824%_)) + (letrec ((_%loop134807134827%_ + (lambda (_%hd134805134830%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr134537134558%_) + _%expr134811134832%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134531134556%_)) - (let ((_%e134534134561%_ + (gx#stx-pair? _%hd134805134830%_)) + (let ((_%e134808134835%_ (let () (declare (not safe)) - (gx#syntax-e _%hd134531134556%_)))) - (let ((_%lp-hd134535134564%_ + (gx#syntax-e _%hd134805134830%_)))) + (let ((_%lp-hd134809134838%_ (let () (declare (not safe)) - (##car _%e134534134561%_))) - (_%lp-tl134536134566%_ + (##car _%e134808134835%_))) + (_%lp-tl134810134840%_ (let () (declare (not safe)) - (##cdr _%e134534134561%_)))) - (_%loop134533134553%_ - _%lp-tl134536134566%_ - (cons _%lp-hd134535134564%_ - _%expr134537134558%_)))) - (let ((_%expr134538134569%_ - (reverse _%expr134537134558%_))) - ((lambda (_%L134572%_) - (let ((__tmp136395 + (##cdr _%e134808134835%_)))) + (_%loop134807134827%_ + _%lp-tl134810134840%_ + (cons _%lp-hd134809134838%_ + _%expr134811134832%_)))) + (let ((_%expr134812134843%_ + (reverse _%expr134811134832%_))) + ((lambda (_%L134846%_) + (let ((__tmp136669 (lambda () - (let* ((_%g134586134593%_ - (lambda (_%g134587134590%_) + (let* ((_%g134860134867%_ + (lambda (_%g134861134864%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134587134590%_)))) - (_%g134585134619%_ - (lambda (_%g134587134596%_) - ((lambda (_%L134598%_) + _%g134861134864%_)))) + (_%g134859134893%_ + (lambda (_%g134861134870%_) + ((lambda (_%L134872%_) (gxc#xform-wrap-source - (cons _%L134508%_ + (cons _%L134782%_ (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L134572%_ - _%L134507%_)) - (let ((__tmp136396 - (lambda (_%g134608134612%_ - _%g134609134614%_ - _%g134610134616%_) - (cons (cons _%g134609134614%_ - (cons _%g134608134612%_ + _%L134846%_ + _%L134781%_)) + (let ((__tmp136670 + (lambda (_%g134882134886%_ + _%g134883134888%_ + _%g134884134890%_) + (cons (cons _%g134883134888%_ + (cons _%g134882134886%_ '())) - _%g134610134616%_)))) + _%g134884134890%_)))) (declare (not safe)) (__foldr2 - __tmp136396 + __tmp136670 '() - _%L134572%_ - _%L134507%_))) - _%L134598%_)) - _%stx134405%_)) - _%g134587134596%_)))) + _%L134846%_ + _%L134781%_))) + _%L134872%_)) + _%stx134679%_)) + _%g134861134870%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g134585134619%_ - (map (lambda (_%g134621134623%_) + (_%g134859134893%_ + (map (lambda (_%g134895134897%_) (gxc#compile-e__1 - _%self134404%_ - _%g134621134623%_)) - _%L134505%_))))) - (__tmp136393 + _%self134678%_ + _%g134895134897%_)) + _%L134779%_))))) + (__tmp136667 (gxc#xform-let-locals - (let ((__tmp136394 - (lambda (_%g134625134628%_ - _%g134626134630%_) - (cons _%g134625134628%_ - _%g134626134630%_)))) + (let ((__tmp136668 + (lambda (_%g134899134902%_ + _%g134900134904%_) + (cons _%g134899134902%_ + _%g134900134904%_)))) (declare (not safe)) (__foldr1 - __tmp136394 + __tmp136668 '() - _%L134507%_))))) + _%L134781%_))))) (declare (not safe)) (__call-with-parameters - __tmp136395 + __tmp136669 gxc#current-compile-local-env - __tmp136393))) - _%expr134538134569%_)))))) - (_%loop134533134553%_ _%target134530134548%_ '())) + __tmp136667))) + _%expr134812134843%_)))))) + (_%loop134807134827%_ _%target134804134822%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g134527134543%_ - _%g134528134546%_))))) - (_%g134527134543%_ - _%g134528134546%_))))) - (_%g134526134633%_ - (map (lambda (_%g134635134637%_) + (_%g134801134817%_ + _%g134802134820%_))))) + (_%g134801134817%_ + _%g134802134820%_))))) + (_%g134800134907%_ + (map (lambda (_%g134909134911%_) (gxc#compile-e__1 - _%self134404%_ - _%g134635134637%_)) - (let ((__tmp136397 - (lambda (_%g134639134642%_ - _%g134640134644%_) - (cons _%g134639134642%_ - _%g134640134644%_)))) + _%self134678%_ + _%g134909134911%_)) + (let ((__tmp136671 + (lambda (_%g134913134916%_ + _%g134914134918%_) + (cons _%g134913134916%_ + _%g134914134918%_)))) (declare (not safe)) (__foldr1 - __tmp136397 + __tmp136671 '() - _%L134506%_)))))) - _%tl134418134458%_ - _%expr134428134500%_ - _%hd134429134502%_ - _%hd134414134448%_)))))) + _%L134780%_)))))) + _%tl134692134732%_ + _%expr134702134774%_ + _%hd134703134776%_ + _%hd134688134722%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop134422134466%_ - _%target134419134461%_ + (_%loop134696134740%_ + _%target134693134735%_ '() '())) - (_%g134407134440%_ - _%g134408134443%_))))) - (_%g134407134440%_ _%g134408134443%_)))) - (_%g134407134440%_ _%g134408134443%_)))) - (_%g134407134440%_ _%g134408134443%_))))) - (_%g134406134647%_ _%stx134405%_)))) + (_%g134681134714%_ + _%g134682134717%_))))) + (_%g134681134714%_ _%g134682134717%_)))) + (_%g134681134714%_ _%g134682134717%_)))) + (_%g134681134714%_ _%g134682134717%_))))) + (_%g134680134921%_ _%stx134679%_)))) (define gxc#xform-letrec-values% - (lambda (_%self134158%_ _%stx134159%_) - (let* ((_%g134161134194%_ - (lambda (_%g134162134191%_) + (lambda (_%self134432%_ _%stx134433%_) + (let* ((_%g134435134468%_ + (lambda (_%g134436134465%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134162134191%_)))) - (_%g134160134401%_ - (lambda (_%g134162134197%_) + _%g134436134465%_)))) + (_%g134434134675%_ + (lambda (_%g134436134471%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134162134197%_)) - (let ((_%e134167134199%_ + (gx#stx-pair? _%g134436134471%_)) + (let ((_%e134441134473%_ (let () (declare (not safe)) - (gx#stx-e _%g134162134197%_)))) - (let ((_%hd134168134202%_ + (gx#stx-e _%g134436134471%_)))) + (let ((_%hd134442134476%_ (let () (declare (not safe)) - (##car _%e134167134199%_))) - (_%tl134169134204%_ + (##car _%e134441134473%_))) + (_%tl134443134478%_ (let () (declare (not safe)) - (##cdr _%e134167134199%_)))) + (##cdr _%e134441134473%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134169134204%_)) - (let ((_%e134170134207%_ + (gx#stx-pair? _%tl134443134478%_)) + (let ((_%e134444134481%_ (let () (declare (not safe)) - (gx#stx-e _%tl134169134204%_)))) - (let ((_%hd134171134210%_ + (gx#stx-e _%tl134443134478%_)))) + (let ((_%hd134445134484%_ (let () (declare (not safe)) - (##car _%e134170134207%_))) - (_%tl134172134212%_ + (##car _%e134444134481%_))) + (_%tl134446134486%_ (let () (declare (not safe)) - (##cdr _%e134170134207%_)))) + (##cdr _%e134444134481%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd134171134210%_)) - (let ((_g136398_ + (gx#stx-pair/null? _%hd134445134484%_)) + (let ((_g136672_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd134171134210%_ + _%hd134445134484%_ '0)))) (begin - (let ((_g136399_ + (let ((_g136673_ (let () (declare (not safe)) - (if (##values? _g136398_) + (if (##values? _g136672_) (##vector-length - _g136398_) + _g136672_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g136399_ 2))) + (##fx= _g136673_ 2))) (error "Context expects 2 values" - _g136399_))) - (let ((_%target134173134215%_ + _g136673_))) + (let ((_%target134447134489%_ (let () (declare (not safe)) - (##vector-ref _g136398_ 0))) - (_%tl134175134217%_ + (##vector-ref _g136672_ 0))) + (_%tl134449134491%_ (let () (declare (not safe)) (##vector-ref - _g136398_ + _g136672_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134175134217%_)) - (letrec ((_%loop134176134220%_ - (lambda (_%hd134174134223%_ + _%tl134449134491%_)) + (letrec ((_%loop134450134494%_ + (lambda (_%hd134448134497%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr134180134225%_ - _%hd134181134227%_) + _%expr134454134499%_ + _%hd134455134501%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134174134223%_)) - (let ((_%e134177134230%_ + (gx#stx-pair? _%hd134448134497%_)) + (let ((_%e134451134504%_ (let () (declare (not safe)) - (gx#stx-e _%hd134174134223%_)))) - (let ((_%lp-hd134178134233%_ + (gx#stx-e _%hd134448134497%_)))) + (let ((_%lp-hd134452134507%_ (let () (declare (not safe)) - (##car _%e134177134230%_))) - (_%lp-tl134179134235%_ + (##car _%e134451134504%_))) + (_%lp-tl134453134509%_ (let () (declare (not safe)) - (##cdr _%e134177134230%_)))) + (##cdr _%e134451134504%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd134178134233%_)) - (let ((_%e134184134238%_ + (gx#stx-pair? _%lp-hd134452134507%_)) + (let ((_%e134458134512%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd134178134233%_)))) - (let ((_%hd134185134241%_ + (gx#stx-e _%lp-hd134452134507%_)))) + (let ((_%hd134459134515%_ (let () (declare (not safe)) - (##car _%e134184134238%_))) - (_%tl134186134243%_ + (##car _%e134458134512%_))) + (_%tl134460134517%_ (let () (declare (not safe)) - (##cdr _%e134184134238%_)))) + (##cdr _%e134458134512%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134186134243%_)) - (let ((_%e134187134246%_ + (gx#stx-pair? _%tl134460134517%_)) + (let ((_%e134461134520%_ (let () (declare (not safe)) (gx#stx-e - _%tl134186134243%_)))) - (let ((_%hd134188134249%_ + _%tl134460134517%_)))) + (let ((_%hd134462134523%_ (let () (declare (not safe)) - (##car _%e134187134246%_))) - (_%tl134189134251%_ + (##car _%e134461134520%_))) + (_%tl134463134525%_ (let () (declare (not safe)) - (##cdr _%e134187134246%_)))) + (##cdr _%e134461134520%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134189134251%_)) - (_%loop134176134220%_ - _%lp-tl134179134235%_ - (cons _%hd134188134249%_ - _%expr134180134225%_) - (cons _%hd134185134241%_ - _%hd134181134227%_)) - (_%g134161134194%_ - _%g134162134197%_)))) - (_%g134161134194%_ - _%g134162134197%_)))) - (_%g134161134194%_ _%g134162134197%_)))) - (let ((_%expr134182134254%_ - (reverse _%expr134180134225%_)) - (_%hd134183134256%_ - (reverse _%hd134181134227%_))) - ((lambda (_%L134259%_ - _%L134260%_ - _%L134261%_ - _%L134262%_) - (let ((__tmp136402 + _%tl134463134525%_)) + (_%loop134450134494%_ + _%lp-tl134453134509%_ + (cons _%hd134462134523%_ + _%expr134454134499%_) + (cons _%hd134459134515%_ + _%hd134455134501%_)) + (_%g134435134468%_ + _%g134436134471%_)))) + (_%g134435134468%_ + _%g134436134471%_)))) + (_%g134435134468%_ _%g134436134471%_)))) + (let ((_%expr134456134528%_ + (reverse _%expr134454134499%_)) + (_%hd134457134530%_ + (reverse _%hd134455134501%_))) + ((lambda (_%L134533%_ + _%L134534%_ + _%L134535%_ + _%L134536%_) + (let ((__tmp136676 (lambda () - (let* ((_%g134282134298%_ - (lambda (_%g134283134295%_) + (let* ((_%g134556134572%_ + (lambda (_%g134557134569%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134283134295%_)))) - (_%g134281134380%_ - (lambda (_%g134283134301%_) + _%g134557134569%_)))) + (_%g134555134654%_ + (lambda (_%g134557134575%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g134283134301%_)) - (let ((_g136403_ + _%g134557134575%_)) + (let ((_g136677_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g134283134301%_ + _%g134557134575%_ '0)))) (begin - (let ((_g136404_ + (let ((_g136678_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g136403_) - (##vector-length _g136403_) + (if (##values? _g136677_) + (##vector-length _g136677_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g136404_ 2))) - (error "Context expects 2 values" _g136404_))) - (let ((_%target134285134303%_ + (if (not (let () (declare (not safe)) (##fx= _g136678_ 2))) + (error "Context expects 2 values" _g136678_))) + (let ((_%target134559134577%_ (let () (declare (not safe)) - (##vector-ref _g136403_ 0))) - (_%tl134287134305%_ + (##vector-ref _g136677_ 0))) + (_%tl134561134579%_ (let () (declare (not safe)) - (##vector-ref _g136403_ 1)))) + (##vector-ref _g136677_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134287134305%_)) - (letrec ((_%loop134288134308%_ - (lambda (_%hd134286134311%_ - _%expr134292134313%_) + (gx#stx-null? _%tl134561134579%_)) + (letrec ((_%loop134562134582%_ + (lambda (_%hd134560134585%_ + _%expr134566134587%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134286134311%_)) - (let ((_%e134289134316%_ + (gx#stx-pair? _%hd134560134585%_)) + (let ((_%e134563134590%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134286134311%_)))) - (let ((_%lp-hd134290134319%_ + _%hd134560134585%_)))) + (let ((_%lp-hd134564134593%_ (let () (declare (not safe)) - (##car _%e134289134316%_))) - (_%lp-tl134291134321%_ + (##car _%e134563134590%_))) + (_%lp-tl134565134595%_ (let () (declare (not safe)) - (##cdr _%e134289134316%_)))) - (_%loop134288134308%_ - _%lp-tl134291134321%_ - (cons _%lp-hd134290134319%_ - _%expr134292134313%_)))) - (let ((_%expr134293134324%_ - (reverse _%expr134292134313%_))) - ((lambda (_%L134327%_) - (let* ((_%g134341134348%_ - (lambda (_%g134342134345%_) + (##cdr _%e134563134590%_)))) + (_%loop134562134582%_ + _%lp-tl134565134595%_ + (cons _%lp-hd134564134593%_ + _%expr134566134587%_)))) + (let ((_%expr134567134598%_ + (reverse _%expr134566134587%_))) + ((lambda (_%L134601%_) + (let* ((_%g134615134622%_ + (lambda (_%g134616134619%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134342134345%_)))) - (_%g134340134373%_ - (lambda (_%g134342134351%_) - ((lambda (_%L134353%_) + _%g134616134619%_)))) + (_%g134614134647%_ + (lambda (_%g134616134625%_) + ((lambda (_%L134627%_) (gxc#xform-wrap-source - (cons _%L134262%_ + (cons _%L134536%_ (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L134327%_ - _%L134261%_)) - (let ((__tmp136405 - (lambda (_%g134362134366%_ - _%g134363134368%_ - _%g134364134370%_) - (cons (cons _%g134363134368%_ - (cons _%g134362134366%_ + _%L134601%_ + _%L134535%_)) + (let ((__tmp136679 + (lambda (_%g134636134640%_ + _%g134637134642%_ + _%g134638134644%_) + (cons (cons _%g134637134642%_ + (cons _%g134636134640%_ '())) - _%g134364134370%_)))) + _%g134638134644%_)))) (declare (not safe)) (__foldr2 - __tmp136405 + __tmp136679 '() - _%L134327%_ - _%L134261%_))) - _%L134353%_)) - _%stx134159%_)) - _%g134342134351%_)))) + _%L134601%_ + _%L134535%_))) + _%L134627%_)) + _%stx134433%_)) + _%g134616134625%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g134340134373%_ - (map (lambda (_%g134375134377%_) + (_%g134614134647%_ + (map (lambda (_%g134649134651%_) (gxc#compile-e__1 - _%self134158%_ - _%g134375134377%_)) - _%L134259%_)))) - _%expr134293134324%_)))))) - (_%loop134288134308%_ _%target134285134303%_ '())) - (_%g134282134298%_ _%g134283134301%_))))) + _%self134432%_ + _%g134649134651%_)) + _%L134533%_)))) + _%expr134567134598%_)))))) + (_%loop134562134582%_ _%target134559134577%_ '())) + (_%g134556134572%_ _%g134557134575%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g134282134298%_ - _%g134283134301%_))))) - (_%g134281134380%_ - (map (lambda (_%g134382134384%_) + (_%g134556134572%_ + _%g134557134575%_))))) + (_%g134555134654%_ + (map (lambda (_%g134656134658%_) (gxc#compile-e__1 - _%self134158%_ - _%g134382134384%_)) - (let ((__tmp136406 - (lambda (_%g134386134389%_ - _%g134387134391%_) - (cons _%g134386134389%_ - _%g134387134391%_)))) + _%self134432%_ + _%g134656134658%_)) + (let ((__tmp136680 + (lambda (_%g134660134663%_ + _%g134661134665%_) + (cons _%g134660134663%_ + _%g134661134665%_)))) (declare (not safe)) (__foldr1 - __tmp136406 + __tmp136680 '() - _%L134260%_))))))) - (__tmp136400 + _%L134534%_))))))) + (__tmp136674 (gxc#xform-let-locals - (let ((__tmp136401 - (lambda (_%g134393134396%_ - _%g134394134398%_) - (cons _%g134393134396%_ - _%g134394134398%_)))) + (let ((__tmp136675 + (lambda (_%g134667134670%_ + _%g134668134672%_) + (cons _%g134667134670%_ + _%g134668134672%_)))) (declare (not safe)) (__foldr1 - __tmp136401 + __tmp136675 '() - _%L134261%_))))) + _%L134535%_))))) (declare (not safe)) (__call-with-parameters - __tmp136402 + __tmp136676 gxc#current-compile-local-env - __tmp136400))) - _%tl134172134212%_ - _%expr134182134254%_ - _%hd134183134256%_ - _%hd134168134202%_)))))) + __tmp136674))) + _%tl134446134486%_ + _%expr134456134528%_ + _%hd134457134530%_ + _%hd134442134476%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop134176134220%_ - _%target134173134215%_ + (_%loop134450134494%_ + _%target134447134489%_ '() '())) - (_%g134161134194%_ - _%g134162134197%_))))) - (_%g134161134194%_ _%g134162134197%_)))) - (_%g134161134194%_ _%g134162134197%_)))) - (_%g134161134194%_ _%g134162134197%_))))) - (_%g134160134401%_ _%stx134159%_)))) + (_%g134435134468%_ + _%g134436134471%_))))) + (_%g134435134468%_ _%g134436134471%_)))) + (_%g134435134468%_ _%g134436134471%_)))) + (_%g134435134468%_ _%g134436134471%_))))) + (_%g134434134675%_ _%stx134433%_)))) (define gxc#xform-let-locals - (lambda (_%bindings134025%_) - (letrec ((_%flatten134027%_ - (lambda (_%maybe-lst134085%_) + (lambda (_%bindings134299%_) + (letrec ((_%flatten134301%_ + (lambda (_%maybe-lst134359%_) (if (let () (declare (not safe)) - (gx#identifier? _%maybe-lst134085%_)) - (cons _%maybe-lst134085%_ '()) - (let _%loop134087%_ ((_%rest134089%_ - _%maybe-lst134085%_) - (_%result134090%_ '())) - (let* ((_%__stx136294136295%_ _%rest134089%_) - (_%g134094134106%_ + (gx#identifier? _%maybe-lst134359%_)) + (cons _%maybe-lst134359%_ '()) + (let _%loop134361%_ ((_%rest134363%_ + _%maybe-lst134359%_) + (_%result134364%_ '())) + (let* ((_%__stx136568136569%_ _%rest134363%_) + (_%g134368134380%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx136294136295%_))))) - (let ((_%__kont136296136297%_ - (lambda (_%L134144%_ _%L134145%_) - (_%loop134087%_ - _%L134144%_ - (let ((__tmp136407 - (_%flatten134027%_ _%L134145%_))) + _%__stx136568136569%_))))) + (let ((_%__kont136570136571%_ + (lambda (_%L134418%_ _%L134419%_) + (_%loop134361%_ + _%L134418%_ + (let ((__tmp136681 + (_%flatten134301%_ _%L134419%_))) (declare (not safe)) (__foldl1 cons - _%result134090%_ - __tmp136407))))) - (_%__kont136298136299%_ - (lambda (_%L134118%_) - (cons _%L134118%_ _%result134090%_))) - (_%__kont136300136301%_ - (lambda () _%result134090%_))) - (let ((_%g134092134131%_ + _%result134364%_ + __tmp136681))))) + (_%__kont136572136573%_ + (lambda (_%L134392%_) + (cons _%L134392%_ _%result134364%_))) + (_%__kont136574136575%_ + (lambda () _%result134364%_))) + (let ((_%g134366134405%_ (lambda () - (let ((_%L134118%_ - _%__stx136294136295%_)) + (let ((_%L134392%_ + _%__stx136568136569%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L134118%_)) - (_%__kont136298136299%_ - _%L134118%_) - (_%__kont136300136301%_)))))) + (gx#identifier? _%L134392%_)) + (_%__kont136572136573%_ + _%L134392%_) + (_%__kont136574136575%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx136294136295%_)) - (let ((_%e134098134136%_ + (gx#stx-pair? _%__stx136568136569%_)) + (let ((_%e134372134410%_ (let () (declare (not safe)) (gx#stx-e - _%__stx136294136295%_)))) - (let ((_%tl134100134141%_ + _%__stx136568136569%_)))) + (let ((_%tl134374134415%_ (let () (declare (not safe)) - (##cdr _%e134098134136%_))) - (_%hd134099134139%_ + (##cdr _%e134372134410%_))) + (_%hd134373134413%_ (let () (declare (not safe)) - (##car _%e134098134136%_)))) - (_%__kont136296136297%_ - _%tl134100134141%_ - _%hd134099134139%_))) + (##car _%e134372134410%_)))) + (_%__kont136570136571%_ + _%tl134374134415%_ + _%hd134373134413%_))) (let () (declare (not safe)) - (_%g134092134131%_))))))))))) - (let _%loop134029%_ ((_%rest134031%_ - (_%flatten134027%_ _%bindings134025%_)) - (_%locals134032%_ + (_%g134366134405%_))))))))))) + (let _%loop134303%_ ((_%rest134305%_ + (_%flatten134301%_ _%bindings134299%_)) + (_%locals134306%_ (let () (declare (not safe)) (gxc#current-compile-local-env)))) - (let* ((_%rest134033134044%_ _%rest134031%_) - (_%E134037134048%_ + (let* ((_%rest134307134318%_ _%rest134305%_) + (_%E134311134322%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest134033134044%_ + _%rest134307134318%_ '([(? identifier? id) . rest]) '((? identifier? id)) '(_))) '#!void))) - (let ((_%K134040134073%_ - (lambda (_%rest134070%_ _%id134071%_) - (_%loop134029%_ - _%rest134070%_ + (let ((_%K134314134347%_ + (lambda (_%rest134344%_ _%id134345%_) + (_%loop134303%_ + _%rest134344%_ (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%id134071%_)) - _%locals134032%_)))) - (_%K134039134062%_ - (lambda (_%id134060%_) + (gxc#identifier-symbol _%id134345%_)) + _%locals134306%_)))) + (_%K134313134336%_ + (lambda (_%id134334%_) (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%id134060%_)) - _%locals134032%_))) - (_%K134038134053%_ (lambda () _%locals134032%_))) - (let ((_%try-match134035134067%_ + (gxc#identifier-symbol _%id134334%_)) + _%locals134306%_))) + (_%K134312134327%_ (lambda () _%locals134306%_))) + (let ((_%try-match134309134341%_ (lambda () (if (let () (declare (not safe)) - (gx#identifier? _%rest134033134044%_)) - (let ((_%id134065%_ _%rest134033134044%_)) - (_%K134039134062%_ _%id134065%_)) - (_%K134038134053%_))))) + (gx#identifier? _%rest134307134318%_)) + (let ((_%id134339%_ _%rest134307134318%_)) + (_%K134313134336%_ _%id134339%_)) + (_%K134312134327%_))))) (if (let () (declare (not safe)) - (##pair? _%rest134033134044%_)) - (let ((_%tl134042134078%_ + (##pair? _%rest134307134318%_)) + (let ((_%tl134316134352%_ (let () (declare (not safe)) - (##cdr _%rest134033134044%_))) - (_%hd134041134076%_ + (##cdr _%rest134307134318%_))) + (_%hd134315134350%_ (let () (declare (not safe)) - (##car _%rest134033134044%_)))) + (##car _%rest134307134318%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd134041134076%_)) - (let ((_%id134081%_ _%hd134041134076%_) - (_%rest134083%_ _%tl134042134078%_)) - (_%K134040134073%_ _%rest134083%_ _%id134081%_)) - (_%K134038134053%_))) - (_%try-match134035134067%_))))))))) + (gx#identifier? _%hd134315134350%_)) + (let ((_%id134355%_ _%hd134315134350%_) + (_%rest134357%_ _%tl134316134352%_)) + (_%K134314134347%_ _%rest134357%_ _%id134355%_)) + (_%K134312134327%_))) + (_%try-match134309134341%_))))))))) (define gxc#xform-operands - (lambda (_%self133977%_ _%stx133978%_) - (let* ((_%g133980133991%_ - (lambda (_%g133981133988%_) + (lambda (_%self134251%_ _%stx134252%_) + (let* ((_%g134254134265%_ + (lambda (_%g134255134262%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133981133988%_)))) - (_%g133979134022%_ - (lambda (_%g133981133994%_) + _%g134255134262%_)))) + (_%g134253134296%_ + (lambda (_%g134255134268%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133981133994%_)) - (let ((_%e133984133996%_ + (gx#stx-pair? _%g134255134268%_)) + (let ((_%e134258134270%_ (let () (declare (not safe)) - (gx#stx-e _%g133981133994%_)))) - (let ((_%hd133985133999%_ + (gx#stx-e _%g134255134268%_)))) + (let ((_%hd134259134273%_ (let () (declare (not safe)) - (##car _%e133984133996%_))) - (_%tl133986134001%_ + (##car _%e134258134270%_))) + (_%tl134260134275%_ (let () (declare (not safe)) - (##cdr _%e133984133996%_)))) - ((lambda (_%L134004%_ _%L134005%_) - (let ((_%rands134020%_ - (map (lambda (_%g134015134017%_) + (##cdr _%e134258134270%_)))) + ((lambda (_%L134278%_ _%L134279%_) + (let ((_%rands134294%_ + (map (lambda (_%g134289134291%_) (gxc#compile-e__1 - _%self133977%_ - _%g134015134017%_)) - _%L134004%_))) + _%self134251%_ + _%g134289134291%_)) + _%L134278%_))) (gxc#xform-wrap-source - (cons _%L134005%_ _%rands134020%_) - _%stx133978%_))) - _%tl133986134001%_ - _%hd133985133999%_))) - (_%g133980133991%_ _%g133981133994%_))))) - (_%g133979134022%_ _%stx133978%_)))) + (cons _%L134279%_ _%rands134294%_) + _%stx134252%_))) + _%tl134260134275%_ + _%hd134259134273%_))) + (_%g134254134265%_ _%g134255134268%_))))) + (_%g134253134296%_ _%stx134252%_)))) (define gxc#xform-call% gxc#xform-operands) (define gxc#xform-setq% - (lambda (_%self133907%_ _%stx133908%_) - (let* ((_%g133910133927%_ - (lambda (_%g133911133924%_) + (lambda (_%self134181%_ _%stx134182%_) + (let* ((_%g134184134201%_ + (lambda (_%g134185134198%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133911133924%_)))) - (_%g133909133974%_ - (lambda (_%g133911133930%_) + _%g134185134198%_)))) + (_%g134183134248%_ + (lambda (_%g134185134204%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133911133930%_)) - (let ((_%e133914133932%_ + (gx#stx-pair? _%g134185134204%_)) + (let ((_%e134188134206%_ (let () (declare (not safe)) - (gx#stx-e _%g133911133930%_)))) - (let ((_%hd133915133935%_ + (gx#stx-e _%g134185134204%_)))) + (let ((_%hd134189134209%_ (let () (declare (not safe)) - (##car _%e133914133932%_))) - (_%tl133916133937%_ + (##car _%e134188134206%_))) + (_%tl134190134211%_ (let () (declare (not safe)) - (##cdr _%e133914133932%_)))) + (##cdr _%e134188134206%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133916133937%_)) - (let ((_%e133917133940%_ + (gx#stx-pair? _%tl134190134211%_)) + (let ((_%e134191134214%_ (let () (declare (not safe)) - (gx#stx-e _%tl133916133937%_)))) - (let ((_%hd133918133943%_ + (gx#stx-e _%tl134190134211%_)))) + (let ((_%hd134192134217%_ (let () (declare (not safe)) - (##car _%e133917133940%_))) - (_%tl133919133945%_ + (##car _%e134191134214%_))) + (_%tl134193134219%_ (let () (declare (not safe)) - (##cdr _%e133917133940%_)))) + (##cdr _%e134191134214%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133919133945%_)) - (let ((_%e133920133948%_ + (gx#stx-pair? _%tl134193134219%_)) + (let ((_%e134194134222%_ (let () (declare (not safe)) - (gx#stx-e _%tl133919133945%_)))) - (let ((_%hd133921133951%_ + (gx#stx-e _%tl134193134219%_)))) + (let ((_%hd134195134225%_ (let () (declare (not safe)) - (##car _%e133920133948%_))) - (_%tl133922133953%_ + (##car _%e134194134222%_))) + (_%tl134196134227%_ (let () (declare (not safe)) - (##cdr _%e133920133948%_)))) + (##cdr _%e134194134222%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133922133953%_)) - ((lambda (_%L133956%_ - _%L133957%_) - (let ((_%expr133972%_ + _%tl134196134227%_)) + ((lambda (_%L134230%_ + _%L134231%_) + (let ((_%expr134246%_ (gxc#compile-e__1 - _%self133907%_ - _%L133956%_))) + _%self134181%_ + _%L134230%_))) (gxc#xform-wrap-source (cons '%#set! - (cons _%L133957%_ - (cons _%expr133972%_ + (cons _%L134231%_ + (cons _%expr134246%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx133908%_))) - _%hd133921133951%_ - _%hd133918133943%_) - (_%g133910133927%_ - _%g133911133930%_)))) - (_%g133910133927%_ _%g133911133930%_)))) - (_%g133910133927%_ _%g133911133930%_)))) - (_%g133910133927%_ _%g133911133930%_))))) - (_%g133909133974%_ _%stx133908%_)))))) + _%stx134182%_))) + _%hd134195134225%_ + _%hd134192134217%_) + (_%g134184134201%_ + _%g134185134204%_)))) + (_%g134184134201%_ _%g134185134204%_)))) + (_%g134184134201%_ _%g134185134204%_)))) + (_%g134184134201%_ _%g134185134204%_))))) + (_%g134183134248%_ _%stx134182%_)))))) diff --git a/src/bootstrap/gerbil/compiler/method~1.scm b/src/bootstrap/gerbil/compiler/method~1.scm index bcad69ef7..ab9e42f9a 100644 --- a/src/bootstrap/gerbil/compiler/method~1.scm +++ b/src/bootstrap/gerbil/compiler/method~1.scm @@ -1,286 +1,286 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g136435_| + (define |gxc[1]#_g136709_| (##structure gx#syntax-quote::t '::void-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136437_| + (define |gxc[1]#_g136711_| (##structure gx#syntax-quote::t 'make-::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136439_| + (define |gxc[1]#_g136713_| (##structure gx#syntax-quote::t '::void-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136441_| + (define |gxc[1]#_g136715_| (##structure gx#syntax-quote::t '::void-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136443_| + (define |gxc[1]#_g136717_| (##structure gx#syntax-quote::t 'make-::void-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136445_| + (define |gxc[1]#_g136719_| (##structure gx#syntax-quote::t '::void-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136447_| + (define |gxc[1]#_g136721_| (##structure gx#syntax-quote::t '::void-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136448_| + (define |gxc[1]#_g136722_| (##structure gx#syntax-quote::t '::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136450_| + (define |gxc[1]#_g136724_| (##structure gx#syntax-quote::t '::void::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136452_| + (define |gxc[1]#_g136726_| (##structure gx#syntax-quote::t 'make-::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136454_| + (define |gxc[1]#_g136728_| (##structure gx#syntax-quote::t '::void? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136456_| + (define |gxc[1]#_g136730_| (##structure gx#syntax-quote::t '::false-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136458_| + (define |gxc[1]#_g136732_| (##structure gx#syntax-quote::t 'make-::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136460_| + (define |gxc[1]#_g136734_| (##structure gx#syntax-quote::t '::false-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136462_| + (define |gxc[1]#_g136736_| (##structure gx#syntax-quote::t '::false-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136464_| + (define |gxc[1]#_g136738_| (##structure gx#syntax-quote::t 'make-::false-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136466_| + (define |gxc[1]#_g136740_| (##structure gx#syntax-quote::t '::false-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136468_| + (define |gxc[1]#_g136742_| (##structure gx#syntax-quote::t '::false-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136469_| + (define |gxc[1]#_g136743_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136471_| + (define |gxc[1]#_g136745_| (##structure gx#syntax-quote::t '::false::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136473_| + (define |gxc[1]#_g136747_| (##structure gx#syntax-quote::t 'make-::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136475_| + (define |gxc[1]#_g136749_| (##structure gx#syntax-quote::t '::false? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136477_| + (define |gxc[1]#_g136751_| (##structure gx#syntax-quote::t '::identity-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136479_| + (define |gxc[1]#_g136753_| (##structure gx#syntax-quote::t 'make-::identity-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136481_| + (define |gxc[1]#_g136755_| (##structure gx#syntax-quote::t '::identity-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136483_| + (define |gxc[1]#_g136757_| (##structure gx#syntax-quote::t '::identity-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136485_| + (define |gxc[1]#_g136759_| (##structure gx#syntax-quote::t 'make-::identity-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136487_| + (define |gxc[1]#_g136761_| (##structure gx#syntax-quote::t '::identity-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136489_| + (define |gxc[1]#_g136763_| (##structure gx#syntax-quote::t '::identity-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136490_| + (define |gxc[1]#_g136764_| (##structure gx#syntax-quote::t '::identity-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136492_| + (define |gxc[1]#_g136766_| (##structure gx#syntax-quote::t '::identity::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136494_| + (define |gxc[1]#_g136768_| (##structure gx#syntax-quote::t 'make-::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136496_| + (define |gxc[1]#_g136770_| (##structure gx#syntax-quote::t '::identity? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136498_| + (define |gxc[1]#_g136772_| (##structure gx#syntax-quote::t '::basic-xform-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136500_| + (define |gxc[1]#_g136774_| (##structure gx#syntax-quote::t 'make-::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136502_| + (define |gxc[1]#_g136776_| (##structure gx#syntax-quote::t '::basic-xform-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136504_| + (define |gxc[1]#_g136778_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136505_| + (define |gxc[1]#_g136779_| (##structure gx#syntax-quote::t '::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136507_| + (define |gxc[1]#_g136781_| (##structure gx#syntax-quote::t '::basic-xform::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136509_| + (define |gxc[1]#_g136783_| (##structure gx#syntax-quote::t 'make-::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g136511_| + (define |gxc[1]#_g136785_| (##structure gx#syntax-quote::t '::basic-xform? @@ -289,161 +289,161 @@ '())) (begin (define |gxc[:0:]#defcompile-method| - (lambda (_%stx132449%_) - (let* ((_%__stx136150136151%_ _%stx132449%_) - (_%g132455132649%_ + (lambda (_%stx132723%_) + (let* ((_%__stx136424136425%_ _%stx132723%_) + (_%g132729132923%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx136150136151%_))))) - (let ((_%__kont136153136154%_ - (lambda (_%L133869%_ _%L133871%_ _%L133872%_ _%L133873%_) + _%__stx136424136425%_))))) + (let ((_%__kont136427136428%_ + (lambda (_%L134143%_ _%L134145%_ _%L134146%_ _%L134147%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'defcompile-method)) - (cons _%L133873%_ - (cons (cons _%L133872%_ '()) - (cons _%L133871%_ _%L133869%_)))))) - (_%__kont136155136156%_ - (lambda (_%L133623%_ - _%L133625%_ - _%L133626%_ - _%L133627%_ - _%L133628%_) - (let* ((_%g133659133687%_ - (lambda (_%g133660133683%_) + (cons _%L134147%_ + (cons (cons _%L134146%_ '()) + (cons _%L134145%_ _%L134143%_)))))) + (_%__kont136429136430%_ + (lambda (_%L133897%_ + _%L133899%_ + _%L133900%_ + _%L133901%_ + _%L133902%_) + (let* ((_%g133933133961%_ + (lambda (_%g133934133957%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133660133683%_)))) - (_%g133658133807%_ - (lambda (_%g133660133691%_) + _%g133934133957%_)))) + (_%g133932134081%_ + (lambda (_%g133934133965%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133660133691%_)) - (let ((_%e133664133694%_ + (gx#stx-pair? _%g133934133965%_)) + (let ((_%e133938133968%_ (let () (declare (not safe)) - (gx#syntax-e _%g133660133691%_)))) - (let ((_%hd133665133698%_ + (gx#syntax-e _%g133934133965%_)))) + (let ((_%hd133939133972%_ (let () (declare (not safe)) - (##car _%e133664133694%_))) - (_%tl133666133701%_ + (##car _%e133938133968%_))) + (_%tl133940133975%_ (let () (declare (not safe)) - (##cdr _%e133664133694%_)))) + (##cdr _%e133938133968%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133666133701%_)) - (let ((_%e133667133704%_ + (gx#stx-pair? _%tl133940133975%_)) + (let ((_%e133941133978%_ (let () (declare (not safe)) (gx#syntax-e - _%tl133666133701%_)))) - (let ((_%hd133668133708%_ + _%tl133940133975%_)))) + (let ((_%hd133942133982%_ (let () (declare (not safe)) - (##car _%e133667133704%_))) - (_%tl133669133711%_ + (##car _%e133941133978%_))) + (_%tl133943133985%_ (let () (declare (not safe)) - (##cdr _%e133667133704%_)))) + (##cdr _%e133941133978%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd133668133708%_)) - (let ((_g136408_ + _%hd133942133982%_)) + (let ((_g136682_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd133668133708%_ + _%hd133942133982%_ '0)))) (begin - (let ((_g136409_ + (let ((_g136683_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g136408_) - (##vector-length _g136408_) + _g136682_) + (##vector-length _g136682_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g136409_ 2))) - (error "Context expects 2 values" _g136409_))) + (if (not (let () (declare (not safe)) (##fx= _g136683_ 2))) + (error "Context expects 2 values" _g136683_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target133670133714%_ + (let ((_%target133944133988%_ (let () (declare (not safe)) (##vector-ref - _g136408_ + _g136682_ 0))) - (_%tl133672133717%_ + (_%tl133946133991%_ (let () (declare (not safe)) (##vector-ref - _g136408_ + _g136682_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133672133717%_)) - (letrec ((_%loop133673133720%_ + _%tl133946133991%_)) + (letrec ((_%loop133947133994%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd133671133724%_ - _%super-bind-methods!133677133727%_) + (lambda (_%hd133945133998%_ + _%super-bind-methods!133951134001%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133671133724%_)) - (let ((_%e133674133730%_ + (gx#stx-pair? _%hd133945133998%_)) + (let ((_%e133948134004%_ (let () (declare (not safe)) - (gx#syntax-e _%hd133671133724%_)))) - (let ((_%lp-hd133675133734%_ + (gx#syntax-e _%hd133945133998%_)))) + (let ((_%lp-hd133949134008%_ (let () (declare (not safe)) - (##car _%e133674133730%_))) - (_%lp-tl133676133737%_ + (##car _%e133948134004%_))) + (_%lp-tl133950134011%_ (let () (declare (not safe)) - (##cdr _%e133674133730%_)))) - (_%loop133673133720%_ - _%lp-tl133676133737%_ - (cons _%lp-hd133675133734%_ - _%super-bind-methods!133677133727%_)))) - (let ((_%super-bind-methods!133678133740%_ - (reverse _%super-bind-methods!133677133727%_))) + (##cdr _%e133948134004%_)))) + (_%loop133947133994%_ + _%lp-tl133950134011%_ + (cons _%lp-hd133949134008%_ + _%super-bind-methods!133951134001%_)))) + (let ((_%super-bind-methods!133952134014%_ + (reverse _%super-bind-methods!133951134001%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133669133711%_)) - (let ((_%e133679133744%_ + (gx#stx-pair? _%tl133943133985%_)) + (let ((_%e133953134018%_ (let () (declare (not safe)) (gx#syntax-e - _%tl133669133711%_)))) - (let ((_%hd133680133748%_ + _%tl133943133985%_)))) + (let ((_%hd133954134022%_ (let () (declare (not safe)) - (##car _%e133679133744%_))) - (_%tl133681133751%_ + (##car _%e133953134018%_))) + (_%tl133955134025%_ (let () (declare (not safe)) - (##cdr _%e133679133744%_)))) + (##cdr _%e133953134018%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133681133751%_)) - ((lambda (_%L133754%_ - _%L133756%_ - _%L133757%_) + _%tl133955134025%_)) + ((lambda (_%L134028%_ + _%L134030%_ + _%L134031%_) (cons (let () (declare (not safe)) @@ -454,22 +454,22 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'defclass)) - (cons (cons _%L133628%_ - (let ((__tmp136410 - (lambda (_%g133784133787%_ - _%g133785133790%_) - (cons _%g133784133787%_ - _%g133785133790%_)))) + (cons (cons _%L133902%_ + (let ((__tmp136684 + (lambda (_%g134058134061%_ + _%g134059134064%_) + (cons _%g134058134061%_ + _%g134059134064%_)))) (declare (not safe)) (__foldr1 - __tmp136410 + __tmp136684 '() - _%L133627%_))) - (cons _%L133626%_ '()))) + _%L133901%_))) + (cons _%L133900%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons _%L133757%_ + (cons _%L134031%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -479,234 +479,234 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp136413 - (lambda (_%g133779133793%_ _%g133780133796%_) + (let ((__tmp136687 + (lambda (_%g134053134067%_ _%g134054134070%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force)) - (cons _%g133779133793%_ '())) - _%g133780133796%_))) - (__tmp136411 + (cons _%g134053134067%_ '())) + _%g134054134070%_))) + (__tmp136685 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L133623%_ - _%L133625%_)) - (let ((__tmp136412 - (lambda (_%g133781133799%_ - _%g133782133802%_ - _%g133783133804%_) + _%L133897%_ + _%L133899%_)) + (let ((__tmp136686 + (lambda (_%g134055134073%_ + _%g134056134076%_ + _%g134057134078%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!)) - (cons _%L133754%_ + (cons _%L134028%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g133782133802%_ '())) - (cons _%g133781133799%_ '())))) + (cons _%g134056134076%_ '())) + (cons _%g134055134073%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g133783133804%_)))) + _%g134057134078%_)))) (declare (not safe)) (__foldr2 - __tmp136412 + __tmp136686 '() - _%L133623%_ - _%L133625%_))))) + _%L133897%_ + _%L133899%_))))) (declare (not safe)) - (__foldr1 __tmp136413 __tmp136411 _%L133756%_))) + (__foldr1 __tmp136687 __tmp136685 _%L134030%_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd133680133748%_ - _%super-bind-methods!133678133740%_ - _%hd133665133698%_) - (_%g133659133687%_ - _%g133660133691%_)))) - (_%g133659133687%_ - _%g133660133691%_))))))) - (_%loop133673133720%_ _%target133670133714%_ '())) - (_%g133659133687%_ _%g133660133691%_))))) + _%hd133954134022%_ + _%super-bind-methods!133952134014%_ + _%hd133939133972%_) + (_%g133933133961%_ + _%g133934133965%_)))) + (_%g133933133961%_ + _%g133934133965%_))))))) + (_%loop133947133994%_ _%target133944133988%_ '())) + (_%g133933133961%_ _%g133934133965%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g133659133687%_ - _%g133660133691%_)))) - (_%g133659133687%_ - _%g133660133691%_)))) - (_%g133659133687%_ _%g133660133691%_))))) - (_%g133658133807%_ + (_%g133933133961%_ + _%g133934133965%_)))) + (_%g133933133961%_ + _%g133934133965%_)))) + (_%g133933133961%_ _%g133934133965%_))))) + (_%g133932134081%_ (list (let () (declare (not safe)) (gx#stx-identifier - _%L133628%_ - _%L133628%_ + _%L133902%_ + _%L133902%_ '"-bind-methods!")) - (map (lambda (_%super133811%_) + (map (lambda (_%super134085%_) (let () (declare (not safe)) (gx#stx-identifier - _%super133811%_ - _%super133811%_ + _%super134085%_ + _%super134085%_ '"-bind-methods!"))) - (let ((__tmp136414 - (lambda (_%g133813133816%_ - _%g133814133819%_) - (cons _%g133813133816%_ - _%g133814133819%_)))) + (let ((__tmp136688 + (lambda (_%g134087134090%_ + _%g134088134093%_) + (cons _%g134087134090%_ + _%g134088134093%_)))) (declare (not safe)) - (__foldr1 __tmp136414 '() _%L133627%_))) + (__foldr1 __tmp136688 '() _%L133901%_))) (let () (declare (not safe)) (gx#stx-identifier - _%L133628%_ - _%L133628%_ + _%L133902%_ + _%L133902%_ '"::t"))))))) - (_%__kont136161136162%_ - (lambda (_%L133254%_ - _%L133256%_ - _%L133257%_ - _%L133258%_ - _%L133259%_ - _%L133260%_ - _%L133261%_) - (let* ((_%g133299133327%_ - (lambda (_%g133300133323%_) + (_%__kont136435136436%_ + (lambda (_%L133528%_ + _%L133530%_ + _%L133531%_ + _%L133532%_ + _%L133533%_ + _%L133534%_ + _%L133535%_) + (let* ((_%g133573133601%_ + (lambda (_%g133574133597%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133300133323%_)))) - (_%g133298133463%_ - (lambda (_%g133300133331%_) + _%g133574133597%_)))) + (_%g133572133737%_ + (lambda (_%g133574133605%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133300133331%_)) - (let ((_%e133304133334%_ + (gx#stx-pair? _%g133574133605%_)) + (let ((_%e133578133608%_ (let () (declare (not safe)) - (gx#syntax-e _%g133300133331%_)))) - (let ((_%hd133305133338%_ + (gx#syntax-e _%g133574133605%_)))) + (let ((_%hd133579133612%_ (let () (declare (not safe)) - (##car _%e133304133334%_))) - (_%tl133306133341%_ + (##car _%e133578133608%_))) + (_%tl133580133615%_ (let () (declare (not safe)) - (##cdr _%e133304133334%_)))) + (##cdr _%e133578133608%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133306133341%_)) - (let ((_%e133307133344%_ + (gx#stx-pair? _%tl133580133615%_)) + (let ((_%e133581133618%_ (let () (declare (not safe)) (gx#syntax-e - _%tl133306133341%_)))) - (let ((_%hd133308133348%_ + _%tl133580133615%_)))) + (let ((_%hd133582133622%_ (let () (declare (not safe)) - (##car _%e133307133344%_))) - (_%tl133309133351%_ + (##car _%e133581133618%_))) + (_%tl133583133625%_ (let () (declare (not safe)) - (##cdr _%e133307133344%_)))) + (##cdr _%e133581133618%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd133308133348%_)) - (let ((_g136415_ + _%hd133582133622%_)) + (let ((_g136689_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd133308133348%_ + _%hd133582133622%_ '0)))) (begin - (let ((_g136416_ + (let ((_g136690_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g136415_) - (##vector-length _g136415_) + _g136689_) + (##vector-length _g136689_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g136416_ 2))) - (error "Context expects 2 values" _g136416_))) + (if (not (let () (declare (not safe)) (##fx= _g136690_ 2))) + (error "Context expects 2 values" _g136690_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target133310133354%_ + (let ((_%target133584133628%_ (let () (declare (not safe)) (##vector-ref - _g136415_ + _g136689_ 0))) - (_%tl133312133357%_ + (_%tl133586133631%_ (let () (declare (not safe)) (##vector-ref - _g136415_ + _g136689_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133312133357%_)) - (letrec ((_%loop133313133360%_ + _%tl133586133631%_)) + (letrec ((_%loop133587133634%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd133311133364%_ - _%super-bind-methods!133317133367%_) + (lambda (_%hd133585133638%_ + _%super-bind-methods!133591133641%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133311133364%_)) - (let ((_%e133314133370%_ + (gx#stx-pair? _%hd133585133638%_)) + (let ((_%e133588133644%_ (let () (declare (not safe)) - (gx#syntax-e _%hd133311133364%_)))) - (let ((_%lp-hd133315133374%_ + (gx#syntax-e _%hd133585133638%_)))) + (let ((_%lp-hd133589133648%_ (let () (declare (not safe)) - (##car _%e133314133370%_))) - (_%lp-tl133316133377%_ + (##car _%e133588133644%_))) + (_%lp-tl133590133651%_ (let () (declare (not safe)) - (##cdr _%e133314133370%_)))) - (_%loop133313133360%_ - _%lp-tl133316133377%_ - (cons _%lp-hd133315133374%_ - _%super-bind-methods!133317133367%_)))) - (let ((_%super-bind-methods!133318133380%_ - (reverse _%super-bind-methods!133317133367%_))) + (##cdr _%e133588133644%_)))) + (_%loop133587133634%_ + _%lp-tl133590133651%_ + (cons _%lp-hd133589133648%_ + _%super-bind-methods!133591133641%_)))) + (let ((_%super-bind-methods!133592133654%_ + (reverse _%super-bind-methods!133591133641%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133309133351%_)) - (let ((_%e133319133384%_ + (gx#stx-pair? _%tl133583133625%_)) + (let ((_%e133593133658%_ (let () (declare (not safe)) (gx#syntax-e - _%tl133309133351%_)))) - (let ((_%hd133320133388%_ + _%tl133583133625%_)))) + (let ((_%hd133594133662%_ (let () (declare (not safe)) - (##car _%e133319133384%_))) - (_%tl133321133391%_ + (##car _%e133593133658%_))) + (_%tl133595133665%_ (let () (declare (not safe)) - (##cdr _%e133319133384%_)))) + (##cdr _%e133593133658%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133321133391%_)) - ((lambda (_%L133394%_ - _%L133396%_ - _%L133397%_) + _%tl133595133665%_)) + ((lambda (_%L133668%_ + _%L133670%_ + _%L133671%_) (cons (let () (declare (not safe)) @@ -717,22 +717,22 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'defclass)) - (cons (cons _%L133259%_ - (let ((__tmp136417 - (lambda (_%g133428133431%_ - _%g133429133434%_) - (cons _%g133428133431%_ - _%g133429133434%_)))) + (cons (cons _%L133533%_ + (let ((__tmp136691 + (lambda (_%g133702133705%_ + _%g133703133708%_) + (cons _%g133702133705%_ + _%g133703133708%_)))) (declare (not safe)) (__foldr1 - __tmp136417 + __tmp136691 '() - _%L133258%_))) - (cons _%L133257%_ '()))) + _%L133532%_))) + (cons _%L133531%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons _%L133397%_ + (cons _%L133671%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -742,67 +742,67 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp136420 - (lambda (_%g133423133437%_ _%g133424133440%_) + (let ((__tmp136694 + (lambda (_%g133697133711%_ _%g133698133714%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force)) - (cons _%g133423133437%_ '())) - _%g133424133440%_))) - (__tmp136418 + (cons _%g133697133711%_ '())) + _%g133698133714%_))) + (__tmp136692 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L133254%_ - _%L133256%_)) - (let ((__tmp136419 - (lambda (_%g133425133443%_ - _%g133426133446%_ - _%g133427133448%_) + _%L133528%_ + _%L133530%_)) + (let ((__tmp136693 + (lambda (_%g133699133717%_ + _%g133700133720%_ + _%g133701133722%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!)) - (cons _%L133394%_ + (cons _%L133668%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g133426133446%_ '())) - (cons _%g133425133443%_ '())))) + (cons _%g133700133720%_ '())) + (cons _%g133699133717%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g133427133448%_)))) + _%g133701133722%_)))) (declare (not safe)) (__foldr2 - __tmp136419 + __tmp136693 '() - _%L133254%_ - _%L133256%_))))) + _%L133528%_ + _%L133530%_))))) (declare (not safe)) - (__foldr1 __tmp136420 __tmp136418 _%L133396%_))) + (__foldr1 __tmp136694 __tmp136692 _%L133670%_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons (cons _%L133261%_ + (cons (cons _%L133535%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx)) - (let ((__tmp136421 + (let ((__tmp136695 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g133421133451%_ _%g133422133454%_) - (cons _%g133421133451%_ _%g133422133454%_)))) + (lambda (_%g133695133725%_ _%g133696133728%_) + (cons _%g133695133725%_ _%g133696133728%_)))) (declare (not safe)) - (__foldr1 __tmp136421 '() _%L133260%_)))) + (__foldr1 __tmp136695 '() _%L133534%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () (declare @@ -810,7 +810,7 @@ (gx#datum->syntax__0 '#f 'force)) - (cons _%L133397%_ + (cons _%L133671%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons (let () @@ -819,18 +819,18 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self)) - (cons (cons _%L133259%_ - (let ((__tmp136422 - (lambda (_%g133419133457%_ + (cons (cons _%L133533%_ + (let ((__tmp136696 + (lambda (_%g133693133731%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g133420133460%_) - (cons _%g133419133457%_ _%g133420133460%_)))) + _%g133694133734%_) + (cons _%g133693133731%_ _%g133694133734%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp136422 + __tmp136696 '() - _%L133260%_))) + _%L133534%_))) '())) (cons (cons (let () (declare (not safe)) @@ -867,187 +867,187 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd133320133388%_ - _%super-bind-methods!133318133380%_ - _%hd133305133338%_) - (_%g133299133327%_ - _%g133300133331%_)))) - (_%g133299133327%_ - _%g133300133331%_))))))) - (_%loop133313133360%_ _%target133310133354%_ '())) - (_%g133299133327%_ _%g133300133331%_))))) + _%hd133594133662%_ + _%super-bind-methods!133592133654%_ + _%hd133579133612%_) + (_%g133573133601%_ + _%g133574133605%_)))) + (_%g133573133601%_ + _%g133574133605%_))))))) + (_%loop133587133634%_ _%target133584133628%_ '())) + (_%g133573133601%_ _%g133574133605%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g133299133327%_ - _%g133300133331%_)))) - (_%g133299133327%_ - _%g133300133331%_)))) - (_%g133299133327%_ _%g133300133331%_))))) - (_%g133298133463%_ + (_%g133573133601%_ + _%g133574133605%_)))) + (_%g133573133601%_ + _%g133574133605%_)))) + (_%g133573133601%_ _%g133574133605%_))))) + (_%g133572133737%_ (list (let () (declare (not safe)) (gx#stx-identifier - _%L133259%_ - _%L133259%_ + _%L133533%_ + _%L133533%_ '"-bind-methods!")) - (map (lambda (_%super133467%_) + (map (lambda (_%super133741%_) (let () (declare (not safe)) (gx#stx-identifier - _%super133467%_ - _%super133467%_ + _%super133741%_ + _%super133741%_ '"-bind-methods!"))) - (let ((__tmp136423 - (lambda (_%g133469133472%_ - _%g133470133475%_) - (cons _%g133469133472%_ - _%g133470133475%_)))) + (let ((__tmp136697 + (lambda (_%g133743133746%_ + _%g133744133749%_) + (cons _%g133743133746%_ + _%g133744133749%_)))) (declare (not safe)) - (__foldr1 __tmp136423 '() _%L133258%_))) + (__foldr1 __tmp136697 '() _%L133532%_))) (let () (declare (not safe)) (gx#stx-identifier - _%L133259%_ - _%L133259%_ + _%L133533%_ + _%L133533%_ '"::t"))))))) - (_%__kont136169136170%_ - (lambda (_%L132844%_ - _%L132846%_ - _%L132847%_ - _%L132848%_ - _%L132849%_ - _%L132850%_ - _%L132851%_) - (let* ((_%g132894132922%_ - (lambda (_%g132895132918%_) + (_%__kont136443136444%_ + (lambda (_%L133118%_ + _%L133120%_ + _%L133121%_ + _%L133122%_ + _%L133123%_ + _%L133124%_ + _%L133125%_) + (let* ((_%g133168133196%_ + (lambda (_%g133169133192%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g132895132918%_)))) - (_%g132893133058%_ - (lambda (_%g132895132926%_) + _%g133169133192%_)))) + (_%g133167133332%_ + (lambda (_%g133169133200%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g132895132926%_)) - (let ((_%e132899132929%_ + (gx#stx-pair? _%g133169133200%_)) + (let ((_%e133173133203%_ (let () (declare (not safe)) - (gx#syntax-e _%g132895132926%_)))) - (let ((_%hd132900132933%_ + (gx#syntax-e _%g133169133200%_)))) + (let ((_%hd133174133207%_ (let () (declare (not safe)) - (##car _%e132899132929%_))) - (_%tl132901132936%_ + (##car _%e133173133203%_))) + (_%tl133175133210%_ (let () (declare (not safe)) - (##cdr _%e132899132929%_)))) + (##cdr _%e133173133203%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132901132936%_)) - (let ((_%e132902132939%_ + (gx#stx-pair? _%tl133175133210%_)) + (let ((_%e133176133213%_ (let () (declare (not safe)) (gx#syntax-e - _%tl132901132936%_)))) - (let ((_%hd132903132943%_ + _%tl133175133210%_)))) + (let ((_%hd133177133217%_ (let () (declare (not safe)) - (##car _%e132902132939%_))) - (_%tl132904132946%_ + (##car _%e133176133213%_))) + (_%tl133178133220%_ (let () (declare (not safe)) - (##cdr _%e132902132939%_)))) + (##cdr _%e133176133213%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd132903132943%_)) - (let ((_g136424_ + _%hd133177133217%_)) + (let ((_g136698_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd132903132943%_ + _%hd133177133217%_ '0)))) (begin - (let ((_g136425_ + (let ((_g136699_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g136424_) - (##vector-length _g136424_) + _g136698_) + (##vector-length _g136698_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g136425_ 2))) - (error "Context expects 2 values" _g136425_))) + (if (not (let () (declare (not safe)) (##fx= _g136699_ 2))) + (error "Context expects 2 values" _g136699_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target132905132949%_ + (let ((_%target133179133223%_ (let () (declare (not safe)) (##vector-ref - _g136424_ + _g136698_ 0))) - (_%tl132907132952%_ + (_%tl133181133226%_ (let () (declare (not safe)) (##vector-ref - _g136424_ + _g136698_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132907132952%_)) - (letrec ((_%loop132908132955%_ + _%tl133181133226%_)) + (letrec ((_%loop133182133229%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd132906132959%_ - _%super-bind-methods!132912132962%_) + (lambda (_%hd133180133233%_ + _%super-bind-methods!133186133236%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd132906132959%_)) - (let ((_%e132909132965%_ + (gx#stx-pair? _%hd133180133233%_)) + (let ((_%e133183133239%_ (let () (declare (not safe)) - (gx#syntax-e _%hd132906132959%_)))) - (let ((_%lp-hd132910132969%_ + (gx#syntax-e _%hd133180133233%_)))) + (let ((_%lp-hd133184133243%_ (let () (declare (not safe)) - (##car _%e132909132965%_))) - (_%lp-tl132911132972%_ + (##car _%e133183133239%_))) + (_%lp-tl133185133246%_ (let () (declare (not safe)) - (##cdr _%e132909132965%_)))) - (_%loop132908132955%_ - _%lp-tl132911132972%_ - (cons _%lp-hd132910132969%_ - _%super-bind-methods!132912132962%_)))) - (let ((_%super-bind-methods!132913132975%_ - (reverse _%super-bind-methods!132912132962%_))) + (##cdr _%e133183133239%_)))) + (_%loop133182133229%_ + _%lp-tl133185133246%_ + (cons _%lp-hd133184133243%_ + _%super-bind-methods!133186133236%_)))) + (let ((_%super-bind-methods!133187133249%_ + (reverse _%super-bind-methods!133186133236%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132904132946%_)) - (let ((_%e132914132979%_ + (gx#stx-pair? _%tl133178133220%_)) + (let ((_%e133188133253%_ (let () (declare (not safe)) (gx#syntax-e - _%tl132904132946%_)))) - (let ((_%hd132915132983%_ + _%tl133178133220%_)))) + (let ((_%hd133189133257%_ (let () (declare (not safe)) - (##car _%e132914132979%_))) - (_%tl132916132986%_ + (##car _%e133188133253%_))) + (_%tl133190133260%_ (let () (declare (not safe)) - (##cdr _%e132914132979%_)))) + (##cdr _%e133188133253%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132916132986%_)) - ((lambda (_%L132989%_ - _%L132991%_ - _%L132992%_) + _%tl133190133260%_)) + ((lambda (_%L133263%_ + _%L133265%_ + _%L133266%_) (cons (let () (declare (not safe)) @@ -1058,23 +1058,23 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'defclass)) - (cons (cons _%L132849%_ - (let ((__tmp136426 - (lambda (_%g133023133026%_ - _%g133024133029%_) - (cons _%g133023133026%_ - _%g133024133029%_)))) + (cons (cons _%L133123%_ + (let ((__tmp136700 + (lambda (_%g133297133300%_ + _%g133298133303%_) + (cons _%g133297133300%_ + _%g133298133303%_)))) (declare (not safe)) (__foldr1 - __tmp136426 + __tmp136700 '() - _%L132848%_))) - (cons _%L132847%_ + _%L133122%_))) + (cons _%L133121%_ (cons 'final: (cons '#t '()))))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons _%L132992%_ + (cons _%L133266%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1084,75 +1084,75 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp136430 - (lambda (_%g133018133032%_ _%g133019133035%_) + (let ((__tmp136704 + (lambda (_%g133292133306%_ _%g133293133309%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force)) - (cons _%g133018133032%_ '())) - _%g133019133035%_))) - (__tmp136427 + (cons _%g133292133306%_ '())) + _%g133293133309%_))) + (__tmp136701 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L132844%_ - _%L132846%_)) - (let ((__tmp136429 - (lambda (_%g133020133038%_ - _%g133021133041%_ - _%g133022133043%_) + _%L133118%_ + _%L133120%_)) + (let ((__tmp136703 + (lambda (_%g133294133312%_ + _%g133295133315%_ + _%g133296133317%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!)) - (cons _%L132989%_ + (cons _%L133263%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g133021133041%_ '())) - (cons _%g133020133038%_ '())))) + (cons _%g133295133315%_ '())) + (cons _%g133294133312%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g133022133043%_))) - (__tmp136428 + _%g133296133317%_))) + (__tmp136702 (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'seal-class!)) - (cons _%L132989%_ '())) + (cons _%L133263%_ '())) '()))) (declare (not safe)) (__foldr2 - __tmp136429 - __tmp136428 - _%L132844%_ - _%L132846%_))))) + __tmp136703 + __tmp136702 + _%L133118%_ + _%L133120%_))))) (declare (not safe)) - (__foldr1 __tmp136430 __tmp136427 _%L132991%_))) + (__foldr1 __tmp136704 __tmp136701 _%L133265%_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons (cons _%L132851%_ + (cons (cons _%L133125%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx)) - (let ((__tmp136431 + (let ((__tmp136705 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g133016133046%_ _%g133017133049%_) - (cons _%g133016133046%_ _%g133017133049%_)))) + (lambda (_%g133290133320%_ _%g133291133323%_) + (cons _%g133290133320%_ _%g133291133323%_)))) (declare (not safe)) - (__foldr1 __tmp136431 '() _%L132850%_)))) + (__foldr1 __tmp136705 '() _%L133124%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () (declare @@ -1160,7 +1160,7 @@ (gx#datum->syntax__0 '#f 'force)) - (cons _%L132992%_ + (cons _%L133266%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons (let () @@ -1169,18 +1169,18 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self)) - (cons (cons _%L132849%_ - (let ((__tmp136432 - (lambda (_%g133014133052%_ + (cons (cons _%L133123%_ + (let ((__tmp136706 + (lambda (_%g133288133326%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g133015133055%_) - (cons _%g133014133052%_ _%g133015133055%_)))) + _%g133289133329%_) + (cons _%g133288133326%_ _%g133289133329%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp136432 + __tmp136706 '() - _%L132850%_))) + _%L133124%_))) '())) (cons (cons (let () (declare (not safe)) @@ -1217,1364 +1217,1364 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd132915132983%_ - _%super-bind-methods!132913132975%_ - _%hd132900132933%_) - (_%g132894132922%_ - _%g132895132926%_)))) - (_%g132894132922%_ - _%g132895132926%_))))))) - (_%loop132908132955%_ _%target132905132949%_ '())) - (_%g132894132922%_ _%g132895132926%_))))) + _%hd133189133257%_ + _%super-bind-methods!133187133249%_ + _%hd133174133207%_) + (_%g133168133196%_ + _%g133169133200%_)))) + (_%g133168133196%_ + _%g133169133200%_))))))) + (_%loop133182133229%_ _%target133179133223%_ '())) + (_%g133168133196%_ _%g133169133200%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g132894132922%_ - _%g132895132926%_)))) - (_%g132894132922%_ - _%g132895132926%_)))) - (_%g132894132922%_ _%g132895132926%_))))) - (_%g132893133058%_ + (_%g133168133196%_ + _%g133169133200%_)))) + (_%g133168133196%_ + _%g133169133200%_)))) + (_%g133168133196%_ _%g133169133200%_))))) + (_%g133167133332%_ (list (let () (declare (not safe)) (gx#stx-identifier - _%L132849%_ - _%L132849%_ + _%L133123%_ + _%L133123%_ '"-bind-methods!")) - (map (lambda (_%super133062%_) + (map (lambda (_%super133336%_) (let () (declare (not safe)) (gx#stx-identifier - _%super133062%_ - _%super133062%_ + _%super133336%_ + _%super133336%_ '"-bind-methods!"))) - (let ((__tmp136433 - (lambda (_%g133064133067%_ - _%g133065133070%_) - (cons _%g133064133067%_ - _%g133065133070%_)))) + (let ((__tmp136707 + (lambda (_%g133338133341%_ + _%g133339133344%_) + (cons _%g133338133341%_ + _%g133339133344%_)))) (declare (not safe)) - (__foldr1 __tmp136433 '() _%L132848%_))) + (__foldr1 __tmp136707 '() _%L133122%_))) (let () (declare (not safe)) (gx#stx-identifier - _%L132849%_ - _%L132849%_ + _%L133123%_ + _%L133123%_ '"::t")))))))) - (let* ((_%__match136291136292%_ - (lambda (_%e132587132656%_ - _%hd132588132660%_ - _%tl132589132663%_ - _%e132590132666%_ - _%hd132591132670%_ - _%tl132592132673%_ - _%e132593132676%_ - _%hd132594132680%_ - _%tl132595132683%_ - _%__splice136171136172%_ - _%target132596132686%_ - _%tl132598132689%_) - (letrec ((_%loop132599132692%_ - (lambda (_%hd132597132696%_ - _%arg132603132699%_) + (let* ((_%__match136565136566%_ + (lambda (_%e132861132930%_ + _%hd132862132934%_ + _%tl132863132937%_ + _%e132864132940%_ + _%hd132865132944%_ + _%tl132866132947%_ + _%e132867132950%_ + _%hd132868132954%_ + _%tl132869132957%_ + _%__splice136445136446%_ + _%target132870132960%_ + _%tl132872132963%_) + (letrec ((_%loop132873132966%_ + (lambda (_%hd132871132970%_ + _%arg132877132973%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd132597132696%_)) - (let ((_%e132600132702%_ + (gx#stx-pair? _%hd132871132970%_)) + (let ((_%e132874132976%_ (let () (declare (not safe)) (gx#syntax-e - _%hd132597132696%_)))) - (let ((_%lp-tl132602132709%_ + _%hd132871132970%_)))) + (let ((_%lp-tl132876132983%_ (let () (declare (not safe)) - (##cdr _%e132600132702%_))) - (_%lp-hd132601132706%_ + (##cdr _%e132874132976%_))) + (_%lp-hd132875132980%_ (let () (declare (not safe)) - (##car _%e132600132702%_)))) - (_%loop132599132692%_ - _%lp-tl132602132709%_ - (cons _%lp-hd132601132706%_ - _%arg132603132699%_)))) - (let ((_%arg132604132712%_ - (reverse _%arg132603132699%_))) + (##car _%e132874132976%_)))) + (_%loop132873132966%_ + _%lp-tl132876132983%_ + (cons _%lp-hd132875132980%_ + _%arg132877132973%_)))) + (let ((_%arg132878132986%_ + (reverse _%arg132877132973%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl132592132673%_)) - (let ((_%e132605132716%_ + _%tl132866132947%_)) + (let ((_%e132879132990%_ (let () (declare (not safe)) (gx#syntax-e - _%tl132592132673%_)))) - (let ((_%tl132607132723%_ + _%tl132866132947%_)))) + (let ((_%tl132881132997%_ (let () (declare (not safe)) - (##cdr _%e132605132716%_))) - (_%hd132606132720%_ + (##cdr _%e132879132990%_))) + (_%hd132880132994%_ (let () (declare (not safe)) - (##car _%e132605132716%_)))) + (##car _%e132879132990%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd132606132720%_)) - (let ((_%e132608132726%_ + _%hd132880132994%_)) + (let ((_%e132882133000%_ (let () (declare (not safe)) (gx#syntax-e - _%hd132606132720%_)))) - (let ((_%tl132610132733%_ + _%hd132880132994%_)))) + (let ((_%tl132884133007%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e132608132726%_))) - (_%hd132609132730%_ - (let () (declare (not safe)) (##car _%e132608132726%_)))) + (##cdr _%e132882133000%_))) + (_%hd132883133004%_ + (let () (declare (not safe)) (##car _%e132882133000%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl132610132733%_)) - (let ((_%__splice136173136174%_ + (gx#stx-pair/null? _%tl132884133007%_)) + (let ((_%__splice136447136448%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl132610132733%_ '0)))) - (let ((_%tl132613132739%_ + (gx#syntax-split-splice _%tl132884133007%_ '0)))) + (let ((_%tl132887133013%_ (let () (declare (not safe)) - (##vector-ref _%__splice136173136174%_ '1))) - (_%target132611132736%_ + (##vector-ref _%__splice136447136448%_ '1))) + (_%target132885133010%_ (let () (declare (not safe)) - (##vector-ref _%__splice136173136174%_ '0)))) + (##vector-ref _%__splice136447136448%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132613132739%_)) - (letrec ((_%loop132614132742%_ - (lambda (_%hd132612132746%_ - _%super132618132749%_) + (gx#stx-null? _%tl132887133013%_)) + (letrec ((_%loop132888133016%_ + (lambda (_%hd132886133020%_ + _%super132892133023%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd132612132746%_)) - (let ((_%e132615132752%_ + _%hd132886133020%_)) + (let ((_%e132889133026%_ (let () (declare (not safe)) (gx#syntax-e - _%hd132612132746%_)))) - (let ((_%lp-tl132617132759%_ + _%hd132886133020%_)))) + (let ((_%lp-tl132891133033%_ (let () (declare (not safe)) - (##cdr _%e132615132752%_))) - (_%lp-hd132616132756%_ + (##cdr _%e132889133026%_))) + (_%lp-hd132890133030%_ (let () (declare (not safe)) - (##car _%e132615132752%_)))) - (_%loop132614132742%_ - _%lp-tl132617132759%_ - (cons _%lp-hd132616132756%_ - _%super132618132749%_)))) - (let ((_%super132619132762%_ - (reverse _%super132618132749%_))) + (##car _%e132889133026%_)))) + (_%loop132888133016%_ + _%lp-tl132891133033%_ + (cons _%lp-hd132890133030%_ + _%super132892133023%_)))) + (let ((_%super132893133036%_ + (reverse _%super132892133023%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl132607132723%_)) - (let ((_%e132620132766%_ + _%tl132881132997%_)) + (let ((_%e132894133040%_ (let () (declare (not safe)) (gx#syntax-e - _%tl132607132723%_)))) - (let ((_%tl132622132773%_ + _%tl132881132997%_)))) + (let ((_%tl132896133047%_ (let () (declare (not safe)) - (##cdr _%e132620132766%_))) - (_%hd132621132770%_ + (##cdr _%e132894133040%_))) + (_%hd132895133044%_ (let () (declare (not safe)) - (##car _%e132620132766%_)))) + (##car _%e132894133040%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl132622132773%_)) - (let ((_%e132623132776%_ + _%tl132896133047%_)) + (let ((_%e132897133050%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl132622132773%_)))) - (let ((_%tl132625132783%_ + (gx#syntax-e _%tl132896133047%_)))) + (let ((_%tl132899133057%_ (let () (declare (not safe)) - (##cdr _%e132623132776%_))) - (_%hd132624132780%_ + (##cdr _%e132897133050%_))) + (_%hd132898133054%_ (let () (declare (not safe)) - (##car _%e132623132776%_)))) + (##car _%e132897133050%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd132624132780%_)) - (let ((_%e132626132786%_ + (gx#stx-datum? _%hd132898133054%_)) + (let ((_%e132900133060%_ (let () (declare (not safe)) - (gx#stx-e _%hd132624132780%_)))) - (if (equal? _%e132626132786%_ 'final:) + (gx#stx-e _%hd132898133054%_)))) + (if (equal? _%e132900133060%_ 'final:) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl132625132783%_)) - (let ((_%__splice136175136176%_ + (gx#stx-pair/null? _%tl132899133057%_)) + (let ((_%__splice136449136450%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl132625132783%_ + _%tl132899133057%_ '0)))) - (let ((_%tl132629132793%_ + (let ((_%tl132903133067%_ (let () (declare (not safe)) (##vector-ref - _%__splice136175136176%_ + _%__splice136449136450%_ '1))) - (_%target132627132790%_ + (_%target132901133064%_ (let () (declare (not safe)) (##vector-ref - _%__splice136175136176%_ + _%__splice136449136450%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132629132793%_)) - (letrec ((_%loop132630132796%_ - (lambda (_%hd132628132800%_ - _%implementation132634132803%_ - _%method132635132805%_) + _%tl132903133067%_)) + (letrec ((_%loop132904133070%_ + (lambda (_%hd132902133074%_ + _%implementation132908133077%_ + _%method132909133079%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd132628132800%_)) - (let ((_%e132631132808%_ + _%hd132902133074%_)) + (let ((_%e132905133082%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%hd132628132800%_)))) - (let ((_%lp-tl132633132815%_ + (gx#syntax-e _%hd132902133074%_)))) + (let ((_%lp-tl132907133089%_ (let () (declare (not safe)) - (##cdr _%e132631132808%_))) - (_%lp-hd132632132812%_ + (##cdr _%e132905133082%_))) + (_%lp-hd132906133086%_ (let () (declare (not safe)) - (##car _%e132631132808%_)))) + (##car _%e132905133082%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd132632132812%_)) - (let ((_%e132638132818%_ + (gx#stx-pair? _%lp-hd132906133086%_)) + (let ((_%e132912133092%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd132632132812%_)))) - (let ((_%tl132640132825%_ + (gx#syntax-e _%lp-hd132906133086%_)))) + (let ((_%tl132914133099%_ (let () (declare (not safe)) - (##cdr _%e132638132818%_))) - (_%hd132639132822%_ + (##cdr _%e132912133092%_))) + (_%hd132913133096%_ (let () (declare (not safe)) - (##car _%e132638132818%_)))) + (##car _%e132912133092%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132640132825%_)) - (let ((_%e132641132828%_ + (gx#stx-pair? _%tl132914133099%_)) + (let ((_%e132915133102%_ (let () (declare (not safe)) (gx#syntax-e - _%tl132640132825%_)))) - (let ((_%tl132643132835%_ + _%tl132914133099%_)))) + (let ((_%tl132917133109%_ (let () (declare (not safe)) - (##cdr _%e132641132828%_))) - (_%hd132642132832%_ + (##cdr _%e132915133102%_))) + (_%hd132916133106%_ (let () (declare (not safe)) - (##car _%e132641132828%_)))) + (##car _%e132915133102%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132643132835%_)) - (_%loop132630132796%_ - _%lp-tl132633132815%_ - (cons _%hd132642132832%_ - _%implementation132634132803%_) - (cons _%hd132639132822%_ - _%method132635132805%_)) + _%tl132917133109%_)) + (_%loop132904133070%_ + _%lp-tl132907133089%_ + (cons _%hd132916133106%_ + _%implementation132908133077%_) + (cons _%hd132913133096%_ + _%method132909133079%_)) (let () (declare (not safe)) - (_%g132455132649%_))))) + (_%g132729132923%_))))) (let () (declare (not safe)) - (_%g132455132649%_))))) + (_%g132729132923%_))))) (let () (declare (not safe)) - (_%g132455132649%_))))) - (let ((_%method132637132841%_ - (reverse _%method132635132805%_)) - (_%implementation132636132838%_ - (reverse _%implementation132634132803%_))) - (_%__kont136169136170%_ - _%implementation132636132838%_ - _%method132637132841%_ - _%hd132621132770%_ - _%super132619132762%_ - _%hd132609132730%_ - _%arg132604132712%_ - _%hd132594132680%_)))))) + (_%g132729132923%_))))) + (let ((_%method132911133115%_ + (reverse _%method132909133079%_)) + (_%implementation132910133112%_ + (reverse _%implementation132908133077%_))) + (_%__kont136443136444%_ + _%implementation132910133112%_ + _%method132911133115%_ + _%hd132895133044%_ + _%super132893133036%_ + _%hd132883133004%_ + _%arg132878132986%_ + _%hd132868132954%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop132630132796%_ - _%target132627132790%_ + (_%loop132904133070%_ + _%target132901133064%_ '() '())) (let () (declare (not safe)) - (_%g132455132649%_))))) + (_%g132729132923%_))))) (let () (declare (not safe)) - (_%g132455132649%_))) + (_%g132729132923%_))) (let () (declare (not safe)) - (_%g132455132649%_)))) - (let () (declare (not safe)) (_%g132455132649%_))))) - (let () (declare (not safe)) (_%g132455132649%_))))) + (_%g132729132923%_)))) + (let () (declare (not safe)) (_%g132729132923%_))))) + (let () (declare (not safe)) (_%g132729132923%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g132455132649%_)))))))) - (_%loop132614132742%_ - _%target132611132736%_ + (_%g132729132923%_)))))))) + (_%loop132888133016%_ + _%target132885133010%_ '())) (let () (declare (not safe)) - (_%g132455132649%_))))) - (let () (declare (not safe)) (_%g132455132649%_))))) + (_%g132729132923%_))))) + (let () (declare (not safe)) (_%g132729132923%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g132455132649%_))))) + (_%g132729132923%_))))) (let () (declare (not safe)) - (_%g132455132649%_)))))))) - (_%loop132599132692%_ _%target132596132686%_ '())))) - (_%__match136265136266%_ - (lambda (_%e132527133080%_ - _%hd132528133084%_ - _%tl132529133087%_ - _%e132530133090%_ - _%hd132531133094%_ - _%tl132532133097%_ - _%e132533133100%_ - _%hd132534133104%_ - _%tl132535133107%_ - _%__splice136163136164%_ - _%target132536133110%_ - _%tl132538133113%_) - (letrec ((_%loop132539133116%_ - (lambda (_%hd132537133120%_ - _%arg132543133123%_) + (_%g132729132923%_)))))))) + (_%loop132873132966%_ _%target132870132960%_ '())))) + (_%__match136539136540%_ + (lambda (_%e132801133354%_ + _%hd132802133358%_ + _%tl132803133361%_ + _%e132804133364%_ + _%hd132805133368%_ + _%tl132806133371%_ + _%e132807133374%_ + _%hd132808133378%_ + _%tl132809133381%_ + _%__splice136437136438%_ + _%target132810133384%_ + _%tl132812133387%_) + (letrec ((_%loop132813133390%_ + (lambda (_%hd132811133394%_ + _%arg132817133397%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd132537133120%_)) - (let ((_%e132540133126%_ + (gx#stx-pair? _%hd132811133394%_)) + (let ((_%e132814133400%_ (let () (declare (not safe)) (gx#syntax-e - _%hd132537133120%_)))) - (let ((_%lp-tl132542133133%_ + _%hd132811133394%_)))) + (let ((_%lp-tl132816133407%_ (let () (declare (not safe)) - (##cdr _%e132540133126%_))) - (_%lp-hd132541133130%_ + (##cdr _%e132814133400%_))) + (_%lp-hd132815133404%_ (let () (declare (not safe)) - (##car _%e132540133126%_)))) - (_%loop132539133116%_ - _%lp-tl132542133133%_ - (cons _%lp-hd132541133130%_ - _%arg132543133123%_)))) - (let ((_%arg132544133136%_ - (reverse _%arg132543133123%_))) + (##car _%e132814133400%_)))) + (_%loop132813133390%_ + _%lp-tl132816133407%_ + (cons _%lp-hd132815133404%_ + _%arg132817133397%_)))) + (let ((_%arg132818133410%_ + (reverse _%arg132817133397%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl132532133097%_)) - (let ((_%e132545133140%_ + _%tl132806133371%_)) + (let ((_%e132819133414%_ (let () (declare (not safe)) (gx#syntax-e - _%tl132532133097%_)))) - (let ((_%tl132547133147%_ + _%tl132806133371%_)))) + (let ((_%tl132821133421%_ (let () (declare (not safe)) - (##cdr _%e132545133140%_))) - (_%hd132546133144%_ + (##cdr _%e132819133414%_))) + (_%hd132820133418%_ (let () (declare (not safe)) - (##car _%e132545133140%_)))) + (##car _%e132819133414%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd132546133144%_)) - (let ((_%e132548133150%_ + _%hd132820133418%_)) + (let ((_%e132822133424%_ (let () (declare (not safe)) (gx#syntax-e - _%hd132546133144%_)))) - (let ((_%tl132550133157%_ + _%hd132820133418%_)))) + (let ((_%tl132824133431%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e132548133150%_))) - (_%hd132549133154%_ - (let () (declare (not safe)) (##car _%e132548133150%_)))) + (##cdr _%e132822133424%_))) + (_%hd132823133428%_ + (let () (declare (not safe)) (##car _%e132822133424%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl132550133157%_)) - (let ((_%__splice136165136166%_ + (gx#stx-pair/null? _%tl132824133431%_)) + (let ((_%__splice136439136440%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl132550133157%_ '0)))) - (let ((_%tl132553133163%_ + (gx#syntax-split-splice _%tl132824133431%_ '0)))) + (let ((_%tl132827133437%_ (let () (declare (not safe)) - (##vector-ref _%__splice136165136166%_ '1))) - (_%target132551133160%_ + (##vector-ref _%__splice136439136440%_ '1))) + (_%target132825133434%_ (let () (declare (not safe)) - (##vector-ref _%__splice136165136166%_ '0)))) + (##vector-ref _%__splice136439136440%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132553133163%_)) - (letrec ((_%loop132554133166%_ - (lambda (_%hd132552133170%_ - _%super132558133173%_) + (gx#stx-null? _%tl132827133437%_)) + (letrec ((_%loop132828133440%_ + (lambda (_%hd132826133444%_ + _%super132832133447%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd132552133170%_)) - (let ((_%e132555133176%_ + _%hd132826133444%_)) + (let ((_%e132829133450%_ (let () (declare (not safe)) (gx#syntax-e - _%hd132552133170%_)))) - (let ((_%lp-tl132557133183%_ + _%hd132826133444%_)))) + (let ((_%lp-tl132831133457%_ (let () (declare (not safe)) - (##cdr _%e132555133176%_))) - (_%lp-hd132556133180%_ + (##cdr _%e132829133450%_))) + (_%lp-hd132830133454%_ (let () (declare (not safe)) - (##car _%e132555133176%_)))) - (_%loop132554133166%_ - _%lp-tl132557133183%_ - (cons _%lp-hd132556133180%_ - _%super132558133173%_)))) - (let ((_%super132559133186%_ - (reverse _%super132558133173%_))) + (##car _%e132829133450%_)))) + (_%loop132828133440%_ + _%lp-tl132831133457%_ + (cons _%lp-hd132830133454%_ + _%super132832133447%_)))) + (let ((_%super132833133460%_ + (reverse _%super132832133447%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl132547133147%_)) - (let ((_%e132560133190%_ + _%tl132821133421%_)) + (let ((_%e132834133464%_ (let () (declare (not safe)) (gx#syntax-e - _%tl132547133147%_)))) - (let ((_%tl132562133197%_ + _%tl132821133421%_)))) + (let ((_%tl132836133471%_ (let () (declare (not safe)) - (##cdr _%e132560133190%_))) - (_%hd132561133194%_ + (##cdr _%e132834133464%_))) + (_%hd132835133468%_ (let () (declare (not safe)) - (##car _%e132560133190%_)))) + (##car _%e132834133464%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl132562133197%_)) - (let ((_%__splice136167136168%_ + _%tl132836133471%_)) + (let ((_%__splice136441136442%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%tl132562133197%_ '0)))) - (let ((_%tl132565133203%_ + (gx#syntax-split-splice _%tl132836133471%_ '0)))) + (let ((_%tl132839133477%_ (let () (declare (not safe)) - (##vector-ref _%__splice136167136168%_ '1))) - (_%target132563133200%_ + (##vector-ref _%__splice136441136442%_ '1))) + (_%target132837133474%_ (let () (declare (not safe)) - (##vector-ref _%__splice136167136168%_ '0)))) + (##vector-ref _%__splice136441136442%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132565133203%_)) - (letrec ((_%loop132566133206%_ - (lambda (_%hd132564133210%_ - _%implementation132570133213%_ - _%method132571133215%_) + (gx#stx-null? _%tl132839133477%_)) + (letrec ((_%loop132840133480%_ + (lambda (_%hd132838133484%_ + _%implementation132844133487%_ + _%method132845133489%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd132564133210%_)) - (let ((_%e132567133218%_ + (gx#stx-pair? _%hd132838133484%_)) + (let ((_%e132841133492%_ (let () (declare (not safe)) (gx#syntax-e - _%hd132564133210%_)))) - (let ((_%lp-tl132569133225%_ + _%hd132838133484%_)))) + (let ((_%lp-tl132843133499%_ (let () (declare (not safe)) - (##cdr _%e132567133218%_))) - (_%lp-hd132568133222%_ + (##cdr _%e132841133492%_))) + (_%lp-hd132842133496%_ (let () (declare (not safe)) - (##car _%e132567133218%_)))) + (##car _%e132841133492%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd132568133222%_)) - (let ((_%e132574133228%_ + _%lp-hd132842133496%_)) + (let ((_%e132848133502%_ (let () (declare (not safe)) (gx#syntax-e - _%lp-hd132568133222%_)))) - (let ((_%tl132576133235%_ + _%lp-hd132842133496%_)))) + (let ((_%tl132850133509%_ (let () (declare (not safe)) - (##cdr _%e132574133228%_))) - (_%hd132575133232%_ + (##cdr _%e132848133502%_))) + (_%hd132849133506%_ (let () (declare (not safe)) - (##car _%e132574133228%_)))) + (##car _%e132848133502%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl132576133235%_)) - (let ((_%e132577133238%_ + _%tl132850133509%_)) + (let ((_%e132851133512%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl132576133235%_)))) - (let ((_%tl132579133245%_ + (gx#syntax-e _%tl132850133509%_)))) + (let ((_%tl132853133519%_ (let () (declare (not safe)) - (##cdr _%e132577133238%_))) - (_%hd132578133242%_ + (##cdr _%e132851133512%_))) + (_%hd132852133516%_ (let () (declare (not safe)) - (##car _%e132577133238%_)))) + (##car _%e132851133512%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132579133245%_)) - (_%loop132566133206%_ - _%lp-tl132569133225%_ - (cons _%hd132578133242%_ - _%implementation132570133213%_) - (cons _%hd132575133232%_ _%method132571133215%_)) - (_%__match136291136292%_ - _%e132527133080%_ - _%hd132528133084%_ - _%tl132529133087%_ - _%e132530133090%_ - _%hd132531133094%_ - _%tl132532133097%_ - _%e132533133100%_ - _%hd132534133104%_ - _%tl132535133107%_ - _%__splice136163136164%_ - _%target132536133110%_ - _%tl132538133113%_)))) - (_%__match136291136292%_ - _%e132527133080%_ - _%hd132528133084%_ - _%tl132529133087%_ - _%e132530133090%_ - _%hd132531133094%_ - _%tl132532133097%_ - _%e132533133100%_ - _%hd132534133104%_ - _%tl132535133107%_ - _%__splice136163136164%_ - _%target132536133110%_ - _%tl132538133113%_)))) + (gx#stx-null? _%tl132853133519%_)) + (_%loop132840133480%_ + _%lp-tl132843133499%_ + (cons _%hd132852133516%_ + _%implementation132844133487%_) + (cons _%hd132849133506%_ _%method132845133489%_)) + (_%__match136565136566%_ + _%e132801133354%_ + _%hd132802133358%_ + _%tl132803133361%_ + _%e132804133364%_ + _%hd132805133368%_ + _%tl132806133371%_ + _%e132807133374%_ + _%hd132808133378%_ + _%tl132809133381%_ + _%__splice136437136438%_ + _%target132810133384%_ + _%tl132812133387%_)))) + (_%__match136565136566%_ + _%e132801133354%_ + _%hd132802133358%_ + _%tl132803133361%_ + _%e132804133364%_ + _%hd132805133368%_ + _%tl132806133371%_ + _%e132807133374%_ + _%hd132808133378%_ + _%tl132809133381%_ + _%__splice136437136438%_ + _%target132810133384%_ + _%tl132812133387%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match136291136292%_ - _%e132527133080%_ - _%hd132528133084%_ - _%tl132529133087%_ - _%e132530133090%_ - _%hd132531133094%_ - _%tl132532133097%_ - _%e132533133100%_ - _%hd132534133104%_ - _%tl132535133107%_ - _%__splice136163136164%_ - _%target132536133110%_ - _%tl132538133113%_)))) - (let ((_%method132573133251%_ - (reverse _%method132571133215%_)) - (_%implementation132572133248%_ - (reverse _%implementation132570133213%_))) - (_%__kont136161136162%_ - _%implementation132572133248%_ - _%method132573133251%_ - _%hd132561133194%_ - _%super132559133186%_ - _%hd132549133154%_ - _%arg132544133136%_ - _%hd132534133104%_)))))) - (_%loop132566133206%_ - _%target132563133200%_ + (_%__match136565136566%_ + _%e132801133354%_ + _%hd132802133358%_ + _%tl132803133361%_ + _%e132804133364%_ + _%hd132805133368%_ + _%tl132806133371%_ + _%e132807133374%_ + _%hd132808133378%_ + _%tl132809133381%_ + _%__splice136437136438%_ + _%target132810133384%_ + _%tl132812133387%_)))) + (let ((_%method132847133525%_ + (reverse _%method132845133489%_)) + (_%implementation132846133522%_ + (reverse _%implementation132844133487%_))) + (_%__kont136435136436%_ + _%implementation132846133522%_ + _%method132847133525%_ + _%hd132835133468%_ + _%super132833133460%_ + _%hd132823133428%_ + _%arg132818133410%_ + _%hd132808133378%_)))))) + (_%loop132840133480%_ + _%target132837133474%_ '() '())) - (_%__match136291136292%_ - _%e132527133080%_ - _%hd132528133084%_ - _%tl132529133087%_ - _%e132530133090%_ - _%hd132531133094%_ - _%tl132532133097%_ - _%e132533133100%_ - _%hd132534133104%_ - _%tl132535133107%_ - _%__splice136163136164%_ - _%target132536133110%_ - _%tl132538133113%_)))) - (_%__match136291136292%_ - _%e132527133080%_ - _%hd132528133084%_ - _%tl132529133087%_ - _%e132530133090%_ - _%hd132531133094%_ - _%tl132532133097%_ - _%e132533133100%_ - _%hd132534133104%_ - _%tl132535133107%_ - _%__splice136163136164%_ - _%target132536133110%_ - _%tl132538133113%_)))) + (_%__match136565136566%_ + _%e132801133354%_ + _%hd132802133358%_ + _%tl132803133361%_ + _%e132804133364%_ + _%hd132805133368%_ + _%tl132806133371%_ + _%e132807133374%_ + _%hd132808133378%_ + _%tl132809133381%_ + _%__splice136437136438%_ + _%target132810133384%_ + _%tl132812133387%_)))) + (_%__match136565136566%_ + _%e132801133354%_ + _%hd132802133358%_ + _%tl132803133361%_ + _%e132804133364%_ + _%hd132805133368%_ + _%tl132806133371%_ + _%e132807133374%_ + _%hd132808133378%_ + _%tl132809133381%_ + _%__splice136437136438%_ + _%target132810133384%_ + _%tl132812133387%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match136291136292%_ - _%e132527133080%_ - _%hd132528133084%_ - _%tl132529133087%_ - _%e132530133090%_ - _%hd132531133094%_ - _%tl132532133097%_ - _%e132533133100%_ - _%hd132534133104%_ - _%tl132535133107%_ - _%__splice136163136164%_ - _%target132536133110%_ - _%tl132538133113%_))))))) - (_%loop132554133166%_ - _%target132551133160%_ + (_%__match136565136566%_ + _%e132801133354%_ + _%hd132802133358%_ + _%tl132803133361%_ + _%e132804133364%_ + _%hd132805133368%_ + _%tl132806133371%_ + _%e132807133374%_ + _%hd132808133378%_ + _%tl132809133381%_ + _%__splice136437136438%_ + _%target132810133384%_ + _%tl132812133387%_))))))) + (_%loop132828133440%_ + _%target132825133434%_ '())) - (_%__match136291136292%_ - _%e132527133080%_ - _%hd132528133084%_ - _%tl132529133087%_ - _%e132530133090%_ - _%hd132531133094%_ - _%tl132532133097%_ - _%e132533133100%_ - _%hd132534133104%_ - _%tl132535133107%_ - _%__splice136163136164%_ - _%target132536133110%_ - _%tl132538133113%_)))) - (_%__match136291136292%_ - _%e132527133080%_ - _%hd132528133084%_ - _%tl132529133087%_ - _%e132530133090%_ - _%hd132531133094%_ - _%tl132532133097%_ - _%e132533133100%_ - _%hd132534133104%_ - _%tl132535133107%_ - _%__splice136163136164%_ - _%target132536133110%_ - _%tl132538133113%_)))) + (_%__match136565136566%_ + _%e132801133354%_ + _%hd132802133358%_ + _%tl132803133361%_ + _%e132804133364%_ + _%hd132805133368%_ + _%tl132806133371%_ + _%e132807133374%_ + _%hd132808133378%_ + _%tl132809133381%_ + _%__splice136437136438%_ + _%target132810133384%_ + _%tl132812133387%_)))) + (_%__match136565136566%_ + _%e132801133354%_ + _%hd132802133358%_ + _%tl132803133361%_ + _%e132804133364%_ + _%hd132805133368%_ + _%tl132806133371%_ + _%e132807133374%_ + _%hd132808133378%_ + _%tl132809133381%_ + _%__splice136437136438%_ + _%target132810133384%_ + _%tl132812133387%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match136291136292%_ - _%e132527133080%_ - _%hd132528133084%_ - _%tl132529133087%_ - _%e132530133090%_ - _%hd132531133094%_ - _%tl132532133097%_ - _%e132533133100%_ - _%hd132534133104%_ - _%tl132535133107%_ - _%__splice136163136164%_ - _%target132536133110%_ - _%tl132538133113%_)))) - (_%__match136291136292%_ - _%e132527133080%_ - _%hd132528133084%_ - _%tl132529133087%_ - _%e132530133090%_ - _%hd132531133094%_ - _%tl132532133097%_ - _%e132533133100%_ - _%hd132534133104%_ - _%tl132535133107%_ - _%__splice136163136164%_ - _%target132536133110%_ - _%tl132538133113%_))))))) - (_%loop132539133116%_ _%target132536133110%_ '())))) - (_%__match136239136240%_ - (lambda (_%e132478133485%_ - _%hd132479133489%_ - _%tl132480133492%_ - _%e132481133495%_ - _%hd132482133499%_ - _%tl132483133502%_ - _%e132484133505%_ - _%e132485133509%_ - _%hd132486133513%_ - _%tl132487133516%_ - _%e132488133519%_ - _%hd132489133523%_ - _%tl132490133526%_ - _%__splice136157136158%_ - _%target132491133529%_ - _%tl132493133532%_) - (letrec ((_%loop132494133535%_ - (lambda (_%hd132492133539%_ - _%super132498133542%_) + (_%__match136565136566%_ + _%e132801133354%_ + _%hd132802133358%_ + _%tl132803133361%_ + _%e132804133364%_ + _%hd132805133368%_ + _%tl132806133371%_ + _%e132807133374%_ + _%hd132808133378%_ + _%tl132809133381%_ + _%__splice136437136438%_ + _%target132810133384%_ + _%tl132812133387%_)))) + (_%__match136565136566%_ + _%e132801133354%_ + _%hd132802133358%_ + _%tl132803133361%_ + _%e132804133364%_ + _%hd132805133368%_ + _%tl132806133371%_ + _%e132807133374%_ + _%hd132808133378%_ + _%tl132809133381%_ + _%__splice136437136438%_ + _%target132810133384%_ + _%tl132812133387%_))))))) + (_%loop132813133390%_ _%target132810133384%_ '())))) + (_%__match136513136514%_ + (lambda (_%e132752133759%_ + _%hd132753133763%_ + _%tl132754133766%_ + _%e132755133769%_ + _%hd132756133773%_ + _%tl132757133776%_ + _%e132758133779%_ + _%e132759133783%_ + _%hd132760133787%_ + _%tl132761133790%_ + _%e132762133793%_ + _%hd132763133797%_ + _%tl132764133800%_ + _%__splice136431136432%_ + _%target132765133803%_ + _%tl132767133806%_) + (letrec ((_%loop132768133809%_ + (lambda (_%hd132766133813%_ + _%super132772133816%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd132492133539%_)) - (let ((_%e132495133545%_ + (gx#stx-pair? _%hd132766133813%_)) + (let ((_%e132769133819%_ (let () (declare (not safe)) (gx#syntax-e - _%hd132492133539%_)))) - (let ((_%lp-tl132497133552%_ + _%hd132766133813%_)))) + (let ((_%lp-tl132771133826%_ (let () (declare (not safe)) - (##cdr _%e132495133545%_))) - (_%lp-hd132496133549%_ + (##cdr _%e132769133819%_))) + (_%lp-hd132770133823%_ (let () (declare (not safe)) - (##car _%e132495133545%_)))) - (_%loop132494133535%_ - _%lp-tl132497133552%_ - (cons _%lp-hd132496133549%_ - _%super132498133542%_)))) - (let ((_%super132499133555%_ - (reverse _%super132498133542%_))) + (##car _%e132769133819%_)))) + (_%loop132768133809%_ + _%lp-tl132771133826%_ + (cons _%lp-hd132770133823%_ + _%super132772133816%_)))) + (let ((_%super132773133829%_ + (reverse _%super132772133816%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl132487133516%_)) - (let ((_%e132500133559%_ + _%tl132761133790%_)) + (let ((_%e132774133833%_ (let () (declare (not safe)) (gx#syntax-e - _%tl132487133516%_)))) - (let ((_%tl132502133566%_ + _%tl132761133790%_)))) + (let ((_%tl132776133840%_ (let () (declare (not safe)) - (##cdr _%e132500133559%_))) - (_%hd132501133563%_ + (##cdr _%e132774133833%_))) + (_%hd132775133837%_ (let () (declare (not safe)) - (##car _%e132500133559%_)))) + (##car _%e132774133833%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl132502133566%_)) - (let ((_%__splice136159136160%_ + _%tl132776133840%_)) + (let ((_%__splice136433136434%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl132502133566%_ + _%tl132776133840%_ '0)))) - (let ((_%tl132505133572%_ + (let ((_%tl132779133846%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice136159136160%_ '1))) - (_%target132503133569%_ + (##vector-ref _%__splice136433136434%_ '1))) + (_%target132777133843%_ (let () (declare (not safe)) - (##vector-ref _%__splice136159136160%_ '0)))) + (##vector-ref _%__splice136433136434%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132505133572%_)) - (letrec ((_%loop132506133575%_ - (lambda (_%hd132504133579%_ - _%implementation132510133582%_ - _%method132511133584%_) + (gx#stx-null? _%tl132779133846%_)) + (letrec ((_%loop132780133849%_ + (lambda (_%hd132778133853%_ + _%implementation132784133856%_ + _%method132785133858%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd132504133579%_)) - (let ((_%e132507133587%_ + (gx#stx-pair? _%hd132778133853%_)) + (let ((_%e132781133861%_ (let () (declare (not safe)) (gx#syntax-e - _%hd132504133579%_)))) - (let ((_%lp-tl132509133594%_ + _%hd132778133853%_)))) + (let ((_%lp-tl132783133868%_ (let () (declare (not safe)) - (##cdr _%e132507133587%_))) - (_%lp-hd132508133591%_ + (##cdr _%e132781133861%_))) + (_%lp-hd132782133865%_ (let () (declare (not safe)) - (##car _%e132507133587%_)))) + (##car _%e132781133861%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd132508133591%_)) - (let ((_%e132514133597%_ + _%lp-hd132782133865%_)) + (let ((_%e132788133871%_ (let () (declare (not safe)) (gx#syntax-e - _%lp-hd132508133591%_)))) - (let ((_%tl132516133604%_ + _%lp-hd132782133865%_)))) + (let ((_%tl132790133878%_ (let () (declare (not safe)) - (##cdr _%e132514133597%_))) - (_%hd132515133601%_ + (##cdr _%e132788133871%_))) + (_%hd132789133875%_ (let () (declare (not safe)) - (##car _%e132514133597%_)))) + (##car _%e132788133871%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl132516133604%_)) - (let ((_%e132517133607%_ + _%tl132790133878%_)) + (let ((_%e132791133881%_ (let () (declare (not safe)) (gx#syntax-e - _%tl132516133604%_)))) - (let ((_%tl132519133614%_ + _%tl132790133878%_)))) + (let ((_%tl132793133888%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e132517133607%_))) - (_%hd132518133611%_ - (let () (declare (not safe)) (##car _%e132517133607%_)))) + (##cdr _%e132791133881%_))) + (_%hd132792133885%_ + (let () (declare (not safe)) (##car _%e132791133881%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132519133614%_)) - (_%loop132506133575%_ - _%lp-tl132509133594%_ - (cons _%hd132518133611%_ _%implementation132510133582%_) - (cons _%hd132515133601%_ _%method132511133584%_)) - (let () (declare (not safe)) (_%g132455132649%_))))) + (gx#stx-null? _%tl132793133888%_)) + (_%loop132780133849%_ + _%lp-tl132783133868%_ + (cons _%hd132792133885%_ _%implementation132784133856%_) + (cons _%hd132789133875%_ _%method132785133858%_)) + (let () (declare (not safe)) (_%g132729132923%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g132455132649%_))))) + (_%g132729132923%_))))) (let () (declare (not safe)) - (_%g132455132649%_))))) - (let ((_%method132513133620%_ - (reverse _%method132511133584%_)) - (_%implementation132512133617%_ - (reverse _%implementation132510133582%_))) - (_%__kont136155136156%_ - _%implementation132512133617%_ - _%method132513133620%_ - _%hd132501133563%_ - _%super132499133555%_ - _%hd132489133523%_)))))) - (_%loop132506133575%_ _%target132503133569%_ '() '())) - (let () (declare (not safe)) (_%g132455132649%_))))) + (_%g132729132923%_))))) + (let ((_%method132787133894%_ + (reverse _%method132785133858%_)) + (_%implementation132786133891%_ + (reverse _%implementation132784133856%_))) + (_%__kont136429136430%_ + _%implementation132786133891%_ + _%method132787133894%_ + _%hd132775133837%_ + _%super132773133829%_ + _%hd132763133797%_)))))) + (_%loop132780133849%_ _%target132777133843%_ '() '())) + (let () (declare (not safe)) (_%g132729132923%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g132455132649%_))))) + (_%g132729132923%_))))) (let () (declare (not safe)) - (_%g132455132649%_)))))))) - (_%loop132494133535%_ _%target132491133529%_ '())))) - (_%__match136201136202%_ - (lambda (_%e132461133829%_ - _%hd132462133833%_ - _%tl132463133836%_ - _%e132464133839%_ - _%hd132465133843%_ - _%tl132466133846%_ - _%e132467133849%_ - _%hd132468133853%_ - _%tl132469133856%_ - _%e132470133859%_ - _%hd132471133863%_ - _%tl132472133866%_) - (let ((_%L133869%_ _%tl132472133866%_) - (_%L133871%_ _%hd132471133863%_) - (_%L133872%_ _%hd132468133853%_) - (_%L133873%_ _%hd132465133843%_)) + (_%g132729132923%_)))))))) + (_%loop132768133809%_ _%target132765133803%_ '())))) + (_%__match136475136476%_ + (lambda (_%e132735134103%_ + _%hd132736134107%_ + _%tl132737134110%_ + _%e132738134113%_ + _%hd132739134117%_ + _%tl132740134120%_ + _%e132741134123%_ + _%hd132742134127%_ + _%tl132743134130%_ + _%e132744134133%_ + _%hd132745134137%_ + _%tl132746134140%_) + (let ((_%L134143%_ _%tl132746134140%_) + (_%L134145%_ _%hd132745134137%_) + (_%L134146%_ _%hd132742134127%_) + (_%L134147%_ _%hd132739134117%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L133872%_)) - (_%__kont136153136154%_ - _%L133869%_ - _%L133871%_ - _%L133872%_ - _%L133873%_) + (gx#identifier? _%L134146%_)) + (_%__kont136427136428%_ + _%L134143%_ + _%L134145%_ + _%L134146%_ + _%L134147%_) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd132465133843%_)) - (let ((_%e132484133505%_ + (gx#stx-datum? _%hd132739134117%_)) + (let ((_%e132758133779%_ (let () (declare (not safe)) - (gx#stx-e _%hd132465133843%_)))) - (if (equal? _%e132484133505%_ '#f) + (gx#stx-e _%hd132739134117%_)))) + (if (equal? _%e132758133779%_ '#f) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd132468133853%_)) - (let ((_%e132488133519%_ + (gx#stx-pair? _%hd132742134127%_)) + (let ((_%e132762133793%_ (let () (declare (not safe)) (gx#syntax-e - _%hd132468133853%_)))) - (let ((_%tl132490133526%_ + _%hd132742134127%_)))) + (let ((_%tl132764133800%_ (let () (declare (not safe)) - (##cdr _%e132488133519%_))) - (_%hd132489133523%_ + (##cdr _%e132762133793%_))) + (_%hd132763133797%_ (let () (declare (not safe)) - (##car _%e132488133519%_)))) + (##car _%e132762133793%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl132490133526%_)) - (let ((_%__splice136157136158%_ + _%tl132764133800%_)) + (let ((_%__splice136431136432%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl132490133526%_ + _%tl132764133800%_ '0)))) - (let ((_%tl132493133532%_ + (let ((_%tl132767133806%_ (let () (declare (not safe)) (##vector-ref - _%__splice136157136158%_ + _%__splice136431136432%_ '1))) - (_%target132491133529%_ + (_%target132765133803%_ (let () (declare (not safe)) (##vector-ref - _%__splice136157136158%_ + _%__splice136431136432%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132493133532%_)) - (_%__match136239136240%_ - _%e132461133829%_ - _%hd132462133833%_ - _%tl132463133836%_ - _%e132464133839%_ - _%hd132465133843%_ - _%tl132466133846%_ - _%e132484133505%_ - _%e132467133849%_ - _%hd132468133853%_ - _%tl132469133856%_ - _%e132488133519%_ - _%hd132489133523%_ - _%tl132490133526%_ - _%__splice136157136158%_ - _%target132491133529%_ - _%tl132493133532%_) + _%tl132767133806%_)) + (_%__match136513136514%_ + _%e132735134103%_ + _%hd132736134107%_ + _%tl132737134110%_ + _%e132738134113%_ + _%hd132739134117%_ + _%tl132740134120%_ + _%e132758133779%_ + _%e132741134123%_ + _%hd132742134127%_ + _%tl132743134130%_ + _%e132762133793%_ + _%hd132763133797%_ + _%tl132764133800%_ + _%__splice136431136432%_ + _%target132765133803%_ + _%tl132767133806%_) (let () (declare (not safe)) - (_%g132455132649%_))))) + (_%g132729132923%_))))) (let () (declare (not safe)) - (_%g132455132649%_))))) + (_%g132729132923%_))))) (let () (declare (not safe)) - (_%g132455132649%_))) + (_%g132729132923%_))) (let () (declare (not safe)) - (_%g132455132649%_)))) + (_%g132729132923%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd132465133843%_)) - (let ((_%e132533133100%_ + (gx#stx-pair? _%hd132739134117%_)) + (let ((_%e132807133374%_ (let () (declare (not safe)) (gx#syntax-e - _%hd132465133843%_)))) - (let ((_%tl132535133107%_ + _%hd132739134117%_)))) + (let ((_%tl132809133381%_ (let () (declare (not safe)) - (##cdr _%e132533133100%_))) - (_%hd132534133104%_ + (##cdr _%e132807133374%_))) + (_%hd132808133378%_ (let () (declare (not safe)) - (##car _%e132533133100%_)))) + (##car _%e132807133374%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl132535133107%_)) - (let ((_%__splice136163136164%_ + _%tl132809133381%_)) + (let ((_%__splice136437136438%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl132535133107%_ + _%tl132809133381%_ '0)))) - (let ((_%tl132538133113%_ + (let ((_%tl132812133387%_ (let () (declare (not safe)) (##vector-ref - _%__splice136163136164%_ + _%__splice136437136438%_ '1))) - (_%target132536133110%_ + (_%target132810133384%_ (let () (declare (not safe)) (##vector-ref - _%__splice136163136164%_ + _%__splice136437136438%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132538133113%_)) - (_%__match136265136266%_ - _%e132461133829%_ - _%hd132462133833%_ - _%tl132463133836%_ - _%e132464133839%_ - _%hd132465133843%_ - _%tl132466133846%_ - _%e132533133100%_ - _%hd132534133104%_ - _%tl132535133107%_ - _%__splice136163136164%_ - _%target132536133110%_ - _%tl132538133113%_) + _%tl132812133387%_)) + (_%__match136539136540%_ + _%e132735134103%_ + _%hd132736134107%_ + _%tl132737134110%_ + _%e132738134113%_ + _%hd132739134117%_ + _%tl132740134120%_ + _%e132807133374%_ + _%hd132808133378%_ + _%tl132809133381%_ + _%__splice136437136438%_ + _%target132810133384%_ + _%tl132812133387%_) (let () (declare (not safe)) - (_%g132455132649%_))))) + (_%g132729132923%_))))) (let () (declare (not safe)) - (_%g132455132649%_))))) + (_%g132729132923%_))))) (let () (declare (not safe)) - (_%g132455132649%_))))))))) + (_%g132729132923%_))))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx136150136151%_)) - (let ((_%e132461133829%_ + (gx#stx-pair? _%__stx136424136425%_)) + (let ((_%e132735134103%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx136150136151%_)))) - (let ((_%tl132463133836%_ + (gx#syntax-e _%__stx136424136425%_)))) + (let ((_%tl132737134110%_ (let () (declare (not safe)) - (##cdr _%e132461133829%_))) - (_%hd132462133833%_ + (##cdr _%e132735134103%_))) + (_%hd132736134107%_ (let () (declare (not safe)) - (##car _%e132461133829%_)))) + (##car _%e132735134103%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132463133836%_)) - (let ((_%e132464133839%_ + (gx#stx-pair? _%tl132737134110%_)) + (let ((_%e132738134113%_ (let () (declare (not safe)) - (gx#syntax-e _%tl132463133836%_)))) - (let ((_%tl132466133846%_ + (gx#syntax-e _%tl132737134110%_)))) + (let ((_%tl132740134120%_ (let () (declare (not safe)) - (##cdr _%e132464133839%_))) - (_%hd132465133843%_ + (##cdr _%e132738134113%_))) + (_%hd132739134117%_ (let () (declare (not safe)) - (##car _%e132464133839%_)))) + (##car _%e132738134113%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132466133846%_)) - (let ((_%e132467133849%_ + (gx#stx-pair? _%tl132740134120%_)) + (let ((_%e132741134123%_ (let () (declare (not safe)) - (gx#syntax-e _%tl132466133846%_)))) - (let ((_%tl132469133856%_ + (gx#syntax-e _%tl132740134120%_)))) + (let ((_%tl132743134130%_ (let () (declare (not safe)) - (##cdr _%e132467133849%_))) - (_%hd132468133853%_ + (##cdr _%e132741134123%_))) + (_%hd132742134127%_ (let () (declare (not safe)) - (##car _%e132467133849%_)))) + (##car _%e132741134123%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132469133856%_)) - (let ((_%e132470133859%_ + (gx#stx-pair? _%tl132743134130%_)) + (let ((_%e132744134133%_ (let () (declare (not safe)) (gx#syntax-e - _%tl132469133856%_)))) - (let ((_%tl132472133866%_ + _%tl132743134130%_)))) + (let ((_%tl132746134140%_ (let () (declare (not safe)) - (##cdr _%e132470133859%_))) - (_%hd132471133863%_ + (##cdr _%e132744134133%_))) + (_%hd132745134137%_ (let () (declare (not safe)) - (##car _%e132470133859%_)))) - (_%__match136201136202%_ - _%e132461133829%_ - _%hd132462133833%_ - _%tl132463133836%_ - _%e132464133839%_ - _%hd132465133843%_ - _%tl132466133846%_ - _%e132467133849%_ - _%hd132468133853%_ - _%tl132469133856%_ - _%e132470133859%_ - _%hd132471133863%_ - _%tl132472133866%_))) + (##car _%e132744134133%_)))) + (_%__match136475136476%_ + _%e132735134103%_ + _%hd132736134107%_ + _%tl132737134110%_ + _%e132738134113%_ + _%hd132739134117%_ + _%tl132740134120%_ + _%e132741134123%_ + _%hd132742134127%_ + _%tl132743134130%_ + _%e132744134133%_ + _%hd132745134137%_ + _%tl132746134140%_))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd132465133843%_)) - (let ((_%e132484133505%_ + _%hd132739134117%_)) + (let ((_%e132758133779%_ (let () (declare (not safe)) (gx#stx-e - _%hd132465133843%_)))) - (if (equal? _%e132484133505%_ + _%hd132739134117%_)))) + (if (equal? _%e132758133779%_ '#f) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd132468133853%_)) - (let ((_%e132488133519%_ + _%hd132742134127%_)) + (let ((_%e132762133793%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd132468133853%_)))) - (let ((_%tl132490133526%_ + (gx#syntax-e _%hd132742134127%_)))) + (let ((_%tl132764133800%_ (let () (declare (not safe)) - (##cdr _%e132488133519%_))) - (_%hd132489133523%_ + (##cdr _%e132762133793%_))) + (_%hd132763133797%_ (let () (declare (not safe)) - (##car _%e132488133519%_)))) + (##car _%e132762133793%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl132490133526%_)) - (let ((_%__splice136157136158%_ + (gx#stx-pair/null? _%tl132764133800%_)) + (let ((_%__splice136431136432%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl132490133526%_ + _%tl132764133800%_ '0)))) - (let ((_%tl132493133532%_ + (let ((_%tl132767133806%_ (let () (declare (not safe)) - (##vector-ref _%__splice136157136158%_ '1))) - (_%target132491133529%_ + (##vector-ref _%__splice136431136432%_ '1))) + (_%target132765133803%_ (let () (declare (not safe)) (##vector-ref - _%__splice136157136158%_ + _%__splice136431136432%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132493133532%_)) - (_%__match136239136240%_ - _%e132461133829%_ - _%hd132462133833%_ - _%tl132463133836%_ - _%e132464133839%_ - _%hd132465133843%_ - _%tl132466133846%_ - _%e132484133505%_ - _%e132467133849%_ - _%hd132468133853%_ - _%tl132469133856%_ - _%e132488133519%_ - _%hd132489133523%_ - _%tl132490133526%_ - _%__splice136157136158%_ - _%target132491133529%_ - _%tl132493133532%_) + (gx#stx-null? _%tl132767133806%_)) + (_%__match136513136514%_ + _%e132735134103%_ + _%hd132736134107%_ + _%tl132737134110%_ + _%e132738134113%_ + _%hd132739134117%_ + _%tl132740134120%_ + _%e132758133779%_ + _%e132741134123%_ + _%hd132742134127%_ + _%tl132743134130%_ + _%e132762133793%_ + _%hd132763133797%_ + _%tl132764133800%_ + _%__splice136431136432%_ + _%target132765133803%_ + _%tl132767133806%_) (let () (declare (not safe)) - (_%g132455132649%_))))) - (let () (declare (not safe)) (_%g132455132649%_))))) - (let () (declare (not safe)) (_%g132455132649%_))) + (_%g132729132923%_))))) + (let () (declare (not safe)) (_%g132729132923%_))))) + (let () (declare (not safe)) (_%g132729132923%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g132455132649%_)))) + (_%g132729132923%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd132465133843%_)) - (let ((_%e132533133100%_ + _%hd132739134117%_)) + (let ((_%e132807133374%_ (let () (declare (not safe)) (gx#syntax-e - _%hd132465133843%_)))) - (let ((_%tl132535133107%_ + _%hd132739134117%_)))) + (let ((_%tl132809133381%_ (let () (declare (not safe)) - (##cdr _%e132533133100%_))) - (_%hd132534133104%_ + (##cdr _%e132807133374%_))) + (_%hd132808133378%_ (let () (declare (not safe)) - (##car _%e132533133100%_)))) + (##car _%e132807133374%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl132535133107%_)) - (let ((_%__splice136163136164%_ + _%tl132809133381%_)) + (let ((_%__splice136437136438%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%tl132535133107%_ '0)))) - (let ((_%tl132538133113%_ + (gx#syntax-split-splice _%tl132809133381%_ '0)))) + (let ((_%tl132812133387%_ (let () (declare (not safe)) - (##vector-ref _%__splice136163136164%_ '1))) - (_%target132536133110%_ + (##vector-ref _%__splice136437136438%_ '1))) + (_%target132810133384%_ (let () (declare (not safe)) - (##vector-ref _%__splice136163136164%_ '0)))) + (##vector-ref _%__splice136437136438%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132538133113%_)) - (_%__match136265136266%_ - _%e132461133829%_ - _%hd132462133833%_ - _%tl132463133836%_ - _%e132464133839%_ - _%hd132465133843%_ - _%tl132466133846%_ - _%e132533133100%_ - _%hd132534133104%_ - _%tl132535133107%_ - _%__splice136163136164%_ - _%target132536133110%_ - _%tl132538133113%_) - (let () (declare (not safe)) (_%g132455132649%_))))) - (let () (declare (not safe)) (_%g132455132649%_))))) + (gx#stx-null? _%tl132812133387%_)) + (_%__match136539136540%_ + _%e132735134103%_ + _%hd132736134107%_ + _%tl132737134110%_ + _%e132738134113%_ + _%hd132739134117%_ + _%tl132740134120%_ + _%e132807133374%_ + _%hd132808133378%_ + _%tl132809133381%_ + _%__splice136437136438%_ + _%target132810133384%_ + _%tl132812133387%_) + (let () (declare (not safe)) (_%g132729132923%_))))) + (let () (declare (not safe)) (_%g132729132923%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g132455132649%_))))))) + (_%g132729132923%_))))))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd132465133843%_)) - (let ((_%e132484133505%_ + (gx#stx-datum? _%hd132739134117%_)) + (let ((_%e132758133779%_ (let () (declare (not safe)) - (gx#stx-e _%hd132465133843%_)))) + (gx#stx-e _%hd132739134117%_)))) (declare (not safe)) - (_%g132455132649%_)) + (_%g132729132923%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd132465133843%_)) - (let ((_%e132533133100%_ + (gx#stx-pair? _%hd132739134117%_)) + (let ((_%e132807133374%_ (let () (declare (not safe)) (gx#syntax-e - _%hd132465133843%_)))) - (let ((_%tl132535133107%_ + _%hd132739134117%_)))) + (let ((_%tl132809133381%_ (let () (declare (not safe)) - (##cdr _%e132533133100%_))) - (_%hd132534133104%_ + (##cdr _%e132807133374%_))) + (_%hd132808133378%_ (let () (declare (not safe)) - (##car _%e132533133100%_)))) + (##car _%e132807133374%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl132535133107%_)) - (let ((_%__splice136163136164%_ + _%tl132809133381%_)) + (let ((_%__splice136437136438%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl132535133107%_ + _%tl132809133381%_ '0)))) - (let ((_%tl132538133113%_ + (let ((_%tl132812133387%_ (let () (declare (not safe)) (##vector-ref - _%__splice136163136164%_ + _%__splice136437136438%_ '1))) - (_%target132536133110%_ + (_%target132810133384%_ (let () (declare (not safe)) (##vector-ref - _%__splice136163136164%_ + _%__splice136437136438%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132538133113%_)) - (_%__match136265136266%_ - _%e132461133829%_ - _%hd132462133833%_ - _%tl132463133836%_ - _%e132464133839%_ - _%hd132465133843%_ - _%tl132466133846%_ - _%e132533133100%_ - _%hd132534133104%_ - _%tl132535133107%_ - _%__splice136163136164%_ - _%target132536133110%_ - _%tl132538133113%_) + _%tl132812133387%_)) + (_%__match136539136540%_ + _%e132735134103%_ + _%hd132736134107%_ + _%tl132737134110%_ + _%e132738134113%_ + _%hd132739134117%_ + _%tl132740134120%_ + _%e132807133374%_ + _%hd132808133378%_ + _%tl132809133381%_ + _%__splice136437136438%_ + _%target132810133384%_ + _%tl132812133387%_) (let () (declare (not safe)) - (_%g132455132649%_))))) + (_%g132729132923%_))))) (let () (declare (not safe)) - (_%g132455132649%_))))) + (_%g132729132923%_))))) (let () (declare (not safe)) - (_%g132455132649%_))))))) - (let () (declare (not safe)) (_%g132455132649%_))))) - (let () (declare (not safe)) (_%g132455132649%_)))))))) + (_%g132729132923%_))))))) + (let () (declare (not safe)) (_%g132729132923%_))))) + (let () (declare (not safe)) (_%g132729132923%_)))))))) (define |gxc[:0:]#::void-expression| - (let ((__obj136318 + (let ((__obj136592 (let () (declare (not safe)) (##structure @@ -2603,7 +2603,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136318 + __obj136592 'gxc#::void-expression::t '1 '#f @@ -2611,65 +2611,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136318 + __obj136592 '::void-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136318 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj136592 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136318 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj136592 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136318 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj136592 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136318 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj136592 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136318 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj136592 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136318 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj136592 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136318 '#f '11 '#f '#f)) - (let ((__tmp136434 |gxc[1]#_g136435_|)) + (##unchecked-structure-set! __obj136592 '#f '11 '#f '#f)) + (let ((__tmp136708 |gxc[1]#_g136709_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136318 __tmp136434 '12 '#f '#f)) - (let ((__tmp136436 |gxc[1]#_g136437_|)) + (##unchecked-structure-set! __obj136592 __tmp136708 '12 '#f '#f)) + (let ((__tmp136710 |gxc[1]#_g136711_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136318 __tmp136436 '13 '#f '#f)) - (let ((__tmp136438 |gxc[1]#_g136439_|)) + (##unchecked-structure-set! __obj136592 __tmp136710 '13 '#f '#f)) + (let ((__tmp136712 |gxc[1]#_g136713_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136318 __tmp136438 '14 '#f '#f)) + (##unchecked-structure-set! __obj136592 __tmp136712 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136318 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj136592 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136318 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj136592 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136318 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj136592 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136318 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj136592 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136318 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj136592 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136318 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj136592 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136318 '() '20 '#f '#f)) - __obj136318)) + (##unchecked-structure-set! __obj136592 '() '20 '#f '#f)) + __obj136592)) (define |gxc[:0:]#::void-special-form| - (let ((__obj136319 + (let ((__obj136593 (let () (declare (not safe)) (##structure @@ -2698,7 +2698,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136319 + __obj136593 'gxc#::void-special-form::t '1 '#f @@ -2706,65 +2706,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136319 + __obj136593 '::void-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136319 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj136593 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136319 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj136593 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136319 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj136593 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136319 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj136593 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136319 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj136593 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136319 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj136593 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136319 '#f '11 '#f '#f)) - (let ((__tmp136440 |gxc[1]#_g136441_|)) + (##unchecked-structure-set! __obj136593 '#f '11 '#f '#f)) + (let ((__tmp136714 |gxc[1]#_g136715_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136319 __tmp136440 '12 '#f '#f)) - (let ((__tmp136442 |gxc[1]#_g136443_|)) + (##unchecked-structure-set! __obj136593 __tmp136714 '12 '#f '#f)) + (let ((__tmp136716 |gxc[1]#_g136717_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136319 __tmp136442 '13 '#f '#f)) - (let ((__tmp136444 |gxc[1]#_g136445_|)) + (##unchecked-structure-set! __obj136593 __tmp136716 '13 '#f '#f)) + (let ((__tmp136718 |gxc[1]#_g136719_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136319 __tmp136444 '14 '#f '#f)) + (##unchecked-structure-set! __obj136593 __tmp136718 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136319 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj136593 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136319 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj136593 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136319 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj136593 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136319 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj136593 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136319 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj136593 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136319 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj136593 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136319 '() '20 '#f '#f)) - __obj136319)) + (##unchecked-structure-set! __obj136593 '() '20 '#f '#f)) + __obj136593)) (define |gxc[:0:]#::void| - (let ((__obj136320 + (let ((__obj136594 (let () (declare (not safe)) (##structure @@ -2792,65 +2792,65 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136320 'gxc#::void::t '1 '#f '#f)) + (##unchecked-structure-set! __obj136594 'gxc#::void::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136320 '::void '2 '#f '#f)) + (##unchecked-structure-set! __obj136594 '::void '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136320 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj136594 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136320 '() '6 '#f '#f)) - (let ((__tmp136446 - (cons |gxc[1]#_g136447_| (cons |gxc[1]#_g136448_| '())))) + (##unchecked-structure-set! __obj136594 '() '6 '#f '#f)) + (let ((__tmp136720 + (cons |gxc[1]#_g136721_| (cons |gxc[1]#_g136722_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj136320 __tmp136446 '3 '#f '#f)) + (##unchecked-structure-set! __obj136594 __tmp136720 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136320 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj136594 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136320 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj136594 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136320 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj136594 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136320 '#f '11 '#f '#f)) - (let ((__tmp136449 |gxc[1]#_g136450_|)) + (##unchecked-structure-set! __obj136594 '#f '11 '#f '#f)) + (let ((__tmp136723 |gxc[1]#_g136724_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136320 __tmp136449 '12 '#f '#f)) - (let ((__tmp136451 |gxc[1]#_g136452_|)) + (##unchecked-structure-set! __obj136594 __tmp136723 '12 '#f '#f)) + (let ((__tmp136725 |gxc[1]#_g136726_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136320 __tmp136451 '13 '#f '#f)) - (let ((__tmp136453 |gxc[1]#_g136454_|)) + (##unchecked-structure-set! __obj136594 __tmp136725 '13 '#f '#f)) + (let ((__tmp136727 |gxc[1]#_g136728_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136320 __tmp136453 '14 '#f '#f)) + (##unchecked-structure-set! __obj136594 __tmp136727 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136320 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj136594 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136320 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj136594 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136320 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj136594 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136320 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj136594 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136320 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj136594 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136320 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj136594 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136320 '() '20 '#f '#f)) - __obj136320)) + (##unchecked-structure-set! __obj136594 '() '20 '#f '#f)) + __obj136594)) (define |gxc[:0:]#::false-expression| - (let ((__obj136321 + (let ((__obj136595 (let () (declare (not safe)) (##structure @@ -2879,7 +2879,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136321 + __obj136595 'gxc#::false-expression::t '1 '#f @@ -2887,65 +2887,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136321 + __obj136595 '::false-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136321 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj136595 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136321 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj136595 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136321 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj136595 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136321 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj136595 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136321 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj136595 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136321 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj136595 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136321 '#f '11 '#f '#f)) - (let ((__tmp136455 |gxc[1]#_g136456_|)) + (##unchecked-structure-set! __obj136595 '#f '11 '#f '#f)) + (let ((__tmp136729 |gxc[1]#_g136730_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136321 __tmp136455 '12 '#f '#f)) - (let ((__tmp136457 |gxc[1]#_g136458_|)) + (##unchecked-structure-set! __obj136595 __tmp136729 '12 '#f '#f)) + (let ((__tmp136731 |gxc[1]#_g136732_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136321 __tmp136457 '13 '#f '#f)) - (let ((__tmp136459 |gxc[1]#_g136460_|)) + (##unchecked-structure-set! __obj136595 __tmp136731 '13 '#f '#f)) + (let ((__tmp136733 |gxc[1]#_g136734_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136321 __tmp136459 '14 '#f '#f)) + (##unchecked-structure-set! __obj136595 __tmp136733 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136321 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj136595 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136321 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj136595 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136321 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj136595 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136321 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj136595 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136321 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj136595 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136321 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj136595 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136321 '() '20 '#f '#f)) - __obj136321)) + (##unchecked-structure-set! __obj136595 '() '20 '#f '#f)) + __obj136595)) (define |gxc[:0:]#::false-special-form| - (let ((__obj136322 + (let ((__obj136596 (let () (declare (not safe)) (##structure @@ -2974,7 +2974,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136322 + __obj136596 'gxc#::false-special-form::t '1 '#f @@ -2982,65 +2982,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136322 + __obj136596 '::false-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136322 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj136596 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136322 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj136596 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136322 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj136596 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136322 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj136596 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136322 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj136596 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136322 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj136596 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136322 '#f '11 '#f '#f)) - (let ((__tmp136461 |gxc[1]#_g136462_|)) + (##unchecked-structure-set! __obj136596 '#f '11 '#f '#f)) + (let ((__tmp136735 |gxc[1]#_g136736_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136322 __tmp136461 '12 '#f '#f)) - (let ((__tmp136463 |gxc[1]#_g136464_|)) + (##unchecked-structure-set! __obj136596 __tmp136735 '12 '#f '#f)) + (let ((__tmp136737 |gxc[1]#_g136738_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136322 __tmp136463 '13 '#f '#f)) - (let ((__tmp136465 |gxc[1]#_g136466_|)) + (##unchecked-structure-set! __obj136596 __tmp136737 '13 '#f '#f)) + (let ((__tmp136739 |gxc[1]#_g136740_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136322 __tmp136465 '14 '#f '#f)) + (##unchecked-structure-set! __obj136596 __tmp136739 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136322 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj136596 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136322 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj136596 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136322 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj136596 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136322 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj136596 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136322 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj136596 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136322 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj136596 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136322 '() '20 '#f '#f)) - __obj136322)) + (##unchecked-structure-set! __obj136596 '() '20 '#f '#f)) + __obj136596)) (define |gxc[:0:]#::false| - (let ((__obj136323 + (let ((__obj136597 (let () (declare (not safe)) (##structure @@ -3068,65 +3068,65 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136323 'gxc#::false::t '1 '#f '#f)) + (##unchecked-structure-set! __obj136597 'gxc#::false::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136323 '::false '2 '#f '#f)) + (##unchecked-structure-set! __obj136597 '::false '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136323 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj136597 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136323 '() '6 '#f '#f)) - (let ((__tmp136467 - (cons |gxc[1]#_g136468_| (cons |gxc[1]#_g136469_| '())))) + (##unchecked-structure-set! __obj136597 '() '6 '#f '#f)) + (let ((__tmp136741 + (cons |gxc[1]#_g136742_| (cons |gxc[1]#_g136743_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj136323 __tmp136467 '3 '#f '#f)) + (##unchecked-structure-set! __obj136597 __tmp136741 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136323 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj136597 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136323 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj136597 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136323 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj136597 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136323 '#f '11 '#f '#f)) - (let ((__tmp136470 |gxc[1]#_g136471_|)) + (##unchecked-structure-set! __obj136597 '#f '11 '#f '#f)) + (let ((__tmp136744 |gxc[1]#_g136745_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136323 __tmp136470 '12 '#f '#f)) - (let ((__tmp136472 |gxc[1]#_g136473_|)) + (##unchecked-structure-set! __obj136597 __tmp136744 '12 '#f '#f)) + (let ((__tmp136746 |gxc[1]#_g136747_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136323 __tmp136472 '13 '#f '#f)) - (let ((__tmp136474 |gxc[1]#_g136475_|)) + (##unchecked-structure-set! __obj136597 __tmp136746 '13 '#f '#f)) + (let ((__tmp136748 |gxc[1]#_g136749_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136323 __tmp136474 '14 '#f '#f)) + (##unchecked-structure-set! __obj136597 __tmp136748 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136323 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj136597 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136323 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj136597 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136323 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj136597 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136323 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj136597 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136323 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj136597 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136323 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj136597 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136323 '() '20 '#f '#f)) - __obj136323)) + (##unchecked-structure-set! __obj136597 '() '20 '#f '#f)) + __obj136597)) (define |gxc[:0:]#::identity-expression| - (let ((__obj136324 + (let ((__obj136598 (let () (declare (not safe)) (##structure @@ -3155,7 +3155,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136324 + __obj136598 'gxc#::identity-expression::t '1 '#f @@ -3163,65 +3163,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136324 + __obj136598 '::identity-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136324 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj136598 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136324 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj136598 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136324 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj136598 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136324 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj136598 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136324 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj136598 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136324 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj136598 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136324 '#f '11 '#f '#f)) - (let ((__tmp136476 |gxc[1]#_g136477_|)) + (##unchecked-structure-set! __obj136598 '#f '11 '#f '#f)) + (let ((__tmp136750 |gxc[1]#_g136751_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136324 __tmp136476 '12 '#f '#f)) - (let ((__tmp136478 |gxc[1]#_g136479_|)) + (##unchecked-structure-set! __obj136598 __tmp136750 '12 '#f '#f)) + (let ((__tmp136752 |gxc[1]#_g136753_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136324 __tmp136478 '13 '#f '#f)) - (let ((__tmp136480 |gxc[1]#_g136481_|)) + (##unchecked-structure-set! __obj136598 __tmp136752 '13 '#f '#f)) + (let ((__tmp136754 |gxc[1]#_g136755_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136324 __tmp136480 '14 '#f '#f)) + (##unchecked-structure-set! __obj136598 __tmp136754 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136324 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj136598 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136324 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj136598 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136324 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj136598 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136324 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj136598 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136324 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj136598 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136324 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj136598 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136324 '() '20 '#f '#f)) - __obj136324)) + (##unchecked-structure-set! __obj136598 '() '20 '#f '#f)) + __obj136598)) (define |gxc[:0:]#::identity-special-form| - (let ((__obj136325 + (let ((__obj136599 (let () (declare (not safe)) (##structure @@ -3250,7 +3250,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136325 + __obj136599 'gxc#::identity-special-form::t '1 '#f @@ -3258,65 +3258,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136325 + __obj136599 '::identity-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136325 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj136599 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136325 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj136599 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136325 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj136599 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136325 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj136599 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136325 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj136599 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136325 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj136599 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136325 '#f '11 '#f '#f)) - (let ((__tmp136482 |gxc[1]#_g136483_|)) + (##unchecked-structure-set! __obj136599 '#f '11 '#f '#f)) + (let ((__tmp136756 |gxc[1]#_g136757_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136325 __tmp136482 '12 '#f '#f)) - (let ((__tmp136484 |gxc[1]#_g136485_|)) + (##unchecked-structure-set! __obj136599 __tmp136756 '12 '#f '#f)) + (let ((__tmp136758 |gxc[1]#_g136759_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136325 __tmp136484 '13 '#f '#f)) - (let ((__tmp136486 |gxc[1]#_g136487_|)) + (##unchecked-structure-set! __obj136599 __tmp136758 '13 '#f '#f)) + (let ((__tmp136760 |gxc[1]#_g136761_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136325 __tmp136486 '14 '#f '#f)) + (##unchecked-structure-set! __obj136599 __tmp136760 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136325 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj136599 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136325 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj136599 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136325 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj136599 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136325 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj136599 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136325 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj136599 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136325 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj136599 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136325 '() '20 '#f '#f)) - __obj136325)) + (##unchecked-structure-set! __obj136599 '() '20 '#f '#f)) + __obj136599)) (define |gxc[:0:]#::identity| - (let ((__obj136326 + (let ((__obj136600 (let () (declare (not safe)) (##structure @@ -3345,69 +3345,69 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136326 + __obj136600 'gxc#::identity::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136326 '::identity '2 '#f '#f)) + (##unchecked-structure-set! __obj136600 '::identity '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136326 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj136600 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136326 '() '6 '#f '#f)) - (let ((__tmp136488 - (cons |gxc[1]#_g136489_| (cons |gxc[1]#_g136490_| '())))) + (##unchecked-structure-set! __obj136600 '() '6 '#f '#f)) + (let ((__tmp136762 + (cons |gxc[1]#_g136763_| (cons |gxc[1]#_g136764_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj136326 __tmp136488 '3 '#f '#f)) + (##unchecked-structure-set! __obj136600 __tmp136762 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136326 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj136600 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136326 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj136600 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136326 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj136600 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136326 '#f '11 '#f '#f)) - (let ((__tmp136491 |gxc[1]#_g136492_|)) + (##unchecked-structure-set! __obj136600 '#f '11 '#f '#f)) + (let ((__tmp136765 |gxc[1]#_g136766_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136326 __tmp136491 '12 '#f '#f)) - (let ((__tmp136493 |gxc[1]#_g136494_|)) + (##unchecked-structure-set! __obj136600 __tmp136765 '12 '#f '#f)) + (let ((__tmp136767 |gxc[1]#_g136768_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136326 __tmp136493 '13 '#f '#f)) - (let ((__tmp136495 |gxc[1]#_g136496_|)) + (##unchecked-structure-set! __obj136600 __tmp136767 '13 '#f '#f)) + (let ((__tmp136769 |gxc[1]#_g136770_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136326 __tmp136495 '14 '#f '#f)) + (##unchecked-structure-set! __obj136600 __tmp136769 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136326 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj136600 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136326 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj136600 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136326 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj136600 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136326 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj136600 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136326 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj136600 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136326 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj136600 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136326 '() '20 '#f '#f)) - __obj136326)) + (##unchecked-structure-set! __obj136600 '() '20 '#f '#f)) + __obj136600)) (define |gxc[:0:]#::basic-xform-expression| - (let ((__obj136327 + (let ((__obj136601 (let () (declare (not safe)) (##structure @@ -3436,7 +3436,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136327 + __obj136601 'gxc#::basic-xform-expression::t '1 '#f @@ -3444,65 +3444,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136327 + __obj136601 '::basic-xform-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136327 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj136601 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136327 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj136601 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136327 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj136601 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136327 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj136601 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136327 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj136601 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136327 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj136601 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136327 '#f '11 '#f '#f)) - (let ((__tmp136497 |gxc[1]#_g136498_|)) + (##unchecked-structure-set! __obj136601 '#f '11 '#f '#f)) + (let ((__tmp136771 |gxc[1]#_g136772_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136327 __tmp136497 '12 '#f '#f)) - (let ((__tmp136499 |gxc[1]#_g136500_|)) + (##unchecked-structure-set! __obj136601 __tmp136771 '12 '#f '#f)) + (let ((__tmp136773 |gxc[1]#_g136774_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136327 __tmp136499 '13 '#f '#f)) - (let ((__tmp136501 |gxc[1]#_g136502_|)) + (##unchecked-structure-set! __obj136601 __tmp136773 '13 '#f '#f)) + (let ((__tmp136775 |gxc[1]#_g136776_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136327 __tmp136501 '14 '#f '#f)) + (##unchecked-structure-set! __obj136601 __tmp136775 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136327 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj136601 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136327 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj136601 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136327 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj136601 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136327 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj136601 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136327 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj136601 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136327 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj136601 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136327 '() '20 '#f '#f)) - __obj136327)) + (##unchecked-structure-set! __obj136601 '() '20 '#f '#f)) + __obj136601)) (define |gxc[:0:]#::basic-xform| - (let ((__obj136328 + (let ((__obj136602 (let () (declare (not safe)) (##structure @@ -3531,64 +3531,64 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136328 + __obj136602 'gxc#::basic-xform::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136328 '::basic-xform '2 '#f '#f)) + (##unchecked-structure-set! __obj136602 '::basic-xform '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136328 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj136602 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136328 '() '6 '#f '#f)) - (let ((__tmp136503 - (cons |gxc[1]#_g136504_| (cons |gxc[1]#_g136505_| '())))) + (##unchecked-structure-set! __obj136602 '() '6 '#f '#f)) + (let ((__tmp136777 + (cons |gxc[1]#_g136778_| (cons |gxc[1]#_g136779_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj136328 __tmp136503 '3 '#f '#f)) + (##unchecked-structure-set! __obj136602 __tmp136777 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136328 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj136602 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136328 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj136602 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136328 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj136602 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136328 '#f '11 '#f '#f)) - (let ((__tmp136506 |gxc[1]#_g136507_|)) + (##unchecked-structure-set! __obj136602 '#f '11 '#f '#f)) + (let ((__tmp136780 |gxc[1]#_g136781_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136328 __tmp136506 '12 '#f '#f)) - (let ((__tmp136508 |gxc[1]#_g136509_|)) + (##unchecked-structure-set! __obj136602 __tmp136780 '12 '#f '#f)) + (let ((__tmp136782 |gxc[1]#_g136783_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136328 __tmp136508 '13 '#f '#f)) - (let ((__tmp136510 |gxc[1]#_g136511_|)) + (##unchecked-structure-set! __obj136602 __tmp136782 '13 '#f '#f)) + (let ((__tmp136784 |gxc[1]#_g136785_|)) (declare (not safe)) - (##unchecked-structure-set! __obj136328 __tmp136510 '14 '#f '#f)) + (##unchecked-structure-set! __obj136602 __tmp136784 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136328 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj136602 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136328 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj136602 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136328 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj136602 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136328 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj136602 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136328 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj136602 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136328 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj136602 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj136328 '() '20 '#f '#f)) - __obj136328)))) + (##unchecked-structure-set! __obj136602 '() '20 '#f '#f)) + __obj136602)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann~0.scm b/src/bootstrap/gerbil/compiler/optimize-ann~0.scm index 9af7445bd..6dc4b083a 100644 --- a/src/bootstrap/gerbil/compiler/optimize-ann~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-ann~0.scm @@ -1,28 +1,28 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-ann::timestamp 1713044320) + (define gerbil/compiler/optimize-ann::timestamp 1713454415) (begin (declare (inlining-limit 200)) (define gxc#::optimize-annotated::t - (let ((__tmp190837 (list gxc#::basic-xform::t)) - (__tmp190836 (cons (cons 'final: '#t) '()))) + (let ((__tmp191111 (list gxc#::basic-xform::t)) + (__tmp191110 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::optimize-annotated::t '::optimize-annotated - __tmp190837 + __tmp191111 '() - __tmp190836 + __tmp191110 '#f))) (define gxc#::optimize-annotated? (let () (declare (not safe)) (__make-class-predicate gxc#::optimize-annotated::t))) (define gxc#make-::optimize-annotated - (lambda _%$args187722%_ - (apply make-instance gxc#::optimize-annotated::t _%$args187722%_))) + (lambda _%$args187996%_ + (apply make-instance gxc#::optimize-annotated::t _%$args187996%_))) (define gxc#::optimize-annotated-bind-methods! - (let ((__tmp190838 + (let ((__tmp191112 (lambda () (force gxc#::basic-xform-bind-methods!) (let () @@ -35,46 +35,46 @@ (declare (not safe)) (__seal-class! gxc#::optimize-annotated::t))))) (declare (not safe)) - (__make-promise __tmp190838))) + (__make-promise __tmp191112))) (define gxc#apply-optimize-annotated - (lambda (_%stx187714%_) + (lambda (_%stx187988%_) (force gxc#::optimize-annotated-bind-methods!) - (let* ((_%self187717%_ - (let ((__obj190828 + (let* ((_%self187991%_ + (let ((__obj191102 (let () (declare (not safe)) (##structure gxc#::optimize-annotated::t)))) - __obj190828)) - (__tmp190839 + __obj191102)) + (__tmp191113 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self187717%_ _%stx187714%_))))) + (gxc#compile-e__1 _%self187991%_ _%stx187988%_))))) (declare (not safe)) (__call-with-parameters - __tmp190839 + __tmp191113 gxc#current-compile-method - _%self187717%_)))) + _%self187991%_)))) (define gxc#::generate-runtime-repr::t - (let ((__tmp190841 (list gxc#::generate-runtime::t)) - (__tmp190840 (cons (cons 'final: '#t) '()))) + (let ((__tmp191115 (list gxc#::generate-runtime::t)) + (__tmp191114 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime-repr::t '::generate-runtime-repr - __tmp190841 + __tmp191115 '() - __tmp190840 + __tmp191114 '#f))) (define gxc#::generate-runtime-repr? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-runtime-repr::t))) (define gxc#make-::generate-runtime-repr - (lambda _%$args187711%_ - (apply make-instance gxc#::generate-runtime-repr::t _%$args187711%_))) + (lambda _%$args187985%_ + (apply make-instance gxc#::generate-runtime-repr::t _%$args187985%_))) (define gxc#::generate-runtime-repr-bind-methods! - (let ((__tmp190842 + (let ((__tmp191116 (lambda () (force gxc#::generate-runtime-bind-methods!) (let () @@ -87,43 +87,43 @@ (declare (not safe)) (__seal-class! gxc#::generate-runtime-repr::t))))) (declare (not safe)) - (__make-promise __tmp190842))) + (__make-promise __tmp191116))) (define gxc#apply-generate-runtime-repr - (lambda (_%stx187703%_) + (lambda (_%stx187977%_) (force gxc#::generate-runtime-repr-bind-methods!) - (let* ((_%self187706%_ - (let ((__obj190830 + (let* ((_%self187980%_ + (let ((__obj191104 (let () (declare (not safe)) (##structure gxc#::generate-runtime-repr::t)))) - __obj190830)) - (__tmp190843 + __obj191104)) + (__tmp191117 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self187706%_ _%stx187703%_))))) + (gxc#compile-e__1 _%self187980%_ _%stx187977%_))))) (declare (not safe)) (__call-with-parameters - __tmp190843 + __tmp191117 gxc#current-compile-method - _%self187706%_)))) + _%self187980%_)))) (define gxc#::push-match-vars::t - (let ((__tmp190845 (list)) (__tmp190844 (cons (cons 'final: '#t) '()))) + (let ((__tmp191119 (list)) (__tmp191118 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::push-match-vars::t '::push-match-vars - __tmp190845 + __tmp191119 '(vars K) - __tmp190844 + __tmp191118 '#f))) (define gxc#::push-match-vars? (let () (declare (not safe)) (__make-class-predicate gxc#::push-match-vars::t))) (define gxc#make-::push-match-vars - (lambda _%$args187700%_ - (apply make-instance gxc#::push-match-vars::t _%$args187700%_))) + (lambda _%$args187974%_ + (apply make-instance gxc#::push-match-vars::t _%$args187974%_))) (define gxc#::push-match-vars-vars (let () (declare (not safe)) @@ -157,7 +157,7 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#::push-match-vars::t 'K))) (define gxc#::push-match-vars-bind-methods! - (let ((__tmp190846 + (let ((__tmp191120 (lambda () (let () (declare (not safe)) @@ -199,1666 +199,1666 @@ (declare (not safe)) (__seal-class! gxc#::push-match-vars::t))))) (declare (not safe)) - (__make-promise __tmp190846))) + (__make-promise __tmp191120))) (define gxc#apply-push-match-vars__% - (lambda (_%@@keywords187670%_ - _%vars187666187671%_ - _%K187667187673%_ - _%stx187675%_) - (let* ((_%vars187678%_ - (if (eq? _%vars187666187671%_ absent-value) + (lambda (_%@@keywords187944%_ + _%vars187940187945%_ + _%K187941187947%_ + _%stx187949%_) + (let* ((_%vars187952%_ + (if (eq? _%vars187940187945%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'vars:)) - _%vars187666187671%_)) - (_%K187680%_ - (if (eq? _%K187667187673%_ absent-value) + _%vars187940187945%_)) + (_%K187954%_ + (if (eq? _%K187941187947%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'K:)) - _%K187667187673%_))) + _%K187941187947%_))) (force gxc#::push-match-vars-bind-methods!) - (let* ((_%self187682%_ - (let ((__obj190832 + (let* ((_%self187956%_ + (let ((__obj191106 (let () (declare (not safe)) (##structure gxc#::push-match-vars::t '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj190832 - _%vars187678%_ + __obj191106 + _%vars187952%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj190832 - _%K187680%_ + __obj191106 + _%K187954%_ '2 '#f '#f)) - __obj190832)) - (__tmp190847 + __obj191106)) + (__tmp191121 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self187682%_ _%stx187675%_))))) + (gxc#compile-e__1 _%self187956%_ _%stx187949%_))))) (declare (not safe)) (__call-with-parameters - __tmp190847 + __tmp191121 gxc#current-compile-method - _%self187682%_))))) + _%self187956%_))))) (define gxc#apply-push-match-vars__@ - (lambda (_%@@keywords187689%_ . _%args187690%_) + (lambda (_%@@keywords187963%_ . _%args187964%_) (apply gxc#apply-push-match-vars__% - _%@@keywords187689%_ + _%@@keywords187963%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords187689%_ 'vars: absent-value)) + (symbolic-table-ref _%@@keywords187963%_ 'vars: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords187689%_ 'K: absent-value)) - _%args187690%_))) + (symbolic-table-ref _%@@keywords187963%_ 'K: absent-value)) + _%args187964%_))) (define gxc#apply-push-match-vars - (lambda _%args187668187696%_ + (lambda _%args187942187970%_ (apply keyword-dispatch '#(K: vars:) gxc#apply-push-match-vars__@ - _%args187668187696%_))) + _%args187942187970%_))) (define gxc#current-annotation-optimizer (make-parameter '())) (define gxc#optimize-annotation% - (lambda (_%self187582%_ _%stx187583%_) - (let* ((_%__stx187738187739%_ _%stx187583%_) - (_%g187586187603%_ + (lambda (_%self187856%_ _%stx187857%_) + (let* ((_%__stx188012188013%_ _%stx187857%_) + (_%g187860187877%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx187738187739%_))))) - (let ((_%__kont187740187741%_ - (lambda (_%L187639%_ _%L187640%_) - (let ((_%ann187656%_ + _%__stx188012188013%_))))) + (let ((_%__kont188014188015%_ + (lambda (_%L187913%_ _%L187914%_) + (let ((_%ann187930%_ (let () (declare (not safe)) - (gx#stx-e _%L187640%_)))) - (let ((__tmp190849 + (gx#stx-e _%L187914%_)))) + (let ((__tmp191123 (lambda () - (let ((_%$e187659%_ _%ann187656%_)) - (if (eq? '@match _%$e187659%_) + (let ((_%$e187933%_ _%ann187930%_)) + (if (eq? '@match _%$e187933%_) (begin (let () (declare (not safe)) (gxc#verbose '"Optimizing match expansion")) - (gxc#optimize-match _%L187639%_)) - (if (eq? '@syntax-case _%$e187659%_) + (gxc#optimize-match _%L187913%_)) + (if (eq? '@syntax-case _%$e187933%_) (begin (let () (declare (not safe)) (gxc#verbose '"Optimizing syntax-case expansion")) (gxc#optimize-syntax-case - _%L187639%_)) + _%L187913%_)) (let () (declare (not safe)) - (gxc#compile-e__0 _%L187639%_))))))) - (__tmp190848 - (cons _%ann187656%_ + (gxc#compile-e__0 _%L187913%_))))))) + (__tmp191122 + (cons _%ann187930%_ (let () (declare (not safe)) (gxc#current-annotation-optimizer))))) (declare (not safe)) (__call-with-parameters - __tmp190849 + __tmp191123 gxc#current-annotation-optimizer - __tmp190848))))) - (_%__kont187742187743%_ + __tmp191122))))) + (_%__kont188016188017%_ (lambda () (let () (declare (not safe)) (gxc#xform-begin-annotation% - _%self187582%_ - _%stx187583%_))))) - (let ((_%__match187763187764%_ - (lambda (_%e187590187615%_ - _%hd187591187618%_ - _%tl187592187620%_ - _%e187593187623%_ - _%hd187594187626%_ - _%tl187595187628%_ - _%e187596187631%_ - _%hd187597187634%_ - _%tl187598187636%_) - (let ((_%L187639%_ _%hd187597187634%_) - (_%L187640%_ _%hd187594187626%_)) + _%self187856%_ + _%stx187857%_))))) + (let ((_%__match188037188038%_ + (lambda (_%e187864187889%_ + _%hd187865187892%_ + _%tl187866187894%_ + _%e187867187897%_ + _%hd187868187900%_ + _%tl187869187902%_ + _%e187870187905%_ + _%hd187871187908%_ + _%tl187872187910%_) + (let ((_%L187913%_ _%hd187871187908%_) + (_%L187914%_ _%hd187868187900%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L187640%_)) - (_%__kont187740187741%_ _%L187639%_ _%L187640%_) - (_%__kont187742187743%_)))))) + (gx#identifier? _%L187914%_)) + (_%__kont188014188015%_ _%L187913%_ _%L187914%_) + (_%__kont188016188017%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx187738187739%_)) - (let ((_%e187590187615%_ + (gx#stx-pair? _%__stx188012188013%_)) + (let ((_%e187864187889%_ (let () (declare (not safe)) - (gx#stx-e _%__stx187738187739%_)))) - (let ((_%tl187592187620%_ + (gx#stx-e _%__stx188012188013%_)))) + (let ((_%tl187866187894%_ (let () (declare (not safe)) - (##cdr _%e187590187615%_))) - (_%hd187591187618%_ + (##cdr _%e187864187889%_))) + (_%hd187865187892%_ (let () (declare (not safe)) - (##car _%e187590187615%_)))) + (##car _%e187864187889%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187592187620%_)) - (let ((_%e187593187623%_ + (gx#stx-pair? _%tl187866187894%_)) + (let ((_%e187867187897%_ (let () (declare (not safe)) - (gx#stx-e _%tl187592187620%_)))) - (let ((_%tl187595187628%_ + (gx#stx-e _%tl187866187894%_)))) + (let ((_%tl187869187902%_ (let () (declare (not safe)) - (##cdr _%e187593187623%_))) - (_%hd187594187626%_ + (##cdr _%e187867187897%_))) + (_%hd187868187900%_ (let () (declare (not safe)) - (##car _%e187593187623%_)))) + (##car _%e187867187897%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187595187628%_)) - (let ((_%e187596187631%_ + (gx#stx-pair? _%tl187869187902%_)) + (let ((_%e187870187905%_ (let () (declare (not safe)) - (gx#stx-e _%tl187595187628%_)))) - (let ((_%tl187598187636%_ + (gx#stx-e _%tl187869187902%_)))) + (let ((_%tl187872187910%_ (let () (declare (not safe)) - (##cdr _%e187596187631%_))) - (_%hd187597187634%_ + (##cdr _%e187870187905%_))) + (_%hd187871187908%_ (let () (declare (not safe)) - (##car _%e187596187631%_)))) + (##car _%e187870187905%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187598187636%_)) - (_%__match187763187764%_ - _%e187590187615%_ - _%hd187591187618%_ - _%tl187592187620%_ - _%e187593187623%_ - _%hd187594187626%_ - _%tl187595187628%_ - _%e187596187631%_ - _%hd187597187634%_ - _%tl187598187636%_) - (_%__kont187742187743%_)))) - (_%__kont187742187743%_)))) - (_%__kont187742187743%_)))) - (_%__kont187742187743%_))))))) + (gx#stx-null? _%tl187872187910%_)) + (_%__match188037188038%_ + _%e187864187889%_ + _%hd187865187892%_ + _%tl187866187894%_ + _%e187867187897%_ + _%hd187868187900%_ + _%tl187869187902%_ + _%e187870187905%_ + _%hd187871187908%_ + _%tl187872187910%_) + (_%__kont188016188017%_)))) + (_%__kont188016188017%_)))) + (_%__kont188016188017%_)))) + (_%__kont188016188017%_))))))) (define gxc#optimize-match - (lambda (_%stx186881%_) - (let* ((_%g186883186913%_ - (lambda (_%g186884186910%_) + (lambda (_%stx187155%_) + (let* ((_%g187157187187%_ + (lambda (_%g187158187184%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g186884186910%_)))) - (_%g186882187579%_ - (lambda (_%g186884186916%_) + _%g187158187184%_)))) + (_%g187156187853%_ + (lambda (_%g187158187190%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g186884186916%_)) - (let ((_%e186888186918%_ + (gx#stx-pair? _%g187158187190%_)) + (let ((_%e187162187192%_ (let () (declare (not safe)) - (gx#stx-e _%g186884186916%_)))) - (let ((_%hd186889186921%_ + (gx#stx-e _%g187158187190%_)))) + (let ((_%hd187163187195%_ (let () (declare (not safe)) - (##car _%e186888186918%_))) - (_%tl186890186923%_ + (##car _%e187162187192%_))) + (_%tl187164187197%_ (let () (declare (not safe)) - (##cdr _%e186888186918%_)))) + (##cdr _%e187162187192%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd186889186921%_)) + (gx#identifier? _%hd187163187195%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd186889186921%_)) + _%hd187163187195%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186890186923%_)) - (let ((_%e186891186926%_ + (gx#stx-pair? _%tl187164187197%_)) + (let ((_%e187165187200%_ (let () (declare (not safe)) - (gx#stx-e _%tl186890186923%_)))) - (let ((_%hd186892186929%_ + (gx#stx-e _%tl187164187197%_)))) + (let ((_%hd187166187203%_ (let () (declare (not safe)) - (##car _%e186891186926%_))) - (_%tl186893186931%_ + (##car _%e187165187200%_))) + (_%tl187167187205%_ (let () (declare (not safe)) - (##cdr _%e186891186926%_)))) + (##cdr _%e187165187200%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd186892186929%_)) - (let ((_%e186894186934%_ + _%hd187166187203%_)) + (let ((_%e187168187208%_ (let () (declare (not safe)) (gx#stx-e - _%hd186892186929%_)))) - (let ((_%hd186895186937%_ + _%hd187166187203%_)))) + (let ((_%hd187169187211%_ (let () (declare (not safe)) - (##car _%e186894186934%_))) - (_%tl186896186939%_ + (##car _%e187168187208%_))) + (_%tl187170187213%_ (let () (declare (not safe)) - (##cdr _%e186894186934%_)))) + (##cdr _%e187168187208%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd186895186937%_)) - (let ((_%e186897186942%_ + _%hd187169187211%_)) + (let ((_%e187171187216%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd186895186937%_)))) - (let ((_%hd186898186945%_ - (let () (declare (not safe)) (##car _%e186897186942%_))) - (_%tl186899186947%_ + (gx#stx-e _%hd187169187211%_)))) + (let ((_%hd187172187219%_ + (let () (declare (not safe)) (##car _%e187171187216%_))) + (_%tl187173187221%_ (let () (declare (not safe)) - (##cdr _%e186897186942%_)))) + (##cdr _%e187171187216%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd186898186945%_)) - (let ((_%e186900186950%_ + (gx#stx-pair? _%hd187172187219%_)) + (let ((_%e187174187224%_ (let () (declare (not safe)) - (gx#stx-e _%hd186898186945%_)))) - (let ((_%hd186901186953%_ + (gx#stx-e _%hd187172187219%_)))) + (let ((_%hd187175187227%_ (let () (declare (not safe)) - (##car _%e186900186950%_))) - (_%tl186902186955%_ + (##car _%e187174187224%_))) + (_%tl187176187229%_ (let () (declare (not safe)) - (##cdr _%e186900186950%_)))) + (##cdr _%e187174187224%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186902186955%_)) + (gx#stx-null? _%tl187176187229%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186899186947%_)) - (let ((_%e186903186958%_ + (gx#stx-pair? _%tl187173187221%_)) + (let ((_%e187177187232%_ (let () (declare (not safe)) - (gx#stx-e _%tl186899186947%_)))) - (let ((_%hd186904186961%_ + (gx#stx-e _%tl187173187221%_)))) + (let ((_%hd187178187235%_ (let () (declare (not safe)) - (##car _%e186903186958%_))) - (_%tl186905186963%_ + (##car _%e187177187232%_))) + (_%tl187179187237%_ (let () (declare (not safe)) - (##cdr _%e186903186958%_)))) + (##cdr _%e187177187232%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186905186963%_)) + (gx#stx-null? _%tl187179187237%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186896186939%_)) + _%tl187170187213%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186893186931%_)) - (let ((_%e186906186966%_ + _%tl187167187205%_)) + (let ((_%e187180187240%_ (let () (declare (not safe)) (gx#stx-e - _%tl186893186931%_)))) - (let ((_%hd186907186969%_ + _%tl187167187205%_)))) + (let ((_%hd187181187243%_ (let () (declare (not safe)) - (##car _%e186906186966%_))) - (_%tl186908186971%_ + (##car _%e187180187240%_))) + (_%tl187182187245%_ (let () (declare (not safe)) - (##cdr _%e186906186966%_)))) + (##cdr _%e187180187240%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186908186971%_)) - ((lambda (_%L186974%_ + _%tl187182187245%_)) + ((lambda (_%L187248%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L186975%_ - _%L186976%_) - (let _%lp187000%_ ((_%body187002%_ _%L186974%_) - (_%negation187003%_ - (cons _%L186976%_ _%L186975%_)) - (_%clauses187004%_ '()) - (_%konts187005%_ '())) - (let* ((_%__stx187946187947%_ _%body187002%_) - (_%g187008187048%_ + _%L187249%_ + _%L187250%_) + (let _%lp187274%_ ((_%body187276%_ _%L187248%_) + (_%negation187277%_ + (cons _%L187250%_ _%L187249%_)) + (_%clauses187278%_ '()) + (_%konts187279%_ '())) + (let* ((_%__stx188220188221%_ _%body187276%_) + (_%g187282187322%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx187946187947%_))))) - (let ((_%__kont187948187949%_ - (lambda (_%L187378%_) - (let* ((_%__stx187882187883%_ _%L187378%_) - (_%g187392187422%_ + _%__stx188220188221%_))))) + (let ((_%__kont188222188223%_ + (lambda (_%L187652%_) + (let* ((_%__stx188156188157%_ _%L187652%_) + (_%g187666187696%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx187882187883%_))))) - (let ((_%__kont187884187885%_ - (lambda (_%L187518%_ - _%L187519%_ - _%L187520%_) - (if (null? _%clauses187004%_) - (let* ((_%negation187544187551%_ - _%negation187003%_) - (_%E187546187555%_ + _%__stx188156188157%_))))) + (let ((_%__kont188158188159%_ + (lambda (_%L187792%_ + _%L187793%_ + _%L187794%_) + (if (null? _%clauses187278%_) + (let* ((_%negation187818187825%_ + _%negation187277%_) + (_%E187820187829%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%negation187544187551%_ + _%negation187818187825%_ '([E . negate]))) '#!void)) - (_%K187547187561%_ - (lambda (_%negate187558%_ _%E187559%_) - (let ((__tmp190850 + (_%K187821187835%_ + (lambda (_%negate187832%_ _%E187833%_) + (let ((__tmp191124 (cons '%#let-values - (cons (cons (cons (cons _%E187559%_ '()) - (cons _%negate187558%_ '())) + (cons (cons (cons (cons _%E187833%_ '()) + (cons _%negate187832%_ '())) '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L187520%_ + (cons (cons (cons (cons _%L187794%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%L187519%_)) + (gxc#compile-e__0 _%L187793%_)) '())) '()) - (cons _%L187518%_ '()))) + (cons _%L187792%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp190850 _%stx186881%_))))) + (gxc#xform-wrap-source __tmp191124 _%stx187155%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%negation187544187551%_)) - (let ((_%hd187548187564%_ + (##pair? _%negation187818187825%_)) + (let ((_%hd187822187838%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%negation187544187551%_))) - (_%tl187549187566%_ + (##car _%negation187818187825%_))) + (_%tl187823187840%_ (let () (declare (not safe)) - (##cdr _%negation187544187551%_)))) - (let* ((_%E187569%_ _%hd187548187564%_) - (_%negate187571%_ _%tl187549187566%_)) - (_%K187547187561%_ _%negate187571%_ _%E187569%_))) - (_%E187546187555%_))) + (##cdr _%negation187818187825%_)))) + (let* ((_%E187843%_ _%hd187822187838%_) + (_%negate187845%_ _%tl187823187840%_)) + (_%K187821187835%_ _%negate187845%_ _%E187843%_))) + (_%E187820187829%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gxc#optimize-match-body - _%stx186881%_ - _%negation187003%_ + _%stx187155%_ + _%negation187277%_ (cons (cons '#f (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons '() (cons _%L187518%_ '())))) - _%clauses187004%_) + (cons '() (cons _%L187792%_ '())))) + _%clauses187278%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L187520%_ + (cons (cons _%L187794%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _%L187519%_))) - _%konts187005%_))))) + (gxc#compile-e__0 _%L187793%_))) + _%konts187279%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont187886187887%_ + (_%__kont188160188161%_ (lambda () - (let* ((_%negation187428187435%_ - _%negation187003%_) - (_%E187430187439%_ + (let* ((_%negation187702187709%_ + _%negation187277%_) + (_%E187704187713%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%negation187428187435%_ + _%negation187702187709%_ '([E ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< . negate]))) '#!void)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K187431187445%_ - (lambda (_%negate187442%_ - _%E187443%_) - (let ((__tmp190851 + (_%K187705187719%_ + (lambda (_%negate187716%_ + _%E187717%_) + (let ((__tmp191125 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%E187443%_ '()) - (cons _%negate187442%_ '())) + (cons (cons (cons (cons _%E187717%_ '()) + (cons _%negate187716%_ '())) '()) - (cons _%L187378%_ '()))))) + (cons _%L187652%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp190851 _%stx186881%_))))) + (gxc#xform-wrap-source __tmp191125 _%stx187155%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%negation187428187435%_)) - (let ((_%hd187432187448%_ + (##pair? _%negation187702187709%_)) + (let ((_%hd187706187722%_ (let () (declare (not safe)) - (##car _%negation187428187435%_))) - (_%tl187433187450%_ + (##car _%negation187702187709%_))) + (_%tl187707187724%_ (let () (declare (not safe)) - (##cdr _%negation187428187435%_)))) - (let* ((_%E187453%_ - _%hd187432187448%_) - (_%negate187455%_ - _%tl187433187450%_)) - (_%K187431187445%_ - _%negate187455%_ - _%E187453%_))) - (_%E187430187439%_)))))) - (let ((_%g187391187457%_ + (##cdr _%negation187702187709%_)))) + (let* ((_%E187727%_ + _%hd187706187722%_) + (_%negate187729%_ + _%tl187707187724%_)) + (_%K187705187719%_ + _%negate187729%_ + _%E187727%_))) + (_%E187704187713%_)))))) + (let ((_%g187665187731%_ (lambda () - (if (null? _%clauses187004%_) - (_%__kont187886187887%_) + (if (null? _%clauses187278%_) + (_%__kont188160188161%_) (let () (declare (not safe)) - (_%g187392187422%_)))))) + (_%g187666187696%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx187882187883%_)) - (let ((_%e187397187462%_ + _%__stx188156188157%_)) + (let ((_%e187671187736%_ (let () (declare (not safe)) (gx#stx-e - _%__stx187882187883%_)))) - (let ((_%tl187399187467%_ + _%__stx188156188157%_)))) + (let ((_%tl187673187741%_ (let () (declare (not safe)) - (##cdr _%e187397187462%_))) - (_%hd187398187465%_ + (##cdr _%e187671187736%_))) + (_%hd187672187739%_ (let () (declare (not safe)) - (##car _%e187397187462%_)))) + (##car _%e187671187736%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187398187465%_)) + _%hd187672187739%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd187398187465%_)) + _%hd187672187739%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187399187467%_)) - (let ((_%e187400187470%_ + _%tl187673187741%_)) + (let ((_%e187674187744%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl187399187467%_)))) - (let ((_%tl187402187475%_ + (gx#stx-e _%tl187673187741%_)))) + (let ((_%tl187676187749%_ (let () (declare (not safe)) - (##cdr _%e187400187470%_))) - (_%hd187401187473%_ + (##cdr _%e187674187744%_))) + (_%hd187675187747%_ (let () (declare (not safe)) - (##car _%e187400187470%_)))) + (##car _%e187674187744%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187401187473%_)) - (let ((_%e187403187478%_ + (gx#stx-pair? _%hd187675187747%_)) + (let ((_%e187677187752%_ (let () (declare (not safe)) - (gx#stx-e _%hd187401187473%_)))) - (let ((_%tl187405187483%_ + (gx#stx-e _%hd187675187747%_)))) + (let ((_%tl187679187757%_ (let () (declare (not safe)) - (##cdr _%e187403187478%_))) - (_%hd187404187481%_ + (##cdr _%e187677187752%_))) + (_%hd187678187755%_ (let () (declare (not safe)) - (##car _%e187403187478%_)))) + (##car _%e187677187752%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187404187481%_)) - (let ((_%e187406187486%_ + (gx#stx-pair? _%hd187678187755%_)) + (let ((_%e187680187760%_ (let () (declare (not safe)) - (gx#stx-e _%hd187404187481%_)))) - (let ((_%tl187408187491%_ + (gx#stx-e _%hd187678187755%_)))) + (let ((_%tl187682187765%_ (let () (declare (not safe)) - (##cdr _%e187406187486%_))) - (_%hd187407187489%_ + (##cdr _%e187680187760%_))) + (_%hd187681187763%_ (let () (declare (not safe)) - (##car _%e187406187486%_)))) + (##car _%e187680187760%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187407187489%_)) - (let ((_%e187409187494%_ + _%hd187681187763%_)) + (let ((_%e187683187768%_ (let () (declare (not safe)) (gx#stx-e - _%hd187407187489%_)))) - (let ((_%tl187411187499%_ + _%hd187681187763%_)))) + (let ((_%tl187685187773%_ (let () (declare (not safe)) - (##cdr _%e187409187494%_))) - (_%hd187410187497%_ + (##cdr _%e187683187768%_))) + (_%hd187684187771%_ (let () (declare (not safe)) - (##car _%e187409187494%_)))) + (##car _%e187683187768%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187411187499%_)) + _%tl187685187773%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187408187491%_)) - (let ((_%e187412187502%_ + _%tl187682187765%_)) + (let ((_%e187686187776%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl187408187491%_)))) - (let ((_%tl187414187507%_ + (gx#stx-e _%tl187682187765%_)))) + (let ((_%tl187688187781%_ (let () (declare (not safe)) - (##cdr _%e187412187502%_))) - (_%hd187413187505%_ + (##cdr _%e187686187776%_))) + (_%hd187687187779%_ (let () (declare (not safe)) - (##car _%e187412187502%_)))) + (##car _%e187686187776%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187414187507%_)) + (gx#stx-null? _%tl187688187781%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187405187483%_)) + (gx#stx-null? _%tl187679187757%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187402187475%_)) - (let ((_%e187415187510%_ + (gx#stx-pair? _%tl187676187749%_)) + (let ((_%e187689187784%_ (let () (declare (not safe)) - (gx#stx-e _%tl187402187475%_)))) - (let ((_%tl187417187515%_ + (gx#stx-e _%tl187676187749%_)))) + (let ((_%tl187691187789%_ (let () (declare (not safe)) - (##cdr _%e187415187510%_))) - (_%hd187416187513%_ + (##cdr _%e187689187784%_))) + (_%hd187690187787%_ (let () (declare (not safe)) - (##car _%e187415187510%_)))) + (##car _%e187689187784%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187417187515%_)) - (_%__kont187884187885%_ - _%hd187416187513%_ - _%hd187413187505%_ - _%hd187410187497%_) + (gx#stx-null? _%tl187691187789%_)) + (_%__kont188158188159%_ + _%hd187690187787%_ + _%hd187687187779%_ + _%hd187684187771%_) (let () (declare (not safe)) - (_%g187391187457%_))))) + (_%g187665187731%_))))) (let () (declare (not safe)) - (_%g187391187457%_))) - (let () (declare (not safe)) (_%g187391187457%_))) - (let () (declare (not safe)) (_%g187391187457%_))))) - (let () (declare (not safe)) (_%g187391187457%_))) + (_%g187665187731%_))) + (let () (declare (not safe)) (_%g187665187731%_))) + (let () (declare (not safe)) (_%g187665187731%_))))) + (let () (declare (not safe)) (_%g187665187731%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g187391187457%_))))) + (_%g187665187731%_))))) (let () (declare (not safe)) - (_%g187391187457%_))))) + (_%g187665187731%_))))) (let () (declare (not safe)) - (_%g187391187457%_))))) + (_%g187665187731%_))))) (let () (declare (not safe)) - (_%g187391187457%_))))) - (let () (declare (not safe)) (_%g187391187457%_))) - (let () (declare (not safe)) (_%g187391187457%_))) + (_%g187665187731%_))))) + (let () (declare (not safe)) (_%g187665187731%_))) + (let () (declare (not safe)) (_%g187665187731%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g187391187457%_))))) + (_%g187665187731%_))))) (let () (declare (not safe)) - (_%g187391187457%_)))))))) - (_%__kont187950187951%_ - (lambda (_%L187109%_ _%L187110%_ _%L187111%_) - (let* ((_%__stx187766187767%_ _%L187110%_) - (_%g187138187187%_ + (_%g187665187731%_)))))))) + (_%__kont188224188225%_ + (lambda (_%L187383%_ _%L187384%_ _%L187385%_) + (let* ((_%__stx188040188041%_ _%L187384%_) + (_%g187412187461%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx187766187767%_))))) - (let ((_%__kont187768187769%_ - (lambda (_%L187315%_ - _%L187316%_ - _%L187317%_) - (_%lp187000%_ - _%L187109%_ - _%negation187003%_ - (cons (cons _%L187111%_ + _%__stx188040188041%_))))) + (let ((_%__kont188042188043%_ + (lambda (_%L187589%_ + _%L187590%_ + _%L187591%_) + (_%lp187274%_ + _%L187383%_ + _%negation187277%_ + (cons (cons _%L187385%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons '() (cons _%L187315%_ '())))) + (cons '() (cons _%L187589%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clauses187004%_) - (cons (cons _%L187317%_ + _%clauses187278%_) + (cons (cons _%L187591%_ (let () (declare (not safe)) (gxc#compile-e__0 - _%L187316%_))) - _%konts187005%_)))) - (_%__kont187770187771%_ - (lambda (_%L187216%_) - (_%lp187000%_ - _%L187109%_ - (cons _%L187111%_ + _%L187590%_))) + _%konts187279%_)))) + (_%__kont188044188045%_ + (lambda (_%L187490%_) + (_%lp187274%_ + _%L187383%_ + (cons _%L187385%_ (let () (declare (not safe)) (gxc#compile-e__0 - _%L187216%_))) - _%clauses187004%_ - _%konts187005%_)))) + _%L187490%_))) + _%clauses187278%_ + _%konts187279%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx187766187767%_)) - (let ((_%e187143187235%_ + _%__stx188040188041%_)) + (let ((_%e187417187509%_ (let () (declare (not safe)) (gx#stx-e - _%__stx187766187767%_)))) - (let ((_%tl187145187240%_ + _%__stx188040188041%_)))) + (let ((_%tl187419187514%_ (let () (declare (not safe)) - (##cdr _%e187143187235%_))) - (_%hd187144187238%_ + (##cdr _%e187417187509%_))) + (_%hd187418187512%_ (let () (declare (not safe)) - (##car _%e187143187235%_)))) + (##car _%e187417187509%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187144187238%_)) + _%hd187418187512%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd187144187238%_)) + _%hd187418187512%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187145187240%_)) - (let ((_%e187146187243%_ + _%tl187419187514%_)) + (let ((_%e187420187517%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl187145187240%_)))) - (let ((_%tl187148187248%_ + (gx#stx-e _%tl187419187514%_)))) + (let ((_%tl187422187522%_ (let () (declare (not safe)) - (##cdr _%e187146187243%_))) - (_%hd187147187246%_ + (##cdr _%e187420187517%_))) + (_%hd187421187520%_ (let () (declare (not safe)) - (##car _%e187146187243%_)))) + (##car _%e187420187517%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%hd187147187246%_)) + (gx#stx-null? _%hd187421187520%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187148187248%_)) - (let ((_%e187149187251%_ + (gx#stx-pair? _%tl187422187522%_)) + (let ((_%e187423187525%_ (let () (declare (not safe)) - (gx#stx-e _%tl187148187248%_)))) - (let ((_%tl187151187256%_ + (gx#stx-e _%tl187422187522%_)))) + (let ((_%tl187425187530%_ (let () (declare (not safe)) - (##cdr _%e187149187251%_))) - (_%hd187150187254%_ + (##cdr _%e187423187525%_))) + (_%hd187424187528%_ (let () (declare (not safe)) - (##car _%e187149187251%_)))) + (##car _%e187423187525%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187150187254%_)) - (let ((_%e187152187259%_ + (gx#stx-pair? _%hd187424187528%_)) + (let ((_%e187426187533%_ (let () (declare (not safe)) - (gx#stx-e _%hd187150187254%_)))) - (let ((_%tl187154187264%_ + (gx#stx-e _%hd187424187528%_)))) + (let ((_%tl187428187538%_ (let () (declare (not safe)) - (##cdr _%e187152187259%_))) - (_%hd187153187262%_ + (##cdr _%e187426187533%_))) + (_%hd187427187536%_ (let () (declare (not safe)) - (##car _%e187152187259%_)))) + (##car _%e187426187533%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187153187262%_)) + _%hd187427187536%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd187153187262%_)) + _%hd187427187536%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187154187264%_)) - (let ((_%e187155187267%_ + _%tl187428187538%_)) + (let ((_%e187429187541%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl187154187264%_)))) - (let ((_%tl187157187272%_ - (let () (declare (not safe)) (##cdr _%e187155187267%_))) - (_%hd187156187270%_ + (gx#stx-e _%tl187428187538%_)))) + (let ((_%tl187431187546%_ + (let () (declare (not safe)) (##cdr _%e187429187541%_))) + (_%hd187430187544%_ (let () (declare (not safe)) - (##car _%e187155187267%_)))) + (##car _%e187429187541%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187156187270%_)) - (let ((_%e187158187275%_ + (gx#stx-pair? _%hd187430187544%_)) + (let ((_%e187432187549%_ (let () (declare (not safe)) - (gx#stx-e _%hd187156187270%_)))) - (let ((_%tl187160187280%_ + (gx#stx-e _%hd187430187544%_)))) + (let ((_%tl187434187554%_ (let () (declare (not safe)) - (##cdr _%e187158187275%_))) - (_%hd187159187278%_ + (##cdr _%e187432187549%_))) + (_%hd187433187552%_ (let () (declare (not safe)) - (##car _%e187158187275%_)))) + (##car _%e187432187549%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187159187278%_)) - (let ((_%e187161187283%_ + (gx#stx-pair? _%hd187433187552%_)) + (let ((_%e187435187557%_ (let () (declare (not safe)) - (gx#stx-e _%hd187159187278%_)))) - (let ((_%tl187163187288%_ + (gx#stx-e _%hd187433187552%_)))) + (let ((_%tl187437187562%_ (let () (declare (not safe)) - (##cdr _%e187161187283%_))) - (_%hd187162187286%_ + (##cdr _%e187435187557%_))) + (_%hd187436187560%_ (let () (declare (not safe)) - (##car _%e187161187283%_)))) + (##car _%e187435187557%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187162187286%_)) - (let ((_%e187164187291%_ + (gx#stx-pair? _%hd187436187560%_)) + (let ((_%e187438187565%_ (let () (declare (not safe)) - (gx#stx-e _%hd187162187286%_)))) - (let ((_%tl187166187296%_ + (gx#stx-e _%hd187436187560%_)))) + (let ((_%tl187440187570%_ (let () (declare (not safe)) - (##cdr _%e187164187291%_))) - (_%hd187165187294%_ + (##cdr _%e187438187565%_))) + (_%hd187439187568%_ (let () (declare (not safe)) - (##car _%e187164187291%_)))) + (##car _%e187438187565%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187166187296%_)) + _%tl187440187570%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187163187288%_)) - (let ((_%e187167187299%_ + _%tl187437187562%_)) + (let ((_%e187441187573%_ (let () (declare (not safe)) (gx#stx-e - _%tl187163187288%_)))) - (let ((_%tl187169187304%_ + _%tl187437187562%_)))) + (let ((_%tl187443187578%_ (let () (declare (not safe)) - (##cdr _%e187167187299%_))) - (_%hd187168187302%_ + (##cdr _%e187441187573%_))) + (_%hd187442187576%_ (let () (declare (not safe)) - (##car _%e187167187299%_)))) + (##car _%e187441187573%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187169187304%_)) + _%tl187443187578%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl187160187280%_)) + (gx#stx-null? _%tl187434187554%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187157187272%_)) - (let ((_%e187170187307%_ + (gx#stx-pair? _%tl187431187546%_)) + (let ((_%e187444187581%_ (let () (declare (not safe)) - (gx#stx-e _%tl187157187272%_)))) - (let ((_%tl187172187312%_ + (gx#stx-e _%tl187431187546%_)))) + (let ((_%tl187446187586%_ (let () (declare (not safe)) - (##cdr _%e187170187307%_))) - (_%hd187171187310%_ + (##cdr _%e187444187581%_))) + (_%hd187445187584%_ (let () (declare (not safe)) - (##car _%e187170187307%_)))) + (##car _%e187444187581%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187172187312%_)) + (gx#stx-null? _%tl187446187586%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187151187256%_)) - (_%__kont187768187769%_ - _%hd187171187310%_ - _%hd187168187302%_ - _%hd187165187294%_) + (gx#stx-null? _%tl187425187530%_)) + (_%__kont188042188043%_ + _%hd187445187584%_ + _%hd187442187576%_ + _%hd187439187568%_) (let () (declare (not safe)) - (_%g187138187187%_))) + (_%g187412187461%_))) (let () (declare (not safe)) - (_%g187138187187%_))))) - (let () (declare (not safe)) (_%g187138187187%_))) - (let () (declare (not safe)) (_%g187138187187%_))) - (let () (declare (not safe)) (_%g187138187187%_))))) + (_%g187412187461%_))))) + (let () (declare (not safe)) (_%g187412187461%_))) + (let () (declare (not safe)) (_%g187412187461%_))) + (let () (declare (not safe)) (_%g187412187461%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g187138187187%_))) + (_%g187412187461%_))) (let () (declare (not safe)) - (_%g187138187187%_))))) + (_%g187412187461%_))))) (let () (declare (not safe)) - (_%g187138187187%_))))) + (_%g187412187461%_))))) (let () (declare (not safe)) - (_%g187138187187%_))))) - (let () (declare (not safe)) (_%g187138187187%_))))) - (let () (declare (not safe)) (_%g187138187187%_))) + (_%g187412187461%_))))) + (let () (declare (not safe)) (_%g187412187461%_))))) + (let () (declare (not safe)) (_%g187412187461%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g187138187187%_))) + (_%g187412187461%_))) (let () (declare (not safe)) - (_%g187138187187%_))))) + (_%g187412187461%_))))) (let () (declare (not safe)) - (_%g187138187187%_))))) + (_%g187412187461%_))))) (let () (declare (not safe)) - (_%g187138187187%_))) - (let () (declare (not safe)) (_%g187138187187%_))))) - (let () (declare (not safe)) (_%g187138187187%_))) + (_%g187412187461%_))) + (let () (declare (not safe)) (_%g187412187461%_))))) + (let () (declare (not safe)) (_%g187412187461%_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#begin-annotation _%hd187144187238%_)) + (gx#stx-eq? '%#begin-annotation _%hd187418187512%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187145187240%_)) - (let ((_%e187177187200%_ + (gx#stx-pair? _%tl187419187514%_)) + (let ((_%e187451187474%_ (let () (declare (not safe)) - (gx#stx-e _%tl187145187240%_)))) - (let ((_%tl187179187205%_ + (gx#stx-e _%tl187419187514%_)))) + (let ((_%tl187453187479%_ (let () (declare (not safe)) - (##cdr _%e187177187200%_))) - (_%hd187178187203%_ + (##cdr _%e187451187474%_))) + (_%hd187452187477%_ (let () (declare (not safe)) - (##car _%e187177187200%_)))) + (##car _%e187451187474%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd187178187203%_)) + (gx#identifier? _%hd187452187477%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@match-else - _%hd187178187203%_)) + _%hd187452187477%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187179187205%_)) - (let ((_%e187180187208%_ + (gx#stx-pair? _%tl187453187479%_)) + (let ((_%e187454187482%_ (let () (declare (not safe)) - (gx#stx-e _%tl187179187205%_)))) - (let ((_%tl187182187213%_ + (gx#stx-e _%tl187453187479%_)))) + (let ((_%tl187456187487%_ (let () (declare (not safe)) - (##cdr _%e187180187208%_))) - (_%hd187181187211%_ + (##cdr _%e187454187482%_))) + (_%hd187455187485%_ (let () (declare (not safe)) - (##car _%e187180187208%_)))) + (##car _%e187454187482%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187182187213%_)) - (_%__kont187770187771%_ - _%hd187181187211%_) + _%tl187456187487%_)) + (_%__kont188044188045%_ + _%hd187455187485%_) (let () (declare (not safe)) - (_%g187138187187%_))))) + (_%g187412187461%_))))) (let () (declare (not safe)) - (_%g187138187187%_))) + (_%g187412187461%_))) (let () (declare (not safe)) - (_%g187138187187%_))) + (_%g187412187461%_))) (let () (declare (not safe)) - (_%g187138187187%_))))) - (let () (declare (not safe)) (_%g187138187187%_))) - (let () (declare (not safe)) (_%g187138187187%_)))) + (_%g187412187461%_))))) + (let () (declare (not safe)) (_%g187412187461%_))) + (let () (declare (not safe)) (_%g187412187461%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g187138187187%_))))) + (_%g187412187461%_))))) (let () (declare (not safe)) - (_%g187138187187%_)))))))) + (_%g187412187461%_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx187946187947%_)) - (let ((_%e187011187354%_ + (gx#stx-pair? _%__stx188220188221%_)) + (let ((_%e187285187628%_ (let () (declare (not safe)) - (gx#stx-e _%__stx187946187947%_)))) - (let ((_%tl187013187359%_ + (gx#stx-e _%__stx188220188221%_)))) + (let ((_%tl187287187633%_ (let () (declare (not safe)) - (##cdr _%e187011187354%_))) - (_%hd187012187357%_ + (##cdr _%e187285187628%_))) + (_%hd187286187631%_ (let () (declare (not safe)) - (##car _%e187011187354%_)))) + (##car _%e187285187628%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd187012187357%_)) + (gx#identifier? _%hd187286187631%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin-annotation - _%hd187012187357%_)) + _%hd187286187631%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187013187359%_)) - (let ((_%e187014187362%_ + _%tl187287187633%_)) + (let ((_%e187288187636%_ (let () (declare (not safe)) (gx#stx-e - _%tl187013187359%_)))) - (let ((_%tl187016187367%_ + _%tl187287187633%_)))) + (let ((_%tl187290187641%_ (let () (declare (not safe)) - (##cdr _%e187014187362%_))) - (_%hd187015187365%_ + (##cdr _%e187288187636%_))) + (_%hd187289187639%_ (let () (declare (not safe)) - (##car _%e187014187362%_)))) + (##car _%e187288187636%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187015187365%_)) + _%hd187289187639%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@match-body - _%hd187015187365%_)) + _%hd187289187639%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl187016187367%_)) - (let ((_%e187017187370%_ + (gx#stx-pair? _%tl187290187641%_)) + (let ((_%e187291187644%_ (let () (declare (not safe)) - (gx#stx-e _%tl187016187367%_)))) - (let ((_%tl187019187375%_ + (gx#stx-e _%tl187290187641%_)))) + (let ((_%tl187293187649%_ (let () (declare (not safe)) - (##cdr _%e187017187370%_))) - (_%hd187018187373%_ + (##cdr _%e187291187644%_))) + (_%hd187292187647%_ (let () (declare (not safe)) - (##car _%e187017187370%_)))) + (##car _%e187291187644%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187019187375%_)) - (_%__kont187948187949%_ _%hd187018187373%_) + (gx#stx-null? _%tl187293187649%_)) + (_%__kont188222188223%_ _%hd187292187647%_) (let () (declare (not safe)) - (_%g187008187048%_))))) - (let () (declare (not safe)) (_%g187008187048%_))) - (let () (declare (not safe)) (_%g187008187048%_))) - (let () (declare (not safe)) (_%g187008187048%_))))) + (_%g187282187322%_))))) + (let () (declare (not safe)) (_%g187282187322%_))) + (let () (declare (not safe)) (_%g187282187322%_))) + (let () (declare (not safe)) (_%g187282187322%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g187008187048%_))) + (_%g187282187322%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd187012187357%_)) + _%hd187286187631%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187013187359%_)) - (let ((_%e187026187061%_ + _%tl187287187633%_)) + (let ((_%e187300187335%_ (let () (declare (not safe)) (gx#stx-e - _%tl187013187359%_)))) - (let ((_%tl187028187066%_ + _%tl187287187633%_)))) + (let ((_%tl187302187340%_ (let () (declare (not safe)) - (##cdr _%e187026187061%_))) - (_%hd187027187064%_ + (##cdr _%e187300187335%_))) + (_%hd187301187338%_ (let () (declare (not safe)) - (##car _%e187026187061%_)))) + (##car _%e187300187335%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187027187064%_)) - (let ((_%e187029187069%_ + _%hd187301187338%_)) + (let ((_%e187303187343%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd187027187064%_)))) - (let ((_%tl187031187074%_ + (gx#stx-e _%hd187301187338%_)))) + (let ((_%tl187305187348%_ (let () (declare (not safe)) - (##cdr _%e187029187069%_))) - (_%hd187030187072%_ + (##cdr _%e187303187343%_))) + (_%hd187304187346%_ (let () (declare (not safe)) - (##car _%e187029187069%_)))) + (##car _%e187303187343%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187030187072%_)) - (let ((_%e187032187077%_ + (gx#stx-pair? _%hd187304187346%_)) + (let ((_%e187306187351%_ (let () (declare (not safe)) - (gx#stx-e _%hd187030187072%_)))) - (let ((_%tl187034187082%_ + (gx#stx-e _%hd187304187346%_)))) + (let ((_%tl187308187356%_ (let () (declare (not safe)) - (##cdr _%e187032187077%_))) - (_%hd187033187080%_ + (##cdr _%e187306187351%_))) + (_%hd187307187354%_ (let () (declare (not safe)) - (##car _%e187032187077%_)))) + (##car _%e187306187351%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187033187080%_)) - (let ((_%e187035187085%_ + (gx#stx-pair? _%hd187307187354%_)) + (let ((_%e187309187359%_ (let () (declare (not safe)) - (gx#stx-e _%hd187033187080%_)))) - (let ((_%tl187037187090%_ + (gx#stx-e _%hd187307187354%_)))) + (let ((_%tl187311187364%_ (let () (declare (not safe)) - (##cdr _%e187035187085%_))) - (_%hd187036187088%_ + (##cdr _%e187309187359%_))) + (_%hd187310187362%_ (let () (declare (not safe)) - (##car _%e187035187085%_)))) + (##car _%e187309187359%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187037187090%_)) + (gx#stx-null? _%tl187311187364%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187034187082%_)) - (let ((_%e187038187093%_ + _%tl187308187356%_)) + (let ((_%e187312187367%_ (let () (declare (not safe)) (gx#stx-e - _%tl187034187082%_)))) - (let ((_%tl187040187098%_ + _%tl187308187356%_)))) + (let ((_%tl187314187372%_ (let () (declare (not safe)) - (##cdr _%e187038187093%_))) - (_%hd187039187096%_ + (##cdr _%e187312187367%_))) + (_%hd187313187370%_ (let () (declare (not safe)) - (##car _%e187038187093%_)))) + (##car _%e187312187367%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187040187098%_)) + _%tl187314187372%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187031187074%_)) + _%tl187305187348%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl187028187066%_)) - (let ((_%e187041187101%_ + (gx#stx-pair? _%tl187302187340%_)) + (let ((_%e187315187375%_ (let () (declare (not safe)) - (gx#stx-e _%tl187028187066%_)))) - (let ((_%tl187043187106%_ + (gx#stx-e _%tl187302187340%_)))) + (let ((_%tl187317187380%_ (let () (declare (not safe)) - (##cdr _%e187041187101%_))) - (_%hd187042187104%_ + (##cdr _%e187315187375%_))) + (_%hd187316187378%_ (let () (declare (not safe)) - (##car _%e187041187101%_)))) + (##car _%e187315187375%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187043187106%_)) - (_%__kont187950187951%_ - _%hd187042187104%_ - _%hd187039187096%_ - _%hd187036187088%_) + (gx#stx-null? _%tl187317187380%_)) + (_%__kont188224188225%_ + _%hd187316187378%_ + _%hd187313187370%_ + _%hd187310187362%_) (let () (declare (not safe)) - (_%g187008187048%_))))) - (let () (declare (not safe)) (_%g187008187048%_))) - (let () (declare (not safe)) (_%g187008187048%_))) - (let () (declare (not safe)) (_%g187008187048%_))))) + (_%g187282187322%_))))) + (let () (declare (not safe)) (_%g187282187322%_))) + (let () (declare (not safe)) (_%g187282187322%_))) + (let () (declare (not safe)) (_%g187282187322%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g187008187048%_))) + (_%g187282187322%_))) (let () (declare (not safe)) - (_%g187008187048%_))))) + (_%g187282187322%_))))) (let () (declare (not safe)) - (_%g187008187048%_))))) - (let () (declare (not safe)) (_%g187008187048%_))))) - (let () (declare (not safe)) (_%g187008187048%_))))) + (_%g187282187322%_))))) + (let () (declare (not safe)) (_%g187282187322%_))))) + (let () (declare (not safe)) (_%g187282187322%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g187008187048%_))) + (_%g187282187322%_))) (let () (declare (not safe)) - (_%g187008187048%_)))) + (_%g187282187322%_)))) (let () (declare (not safe)) - (_%g187008187048%_))))) + (_%g187282187322%_))))) (let () (declare (not safe)) - (_%g187008187048%_))))))) - _%hd186907186969%_ - _%hd186904186961%_ - _%hd186901186953%_) - (_%g186883186913%_ _%g186884186916%_)))) + (_%g187282187322%_))))))) + _%hd187181187243%_ + _%hd187178187235%_ + _%hd187175187227%_) + (_%g187157187187%_ _%g187158187190%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g186883186913%_ - _%g186884186916%_)) - (_%g186883186913%_ - _%g186884186916%_)) - (_%g186883186913%_ - _%g186884186916%_)))) - (_%g186883186913%_ _%g186884186916%_)) - (_%g186883186913%_ _%g186884186916%_)))) - (_%g186883186913%_ _%g186884186916%_)))) - (_%g186883186913%_ _%g186884186916%_)))) + (_%g187157187187%_ + _%g187158187190%_)) + (_%g187157187187%_ + _%g187158187190%_)) + (_%g187157187187%_ + _%g187158187190%_)))) + (_%g187157187187%_ _%g187158187190%_)) + (_%g187157187187%_ _%g187158187190%_)))) + (_%g187157187187%_ _%g187158187190%_)))) + (_%g187157187187%_ _%g187158187190%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g186883186913%_ - _%g186884186916%_)))) - (_%g186883186913%_ _%g186884186916%_)) - (_%g186883186913%_ _%g186884186916%_)) - (_%g186883186913%_ _%g186884186916%_)))) - (_%g186883186913%_ _%g186884186916%_))))) - (_%g186882187579%_ _%stx186881%_)))) + (_%g187157187187%_ + _%g187158187190%_)))) + (_%g187157187187%_ _%g187158187190%_)) + (_%g187157187187%_ _%g187158187190%_)) + (_%g187157187187%_ _%g187158187190%_)))) + (_%g187157187187%_ _%g187158187190%_))))) + (_%g187156187853%_ _%stx187155%_)))) (define gxc#optimize-match-body - (lambda (_%stx186587%_ - _%negation186588%_ - _%clauses186589%_ - _%konts186590%_) - (letrec ((_%push-variables186592%_ - (lambda (_%clause186839%_ _%kont186840%_) - (let ((_%clause186841186851%_ _%clause186839%_) - (_%kont186842186853%_ _%kont186840%_)) - (let* ((_%E186844186857%_ + (lambda (_%stx186861%_ + _%negation186862%_ + _%clauses186863%_ + _%konts186864%_) + (letrec ((_%push-variables186866%_ + (lambda (_%clause187113%_ _%kont187114%_) + (let ((_%clause187115187125%_ _%clause187113%_) + (_%kont187116187127%_ _%kont187114%_)) + (let* ((_%E187118187131%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause186841186851%_ - _%kont186842186853%_ + _%clause187115187125%_ + _%kont187116187127%_ '([clause-name . clause-lambda] [K . _]))) '#!void)) - (_%K186845186864%_ - (lambda (_%clause-lambda186860%_ - _%clause-name186861%_ - _%K186862%_) - (cons _%clause-name186861%_ + (_%K187119187138%_ + (lambda (_%clause-lambda187134%_ + _%clause-name187135%_ + _%K187136%_) + (cons _%clause-name187135%_ (gxc#apply-push-match-vars__% '#f '() - _%K186862%_ - _%clause-lambda186860%_))))) + _%K187136%_ + _%clause-lambda187134%_))))) (if (let () (declare (not safe)) - (##pair? _%clause186841186851%_)) - (let ((_%hd186848186867%_ + (##pair? _%clause187115187125%_)) + (let ((_%hd187122187141%_ (let () (declare (not safe)) - (##car _%clause186841186851%_))) - (_%tl186849186869%_ + (##car _%clause187115187125%_))) + (_%tl187123187143%_ (let () (declare (not safe)) - (##cdr _%clause186841186851%_)))) - (let* ((_%clause-name186872%_ _%hd186848186867%_) - (_%clause-lambda186874%_ - _%tl186849186869%_)) + (##cdr _%clause187115187125%_)))) + (let* ((_%clause-name187146%_ _%hd187122187141%_) + (_%clause-lambda187148%_ + _%tl187123187143%_)) (if (let () (declare (not safe)) - (##pair? _%kont186842186853%_)) - (let* ((_%hd186846186876%_ + (##pair? _%kont187116187127%_)) + (let* ((_%hd187120187150%_ (let () (declare (not safe)) - (##car _%kont186842186853%_))) - (_%K186879%_ _%hd186846186876%_)) - (_%K186845186864%_ - _%clause-lambda186874%_ - _%clause-name186872%_ - _%K186879%_)) - (_%E186844186857%_)))) - (_%E186844186857%_)))))) - (_%start-match186593%_ - (lambda (_%kont186773%_) - (let* ((_%g186775186791%_ - (lambda (_%g186776186788%_) + (##car _%kont187116187127%_))) + (_%K187153%_ _%hd187120187150%_)) + (_%K187119187138%_ + _%clause-lambda187148%_ + _%clause-name187146%_ + _%K187153%_)) + (_%E187118187131%_)))) + (_%E187118187131%_)))))) + (_%start-match186867%_ + (lambda (_%kont187047%_) + (let* ((_%g187049187065%_ + (lambda (_%g187050187062%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g186776186788%_)))) - (_%g186774186836%_ - (lambda (_%g186776186794%_) + _%g187050187062%_)))) + (_%g187048187110%_ + (lambda (_%g187050187068%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g186776186794%_)) - (let ((_%e186778186796%_ + (gx#stx-pair? _%g187050187068%_)) + (let ((_%e187052187070%_ (let () (declare (not safe)) - (gx#stx-e _%g186776186794%_)))) - (let ((_%hd186779186799%_ + (gx#stx-e _%g187050187068%_)))) + (let ((_%hd187053187073%_ (let () (declare (not safe)) - (##car _%e186778186796%_))) - (_%tl186780186801%_ + (##car _%e187052187070%_))) + (_%tl187054187075%_ (let () (declare (not safe)) - (##cdr _%e186778186796%_)))) + (##cdr _%e187052187070%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd186779186799%_)) + _%hd187053187073%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd186779186799%_)) + _%hd187053187073%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186780186801%_)) - (let ((_%e186781186804%_ + _%tl187054187075%_)) + (let ((_%e187055187078%_ (let () (declare (not safe)) (gx#stx-e - _%tl186780186801%_)))) - (let ((_%hd186782186807%_ + _%tl187054187075%_)))) + (let ((_%hd187056187081%_ (let () (declare (not safe)) - (##car _%e186781186804%_))) - (_%tl186783186809%_ + (##car _%e187055187078%_))) + (_%tl187057187083%_ (let () (declare (not safe)) - (##cdr _%e186781186804%_)))) + (##cdr _%e187055187078%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%hd186782186807%_)) + _%hd187056187081%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl186783186809%_)) - (let ((_%e186784186812%_ + (gx#stx-pair? _%tl187057187083%_)) + (let ((_%e187058187086%_ (let () (declare (not safe)) - (gx#stx-e _%tl186783186809%_)))) - (let ((_%hd186785186815%_ + (gx#stx-e _%tl187057187083%_)))) + (let ((_%hd187059187089%_ (let () (declare (not safe)) - (##car _%e186784186812%_))) - (_%tl186786186817%_ + (##car _%e187058187086%_))) + (_%tl187060187091%_ (let () (declare (not safe)) - (##cdr _%e186784186812%_)))) + (##cdr _%e187058187086%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186786186817%_)) - ((lambda (_%L186820%_) _%L186820%_) - _%hd186785186815%_) - (_%g186775186791%_ _%g186776186794%_)))) - (_%g186775186791%_ _%g186776186794%_)) - (_%g186775186791%_ _%g186776186794%_)))) + (gx#stx-null? _%tl187060187091%_)) + ((lambda (_%L187094%_) _%L187094%_) + _%hd187059187089%_) + (_%g187049187065%_ _%g187050187068%_)))) + (_%g187049187065%_ _%g187050187068%_)) + (_%g187049187065%_ _%g187050187068%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g186775186791%_ - _%g186776186794%_)) - (_%g186775186791%_ - _%g186776186794%_)) - (_%g186775186791%_ - _%g186776186794%_)))) - (_%g186775186791%_ _%g186776186794%_))))) - (_%g186774186836%_ _%kont186773%_)))) - (_%match-body186594%_ - (lambda (_%blocks186670%_) - (let* ((_%blocks186671186680%_ _%blocks186670%_) - (_%E186673186684%_ + (_%g187049187065%_ + _%g187050187068%_)) + (_%g187049187065%_ + _%g187050187068%_)) + (_%g187049187065%_ + _%g187050187068%_)))) + (_%g187049187065%_ _%g187050187068%_))))) + (_%g187048187110%_ _%kont187047%_)))) + (_%match-body186868%_ + (lambda (_%blocks186944%_) + (let* ((_%blocks186945186954%_ _%blocks186944%_) + (_%E186947186958%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%blocks186671186680%_ + _%blocks186945186954%_ '([[#f . start] . rest]))) '#!void)) - (_%K186674186756%_ - (lambda (_%rest186687%_ _%start186688%_) - (let _%lp186690%_ ((_%rest186692%_ - _%rest186687%_) - (_%body186693%_ - (_%start-match186593%_ - _%start186688%_))) - (let* ((_%rest186694186702%_ _%rest186692%_) - (_%else186696186710%_ - (lambda () _%body186693%_)) - (_%K186698186744%_ - (lambda (_%rest186713%_ - _%block186714%_) - (let* ((_%block186715186722%_ - _%block186714%_) - (_%E186717186726%_ + (_%K186948187030%_ + (lambda (_%rest186961%_ _%start186962%_) + (let _%lp186964%_ ((_%rest186966%_ + _%rest186961%_) + (_%body186967%_ + (_%start-match186867%_ + _%start186962%_))) + (let* ((_%rest186968186976%_ _%rest186966%_) + (_%else186970186984%_ + (lambda () _%body186967%_)) + (_%K186972187018%_ + (lambda (_%rest186987%_ + _%block186988%_) + (let* ((_%block186989186996%_ + _%block186988%_) + (_%E186991187000%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block186715186722%_ + _%block186989186996%_ '([K . kont]))) '#!void)) - (_%K186718186732%_ - (lambda (_%kont186729%_ - _%K186730%_) - (_%lp186690%_ - _%rest186713%_ + (_%K186992187006%_ + (lambda (_%kont187003%_ + _%K187004%_) + (_%lp186964%_ + _%rest186987%_ (cons '%#let-values - (cons (cons (cons (cons _%K186730%_ + (cons (cons (cons (cons _%K187004%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%kont186729%_ '())) + (cons _%kont187003%_ '())) '()) - (cons _%body186693%_ '()))))))) + (cons _%body186967%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%block186715186722%_)) - (let ((_%hd186719186735%_ + (##pair? _%block186989186996%_)) + (let ((_%hd186993187009%_ (let () (declare (not safe)) - (##car _%block186715186722%_))) - (_%tl186720186737%_ + (##car _%block186989186996%_))) + (_%tl186994187011%_ (let () (declare (not safe)) - (##cdr _%block186715186722%_)))) - (let* ((_%K186740%_ - _%hd186719186735%_) - (_%kont186742%_ - _%tl186720186737%_)) - (_%K186718186732%_ - _%kont186742%_ - _%K186740%_))) - (_%E186717186726%_)))))) + (##cdr _%block186989186996%_)))) + (let* ((_%K187014%_ + _%hd186993187009%_) + (_%kont187016%_ + _%tl186994187011%_)) + (_%K186992187006%_ + _%kont187016%_ + _%K187014%_))) + (_%E186991187000%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest186694186702%_)) - (let ((_%hd186699186747%_ + (##pair? _%rest186968186976%_)) + (let ((_%hd186973187021%_ (let () (declare (not safe)) - (##car _%rest186694186702%_))) - (_%tl186700186749%_ + (##car _%rest186968186976%_))) + (_%tl186974187023%_ (let () (declare (not safe)) - (##cdr _%rest186694186702%_)))) - (let* ((_%block186752%_ - _%hd186699186747%_) - (_%rest186754%_ - _%tl186700186749%_)) - (_%K186698186744%_ - _%rest186754%_ - _%block186752%_))) - (_%else186696186710%_))))))) + (##cdr _%rest186968186976%_)))) + (let* ((_%block187026%_ + _%hd186973187021%_) + (_%rest187028%_ + _%tl186974187023%_)) + (_%K186972187018%_ + _%rest187028%_ + _%block187026%_))) + (_%else186970186984%_))))))) (if (let () (declare (not safe)) - (##pair? _%blocks186671186680%_)) - (let ((_%hd186675186759%_ + (##pair? _%blocks186945186954%_)) + (let ((_%hd186949187033%_ (let () (declare (not safe)) - (##car _%blocks186671186680%_))) - (_%tl186676186761%_ + (##car _%blocks186945186954%_))) + (_%tl186950187035%_ (let () (declare (not safe)) - (##cdr _%blocks186671186680%_)))) + (##cdr _%blocks186945186954%_)))) (if (let () (declare (not safe)) - (##pair? _%hd186675186759%_)) - (let ((_%hd186677186764%_ + (##pair? _%hd186949187033%_)) + (let ((_%hd186951187038%_ (let () (declare (not safe)) - (##car _%hd186675186759%_))) - (_%tl186678186766%_ + (##car _%hd186949187033%_))) + (_%tl186952187040%_ (let () (declare (not safe)) - (##cdr _%hd186675186759%_)))) + (##cdr _%hd186949187033%_)))) (if (let () (declare (not safe)) - (##eq? _%hd186677186764%_ '#f)) - (let* ((_%start186769%_ - _%tl186678186766%_) - (_%rest186771%_ - _%tl186676186761%_)) - (_%K186674186756%_ - _%rest186771%_ - _%start186769%_)) - (_%E186673186684%_))) - (_%E186673186684%_))) - (_%E186673186684%_)))))) - (let ((__tmp190853 + (##eq? _%hd186951187038%_ '#f)) + (let* ((_%start187043%_ + _%tl186952187040%_) + (_%rest187045%_ + _%tl186950187035%_)) + (_%K186948187030%_ + _%rest187045%_ + _%start187043%_)) + (_%E186947186958%_))) + (_%E186947186958%_))) + (_%E186947186958%_)))))) + (let ((__tmp191127 (lambda () - (let* ((_%clauses186597%_ - (map _%push-variables186592%_ - _%clauses186589%_ - _%konts186590%_)) - (_%blocks186599%_ - (gxc#optimize-match-basic-blocks _%clauses186597%_)) - (_%blocks186601%_ + (let* ((_%clauses186871%_ + (map _%push-variables186866%_ + _%clauses186863%_ + _%konts186864%_)) + (_%blocks186873%_ + (gxc#optimize-match-basic-blocks _%clauses186871%_)) + (_%blocks186875%_ (gxc#optimize-match-fold-basic-blocks - _%blocks186599%_)) - (_%body186603%_ - (_%match-body186594%_ _%blocks186601%_)) - (_%bind186637%_ - (map (lambda (_%e186604186606%_) - (let* ((_%g186608186615%_ _%e186604186606%_) - (_%E186610186619%_ + _%blocks186873%_)) + (_%body186877%_ + (_%match-body186868%_ _%blocks186875%_)) + (_%bind186911%_ + (map (lambda (_%e186878186880%_) + (let* ((_%g186882186889%_ _%e186878186880%_) + (_%E186884186893%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g186608186615%_ + _%g186882186889%_ '([K . kont]))) '#!void)) - (_%K186611186625%_ - (lambda (_%kont186622%_ _%K186623%_) - (cons (cons _%K186623%_ '()) - (cons _%kont186622%_ '()))))) + (_%K186885186899%_ + (lambda (_%kont186896%_ _%K186897%_) + (cons (cons _%K186897%_ '()) + (cons _%kont186896%_ '()))))) (if (let () (declare (not safe)) - (##pair? _%g186608186615%_)) - (let ((_%hd186612186628%_ + (##pair? _%g186882186889%_)) + (let ((_%hd186886186902%_ (let () (declare (not safe)) - (##car _%g186608186615%_))) - (_%tl186613186630%_ + (##car _%g186882186889%_))) + (_%tl186887186904%_ (let () (declare (not safe)) - (##cdr _%g186608186615%_)))) - (let* ((_%K186633%_ - _%hd186612186628%_) - (_%kont186635%_ - _%tl186613186630%_)) - (_%K186611186625%_ - _%kont186635%_ - _%K186633%_))) - (_%E186610186619%_)))) - _%konts186590%_)) - (_%negate186667%_ - (let* ((_%negation186638186645%_ _%negation186588%_) - (_%E186640186649%_ + (##cdr _%g186882186889%_)))) + (let* ((_%K186907%_ + _%hd186886186902%_) + (_%kont186909%_ + _%tl186887186904%_)) + (_%K186885186899%_ + _%kont186909%_ + _%K186907%_))) + (_%E186884186893%_)))) + _%konts186864%_)) + (_%negate186941%_ + (let* ((_%negation186912186919%_ _%negation186862%_) + (_%E186914186923%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%negation186638186645%_ + _%negation186912186919%_ '([K . kont]))) '#!void)) - (_%K186641186655%_ - (lambda (_%kont186652%_ _%K186653%_) - (cons (cons _%K186653%_ '()) - (cons _%kont186652%_ '()))))) + (_%K186915186929%_ + (lambda (_%kont186926%_ _%K186927%_) + (cons (cons _%K186927%_ '()) + (cons _%kont186926%_ '()))))) (if (let () (declare (not safe)) - (##pair? _%negation186638186645%_)) - (let ((_%hd186642186658%_ + (##pair? _%negation186912186919%_)) + (let ((_%hd186916186932%_ (let () (declare (not safe)) - (##car _%negation186638186645%_))) - (_%tl186643186660%_ + (##car _%negation186912186919%_))) + (_%tl186917186934%_ (let () (declare (not safe)) - (##cdr _%negation186638186645%_)))) - (let* ((_%K186663%_ _%hd186642186658%_) - (_%kont186665%_ _%tl186643186660%_)) - (_%K186641186655%_ - _%kont186665%_ - _%K186663%_))) - (_%E186640186649%_)))) - (__tmp190854 + (##cdr _%negation186912186919%_)))) + (let* ((_%K186937%_ _%hd186916186932%_) + (_%kont186939%_ _%tl186917186934%_)) + (_%K186915186929%_ + _%kont186939%_ + _%K186937%_))) + (_%E186914186923%_)))) + (__tmp191128 (cons '%#let-values - (cons (cons _%negate186667%_ '()) + (cons (cons _%negate186941%_ '()) (cons (cons '%#let-values - (cons _%bind186637%_ - (cons _%body186603%_ + (cons _%bind186911%_ + (cons _%body186877%_ '()))) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp190854 _%stx186587%_)))) - (__tmp190852 - (let ((__obj190833 + (gxc#xform-wrap-source __tmp191128 _%stx186861%_)))) + (__tmp191126 + (let ((__obj191107 (let () (declare (not safe)) (##structure @@ -1870,1932 +1870,1932 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj190833)) - __obj190833))) + (gx#local-context:::init!__0 __obj191107)) + __obj191107))) (declare (not safe)) (__call-with-parameters - __tmp190853 + __tmp191127 gx#current-expander-context - __tmp190852))))) + __tmp191126))))) (define gxc#optimize-match-basic-blocks - (lambda (_%clauses186547%_) - (let _%lp186549%_ ((_%rest186551%_ _%clauses186547%_) - (_%blocks186552%_ '())) - (let* ((_%rest186553186561%_ _%rest186551%_) - (_%else186555186569%_ (lambda () (reverse _%blocks186552%_))) - (_%K186557186575%_ - (lambda (_%rest186572%_ _%clause186573%_) - (_%lp186549%_ - _%rest186572%_ + (lambda (_%clauses186821%_) + (let _%lp186823%_ ((_%rest186825%_ _%clauses186821%_) + (_%blocks186826%_ '())) + (let* ((_%rest186827186835%_ _%rest186825%_) + (_%else186829186843%_ (lambda () (reverse _%blocks186826%_))) + (_%K186831186849%_ + (lambda (_%rest186846%_ _%clause186847%_) + (_%lp186823%_ + _%rest186846%_ (gxc#optimize-match-lift-basic-blocks - _%clause186573%_ - _%blocks186552%_))))) - (if (let () (declare (not safe)) (##pair? _%rest186553186561%_)) - (let ((_%hd186558186578%_ + _%clause186847%_ + _%blocks186826%_))))) + (if (let () (declare (not safe)) (##pair? _%rest186827186835%_)) + (let ((_%hd186832186852%_ (let () (declare (not safe)) - (##car _%rest186553186561%_))) - (_%tl186559186580%_ + (##car _%rest186827186835%_))) + (_%tl186833186854%_ (let () (declare (not safe)) - (##cdr _%rest186553186561%_)))) - (let* ((_%clause186583%_ _%hd186558186578%_) - (_%rest186585%_ _%tl186559186580%_)) - (_%K186557186575%_ _%rest186585%_ _%clause186583%_))) - (_%else186555186569%_)))))) + (##cdr _%rest186827186835%_)))) + (let* ((_%clause186857%_ _%hd186832186852%_) + (_%rest186859%_ _%tl186833186854%_)) + (_%K186831186849%_ _%rest186859%_ _%clause186857%_))) + (_%else186829186843%_)))))) (define gxc#optimize-match-lift-basic-blocks - (lambda (_%clause185890%_ _%blocks185891%_) - (letrec ((_%bind->args185893%_ - (lambda (_%bind186542%_) - (let ((__tmp190855 - (lambda (_%b186544%_ _%r186545%_) - (cons (cons '%#ref (cons (car _%b186544%_) '())) - _%r186545%_)))) + (lambda (_%clause186164%_ _%blocks186165%_) + (letrec ((_%bind->args186167%_ + (lambda (_%bind186816%_) + (let ((__tmp191129 + (lambda (_%b186818%_ _%r186819%_) + (cons (cons '%#ref (cons (car _%b186818%_) '())) + _%r186819%_)))) (declare (not safe)) - (__foldl1 __tmp190855 '() _%bind186542%_)))) - (_%create-block185894%_ - (lambda (_%body186490%_ - _%let-bind186491%_ - _%bind186492%_ - _%assert186493%_) - (let* ((_%id186495%_ - (let ((__tmp190856 + (__foldl1 __tmp191129 '() _%bind186816%_)))) + (_%create-block186168%_ + (lambda (_%body186764%_ + _%let-bind186765%_ + _%bind186766%_ + _%assert186767%_) + (let* ((_%id186769%_ + (let ((__tmp191130 (let () (declare (not safe)) (##gensym '__match)))) (declare (not safe)) - (make-symbol__0 __tmp190856))) - (_%id186497%_ + (make-symbol__0 __tmp191130))) + (_%id186771%_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _%id186495%_))) - (_%_186499%_ + (gx#core-quote-syntax__0 _%id186769%_))) + (_%_186773%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%id186497%_))) - (_%block186501%_ - (cons _%id186497%_ - (cons _%body186490%_ - (cons _%bind186492%_ - (cons _%assert186493%_ '()))))) - (_%continue186503%_ + (gx#core-bind-runtime!__0 _%id186771%_))) + (_%block186775%_ + (cons _%id186771%_ + (cons _%body186764%_ + (cons _%bind186766%_ + (cons _%assert186767%_ '()))))) + (_%continue186777%_ (cons '%#call - (cons (cons '%#ref (cons _%id186497%_ '())) - (_%bind->args185893%_ - _%bind186492%_)))) - (_%continue186539%_ - (if (null? _%let-bind186491%_) - _%continue186503%_ - (let ((_%locals186537%_ - (map (lambda (_%e186504186506%_) - (let* ((_%g186508186515%_ - _%e186504186506%_) - (_%E186510186519%_ + (cons (cons '%#ref (cons _%id186771%_ '())) + (_%bind->args186167%_ + _%bind186766%_)))) + (_%continue186813%_ + (if (null? _%let-bind186765%_) + _%continue186777%_ + (let ((_%locals186811%_ + (map (lambda (_%e186778186780%_) + (let* ((_%g186782186789%_ + _%e186778186780%_) + (_%E186784186793%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g186508186515%_ + _%g186782186789%_ '([id . expr]))) '#!void)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K186511186525%_ - (lambda (_%expr186522%_ - _%id186523%_) - (cons (cons _%id186523%_ + (_%K186785186799%_ + (lambda (_%expr186796%_ + _%id186797%_) + (cons (cons _%id186797%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%expr186522%_ '()))))) + (cons _%expr186796%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%g186508186515%_)) - (let ((_%hd186512186528%_ + (##pair? _%g186782186789%_)) + (let ((_%hd186786186802%_ (let () (declare (not safe)) - (##car _%g186508186515%_))) - (_%tl186513186530%_ + (##car _%g186782186789%_))) + (_%tl186787186804%_ (let () (declare (not safe)) - (##cdr _%g186508186515%_)))) - (let* ((_%id186533%_ - _%hd186512186528%_) - (_%expr186535%_ - _%tl186513186530%_)) - (_%K186511186525%_ - _%expr186535%_ - _%id186533%_))) - (_%E186510186519%_)))) - _%let-bind186491%_))) + (##cdr _%g186782186789%_)))) + (let* ((_%id186807%_ + _%hd186786186802%_) + (_%expr186809%_ + _%tl186787186804%_)) + (_%K186785186799%_ + _%expr186809%_ + _%id186807%_))) + (_%E186784186793%_)))) + _%let-bind186765%_))) (cons '%#let-values - (cons _%locals186537%_ - (cons _%continue186503%_ + (cons _%locals186811%_ + (cons _%continue186777%_ '()))))))) - (values _%continue186539%_ _%block186501%_)))) - (_%basic-block185895%_ - (lambda (_%body186076%_ _%bind186077%_ _%assert186078%_) - (let* ((_%__stx188054188055%_ _%body186076%_) - (_%g186083186167%_ + (values _%continue186813%_ _%block186775%_)))) + (_%basic-block186169%_ + (lambda (_%body186350%_ _%bind186351%_ _%assert186352%_) + (let* ((_%__stx188328188329%_ _%body186350%_) + (_%g186357186441%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx188054188055%_))))) - (let ((_%__kont188056188057%_ - (lambda (_%L186426%_ _%L186427%_ _%L186428%_) - (let ((_g190857_ - (_%create-block185894%_ - _%L186427%_ + _%__stx188328188329%_))))) + (let ((_%__kont188330188331%_ + (lambda (_%L186700%_ _%L186701%_ _%L186702%_) + (let ((_g191131_ + (_%create-block186168%_ + _%L186701%_ '() - _%bind186077%_ - (cons (cons _%L186428%_ '#t) - _%assert186078%_)))) + _%bind186351%_ + (cons (cons _%L186702%_ '#t) + _%assert186352%_)))) (begin - (let ((_g190858_ + (let ((_g191132_ (let () (declare (not safe)) - (if (##values? _g190857_) - (##vector-length _g190857_) + (if (##values? _g191131_) + (##vector-length _g191131_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g190858_ 2))) + (##fx= _g191132_ 2))) (error "Context expects 2 values" - _g190858_))) - (let ((_%k-continue186446%_ + _g191132_))) + (let ((_%k-continue186720%_ (let () (declare (not safe)) - (##vector-ref _g190857_ 0))) - (_%k-block186447%_ + (##vector-ref _g191131_ 0))) + (_%k-block186721%_ (let () (declare (not safe)) - (##vector-ref _g190857_ 1)))) - (let* ((_%__stx188036188037%_ _%L186426%_) - (_%g186450186459%_ + (##vector-ref _g191131_ 1)))) + (let* ((_%__stx188310188311%_ _%L186700%_) + (_%g186724186733%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx188036188037%_))))) - (let ((_%__kont188038188039%_ + _%__stx188310188311%_))))) + (let ((_%__kont188312188313%_ (lambda () (values (cons '%#if - (cons _%L186428%_ + (cons _%L186702%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%k-continue186446%_ - (cons _%L186426%_ '())))) - (cons _%k-block186447%_ '())))) + (cons _%k-continue186720%_ + (cons _%L186700%_ '())))) + (cons _%k-block186721%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188040188041%_ + (_%__kont188314188315%_ (lambda () - (let ((_g190859_ - (_%create-block185894%_ - _%L186426%_ + (let ((_g191133_ + (_%create-block186168%_ + _%L186700%_ '() - _%bind186077%_ - (cons (cons _%L186428%_ + _%bind186351%_ + (cons (cons _%L186702%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f) - _%assert186078%_)))) + _%assert186352%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin - (let ((_g190860_ + (let ((_g191134_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g190859_) - (##vector-length _g190859_) + _g191133_) + (##vector-length _g191133_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g190860_ 2))) - (error "Context expects 2 values" _g190860_))) + (if (not (let () (declare (not safe)) (##fx= _g191134_ 2))) + (error "Context expects 2 values" _g191134_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%e-continue186466%_ + (let ((_%e-continue186740%_ (let () (declare (not safe)) (##vector-ref - _g190859_ + _g191133_ 0))) - (_%e-block186467%_ + (_%e-block186741%_ (let () (declare (not safe)) (##vector-ref - _g190859_ + _g191133_ 1)))) (values (cons '%#if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L186428%_ - (cons _%k-continue186446%_ - (cons _%e-continue186466%_ '())))) - (cons _%k-block186447%_ - (cons _%e-block186467%_ '()))))))))) + (cons _%L186702%_ + (cons _%k-continue186720%_ + (cons _%e-continue186740%_ '())))) + (cons _%k-block186721%_ + (cons _%e-block186741%_ '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx188036188037%_)) - (let ((_%e186452186474%_ + _%__stx188310188311%_)) + (let ((_%e186726186748%_ (let () (declare (not safe)) (gx#stx-e - _%__stx188036188037%_)))) - (let ((_%tl186454186479%_ + _%__stx188310188311%_)))) + (let ((_%tl186728186753%_ (let () (declare (not safe)) - (##cdr _%e186452186474%_))) - (_%hd186453186477%_ + (##cdr _%e186726186748%_))) + (_%hd186727186751%_ (let () (declare (not safe)) - (##car _%e186452186474%_)))) + (##car _%e186726186748%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd186453186477%_)) + _%hd186727186751%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd186453186477%_)) - (_%__kont188038188039%_) - (_%__kont188040188041%_)) - (_%__kont188040188041%_)))) - (_%__kont188040188041%_))))))))) - (_%__kont188058188059%_ - (lambda () (values _%body186076%_ '()))) - (_%__kont188062188063%_ - (lambda (_%L186255%_ _%L186256%_ _%L186257%_) - (let* ((_%let-bind186292%_ + _%hd186727186751%_)) + (_%__kont188312188313%_) + (_%__kont188314188315%_)) + (_%__kont188314188315%_)))) + (_%__kont188314188315%_))))))))) + (_%__kont188332188333%_ + (lambda () (values _%body186350%_ '()))) + (_%__kont188336188337%_ + (lambda (_%L186529%_ _%L186530%_ _%L186531%_) + (let* ((_%let-bind186566%_ (map cons - (let ((__tmp190861 - (lambda (_%g186277186280%_ - _%g186278186282%_) - (cons _%g186277186280%_ - _%g186278186282%_)))) + (let ((__tmp191135 + (lambda (_%g186551186554%_ + _%g186552186556%_) + (cons _%g186551186554%_ + _%g186552186556%_)))) (declare (not safe)) (__foldr1 - __tmp190861 + __tmp191135 '() - _%L186257%_)) - (let ((__tmp190862 - (lambda (_%g186284186287%_ - _%g186285186289%_) - (cons _%g186284186287%_ - _%g186285186289%_)))) + _%L186531%_)) + (let ((__tmp191136 + (lambda (_%g186558186561%_ + _%g186559186563%_) + (cons _%g186558186561%_ + _%g186559186563%_)))) (declare (not safe)) (__foldr1 - __tmp190862 + __tmp191136 '() - _%L186256%_)))) - (_g190863_ - (_%create-block185894%_ - _%L186255%_ - _%let-bind186292%_ + _%L186530%_)))) + (_g191137_ + (_%create-block186168%_ + _%L186529%_ + _%let-bind186566%_ (let () (declare (not safe)) (__foldl1 cons - _%bind186077%_ - _%let-bind186292%_)) - _%assert186078%_))) + _%bind186351%_ + _%let-bind186566%_)) + _%assert186352%_))) (begin - (let ((_g190864_ + (let ((_g191138_ (let () (declare (not safe)) - (if (##values? _g190863_) - (##vector-length _g190863_) + (if (##values? _g191137_) + (##vector-length _g191137_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g190864_ 2))) + (##fx= _g191138_ 2))) (error "Context expects 2 values" - _g190864_))) - (let ((_%continue186294%_ + _g191138_))) + (let ((_%continue186568%_ (let () (declare (not safe)) - (##vector-ref _g190863_ 0))) - (_%block186295%_ + (##vector-ref _g191137_ 0))) + (_%block186569%_ (let () (declare (not safe)) - (##vector-ref _g190863_ 1)))) - (values _%continue186294%_ - (cons _%block186295%_ '()))))))) - (_%__kont188066188067%_ - (lambda () (values _%body186076%_ '())))) - (let* ((_%__match188145188146%_ - (lambda (_%e186134186179%_ - _%hd186135186182%_ - _%tl186136186184%_ - _%e186137186187%_ - _%hd186138186190%_ - _%tl186139186192%_ - _%__splice188064188065%_ - _%target186140186195%_ - _%tl186142186197%_) - (letrec ((_%loop186143186200%_ - (lambda (_%hd186141186203%_ - _%expr186147186205%_ - _%id186148186207%_) + (##vector-ref _g191137_ 1)))) + (values _%continue186568%_ + (cons _%block186569%_ '()))))))) + (_%__kont188340188341%_ + (lambda () (values _%body186350%_ '())))) + (let* ((_%__match188419188420%_ + (lambda (_%e186408186453%_ + _%hd186409186456%_ + _%tl186410186458%_ + _%e186411186461%_ + _%hd186412186464%_ + _%tl186413186466%_ + _%__splice188338188339%_ + _%target186414186469%_ + _%tl186416186471%_) + (letrec ((_%loop186417186474%_ + (lambda (_%hd186415186477%_ + _%expr186421186479%_ + _%id186422186481%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd186141186203%_)) - (let ((_%e186144186210%_ + _%hd186415186477%_)) + (let ((_%e186418186484%_ (let () (declare (not safe)) (gx#stx-e - _%hd186141186203%_)))) - (let ((_%lp-tl186146186215%_ + _%hd186415186477%_)))) + (let ((_%lp-tl186420186489%_ (let () (declare (not safe)) - (##cdr _%e186144186210%_))) - (_%lp-hd186145186213%_ + (##cdr _%e186418186484%_))) + (_%lp-hd186419186487%_ (let () (declare (not safe)) - (##car _%e186144186210%_)))) + (##car _%e186418186484%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd186145186213%_)) - (let ((_%e186154186218%_ + _%lp-hd186419186487%_)) + (let ((_%e186428186492%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd186145186213%_)))) - (let ((_%tl186156186223%_ + (gx#stx-e _%lp-hd186419186487%_)))) + (let ((_%tl186430186497%_ (let () (declare (not safe)) - (##cdr _%e186154186218%_))) - (_%hd186155186221%_ + (##cdr _%e186428186492%_))) + (_%hd186429186495%_ (let () (declare (not safe)) - (##car _%e186154186218%_)))) + (##car _%e186428186492%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd186155186221%_)) - (let ((_%e186157186226%_ + (gx#stx-pair? _%hd186429186495%_)) + (let ((_%e186431186500%_ (let () (declare (not safe)) - (gx#stx-e _%hd186155186221%_)))) - (let ((_%tl186159186231%_ + (gx#stx-e _%hd186429186495%_)))) + (let ((_%tl186433186505%_ (let () (declare (not safe)) - (##cdr _%e186157186226%_))) - (_%hd186158186229%_ + (##cdr _%e186431186500%_))) + (_%hd186432186503%_ (let () (declare (not safe)) - (##car _%e186157186226%_)))) + (##car _%e186431186500%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186159186231%_)) + (gx#stx-null? _%tl186433186505%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186156186223%_)) - (let ((_%e186160186234%_ + (gx#stx-pair? _%tl186430186497%_)) + (let ((_%e186434186508%_ (let () (declare (not safe)) - (gx#stx-e _%tl186156186223%_)))) - (let ((_%tl186162186239%_ + (gx#stx-e _%tl186430186497%_)))) + (let ((_%tl186436186513%_ (let () (declare (not safe)) - (##cdr _%e186160186234%_))) - (_%hd186161186237%_ + (##cdr _%e186434186508%_))) + (_%hd186435186511%_ (let () (declare (not safe)) - (##car _%e186160186234%_)))) + (##car _%e186434186508%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186162186239%_)) - (_%loop186143186200%_ - _%lp-tl186146186215%_ - (cons _%hd186161186237%_ - _%expr186147186205%_) - (cons _%hd186158186229%_ - _%id186148186207%_)) - (_%__kont188066188067%_)))) - (_%__kont188066188067%_)) - (_%__kont188066188067%_)))) - (_%__kont188066188067%_)))) - (_%__kont188066188067%_)))) + _%tl186436186513%_)) + (_%loop186417186474%_ + _%lp-tl186420186489%_ + (cons _%hd186435186511%_ + _%expr186421186479%_) + (cons _%hd186432186503%_ + _%id186422186481%_)) + (_%__kont188340188341%_)))) + (_%__kont188340188341%_)) + (_%__kont188340188341%_)))) + (_%__kont188340188341%_)))) + (_%__kont188340188341%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id186150186244%_ - (reverse _%id186148186207%_)) - (_%expr186149186242%_ - (reverse _%expr186147186205%_))) + (let ((_%id186424186518%_ + (reverse _%id186422186481%_)) + (_%expr186423186516%_ + (reverse _%expr186421186479%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186139186192%_)) - (let ((_%e186151186247%_ + _%tl186413186466%_)) + (let ((_%e186425186521%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl186139186192%_)))) - (let ((_%tl186153186252%_ + (gx#stx-e _%tl186413186466%_)))) + (let ((_%tl186427186526%_ (let () (declare (not safe)) - (##cdr _%e186151186247%_))) - (_%hd186152186250%_ + (##cdr _%e186425186521%_))) + (_%hd186426186524%_ (let () (declare (not safe)) - (##car _%e186151186247%_)))) + (##car _%e186425186521%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186153186252%_)) - (_%__kont188062188063%_ - _%hd186152186250%_ - _%expr186149186242%_ - _%id186150186244%_) - (_%__kont188066188067%_)))) - (_%__kont188066188067%_))))))) + (gx#stx-null? _%tl186427186526%_)) + (_%__kont188336188337%_ + _%hd186426186524%_ + _%expr186423186516%_ + _%id186424186518%_) + (_%__kont188340188341%_)))) + (_%__kont188340188341%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop186143186200%_ - _%target186140186195%_ + (_%loop186417186474%_ + _%target186414186469%_ '() '())))) - (_%__match188121188122%_ - (lambda (_%e186100186303%_ - _%hd186101186306%_ - _%tl186102186308%_ - _%e186103186311%_ - _%hd186104186314%_ - _%tl186105186316%_ - _%__splice188060188061%_ - _%target186106186319%_ - _%tl186108186321%_) - (letrec ((_%loop186109186324%_ - (lambda (_%hd186107186327%_) + (_%__match188395188396%_ + (lambda (_%e186374186577%_ + _%hd186375186580%_ + _%tl186376186582%_ + _%e186377186585%_ + _%hd186378186588%_ + _%tl186379186590%_ + _%__splice188334188335%_ + _%target186380186593%_ + _%tl186382186595%_) + (letrec ((_%loop186383186598%_ + (lambda (_%hd186381186601%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd186107186327%_)) - (let ((_%e186110186330%_ + _%hd186381186601%_)) + (let ((_%e186384186604%_ (let () (declare (not safe)) (gx#stx-e - _%hd186107186327%_)))) - (let ((_%lp-tl186112186335%_ + _%hd186381186601%_)))) + (let ((_%lp-tl186386186609%_ (let () (declare (not safe)) - (##cdr _%e186110186330%_))) - (_%lp-hd186111186333%_ + (##cdr _%e186384186604%_))) + (_%lp-hd186385186607%_ (let () (declare (not safe)) - (##car _%e186110186330%_)))) + (##car _%e186384186604%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd186111186333%_)) - (let ((_%e186116186338%_ + _%lp-hd186385186607%_)) + (let ((_%e186390186612%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd186111186333%_)))) - (let ((_%tl186118186343%_ + (gx#stx-e _%lp-hd186385186607%_)))) + (let ((_%tl186392186617%_ (let () (declare (not safe)) - (##cdr _%e186116186338%_))) - (_%hd186117186341%_ + (##cdr _%e186390186612%_))) + (_%hd186391186615%_ (let () (declare (not safe)) - (##car _%e186116186338%_)))) + (##car _%e186390186612%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd186117186341%_)) - (let ((_%e186119186346%_ + (gx#stx-pair? _%hd186391186615%_)) + (let ((_%e186393186620%_ (let () (declare (not safe)) - (gx#stx-e _%hd186117186341%_)))) - (let ((_%tl186121186351%_ + (gx#stx-e _%hd186391186615%_)))) + (let ((_%tl186395186625%_ (let () (declare (not safe)) - (##cdr _%e186119186346%_))) - (_%hd186120186349%_ + (##cdr _%e186393186620%_))) + (_%hd186394186623%_ (let () (declare (not safe)) - (##car _%e186119186346%_)))) + (##car _%e186393186620%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186121186351%_)) + (gx#stx-null? _%tl186395186625%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186118186343%_)) - (let ((_%e186122186354%_ + (gx#stx-pair? _%tl186392186617%_)) + (let ((_%e186396186628%_ (let () (declare (not safe)) - (gx#stx-e _%tl186118186343%_)))) - (let ((_%tl186124186359%_ + (gx#stx-e _%tl186392186617%_)))) + (let ((_%tl186398186633%_ (let () (declare (not safe)) - (##cdr _%e186122186354%_))) - (_%hd186123186357%_ + (##cdr _%e186396186628%_))) + (_%hd186397186631%_ (let () (declare (not safe)) - (##car _%e186122186354%_)))) + (##car _%e186396186628%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd186123186357%_)) - (let ((_%e186125186362%_ + _%hd186397186631%_)) + (let ((_%e186399186636%_ (let () (declare (not safe)) (gx#stx-e - _%hd186123186357%_)))) - (let ((_%tl186127186367%_ + _%hd186397186631%_)))) + (let ((_%tl186401186641%_ (let () (declare (not safe)) - (##cdr _%e186125186362%_))) - (_%hd186126186365%_ + (##cdr _%e186399186636%_))) + (_%hd186400186639%_ (let () (declare (not safe)) - (##car _%e186125186362%_)))) + (##car _%e186399186636%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd186126186365%_)) + _%hd186400186639%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd186126186365%_)) + _%hd186400186639%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl186127186367%_)) - (let ((_%e186128186370%_ + (gx#stx-pair? _%tl186401186641%_)) + (let ((_%e186402186644%_ (let () (declare (not safe)) - (gx#stx-e _%tl186127186367%_)))) - (let ((_%tl186130186375%_ + (gx#stx-e _%tl186401186641%_)))) + (let ((_%tl186404186649%_ (let () (declare (not safe)) - (##cdr _%e186128186370%_))) - (_%hd186129186373%_ + (##cdr _%e186402186644%_))) + (_%hd186403186647%_ (let () (declare (not safe)) - (##car _%e186128186370%_)))) + (##car _%e186402186644%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186130186375%_)) + (gx#stx-null? _%tl186404186649%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186124186359%_)) - (_%loop186109186324%_ _%lp-tl186112186335%_) - (_%__match188145188146%_ - _%e186100186303%_ - _%hd186101186306%_ - _%tl186102186308%_ - _%e186103186311%_ - _%hd186104186314%_ - _%tl186105186316%_ - _%__splice188060188061%_ - _%target186106186319%_ - _%tl186108186321%_)) - (_%__match188145188146%_ - _%e186100186303%_ - _%hd186101186306%_ - _%tl186102186308%_ - _%e186103186311%_ - _%hd186104186314%_ - _%tl186105186316%_ - _%__splice188060188061%_ - _%target186106186319%_ - _%tl186108186321%_)))) - (_%__match188145188146%_ - _%e186100186303%_ - _%hd186101186306%_ - _%tl186102186308%_ - _%e186103186311%_ - _%hd186104186314%_ - _%tl186105186316%_ - _%__splice188060188061%_ - _%target186106186319%_ - _%tl186108186321%_)) - (_%__match188145188146%_ - _%e186100186303%_ - _%hd186101186306%_ - _%tl186102186308%_ - _%e186103186311%_ - _%hd186104186314%_ - _%tl186105186316%_ - _%__splice188060188061%_ - _%target186106186319%_ - _%tl186108186321%_)) - (_%__match188145188146%_ - _%e186100186303%_ - _%hd186101186306%_ - _%tl186102186308%_ - _%e186103186311%_ - _%hd186104186314%_ - _%tl186105186316%_ - _%__splice188060188061%_ - _%target186106186319%_ - _%tl186108186321%_)))) + (gx#stx-null? _%tl186398186633%_)) + (_%loop186383186598%_ _%lp-tl186386186609%_) + (_%__match188419188420%_ + _%e186374186577%_ + _%hd186375186580%_ + _%tl186376186582%_ + _%e186377186585%_ + _%hd186378186588%_ + _%tl186379186590%_ + _%__splice188334188335%_ + _%target186380186593%_ + _%tl186382186595%_)) + (_%__match188419188420%_ + _%e186374186577%_ + _%hd186375186580%_ + _%tl186376186582%_ + _%e186377186585%_ + _%hd186378186588%_ + _%tl186379186590%_ + _%__splice188334188335%_ + _%target186380186593%_ + _%tl186382186595%_)))) + (_%__match188419188420%_ + _%e186374186577%_ + _%hd186375186580%_ + _%tl186376186582%_ + _%e186377186585%_ + _%hd186378186588%_ + _%tl186379186590%_ + _%__splice188334188335%_ + _%target186380186593%_ + _%tl186382186595%_)) + (_%__match188419188420%_ + _%e186374186577%_ + _%hd186375186580%_ + _%tl186376186582%_ + _%e186377186585%_ + _%hd186378186588%_ + _%tl186379186590%_ + _%__splice188334188335%_ + _%target186380186593%_ + _%tl186382186595%_)) + (_%__match188419188420%_ + _%e186374186577%_ + _%hd186375186580%_ + _%tl186376186582%_ + _%e186377186585%_ + _%hd186378186588%_ + _%tl186379186590%_ + _%__splice188334188335%_ + _%target186380186593%_ + _%tl186382186595%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match188145188146%_ - _%e186100186303%_ - _%hd186101186306%_ - _%tl186102186308%_ - _%e186103186311%_ - _%hd186104186314%_ - _%tl186105186316%_ - _%__splice188060188061%_ - _%target186106186319%_ - _%tl186108186321%_)))) - (_%__match188145188146%_ - _%e186100186303%_ - _%hd186101186306%_ - _%tl186102186308%_ - _%e186103186311%_ - _%hd186104186314%_ - _%tl186105186316%_ - _%__splice188060188061%_ - _%target186106186319%_ - _%tl186108186321%_)) - (_%__match188145188146%_ - _%e186100186303%_ - _%hd186101186306%_ - _%tl186102186308%_ - _%e186103186311%_ - _%hd186104186314%_ - _%tl186105186316%_ - _%__splice188060188061%_ - _%target186106186319%_ - _%tl186108186321%_)))) - (_%__match188145188146%_ - _%e186100186303%_ - _%hd186101186306%_ - _%tl186102186308%_ - _%e186103186311%_ - _%hd186104186314%_ - _%tl186105186316%_ - _%__splice188060188061%_ - _%target186106186319%_ - _%tl186108186321%_)))) - (_%__match188145188146%_ - _%e186100186303%_ - _%hd186101186306%_ - _%tl186102186308%_ - _%e186103186311%_ - _%hd186104186314%_ - _%tl186105186316%_ - _%__splice188060188061%_ - _%target186106186319%_ - _%tl186108186321%_)))) + (_%__match188419188420%_ + _%e186374186577%_ + _%hd186375186580%_ + _%tl186376186582%_ + _%e186377186585%_ + _%hd186378186588%_ + _%tl186379186590%_ + _%__splice188334188335%_ + _%target186380186593%_ + _%tl186382186595%_)))) + (_%__match188419188420%_ + _%e186374186577%_ + _%hd186375186580%_ + _%tl186376186582%_ + _%e186377186585%_ + _%hd186378186588%_ + _%tl186379186590%_ + _%__splice188334188335%_ + _%target186380186593%_ + _%tl186382186595%_)) + (_%__match188419188420%_ + _%e186374186577%_ + _%hd186375186580%_ + _%tl186376186582%_ + _%e186377186585%_ + _%hd186378186588%_ + _%tl186379186590%_ + _%__splice188334188335%_ + _%target186380186593%_ + _%tl186382186595%_)))) + (_%__match188419188420%_ + _%e186374186577%_ + _%hd186375186580%_ + _%tl186376186582%_ + _%e186377186585%_ + _%hd186378186588%_ + _%tl186379186590%_ + _%__splice188334188335%_ + _%target186380186593%_ + _%tl186382186595%_)))) + (_%__match188419188420%_ + _%e186374186577%_ + _%hd186375186580%_ + _%tl186376186582%_ + _%e186377186585%_ + _%hd186378186588%_ + _%tl186379186590%_ + _%__splice188334188335%_ + _%target186380186593%_ + _%tl186382186595%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186105186316%_)) - (let ((_%e186113186379%_ + _%tl186379186590%_)) + (let ((_%e186387186653%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl186105186316%_)))) - (let ((_%tl186115186384%_ - (let () (declare (not safe)) (##cdr _%e186113186379%_))) - (_%hd186114186382%_ + (gx#stx-e _%tl186379186590%_)))) + (let ((_%tl186389186658%_ + (let () (declare (not safe)) (##cdr _%e186387186653%_))) + (_%hd186388186656%_ (let () (declare (not safe)) - (##car _%e186113186379%_)))) + (##car _%e186387186653%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186115186384%_)) - (_%__kont188058188059%_) - (_%__match188145188146%_ - _%e186100186303%_ - _%hd186101186306%_ - _%tl186102186308%_ - _%e186103186311%_ - _%hd186104186314%_ - _%tl186105186316%_ - _%__splice188060188061%_ - _%target186106186319%_ - _%tl186108186321%_)))) - (_%__match188145188146%_ - _%e186100186303%_ - _%hd186101186306%_ - _%tl186102186308%_ - _%e186103186311%_ - _%hd186104186314%_ - _%tl186105186316%_ - _%__splice188060188061%_ - _%target186106186319%_ - _%tl186108186321%_)))))) + (gx#stx-null? _%tl186389186658%_)) + (_%__kont188332188333%_) + (_%__match188419188420%_ + _%e186374186577%_ + _%hd186375186580%_ + _%tl186376186582%_ + _%e186377186585%_ + _%hd186378186588%_ + _%tl186379186590%_ + _%__splice188334188335%_ + _%target186380186593%_ + _%tl186382186595%_)))) + (_%__match188419188420%_ + _%e186374186577%_ + _%hd186375186580%_ + _%tl186376186582%_ + _%e186377186585%_ + _%hd186378186588%_ + _%tl186379186590%_ + _%__splice188334188335%_ + _%target186380186593%_ + _%tl186382186595%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop186109186324%_ - _%target186106186319%_))))) + (_%loop186383186598%_ + _%target186380186593%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx188054188055%_)) - (let ((_%e186088186394%_ + (gx#stx-pair? _%__stx188328188329%_)) + (let ((_%e186362186668%_ (let () (declare (not safe)) - (gx#stx-e _%__stx188054188055%_)))) - (let ((_%tl186090186399%_ + (gx#stx-e _%__stx188328188329%_)))) + (let ((_%tl186364186673%_ (let () (declare (not safe)) - (##cdr _%e186088186394%_))) - (_%hd186089186397%_ + (##cdr _%e186362186668%_))) + (_%hd186363186671%_ (let () (declare (not safe)) - (##car _%e186088186394%_)))) + (##car _%e186362186668%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd186089186397%_)) + (gx#identifier? _%hd186363186671%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd186089186397%_)) + _%hd186363186671%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186090186399%_)) - (let ((_%e186091186402%_ + _%tl186364186673%_)) + (let ((_%e186365186676%_ (let () (declare (not safe)) (gx#stx-e - _%tl186090186399%_)))) - (let ((_%tl186093186407%_ + _%tl186364186673%_)))) + (let ((_%tl186367186681%_ (let () (declare (not safe)) - (##cdr _%e186091186402%_))) - (_%hd186092186405%_ + (##cdr _%e186365186676%_))) + (_%hd186366186679%_ (let () (declare (not safe)) - (##car _%e186091186402%_)))) + (##car _%e186365186676%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186093186407%_)) - (let ((_%e186094186410%_ + _%tl186367186681%_)) + (let ((_%e186368186684%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl186093186407%_)))) - (let ((_%tl186096186415%_ - (let () (declare (not safe)) (##cdr _%e186094186410%_))) - (_%hd186095186413%_ + (gx#stx-e _%tl186367186681%_)))) + (let ((_%tl186370186689%_ + (let () (declare (not safe)) (##cdr _%e186368186684%_))) + (_%hd186369186687%_ (let () (declare (not safe)) - (##car _%e186094186410%_)))) + (##car _%e186368186684%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186096186415%_)) - (let ((_%e186097186418%_ + (gx#stx-pair? _%tl186370186689%_)) + (let ((_%e186371186692%_ (let () (declare (not safe)) - (gx#stx-e _%tl186096186415%_)))) - (let ((_%tl186099186423%_ + (gx#stx-e _%tl186370186689%_)))) + (let ((_%tl186373186697%_ (let () (declare (not safe)) - (##cdr _%e186097186418%_))) - (_%hd186098186421%_ + (##cdr _%e186371186692%_))) + (_%hd186372186695%_ (let () (declare (not safe)) - (##car _%e186097186418%_)))) + (##car _%e186371186692%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186099186423%_)) - (_%__kont188056188057%_ - _%hd186098186421%_ - _%hd186095186413%_ - _%hd186092186405%_) - (_%__kont188066188067%_)))) - (_%__kont188066188067%_)))) - (_%__kont188066188067%_)))) + (gx#stx-null? _%tl186373186697%_)) + (_%__kont188330188331%_ + _%hd186372186695%_ + _%hd186369186687%_ + _%hd186366186679%_) + (_%__kont188340188341%_)))) + (_%__kont188340188341%_)))) + (_%__kont188340188341%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188066188067%_)) + (_%__kont188340188341%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd186089186397%_)) + _%hd186363186671%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186090186399%_)) - (let ((_%e186103186311%_ + _%tl186364186673%_)) + (let ((_%e186377186585%_ (let () (declare (not safe)) (gx#stx-e - _%tl186090186399%_)))) - (let ((_%tl186105186316%_ + _%tl186364186673%_)))) + (let ((_%tl186379186590%_ (let () (declare (not safe)) - (##cdr _%e186103186311%_))) - (_%hd186104186314%_ + (##cdr _%e186377186585%_))) + (_%hd186378186588%_ (let () (declare (not safe)) - (##car _%e186103186311%_)))) + (##car _%e186377186585%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd186104186314%_)) - (let ((_%__splice188060188061%_ + _%hd186378186588%_)) + (let ((_%__splice188334188335%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd186104186314%_ '0)))) - (let ((_%tl186108186321%_ + (gx#syntax-split-splice _%hd186378186588%_ '0)))) + (let ((_%tl186382186595%_ (let () (declare (not safe)) - (##vector-ref _%__splice188060188061%_ '1))) - (_%target186106186319%_ + (##vector-ref _%__splice188334188335%_ '1))) + (_%target186380186593%_ (let () (declare (not safe)) - (##vector-ref _%__splice188060188061%_ '0)))) + (##vector-ref _%__splice188334188335%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186108186321%_)) - (_%__match188121188122%_ - _%e186088186394%_ - _%hd186089186397%_ - _%tl186090186399%_ - _%e186103186311%_ - _%hd186104186314%_ - _%tl186105186316%_ - _%__splice188060188061%_ - _%target186106186319%_ - _%tl186108186321%_) - (_%__kont188066188067%_)))) - (_%__kont188066188067%_)))) + (gx#stx-null? _%tl186382186595%_)) + (_%__match188395188396%_ + _%e186362186668%_ + _%hd186363186671%_ + _%tl186364186673%_ + _%e186377186585%_ + _%hd186378186588%_ + _%tl186379186590%_ + _%__splice188334188335%_ + _%target186380186593%_ + _%tl186382186595%_) + (_%__kont188340188341%_)))) + (_%__kont188340188341%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188066188067%_)) - (_%__kont188066188067%_))) - (_%__kont188066188067%_)))) - (_%__kont188066188067%_))))))) - (_%fold-blocks185896%_ - (lambda (_%rest185995%_ _%blocks185996%_) - (let* ((_%rest185997186014%_ _%rest185995%_) - (_%E186000186018%_ + (_%__kont188340188341%_)) + (_%__kont188340188341%_))) + (_%__kont188340188341%_)))) + (_%__kont188340188341%_))))))) + (_%fold-blocks186170%_ + (lambda (_%rest186269%_ _%blocks186270%_) + (let* ((_%rest186271186288%_ _%rest186269%_) + (_%E186274186292%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest185997186014%_ + _%rest186271186288%_ '([[name body bind assert] . rest]) '([]))) '#!void))) - (let ((_%K186002186038%_ - (lambda (_%rest186029%_ - _%assert186030%_ - _%bind186031%_ - _%body186032%_ - _%name186033%_) - (let ((_g190865_ - (_%basic-block185895%_ - _%body186032%_ - _%bind186031%_ - _%assert186030%_))) + (let ((_%K186276186312%_ + (lambda (_%rest186303%_ + _%assert186304%_ + _%bind186305%_ + _%body186306%_ + _%name186307%_) + (let ((_g191139_ + (_%basic-block186169%_ + _%body186306%_ + _%bind186305%_ + _%assert186304%_))) (begin - (let ((_g190866_ + (let ((_g191140_ (let () (declare (not safe)) - (if (##values? _g190865_) - (##vector-length _g190865_) + (if (##values? _g191139_) + (##vector-length _g191139_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g190866_ 2))) + (##fx= _g191140_ 2))) (error "Context expects 2 values" - _g190866_))) - (let ((_%body186035%_ + _g191140_))) + (let ((_%body186309%_ (let () (declare (not safe)) - (##vector-ref _g190865_ 0))) - (_%body-blocks186036%_ + (##vector-ref _g191139_ 0))) + (_%body-blocks186310%_ (let () (declare (not safe)) - (##vector-ref _g190865_ 1)))) - (_%fold-blocks185896%_ + (##vector-ref _g191139_ 1)))) + (_%fold-blocks186170%_ (let () (declare (not safe)) (__foldl1 cons - _%rest186029%_ - _%body-blocks186036%_)) - (cons (cons _%name186033%_ + _%rest186303%_ + _%body-blocks186310%_)) + (cons (cons _%name186307%_ (cons 'continue: (cons (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (let ((__tmp190867 (map car _%bind186031%_))) + (cons (let ((__tmp191141 (map car _%bind186305%_))) (declare (not safe)) - (##reverse __tmp190867)) - (cons _%body186035%_ '()))) - (cons _%assert186030%_ (cons _%bind186031%_ '()))))) + (##reverse __tmp191141)) + (cons _%body186309%_ '()))) + (cons _%assert186304%_ (cons _%bind186305%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%blocks185996%_))))))) - (_%K186001186023%_ (lambda () _%blocks185996%_))) - (let ((_%try-match185999186026%_ + _%blocks186270%_))))))) + (_%K186275186297%_ (lambda () _%blocks186270%_))) + (let ((_%try-match186273186300%_ (lambda () (if (let () (declare (not safe)) - (##null? _%rest185997186014%_)) - (_%K186001186023%_) - (_%E186000186018%_))))) + (##null? _%rest186271186288%_)) + (_%K186275186297%_) + (_%E186274186292%_))))) (if (let () (declare (not safe)) - (##pair? _%rest185997186014%_)) - (let ((_%tl186004186043%_ + (##pair? _%rest186271186288%_)) + (let ((_%tl186278186317%_ (let () (declare (not safe)) - (##cdr _%rest185997186014%_))) - (_%hd186003186041%_ + (##cdr _%rest186271186288%_))) + (_%hd186277186315%_ (let () (declare (not safe)) - (##car _%rest185997186014%_)))) + (##car _%rest186271186288%_)))) (if (let () (declare (not safe)) - (##pair? _%hd186003186041%_)) - (let ((_%tl186006186048%_ + (##pair? _%hd186277186315%_)) + (let ((_%tl186280186322%_ (let () (declare (not safe)) - (##cdr _%hd186003186041%_))) - (_%hd186005186046%_ + (##cdr _%hd186277186315%_))) + (_%hd186279186320%_ (let () (declare (not safe)) - (##car _%hd186003186041%_)))) + (##car _%hd186277186315%_)))) (if (let () (declare (not safe)) - (##pair? _%tl186006186048%_)) - (let ((_%tl186008186055%_ + (##pair? _%tl186280186322%_)) + (let ((_%tl186282186329%_ (let () (declare (not safe)) - (##cdr _%tl186006186048%_))) - (_%hd186007186053%_ + (##cdr _%tl186280186322%_))) + (_%hd186281186327%_ (let () (declare (not safe)) - (##car _%tl186006186048%_)))) + (##car _%tl186280186322%_)))) (if (let () (declare (not safe)) - (##pair? _%tl186008186055%_)) - (let ((_%tl186010186062%_ + (##pair? _%tl186282186329%_)) + (let ((_%tl186284186336%_ (let () (declare (not safe)) - (##cdr _%tl186008186055%_))) - (_%hd186009186060%_ + (##cdr _%tl186282186329%_))) + (_%hd186283186334%_ (let () (declare (not safe)) - (##car _%tl186008186055%_)))) + (##car _%tl186282186329%_)))) (if (let () (declare (not safe)) - (##pair? _%tl186010186062%_)) - (let ((_%tl186012186069%_ + (##pair? _%tl186284186336%_)) + (let ((_%tl186286186343%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%tl186010186062%_))) - (_%hd186011186067%_ - (let () (declare (not safe)) (##car _%tl186010186062%_)))) - (if (let () (declare (not safe)) (##null? _%tl186012186069%_)) - (let ((_%name186051%_ _%hd186005186046%_) - (_%body186058%_ _%hd186007186053%_) - (_%bind186065%_ _%hd186009186060%_) - (_%assert186072%_ _%hd186011186067%_) - (_%rest186074%_ _%tl186004186043%_)) - (_%K186002186038%_ - _%rest186074%_ - _%assert186072%_ - _%bind186065%_ - _%body186058%_ - _%name186051%_)) - (_%E186000186018%_))) - (_%E186000186018%_))) + (##cdr _%tl186284186336%_))) + (_%hd186285186341%_ + (let () (declare (not safe)) (##car _%tl186284186336%_)))) + (if (let () (declare (not safe)) (##null? _%tl186286186343%_)) + (let ((_%name186325%_ _%hd186279186320%_) + (_%body186332%_ _%hd186281186327%_) + (_%bind186339%_ _%hd186283186334%_) + (_%assert186346%_ _%hd186285186341%_) + (_%rest186348%_ _%tl186278186317%_)) + (_%K186276186312%_ + _%rest186348%_ + _%assert186346%_ + _%bind186339%_ + _%body186332%_ + _%name186325%_)) + (_%E186274186292%_))) + (_%E186274186292%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E186000186018%_))) - (_%E186000186018%_))) - (_%E186000186018%_))) - (_%try-match185999186026%_)))))))) - (let* ((_%clause185897185904%_ _%clause185890%_) - (_%E185899185908%_ + (_%E186274186292%_))) + (_%E186274186292%_))) + (_%E186274186292%_))) + (_%try-match186273186300%_)))))))) + (let* ((_%clause186171186178%_ _%clause186164%_) + (_%E186173186182%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause185897185904%_ + _%clause186171186178%_ '([name . body]))) '#!void)) - (_%K185900185983%_ - (lambda (_%body185911%_ _%name185912%_) - (let* ((_%g185914185930%_ - (lambda (_%g185915185927%_) + (_%K186174186257%_ + (lambda (_%body186185%_ _%name186186%_) + (let* ((_%g186188186204%_ + (lambda (_%g186189186201%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g185915185927%_)))) - (_%g185913185980%_ - (lambda (_%g185915185933%_) + _%g186189186201%_)))) + (_%g186187186254%_ + (lambda (_%g186189186207%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g185915185933%_)) - (let ((_%e185917185935%_ + (gx#stx-pair? _%g186189186207%_)) + (let ((_%e186191186209%_ (let () (declare (not safe)) - (gx#stx-e _%g185915185933%_)))) - (let ((_%hd185918185938%_ + (gx#stx-e _%g186189186207%_)))) + (let ((_%hd186192186212%_ (let () (declare (not safe)) - (##car _%e185917185935%_))) - (_%tl185919185940%_ + (##car _%e186191186209%_))) + (_%tl186193186214%_ (let () (declare (not safe)) - (##cdr _%e185917185935%_)))) + (##cdr _%e186191186209%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd185918185938%_)) + _%hd186192186212%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd185918185938%_)) + _%hd186192186212%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185919185940%_)) - (let ((_%e185920185943%_ + _%tl186193186214%_)) + (let ((_%e186194186217%_ (let () (declare (not safe)) (gx#stx-e - _%tl185919185940%_)))) - (let ((_%hd185921185946%_ + _%tl186193186214%_)))) + (let ((_%hd186195186220%_ (let () (declare (not safe)) - (##car _%e185920185943%_))) - (_%tl185922185948%_ + (##car _%e186194186217%_))) + (_%tl186196186222%_ (let () (declare (not safe)) - (##cdr _%e185920185943%_)))) + (##cdr _%e186194186217%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%hd185921185946%_)) + _%hd186195186220%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl185922185948%_)) - (let ((_%e185923185951%_ + (gx#stx-pair? _%tl186196186222%_)) + (let ((_%e186197186225%_ (let () (declare (not safe)) - (gx#stx-e _%tl185922185948%_)))) - (let ((_%hd185924185954%_ + (gx#stx-e _%tl186196186222%_)))) + (let ((_%hd186198186228%_ (let () (declare (not safe)) - (##car _%e185923185951%_))) - (_%tl185925185956%_ + (##car _%e186197186225%_))) + (_%tl186199186230%_ (let () (declare (not safe)) - (##cdr _%e185923185951%_)))) + (##cdr _%e186197186225%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185925185956%_)) - ((lambda (_%L185959%_) - (let ((_g190868_ - (_%basic-block185895%_ - _%L185959%_ + (gx#stx-null? _%tl186199186230%_)) + ((lambda (_%L186233%_) + (let ((_g191142_ + (_%basic-block186169%_ + _%L186233%_ '() '()))) (begin - (let ((_g190869_ + (let ((_g191143_ (let () (declare (not safe)) - (if (##values? _g190868_) - (##vector-length _g190868_) + (if (##values? _g191142_) + (##vector-length _g191142_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g190869_ 2))) + (##fx= _g191143_ 2))) (error "Context expects 2 values" - _g190869_))) - (let ((_%body185977%_ + _g191143_))) + (let ((_%body186251%_ (let () (declare (not safe)) - (##vector-ref _g190868_ 0))) - (_%body-blocks185978%_ + (##vector-ref _g191142_ 0))) + (_%body-blocks186252%_ (let () (declare (not safe)) - (##vector-ref _g190868_ 1)))) - (_%fold-blocks185896%_ - _%body-blocks185978%_ - (cons (cons _%name185912%_ + (##vector-ref _g191142_ 1)))) + (_%fold-blocks186170%_ + _%body-blocks186252%_ + (cons (cons _%name186186%_ (cons 'restart: (cons (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '() (cons _%body185977%_ '()))) + (cons '() (cons _%body186251%_ '()))) (cons '() '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%blocks185891%_)))))) - _%hd185924185954%_) - (_%g185914185930%_ _%g185915185933%_)))) - (_%g185914185930%_ _%g185915185933%_)) - (_%g185914185930%_ _%g185915185933%_)))) + _%blocks186165%_)))))) + _%hd186198186228%_) + (_%g186188186204%_ _%g186189186207%_)))) + (_%g186188186204%_ _%g186189186207%_)) + (_%g186188186204%_ _%g186189186207%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g185914185930%_ - _%g185915185933%_)) - (_%g185914185930%_ - _%g185915185933%_)) - (_%g185914185930%_ - _%g185915185933%_)))) - (_%g185914185930%_ _%g185915185933%_))))) - (_%g185913185980%_ _%body185911%_))))) - (if (let () (declare (not safe)) (##pair? _%clause185897185904%_)) - (let ((_%hd185901185986%_ + (_%g186188186204%_ + _%g186189186207%_)) + (_%g186188186204%_ + _%g186189186207%_)) + (_%g186188186204%_ + _%g186189186207%_)))) + (_%g186188186204%_ _%g186189186207%_))))) + (_%g186187186254%_ _%body186185%_))))) + (if (let () (declare (not safe)) (##pair? _%clause186171186178%_)) + (let ((_%hd186175186260%_ (let () (declare (not safe)) - (##car _%clause185897185904%_))) - (_%tl185902185988%_ + (##car _%clause186171186178%_))) + (_%tl186176186262%_ (let () (declare (not safe)) - (##cdr _%clause185897185904%_)))) - (let* ((_%name185991%_ _%hd185901185986%_) - (_%body185993%_ _%tl185902185988%_)) - (_%K185900185983%_ _%body185993%_ _%name185991%_))) - (_%E185899185908%_)))))) + (##cdr _%clause186171186178%_)))) + (let* ((_%name186265%_ _%hd186175186260%_) + (_%body186267%_ _%tl186176186262%_)) + (_%K186174186257%_ _%body186267%_ _%name186265%_))) + (_%E186173186182%_)))))) (define gxc#optimize-match-fold-basic-blocks - (lambda (_%blocks185496%_) - (let _%lp185498%_ ((_%rest185500%_ _%blocks185496%_) - (_%blocks185501%_ '())) - (let* ((_%rest185502185510%_ _%rest185500%_) - (_%else185504185559%_ + (lambda (_%blocks185770%_) + (let _%lp185772%_ ((_%rest185774%_ _%blocks185770%_) + (_%blocks185775%_ '())) + (let* ((_%rest185776185784%_ _%rest185774%_) + (_%else185778185833%_ (lambda () - (let ((__tmp190870 - (lambda (_%block185518%_ _%r185519%_) - (let* ((_%block185520185531%_ _%block185518%_) - (_%E185522185535%_ + (let ((__tmp191144 + (lambda (_%block185792%_ _%r185793%_) + (let* ((_%block185794185805%_ _%block185792%_) + (_%E185796185809%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block185520185531%_ + _%block185794185805%_ '([name _ kont . _]))) '#!void)) - (_%K185523185541%_ - (lambda (_%kont185538%_ _%name185539%_) - (cons (cons _%name185539%_ - _%kont185538%_) - _%r185519%_)))) + (_%K185797185815%_ + (lambda (_%kont185812%_ _%name185813%_) + (cons (cons _%name185813%_ + _%kont185812%_) + _%r185793%_)))) (if (let () (declare (not safe)) - (##pair? _%block185520185531%_)) - (let ((_%hd185524185544%_ + (##pair? _%block185794185805%_)) + (let ((_%hd185798185818%_ (let () (declare (not safe)) - (##car _%block185520185531%_))) - (_%tl185525185546%_ + (##car _%block185794185805%_))) + (_%tl185799185820%_ (let () (declare (not safe)) - (##cdr _%block185520185531%_)))) - (let ((_%name185549%_ _%hd185524185544%_)) + (##cdr _%block185794185805%_)))) + (let ((_%name185823%_ _%hd185798185818%_)) (if (let () (declare (not safe)) - (##pair? _%tl185525185546%_)) - (let ((_%tl185527185551%_ + (##pair? _%tl185799185820%_)) + (let ((_%tl185801185825%_ (let () (declare (not safe)) - (##cdr _%tl185525185546%_)))) + (##cdr _%tl185799185820%_)))) (if (let () (declare (not safe)) - (##pair? _%tl185527185551%_)) - (let* ((_%hd185528185554%_ + (##pair? _%tl185801185825%_)) + (let* ((_%hd185802185828%_ (let () (declare (not safe)) - (##car _%tl185527185551%_))) - (_%kont185557%_ - _%hd185528185554%_)) - (_%K185523185541%_ - _%kont185557%_ - _%name185549%_)) - (_%E185522185535%_))) - (_%E185522185535%_)))) - (_%E185522185535%_)))))) + (##car _%tl185801185825%_))) + (_%kont185831%_ + _%hd185802185828%_)) + (_%K185797185815%_ + _%kont185831%_ + _%name185823%_)) + (_%E185796185809%_))) + (_%E185796185809%_)))) + (_%E185796185809%_)))))) (declare (not safe)) - (__foldl1 __tmp190870 '() _%blocks185501%_)))) - (_%K185506185878%_ - (lambda (_%rest185562%_ _%block185563%_) - (let* ((_%block185564185589%_ _%block185563%_) - (_%E185567185593%_ + (__foldl1 __tmp191144 '() _%blocks185775%_)))) + (_%K185780186152%_ + (lambda (_%rest185836%_ _%block185837%_) + (let* ((_%block185838185863%_ _%block185837%_) + (_%E185841185867%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block185564185589%_ + _%block185838185863%_ '([name restart: kont assert]) '([name continue: kont assert bind]))) '#!void))) - (let ((_%K185579185849%_ - (lambda (_%assert185771%_ - _%kont185772%_ - _%name185773%_) - (let* ((_%g185775185791%_ - (lambda (_%g185776185788%_) + (let ((_%K185853186123%_ + (lambda (_%assert186045%_ + _%kont186046%_ + _%name186047%_) + (let* ((_%g186049186065%_ + (lambda (_%g186050186062%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g185776185788%_)))) - (_%g185774185846%_ - (lambda (_%g185776185794%_) + _%g186050186062%_)))) + (_%g186048186120%_ + (lambda (_%g186050186068%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g185776185794%_)) - (let ((_%e185778185796%_ + _%g186050186068%_)) + (let ((_%e186052186070%_ (let () (declare (not safe)) (gx#stx-e - _%g185776185794%_)))) - (let ((_%hd185779185799%_ + _%g186050186068%_)))) + (let ((_%hd186053186073%_ (let () (declare (not safe)) - (##car _%e185778185796%_))) - (_%tl185780185801%_ + (##car _%e186052186070%_))) + (_%tl186054186075%_ (let () (declare (not safe)) - (##cdr _%e185778185796%_)))) + (##cdr _%e186052186070%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd185779185799%_)) + _%hd186053186073%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd185779185799%_)) + _%hd186053186073%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl185780185801%_)) - (let ((_%e185781185804%_ + (gx#stx-pair? _%tl186054186075%_)) + (let ((_%e186055186078%_ (let () (declare (not safe)) - (gx#stx-e _%tl185780185801%_)))) - (let ((_%hd185782185807%_ + (gx#stx-e _%tl186054186075%_)))) + (let ((_%hd186056186081%_ (let () (declare (not safe)) - (##car _%e185781185804%_))) - (_%tl185783185809%_ + (##car _%e186055186078%_))) + (_%tl186057186083%_ (let () (declare (not safe)) - (##cdr _%e185781185804%_)))) + (##cdr _%e186055186078%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%hd185782185807%_)) + (gx#stx-null? _%hd186056186081%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185783185809%_)) - (let ((_%e185784185812%_ + (gx#stx-pair? _%tl186057186083%_)) + (let ((_%e186058186086%_ (let () (declare (not safe)) - (gx#stx-e _%tl185783185809%_)))) - (let ((_%hd185785185815%_ + (gx#stx-e _%tl186057186083%_)))) + (let ((_%hd186059186089%_ (let () (declare (not safe)) - (##car _%e185784185812%_))) - (_%tl185786185817%_ + (##car _%e186058186086%_))) + (_%tl186060186091%_ (let () (declare (not safe)) - (##cdr _%e185784185812%_)))) + (##cdr _%e186058186086%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185786185817%_)) - ((lambda (_%L185820%_) - (let* ((_%body185835%_ + (gx#stx-null? _%tl186060186091%_)) + ((lambda (_%L186094%_) + (let* ((_%body186109%_ (gxc#optimize-match-block - _%L185820%_ - _%assert185771%_ + _%L186094%_ + _%assert186045%_ '() - _%rest185562%_)) - (_%block185837%_ - (cons _%name185773%_ + _%rest185836%_)) + (_%block186111%_ + (cons _%name186047%_ (cons 'restart: (cons (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '() (cons _%body185835%_ '()))) - (cons _%assert185771%_ '()))))) + (cons '() (cons _%body186109%_ '()))) + (cons _%assert186045%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%blocks185839%_ - (cons _%block185837%_ - _%blocks185501%_)) - (_%rest185841%_ + (_%blocks186113%_ + (cons _%block186111%_ + _%blocks185775%_)) + (_%rest186115%_ (gxc#optimize-match-prune-blocks - _%rest185562%_ - _%blocks185839%_)) - (_%rest185843%_ + _%rest185836%_ + _%blocks186113%_)) + (_%rest186117%_ (gxc#optimize-match-fuse-restart-blocks - _%rest185841%_ - _%blocks185839%_))) - (_%lp185498%_ - _%rest185843%_ - _%blocks185839%_))) - _%hd185785185815%_) - (_%g185775185791%_ - _%g185776185794%_)))) - (_%g185775185791%_ _%g185776185794%_)) - (_%g185775185791%_ _%g185776185794%_)))) - (_%g185775185791%_ _%g185776185794%_)) - (_%g185775185791%_ _%g185776185794%_)) + _%rest186115%_ + _%blocks186113%_))) + (_%lp185772%_ + _%rest186117%_ + _%blocks186113%_))) + _%hd186059186089%_) + (_%g186049186065%_ + _%g186050186068%_)))) + (_%g186049186065%_ _%g186050186068%_)) + (_%g186049186065%_ _%g186050186068%_)))) + (_%g186049186065%_ _%g186050186068%_)) + (_%g186049186065%_ _%g186050186068%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g185775185791%_ - _%g185776185794%_)))) - (_%g185775185791%_ - _%g185776185794%_))))) - (_%g185774185846%_ _%kont185772%_)))) - (_%K185568185732%_ - (lambda (_%bind185597%_ - _%assert185598%_ - _%kont185599%_ - _%name185600%_) - (let* ((_%g185602185628%_ - (lambda (_%g185603185625%_) + (_%g186049186065%_ + _%g186050186068%_)))) + (_%g186049186065%_ + _%g186050186068%_))))) + (_%g186048186120%_ _%kont186046%_)))) + (_%K185842186006%_ + (lambda (_%bind185871%_ + _%assert185872%_ + _%kont185873%_ + _%name185874%_) + (let* ((_%g185876185902%_ + (lambda (_%g185877185899%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g185603185625%_)))) - (_%g185601185729%_ - (lambda (_%g185603185631%_) + _%g185877185899%_)))) + (_%g185875186003%_ + (lambda (_%g185877185905%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g185603185631%_)) - (let ((_%e185606185633%_ + _%g185877185905%_)) + (let ((_%e185880185907%_ (let () (declare (not safe)) (gx#stx-e - _%g185603185631%_)))) - (let ((_%hd185607185636%_ + _%g185877185905%_)))) + (let ((_%hd185881185910%_ (let () (declare (not safe)) - (##car _%e185606185633%_))) - (_%tl185608185638%_ + (##car _%e185880185907%_))) + (_%tl185882185912%_ (let () (declare (not safe)) - (##cdr _%e185606185633%_)))) + (##cdr _%e185880185907%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd185607185636%_)) + _%hd185881185910%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd185607185636%_)) + _%hd185881185910%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl185608185638%_)) - (let ((_%e185609185641%_ + (gx#stx-pair? _%tl185882185912%_)) + (let ((_%e185883185915%_ (let () (declare (not safe)) - (gx#stx-e _%tl185608185638%_)))) - (let ((_%hd185610185644%_ + (gx#stx-e _%tl185882185912%_)))) + (let ((_%hd185884185918%_ (let () (declare (not safe)) - (##car _%e185609185641%_))) - (_%tl185611185646%_ + (##car _%e185883185915%_))) + (_%tl185885185920%_ (let () (declare (not safe)) - (##cdr _%e185609185641%_)))) + (##cdr _%e185883185915%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd185610185644%_)) - (let ((_g190871_ + (gx#stx-pair/null? _%hd185884185918%_)) + (let ((_g191145_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd185610185644%_ + _%hd185884185918%_ '0)))) (begin - (let ((_g190872_ + (let ((_g191146_ (let () (declare (not safe)) - (if (##values? _g190871_) - (##vector-length _g190871_) + (if (##values? _g191145_) + (##vector-length _g191145_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g190872_ 2))) + (##fx= _g191146_ 2))) (error "Context expects 2 values" - _g190872_))) - (let ((_%target185612185649%_ + _g191146_))) + (let ((_%target185886185923%_ (let () (declare (not safe)) - (##vector-ref _g190871_ 0))) - (_%tl185614185651%_ + (##vector-ref _g191145_ 0))) + (_%tl185888185925%_ (let () (declare (not safe)) - (##vector-ref _g190871_ 1)))) + (##vector-ref _g191145_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185614185651%_)) - (letrec ((_%loop185615185654%_ - (lambda (_%hd185613185657%_ - _%id185619185659%_) + (gx#stx-null? _%tl185888185925%_)) + (letrec ((_%loop185889185928%_ + (lambda (_%hd185887185931%_ + _%id185893185933%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185613185657%_)) - (let ((_%e185616185662%_ + _%hd185887185931%_)) + (let ((_%e185890185936%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd185613185657%_)))) - (let ((_%lp-hd185617185665%_ + (gx#stx-e _%hd185887185931%_)))) + (let ((_%lp-hd185891185939%_ (let () (declare (not safe)) - (##car _%e185616185662%_))) - (_%lp-tl185618185667%_ + (##car _%e185890185936%_))) + (_%lp-tl185892185941%_ (let () (declare (not safe)) - (##cdr _%e185616185662%_)))) - (_%loop185615185654%_ - _%lp-tl185618185667%_ - (cons _%lp-hd185617185665%_ _%id185619185659%_)))) - (let ((_%id185620185670%_ (reverse _%id185619185659%_))) + (##cdr _%e185890185936%_)))) + (_%loop185889185928%_ + _%lp-tl185892185941%_ + (cons _%lp-hd185891185939%_ _%id185893185933%_)))) + (let ((_%id185894185944%_ (reverse _%id185893185933%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185611185646%_)) - (let ((_%e185621185673%_ + (gx#stx-pair? _%tl185885185920%_)) + (let ((_%e185895185947%_ (let () (declare (not safe)) - (gx#stx-e _%tl185611185646%_)))) - (let ((_%hd185622185676%_ + (gx#stx-e _%tl185885185920%_)))) + (let ((_%hd185896185950%_ (let () (declare (not safe)) - (##car _%e185621185673%_))) - (_%tl185623185678%_ + (##car _%e185895185947%_))) + (_%tl185897185952%_ (let () (declare (not safe)) - (##cdr _%e185621185673%_)))) + (##cdr _%e185895185947%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185623185678%_)) - ((lambda (_%L185681%_ _%L185682%_) - (let* ((_%body185711%_ + (gx#stx-null? _%tl185897185952%_)) + ((lambda (_%L185955%_ _%L185956%_) + (let* ((_%body185985%_ (gxc#optimize-match-block - _%L185681%_ - _%assert185598%_ - _%bind185597%_ - _%rest185562%_)) - (_%block185720%_ - (cons _%name185600%_ + _%L185955%_ + _%assert185872%_ + _%bind185871%_ + _%rest185836%_)) + (_%block185994%_ + (cons _%name185874%_ (cons 'continue: (cons (cons '%#lambda - (cons (let ((__tmp190873 + (cons (let ((__tmp191147 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g185712185715%_ - _%g185713185717%_) - (cons _%g185712185715%_ - _%g185713185717%_)))) + (lambda (_%g185986185989%_ + _%g185987185991%_) + (cons _%g185986185989%_ + _%g185987185991%_)))) (declare (not safe)) - (__foldr1 __tmp190873 '() _%L185682%_)) - (cons _%body185711%_ '()))) - (cons _%assert185598%_ (cons _%bind185597%_ '())))))) + (__foldr1 __tmp191147 '() _%L185956%_)) + (cons _%body185985%_ '()))) + (cons _%assert185872%_ (cons _%bind185871%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%blocks185722%_ - (cons _%block185720%_ - _%blocks185501%_)) - (_%rest185724%_ + (_%blocks185996%_ + (cons _%block185994%_ + _%blocks185775%_)) + (_%rest185998%_ (gxc#optimize-match-prune-blocks - _%rest185562%_ - _%blocks185722%_)) - (_%rest185726%_ + _%rest185836%_ + _%blocks185996%_)) + (_%rest186000%_ (gxc#optimize-match-fuse-restart-blocks - _%rest185724%_ - _%blocks185722%_))) - (_%lp185498%_ - _%rest185726%_ - _%blocks185722%_))) - _%hd185622185676%_ - _%id185620185670%_) - (_%g185602185628%_ _%g185603185631%_)))) - (_%g185602185628%_ _%g185603185631%_))))))) + _%rest185998%_ + _%blocks185996%_))) + (_%lp185772%_ + _%rest186000%_ + _%blocks185996%_))) + _%hd185896185950%_ + _%id185894185944%_) + (_%g185876185902%_ _%g185877185905%_)))) + (_%g185876185902%_ _%g185877185905%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop185615185654%_ - _%target185612185649%_ + (_%loop185889185928%_ + _%target185886185923%_ '())) - (_%g185602185628%_ - _%g185603185631%_))))) - (_%g185602185628%_ _%g185603185631%_)))) - (_%g185602185628%_ _%g185603185631%_)) - (_%g185602185628%_ _%g185603185631%_)) + (_%g185876185902%_ + _%g185877185905%_))))) + (_%g185876185902%_ _%g185877185905%_)))) + (_%g185876185902%_ _%g185877185905%_)) + (_%g185876185902%_ _%g185877185905%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g185602185628%_ - _%g185603185631%_)))) - (_%g185602185628%_ - _%g185603185631%_))))) - (_%g185601185729%_ _%kont185599%_))))) - (let* ((_%__match188231188232%_ - (lambda (_%hd185569185735%_ - _%tl185570185737%_ - _%hd185571185742%_ - _%tl185572185744%_ - _%hd185573185747%_ - _%tl185574185749%_ - _%hd185575185754%_ - _%tl185576185756%_ - _%hd185577185761%_ - _%tl185578185763%_) - (let ((_%name185740%_ _%hd185569185735%_) - (_%kont185752%_ _%hd185573185747%_) - (_%assert185759%_ _%hd185575185754%_) - (_%bind185766%_ _%hd185577185761%_)) - (_%E185567185593%_)))) - (_%__match188225188226%_ - (lambda (_%hd185569185735%_ - _%tl185570185737%_ - _%hd185571185742%_ - _%tl185572185744%_ - _%hd185573185747%_ - _%tl185574185749%_ - _%hd185575185754%_ - _%tl185576185756%_) - (let ((_%name185740%_ _%hd185569185735%_) - (_%kont185752%_ _%hd185573185747%_) - (_%assert185759%_ _%hd185575185754%_)) - (_%E185567185593%_)))) - (_%__match188219188220%_ - (lambda (_%hd185569185735%_ - _%tl185570185737%_ - _%hd185571185742%_ - _%tl185572185744%_ - _%hd185573185747%_ - _%tl185574185749%_) - (let ((_%name185740%_ _%hd185569185735%_) - (_%kont185752%_ _%hd185573185747%_)) - (_%E185567185593%_)))) - (_%__match188213188214%_ - (lambda (_%hd185569185735%_ - _%tl185570185737%_ - _%hd185571185742%_ - _%tl185572185744%_) - (let ((_%name185740%_ _%hd185569185735%_)) - (_%E185567185593%_)))) - (_%__match188209188210%_ - (lambda (_%hd185569185735%_ - _%tl185570185737%_ - _%hd185571185742%_ - _%tl185572185744%_) - (let ((_%name185740%_ _%hd185569185735%_)) - (_%E185567185593%_)))) - (_%__match188203188204%_ - (lambda (_%hd185569185735%_ _%tl185570185737%_) - (let ((_%name185740%_ _%hd185569185735%_)) - (_%E185567185593%_))))) + (_%g185876185902%_ + _%g185877185905%_)))) + (_%g185876185902%_ + _%g185877185905%_))))) + (_%g185875186003%_ _%kont185873%_))))) + (let* ((_%__match188505188506%_ + (lambda (_%hd185843186009%_ + _%tl185844186011%_ + _%hd185845186016%_ + _%tl185846186018%_ + _%hd185847186021%_ + _%tl185848186023%_ + _%hd185849186028%_ + _%tl185850186030%_ + _%hd185851186035%_ + _%tl185852186037%_) + (let ((_%name186014%_ _%hd185843186009%_) + (_%kont186026%_ _%hd185847186021%_) + (_%assert186033%_ _%hd185849186028%_) + (_%bind186040%_ _%hd185851186035%_)) + (_%E185841185867%_)))) + (_%__match188499188500%_ + (lambda (_%hd185843186009%_ + _%tl185844186011%_ + _%hd185845186016%_ + _%tl185846186018%_ + _%hd185847186021%_ + _%tl185848186023%_ + _%hd185849186028%_ + _%tl185850186030%_) + (let ((_%name186014%_ _%hd185843186009%_) + (_%kont186026%_ _%hd185847186021%_) + (_%assert186033%_ _%hd185849186028%_)) + (_%E185841185867%_)))) + (_%__match188493188494%_ + (lambda (_%hd185843186009%_ + _%tl185844186011%_ + _%hd185845186016%_ + _%tl185846186018%_ + _%hd185847186021%_ + _%tl185848186023%_) + (let ((_%name186014%_ _%hd185843186009%_) + (_%kont186026%_ _%hd185847186021%_)) + (_%E185841185867%_)))) + (_%__match188487188488%_ + (lambda (_%hd185843186009%_ + _%tl185844186011%_ + _%hd185845186016%_ + _%tl185846186018%_) + (let ((_%name186014%_ _%hd185843186009%_)) + (_%E185841185867%_)))) + (_%__match188483188484%_ + (lambda (_%hd185843186009%_ + _%tl185844186011%_ + _%hd185845186016%_ + _%tl185846186018%_) + (let ((_%name186014%_ _%hd185843186009%_)) + (_%E185841185867%_)))) + (_%__match188477188478%_ + (lambda (_%hd185843186009%_ _%tl185844186011%_) + (let ((_%name186014%_ _%hd185843186009%_)) + (_%E185841185867%_))))) (if (let () (declare (not safe)) - (##pair? _%block185564185589%_)) - (let ((_%tl185581185854%_ + (##pair? _%block185838185863%_)) + (let ((_%tl185855186128%_ (let () (declare (not safe)) - (##cdr _%block185564185589%_))) - (_%hd185580185852%_ + (##cdr _%block185838185863%_))) + (_%hd185854186126%_ (let () (declare (not safe)) - (##car _%block185564185589%_)))) + (##car _%block185838185863%_)))) (if (let () (declare (not safe)) - (##pair? _%tl185581185854%_)) - (let ((_%tl185583185861%_ + (##pair? _%tl185855186128%_)) + (let ((_%tl185857186135%_ (let () (declare (not safe)) - (##cdr _%tl185581185854%_))) - (_%hd185582185859%_ + (##cdr _%tl185855186128%_))) + (_%hd185856186133%_ (let () (declare (not safe)) - (##car _%tl185581185854%_)))) + (##car _%tl185855186128%_)))) (if (let () (declare (not safe)) - (##eq? _%hd185582185859%_ + (##eq? _%hd185856186133%_ 'restart:)) (if (let () (declare (not safe)) - (##pair? _%tl185583185861%_)) - (let ((_%tl185585185866%_ + (##pair? _%tl185857186135%_)) + (let ((_%tl185859186140%_ (let () (declare (not safe)) - (##cdr _%tl185583185861%_))) - (_%hd185584185864%_ + (##cdr _%tl185857186135%_))) + (_%hd185858186138%_ (let () (declare (not safe)) - (##car _%tl185583185861%_)))) + (##car _%tl185857186135%_)))) (if (let () (declare (not safe)) - (##pair? _%tl185585185866%_)) - (let ((_%tl185587185873%_ + (##pair? _%tl185859186140%_)) + (let ((_%tl185861186147%_ (let () (declare (not safe)) - (##cdr _%tl185585185866%_))) - (_%hd185586185871%_ + (##cdr _%tl185859186140%_))) + (_%hd185860186145%_ (let () (declare (not safe)) - (##car _%tl185585185866%_)))) + (##car _%tl185859186140%_)))) (if (let () (declare (not safe)) - (##null? _%tl185587185873%_)) - (let ((_%name185857%_ + (##null? _%tl185861186147%_)) + (let ((_%name186131%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd185580185852%_) - (_%kont185869%_ _%hd185584185864%_) - (_%assert185876%_ _%hd185586185871%_)) - (_%K185579185849%_ - _%assert185876%_ - _%kont185869%_ - _%name185857%_)) - (_%__match188209188210%_ - _%hd185580185852%_ - _%tl185581185854%_ - _%hd185582185859%_ - _%tl185583185861%_))) + _%hd185854186126%_) + (_%kont186143%_ _%hd185858186138%_) + (_%assert186150%_ _%hd185860186145%_)) + (_%K185853186123%_ + _%assert186150%_ + _%kont186143%_ + _%name186131%_)) + (_%__match188483188484%_ + _%hd185854186126%_ + _%tl185855186128%_ + _%hd185856186133%_ + _%tl185857186135%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match188209188210%_ - _%hd185580185852%_ - _%tl185581185854%_ - _%hd185582185859%_ - _%tl185583185861%_))) - (_%__match188209188210%_ - _%hd185580185852%_ - _%tl185581185854%_ - _%hd185582185859%_ - _%tl185583185861%_)) + (_%__match188483188484%_ + _%hd185854186126%_ + _%tl185855186128%_ + _%hd185856186133%_ + _%tl185857186135%_))) + (_%__match188483188484%_ + _%hd185854186126%_ + _%tl185855186128%_ + _%hd185856186133%_ + _%tl185857186135%_)) (if (let () (declare (not safe)) - (##eq? _%hd185582185859%_ + (##eq? _%hd185856186133%_ 'continue:)) (if (let () (declare (not safe)) - (##pair? _%tl185583185861%_)) - (let ((_%tl185574185749%_ + (##pair? _%tl185857186135%_)) + (let ((_%tl185848186023%_ (let () (declare (not safe)) - (##cdr _%tl185583185861%_))) - (_%hd185573185747%_ + (##cdr _%tl185857186135%_))) + (_%hd185847186021%_ (let () (declare (not safe)) - (##car _%tl185583185861%_)))) + (##car _%tl185857186135%_)))) (if (let () (declare (not safe)) - (##pair? _%tl185574185749%_)) - (let ((_%tl185576185756%_ + (##pair? _%tl185848186023%_)) + (let ((_%tl185850186030%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%tl185574185749%_))) - (_%hd185575185754%_ + (##cdr _%tl185848186023%_))) + (_%hd185849186028%_ (let () (declare (not safe)) - (##car _%tl185574185749%_)))) + (##car _%tl185848186023%_)))) (if (let () (declare (not safe)) - (##pair? _%tl185576185756%_)) - (let ((_%tl185578185763%_ + (##pair? _%tl185850186030%_)) + (let ((_%tl185852186037%_ (let () (declare (not safe)) - (##cdr _%tl185576185756%_))) - (_%hd185577185761%_ + (##cdr _%tl185850186030%_))) + (_%hd185851186035%_ (let () (declare (not safe)) - (##car _%tl185576185756%_)))) + (##car _%tl185850186030%_)))) (if (let () (declare (not safe)) - (##null? _%tl185578185763%_)) - (let ((_%name185740%_ _%hd185580185852%_) - (_%kont185752%_ _%hd185573185747%_) - (_%assert185759%_ _%hd185575185754%_) - (_%bind185766%_ _%hd185577185761%_)) - (_%K185568185732%_ - _%bind185766%_ - _%assert185759%_ - _%kont185752%_ - _%name185740%_)) - (_%__match188231188232%_ - _%hd185580185852%_ - _%tl185581185854%_ - _%hd185582185859%_ - _%tl185583185861%_ - _%hd185573185747%_ - _%tl185574185749%_ - _%hd185575185754%_ - _%tl185576185756%_ - _%hd185577185761%_ - _%tl185578185763%_))) - (_%__match188225188226%_ - _%hd185580185852%_ - _%tl185581185854%_ - _%hd185582185859%_ - _%tl185583185861%_ - _%hd185573185747%_ - _%tl185574185749%_ - _%hd185575185754%_ - _%tl185576185756%_))) - (_%__match188219188220%_ - _%hd185580185852%_ - _%tl185581185854%_ - _%hd185582185859%_ - _%tl185583185861%_ - _%hd185573185747%_ - _%tl185574185749%_))) + (##null? _%tl185852186037%_)) + (let ((_%name186014%_ _%hd185854186126%_) + (_%kont186026%_ _%hd185847186021%_) + (_%assert186033%_ _%hd185849186028%_) + (_%bind186040%_ _%hd185851186035%_)) + (_%K185842186006%_ + _%bind186040%_ + _%assert186033%_ + _%kont186026%_ + _%name186014%_)) + (_%__match188505188506%_ + _%hd185854186126%_ + _%tl185855186128%_ + _%hd185856186133%_ + _%tl185857186135%_ + _%hd185847186021%_ + _%tl185848186023%_ + _%hd185849186028%_ + _%tl185850186030%_ + _%hd185851186035%_ + _%tl185852186037%_))) + (_%__match188499188500%_ + _%hd185854186126%_ + _%tl185855186128%_ + _%hd185856186133%_ + _%tl185857186135%_ + _%hd185847186021%_ + _%tl185848186023%_ + _%hd185849186028%_ + _%tl185850186030%_))) + (_%__match188493188494%_ + _%hd185854186126%_ + _%tl185855186128%_ + _%hd185856186133%_ + _%tl185857186135%_ + _%hd185847186021%_ + _%tl185848186023%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match188213188214%_ - _%hd185580185852%_ - _%tl185581185854%_ - _%hd185582185859%_ - _%tl185583185861%_)) - (_%__match188209188210%_ - _%hd185580185852%_ - _%tl185581185854%_ - _%hd185582185859%_ - _%tl185583185861%_)))) - (_%__match188203188204%_ - _%hd185580185852%_ - _%tl185581185854%_))) - (_%E185567185593%_)))))))) - (if (let () (declare (not safe)) (##pair? _%rest185502185510%_)) - (let ((_%hd185507185881%_ + (_%__match188487188488%_ + _%hd185854186126%_ + _%tl185855186128%_ + _%hd185856186133%_ + _%tl185857186135%_)) + (_%__match188483188484%_ + _%hd185854186126%_ + _%tl185855186128%_ + _%hd185856186133%_ + _%tl185857186135%_)))) + (_%__match188477188478%_ + _%hd185854186126%_ + _%tl185855186128%_))) + (_%E185841185867%_)))))))) + (if (let () (declare (not safe)) (##pair? _%rest185776185784%_)) + (let ((_%hd185781186155%_ (let () (declare (not safe)) - (##car _%rest185502185510%_))) - (_%tl185508185883%_ + (##car _%rest185776185784%_))) + (_%tl185782186157%_ (let () (declare (not safe)) - (##cdr _%rest185502185510%_)))) - (let* ((_%block185886%_ _%hd185507185881%_) - (_%rest185888%_ _%tl185508185883%_)) - (_%K185506185878%_ _%rest185888%_ _%block185886%_))) - (_%else185504185559%_)))))) + (##cdr _%rest185776185784%_)))) + (let* ((_%block186160%_ _%hd185781186155%_) + (_%rest186162%_ _%tl185782186157%_)) + (_%K185780186152%_ _%rest186162%_ _%block186160%_))) + (_%else185778185833%_)))))) (define gxc#optimize-match-block - (lambda (_%body180119%_ _%assert180120%_ _%bind180121%_ _%blocks180122%_) - (letrec* ((_%env-assert180357%_ '()) - (_%env-type180358%_ '()) - (_%env-bind180359%_ '()) - (_%in-splice?180360%_ '#f) - (_%do-assert180361%_ - (lambda (_%assert185419%_ _%K185420%_) - (if (pair? _%assert185419%_) - (let _%lp185422%_ ((_%rest185424%_ _%assert185419%_) - (_%env-assert185425%_ - _%env-assert180357%_) - (_%env-type185426%_ - _%env-type180358%_)) - (let* ((_%rest185427185435%_ _%rest185424%_) - (_%else185429185443%_ + (lambda (_%body180393%_ _%assert180394%_ _%bind180395%_ _%blocks180396%_) + (letrec* ((_%env-assert180631%_ '()) + (_%env-type180632%_ '()) + (_%env-bind180633%_ '()) + (_%in-splice?180634%_ '#f) + (_%do-assert180635%_ + (lambda (_%assert185693%_ _%K185694%_) + (if (pair? _%assert185693%_) + (let _%lp185696%_ ((_%rest185698%_ _%assert185693%_) + (_%env-assert185699%_ + _%env-assert180631%_) + (_%env-type185700%_ + _%env-type180632%_)) + (let* ((_%rest185701185709%_ _%rest185698%_) + (_%else185703185717%_ (lambda () - (_%do-assert!180367%_ - _%env-assert185425%_ - _%env-type185426%_ - _%K185420%_))) - (_%K185431185484%_ - (lambda (_%rest185446%_ _%assert185447%_) - (let* ((_%assert185448185455%_ - _%assert185447%_) - (_%E185450185459%_ + (_%do-assert!180641%_ + _%env-assert185699%_ + _%env-type185700%_ + _%K185694%_))) + (_%K185705185758%_ + (lambda (_%rest185720%_ _%assert185721%_) + (let* ((_%assert185722185729%_ + _%assert185721%_) + (_%E185724185733%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%assert185448185455%_ + _%assert185722185729%_ '([expr . val]))) '#!void)) - (_%K185451185472%_ - (lambda (_%val185462%_ - _%expr185463%_) - (let* ((_%sexpr185465%_ + (_%K185725185746%_ + (lambda (_%val185736%_ + _%expr185737%_) + (let* ((_%sexpr185739%_ (gxc#apply-generate-runtime-repr - _%expr185463%_)) - (_%env-assert185467%_ - (cons (cons _%sexpr185465%_ + _%expr185737%_)) + (_%env-assert185741%_ + (cons (cons _%sexpr185739%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%val185462%_) - _%env-assert185425%_)) - (_%env-type185469%_ - (_%fold-assert-type180363%_ - _%expr185463%_ - _%val185462%_ - _%env-type185426%_))) + _%val185736%_) + _%env-assert185699%_)) + (_%env-type185743%_ + (_%fold-assert-type180637%_ + _%expr185737%_ + _%val185736%_ + _%env-type185700%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp185422%_ - _%rest185446%_ - _%env-assert185467%_ - _%env-type185469%_))))) + (_%lp185696%_ + _%rest185720%_ + _%env-assert185741%_ + _%env-type185743%_))))) (if (let () (declare (not safe)) - (##pair? _%assert185448185455%_)) - (let ((_%hd185452185475%_ + (##pair? _%assert185722185729%_)) + (let ((_%hd185726185749%_ (let () (declare (not safe)) - (##car _%assert185448185455%_))) - (_%tl185453185477%_ + (##car _%assert185722185729%_))) + (_%tl185727185751%_ (let () (declare (not safe)) - (##cdr _%assert185448185455%_)))) - (let* ((_%expr185480%_ - _%hd185452185475%_) - (_%val185482%_ - _%tl185453185477%_)) - (_%K185451185472%_ - _%val185482%_ - _%expr185480%_))) - (_%E185450185459%_)))))) + (##cdr _%assert185722185729%_)))) + (let* ((_%expr185754%_ + _%hd185726185749%_) + (_%val185756%_ + _%tl185727185751%_)) + (_%K185725185746%_ + _%val185756%_ + _%expr185754%_))) + (_%E185724185733%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest185427185435%_)) - (let ((_%hd185432185487%_ + (##pair? _%rest185701185709%_)) + (let ((_%hd185706185761%_ (let () (declare (not safe)) - (##car _%rest185427185435%_))) - (_%tl185433185489%_ + (##car _%rest185701185709%_))) + (_%tl185707185763%_ (let () (declare (not safe)) - (##cdr _%rest185427185435%_)))) - (let* ((_%assert185492%_ _%hd185432185487%_) - (_%rest185494%_ _%tl185433185489%_)) - (_%K185431185484%_ - _%rest185494%_ - _%assert185492%_))) - (_%else185429185443%_)))) - (_%K185420%_)))) - (_%predicate-type180362%_ - (lambda (_%id185364%_) - (let* ((_%sym185366%_ + (##cdr _%rest185701185709%_)))) + (let* ((_%assert185766%_ _%hd185706185761%_) + (_%rest185768%_ _%tl185707185763%_)) + (_%K185705185758%_ + _%rest185768%_ + _%assert185766%_))) + (_%else185703185717%_)))) + (_%K185694%_)))) + (_%predicate-type180636%_ + (lambda (_%id185638%_) + (let* ((_%sym185640%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%id185364%_))) - (_%$e185368%_ _%sym185366%_)) - (let ((_%default185370185401%_ + (gxc#identifier-symbol _%id185638%_))) + (_%$e185642%_ _%sym185640%_)) + (let ((_%default185644185675%_ (lambda () - (let* ((_%g185373185380%_ + (let* ((_%g185647185654%_ (let () (declare (not safe)) (gxc#optimizer-resolve-type - _%sym185366%_))) - (_%else185375185388%_ (lambda () '#f)) - (_%K185377185393%_ - (lambda (_%t185391%_) - (let ((__tmp190874 + _%sym185640%_))) + (_%else185649185662%_ (lambda () '#f)) + (_%K185651185667%_ + (lambda (_%t185665%_) + (let ((__tmp191148 (cons 'predicate-type - (cons _%id185364%_ + (cons _%id185638%_ '())))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp190874 - _%t185391%_))))) + __tmp191148 + _%t185665%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g185373185380%_ + _%g185647185654%_ 'gxc#!predicate::t)) - (let* ((_%e185378185396%_ + (let* ((_%e185652185670%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g185373185380%_ + _%g185647185654%_ '1 '#f '#f))) - (_%t185399%_ _%e185378185396%_)) - (_%K185377185393%_ _%t185399%_)) - (_%else185375185388%_))))) - (_%table185371185403%_ + (_%t185673%_ _%e185652185670%_)) + (_%K185651185667%_ _%t185673%_)) + (_%else185649185662%_))))) + (_%table185645185677%_ '#(#f (##box? . 3) #f @@ -3859,48 +3859,48 @@ #f #f #f))) - (if (symbol? _%$e185368%_) - (let* ((_%h185406%_ + (if (symbol? _%$e185642%_) + (let* ((_%h185680%_ (let () (declare (not safe)) - (##symbol-hash _%$e185368%_))) - (_%ix185409%_ + (##symbol-hash _%$e185642%_))) + (_%ix185683%_ (let () (declare (not safe)) - (##fxmodulo _%h185406%_ '63))) - (_%q185412%_ + (##fxmodulo _%h185680%_ '63))) + (_%q185686%_ (let () (declare (not safe)) (##vector-ref - _%table185371185403%_ - _%ix185409%_)))) - (if _%q185412%_ + _%table185645185677%_ + _%ix185683%_)))) + (if _%q185686%_ (if (eq? (let () (declare (not safe)) - (##car _%q185412%_)) - _%$e185368%_) - (let ((_%x185416%_ + (##car _%q185686%_)) + _%$e185642%_) + (let ((_%x185690%_ (let () (declare (not safe)) - (##cdr _%q185412%_)))) + (##cdr _%q185686%_)))) (if (let () (declare (not safe)) - (##fx< _%x185416%_ '5)) + (##fx< _%x185690%_ '5)) (if (let () (declare (not safe)) - (##fx< _%x185416%_ '2)) + (##fx< _%x185690%_ '2)) (if (let () (declare (not safe)) - (##fx= _%x185416%_ '0)) + (##fx= _%x185690%_ '0)) 'pair 'null) (if (let () (declare (not safe)) - (##fx= _%x185416%_ '2)) + (##fx= _%x185690%_ '2)) 'vector (if (let () (declare (not safe)) - (##fx= _%x185416%_ + (##fx= _%x185690%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '3)) 'box @@ -3908,356 +3908,356 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##fx< _%x185416%_ '7)) + (##fx< _%x185690%_ '7)) (if (let () (declare (not safe)) - (##fx= _%x185416%_ '5)) + (##fx= _%x185690%_ '5)) 'stx-pair 'stx-null) (if (let () (declare (not safe)) - (##fx= _%x185416%_ '7)) + (##fx= _%x185690%_ '7)) 'stx-vector (if (let () (declare (not safe)) - (##fx= _%x185416%_ + (##fx= _%x185690%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '8)) 'stx-box 'stx-datum))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%default185370185401%_)) - (_%default185370185401%_))) - (_%default185370185401%_)))))) - (_%fold-assert-type180363%_ - (lambda (_%expr184310%_ _%val184311%_ _%env184312%_) - (let* ((_%__stx188328188329%_ _%expr184310%_) - (_%g184320184499%_ + (_%default185644185675%_)) + (_%default185644185675%_))) + (_%default185644185675%_)))))) + (_%fold-assert-type180637%_ + (lambda (_%expr184584%_ _%val184585%_ _%env184586%_) + (let* ((_%__stx188602188603%_ _%expr184584%_) + (_%g184594184773%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx188328188329%_))))) - (let ((_%__kont188330188331%_ - (lambda (_%L185332%_ _%L185333%_) - (let ((_%$e185355%_ - (_%predicate-type180362%_ _%L185333%_))) - (if _%$e185355%_ - ((lambda (_%t185358%_) - (cons (cons _%L185332%_ - (cons _%t185358%_ - (cons _%val184311%_ + _%__stx188602188603%_))))) + (let ((_%__kont188604188605%_ + (lambda (_%L185606%_ _%L185607%_) + (let ((_%$e185629%_ + (_%predicate-type180636%_ _%L185607%_))) + (if _%$e185629%_ + ((lambda (_%t185632%_) + (cons (cons _%L185606%_ + (cons _%t185632%_ + (cons _%val184585%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%env184312%_)) - _%$e185355%_) - _%env184312%_)))) - (_%__kont188332188333%_ - (lambda (_%L185021%_ _%L185022%_ _%L185023%_) - (let ((_%$e185048%_ + _%env184586%_)) + _%$e185629%_) + _%env184586%_)))) + (_%__kont188606188607%_ + (lambda (_%L185295%_ _%L185296%_ _%L185297%_) + (let ((_%$e185322%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L185023%_)))) - (if (or (eq? '##fx= _%$e185048%_) - (eq? 'fx= _%$e185048%_)) - (let* ((_%__stx188234188235%_ - _%L185022%_) - (_%g185055185084%_ + (gxc#identifier-symbol _%L185297%_)))) + (if (or (eq? '##fx= _%$e185322%_) + (eq? 'fx= _%$e185322%_)) + (let* ((_%__stx188508188509%_ + _%L185296%_) + (_%g185329185358%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx188234188235%_))))) - (let ((_%__kont188236188237%_ - (lambda (_%L185152%_ - _%L185153%_) - (let ((_%$e185178%_ - (_%countf-symbol180364%_ - _%L185153%_))) - (if _%$e185178%_ - ((lambda (_%sym185181%_) - (cons (cons _%L185152%_ + _%__stx188508188509%_))))) + (let ((_%__kont188510188511%_ + (lambda (_%L185426%_ + _%L185427%_) + (let ((_%$e185452%_ + (_%countf-symbol180638%_ + _%L185427%_))) + (if _%$e185452%_ + ((lambda (_%sym185455%_) + (cons (cons _%L185426%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%sym185181%_ + (cons _%sym185455%_ (cons (let () (declare (not safe)) - (gx#stx-e _%L185021%_)) - (cons _%val184311%_ '())))) - _%env184312%_)) - _%$e185178%_) - _%env184312%_)))) + (gx#stx-e _%L185295%_)) + (cons _%val184585%_ '())))) + _%env184586%_)) + _%$e185452%_) + _%env184586%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188238188239%_ - (lambda () _%env184312%_))) + (_%__kont188512188513%_ + (lambda () _%env184586%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx188234188235%_)) - (let ((_%e185059185096%_ + _%__stx188508188509%_)) + (let ((_%e185333185370%_ (let () (declare (not safe)) (gx#stx-e - _%__stx188234188235%_)))) - (let ((_%tl185061185101%_ + _%__stx188508188509%_)))) + (let ((_%tl185335185375%_ (let () (declare (not safe)) - (##cdr _%e185059185096%_))) - (_%hd185060185099%_ + (##cdr _%e185333185370%_))) + (_%hd185334185373%_ (let () (declare (not safe)) - (##car _%e185059185096%_)))) + (##car _%e185333185370%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd185060185099%_)) + _%hd185334185373%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd185060185099%_)) + _%hd185334185373%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl185061185101%_)) - (let ((_%e185062185104%_ + (gx#stx-pair? _%tl185335185375%_)) + (let ((_%e185336185378%_ (let () (declare (not safe)) - (gx#stx-e _%tl185061185101%_)))) - (let ((_%tl185064185109%_ + (gx#stx-e _%tl185335185375%_)))) + (let ((_%tl185338185383%_ (let () (declare (not safe)) - (##cdr _%e185062185104%_))) - (_%hd185063185107%_ + (##cdr _%e185336185378%_))) + (_%hd185337185381%_ (let () (declare (not safe)) - (##car _%e185062185104%_)))) + (##car _%e185336185378%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185063185107%_)) - (let ((_%e185065185112%_ + (gx#stx-pair? _%hd185337185381%_)) + (let ((_%e185339185386%_ (let () (declare (not safe)) - (gx#stx-e _%hd185063185107%_)))) - (let ((_%tl185067185117%_ + (gx#stx-e _%hd185337185381%_)))) + (let ((_%tl185341185391%_ (let () (declare (not safe)) - (##cdr _%e185065185112%_))) - (_%hd185066185115%_ + (##cdr _%e185339185386%_))) + (_%hd185340185389%_ (let () (declare (not safe)) - (##car _%e185065185112%_)))) + (##car _%e185339185386%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185066185115%_)) + (gx#identifier? _%hd185340185389%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd185066185115%_)) + _%hd185340185389%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185067185117%_)) - (let ((_%e185068185120%_ + _%tl185341185391%_)) + (let ((_%e185342185394%_ (let () (declare (not safe)) (gx#stx-e - _%tl185067185117%_)))) - (let ((_%tl185070185125%_ + _%tl185341185391%_)))) + (let ((_%tl185344185399%_ (let () (declare (not safe)) - (##cdr _%e185068185120%_))) - (_%hd185069185123%_ + (##cdr _%e185342185394%_))) + (_%hd185343185397%_ (let () (declare (not safe)) - (##car _%e185068185120%_)))) + (##car _%e185342185394%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185070185125%_)) + _%tl185344185399%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185064185109%_)) - (let ((_%e185071185128%_ + _%tl185338185383%_)) + (let ((_%e185345185402%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl185064185109%_)))) - (let ((_%tl185073185133%_ + (gx#stx-e _%tl185338185383%_)))) + (let ((_%tl185347185407%_ (let () (declare (not safe)) - (##cdr _%e185071185128%_))) - (_%hd185072185131%_ + (##cdr _%e185345185402%_))) + (_%hd185346185405%_ (let () (declare (not safe)) - (##car _%e185071185128%_)))) + (##car _%e185345185402%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185072185131%_)) - (let ((_%e185074185136%_ + (gx#stx-pair? _%hd185346185405%_)) + (let ((_%e185348185410%_ (let () (declare (not safe)) - (gx#stx-e _%hd185072185131%_)))) - (let ((_%tl185076185141%_ + (gx#stx-e _%hd185346185405%_)))) + (let ((_%tl185350185415%_ (let () (declare (not safe)) - (##cdr _%e185074185136%_))) - (_%hd185075185139%_ + (##cdr _%e185348185410%_))) + (_%hd185349185413%_ (let () (declare (not safe)) - (##car _%e185074185136%_)))) + (##car _%e185348185410%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185075185139%_)) + (gx#identifier? _%hd185349185413%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd185075185139%_)) + (gx#stx-eq? '%#ref _%hd185349185413%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185076185141%_)) - (let ((_%e185077185144%_ + (gx#stx-pair? _%tl185350185415%_)) + (let ((_%e185351185418%_ (let () (declare (not safe)) (gx#stx-e - _%tl185076185141%_)))) - (let ((_%tl185079185149%_ + _%tl185350185415%_)))) + (let ((_%tl185353185423%_ (let () (declare (not safe)) - (##cdr _%e185077185144%_))) - (_%hd185078185147%_ + (##cdr _%e185351185418%_))) + (_%hd185352185421%_ (let () (declare (not safe)) - (##car _%e185077185144%_)))) + (##car _%e185351185418%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185079185149%_)) + _%tl185353185423%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185073185133%_)) - (_%__kont188236188237%_ - _%hd185078185147%_ - _%hd185069185123%_) - (_%__kont188238188239%_)) - (_%__kont188238188239%_)))) - (_%__kont188238188239%_)) - (_%__kont188238188239%_)) - (_%__kont188238188239%_)))) - (_%__kont188238188239%_)))) - (_%__kont188238188239%_)) - (_%__kont188238188239%_)))) + _%tl185347185407%_)) + (_%__kont188510188511%_ + _%hd185352185421%_ + _%hd185343185397%_) + (_%__kont188512188513%_)) + (_%__kont188512188513%_)))) + (_%__kont188512188513%_)) + (_%__kont188512188513%_)) + (_%__kont188512188513%_)))) + (_%__kont188512188513%_)))) + (_%__kont188512188513%_)) + (_%__kont188512188513%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188238188239%_)) - (_%__kont188238188239%_)) - (_%__kont188238188239%_)))) - (_%__kont188238188239%_)))) - (_%__kont188238188239%_)) - (_%__kont188238188239%_)) - (_%__kont188238188239%_)))) + (_%__kont188512188513%_)) + (_%__kont188512188513%_)) + (_%__kont188512188513%_)))) + (_%__kont188512188513%_)))) + (_%__kont188512188513%_)) + (_%__kont188512188513%_)) + (_%__kont188512188513%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188238188239%_)))) - (if (or (eq? '##eq? _%$e185048%_) - (eq? 'eq? _%$e185048%_) - (eq? '##eqv? _%$e185048%_) - (eq? 'eqv? _%$e185048%_) - (eq? '##equal? _%$e185048%_) - (eq? 'equal? _%$e185048%_) + (_%__kont188512188513%_)))) + (if (or (eq? '##eq? _%$e185322%_) + (eq? 'eq? _%$e185322%_) + (eq? '##eqv? _%$e185322%_) + (eq? 'eqv? _%$e185322%_) + (eq? '##equal? _%$e185322%_) + (eq? 'equal? _%$e185322%_) (eq? 'gx#free-identifier=? - _%$e185048%_) - (eq? 'gx#stx-eq? _%$e185048%_)) - ((lambda (_%sym185208%_) - (let* ((_%sym185210%_ - (_%eqf-symbol180365%_ - _%sym185208%_)) - (_%__stx188302188303%_ - _%L185022%_) - (_%g185213185226%_ + _%$e185322%_) + (eq? 'gx#stx-eq? _%$e185322%_)) + ((lambda (_%sym185482%_) + (let* ((_%sym185484%_ + (_%eqf-symbol180639%_ + _%sym185482%_)) + (_%__stx188576188577%_ + _%L185296%_) + (_%g185487185500%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx188302188303%_))))) - (let ((_%__kont188304188305%_ - (lambda (_%L185254%_) - (cons (cons _%L185254%_ + _%__stx188576188577%_))))) + (let ((_%__kont188578188579%_ + (lambda (_%L185528%_) + (cons (cons _%L185528%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%sym185210%_ + (cons _%sym185484%_ (cons (let () (declare (not safe)) - (gx#stx-e _%L185021%_)) - (cons _%val184311%_ '())))) - _%env184312%_))) + (gx#stx-e _%L185295%_)) + (cons _%val184585%_ '())))) + _%env184586%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188306188307%_ + (_%__kont188580188581%_ (lambda () - _%env184312%_))) + _%env184586%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx188302188303%_)) - (let ((_%e185216185238%_ + _%__stx188576188577%_)) + (let ((_%e185490185512%_ (let () (declare (not safe)) (gx#stx-e - _%__stx188302188303%_)))) - (let ((_%tl185218185243%_ + _%__stx188576188577%_)))) + (let ((_%tl185492185517%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e185216185238%_))) - (_%hd185217185241%_ - (let () (declare (not safe)) (##car _%e185216185238%_)))) + (##cdr _%e185490185512%_))) + (_%hd185491185515%_ + (let () (declare (not safe)) (##car _%e185490185512%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185217185241%_)) + (gx#identifier? _%hd185491185515%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd185217185241%_)) + (gx#stx-eq? '%#ref _%hd185491185515%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185218185243%_)) - (let ((_%e185219185246%_ + (gx#stx-pair? _%tl185492185517%_)) + (let ((_%e185493185520%_ (let () (declare (not safe)) - (gx#stx-e _%tl185218185243%_)))) - (let ((_%tl185221185251%_ + (gx#stx-e _%tl185492185517%_)))) + (let ((_%tl185495185525%_ (let () (declare (not safe)) - (##cdr _%e185219185246%_))) - (_%hd185220185249%_ + (##cdr _%e185493185520%_))) + (_%hd185494185523%_ (let () (declare (not safe)) - (##car _%e185219185246%_)))) + (##car _%e185493185520%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185221185251%_)) - (_%__kont188304188305%_ - _%hd185220185249%_) - (_%__kont188306188307%_)))) - (_%__kont188306188307%_)) - (_%__kont188306188307%_)) - (_%__kont188306188307%_)))) + (gx#stx-null? _%tl185495185525%_)) + (_%__kont188578188579%_ + _%hd185494185523%_) + (_%__kont188580188581%_)))) + (_%__kont188580188581%_)) + (_%__kont188580188581%_)) + (_%__kont188580188581%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188306188307%_))))) - _%$e185048%_) - _%env184312%_))))) - (_%__kont188334188335%_ - (lambda (_%L184925%_ _%L184926%_ _%L184927%_) - (_%fold-assert-type180363%_ + (_%__kont188580188581%_))))) + _%$e185322%_) + _%env184586%_))))) + (_%__kont188608188609%_ + (lambda (_%L185199%_ _%L185200%_ _%L185201%_) + (_%fold-assert-type180637%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call)) @@ -4266,42 +4266,42 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L184927%_ '())) - (cons _%L184925%_ + (cons _%L185201%_ '())) + (cons _%L185199%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote)) - (cons _%L184926%_ '())) + (cons _%L185200%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%val184311%_ - _%env184312%_))) - (_%__kont188336188337%_ - (lambda (_%L184815%_ _%L184816%_ _%L184817%_) - (let ((_%$e184846%_ + _%val184585%_ + _%env184586%_))) + (_%__kont188610188611%_ + (lambda (_%L185089%_ _%L185090%_ _%L185091%_) + (let ((_%$e185120%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L184817%_)))) + (gxc#identifier-symbol _%L185091%_)))) (if (or (eq? 'gx#free-identifier=? - _%$e184846%_) - (eq? 'gx#stx-eq? _%$e184846%_)) - ((lambda (_%sym184852%_) - (let ((_%sym184854%_ - (_%eqf-symbol180365%_ - _%sym184852%_))) - (cons (cons _%L184816%_ - (cons _%sym184854%_ - (cons _%L184815%_ + _%$e185120%_) + (eq? 'gx#stx-eq? _%$e185120%_)) + ((lambda (_%sym185126%_) + (let ((_%sym185128%_ + (_%eqf-symbol180639%_ + _%sym185126%_))) + (cons (cons _%L185090%_ + (cons _%sym185128%_ + (cons _%L185089%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%val184311%_ '())))) + (cons _%val184585%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%env184312%_))) - _%$e184846%_) - _%env184312%_)))) - (_%__kont188338188339%_ - (lambda (_%L184699%_ _%L184700%_ _%L184701%_) - (_%fold-assert-type180363%_ + _%env184586%_))) + _%$e185120%_) + _%env184586%_)))) + (_%__kont188612188613%_ + (lambda (_%L184973%_ _%L184974%_ _%L184975%_) + (_%fold-assert-type180637%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call)) @@ -4310,4401 +4310,4401 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L184701%_ '())) + (cons _%L184975%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L184699%_ + (cons _%L184973%_ '())) (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax)) - (cons _%L184700%_ '())) + (cons _%L184974%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%val184311%_ - _%env184312%_))) - (_%__kont188340188341%_ - (lambda (_%L184583%_ _%L184584%_ _%L184585%_) - (_%fold-assert-type180363%_ + _%val184585%_ + _%env184586%_))) + (_%__kont188614188615%_ + (lambda (_%L184857%_ _%L184858%_ _%L184859%_) + (_%fold-assert-type180637%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L184585%_ - _%L184583%_ - _%L184584%_)) - _%val184311%_ - _%env184312%_))) - (_%__kont188342188343%_ - (lambda () _%env184312%_))) + _%L184859%_ + _%L184857%_ + _%L184858%_)) + _%val184585%_ + _%env184586%_))) + (_%__kont188616188617%_ + (lambda () _%env184586%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx188328188329%_)) - (let ((_%e184324185276%_ + (gx#stx-pair? _%__stx188602188603%_)) + (let ((_%e184598185550%_ (let () (declare (not safe)) - (gx#stx-e _%__stx188328188329%_)))) - (let ((_%tl184326185281%_ + (gx#stx-e _%__stx188602188603%_)))) + (let ((_%tl184600185555%_ (let () (declare (not safe)) - (##cdr _%e184324185276%_))) - (_%hd184325185279%_ + (##cdr _%e184598185550%_))) + (_%hd184599185553%_ (let () (declare (not safe)) - (##car _%e184324185276%_)))) + (##car _%e184598185550%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184325185279%_)) + (gx#identifier? _%hd184599185553%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd184325185279%_)) + _%hd184599185553%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184326185281%_)) - (let ((_%e184327185284%_ + _%tl184600185555%_)) + (let ((_%e184601185558%_ (let () (declare (not safe)) (gx#stx-e - _%tl184326185281%_)))) - (let ((_%tl184329185289%_ + _%tl184600185555%_)))) + (let ((_%tl184603185563%_ (let () (declare (not safe)) - (##cdr _%e184327185284%_))) - (_%hd184328185287%_ + (##cdr _%e184601185558%_))) + (_%hd184602185561%_ (let () (declare (not safe)) - (##car _%e184327185284%_)))) + (##car _%e184601185558%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184328185287%_)) - (let ((_%e184330185292%_ + _%hd184602185561%_)) + (let ((_%e184604185566%_ (let () (declare (not safe)) (gx#stx-e - _%hd184328185287%_)))) - (let ((_%tl184332185297%_ + _%hd184602185561%_)))) + (let ((_%tl184606185571%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e184330185292%_))) - (_%hd184331185295%_ - (let () (declare (not safe)) (##car _%e184330185292%_)))) + (##cdr _%e184604185566%_))) + (_%hd184605185569%_ + (let () (declare (not safe)) (##car _%e184604185566%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184331185295%_)) + (gx#identifier? _%hd184605185569%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd184331185295%_)) + (gx#stx-eq? '%#ref _%hd184605185569%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184332185297%_)) - (let ((_%e184333185300%_ + (gx#stx-pair? _%tl184606185571%_)) + (let ((_%e184607185574%_ (let () (declare (not safe)) - (gx#stx-e _%tl184332185297%_)))) - (let ((_%tl184335185305%_ + (gx#stx-e _%tl184606185571%_)))) + (let ((_%tl184609185579%_ (let () (declare (not safe)) - (##cdr _%e184333185300%_))) - (_%hd184334185303%_ + (##cdr _%e184607185574%_))) + (_%hd184608185577%_ (let () (declare (not safe)) - (##car _%e184333185300%_)))) + (##car _%e184607185574%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184335185305%_)) + (gx#stx-null? _%tl184609185579%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184329185289%_)) - (let ((_%e184336185308%_ + (gx#stx-pair? _%tl184603185563%_)) + (let ((_%e184610185582%_ (let () (declare (not safe)) (gx#stx-e - _%tl184329185289%_)))) - (let ((_%tl184338185313%_ + _%tl184603185563%_)))) + (let ((_%tl184612185587%_ (let () (declare (not safe)) - (##cdr _%e184336185308%_))) - (_%hd184337185311%_ + (##cdr _%e184610185582%_))) + (_%hd184611185585%_ (let () (declare (not safe)) - (##car _%e184336185308%_)))) + (##car _%e184610185582%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184337185311%_)) - (let ((_%e184339185316%_ + _%hd184611185585%_)) + (let ((_%e184613185590%_ (let () (declare (not safe)) (gx#stx-e - _%hd184337185311%_)))) - (let ((_%tl184341185321%_ + _%hd184611185585%_)))) + (let ((_%tl184615185595%_ (let () (declare (not safe)) - (##cdr _%e184339185316%_))) - (_%hd184340185319%_ + (##cdr _%e184613185590%_))) + (_%hd184614185593%_ (let () (declare (not safe)) - (##car _%e184339185316%_)))) + (##car _%e184613185590%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd184340185319%_)) + _%hd184614185593%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd184340185319%_)) + (gx#stx-eq? '%#ref _%hd184614185593%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184341185321%_)) - (let ((_%e184342185324%_ + (gx#stx-pair? _%tl184615185595%_)) + (let ((_%e184616185598%_ (let () (declare (not safe)) - (gx#stx-e _%tl184341185321%_)))) - (let ((_%tl184344185329%_ + (gx#stx-e _%tl184615185595%_)))) + (let ((_%tl184618185603%_ (let () (declare (not safe)) - (##cdr _%e184342185324%_))) - (_%hd184343185327%_ + (##cdr _%e184616185598%_))) + (_%hd184617185601%_ (let () (declare (not safe)) - (##car _%e184342185324%_)))) + (##car _%e184616185598%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184344185329%_)) + (gx#stx-null? _%tl184618185603%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184338185313%_)) - (_%__kont188330188331%_ - _%hd184343185327%_ - _%hd184334185303%_) + (gx#stx-null? _%tl184612185587%_)) + (_%__kont188604188605%_ + _%hd184617185601%_ + _%hd184608185577%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184338185313%_)) - (let ((_%e184363184997%_ + (gx#stx-pair? _%tl184612185587%_)) + (let ((_%e184637185271%_ (let () (declare (not safe)) (gx#stx-e - _%tl184338185313%_)))) - (let ((_%tl184365185002%_ + _%tl184612185587%_)))) + (let ((_%tl184639185276%_ (let () (declare (not safe)) - (##cdr _%e184363184997%_))) - (_%hd184364185000%_ + (##cdr _%e184637185271%_))) + (_%hd184638185274%_ (let () (declare (not safe)) - (##car _%e184363184997%_)))) + (##car _%e184637185271%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184364185000%_)) - (let ((_%e184366185005%_ + _%hd184638185274%_)) + (let ((_%e184640185279%_ (let () (declare (not safe)) (gx#stx-e - _%hd184364185000%_)))) - (let ((_%tl184368185010%_ + _%hd184638185274%_)))) + (let ((_%tl184642185284%_ (let () (declare (not safe)) - (##cdr _%e184366185005%_))) - (_%hd184367185008%_ + (##cdr _%e184640185279%_))) + (_%hd184641185282%_ (let () (declare (not safe)) - (##car _%e184366185005%_)))) + (##car _%e184640185279%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd184367185008%_)) + _%hd184641185282%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _%hd184367185008%_)) + (gx#stx-eq? '%#quote _%hd184641185282%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184368185010%_)) - (let ((_%e184369185013%_ + (gx#stx-pair? _%tl184642185284%_)) + (let ((_%e184643185287%_ (let () (declare (not safe)) - (gx#stx-e _%tl184368185010%_)))) - (let ((_%tl184371185018%_ + (gx#stx-e _%tl184642185284%_)))) + (let ((_%tl184645185292%_ (let () (declare (not safe)) - (##cdr _%e184369185013%_))) - (_%hd184370185016%_ + (##cdr _%e184643185287%_))) + (_%hd184644185290%_ (let () (declare (not safe)) - (##car _%e184369185013%_)))) + (##car _%e184643185287%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184371185018%_)) + (gx#stx-null? _%tl184645185292%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184365185002%_)) - (_%__kont188332188333%_ - _%hd184370185016%_ - _%hd184337185311%_ - _%hd184334185303%_) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)))) - (_%__kont188342188343%_)) + (gx#stx-null? _%tl184639185276%_)) + (_%__kont188606188607%_ + _%hd184644185290%_ + _%hd184611185585%_ + _%hd184608185577%_) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)))) + (_%__kont188616188617%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd184367185008%_)) + (gx#stx-eq? '%#quote-syntax _%hd184641185282%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184368185010%_)) - (let ((_%e184429184807%_ + (gx#stx-pair? _%tl184642185284%_)) + (let ((_%e184703185081%_ (let () (declare (not safe)) - (gx#stx-e _%tl184368185010%_)))) - (let ((_%tl184431184812%_ + (gx#stx-e _%tl184642185284%_)))) + (let ((_%tl184705185086%_ (let () (declare (not safe)) - (##cdr _%e184429184807%_))) - (_%hd184430184810%_ + (##cdr _%e184703185081%_))) + (_%hd184704185084%_ (let () (declare (not safe)) - (##car _%e184429184807%_)))) + (##car _%e184703185081%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184431184812%_)) + (gx#stx-null? _%tl184705185086%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184365185002%_)) - (_%__kont188336188337%_ - _%hd184430184810%_ - _%hd184343185327%_ - _%hd184334185303%_) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)))) - (_%__kont188342188343%_)) - (_%__kont188342188343%_))) - (_%__kont188342188343%_)))) + (gx#stx-null? _%tl184639185276%_)) + (_%__kont188610188611%_ + _%hd184704185084%_ + _%hd184617185601%_ + _%hd184608185577%_) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)))) + (_%__kont188616188617%_)) + (_%__kont188616188617%_))) + (_%__kont188616188617%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188342188343%_)))) - (_%__kont188342188343%_))) + (_%__kont188616188617%_)))) + (_%__kont188616188617%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184338185313%_)) - (let ((_%e184363184997%_ + (gx#stx-pair? _%tl184612185587%_)) + (let ((_%e184637185271%_ (let () (declare (not safe)) - (gx#stx-e _%tl184338185313%_)))) - (let ((_%tl184365185002%_ + (gx#stx-e _%tl184612185587%_)))) + (let ((_%tl184639185276%_ (let () (declare (not safe)) - (##cdr _%e184363184997%_))) - (_%hd184364185000%_ + (##cdr _%e184637185271%_))) + (_%hd184638185274%_ (let () (declare (not safe)) - (##car _%e184363184997%_)))) + (##car _%e184637185271%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184364185000%_)) - (let ((_%e184366185005%_ + _%hd184638185274%_)) + (let ((_%e184640185279%_ (let () (declare (not safe)) (gx#stx-e - _%hd184364185000%_)))) - (let ((_%tl184368185010%_ + _%hd184638185274%_)))) + (let ((_%tl184642185284%_ (let () (declare (not safe)) - (##cdr _%e184366185005%_))) - (_%hd184367185008%_ + (##cdr _%e184640185279%_))) + (_%hd184641185282%_ (let () (declare (not safe)) - (##car _%e184366185005%_)))) + (##car _%e184640185279%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd184367185008%_)) + _%hd184641185282%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd184367185008%_)) + _%hd184641185282%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl184368185010%_)) - (let ((_%e184369185013%_ + (gx#stx-pair? _%tl184642185284%_)) + (let ((_%e184643185287%_ (let () (declare (not safe)) - (gx#stx-e _%tl184368185010%_)))) - (let ((_%tl184371185018%_ + (gx#stx-e _%tl184642185284%_)))) + (let ((_%tl184645185292%_ (let () (declare (not safe)) - (##cdr _%e184369185013%_))) - (_%hd184370185016%_ + (##cdr _%e184643185287%_))) + (_%hd184644185290%_ (let () (declare (not safe)) - (##car _%e184369185013%_)))) + (##car _%e184643185287%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184371185018%_)) + (gx#stx-null? _%tl184645185292%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184365185002%_)) - (_%__kont188332188333%_ - _%hd184370185016%_ - _%hd184337185311%_ - _%hd184334185303%_) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)))) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)) + (gx#stx-null? _%tl184639185276%_)) + (_%__kont188606188607%_ + _%hd184644185290%_ + _%hd184611185585%_ + _%hd184608185577%_) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)))) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188342188343%_)))) - (_%__kont188342188343%_)))) - (_%__kont188342188343%_))))) + (_%__kont188616188617%_)))) + (_%__kont188616188617%_)))) + (_%__kont188616188617%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184338185313%_)) - (let ((_%e184363184997%_ + (gx#stx-pair? _%tl184612185587%_)) + (let ((_%e184637185271%_ (let () (declare (not safe)) - (gx#stx-e _%tl184338185313%_)))) - (let ((_%tl184365185002%_ + (gx#stx-e _%tl184612185587%_)))) + (let ((_%tl184639185276%_ (let () (declare (not safe)) - (##cdr _%e184363184997%_))) - (_%hd184364185000%_ + (##cdr _%e184637185271%_))) + (_%hd184638185274%_ (let () (declare (not safe)) - (##car _%e184363184997%_)))) + (##car _%e184637185271%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184364185000%_)) - (let ((_%e184366185005%_ + (gx#stx-pair? _%hd184638185274%_)) + (let ((_%e184640185279%_ (let () (declare (not safe)) - (gx#stx-e _%hd184364185000%_)))) - (let ((_%tl184368185010%_ + (gx#stx-e _%hd184638185274%_)))) + (let ((_%tl184642185284%_ (let () (declare (not safe)) - (##cdr _%e184366185005%_))) - (_%hd184367185008%_ + (##cdr _%e184640185279%_))) + (_%hd184641185282%_ (let () (declare (not safe)) - (##car _%e184366185005%_)))) + (##car _%e184640185279%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd184367185008%_)) + _%hd184641185282%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd184367185008%_)) + _%hd184641185282%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184368185010%_)) - (let ((_%e184369185013%_ + _%tl184642185284%_)) + (let ((_%e184643185287%_ (let () (declare (not safe)) (gx#stx-e - _%tl184368185010%_)))) - (let ((_%tl184371185018%_ + _%tl184642185284%_)))) + (let ((_%tl184645185292%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e184369185013%_))) - (_%hd184370185016%_ - (let () (declare (not safe)) (##car _%e184369185013%_)))) + (##cdr _%e184643185287%_))) + (_%hd184644185290%_ + (let () (declare (not safe)) (##car _%e184643185287%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184371185018%_)) + (gx#stx-null? _%tl184645185292%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184365185002%_)) - (_%__kont188332188333%_ - _%hd184370185016%_ - _%hd184337185311%_ - _%hd184334185303%_) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)))) + (gx#stx-null? _%tl184639185276%_)) + (_%__kont188606188607%_ + _%hd184644185290%_ + _%hd184611185585%_ + _%hd184608185577%_) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188342188343%_)) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)))) - (_%__kont188342188343%_)))) - (_%__kont188342188343%_))) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)))) + (_%__kont188616188617%_)))) + (_%__kont188616188617%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184338185313%_)) - (let ((_%e184363184997%_ + (gx#stx-pair? _%tl184612185587%_)) + (let ((_%e184637185271%_ (let () (declare (not safe)) - (gx#stx-e _%tl184338185313%_)))) - (let ((_%tl184365185002%_ + (gx#stx-e _%tl184612185587%_)))) + (let ((_%tl184639185276%_ (let () (declare (not safe)) - (##cdr _%e184363184997%_))) - (_%hd184364185000%_ + (##cdr _%e184637185271%_))) + (_%hd184638185274%_ (let () (declare (not safe)) - (##car _%e184363184997%_)))) + (##car _%e184637185271%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184364185000%_)) - (let ((_%e184366185005%_ + (gx#stx-pair? _%hd184638185274%_)) + (let ((_%e184640185279%_ (let () (declare (not safe)) - (gx#stx-e _%hd184364185000%_)))) - (let ((_%tl184368185010%_ + (gx#stx-e _%hd184638185274%_)))) + (let ((_%tl184642185284%_ (let () (declare (not safe)) - (##cdr _%e184366185005%_))) - (_%hd184367185008%_ + (##cdr _%e184640185279%_))) + (_%hd184641185282%_ (let () (declare (not safe)) - (##car _%e184366185005%_)))) + (##car _%e184640185279%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184367185008%_)) + (gx#identifier? _%hd184641185282%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd184367185008%_)) + _%hd184641185282%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184368185010%_)) - (let ((_%e184369185013%_ + _%tl184642185284%_)) + (let ((_%e184643185287%_ (let () (declare (not safe)) (gx#stx-e - _%tl184368185010%_)))) - (let ((_%tl184371185018%_ + _%tl184642185284%_)))) + (let ((_%tl184645185292%_ (let () (declare (not safe)) - (##cdr _%e184369185013%_))) - (_%hd184370185016%_ + (##cdr _%e184643185287%_))) + (_%hd184644185290%_ (let () (declare (not safe)) - (##car _%e184369185013%_)))) + (##car _%e184643185287%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184371185018%_)) + _%tl184645185292%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl184365185002%_)) - (_%__kont188332188333%_ - _%hd184370185016%_ - _%hd184337185311%_ - _%hd184334185303%_) + (gx#stx-null? _%tl184639185276%_)) + (_%__kont188606188607%_ + _%hd184644185290%_ + _%hd184611185585%_ + _%hd184608185577%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd184340185319%_)) + (gx#stx-eq? '%#quote _%hd184614185593%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184341185321%_)) - (let ((_%e184393184909%_ + (gx#stx-pair? _%tl184615185595%_)) + (let ((_%e184667185183%_ (let () (declare (not safe)) - (gx#stx-e _%tl184341185321%_)))) - (let ((_%tl184395184914%_ + (gx#stx-e _%tl184615185595%_)))) + (let ((_%tl184669185188%_ (let () (declare (not safe)) - (##cdr _%e184393184909%_))) - (_%hd184394184912%_ + (##cdr _%e184667185183%_))) + (_%hd184668185186%_ (let () (declare (not safe)) - (##car _%e184393184909%_)))) - (_%__kont188342188343%_))) - (_%__kont188342188343%_)) + (##car _%e184667185183%_)))) + (_%__kont188616188617%_))) + (_%__kont188616188617%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd184340185319%_)) + (gx#stx-eq? '%#quote-syntax _%hd184614185593%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184341185321%_)) - (let ((_%e184453184667%_ + (gx#stx-pair? _%tl184615185595%_)) + (let ((_%e184727184941%_ (let () (declare (not safe)) - (gx#stx-e _%tl184341185321%_)))) - (let ((_%tl184455184672%_ + (gx#stx-e _%tl184615185595%_)))) + (let ((_%tl184729184946%_ (let () (declare (not safe)) - (##cdr _%e184453184667%_))) - (_%hd184454184670%_ + (##cdr _%e184727184941%_))) + (_%hd184728184944%_ (let () (declare (not safe)) - (##car _%e184453184667%_)))) - (_%__kont188342188343%_))) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)))) + (##car _%e184727184941%_)))) + (_%__kont188616188617%_))) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd184340185319%_)) + (gx#stx-eq? '%#quote _%hd184614185593%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184341185321%_)) - (let ((_%e184393184909%_ + (gx#stx-pair? _%tl184615185595%_)) + (let ((_%e184667185183%_ (let () (declare (not safe)) - (gx#stx-e _%tl184341185321%_)))) - (let ((_%tl184395184914%_ + (gx#stx-e _%tl184615185595%_)))) + (let ((_%tl184669185188%_ (let () (declare (not safe)) - (##cdr _%e184393184909%_))) - (_%hd184394184912%_ + (##cdr _%e184667185183%_))) + (_%hd184668185186%_ (let () (declare (not safe)) - (##car _%e184393184909%_)))) + (##car _%e184667185183%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184395184914%_)) + (gx#stx-null? _%tl184669185188%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184365185002%_)) - (_%__kont188334188335%_ - _%hd184364185000%_ - _%hd184394184912%_ - _%hd184334185303%_) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)))) - (_%__kont188342188343%_)) + (gx#stx-null? _%tl184639185276%_)) + (_%__kont188608188609%_ + _%hd184638185274%_ + _%hd184668185186%_ + _%hd184608185577%_) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)))) + (_%__kont188616188617%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd184340185319%_)) + (gx#stx-eq? '%#quote-syntax _%hd184614185593%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184341185321%_)) - (let ((_%e184453184667%_ + (gx#stx-pair? _%tl184615185595%_)) + (let ((_%e184727184941%_ (let () (declare (not safe)) - (gx#stx-e _%tl184341185321%_)))) - (let ((_%tl184455184672%_ + (gx#stx-e _%tl184615185595%_)))) + (let ((_%tl184729184946%_ (let () (declare (not safe)) - (##cdr _%e184453184667%_))) - (_%hd184454184670%_ + (##cdr _%e184727184941%_))) + (_%hd184728184944%_ (let () (declare (not safe)) - (##car _%e184453184667%_)))) - (_%__kont188342188343%_))) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)))))) + (##car _%e184727184941%_)))) + (_%__kont188616188617%_))) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd184340185319%_)) + _%hd184614185593%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184341185321%_)) - (let ((_%e184393184909%_ + _%tl184615185595%_)) + (let ((_%e184667185183%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl184341185321%_)))) - (let ((_%tl184395184914%_ + (gx#stx-e _%tl184615185595%_)))) + (let ((_%tl184669185188%_ (let () (declare (not safe)) - (##cdr _%e184393184909%_))) - (_%hd184394184912%_ + (##cdr _%e184667185183%_))) + (_%hd184668185186%_ (let () (declare (not safe)) - (##car _%e184393184909%_)))) + (##car _%e184667185183%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184395184914%_)) + (gx#stx-null? _%tl184669185188%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184365185002%_)) - (_%__kont188334188335%_ - _%hd184364185000%_ - _%hd184394184912%_ - _%hd184334185303%_) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)))) - (_%__kont188342188343%_)) + (gx#stx-null? _%tl184639185276%_)) + (_%__kont188608188609%_ + _%hd184638185274%_ + _%hd184668185186%_ + _%hd184608185577%_) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)))) + (_%__kont188616188617%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd184340185319%_)) + _%hd184614185593%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl184341185321%_)) - (let ((_%e184453184667%_ + (gx#stx-pair? _%tl184615185595%_)) + (let ((_%e184727184941%_ (let () (declare (not safe)) - (gx#stx-e _%tl184341185321%_)))) - (let ((_%tl184455184672%_ + (gx#stx-e _%tl184615185595%_)))) + (let ((_%tl184729184946%_ (let () (declare (not safe)) - (##cdr _%e184453184667%_))) - (_%hd184454184670%_ + (##cdr _%e184727184941%_))) + (_%hd184728184944%_ (let () (declare (not safe)) - (##car _%e184453184667%_)))) - (_%__kont188342188343%_))) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)))) + (##car _%e184727184941%_)))) + (_%__kont188616188617%_))) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd184340185319%_)) + _%hd184614185593%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184341185321%_)) - (let ((_%e184393184909%_ + _%tl184615185595%_)) + (let ((_%e184667185183%_ (let () (declare (not safe)) (gx#stx-e - _%tl184341185321%_)))) - (let ((_%tl184395184914%_ + _%tl184615185595%_)))) + (let ((_%tl184669185188%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e184393184909%_))) - (_%hd184394184912%_ - (let () (declare (not safe)) (##car _%e184393184909%_)))) + (##cdr _%e184667185183%_))) + (_%hd184668185186%_ + (let () (declare (not safe)) (##car _%e184667185183%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184395184914%_)) + (gx#stx-null? _%tl184669185188%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184365185002%_)) - (_%__kont188334188335%_ - _%hd184364185000%_ - _%hd184394184912%_ - _%hd184334185303%_) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)))) + (gx#stx-null? _%tl184639185276%_)) + (_%__kont188608188609%_ + _%hd184638185274%_ + _%hd184668185186%_ + _%hd184608185577%_) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188342188343%_)) + (_%__kont188616188617%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd184340185319%_)) + _%hd184614185593%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184341185321%_)) - (let ((_%e184453184667%_ + _%tl184615185595%_)) + (let ((_%e184727184941%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl184341185321%_)))) - (let ((_%tl184455184672%_ + (gx#stx-e _%tl184615185595%_)))) + (let ((_%tl184729184946%_ (let () (declare (not safe)) - (##cdr _%e184453184667%_))) - (_%hd184454184670%_ + (##cdr _%e184727184941%_))) + (_%hd184728184944%_ (let () (declare (not safe)) - (##car _%e184453184667%_)))) + (##car _%e184727184941%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184455184672%_)) + (gx#stx-null? _%tl184729184946%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd184367185008%_)) + (gx#stx-eq? '%#ref _%hd184641185282%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184368185010%_)) - (let ((_%e184462184691%_ + (gx#stx-pair? _%tl184642185284%_)) + (let ((_%e184736184965%_ (let () (declare (not safe)) - (gx#stx-e _%tl184368185010%_)))) - (let ((_%tl184464184696%_ + (gx#stx-e _%tl184642185284%_)))) + (let ((_%tl184738184970%_ (let () (declare (not safe)) - (##cdr _%e184462184691%_))) - (_%hd184463184694%_ + (##cdr _%e184736184965%_))) + (_%hd184737184968%_ (let () (declare (not safe)) - (##car _%e184462184691%_)))) + (##car _%e184736184965%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184464184696%_)) + (gx#stx-null? _%tl184738184970%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184365185002%_)) - (_%__kont188338188339%_ - _%hd184463184694%_ - _%hd184454184670%_ - _%hd184334185303%_) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)))) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)))) - (_%__kont188342188343%_)) + _%tl184639185276%_)) + (_%__kont188612188613%_ + _%hd184737184968%_ + _%hd184728184944%_ + _%hd184608185577%_) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)))) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)))) + (_%__kont188616188617%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188342188343%_)))) + (_%__kont188616188617%_)))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd184340185319%_)) + _%hd184614185593%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184341185321%_)) - (let ((_%e184393184909%_ + _%tl184615185595%_)) + (let ((_%e184667185183%_ (let () (declare (not safe)) (gx#stx-e - _%tl184341185321%_)))) - (let ((_%tl184395184914%_ + _%tl184615185595%_)))) + (let ((_%tl184669185188%_ (let () (declare (not safe)) - (##cdr _%e184393184909%_))) - (_%hd184394184912%_ + (##cdr _%e184667185183%_))) + (_%hd184668185186%_ (let () (declare (not safe)) - (##car _%e184393184909%_)))) + (##car _%e184667185183%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184395184914%_)) + _%tl184669185188%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl184365185002%_)) - (_%__kont188334188335%_ - _%hd184364185000%_ - _%hd184394184912%_ - _%hd184334185303%_) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)))) + (gx#stx-null? _%tl184639185276%_)) + (_%__kont188608188609%_ + _%hd184638185274%_ + _%hd184668185186%_ + _%hd184608185577%_) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188342188343%_)) + (_%__kont188616188617%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd184340185319%_)) + _%hd184614185593%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184341185321%_)) - (let ((_%e184453184667%_ + _%tl184615185595%_)) + (let ((_%e184727184941%_ (let () (declare (not safe)) (gx#stx-e - _%tl184341185321%_)))) - (let ((_%tl184455184672%_ + _%tl184615185595%_)))) + (let ((_%tl184729184946%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e184453184667%_))) - (_%hd184454184670%_ - (let () (declare (not safe)) (##car _%e184453184667%_)))) - (_%__kont188342188343%_))) + (##cdr _%e184727184941%_))) + (_%hd184728184944%_ + (let () (declare (not safe)) (##car _%e184727184941%_)))) + (_%__kont188616188617%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188342188343%_)) - (_%__kont188342188343%_)))))) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)))))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd184340185319%_)) + _%hd184614185593%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184341185321%_)) - (let ((_%e184393184909%_ + (gx#stx-pair? _%tl184615185595%_)) + (let ((_%e184667185183%_ (let () (declare (not safe)) (gx#stx-e - _%tl184341185321%_)))) - (let ((_%tl184395184914%_ + _%tl184615185595%_)))) + (let ((_%tl184669185188%_ (let () (declare (not safe)) - (##cdr _%e184393184909%_))) - (_%hd184394184912%_ + (##cdr _%e184667185183%_))) + (_%hd184668185186%_ (let () (declare (not safe)) - (##car _%e184393184909%_)))) + (##car _%e184667185183%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184395184914%_)) + _%tl184669185188%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184365185002%_)) - (_%__kont188334188335%_ - _%hd184364185000%_ - _%hd184394184912%_ - _%hd184334185303%_) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)))) - (_%__kont188342188343%_)) + _%tl184639185276%_)) + (_%__kont188608188609%_ + _%hd184638185274%_ + _%hd184668185186%_ + _%hd184608185577%_) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)))) + (_%__kont188616188617%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd184340185319%_)) + _%hd184614185593%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184341185321%_)) - (let ((_%e184453184667%_ + _%tl184615185595%_)) + (let ((_%e184727184941%_ (let () (declare (not safe)) (gx#stx-e - _%tl184341185321%_)))) - (let ((_%tl184455184672%_ + _%tl184615185595%_)))) + (let ((_%tl184729184946%_ (let () (declare (not safe)) - (##cdr _%e184453184667%_))) - (_%hd184454184670%_ + (##cdr _%e184727184941%_))) + (_%hd184728184944%_ (let () (declare (not safe)) - (##car _%e184453184667%_)))) - (_%__kont188342188343%_))) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)))))) + (##car _%e184727184941%_)))) + (_%__kont188616188617%_))) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd184340185319%_)) + (gx#stx-eq? '%#quote _%hd184614185593%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184341185321%_)) - (let ((_%e184393184909%_ + (gx#stx-pair? _%tl184615185595%_)) + (let ((_%e184667185183%_ (let () (declare (not safe)) - (gx#stx-e _%tl184341185321%_)))) - (let ((_%tl184395184914%_ + (gx#stx-e _%tl184615185595%_)))) + (let ((_%tl184669185188%_ (let () (declare (not safe)) - (##cdr _%e184393184909%_))) - (_%hd184394184912%_ + (##cdr _%e184667185183%_))) + (_%hd184668185186%_ (let () (declare (not safe)) - (##car _%e184393184909%_)))) - (_%__kont188342188343%_))) - (_%__kont188342188343%_)) + (##car _%e184667185183%_)))) + (_%__kont188616188617%_))) + (_%__kont188616188617%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd184340185319%_)) + _%hd184614185593%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184341185321%_)) - (let ((_%e184453184667%_ + (gx#stx-pair? _%tl184615185595%_)) + (let ((_%e184727184941%_ (let () (declare (not safe)) - (gx#stx-e _%tl184341185321%_)))) - (let ((_%tl184455184672%_ + (gx#stx-e _%tl184615185595%_)))) + (let ((_%tl184729184946%_ (let () (declare (not safe)) - (##cdr _%e184453184667%_))) - (_%hd184454184670%_ + (##cdr _%e184727184941%_))) + (_%hd184728184944%_ (let () (declare (not safe)) - (##car _%e184453184667%_)))) - (_%__kont188342188343%_))) - (_%__kont188342188343%_)) - (_%__kont188342188343%_))))) + (##car _%e184727184941%_)))) + (_%__kont188616188617%_))) + (_%__kont188616188617%_)) + (_%__kont188616188617%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184338185313%_)) - (let ((_%e184363184997%_ + (gx#stx-pair? _%tl184612185587%_)) + (let ((_%e184637185271%_ (let () (declare (not safe)) - (gx#stx-e _%tl184338185313%_)))) - (let ((_%tl184365185002%_ + (gx#stx-e _%tl184612185587%_)))) + (let ((_%tl184639185276%_ (let () (declare (not safe)) - (##cdr _%e184363184997%_))) - (_%hd184364185000%_ + (##cdr _%e184637185271%_))) + (_%hd184638185274%_ (let () (declare (not safe)) - (##car _%e184363184997%_)))) + (##car _%e184637185271%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184364185000%_)) - (let ((_%e184366185005%_ + (gx#stx-pair? _%hd184638185274%_)) + (let ((_%e184640185279%_ (let () (declare (not safe)) - (gx#stx-e _%hd184364185000%_)))) - (let ((_%tl184368185010%_ + (gx#stx-e _%hd184638185274%_)))) + (let ((_%tl184642185284%_ (let () (declare (not safe)) - (##cdr _%e184366185005%_))) - (_%hd184367185008%_ + (##cdr _%e184640185279%_))) + (_%hd184641185282%_ (let () (declare (not safe)) - (##car _%e184366185005%_)))) + (##car _%e184640185279%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184367185008%_)) + (gx#identifier? _%hd184641185282%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd184367185008%_)) + _%hd184641185282%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184368185010%_)) - (let ((_%e184369185013%_ + _%tl184642185284%_)) + (let ((_%e184643185287%_ (let () (declare (not safe)) (gx#stx-e - _%tl184368185010%_)))) - (let ((_%tl184371185018%_ + _%tl184642185284%_)))) + (let ((_%tl184645185292%_ (let () (declare (not safe)) - (##cdr _%e184369185013%_))) - (_%hd184370185016%_ + (##cdr _%e184643185287%_))) + (_%hd184644185290%_ (let () (declare (not safe)) - (##car _%e184369185013%_)))) + (##car _%e184643185287%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184371185018%_)) + _%tl184645185292%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184365185002%_)) - (_%__kont188332188333%_ - _%hd184370185016%_ - _%hd184337185311%_ - _%hd184334185303%_) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)))) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)))) - (_%__kont188342188343%_)))) - (_%__kont188342188343%_))))) + _%tl184639185276%_)) + (_%__kont188606188607%_ + _%hd184644185290%_ + _%hd184611185585%_ + _%hd184608185577%_) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)))) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)))) + (_%__kont188616188617%_)))) + (_%__kont188616188617%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184338185313%_)) - (let ((_%e184363184997%_ + _%tl184612185587%_)) + (let ((_%e184637185271%_ (let () (declare (not safe)) (gx#stx-e - _%tl184338185313%_)))) - (let ((_%tl184365185002%_ + _%tl184612185587%_)))) + (let ((_%tl184639185276%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e184363184997%_))) - (_%hd184364185000%_ - (let () (declare (not safe)) (##car _%e184363184997%_)))) + (##cdr _%e184637185271%_))) + (_%hd184638185274%_ + (let () (declare (not safe)) (##car _%e184637185271%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184364185000%_)) - (let ((_%e184366185005%_ + (gx#stx-pair? _%hd184638185274%_)) + (let ((_%e184640185279%_ (let () (declare (not safe)) - (gx#stx-e _%hd184364185000%_)))) - (let ((_%tl184368185010%_ + (gx#stx-e _%hd184638185274%_)))) + (let ((_%tl184642185284%_ (let () (declare (not safe)) - (##cdr _%e184366185005%_))) - (_%hd184367185008%_ + (##cdr _%e184640185279%_))) + (_%hd184641185282%_ (let () (declare (not safe)) - (##car _%e184366185005%_)))) + (##car _%e184640185279%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184367185008%_)) + (gx#identifier? _%hd184641185282%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd184367185008%_)) + (gx#stx-eq? '%#quote _%hd184641185282%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184368185010%_)) - (let ((_%e184369185013%_ + (gx#stx-pair? _%tl184642185284%_)) + (let ((_%e184643185287%_ (let () (declare (not safe)) - (gx#stx-e _%tl184368185010%_)))) - (let ((_%tl184371185018%_ + (gx#stx-e _%tl184642185284%_)))) + (let ((_%tl184645185292%_ (let () (declare (not safe)) - (##cdr _%e184369185013%_))) - (_%hd184370185016%_ + (##cdr _%e184643185287%_))) + (_%hd184644185290%_ (let () (declare (not safe)) - (##car _%e184369185013%_)))) + (##car _%e184643185287%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184371185018%_)) + _%tl184645185292%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184365185002%_)) - (_%__kont188332188333%_ - _%hd184370185016%_ - _%hd184337185311%_ - _%hd184334185303%_) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)))) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)))) - (_%__kont188342188343%_)))) + _%tl184639185276%_)) + (_%__kont188606188607%_ + _%hd184644185290%_ + _%hd184611185585%_ + _%hd184608185577%_) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)))) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)))) + (_%__kont188616188617%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188342188343%_))))) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)))) - (_%__kont188342188343%_)) + (_%__kont188616188617%_))))) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)))) + (_%__kont188616188617%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd184331185295%_)) + (gx#stx-eq? '%#lambda _%hd184605185569%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184332185297%_)) - (let ((_%e184477184535%_ + (gx#stx-pair? _%tl184606185571%_)) + (let ((_%e184751184809%_ (let () (declare (not safe)) - (gx#stx-e _%tl184332185297%_)))) - (let ((_%tl184479184540%_ + (gx#stx-e _%tl184606185571%_)))) + (let ((_%tl184753184814%_ (let () (declare (not safe)) - (##cdr _%e184477184535%_))) - (_%hd184478184538%_ + (##cdr _%e184751184809%_))) + (_%hd184752184812%_ (let () (declare (not safe)) - (##car _%e184477184535%_)))) + (##car _%e184751184809%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184478184538%_)) - (let ((_%e184480184543%_ + (gx#stx-pair? _%hd184752184812%_)) + (let ((_%e184754184817%_ (let () (declare (not safe)) (gx#stx-e - _%hd184478184538%_)))) - (let ((_%tl184482184548%_ + _%hd184752184812%_)))) + (let ((_%tl184756184822%_ (let () (declare (not safe)) - (##cdr _%e184480184543%_))) - (_%hd184481184546%_ + (##cdr _%e184754184817%_))) + (_%hd184755184820%_ (let () (declare (not safe)) - (##car _%e184480184543%_)))) + (##car _%e184754184817%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184482184548%_)) + _%tl184756184822%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184479184540%_)) - (let ((_%e184483184551%_ + _%tl184753184814%_)) + (let ((_%e184757184825%_ (let () (declare (not safe)) (gx#stx-e - _%tl184479184540%_)))) - (let ((_%tl184485184556%_ + _%tl184753184814%_)))) + (let ((_%tl184759184830%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e184483184551%_))) - (_%hd184484184554%_ - (let () (declare (not safe)) (##car _%e184483184551%_)))) + (##cdr _%e184757184825%_))) + (_%hd184758184828%_ + (let () (declare (not safe)) (##car _%e184757184825%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184485184556%_)) + (gx#stx-null? _%tl184759184830%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184329185289%_)) - (let ((_%e184486184559%_ + (gx#stx-pair? _%tl184603185563%_)) + (let ((_%e184760184833%_ (let () (declare (not safe)) - (gx#stx-e _%tl184329185289%_)))) - (let ((_%tl184488184564%_ + (gx#stx-e _%tl184603185563%_)))) + (let ((_%tl184762184838%_ (let () (declare (not safe)) - (##cdr _%e184486184559%_))) - (_%hd184487184562%_ + (##cdr _%e184760184833%_))) + (_%hd184761184836%_ (let () (declare (not safe)) - (##car _%e184486184559%_)))) + (##car _%e184760184833%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184487184562%_)) - (let ((_%e184489184567%_ + (gx#stx-pair? _%hd184761184836%_)) + (let ((_%e184763184841%_ (let () (declare (not safe)) - (gx#stx-e _%hd184487184562%_)))) - (let ((_%tl184491184572%_ + (gx#stx-e _%hd184761184836%_)))) + (let ((_%tl184765184846%_ (let () (declare (not safe)) - (##cdr _%e184489184567%_))) - (_%hd184490184570%_ + (##cdr _%e184763184841%_))) + (_%hd184764184844%_ (let () (declare (not safe)) - (##car _%e184489184567%_)))) + (##car _%e184763184841%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184490184570%_)) + (gx#identifier? _%hd184764184844%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd184490184570%_)) + _%hd184764184844%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184491184572%_)) - (let ((_%e184492184575%_ + _%tl184765184846%_)) + (let ((_%e184766184849%_ (let () (declare (not safe)) (gx#stx-e - _%tl184491184572%_)))) - (let ((_%tl184494184580%_ + _%tl184765184846%_)))) + (let ((_%tl184768184854%_ (let () (declare (not safe)) - (##cdr _%e184492184575%_))) - (_%hd184493184578%_ + (##cdr _%e184766184849%_))) + (_%hd184767184852%_ (let () (declare (not safe)) - (##car _%e184492184575%_)))) + (##car _%e184766184849%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184494184580%_)) + _%tl184768184854%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl184488184564%_)) - (_%__kont188340188341%_ - _%hd184493184578%_ - _%hd184484184554%_ - _%hd184481184546%_) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)))) + (gx#stx-null? _%tl184762184838%_)) + (_%__kont188614188615%_ + _%hd184767184852%_ + _%hd184758184828%_ + _%hd184755184820%_) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188342188343%_)) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)))) - (_%__kont188342188343%_)))) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)))) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)))) + (_%__kont188616188617%_)))) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188342188343%_)) - (_%__kont188342188343%_)))) - (_%__kont188342188343%_)))) - (_%__kont188342188343%_)) - (_%__kont188342188343%_))) - (_%__kont188342188343%_)))) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)))) + (_%__kont188616188617%_)))) + (_%__kont188616188617%_)) + (_%__kont188616188617%_))) + (_%__kont188616188617%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188342188343%_)))) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)) - (_%__kont188342188343%_)))) - (_%__kont188342188343%_)))))) - (_%countf-symbol180364%_ - (lambda (_%id184302%_) - (let ((_%$e184304%_ + (_%__kont188616188617%_)))) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)) + (_%__kont188616188617%_)))) + (_%__kont188616188617%_)))))) + (_%countf-symbol180638%_ + (lambda (_%id184576%_) + (let ((_%$e184578%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%id184302%_)))) - (if (or (eq? '##vector-length _%$e184304%_) - (eq? 'vector-length _%$e184304%_)) + (gxc#identifier-symbol _%id184576%_)))) + (if (or (eq? '##vector-length _%$e184578%_) + (eq? 'vector-length _%$e184578%_)) 'vector-length - (if (eq? 'values-count _%$e184304%_) + (if (eq? 'values-count _%$e184578%_) 'values-count '#f))))) - (_%eqf-symbol180365%_ - (lambda (_%sym184288%_) - (let ((_%$e184290%_ _%sym184288%_)) - (if (or (eq? '##eq? _%$e184290%_) - (eq? 'eq? _%$e184290%_)) + (_%eqf-symbol180639%_ + (lambda (_%sym184562%_) + (let ((_%$e184564%_ _%sym184562%_)) + (if (or (eq? '##eq? _%$e184564%_) + (eq? 'eq? _%$e184564%_)) 'eq? - (if (or (eq? '##eqv? _%$e184290%_) - (eq? 'eqv? _%$e184290%_)) + (if (or (eq? '##eqv? _%$e184564%_) + (eq? 'eqv? _%$e184564%_)) 'eqv? - (if (or (eq? '##equal? _%$e184290%_) - (eq? 'equal? _%$e184290%_)) + (if (or (eq? '##equal? _%$e184564%_) + (eq? 'equal? _%$e184564%_)) 'equal? - (if (eq? 'gx#free-identifier=? _%$e184290%_) + (if (eq? 'gx#free-identifier=? _%$e184564%_) 'free-identifier=? - (if (eq? 'gx#stx-eq? _%$e184290%_) + (if (eq? 'gx#stx-eq? _%$e184564%_) 'stx-eq? '#f)))))))) - (_%eqf-symbol?180366%_ - (lambda (_%sym184271%_) - (let ((_%$e184273%_ _%sym184271%_)) - (if (or (eq? 'eq? _%$e184273%_) - (eq? 'eqv? _%$e184273%_) - (eq? 'equal? _%$e184273%_) - (eq? 'free-identifier=? _%$e184273%_) - (eq? 'stx-eq? _%$e184273%_)) + (_%eqf-symbol?180640%_ + (lambda (_%sym184545%_) + (let ((_%$e184547%_ _%sym184545%_)) + (if (or (eq? 'eq? _%$e184547%_) + (eq? 'eqv? _%$e184547%_) + (eq? 'equal? _%$e184547%_) + (eq? 'free-identifier=? _%$e184547%_) + (eq? 'stx-eq? _%$e184547%_)) '#t '#f)))) - (_%do-assert!180367%_ - (lambda (_%assert184262%_ _%type184263%_ _%K184264%_) - (let ((_%unwind-assert184266%_ _%env-assert180357%_) - (_%unwind-type184267%_ _%env-type180358%_)) - (set! _%env-assert180357%_ _%assert184262%_) - (set! _%env-type180358%_ _%type184263%_) - (let ((_%val184269%_ (_%K184264%_))) - (set! _%env-assert180357%_ _%unwind-assert184266%_) - (set! _%env-type180358%_ _%unwind-type184267%_) - _%val184269%_)))) - (_%do-bind180368%_ - (lambda (_%bind184259%_ _%K184260%_) - (if (pair? _%bind184259%_) - (_%do-bind!180370%_ - (_%fold-bind-env180369%_ - _%bind184259%_ - _%env-bind180359%_) - _%K184260%_) - (_%K184260%_)))) - (_%fold-bind-env180369%_ - (lambda (_%bind184188%_ _%env184189%_) - (let _%lp184191%_ ((_%rest184193%_ _%bind184188%_) - (_%env184194%_ _%env184189%_)) - (let* ((_%rest184195184203%_ _%rest184193%_) - (_%else184197184211%_ (lambda () _%env184194%_)) - (_%K184199184247%_ - (lambda (_%rest184214%_ _%bind184215%_) - (let* ((_%bind184216184223%_ _%bind184215%_) - (_%E184218184227%_ + (_%do-assert!180641%_ + (lambda (_%assert184536%_ _%type184537%_ _%K184538%_) + (let ((_%unwind-assert184540%_ _%env-assert180631%_) + (_%unwind-type184541%_ _%env-type180632%_)) + (set! _%env-assert180631%_ _%assert184536%_) + (set! _%env-type180632%_ _%type184537%_) + (let ((_%val184543%_ (_%K184538%_))) + (set! _%env-assert180631%_ _%unwind-assert184540%_) + (set! _%env-type180632%_ _%unwind-type184541%_) + _%val184543%_)))) + (_%do-bind180642%_ + (lambda (_%bind184533%_ _%K184534%_) + (if (pair? _%bind184533%_) + (_%do-bind!180644%_ + (_%fold-bind-env180643%_ + _%bind184533%_ + _%env-bind180633%_) + _%K184534%_) + (_%K184534%_)))) + (_%fold-bind-env180643%_ + (lambda (_%bind184462%_ _%env184463%_) + (let _%lp184465%_ ((_%rest184467%_ _%bind184462%_) + (_%env184468%_ _%env184463%_)) + (let* ((_%rest184469184477%_ _%rest184467%_) + (_%else184471184485%_ (lambda () _%env184468%_)) + (_%K184473184521%_ + (lambda (_%rest184488%_ _%bind184489%_) + (let* ((_%bind184490184497%_ _%bind184489%_) + (_%E184492184501%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%bind184216184223%_ + _%bind184490184497%_ '([id . expr]))) '#!void)) - (_%K184219184235%_ - (lambda (_%expr184230%_ _%id184231%_) - (let ((_%sexpr184233%_ + (_%K184493184509%_ + (lambda (_%expr184504%_ _%id184505%_) + (let ((_%sexpr184507%_ (gxc#apply-generate-runtime-repr - _%expr184230%_))) - (_%lp184191%_ - _%rest184214%_ - (cons (cons _%sexpr184233%_ - _%id184231%_) - _%env184194%_)))))) + _%expr184504%_))) + (_%lp184465%_ + _%rest184488%_ + (cons (cons _%sexpr184507%_ + _%id184505%_) + _%env184468%_)))))) (if (let () (declare (not safe)) - (##pair? _%bind184216184223%_)) - (let ((_%hd184220184238%_ + (##pair? _%bind184490184497%_)) + (let ((_%hd184494184512%_ (let () (declare (not safe)) - (##car _%bind184216184223%_))) - (_%tl184221184240%_ + (##car _%bind184490184497%_))) + (_%tl184495184514%_ (let () (declare (not safe)) - (##cdr _%bind184216184223%_)))) - (let* ((_%id184243%_ - _%hd184220184238%_) - (_%expr184245%_ - _%tl184221184240%_)) - (_%K184219184235%_ - _%expr184245%_ - _%id184243%_))) - (_%E184218184227%_)))))) + (##cdr _%bind184490184497%_)))) + (let* ((_%id184517%_ + _%hd184494184512%_) + (_%expr184519%_ + _%tl184495184514%_)) + (_%K184493184509%_ + _%expr184519%_ + _%id184517%_))) + (_%E184492184501%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest184195184203%_)) - (let ((_%hd184200184250%_ + (##pair? _%rest184469184477%_)) + (let ((_%hd184474184524%_ (let () (declare (not safe)) - (##car _%rest184195184203%_))) - (_%tl184201184252%_ + (##car _%rest184469184477%_))) + (_%tl184475184526%_ (let () (declare (not safe)) - (##cdr _%rest184195184203%_)))) - (let* ((_%bind184255%_ _%hd184200184250%_) - (_%rest184257%_ _%tl184201184252%_)) - (_%K184199184247%_ - _%rest184257%_ - _%bind184255%_))) - (_%else184197184211%_)))))) - (_%do-bind!180370%_ - (lambda (_%env184181%_ _%K184182%_) - (let ((_%unwind184184%_ _%env-bind180359%_)) - (set! _%env-bind180359%_ _%env184181%_) - (let ((_%val184186%_ (_%K184182%_))) - (set! _%env-bind180359%_ _%unwind184184%_) - _%val184186%_)))) - (_%do-splice!180371%_ - (lambda (_%K184175%_) - (let ((_%unwind184177%_ _%in-splice?180360%_)) - (set! _%in-splice?180360%_ '#t) - (let ((_%val184179%_ (_%K184175%_))) - (set! _%in-splice?180360%_ _%unwind184177%_) - _%val184179%_)))) - (_%optimize-e180372%_ - (lambda (_%expr183371%_) - (let* ((_%__stx188780188781%_ _%expr183371%_) - (_%g183378183551%_ + (##cdr _%rest184469184477%_)))) + (let* ((_%bind184529%_ _%hd184474184524%_) + (_%rest184531%_ _%tl184475184526%_)) + (_%K184473184521%_ + _%rest184531%_ + _%bind184529%_))) + (_%else184471184485%_)))))) + (_%do-bind!180644%_ + (lambda (_%env184455%_ _%K184456%_) + (let ((_%unwind184458%_ _%env-bind180633%_)) + (set! _%env-bind180633%_ _%env184455%_) + (let ((_%val184460%_ (_%K184456%_))) + (set! _%env-bind180633%_ _%unwind184458%_) + _%val184460%_)))) + (_%do-splice!180645%_ + (lambda (_%K184449%_) + (let ((_%unwind184451%_ _%in-splice?180634%_)) + (set! _%in-splice?180634%_ '#t) + (let ((_%val184453%_ (_%K184449%_))) + (set! _%in-splice?180634%_ _%unwind184451%_) + _%val184453%_)))) + (_%optimize-e180646%_ + (lambda (_%expr183645%_) + (let* ((_%__stx189054189055%_ _%expr183645%_) + (_%g183652183825%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx188780188781%_))))) - (let ((_%__kont188782188783%_ - (lambda (_%L184147%_ _%L184148%_ _%L184149%_) - (let ((_%$e184166%_ - (_%assert-e180375%_ _%L184149%_))) - (if (eq? '#t _%$e184166%_) - (_%optimize-e180372%_ _%L184148%_) - (if (eq? '#f _%$e184166%_) - (_%optimize-e180372%_ _%L184147%_) - (let ((_%K184169%_ - (_%optimize-t__0__187727187728%_ - _%L184148%_ - _%L184149%_)) - (_%E184170%_ - (_%optimize-f__187729187730%_ - _%L184147%_ - _%L184149%_))) + _%__stx189054189055%_))))) + (let ((_%__kont189056189057%_ + (lambda (_%L184421%_ _%L184422%_ _%L184423%_) + (let ((_%$e184440%_ + (_%assert-e180649%_ _%L184423%_))) + (if (eq? '#t _%$e184440%_) + (_%optimize-e180646%_ _%L184422%_) + (if (eq? '#f _%$e184440%_) + (_%optimize-e180646%_ _%L184421%_) + (let ((_%K184443%_ + (_%optimize-t__0__188001188002%_ + _%L184422%_ + _%L184423%_)) + (_%E184444%_ + (_%optimize-f__188003188004%_ + _%L184421%_ + _%L184423%_))) (if (equal? (gxc#apply-generate-runtime-repr - _%K184169%_) + _%K184443%_) (gxc#apply-generate-runtime-repr - _%E184170%_)) - _%K184169%_ + _%E184444%_)) + _%K184443%_ (cons '%#if - (cons _%L184149%_ - (cons _%K184169%_ + (cons _%L184423%_ + (cons _%K184443%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%E184170%_ '()))))))))))) + (cons _%E184444%_ '()))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188784188785%_ - (lambda (_%L184076%_ _%L184077%_) - (let ((_%$e184097%_ - (_%lookup-block180380%_ _%L184077%_))) - (if _%$e184097%_ - ((lambda (_%block184100%_) - (if (_%nonlinear-block?180382%_ - _%block184100%_) - _%expr183371%_ - (_%optimize-e180372%_ - (_%inline-block180381%_ - _%block184100%_ - (let ((__tmp190875 - (lambda (_%g184101184104%_ - _%g184102184106%_) - (cons _%g184101184104%_ - _%g184102184106%_)))) + (_%__kont189058189059%_ + (lambda (_%L184350%_ _%L184351%_) + (let ((_%$e184371%_ + (_%lookup-block180654%_ _%L184351%_))) + (if _%$e184371%_ + ((lambda (_%block184374%_) + (if (_%nonlinear-block?180656%_ + _%block184374%_) + _%expr183645%_ + (_%optimize-e180646%_ + (_%inline-block180655%_ + _%block184374%_ + (let ((__tmp191149 + (lambda (_%g184375184378%_ + _%g184376184380%_) + (cons _%g184375184378%_ + _%g184376184380%_)))) (declare (not safe)) (__foldr1 - __tmp190875 + __tmp191149 '() - _%L184076%_)))))) - _%$e184097%_) - _%expr183371%_)))) - (_%__kont188788188789%_ - (lambda (_%L183966%_ _%L183967%_ _%L183968%_) - (let ((_%body183987%_ - (_%optimize-e180372%_ _%L183966%_))) + _%L184350%_)))))) + _%$e184371%_) + _%expr183645%_)))) + (_%__kont189062189063%_ + (lambda (_%L184240%_ _%L184241%_ _%L184242%_) + (let ((_%body184261%_ + (_%optimize-e180646%_ _%L184240%_))) (cons '%#let-values (cons (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L183967%_ - _%L183968%_)) - (let ((__tmp190876 - (lambda (_%g183988183992%_ - _%g183989183994%_ - _%g183990183996%_) - (cons (cons (cons _%g183989183994%_ + _%L184241%_ + _%L184242%_)) + (let ((__tmp191150 + (lambda (_%g184262184266%_ + _%g184263184268%_ + _%g184264184270%_) + (cons (cons (cons _%g184263184268%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g183988183992%_ '())) + (cons _%g184262184266%_ '())) '())) - _%g183990183996%_)))) + _%g184264184270%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr2 - __tmp190876 + __tmp191150 '() - _%L183967%_ - _%L183968%_))) - (cons _%body183987%_ '())))))) - (_%__kont188792188793%_ - (lambda (_%L183834%_ _%L183835%_ _%L183836%_) - (_%bind-e__0__187735187736%_ + _%L184241%_ + _%L184242%_))) + (cons _%body184261%_ '())))))) + (_%__kont189066189067%_ + (lambda (_%L184108%_ _%L184109%_ _%L184110%_) + (_%bind-e__0__188009188010%_ (map cons - (let ((__tmp190877 - (lambda (_%g183854183857%_ - _%g183855183859%_) - (cons _%g183854183857%_ - _%g183855183859%_)))) + (let ((__tmp191151 + (lambda (_%g184128184131%_ + _%g184129184133%_) + (cons _%g184128184131%_ + _%g184129184133%_)))) (declare (not safe)) - (__foldr1 __tmp190877 '() _%L183836%_)) - (let ((__tmp190878 - (lambda (_%g183861183864%_ - _%g183862183866%_) - (cons _%g183861183864%_ - _%g183862183866%_)))) + (__foldr1 __tmp191151 '() _%L184110%_)) + (let ((__tmp191152 + (lambda (_%g184135184138%_ + _%g184136184140%_) + (cons _%g184135184138%_ + _%g184136184140%_)))) (declare (not safe)) (__foldr1 - __tmp190878 + __tmp191152 '() - _%L183835%_))) - _%L183834%_))) - (_%__kont188796188797%_ - (lambda (_%L183691%_ - _%L183692%_ - _%L183693%_ - _%L183694%_ - _%L183695%_) - (_%do-splice!180371%_ + _%L184109%_))) + _%L184108%_))) + (_%__kont189070189071%_ + (lambda (_%L183965%_ + _%L183966%_ + _%L183967%_ + _%L183968%_ + _%L183969%_) + (_%do-splice!180645%_ (lambda () - (let ((_%expr183737%_ - (_%optimize-e180372%_ _%L183693%_))) + (let ((_%expr184011%_ + (_%optimize-e180646%_ _%L183967%_))) (cons '%#letrec-values - (cons (cons (cons (cons _%L183695%_ + (cons (cons (cons (cons _%L183969%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#lambda - (cons (let ((__tmp190879 - (lambda (_%g183738183741%_ - _%g183739183743%_) - (cons _%g183738183741%_ - _%g183739183743%_)))) + (cons (let ((__tmp191153 + (lambda (_%g184012184015%_ + _%g184013184017%_) + (cons _%g184012184015%_ + _%g184013184017%_)))) (declare (not safe)) (__foldr1 - __tmp190879 + __tmp191153 '() - _%L183694%_)) - (cons _%expr183737%_ '()))) + _%L183968%_)) + (cons _%expr184011%_ '()))) '())) - (let ((__tmp190880 - (lambda (_%g183745183748%_ _%g183746183750%_) - (cons _%g183745183748%_ _%g183746183750%_)))) + (let ((__tmp191154 + (lambda (_%g184019184022%_ _%g184020184024%_) + (cons _%g184019184022%_ _%g184020184024%_)))) (declare (not safe)) - (__foldr1 __tmp190880 '() _%L183692%_))) + (__foldr1 __tmp191154 '() _%L183966%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L183691%_ '())))))))) - (_%__kont188802188803%_ - (lambda () _%expr183371%_))) - (let* ((_%__match188989188990%_ - (lambda (_%e183499183563%_ - _%hd183500183566%_ - _%tl183501183568%_ - _%e183502183571%_ - _%hd183503183574%_ - _%tl183504183576%_ - _%e183505183579%_ - _%hd183506183582%_ - _%tl183507183584%_ - _%e183508183587%_ - _%hd183509183590%_ - _%tl183510183592%_ - _%e183511183595%_ - _%hd183512183598%_ - _%tl183513183600%_ - _%e183514183603%_ - _%hd183515183606%_ - _%tl183516183608%_ - _%e183517183611%_ - _%hd183518183614%_ - _%tl183519183616%_ - _%e183520183619%_ - _%hd183521183622%_ - _%tl183522183624%_ - _%__splice188798188799%_ - _%target183523183627%_ - _%tl183525183629%_) - (letrec ((_%loop183526183632%_ - (lambda (_%hd183524183635%_ - _%id183530183637%_) + (cons _%L183965%_ '())))))))) + (_%__kont189076189077%_ + (lambda () _%expr183645%_))) + (let* ((_%__match189263189264%_ + (lambda (_%e183773183837%_ + _%hd183774183840%_ + _%tl183775183842%_ + _%e183776183845%_ + _%hd183777183848%_ + _%tl183778183850%_ + _%e183779183853%_ + _%hd183780183856%_ + _%tl183781183858%_ + _%e183782183861%_ + _%hd183783183864%_ + _%tl183784183866%_ + _%e183785183869%_ + _%hd183786183872%_ + _%tl183787183874%_ + _%e183788183877%_ + _%hd183789183880%_ + _%tl183790183882%_ + _%e183791183885%_ + _%hd183792183888%_ + _%tl183793183890%_ + _%e183794183893%_ + _%hd183795183896%_ + _%tl183796183898%_ + _%__splice189072189073%_ + _%target183797183901%_ + _%tl183799183903%_) + (letrec ((_%loop183800183906%_ + (lambda (_%hd183798183909%_ + _%id183804183911%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183524183635%_)) - (let ((_%e183527183640%_ + _%hd183798183909%_)) + (let ((_%e183801183914%_ (let () (declare (not safe)) (gx#stx-e - _%hd183524183635%_)))) - (let ((_%lp-tl183529183645%_ + _%hd183798183909%_)))) + (let ((_%lp-tl183803183919%_ (let () (declare (not safe)) - (##cdr _%e183527183640%_))) - (_%lp-hd183528183643%_ + (##cdr _%e183801183914%_))) + (_%lp-hd183802183917%_ (let () (declare (not safe)) - (##car _%e183527183640%_)))) - (_%loop183526183632%_ - _%lp-tl183529183645%_ - (cons _%lp-hd183528183643%_ - _%id183530183637%_)))) - (let ((_%id183531183648%_ - (reverse _%id183530183637%_))) + (##car _%e183801183914%_)))) + (_%loop183800183906%_ + _%lp-tl183803183919%_ + (cons _%lp-hd183802183917%_ + _%id183804183911%_)))) + (let ((_%id183805183922%_ + (reverse _%id183804183911%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183522183624%_)) - (let ((_%e183532183651%_ + _%tl183796183898%_)) + (let ((_%e183806183925%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl183522183624%_)))) - (let ((_%tl183534183656%_ + (gx#stx-e _%tl183796183898%_)))) + (let ((_%tl183808183930%_ (let () (declare (not safe)) - (##cdr _%e183532183651%_))) - (_%hd183533183654%_ + (##cdr _%e183806183925%_))) + (_%hd183807183928%_ (let () (declare (not safe)) - (##car _%e183532183651%_)))) + (##car _%e183806183925%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183534183656%_)) + (gx#stx-null? _%tl183808183930%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183516183608%_)) + (gx#stx-null? _%tl183790183882%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl183507183584%_)) - (let ((_%__splice188800188801%_ + (gx#stx-pair/null? _%tl183781183858%_)) + (let ((_%__splice189074189075%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl183507183584%_ + _%tl183781183858%_ '0)))) - (let ((_%tl183537183661%_ + (let ((_%tl183811183935%_ (let () (declare (not safe)) (##vector-ref - _%__splice188800188801%_ + _%__splice189074189075%_ '1))) - (_%target183535183659%_ + (_%target183809183933%_ (let () (declare (not safe)) (##vector-ref - _%__splice188800188801%_ + _%__splice189074189075%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183537183661%_)) - (letrec ((_%loop183538183664%_ - (lambda (_%hd183536183667%_ - _%bind183542183669%_) + (gx#stx-null? _%tl183811183935%_)) + (letrec ((_%loop183812183938%_ + (lambda (_%hd183810183941%_ + _%bind183816183943%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183536183667%_)) - (let ((_%e183539183672%_ + _%hd183810183941%_)) + (let ((_%e183813183946%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd183536183667%_)))) - (let ((_%lp-tl183541183677%_ + (gx#stx-e _%hd183810183941%_)))) + (let ((_%lp-tl183815183951%_ (let () (declare (not safe)) - (##cdr _%e183539183672%_))) - (_%lp-hd183540183675%_ + (##cdr _%e183813183946%_))) + (_%lp-hd183814183949%_ (let () (declare (not safe)) - (##car _%e183539183672%_)))) - (_%loop183538183664%_ - _%lp-tl183541183677%_ - (cons _%lp-hd183540183675%_ _%bind183542183669%_)))) - (let ((_%bind183543183680%_ (reverse _%bind183542183669%_))) + (##car _%e183813183946%_)))) + (_%loop183812183938%_ + _%lp-tl183815183951%_ + (cons _%lp-hd183814183949%_ _%bind183816183943%_)))) + (let ((_%bind183817183954%_ (reverse _%bind183816183943%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183504183576%_)) - (let ((_%e183544183683%_ + (gx#stx-pair? _%tl183778183850%_)) + (let ((_%e183818183957%_ (let () (declare (not safe)) - (gx#stx-e _%tl183504183576%_)))) - (let ((_%tl183546183688%_ + (gx#stx-e _%tl183778183850%_)))) + (let ((_%tl183820183962%_ (let () (declare (not safe)) - (##cdr _%e183544183683%_))) - (_%hd183545183686%_ + (##cdr _%e183818183957%_))) + (_%hd183819183960%_ (let () (declare (not safe)) - (##car _%e183544183683%_)))) + (##car _%e183818183957%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183546183688%_)) - (_%__kont188796188797%_ - _%hd183545183686%_ - _%bind183543183680%_ - _%hd183533183654%_ - _%id183531183648%_ - _%hd183512183598%_) - (_%__kont188802188803%_)))) - (_%__kont188802188803%_))))))) + (gx#stx-null? _%tl183820183962%_)) + (_%__kont189070189071%_ + _%hd183819183960%_ + _%bind183817183954%_ + _%hd183807183928%_ + _%id183805183922%_ + _%hd183786183872%_) + (_%__kont189076189077%_)))) + (_%__kont189076189077%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop183538183664%_ - _%target183535183659%_ + (_%loop183812183938%_ + _%target183809183933%_ '())) - (_%__kont188802188803%_)))) - (_%__kont188802188803%_)) - (_%__kont188802188803%_)) - (_%__kont188802188803%_)))) - (_%__kont188802188803%_))))))) + (_%__kont189076189077%_)))) + (_%__kont189076189077%_)) + (_%__kont189076189077%_)) + (_%__kont189076189077%_)))) + (_%__kont189076189077%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop183526183632%_ - _%target183523183627%_ + (_%loop183800183906%_ + _%target183797183901%_ '())))) - (_%__match188923188924%_ - (lambda (_%e183465183758%_ - _%hd183466183761%_ - _%tl183467183763%_ - _%e183468183766%_ - _%hd183469183769%_ - _%tl183470183771%_ - _%__splice188794188795%_ - _%target183471183774%_ - _%tl183473183776%_) - (letrec ((_%loop183474183779%_ - (lambda (_%hd183472183782%_ - _%expr183478183784%_ - _%id183479183786%_) + (_%__match189197189198%_ + (lambda (_%e183739184032%_ + _%hd183740184035%_ + _%tl183741184037%_ + _%e183742184040%_ + _%hd183743184043%_ + _%tl183744184045%_ + _%__splice189068189069%_ + _%target183745184048%_ + _%tl183747184050%_) + (letrec ((_%loop183748184053%_ + (lambda (_%hd183746184056%_ + _%expr183752184058%_ + _%id183753184060%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183472183782%_)) - (let ((_%e183475183789%_ + _%hd183746184056%_)) + (let ((_%e183749184063%_ (let () (declare (not safe)) (gx#stx-e - _%hd183472183782%_)))) - (let ((_%lp-tl183477183794%_ + _%hd183746184056%_)))) + (let ((_%lp-tl183751184068%_ (let () (declare (not safe)) - (##cdr _%e183475183789%_))) - (_%lp-hd183476183792%_ + (##cdr _%e183749184063%_))) + (_%lp-hd183750184066%_ (let () (declare (not safe)) - (##car _%e183475183789%_)))) + (##car _%e183749184063%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd183476183792%_)) - (let ((_%e183485183797%_ + _%lp-hd183750184066%_)) + (let ((_%e183759184071%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd183476183792%_)))) - (let ((_%tl183487183802%_ + (gx#stx-e _%lp-hd183750184066%_)))) + (let ((_%tl183761184076%_ (let () (declare (not safe)) - (##cdr _%e183485183797%_))) - (_%hd183486183800%_ + (##cdr _%e183759184071%_))) + (_%hd183760184074%_ (let () (declare (not safe)) - (##car _%e183485183797%_)))) + (##car _%e183759184071%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183486183800%_)) - (let ((_%e183488183805%_ + (gx#stx-pair? _%hd183760184074%_)) + (let ((_%e183762184079%_ (let () (declare (not safe)) - (gx#stx-e _%hd183486183800%_)))) - (let ((_%tl183490183810%_ + (gx#stx-e _%hd183760184074%_)))) + (let ((_%tl183764184084%_ (let () (declare (not safe)) - (##cdr _%e183488183805%_))) - (_%hd183489183808%_ + (##cdr _%e183762184079%_))) + (_%hd183763184082%_ (let () (declare (not safe)) - (##car _%e183488183805%_)))) + (##car _%e183762184079%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183490183810%_)) + (gx#stx-null? _%tl183764184084%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183487183802%_)) - (let ((_%e183491183813%_ + (gx#stx-pair? _%tl183761184076%_)) + (let ((_%e183765184087%_ (let () (declare (not safe)) (gx#stx-e - _%tl183487183802%_)))) - (let ((_%tl183493183818%_ + _%tl183761184076%_)))) + (let ((_%tl183767184092%_ (let () (declare (not safe)) - (##cdr _%e183491183813%_))) - (_%hd183492183816%_ + (##cdr _%e183765184087%_))) + (_%hd183766184090%_ (let () (declare (not safe)) - (##car _%e183491183813%_)))) + (##car _%e183765184087%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183493183818%_)) - (_%loop183474183779%_ - _%lp-tl183477183794%_ - (cons _%hd183492183816%_ - _%expr183478183784%_) - (cons _%hd183489183808%_ - _%id183479183786%_)) - (_%__kont188802188803%_)))) - (_%__kont188802188803%_)) - (_%__kont188802188803%_)))) - (_%__kont188802188803%_)))) - (_%__kont188802188803%_)))) + _%tl183767184092%_)) + (_%loop183748184053%_ + _%lp-tl183751184068%_ + (cons _%hd183766184090%_ + _%expr183752184058%_) + (cons _%hd183763184082%_ + _%id183753184060%_)) + (_%__kont189076189077%_)))) + (_%__kont189076189077%_)) + (_%__kont189076189077%_)))) + (_%__kont189076189077%_)))) + (_%__kont189076189077%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id183481183823%_ - (reverse _%id183479183786%_)) - (_%expr183480183821%_ - (reverse _%expr183478183784%_))) + (let ((_%id183755184097%_ + (reverse _%id183753184060%_)) + (_%expr183754184095%_ + (reverse _%expr183752184058%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183470183771%_)) - (let ((_%e183482183826%_ + _%tl183744184045%_)) + (let ((_%e183756184100%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl183470183771%_)))) - (let ((_%tl183484183831%_ + (gx#stx-e _%tl183744184045%_)))) + (let ((_%tl183758184105%_ (let () (declare (not safe)) - (##cdr _%e183482183826%_))) - (_%hd183483183829%_ + (##cdr _%e183756184100%_))) + (_%hd183757184103%_ (let () (declare (not safe)) - (##car _%e183482183826%_)))) + (##car _%e183756184100%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183484183831%_)) - (_%__kont188792188793%_ - _%hd183483183829%_ - _%expr183480183821%_ - _%id183481183823%_) - (_%__kont188802188803%_)))) - (_%__kont188802188803%_))))))) + (gx#stx-null? _%tl183758184105%_)) + (_%__kont189066189067%_ + _%hd183757184103%_ + _%expr183754184095%_ + _%id183755184097%_) + (_%__kont189076189077%_)))) + (_%__kont189076189077%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop183474183779%_ - _%target183471183774%_ + (_%loop183748184053%_ + _%target183745184048%_ '() '())))) - (_%__match188899188900%_ - (lambda (_%e183427183874%_ - _%hd183428183877%_ - _%tl183429183879%_ - _%e183430183882%_ - _%hd183431183885%_ - _%tl183432183887%_ - _%__splice188790188791%_ - _%target183433183890%_ - _%tl183435183892%_) - (letrec ((_%loop183436183895%_ - (lambda (_%hd183434183898%_ - _%xid183440183900%_ - _%id183441183902%_) + (_%__match189173189174%_ + (lambda (_%e183701184148%_ + _%hd183702184151%_ + _%tl183703184153%_ + _%e183704184156%_ + _%hd183705184159%_ + _%tl183706184161%_ + _%__splice189064189065%_ + _%target183707184164%_ + _%tl183709184166%_) + (letrec ((_%loop183710184169%_ + (lambda (_%hd183708184172%_ + _%xid183714184174%_ + _%id183715184176%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183434183898%_)) - (let ((_%e183437183905%_ + _%hd183708184172%_)) + (let ((_%e183711184179%_ (let () (declare (not safe)) (gx#stx-e - _%hd183434183898%_)))) - (let ((_%lp-tl183439183910%_ + _%hd183708184172%_)))) + (let ((_%lp-tl183713184184%_ (let () (declare (not safe)) - (##cdr _%e183437183905%_))) - (_%lp-hd183438183908%_ + (##cdr _%e183711184179%_))) + (_%lp-hd183712184182%_ (let () (declare (not safe)) - (##car _%e183437183905%_)))) + (##car _%e183711184179%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd183438183908%_)) - (let ((_%e183447183913%_ + _%lp-hd183712184182%_)) + (let ((_%e183721184187%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd183438183908%_)))) - (let ((_%tl183449183918%_ + (gx#stx-e _%lp-hd183712184182%_)))) + (let ((_%tl183723184192%_ (let () (declare (not safe)) - (##cdr _%e183447183913%_))) - (_%hd183448183916%_ + (##cdr _%e183721184187%_))) + (_%hd183722184190%_ (let () (declare (not safe)) - (##car _%e183447183913%_)))) + (##car _%e183721184187%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183448183916%_)) - (let ((_%e183450183921%_ + (gx#stx-pair? _%hd183722184190%_)) + (let ((_%e183724184195%_ (let () (declare (not safe)) - (gx#stx-e _%hd183448183916%_)))) - (let ((_%tl183452183926%_ + (gx#stx-e _%hd183722184190%_)))) + (let ((_%tl183726184200%_ (let () (declare (not safe)) - (##cdr _%e183450183921%_))) - (_%hd183451183924%_ + (##cdr _%e183724184195%_))) + (_%hd183725184198%_ (let () (declare (not safe)) - (##car _%e183450183921%_)))) + (##car _%e183724184195%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183452183926%_)) + (gx#stx-null? _%tl183726184200%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183449183918%_)) - (let ((_%e183453183929%_ + (gx#stx-pair? _%tl183723184192%_)) + (let ((_%e183727184203%_ (let () (declare (not safe)) (gx#stx-e - _%tl183449183918%_)))) - (let ((_%tl183455183934%_ + _%tl183723184192%_)))) + (let ((_%tl183729184208%_ (let () (declare (not safe)) - (##cdr _%e183453183929%_))) - (_%hd183454183932%_ + (##cdr _%e183727184203%_))) + (_%hd183728184206%_ (let () (declare (not safe)) - (##car _%e183453183929%_)))) + (##car _%e183727184203%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183454183932%_)) - (let ((_%e183456183937%_ + _%hd183728184206%_)) + (let ((_%e183730184211%_ (let () (declare (not safe)) (gx#stx-e - _%hd183454183932%_)))) - (let ((_%tl183458183942%_ + _%hd183728184206%_)))) + (let ((_%tl183732184216%_ (let () (declare (not safe)) - (##cdr _%e183456183937%_))) - (_%hd183457183940%_ + (##cdr _%e183730184211%_))) + (_%hd183731184214%_ (let () (declare (not safe)) - (##car _%e183456183937%_)))) + (##car _%e183730184211%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183457183940%_)) + _%hd183731184214%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd183457183940%_)) + _%hd183731184214%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl183458183942%_)) - (let ((_%e183459183945%_ + (gx#stx-pair? _%tl183732184216%_)) + (let ((_%e183733184219%_ (let () (declare (not safe)) - (gx#stx-e _%tl183458183942%_)))) - (let ((_%tl183461183950%_ + (gx#stx-e _%tl183732184216%_)))) + (let ((_%tl183735184224%_ (let () (declare (not safe)) - (##cdr _%e183459183945%_))) - (_%hd183460183948%_ + (##cdr _%e183733184219%_))) + (_%hd183734184222%_ (let () (declare (not safe)) - (##car _%e183459183945%_)))) + (##car _%e183733184219%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183461183950%_)) + (gx#stx-null? _%tl183735184224%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183455183934%_)) - (_%loop183436183895%_ - _%lp-tl183439183910%_ - (cons _%hd183460183948%_ - _%xid183440183900%_) - (cons _%hd183451183924%_ - _%id183441183902%_)) - (_%__match188923188924%_ - _%e183427183874%_ - _%hd183428183877%_ - _%tl183429183879%_ - _%e183430183882%_ - _%hd183431183885%_ - _%tl183432183887%_ - _%__splice188790188791%_ - _%target183433183890%_ - _%tl183435183892%_)) - (_%__match188923188924%_ - _%e183427183874%_ - _%hd183428183877%_ - _%tl183429183879%_ - _%e183430183882%_ - _%hd183431183885%_ - _%tl183432183887%_ - _%__splice188790188791%_ - _%target183433183890%_ - _%tl183435183892%_)))) - (_%__match188923188924%_ - _%e183427183874%_ - _%hd183428183877%_ - _%tl183429183879%_ - _%e183430183882%_ - _%hd183431183885%_ - _%tl183432183887%_ - _%__splice188790188791%_ - _%target183433183890%_ - _%tl183435183892%_)) - (_%__match188923188924%_ - _%e183427183874%_ - _%hd183428183877%_ - _%tl183429183879%_ - _%e183430183882%_ - _%hd183431183885%_ - _%tl183432183887%_ - _%__splice188790188791%_ - _%target183433183890%_ - _%tl183435183892%_)) - (_%__match188923188924%_ - _%e183427183874%_ - _%hd183428183877%_ - _%tl183429183879%_ - _%e183430183882%_ - _%hd183431183885%_ - _%tl183432183887%_ - _%__splice188790188791%_ - _%target183433183890%_ - _%tl183435183892%_)))) + (gx#stx-null? _%tl183729184208%_)) + (_%loop183710184169%_ + _%lp-tl183713184184%_ + (cons _%hd183734184222%_ + _%xid183714184174%_) + (cons _%hd183725184198%_ + _%id183715184176%_)) + (_%__match189197189198%_ + _%e183701184148%_ + _%hd183702184151%_ + _%tl183703184153%_ + _%e183704184156%_ + _%hd183705184159%_ + _%tl183706184161%_ + _%__splice189064189065%_ + _%target183707184164%_ + _%tl183709184166%_)) + (_%__match189197189198%_ + _%e183701184148%_ + _%hd183702184151%_ + _%tl183703184153%_ + _%e183704184156%_ + _%hd183705184159%_ + _%tl183706184161%_ + _%__splice189064189065%_ + _%target183707184164%_ + _%tl183709184166%_)))) + (_%__match189197189198%_ + _%e183701184148%_ + _%hd183702184151%_ + _%tl183703184153%_ + _%e183704184156%_ + _%hd183705184159%_ + _%tl183706184161%_ + _%__splice189064189065%_ + _%target183707184164%_ + _%tl183709184166%_)) + (_%__match189197189198%_ + _%e183701184148%_ + _%hd183702184151%_ + _%tl183703184153%_ + _%e183704184156%_ + _%hd183705184159%_ + _%tl183706184161%_ + _%__splice189064189065%_ + _%target183707184164%_ + _%tl183709184166%_)) + (_%__match189197189198%_ + _%e183701184148%_ + _%hd183702184151%_ + _%tl183703184153%_ + _%e183704184156%_ + _%hd183705184159%_ + _%tl183706184161%_ + _%__splice189064189065%_ + _%target183707184164%_ + _%tl183709184166%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match188923188924%_ - _%e183427183874%_ - _%hd183428183877%_ - _%tl183429183879%_ - _%e183430183882%_ - _%hd183431183885%_ - _%tl183432183887%_ - _%__splice188790188791%_ - _%target183433183890%_ - _%tl183435183892%_)))) - (_%__match188923188924%_ - _%e183427183874%_ - _%hd183428183877%_ - _%tl183429183879%_ - _%e183430183882%_ - _%hd183431183885%_ - _%tl183432183887%_ - _%__splice188790188791%_ - _%target183433183890%_ - _%tl183435183892%_)) - (_%__match188923188924%_ - _%e183427183874%_ - _%hd183428183877%_ - _%tl183429183879%_ - _%e183430183882%_ - _%hd183431183885%_ - _%tl183432183887%_ - _%__splice188790188791%_ - _%target183433183890%_ - _%tl183435183892%_)))) - (_%__match188923188924%_ - _%e183427183874%_ - _%hd183428183877%_ - _%tl183429183879%_ - _%e183430183882%_ - _%hd183431183885%_ - _%tl183432183887%_ - _%__splice188790188791%_ - _%target183433183890%_ - _%tl183435183892%_)))) - (_%__match188923188924%_ - _%e183427183874%_ - _%hd183428183877%_ - _%tl183429183879%_ - _%e183430183882%_ - _%hd183431183885%_ - _%tl183432183887%_ - _%__splice188790188791%_ - _%target183433183890%_ - _%tl183435183892%_)))) + (_%__match189197189198%_ + _%e183701184148%_ + _%hd183702184151%_ + _%tl183703184153%_ + _%e183704184156%_ + _%hd183705184159%_ + _%tl183706184161%_ + _%__splice189064189065%_ + _%target183707184164%_ + _%tl183709184166%_)))) + (_%__match189197189198%_ + _%e183701184148%_ + _%hd183702184151%_ + _%tl183703184153%_ + _%e183704184156%_ + _%hd183705184159%_ + _%tl183706184161%_ + _%__splice189064189065%_ + _%target183707184164%_ + _%tl183709184166%_)) + (_%__match189197189198%_ + _%e183701184148%_ + _%hd183702184151%_ + _%tl183703184153%_ + _%e183704184156%_ + _%hd183705184159%_ + _%tl183706184161%_ + _%__splice189064189065%_ + _%target183707184164%_ + _%tl183709184166%_)))) + (_%__match189197189198%_ + _%e183701184148%_ + _%hd183702184151%_ + _%tl183703184153%_ + _%e183704184156%_ + _%hd183705184159%_ + _%tl183706184161%_ + _%__splice189064189065%_ + _%target183707184164%_ + _%tl183709184166%_)))) + (_%__match189197189198%_ + _%e183701184148%_ + _%hd183702184151%_ + _%tl183703184153%_ + _%e183704184156%_ + _%hd183705184159%_ + _%tl183706184161%_ + _%__splice189064189065%_ + _%target183707184164%_ + _%tl183709184166%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id183443183955%_ - (reverse _%id183441183902%_)) - (_%xid183442183953%_ - (reverse _%xid183440183900%_))) + (let ((_%id183717184229%_ + (reverse _%id183715184176%_)) + (_%xid183716184227%_ + (reverse _%xid183714184174%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183432183887%_)) - (let ((_%e183444183958%_ + _%tl183706184161%_)) + (let ((_%e183718184232%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl183432183887%_)))) - (let ((_%tl183446183963%_ + (gx#stx-e _%tl183706184161%_)))) + (let ((_%tl183720184237%_ (let () (declare (not safe)) - (##cdr _%e183444183958%_))) - (_%hd183445183961%_ + (##cdr _%e183718184232%_))) + (_%hd183719184235%_ (let () (declare (not safe)) - (##car _%e183444183958%_)))) + (##car _%e183718184232%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183446183963%_)) - (_%__kont188788188789%_ - _%hd183445183961%_ - _%xid183442183953%_ - _%id183443183955%_) - (_%__match188923188924%_ - _%e183427183874%_ - _%hd183428183877%_ - _%tl183429183879%_ - _%e183430183882%_ - _%hd183431183885%_ - _%tl183432183887%_ - _%__splice188790188791%_ - _%target183433183890%_ - _%tl183435183892%_)))) - (_%__match188923188924%_ - _%e183427183874%_ - _%hd183428183877%_ - _%tl183429183879%_ - _%e183430183882%_ - _%hd183431183885%_ - _%tl183432183887%_ - _%__splice188790188791%_ - _%target183433183890%_ - _%tl183435183892%_))))))) + (gx#stx-null? _%tl183720184237%_)) + (_%__kont189062189063%_ + _%hd183719184235%_ + _%xid183716184227%_ + _%id183717184229%_) + (_%__match189197189198%_ + _%e183701184148%_ + _%hd183702184151%_ + _%tl183703184153%_ + _%e183704184156%_ + _%hd183705184159%_ + _%tl183706184161%_ + _%__splice189064189065%_ + _%target183707184164%_ + _%tl183709184166%_)))) + (_%__match189197189198%_ + _%e183701184148%_ + _%hd183702184151%_ + _%tl183703184153%_ + _%e183704184156%_ + _%hd183705184159%_ + _%tl183706184161%_ + _%__splice189064189065%_ + _%target183707184164%_ + _%tl183709184166%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop183436183895%_ - _%target183433183890%_ + (_%loop183710184169%_ + _%target183707184164%_ '() '())))) - (_%__match188875188876%_ - (lambda (_%e183397184004%_ - _%hd183398184007%_ - _%tl183399184009%_ - _%e183400184012%_ - _%hd183401184015%_ - _%tl183402184017%_ - _%e183403184020%_ - _%hd183404184023%_ - _%tl183405184025%_ - _%e183406184028%_ - _%hd183407184031%_ - _%tl183408184033%_ - _%__splice188786188787%_ - _%target183409184036%_ - _%tl183411184038%_) - (letrec ((_%loop183412184041%_ - (lambda (_%hd183410184044%_ - _%id183416184046%_) + (_%__match189149189150%_ + (lambda (_%e183671184278%_ + _%hd183672184281%_ + _%tl183673184283%_ + _%e183674184286%_ + _%hd183675184289%_ + _%tl183676184291%_ + _%e183677184294%_ + _%hd183678184297%_ + _%tl183679184299%_ + _%e183680184302%_ + _%hd183681184305%_ + _%tl183682184307%_ + _%__splice189060189061%_ + _%target183683184310%_ + _%tl183685184312%_) + (letrec ((_%loop183686184315%_ + (lambda (_%hd183684184318%_ + _%id183690184320%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183410184044%_)) - (let ((_%e183413184049%_ + _%hd183684184318%_)) + (let ((_%e183687184323%_ (let () (declare (not safe)) (gx#stx-e - _%hd183410184044%_)))) - (let ((_%lp-tl183415184054%_ + _%hd183684184318%_)))) + (let ((_%lp-tl183689184328%_ (let () (declare (not safe)) - (##cdr _%e183413184049%_))) - (_%lp-hd183414184052%_ + (##cdr _%e183687184323%_))) + (_%lp-hd183688184326%_ (let () (declare (not safe)) - (##car _%e183413184049%_)))) + (##car _%e183687184323%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd183414184052%_)) - (let ((_%e183418184057%_ + _%lp-hd183688184326%_)) + (let ((_%e183692184331%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd183414184052%_)))) - (let ((_%tl183420184062%_ + (gx#stx-e _%lp-hd183688184326%_)))) + (let ((_%tl183694184336%_ (let () (declare (not safe)) - (##cdr _%e183418184057%_))) - (_%hd183419184060%_ + (##cdr _%e183692184331%_))) + (_%hd183693184334%_ (let () (declare (not safe)) - (##car _%e183418184057%_)))) + (##car _%e183692184331%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183419184060%_)) + (gx#identifier? _%hd183693184334%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd183419184060%_)) + (gx#stx-eq? '%#ref _%hd183693184334%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183420184062%_)) - (let ((_%e183421184065%_ + (gx#stx-pair? _%tl183694184336%_)) + (let ((_%e183695184339%_ (let () (declare (not safe)) - (gx#stx-e _%tl183420184062%_)))) - (let ((_%tl183423184070%_ + (gx#stx-e _%tl183694184336%_)))) + (let ((_%tl183697184344%_ (let () (declare (not safe)) - (##cdr _%e183421184065%_))) - (_%hd183422184068%_ + (##cdr _%e183695184339%_))) + (_%hd183696184342%_ (let () (declare (not safe)) - (##car _%e183421184065%_)))) + (##car _%e183695184339%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183423184070%_)) - (_%loop183412184041%_ - _%lp-tl183415184054%_ - (cons _%hd183422184068%_ - _%id183416184046%_)) - (_%__kont188802188803%_)))) - (_%__kont188802188803%_)) - (_%__kont188802188803%_)) - (_%__kont188802188803%_)))) - (_%__kont188802188803%_)))) + (gx#stx-null? _%tl183697184344%_)) + (_%loop183686184315%_ + _%lp-tl183689184328%_ + (cons _%hd183696184342%_ + _%id183690184320%_)) + (_%__kont189076189077%_)))) + (_%__kont189076189077%_)) + (_%__kont189076189077%_)) + (_%__kont189076189077%_)))) + (_%__kont189076189077%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id183417184073%_ - (reverse _%id183416184046%_))) - (_%__kont188784188785%_ - _%id183417184073%_ - _%hd183407184031%_)))))) - (_%loop183412184041%_ - _%target183409184036%_ + (let ((_%id183691184347%_ + (reverse _%id183690184320%_))) + (_%__kont189058189059%_ + _%id183691184347%_ + _%hd183681184305%_)))))) + (_%loop183686184315%_ + _%target183683184310%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx188780188781%_)) - (let ((_%e183383184115%_ + (gx#stx-pair? _%__stx189054189055%_)) + (let ((_%e183657184389%_ (let () (declare (not safe)) - (gx#stx-e _%__stx188780188781%_)))) - (let ((_%tl183385184120%_ + (gx#stx-e _%__stx189054189055%_)))) + (let ((_%tl183659184394%_ (let () (declare (not safe)) - (##cdr _%e183383184115%_))) - (_%hd183384184118%_ + (##cdr _%e183657184389%_))) + (_%hd183658184392%_ (let () (declare (not safe)) - (##car _%e183383184115%_)))) + (##car _%e183657184389%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183384184118%_)) + (gx#identifier? _%hd183658184392%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd183384184118%_)) + _%hd183658184392%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183385184120%_)) - (let ((_%e183386184123%_ + _%tl183659184394%_)) + (let ((_%e183660184397%_ (let () (declare (not safe)) (gx#stx-e - _%tl183385184120%_)))) - (let ((_%tl183388184128%_ + _%tl183659184394%_)))) + (let ((_%tl183662184402%_ (let () (declare (not safe)) - (##cdr _%e183386184123%_))) - (_%hd183387184126%_ + (##cdr _%e183660184397%_))) + (_%hd183661184400%_ (let () (declare (not safe)) - (##car _%e183386184123%_)))) + (##car _%e183660184397%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183388184128%_)) - (let ((_%e183389184131%_ + _%tl183662184402%_)) + (let ((_%e183663184405%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl183388184128%_)))) - (let ((_%tl183391184136%_ + (gx#stx-e _%tl183662184402%_)))) + (let ((_%tl183665184410%_ (let () (declare (not safe)) - (##cdr _%e183389184131%_))) - (_%hd183390184134%_ + (##cdr _%e183663184405%_))) + (_%hd183664184408%_ (let () (declare (not safe)) - (##car _%e183389184131%_)))) + (##car _%e183663184405%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183391184136%_)) - (let ((_%e183392184139%_ + (gx#stx-pair? _%tl183665184410%_)) + (let ((_%e183666184413%_ (let () (declare (not safe)) - (gx#stx-e _%tl183391184136%_)))) - (let ((_%tl183394184144%_ + (gx#stx-e _%tl183665184410%_)))) + (let ((_%tl183668184418%_ (let () (declare (not safe)) - (##cdr _%e183392184139%_))) - (_%hd183393184142%_ + (##cdr _%e183666184413%_))) + (_%hd183667184416%_ (let () (declare (not safe)) - (##car _%e183392184139%_)))) + (##car _%e183666184413%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183394184144%_)) - (_%__kont188782188783%_ - _%hd183393184142%_ - _%hd183390184134%_ - _%hd183387184126%_) - (_%__kont188802188803%_)))) - (_%__kont188802188803%_)))) - (_%__kont188802188803%_)))) + (gx#stx-null? _%tl183668184418%_)) + (_%__kont189056189057%_ + _%hd183667184416%_ + _%hd183664184408%_ + _%hd183661184400%_) + (_%__kont189076189077%_)))) + (_%__kont189076189077%_)))) + (_%__kont189076189077%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188802188803%_)) + (_%__kont189076189077%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd183384184118%_)) + _%hd183658184392%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183385184120%_)) - (let ((_%e183400184012%_ + _%tl183659184394%_)) + (let ((_%e183674184286%_ (let () (declare (not safe)) (gx#stx-e - _%tl183385184120%_)))) - (let ((_%tl183402184017%_ + _%tl183659184394%_)))) + (let ((_%tl183676184291%_ (let () (declare (not safe)) - (##cdr _%e183400184012%_))) - (_%hd183401184015%_ + (##cdr _%e183674184286%_))) + (_%hd183675184289%_ (let () (declare (not safe)) - (##car _%e183400184012%_)))) + (##car _%e183674184286%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183401184015%_)) - (let ((_%e183403184020%_ + _%hd183675184289%_)) + (let ((_%e183677184294%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd183401184015%_)))) - (let ((_%tl183405184025%_ + (gx#stx-e _%hd183675184289%_)))) + (let ((_%tl183679184299%_ (let () (declare (not safe)) - (##cdr _%e183403184020%_))) - (_%hd183404184023%_ + (##cdr _%e183677184294%_))) + (_%hd183678184297%_ (let () (declare (not safe)) - (##car _%e183403184020%_)))) + (##car _%e183677184294%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183404184023%_)) + (gx#identifier? _%hd183678184297%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd183404184023%_)) + (gx#stx-eq? '%#ref _%hd183678184297%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183405184025%_)) - (let ((_%e183406184028%_ + (gx#stx-pair? _%tl183679184299%_)) + (let ((_%e183680184302%_ (let () (declare (not safe)) - (gx#stx-e _%tl183405184025%_)))) - (let ((_%tl183408184033%_ + (gx#stx-e _%tl183679184299%_)))) + (let ((_%tl183682184307%_ (let () (declare (not safe)) - (##cdr _%e183406184028%_))) - (_%hd183407184031%_ + (##cdr _%e183680184302%_))) + (_%hd183681184305%_ (let () (declare (not safe)) - (##car _%e183406184028%_)))) + (##car _%e183680184302%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183408184033%_)) + (gx#stx-null? _%tl183682184307%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl183402184017%_)) - (let ((_%__splice188786188787%_ + _%tl183676184291%_)) + (let ((_%__splice189060189061%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl183402184017%_ + _%tl183676184291%_ '0)))) - (let ((_%tl183411184038%_ + (let ((_%tl183685184312%_ (let () (declare (not safe)) (##vector-ref - _%__splice188786188787%_ + _%__splice189060189061%_ '1))) - (_%target183409184036%_ + (_%target183683184310%_ (let () (declare (not safe)) (##vector-ref - _%__splice188786188787%_ + _%__splice189060189061%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183411184038%_)) - (_%__match188875188876%_ - _%e183383184115%_ - _%hd183384184118%_ - _%tl183385184120%_ - _%e183400184012%_ - _%hd183401184015%_ - _%tl183402184017%_ - _%e183403184020%_ - _%hd183404184023%_ - _%tl183405184025%_ - _%e183406184028%_ - _%hd183407184031%_ - _%tl183408184033%_ - _%__splice188786188787%_ - _%target183409184036%_ - _%tl183411184038%_) - (_%__kont188802188803%_)))) - (_%__kont188802188803%_)) - (_%__kont188802188803%_)))) - (_%__kont188802188803%_)) - (_%__kont188802188803%_)) - (_%__kont188802188803%_)))) - (_%__kont188802188803%_)))) + _%tl183685184312%_)) + (_%__match189149189150%_ + _%e183657184389%_ + _%hd183658184392%_ + _%tl183659184394%_ + _%e183674184286%_ + _%hd183675184289%_ + _%tl183676184291%_ + _%e183677184294%_ + _%hd183678184297%_ + _%tl183679184299%_ + _%e183680184302%_ + _%hd183681184305%_ + _%tl183682184307%_ + _%__splice189060189061%_ + _%target183683184310%_ + _%tl183685184312%_) + (_%__kont189076189077%_)))) + (_%__kont189076189077%_)) + (_%__kont189076189077%_)))) + (_%__kont189076189077%_)) + (_%__kont189076189077%_)) + (_%__kont189076189077%_)))) + (_%__kont189076189077%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188802188803%_)) + (_%__kont189076189077%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd183384184118%_)) + _%hd183658184392%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183385184120%_)) - (let ((_%e183430183882%_ + _%tl183659184394%_)) + (let ((_%e183704184156%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl183385184120%_)))) - (let ((_%tl183432183887%_ + (gx#stx-e _%tl183659184394%_)))) + (let ((_%tl183706184161%_ (let () (declare (not safe)) - (##cdr _%e183430183882%_))) - (_%hd183431183885%_ + (##cdr _%e183704184156%_))) + (_%hd183705184159%_ (let () (declare (not safe)) - (##car _%e183430183882%_)))) + (##car _%e183704184156%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd183431183885%_)) - (let ((_%__splice188790188791%_ + (gx#stx-pair/null? _%hd183705184159%_)) + (let ((_%__splice189064189065%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd183431183885%_ + _%hd183705184159%_ '0)))) - (let ((_%tl183435183892%_ + (let ((_%tl183709184166%_ (let () (declare (not safe)) - (##vector-ref _%__splice188790188791%_ '1))) - (_%target183433183890%_ + (##vector-ref _%__splice189064189065%_ '1))) + (_%target183707184164%_ (let () (declare (not safe)) - (##vector-ref _%__splice188790188791%_ '0)))) + (##vector-ref _%__splice189064189065%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183435183892%_)) - (_%__match188899188900%_ - _%e183383184115%_ - _%hd183384184118%_ - _%tl183385184120%_ - _%e183430183882%_ - _%hd183431183885%_ - _%tl183432183887%_ - _%__splice188790188791%_ - _%target183433183890%_ - _%tl183435183892%_) - (_%__kont188802188803%_)))) - (_%__kont188802188803%_)))) - (_%__kont188802188803%_)) + (gx#stx-null? _%tl183709184166%_)) + (_%__match189173189174%_ + _%e183657184389%_ + _%hd183658184392%_ + _%tl183659184394%_ + _%e183704184156%_ + _%hd183705184159%_ + _%tl183706184161%_ + _%__splice189064189065%_ + _%target183707184164%_ + _%tl183709184166%_) + (_%__kont189076189077%_)))) + (_%__kont189076189077%_)))) + (_%__kont189076189077%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd183384184118%_)) + _%hd183658184392%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183385184120%_)) - (let ((_%e183502183571%_ + _%tl183659184394%_)) + (let ((_%e183776183845%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl183385184120%_)))) - (let ((_%tl183504183576%_ + (gx#stx-e _%tl183659184394%_)))) + (let ((_%tl183778183850%_ (let () (declare (not safe)) - (##cdr _%e183502183571%_))) - (_%hd183503183574%_ + (##cdr _%e183776183845%_))) + (_%hd183777183848%_ (let () (declare (not safe)) - (##car _%e183502183571%_)))) + (##car _%e183776183845%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183503183574%_)) - (let ((_%e183505183579%_ + (gx#stx-pair? _%hd183777183848%_)) + (let ((_%e183779183853%_ (let () (declare (not safe)) - (gx#stx-e _%hd183503183574%_)))) - (let ((_%tl183507183584%_ + (gx#stx-e _%hd183777183848%_)))) + (let ((_%tl183781183858%_ (let () (declare (not safe)) - (##cdr _%e183505183579%_))) - (_%hd183506183582%_ + (##cdr _%e183779183853%_))) + (_%hd183780183856%_ (let () (declare (not safe)) - (##car _%e183505183579%_)))) + (##car _%e183779183853%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183506183582%_)) - (let ((_%e183508183587%_ + (gx#stx-pair? _%hd183780183856%_)) + (let ((_%e183782183861%_ (let () (declare (not safe)) - (gx#stx-e _%hd183506183582%_)))) - (let ((_%tl183510183592%_ + (gx#stx-e _%hd183780183856%_)))) + (let ((_%tl183784183866%_ (let () (declare (not safe)) - (##cdr _%e183508183587%_))) - (_%hd183509183590%_ + (##cdr _%e183782183861%_))) + (_%hd183783183864%_ (let () (declare (not safe)) - (##car _%e183508183587%_)))) + (##car _%e183782183861%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183509183590%_)) - (let ((_%e183511183595%_ + (gx#stx-pair? _%hd183783183864%_)) + (let ((_%e183785183869%_ (let () (declare (not safe)) (gx#stx-e - _%hd183509183590%_)))) - (let ((_%tl183513183600%_ + _%hd183783183864%_)))) + (let ((_%tl183787183874%_ (let () (declare (not safe)) - (##cdr _%e183511183595%_))) - (_%hd183512183598%_ + (##cdr _%e183785183869%_))) + (_%hd183786183872%_ (let () (declare (not safe)) - (##car _%e183511183595%_)))) + (##car _%e183785183869%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183513183600%_)) + _%tl183787183874%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183510183592%_)) - (let ((_%e183514183603%_ + _%tl183784183866%_)) + (let ((_%e183788183877%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl183510183592%_)))) - (let ((_%tl183516183608%_ + (gx#stx-e _%tl183784183866%_)))) + (let ((_%tl183790183882%_ (let () (declare (not safe)) - (##cdr _%e183514183603%_))) - (_%hd183515183606%_ + (##cdr _%e183788183877%_))) + (_%hd183789183880%_ (let () (declare (not safe)) - (##car _%e183514183603%_)))) + (##car _%e183788183877%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183515183606%_)) - (let ((_%e183517183611%_ + (gx#stx-pair? _%hd183789183880%_)) + (let ((_%e183791183885%_ (let () (declare (not safe)) - (gx#stx-e _%hd183515183606%_)))) - (let ((_%tl183519183616%_ + (gx#stx-e _%hd183789183880%_)))) + (let ((_%tl183793183890%_ (let () (declare (not safe)) - (##cdr _%e183517183611%_))) - (_%hd183518183614%_ + (##cdr _%e183791183885%_))) + (_%hd183792183888%_ (let () (declare (not safe)) - (##car _%e183517183611%_)))) + (##car _%e183791183885%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183518183614%_)) + (gx#identifier? _%hd183792183888%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd183518183614%_)) + (gx#stx-eq? '%#lambda _%hd183792183888%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183519183616%_)) - (let ((_%e183520183619%_ + (gx#stx-pair? _%tl183793183890%_)) + (let ((_%e183794183893%_ (let () (declare (not safe)) (gx#stx-e - _%tl183519183616%_)))) - (let ((_%tl183522183624%_ + _%tl183793183890%_)))) + (let ((_%tl183796183898%_ (let () (declare (not safe)) - (##cdr _%e183520183619%_))) - (_%hd183521183622%_ + (##cdr _%e183794183893%_))) + (_%hd183795183896%_ (let () (declare (not safe)) - (##car _%e183520183619%_)))) + (##car _%e183794183893%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd183521183622%_)) - (let ((_%__splice188798188799%_ + _%hd183795183896%_)) + (let ((_%__splice189072189073%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd183521183622%_ + _%hd183795183896%_ '0)))) - (let ((_%tl183525183629%_ + (let ((_%tl183799183903%_ (let () (declare (not safe)) (##vector-ref - _%__splice188798188799%_ + _%__splice189072189073%_ '1))) - (_%target183523183627%_ + (_%target183797183901%_ (let () (declare (not safe)) (##vector-ref - _%__splice188798188799%_ + _%__splice189072189073%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183525183629%_)) - (_%__match188989188990%_ - _%e183383184115%_ - _%hd183384184118%_ - _%tl183385184120%_ - _%e183502183571%_ - _%hd183503183574%_ - _%tl183504183576%_ - _%e183505183579%_ - _%hd183506183582%_ - _%tl183507183584%_ - _%e183508183587%_ - _%hd183509183590%_ - _%tl183510183592%_ - _%e183511183595%_ - _%hd183512183598%_ - _%tl183513183600%_ - _%e183514183603%_ - _%hd183515183606%_ - _%tl183516183608%_ - _%e183517183611%_ - _%hd183518183614%_ - _%tl183519183616%_ - _%e183520183619%_ - _%hd183521183622%_ - _%tl183522183624%_ - _%__splice188798188799%_ - _%target183523183627%_ - _%tl183525183629%_) - (_%__kont188802188803%_)))) - (_%__kont188802188803%_)))) - (_%__kont188802188803%_)) - (_%__kont188802188803%_)) - (_%__kont188802188803%_)))) - (_%__kont188802188803%_)))) - (_%__kont188802188803%_)) + _%tl183799183903%_)) + (_%__match189263189264%_ + _%e183657184389%_ + _%hd183658184392%_ + _%tl183659184394%_ + _%e183776183845%_ + _%hd183777183848%_ + _%tl183778183850%_ + _%e183779183853%_ + _%hd183780183856%_ + _%tl183781183858%_ + _%e183782183861%_ + _%hd183783183864%_ + _%tl183784183866%_ + _%e183785183869%_ + _%hd183786183872%_ + _%tl183787183874%_ + _%e183788183877%_ + _%hd183789183880%_ + _%tl183790183882%_ + _%e183791183885%_ + _%hd183792183888%_ + _%tl183793183890%_ + _%e183794183893%_ + _%hd183795183896%_ + _%tl183796183898%_ + _%__splice189072189073%_ + _%target183797183901%_ + _%tl183799183903%_) + (_%__kont189076189077%_)))) + (_%__kont189076189077%_)))) + (_%__kont189076189077%_)) + (_%__kont189076189077%_)) + (_%__kont189076189077%_)))) + (_%__kont189076189077%_)))) + (_%__kont189076189077%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188802188803%_)))) - (_%__kont188802188803%_)))) - (_%__kont188802188803%_)))) - (_%__kont188802188803%_)))) - (_%__kont188802188803%_)) - (_%__kont188802188803%_))))) + (_%__kont189076189077%_)))) + (_%__kont189076189077%_)))) + (_%__kont189076189077%_)))) + (_%__kont189076189077%_)))) + (_%__kont189076189077%_)) + (_%__kont189076189077%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont188802188803%_)))) - (_%__kont188802188803%_))))))) - (_%optimize-t__187725187726%_ - (lambda (_%expr183354%_ _%test183355%_ _%continue183356%_) - (_%do-assert180361%_ - (cons (cons _%test183355%_ '#t) '()) - (lambda () (_%continue183356%_ _%expr183354%_))))) - (_%optimize-t__0__187727187728%_ - (lambda (_%expr183362%_ _%test183363%_) - (let ((_%continue183365%_ _%optimize-e180372%_)) - (_%optimize-t__187725187726%_ - _%expr183362%_ - _%test183363%_ - _%continue183365%_)))) - (_%optimize-t180373%_ - (lambda _g190882_ - (let ((_g190881_ + (_%__kont189076189077%_)))) + (_%__kont189076189077%_))))))) + (_%optimize-t__187999188000%_ + (lambda (_%expr183628%_ _%test183629%_ _%continue183630%_) + (_%do-assert180635%_ + (cons (cons _%test183629%_ '#t) '()) + (lambda () (_%continue183630%_ _%expr183628%_))))) + (_%optimize-t__0__188001188002%_ + (lambda (_%expr183636%_ _%test183637%_) + (let ((_%continue183639%_ _%optimize-e180646%_)) + (_%optimize-t__187999188000%_ + _%expr183636%_ + _%test183637%_ + _%continue183639%_)))) + (_%optimize-t180647%_ + (lambda _g191156_ + (let ((_g191155_ (let () (declare (not safe)) - (##length _g190882_)))) - (cond ((let () (declare (not safe)) (##fx= _g190881_ 2)) - (apply _%optimize-t__0__187727187728%_ - _g190882_)) - ((let () (declare (not safe)) (##fx= _g190881_ 3)) - (apply _%optimize-t__187725187726%_ _g190882_)) + (##length _g191156_)))) + (cond ((let () (declare (not safe)) (##fx= _g191155_ 2)) + (apply _%optimize-t__0__188001188002%_ + _g191156_)) + ((let () (declare (not safe)) (##fx= _g191155_ 3)) + (apply _%optimize-t__187999188000%_ _g191156_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g190882_)))))) - (_%optimize-f__187729187730%_ - (lambda (_%expr182438%_ _%test182439%_) - (_%do-assert180361%_ - (if _%test182439%_ - (cons (cons _%test182439%_ '#f) '()) + _g191156_)))))) + (_%optimize-f__188003188004%_ + (lambda (_%expr182712%_ _%test182713%_) + (_%do-assert180635%_ + (if _%test182713%_ + (cons (cons _%test182713%_ '#f) '()) '()) (lambda () - (let* ((_%__stx189030189031%_ _%expr182438%_) - (_%g182447182620%_ + (let* ((_%__stx189304189305%_ _%expr182712%_) + (_%g182721182894%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189030189031%_))))) - (let ((_%__kont189032189033%_ - (lambda (_%L183208%_ _%L183209%_) - (let ((_%$e183229%_ - (_%lookup-block180380%_ - _%L183209%_))) - (if _%$e183229%_ - ((lambda (_%block183232%_) - (if (_%nonlinear-block?180382%_ - _%block183232%_) - _%expr182438%_ - (let* ((_%inline183241%_ - (_%inline-block180381%_ - _%block183232%_ - (let ((__tmp190883 - (lambda (_%g183233183236%_ + _%__stx189304189305%_))))) + (let ((_%__kont189306189307%_ + (lambda (_%L183482%_ _%L183483%_) + (let ((_%$e183503%_ + (_%lookup-block180654%_ + _%L183483%_))) + (if _%$e183503%_ + ((lambda (_%block183506%_) + (if (_%nonlinear-block?180656%_ + _%block183506%_) + _%expr182712%_ + (let* ((_%inline183515%_ + (_%inline-block180655%_ + _%block183506%_ + (let ((__tmp191157 + (lambda (_%g183507183510%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g183234183238%_) - (cons _%g183233183236%_ _%g183234183238%_)))) + _%g183508183512%_) + (cons _%g183507183510%_ _%g183508183512%_)))) (declare (not safe)) - (__foldr1 __tmp190883 '() _%L183208%_)))) - (_%__stx188992188993%_ _%inline183241%_) - (_%g183244183265%_ + (__foldr1 __tmp191157 '() _%L183482%_)))) + (_%__stx189266189267%_ _%inline183515%_) + (_%g183518183539%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx188992188993%_))))) + _%__stx189266189267%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__kont188994188995%_ - (lambda (_%L183309%_ + (let ((_%__kont189268189269%_ + (lambda (_%L183583%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L183310%_ - _%L183311%_) - (let ((_%$e183333%_ (_%assert-e180375%_ _%L183311%_))) - (if (eq? '#t _%$e183333%_) - (if _%in-splice?180360%_ - (_%optimize-f__0__187731187732%_ _%L183310%_) - (_%optimize-e180372%_ _%L183310%_)) - (if (eq? '#f _%$e183333%_) - (_%optimize-f__0__187731187732%_ _%L183309%_) - _%expr182438%_))))) - (_%__kont188996188997%_ + _%L183584%_ + _%L183585%_) + (let ((_%$e183607%_ (_%assert-e180649%_ _%L183585%_))) + (if (eq? '#t _%$e183607%_) + (if _%in-splice?180634%_ + (_%optimize-f__0__188005188006%_ _%L183584%_) + (_%optimize-e180646%_ _%L183584%_)) + (if (eq? '#f _%$e183607%_) + (_%optimize-f__0__188005188006%_ _%L183583%_) + _%expr182712%_))))) + (_%__kont189270189271%_ (lambda () - (_%optimize-f__0__187731187732%_ _%inline183241%_)))) + (_%optimize-f__0__188005188006%_ _%inline183515%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx188992188993%_)) - (let ((_%e183249183277%_ + _%__stx189266189267%_)) + (let ((_%e183523183551%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%__stx188992188993%_)))) - (let ((_%tl183251183282%_ + (gx#stx-e _%__stx189266189267%_)))) + (let ((_%tl183525183556%_ (let () (declare (not safe)) - (##cdr _%e183249183277%_))) - (_%hd183250183280%_ + (##cdr _%e183523183551%_))) + (_%hd183524183554%_ (let () (declare (not safe)) - (##car _%e183249183277%_)))) + (##car _%e183523183551%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183250183280%_)) + (gx#identifier? _%hd183524183554%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _%hd183250183280%_)) + (gx#stx-eq? '%#if _%hd183524183554%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183251183282%_)) - (let ((_%e183252183285%_ + (gx#stx-pair? _%tl183525183556%_)) + (let ((_%e183526183559%_ (let () (declare (not safe)) - (gx#stx-e _%tl183251183282%_)))) - (let ((_%tl183254183290%_ + (gx#stx-e _%tl183525183556%_)))) + (let ((_%tl183528183564%_ (let () (declare (not safe)) - (##cdr _%e183252183285%_))) - (_%hd183253183288%_ + (##cdr _%e183526183559%_))) + (_%hd183527183562%_ (let () (declare (not safe)) - (##car _%e183252183285%_)))) + (##car _%e183526183559%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183254183290%_)) - (let ((_%e183255183293%_ + (gx#stx-pair? _%tl183528183564%_)) + (let ((_%e183529183567%_ (let () (declare (not safe)) (gx#stx-e - _%tl183254183290%_)))) - (let ((_%tl183257183298%_ + _%tl183528183564%_)))) + (let ((_%tl183531183572%_ (let () (declare (not safe)) - (##cdr _%e183255183293%_))) - (_%hd183256183296%_ + (##cdr _%e183529183567%_))) + (_%hd183530183570%_ (let () (declare (not safe)) - (##car _%e183255183293%_)))) + (##car _%e183529183567%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183257183298%_)) - (let ((_%e183258183301%_ + _%tl183531183572%_)) + (let ((_%e183532183575%_ (let () (declare (not safe)) (gx#stx-e - _%tl183257183298%_)))) - (let ((_%tl183260183306%_ + _%tl183531183572%_)))) + (let ((_%tl183534183580%_ (let () (declare (not safe)) - (##cdr _%e183258183301%_))) - (_%hd183259183304%_ + (##cdr _%e183532183575%_))) + (_%hd183533183578%_ (let () (declare (not safe)) - (##car _%e183258183301%_)))) + (##car _%e183532183575%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183260183306%_)) - (_%__kont188994188995%_ - _%hd183259183304%_ - _%hd183256183296%_ - _%hd183253183288%_) - (_%__kont188996188997%_)))) - (_%__kont188996188997%_)))) - (_%__kont188996188997%_)))) - (_%__kont188996188997%_)) - (_%__kont188996188997%_)) - (_%__kont188996188997%_)))) - (_%__kont188996188997%_)))))) + _%tl183534183580%_)) + (_%__kont189268189269%_ + _%hd183533183578%_ + _%hd183530183570%_ + _%hd183527183562%_) + (_%__kont189270189271%_)))) + (_%__kont189270189271%_)))) + (_%__kont189270189271%_)))) + (_%__kont189270189271%_)) + (_%__kont189270189271%_)) + (_%__kont189270189271%_)))) + (_%__kont189270189271%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e183229%_) - _%expr182438%_)))) - (_%__kont189036189037%_ - (lambda (_%L183106%_ _%L183107%_ _%L183108%_) - (let ((_%$e183125%_ - (_%assert-e180375%_ _%L183108%_))) - (if (eq? '#t _%$e183125%_) - (if _%in-splice?180360%_ - (_%optimize-f__0__187731187732%_ - _%L183107%_) - (_%optimize-e180372%_ - _%L183107%_)) - (if (eq? '#f _%$e183125%_) - (_%optimize-f__0__187731187732%_ - _%L183106%_) - (let ((_%K183128%_ - (_%optimize-t__187725187726%_ - _%L183107%_ - _%L183108%_ - _%optimize-f180374%_)) - (_%E183129%_ - (_%optimize-f__187729187730%_ - _%L183106%_ - _%L183108%_))) + _%$e183503%_) + _%expr182712%_)))) + (_%__kont189310189311%_ + (lambda (_%L183380%_ _%L183381%_ _%L183382%_) + (let ((_%$e183399%_ + (_%assert-e180649%_ _%L183382%_))) + (if (eq? '#t _%$e183399%_) + (if _%in-splice?180634%_ + (_%optimize-f__0__188005188006%_ + _%L183381%_) + (_%optimize-e180646%_ + _%L183381%_)) + (if (eq? '#f _%$e183399%_) + (_%optimize-f__0__188005188006%_ + _%L183380%_) + (let ((_%K183402%_ + (_%optimize-t__187999188000%_ + _%L183381%_ + _%L183382%_ + _%optimize-f180648%_)) + (_%E183403%_ + (_%optimize-f__188003188004%_ + _%L183380%_ + _%L183382%_))) (if (equal? (gxc#apply-generate-runtime-repr - _%K183128%_) + _%K183402%_) (gxc#apply-generate-runtime-repr - _%E183129%_)) - _%K183128%_ + _%E183403%_)) + _%K183402%_ (cons '%#if - (cons _%L183108%_ - (cons _%K183128%_ + (cons _%L183382%_ + (cons _%K183402%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%E183129%_ '()))))))))))) + (cons _%E183403%_ '()))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189038189039%_ - (lambda (_%L183036%_ _%L183037%_ _%L183038%_) - (let ((_%body183057%_ - (_%optimize-f__0__187731187732%_ - _%L183036%_))) + (_%__kont189312189313%_ + (lambda (_%L183310%_ _%L183311%_ _%L183312%_) + (let ((_%body183331%_ + (_%optimize-f__0__188005188006%_ + _%L183310%_))) (cons '%#let-values (cons (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L183037%_ - _%L183038%_)) - (let ((__tmp190884 - (lambda (_%g183058183062%_ + _%L183311%_ + _%L183312%_)) + (let ((__tmp191158 + (lambda (_%g183332183336%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g183059183064%_ - _%g183060183066%_) - (cons (cons (cons _%g183059183064%_ '()) + _%g183333183338%_ + _%g183334183340%_) + (cons (cons (cons _%g183333183338%_ '()) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g183058183062%_ '())) + (cons _%g183332183336%_ '())) '())) - _%g183060183066%_)))) + _%g183334183340%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr2 - __tmp190884 + __tmp191158 '() - _%L183037%_ - _%L183038%_))) - (cons _%body183057%_ '())))))) - (_%__kont189042189043%_ - (lambda (_%L182904%_ _%L182905%_ _%L182906%_) - (_%bind-e__187733187734%_ + _%L183311%_ + _%L183312%_))) + (cons _%body183331%_ '())))))) + (_%__kont189316189317%_ + (lambda (_%L183178%_ _%L183179%_ _%L183180%_) + (_%bind-e__188007188008%_ (map cons - (let ((__tmp190885 - (lambda (_%g182924182927%_ - _%g182925182929%_) - (cons _%g182924182927%_ - _%g182925182929%_)))) + (let ((__tmp191159 + (lambda (_%g183198183201%_ + _%g183199183203%_) + (cons _%g183198183201%_ + _%g183199183203%_)))) (declare (not safe)) (__foldr1 - __tmp190885 + __tmp191159 '() - _%L182906%_)) - (let ((__tmp190886 - (lambda (_%g182931182934%_ - _%g182932182936%_) - (cons _%g182931182934%_ - _%g182932182936%_)))) + _%L183180%_)) + (let ((__tmp191160 + (lambda (_%g183205183208%_ + _%g183206183210%_) + (cons _%g183205183208%_ + _%g183206183210%_)))) (declare (not safe)) (__foldr1 - __tmp190886 + __tmp191160 '() - _%L182905%_))) - _%L182904%_ - _%optimize-f180374%_))) - (_%__kont189046189047%_ - (lambda (_%L182760%_ - _%L182761%_ - _%L182762%_ - _%L182763%_ - _%L182764%_) - (_%do-splice!180371%_ + _%L183179%_))) + _%L183178%_ + _%optimize-f180648%_))) + (_%__kont189320189321%_ + (lambda (_%L183034%_ + _%L183035%_ + _%L183036%_ + _%L183037%_ + _%L183038%_) + (_%do-splice!180645%_ (lambda () - (let ((_%expr182807%_ - (_%optimize-f__0__187731187732%_ - _%L182762%_))) + (let ((_%expr183081%_ + (_%optimize-f__0__188005188006%_ + _%L183036%_))) (cons '%#letrec-values - (cons (cons (cons (cons _%L182764%_ + (cons (cons (cons (cons _%L183038%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#lambda - (cons (let ((__tmp190887 - (lambda (_%g182808182811%_ - _%g182809182813%_) - (cons _%g182808182811%_ - _%g182809182813%_)))) + (cons (let ((__tmp191161 + (lambda (_%g183082183085%_ + _%g183083183087%_) + (cons _%g183082183085%_ + _%g183083183087%_)))) (declare (not safe)) (__foldr1 - __tmp190887 + __tmp191161 '() - _%L182763%_)) - (cons _%expr182807%_ '()))) + _%L183037%_)) + (cons _%expr183081%_ '()))) '())) - (let ((__tmp190888 - (lambda (_%g182815182818%_ _%g182816182820%_) - (cons _%g182815182818%_ _%g182816182820%_)))) + (let ((__tmp191162 + (lambda (_%g183089183092%_ _%g183090183094%_) + (cons _%g183089183092%_ _%g183090183094%_)))) (declare (not safe)) - (__foldr1 __tmp190888 '() _%L182761%_))) + (__foldr1 __tmp191162 '() _%L183035%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L182760%_ + (cons _%L183034%_ '())))))))) - (_%__kont189052189053%_ - (lambda () _%expr182438%_))) - (let* ((_%__match189239189240%_ - (lambda (_%e182568182632%_ - _%hd182569182635%_ - _%tl182570182637%_ - _%e182571182640%_ - _%hd182572182643%_ - _%tl182573182645%_ - _%e182574182648%_ - _%hd182575182651%_ - _%tl182576182653%_ - _%e182577182656%_ - _%hd182578182659%_ - _%tl182579182661%_ - _%e182580182664%_ - _%hd182581182667%_ - _%tl182582182669%_ - _%e182583182672%_ - _%hd182584182675%_ - _%tl182585182677%_ - _%e182586182680%_ - _%hd182587182683%_ - _%tl182588182685%_ - _%e182589182688%_ - _%hd182590182691%_ - _%tl182591182693%_ - _%__splice189048189049%_ - _%target182592182696%_ - _%tl182594182698%_) - (letrec ((_%loop182595182701%_ - (lambda (_%hd182593182704%_ - _%id182599182706%_) + (_%__kont189326189327%_ + (lambda () _%expr182712%_))) + (let* ((_%__match189513189514%_ + (lambda (_%e182842182906%_ + _%hd182843182909%_ + _%tl182844182911%_ + _%e182845182914%_ + _%hd182846182917%_ + _%tl182847182919%_ + _%e182848182922%_ + _%hd182849182925%_ + _%tl182850182927%_ + _%e182851182930%_ + _%hd182852182933%_ + _%tl182853182935%_ + _%e182854182938%_ + _%hd182855182941%_ + _%tl182856182943%_ + _%e182857182946%_ + _%hd182858182949%_ + _%tl182859182951%_ + _%e182860182954%_ + _%hd182861182957%_ + _%tl182862182959%_ + _%e182863182962%_ + _%hd182864182965%_ + _%tl182865182967%_ + _%__splice189322189323%_ + _%target182866182970%_ + _%tl182868182972%_) + (letrec ((_%loop182869182975%_ + (lambda (_%hd182867182978%_ + _%id182873182980%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182593182704%_)) - (let ((_%e182596182709%_ + _%hd182867182978%_)) + (let ((_%e182870182983%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd182593182704%_)))) - (let ((_%lp-tl182598182714%_ - (let () (declare (not safe)) (##cdr _%e182596182709%_))) - (_%lp-hd182597182712%_ + (gx#stx-e _%hd182867182978%_)))) + (let ((_%lp-tl182872182988%_ + (let () (declare (not safe)) (##cdr _%e182870182983%_))) + (_%lp-hd182871182986%_ (let () (declare (not safe)) - (##car _%e182596182709%_)))) - (_%loop182595182701%_ - _%lp-tl182598182714%_ - (cons _%lp-hd182597182712%_ _%id182599182706%_)))) - (let ((_%id182600182717%_ (reverse _%id182599182706%_))) + (##car _%e182870182983%_)))) + (_%loop182869182975%_ + _%lp-tl182872182988%_ + (cons _%lp-hd182871182986%_ _%id182873182980%_)))) + (let ((_%id182874182991%_ (reverse _%id182873182980%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182591182693%_)) - (let ((_%e182601182720%_ + (gx#stx-pair? _%tl182865182967%_)) + (let ((_%e182875182994%_ (let () (declare (not safe)) - (gx#stx-e _%tl182591182693%_)))) - (let ((_%tl182603182725%_ + (gx#stx-e _%tl182865182967%_)))) + (let ((_%tl182877182999%_ (let () (declare (not safe)) - (##cdr _%e182601182720%_))) - (_%hd182602182723%_ + (##cdr _%e182875182994%_))) + (_%hd182876182997%_ (let () (declare (not safe)) - (##car _%e182601182720%_)))) + (##car _%e182875182994%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182603182725%_)) + (gx#stx-null? _%tl182877182999%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182585182677%_)) + (gx#stx-null? _%tl182859182951%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl182576182653%_)) - (let ((_%__splice189050189051%_ + (gx#stx-pair/null? _%tl182850182927%_)) + (let ((_%__splice189324189325%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl182576182653%_ + _%tl182850182927%_ '0)))) - (let ((_%tl182606182730%_ + (let ((_%tl182880183004%_ (let () (declare (not safe)) (##vector-ref - _%__splice189050189051%_ + _%__splice189324189325%_ '1))) - (_%target182604182728%_ + (_%target182878183002%_ (let () (declare (not safe)) (##vector-ref - _%__splice189050189051%_ + _%__splice189324189325%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182606182730%_)) - (letrec ((_%loop182607182733%_ - (lambda (_%hd182605182736%_ - _%bind182611182738%_) + _%tl182880183004%_)) + (letrec ((_%loop182881183007%_ + (lambda (_%hd182879183010%_ + _%bind182885183012%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182605182736%_)) - (let ((_%e182608182741%_ + _%hd182879183010%_)) + (let ((_%e182882183015%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd182605182736%_)))) - (let ((_%lp-tl182610182746%_ + (gx#stx-e _%hd182879183010%_)))) + (let ((_%lp-tl182884183020%_ (let () (declare (not safe)) - (##cdr _%e182608182741%_))) - (_%lp-hd182609182744%_ + (##cdr _%e182882183015%_))) + (_%lp-hd182883183018%_ (let () (declare (not safe)) - (##car _%e182608182741%_)))) - (_%loop182607182733%_ - _%lp-tl182610182746%_ - (cons _%lp-hd182609182744%_ _%bind182611182738%_)))) - (let ((_%bind182612182749%_ - (reverse _%bind182611182738%_))) + (##car _%e182882183015%_)))) + (_%loop182881183007%_ + _%lp-tl182884183020%_ + (cons _%lp-hd182883183018%_ _%bind182885183012%_)))) + (let ((_%bind182886183023%_ + (reverse _%bind182885183012%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182573182645%_)) - (let ((_%e182613182752%_ + (gx#stx-pair? _%tl182847182919%_)) + (let ((_%e182887183026%_ (let () (declare (not safe)) - (gx#stx-e _%tl182573182645%_)))) - (let ((_%tl182615182757%_ + (gx#stx-e _%tl182847182919%_)))) + (let ((_%tl182889183031%_ (let () (declare (not safe)) - (##cdr _%e182613182752%_))) - (_%hd182614182755%_ + (##cdr _%e182887183026%_))) + (_%hd182888183029%_ (let () (declare (not safe)) - (##car _%e182613182752%_)))) + (##car _%e182887183026%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182615182757%_)) - (_%__kont189046189047%_ - _%hd182614182755%_ - _%bind182612182749%_ - _%hd182602182723%_ - _%id182600182717%_ - _%hd182581182667%_) - (_%__kont189052189053%_)))) - (_%__kont189052189053%_))))))) + (gx#stx-null? _%tl182889183031%_)) + (_%__kont189320189321%_ + _%hd182888183029%_ + _%bind182886183023%_ + _%hd182876182997%_ + _%id182874182991%_ + _%hd182855182941%_) + (_%__kont189326189327%_)))) + (_%__kont189326189327%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop182607182733%_ - _%target182604182728%_ + (_%loop182881183007%_ + _%target182878183002%_ '())) - (_%__kont189052189053%_)))) - (_%__kont189052189053%_)) - (_%__kont189052189053%_)) - (_%__kont189052189053%_)))) - (_%__kont189052189053%_))))))) + (_%__kont189326189327%_)))) + (_%__kont189326189327%_)) + (_%__kont189326189327%_)) + (_%__kont189326189327%_)))) + (_%__kont189326189327%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop182595182701%_ - _%target182592182696%_ + (_%loop182869182975%_ + _%target182866182970%_ '())))) - (_%__match189173189174%_ - (lambda (_%e182534182828%_ - _%hd182535182831%_ - _%tl182536182833%_ - _%e182537182836%_ - _%hd182538182839%_ - _%tl182539182841%_ - _%__splice189044189045%_ - _%target182540182844%_ - _%tl182542182846%_) - (letrec ((_%loop182543182849%_ - (lambda (_%hd182541182852%_ - _%expr182547182854%_ - _%id182548182856%_) + (_%__match189447189448%_ + (lambda (_%e182808183102%_ + _%hd182809183105%_ + _%tl182810183107%_ + _%e182811183110%_ + _%hd182812183113%_ + _%tl182813183115%_ + _%__splice189318189319%_ + _%target182814183118%_ + _%tl182816183120%_) + (letrec ((_%loop182817183123%_ + (lambda (_%hd182815183126%_ + _%expr182821183128%_ + _%id182822183130%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182541182852%_)) - (let ((_%e182544182859%_ + _%hd182815183126%_)) + (let ((_%e182818183133%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd182541182852%_)))) - (let ((_%lp-tl182546182864%_ - (let () (declare (not safe)) (##cdr _%e182544182859%_))) - (_%lp-hd182545182862%_ + (gx#stx-e _%hd182815183126%_)))) + (let ((_%lp-tl182820183138%_ + (let () (declare (not safe)) (##cdr _%e182818183133%_))) + (_%lp-hd182819183136%_ (let () (declare (not safe)) - (##car _%e182544182859%_)))) + (##car _%e182818183133%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd182545182862%_)) - (let ((_%e182554182867%_ + (gx#stx-pair? _%lp-hd182819183136%_)) + (let ((_%e182828183141%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd182545182862%_)))) - (let ((_%tl182556182872%_ + (gx#stx-e _%lp-hd182819183136%_)))) + (let ((_%tl182830183146%_ (let () (declare (not safe)) - (##cdr _%e182554182867%_))) - (_%hd182555182870%_ + (##cdr _%e182828183141%_))) + (_%hd182829183144%_ (let () (declare (not safe)) - (##car _%e182554182867%_)))) + (##car _%e182828183141%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182555182870%_)) - (let ((_%e182557182875%_ + (gx#stx-pair? _%hd182829183144%_)) + (let ((_%e182831183149%_ (let () (declare (not safe)) - (gx#stx-e _%hd182555182870%_)))) - (let ((_%tl182559182880%_ + (gx#stx-e _%hd182829183144%_)))) + (let ((_%tl182833183154%_ (let () (declare (not safe)) - (##cdr _%e182557182875%_))) - (_%hd182558182878%_ + (##cdr _%e182831183149%_))) + (_%hd182832183152%_ (let () (declare (not safe)) - (##car _%e182557182875%_)))) + (##car _%e182831183149%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182559182880%_)) + (gx#stx-null? _%tl182833183154%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182556182872%_)) - (let ((_%e182560182883%_ + (gx#stx-pair? _%tl182830183146%_)) + (let ((_%e182834183157%_ (let () (declare (not safe)) (gx#stx-e - _%tl182556182872%_)))) - (let ((_%tl182562182888%_ + _%tl182830183146%_)))) + (let ((_%tl182836183162%_ (let () (declare (not safe)) - (##cdr _%e182560182883%_))) - (_%hd182561182886%_ + (##cdr _%e182834183157%_))) + (_%hd182835183160%_ (let () (declare (not safe)) - (##car _%e182560182883%_)))) + (##car _%e182834183157%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182562182888%_)) - (_%loop182543182849%_ - _%lp-tl182546182864%_ - (cons _%hd182561182886%_ - _%expr182547182854%_) - (cons _%hd182558182878%_ - _%id182548182856%_)) - (_%__kont189052189053%_)))) - (_%__kont189052189053%_)) - (_%__kont189052189053%_)))) - (_%__kont189052189053%_)))) - (_%__kont189052189053%_)))) - (let ((_%id182550182893%_ (reverse _%id182548182856%_)) - (_%expr182549182891%_ (reverse _%expr182547182854%_))) + _%tl182836183162%_)) + (_%loop182817183123%_ + _%lp-tl182820183138%_ + (cons _%hd182835183160%_ + _%expr182821183128%_) + (cons _%hd182832183152%_ + _%id182822183130%_)) + (_%__kont189326189327%_)))) + (_%__kont189326189327%_)) + (_%__kont189326189327%_)))) + (_%__kont189326189327%_)))) + (_%__kont189326189327%_)))) + (let ((_%id182824183167%_ (reverse _%id182822183130%_)) + (_%expr182823183165%_ (reverse _%expr182821183128%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182539182841%_)) - (let ((_%e182551182896%_ + (gx#stx-pair? _%tl182813183115%_)) + (let ((_%e182825183170%_ (let () (declare (not safe)) - (gx#stx-e _%tl182539182841%_)))) - (let ((_%tl182553182901%_ + (gx#stx-e _%tl182813183115%_)))) + (let ((_%tl182827183175%_ (let () (declare (not safe)) - (##cdr _%e182551182896%_))) - (_%hd182552182899%_ + (##cdr _%e182825183170%_))) + (_%hd182826183173%_ (let () (declare (not safe)) - (##car _%e182551182896%_)))) + (##car _%e182825183170%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182553182901%_)) - (_%__kont189042189043%_ - _%hd182552182899%_ - _%expr182549182891%_ - _%id182550182893%_) - (_%__kont189052189053%_)))) - (_%__kont189052189053%_))))))) + (gx#stx-null? _%tl182827183175%_)) + (_%__kont189316189317%_ + _%hd182826183173%_ + _%expr182823183165%_ + _%id182824183167%_) + (_%__kont189326189327%_)))) + (_%__kont189326189327%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop182543182849%_ - _%target182540182844%_ + (_%loop182817183123%_ + _%target182814183118%_ '() '())))) - (_%__match189149189150%_ - (lambda (_%e182496182944%_ - _%hd182497182947%_ - _%tl182498182949%_ - _%e182499182952%_ - _%hd182500182955%_ - _%tl182501182957%_ - _%__splice189040189041%_ - _%target182502182960%_ - _%tl182504182962%_) - (letrec ((_%loop182505182965%_ - (lambda (_%hd182503182968%_ - _%xid182509182970%_ - _%id182510182972%_) + (_%__match189423189424%_ + (lambda (_%e182770183218%_ + _%hd182771183221%_ + _%tl182772183223%_ + _%e182773183226%_ + _%hd182774183229%_ + _%tl182775183231%_ + _%__splice189314189315%_ + _%target182776183234%_ + _%tl182778183236%_) + (letrec ((_%loop182779183239%_ + (lambda (_%hd182777183242%_ + _%xid182783183244%_ + _%id182784183246%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182503182968%_)) - (let ((_%e182506182975%_ + _%hd182777183242%_)) + (let ((_%e182780183249%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd182503182968%_)))) - (let ((_%lp-tl182508182980%_ - (let () (declare (not safe)) (##cdr _%e182506182975%_))) - (_%lp-hd182507182978%_ + (gx#stx-e _%hd182777183242%_)))) + (let ((_%lp-tl182782183254%_ + (let () (declare (not safe)) (##cdr _%e182780183249%_))) + (_%lp-hd182781183252%_ (let () (declare (not safe)) - (##car _%e182506182975%_)))) + (##car _%e182780183249%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd182507182978%_)) - (let ((_%e182516182983%_ + (gx#stx-pair? _%lp-hd182781183252%_)) + (let ((_%e182790183257%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd182507182978%_)))) - (let ((_%tl182518182988%_ + (gx#stx-e _%lp-hd182781183252%_)))) + (let ((_%tl182792183262%_ (let () (declare (not safe)) - (##cdr _%e182516182983%_))) - (_%hd182517182986%_ + (##cdr _%e182790183257%_))) + (_%hd182791183260%_ (let () (declare (not safe)) - (##car _%e182516182983%_)))) + (##car _%e182790183257%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182517182986%_)) - (let ((_%e182519182991%_ + (gx#stx-pair? _%hd182791183260%_)) + (let ((_%e182793183265%_ (let () (declare (not safe)) - (gx#stx-e _%hd182517182986%_)))) - (let ((_%tl182521182996%_ + (gx#stx-e _%hd182791183260%_)))) + (let ((_%tl182795183270%_ (let () (declare (not safe)) - (##cdr _%e182519182991%_))) - (_%hd182520182994%_ + (##cdr _%e182793183265%_))) + (_%hd182794183268%_ (let () (declare (not safe)) - (##car _%e182519182991%_)))) + (##car _%e182793183265%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182521182996%_)) + (gx#stx-null? _%tl182795183270%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182518182988%_)) - (let ((_%e182522182999%_ + (gx#stx-pair? _%tl182792183262%_)) + (let ((_%e182796183273%_ (let () (declare (not safe)) (gx#stx-e - _%tl182518182988%_)))) - (let ((_%tl182524183004%_ + _%tl182792183262%_)))) + (let ((_%tl182798183278%_ (let () (declare (not safe)) - (##cdr _%e182522182999%_))) - (_%hd182523183002%_ + (##cdr _%e182796183273%_))) + (_%hd182797183276%_ (let () (declare (not safe)) - (##car _%e182522182999%_)))) + (##car _%e182796183273%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182523183002%_)) - (let ((_%e182525183007%_ + _%hd182797183276%_)) + (let ((_%e182799183281%_ (let () (declare (not safe)) (gx#stx-e - _%hd182523183002%_)))) - (let ((_%tl182527183012%_ + _%hd182797183276%_)))) + (let ((_%tl182801183286%_ (let () (declare (not safe)) - (##cdr _%e182525183007%_))) - (_%hd182526183010%_ + (##cdr _%e182799183281%_))) + (_%hd182800183284%_ (let () (declare (not safe)) - (##car _%e182525183007%_)))) + (##car _%e182799183281%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182526183010%_)) + _%hd182800183284%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd182526183010%_)) + (gx#stx-eq? '%#ref _%hd182800183284%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182527183012%_)) - (let ((_%e182528183015%_ + (gx#stx-pair? _%tl182801183286%_)) + (let ((_%e182802183289%_ (let () (declare (not safe)) - (gx#stx-e _%tl182527183012%_)))) - (let ((_%tl182530183020%_ + (gx#stx-e _%tl182801183286%_)))) + (let ((_%tl182804183294%_ (let () (declare (not safe)) - (##cdr _%e182528183015%_))) - (_%hd182529183018%_ + (##cdr _%e182802183289%_))) + (_%hd182803183292%_ (let () (declare (not safe)) - (##car _%e182528183015%_)))) + (##car _%e182802183289%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182530183020%_)) + (gx#stx-null? _%tl182804183294%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182524183004%_)) - (_%loop182505182965%_ - _%lp-tl182508182980%_ - (cons _%hd182529183018%_ - _%xid182509182970%_) - (cons _%hd182520182994%_ - _%id182510182972%_)) - (_%__match189173189174%_ - _%e182496182944%_ - _%hd182497182947%_ - _%tl182498182949%_ - _%e182499182952%_ - _%hd182500182955%_ - _%tl182501182957%_ - _%__splice189040189041%_ - _%target182502182960%_ - _%tl182504182962%_)) - (_%__match189173189174%_ - _%e182496182944%_ - _%hd182497182947%_ - _%tl182498182949%_ - _%e182499182952%_ - _%hd182500182955%_ - _%tl182501182957%_ - _%__splice189040189041%_ - _%target182502182960%_ - _%tl182504182962%_)))) - (_%__match189173189174%_ - _%e182496182944%_ - _%hd182497182947%_ - _%tl182498182949%_ - _%e182499182952%_ - _%hd182500182955%_ - _%tl182501182957%_ - _%__splice189040189041%_ - _%target182502182960%_ - _%tl182504182962%_)) - (_%__match189173189174%_ - _%e182496182944%_ - _%hd182497182947%_ - _%tl182498182949%_ - _%e182499182952%_ - _%hd182500182955%_ - _%tl182501182957%_ - _%__splice189040189041%_ - _%target182502182960%_ - _%tl182504182962%_)) - (_%__match189173189174%_ - _%e182496182944%_ - _%hd182497182947%_ - _%tl182498182949%_ - _%e182499182952%_ - _%hd182500182955%_ - _%tl182501182957%_ - _%__splice189040189041%_ - _%target182502182960%_ - _%tl182504182962%_)))) + (gx#stx-null? _%tl182798183278%_)) + (_%loop182779183239%_ + _%lp-tl182782183254%_ + (cons _%hd182803183292%_ + _%xid182783183244%_) + (cons _%hd182794183268%_ + _%id182784183246%_)) + (_%__match189447189448%_ + _%e182770183218%_ + _%hd182771183221%_ + _%tl182772183223%_ + _%e182773183226%_ + _%hd182774183229%_ + _%tl182775183231%_ + _%__splice189314189315%_ + _%target182776183234%_ + _%tl182778183236%_)) + (_%__match189447189448%_ + _%e182770183218%_ + _%hd182771183221%_ + _%tl182772183223%_ + _%e182773183226%_ + _%hd182774183229%_ + _%tl182775183231%_ + _%__splice189314189315%_ + _%target182776183234%_ + _%tl182778183236%_)))) + (_%__match189447189448%_ + _%e182770183218%_ + _%hd182771183221%_ + _%tl182772183223%_ + _%e182773183226%_ + _%hd182774183229%_ + _%tl182775183231%_ + _%__splice189314189315%_ + _%target182776183234%_ + _%tl182778183236%_)) + (_%__match189447189448%_ + _%e182770183218%_ + _%hd182771183221%_ + _%tl182772183223%_ + _%e182773183226%_ + _%hd182774183229%_ + _%tl182775183231%_ + _%__splice189314189315%_ + _%target182776183234%_ + _%tl182778183236%_)) + (_%__match189447189448%_ + _%e182770183218%_ + _%hd182771183221%_ + _%tl182772183223%_ + _%e182773183226%_ + _%hd182774183229%_ + _%tl182775183231%_ + _%__splice189314189315%_ + _%target182776183234%_ + _%tl182778183236%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match189173189174%_ - _%e182496182944%_ - _%hd182497182947%_ - _%tl182498182949%_ - _%e182499182952%_ - _%hd182500182955%_ - _%tl182501182957%_ - _%__splice189040189041%_ - _%target182502182960%_ - _%tl182504182962%_)))) - (_%__match189173189174%_ - _%e182496182944%_ - _%hd182497182947%_ - _%tl182498182949%_ - _%e182499182952%_ - _%hd182500182955%_ - _%tl182501182957%_ - _%__splice189040189041%_ - _%target182502182960%_ - _%tl182504182962%_)) - (_%__match189173189174%_ - _%e182496182944%_ - _%hd182497182947%_ - _%tl182498182949%_ - _%e182499182952%_ - _%hd182500182955%_ - _%tl182501182957%_ - _%__splice189040189041%_ - _%target182502182960%_ - _%tl182504182962%_)))) - (_%__match189173189174%_ - _%e182496182944%_ - _%hd182497182947%_ - _%tl182498182949%_ - _%e182499182952%_ - _%hd182500182955%_ - _%tl182501182957%_ - _%__splice189040189041%_ - _%target182502182960%_ - _%tl182504182962%_)))) - (_%__match189173189174%_ - _%e182496182944%_ - _%hd182497182947%_ - _%tl182498182949%_ - _%e182499182952%_ - _%hd182500182955%_ - _%tl182501182957%_ - _%__splice189040189041%_ - _%target182502182960%_ - _%tl182504182962%_)))) - (let ((_%id182512183025%_ (reverse _%id182510182972%_)) - (_%xid182511183023%_ (reverse _%xid182509182970%_))) + (_%__match189447189448%_ + _%e182770183218%_ + _%hd182771183221%_ + _%tl182772183223%_ + _%e182773183226%_ + _%hd182774183229%_ + _%tl182775183231%_ + _%__splice189314189315%_ + _%target182776183234%_ + _%tl182778183236%_)))) + (_%__match189447189448%_ + _%e182770183218%_ + _%hd182771183221%_ + _%tl182772183223%_ + _%e182773183226%_ + _%hd182774183229%_ + _%tl182775183231%_ + _%__splice189314189315%_ + _%target182776183234%_ + _%tl182778183236%_)) + (_%__match189447189448%_ + _%e182770183218%_ + _%hd182771183221%_ + _%tl182772183223%_ + _%e182773183226%_ + _%hd182774183229%_ + _%tl182775183231%_ + _%__splice189314189315%_ + _%target182776183234%_ + _%tl182778183236%_)))) + (_%__match189447189448%_ + _%e182770183218%_ + _%hd182771183221%_ + _%tl182772183223%_ + _%e182773183226%_ + _%hd182774183229%_ + _%tl182775183231%_ + _%__splice189314189315%_ + _%target182776183234%_ + _%tl182778183236%_)))) + (_%__match189447189448%_ + _%e182770183218%_ + _%hd182771183221%_ + _%tl182772183223%_ + _%e182773183226%_ + _%hd182774183229%_ + _%tl182775183231%_ + _%__splice189314189315%_ + _%target182776183234%_ + _%tl182778183236%_)))) + (let ((_%id182786183299%_ (reverse _%id182784183246%_)) + (_%xid182785183297%_ (reverse _%xid182783183244%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182501182957%_)) - (let ((_%e182513183028%_ + (gx#stx-pair? _%tl182775183231%_)) + (let ((_%e182787183302%_ (let () (declare (not safe)) - (gx#stx-e _%tl182501182957%_)))) - (let ((_%tl182515183033%_ + (gx#stx-e _%tl182775183231%_)))) + (let ((_%tl182789183307%_ (let () (declare (not safe)) - (##cdr _%e182513183028%_))) - (_%hd182514183031%_ + (##cdr _%e182787183302%_))) + (_%hd182788183305%_ (let () (declare (not safe)) - (##car _%e182513183028%_)))) + (##car _%e182787183302%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182515183033%_)) - (_%__kont189038189039%_ - _%hd182514183031%_ - _%xid182511183023%_ - _%id182512183025%_) - (_%__match189173189174%_ - _%e182496182944%_ - _%hd182497182947%_ - _%tl182498182949%_ - _%e182499182952%_ - _%hd182500182955%_ - _%tl182501182957%_ - _%__splice189040189041%_ - _%target182502182960%_ - _%tl182504182962%_)))) - (_%__match189173189174%_ - _%e182496182944%_ - _%hd182497182947%_ - _%tl182498182949%_ - _%e182499182952%_ - _%hd182500182955%_ - _%tl182501182957%_ - _%__splice189040189041%_ - _%target182502182960%_ - _%tl182504182962%_))))))) + (gx#stx-null? _%tl182789183307%_)) + (_%__kont189312189313%_ + _%hd182788183305%_ + _%xid182785183297%_ + _%id182786183299%_) + (_%__match189447189448%_ + _%e182770183218%_ + _%hd182771183221%_ + _%tl182772183223%_ + _%e182773183226%_ + _%hd182774183229%_ + _%tl182775183231%_ + _%__splice189314189315%_ + _%target182776183234%_ + _%tl182778183236%_)))) + (_%__match189447189448%_ + _%e182770183218%_ + _%hd182771183221%_ + _%tl182772183223%_ + _%e182773183226%_ + _%hd182774183229%_ + _%tl182775183231%_ + _%__splice189314189315%_ + _%target182776183234%_ + _%tl182778183236%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop182505182965%_ - _%target182502182960%_ + (_%loop182779183239%_ + _%target182776183234%_ '() '())))) - (_%__match189095189096%_ - (lambda (_%e182451183136%_ - _%hd182452183139%_ - _%tl182453183141%_ - _%e182454183144%_ - _%hd182455183147%_ - _%tl182456183149%_ - _%e182457183152%_ - _%hd182458183155%_ - _%tl182459183157%_ - _%e182460183160%_ - _%hd182461183163%_ - _%tl182462183165%_ - _%__splice189034189035%_ - _%target182463183168%_ - _%tl182465183170%_) - (letrec ((_%loop182466183173%_ - (lambda (_%hd182464183176%_ - _%id182470183178%_) + (_%__match189369189370%_ + (lambda (_%e182725183410%_ + _%hd182726183413%_ + _%tl182727183415%_ + _%e182728183418%_ + _%hd182729183421%_ + _%tl182730183423%_ + _%e182731183426%_ + _%hd182732183429%_ + _%tl182733183431%_ + _%e182734183434%_ + _%hd182735183437%_ + _%tl182736183439%_ + _%__splice189308189309%_ + _%target182737183442%_ + _%tl182739183444%_) + (letrec ((_%loop182740183447%_ + (lambda (_%hd182738183450%_ + _%id182744183452%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182464183176%_)) - (let ((_%e182467183181%_ + _%hd182738183450%_)) + (let ((_%e182741183455%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd182464183176%_)))) - (let ((_%lp-tl182469183186%_ - (let () (declare (not safe)) (##cdr _%e182467183181%_))) - (_%lp-hd182468183184%_ + (gx#stx-e _%hd182738183450%_)))) + (let ((_%lp-tl182743183460%_ + (let () (declare (not safe)) (##cdr _%e182741183455%_))) + (_%lp-hd182742183458%_ (let () (declare (not safe)) - (##car _%e182467183181%_)))) + (##car _%e182741183455%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd182468183184%_)) - (let ((_%e182472183189%_ + (gx#stx-pair? _%lp-hd182742183458%_)) + (let ((_%e182746183463%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd182468183184%_)))) - (let ((_%tl182474183194%_ + (gx#stx-e _%lp-hd182742183458%_)))) + (let ((_%tl182748183468%_ (let () (declare (not safe)) - (##cdr _%e182472183189%_))) - (_%hd182473183192%_ + (##cdr _%e182746183463%_))) + (_%hd182747183466%_ (let () (declare (not safe)) - (##car _%e182472183189%_)))) + (##car _%e182746183463%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182473183192%_)) + (gx#identifier? _%hd182747183466%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd182473183192%_)) + (gx#stx-eq? '%#ref _%hd182747183466%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182474183194%_)) - (let ((_%e182475183197%_ + (gx#stx-pair? _%tl182748183468%_)) + (let ((_%e182749183471%_ (let () (declare (not safe)) - (gx#stx-e _%tl182474183194%_)))) - (let ((_%tl182477183202%_ + (gx#stx-e _%tl182748183468%_)))) + (let ((_%tl182751183476%_ (let () (declare (not safe)) - (##cdr _%e182475183197%_))) - (_%hd182476183200%_ + (##cdr _%e182749183471%_))) + (_%hd182750183474%_ (let () (declare (not safe)) - (##car _%e182475183197%_)))) + (##car _%e182749183471%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182477183202%_)) - (_%loop182466183173%_ - _%lp-tl182469183186%_ - (cons _%hd182476183200%_ - _%id182470183178%_)) - (_%__kont189052189053%_)))) - (_%__kont189052189053%_)) - (_%__kont189052189053%_)) - (_%__kont189052189053%_)))) - (_%__kont189052189053%_)))) - (let ((_%id182471183205%_ (reverse _%id182470183178%_))) - (_%__kont189032189033%_ - _%id182471183205%_ - _%hd182461183163%_)))))) + _%tl182751183476%_)) + (_%loop182740183447%_ + _%lp-tl182743183460%_ + (cons _%hd182750183474%_ + _%id182744183452%_)) + (_%__kont189326189327%_)))) + (_%__kont189326189327%_)) + (_%__kont189326189327%_)) + (_%__kont189326189327%_)))) + (_%__kont189326189327%_)))) + (let ((_%id182745183479%_ (reverse _%id182744183452%_))) + (_%__kont189306189307%_ + _%id182745183479%_ + _%hd182735183437%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop182466183173%_ - _%target182463183168%_ + (_%loop182740183447%_ + _%target182737183442%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx189030189031%_)) - (let ((_%e182451183136%_ + (gx#stx-pair? _%__stx189304189305%_)) + (let ((_%e182725183410%_ (let () (declare (not safe)) - (gx#stx-e _%__stx189030189031%_)))) - (let ((_%tl182453183141%_ + (gx#stx-e _%__stx189304189305%_)))) + (let ((_%tl182727183415%_ (let () (declare (not safe)) - (##cdr _%e182451183136%_))) - (_%hd182452183139%_ + (##cdr _%e182725183410%_))) + (_%hd182726183413%_ (let () (declare (not safe)) - (##car _%e182451183136%_)))) + (##car _%e182725183410%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182452183139%_)) + _%hd182726183413%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd182452183139%_)) + _%hd182726183413%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182453183141%_)) - (let ((_%e182454183144%_ + _%tl182727183415%_)) + (let ((_%e182728183418%_ (let () (declare (not safe)) (gx#stx-e - _%tl182453183141%_)))) - (let ((_%tl182456183149%_ + _%tl182727183415%_)))) + (let ((_%tl182730183423%_ (let () (declare (not safe)) - (##cdr _%e182454183144%_))) - (_%hd182455183147%_ + (##cdr _%e182728183418%_))) + (_%hd182729183421%_ (let () (declare (not safe)) - (##car _%e182454183144%_)))) + (##car _%e182728183418%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182455183147%_)) - (let ((_%e182457183152%_ + _%hd182729183421%_)) + (let ((_%e182731183426%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd182455183147%_)))) - (let ((_%tl182459183157%_ + (gx#stx-e _%hd182729183421%_)))) + (let ((_%tl182733183431%_ (let () (declare (not safe)) - (##cdr _%e182457183152%_))) - (_%hd182458183155%_ + (##cdr _%e182731183426%_))) + (_%hd182732183429%_ (let () (declare (not safe)) - (##car _%e182457183152%_)))) + (##car _%e182731183426%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182458183155%_)) + (gx#identifier? _%hd182732183429%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd182458183155%_)) + (gx#stx-eq? '%#ref _%hd182732183429%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182459183157%_)) - (let ((_%e182460183160%_ + (gx#stx-pair? _%tl182733183431%_)) + (let ((_%e182734183434%_ (let () (declare (not safe)) - (gx#stx-e _%tl182459183157%_)))) - (let ((_%tl182462183165%_ + (gx#stx-e _%tl182733183431%_)))) + (let ((_%tl182736183439%_ (let () (declare (not safe)) - (##cdr _%e182460183160%_))) - (_%hd182461183163%_ + (##cdr _%e182734183434%_))) + (_%hd182735183437%_ (let () (declare (not safe)) - (##car _%e182460183160%_)))) + (##car _%e182734183434%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182462183165%_)) + (gx#stx-null? _%tl182736183439%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl182456183149%_)) - (let ((_%__splice189034189035%_ + _%tl182730183423%_)) + (let ((_%__splice189308189309%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl182456183149%_ + _%tl182730183423%_ '0)))) - (let ((_%tl182465183170%_ + (let ((_%tl182739183444%_ (let () (declare (not safe)) (##vector-ref - _%__splice189034189035%_ + _%__splice189308189309%_ '1))) - (_%target182463183168%_ + (_%target182737183442%_ (let () (declare (not safe)) (##vector-ref - _%__splice189034189035%_ + _%__splice189308189309%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182465183170%_)) - (_%__match189095189096%_ - _%e182451183136%_ - _%hd182452183139%_ - _%tl182453183141%_ - _%e182454183144%_ - _%hd182455183147%_ - _%tl182456183149%_ - _%e182457183152%_ - _%hd182458183155%_ - _%tl182459183157%_ - _%e182460183160%_ - _%hd182461183163%_ - _%tl182462183165%_ - _%__splice189034189035%_ - _%target182463183168%_ - _%tl182465183170%_) - (_%__kont189052189053%_)))) - (_%__kont189052189053%_)) - (_%__kont189052189053%_)))) - (_%__kont189052189053%_)) - (_%__kont189052189053%_)) - (_%__kont189052189053%_)))) - (_%__kont189052189053%_)))) + _%tl182739183444%_)) + (_%__match189369189370%_ + _%e182725183410%_ + _%hd182726183413%_ + _%tl182727183415%_ + _%e182728183418%_ + _%hd182729183421%_ + _%tl182730183423%_ + _%e182731183426%_ + _%hd182732183429%_ + _%tl182733183431%_ + _%e182734183434%_ + _%hd182735183437%_ + _%tl182736183439%_ + _%__splice189308189309%_ + _%target182737183442%_ + _%tl182739183444%_) + (_%__kont189326189327%_)))) + (_%__kont189326189327%_)) + (_%__kont189326189327%_)))) + (_%__kont189326189327%_)) + (_%__kont189326189327%_)) + (_%__kont189326189327%_)))) + (_%__kont189326189327%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189052189053%_)) + (_%__kont189326189327%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd182452183139%_)) + _%hd182726183413%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182453183141%_)) - (let ((_%e182484183082%_ + _%tl182727183415%_)) + (let ((_%e182758183356%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl182453183141%_)))) - (let ((_%tl182486183087%_ - (let () (declare (not safe)) (##cdr _%e182484183082%_))) - (_%hd182485183085%_ + (gx#stx-e _%tl182727183415%_)))) + (let ((_%tl182760183361%_ + (let () (declare (not safe)) (##cdr _%e182758183356%_))) + (_%hd182759183359%_ (let () (declare (not safe)) - (##car _%e182484183082%_)))) + (##car _%e182758183356%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182486183087%_)) - (let ((_%e182487183090%_ + (gx#stx-pair? _%tl182760183361%_)) + (let ((_%e182761183364%_ (let () (declare (not safe)) - (gx#stx-e _%tl182486183087%_)))) - (let ((_%tl182489183095%_ + (gx#stx-e _%tl182760183361%_)))) + (let ((_%tl182763183369%_ (let () (declare (not safe)) - (##cdr _%e182487183090%_))) - (_%hd182488183093%_ + (##cdr _%e182761183364%_))) + (_%hd182762183367%_ (let () (declare (not safe)) - (##car _%e182487183090%_)))) + (##car _%e182761183364%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182489183095%_)) - (let ((_%e182490183098%_ + (gx#stx-pair? _%tl182763183369%_)) + (let ((_%e182764183372%_ (let () (declare (not safe)) - (gx#stx-e _%tl182489183095%_)))) - (let ((_%tl182492183103%_ + (gx#stx-e _%tl182763183369%_)))) + (let ((_%tl182766183377%_ (let () (declare (not safe)) - (##cdr _%e182490183098%_))) - (_%hd182491183101%_ + (##cdr _%e182764183372%_))) + (_%hd182765183375%_ (let () (declare (not safe)) - (##car _%e182490183098%_)))) + (##car _%e182764183372%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182492183103%_)) - (_%__kont189036189037%_ - _%hd182491183101%_ - _%hd182488183093%_ - _%hd182485183085%_) - (_%__kont189052189053%_)))) - (_%__kont189052189053%_)))) - (_%__kont189052189053%_)))) - (_%__kont189052189053%_)) + (gx#stx-null? _%tl182766183377%_)) + (_%__kont189310189311%_ + _%hd182765183375%_ + _%hd182762183367%_ + _%hd182759183359%_) + (_%__kont189326189327%_)))) + (_%__kont189326189327%_)))) + (_%__kont189326189327%_)))) + (_%__kont189326189327%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd182452183139%_)) + _%hd182726183413%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182453183141%_)) - (let ((_%e182499182952%_ + _%tl182727183415%_)) + (let ((_%e182773183226%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl182453183141%_)))) - (let ((_%tl182501182957%_ + (gx#stx-e _%tl182727183415%_)))) + (let ((_%tl182775183231%_ (let () (declare (not safe)) - (##cdr _%e182499182952%_))) - (_%hd182500182955%_ + (##cdr _%e182773183226%_))) + (_%hd182774183229%_ (let () (declare (not safe)) - (##car _%e182499182952%_)))) + (##car _%e182773183226%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd182500182955%_)) - (let ((_%__splice189040189041%_ + (gx#stx-pair/null? _%hd182774183229%_)) + (let ((_%__splice189314189315%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd182500182955%_ + _%hd182774183229%_ '0)))) - (let ((_%tl182504182962%_ + (let ((_%tl182778183236%_ (let () (declare (not safe)) (##vector-ref - _%__splice189040189041%_ + _%__splice189314189315%_ '1))) - (_%target182502182960%_ + (_%target182776183234%_ (let () (declare (not safe)) (##vector-ref - _%__splice189040189041%_ + _%__splice189314189315%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182504182962%_)) - (_%__match189149189150%_ - _%e182451183136%_ - _%hd182452183139%_ - _%tl182453183141%_ - _%e182499182952%_ - _%hd182500182955%_ - _%tl182501182957%_ - _%__splice189040189041%_ - _%target182502182960%_ - _%tl182504182962%_) - (_%__kont189052189053%_)))) - (_%__kont189052189053%_)))) - (_%__kont189052189053%_)) + (gx#stx-null? _%tl182778183236%_)) + (_%__match189423189424%_ + _%e182725183410%_ + _%hd182726183413%_ + _%tl182727183415%_ + _%e182773183226%_ + _%hd182774183229%_ + _%tl182775183231%_ + _%__splice189314189315%_ + _%target182776183234%_ + _%tl182778183236%_) + (_%__kont189326189327%_)))) + (_%__kont189326189327%_)))) + (_%__kont189326189327%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#letrec-values _%hd182452183139%_)) + (gx#stx-eq? '%#letrec-values _%hd182726183413%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182453183141%_)) - (let ((_%e182571182640%_ + (gx#stx-pair? _%tl182727183415%_)) + (let ((_%e182845182914%_ (let () (declare (not safe)) - (gx#stx-e _%tl182453183141%_)))) - (let ((_%tl182573182645%_ + (gx#stx-e _%tl182727183415%_)))) + (let ((_%tl182847182919%_ (let () (declare (not safe)) - (##cdr _%e182571182640%_))) - (_%hd182572182643%_ + (##cdr _%e182845182914%_))) + (_%hd182846182917%_ (let () (declare (not safe)) - (##car _%e182571182640%_)))) + (##car _%e182845182914%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182572182643%_)) - (let ((_%e182574182648%_ + (gx#stx-pair? _%hd182846182917%_)) + (let ((_%e182848182922%_ (let () (declare (not safe)) - (gx#stx-e _%hd182572182643%_)))) - (let ((_%tl182576182653%_ + (gx#stx-e _%hd182846182917%_)))) + (let ((_%tl182850182927%_ (let () (declare (not safe)) - (##cdr _%e182574182648%_))) - (_%hd182575182651%_ + (##cdr _%e182848182922%_))) + (_%hd182849182925%_ (let () (declare (not safe)) - (##car _%e182574182648%_)))) + (##car _%e182848182922%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182575182651%_)) - (let ((_%e182577182656%_ + (gx#stx-pair? _%hd182849182925%_)) + (let ((_%e182851182930%_ (let () (declare (not safe)) - (gx#stx-e _%hd182575182651%_)))) - (let ((_%tl182579182661%_ + (gx#stx-e _%hd182849182925%_)))) + (let ((_%tl182853182935%_ (let () (declare (not safe)) - (##cdr _%e182577182656%_))) - (_%hd182578182659%_ + (##cdr _%e182851182930%_))) + (_%hd182852182933%_ (let () (declare (not safe)) - (##car _%e182577182656%_)))) + (##car _%e182851182930%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182578182659%_)) - (let ((_%e182580182664%_ + _%hd182852182933%_)) + (let ((_%e182854182938%_ (let () (declare (not safe)) (gx#stx-e - _%hd182578182659%_)))) - (let ((_%tl182582182669%_ + _%hd182852182933%_)))) + (let ((_%tl182856182943%_ (let () (declare (not safe)) - (##cdr _%e182580182664%_))) - (_%hd182581182667%_ + (##cdr _%e182854182938%_))) + (_%hd182855182941%_ (let () (declare (not safe)) - (##car _%e182580182664%_)))) + (##car _%e182854182938%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182582182669%_)) + _%tl182856182943%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182579182661%_)) - (let ((_%e182583182672%_ + _%tl182853182935%_)) + (let ((_%e182857182946%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl182579182661%_)))) - (let ((_%tl182585182677%_ + (gx#stx-e _%tl182853182935%_)))) + (let ((_%tl182859182951%_ (let () (declare (not safe)) - (##cdr _%e182583182672%_))) - (_%hd182584182675%_ + (##cdr _%e182857182946%_))) + (_%hd182858182949%_ (let () (declare (not safe)) - (##car _%e182583182672%_)))) + (##car _%e182857182946%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182584182675%_)) - (let ((_%e182586182680%_ + (gx#stx-pair? _%hd182858182949%_)) + (let ((_%e182860182954%_ (let () (declare (not safe)) - (gx#stx-e _%hd182584182675%_)))) - (let ((_%tl182588182685%_ + (gx#stx-e _%hd182858182949%_)))) + (let ((_%tl182862182959%_ (let () (declare (not safe)) - (##cdr _%e182586182680%_))) - (_%hd182587182683%_ + (##cdr _%e182860182954%_))) + (_%hd182861182957%_ (let () (declare (not safe)) - (##car _%e182586182680%_)))) + (##car _%e182860182954%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182587182683%_)) + (gx#identifier? _%hd182861182957%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd182587182683%_)) + _%hd182861182957%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182588182685%_)) - (let ((_%e182589182688%_ + (gx#stx-pair? _%tl182862182959%_)) + (let ((_%e182863182962%_ (let () (declare (not safe)) (gx#stx-e - _%tl182588182685%_)))) - (let ((_%tl182591182693%_ + _%tl182862182959%_)))) + (let ((_%tl182865182967%_ (let () (declare (not safe)) - (##cdr _%e182589182688%_))) - (_%hd182590182691%_ + (##cdr _%e182863182962%_))) + (_%hd182864182965%_ (let () (declare (not safe)) - (##car _%e182589182688%_)))) + (##car _%e182863182962%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd182590182691%_)) - (let ((_%__splice189048189049%_ + _%hd182864182965%_)) + (let ((_%__splice189322189323%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd182590182691%_ + _%hd182864182965%_ '0)))) - (let ((_%tl182594182698%_ + (let ((_%tl182868182972%_ (let () (declare (not safe)) (##vector-ref - _%__splice189048189049%_ + _%__splice189322189323%_ '1))) - (_%target182592182696%_ + (_%target182866182970%_ (let () (declare (not safe)) (##vector-ref - _%__splice189048189049%_ + _%__splice189322189323%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182594182698%_)) - (_%__match189239189240%_ - _%e182451183136%_ - _%hd182452183139%_ - _%tl182453183141%_ - _%e182571182640%_ - _%hd182572182643%_ - _%tl182573182645%_ - _%e182574182648%_ - _%hd182575182651%_ - _%tl182576182653%_ - _%e182577182656%_ - _%hd182578182659%_ - _%tl182579182661%_ - _%e182580182664%_ - _%hd182581182667%_ - _%tl182582182669%_ - _%e182583182672%_ - _%hd182584182675%_ - _%tl182585182677%_ - _%e182586182680%_ - _%hd182587182683%_ - _%tl182588182685%_ - _%e182589182688%_ - _%hd182590182691%_ - _%tl182591182693%_ - _%__splice189048189049%_ - _%target182592182696%_ - _%tl182594182698%_) - (_%__kont189052189053%_)))) - (_%__kont189052189053%_)))) - (_%__kont189052189053%_)) - (_%__kont189052189053%_)) - (_%__kont189052189053%_)))) - (_%__kont189052189053%_)))) - (_%__kont189052189053%_)) - (_%__kont189052189053%_)))) + _%tl182868182972%_)) + (_%__match189513189514%_ + _%e182725183410%_ + _%hd182726183413%_ + _%tl182727183415%_ + _%e182845182914%_ + _%hd182846182917%_ + _%tl182847182919%_ + _%e182848182922%_ + _%hd182849182925%_ + _%tl182850182927%_ + _%e182851182930%_ + _%hd182852182933%_ + _%tl182853182935%_ + _%e182854182938%_ + _%hd182855182941%_ + _%tl182856182943%_ + _%e182857182946%_ + _%hd182858182949%_ + _%tl182859182951%_ + _%e182860182954%_ + _%hd182861182957%_ + _%tl182862182959%_ + _%e182863182962%_ + _%hd182864182965%_ + _%tl182865182967%_ + _%__splice189322189323%_ + _%target182866182970%_ + _%tl182868182972%_) + (_%__kont189326189327%_)))) + (_%__kont189326189327%_)))) + (_%__kont189326189327%_)) + (_%__kont189326189327%_)) + (_%__kont189326189327%_)))) + (_%__kont189326189327%_)))) + (_%__kont189326189327%_)) + (_%__kont189326189327%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189052189053%_)))) - (_%__kont189052189053%_)))) - (_%__kont189052189053%_)))) - (_%__kont189052189053%_)) - (_%__kont189052189053%_))))) + (_%__kont189326189327%_)))) + (_%__kont189326189327%_)))) + (_%__kont189326189327%_)))) + (_%__kont189326189327%_)) + (_%__kont189326189327%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189052189053%_)))) - (_%__kont189052189053%_))))))))) - (_%optimize-f__0__187731187732%_ - (lambda (_%expr183346%_) - (let ((_%test183348%_ '#f)) - (_%optimize-f__187729187730%_ - _%expr183346%_ - _%test183348%_)))) - (_%optimize-f180374%_ - (lambda _g190890_ - (let ((_g190889_ + (_%__kont189326189327%_)))) + (_%__kont189326189327%_))))))))) + (_%optimize-f__0__188005188006%_ + (lambda (_%expr183620%_) + (let ((_%test183622%_ '#f)) + (_%optimize-f__188003188004%_ + _%expr183620%_ + _%test183622%_)))) + (_%optimize-f180648%_ + (lambda _g191164_ + (let ((_g191163_ (let () (declare (not safe)) - (##length _g190890_)))) - (cond ((let () (declare (not safe)) (##fx= _g190889_ 1)) - (apply _%optimize-f__0__187731187732%_ - _g190890_)) - ((let () (declare (not safe)) (##fx= _g190889_ 2)) - (apply _%optimize-f__187729187730%_ _g190890_)) + (##length _g191164_)))) + (cond ((let () (declare (not safe)) (##fx= _g191163_ 1)) + (apply _%optimize-f__0__188005188006%_ + _g191164_)) + ((let () (declare (not safe)) (##fx= _g191163_ 2)) + (apply _%optimize-f__188003188004%_ _g191164_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g190890_)))))) - (_%assert-e180375%_ - (lambda (_%expr181375%_) - (let* ((_%sexpr181377%_ - (gxc#apply-generate-runtime-repr _%expr181375%_)) - (_%$e181379%_ - (assoc _%sexpr181377%_ _%env-assert180357%_))) - (if _%$e181379%_ - (cdr _%$e181379%_) - (let _%assert181383%_ ((_%expr181385%_ - _%expr181375%_)) - (let* ((_%__stx189336189337%_ _%expr181385%_) - (_%g181393181572%_ + _g191164_)))))) + (_%assert-e180649%_ + (lambda (_%expr181649%_) + (let* ((_%sexpr181651%_ + (gxc#apply-generate-runtime-repr _%expr181649%_)) + (_%$e181653%_ + (assoc _%sexpr181651%_ _%env-assert180631%_))) + (if _%$e181653%_ + (cdr _%$e181653%_) + (let _%assert181657%_ ((_%expr181659%_ + _%expr181649%_)) + (let* ((_%__stx189610189611%_ _%expr181659%_) + (_%g181667181846%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189336189337%_))))) - (let ((_%__kont189338189339%_ - (lambda (_%L182405%_ _%L182406%_) - (let ((_%$e182428%_ - (_%predicate-type180362%_ - _%L182406%_))) - (if _%$e182428%_ - ((lambda (_%t182431%_) - (_%assert-type180376%_ - _%L182405%_ - _%t182431%_)) - _%$e182428%_) + _%__stx189610189611%_))))) + (let ((_%__kont189612189613%_ + (lambda (_%L182679%_ _%L182680%_) + (let ((_%$e182702%_ + (_%predicate-type180636%_ + _%L182680%_))) + (if _%$e182702%_ + ((lambda (_%t182705%_) + (_%assert-type180650%_ + _%L182679%_ + _%t182705%_)) + _%$e182702%_) '#!void)))) - (_%__kont189340189341%_ - (lambda (_%L182097%_ - _%L182098%_ - _%L182099%_) - (let ((_%$e182124%_ + (_%__kont189614189615%_ + (lambda (_%L182371%_ + _%L182372%_ + _%L182373%_) + (let ((_%$e182398%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L182099%_)))) - (if (or (eq? '##fx= _%$e182124%_) - (eq? 'fx= _%$e182124%_)) - (let* ((_%__stx189242189243%_ - _%L182098%_) - (_%g182131182160%_ + _%L182373%_)))) + (if (or (eq? '##fx= _%$e182398%_) + (eq? 'fx= _%$e182398%_)) + (let* ((_%__stx189516189517%_ + _%L182372%_) + (_%g182405182434%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189242189243%_))))) - (let ((_%__kont189244189245%_ - (lambda (_%L182228%_ - _%L182229%_) - (let ((_%$e182254%_ - (_%countf-symbol180364%_ + _%__stx189516189517%_))))) + (let ((_%__kont189518189519%_ + (lambda (_%L182502%_ + _%L182503%_) + (let ((_%$e182528%_ + (_%countf-symbol180638%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L182229%_))) - (if _%$e182254%_ - ((lambda (_%sym182257%_) - (_%assert-count180377%_ - _%L182228%_ - _%sym182257%_ + _%L182503%_))) + (if _%$e182528%_ + ((lambda (_%sym182531%_) + (_%assert-count180651%_ + _%L182502%_ + _%sym182531%_ (let () (declare (not safe)) - (gx#stx-e _%L182097%_)))) - _%$e182254%_) + (gx#stx-e _%L182371%_)))) + _%$e182528%_) '#!void)))) - (_%__kont189246189247%_ (lambda () '#!void))) + (_%__kont189520189521%_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189242189243%_)) - (let ((_%e182135182172%_ + _%__stx189516189517%_)) + (let ((_%e182409182446%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%__stx189242189243%_)))) - (let ((_%tl182137182177%_ - (let () (declare (not safe)) (##cdr _%e182135182172%_))) - (_%hd182136182175%_ + (gx#stx-e _%__stx189516189517%_)))) + (let ((_%tl182411182451%_ + (let () (declare (not safe)) (##cdr _%e182409182446%_))) + (_%hd182410182449%_ (let () (declare (not safe)) - (##car _%e182135182172%_)))) + (##car _%e182409182446%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182136182175%_)) + (gx#identifier? _%hd182410182449%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd182136182175%_)) + (gx#stx-eq? '%#call _%hd182410182449%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182137182177%_)) - (let ((_%e182138182180%_ + (gx#stx-pair? _%tl182411182451%_)) + (let ((_%e182412182454%_ (let () (declare (not safe)) - (gx#stx-e _%tl182137182177%_)))) - (let ((_%tl182140182185%_ + (gx#stx-e _%tl182411182451%_)))) + (let ((_%tl182414182459%_ (let () (declare (not safe)) - (##cdr _%e182138182180%_))) - (_%hd182139182183%_ + (##cdr _%e182412182454%_))) + (_%hd182413182457%_ (let () (declare (not safe)) - (##car _%e182138182180%_)))) + (##car _%e182412182454%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182139182183%_)) - (let ((_%e182141182188%_ + (gx#stx-pair? _%hd182413182457%_)) + (let ((_%e182415182462%_ (let () (declare (not safe)) - (gx#stx-e _%hd182139182183%_)))) - (let ((_%tl182143182193%_ + (gx#stx-e _%hd182413182457%_)))) + (let ((_%tl182417182467%_ (let () (declare (not safe)) - (##cdr _%e182141182188%_))) - (_%hd182142182191%_ + (##cdr _%e182415182462%_))) + (_%hd182416182465%_ (let () (declare (not safe)) - (##car _%e182141182188%_)))) + (##car _%e182415182462%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182142182191%_)) + _%hd182416182465%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd182142182191%_)) + _%hd182416182465%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182143182193%_)) - (let ((_%e182144182196%_ + _%tl182417182467%_)) + (let ((_%e182418182470%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl182143182193%_)))) - (let ((_%tl182146182201%_ - (let () (declare (not safe)) (##cdr _%e182144182196%_))) - (_%hd182145182199%_ + (gx#stx-e _%tl182417182467%_)))) + (let ((_%tl182420182475%_ + (let () (declare (not safe)) (##cdr _%e182418182470%_))) + (_%hd182419182473%_ (let () (declare (not safe)) - (##car _%e182144182196%_)))) + (##car _%e182418182470%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182146182201%_)) + (gx#stx-null? _%tl182420182475%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182140182185%_)) - (let ((_%e182147182204%_ + (gx#stx-pair? _%tl182414182459%_)) + (let ((_%e182421182478%_ (let () (declare (not safe)) - (gx#stx-e _%tl182140182185%_)))) - (let ((_%tl182149182209%_ + (gx#stx-e _%tl182414182459%_)))) + (let ((_%tl182423182483%_ (let () (declare (not safe)) - (##cdr _%e182147182204%_))) - (_%hd182148182207%_ + (##cdr _%e182421182478%_))) + (_%hd182422182481%_ (let () (declare (not safe)) - (##car _%e182147182204%_)))) + (##car _%e182421182478%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182148182207%_)) - (let ((_%e182150182212%_ + (gx#stx-pair? _%hd182422182481%_)) + (let ((_%e182424182486%_ (let () (declare (not safe)) - (gx#stx-e _%hd182148182207%_)))) - (let ((_%tl182152182217%_ + (gx#stx-e _%hd182422182481%_)))) + (let ((_%tl182426182491%_ (let () (declare (not safe)) - (##cdr _%e182150182212%_))) - (_%hd182151182215%_ + (##cdr _%e182424182486%_))) + (_%hd182425182489%_ (let () (declare (not safe)) - (##car _%e182150182212%_)))) + (##car _%e182424182486%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182151182215%_)) + _%hd182425182489%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd182151182215%_)) + _%hd182425182489%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182152182217%_)) - (let ((_%e182153182220%_ + _%tl182426182491%_)) + (let ((_%e182427182494%_ (let () (declare (not safe)) (gx#stx-e - _%tl182152182217%_)))) - (let ((_%tl182155182225%_ + _%tl182426182491%_)))) + (let ((_%tl182429182499%_ (let () (declare (not safe)) - (##cdr _%e182153182220%_))) - (_%hd182154182223%_ + (##cdr _%e182427182494%_))) + (_%hd182428182497%_ (let () (declare (not safe)) - (##car _%e182153182220%_)))) + (##car _%e182427182494%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182155182225%_)) + _%tl182429182499%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl182149182209%_)) - (_%__kont189244189245%_ - _%hd182154182223%_ - _%hd182145182199%_) - (_%__kont189246189247%_)) - (_%__kont189246189247%_)))) + (gx#stx-null? _%tl182423182483%_)) + (_%__kont189518189519%_ + _%hd182428182497%_ + _%hd182419182473%_) + (_%__kont189520189521%_)) + (_%__kont189520189521%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189246189247%_)) - (_%__kont189246189247%_)) - (_%__kont189246189247%_)))) - (_%__kont189246189247%_)))) - (_%__kont189246189247%_)) - (_%__kont189246189247%_)))) - (_%__kont189246189247%_)) + (_%__kont189520189521%_)) + (_%__kont189520189521%_)) + (_%__kont189520189521%_)))) + (_%__kont189520189521%_)))) + (_%__kont189520189521%_)) + (_%__kont189520189521%_)))) + (_%__kont189520189521%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189246189247%_)) - (_%__kont189246189247%_)))) - (_%__kont189246189247%_)))) - (_%__kont189246189247%_)) - (_%__kont189246189247%_)) - (_%__kont189246189247%_)))) - (_%__kont189246189247%_)))) + (_%__kont189520189521%_)) + (_%__kont189520189521%_)))) + (_%__kont189520189521%_)))) + (_%__kont189520189521%_)) + (_%__kont189520189521%_)) + (_%__kont189520189521%_)))) + (_%__kont189520189521%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (or (eq? '##eq? _%$e182124%_) - (eq? 'eq? _%$e182124%_) + (if (or (eq? '##eq? _%$e182398%_) + (eq? 'eq? _%$e182398%_) (eq? '##eqv? - _%$e182124%_) - (eq? 'eqv? _%$e182124%_) + _%$e182398%_) + (eq? 'eqv? _%$e182398%_) (eq? '##equal? - _%$e182124%_) + _%$e182398%_) (eq? 'equal? - _%$e182124%_) + _%$e182398%_) (eq? 'gx#free-identifier=? - _%$e182124%_) + _%$e182398%_) (eq? 'gx#stx-eq? - _%$e182124%_)) - ((lambda (_%sym182284%_) - (let* ((_%__stx189310189311%_ - _%L182098%_) - (_%g182287182300%_ + _%$e182398%_)) + ((lambda (_%sym182558%_) + (let* ((_%__stx189584189585%_ + _%L182372%_) + (_%g182561182574%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -8712,71 +8712,71 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189310189311%_))))) - (let ((_%__kont189312189313%_ - (lambda (_%L182328%_) - (_%assert-eqf180378%_ - _%L182328%_ - (_%eqf-symbol180365%_ _%sym182284%_) + _%__stx189584189585%_))))) + (let ((_%__kont189586189587%_ + (lambda (_%L182602%_) + (_%assert-eqf180652%_ + _%L182602%_ + (_%eqf-symbol180639%_ _%sym182558%_) (let () (declare (not safe)) - (gx#stx-e _%L182097%_))))) - (_%__kont189314189315%_ (lambda () '#!void))) + (gx#stx-e _%L182371%_))))) + (_%__kont189588189589%_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx189310189311%_)) - (let ((_%e182290182312%_ + (gx#stx-pair? _%__stx189584189585%_)) + (let ((_%e182564182586%_ (let () (declare (not safe)) - (gx#stx-e _%__stx189310189311%_)))) - (let ((_%tl182292182317%_ + (gx#stx-e _%__stx189584189585%_)))) + (let ((_%tl182566182591%_ (let () (declare (not safe)) - (##cdr _%e182290182312%_))) - (_%hd182291182315%_ + (##cdr _%e182564182586%_))) + (_%hd182565182589%_ (let () (declare (not safe)) - (##car _%e182290182312%_)))) + (##car _%e182564182586%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182291182315%_)) + (gx#identifier? _%hd182565182589%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd182291182315%_)) + (gx#stx-eq? '%#ref _%hd182565182589%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182292182317%_)) - (let ((_%e182293182320%_ + (gx#stx-pair? _%tl182566182591%_)) + (let ((_%e182567182594%_ (let () (declare (not safe)) - (gx#stx-e _%tl182292182317%_)))) - (let ((_%tl182295182325%_ + (gx#stx-e _%tl182566182591%_)))) + (let ((_%tl182569182599%_ (let () (declare (not safe)) - (##cdr _%e182293182320%_))) - (_%hd182294182323%_ + (##cdr _%e182567182594%_))) + (_%hd182568182597%_ (let () (declare (not safe)) - (##car _%e182293182320%_)))) + (##car _%e182567182594%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182295182325%_)) - (_%__kont189312189313%_ - _%hd182294182323%_) - (_%__kont189314189315%_)))) - (_%__kont189314189315%_)) - (_%__kont189314189315%_)) - (_%__kont189314189315%_)))) - (_%__kont189314189315%_))))) + _%tl182569182599%_)) + (_%__kont189586189587%_ + _%hd182568182597%_) + (_%__kont189588189589%_)))) + (_%__kont189588189589%_)) + (_%__kont189588189589%_)) + (_%__kont189588189589%_)))) + (_%__kont189588189589%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e182124%_) + _%$e182398%_) '#!void))))) - (_%__kont189342189343%_ - (lambda (_%L182001%_ - _%L182002%_ - _%L182003%_) - (_%assert181383%_ + (_%__kont189616189617%_ + (lambda (_%L182275%_ + _%L182276%_ + _%L182277%_) + (_%assert181657%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -8788,44 +8788,44 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L182003%_ + (cons _%L182277%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L182001%_ + (cons _%L182275%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote)) - (cons _%L182002%_ '())) + (cons _%L182276%_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189344189345%_ - (lambda (_%L181893%_ - _%L181894%_ - _%L181895%_) - (let ((_%$e181924%_ + (_%__kont189618189619%_ + (lambda (_%L182167%_ + _%L182168%_ + _%L182169%_) + (let ((_%$e182198%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L181895%_)))) + _%L182169%_)))) (if (or (eq? 'gx#free-identifier=? - _%$e181924%_) + _%$e182198%_) (eq? 'gx#stx-eq? - _%$e181924%_)) - ((lambda (_%sym181930%_) - (_%assert-eqf180378%_ - _%L181894%_ - (_%eqf-symbol180365%_ - _%sym181930%_) - _%L181893%_)) - _%$e181924%_) + _%$e182198%_)) + ((lambda (_%sym182204%_) + (_%assert-eqf180652%_ + _%L182168%_ + (_%eqf-symbol180639%_ + _%sym182204%_) + _%L182167%_)) + _%$e182198%_) '#!void)))) - (_%__kont189346189347%_ - (lambda (_%L181777%_ - _%L181778%_ - _%L181779%_) - (_%assert181383%_ + (_%__kont189620189621%_ + (lambda (_%L182051%_ + _%L182052%_ + _%L182053%_) + (_%assert181657%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -8837,7 +8837,7 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L181779%_ + (cons _%L182053%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -8845,4436 +8845,4436 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L181777%_ '())) + (cons _%L182051%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax)) - (cons _%L181778%_ '())) + (cons _%L182052%_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189348189349%_ - (lambda (_%L181656%_ - _%L181657%_ - _%L181658%_) - (_%assert181383%_ + (_%__kont189622189623%_ + (lambda (_%L181930%_ + _%L181931%_ + _%L181932%_) + (_%assert181657%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L181658%_ - _%L181656%_ - _%L181657%_))))) - (_%__kont189350189351%_ + _%L181932%_ + _%L181930%_ + _%L181931%_))))) + (_%__kont189624189625%_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx189336189337%_)) - (let ((_%e181397182349%_ + (gx#stx-pair? _%__stx189610189611%_)) + (let ((_%e181671182623%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189336189337%_)))) - (let ((_%tl181399182354%_ + _%__stx189610189611%_)))) + (let ((_%tl181673182628%_ (let () (declare (not safe)) - (##cdr _%e181397182349%_))) - (_%hd181398182352%_ + (##cdr _%e181671182623%_))) + (_%hd181672182626%_ (let () (declare (not safe)) - (##car _%e181397182349%_)))) + (##car _%e181671182623%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd181398182352%_)) + _%hd181672182626%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd181398182352%_)) + _%hd181672182626%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181399182354%_)) - (let ((_%e181400182357%_ + _%tl181673182628%_)) + (let ((_%e181674182631%_ (let () (declare (not safe)) (gx#stx-e - _%tl181399182354%_)))) - (let ((_%tl181402182362%_ + _%tl181673182628%_)))) + (let ((_%tl181676182636%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e181400182357%_))) - (_%hd181401182360%_ - (let () (declare (not safe)) (##car _%e181400182357%_)))) + (##cdr _%e181674182631%_))) + (_%hd181675182634%_ + (let () (declare (not safe)) (##car _%e181674182631%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181401182360%_)) - (let ((_%e181403182365%_ + (gx#stx-pair? _%hd181675182634%_)) + (let ((_%e181677182639%_ (let () (declare (not safe)) - (gx#stx-e _%hd181401182360%_)))) - (let ((_%tl181405182370%_ + (gx#stx-e _%hd181675182634%_)))) + (let ((_%tl181679182644%_ (let () (declare (not safe)) - (##cdr _%e181403182365%_))) - (_%hd181404182368%_ + (##cdr _%e181677182639%_))) + (_%hd181678182642%_ (let () (declare (not safe)) - (##car _%e181403182365%_)))) + (##car _%e181677182639%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd181404182368%_)) + (gx#identifier? _%hd181678182642%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd181404182368%_)) + (gx#stx-eq? '%#ref _%hd181678182642%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181405182370%_)) - (let ((_%e181406182373%_ + (gx#stx-pair? _%tl181679182644%_)) + (let ((_%e181680182647%_ (let () (declare (not safe)) - (gx#stx-e _%tl181405182370%_)))) - (let ((_%tl181408182378%_ + (gx#stx-e _%tl181679182644%_)))) + (let ((_%tl181682182652%_ (let () (declare (not safe)) - (##cdr _%e181406182373%_))) - (_%hd181407182376%_ + (##cdr _%e181680182647%_))) + (_%hd181681182650%_ (let () (declare (not safe)) - (##car _%e181406182373%_)))) + (##car _%e181680182647%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181408182378%_)) + _%tl181682182652%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181402182362%_)) - (let ((_%e181409182381%_ + _%tl181676182636%_)) + (let ((_%e181683182655%_ (let () (declare (not safe)) (gx#stx-e - _%tl181402182362%_)))) - (let ((_%tl181411182386%_ + _%tl181676182636%_)))) + (let ((_%tl181685182660%_ (let () (declare (not safe)) - (##cdr _%e181409182381%_))) - (_%hd181410182384%_ + (##cdr _%e181683182655%_))) + (_%hd181684182658%_ (let () (declare (not safe)) - (##car _%e181409182381%_)))) + (##car _%e181683182655%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181410182384%_)) - (let ((_%e181412182389%_ + _%hd181684182658%_)) + (let ((_%e181686182663%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd181410182384%_)))) - (let ((_%tl181414182394%_ + (gx#stx-e _%hd181684182658%_)))) + (let ((_%tl181688182668%_ (let () (declare (not safe)) - (##cdr _%e181412182389%_))) - (_%hd181413182392%_ + (##cdr _%e181686182663%_))) + (_%hd181687182666%_ (let () (declare (not safe)) - (##car _%e181412182389%_)))) + (##car _%e181686182663%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd181413182392%_)) + (gx#identifier? _%hd181687182666%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd181413182392%_)) + (gx#stx-eq? '%#ref _%hd181687182666%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181414182394%_)) - (let ((_%e181415182397%_ + (gx#stx-pair? _%tl181688182668%_)) + (let ((_%e181689182671%_ (let () (declare (not safe)) - (gx#stx-e _%tl181414182394%_)))) - (let ((_%tl181417182402%_ + (gx#stx-e _%tl181688182668%_)))) + (let ((_%tl181691182676%_ (let () (declare (not safe)) - (##cdr _%e181415182397%_))) - (_%hd181416182400%_ + (##cdr _%e181689182671%_))) + (_%hd181690182674%_ (let () (declare (not safe)) - (##car _%e181415182397%_)))) + (##car _%e181689182671%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181417182402%_)) + (gx#stx-null? _%tl181691182676%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181411182386%_)) - (_%__kont189338189339%_ - _%hd181416182400%_ - _%hd181407182376%_) + _%tl181685182660%_)) + (_%__kont189612189613%_ + _%hd181690182674%_ + _%hd181681182650%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181411182386%_)) - (let ((_%e181436182073%_ + _%tl181685182660%_)) + (let ((_%e181710182347%_ (let () (declare (not safe)) (gx#stx-e - _%tl181411182386%_)))) - (let ((_%tl181438182078%_ + _%tl181685182660%_)))) + (let ((_%tl181712182352%_ (let () (declare (not safe)) - (##cdr _%e181436182073%_))) - (_%hd181437182076%_ + (##cdr _%e181710182347%_))) + (_%hd181711182350%_ (let () (declare (not safe)) - (##car _%e181436182073%_)))) + (##car _%e181710182347%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181437182076%_)) - (let ((_%e181439182081%_ + _%hd181711182350%_)) + (let ((_%e181713182355%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd181437182076%_)))) - (let ((_%tl181441182086%_ + (gx#stx-e _%hd181711182350%_)))) + (let ((_%tl181715182360%_ (let () (declare (not safe)) - (##cdr _%e181439182081%_))) - (_%hd181440182084%_ + (##cdr _%e181713182355%_))) + (_%hd181714182358%_ (let () (declare (not safe)) - (##car _%e181439182081%_)))) + (##car _%e181713182355%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd181440182084%_)) + (gx#identifier? _%hd181714182358%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd181440182084%_)) + (gx#stx-eq? '%#quote _%hd181714182358%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181441182086%_)) - (let ((_%e181442182089%_ + (gx#stx-pair? _%tl181715182360%_)) + (let ((_%e181716182363%_ (let () (declare (not safe)) - (gx#stx-e _%tl181441182086%_)))) - (let ((_%tl181444182094%_ + (gx#stx-e _%tl181715182360%_)))) + (let ((_%tl181718182368%_ (let () (declare (not safe)) - (##cdr _%e181442182089%_))) - (_%hd181443182092%_ + (##cdr _%e181716182363%_))) + (_%hd181717182366%_ (let () (declare (not safe)) - (##car _%e181442182089%_)))) + (##car _%e181716182363%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181444182094%_)) + (gx#stx-null? _%tl181718182368%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181438182078%_)) - (_%__kont189340189341%_ - _%hd181443182092%_ - _%hd181410182384%_ - _%hd181407182376%_) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))) - (_%__kont189350189351%_)) + _%tl181712182352%_)) + (_%__kont189614189615%_ + _%hd181717182366%_ + _%hd181684182658%_ + _%hd181681182650%_) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))) + (_%__kont189624189625%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd181440182084%_)) + _%hd181714182358%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181441182086%_)) - (let ((_%e181502181885%_ + (gx#stx-pair? _%tl181715182360%_)) + (let ((_%e181776182159%_ (let () (declare (not safe)) - (gx#stx-e _%tl181441182086%_)))) - (let ((_%tl181504181890%_ + (gx#stx-e _%tl181715182360%_)))) + (let ((_%tl181778182164%_ (let () (declare (not safe)) - (##cdr _%e181502181885%_))) - (_%hd181503181888%_ + (##cdr _%e181776182159%_))) + (_%hd181777182162%_ (let () (declare (not safe)) - (##car _%e181502181885%_)))) + (##car _%e181776182159%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181504181890%_)) + _%tl181778182164%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181438182078%_)) - (_%__kont189344189345%_ - _%hd181503181888%_ - _%hd181416182400%_ - _%hd181407182376%_) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))) - (_%__kont189350189351%_)) - (_%__kont189350189351%_))) - (_%__kont189350189351%_)))) - (_%__kont189350189351%_)))) + _%tl181712182352%_)) + (_%__kont189618189619%_ + _%hd181777182162%_ + _%hd181690182674%_ + _%hd181681182650%_) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))) + (_%__kont189624189625%_)) + (_%__kont189624189625%_))) + (_%__kont189624189625%_)))) + (_%__kont189624189625%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189350189351%_))) + (_%__kont189624189625%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181411182386%_)) - (let ((_%e181436182073%_ + _%tl181685182660%_)) + (let ((_%e181710182347%_ (let () (declare (not safe)) (gx#stx-e - _%tl181411182386%_)))) - (let ((_%tl181438182078%_ + _%tl181685182660%_)))) + (let ((_%tl181712182352%_ (let () (declare (not safe)) - (##cdr _%e181436182073%_))) - (_%hd181437182076%_ + (##cdr _%e181710182347%_))) + (_%hd181711182350%_ (let () (declare (not safe)) - (##car _%e181436182073%_)))) + (##car _%e181710182347%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181437182076%_)) - (let ((_%e181439182081%_ + _%hd181711182350%_)) + (let ((_%e181713182355%_ (let () (declare (not safe)) (gx#stx-e - _%hd181437182076%_)))) - (let ((_%tl181441182086%_ + _%hd181711182350%_)))) + (let ((_%tl181715182360%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e181439182081%_))) - (_%hd181440182084%_ - (let () (declare (not safe)) (##car _%e181439182081%_)))) + (##cdr _%e181713182355%_))) + (_%hd181714182358%_ + (let () (declare (not safe)) (##car _%e181713182355%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd181440182084%_)) + (gx#identifier? _%hd181714182358%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd181440182084%_)) + (gx#stx-eq? '%#quote _%hd181714182358%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181441182086%_)) - (let ((_%e181442182089%_ + (gx#stx-pair? _%tl181715182360%_)) + (let ((_%e181716182363%_ (let () (declare (not safe)) - (gx#stx-e _%tl181441182086%_)))) - (let ((_%tl181444182094%_ + (gx#stx-e _%tl181715182360%_)))) + (let ((_%tl181718182368%_ (let () (declare (not safe)) - (##cdr _%e181442182089%_))) - (_%hd181443182092%_ + (##cdr _%e181716182363%_))) + (_%hd181717182366%_ (let () (declare (not safe)) - (##car _%e181442182089%_)))) + (##car _%e181716182363%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181444182094%_)) + (gx#stx-null? _%tl181718182368%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181438182078%_)) - (_%__kont189340189341%_ - _%hd181443182092%_ - _%hd181410182384%_ - _%hd181407182376%_) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))) + (gx#stx-null? _%tl181712182352%_)) + (_%__kont189614189615%_ + _%hd181717182366%_ + _%hd181684182658%_ + _%hd181681182650%_) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189350189351%_)))) - (_%__kont189350189351%_))))) + (_%__kont189624189625%_)))) + (_%__kont189624189625%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181411182386%_)) - (let ((_%e181436182073%_ + (gx#stx-pair? _%tl181685182660%_)) + (let ((_%e181710182347%_ (let () (declare (not safe)) - (gx#stx-e _%tl181411182386%_)))) - (let ((_%tl181438182078%_ + (gx#stx-e _%tl181685182660%_)))) + (let ((_%tl181712182352%_ (let () (declare (not safe)) - (##cdr _%e181436182073%_))) - (_%hd181437182076%_ + (##cdr _%e181710182347%_))) + (_%hd181711182350%_ (let () (declare (not safe)) - (##car _%e181436182073%_)))) + (##car _%e181710182347%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181437182076%_)) - (let ((_%e181439182081%_ + _%hd181711182350%_)) + (let ((_%e181713182355%_ (let () (declare (not safe)) (gx#stx-e - _%hd181437182076%_)))) - (let ((_%tl181441182086%_ + _%hd181711182350%_)))) + (let ((_%tl181715182360%_ (let () (declare (not safe)) - (##cdr _%e181439182081%_))) - (_%hd181440182084%_ + (##cdr _%e181713182355%_))) + (_%hd181714182358%_ (let () (declare (not safe)) - (##car _%e181439182081%_)))) + (##car _%e181713182355%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd181440182084%_)) + _%hd181714182358%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd181440182084%_)) + _%hd181714182358%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl181441182086%_)) - (let ((_%e181442182089%_ + (gx#stx-pair? _%tl181715182360%_)) + (let ((_%e181716182363%_ (let () (declare (not safe)) - (gx#stx-e _%tl181441182086%_)))) - (let ((_%tl181444182094%_ + (gx#stx-e _%tl181715182360%_)))) + (let ((_%tl181718182368%_ (let () (declare (not safe)) - (##cdr _%e181442182089%_))) - (_%hd181443182092%_ + (##cdr _%e181716182363%_))) + (_%hd181717182366%_ (let () (declare (not safe)) - (##car _%e181442182089%_)))) + (##car _%e181716182363%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181444182094%_)) + (gx#stx-null? _%tl181718182368%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181438182078%_)) - (_%__kont189340189341%_ - _%hd181443182092%_ - _%hd181410182384%_ - _%hd181407182376%_) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)) + (gx#stx-null? _%tl181712182352%_)) + (_%__kont189614189615%_ + _%hd181717182366%_ + _%hd181684182658%_ + _%hd181681182650%_) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189350189351%_)))) - (_%__kont189350189351%_)))) - (_%__kont189350189351%_))) + (_%__kont189624189625%_)))) + (_%__kont189624189625%_)))) + (_%__kont189624189625%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181411182386%_)) - (let ((_%e181436182073%_ + (gx#stx-pair? _%tl181685182660%_)) + (let ((_%e181710182347%_ (let () (declare (not safe)) - (gx#stx-e _%tl181411182386%_)))) - (let ((_%tl181438182078%_ + (gx#stx-e _%tl181685182660%_)))) + (let ((_%tl181712182352%_ (let () (declare (not safe)) - (##cdr _%e181436182073%_))) - (_%hd181437182076%_ + (##cdr _%e181710182347%_))) + (_%hd181711182350%_ (let () (declare (not safe)) - (##car _%e181436182073%_)))) + (##car _%e181710182347%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181437182076%_)) - (let ((_%e181439182081%_ + (gx#stx-pair? _%hd181711182350%_)) + (let ((_%e181713182355%_ (let () (declare (not safe)) (gx#stx-e - _%hd181437182076%_)))) - (let ((_%tl181441182086%_ + _%hd181711182350%_)))) + (let ((_%tl181715182360%_ (let () (declare (not safe)) - (##cdr _%e181439182081%_))) - (_%hd181440182084%_ + (##cdr _%e181713182355%_))) + (_%hd181714182358%_ (let () (declare (not safe)) - (##car _%e181439182081%_)))) + (##car _%e181713182355%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd181440182084%_)) + _%hd181714182358%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd181440182084%_)) + _%hd181714182358%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181441182086%_)) - (let ((_%e181442182089%_ + _%tl181715182360%_)) + (let ((_%e181716182363%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl181441182086%_)))) - (let ((_%tl181444182094%_ + (gx#stx-e _%tl181715182360%_)))) + (let ((_%tl181718182368%_ (let () (declare (not safe)) - (##cdr _%e181442182089%_))) - (_%hd181443182092%_ + (##cdr _%e181716182363%_))) + (_%hd181717182366%_ (let () (declare (not safe)) - (##car _%e181442182089%_)))) + (##car _%e181716182363%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181444182094%_)) + (gx#stx-null? _%tl181718182368%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181438182078%_)) - (_%__kont189340189341%_ - _%hd181443182092%_ - _%hd181410182384%_ - _%hd181407182376%_) + (gx#stx-null? _%tl181712182352%_)) + (_%__kont189614189615%_ + _%hd181717182366%_ + _%hd181684182658%_ + _%hd181681182650%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd181413182392%_)) + (gx#stx-eq? '%#quote _%hd181687182666%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181414182394%_)) - (let ((_%e181466181985%_ + (gx#stx-pair? _%tl181688182668%_)) + (let ((_%e181740182259%_ (let () (declare (not safe)) - (gx#stx-e _%tl181414182394%_)))) - (let ((_%tl181468181990%_ + (gx#stx-e _%tl181688182668%_)))) + (let ((_%tl181742182264%_ (let () (declare (not safe)) - (##cdr _%e181466181985%_))) - (_%hd181467181988%_ + (##cdr _%e181740182259%_))) + (_%hd181741182262%_ (let () (declare (not safe)) - (##car _%e181466181985%_)))) - (_%__kont189350189351%_))) - (_%__kont189350189351%_)) + (##car _%e181740182259%_)))) + (_%__kont189624189625%_))) + (_%__kont189624189625%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd181413182392%_)) + _%hd181687182666%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181414182394%_)) - (let ((_%e181526181745%_ + (gx#stx-pair? _%tl181688182668%_)) + (let ((_%e181800182019%_ (let () (declare (not safe)) (gx#stx-e - _%tl181414182394%_)))) - (let ((_%tl181528181750%_ + _%tl181688182668%_)))) + (let ((_%tl181802182024%_ (let () (declare (not safe)) - (##cdr _%e181526181745%_))) - (_%hd181527181748%_ + (##cdr _%e181800182019%_))) + (_%hd181801182022%_ (let () (declare (not safe)) - (##car _%e181526181745%_)))) - (_%__kont189350189351%_))) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))) + (##car _%e181800182019%_)))) + (_%__kont189624189625%_))) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd181413182392%_)) + (gx#stx-eq? '%#quote _%hd181687182666%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181414182394%_)) - (let ((_%e181466181985%_ + (gx#stx-pair? _%tl181688182668%_)) + (let ((_%e181740182259%_ (let () (declare (not safe)) - (gx#stx-e _%tl181414182394%_)))) - (let ((_%tl181468181990%_ + (gx#stx-e _%tl181688182668%_)))) + (let ((_%tl181742182264%_ (let () (declare (not safe)) - (##cdr _%e181466181985%_))) - (_%hd181467181988%_ + (##cdr _%e181740182259%_))) + (_%hd181741182262%_ (let () (declare (not safe)) - (##car _%e181466181985%_)))) + (##car _%e181740182259%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181468181990%_)) + (gx#stx-null? _%tl181742182264%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181438182078%_)) - (_%__kont189342189343%_ - _%hd181437182076%_ - _%hd181467181988%_ - _%hd181407182376%_) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))) - (_%__kont189350189351%_)) + _%tl181712182352%_)) + (_%__kont189616189617%_ + _%hd181711182350%_ + _%hd181741182262%_ + _%hd181681182650%_) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))) + (_%__kont189624189625%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd181413182392%_)) + _%hd181687182666%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181414182394%_)) - (let ((_%e181526181745%_ + (gx#stx-pair? _%tl181688182668%_)) + (let ((_%e181800182019%_ (let () (declare (not safe)) - (gx#stx-e _%tl181414182394%_)))) - (let ((_%tl181528181750%_ + (gx#stx-e _%tl181688182668%_)))) + (let ((_%tl181802182024%_ (let () (declare (not safe)) - (##cdr _%e181526181745%_))) - (_%hd181527181748%_ + (##cdr _%e181800182019%_))) + (_%hd181801182022%_ (let () (declare (not safe)) - (##car _%e181526181745%_)))) - (_%__kont189350189351%_))) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))))) + (##car _%e181800182019%_)))) + (_%__kont189624189625%_))) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd181413182392%_)) + (gx#stx-eq? '%#quote _%hd181687182666%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181414182394%_)) - (let ((_%e181466181985%_ + (gx#stx-pair? _%tl181688182668%_)) + (let ((_%e181740182259%_ (let () (declare (not safe)) - (gx#stx-e _%tl181414182394%_)))) - (let ((_%tl181468181990%_ + (gx#stx-e _%tl181688182668%_)))) + (let ((_%tl181742182264%_ (let () (declare (not safe)) - (##cdr _%e181466181985%_))) - (_%hd181467181988%_ + (##cdr _%e181740182259%_))) + (_%hd181741182262%_ (let () (declare (not safe)) - (##car _%e181466181985%_)))) + (##car _%e181740182259%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181468181990%_)) + (gx#stx-null? _%tl181742182264%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181438182078%_)) - (_%__kont189342189343%_ - _%hd181437182076%_ - _%hd181467181988%_ - _%hd181407182376%_) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))) - (_%__kont189350189351%_)) + (gx#stx-null? _%tl181712182352%_)) + (_%__kont189616189617%_ + _%hd181711182350%_ + _%hd181741182262%_ + _%hd181681182650%_) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))) + (_%__kont189624189625%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd181413182392%_)) + (gx#stx-eq? '%#quote-syntax _%hd181687182666%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181414182394%_)) - (let ((_%e181526181745%_ + (gx#stx-pair? _%tl181688182668%_)) + (let ((_%e181800182019%_ (let () (declare (not safe)) - (gx#stx-e _%tl181414182394%_)))) - (let ((_%tl181528181750%_ + (gx#stx-e _%tl181688182668%_)))) + (let ((_%tl181802182024%_ (let () (declare (not safe)) - (##cdr _%e181526181745%_))) - (_%hd181527181748%_ + (##cdr _%e181800182019%_))) + (_%hd181801182022%_ (let () (declare (not safe)) - (##car _%e181526181745%_)))) - (_%__kont189350189351%_))) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))) + (##car _%e181800182019%_)))) + (_%__kont189624189625%_))) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd181413182392%_)) + _%hd181687182666%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl181414182394%_)) - (let ((_%e181466181985%_ + (gx#stx-pair? _%tl181688182668%_)) + (let ((_%e181740182259%_ (let () (declare (not safe)) - (gx#stx-e _%tl181414182394%_)))) - (let ((_%tl181468181990%_ + (gx#stx-e _%tl181688182668%_)))) + (let ((_%tl181742182264%_ (let () (declare (not safe)) - (##cdr _%e181466181985%_))) - (_%hd181467181988%_ + (##cdr _%e181740182259%_))) + (_%hd181741182262%_ (let () (declare (not safe)) - (##car _%e181466181985%_)))) + (##car _%e181740182259%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181468181990%_)) + (gx#stx-null? _%tl181742182264%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181438182078%_)) - (_%__kont189342189343%_ - _%hd181437182076%_ - _%hd181467181988%_ - _%hd181407182376%_) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))) - (_%__kont189350189351%_)) + (gx#stx-null? _%tl181712182352%_)) + (_%__kont189616189617%_ + _%hd181711182350%_ + _%hd181741182262%_ + _%hd181681182650%_) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))) + (_%__kont189624189625%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd181413182392%_)) + (gx#stx-eq? '%#quote-syntax _%hd181687182666%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181414182394%_)) - (let ((_%e181526181745%_ + (gx#stx-pair? _%tl181688182668%_)) + (let ((_%e181800182019%_ (let () (declare (not safe)) - (gx#stx-e _%tl181414182394%_)))) - (let ((_%tl181528181750%_ + (gx#stx-e _%tl181688182668%_)))) + (let ((_%tl181802182024%_ (let () (declare (not safe)) - (##cdr _%e181526181745%_))) - (_%hd181527181748%_ + (##cdr _%e181800182019%_))) + (_%hd181801182022%_ (let () (declare (not safe)) - (##car _%e181526181745%_)))) + (##car _%e181800182019%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181528181750%_)) + (gx#stx-null? _%tl181802182024%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd181440182084%_)) + (gx#stx-eq? '%#ref _%hd181714182358%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181441182086%_)) - (let ((_%e181535181769%_ + (gx#stx-pair? _%tl181715182360%_)) + (let ((_%e181809182043%_ (let () (declare (not safe)) (gx#stx-e - _%tl181441182086%_)))) - (let ((_%tl181537181774%_ + _%tl181715182360%_)))) + (let ((_%tl181811182048%_ (let () (declare (not safe)) - (##cdr _%e181535181769%_))) - (_%hd181536181772%_ + (##cdr _%e181809182043%_))) + (_%hd181810182046%_ (let () (declare (not safe)) - (##car _%e181535181769%_)))) + (##car _%e181809182043%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181537181774%_)) + _%tl181811182048%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181438182078%_)) - (_%__kont189346189347%_ - _%hd181536181772%_ - _%hd181527181748%_ - _%hd181407182376%_) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))) + _%tl181712182352%_)) + (_%__kont189620189621%_ + _%hd181810182046%_ + _%hd181801182022%_ + _%hd181681182650%_) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd181413182392%_)) + _%hd181687182666%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181414182394%_)) - (let ((_%e181466181985%_ + _%tl181688182668%_)) + (let ((_%e181740182259%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl181414182394%_)))) - (let ((_%tl181468181990%_ + (gx#stx-e _%tl181688182668%_)))) + (let ((_%tl181742182264%_ (let () (declare (not safe)) - (##cdr _%e181466181985%_))) - (_%hd181467181988%_ + (##cdr _%e181740182259%_))) + (_%hd181741182262%_ (let () (declare (not safe)) - (##car _%e181466181985%_)))) + (##car _%e181740182259%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181468181990%_)) + (gx#stx-null? _%tl181742182264%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181438182078%_)) - (_%__kont189342189343%_ - _%hd181437182076%_ - _%hd181467181988%_ - _%hd181407182376%_) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))) - (_%__kont189350189351%_)) + (gx#stx-null? _%tl181712182352%_)) + (_%__kont189616189617%_ + _%hd181711182350%_ + _%hd181741182262%_ + _%hd181681182650%_) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))) + (_%__kont189624189625%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd181413182392%_)) + _%hd181687182666%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl181414182394%_)) - (let ((_%e181526181745%_ + (gx#stx-pair? _%tl181688182668%_)) + (let ((_%e181800182019%_ (let () (declare (not safe)) - (gx#stx-e _%tl181414182394%_)))) - (let ((_%tl181528181750%_ + (gx#stx-e _%tl181688182668%_)))) + (let ((_%tl181802182024%_ (let () (declare (not safe)) - (##cdr _%e181526181745%_))) - (_%hd181527181748%_ + (##cdr _%e181800182019%_))) + (_%hd181801182022%_ (let () (declare (not safe)) - (##car _%e181526181745%_)))) - (_%__kont189350189351%_))) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))))) + (##car _%e181800182019%_)))) + (_%__kont189624189625%_))) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd181413182392%_)) + _%hd181687182666%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181414182394%_)) - (let ((_%e181466181985%_ + _%tl181688182668%_)) + (let ((_%e181740182259%_ (let () (declare (not safe)) (gx#stx-e - _%tl181414182394%_)))) - (let ((_%tl181468181990%_ + _%tl181688182668%_)))) + (let ((_%tl181742182264%_ (let () (declare (not safe)) - (##cdr _%e181466181985%_))) - (_%hd181467181988%_ + (##cdr _%e181740182259%_))) + (_%hd181741182262%_ (let () (declare (not safe)) - (##car _%e181466181985%_)))) + (##car _%e181740182259%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181468181990%_)) + _%tl181742182264%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl181438182078%_)) - (_%__kont189342189343%_ - _%hd181437182076%_ - _%hd181467181988%_ - _%hd181407182376%_) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))) + (gx#stx-null? _%tl181712182352%_)) + (_%__kont189616189617%_ + _%hd181711182350%_ + _%hd181741182262%_ + _%hd181681182650%_) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189350189351%_)) + (_%__kont189624189625%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd181413182392%_)) + _%hd181687182666%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181414182394%_)) - (let ((_%e181526181745%_ + _%tl181688182668%_)) + (let ((_%e181800182019%_ (let () (declare (not safe)) (gx#stx-e - _%tl181414182394%_)))) - (let ((_%tl181528181750%_ + _%tl181688182668%_)))) + (let ((_%tl181802182024%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e181526181745%_))) - (_%hd181527181748%_ - (let () (declare (not safe)) (##car _%e181526181745%_)))) - (_%__kont189350189351%_))) + (##cdr _%e181800182019%_))) + (_%hd181801182022%_ + (let () (declare (not safe)) (##car _%e181800182019%_)))) + (_%__kont189624189625%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))))) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd181413182392%_)) + _%hd181687182666%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181414182394%_)) - (let ((_%e181466181985%_ + (gx#stx-pair? _%tl181688182668%_)) + (let ((_%e181740182259%_ (let () (declare (not safe)) (gx#stx-e - _%tl181414182394%_)))) - (let ((_%tl181468181990%_ + _%tl181688182668%_)))) + (let ((_%tl181742182264%_ (let () (declare (not safe)) - (##cdr _%e181466181985%_))) - (_%hd181467181988%_ + (##cdr _%e181740182259%_))) + (_%hd181741182262%_ (let () (declare (not safe)) - (##car _%e181466181985%_)))) - (_%__kont189350189351%_))) - (_%__kont189350189351%_)) + (##car _%e181740182259%_)))) + (_%__kont189624189625%_))) + (_%__kont189624189625%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd181413182392%_)) + _%hd181687182666%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181414182394%_)) - (let ((_%e181526181745%_ + _%tl181688182668%_)) + (let ((_%e181800182019%_ (let () (declare (not safe)) (gx#stx-e - _%tl181414182394%_)))) - (let ((_%tl181528181750%_ + _%tl181688182668%_)))) + (let ((_%tl181802182024%_ (let () (declare (not safe)) - (##cdr _%e181526181745%_))) - (_%hd181527181748%_ + (##cdr _%e181800182019%_))) + (_%hd181801182022%_ (let () (declare (not safe)) - (##car _%e181526181745%_)))) - (_%__kont189350189351%_))) - (_%__kont189350189351%_)) - (_%__kont189350189351%_))))) + (##car _%e181800182019%_)))) + (_%__kont189624189625%_))) + (_%__kont189624189625%_)) + (_%__kont189624189625%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181411182386%_)) - (let ((_%e181436182073%_ + (gx#stx-pair? _%tl181685182660%_)) + (let ((_%e181710182347%_ (let () (declare (not safe)) - (gx#stx-e _%tl181411182386%_)))) - (let ((_%tl181438182078%_ + (gx#stx-e _%tl181685182660%_)))) + (let ((_%tl181712182352%_ (let () (declare (not safe)) - (##cdr _%e181436182073%_))) - (_%hd181437182076%_ + (##cdr _%e181710182347%_))) + (_%hd181711182350%_ (let () (declare (not safe)) - (##car _%e181436182073%_)))) + (##car _%e181710182347%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181437182076%_)) - (let ((_%e181439182081%_ + (gx#stx-pair? _%hd181711182350%_)) + (let ((_%e181713182355%_ (let () (declare (not safe)) - (gx#stx-e _%hd181437182076%_)))) - (let ((_%tl181441182086%_ + (gx#stx-e _%hd181711182350%_)))) + (let ((_%tl181715182360%_ (let () (declare (not safe)) - (##cdr _%e181439182081%_))) - (_%hd181440182084%_ + (##cdr _%e181713182355%_))) + (_%hd181714182358%_ (let () (declare (not safe)) - (##car _%e181439182081%_)))) + (##car _%e181713182355%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd181440182084%_)) + _%hd181714182358%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd181440182084%_)) + _%hd181714182358%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181441182086%_)) - (let ((_%e181442182089%_ + _%tl181715182360%_)) + (let ((_%e181716182363%_ (let () (declare (not safe)) (gx#stx-e - _%tl181441182086%_)))) - (let ((_%tl181444182094%_ + _%tl181715182360%_)))) + (let ((_%tl181718182368%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e181442182089%_))) - (_%hd181443182092%_ - (let () (declare (not safe)) (##car _%e181442182089%_)))) + (##cdr _%e181716182363%_))) + (_%hd181717182366%_ + (let () (declare (not safe)) (##car _%e181716182363%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181444182094%_)) + (gx#stx-null? _%tl181718182368%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181438182078%_)) - (_%__kont189340189341%_ - _%hd181443182092%_ - _%hd181410182384%_ - _%hd181407182376%_) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))) + (gx#stx-null? _%tl181712182352%_)) + (_%__kont189614189615%_ + _%hd181717182366%_ + _%hd181684182658%_ + _%hd181681182650%_) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189350189351%_)) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))) - (_%__kont189350189351%_)))) - (_%__kont189350189351%_))))) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))) + (_%__kont189624189625%_)))) + (_%__kont189624189625%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181411182386%_)) - (let ((_%e181436182073%_ + (gx#stx-pair? _%tl181685182660%_)) + (let ((_%e181710182347%_ (let () (declare (not safe)) - (gx#stx-e _%tl181411182386%_)))) - (let ((_%tl181438182078%_ + (gx#stx-e _%tl181685182660%_)))) + (let ((_%tl181712182352%_ (let () (declare (not safe)) - (##cdr _%e181436182073%_))) - (_%hd181437182076%_ + (##cdr _%e181710182347%_))) + (_%hd181711182350%_ (let () (declare (not safe)) - (##car _%e181436182073%_)))) + (##car _%e181710182347%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181437182076%_)) - (let ((_%e181439182081%_ + (gx#stx-pair? _%hd181711182350%_)) + (let ((_%e181713182355%_ (let () (declare (not safe)) - (gx#stx-e _%hd181437182076%_)))) - (let ((_%tl181441182086%_ + (gx#stx-e _%hd181711182350%_)))) + (let ((_%tl181715182360%_ (let () (declare (not safe)) - (##cdr _%e181439182081%_))) - (_%hd181440182084%_ + (##cdr _%e181713182355%_))) + (_%hd181714182358%_ (let () (declare (not safe)) - (##car _%e181439182081%_)))) + (##car _%e181713182355%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd181440182084%_)) + (gx#identifier? _%hd181714182358%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd181440182084%_)) + _%hd181714182358%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181441182086%_)) - (let ((_%e181442182089%_ + _%tl181715182360%_)) + (let ((_%e181716182363%_ (let () (declare (not safe)) (gx#stx-e - _%tl181441182086%_)))) - (let ((_%tl181444182094%_ + _%tl181715182360%_)))) + (let ((_%tl181718182368%_ (let () (declare (not safe)) - (##cdr _%e181442182089%_))) - (_%hd181443182092%_ + (##cdr _%e181716182363%_))) + (_%hd181717182366%_ (let () (declare (not safe)) - (##car _%e181442182089%_)))) + (##car _%e181716182363%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181444182094%_)) + _%tl181718182368%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181438182078%_)) - (_%__kont189340189341%_ - _%hd181443182092%_ - _%hd181410182384%_ - _%hd181407182376%_) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))) - (_%__kont189350189351%_)))) - (_%__kont189350189351%_))))) + _%tl181712182352%_)) + (_%__kont189614189615%_ + _%hd181717182366%_ + _%hd181684182658%_ + _%hd181681182650%_) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))) + (_%__kont189624189625%_)))) + (_%__kont189624189625%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))) - (_%__kont189350189351%_)) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))) + (_%__kont189624189625%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd181404182368%_)) + _%hd181678182642%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181405182370%_)) - (let ((_%e181550181608%_ + (gx#stx-pair? _%tl181679182644%_)) + (let ((_%e181824181882%_ (let () (declare (not safe)) (gx#stx-e - _%tl181405182370%_)))) - (let ((_%tl181552181613%_ + _%tl181679182644%_)))) + (let ((_%tl181826181887%_ (let () (declare (not safe)) - (##cdr _%e181550181608%_))) - (_%hd181551181611%_ + (##cdr _%e181824181882%_))) + (_%hd181825181885%_ (let () (declare (not safe)) - (##car _%e181550181608%_)))) + (##car _%e181824181882%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181551181611%_)) - (let ((_%e181553181616%_ + _%hd181825181885%_)) + (let ((_%e181827181890%_ (let () (declare (not safe)) (gx#stx-e - _%hd181551181611%_)))) - (let ((_%tl181555181621%_ + _%hd181825181885%_)))) + (let ((_%tl181829181895%_ (let () (declare (not safe)) - (##cdr _%e181553181616%_))) - (_%hd181554181619%_ + (##cdr _%e181827181890%_))) + (_%hd181828181893%_ (let () (declare (not safe)) - (##car _%e181553181616%_)))) + (##car _%e181827181890%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181555181621%_)) + _%tl181829181895%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl181552181613%_)) - (let ((_%e181556181624%_ + (gx#stx-pair? _%tl181826181887%_)) + (let ((_%e181830181898%_ (let () (declare (not safe)) - (gx#stx-e _%tl181552181613%_)))) - (let ((_%tl181558181629%_ + (gx#stx-e _%tl181826181887%_)))) + (let ((_%tl181832181903%_ (let () (declare (not safe)) - (##cdr _%e181556181624%_))) - (_%hd181557181627%_ + (##cdr _%e181830181898%_))) + (_%hd181831181901%_ (let () (declare (not safe)) - (##car _%e181556181624%_)))) + (##car _%e181830181898%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181558181629%_)) + (gx#stx-null? _%tl181832181903%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181402182362%_)) - (let ((_%e181559181632%_ + (gx#stx-pair? _%tl181676182636%_)) + (let ((_%e181833181906%_ (let () (declare (not safe)) - (gx#stx-e _%tl181402182362%_)))) - (let ((_%tl181561181637%_ + (gx#stx-e _%tl181676182636%_)))) + (let ((_%tl181835181911%_ (let () (declare (not safe)) - (##cdr _%e181559181632%_))) - (_%hd181560181635%_ + (##cdr _%e181833181906%_))) + (_%hd181834181909%_ (let () (declare (not safe)) - (##car _%e181559181632%_)))) + (##car _%e181833181906%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181560181635%_)) - (let ((_%e181562181640%_ + (gx#stx-pair? _%hd181834181909%_)) + (let ((_%e181836181914%_ (let () (declare (not safe)) (gx#stx-e - _%hd181560181635%_)))) - (let ((_%tl181564181645%_ + _%hd181834181909%_)))) + (let ((_%tl181838181919%_ (let () (declare (not safe)) - (##cdr _%e181562181640%_))) - (_%hd181563181643%_ + (##cdr _%e181836181914%_))) + (_%hd181837181917%_ (let () (declare (not safe)) - (##car _%e181562181640%_)))) + (##car _%e181836181914%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd181563181643%_)) + _%hd181837181917%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd181563181643%_)) + _%hd181837181917%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181564181645%_)) - (let ((_%e181565181648%_ + _%tl181838181919%_)) + (let ((_%e181839181922%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl181564181645%_)))) - (let ((_%tl181567181653%_ + (gx#stx-e _%tl181838181919%_)))) + (let ((_%tl181841181927%_ (let () (declare (not safe)) - (##cdr _%e181565181648%_))) - (_%hd181566181651%_ + (##cdr _%e181839181922%_))) + (_%hd181840181925%_ (let () (declare (not safe)) - (##car _%e181565181648%_)))) + (##car _%e181839181922%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181567181653%_)) + (gx#stx-null? _%tl181841181927%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181561181637%_)) - (_%__kont189348189349%_ - _%hd181566181651%_ - _%hd181557181627%_ - _%hd181554181619%_) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))) - (_%__kont189350189351%_)) + (gx#stx-null? _%tl181835181911%_)) + (_%__kont189622189623%_ + _%hd181840181925%_ + _%hd181831181901%_ + _%hd181828181893%_) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))) + (_%__kont189624189625%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))) - (_%__kont189350189351%_)))) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))) + (_%__kont189624189625%_)))) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189350189351%_)))) - (_%__kont189350189351%_)) - (_%__kont189350189351%_))) - (_%__kont189350189351%_)))) - (_%__kont189350189351%_)))) + (_%__kont189624189625%_)))) + (_%__kont189624189625%_)) + (_%__kont189624189625%_))) + (_%__kont189624189625%_)))) + (_%__kont189624189625%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189350189351%_)) - (_%__kont189350189351%_)) - (_%__kont189350189351%_)))) - (_%__kont189350189351%_))))))))) - (_%assert-type180376%_ - (lambda (_%id181282%_ _%t181283%_) - (let _%lp181285%_ ((_%rest181287%_ _%env-type180358%_)) - (let* ((_%rest181288181296%_ _%rest181287%_) - (_%else181290181304%_ (lambda () '#!void)) - (_%K181292181363%_ - (lambda (_%rest181307%_ _%type-info181308%_) - (let* ((_%type-info181309181321%_ - _%type-info181308%_) - (_%else181311181329%_ + (_%__kont189624189625%_)) + (_%__kont189624189625%_)) + (_%__kont189624189625%_)))) + (_%__kont189624189625%_))))))))) + (_%assert-type180650%_ + (lambda (_%id181556%_ _%t181557%_) + (let _%lp181559%_ ((_%rest181561%_ _%env-type180632%_)) + (let* ((_%rest181562181570%_ _%rest181561%_) + (_%else181564181578%_ (lambda () '#!void)) + (_%K181566181637%_ + (lambda (_%rest181581%_ _%type-info181582%_) + (let* ((_%type-info181583181595%_ + _%type-info181582%_) + (_%else181585181603%_ (lambda () - (_%lp181285%_ _%rest181307%_))) - (_%K181313181339%_ - (lambda (_%val181332%_ - _%xt181333%_ - _%xid181334%_) + (_%lp181559%_ _%rest181581%_))) + (_%K181587181613%_ + (lambda (_%val181606%_ + _%xt181607%_ + _%xid181608%_) (if (let () (declare (not safe)) (gx#free-identifier=? - _%id181282%_ - _%xid181334%_)) - (if (eq? _%t181283%_ - _%xt181333%_) - _%val181332%_ - (if _%val181332%_ + _%id181556%_ + _%xid181608%_)) + (if (eq? _%t181557%_ + _%xt181607%_) + _%val181606%_ + (if _%val181606%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%t181283%_ + _%t181557%_ 'gxc#!class::t)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure-instance-of? - _%xt181333%_ + _%xt181607%_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-subclass? _%t181283%_ _%xt181333%_)) + (gxc#!class-subclass? _%t181557%_ _%xt181607%_)) '#f) '#f) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%t181283%_ + _%t181557%_ 'gxc#!class::t)) (let () (declare (not safe)) (##structure-instance-of? - _%xt181333%_ + _%xt181607%_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-subclass? _%t181283%_ _%xt181333%_))) + (gxc#!class-subclass? _%t181557%_ _%xt181607%_))) '#f - (_%lp181285%_ _%rest181307%_)))) + (_%lp181559%_ _%rest181581%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp181285%_ - _%rest181307%_))))) + (_%lp181559%_ + _%rest181581%_))))) (if (let () (declare (not safe)) - (##pair? _%type-info181309181321%_)) - (let ((_%hd181314181342%_ + (##pair? _%type-info181583181595%_)) + (let ((_%hd181588181616%_ (let () (declare (not safe)) - (##car _%type-info181309181321%_))) - (_%tl181315181344%_ + (##car _%type-info181583181595%_))) + (_%tl181589181618%_ (let () (declare (not safe)) - (##cdr _%type-info181309181321%_)))) - (let ((_%xid181347%_ - _%hd181314181342%_)) + (##cdr _%type-info181583181595%_)))) + (let ((_%xid181621%_ + _%hd181588181616%_)) (if (let () (declare (not safe)) - (##pair? _%tl181315181344%_)) - (let ((_%hd181316181349%_ + (##pair? _%tl181589181618%_)) + (let ((_%hd181590181623%_ (let () (declare (not safe)) - (##car _%tl181315181344%_))) - (_%tl181317181351%_ + (##car _%tl181589181618%_))) + (_%tl181591181625%_ (let () (declare (not safe)) - (##cdr _%tl181315181344%_)))) - (let ((_%xt181354%_ - _%hd181316181349%_)) + (##cdr _%tl181589181618%_)))) + (let ((_%xt181628%_ + _%hd181590181623%_)) (if (let () (declare (not safe)) - (##pair? _%tl181317181351%_)) - (let ((_%hd181318181356%_ + (##pair? _%tl181591181625%_)) + (let ((_%hd181592181630%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%tl181317181351%_))) - (_%tl181319181358%_ + (##car _%tl181591181625%_))) + (_%tl181593181632%_ (let () (declare (not safe)) - (##cdr _%tl181317181351%_)))) - (let ((_%val181361%_ _%hd181318181356%_)) + (##cdr _%tl181591181625%_)))) + (let ((_%val181635%_ _%hd181592181630%_)) (if (let () (declare (not safe)) - (##null? _%tl181319181358%_)) - (_%K181313181339%_ - _%val181361%_ - _%xt181354%_ - _%xid181347%_) - (_%else181311181329%_)))) - (_%else181311181329%_)))) + (##null? _%tl181593181632%_)) + (_%K181587181613%_ + _%val181635%_ + _%xt181628%_ + _%xid181621%_) + (_%else181585181603%_)))) + (_%else181585181603%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else181311181329%_)))) - (_%else181311181329%_)))))) + (_%else181585181603%_)))) + (_%else181585181603%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest181288181296%_)) - (let ((_%hd181293181366%_ + (##pair? _%rest181562181570%_)) + (let ((_%hd181567181640%_ (let () (declare (not safe)) - (##car _%rest181288181296%_))) - (_%tl181294181368%_ + (##car _%rest181562181570%_))) + (_%tl181568181642%_ (let () (declare (not safe)) - (##cdr _%rest181288181296%_)))) - (let* ((_%type-info181371%_ _%hd181293181366%_) - (_%rest181373%_ _%tl181294181368%_)) - (_%K181292181363%_ - _%rest181373%_ - _%type-info181371%_))) - (_%else181290181304%_)))))) - (_%assert-count180377%_ - (lambda (_%id181178%_ _%sym181179%_ _%count181180%_) - (let _%lp181182%_ ((_%rest181184%_ _%env-type180358%_)) - (let* ((_%rest181185181193%_ _%rest181184%_) - (_%else181187181201%_ (lambda () '#!void)) - (_%K181189181270%_ - (lambda (_%rest181204%_ _%type-info181205%_) - (let* ((_%type-info181206181220%_ - _%type-info181205%_) - (_%else181208181228%_ + (##cdr _%rest181562181570%_)))) + (let* ((_%type-info181645%_ _%hd181567181640%_) + (_%rest181647%_ _%tl181568181642%_)) + (_%K181566181637%_ + _%rest181647%_ + _%type-info181645%_))) + (_%else181564181578%_)))))) + (_%assert-count180651%_ + (lambda (_%id181452%_ _%sym181453%_ _%count181454%_) + (let _%lp181456%_ ((_%rest181458%_ _%env-type180632%_)) + (let* ((_%rest181459181467%_ _%rest181458%_) + (_%else181461181475%_ (lambda () '#!void)) + (_%K181463181544%_ + (lambda (_%rest181478%_ _%type-info181479%_) + (let* ((_%type-info181480181494%_ + _%type-info181479%_) + (_%else181482181502%_ (lambda () - (_%lp181182%_ _%rest181204%_))) - (_%K181210181239%_ - (lambda (_%val181231%_ - _%xcount181232%_ - _%xsym181233%_ - _%xid181234%_) - (if (and (eq? _%sym181179%_ - _%xsym181233%_) + (_%lp181456%_ _%rest181478%_))) + (_%K181484181513%_ + (lambda (_%val181505%_ + _%xcount181506%_ + _%xsym181507%_ + _%xid181508%_) + (if (and (eq? _%sym181453%_ + _%xsym181507%_) (let () (declare (not safe)) (gx#free-identifier=? - _%id181178%_ - _%xid181234%_))) - (if _%val181231%_ - (fx= _%count181180%_ - _%xcount181232%_) - (if (fx= _%count181180%_ - _%xcount181232%_) + _%id181452%_ + _%xid181508%_))) + (if _%val181505%_ + (fx= _%count181454%_ + _%xcount181506%_) + (if (fx= _%count181454%_ + _%xcount181506%_) '#f - (_%lp181182%_ - _%rest181204%_))) - (_%lp181182%_ - _%rest181204%_))))) + (_%lp181456%_ + _%rest181478%_))) + (_%lp181456%_ + _%rest181478%_))))) (if (let () (declare (not safe)) - (##pair? _%type-info181206181220%_)) - (let ((_%hd181211181242%_ + (##pair? _%type-info181480181494%_)) + (let ((_%hd181485181516%_ (let () (declare (not safe)) - (##car _%type-info181206181220%_))) - (_%tl181212181244%_ + (##car _%type-info181480181494%_))) + (_%tl181486181518%_ (let () (declare (not safe)) - (##cdr _%type-info181206181220%_)))) - (let ((_%xid181247%_ - _%hd181211181242%_)) + (##cdr _%type-info181480181494%_)))) + (let ((_%xid181521%_ + _%hd181485181516%_)) (if (let () (declare (not safe)) - (##pair? _%tl181212181244%_)) - (let ((_%hd181213181249%_ + (##pair? _%tl181486181518%_)) + (let ((_%hd181487181523%_ (let () (declare (not safe)) - (##car _%tl181212181244%_))) - (_%tl181214181251%_ + (##car _%tl181486181518%_))) + (_%tl181488181525%_ (let () (declare (not safe)) - (##cdr _%tl181212181244%_)))) - (let ((_%xsym181254%_ - _%hd181213181249%_)) + (##cdr _%tl181486181518%_)))) + (let ((_%xsym181528%_ + _%hd181487181523%_)) (if (let () (declare (not safe)) - (##pair? _%tl181214181251%_)) - (let ((_%hd181215181256%_ + (##pair? _%tl181488181525%_)) + (let ((_%hd181489181530%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%tl181214181251%_))) - (_%tl181216181258%_ + (##car _%tl181488181525%_))) + (_%tl181490181532%_ (let () (declare (not safe)) - (##cdr _%tl181214181251%_)))) - (let ((_%xcount181261%_ _%hd181215181256%_)) + (##cdr _%tl181488181525%_)))) + (let ((_%xcount181535%_ _%hd181489181530%_)) (if (let () (declare (not safe)) - (##pair? _%tl181216181258%_)) - (let ((_%hd181217181263%_ + (##pair? _%tl181490181532%_)) + (let ((_%hd181491181537%_ (let () (declare (not safe)) - (##car _%tl181216181258%_))) - (_%tl181218181265%_ + (##car _%tl181490181532%_))) + (_%tl181492181539%_ (let () (declare (not safe)) - (##cdr _%tl181216181258%_)))) - (let ((_%val181268%_ _%hd181217181263%_)) + (##cdr _%tl181490181532%_)))) + (let ((_%val181542%_ _%hd181491181537%_)) (if (let () (declare (not safe)) - (##null? _%tl181218181265%_)) - (_%K181210181239%_ - _%val181268%_ - _%xcount181261%_ - _%xsym181254%_ - _%xid181247%_) - (_%else181208181228%_)))) - (_%else181208181228%_)))) - (_%else181208181228%_)))) + (##null? _%tl181492181539%_)) + (_%K181484181513%_ + _%val181542%_ + _%xcount181535%_ + _%xsym181528%_ + _%xid181521%_) + (_%else181482181502%_)))) + (_%else181482181502%_)))) + (_%else181482181502%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else181208181228%_)))) - (_%else181208181228%_)))))) + (_%else181482181502%_)))) + (_%else181482181502%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest181185181193%_)) - (let ((_%hd181190181273%_ + (##pair? _%rest181459181467%_)) + (let ((_%hd181464181547%_ (let () (declare (not safe)) - (##car _%rest181185181193%_))) - (_%tl181191181275%_ + (##car _%rest181459181467%_))) + (_%tl181465181549%_ (let () (declare (not safe)) - (##cdr _%rest181185181193%_)))) - (let* ((_%type-info181278%_ _%hd181190181273%_) - (_%rest181280%_ _%tl181191181275%_)) - (_%K181189181270%_ - _%rest181280%_ - _%type-info181278%_))) - (_%else181187181201%_)))))) - (_%assert-eqf180378%_ - (lambda (_%id181065%_ _%sym181066%_ _%datum181067%_) - (letrec ((_%eqf181069%_ - (lambda (_%sym181173%_) - (let ((_%$e181175%_ _%sym181173%_)) - (if (eq? 'eq? _%$e181175%_) + (##cdr _%rest181459181467%_)))) + (let* ((_%type-info181552%_ _%hd181464181547%_) + (_%rest181554%_ _%tl181465181549%_)) + (_%K181463181544%_ + _%rest181554%_ + _%type-info181552%_))) + (_%else181461181475%_)))))) + (_%assert-eqf180652%_ + (lambda (_%id181339%_ _%sym181340%_ _%datum181341%_) + (letrec ((_%eqf181343%_ + (lambda (_%sym181447%_) + (let ((_%$e181449%_ _%sym181447%_)) + (if (eq? 'eq? _%$e181449%_) eq? - (if (eq? 'eqv? _%$e181175%_) + (if (eq? 'eqv? _%$e181449%_) eqv? - (if (eq? 'equal? _%$e181175%_) + (if (eq? 'equal? _%$e181449%_) equal? (if (eq? 'free-identifier=? - _%$e181175%_) + _%$e181449%_) gx#free-identifier=? (if (eq? 'stx-eq? - _%$e181175%_) + _%$e181449%_) gx#stx-eq? (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected eqf symbol" - _%body180119%_ - _%sym181173%_))))))))))) - (let _%lp181071%_ ((_%rest181073%_ _%env-type180358%_)) - (let* ((_%rest181074181082%_ _%rest181073%_) - (_%else181076181090%_ (lambda () '#!void)) - (_%K181078181161%_ - (lambda (_%rest181093%_ _%type-info181094%_) - (let* ((_%type-info181095181109%_ - _%type-info181094%_) - (_%else181097181117%_ + _%body180393%_ + _%sym181447%_))))))))))) + (let _%lp181345%_ ((_%rest181347%_ _%env-type180632%_)) + (let* ((_%rest181348181356%_ _%rest181347%_) + (_%else181350181364%_ (lambda () '#!void)) + (_%K181352181435%_ + (lambda (_%rest181367%_ _%type-info181368%_) + (let* ((_%type-info181369181383%_ + _%type-info181368%_) + (_%else181371181391%_ (lambda () - (_%lp181071%_ _%rest181093%_))) - (_%K181099181130%_ - (lambda (_%val181120%_ - _%xdatum181121%_ - _%xsym181122%_ - _%xid181123%_) - (if (and (eq? _%sym181066%_ - _%xsym181122%_) + (_%lp181345%_ _%rest181367%_))) + (_%K181373181404%_ + (lambda (_%val181394%_ + _%xdatum181395%_ + _%xsym181396%_ + _%xid181397%_) + (if (and (eq? _%sym181340%_ + _%xsym181396%_) (let () (declare (not safe)) (gx#free-identifier=? - _%id181065%_ - _%xid181123%_))) - (let ((_%=?181125%_ - (_%eqf181069%_ - _%sym181066%_))) - (if _%val181120%_ - (_%=?181125%_ - _%datum181067%_ - _%xdatum181121%_) - (if (_%=?181125%_ - _%datum181067%_ - _%xdatum181121%_) + _%id181339%_ + _%xid181397%_))) + (let ((_%=?181399%_ + (_%eqf181343%_ + _%sym181340%_))) + (if _%val181394%_ + (_%=?181399%_ + _%datum181341%_ + _%xdatum181395%_) + (if (_%=?181399%_ + _%datum181341%_ + _%xdatum181395%_) '#f - (_%lp181071%_ - _%rest181093%_)))) - (_%lp181071%_ - _%rest181093%_))))) + (_%lp181345%_ + _%rest181367%_)))) + (_%lp181345%_ + _%rest181367%_))))) (if (let () (declare (not safe)) - (##pair? _%type-info181095181109%_)) - (let ((_%hd181100181133%_ + (##pair? _%type-info181369181383%_)) + (let ((_%hd181374181407%_ (let () (declare (not safe)) - (##car _%type-info181095181109%_))) - (_%tl181101181135%_ + (##car _%type-info181369181383%_))) + (_%tl181375181409%_ (let () (declare (not safe)) - (##cdr _%type-info181095181109%_)))) - (let ((_%xid181138%_ - _%hd181100181133%_)) + (##cdr _%type-info181369181383%_)))) + (let ((_%xid181412%_ + _%hd181374181407%_)) (if (let () (declare (not safe)) - (##pair? _%tl181101181135%_)) - (let ((_%hd181102181140%_ + (##pair? _%tl181375181409%_)) + (let ((_%hd181376181414%_ (let () (declare (not safe)) - (##car _%tl181101181135%_))) - (_%tl181103181142%_ + (##car _%tl181375181409%_))) + (_%tl181377181416%_ (let () (declare (not safe)) - (##cdr _%tl181101181135%_)))) - (let ((_%xsym181145%_ - _%hd181102181140%_)) + (##cdr _%tl181375181409%_)))) + (let ((_%xsym181419%_ + _%hd181376181414%_)) (if (let () (declare (not safe)) - (##pair? _%tl181103181142%_)) - (let ((_%hd181104181147%_ + (##pair? _%tl181377181416%_)) + (let ((_%hd181378181421%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%tl181103181142%_))) - (_%tl181105181149%_ + (##car _%tl181377181416%_))) + (_%tl181379181423%_ (let () (declare (not safe)) - (##cdr _%tl181103181142%_)))) - (let ((_%xdatum181152%_ _%hd181104181147%_)) + (##cdr _%tl181377181416%_)))) + (let ((_%xdatum181426%_ _%hd181378181421%_)) (if (let () (declare (not safe)) - (##pair? _%tl181105181149%_)) - (let ((_%hd181106181154%_ + (##pair? _%tl181379181423%_)) + (let ((_%hd181380181428%_ (let () (declare (not safe)) - (##car _%tl181105181149%_))) - (_%tl181107181156%_ + (##car _%tl181379181423%_))) + (_%tl181381181430%_ (let () (declare (not safe)) - (##cdr _%tl181105181149%_)))) - (let ((_%val181159%_ _%hd181106181154%_)) + (##cdr _%tl181379181423%_)))) + (let ((_%val181433%_ _%hd181380181428%_)) (if (let () (declare (not safe)) - (##null? _%tl181107181156%_)) - (_%K181099181130%_ - _%val181159%_ - _%xdatum181152%_ - _%xsym181145%_ - _%xid181138%_) - (_%else181097181117%_)))) - (_%else181097181117%_)))) - (_%else181097181117%_)))) + (##null? _%tl181381181430%_)) + (_%K181373181404%_ + _%val181433%_ + _%xdatum181426%_ + _%xsym181419%_ + _%xid181412%_) + (_%else181371181391%_)))) + (_%else181371181391%_)))) + (_%else181371181391%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else181097181117%_)))) - (_%else181097181117%_)))))) + (_%else181371181391%_)))) + (_%else181371181391%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest181074181082%_)) - (let ((_%hd181079181164%_ + (##pair? _%rest181348181356%_)) + (let ((_%hd181353181438%_ (let () (declare (not safe)) - (##car _%rest181074181082%_))) - (_%tl181080181166%_ + (##car _%rest181348181356%_))) + (_%tl181354181440%_ (let () (declare (not safe)) - (##cdr _%rest181074181082%_)))) - (let* ((_%type-info181169%_ - _%hd181079181164%_) - (_%rest181171%_ _%tl181080181166%_)) - (_%K181078181161%_ - _%rest181171%_ - _%type-info181169%_))) - (_%else181076181090%_))))))) - (_%bind-e__187733187734%_ - (lambda (_%bind180967%_ _%body180968%_ _%continue180969%_) - (let _%lp180971%_ ((_%rest180973%_ _%bind180967%_) - (_%subst180974%_ '()) - (_%locals180975%_ '()) - (_%env180976%_ _%env-bind180359%_)) - (let* ((_%rest180977180985%_ _%rest180973%_) - (_%else180979180999%_ + (##cdr _%rest181348181356%_)))) + (let* ((_%type-info181443%_ + _%hd181353181438%_) + (_%rest181445%_ _%tl181354181440%_)) + (_%K181352181435%_ + _%rest181445%_ + _%type-info181443%_))) + (_%else181350181364%_))))))) + (_%bind-e__188007188008%_ + (lambda (_%bind181241%_ _%body181242%_ _%continue181243%_) + (let _%lp181245%_ ((_%rest181247%_ _%bind181241%_) + (_%subst181248%_ '()) + (_%locals181249%_ '()) + (_%env181250%_ _%env-bind180633%_)) + (let* ((_%rest181251181259%_ _%rest181247%_) + (_%else181253181273%_ (lambda () - (let* ((_%body180993%_ - (if (null? _%subst180974%_) - _%body180968%_ + (let* ((_%body181267%_ + (if (null? _%subst181248%_) + _%body181242%_ (let () (declare (not safe)) (gxc#apply-expression-subst*__% '#f - _%subst180974%_ - _%body180968%_)))) - (_%body180996%_ - (_%do-bind!180370%_ - _%env180976%_ + _%subst181248%_ + _%body181242%_)))) + (_%body181270%_ + (_%do-bind!180644%_ + _%env181250%_ (lambda () - (_%continue180969%_ - _%body180993%_))))) - (if (null? _%locals180975%_) - _%body180996%_ + (_%continue181243%_ + _%body181267%_))))) + (if (null? _%locals181249%_) + _%body181270%_ (cons '%#let-values - (cons _%locals180975%_ - (cons _%body180996%_ + (cons _%locals181249%_ + (cons _%body181270%_ '()))))))) - (_%K180981181041%_ - (lambda (_%rest181002%_ _%bind181003%_) - (let* ((_%bind181004181011%_ _%bind181003%_) - (_%E181006181015%_ + (_%K181255181315%_ + (lambda (_%rest181276%_ _%bind181277%_) + (let* ((_%bind181278181285%_ _%bind181277%_) + (_%E181280181289%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%bind181004181011%_ + _%bind181278181285%_ '([id . expr]))) '#!void)) - (_%K181007181029%_ - (lambda (_%expr181018%_ _%id181019%_) - (let* ((_%sexpr181021%_ + (_%K181281181303%_ + (lambda (_%expr181292%_ _%id181293%_) + (let* ((_%sexpr181295%_ (gxc#apply-generate-runtime-repr - _%expr181018%_)) - (_%$e181023%_ + _%expr181292%_)) + (_%$e181297%_ (let () (declare (not safe)) - (aget__0 _%sexpr181021%_ - _%env-bind180359%_)))) - (if _%$e181023%_ - ((lambda (_%xid181026%_) - (_%lp180971%_ - _%rest181002%_ - (cons (cons _%id181019%_ + (aget__0 _%sexpr181295%_ + _%env-bind180633%_)))) + (if _%$e181297%_ + ((lambda (_%xid181300%_) + (_%lp181245%_ + _%rest181276%_ + (cons (cons _%id181293%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%xid181026%_) - _%subst180974%_) + _%xid181300%_) + _%subst181248%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%locals180975%_ - _%env180976%_)) - _%$e181023%_) - (_%lp180971%_ - _%rest181002%_ - _%subst180974%_ - (cons (cons (cons _%id181019%_ + _%locals181249%_ + _%env181250%_)) + _%$e181297%_) + (_%lp181245%_ + _%rest181276%_ + _%subst181248%_ + (cons (cons (cons _%id181293%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%expr181018%_ '())) - _%locals180975%_) + (cons _%expr181292%_ '())) + _%locals181249%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%sexpr181021%_ - _%id181019%_) - _%env180976%_))))))) + (cons (cons _%sexpr181295%_ + _%id181293%_) + _%env181250%_))))))) (if (let () (declare (not safe)) - (##pair? _%bind181004181011%_)) - (let ((_%hd181008181032%_ + (##pair? _%bind181278181285%_)) + (let ((_%hd181282181306%_ (let () (declare (not safe)) - (##car _%bind181004181011%_))) - (_%tl181009181034%_ + (##car _%bind181278181285%_))) + (_%tl181283181308%_ (let () (declare (not safe)) - (##cdr _%bind181004181011%_)))) - (let* ((_%id181037%_ - _%hd181008181032%_) - (_%expr181039%_ - _%tl181009181034%_)) - (_%K181007181029%_ - _%expr181039%_ - _%id181037%_))) - (_%E181006181015%_)))))) + (##cdr _%bind181278181285%_)))) + (let* ((_%id181311%_ + _%hd181282181306%_) + (_%expr181313%_ + _%tl181283181308%_)) + (_%K181281181303%_ + _%expr181313%_ + _%id181311%_))) + (_%E181280181289%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest180977180985%_)) - (let ((_%hd180982181044%_ + (##pair? _%rest181251181259%_)) + (let ((_%hd181256181318%_ (let () (declare (not safe)) - (##car _%rest180977180985%_))) - (_%tl180983181046%_ + (##car _%rest181251181259%_))) + (_%tl181257181320%_ (let () (declare (not safe)) - (##cdr _%rest180977180985%_)))) - (let* ((_%bind181049%_ _%hd180982181044%_) - (_%rest181051%_ _%tl180983181046%_)) - (_%K180981181041%_ - _%rest181051%_ - _%bind181049%_))) - (_%else180979180999%_)))))) - (_%bind-e__0__187735187736%_ - (lambda (_%bind181056%_ _%body181057%_) - (let ((_%continue181059%_ _%optimize-e180372%_)) - (_%bind-e__187733187734%_ - _%bind181056%_ - _%body181057%_ - _%continue181059%_)))) - (_%bind-e180379%_ - (lambda _g190892_ - (let ((_g190891_ + (##cdr _%rest181251181259%_)))) + (let* ((_%bind181323%_ _%hd181256181318%_) + (_%rest181325%_ _%tl181257181320%_)) + (_%K181255181315%_ + _%rest181325%_ + _%bind181323%_))) + (_%else181253181273%_)))))) + (_%bind-e__0__188009188010%_ + (lambda (_%bind181330%_ _%body181331%_) + (let ((_%continue181333%_ _%optimize-e180646%_)) + (_%bind-e__188007188008%_ + _%bind181330%_ + _%body181331%_ + _%continue181333%_)))) + (_%bind-e180653%_ + (lambda _g191166_ + (let ((_g191165_ (let () (declare (not safe)) - (##length _g190892_)))) - (cond ((let () (declare (not safe)) (##fx= _g190891_ 2)) - (apply _%bind-e__0__187735187736%_ _g190892_)) - ((let () (declare (not safe)) (##fx= _g190891_ 3)) - (apply _%bind-e__187733187734%_ _g190892_)) + (##length _g191166_)))) + (cond ((let () (declare (not safe)) (##fx= _g191165_ 2)) + (apply _%bind-e__0__188009188010%_ _g191166_)) + ((let () (declare (not safe)) (##fx= _g191165_ 3)) + (apply _%bind-e__188007188008%_ _g191166_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g190892_)))))) - (_%lookup-block180380%_ - (lambda (_%id180962%_) - (let ((__tmp190893 - (lambda (_%block180964%_) - (let ((__tmp190894 (car _%block180964%_))) + _g191166_)))))) + (_%lookup-block180654%_ + (lambda (_%id181236%_) + (let ((__tmp191167 + (lambda (_%block181238%_) + (let ((__tmp191168 (car _%block181238%_))) (declare (not safe)) (gx#free-identifier=? - __tmp190894 - _%id180962%_))))) + __tmp191168 + _%id181236%_))))) (declare (not safe)) - (__find __tmp190893 _%blocks180122%_)))) - (_%inline-block180381%_ - (lambda (_%block180838%_ _%args180839%_) - (let* ((_%kont180841%_ (caddr _%block180838%_)) - (_%g180843180869%_ - (lambda (_%g180844180866%_) + (__find __tmp191167 _%blocks180396%_)))) + (_%inline-block180655%_ + (lambda (_%block181112%_ _%args181113%_) + (let* ((_%kont181115%_ (caddr _%block181112%_)) + (_%g181117181143%_ + (lambda (_%g181118181140%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g180844180866%_)))) - (_%g180842180959%_ - (lambda (_%g180844180872%_) + _%g181118181140%_)))) + (_%g181116181233%_ + (lambda (_%g181118181146%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g180844180872%_)) - (let ((_%e180847180874%_ + (gx#stx-pair? _%g181118181146%_)) + (let ((_%e181121181148%_ (let () (declare (not safe)) - (gx#stx-e _%g180844180872%_)))) - (let ((_%hd180848180877%_ + (gx#stx-e _%g181118181146%_)))) + (let ((_%hd181122181151%_ (let () (declare (not safe)) - (##car _%e180847180874%_))) - (_%tl180849180879%_ + (##car _%e181121181148%_))) + (_%tl181123181153%_ (let () (declare (not safe)) - (##cdr _%e180847180874%_)))) + (##cdr _%e181121181148%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd180848180877%_)) + _%hd181122181151%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd180848180877%_)) + _%hd181122181151%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180849180879%_)) - (let ((_%e180850180882%_ + _%tl181123181153%_)) + (let ((_%e181124181156%_ (let () (declare (not safe)) (gx#stx-e - _%tl180849180879%_)))) - (let ((_%hd180851180885%_ + _%tl181123181153%_)))) + (let ((_%hd181125181159%_ (let () (declare (not safe)) - (##car _%e180850180882%_))) - (_%tl180852180887%_ + (##car _%e181124181156%_))) + (_%tl181126181161%_ (let () (declare (not safe)) - (##cdr _%e180850180882%_)))) + (##cdr _%e181124181156%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd180851180885%_)) - (let ((_g190895_ + _%hd181125181159%_)) + (let ((_g191169_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd180851180885%_ '0)))) + (gx#syntax-split-splice _%hd181125181159%_ '0)))) (begin - (let ((_g190896_ + (let ((_g191170_ (let () (declare (not safe)) - (if (##values? _g190895_) - (##vector-length _g190895_) + (if (##values? _g191169_) + (##vector-length _g191169_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g190896_ 2))) - (error "Context expects 2 values" _g190896_))) - (let ((_%target180853180890%_ + (##fx= _g191170_ 2))) + (error "Context expects 2 values" _g191170_))) + (let ((_%target181127181164%_ (let () (declare (not safe)) - (##vector-ref _g190895_ 0))) - (_%tl180855180892%_ + (##vector-ref _g191169_ 0))) + (_%tl181129181166%_ (let () (declare (not safe)) - (##vector-ref _g190895_ 1)))) + (##vector-ref _g191169_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180855180892%_)) - (letrec ((_%loop180856180895%_ - (lambda (_%hd180854180898%_ - _%id180860180900%_) + (gx#stx-null? _%tl181129181166%_)) + (letrec ((_%loop181130181169%_ + (lambda (_%hd181128181172%_ + _%id181134181174%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180854180898%_)) - (let ((_%e180857180903%_ + _%hd181128181172%_)) + (let ((_%e181131181177%_ (let () (declare (not safe)) (gx#stx-e - _%hd180854180898%_)))) - (let ((_%lp-hd180858180906%_ + _%hd181128181172%_)))) + (let ((_%lp-hd181132181180%_ (let () (declare (not safe)) - (##car _%e180857180903%_))) - (_%lp-tl180859180908%_ + (##car _%e181131181177%_))) + (_%lp-tl181133181182%_ (let () (declare (not safe)) - (##cdr _%e180857180903%_)))) - (_%loop180856180895%_ - _%lp-tl180859180908%_ - (cons _%lp-hd180858180906%_ - _%id180860180900%_)))) - (let ((_%id180861180911%_ - (reverse _%id180860180900%_))) + (##cdr _%e181131181177%_)))) + (_%loop181130181169%_ + _%lp-tl181133181182%_ + (cons _%lp-hd181132181180%_ + _%id181134181174%_)))) + (let ((_%id181135181185%_ + (reverse _%id181134181174%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180852180887%_)) - (let ((_%e180862180914%_ + _%tl181126181161%_)) + (let ((_%e181136181188%_ (let () (declare (not safe)) (gx#stx-e - _%tl180852180887%_)))) - (let ((_%hd180863180917%_ + _%tl181126181161%_)))) + (let ((_%hd181137181191%_ (let () (declare (not safe)) - (##car _%e180862180914%_))) - (_%tl180864180919%_ + (##car _%e181136181188%_))) + (_%tl181138181193%_ (let () (declare (not safe)) - (##cdr _%e180862180914%_)))) + (##cdr _%e181136181188%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180864180919%_)) - ((lambda (_%L180922%_ + _%tl181138181193%_)) + ((lambda (_%L181196%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L180923%_) - (if (null? (let ((__tmp190897 - (lambda (_%g180942180945%_ - _%g180943180947%_) - (cons _%g180942180945%_ - _%g180943180947%_)))) + _%L181197%_) + (if (null? (let ((__tmp191171 + (lambda (_%g181216181219%_ + _%g181217181221%_) + (cons _%g181216181219%_ + _%g181217181221%_)))) (declare (not safe)) - (__foldr1 __tmp190897 '() _%L180923%_))) - _%L180922%_ - (let ((_%subst180957%_ + (__foldr1 __tmp191171 '() _%L181197%_))) + _%L181196%_ + (let ((_%subst181231%_ (map cons - (let ((__tmp190898 - (lambda (_%g180949180952%_ - _%g180950180954%_) - (cons _%g180949180952%_ - _%g180950180954%_)))) + (let ((__tmp191172 + (lambda (_%g181223181226%_ + _%g181224181228%_) + (cons _%g181223181226%_ + _%g181224181228%_)))) (declare (not safe)) - (__foldr1 __tmp190898 '() _%L180923%_)) - _%args180839%_))) + (__foldr1 __tmp191172 '() _%L181197%_)) + _%args181113%_))) (declare (not safe)) (gxc#apply-expression-subst*__% '#f - _%subst180957%_ - _%L180922%_)))) - _%hd180863180917%_ - _%id180861180911%_) - (_%g180843180869%_ _%g180844180872%_)))) + _%subst181231%_ + _%L181196%_)))) + _%hd181137181191%_ + _%id181135181185%_) + (_%g181117181143%_ _%g181118181146%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g180843180869%_ - _%g180844180872%_))))))) - (_%loop180856180895%_ - _%target180853180890%_ + (_%g181117181143%_ + _%g181118181146%_))))))) + (_%loop181130181169%_ + _%target181127181164%_ '())) - (_%g180843180869%_ _%g180844180872%_))))) - (_%g180843180869%_ _%g180844180872%_)))) + (_%g181117181143%_ _%g181118181146%_))))) + (_%g181117181143%_ _%g181118181146%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g180843180869%_ - _%g180844180872%_)) - (_%g180843180869%_ - _%g180844180872%_)) - (_%g180843180869%_ - _%g180844180872%_)))) - (_%g180843180869%_ _%g180844180872%_))))) - (_%g180842180959%_ _%kont180841%_)))) - (_%nonlinear-block?180382%_ - (lambda (_%block180387%_) - (letrec ((_%nonlinear-expr?180389%_ - (lambda (_%expr180497%_) - (let* ((_%__stx189806189807%_ _%expr180497%_) - (_%g180503180569%_ + (_%g181117181143%_ + _%g181118181146%_)) + (_%g181117181143%_ + _%g181118181146%_)) + (_%g181117181143%_ + _%g181118181146%_)))) + (_%g181117181143%_ _%g181118181146%_))))) + (_%g181116181233%_ _%kont181115%_)))) + (_%nonlinear-block?180656%_ + (lambda (_%block180661%_) + (letrec ((_%nonlinear-expr?180663%_ + (lambda (_%expr180771%_) + (let* ((_%__stx190080190081%_ _%expr180771%_) + (_%g180777180843%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189806189807%_))))) - (let ((_%__kont189808189809%_ + _%__stx190080190081%_))))) + (let ((_%__kont190082190083%_ (lambda () '#t)) - (_%__kont189810189811%_ - (lambda (_%L180768%_) - (let* ((_%__stx189788189789%_ - _%L180768%_) - (_%g180786180795%_ + (_%__kont190084190085%_ + (lambda (_%L181042%_) + (let* ((_%__stx190062190063%_ + _%L181042%_) + (_%g181060181069%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189788189789%_))))) - (let ((_%__kont189790189791%_ + _%__stx190062190063%_))))) + (let ((_%__kont190064190065%_ (lambda () '#f)) - (_%__kont189792189793%_ + (_%__kont190066190067%_ (lambda () '#t))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189788189789%_)) - (let ((_%e180788180807%_ + _%__stx190062190063%_)) + (let ((_%e181062181081%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189788189789%_)))) - (let ((_%tl180790180812%_ + _%__stx190062190063%_)))) + (let ((_%tl181064181086%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e180788180807%_))) - (_%hd180789180810%_ - (let () (declare (not safe)) (##car _%e180788180807%_)))) + (##cdr _%e181062181081%_))) + (_%hd181063181084%_ + (let () (declare (not safe)) (##car _%e181062181081%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180789180810%_)) + (gx#identifier? _%hd181063181084%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd180789180810%_)) - (_%__kont189790189791%_) - (_%__kont189792189793%_)) - (_%__kont189792189793%_)))) + (gx#stx-eq? '%#call _%hd181063181084%_)) + (_%__kont190064190065%_) + (_%__kont190066190067%_)) + (_%__kont190066190067%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189792189793%_)))))) - (_%__kont189814189815%_ - (lambda (_%L180666%_) - (_%nonlinear-expr?180389%_ - _%L180666%_))) - (_%__kont189816189817%_ - (lambda (_%L180613%_ - _%L180614%_ - _%L180615%_) - (let ((_%$e180634%_ - (_%nonlinear-expr?180389%_ - _%L180614%_))) - (if _%$e180634%_ - _%$e180634%_ - (_%nonlinear-expr?180389%_ - _%L180613%_))))) - (_%__kont189818189819%_ + (_%__kont190066190067%_)))))) + (_%__kont190088190089%_ + (lambda (_%L180940%_) + (_%nonlinear-expr?180663%_ + _%L180940%_))) + (_%__kont190090190091%_ + (lambda (_%L180887%_ + _%L180888%_ + _%L180889%_) + (let ((_%$e180908%_ + (_%nonlinear-expr?180663%_ + _%L180888%_))) + (if _%$e180908%_ + _%$e180908%_ + (_%nonlinear-expr?180663%_ + _%L180887%_))))) + (_%__kont190092190093%_ (lambda () '#f))) - (let* ((_%__match189869189870%_ - (lambda (_%e180541180642%_ - _%hd180542180645%_ - _%tl180543180647%_ - _%e180544180650%_ - _%hd180545180653%_ - _%tl180546180655%_) + (let* ((_%__match190143190144%_ + (lambda (_%e180815180916%_ + _%hd180816180919%_ + _%tl180817180921%_ + _%e180818180924%_ + _%hd180819180927%_ + _%tl180820180929%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180546180655%_)) - (let ((_%e180547180658%_ + _%tl180820180929%_)) + (let ((_%e180821180932%_ (let () (declare (not safe)) (gx#stx-e - _%tl180546180655%_)))) - (let ((_%tl180549180663%_ + _%tl180820180929%_)))) + (let ((_%tl180823180937%_ (let () (declare (not safe)) - (##cdr _%e180547180658%_))) - (_%hd180548180661%_ + (##cdr _%e180821180932%_))) + (_%hd180822180935%_ (let () (declare (not safe)) - (##car _%e180547180658%_)))) + (##car _%e180821180932%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180549180663%_)) - (_%__kont189814189815%_ - _%hd180548180661%_) - (_%__kont189818189819%_)))) - (_%__kont189818189819%_)))) - (_%__match189853189854%_ - (lambda (_%e180509180684%_ - _%hd180510180687%_ - _%tl180511180689%_ - _%e180512180692%_ - _%hd180513180695%_ - _%tl180514180697%_ - _%__splice189812189813%_ - _%target180515180700%_ - _%tl180517180702%_) - (letrec ((_%loop180518180705%_ - (lambda (_%hd180516180708%_) + _%tl180823180937%_)) + (_%__kont190088190089%_ + _%hd180822180935%_) + (_%__kont190092190093%_)))) + (_%__kont190092190093%_)))) + (_%__match190127190128%_ + (lambda (_%e180783180958%_ + _%hd180784180961%_ + _%tl180785180963%_ + _%e180786180966%_ + _%hd180787180969%_ + _%tl180788180971%_ + _%__splice190086190087%_ + _%target180789180974%_ + _%tl180791180976%_) + (letrec ((_%loop180792180979%_ + (lambda (_%hd180790180982%_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%hd180516180708%_)) - (let ((_%e180519180711%_ + (gx#stx-pair? _%hd180790180982%_)) + (let ((_%e180793180985%_ (let () (declare (not safe)) - (gx#stx-e _%hd180516180708%_)))) - (let ((_%lp-tl180521180716%_ + (gx#stx-e _%hd180790180982%_)))) + (let ((_%lp-tl180795180990%_ (let () (declare (not safe)) - (##cdr _%e180519180711%_))) - (_%lp-hd180520180714%_ + (##cdr _%e180793180985%_))) + (_%lp-hd180794180988%_ (let () (declare (not safe)) - (##car _%e180519180711%_)))) + (##car _%e180793180985%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd180520180714%_)) - (let ((_%e180525180719%_ + (gx#stx-pair? _%lp-hd180794180988%_)) + (let ((_%e180799180993%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd180520180714%_)))) - (let ((_%tl180527180724%_ + (gx#stx-e _%lp-hd180794180988%_)))) + (let ((_%tl180801180998%_ (let () (declare (not safe)) - (##cdr _%e180525180719%_))) - (_%hd180526180722%_ + (##cdr _%e180799180993%_))) + (_%hd180800180996%_ (let () (declare (not safe)) - (##car _%e180525180719%_)))) + (##car _%e180799180993%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180526180722%_)) - (let ((_%e180528180727%_ + (gx#stx-pair? _%hd180800180996%_)) + (let ((_%e180802181001%_ (let () (declare (not safe)) (gx#stx-e - _%hd180526180722%_)))) - (let ((_%tl180530180732%_ + _%hd180800180996%_)))) + (let ((_%tl180804181006%_ (let () (declare (not safe)) - (##cdr _%e180528180727%_))) - (_%hd180529180730%_ + (##cdr _%e180802181001%_))) + (_%hd180803181004%_ (let () (declare (not safe)) - (##car _%e180528180727%_)))) + (##car _%e180802181001%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180530180732%_)) + _%tl180804181006%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180527180724%_)) - (let ((_%e180531180735%_ + _%tl180801180998%_)) + (let ((_%e180805181009%_ (let () (declare (not safe)) (gx#stx-e - _%tl180527180724%_)))) - (let ((_%tl180533180740%_ + _%tl180801180998%_)))) + (let ((_%tl180807181014%_ (let () (declare (not safe)) - (##cdr _%e180531180735%_))) - (_%hd180532180738%_ + (##cdr _%e180805181009%_))) + (_%hd180806181012%_ (let () (declare (not safe)) - (##car _%e180531180735%_)))) + (##car _%e180805181009%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180532180738%_)) - (let ((_%e180534180743%_ + _%hd180806181012%_)) + (let ((_%e180808181017%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd180532180738%_)))) - (let ((_%tl180536180748%_ + (gx#stx-e _%hd180806181012%_)))) + (let ((_%tl180810181022%_ (let () (declare (not safe)) - (##cdr _%e180534180743%_))) - (_%hd180535180746%_ + (##cdr _%e180808181017%_))) + (_%hd180809181020%_ (let () (declare (not safe)) - (##car _%e180534180743%_)))) + (##car _%e180808181017%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180535180746%_)) + (gx#identifier? _%hd180809181020%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd180535180746%_)) + (gx#stx-eq? '%#ref _%hd180809181020%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180536180748%_)) - (let ((_%e180537180751%_ + (gx#stx-pair? _%tl180810181022%_)) + (let ((_%e180811181025%_ (let () (declare (not safe)) - (gx#stx-e _%tl180536180748%_)))) - (let ((_%tl180539180756%_ + (gx#stx-e _%tl180810181022%_)))) + (let ((_%tl180813181030%_ (let () (declare (not safe)) - (##cdr _%e180537180751%_))) - (_%hd180538180754%_ + (##cdr _%e180811181025%_))) + (_%hd180812181028%_ (let () (declare (not safe)) - (##car _%e180537180751%_)))) + (##car _%e180811181025%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180539180756%_)) + (gx#stx-null? _%tl180813181030%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180533180740%_)) - (_%loop180518180705%_ - _%lp-tl180521180716%_) - (_%__match189869189870%_ - _%e180509180684%_ - _%hd180510180687%_ - _%tl180511180689%_ - _%e180512180692%_ - _%hd180513180695%_ - _%tl180514180697%_)) - (_%__match189869189870%_ - _%e180509180684%_ - _%hd180510180687%_ - _%tl180511180689%_ - _%e180512180692%_ - _%hd180513180695%_ - _%tl180514180697%_)))) - (_%__match189869189870%_ - _%e180509180684%_ - _%hd180510180687%_ - _%tl180511180689%_ - _%e180512180692%_ - _%hd180513180695%_ - _%tl180514180697%_)) - (_%__match189869189870%_ - _%e180509180684%_ - _%hd180510180687%_ - _%tl180511180689%_ - _%e180512180692%_ - _%hd180513180695%_ - _%tl180514180697%_)) - (_%__match189869189870%_ - _%e180509180684%_ - _%hd180510180687%_ - _%tl180511180689%_ - _%e180512180692%_ - _%hd180513180695%_ - _%tl180514180697%_)))) - (_%__match189869189870%_ - _%e180509180684%_ - _%hd180510180687%_ - _%tl180511180689%_ - _%e180512180692%_ - _%hd180513180695%_ - _%tl180514180697%_)))) + _%tl180807181014%_)) + (_%loop180792180979%_ + _%lp-tl180795180990%_) + (_%__match190143190144%_ + _%e180783180958%_ + _%hd180784180961%_ + _%tl180785180963%_ + _%e180786180966%_ + _%hd180787180969%_ + _%tl180788180971%_)) + (_%__match190143190144%_ + _%e180783180958%_ + _%hd180784180961%_ + _%tl180785180963%_ + _%e180786180966%_ + _%hd180787180969%_ + _%tl180788180971%_)))) + (_%__match190143190144%_ + _%e180783180958%_ + _%hd180784180961%_ + _%tl180785180963%_ + _%e180786180966%_ + _%hd180787180969%_ + _%tl180788180971%_)) + (_%__match190143190144%_ + _%e180783180958%_ + _%hd180784180961%_ + _%tl180785180963%_ + _%e180786180966%_ + _%hd180787180969%_ + _%tl180788180971%_)) + (_%__match190143190144%_ + _%e180783180958%_ + _%hd180784180961%_ + _%tl180785180963%_ + _%e180786180966%_ + _%hd180787180969%_ + _%tl180788180971%_)))) + (_%__match190143190144%_ + _%e180783180958%_ + _%hd180784180961%_ + _%tl180785180963%_ + _%e180786180966%_ + _%hd180787180969%_ + _%tl180788180971%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match189869189870%_ - _%e180509180684%_ - _%hd180510180687%_ - _%tl180511180689%_ - _%e180512180692%_ - _%hd180513180695%_ - _%tl180514180697%_)) - (_%__match189869189870%_ - _%e180509180684%_ - _%hd180510180687%_ - _%tl180511180689%_ - _%e180512180692%_ - _%hd180513180695%_ - _%tl180514180697%_)))) - (_%__match189869189870%_ - _%e180509180684%_ - _%hd180510180687%_ - _%tl180511180689%_ - _%e180512180692%_ - _%hd180513180695%_ - _%tl180514180697%_)))) - (_%__match189869189870%_ - _%e180509180684%_ - _%hd180510180687%_ - _%tl180511180689%_ - _%e180512180692%_ - _%hd180513180695%_ - _%tl180514180697%_)))) + (_%__match190143190144%_ + _%e180783180958%_ + _%hd180784180961%_ + _%tl180785180963%_ + _%e180786180966%_ + _%hd180787180969%_ + _%tl180788180971%_)) + (_%__match190143190144%_ + _%e180783180958%_ + _%hd180784180961%_ + _%tl180785180963%_ + _%e180786180966%_ + _%hd180787180969%_ + _%tl180788180971%_)))) + (_%__match190143190144%_ + _%e180783180958%_ + _%hd180784180961%_ + _%tl180785180963%_ + _%e180786180966%_ + _%hd180787180969%_ + _%tl180788180971%_)))) + (_%__match190143190144%_ + _%e180783180958%_ + _%hd180784180961%_ + _%tl180785180963%_ + _%e180786180966%_ + _%hd180787180969%_ + _%tl180788180971%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180514180697%_)) - (let ((_%e180522180760%_ + (gx#stx-pair? _%tl180788180971%_)) + (let ((_%e180796181034%_ (let () (declare (not safe)) - (gx#stx-e _%tl180514180697%_)))) - (let ((_%tl180524180765%_ + (gx#stx-e _%tl180788180971%_)))) + (let ((_%tl180798181039%_ (let () (declare (not safe)) - (##cdr _%e180522180760%_))) - (_%hd180523180763%_ + (##cdr _%e180796181034%_))) + (_%hd180797181037%_ (let () (declare (not safe)) - (##car _%e180522180760%_)))) + (##car _%e180796181034%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180524180765%_)) - (_%__kont189810189811%_ _%hd180523180763%_) - (_%__kont189818189819%_)))) - (_%__kont189818189819%_)))))) + (gx#stx-null? _%tl180798181039%_)) + (_%__kont190084190085%_ _%hd180797181037%_) + (_%__kont190092190093%_)))) + (_%__kont190092190093%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop180518180705%_ - _%target180515180700%_))))) + (_%loop180792180979%_ + _%target180789180974%_))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189806189807%_)) - (let ((_%e180505180825%_ + _%__stx190080190081%_)) + (let ((_%e180779181099%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189806189807%_)))) - (let ((_%tl180507180830%_ + _%__stx190080190081%_)))) + (let ((_%tl180781181104%_ (let () (declare (not safe)) - (##cdr _%e180505180825%_))) - (_%hd180506180828%_ + (##cdr _%e180779181099%_))) + (_%hd180780181102%_ (let () (declare (not safe)) - (##car _%e180505180825%_)))) + (##car _%e180779181099%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd180506180828%_)) + _%hd180780181102%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd180506180828%_)) - (_%__kont189808189809%_) + _%hd180780181102%_)) + (_%__kont190082190083%_) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd180506180828%_)) + _%hd180780181102%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl180507180830%_)) - (let ((_%e180512180692%_ + (gx#stx-pair? _%tl180781181104%_)) + (let ((_%e180786180966%_ (let () (declare (not safe)) - (gx#stx-e _%tl180507180830%_)))) - (let ((_%tl180514180697%_ + (gx#stx-e _%tl180781181104%_)))) + (let ((_%tl180788180971%_ (let () (declare (not safe)) - (##cdr _%e180512180692%_))) - (_%hd180513180695%_ + (##cdr _%e180786180966%_))) + (_%hd180787180969%_ (let () (declare (not safe)) - (##car _%e180512180692%_)))) + (##car _%e180786180966%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd180513180695%_)) - (let ((_%__splice189812189813%_ + (gx#stx-pair/null? _%hd180787180969%_)) + (let ((_%__splice190086190087%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd180513180695%_ + _%hd180787180969%_ '0)))) - (let ((_%tl180517180702%_ + (let ((_%tl180791180976%_ (let () (declare (not safe)) (##vector-ref - _%__splice189812189813%_ + _%__splice190086190087%_ '1))) - (_%target180515180700%_ + (_%target180789180974%_ (let () (declare (not safe)) (##vector-ref - _%__splice189812189813%_ + _%__splice190086190087%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180517180702%_)) - (_%__match189853189854%_ - _%e180505180825%_ - _%hd180506180828%_ - _%tl180507180830%_ - _%e180512180692%_ - _%hd180513180695%_ - _%tl180514180697%_ - _%__splice189812189813%_ - _%target180515180700%_ - _%tl180517180702%_) + (gx#stx-null? _%tl180791180976%_)) + (_%__match190127190128%_ + _%e180779181099%_ + _%hd180780181102%_ + _%tl180781181104%_ + _%e180786180966%_ + _%hd180787180969%_ + _%tl180788180971%_ + _%__splice190086190087%_ + _%target180789180974%_ + _%tl180791180976%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180514180697%_)) - (let ((_%e180547180658%_ + (gx#stx-pair? _%tl180788180971%_)) + (let ((_%e180821180932%_ (let () (declare (not safe)) (gx#stx-e - _%tl180514180697%_)))) - (let ((_%tl180549180663%_ + _%tl180788180971%_)))) + (let ((_%tl180823180937%_ (let () (declare (not safe)) - (##cdr _%e180547180658%_))) - (_%hd180548180661%_ + (##cdr _%e180821180932%_))) + (_%hd180822180935%_ (let () (declare (not safe)) - (##car _%e180547180658%_)))) + (##car _%e180821180932%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180549180663%_)) - (_%__kont189814189815%_ - _%hd180548180661%_) - (_%__kont189818189819%_)))) - (_%__kont189818189819%_))))) + _%tl180823180937%_)) + (_%__kont190088190089%_ + _%hd180822180935%_) + (_%__kont190092190093%_)))) + (_%__kont190092190093%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180514180697%_)) - (let ((_%e180547180658%_ + (gx#stx-pair? _%tl180788180971%_)) + (let ((_%e180821180932%_ (let () (declare (not safe)) - (gx#stx-e _%tl180514180697%_)))) - (let ((_%tl180549180663%_ + (gx#stx-e _%tl180788180971%_)))) + (let ((_%tl180823180937%_ (let () (declare (not safe)) - (##cdr _%e180547180658%_))) - (_%hd180548180661%_ + (##cdr _%e180821180932%_))) + (_%hd180822180935%_ (let () (declare (not safe)) - (##car _%e180547180658%_)))) + (##car _%e180821180932%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180549180663%_)) - (_%__kont189814189815%_ - _%hd180548180661%_) - (_%__kont189818189819%_)))) - (_%__kont189818189819%_))))) - (_%__kont189818189819%_)) + (gx#stx-null? _%tl180823180937%_)) + (_%__kont190088190089%_ + _%hd180822180935%_) + (_%__kont190092190093%_)))) + (_%__kont190092190093%_))))) + (_%__kont190092190093%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _%hd180506180828%_)) + (gx#stx-eq? '%#if _%hd180780181102%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180507180830%_)) - (let ((_%e180556180589%_ + (gx#stx-pair? _%tl180781181104%_)) + (let ((_%e180830180863%_ (let () (declare (not safe)) - (gx#stx-e _%tl180507180830%_)))) - (let ((_%tl180558180594%_ + (gx#stx-e _%tl180781181104%_)))) + (let ((_%tl180832180868%_ (let () (declare (not safe)) - (##cdr _%e180556180589%_))) - (_%hd180557180592%_ + (##cdr _%e180830180863%_))) + (_%hd180831180866%_ (let () (declare (not safe)) - (##car _%e180556180589%_)))) + (##car _%e180830180863%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180558180594%_)) - (let ((_%e180559180597%_ + (gx#stx-pair? _%tl180832180868%_)) + (let ((_%e180833180871%_ (let () (declare (not safe)) - (gx#stx-e _%tl180558180594%_)))) - (let ((_%tl180561180602%_ + (gx#stx-e _%tl180832180868%_)))) + (let ((_%tl180835180876%_ (let () (declare (not safe)) - (##cdr _%e180559180597%_))) - (_%hd180560180600%_ + (##cdr _%e180833180871%_))) + (_%hd180834180874%_ (let () (declare (not safe)) - (##car _%e180559180597%_)))) + (##car _%e180833180871%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180561180602%_)) - (let ((_%e180562180605%_ + (gx#stx-pair? _%tl180835180876%_)) + (let ((_%e180836180879%_ (let () (declare (not safe)) (gx#stx-e - _%tl180561180602%_)))) - (let ((_%tl180564180610%_ + _%tl180835180876%_)))) + (let ((_%tl180838180884%_ (let () (declare (not safe)) - (##cdr _%e180562180605%_))) - (_%hd180563180608%_ + (##cdr _%e180836180879%_))) + (_%hd180837180882%_ (let () (declare (not safe)) - (##car _%e180562180605%_)))) + (##car _%e180836180879%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180564180610%_)) - (_%__kont189816189817%_ - _%hd180563180608%_ - _%hd180560180600%_ - _%hd180557180592%_) - (_%__kont189818189819%_)))) - (_%__kont189818189819%_)))) - (_%__kont189818189819%_)))) - (_%__kont189818189819%_)) - (_%__kont189818189819%_)))) + _%tl180838180884%_)) + (_%__kont190090190091%_ + _%hd180837180882%_ + _%hd180834180874%_ + _%hd180831180866%_) + (_%__kont190092190093%_)))) + (_%__kont190092190093%_)))) + (_%__kont190092190093%_)))) + (_%__kont190092190093%_)) + (_%__kont190092190093%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189818189819%_)))) - (_%__kont189818189819%_)))))))) - (let* ((_%kont180391%_ (caddr _%block180387%_)) - (_%g180393180419%_ - (lambda (_%g180394180416%_) + (_%__kont190092190093%_)))) + (_%__kont190092190093%_)))))))) + (let* ((_%kont180665%_ (caddr _%block180661%_)) + (_%g180667180693%_ + (lambda (_%g180668180690%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g180394180416%_)))) - (_%g180392180494%_ - (lambda (_%g180394180422%_) + _%g180668180690%_)))) + (_%g180666180768%_ + (lambda (_%g180668180696%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g180394180422%_)) - (let ((_%e180397180424%_ + (gx#stx-pair? _%g180668180696%_)) + (let ((_%e180671180698%_ (let () (declare (not safe)) - (gx#stx-e _%g180394180422%_)))) - (let ((_%hd180398180427%_ + (gx#stx-e _%g180668180696%_)))) + (let ((_%hd180672180701%_ (let () (declare (not safe)) - (##car _%e180397180424%_))) - (_%tl180399180429%_ + (##car _%e180671180698%_))) + (_%tl180673180703%_ (let () (declare (not safe)) - (##cdr _%e180397180424%_)))) + (##cdr _%e180671180698%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd180398180427%_)) + _%hd180672180701%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd180398180427%_)) + _%hd180672180701%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180399180429%_)) - (let ((_%e180400180432%_ + _%tl180673180703%_)) + (let ((_%e180674180706%_ (let () (declare (not safe)) (gx#stx-e - _%tl180399180429%_)))) - (let ((_%hd180401180435%_ + _%tl180673180703%_)))) + (let ((_%hd180675180709%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e180400180432%_))) - (_%tl180402180437%_ - (let () (declare (not safe)) (##cdr _%e180400180432%_)))) + (##car _%e180674180706%_))) + (_%tl180676180711%_ + (let () (declare (not safe)) (##cdr _%e180674180706%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd180401180435%_)) - (let ((_g190899_ + (gx#stx-pair/null? _%hd180675180709%_)) + (let ((_g191173_ (let () (declare (not safe)) - (gx#syntax-split-splice _%hd180401180435%_ '0)))) + (gx#syntax-split-splice _%hd180675180709%_ '0)))) (begin - (let ((_g190900_ + (let ((_g191174_ (let () (declare (not safe)) - (if (##values? _g190899_) - (##vector-length _g190899_) + (if (##values? _g191173_) + (##vector-length _g191173_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g190900_ 2))) - (error "Context expects 2 values" _g190900_))) - (let ((_%target180403180440%_ + (##fx= _g191174_ 2))) + (error "Context expects 2 values" _g191174_))) + (let ((_%target180677180714%_ (let () (declare (not safe)) - (##vector-ref _g190899_ 0))) - (_%tl180405180442%_ + (##vector-ref _g191173_ 0))) + (_%tl180679180716%_ (let () (declare (not safe)) - (##vector-ref _g190899_ 1)))) + (##vector-ref _g191173_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180405180442%_)) - (letrec ((_%loop180406180445%_ - (lambda (_%hd180404180448%_ - _%id180410180450%_) + (gx#stx-null? _%tl180679180716%_)) + (letrec ((_%loop180680180719%_ + (lambda (_%hd180678180722%_ + _%id180684180724%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180404180448%_)) - (let ((_%e180407180453%_ + _%hd180678180722%_)) + (let ((_%e180681180727%_ (let () (declare (not safe)) (gx#stx-e - _%hd180404180448%_)))) - (let ((_%lp-hd180408180456%_ + _%hd180678180722%_)))) + (let ((_%lp-hd180682180730%_ (let () (declare (not safe)) - (##car _%e180407180453%_))) - (_%lp-tl180409180458%_ + (##car _%e180681180727%_))) + (_%lp-tl180683180732%_ (let () (declare (not safe)) - (##cdr _%e180407180453%_)))) - (_%loop180406180445%_ - _%lp-tl180409180458%_ - (cons _%lp-hd180408180456%_ - _%id180410180450%_)))) - (let ((_%id180411180461%_ - (reverse _%id180410180450%_))) + (##cdr _%e180681180727%_)))) + (_%loop180680180719%_ + _%lp-tl180683180732%_ + (cons _%lp-hd180682180730%_ + _%id180684180724%_)))) + (let ((_%id180685180735%_ + (reverse _%id180684180724%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180402180437%_)) - (let ((_%e180412180464%_ + _%tl180676180711%_)) + (let ((_%e180686180738%_ (let () (declare (not safe)) (gx#stx-e - _%tl180402180437%_)))) - (let ((_%hd180413180467%_ + _%tl180676180711%_)))) + (let ((_%hd180687180741%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e180412180464%_))) - (_%tl180414180469%_ - (let () (declare (not safe)) (##cdr _%e180412180464%_)))) + (##car _%e180686180738%_))) + (_%tl180688180743%_ + (let () (declare (not safe)) (##cdr _%e180686180738%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180414180469%_)) - ((lambda (_%L180472%_ _%L180473%_) - (_%nonlinear-expr?180389%_ _%L180472%_)) - _%hd180413180467%_ - _%id180411180461%_) - (_%g180393180419%_ _%g180394180422%_)))) + (gx#stx-null? _%tl180688180743%_)) + ((lambda (_%L180746%_ _%L180747%_) + (_%nonlinear-expr?180663%_ _%L180746%_)) + _%hd180687180741%_ + _%id180685180735%_) + (_%g180667180693%_ _%g180668180696%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g180393180419%_ - _%g180394180422%_))))))) - (_%loop180406180445%_ - _%target180403180440%_ + (_%g180667180693%_ + _%g180668180696%_))))))) + (_%loop180680180719%_ + _%target180677180714%_ '())) - (_%g180393180419%_ _%g180394180422%_))))) - (_%g180393180419%_ _%g180394180422%_)))) + (_%g180667180693%_ _%g180668180696%_))))) + (_%g180667180693%_ _%g180668180696%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g180393180419%_ - _%g180394180422%_)) - (_%g180393180419%_ - _%g180394180422%_)) - (_%g180393180419%_ - _%g180394180422%_)))) - (_%g180393180419%_ _%g180394180422%_))))) - (_%g180392180494%_ _%kont180391%_)))))) - (_%do-assert180361%_ - _%assert180120%_ + (_%g180667180693%_ + _%g180668180696%_)) + (_%g180667180693%_ + _%g180668180696%_)) + (_%g180667180693%_ + _%g180668180696%_)))) + (_%g180667180693%_ _%g180668180696%_))))) + (_%g180666180768%_ _%kont180665%_)))))) + (_%do-assert180635%_ + _%assert180394%_ (lambda () - (_%do-bind180368%_ - _%bind180121%_ + (_%do-bind180642%_ + _%bind180395%_ (lambda () (if (memq '@match:prefix (let () (declare (not safe)) (gxc#current-annotation-optimizer))) - (_%do-splice!180371%_ - (lambda () (_%optimize-e180372%_ _%body180119%_))) - (_%optimize-e180372%_ _%body180119%_))))))))) + (_%do-splice!180645%_ + (lambda () (_%optimize-e180646%_ _%body180393%_))) + (_%optimize-e180646%_ _%body180393%_))))))))) (define gxc#optimize-match-prune-blocks - (lambda (_%blocks180031%_ _%konts180032%_) - (letrec* ((_%rtab180034%_ + (lambda (_%blocks180305%_ _%konts180306%_) + (letrec* ((_%rtab180308%_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_%block180036%_) - (let ((__tmp190901 (caddr _%block180036%_))) + (lambda (_%block180310%_) + (let ((__tmp191175 (caddr _%block180310%_))) (declare (not safe)) (gxc#apply-collect-runtime-refs__% '#f - _%rtab180034%_ - __tmp190901))) - _%konts180032%_) - (let _%lp180038%_ ((_%rest180040%_ _%blocks180031%_) - (_%r180041%_ '())) - (let* ((_%rest180042180050%_ _%rest180040%_) - (_%else180044180058%_ (lambda () (reverse _%r180041%_))) - (_%K180046180107%_ - (lambda (_%rest180061%_ _%block180062%_) - (let* ((_%block180063180074%_ _%block180062%_) - (_%E180065180078%_ + _%rtab180308%_ + __tmp191175))) + _%konts180306%_) + (let _%lp180312%_ ((_%rest180314%_ _%blocks180305%_) + (_%r180315%_ '())) + (let* ((_%rest180316180324%_ _%rest180314%_) + (_%else180318180332%_ (lambda () (reverse _%r180315%_))) + (_%K180320180381%_ + (lambda (_%rest180335%_ _%block180336%_) + (let* ((_%block180337180348%_ _%block180336%_) + (_%E180339180352%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block180063180074%_ + _%block180337180348%_ '([name type kont . _]))) '#!void)) - (_%K180066180085%_ - (lambda (_%kont180081%_ - _%type180082%_ - _%name180083%_) - (if (let ((__tmp190902 + (_%K180340180359%_ + (lambda (_%kont180355%_ + _%type180356%_ + _%name180357%_) + (if (let ((__tmp191176 (let () (declare (not safe)) (gxc#identifier-symbol - _%name180083%_)))) + _%name180357%_)))) (declare (not safe)) - (__hash-get _%rtab180034%_ __tmp190902)) + (__hash-get _%rtab180308%_ __tmp191176)) (begin (let () (declare (not safe)) (gxc#apply-collect-runtime-refs__% '#f - _%rtab180034%_ - _%kont180081%_)) - (_%lp180038%_ - _%rest180061%_ - (cons _%block180062%_ _%r180041%_))) - (_%lp180038%_ - _%rest180061%_ - _%r180041%_))))) + _%rtab180308%_ + _%kont180355%_)) + (_%lp180312%_ + _%rest180335%_ + (cons _%block180336%_ _%r180315%_))) + (_%lp180312%_ + _%rest180335%_ + _%r180315%_))))) (if (let () (declare (not safe)) - (##pair? _%block180063180074%_)) - (let ((_%hd180067180088%_ + (##pair? _%block180337180348%_)) + (let ((_%hd180341180362%_ (let () (declare (not safe)) - (##car _%block180063180074%_))) - (_%tl180068180090%_ + (##car _%block180337180348%_))) + (_%tl180342180364%_ (let () (declare (not safe)) - (##cdr _%block180063180074%_)))) - (let ((_%name180093%_ _%hd180067180088%_)) + (##cdr _%block180337180348%_)))) + (let ((_%name180367%_ _%hd180341180362%_)) (if (let () (declare (not safe)) - (##pair? _%tl180068180090%_)) - (let ((_%hd180069180095%_ + (##pair? _%tl180342180364%_)) + (let ((_%hd180343180369%_ (let () (declare (not safe)) - (##car _%tl180068180090%_))) - (_%tl180070180097%_ + (##car _%tl180342180364%_))) + (_%tl180344180371%_ (let () (declare (not safe)) - (##cdr _%tl180068180090%_)))) - (let ((_%type180100%_ - _%hd180069180095%_)) + (##cdr _%tl180342180364%_)))) + (let ((_%type180374%_ + _%hd180343180369%_)) (if (let () (declare (not safe)) - (##pair? _%tl180070180097%_)) - (let* ((_%hd180071180102%_ + (##pair? _%tl180344180371%_)) + (let* ((_%hd180345180376%_ (let () (declare (not safe)) - (##car _%tl180070180097%_))) - (_%kont180105%_ - _%hd180071180102%_)) - (_%K180066180085%_ - _%kont180105%_ - _%type180100%_ - _%name180093%_)) - (_%E180065180078%_)))) - (_%E180065180078%_)))) - (_%E180065180078%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest180042180050%_)) - (let ((_%hd180047180110%_ + (##car _%tl180344180371%_))) + (_%kont180379%_ + _%hd180345180376%_)) + (_%K180340180359%_ + _%kont180379%_ + _%type180374%_ + _%name180367%_)) + (_%E180339180352%_)))) + (_%E180339180352%_)))) + (_%E180339180352%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest180316180324%_)) + (let ((_%hd180321180384%_ (let () (declare (not safe)) - (##car _%rest180042180050%_))) - (_%tl180048180112%_ + (##car _%rest180316180324%_))) + (_%tl180322180386%_ (let () (declare (not safe)) - (##cdr _%rest180042180050%_)))) - (let* ((_%block180115%_ _%hd180047180110%_) - (_%rest180117%_ _%tl180048180112%_)) - (_%K180046180107%_ _%rest180117%_ _%block180115%_))) - (_%else180044180058%_))))))) + (##cdr _%rest180316180324%_)))) + (let* ((_%block180389%_ _%hd180321180384%_) + (_%rest180391%_ _%tl180322180386%_)) + (_%K180320180381%_ _%rest180391%_ _%block180389%_))) + (_%else180318180332%_))))))) (define gxc#optimize-match-fuse-restart-blocks - (lambda (_%blocks179955%_ _%konts179956%_) - (let* ((_%blocks179957179973%_ _%blocks179955%_) - (_%else179959179981%_ (lambda () _%blocks179955%_)) - (_%K179961179999%_ - (lambda (_%rest179984%_ _%kont179985%_ _%name179986%_) - (letrec* ((_%rtab179988%_ + (lambda (_%blocks180229%_ _%konts180230%_) + (let* ((_%blocks180231180247%_ _%blocks180229%_) + (_%else180233180255%_ (lambda () _%blocks180229%_)) + (_%K180235180273%_ + (lambda (_%rest180258%_ _%kont180259%_ _%name180260%_) + (letrec* ((_%rtab180262%_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_%block179990%_) - (let ((__tmp190903 (caddr _%block179990%_))) + (lambda (_%block180264%_) + (let ((__tmp191177 (caddr _%block180264%_))) (declare (not safe)) (gxc#apply-collect-runtime-refs__% '#f - _%rtab179988%_ - __tmp190903))) - _%konts179956%_) - (if (let ((__tmp190904 - (let ((__tmp190905 + _%rtab180262%_ + __tmp191177))) + _%konts180230%_) + (if (let ((__tmp191178 + (let ((__tmp191179 (let () (declare (not safe)) (gxc#identifier-symbol - _%name179986%_)))) + _%name180260%_)))) (declare (not safe)) - (hash-ref__0 _%rtab179988%_ __tmp190905)))) + (hash-ref__0 _%rtab180262%_ __tmp191179)))) (declare (not safe)) - (##fx= __tmp190904 '1)) - (let* ((_%rblock179994%_ - (let ((__tmp190906 - (lambda (_%block179992%_) - (let ((__tmp190908 - (cons _%name179986%_ '())) - (__tmp190907 - (caddr _%block179992%_))) + (##fx= __tmp191178 '1)) + (let* ((_%rblock180268%_ + (let ((__tmp191180 + (lambda (_%block180266%_) + (let ((__tmp191182 + (cons _%name180260%_ '())) + (__tmp191181 + (caddr _%block180266%_))) (declare (not safe)) (gxc#apply-find-var-refs__% '#f - __tmp190908 - __tmp190907))))) + __tmp191182 + __tmp191181))))) (declare (not safe)) - (__find __tmp190906 _%konts179956%_))) - (_%assert179996%_ + (__find __tmp191180 _%konts180230%_))) + (_%assert180270%_ (gxc#optimize-match-assert-restart - _%rblock179994%_ - _%name179986%_))) - (cons (cons _%name179986%_ + _%rblock180268%_ + _%name180260%_))) + (cons (cons _%name180260%_ (cons 'restart: - (cons _%kont179985%_ - (cons _%assert179996%_ + (cons _%kont180259%_ + (cons _%assert180270%_ '())))) - _%rest179984%_)) - _%blocks179955%_))))) - (if (let () (declare (not safe)) (##pair? _%blocks179957179973%_)) - (let ((_%hd179962180002%_ + _%rest180258%_)) + _%blocks180229%_))))) + (if (let () (declare (not safe)) (##pair? _%blocks180231180247%_)) + (let ((_%hd180236180276%_ (let () (declare (not safe)) - (##car _%blocks179957179973%_))) - (_%tl179963180004%_ + (##car _%blocks180231180247%_))) + (_%tl180237180278%_ (let () (declare (not safe)) - (##cdr _%blocks179957179973%_)))) - (if (let () (declare (not safe)) (##pair? _%hd179962180002%_)) - (let ((_%hd179964180007%_ + (##cdr _%blocks180231180247%_)))) + (if (let () (declare (not safe)) (##pair? _%hd180236180276%_)) + (let ((_%hd180238180281%_ (let () (declare (not safe)) - (##car _%hd179962180002%_))) - (_%tl179965180009%_ + (##car _%hd180236180276%_))) + (_%tl180239180283%_ (let () (declare (not safe)) - (##cdr _%hd179962180002%_)))) - (let ((_%name180012%_ _%hd179964180007%_)) + (##cdr _%hd180236180276%_)))) + (let ((_%name180286%_ _%hd180238180281%_)) (if (let () (declare (not safe)) - (##pair? _%tl179965180009%_)) - (let ((_%hd179966180014%_ + (##pair? _%tl180239180283%_)) + (let ((_%hd180240180288%_ (let () (declare (not safe)) - (##car _%tl179965180009%_))) - (_%tl179967180016%_ + (##car _%tl180239180283%_))) + (_%tl180241180290%_ (let () (declare (not safe)) - (##cdr _%tl179965180009%_)))) + (##cdr _%tl180239180283%_)))) (if (let () (declare (not safe)) - (##eq? _%hd179966180014%_ 'restart:)) + (##eq? _%hd180240180288%_ 'restart:)) (if (let () (declare (not safe)) - (##pair? _%tl179967180016%_)) - (let ((_%hd179968180019%_ + (##pair? _%tl180241180290%_)) + (let ((_%hd180242180293%_ (let () (declare (not safe)) - (##car _%tl179967180016%_))) - (_%tl179969180021%_ + (##car _%tl180241180290%_))) + (_%tl180243180295%_ (let () (declare (not safe)) - (##cdr _%tl179967180016%_)))) - (let ((_%kont180024%_ - _%hd179968180019%_)) + (##cdr _%tl180241180290%_)))) + (let ((_%kont180298%_ + _%hd180242180293%_)) (if (let () (declare (not safe)) - (##pair? _%tl179969180021%_)) - (let ((_%tl179971180026%_ + (##pair? _%tl180243180295%_)) + (let ((_%tl180245180300%_ (let () (declare (not safe)) - (##cdr _%tl179969180021%_)))) + (##cdr _%tl180243180295%_)))) (if (let () (declare (not safe)) - (##null? _%tl179971180026%_)) - (let ((_%rest180029%_ - _%tl179963180004%_)) - (_%K179961179999%_ - _%rest180029%_ - _%kont180024%_ - _%name180012%_)) - (_%else179959179981%_))) - (_%else179959179981%_)))) - (_%else179959179981%_)) - (_%else179959179981%_))) - (_%else179959179981%_)))) - (_%else179959179981%_))) - (_%else179959179981%_))))) + (##null? _%tl180245180300%_)) + (let ((_%rest180303%_ + _%tl180237180278%_)) + (_%K180235180273%_ + _%rest180303%_ + _%kont180298%_ + _%name180286%_)) + (_%else180233180255%_))) + (_%else180233180255%_)))) + (_%else180233180255%_)) + (_%else180233180255%_))) + (_%else180233180255%_)))) + (_%else180233180255%_))) + (_%else180233180255%_))))) (define gxc#optimize-match-assert-restart - (lambda (_%block179351%_ _%name179352%_) - (letrec ((_%assert-restart179354%_ - (lambda (_%expr179510%_ _%assert179511%_) - (let* ((_%__stx189910189911%_ _%expr179510%_) - (_%g179517179614%_ + (lambda (_%block179625%_ _%name179626%_) + (letrec ((_%assert-restart179628%_ + (lambda (_%expr179784%_ _%assert179785%_) + (let* ((_%__stx190184190185%_ _%expr179784%_) + (_%g179791179888%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189910189911%_))))) - (let ((_%__kont189912189913%_ - (lambda (_%L179930%_ _%L179931%_ _%L179932%_) - (let ((_%$e179949%_ - (_%assert-restart179354%_ - _%L179931%_ - (cons (cons _%L179932%_ '#t) - _%assert179511%_)))) - (if _%$e179949%_ - _%$e179949%_ - (_%assert-restart179354%_ - _%L179930%_ - (cons (cons _%L179932%_ '#f) - _%assert179511%_)))))) - (_%__kont189914189915%_ - (lambda (_%L179878%_) + _%__stx190184190185%_))))) + (let ((_%__kont190186190187%_ + (lambda (_%L180204%_ _%L180205%_ _%L180206%_) + (let ((_%$e180223%_ + (_%assert-restart179628%_ + _%L180205%_ + (cons (cons _%L180206%_ '#t) + _%assert179785%_)))) + (if _%$e180223%_ + _%$e180223%_ + (_%assert-restart179628%_ + _%L180204%_ + (cons (cons _%L180206%_ '#f) + _%assert179785%_)))))) + (_%__kont190188190189%_ + (lambda (_%L180152%_) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L179878%_ - _%name179352%_)) - _%assert179511%_ + _%L180152%_ + _%name179626%_)) + _%assert179785%_ '#f))) - (_%__kont189916189917%_ - (lambda (_%L179828%_) - (_%assert-restart179354%_ - _%L179828%_ - _%assert179511%_))) - (_%__kont189918189919%_ - (lambda (_%L179754%_ - _%L179755%_ - _%L179756%_ - _%L179757%_ - _%L179758%_) - (_%assert-restart179354%_ - _%L179756%_ - _%assert179511%_))) - (_%__kont189924189925%_ (lambda () '#f))) - (let ((_%__match190079190080%_ - (lambda (_%e179562179626%_ - _%hd179563179629%_ - _%tl179564179631%_ - _%e179565179634%_ - _%hd179566179637%_ - _%tl179567179639%_ - _%e179568179642%_ - _%hd179569179645%_ - _%tl179570179647%_ - _%e179571179650%_ - _%hd179572179653%_ - _%tl179573179655%_ - _%e179574179658%_ - _%hd179575179661%_ - _%tl179576179663%_ - _%e179577179666%_ - _%hd179578179669%_ - _%tl179579179671%_ - _%e179580179674%_ - _%hd179581179677%_ - _%tl179582179679%_ - _%e179583179682%_ - _%hd179584179685%_ - _%tl179585179687%_ - _%__splice189920189921%_ - _%target179586179690%_ - _%tl179588179692%_) - (letrec ((_%loop179589179695%_ - (lambda (_%hd179587179698%_ - _%id179593179700%_) + (_%__kont190190190191%_ + (lambda (_%L180102%_) + (_%assert-restart179628%_ + _%L180102%_ + _%assert179785%_))) + (_%__kont190192190193%_ + (lambda (_%L180028%_ + _%L180029%_ + _%L180030%_ + _%L180031%_ + _%L180032%_) + (_%assert-restart179628%_ + _%L180030%_ + _%assert179785%_))) + (_%__kont190198190199%_ (lambda () '#f))) + (let ((_%__match190353190354%_ + (lambda (_%e179836179900%_ + _%hd179837179903%_ + _%tl179838179905%_ + _%e179839179908%_ + _%hd179840179911%_ + _%tl179841179913%_ + _%e179842179916%_ + _%hd179843179919%_ + _%tl179844179921%_ + _%e179845179924%_ + _%hd179846179927%_ + _%tl179847179929%_ + _%e179848179932%_ + _%hd179849179935%_ + _%tl179850179937%_ + _%e179851179940%_ + _%hd179852179943%_ + _%tl179853179945%_ + _%e179854179948%_ + _%hd179855179951%_ + _%tl179856179953%_ + _%e179857179956%_ + _%hd179858179959%_ + _%tl179859179961%_ + _%__splice190194190195%_ + _%target179860179964%_ + _%tl179862179966%_) + (letrec ((_%loop179863179969%_ + (lambda (_%hd179861179972%_ + _%id179867179974%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179587179698%_)) - (let ((_%e179590179703%_ + _%hd179861179972%_)) + (let ((_%e179864179977%_ (let () (declare (not safe)) (gx#stx-e - _%hd179587179698%_)))) - (let ((_%lp-tl179592179708%_ + _%hd179861179972%_)))) + (let ((_%lp-tl179866179982%_ (let () (declare (not safe)) - (##cdr _%e179590179703%_))) - (_%lp-hd179591179706%_ + (##cdr _%e179864179977%_))) + (_%lp-hd179865179980%_ (let () (declare (not safe)) - (##car _%e179590179703%_)))) - (_%loop179589179695%_ - _%lp-tl179592179708%_ - (cons _%lp-hd179591179706%_ - _%id179593179700%_)))) - (let ((_%id179594179711%_ - (reverse _%id179593179700%_))) + (##car _%e179864179977%_)))) + (_%loop179863179969%_ + _%lp-tl179866179982%_ + (cons _%lp-hd179865179980%_ + _%id179867179974%_)))) + (let ((_%id179868179985%_ + (reverse _%id179867179974%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179585179687%_)) - (let ((_%e179595179714%_ + _%tl179859179961%_)) + (let ((_%e179869179988%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179585179687%_)))) - (let ((_%tl179597179719%_ + (gx#stx-e _%tl179859179961%_)))) + (let ((_%tl179871179993%_ (let () (declare (not safe)) - (##cdr _%e179595179714%_))) - (_%hd179596179717%_ + (##cdr _%e179869179988%_))) + (_%hd179870179991%_ (let () (declare (not safe)) - (##car _%e179595179714%_)))) + (##car _%e179869179988%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179597179719%_)) + (gx#stx-null? _%tl179871179993%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179579179671%_)) + (gx#stx-null? _%tl179853179945%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl179570179647%_)) - (let ((_%__splice189922189923%_ + (gx#stx-pair/null? _%tl179844179921%_)) + (let ((_%__splice190196190197%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl179570179647%_ + _%tl179844179921%_ '0)))) - (let ((_%tl179600179724%_ + (let ((_%tl179874179998%_ (let () (declare (not safe)) (##vector-ref - _%__splice189922189923%_ + _%__splice190196190197%_ '1))) - (_%target179598179722%_ + (_%target179872179996%_ (let () (declare (not safe)) (##vector-ref - _%__splice189922189923%_ + _%__splice190196190197%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179600179724%_)) - (letrec ((_%loop179601179727%_ - (lambda (_%hd179599179730%_ - _%bind179605179732%_) + (gx#stx-null? _%tl179874179998%_)) + (letrec ((_%loop179875180001%_ + (lambda (_%hd179873180004%_ + _%bind179879180006%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179599179730%_)) - (let ((_%e179602179735%_ + _%hd179873180004%_)) + (let ((_%e179876180009%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd179599179730%_)))) - (let ((_%lp-tl179604179740%_ + (gx#stx-e _%hd179873180004%_)))) + (let ((_%lp-tl179878180014%_ (let () (declare (not safe)) - (##cdr _%e179602179735%_))) - (_%lp-hd179603179738%_ + (##cdr _%e179876180009%_))) + (_%lp-hd179877180012%_ (let () (declare (not safe)) - (##car _%e179602179735%_)))) - (_%loop179601179727%_ - _%lp-tl179604179740%_ - (cons _%lp-hd179603179738%_ _%bind179605179732%_)))) - (let ((_%bind179606179743%_ (reverse _%bind179605179732%_))) + (##car _%e179876180009%_)))) + (_%loop179875180001%_ + _%lp-tl179878180014%_ + (cons _%lp-hd179877180012%_ _%bind179879180006%_)))) + (let ((_%bind179880180017%_ (reverse _%bind179879180006%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179567179639%_)) - (let ((_%e179607179746%_ + (gx#stx-pair? _%tl179841179913%_)) + (let ((_%e179881180020%_ (let () (declare (not safe)) - (gx#stx-e _%tl179567179639%_)))) - (let ((_%tl179609179751%_ + (gx#stx-e _%tl179841179913%_)))) + (let ((_%tl179883180025%_ (let () (declare (not safe)) - (##cdr _%e179607179746%_))) - (_%hd179608179749%_ + (##cdr _%e179881180020%_))) + (_%hd179882180023%_ (let () (declare (not safe)) - (##car _%e179607179746%_)))) + (##car _%e179881180020%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179609179751%_)) - (_%__kont189918189919%_ - _%hd179608179749%_ - _%bind179606179743%_ - _%hd179596179717%_ - _%id179594179711%_ - _%hd179575179661%_) - (_%__kont189924189925%_)))) - (_%__kont189924189925%_))))))) + (gx#stx-null? _%tl179883180025%_)) + (_%__kont190192190193%_ + _%hd179882180023%_ + _%bind179880180017%_ + _%hd179870179991%_ + _%id179868179985%_ + _%hd179849179935%_) + (_%__kont190198190199%_)))) + (_%__kont190198190199%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop179601179727%_ - _%target179598179722%_ + (_%loop179875180001%_ + _%target179872179996%_ '())) - (_%__kont189924189925%_)))) - (_%__kont189924189925%_)) - (_%__kont189924189925%_)) - (_%__kont189924189925%_)))) - (_%__kont189924189925%_))))))) + (_%__kont190198190199%_)))) + (_%__kont190198190199%_)) + (_%__kont190198190199%_)) + (_%__kont190198190199%_)))) + (_%__kont190198190199%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop179589179695%_ - _%target179586179690%_ + (_%loop179863179969%_ + _%target179860179964%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx189910189911%_)) - (let ((_%e179522179898%_ + (gx#stx-pair? _%__stx190184190185%_)) + (let ((_%e179796180172%_ (let () (declare (not safe)) - (gx#stx-e _%__stx189910189911%_)))) - (let ((_%tl179524179903%_ + (gx#stx-e _%__stx190184190185%_)))) + (let ((_%tl179798180177%_ (let () (declare (not safe)) - (##cdr _%e179522179898%_))) - (_%hd179523179901%_ + (##cdr _%e179796180172%_))) + (_%hd179797180175%_ (let () (declare (not safe)) - (##car _%e179522179898%_)))) + (##car _%e179796180172%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179523179901%_)) + (gx#identifier? _%hd179797180175%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd179523179901%_)) + _%hd179797180175%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179524179903%_)) - (let ((_%e179525179906%_ + _%tl179798180177%_)) + (let ((_%e179799180180%_ (let () (declare (not safe)) (gx#stx-e - _%tl179524179903%_)))) - (let ((_%tl179527179911%_ + _%tl179798180177%_)))) + (let ((_%tl179801180185%_ (let () (declare (not safe)) - (##cdr _%e179525179906%_))) - (_%hd179526179909%_ + (##cdr _%e179799180180%_))) + (_%hd179800180183%_ (let () (declare (not safe)) - (##car _%e179525179906%_)))) + (##car _%e179799180180%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179527179911%_)) - (let ((_%e179528179914%_ + _%tl179801180185%_)) + (let ((_%e179802180188%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179527179911%_)))) - (let ((_%tl179530179919%_ - (let () (declare (not safe)) (##cdr _%e179528179914%_))) - (_%hd179529179917%_ + (gx#stx-e _%tl179801180185%_)))) + (let ((_%tl179804180193%_ + (let () (declare (not safe)) (##cdr _%e179802180188%_))) + (_%hd179803180191%_ (let () (declare (not safe)) - (##car _%e179528179914%_)))) + (##car _%e179802180188%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179530179919%_)) - (let ((_%e179531179922%_ + (gx#stx-pair? _%tl179804180193%_)) + (let ((_%e179805180196%_ (let () (declare (not safe)) - (gx#stx-e _%tl179530179919%_)))) - (let ((_%tl179533179927%_ + (gx#stx-e _%tl179804180193%_)))) + (let ((_%tl179807180201%_ (let () (declare (not safe)) - (##cdr _%e179531179922%_))) - (_%hd179532179925%_ + (##cdr _%e179805180196%_))) + (_%hd179806180199%_ (let () (declare (not safe)) - (##car _%e179531179922%_)))) + (##car _%e179805180196%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179533179927%_)) - (_%__kont189912189913%_ - _%hd179532179925%_ - _%hd179529179917%_ - _%hd179526179909%_) - (_%__kont189924189925%_)))) - (_%__kont189924189925%_)))) - (_%__kont189924189925%_)))) + (gx#stx-null? _%tl179807180201%_)) + (_%__kont190186190187%_ + _%hd179806180199%_ + _%hd179803180191%_ + _%hd179800180183%_) + (_%__kont190198190199%_)))) + (_%__kont190198190199%_)))) + (_%__kont190198190199%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189924189925%_)) + (_%__kont190198190199%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd179523179901%_)) + _%hd179797180175%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179524179903%_)) - (let ((_%e179538179854%_ + _%tl179798180177%_)) + (let ((_%e179812180128%_ (let () (declare (not safe)) (gx#stx-e - _%tl179524179903%_)))) - (let ((_%tl179540179859%_ + _%tl179798180177%_)))) + (let ((_%tl179814180133%_ (let () (declare (not safe)) - (##cdr _%e179538179854%_))) - (_%hd179539179857%_ + (##cdr _%e179812180128%_))) + (_%hd179813180131%_ (let () (declare (not safe)) - (##car _%e179538179854%_)))) + (##car _%e179812180128%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179539179857%_)) - (let ((_%e179541179862%_ + _%hd179813180131%_)) + (let ((_%e179815180136%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd179539179857%_)))) - (let ((_%tl179543179867%_ + (gx#stx-e _%hd179813180131%_)))) + (let ((_%tl179817180141%_ (let () (declare (not safe)) - (##cdr _%e179541179862%_))) - (_%hd179542179865%_ + (##cdr _%e179815180136%_))) + (_%hd179816180139%_ (let () (declare (not safe)) - (##car _%e179541179862%_)))) + (##car _%e179815180136%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179542179865%_)) + (gx#identifier? _%hd179816180139%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd179542179865%_)) + (gx#stx-eq? '%#ref _%hd179816180139%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179543179867%_)) - (let ((_%e179544179870%_ + (gx#stx-pair? _%tl179817180141%_)) + (let ((_%e179818180144%_ (let () (declare (not safe)) - (gx#stx-e _%tl179543179867%_)))) - (let ((_%tl179546179875%_ + (gx#stx-e _%tl179817180141%_)))) + (let ((_%tl179820180149%_ (let () (declare (not safe)) - (##cdr _%e179544179870%_))) - (_%hd179545179873%_ + (##cdr _%e179818180144%_))) + (_%hd179819180147%_ (let () (declare (not safe)) - (##car _%e179544179870%_)))) + (##car _%e179818180144%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179546179875%_)) - (_%__kont189914189915%_ - _%hd179545179873%_) - (_%__kont189924189925%_)))) - (_%__kont189924189925%_)) - (_%__kont189924189925%_)) - (_%__kont189924189925%_)))) - (_%__kont189924189925%_)))) + (gx#stx-null? _%tl179820180149%_)) + (_%__kont190188190189%_ + _%hd179819180147%_) + (_%__kont190198190199%_)))) + (_%__kont190198190199%_)) + (_%__kont190198190199%_)) + (_%__kont190198190199%_)))) + (_%__kont190198190199%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189924189925%_)) + (_%__kont190198190199%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd179523179901%_)) + _%hd179797180175%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179524179903%_)) - (let ((_%e179551179812%_ + _%tl179798180177%_)) + (let ((_%e179825180086%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179524179903%_)))) - (let ((_%tl179553179817%_ - (let () (declare (not safe)) (##cdr _%e179551179812%_))) - (_%hd179552179815%_ + (gx#stx-e _%tl179798180177%_)))) + (let ((_%tl179827180091%_ + (let () (declare (not safe)) (##cdr _%e179825180086%_))) + (_%hd179826180089%_ (let () (declare (not safe)) - (##car _%e179551179812%_)))) + (##car _%e179825180086%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179553179817%_)) - (let ((_%e179554179820%_ + (gx#stx-pair? _%tl179827180091%_)) + (let ((_%e179828180094%_ (let () (declare (not safe)) - (gx#stx-e _%tl179553179817%_)))) - (let ((_%tl179556179825%_ + (gx#stx-e _%tl179827180091%_)))) + (let ((_%tl179830180099%_ (let () (declare (not safe)) - (##cdr _%e179554179820%_))) - (_%hd179555179823%_ + (##cdr _%e179828180094%_))) + (_%hd179829180097%_ (let () (declare (not safe)) - (##car _%e179554179820%_)))) + (##car _%e179828180094%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179556179825%_)) - (_%__kont189916189917%_ _%hd179555179823%_) - (_%__kont189924189925%_)))) - (_%__kont189924189925%_)))) - (_%__kont189924189925%_)) + (gx#stx-null? _%tl179830180099%_)) + (_%__kont190190190191%_ _%hd179829180097%_) + (_%__kont190198190199%_)))) + (_%__kont190198190199%_)))) + (_%__kont190198190199%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd179523179901%_)) + _%hd179797180175%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179524179903%_)) - (let ((_%e179565179634%_ + _%tl179798180177%_)) + (let ((_%e179839179908%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl179524179903%_)))) - (let ((_%tl179567179639%_ + (gx#stx-e _%tl179798180177%_)))) + (let ((_%tl179841179913%_ (let () (declare (not safe)) - (##cdr _%e179565179634%_))) - (_%hd179566179637%_ + (##cdr _%e179839179908%_))) + (_%hd179840179911%_ (let () (declare (not safe)) - (##car _%e179565179634%_)))) + (##car _%e179839179908%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179566179637%_)) - (let ((_%e179568179642%_ + (gx#stx-pair? _%hd179840179911%_)) + (let ((_%e179842179916%_ (let () (declare (not safe)) - (gx#stx-e _%hd179566179637%_)))) - (let ((_%tl179570179647%_ + (gx#stx-e _%hd179840179911%_)))) + (let ((_%tl179844179921%_ (let () (declare (not safe)) - (##cdr _%e179568179642%_))) - (_%hd179569179645%_ + (##cdr _%e179842179916%_))) + (_%hd179843179919%_ (let () (declare (not safe)) - (##car _%e179568179642%_)))) + (##car _%e179842179916%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179569179645%_)) - (let ((_%e179571179650%_ + (gx#stx-pair? _%hd179843179919%_)) + (let ((_%e179845179924%_ (let () (declare (not safe)) - (gx#stx-e _%hd179569179645%_)))) - (let ((_%tl179573179655%_ + (gx#stx-e _%hd179843179919%_)))) + (let ((_%tl179847179929%_ (let () (declare (not safe)) - (##cdr _%e179571179650%_))) - (_%hd179572179653%_ + (##cdr _%e179845179924%_))) + (_%hd179846179927%_ (let () (declare (not safe)) - (##car _%e179571179650%_)))) + (##car _%e179845179924%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179572179653%_)) - (let ((_%e179574179658%_ + (gx#stx-pair? _%hd179846179927%_)) + (let ((_%e179848179932%_ (let () (declare (not safe)) (gx#stx-e - _%hd179572179653%_)))) - (let ((_%tl179576179663%_ + _%hd179846179927%_)))) + (let ((_%tl179850179937%_ (let () (declare (not safe)) - (##cdr _%e179574179658%_))) - (_%hd179575179661%_ + (##cdr _%e179848179932%_))) + (_%hd179849179935%_ (let () (declare (not safe)) - (##car _%e179574179658%_)))) + (##car _%e179848179932%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179576179663%_)) + _%tl179850179937%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179573179655%_)) - (let ((_%e179577179666%_ + _%tl179847179929%_)) + (let ((_%e179851179940%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179573179655%_)))) - (let ((_%tl179579179671%_ - (let () (declare (not safe)) (##cdr _%e179577179666%_))) - (_%hd179578179669%_ + (gx#stx-e _%tl179847179929%_)))) + (let ((_%tl179853179945%_ + (let () (declare (not safe)) (##cdr _%e179851179940%_))) + (_%hd179852179943%_ (let () (declare (not safe)) - (##car _%e179577179666%_)))) + (##car _%e179851179940%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179578179669%_)) - (let ((_%e179580179674%_ + (gx#stx-pair? _%hd179852179943%_)) + (let ((_%e179854179948%_ (let () (declare (not safe)) - (gx#stx-e _%hd179578179669%_)))) - (let ((_%tl179582179679%_ + (gx#stx-e _%hd179852179943%_)))) + (let ((_%tl179856179953%_ (let () (declare (not safe)) - (##cdr _%e179580179674%_))) - (_%hd179581179677%_ + (##cdr _%e179854179948%_))) + (_%hd179855179951%_ (let () (declare (not safe)) - (##car _%e179580179674%_)))) + (##car _%e179854179948%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179581179677%_)) + (gx#identifier? _%hd179855179951%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd179581179677%_)) + (gx#stx-eq? '%#lambda _%hd179855179951%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179582179679%_)) - (let ((_%e179583179682%_ + (gx#stx-pair? _%tl179856179953%_)) + (let ((_%e179857179956%_ (let () (declare (not safe)) - (gx#stx-e _%tl179582179679%_)))) - (let ((_%tl179585179687%_ + (gx#stx-e _%tl179856179953%_)))) + (let ((_%tl179859179961%_ (let () (declare (not safe)) - (##cdr _%e179583179682%_))) - (_%hd179584179685%_ + (##cdr _%e179857179956%_))) + (_%hd179858179959%_ (let () (declare (not safe)) - (##car _%e179583179682%_)))) + (##car _%e179857179956%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd179584179685%_)) - (let ((_%__splice189920189921%_ + _%hd179858179959%_)) + (let ((_%__splice190194190195%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd179584179685%_ + _%hd179858179959%_ '0)))) - (let ((_%tl179588179692%_ + (let ((_%tl179862179966%_ (let () (declare (not safe)) (##vector-ref - _%__splice189920189921%_ + _%__splice190194190195%_ '1))) - (_%target179586179690%_ + (_%target179860179964%_ (let () (declare (not safe)) (##vector-ref - _%__splice189920189921%_ + _%__splice190194190195%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179588179692%_)) - (_%__match190079190080%_ - _%e179522179898%_ - _%hd179523179901%_ - _%tl179524179903%_ - _%e179565179634%_ - _%hd179566179637%_ - _%tl179567179639%_ - _%e179568179642%_ - _%hd179569179645%_ - _%tl179570179647%_ - _%e179571179650%_ - _%hd179572179653%_ - _%tl179573179655%_ - _%e179574179658%_ - _%hd179575179661%_ - _%tl179576179663%_ - _%e179577179666%_ - _%hd179578179669%_ - _%tl179579179671%_ - _%e179580179674%_ - _%hd179581179677%_ - _%tl179582179679%_ - _%e179583179682%_ - _%hd179584179685%_ - _%tl179585179687%_ - _%__splice189920189921%_ - _%target179586179690%_ - _%tl179588179692%_) - (_%__kont189924189925%_)))) - (_%__kont189924189925%_)))) - (_%__kont189924189925%_)) - (_%__kont189924189925%_)) - (_%__kont189924189925%_)))) - (_%__kont189924189925%_)))) - (_%__kont189924189925%_)) + _%tl179862179966%_)) + (_%__match190353190354%_ + _%e179796180172%_ + _%hd179797180175%_ + _%tl179798180177%_ + _%e179839179908%_ + _%hd179840179911%_ + _%tl179841179913%_ + _%e179842179916%_ + _%hd179843179919%_ + _%tl179844179921%_ + _%e179845179924%_ + _%hd179846179927%_ + _%tl179847179929%_ + _%e179848179932%_ + _%hd179849179935%_ + _%tl179850179937%_ + _%e179851179940%_ + _%hd179852179943%_ + _%tl179853179945%_ + _%e179854179948%_ + _%hd179855179951%_ + _%tl179856179953%_ + _%e179857179956%_ + _%hd179858179959%_ + _%tl179859179961%_ + _%__splice190194190195%_ + _%target179860179964%_ + _%tl179862179966%_) + (_%__kont190198190199%_)))) + (_%__kont190198190199%_)))) + (_%__kont190198190199%_)) + (_%__kont190198190199%_)) + (_%__kont190198190199%_)))) + (_%__kont190198190199%_)))) + (_%__kont190198190199%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189924189925%_)))) - (_%__kont189924189925%_)))) - (_%__kont189924189925%_)))) - (_%__kont189924189925%_)))) - (_%__kont189924189925%_)) - (_%__kont189924189925%_))))) + (_%__kont190198190199%_)))) + (_%__kont190198190199%_)))) + (_%__kont190198190199%_)))) + (_%__kont190198190199%_)))) + (_%__kont190198190199%_)) + (_%__kont190198190199%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189924189925%_)))) - (_%__kont189924189925%_)))))))) - (let* ((_%block179355179368%_ _%block179351%_) - (_%E179357179372%_ + (_%__kont190198190199%_)))) + (_%__kont190198190199%_)))))))) + (let* ((_%block179629179642%_ _%block179625%_) + (_%E179631179646%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block179355179368%_ + _%block179629179642%_ '([_ _ kont assert . maybe-bind]))) '#!void)) - (_%K179358179485%_ - (lambda (_%maybe-bind179375%_ - _%assert179376%_ - _%kont179377%_) - (let* ((_%g179379179405%_ - (lambda (_%g179380179402%_) + (_%K179632179759%_ + (lambda (_%maybe-bind179649%_ + _%assert179650%_ + _%kont179651%_) + (let* ((_%g179653179679%_ + (lambda (_%g179654179676%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g179380179402%_)))) - (_%g179378179482%_ - (lambda (_%g179380179408%_) + _%g179654179676%_)))) + (_%g179652179756%_ + (lambda (_%g179654179682%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g179380179408%_)) - (let ((_%e179383179410%_ + (gx#stx-pair? _%g179654179682%_)) + (let ((_%e179657179684%_ (let () (declare (not safe)) - (gx#stx-e _%g179380179408%_)))) - (let ((_%hd179384179413%_ + (gx#stx-e _%g179654179682%_)))) + (let ((_%hd179658179687%_ (let () (declare (not safe)) - (##car _%e179383179410%_))) - (_%tl179385179415%_ + (##car _%e179657179684%_))) + (_%tl179659179689%_ (let () (declare (not safe)) - (##cdr _%e179383179410%_)))) + (##cdr _%e179657179684%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd179384179413%_)) + _%hd179658179687%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd179384179413%_)) + _%hd179658179687%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179385179415%_)) - (let ((_%e179386179418%_ + _%tl179659179689%_)) + (let ((_%e179660179692%_ (let () (declare (not safe)) (gx#stx-e - _%tl179385179415%_)))) - (let ((_%hd179387179421%_ + _%tl179659179689%_)))) + (let ((_%hd179661179695%_ (let () (declare (not safe)) - (##car _%e179386179418%_))) - (_%tl179388179423%_ + (##car _%e179660179692%_))) + (_%tl179662179697%_ (let () (declare (not safe)) - (##cdr _%e179386179418%_)))) + (##cdr _%e179660179692%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd179387179421%_)) - (let ((_g190909_ + _%hd179661179695%_)) + (let ((_g191183_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd179387179421%_ '0)))) + (gx#syntax-split-splice _%hd179661179695%_ '0)))) (begin - (let ((_g190910_ + (let ((_g191184_ (let () (declare (not safe)) - (if (##values? _g190909_) - (##vector-length _g190909_) + (if (##values? _g191183_) + (##vector-length _g191183_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g190910_ 2))) - (error "Context expects 2 values" _g190910_))) - (let ((_%target179389179426%_ + (##fx= _g191184_ 2))) + (error "Context expects 2 values" _g191184_))) + (let ((_%target179663179700%_ (let () (declare (not safe)) - (##vector-ref _g190909_ 0))) - (_%tl179391179428%_ + (##vector-ref _g191183_ 0))) + (_%tl179665179702%_ (let () (declare (not safe)) - (##vector-ref _g190909_ 1)))) + (##vector-ref _g191183_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179391179428%_)) - (letrec ((_%loop179392179431%_ - (lambda (_%hd179390179434%_ - _%id179396179436%_) + (gx#stx-null? _%tl179665179702%_)) + (letrec ((_%loop179666179705%_ + (lambda (_%hd179664179708%_ + _%id179670179710%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179390179434%_)) - (let ((_%e179393179439%_ + _%hd179664179708%_)) + (let ((_%e179667179713%_ (let () (declare (not safe)) (gx#stx-e - _%hd179390179434%_)))) - (let ((_%lp-hd179394179442%_ + _%hd179664179708%_)))) + (let ((_%lp-hd179668179716%_ (let () (declare (not safe)) - (##car _%e179393179439%_))) - (_%lp-tl179395179444%_ + (##car _%e179667179713%_))) + (_%lp-tl179669179718%_ (let () (declare (not safe)) - (##cdr _%e179393179439%_)))) - (_%loop179392179431%_ - _%lp-tl179395179444%_ - (cons _%lp-hd179394179442%_ - _%id179396179436%_)))) - (let ((_%id179397179447%_ - (reverse _%id179396179436%_))) + (##cdr _%e179667179713%_)))) + (_%loop179666179705%_ + _%lp-tl179669179718%_ + (cons _%lp-hd179668179716%_ + _%id179670179710%_)))) + (let ((_%id179671179721%_ + (reverse _%id179670179710%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179388179423%_)) - (let ((_%e179398179450%_ + _%tl179662179697%_)) + (let ((_%e179672179724%_ (let () (declare (not safe)) (gx#stx-e - _%tl179388179423%_)))) - (let ((_%hd179399179453%_ + _%tl179662179697%_)))) + (let ((_%hd179673179727%_ (let () (declare (not safe)) - (##car _%e179398179450%_))) - (_%tl179400179455%_ + (##car _%e179672179724%_))) + (_%tl179674179729%_ (let () (declare (not safe)) - (##cdr _%e179398179450%_)))) + (##cdr _%e179672179724%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179400179455%_)) - ((lambda (_%L179458%_ + _%tl179674179729%_)) + ((lambda (_%L179732%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L179459%_) - (_%assert-restart179354%_ _%L179458%_ _%assert179376%_)) - _%hd179399179453%_ - _%id179397179447%_) - (_%g179379179405%_ _%g179380179408%_)))) + _%L179733%_) + (_%assert-restart179628%_ _%L179732%_ _%assert179650%_)) + _%hd179673179727%_ + _%id179671179721%_) + (_%g179653179679%_ _%g179654179682%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g179379179405%_ - _%g179380179408%_))))))) - (_%loop179392179431%_ - _%target179389179426%_ + (_%g179653179679%_ + _%g179654179682%_))))))) + (_%loop179666179705%_ + _%target179663179700%_ '())) - (_%g179379179405%_ _%g179380179408%_))))) - (_%g179379179405%_ _%g179380179408%_)))) + (_%g179653179679%_ _%g179654179682%_))))) + (_%g179653179679%_ _%g179654179682%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g179379179405%_ - _%g179380179408%_)) - (_%g179379179405%_ - _%g179380179408%_)) - (_%g179379179405%_ - _%g179380179408%_)))) - (_%g179379179405%_ _%g179380179408%_))))) - (_%g179378179482%_ _%kont179377%_))))) - (if (let () (declare (not safe)) (##pair? _%block179355179368%_)) - (let ((_%tl179360179488%_ + (_%g179653179679%_ + _%g179654179682%_)) + (_%g179653179679%_ + _%g179654179682%_)) + (_%g179653179679%_ + _%g179654179682%_)))) + (_%g179653179679%_ _%g179654179682%_))))) + (_%g179652179756%_ _%kont179651%_))))) + (if (let () (declare (not safe)) (##pair? _%block179629179642%_)) + (let ((_%tl179634179762%_ (let () (declare (not safe)) - (##cdr _%block179355179368%_)))) + (##cdr _%block179629179642%_)))) (if (let () (declare (not safe)) - (##pair? _%tl179360179488%_)) - (let ((_%tl179362179491%_ + (##pair? _%tl179634179762%_)) + (let ((_%tl179636179765%_ (let () (declare (not safe)) - (##cdr _%tl179360179488%_)))) + (##cdr _%tl179634179762%_)))) (if (let () (declare (not safe)) - (##pair? _%tl179362179491%_)) - (let ((_%hd179363179494%_ + (##pair? _%tl179636179765%_)) + (let ((_%hd179637179768%_ (let () (declare (not safe)) - (##car _%tl179362179491%_))) - (_%tl179364179496%_ + (##car _%tl179636179765%_))) + (_%tl179638179770%_ (let () (declare (not safe)) - (##cdr _%tl179362179491%_)))) - (let ((_%kont179499%_ _%hd179363179494%_)) + (##cdr _%tl179636179765%_)))) + (let ((_%kont179773%_ _%hd179637179768%_)) (if (let () (declare (not safe)) - (##pair? _%tl179364179496%_)) - (let ((_%hd179365179501%_ + (##pair? _%tl179638179770%_)) + (let ((_%hd179639179775%_ (let () (declare (not safe)) - (##car _%tl179364179496%_))) - (_%tl179366179503%_ + (##car _%tl179638179770%_))) + (_%tl179640179777%_ (let () (declare (not safe)) - (##cdr _%tl179364179496%_)))) - (let* ((_%assert179506%_ - _%hd179365179501%_) - (_%maybe-bind179508%_ - _%tl179366179503%_)) - (_%K179358179485%_ - _%maybe-bind179508%_ - _%assert179506%_ - _%kont179499%_))) - (_%E179357179372%_)))) - (_%E179357179372%_))) - (_%E179357179372%_))) - (_%E179357179372%_)))))) + (##cdr _%tl179638179770%_)))) + (let* ((_%assert179780%_ + _%hd179639179775%_) + (_%maybe-bind179782%_ + _%tl179640179777%_)) + (_%K179632179759%_ + _%maybe-bind179782%_ + _%assert179780%_ + _%kont179773%_))) + (_%E179631179646%_)))) + (_%E179631179646%_))) + (_%E179631179646%_))) + (_%E179631179646%_)))))) (define gxc#optimize-syntax-case - (lambda (_%stx178982%_) - (let* ((_%g178984179014%_ - (lambda (_%g178985179011%_) + (lambda (_%stx179256%_) + (let* ((_%g179258179288%_ + (lambda (_%g179259179285%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g178985179011%_)))) - (_%g178983179348%_ - (lambda (_%g178985179017%_) + _%g179259179285%_)))) + (_%g179257179622%_ + (lambda (_%g179259179291%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g178985179017%_)) - (let ((_%e178989179019%_ + (gx#stx-pair? _%g179259179291%_)) + (let ((_%e179263179293%_ (let () (declare (not safe)) - (gx#stx-e _%g178985179017%_)))) - (let ((_%hd178990179022%_ + (gx#stx-e _%g179259179291%_)))) + (let ((_%hd179264179296%_ (let () (declare (not safe)) - (##car _%e178989179019%_))) - (_%tl178991179024%_ + (##car _%e179263179293%_))) + (_%tl179265179298%_ (let () (declare (not safe)) - (##cdr _%e178989179019%_)))) + (##cdr _%e179263179293%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178990179022%_)) + (gx#identifier? _%hd179264179296%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd178990179022%_)) + _%hd179264179296%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178991179024%_)) - (let ((_%e178992179027%_ + (gx#stx-pair? _%tl179265179298%_)) + (let ((_%e179266179301%_ (let () (declare (not safe)) - (gx#stx-e _%tl178991179024%_)))) - (let ((_%hd178993179030%_ + (gx#stx-e _%tl179265179298%_)))) + (let ((_%hd179267179304%_ (let () (declare (not safe)) - (##car _%e178992179027%_))) - (_%tl178994179032%_ + (##car _%e179266179301%_))) + (_%tl179268179306%_ (let () (declare (not safe)) - (##cdr _%e178992179027%_)))) + (##cdr _%e179266179301%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178993179030%_)) - (let ((_%e178995179035%_ + _%hd179267179304%_)) + (let ((_%e179269179309%_ (let () (declare (not safe)) (gx#stx-e - _%hd178993179030%_)))) - (let ((_%hd178996179038%_ + _%hd179267179304%_)))) + (let ((_%hd179270179312%_ (let () (declare (not safe)) - (##car _%e178995179035%_))) - (_%tl178997179040%_ + (##car _%e179269179309%_))) + (_%tl179271179314%_ (let () (declare (not safe)) - (##cdr _%e178995179035%_)))) + (##cdr _%e179269179309%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178996179038%_)) - (let ((_%e178998179043%_ + _%hd179270179312%_)) + (let ((_%e179272179317%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd178996179038%_)))) - (let ((_%hd178999179046%_ - (let () (declare (not safe)) (##car _%e178998179043%_))) - (_%tl179000179048%_ + (gx#stx-e _%hd179270179312%_)))) + (let ((_%hd179273179320%_ + (let () (declare (not safe)) (##car _%e179272179317%_))) + (_%tl179274179322%_ (let () (declare (not safe)) - (##cdr _%e178998179043%_)))) + (##cdr _%e179272179317%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178999179046%_)) - (let ((_%e179001179051%_ + (gx#stx-pair? _%hd179273179320%_)) + (let ((_%e179275179325%_ (let () (declare (not safe)) - (gx#stx-e _%hd178999179046%_)))) - (let ((_%hd179002179054%_ + (gx#stx-e _%hd179273179320%_)))) + (let ((_%hd179276179328%_ (let () (declare (not safe)) - (##car _%e179001179051%_))) - (_%tl179003179056%_ + (##car _%e179275179325%_))) + (_%tl179277179330%_ (let () (declare (not safe)) - (##cdr _%e179001179051%_)))) + (##cdr _%e179275179325%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179003179056%_)) + (gx#stx-null? _%tl179277179330%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179000179048%_)) - (let ((_%e179004179059%_ + (gx#stx-pair? _%tl179274179322%_)) + (let ((_%e179278179333%_ (let () (declare (not safe)) - (gx#stx-e _%tl179000179048%_)))) - (let ((_%hd179005179062%_ + (gx#stx-e _%tl179274179322%_)))) + (let ((_%hd179279179336%_ (let () (declare (not safe)) - (##car _%e179004179059%_))) - (_%tl179006179064%_ + (##car _%e179278179333%_))) + (_%tl179280179338%_ (let () (declare (not safe)) - (##cdr _%e179004179059%_)))) + (##cdr _%e179278179333%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179006179064%_)) + (gx#stx-null? _%tl179280179338%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178997179040%_)) + _%tl179271179314%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178994179032%_)) - (let ((_%e179007179067%_ + _%tl179268179306%_)) + (let ((_%e179281179341%_ (let () (declare (not safe)) (gx#stx-e - _%tl178994179032%_)))) - (let ((_%hd179008179070%_ + _%tl179268179306%_)))) + (let ((_%hd179282179344%_ (let () (declare (not safe)) - (##car _%e179007179067%_))) - (_%tl179009179072%_ + (##car _%e179281179341%_))) + (_%tl179283179346%_ (let () (declare (not safe)) - (##cdr _%e179007179067%_)))) + (##cdr _%e179281179341%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179009179072%_)) - ((lambda (_%L179075%_ + _%tl179283179346%_)) + ((lambda (_%L179349%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L179076%_ - _%L179077%_) - (let _%lp179101%_ ((_%body179103%_ _%L179075%_) - (_%clauses179104%_ '())) - (let* ((_%__stx190082190083%_ _%body179103%_) - (_%g179107179154%_ + _%L179350%_ + _%L179351%_) + (let _%lp179375%_ ((_%body179377%_ _%L179349%_) + (_%clauses179378%_ '())) + (let* ((_%__stx190356190357%_ _%body179377%_) + (_%g179381179428%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190082190083%_))))) - (let ((_%__kont190084190085%_ - (lambda (_%L179320%_ _%L179321%_ _%L179322%_) - (_%lp179101%_ - _%L179320%_ - (cons (cons _%L179322%_ + _%__stx190356190357%_))))) + (let ((_%__kont190358190359%_ + (lambda (_%L179594%_ _%L179595%_ _%L179596%_) + (_%lp179375%_ + _%L179594%_ + (cons (cons _%L179596%_ (let () (declare (not safe)) (gxc#compile-e__0 - _%L179321%_))) - _%clauses179104%_)))) - (_%__kont190086190087%_ - (lambda (_%L179199%_ _%L179200%_) - (let ((_%$e179221%_ - (length _%clauses179104%_))) - (if (eq? '0 _%$e179221%_) - (let ((__tmp190911 + _%L179595%_))) + _%clauses179378%_)))) + (_%__kont190360190361%_ + (lambda (_%L179473%_ _%L179474%_) + (let ((_%$e179495%_ + (length _%clauses179378%_))) + (if (eq? '0 _%$e179495%_) + (let ((__tmp191185 (cons '%#let-values - (cons (cons (cons (cons _%L179077%_ + (cons (cons (cons (cons _%L179351%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%L179076%_ '())) + (cons _%L179350%_ '())) '()) (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%body179103%_)) + (gxc#compile-e__0 _%body179377%_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp190911 - _%stx178982%_)) - (if (eq? '1 _%$e179221%_) - (let* ((_%clauses179223179232%_ - _%clauses179104%_) - (_%E179225179236%_ + __tmp191185 + _%stx179256%_)) + (if (eq? '1 _%$e179495%_) + (let* ((_%clauses179497179506%_ + _%clauses179378%_) + (_%E179499179510%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clauses179223179232%_ + _%clauses179497179506%_ '([[clause ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< . clause-lambda]]))) '#!void)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K179226179242%_ - (lambda (_%clause-lambda179239%_ - _%clause179240%_) - (let ((__tmp190912 + (_%K179500179516%_ + (lambda (_%clause-lambda179513%_ + _%clause179514%_) + (let ((__tmp191186 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%L179077%_ '()) - (cons _%L179076%_ '())) + (cons (cons (cons (cons _%L179351%_ '()) + (cons _%L179350%_ '())) '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%clause179240%_ + (cons (cons (cons (cons _%clause179514%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%clause-lambda179239%_ '())) + (cons _%clause-lambda179513%_ '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%body179103%_)) + _%body179377%_)) '()))) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp190912 _%stx178982%_))))) + (gxc#xform-wrap-source __tmp191186 _%stx179256%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%clauses179223179232%_)) - (let ((_%hd179227179245%_ + (##pair? _%clauses179497179506%_)) + (let ((_%hd179501179519%_ (let () (declare (not safe)) - (##car _%clauses179223179232%_))) - (_%tl179228179247%_ + (##car _%clauses179497179506%_))) + (_%tl179502179521%_ (let () (declare (not safe)) - (##cdr _%clauses179223179232%_)))) + (##cdr _%clauses179497179506%_)))) (if (let () (declare (not safe)) - (##pair? _%hd179227179245%_)) - (let ((_%hd179229179250%_ + (##pair? _%hd179501179519%_)) + (let ((_%hd179503179524%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%hd179227179245%_))) - (_%tl179230179252%_ + (##car _%hd179501179519%_))) + (_%tl179504179526%_ (let () (declare (not safe)) - (##cdr _%hd179227179245%_)))) - (let* ((_%clause179255%_ _%hd179229179250%_) - (_%clause-lambda179257%_ _%tl179230179252%_)) + (##cdr _%hd179501179519%_)))) + (let* ((_%clause179529%_ _%hd179503179524%_) + (_%clause-lambda179531%_ _%tl179504179526%_)) (if (let () (declare (not safe)) - (##null? _%tl179228179247%_)) - (_%K179226179242%_ - _%clause-lambda179257%_ - _%clause179255%_) - (_%E179225179236%_)))) - (_%E179225179236%_))) + (##null? _%tl179502179521%_)) + (_%K179500179516%_ + _%clause-lambda179531%_ + _%clause179529%_) + (_%E179499179510%_)))) + (_%E179499179510%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E179225179236%_))) + (_%E179499179510%_))) (gxc#optimize-syntax-case-body - _%stx178982%_ + _%stx179256%_ (let () (declare (not safe)) - (gxc#compile-e__0 _%L179199%_)) - (cons _%L179077%_ _%L179076%_) - _%clauses179104%_))))))) + (gxc#compile-e__0 _%L179473%_)) + (cons _%L179351%_ _%L179350%_) + _%clauses179378%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190082190083%_)) - (let ((_%e179112179264%_ + (gx#stx-pair? _%__stx190356190357%_)) + (let ((_%e179386179538%_ (let () (declare (not safe)) - (gx#stx-e _%__stx190082190083%_)))) - (let ((_%tl179114179269%_ + (gx#stx-e _%__stx190356190357%_)))) + (let ((_%tl179388179543%_ (let () (declare (not safe)) - (##cdr _%e179112179264%_))) - (_%hd179113179267%_ + (##cdr _%e179386179538%_))) + (_%hd179387179541%_ (let () (declare (not safe)) - (##car _%e179112179264%_)))) + (##car _%e179386179538%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179113179267%_)) + (gx#identifier? _%hd179387179541%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd179113179267%_)) + _%hd179387179541%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179114179269%_)) - (let ((_%e179115179272%_ + _%tl179388179543%_)) + (let ((_%e179389179546%_ (let () (declare (not safe)) (gx#stx-e - _%tl179114179269%_)))) - (let ((_%tl179117179277%_ + _%tl179388179543%_)))) + (let ((_%tl179391179551%_ (let () (declare (not safe)) - (##cdr _%e179115179272%_))) - (_%hd179116179275%_ + (##cdr _%e179389179546%_))) + (_%hd179390179549%_ (let () (declare (not safe)) - (##car _%e179115179272%_)))) + (##car _%e179389179546%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179116179275%_)) - (let ((_%e179118179280%_ + _%hd179390179549%_)) + (let ((_%e179392179554%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd179116179275%_)))) - (let ((_%tl179120179285%_ + (gx#stx-e _%hd179390179549%_)))) + (let ((_%tl179394179559%_ (let () (declare (not safe)) - (##cdr _%e179118179280%_))) - (_%hd179119179283%_ + (##cdr _%e179392179554%_))) + (_%hd179393179557%_ (let () (declare (not safe)) - (##car _%e179118179280%_)))) + (##car _%e179392179554%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179119179283%_)) - (let ((_%e179121179288%_ + (gx#stx-pair? _%hd179393179557%_)) + (let ((_%e179395179562%_ (let () (declare (not safe)) - (gx#stx-e _%hd179119179283%_)))) - (let ((_%tl179123179293%_ + (gx#stx-e _%hd179393179557%_)))) + (let ((_%tl179397179567%_ (let () (declare (not safe)) - (##cdr _%e179121179288%_))) - (_%hd179122179291%_ + (##cdr _%e179395179562%_))) + (_%hd179396179565%_ (let () (declare (not safe)) - (##car _%e179121179288%_)))) + (##car _%e179395179562%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179122179291%_)) - (let ((_%e179124179296%_ + (gx#stx-pair? _%hd179396179565%_)) + (let ((_%e179398179570%_ (let () (declare (not safe)) - (gx#stx-e _%hd179122179291%_)))) - (let ((_%tl179126179301%_ + (gx#stx-e _%hd179396179565%_)))) + (let ((_%tl179400179575%_ (let () (declare (not safe)) - (##cdr _%e179124179296%_))) - (_%hd179125179299%_ + (##cdr _%e179398179570%_))) + (_%hd179399179573%_ (let () (declare (not safe)) - (##car _%e179124179296%_)))) + (##car _%e179398179570%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179126179301%_)) + (gx#stx-null? _%tl179400179575%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179123179293%_)) - (let ((_%e179127179304%_ + (gx#stx-pair? _%tl179397179567%_)) + (let ((_%e179401179578%_ (let () (declare (not safe)) (gx#stx-e - _%tl179123179293%_)))) - (let ((_%tl179129179309%_ + _%tl179397179567%_)))) + (let ((_%tl179403179583%_ (let () (declare (not safe)) - (##cdr _%e179127179304%_))) - (_%hd179128179307%_ + (##cdr _%e179401179578%_))) + (_%hd179402179581%_ (let () (declare (not safe)) - (##car _%e179127179304%_)))) + (##car _%e179401179578%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179129179309%_)) + _%tl179403179583%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179120179285%_)) + _%tl179394179559%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179117179277%_)) - (let ((_%e179130179312%_ + _%tl179391179551%_)) + (let ((_%e179404179586%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl179117179277%_)))) - (let ((_%tl179132179317%_ + (gx#stx-e _%tl179391179551%_)))) + (let ((_%tl179406179591%_ (let () (declare (not safe)) - (##cdr _%e179130179312%_))) - (_%hd179131179315%_ + (##cdr _%e179404179586%_))) + (_%hd179405179589%_ (let () (declare (not safe)) - (##car _%e179130179312%_)))) + (##car _%e179404179586%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179132179317%_)) - (_%__kont190084190085%_ - _%hd179131179315%_ - _%hd179128179307%_ - _%hd179125179299%_) - (let () (declare (not safe)) (_%g179107179154%_))))) - (let () (declare (not safe)) (_%g179107179154%_))) - (let () (declare (not safe)) (_%g179107179154%_))) + (gx#stx-null? _%tl179406179591%_)) + (_%__kont190358190359%_ + _%hd179405179589%_ + _%hd179402179581%_ + _%hd179399179573%_) + (let () (declare (not safe)) (_%g179381179428%_))))) + (let () (declare (not safe)) (_%g179381179428%_))) + (let () (declare (not safe)) (_%g179381179428%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g179107179154%_))))) + (_%g179381179428%_))))) (let () (declare (not safe)) - (_%g179107179154%_))) + (_%g179381179428%_))) (let () (declare (not safe)) - (_%g179107179154%_))))) + (_%g179381179428%_))))) (let () (declare (not safe)) - (_%g179107179154%_))))) - (let () (declare (not safe)) (_%g179107179154%_))))) - (let () (declare (not safe)) (_%g179107179154%_))))) + (_%g179381179428%_))))) + (let () (declare (not safe)) (_%g179381179428%_))))) + (let () (declare (not safe)) (_%g179381179428%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g179107179154%_))) + (_%g179381179428%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd179113179267%_)) + _%hd179387179541%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179114179269%_)) - (let ((_%e179138179167%_ + _%tl179388179543%_)) + (let ((_%e179412179441%_ (let () (declare (not safe)) (gx#stx-e - _%tl179114179269%_)))) - (let ((_%tl179140179172%_ + _%tl179388179543%_)))) + (let ((_%tl179414179446%_ (let () (declare (not safe)) - (##cdr _%e179138179167%_))) - (_%hd179139179170%_ + (##cdr _%e179412179441%_))) + (_%hd179413179444%_ (let () (declare (not safe)) - (##car _%e179138179167%_)))) + (##car _%e179412179441%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179139179170%_)) - (let ((_%e179141179175%_ + _%hd179413179444%_)) + (let ((_%e179415179449%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd179139179170%_)))) - (let ((_%tl179143179180%_ + (gx#stx-e _%hd179413179444%_)))) + (let ((_%tl179417179454%_ (let () (declare (not safe)) - (##cdr _%e179141179175%_))) - (_%hd179142179178%_ + (##cdr _%e179415179449%_))) + (_%hd179416179452%_ (let () (declare (not safe)) - (##car _%e179141179175%_)))) + (##car _%e179415179449%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179142179178%_)) + (gx#identifier? _%hd179416179452%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd179142179178%_)) + (gx#stx-eq? '%#ref _%hd179416179452%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179143179180%_)) - (let ((_%e179144179183%_ + (gx#stx-pair? _%tl179417179454%_)) + (let ((_%e179418179457%_ (let () (declare (not safe)) - (gx#stx-e _%tl179143179180%_)))) - (let ((_%tl179146179188%_ + (gx#stx-e _%tl179417179454%_)))) + (let ((_%tl179420179462%_ (let () (declare (not safe)) - (##cdr _%e179144179183%_))) - (_%hd179145179186%_ + (##cdr _%e179418179457%_))) + (_%hd179419179460%_ (let () (declare (not safe)) - (##car _%e179144179183%_)))) + (##car _%e179418179457%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179146179188%_)) + (gx#stx-null? _%tl179420179462%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179140179172%_)) - (let ((_%e179147179191%_ + _%tl179414179446%_)) + (let ((_%e179421179465%_ (let () (declare (not safe)) (gx#stx-e - _%tl179140179172%_)))) - (let ((_%tl179149179196%_ + _%tl179414179446%_)))) + (let ((_%tl179423179470%_ (let () (declare (not safe)) - (##cdr _%e179147179191%_))) - (_%hd179148179194%_ + (##cdr _%e179421179465%_))) + (_%hd179422179468%_ (let () (declare (not safe)) - (##car _%e179147179191%_)))) + (##car _%e179421179465%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179149179196%_)) - (_%__kont190086190087%_ - _%hd179148179194%_ - _%hd179145179186%_) + _%tl179423179470%_)) + (_%__kont190360190361%_ + _%hd179422179468%_ + _%hd179419179460%_) (let () (declare (not safe)) - (_%g179107179154%_))))) + (_%g179381179428%_))))) (let () (declare (not safe)) - (_%g179107179154%_))) + (_%g179381179428%_))) (let () (declare (not safe)) - (_%g179107179154%_))))) + (_%g179381179428%_))))) (let () (declare (not safe)) - (_%g179107179154%_))) + (_%g179381179428%_))) (let () (declare (not safe)) - (_%g179107179154%_))) - (let () (declare (not safe)) (_%g179107179154%_))))) - (let () (declare (not safe)) (_%g179107179154%_))))) + (_%g179381179428%_))) + (let () (declare (not safe)) (_%g179381179428%_))))) + (let () (declare (not safe)) (_%g179381179428%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g179107179154%_))) + (_%g179381179428%_))) (let () (declare (not safe)) - (_%g179107179154%_)))) + (_%g179381179428%_)))) (let () (declare (not safe)) - (_%g179107179154%_))))) + (_%g179381179428%_))))) (let () (declare (not safe)) - (_%g179107179154%_))))))) - _%hd179008179070%_ - _%hd179005179062%_ - _%hd179002179054%_) - (_%g178984179014%_ _%g178985179017%_)))) + (_%g179381179428%_))))))) + _%hd179282179344%_ + _%hd179279179336%_ + _%hd179276179328%_) + (_%g179258179288%_ _%g179259179291%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g178984179014%_ - _%g178985179017%_)) - (_%g178984179014%_ - _%g178985179017%_)) - (_%g178984179014%_ - _%g178985179017%_)))) - (_%g178984179014%_ _%g178985179017%_)) - (_%g178984179014%_ _%g178985179017%_)))) - (_%g178984179014%_ _%g178985179017%_)))) - (_%g178984179014%_ _%g178985179017%_)))) + (_%g179258179288%_ + _%g179259179291%_)) + (_%g179258179288%_ + _%g179259179291%_)) + (_%g179258179288%_ + _%g179259179291%_)))) + (_%g179258179288%_ _%g179259179291%_)) + (_%g179258179288%_ _%g179259179291%_)))) + (_%g179258179288%_ _%g179259179291%_)))) + (_%g179258179288%_ _%g179259179291%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g178984179014%_ - _%g178985179017%_)))) - (_%g178984179014%_ _%g178985179017%_)) - (_%g178984179014%_ _%g178985179017%_)) - (_%g178984179014%_ _%g178985179017%_)))) - (_%g178984179014%_ _%g178985179017%_))))) - (_%g178983179348%_ _%stx178982%_)))) + (_%g179258179288%_ + _%g179259179291%_)))) + (_%g179258179288%_ _%g179259179291%_)) + (_%g179258179288%_ _%g179259179291%_)) + (_%g179258179288%_ _%g179259179291%_)))) + (_%g179258179288%_ _%g179259179291%_))))) + (_%g179257179622%_ _%stx179256%_)))) (define gxc#optimize-syntax-case-body - (lambda (_%stx178909%_ - _%expr178910%_ - _%negation178911%_ - _%clauses178912%_) - (letrec ((_%normalize178914%_ - (lambda (_%clauses178942%_) - (let* ((_%clauses178943178952%_ _%clauses178942%_) - (_%E178945178956%_ + (lambda (_%stx179183%_ + _%expr179184%_ + _%negation179185%_ + _%clauses179186%_) + (letrec ((_%normalize179188%_ + (lambda (_%clauses179216%_) + (let* ((_%clauses179217179226%_ _%clauses179216%_) + (_%E179219179230%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clauses178943178952%_ + _%clauses179217179226%_ '([[id . kont] . rest]))) '#!void)) - (_%K178946178963%_ - (lambda (_%rest178959%_ - _%kont178960%_ - _%id178961%_) - (cons (cons '#f _%kont178960%_) - _%rest178959%_)))) + (_%K179220179237%_ + (lambda (_%rest179233%_ + _%kont179234%_ + _%id179235%_) + (cons (cons '#f _%kont179234%_) + _%rest179233%_)))) (if (let () (declare (not safe)) - (##pair? _%clauses178943178952%_)) - (let ((_%hd178947178966%_ + (##pair? _%clauses179217179226%_)) + (let ((_%hd179221179240%_ (let () (declare (not safe)) - (##car _%clauses178943178952%_))) - (_%tl178948178968%_ + (##car _%clauses179217179226%_))) + (_%tl179222179242%_ (let () (declare (not safe)) - (##cdr _%clauses178943178952%_)))) + (##cdr _%clauses179217179226%_)))) (if (let () (declare (not safe)) - (##pair? _%hd178947178966%_)) - (let ((_%hd178949178971%_ + (##pair? _%hd179221179240%_)) + (let ((_%hd179223179245%_ (let () (declare (not safe)) - (##car _%hd178947178966%_))) - (_%tl178950178973%_ + (##car _%hd179221179240%_))) + (_%tl179224179247%_ (let () (declare (not safe)) - (##cdr _%hd178947178966%_)))) - (let* ((_%id178976%_ _%hd178949178971%_) - (_%kont178978%_ _%tl178950178973%_) - (_%rest178980%_ _%tl178948178968%_)) - (_%K178946178963%_ - _%rest178980%_ - _%kont178978%_ - _%id178976%_))) - (_%E178945178956%_))) - (_%E178945178956%_)))))) - (let ((__tmp190914 + (##cdr _%hd179221179240%_)))) + (let* ((_%id179250%_ _%hd179223179245%_) + (_%kont179252%_ _%tl179224179247%_) + (_%rest179254%_ _%tl179222179242%_)) + (_%K179220179237%_ + _%rest179254%_ + _%kont179252%_ + _%id179250%_))) + (_%E179219179230%_))) + (_%E179219179230%_)))))) + (let ((__tmp191188 (lambda () - (let* ((_%id178917%_ - (let ((__tmp190915 + (let* ((_%id179191%_ + (let ((__tmp191189 (let () (declare (not safe)) (##gensym '__stx)))) (declare (not safe)) - (make-symbol__0 __tmp190915))) - (_%id178919%_ + (make-symbol__0 __tmp191189))) + (_%id179193%_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _%id178917%_))) - (_%_178921%_ + (gx#core-quote-syntax__0 _%id179191%_))) + (_%_179195%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%id178919%_))) - (_g190916_ + (gx#core-bind-runtime!__0 _%id179193%_))) + (_g191190_ (gxc#optimize-syntax-case-clauses - _%clauses178912%_ - (car _%negation178911%_)))) + _%clauses179186%_ + (car _%negation179185%_)))) (begin - (let ((_g190917_ + (let ((_g191191_ (let () (declare (not safe)) - (if (##values? _g190916_) - (##vector-length _g190916_) + (if (##values? _g191190_) + (##vector-length _g191190_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g190917_ 2))) - (error "Context expects 2 values" _g190917_))) - (let ((_%clauses178923%_ + (##fx= _g191191_ 2))) + (error "Context expects 2 values" _g191191_))) + (let ((_%clauses179197%_ (let () (declare (not safe)) - (##vector-ref _g190916_ 0))) - (_%konts178924%_ + (##vector-ref _g191190_ 0))) + (_%konts179198%_ (let () (declare (not safe)) - (##vector-ref _g190916_ 1)))) - (let* ((_%clauses178933%_ - (map (lambda (_%g178925178928%_ - _%g178926178930%_) + (##vector-ref _g191190_ 1)))) + (let* ((_%clauses179207%_ + (map (lambda (_%g179199179202%_ + _%g179200179204%_) (gxc#optimize-syntax-case-closure - _%g178925178928%_ - _%g178926178930%_ - _%id178919%_)) - _%clauses178923%_ - (let ((__tmp190919 - (cons (car _%negation178911%_) + _%g179199179202%_ + _%g179200179204%_ + _%id179193%_)) + _%clauses179197%_ + (let ((__tmp191193 + (cons (car _%negation179185%_) '())) - (__tmp190918 + (__tmp191192 (map car - (cdr _%clauses178923%_)))) + (cdr _%clauses179197%_)))) (declare (not safe)) (__foldr1 cons - __tmp190919 - __tmp190918)))) - (_%clauses178935%_ - (_%normalize178914%_ _%clauses178933%_)) - (_%negation178937%_ + __tmp191193 + __tmp191192)))) + (_%clauses179209%_ + (_%normalize179188%_ _%clauses179207%_)) + (_%negation179211%_ (gxc#optimize-syntax-case-closure - _%negation178911%_ + _%negation179185%_ '#f - _%id178919%_)) - (_%body178939%_ + _%id179193%_)) + (_%body179213%_ (gxc#optimize-match-body - _%stx178909%_ - _%negation178937%_ - _%clauses178935%_ - _%konts178924%_)) - (__tmp190920 + _%stx179183%_ + _%negation179211%_ + _%clauses179209%_ + _%konts179198%_)) + (__tmp191194 (cons '%#let-values - (cons (cons (cons (cons _%id178919%_ + (cons (cons (cons (cons _%id179193%_ '()) - (cons _%expr178910%_ + (cons _%expr179184%_ '())) '()) - (cons _%body178939%_ '()))))) + (cons _%body179213%_ '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp190920 - _%stx178909%_))))))) - (__tmp190913 - (let ((__obj190834 + __tmp191194 + _%stx179183%_))))))) + (__tmp191187 + (let ((__obj191108 (let () (declare (not safe)) (##structure @@ -13286,72 +13286,72 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj190834)) - __obj190834))) + (gx#local-context:::init!__0 __obj191108)) + __obj191108))) (declare (not safe)) (__call-with-parameters - __tmp190914 + __tmp191188 gx#current-expander-context - __tmp190913))))) + __tmp191187))))) (define gxc#optimize-syntax-case-clauses - (lambda (_%clauses177665%_ _%negation-id177666%_) - (letrec ((_%xform-e177668%_ - (lambda (_%expr178053%_ - _%kont-id178054%_ - _%kont-box178055%_ - _%negation-id178056%_) - (let* ((_%__stx190284190285%_ _%expr178053%_) - (_%g178062178195%_ + (lambda (_%clauses177939%_ _%negation-id177940%_) + (letrec ((_%xform-e177942%_ + (lambda (_%expr178327%_ + _%kont-id178328%_ + _%kont-box178329%_ + _%negation-id178330%_) + (let* ((_%__stx190558190559%_ _%expr178327%_) + (_%g178336178469%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190284190285%_))))) - (let ((_%__kont190286190287%_ - (lambda (_%L178885%_ _%L178886%_ _%L178887%_) - (let ((_%K178904%_ - (_%xform-e177668%_ - _%L178886%_ - _%kont-id178054%_ - _%kont-box178055%_ - _%negation-id178056%_))) + _%__stx190558190559%_))))) + (let ((_%__kont190560190561%_ + (lambda (_%L179159%_ _%L179160%_ _%L179161%_) + (let ((_%K179178%_ + (_%xform-e177942%_ + _%L179160%_ + _%kont-id178328%_ + _%kont-box178329%_ + _%negation-id178330%_))) (cons '%#if - (cons _%L178887%_ - (cons _%K178904%_ - (cons _%L178885%_ '()))))))) - (_%__kont190288190289%_ - (lambda (_%L178800%_ - _%L178801%_ - _%L178802%_ - _%L178803%_ - _%L178804%_) - (let* ((_%id178839%_ - (let ((__tmp190921 + (cons _%L179161%_ + (cons _%K179178%_ + (cons _%L179159%_ '()))))))) + (_%__kont190562190563%_ + (lambda (_%L179074%_ + _%L179075%_ + _%L179076%_ + _%L179077%_ + _%L179078%_) + (let* ((_%id179113%_ + (let ((__tmp191195 (let () (declare (not safe)) (##gensym '__splice)))) (declare (not safe)) - (make-symbol__0 __tmp190921))) - (_%id178841%_ + (make-symbol__0 __tmp191195))) + (_%id179115%_ (let () (declare (not safe)) (gx#core-quote-syntax__0 - _%id178839%_))) - (_%_178843%_ + _%id179113%_))) + (_%_179117%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%id178841%_))) - (_%body178845%_ - (_%xform-e177668%_ - _%L178800%_ - _%kont-id178054%_ - _%kont-box178055%_ - _%negation-id178056%_))) + _%id179115%_))) + (_%body179119%_ + (_%xform-e177942%_ + _%L179074%_ + _%kont-id178328%_ + _%kont-box178329%_ + _%negation-id178330%_))) (cons '%#let-values - (cons (cons (cons (cons _%id178841%_ + (cons (cons (cons (cons _%id179115%_ '()) (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -13360,113 +13360,113 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L178802%_ '())) - _%L178801%_)) + (cons _%L179076%_ '())) + _%L179075%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L178804%_ + (cons (cons (cons (cons _%L179078%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#call (cons '(%#ref ##vector-ref) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id178841%_ '())) + (cons _%id179115%_ '())) (cons '(%#quote 0) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L178803%_ '()) + (cons (cons (cons _%L179077%_ '()) (cons (cons '%#call (cons '(%#ref ##vector-ref) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id178841%_ '())) + (cons _%id179115%_ '())) (cons '(%#quote 1) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())) - (cons _%body178845%_ '()))) + (cons _%body179119%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont190290190291%_ - (lambda (_%L178682%_ _%L178683%_) - (let ((_%body178697%_ - (_%xform-e177668%_ - _%L178682%_ - _%kont-id178054%_ - _%kont-box178055%_ - _%negation-id178056%_))) + (_%__kont190564190565%_ + (lambda (_%L178956%_ _%L178957%_) + (let ((_%body178971%_ + (_%xform-e177942%_ + _%L178956%_ + _%kont-id178328%_ + _%kont-box178329%_ + _%negation-id178330%_))) (cons '%#let-values - (cons _%L178683%_ - (cons _%body178697%_ '())))))) - (_%__kont190292190293%_ - (lambda (_%L178626%_ _%L178627%_ _%L178628%_) - (let ((_%lambda-expr178651%_ - (_%xform-loop-e177669%_ - _%L178627%_ - _%kont-id178054%_ - _%kont-box178055%_ - _%negation-id178056%_))) + (cons _%L178957%_ + (cons _%body178971%_ '())))))) + (_%__kont190566190567%_ + (lambda (_%L178900%_ _%L178901%_ _%L178902%_) + (let ((_%lambda-expr178925%_ + (_%xform-loop-e177943%_ + _%L178901%_ + _%kont-id178328%_ + _%kont-box178329%_ + _%negation-id178330%_))) (cons '%#letrec-values - (cons (cons (cons (cons _%L178628%_ '()) - (cons _%lambda-expr178651%_ + (cons (cons (cons (cons _%L178902%_ '()) + (cons _%lambda-expr178925%_ '())) '()) - (cons _%L178626%_ '())))))) - (_%__kont190294190295%_ - (lambda (_%L178288%_ _%L178289%_ _%L178290%_) - (let* ((_%__stx190186190187%_ _%L178289%_) - (_%g178319178362%_ + (cons _%L178900%_ '())))))) + (_%__kont190568190569%_ + (lambda (_%L178562%_ _%L178563%_ _%L178564%_) + (let* ((_%__stx190460190461%_ _%L178563%_) + (_%g178593178636%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190186190187%_))))) - (let ((_%__kont190188190189%_ - (lambda (_%L178478%_ - _%L178479%_ - _%L178480%_ - _%L178481%_) - (let ((_%kont178522%_ + _%__stx190460190461%_))))) + (let ((_%__kont190462190463%_ + (lambda (_%L178752%_ + _%L178753%_ + _%L178754%_ + _%L178755%_) + (let ((_%kont178796%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons (let ((__tmp190922 + (cons (let ((__tmp191196 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g178514178517%_ _%g178515178519%_) - (cons _%g178514178517%_ _%g178515178519%_)))) + (lambda (_%g178788178791%_ _%g178789178793%_) + (cons _%g178788178791%_ _%g178789178793%_)))) (declare (not safe)) - (__foldr1 __tmp190922 '() _%L178290%_)) - (cons _%L178480%_ '()))))) + (__foldr1 __tmp191196 '() _%L178564%_)) + (cons _%L178754%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (set-box! - _%kont-box178055%_ - _%kont178522%_) - (let* ((_%kont-args178533%_ - (map (lambda (_%id178524%_) + _%kont-box178329%_ + _%kont178796%_) + (let* ((_%kont-args178807%_ + (map (lambda (_%id178798%_) (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id178524%_ '()))) - (let ((__tmp190923 - (lambda (_%g178525178528%_ _%g178526178530%_) - (cons _%g178525178528%_ _%g178526178530%_)))) + (cons _%id178798%_ '()))) + (let ((__tmp191197 + (lambda (_%g178799178802%_ _%g178800178804%_) + (cons _%g178799178802%_ _%g178800178804%_)))) (declare (not safe)) - (__foldr1 __tmp190923 '() _%L178290%_)))) + (__foldr1 __tmp191197 '() _%L178564%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%body178535%_ + (_%body178809%_ (cons '%#if - (cons _%L178481%_ + (cons _%L178755%_ (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref - (cons _%kont-id178054%_ '())) - _%kont-args178533%_)) + (cons _%kont-id178328%_ '())) + _%kont-args178807%_)) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call)) @@ -13475,3162 +13475,3162 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L178479%_ '())) + (cons _%L178753%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L178478%_ + (cons _%L178752%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (null? (let ((__tmp190924 - (lambda (_%g178537178540%_ + (if (null? (let ((__tmp191198 + (lambda (_%g178811178814%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g178538178542%_) - (cons _%g178537178540%_ _%g178538178542%_)))) + _%g178812178816%_) + (cons _%g178811178814%_ _%g178812178816%_)))) (declare (not safe)) - (__foldr1 __tmp190924 '() _%L178290%_))) + (__foldr1 __tmp191198 '() _%L178564%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body178535%_ + _%body178809%_ (cons '%#let-values - (cons (map (lambda (_%id178545%_ + (cons (map (lambda (_%id178819%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%arg178546%_) - (cons (cons _%id178545%_ '()) - (cons _%arg178546%_ '()))) - (let ((__tmp190925 - (lambda (_%g178547178550%_ _%g178548178552%_) - (cons _%g178547178550%_ - _%g178548178552%_)))) + _%arg178820%_) + (cons (cons _%id178819%_ '()) + (cons _%arg178820%_ '()))) + (let ((__tmp191199 + (lambda (_%g178821178824%_ _%g178822178826%_) + (cons _%g178821178824%_ + _%g178822178826%_)))) (declare (not safe)) - (__foldr1 __tmp190925 '() _%L178290%_)) - (let ((__tmp190926 - (lambda (_%g178554178557%_ _%g178555178559%_) - (cons _%g178554178557%_ - _%g178555178559%_)))) + (__foldr1 __tmp191199 '() _%L178564%_)) + (let ((__tmp191200 + (lambda (_%g178828178831%_ _%g178829178833%_) + (cons _%g178828178831%_ + _%g178829178833%_)))) (declare (not safe)) - (__foldr1 __tmp190926 '() _%L178288%_))) - (cons _%body178535%_ '())))))))) + (__foldr1 __tmp191200 '() _%L178562%_))) + (cons _%body178809%_ '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190190190191%_ + (_%__kont190464190465%_ (lambda () - (let ((_%kont178376%_ + (let ((_%kont178650%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons (let ((__tmp190927 + (cons (let ((__tmp191201 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g178368178371%_ _%g178369178373%_) - (cons _%g178368178371%_ _%g178369178373%_)))) + (lambda (_%g178642178645%_ _%g178643178647%_) + (cons _%g178642178645%_ _%g178643178647%_)))) (declare (not safe)) - (__foldr1 __tmp190927 '() _%L178290%_)) - (cons _%L178289%_ '()))))) + (__foldr1 __tmp191201 '() _%L178564%_)) + (cons _%L178563%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (set-box! - _%kont-box178055%_ - _%kont178376%_) + _%kont-box178329%_ + _%kont178650%_) (cons '%#call (cons (cons '%#ref - (cons _%kont-id178054%_ + (cons _%kont-id178328%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (let ((__tmp190928 - (lambda (_%g178377178380%_ _%g178378178382%_) - (cons _%g178377178380%_ _%g178378178382%_)))) + (let ((__tmp191202 + (lambda (_%g178651178654%_ _%g178652178656%_) + (cons _%g178651178654%_ _%g178652178656%_)))) (declare (not safe)) - (__foldr1 __tmp190928 '() _%L178288%_)))))))) + (__foldr1 __tmp191202 '() _%L178562%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match190281190282%_ - (lambda (_%e178325178390%_ - _%hd178326178393%_ - _%tl178327178395%_ - _%e178328178398%_ - _%hd178329178401%_ - _%tl178330178403%_ - _%e178331178406%_ - _%hd178332178409%_ - _%tl178333178411%_ - _%e178334178414%_ - _%hd178335178417%_ - _%tl178336178419%_ - _%e178337178422%_ - _%hd178338178425%_ - _%tl178339178427%_ - _%e178340178430%_ - _%hd178341178433%_ - _%tl178342178435%_ - _%e178343178438%_ - _%hd178344178441%_ - _%tl178345178443%_ - _%e178346178446%_ - _%hd178347178449%_ - _%tl178348178451%_ - _%e178349178454%_ - _%hd178350178457%_ - _%tl178351178459%_ - _%e178352178462%_ - _%hd178353178465%_ - _%tl178354178467%_ - _%e178355178470%_ - _%hd178356178473%_ - _%tl178357178475%_) - (let ((_%L178478%_ - _%hd178356178473%_) - (_%L178479%_ - _%hd178347178449%_) - (_%L178480%_ - _%hd178332178409%_) - (_%L178481%_ - _%hd178329178401%_)) + (let ((_%__match190555190556%_ + (lambda (_%e178599178664%_ + _%hd178600178667%_ + _%tl178601178669%_ + _%e178602178672%_ + _%hd178603178675%_ + _%tl178604178677%_ + _%e178605178680%_ + _%hd178606178683%_ + _%tl178607178685%_ + _%e178608178688%_ + _%hd178609178691%_ + _%tl178610178693%_ + _%e178611178696%_ + _%hd178612178699%_ + _%tl178613178701%_ + _%e178614178704%_ + _%hd178615178707%_ + _%tl178616178709%_ + _%e178617178712%_ + _%hd178618178715%_ + _%tl178619178717%_ + _%e178620178720%_ + _%hd178621178723%_ + _%tl178622178725%_ + _%e178623178728%_ + _%hd178624178731%_ + _%tl178625178733%_ + _%e178626178736%_ + _%hd178627178739%_ + _%tl178628178741%_ + _%e178629178744%_ + _%hd178630178747%_ + _%tl178631178749%_) + (let ((_%L178752%_ + _%hd178630178747%_) + (_%L178753%_ + _%hd178621178723%_) + (_%L178754%_ + _%hd178606178683%_) + (_%L178755%_ + _%hd178603178675%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L178479%_ - _%negation-id178056%_)) - (_%__kont190188190189%_ - _%L178478%_ - _%L178479%_ - _%L178480%_ - _%L178481%_) - (_%__kont190190190191%_)))))) + _%L178753%_ + _%negation-id178330%_)) + (_%__kont190462190463%_ + _%L178752%_ + _%L178753%_ + _%L178754%_ + _%L178755%_) + (_%__kont190464190465%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx190186190187%_)) - (let ((_%e178325178390%_ + _%__stx190460190461%_)) + (let ((_%e178599178664%_ (let () (declare (not safe)) (gx#stx-e - _%__stx190186190187%_)))) - (let ((_%tl178327178395%_ + _%__stx190460190461%_)))) + (let ((_%tl178601178669%_ (let () (declare (not safe)) - (##cdr _%e178325178390%_))) - (_%hd178326178393%_ + (##cdr _%e178599178664%_))) + (_%hd178600178667%_ (let () (declare (not safe)) - (##car _%e178325178390%_)))) + (##car _%e178599178664%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd178326178393%_)) + _%hd178600178667%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd178326178393%_)) + _%hd178600178667%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178327178395%_)) - (let ((_%e178328178398%_ + _%tl178601178669%_)) + (let ((_%e178602178672%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl178327178395%_)))) - (let ((_%tl178330178403%_ + (gx#stx-e _%tl178601178669%_)))) + (let ((_%tl178604178677%_ (let () (declare (not safe)) - (##cdr _%e178328178398%_))) - (_%hd178329178401%_ + (##cdr _%e178602178672%_))) + (_%hd178603178675%_ (let () (declare (not safe)) - (##car _%e178328178398%_)))) + (##car _%e178602178672%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178330178403%_)) - (let ((_%e178331178406%_ + (gx#stx-pair? _%tl178604178677%_)) + (let ((_%e178605178680%_ (let () (declare (not safe)) - (gx#stx-e _%tl178330178403%_)))) - (let ((_%tl178333178411%_ + (gx#stx-e _%tl178604178677%_)))) + (let ((_%tl178607178685%_ (let () (declare (not safe)) - (##cdr _%e178331178406%_))) - (_%hd178332178409%_ + (##cdr _%e178605178680%_))) + (_%hd178606178683%_ (let () (declare (not safe)) - (##car _%e178331178406%_)))) + (##car _%e178605178680%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178333178411%_)) - (let ((_%e178334178414%_ + (gx#stx-pair? _%tl178607178685%_)) + (let ((_%e178608178688%_ (let () (declare (not safe)) - (gx#stx-e _%tl178333178411%_)))) - (let ((_%tl178336178419%_ + (gx#stx-e _%tl178607178685%_)))) + (let ((_%tl178610178693%_ (let () (declare (not safe)) - (##cdr _%e178334178414%_))) - (_%hd178335178417%_ + (##cdr _%e178608178688%_))) + (_%hd178609178691%_ (let () (declare (not safe)) - (##car _%e178334178414%_)))) + (##car _%e178608178688%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178335178417%_)) - (let ((_%e178337178422%_ + (gx#stx-pair? _%hd178609178691%_)) + (let ((_%e178611178696%_ (let () (declare (not safe)) (gx#stx-e - _%hd178335178417%_)))) - (let ((_%tl178339178427%_ + _%hd178609178691%_)))) + (let ((_%tl178613178701%_ (let () (declare (not safe)) - (##cdr _%e178337178422%_))) - (_%hd178338178425%_ + (##cdr _%e178611178696%_))) + (_%hd178612178699%_ (let () (declare (not safe)) - (##car _%e178337178422%_)))) + (##car _%e178611178696%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd178338178425%_)) + _%hd178612178699%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd178338178425%_)) + _%hd178612178699%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178339178427%_)) - (let ((_%e178340178430%_ + _%tl178613178701%_)) + (let ((_%e178614178704%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl178339178427%_)))) - (let ((_%tl178342178435%_ + (gx#stx-e _%tl178613178701%_)))) + (let ((_%tl178616178709%_ (let () (declare (not safe)) - (##cdr _%e178340178430%_))) - (_%hd178341178433%_ + (##cdr _%e178614178704%_))) + (_%hd178615178707%_ (let () (declare (not safe)) - (##car _%e178340178430%_)))) + (##car _%e178614178704%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178341178433%_)) - (let ((_%e178343178438%_ + (gx#stx-pair? _%hd178615178707%_)) + (let ((_%e178617178712%_ (let () (declare (not safe)) - (gx#stx-e _%hd178341178433%_)))) - (let ((_%tl178345178443%_ + (gx#stx-e _%hd178615178707%_)))) + (let ((_%tl178619178717%_ (let () (declare (not safe)) - (##cdr _%e178343178438%_))) - (_%hd178344178441%_ + (##cdr _%e178617178712%_))) + (_%hd178618178715%_ (let () (declare (not safe)) - (##car _%e178343178438%_)))) + (##car _%e178617178712%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178344178441%_)) + (gx#identifier? _%hd178618178715%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd178344178441%_)) + (gx#stx-eq? '%#ref _%hd178618178715%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178345178443%_)) - (let ((_%e178346178446%_ + (gx#stx-pair? _%tl178619178717%_)) + (let ((_%e178620178720%_ (let () (declare (not safe)) (gx#stx-e - _%tl178345178443%_)))) - (let ((_%tl178348178451%_ + _%tl178619178717%_)))) + (let ((_%tl178622178725%_ (let () (declare (not safe)) - (##cdr _%e178346178446%_))) - (_%hd178347178449%_ + (##cdr _%e178620178720%_))) + (_%hd178621178723%_ (let () (declare (not safe)) - (##car _%e178346178446%_)))) + (##car _%e178620178720%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178348178451%_)) + _%tl178622178725%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178342178435%_)) - (let ((_%e178349178454%_ + _%tl178616178709%_)) + (let ((_%e178623178728%_ (let () (declare (not safe)) (gx#stx-e - _%tl178342178435%_)))) - (let ((_%tl178351178459%_ + _%tl178616178709%_)))) + (let ((_%tl178625178733%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e178349178454%_))) - (_%hd178350178457%_ - (let () (declare (not safe)) (##car _%e178349178454%_)))) + (##cdr _%e178623178728%_))) + (_%hd178624178731%_ + (let () (declare (not safe)) (##car _%e178623178728%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178350178457%_)) - (let ((_%e178352178462%_ + (gx#stx-pair? _%hd178624178731%_)) + (let ((_%e178626178736%_ (let () (declare (not safe)) - (gx#stx-e _%hd178350178457%_)))) - (let ((_%tl178354178467%_ + (gx#stx-e _%hd178624178731%_)))) + (let ((_%tl178628178741%_ (let () (declare (not safe)) - (##cdr _%e178352178462%_))) - (_%hd178353178465%_ + (##cdr _%e178626178736%_))) + (_%hd178627178739%_ (let () (declare (not safe)) - (##car _%e178352178462%_)))) + (##car _%e178626178736%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178353178465%_)) + (gx#identifier? _%hd178627178739%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd178353178465%_)) + (gx#stx-eq? '%#ref _%hd178627178739%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178354178467%_)) - (let ((_%e178355178470%_ + (gx#stx-pair? _%tl178628178741%_)) + (let ((_%e178629178744%_ (let () (declare (not safe)) - (gx#stx-e _%tl178354178467%_)))) - (let ((_%tl178357178475%_ + (gx#stx-e _%tl178628178741%_)))) + (let ((_%tl178631178749%_ (let () (declare (not safe)) - (##cdr _%e178355178470%_))) - (_%hd178356178473%_ + (##cdr _%e178629178744%_))) + (_%hd178630178747%_ (let () (declare (not safe)) - (##car _%e178355178470%_)))) + (##car _%e178629178744%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178357178475%_)) + _%tl178631178749%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178351178459%_)) + _%tl178625178733%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178336178419%_)) - (_%__match190281190282%_ - _%e178325178390%_ - _%hd178326178393%_ - _%tl178327178395%_ - _%e178328178398%_ - _%hd178329178401%_ - _%tl178330178403%_ - _%e178331178406%_ - _%hd178332178409%_ - _%tl178333178411%_ - _%e178334178414%_ - _%hd178335178417%_ - _%tl178336178419%_ - _%e178337178422%_ - _%hd178338178425%_ - _%tl178339178427%_ - _%e178340178430%_ - _%hd178341178433%_ - _%tl178342178435%_ - _%e178343178438%_ - _%hd178344178441%_ - _%tl178345178443%_ - _%e178346178446%_ - _%hd178347178449%_ - _%tl178348178451%_ - _%e178349178454%_ - _%hd178350178457%_ - _%tl178351178459%_ - _%e178352178462%_ - _%hd178353178465%_ - _%tl178354178467%_ - _%e178355178470%_ - _%hd178356178473%_ - _%tl178357178475%_) - (_%__kont190190190191%_)) - (_%__kont190190190191%_)) - (_%__kont190190190191%_)))) - (_%__kont190190190191%_)) - (_%__kont190190190191%_)) - (_%__kont190190190191%_)))) - (_%__kont190190190191%_)))) + _%tl178610178693%_)) + (_%__match190555190556%_ + _%e178599178664%_ + _%hd178600178667%_ + _%tl178601178669%_ + _%e178602178672%_ + _%hd178603178675%_ + _%tl178604178677%_ + _%e178605178680%_ + _%hd178606178683%_ + _%tl178607178685%_ + _%e178608178688%_ + _%hd178609178691%_ + _%tl178610178693%_ + _%e178611178696%_ + _%hd178612178699%_ + _%tl178613178701%_ + _%e178614178704%_ + _%hd178615178707%_ + _%tl178616178709%_ + _%e178617178712%_ + _%hd178618178715%_ + _%tl178619178717%_ + _%e178620178720%_ + _%hd178621178723%_ + _%tl178622178725%_ + _%e178623178728%_ + _%hd178624178731%_ + _%tl178625178733%_ + _%e178626178736%_ + _%hd178627178739%_ + _%tl178628178741%_ + _%e178629178744%_ + _%hd178630178747%_ + _%tl178631178749%_) + (_%__kont190464190465%_)) + (_%__kont190464190465%_)) + (_%__kont190464190465%_)))) + (_%__kont190464190465%_)) + (_%__kont190464190465%_)) + (_%__kont190464190465%_)))) + (_%__kont190464190465%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190190190191%_)) - (_%__kont190190190191%_)))) - (_%__kont190190190191%_)) - (_%__kont190190190191%_)) - (_%__kont190190190191%_)))) - (_%__kont190190190191%_)))) - (_%__kont190190190191%_)) + (_%__kont190464190465%_)) + (_%__kont190464190465%_)))) + (_%__kont190464190465%_)) + (_%__kont190464190465%_)) + (_%__kont190464190465%_)))) + (_%__kont190464190465%_)))) + (_%__kont190464190465%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190190190191%_)) - (_%__kont190190190191%_)))) - (_%__kont190190190191%_)))) - (_%__kont190190190191%_)))) - (_%__kont190190190191%_)))) - (_%__kont190190190191%_)) + (_%__kont190464190465%_)) + (_%__kont190464190465%_)))) + (_%__kont190464190465%_)))) + (_%__kont190464190465%_)))) + (_%__kont190464190465%_)))) + (_%__kont190464190465%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190190190191%_)) - (_%__kont190190190191%_)))) - (_%__kont190190190191%_)))))))) - (let* ((_%__match190541190542%_ - (lambda (_%e178158178200%_ - _%hd178159178203%_ - _%tl178160178205%_ - _%e178161178208%_ - _%hd178162178211%_ - _%tl178163178213%_ - _%e178164178216%_ - _%hd178165178219%_ - _%tl178166178221%_ - _%e178167178224%_ - _%hd178168178227%_ - _%tl178169178229%_ - _%__splice190296190297%_ - _%target178170178232%_ - _%tl178172178234%_) - (letrec ((_%loop178173178237%_ - (lambda (_%hd178171178240%_ - _%id178177178242%_) + (_%__kont190464190465%_)) + (_%__kont190464190465%_)))) + (_%__kont190464190465%_)))))))) + (let* ((_%__match190815190816%_ + (lambda (_%e178432178474%_ + _%hd178433178477%_ + _%tl178434178479%_ + _%e178435178482%_ + _%hd178436178485%_ + _%tl178437178487%_ + _%e178438178490%_ + _%hd178439178493%_ + _%tl178440178495%_ + _%e178441178498%_ + _%hd178442178501%_ + _%tl178443178503%_ + _%__splice190570190571%_ + _%target178444178506%_ + _%tl178446178508%_) + (letrec ((_%loop178447178511%_ + (lambda (_%hd178445178514%_ + _%id178451178516%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178171178240%_)) - (let ((_%e178174178245%_ + _%hd178445178514%_)) + (let ((_%e178448178519%_ (let () (declare (not safe)) (gx#stx-e - _%hd178171178240%_)))) - (let ((_%lp-tl178176178250%_ + _%hd178445178514%_)))) + (let ((_%lp-tl178450178524%_ (let () (declare (not safe)) - (##cdr _%e178174178245%_))) - (_%lp-hd178175178248%_ + (##cdr _%e178448178519%_))) + (_%lp-hd178449178522%_ (let () (declare (not safe)) - (##car _%e178174178245%_)))) - (_%loop178173178237%_ - _%lp-tl178176178250%_ - (cons _%lp-hd178175178248%_ - _%id178177178242%_)))) - (let ((_%id178178178253%_ - (reverse _%id178177178242%_))) + (##car _%e178448178519%_)))) + (_%loop178447178511%_ + _%lp-tl178450178524%_ + (cons _%lp-hd178449178522%_ + _%id178451178516%_)))) + (let ((_%id178452178527%_ + (reverse _%id178451178516%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178169178229%_)) - (let ((_%e178179178256%_ + _%tl178443178503%_)) + (let ((_%e178453178530%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl178169178229%_)))) - (let ((_%tl178181178261%_ + (gx#stx-e _%tl178443178503%_)))) + (let ((_%tl178455178535%_ (let () (declare (not safe)) - (##cdr _%e178179178256%_))) - (_%hd178180178259%_ + (##cdr _%e178453178530%_))) + (_%hd178454178533%_ (let () (declare (not safe)) - (##car _%e178179178256%_)))) + (##car _%e178453178530%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178181178261%_)) + (gx#stx-null? _%tl178455178535%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl178163178213%_)) - (let ((_%__splice190298190299%_ + (gx#stx-pair/null? _%tl178437178487%_)) + (let ((_%__splice190572190573%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl178163178213%_ + _%tl178437178487%_ '0)))) - (let ((_%tl178184178266%_ + (let ((_%tl178458178540%_ (let () (declare (not safe)) (##vector-ref - _%__splice190298190299%_ + _%__splice190572190573%_ '1))) - (_%target178182178264%_ + (_%target178456178538%_ (let () (declare (not safe)) (##vector-ref - _%__splice190298190299%_ + _%__splice190572190573%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178184178266%_)) - (letrec ((_%loop178185178269%_ - (lambda (_%hd178183178272%_ - _%arg178189178274%_) + (gx#stx-null? _%tl178458178540%_)) + (letrec ((_%loop178459178543%_ + (lambda (_%hd178457178546%_ + _%arg178463178548%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178183178272%_)) - (let ((_%e178186178277%_ + _%hd178457178546%_)) + (let ((_%e178460178551%_ (let () (declare (not safe)) (gx#stx-e - _%hd178183178272%_)))) - (let ((_%lp-tl178188178282%_ + _%hd178457178546%_)))) + (let ((_%lp-tl178462178556%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e178186178277%_))) - (_%lp-hd178187178280%_ - (let () (declare (not safe)) (##car _%e178186178277%_)))) - (_%loop178185178269%_ - _%lp-tl178188178282%_ - (cons _%lp-hd178187178280%_ _%arg178189178274%_)))) + (##cdr _%e178460178551%_))) + (_%lp-hd178461178554%_ + (let () (declare (not safe)) (##car _%e178460178551%_)))) + (_%loop178459178543%_ + _%lp-tl178462178556%_ + (cons _%lp-hd178461178554%_ _%arg178463178548%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%arg178190178285%_ - (reverse _%arg178189178274%_))) - (_%__kont190294190295%_ - _%arg178190178285%_ - _%hd178180178259%_ - _%id178178178253%_)))))) - (_%loop178185178269%_ - _%target178182178264%_ + (let ((_%arg178464178559%_ + (reverse _%arg178463178548%_))) + (_%__kont190568190569%_ + _%arg178464178559%_ + _%hd178454178533%_ + _%id178452178527%_)))))) + (_%loop178459178543%_ + _%target178456178538%_ '())) (let () (declare (not safe)) - (_%g178062178195%_))))) - (let () (declare (not safe)) (_%g178062178195%_))) - (let () (declare (not safe)) (_%g178062178195%_))))) - (let () (declare (not safe)) (_%g178062178195%_)))))))) + (_%g178336178469%_))))) + (let () (declare (not safe)) (_%g178336178469%_))) + (let () (declare (not safe)) (_%g178336178469%_))))) + (let () (declare (not safe)) (_%g178336178469%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop178173178237%_ - _%target178170178232%_ + (_%loop178447178511%_ + _%target178444178506%_ '())))) - (_%__match190423190424%_ - (lambda (_%e178084178704%_ - _%hd178085178707%_ - _%tl178086178709%_ - _%e178087178712%_ - _%hd178088178715%_ - _%tl178089178717%_ - _%e178090178720%_ - _%hd178091178723%_ - _%tl178092178725%_ - _%e178093178728%_ - _%hd178094178731%_ - _%tl178095178733%_ - _%e178096178736%_ - _%hd178097178739%_ - _%tl178098178741%_ - _%e178099178744%_ - _%hd178100178747%_ - _%tl178101178749%_ - _%e178102178752%_ - _%hd178103178755%_ - _%tl178104178757%_ - _%e178105178760%_ - _%hd178106178763%_ - _%tl178107178765%_ - _%e178108178768%_ - _%hd178109178771%_ - _%tl178110178773%_ - _%e178111178776%_ - _%hd178112178779%_ - _%tl178113178781%_ - _%e178114178784%_ - _%hd178115178787%_ - _%tl178116178789%_ - _%e178117178792%_ - _%hd178118178795%_ - _%tl178119178797%_) - (let ((_%L178800%_ _%hd178118178795%_) - (_%L178801%_ _%tl178110178773%_) - (_%L178802%_ _%hd178115178787%_) - (_%L178803%_ _%hd178100178747%_) - (_%L178804%_ _%hd178097178739%_)) + (_%__match190697190698%_ + (lambda (_%e178358178978%_ + _%hd178359178981%_ + _%tl178360178983%_ + _%e178361178986%_ + _%hd178362178989%_ + _%tl178363178991%_ + _%e178364178994%_ + _%hd178365178997%_ + _%tl178366178999%_ + _%e178367179002%_ + _%hd178368179005%_ + _%tl178369179007%_ + _%e178370179010%_ + _%hd178371179013%_ + _%tl178372179015%_ + _%e178373179018%_ + _%hd178374179021%_ + _%tl178375179023%_ + _%e178376179026%_ + _%hd178377179029%_ + _%tl178378179031%_ + _%e178379179034%_ + _%hd178380179037%_ + _%tl178381179039%_ + _%e178382179042%_ + _%hd178383179045%_ + _%tl178384179047%_ + _%e178385179050%_ + _%hd178386179053%_ + _%tl178387179055%_ + _%e178388179058%_ + _%hd178389179061%_ + _%tl178390179063%_ + _%e178391179066%_ + _%hd178392179069%_ + _%tl178393179071%_) + (let ((_%L179074%_ _%hd178392179069%_) + (_%L179075%_ _%tl178384179047%_) + (_%L179076%_ _%hd178389179061%_) + (_%L179077%_ _%hd178374179021%_) + (_%L179078%_ _%hd178371179013%_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L178802%_ + _%L179076%_ 'gx#syntax-split-splice)) - (_%__kont190288190289%_ - _%L178800%_ - _%L178801%_ - _%L178802%_ - _%L178803%_ - _%L178804%_) - (_%__kont190290190291%_ - _%hd178118178795%_ - _%hd178088178715%_)))))) + (_%__kont190562190563%_ + _%L179074%_ + _%L179075%_ + _%L179076%_ + _%L179077%_ + _%L179078%_) + (_%__kont190564190565%_ + _%hd178392179069%_ + _%hd178362178989%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190284190285%_)) - (let ((_%e178067178853%_ + (gx#stx-pair? _%__stx190558190559%_)) + (let ((_%e178341179127%_ (let () (declare (not safe)) - (gx#stx-e _%__stx190284190285%_)))) - (let ((_%tl178069178858%_ + (gx#stx-e _%__stx190558190559%_)))) + (let ((_%tl178343179132%_ (let () (declare (not safe)) - (##cdr _%e178067178853%_))) - (_%hd178068178856%_ + (##cdr _%e178341179127%_))) + (_%hd178342179130%_ (let () (declare (not safe)) - (##car _%e178067178853%_)))) + (##car _%e178341179127%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178068178856%_)) + (gx#identifier? _%hd178342179130%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd178068178856%_)) + _%hd178342179130%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178069178858%_)) - (let ((_%e178070178861%_ + _%tl178343179132%_)) + (let ((_%e178344179135%_ (let () (declare (not safe)) (gx#stx-e - _%tl178069178858%_)))) - (let ((_%tl178072178866%_ + _%tl178343179132%_)))) + (let ((_%tl178346179140%_ (let () (declare (not safe)) - (##cdr _%e178070178861%_))) - (_%hd178071178864%_ + (##cdr _%e178344179135%_))) + (_%hd178345179138%_ (let () (declare (not safe)) - (##car _%e178070178861%_)))) + (##car _%e178344179135%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178072178866%_)) - (let ((_%e178073178869%_ + _%tl178346179140%_)) + (let ((_%e178347179143%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl178072178866%_)))) - (let ((_%tl178075178874%_ - (let () (declare (not safe)) (##cdr _%e178073178869%_))) - (_%hd178074178872%_ + (gx#stx-e _%tl178346179140%_)))) + (let ((_%tl178349179148%_ + (let () (declare (not safe)) (##cdr _%e178347179143%_))) + (_%hd178348179146%_ (let () (declare (not safe)) - (##car _%e178073178869%_)))) + (##car _%e178347179143%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178075178874%_)) - (let ((_%e178076178877%_ + (gx#stx-pair? _%tl178349179148%_)) + (let ((_%e178350179151%_ (let () (declare (not safe)) - (gx#stx-e _%tl178075178874%_)))) - (let ((_%tl178078178882%_ + (gx#stx-e _%tl178349179148%_)))) + (let ((_%tl178352179156%_ (let () (declare (not safe)) - (##cdr _%e178076178877%_))) - (_%hd178077178880%_ + (##cdr _%e178350179151%_))) + (_%hd178351179154%_ (let () (declare (not safe)) - (##car _%e178076178877%_)))) + (##car _%e178350179151%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178078178882%_)) - (_%__kont190286190287%_ - _%hd178077178880%_ - _%hd178074178872%_ - _%hd178071178864%_) + (gx#stx-null? _%tl178352179156%_)) + (_%__kont190560190561%_ + _%hd178351179154%_ + _%hd178348179146%_ + _%hd178345179138%_) (let () (declare (not safe)) - (_%g178062178195%_))))) - (let () (declare (not safe)) (_%g178062178195%_))))) - (let () (declare (not safe)) (_%g178062178195%_))))) + (_%g178336178469%_))))) + (let () (declare (not safe)) (_%g178336178469%_))))) + (let () (declare (not safe)) (_%g178336178469%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178062178195%_))) + (_%g178336178469%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd178068178856%_)) + _%hd178342179130%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178069178858%_)) - (let ((_%e178087178712%_ + _%tl178343179132%_)) + (let ((_%e178361178986%_ (let () (declare (not safe)) (gx#stx-e - _%tl178069178858%_)))) - (let ((_%tl178089178717%_ + _%tl178343179132%_)))) + (let ((_%tl178363178991%_ (let () (declare (not safe)) - (##cdr _%e178087178712%_))) - (_%hd178088178715%_ + (##cdr _%e178361178986%_))) + (_%hd178362178989%_ (let () (declare (not safe)) - (##car _%e178087178712%_)))) + (##car _%e178361178986%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178088178715%_)) - (let ((_%e178090178720%_ + _%hd178362178989%_)) + (let ((_%e178364178994%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd178088178715%_)))) - (let ((_%tl178092178725%_ + (gx#stx-e _%hd178362178989%_)))) + (let ((_%tl178366178999%_ (let () (declare (not safe)) - (##cdr _%e178090178720%_))) - (_%hd178091178723%_ + (##cdr _%e178364178994%_))) + (_%hd178365178997%_ (let () (declare (not safe)) - (##car _%e178090178720%_)))) + (##car _%e178364178994%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178091178723%_)) - (let ((_%e178093178728%_ + (gx#stx-pair? _%hd178365178997%_)) + (let ((_%e178367179002%_ (let () (declare (not safe)) - (gx#stx-e _%hd178091178723%_)))) - (let ((_%tl178095178733%_ + (gx#stx-e _%hd178365178997%_)))) + (let ((_%tl178369179007%_ (let () (declare (not safe)) - (##cdr _%e178093178728%_))) - (_%hd178094178731%_ + (##cdr _%e178367179002%_))) + (_%hd178368179005%_ (let () (declare (not safe)) - (##car _%e178093178728%_)))) + (##car _%e178367179002%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178094178731%_)) - (let ((_%e178096178736%_ + (gx#stx-pair? _%hd178368179005%_)) + (let ((_%e178370179010%_ (let () (declare (not safe)) - (gx#stx-e _%hd178094178731%_)))) - (let ((_%tl178098178741%_ + (gx#stx-e _%hd178368179005%_)))) + (let ((_%tl178372179015%_ (let () (declare (not safe)) - (##cdr _%e178096178736%_))) - (_%hd178097178739%_ + (##cdr _%e178370179010%_))) + (_%hd178371179013%_ (let () (declare (not safe)) - (##car _%e178096178736%_)))) + (##car _%e178370179010%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178098178741%_)) - (let ((_%e178099178744%_ + (gx#stx-pair? _%tl178372179015%_)) + (let ((_%e178373179018%_ (let () (declare (not safe)) (gx#stx-e - _%tl178098178741%_)))) - (let ((_%tl178101178749%_ + _%tl178372179015%_)))) + (let ((_%tl178375179023%_ (let () (declare (not safe)) - (##cdr _%e178099178744%_))) - (_%hd178100178747%_ + (##cdr _%e178373179018%_))) + (_%hd178374179021%_ (let () (declare (not safe)) - (##car _%e178099178744%_)))) + (##car _%e178373179018%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178101178749%_)) + _%tl178375179023%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178095178733%_)) - (let ((_%e178102178752%_ + _%tl178369179007%_)) + (let ((_%e178376179026%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl178095178733%_)))) - (let ((_%tl178104178757%_ - (let () (declare (not safe)) (##cdr _%e178102178752%_))) - (_%hd178103178755%_ + (gx#stx-e _%tl178369179007%_)))) + (let ((_%tl178378179031%_ + (let () (declare (not safe)) (##cdr _%e178376179026%_))) + (_%hd178377179029%_ (let () (declare (not safe)) - (##car _%e178102178752%_)))) + (##car _%e178376179026%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178103178755%_)) - (let ((_%e178105178760%_ + (gx#stx-pair? _%hd178377179029%_)) + (let ((_%e178379179034%_ (let () (declare (not safe)) - (gx#stx-e _%hd178103178755%_)))) - (let ((_%tl178107178765%_ + (gx#stx-e _%hd178377179029%_)))) + (let ((_%tl178381179039%_ (let () (declare (not safe)) - (##cdr _%e178105178760%_))) - (_%hd178106178763%_ + (##cdr _%e178379179034%_))) + (_%hd178380179037%_ (let () (declare (not safe)) - (##car _%e178105178760%_)))) + (##car _%e178379179034%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178106178763%_)) + (gx#identifier? _%hd178380179037%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd178106178763%_)) + (gx#stx-eq? '%#call _%hd178380179037%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178107178765%_)) - (let ((_%e178108178768%_ + (gx#stx-pair? _%tl178381179039%_)) + (let ((_%e178382179042%_ (let () (declare (not safe)) - (gx#stx-e _%tl178107178765%_)))) - (let ((_%tl178110178773%_ + (gx#stx-e _%tl178381179039%_)))) + (let ((_%tl178384179047%_ (let () (declare (not safe)) - (##cdr _%e178108178768%_))) - (_%hd178109178771%_ + (##cdr _%e178382179042%_))) + (_%hd178383179045%_ (let () (declare (not safe)) - (##car _%e178108178768%_)))) + (##car _%e178382179042%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178109178771%_)) - (let ((_%e178111178776%_ + _%hd178383179045%_)) + (let ((_%e178385179050%_ (let () (declare (not safe)) (gx#stx-e - _%hd178109178771%_)))) - (let ((_%tl178113178781%_ + _%hd178383179045%_)))) + (let ((_%tl178387179055%_ (let () (declare (not safe)) - (##cdr _%e178111178776%_))) - (_%hd178112178779%_ + (##cdr _%e178385179050%_))) + (_%hd178386179053%_ (let () (declare (not safe)) - (##car _%e178111178776%_)))) + (##car _%e178385179050%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd178112178779%_)) + _%hd178386179053%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd178112178779%_)) + _%hd178386179053%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl178113178781%_)) - (let ((_%e178114178784%_ + (gx#stx-pair? _%tl178387179055%_)) + (let ((_%e178388179058%_ (let () (declare (not safe)) - (gx#stx-e _%tl178113178781%_)))) - (let ((_%tl178116178789%_ + (gx#stx-e _%tl178387179055%_)))) + (let ((_%tl178390179063%_ (let () (declare (not safe)) - (##cdr _%e178114178784%_))) - (_%hd178115178787%_ + (##cdr _%e178388179058%_))) + (_%hd178389179061%_ (let () (declare (not safe)) - (##car _%e178114178784%_)))) + (##car _%e178388179058%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178116178789%_)) + (gx#stx-null? _%tl178390179063%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178104178757%_)) + (gx#stx-null? _%tl178378179031%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178092178725%_)) + (gx#stx-null? _%tl178366178999%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178089178717%_)) - (let ((_%e178117178792%_ + (gx#stx-pair? _%tl178363178991%_)) + (let ((_%e178391179066%_ (let () (declare (not safe)) (gx#stx-e - _%tl178089178717%_)))) - (let ((_%tl178119178797%_ + _%tl178363178991%_)))) + (let ((_%tl178393179071%_ (let () (declare (not safe)) - (##cdr _%e178117178792%_))) - (_%hd178118178795%_ + (##cdr _%e178391179066%_))) + (_%hd178392179069%_ (let () (declare (not safe)) - (##car _%e178117178792%_)))) + (##car _%e178391179066%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178119178797%_)) - (_%__match190423190424%_ - _%e178067178853%_ - _%hd178068178856%_ - _%tl178069178858%_ - _%e178087178712%_ - _%hd178088178715%_ - _%tl178089178717%_ - _%e178090178720%_ - _%hd178091178723%_ - _%tl178092178725%_ - _%e178093178728%_ - _%hd178094178731%_ - _%tl178095178733%_ - _%e178096178736%_ - _%hd178097178739%_ - _%tl178098178741%_ - _%e178099178744%_ - _%hd178100178747%_ - _%tl178101178749%_ - _%e178102178752%_ - _%hd178103178755%_ - _%tl178104178757%_ - _%e178105178760%_ - _%hd178106178763%_ - _%tl178107178765%_ - _%e178108178768%_ - _%hd178109178771%_ - _%tl178110178773%_ - _%e178111178776%_ - _%hd178112178779%_ - _%tl178113178781%_ - _%e178114178784%_ - _%hd178115178787%_ - _%tl178116178789%_ - _%e178117178792%_ - _%hd178118178795%_ - _%tl178119178797%_) + _%tl178393179071%_)) + (_%__match190697190698%_ + _%e178341179127%_ + _%hd178342179130%_ + _%tl178343179132%_ + _%e178361178986%_ + _%hd178362178989%_ + _%tl178363178991%_ + _%e178364178994%_ + _%hd178365178997%_ + _%tl178366178999%_ + _%e178367179002%_ + _%hd178368179005%_ + _%tl178369179007%_ + _%e178370179010%_ + _%hd178371179013%_ + _%tl178372179015%_ + _%e178373179018%_ + _%hd178374179021%_ + _%tl178375179023%_ + _%e178376179026%_ + _%hd178377179029%_ + _%tl178378179031%_ + _%e178379179034%_ + _%hd178380179037%_ + _%tl178381179039%_ + _%e178382179042%_ + _%hd178383179045%_ + _%tl178384179047%_ + _%e178385179050%_ + _%hd178386179053%_ + _%tl178387179055%_ + _%e178388179058%_ + _%hd178389179061%_ + _%tl178390179063%_ + _%e178391179066%_ + _%hd178392179069%_ + _%tl178393179071%_) (let () (declare (not safe)) - (_%g178062178195%_))))) + (_%g178336178469%_))))) (let () (declare (not safe)) - (_%g178062178195%_))) + (_%g178336178469%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178089178717%_)) - (let ((_%e178128178674%_ + (gx#stx-pair? _%tl178363178991%_)) + (let ((_%e178402178948%_ (let () (declare (not safe)) (gx#stx-e - _%tl178089178717%_)))) - (let ((_%tl178130178679%_ + _%tl178363178991%_)))) + (let ((_%tl178404178953%_ (let () (declare (not safe)) - (##cdr _%e178128178674%_))) - (_%hd178129178677%_ + (##cdr _%e178402178948%_))) + (_%hd178403178951%_ (let () (declare (not safe)) - (##car _%e178128178674%_)))) + (##car _%e178402178948%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178130178679%_)) - (_%__kont190290190291%_ - _%hd178129178677%_ - _%hd178088178715%_) + _%tl178404178953%_)) + (_%__kont190564190565%_ + _%hd178403178951%_ + _%hd178362178989%_) (let () (declare (not safe)) - (_%g178062178195%_))))) + (_%g178336178469%_))))) (let () (declare (not safe)) - (_%g178062178195%_)))) + (_%g178336178469%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178089178717%_)) - (let ((_%e178128178674%_ + (gx#stx-pair? _%tl178363178991%_)) + (let ((_%e178402178948%_ (let () (declare (not safe)) - (gx#stx-e _%tl178089178717%_)))) - (let ((_%tl178130178679%_ + (gx#stx-e _%tl178363178991%_)))) + (let ((_%tl178404178953%_ (let () (declare (not safe)) - (##cdr _%e178128178674%_))) - (_%hd178129178677%_ + (##cdr _%e178402178948%_))) + (_%hd178403178951%_ (let () (declare (not safe)) - (##car _%e178128178674%_)))) + (##car _%e178402178948%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178130178679%_)) - (_%__kont190290190291%_ - _%hd178129178677%_ - _%hd178088178715%_) + _%tl178404178953%_)) + (_%__kont190564190565%_ + _%hd178403178951%_ + _%hd178362178989%_) (let () (declare (not safe)) - (_%g178062178195%_))))) + (_%g178336178469%_))))) (let () (declare (not safe)) - (_%g178062178195%_)))) + (_%g178336178469%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178089178717%_)) - (let ((_%e178128178674%_ + (gx#stx-pair? _%tl178363178991%_)) + (let ((_%e178402178948%_ (let () (declare (not safe)) - (gx#stx-e _%tl178089178717%_)))) - (let ((_%tl178130178679%_ + (gx#stx-e _%tl178363178991%_)))) + (let ((_%tl178404178953%_ (let () (declare (not safe)) - (##cdr _%e178128178674%_))) - (_%hd178129178677%_ + (##cdr _%e178402178948%_))) + (_%hd178403178951%_ (let () (declare (not safe)) - (##car _%e178128178674%_)))) + (##car _%e178402178948%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178130178679%_)) - (_%__kont190290190291%_ - _%hd178129178677%_ - _%hd178088178715%_) + (gx#stx-null? _%tl178404178953%_)) + (_%__kont190564190565%_ + _%hd178403178951%_ + _%hd178362178989%_) (let () (declare (not safe)) - (_%g178062178195%_))))) + (_%g178336178469%_))))) (let () (declare (not safe)) - (_%g178062178195%_)))))) + (_%g178336178469%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178089178717%_)) - (let ((_%e178128178674%_ + (gx#stx-pair? _%tl178363178991%_)) + (let ((_%e178402178948%_ (let () (declare (not safe)) - (gx#stx-e _%tl178089178717%_)))) - (let ((_%tl178130178679%_ + (gx#stx-e _%tl178363178991%_)))) + (let ((_%tl178404178953%_ (let () (declare (not safe)) - (##cdr _%e178128178674%_))) - (_%hd178129178677%_ + (##cdr _%e178402178948%_))) + (_%hd178403178951%_ (let () (declare (not safe)) - (##car _%e178128178674%_)))) + (##car _%e178402178948%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178130178679%_)) - (_%__kont190290190291%_ - _%hd178129178677%_ - _%hd178088178715%_) + (gx#stx-null? _%tl178404178953%_)) + (_%__kont190564190565%_ + _%hd178403178951%_ + _%hd178362178989%_) (let () (declare (not safe)) - (_%g178062178195%_))))) - (let () (declare (not safe)) (_%g178062178195%_)))) + (_%g178336178469%_))))) + (let () (declare (not safe)) (_%g178336178469%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178089178717%_)) - (let ((_%e178128178674%_ + (gx#stx-pair? _%tl178363178991%_)) + (let ((_%e178402178948%_ (let () (declare (not safe)) - (gx#stx-e _%tl178089178717%_)))) - (let ((_%tl178130178679%_ + (gx#stx-e _%tl178363178991%_)))) + (let ((_%tl178404178953%_ (let () (declare (not safe)) - (##cdr _%e178128178674%_))) - (_%hd178129178677%_ + (##cdr _%e178402178948%_))) + (_%hd178403178951%_ (let () (declare (not safe)) - (##car _%e178128178674%_)))) + (##car _%e178402178948%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178130178679%_)) - (_%__kont190290190291%_ - _%hd178129178677%_ - _%hd178088178715%_) + (gx#stx-null? _%tl178404178953%_)) + (_%__kont190564190565%_ + _%hd178403178951%_ + _%hd178362178989%_) (let () (declare (not safe)) - (_%g178062178195%_))))) - (let () (declare (not safe)) (_%g178062178195%_)))) + (_%g178336178469%_))))) + (let () (declare (not safe)) (_%g178336178469%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178089178717%_)) - (let ((_%e178128178674%_ + (gx#stx-pair? _%tl178363178991%_)) + (let ((_%e178402178948%_ (let () (declare (not safe)) - (gx#stx-e _%tl178089178717%_)))) - (let ((_%tl178130178679%_ + (gx#stx-e _%tl178363178991%_)))) + (let ((_%tl178404178953%_ (let () (declare (not safe)) - (##cdr _%e178128178674%_))) - (_%hd178129178677%_ + (##cdr _%e178402178948%_))) + (_%hd178403178951%_ (let () (declare (not safe)) - (##car _%e178128178674%_)))) + (##car _%e178402178948%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178130178679%_)) - (_%__kont190290190291%_ - _%hd178129178677%_ - _%hd178088178715%_) - (let () (declare (not safe)) (_%g178062178195%_))))) - (let () (declare (not safe)) (_%g178062178195%_)))))) + (gx#stx-null? _%tl178404178953%_)) + (_%__kont190564190565%_ + _%hd178403178951%_ + _%hd178362178989%_) + (let () (declare (not safe)) (_%g178336178469%_))))) + (let () (declare (not safe)) (_%g178336178469%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178089178717%_)) - (let ((_%e178128178674%_ + _%tl178363178991%_)) + (let ((_%e178402178948%_ (let () (declare (not safe)) (gx#stx-e - _%tl178089178717%_)))) - (let ((_%tl178130178679%_ + _%tl178363178991%_)))) + (let ((_%tl178404178953%_ (let () (declare (not safe)) - (##cdr _%e178128178674%_))) - (_%hd178129178677%_ + (##cdr _%e178402178948%_))) + (_%hd178403178951%_ (let () (declare (not safe)) - (##car _%e178128178674%_)))) + (##car _%e178402178948%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178130178679%_)) - (_%__kont190290190291%_ - _%hd178129178677%_ - _%hd178088178715%_) + _%tl178404178953%_)) + (_%__kont190564190565%_ + _%hd178403178951%_ + _%hd178362178989%_) (let () (declare (not safe)) - (_%g178062178195%_))))) + (_%g178336178469%_))))) (let () (declare (not safe)) - (_%g178062178195%_)))))) + (_%g178336178469%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178089178717%_)) - (let ((_%e178128178674%_ + (gx#stx-pair? _%tl178363178991%_)) + (let ((_%e178402178948%_ (let () (declare (not safe)) (gx#stx-e - _%tl178089178717%_)))) - (let ((_%tl178130178679%_ + _%tl178363178991%_)))) + (let ((_%tl178404178953%_ (let () (declare (not safe)) - (##cdr _%e178128178674%_))) - (_%hd178129178677%_ + (##cdr _%e178402178948%_))) + (_%hd178403178951%_ (let () (declare (not safe)) - (##car _%e178128178674%_)))) + (##car _%e178402178948%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178130178679%_)) - (_%__kont190290190291%_ - _%hd178129178677%_ - _%hd178088178715%_) + _%tl178404178953%_)) + (_%__kont190564190565%_ + _%hd178403178951%_ + _%hd178362178989%_) (let () (declare (not safe)) - (_%g178062178195%_))))) + (_%g178336178469%_))))) (let () (declare (not safe)) - (_%g178062178195%_)))) + (_%g178336178469%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178089178717%_)) - (let ((_%e178128178674%_ + (gx#stx-pair? _%tl178363178991%_)) + (let ((_%e178402178948%_ (let () (declare (not safe)) - (gx#stx-e _%tl178089178717%_)))) - (let ((_%tl178130178679%_ + (gx#stx-e _%tl178363178991%_)))) + (let ((_%tl178404178953%_ (let () (declare (not safe)) - (##cdr _%e178128178674%_))) - (_%hd178129178677%_ + (##cdr _%e178402178948%_))) + (_%hd178403178951%_ (let () (declare (not safe)) - (##car _%e178128178674%_)))) + (##car _%e178402178948%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178130178679%_)) - (_%__kont190290190291%_ - _%hd178129178677%_ - _%hd178088178715%_) + _%tl178404178953%_)) + (_%__kont190564190565%_ + _%hd178403178951%_ + _%hd178362178989%_) (let () (declare (not safe)) - (_%g178062178195%_))))) + (_%g178336178469%_))))) (let () (declare (not safe)) - (_%g178062178195%_)))) + (_%g178336178469%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178089178717%_)) - (let ((_%e178128178674%_ + (gx#stx-pair? _%tl178363178991%_)) + (let ((_%e178402178948%_ (let () (declare (not safe)) - (gx#stx-e _%tl178089178717%_)))) - (let ((_%tl178130178679%_ + (gx#stx-e _%tl178363178991%_)))) + (let ((_%tl178404178953%_ (let () (declare (not safe)) - (##cdr _%e178128178674%_))) - (_%hd178129178677%_ + (##cdr _%e178402178948%_))) + (_%hd178403178951%_ (let () (declare (not safe)) - (##car _%e178128178674%_)))) + (##car _%e178402178948%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178130178679%_)) - (_%__kont190290190291%_ - _%hd178129178677%_ - _%hd178088178715%_) + (gx#stx-null? _%tl178404178953%_)) + (_%__kont190564190565%_ + _%hd178403178951%_ + _%hd178362178989%_) (let () (declare (not safe)) - (_%g178062178195%_))))) + (_%g178336178469%_))))) (let () (declare (not safe)) - (_%g178062178195%_)))))) + (_%g178336178469%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178089178717%_)) - (let ((_%e178128178674%_ + (gx#stx-pair? _%tl178363178991%_)) + (let ((_%e178402178948%_ (let () (declare (not safe)) - (gx#stx-e _%tl178089178717%_)))) - (let ((_%tl178130178679%_ + (gx#stx-e _%tl178363178991%_)))) + (let ((_%tl178404178953%_ (let () (declare (not safe)) - (##cdr _%e178128178674%_))) - (_%hd178129178677%_ + (##cdr _%e178402178948%_))) + (_%hd178403178951%_ (let () (declare (not safe)) - (##car _%e178128178674%_)))) + (##car _%e178402178948%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178130178679%_)) - (_%__kont190290190291%_ - _%hd178129178677%_ - _%hd178088178715%_) + (gx#stx-null? _%tl178404178953%_)) + (_%__kont190564190565%_ + _%hd178403178951%_ + _%hd178362178989%_) (let () (declare (not safe)) - (_%g178062178195%_))))) - (let () (declare (not safe)) (_%g178062178195%_)))))) + (_%g178336178469%_))))) + (let () (declare (not safe)) (_%g178336178469%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178089178717%_)) - (let ((_%e178128178674%_ + (gx#stx-pair? _%tl178363178991%_)) + (let ((_%e178402178948%_ (let () (declare (not safe)) - (gx#stx-e _%tl178089178717%_)))) - (let ((_%tl178130178679%_ + (gx#stx-e _%tl178363178991%_)))) + (let ((_%tl178404178953%_ (let () (declare (not safe)) - (##cdr _%e178128178674%_))) - (_%hd178129178677%_ + (##cdr _%e178402178948%_))) + (_%hd178403178951%_ (let () (declare (not safe)) - (##car _%e178128178674%_)))) + (##car _%e178402178948%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178130178679%_)) - (_%__kont190290190291%_ - _%hd178129178677%_ - _%hd178088178715%_) - (let () (declare (not safe)) (_%g178062178195%_))))) - (let () (declare (not safe)) (_%g178062178195%_)))) + (gx#stx-null? _%tl178404178953%_)) + (_%__kont190564190565%_ + _%hd178403178951%_ + _%hd178362178989%_) + (let () (declare (not safe)) (_%g178336178469%_))))) + (let () (declare (not safe)) (_%g178336178469%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178089178717%_)) - (let ((_%e178128178674%_ + _%tl178363178991%_)) + (let ((_%e178402178948%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl178089178717%_)))) - (let ((_%tl178130178679%_ - (let () (declare (not safe)) (##cdr _%e178128178674%_))) - (_%hd178129178677%_ + (gx#stx-e _%tl178363178991%_)))) + (let ((_%tl178404178953%_ + (let () (declare (not safe)) (##cdr _%e178402178948%_))) + (_%hd178403178951%_ (let () (declare (not safe)) - (##car _%e178128178674%_)))) + (##car _%e178402178948%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178130178679%_)) - (_%__kont190290190291%_ - _%hd178129178677%_ - _%hd178088178715%_) - (let () (declare (not safe)) (_%g178062178195%_))))) - (let () (declare (not safe)) (_%g178062178195%_)))))) + (gx#stx-null? _%tl178404178953%_)) + (_%__kont190564190565%_ + _%hd178403178951%_ + _%hd178362178989%_) + (let () (declare (not safe)) (_%g178336178469%_))))) + (let () (declare (not safe)) (_%g178336178469%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178089178717%_)) - (let ((_%e178128178674%_ + _%tl178363178991%_)) + (let ((_%e178402178948%_ (let () (declare (not safe)) (gx#stx-e - _%tl178089178717%_)))) - (let ((_%tl178130178679%_ + _%tl178363178991%_)))) + (let ((_%tl178404178953%_ (let () (declare (not safe)) - (##cdr _%e178128178674%_))) - (_%hd178129178677%_ + (##cdr _%e178402178948%_))) + (_%hd178403178951%_ (let () (declare (not safe)) - (##car _%e178128178674%_)))) + (##car _%e178402178948%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178130178679%_)) - (_%__kont190290190291%_ - _%hd178129178677%_ - _%hd178088178715%_) + _%tl178404178953%_)) + (_%__kont190564190565%_ + _%hd178403178951%_ + _%hd178362178989%_) (let () (declare (not safe)) - (_%g178062178195%_))))) + (_%g178336178469%_))))) (let () (declare (not safe)) - (_%g178062178195%_)))))) + (_%g178336178469%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178089178717%_)) - (let ((_%e178128178674%_ + (gx#stx-pair? _%tl178363178991%_)) + (let ((_%e178402178948%_ (let () (declare (not safe)) - (gx#stx-e _%tl178089178717%_)))) - (let ((_%tl178130178679%_ + (gx#stx-e _%tl178363178991%_)))) + (let ((_%tl178404178953%_ (let () (declare (not safe)) - (##cdr _%e178128178674%_))) - (_%hd178129178677%_ + (##cdr _%e178402178948%_))) + (_%hd178403178951%_ (let () (declare (not safe)) - (##car _%e178128178674%_)))) + (##car _%e178402178948%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178130178679%_)) - (_%__kont190290190291%_ - _%hd178129178677%_ - _%hd178088178715%_) + _%tl178404178953%_)) + (_%__kont190564190565%_ + _%hd178403178951%_ + _%hd178362178989%_) (let () (declare (not safe)) - (_%g178062178195%_))))) + (_%g178336178469%_))))) (let () (declare (not safe)) - (_%g178062178195%_)))))) + (_%g178336178469%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178089178717%_)) - (let ((_%e178128178674%_ + (gx#stx-pair? _%tl178363178991%_)) + (let ((_%e178402178948%_ (let () (declare (not safe)) - (gx#stx-e _%tl178089178717%_)))) - (let ((_%tl178130178679%_ + (gx#stx-e _%tl178363178991%_)))) + (let ((_%tl178404178953%_ (let () (declare (not safe)) - (##cdr _%e178128178674%_))) - (_%hd178129178677%_ + (##cdr _%e178402178948%_))) + (_%hd178403178951%_ (let () (declare (not safe)) - (##car _%e178128178674%_)))) + (##car _%e178402178948%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178130178679%_)) - (_%__kont190290190291%_ - _%hd178129178677%_ - _%hd178088178715%_) + (gx#stx-null? _%tl178404178953%_)) + (_%__kont190564190565%_ + _%hd178403178951%_ + _%hd178362178989%_) (let () (declare (not safe)) - (_%g178062178195%_))))) + (_%g178336178469%_))))) (let () (declare (not safe)) - (_%g178062178195%_)))))) + (_%g178336178469%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178089178717%_)) - (let ((_%e178128178674%_ + (gx#stx-pair? _%tl178363178991%_)) + (let ((_%e178402178948%_ (let () (declare (not safe)) - (gx#stx-e _%tl178089178717%_)))) - (let ((_%tl178130178679%_ + (gx#stx-e _%tl178363178991%_)))) + (let ((_%tl178404178953%_ (let () (declare (not safe)) - (##cdr _%e178128178674%_))) - (_%hd178129178677%_ + (##cdr _%e178402178948%_))) + (_%hd178403178951%_ (let () (declare (not safe)) - (##car _%e178128178674%_)))) + (##car _%e178402178948%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178130178679%_)) - (_%__kont190290190291%_ - _%hd178129178677%_ - _%hd178088178715%_) + (gx#stx-null? _%tl178404178953%_)) + (_%__kont190564190565%_ + _%hd178403178951%_ + _%hd178362178989%_) (let () (declare (not safe)) - (_%g178062178195%_))))) - (let () (declare (not safe)) (_%g178062178195%_)))))) + (_%g178336178469%_))))) + (let () (declare (not safe)) (_%g178336178469%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178062178195%_))) + (_%g178336178469%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd178068178856%_)) + _%hd178342179130%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178069178858%_)) - (let ((_%e178137178578%_ + _%tl178343179132%_)) + (let ((_%e178411178852%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl178069178858%_)))) - (let ((_%tl178139178583%_ - (let () (declare (not safe)) (##cdr _%e178137178578%_))) - (_%hd178138178581%_ + (gx#stx-e _%tl178343179132%_)))) + (let ((_%tl178413178857%_ + (let () (declare (not safe)) (##cdr _%e178411178852%_))) + (_%hd178412178855%_ (let () (declare (not safe)) - (##car _%e178137178578%_)))) + (##car _%e178411178852%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178138178581%_)) - (let ((_%e178140178586%_ + (gx#stx-pair? _%hd178412178855%_)) + (let ((_%e178414178860%_ (let () (declare (not safe)) - (gx#stx-e _%hd178138178581%_)))) - (let ((_%tl178142178591%_ + (gx#stx-e _%hd178412178855%_)))) + (let ((_%tl178416178865%_ (let () (declare (not safe)) - (##cdr _%e178140178586%_))) - (_%hd178141178589%_ + (##cdr _%e178414178860%_))) + (_%hd178415178863%_ (let () (declare (not safe)) - (##car _%e178140178586%_)))) + (##car _%e178414178860%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178141178589%_)) - (let ((_%e178143178594%_ + (gx#stx-pair? _%hd178415178863%_)) + (let ((_%e178417178868%_ (let () (declare (not safe)) - (gx#stx-e _%hd178141178589%_)))) - (let ((_%tl178145178599%_ + (gx#stx-e _%hd178415178863%_)))) + (let ((_%tl178419178873%_ (let () (declare (not safe)) - (##cdr _%e178143178594%_))) - (_%hd178144178597%_ + (##cdr _%e178417178868%_))) + (_%hd178418178871%_ (let () (declare (not safe)) - (##car _%e178143178594%_)))) + (##car _%e178417178868%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178144178597%_)) - (let ((_%e178146178602%_ + (gx#stx-pair? _%hd178418178871%_)) + (let ((_%e178420178876%_ (let () (declare (not safe)) - (gx#stx-e _%hd178144178597%_)))) - (let ((_%tl178148178607%_ + (gx#stx-e _%hd178418178871%_)))) + (let ((_%tl178422178881%_ (let () (declare (not safe)) - (##cdr _%e178146178602%_))) - (_%hd178147178605%_ + (##cdr _%e178420178876%_))) + (_%hd178421178879%_ (let () (declare (not safe)) - (##car _%e178146178602%_)))) + (##car _%e178420178876%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178148178607%_)) + _%tl178422178881%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178145178599%_)) - (let ((_%e178149178610%_ + _%tl178419178873%_)) + (let ((_%e178423178884%_ (let () (declare (not safe)) (gx#stx-e - _%tl178145178599%_)))) - (let ((_%tl178151178615%_ + _%tl178419178873%_)))) + (let ((_%tl178425178889%_ (let () (declare (not safe)) - (##cdr _%e178149178610%_))) - (_%hd178150178613%_ + (##cdr _%e178423178884%_))) + (_%hd178424178887%_ (let () (declare (not safe)) - (##car _%e178149178610%_)))) + (##car _%e178423178884%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178151178615%_)) + _%tl178425178889%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl178142178591%_)) + (gx#stx-null? _%tl178416178865%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178139178583%_)) - (let ((_%e178152178618%_ + (gx#stx-pair? _%tl178413178857%_)) + (let ((_%e178426178892%_ (let () (declare (not safe)) - (gx#stx-e _%tl178139178583%_)))) - (let ((_%tl178154178623%_ + (gx#stx-e _%tl178413178857%_)))) + (let ((_%tl178428178897%_ (let () (declare (not safe)) - (##cdr _%e178152178618%_))) - (_%hd178153178621%_ + (##cdr _%e178426178892%_))) + (_%hd178427178895%_ (let () (declare (not safe)) - (##car _%e178152178618%_)))) + (##car _%e178426178892%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178154178623%_)) - (_%__kont190292190293%_ - _%hd178153178621%_ - _%hd178150178613%_ - _%hd178147178605%_) + (gx#stx-null? _%tl178428178897%_)) + (_%__kont190566190567%_ + _%hd178427178895%_ + _%hd178424178887%_ + _%hd178421178879%_) (let () (declare (not safe)) - (_%g178062178195%_))))) - (let () (declare (not safe)) (_%g178062178195%_))) - (let () (declare (not safe)) (_%g178062178195%_))) - (let () (declare (not safe)) (_%g178062178195%_))))) + (_%g178336178469%_))))) + (let () (declare (not safe)) (_%g178336178469%_))) + (let () (declare (not safe)) (_%g178336178469%_))) + (let () (declare (not safe)) (_%g178336178469%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178062178195%_))) + (_%g178336178469%_))) (let () (declare (not safe)) - (_%g178062178195%_))))) + (_%g178336178469%_))))) (let () (declare (not safe)) - (_%g178062178195%_))))) + (_%g178336178469%_))))) (let () (declare (not safe)) - (_%g178062178195%_))))) - (let () (declare (not safe)) (_%g178062178195%_))))) - (let () (declare (not safe)) (_%g178062178195%_))) + (_%g178336178469%_))))) + (let () (declare (not safe)) (_%g178336178469%_))))) + (let () (declare (not safe)) (_%g178336178469%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd178068178856%_)) + _%hd178342179130%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178069178858%_)) - (let ((_%e178161178208%_ + _%tl178343179132%_)) + (let ((_%e178435178482%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl178069178858%_)))) - (let ((_%tl178163178213%_ + (gx#stx-e _%tl178343179132%_)))) + (let ((_%tl178437178487%_ (let () (declare (not safe)) - (##cdr _%e178161178208%_))) - (_%hd178162178211%_ + (##cdr _%e178435178482%_))) + (_%hd178436178485%_ (let () (declare (not safe)) - (##car _%e178161178208%_)))) + (##car _%e178435178482%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178162178211%_)) - (let ((_%e178164178216%_ + (gx#stx-pair? _%hd178436178485%_)) + (let ((_%e178438178490%_ (let () (declare (not safe)) - (gx#stx-e _%hd178162178211%_)))) - (let ((_%tl178166178221%_ + (gx#stx-e _%hd178436178485%_)))) + (let ((_%tl178440178495%_ (let () (declare (not safe)) - (##cdr _%e178164178216%_))) - (_%hd178165178219%_ + (##cdr _%e178438178490%_))) + (_%hd178439178493%_ (let () (declare (not safe)) - (##car _%e178164178216%_)))) + (##car _%e178438178490%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178165178219%_)) + (gx#identifier? _%hd178439178493%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd178165178219%_)) + _%hd178439178493%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178166178221%_)) - (let ((_%e178167178224%_ + (gx#stx-pair? _%tl178440178495%_)) + (let ((_%e178441178498%_ (let () (declare (not safe)) (gx#stx-e - _%tl178166178221%_)))) - (let ((_%tl178169178229%_ + _%tl178440178495%_)))) + (let ((_%tl178443178503%_ (let () (declare (not safe)) - (##cdr _%e178167178224%_))) - (_%hd178168178227%_ + (##cdr _%e178441178498%_))) + (_%hd178442178501%_ (let () (declare (not safe)) - (##car _%e178167178224%_)))) + (##car _%e178441178498%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd178168178227%_)) - (let ((_%__splice190296190297%_ + _%hd178442178501%_)) + (let ((_%__splice190570190571%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd178168178227%_ + _%hd178442178501%_ '0)))) - (let ((_%tl178172178234%_ + (let ((_%tl178446178508%_ (let () (declare (not safe)) (##vector-ref - _%__splice190296190297%_ + _%__splice190570190571%_ '1))) - (_%target178170178232%_ + (_%target178444178506%_ (let () (declare (not safe)) (##vector-ref - _%__splice190296190297%_ + _%__splice190570190571%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178172178234%_)) - (_%__match190541190542%_ - _%e178067178853%_ - _%hd178068178856%_ - _%tl178069178858%_ - _%e178161178208%_ - _%hd178162178211%_ - _%tl178163178213%_ - _%e178164178216%_ - _%hd178165178219%_ - _%tl178166178221%_ - _%e178167178224%_ - _%hd178168178227%_ - _%tl178169178229%_ - _%__splice190296190297%_ - _%target178170178232%_ - _%tl178172178234%_) + _%tl178446178508%_)) + (_%__match190815190816%_ + _%e178341179127%_ + _%hd178342179130%_ + _%tl178343179132%_ + _%e178435178482%_ + _%hd178436178485%_ + _%tl178437178487%_ + _%e178438178490%_ + _%hd178439178493%_ + _%tl178440178495%_ + _%e178441178498%_ + _%hd178442178501%_ + _%tl178443178503%_ + _%__splice190570190571%_ + _%target178444178506%_ + _%tl178446178508%_) (let () (declare (not safe)) - (_%g178062178195%_))))) + (_%g178336178469%_))))) (let () (declare (not safe)) - (_%g178062178195%_))))) + (_%g178336178469%_))))) (let () (declare (not safe)) - (_%g178062178195%_))) + (_%g178336178469%_))) (let () (declare (not safe)) - (_%g178062178195%_))) + (_%g178336178469%_))) (let () (declare (not safe)) - (_%g178062178195%_))))) - (let () (declare (not safe)) (_%g178062178195%_))))) - (let () (declare (not safe)) (_%g178062178195%_))) - (let () (declare (not safe)) (_%g178062178195%_)))))) + (_%g178336178469%_))))) + (let () (declare (not safe)) (_%g178336178469%_))))) + (let () (declare (not safe)) (_%g178336178469%_))) + (let () (declare (not safe)) (_%g178336178469%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178062178195%_))))) + (_%g178336178469%_))))) (let () (declare (not safe)) - (_%g178062178195%_)))))))) - (_%xform-loop-e177669%_ - (lambda (_%expr177879%_ - _%kont-id177880%_ - _%kont-box177881%_ - _%negation-id177882%_) - (let* ((_%g177884177924%_ - (lambda (_%g177885177921%_) + (_%g178336178469%_)))))))) + (_%xform-loop-e177943%_ + (lambda (_%expr178153%_ + _%kont-id178154%_ + _%kont-box178155%_ + _%negation-id178156%_) + (let* ((_%g178158178198%_ + (lambda (_%g178159178195%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g177885177921%_)))) - (_%g177883178050%_ - (lambda (_%g177885177927%_) + _%g178159178195%_)))) + (_%g178157178324%_ + (lambda (_%g178159178201%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g177885177927%_)) - (let ((_%e177890177929%_ + (gx#stx-pair? _%g178159178201%_)) + (let ((_%e178164178203%_ (let () (declare (not safe)) - (gx#stx-e _%g177885177927%_)))) - (let ((_%hd177891177932%_ + (gx#stx-e _%g178159178201%_)))) + (let ((_%hd178165178206%_ (let () (declare (not safe)) - (##car _%e177890177929%_))) - (_%tl177892177934%_ + (##car _%e178164178203%_))) + (_%tl178166178208%_ (let () (declare (not safe)) - (##cdr _%e177890177929%_)))) + (##cdr _%e178164178203%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd177891177932%_)) + _%hd178165178206%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd177891177932%_)) + _%hd178165178206%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177892177934%_)) - (let ((_%e177893177937%_ + _%tl178166178208%_)) + (let ((_%e178167178211%_ (let () (declare (not safe)) (gx#stx-e - _%tl177892177934%_)))) - (let ((_%hd177894177940%_ + _%tl178166178208%_)))) + (let ((_%hd178168178214%_ (let () (declare (not safe)) - (##car _%e177893177937%_))) - (_%tl177895177942%_ + (##car _%e178167178211%_))) + (_%tl178169178216%_ (let () (declare (not safe)) - (##cdr _%e177893177937%_)))) + (##cdr _%e178167178211%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd177894177940%_)) - (let ((_g190929_ + _%hd178168178214%_)) + (let ((_g191203_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd177894177940%_ '0)))) + (gx#syntax-split-splice _%hd178168178214%_ '0)))) (begin - (let ((_g190930_ + (let ((_g191204_ (let () (declare (not safe)) - (if (##values? _g190929_) - (##vector-length _g190929_) + (if (##values? _g191203_) + (##vector-length _g191203_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g190930_ 2))) - (error "Context expects 2 values" _g190930_))) - (let ((_%target177896177945%_ + (##fx= _g191204_ 2))) + (error "Context expects 2 values" _g191204_))) + (let ((_%target178170178219%_ (let () (declare (not safe)) - (##vector-ref _g190929_ 0))) - (_%tl177898177947%_ + (##vector-ref _g191203_ 0))) + (_%tl178172178221%_ (let () (declare (not safe)) - (##vector-ref _g190929_ 1)))) + (##vector-ref _g191203_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177898177947%_)) - (letrec ((_%loop177899177950%_ - (lambda (_%hd177897177953%_ - _%id177903177955%_) + (gx#stx-null? _%tl178172178221%_)) + (letrec ((_%loop178173178224%_ + (lambda (_%hd178171178227%_ + _%id178177178229%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd177897177953%_)) - (let ((_%e177900177958%_ + _%hd178171178227%_)) + (let ((_%e178174178232%_ (let () (declare (not safe)) (gx#stx-e - _%hd177897177953%_)))) - (let ((_%lp-hd177901177961%_ + _%hd178171178227%_)))) + (let ((_%lp-hd178175178235%_ (let () (declare (not safe)) - (##car _%e177900177958%_))) - (_%lp-tl177902177963%_ + (##car _%e178174178232%_))) + (_%lp-tl178176178237%_ (let () (declare (not safe)) - (##cdr _%e177900177958%_)))) - (_%loop177899177950%_ - _%lp-tl177902177963%_ - (cons _%lp-hd177901177961%_ - _%id177903177955%_)))) - (let ((_%id177904177966%_ - (reverse _%id177903177955%_))) + (##cdr _%e178174178232%_)))) + (_%loop178173178224%_ + _%lp-tl178176178237%_ + (cons _%lp-hd178175178235%_ + _%id178177178229%_)))) + (let ((_%id178178178240%_ + (reverse _%id178177178229%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177895177942%_)) - (let ((_%e177905177969%_ + _%tl178169178216%_)) + (let ((_%e178179178243%_ (let () (declare (not safe)) (gx#stx-e - _%tl177895177942%_)))) - (let ((_%hd177906177972%_ + _%tl178169178216%_)))) + (let ((_%hd178180178246%_ (let () (declare (not safe)) - (##car _%e177905177969%_))) - (_%tl177907177974%_ + (##car _%e178179178243%_))) + (_%tl178181178248%_ (let () (declare (not safe)) - (##cdr _%e177905177969%_)))) + (##cdr _%e178179178243%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd177906177972%_)) - (let ((_%e177908177977%_ + _%hd178180178246%_)) + (let ((_%e178182178251%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd177906177972%_)))) - (let ((_%hd177909177980%_ + (gx#stx-e _%hd178180178246%_)))) + (let ((_%hd178183178254%_ (let () (declare (not safe)) - (##car _%e177908177977%_))) - (_%tl177910177982%_ + (##car _%e178182178251%_))) + (_%tl178184178256%_ (let () (declare (not safe)) - (##cdr _%e177908177977%_)))) + (##cdr _%e178182178251%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd177909177980%_)) + (gx#identifier? _%hd178183178254%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _%hd177909177980%_)) + (gx#stx-eq? '%#if _%hd178183178254%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177910177982%_)) - (let ((_%e177911177985%_ + (gx#stx-pair? _%tl178184178256%_)) + (let ((_%e178185178259%_ (let () (declare (not safe)) - (gx#stx-e _%tl177910177982%_)))) - (let ((_%hd177912177988%_ + (gx#stx-e _%tl178184178256%_)))) + (let ((_%hd178186178262%_ (let () (declare (not safe)) - (##car _%e177911177985%_))) - (_%tl177913177990%_ + (##car _%e178185178259%_))) + (_%tl178187178264%_ (let () (declare (not safe)) - (##cdr _%e177911177985%_)))) + (##cdr _%e178185178259%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177913177990%_)) - (let ((_%e177914177993%_ + (gx#stx-pair? _%tl178187178264%_)) + (let ((_%e178188178267%_ (let () (declare (not safe)) (gx#stx-e - _%tl177913177990%_)))) - (let ((_%hd177915177996%_ + _%tl178187178264%_)))) + (let ((_%hd178189178270%_ (let () (declare (not safe)) - (##car _%e177914177993%_))) - (_%tl177916177998%_ + (##car _%e178188178267%_))) + (_%tl178190178272%_ (let () (declare (not safe)) - (##cdr _%e177914177993%_)))) + (##cdr _%e178188178267%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177916177998%_)) - (let ((_%e177917178001%_ + _%tl178190178272%_)) + (let ((_%e178191178275%_ (let () (declare (not safe)) (gx#stx-e - _%tl177916177998%_)))) - (let ((_%hd177918178004%_ + _%tl178190178272%_)))) + (let ((_%hd178192178278%_ (let () (declare (not safe)) - (##car _%e177917178001%_))) - (_%tl177919178006%_ + (##car _%e178191178275%_))) + (_%tl178193178280%_ (let () (declare (not safe)) - (##cdr _%e177917178001%_)))) + (##cdr _%e178191178275%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl177919178006%_)) + _%tl178193178280%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl177907177974%_)) - ((lambda (_%L178009%_ - _%L178010%_ - _%L178011%_ - _%L178012%_) - (let ((_%E178041%_ - (_%xform-e177668%_ - _%L178009%_ - _%kont-id177880%_ - _%kont-box177881%_ - _%negation-id177882%_))) + (gx#stx-null? _%tl178181178248%_)) + ((lambda (_%L178283%_ + _%L178284%_ + _%L178285%_ + _%L178286%_) + (let ((_%E178315%_ + (_%xform-e177942%_ + _%L178283%_ + _%kont-id178154%_ + _%kont-box178155%_ + _%negation-id178156%_))) (cons '%#lambda - (cons (let ((__tmp190931 - (lambda (_%g178042178045%_ - _%g178043178047%_) - (cons _%g178042178045%_ - _%g178043178047%_)))) + (cons (let ((__tmp191205 + (lambda (_%g178316178319%_ + _%g178317178321%_) + (cons _%g178316178319%_ + _%g178317178321%_)))) (declare (not safe)) (__foldr1 - __tmp190931 + __tmp191205 '() - _%L178012%_)) + _%L178286%_)) (cons (cons '%#if - (cons _%L178011%_ - (cons _%L178010%_ - (cons _%E178041%_ + (cons _%L178285%_ + (cons _%L178284%_ + (cons _%E178315%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%hd177918178004%_ - _%hd177915177996%_ - _%hd177912177988%_ - _%id177904177966%_) - (_%g177884177924%_ _%g177885177927%_)) - (_%g177884177924%_ _%g177885177927%_)))) + _%hd178192178278%_ + _%hd178189178270%_ + _%hd178186178262%_ + _%id178178178240%_) + (_%g178158178198%_ _%g178159178201%_)) + (_%g178158178198%_ _%g178159178201%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g177884177924%_ - _%g177885177927%_)))) - (_%g177884177924%_ - _%g177885177927%_)))) - (_%g177884177924%_ _%g177885177927%_)) - (_%g177884177924%_ _%g177885177927%_)) - (_%g177884177924%_ _%g177885177927%_)))) - (_%g177884177924%_ _%g177885177927%_)))) + (_%g178158178198%_ + _%g178159178201%_)))) + (_%g178158178198%_ + _%g178159178201%_)))) + (_%g178158178198%_ _%g178159178201%_)) + (_%g178158178198%_ _%g178159178201%_)) + (_%g178158178198%_ _%g178159178201%_)))) + (_%g178158178198%_ _%g178159178201%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g177884177924%_ - _%g177885177927%_))))))) - (_%loop177899177950%_ - _%target177896177945%_ + (_%g178158178198%_ + _%g178159178201%_))))))) + (_%loop178173178224%_ + _%target178170178219%_ '())) - (_%g177884177924%_ _%g177885177927%_))))) - (_%g177884177924%_ _%g177885177927%_)))) + (_%g178158178198%_ _%g178159178201%_))))) + (_%g178158178198%_ _%g178159178201%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g177884177924%_ - _%g177885177927%_)) - (_%g177884177924%_ - _%g177885177927%_)) - (_%g177884177924%_ - _%g177885177927%_)))) - (_%g177884177924%_ _%g177885177927%_))))) - (_%g177883178050%_ _%expr177879%_)))) - (_%clause-e177670%_ - (lambda (_%clause-lambda177749%_ - _%kont-id177750%_ - _%rest177751%_) - (letrec* ((_%kont-box177753%_ (box '#f))) - (let* ((_%negation-id177793%_ - (let* ((_%rest177754177764%_ _%rest177751%_) - (_%else177756177772%_ - (lambda () _%negation-id177666%_)) - (_%K177758177778%_ - (lambda (_%clause177775%_ - _%clause-id177776%_) - _%clause-id177776%_))) + (_%g178158178198%_ + _%g178159178201%_)) + (_%g178158178198%_ + _%g178159178201%_)) + (_%g178158178198%_ + _%g178159178201%_)))) + (_%g178158178198%_ _%g178159178201%_))))) + (_%g178157178324%_ _%expr178153%_)))) + (_%clause-e177944%_ + (lambda (_%clause-lambda178023%_ + _%kont-id178024%_ + _%rest178025%_) + (letrec* ((_%kont-box178027%_ (box '#f))) + (let* ((_%negation-id178067%_ + (let* ((_%rest178028178038%_ _%rest178025%_) + (_%else178030178046%_ + (lambda () _%negation-id177940%_)) + (_%K178032178052%_ + (lambda (_%clause178049%_ + _%clause-id178050%_) + _%clause-id178050%_))) (if (let () (declare (not safe)) - (##pair? _%rest177754177764%_)) - (let ((_%hd177759177781%_ + (##pair? _%rest178028178038%_)) + (let ((_%hd178033178055%_ (let () (declare (not safe)) - (##car _%rest177754177764%_)))) + (##car _%rest178028178038%_)))) (if (let () (declare (not safe)) - (##pair? _%hd177759177781%_)) - (let ((_%hd177761177784%_ + (##pair? _%hd178033178055%_)) + (let ((_%hd178035178058%_ (let () (declare (not safe)) - (##car _%hd177759177781%_))) - (_%tl177762177786%_ + (##car _%hd178033178055%_))) + (_%tl178036178060%_ (let () (declare (not safe)) - (##cdr _%hd177759177781%_)))) - (let* ((_%clause-id177789%_ - _%hd177761177784%_) - (_%clause177791%_ - _%tl177762177786%_)) - (_%K177758177778%_ - _%clause177791%_ - _%clause-id177789%_))) - (_%else177756177772%_))) - (_%else177756177772%_)))) - (_%g177795177815%_ - (lambda (_%g177796177812%_) + (##cdr _%hd178033178055%_)))) + (let* ((_%clause-id178063%_ + _%hd178035178058%_) + (_%clause178065%_ + _%tl178036178060%_)) + (_%K178032178052%_ + _%clause178065%_ + _%clause-id178063%_))) + (_%else178030178046%_))) + (_%else178030178046%_)))) + (_%g178069178089%_ + (lambda (_%g178070178086%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g177796177812%_)))) - (_%g177794177876%_ - (lambda (_%g177796177818%_) + _%g178070178086%_)))) + (_%g178068178150%_ + (lambda (_%g178070178092%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g177796177818%_)) - (let ((_%e177799177820%_ + (gx#stx-pair? _%g178070178092%_)) + (let ((_%e178073178094%_ (let () (declare (not safe)) - (gx#stx-e _%g177796177818%_)))) - (let ((_%hd177800177823%_ + (gx#stx-e _%g178070178092%_)))) + (let ((_%hd178074178097%_ (let () (declare (not safe)) - (##car _%e177799177820%_))) - (_%tl177801177825%_ + (##car _%e178073178094%_))) + (_%tl178075178099%_ (let () (declare (not safe)) - (##cdr _%e177799177820%_)))) + (##cdr _%e178073178094%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd177800177823%_)) + _%hd178074178097%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd177800177823%_)) + _%hd178074178097%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177801177825%_)) - (let ((_%e177802177828%_ + _%tl178075178099%_)) + (let ((_%e178076178102%_ (let () (declare (not safe)) (gx#stx-e - _%tl177801177825%_)))) - (let ((_%hd177803177831%_ + _%tl178075178099%_)))) + (let ((_%hd178077178105%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e177802177828%_))) - (_%tl177804177833%_ - (let () (declare (not safe)) (##cdr _%e177802177828%_)))) + (##car _%e178076178102%_))) + (_%tl178078178107%_ + (let () (declare (not safe)) (##cdr _%e178076178102%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd177803177831%_)) - (let ((_%e177805177836%_ + (gx#stx-pair? _%hd178077178105%_)) + (let ((_%e178079178110%_ (let () (declare (not safe)) - (gx#stx-e _%hd177803177831%_)))) - (let ((_%hd177806177839%_ + (gx#stx-e _%hd178077178105%_)))) + (let ((_%hd178080178113%_ (let () (declare (not safe)) - (##car _%e177805177836%_))) - (_%tl177807177841%_ + (##car _%e178079178110%_))) + (_%tl178081178115%_ (let () (declare (not safe)) - (##cdr _%e177805177836%_)))) + (##cdr _%e178079178110%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177807177841%_)) + (gx#stx-null? _%tl178081178115%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177804177833%_)) - (let ((_%e177808177844%_ + (gx#stx-pair? _%tl178078178107%_)) + (let ((_%e178082178118%_ (let () (declare (not safe)) - (gx#stx-e _%tl177804177833%_)))) - (let ((_%hd177809177847%_ + (gx#stx-e _%tl178078178107%_)))) + (let ((_%hd178083178121%_ (let () (declare (not safe)) - (##car _%e177808177844%_))) - (_%tl177810177849%_ + (##car _%e178082178118%_))) + (_%tl178084178123%_ (let () (declare (not safe)) - (##cdr _%e177808177844%_)))) + (##cdr _%e178082178118%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177810177849%_)) - ((lambda (_%L177852%_ _%L177853%_) - (let ((_%body177874%_ - (_%xform-e177668%_ - _%L177852%_ - _%kont-id177750%_ - _%kont-box177753%_ - _%negation-id177793%_))) + (gx#stx-null? _%tl178084178123%_)) + ((lambda (_%L178126%_ _%L178127%_) + (let ((_%body178148%_ + (_%xform-e177942%_ + _%L178126%_ + _%kont-id178024%_ + _%kont-box178027%_ + _%negation-id178067%_))) (values (cons '%#lambda - (cons (cons _%L177853%_ + (cons (cons _%L178127%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%body177874%_ '()))) + (cons _%body178148%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (unbox _%kont-box177753%_)))) - _%hd177809177847%_ - _%hd177806177839%_) - (_%g177795177815%_ - _%g177796177818%_)))) - (_%g177795177815%_ _%g177796177818%_)) - (_%g177795177815%_ _%g177796177818%_)))) - (_%g177795177815%_ _%g177796177818%_)))) + (unbox _%kont-box178027%_)))) + _%hd178083178121%_ + _%hd178080178113%_) + (_%g178069178089%_ + _%g178070178092%_)))) + (_%g178069178089%_ _%g178070178092%_)) + (_%g178069178089%_ _%g178070178092%_)))) + (_%g178069178089%_ _%g178070178092%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g177795177815%_ - _%g177796177818%_)) - (_%g177795177815%_ - _%g177796177818%_)) - (_%g177795177815%_ - _%g177796177818%_)))) - (_%g177795177815%_ _%g177796177818%_))))) - (_%g177794177876%_ _%clause-lambda177749%_)))))) - (let _%lp177672%_ ((_%rest177674%_ _%clauses177665%_) - (_%clauses177675%_ '()) - (_%konts177676%_ '())) - (let* ((_%rest177677177685%_ _%rest177674%_) - (_%else177679177693%_ + (_%g178069178089%_ + _%g178070178092%_)) + (_%g178069178089%_ + _%g178070178092%_)) + (_%g178069178089%_ + _%g178070178092%_)))) + (_%g178069178089%_ _%g178070178092%_))))) + (_%g178068178150%_ _%clause-lambda178023%_)))))) + (let _%lp177946%_ ((_%rest177948%_ _%clauses177939%_) + (_%clauses177949%_ '()) + (_%konts177950%_ '())) + (let* ((_%rest177951177959%_ _%rest177948%_) + (_%else177953177967%_ (lambda () - (values (reverse _%clauses177675%_) - (reverse _%konts177676%_)))) - (_%K177681177737%_ - (lambda (_%rest177696%_ _%clause177697%_) - (let* ((_%clause177698177705%_ _%clause177697%_) - (_%E177700177709%_ + (values (reverse _%clauses177949%_) + (reverse _%konts177950%_)))) + (_%K177955178011%_ + (lambda (_%rest177970%_ _%clause177971%_) + (let* ((_%clause177972177979%_ _%clause177971%_) + (_%E177974177983%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause177698177705%_ + _%clause177972177979%_ '([clause-id . clause-lambda]))) '#!void)) - (_%K177701177725%_ - (lambda (_%clause-lambda177712%_ - _%clause-id177713%_) - (let* ((_%id177715%_ - (let ((__tmp190932 + (_%K177975177999%_ + (lambda (_%clause-lambda177986%_ + _%clause-id177987%_) + (let* ((_%id177989%_ + (let ((__tmp191206 (let () (declare (not safe)) (##gensym '__kont)))) (declare (not safe)) - (make-symbol__0 __tmp190932))) - (_%id177717%_ + (make-symbol__0 __tmp191206))) + (_%id177991%_ (let () (declare (not safe)) (gx#core-quote-syntax__0 - _%id177715%_))) - (_%_177719%_ + _%id177989%_))) + (_%_177993%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%id177717%_))) - (_g190933_ - (_%clause-e177670%_ - _%clause-lambda177712%_ - _%id177717%_ - _%rest177696%_))) + _%id177991%_))) + (_g191207_ + (_%clause-e177944%_ + _%clause-lambda177986%_ + _%id177991%_ + _%rest177970%_))) (begin - (let ((_g190934_ + (let ((_g191208_ (let () (declare (not safe)) - (if (##values? _g190933_) - (##vector-length _g190933_) + (if (##values? _g191207_) + (##vector-length _g191207_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g190934_ 2))) + (##fx= _g191208_ 2))) (error "Context expects 2 values" - _g190934_))) - (let ((_%clause-lambda177721%_ + _g191208_))) + (let ((_%clause-lambda177995%_ (let () (declare (not safe)) - (##vector-ref _g190933_ 0))) - (_%kont177722%_ + (##vector-ref _g191207_ 0))) + (_%kont177996%_ (let () (declare (not safe)) - (##vector-ref _g190933_ 1)))) - (_%lp177672%_ - _%rest177696%_ - (cons (cons _%clause-id177713%_ - _%clause-lambda177721%_) - _%clauses177675%_) - (cons (cons _%id177717%_ _%kont177722%_) - _%konts177676%_)))))))) + (##vector-ref _g191207_ 1)))) + (_%lp177946%_ + _%rest177970%_ + (cons (cons _%clause-id177987%_ + _%clause-lambda177995%_) + _%clauses177949%_) + (cons (cons _%id177991%_ _%kont177996%_) + _%konts177950%_)))))))) (if (let () (declare (not safe)) - (##pair? _%clause177698177705%_)) - (let ((_%hd177702177728%_ + (##pair? _%clause177972177979%_)) + (let ((_%hd177976178002%_ (let () (declare (not safe)) - (##car _%clause177698177705%_))) - (_%tl177703177730%_ + (##car _%clause177972177979%_))) + (_%tl177977178004%_ (let () (declare (not safe)) - (##cdr _%clause177698177705%_)))) - (let* ((_%clause-id177733%_ _%hd177702177728%_) - (_%clause-lambda177735%_ - _%tl177703177730%_)) - (_%K177701177725%_ - _%clause-lambda177735%_ - _%clause-id177733%_))) - (_%E177700177709%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest177677177685%_)) - (let ((_%hd177682177740%_ + (##cdr _%clause177972177979%_)))) + (let* ((_%clause-id178007%_ _%hd177976178002%_) + (_%clause-lambda178009%_ + _%tl177977178004%_)) + (_%K177975177999%_ + _%clause-lambda178009%_ + _%clause-id178007%_))) + (_%E177974177983%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest177951177959%_)) + (let ((_%hd177956178014%_ (let () (declare (not safe)) - (##car _%rest177677177685%_))) - (_%tl177683177742%_ + (##car _%rest177951177959%_))) + (_%tl177957178016%_ (let () (declare (not safe)) - (##cdr _%rest177677177685%_)))) - (let* ((_%clause177745%_ _%hd177682177740%_) - (_%rest177747%_ _%tl177683177742%_)) - (_%K177681177737%_ _%rest177747%_ _%clause177745%_))) - (_%else177679177693%_))))))) + (##cdr _%rest177951177959%_)))) + (let* ((_%clause178019%_ _%hd177956178014%_) + (_%rest178021%_ _%tl177957178016%_)) + (_%K177955178011%_ _%rest178021%_ _%clause178019%_))) + (_%else177953177967%_))))))) (define gxc#optimize-syntax-case-closure - (lambda (_%clause177009%_ _%negation177010%_ _%target177011%_) - (letrec ((_%closure-e177013%_ - (lambda (_%expr177130%_) - (let* ((_%__stx190544190545%_ _%expr177130%_) - (_%g177137177252%_ + (lambda (_%clause177283%_ _%negation177284%_ _%target177285%_) + (letrec ((_%closure-e177287%_ + (lambda (_%expr177404%_) + (let* ((_%__stx190818190819%_ _%expr177404%_) + (_%g177411177526%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190544190545%_))))) - (let ((_%__kont190546190547%_ - (lambda (_%L177643%_ _%L177644%_ _%L177645%_) + _%__stx190818190819%_))))) + (let ((_%__kont190820190821%_ + (lambda (_%L177917%_ _%L177918%_ _%L177919%_) (cons '%#if - (cons _%L177645%_ - (cons (_%closure-e177013%_ - _%L177644%_) - (cons (_%closure-e177013%_ - _%L177643%_) + (cons _%L177919%_ + (cons (_%closure-e177287%_ + _%L177918%_) + (cons (_%closure-e177287%_ + _%L177917%_) '())))))) - (_%__kont190548190549%_ - (lambda (_%L177591%_ _%L177592%_) + (_%__kont190822190823%_ + (lambda (_%L177865%_ _%L177866%_) (cons '%#let-values - (cons _%L177592%_ - (cons (_%closure-e177013%_ - _%L177591%_) + (cons _%L177866%_ + (cons (_%closure-e177287%_ + _%L177865%_) '()))))) - (_%__kont190550190551%_ - (lambda (_%L177537%_ _%L177538%_ _%L177539%_) + (_%__kont190824190825%_ + (lambda (_%L177811%_ _%L177812%_ _%L177813%_) (cons '%#letrec-values - (cons (cons (cons (cons _%L177539%_ '()) - (cons (_%closure-e177013%_ - _%L177538%_) + (cons (cons (cons (cons _%L177813%_ '()) + (cons (_%closure-e177287%_ + _%L177812%_) '())) '()) - (cons _%L177537%_ '()))))) - (_%__kont190552190553%_ - (lambda (_%L177450%_ _%L177451%_) + (cons _%L177811%_ '()))))) + (_%__kont190826190827%_ + (lambda (_%L177724%_ _%L177725%_) (cons '%#lambda - (cons (let ((__tmp190935 - (lambda (_%g177468177471%_ - _%g177469177473%_) - (cons _%g177468177471%_ - _%g177469177473%_)))) + (cons (let ((__tmp191209 + (lambda (_%g177742177745%_ + _%g177743177747%_) + (cons _%g177742177745%_ + _%g177743177747%_)))) (declare (not safe)) (__foldr1 - __tmp190935 + __tmp191209 '() - _%L177451%_)) - (cons (_%closure-e177013%_ - _%L177450%_) + _%L177725%_)) + (cons (_%closure-e177287%_ + _%L177724%_) '()))))) - (_%__kont190556190557%_ - (lambda (_%L177380%_) + (_%__kont190830190831%_ + (lambda (_%L177654%_) (cons '%#call (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L177380%_ '())) + (cons _%L177654%_ '())) '())))) - (_%__kont190558190559%_ - (lambda (_%L177313%_ _%L177314%_) - _%expr177130%_))) - (let* ((_%__match190777190778%_ - (lambda (_%e177227177257%_ - _%hd177228177260%_ - _%tl177229177262%_ - _%e177230177265%_ - _%hd177231177268%_ - _%tl177232177270%_ - _%e177233177273%_ - _%hd177234177276%_ - _%tl177235177278%_ - _%e177236177281%_ - _%hd177237177284%_ - _%tl177238177286%_ - _%__splice190560190561%_ - _%target177239177289%_ - _%tl177241177291%_) - (letrec ((_%loop177242177294%_ - (lambda (_%hd177240177297%_ - _%arg177246177299%_) + (_%__kont190832190833%_ + (lambda (_%L177587%_ _%L177588%_) + _%expr177404%_))) + (let* ((_%__match191051191052%_ + (lambda (_%e177501177531%_ + _%hd177502177534%_ + _%tl177503177536%_ + _%e177504177539%_ + _%hd177505177542%_ + _%tl177506177544%_ + _%e177507177547%_ + _%hd177508177550%_ + _%tl177509177552%_ + _%e177510177555%_ + _%hd177511177558%_ + _%tl177512177560%_ + _%__splice190834190835%_ + _%target177513177563%_ + _%tl177515177565%_) + (letrec ((_%loop177516177568%_ + (lambda (_%hd177514177571%_ + _%arg177520177573%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd177240177297%_)) - (let ((_%e177243177302%_ + _%hd177514177571%_)) + (let ((_%e177517177576%_ (let () (declare (not safe)) (gx#stx-e - _%hd177240177297%_)))) - (let ((_%lp-tl177245177307%_ + _%hd177514177571%_)))) + (let ((_%lp-tl177519177581%_ (let () (declare (not safe)) - (##cdr _%e177243177302%_))) - (_%lp-hd177244177305%_ + (##cdr _%e177517177576%_))) + (_%lp-hd177518177579%_ (let () (declare (not safe)) - (##car _%e177243177302%_)))) - (_%loop177242177294%_ - _%lp-tl177245177307%_ - (cons _%lp-hd177244177305%_ - _%arg177246177299%_)))) - (let ((_%arg177247177310%_ - (reverse _%arg177246177299%_))) - (_%__kont190558190559%_ - _%arg177247177310%_ - _%hd177237177284%_)))))) - (_%loop177242177294%_ - _%target177239177289%_ + (##car _%e177517177576%_)))) + (_%loop177516177568%_ + _%lp-tl177519177581%_ + (cons _%lp-hd177518177579%_ + _%arg177520177573%_)))) + (let ((_%arg177521177584%_ + (reverse _%arg177520177573%_))) + (_%__kont190832190833%_ + _%arg177521177584%_ + _%hd177511177558%_)))))) + (_%loop177516177568%_ + _%target177513177563%_ '())))) - (_%__match190735190736%_ - (lambda (_%e177210177340%_ - _%hd177211177343%_ - _%tl177212177345%_ - _%e177213177348%_ - _%hd177214177351%_ - _%tl177215177353%_ - _%e177216177356%_ - _%hd177217177359%_ - _%tl177218177361%_ - _%e177219177364%_ - _%hd177220177367%_ - _%tl177221177369%_ - _%e177222177372%_ - _%hd177223177375%_ - _%tl177224177377%_) - (let ((_%L177380%_ _%hd177220177367%_)) + (_%__match191009191010%_ + (lambda (_%e177484177614%_ + _%hd177485177617%_ + _%tl177486177619%_ + _%e177487177622%_ + _%hd177488177625%_ + _%tl177489177627%_ + _%e177490177630%_ + _%hd177491177633%_ + _%tl177492177635%_ + _%e177493177638%_ + _%hd177494177641%_ + _%tl177495177643%_ + _%e177496177646%_ + _%hd177497177649%_ + _%tl177498177651%_) + (let ((_%L177654%_ _%hd177494177641%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L177380%_ - _%negation177010%_)) - (_%__kont190556190557%_ _%L177380%_) + _%L177654%_ + _%negation177284%_)) + (_%__kont190830190831%_ _%L177654%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl177215177353%_)) - (let ((_%__splice190560190561%_ + _%tl177489177627%_)) + (let ((_%__splice190834190835%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl177215177353%_ + _%tl177489177627%_ '0)))) - (let ((_%tl177241177291%_ + (let ((_%tl177515177565%_ (let () (declare (not safe)) (##vector-ref - _%__splice190560190561%_ + _%__splice190834190835%_ '1))) - (_%target177239177289%_ + (_%target177513177563%_ (let () (declare (not safe)) (##vector-ref - _%__splice190560190561%_ + _%__splice190834190835%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl177241177291%_)) - (_%__match190777190778%_ - _%e177210177340%_ - _%hd177211177343%_ - _%tl177212177345%_ - _%e177213177348%_ - _%hd177214177351%_ - _%tl177215177353%_ - _%e177216177356%_ - _%hd177217177359%_ - _%tl177218177361%_ - _%e177219177364%_ - _%hd177220177367%_ - _%tl177221177369%_ - _%__splice190560190561%_ - _%target177239177289%_ - _%tl177241177291%_) + _%tl177515177565%_)) + (_%__match191051191052%_ + _%e177484177614%_ + _%hd177485177617%_ + _%tl177486177619%_ + _%e177487177622%_ + _%hd177488177625%_ + _%tl177489177627%_ + _%e177490177630%_ + _%hd177491177633%_ + _%tl177492177635%_ + _%e177493177638%_ + _%hd177494177641%_ + _%tl177495177643%_ + _%__splice190834190835%_ + _%target177513177563%_ + _%tl177515177565%_) (let () (declare (not safe)) - (_%g177137177252%_))))) + (_%g177411177526%_))))) (let () (declare (not safe)) - (_%g177137177252%_))))))) - (_%__match190693190694%_ - (lambda (_%e177191177402%_ - _%hd177192177405%_ - _%tl177193177407%_ - _%e177194177410%_ - _%hd177195177413%_ - _%tl177196177415%_ - _%__splice190554190555%_ - _%target177197177418%_ - _%tl177199177420%_) - (letrec ((_%loop177200177423%_ - (lambda (_%hd177198177426%_ - _%id177204177428%_) + (_%g177411177526%_))))))) + (_%__match190967190968%_ + (lambda (_%e177465177676%_ + _%hd177466177679%_ + _%tl177467177681%_ + _%e177468177684%_ + _%hd177469177687%_ + _%tl177470177689%_ + _%__splice190828190829%_ + _%target177471177692%_ + _%tl177473177694%_) + (letrec ((_%loop177474177697%_ + (lambda (_%hd177472177700%_ + _%id177478177702%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd177198177426%_)) - (let ((_%e177201177431%_ + _%hd177472177700%_)) + (let ((_%e177475177705%_ (let () (declare (not safe)) (gx#stx-e - _%hd177198177426%_)))) - (let ((_%lp-tl177203177436%_ + _%hd177472177700%_)))) + (let ((_%lp-tl177477177710%_ (let () (declare (not safe)) - (##cdr _%e177201177431%_))) - (_%lp-hd177202177434%_ + (##cdr _%e177475177705%_))) + (_%lp-hd177476177708%_ (let () (declare (not safe)) - (##car _%e177201177431%_)))) - (_%loop177200177423%_ - _%lp-tl177203177436%_ - (cons _%lp-hd177202177434%_ - _%id177204177428%_)))) - (let ((_%id177205177439%_ - (reverse _%id177204177428%_))) + (##car _%e177475177705%_)))) + (_%loop177474177697%_ + _%lp-tl177477177710%_ + (cons _%lp-hd177476177708%_ + _%id177478177702%_)))) + (let ((_%id177479177713%_ + (reverse _%id177478177702%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177196177415%_)) - (let ((_%e177206177442%_ + _%tl177470177689%_)) + (let ((_%e177480177716%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl177196177415%_)))) - (let ((_%tl177208177447%_ + (gx#stx-e _%tl177470177689%_)))) + (let ((_%tl177482177721%_ (let () (declare (not safe)) - (##cdr _%e177206177442%_))) - (_%hd177207177445%_ + (##cdr _%e177480177716%_))) + (_%hd177481177719%_ (let () (declare (not safe)) - (##car _%e177206177442%_)))) + (##car _%e177480177716%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177208177447%_)) - (_%__kont190552190553%_ - _%hd177207177445%_ - _%id177205177439%_) - (let () (declare (not safe)) (_%g177137177252%_))))) - (let () (declare (not safe)) (_%g177137177252%_)))))))) + (gx#stx-null? _%tl177482177721%_)) + (_%__kont190826190827%_ + _%hd177481177719%_ + _%id177479177713%_) + (let () (declare (not safe)) (_%g177411177526%_))))) + (let () (declare (not safe)) (_%g177411177526%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop177200177423%_ - _%target177197177418%_ + (_%loop177474177697%_ + _%target177471177692%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190544190545%_)) - (let ((_%e177142177611%_ + (gx#stx-pair? _%__stx190818190819%_)) + (let ((_%e177416177885%_ (let () (declare (not safe)) - (gx#stx-e _%__stx190544190545%_)))) - (let ((_%tl177144177616%_ + (gx#stx-e _%__stx190818190819%_)))) + (let ((_%tl177418177890%_ (let () (declare (not safe)) - (##cdr _%e177142177611%_))) - (_%hd177143177614%_ + (##cdr _%e177416177885%_))) + (_%hd177417177888%_ (let () (declare (not safe)) - (##car _%e177142177611%_)))) + (##car _%e177416177885%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd177143177614%_)) + (gx#identifier? _%hd177417177888%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd177143177614%_)) + _%hd177417177888%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177144177616%_)) - (let ((_%e177145177619%_ + _%tl177418177890%_)) + (let ((_%e177419177893%_ (let () (declare (not safe)) (gx#stx-e - _%tl177144177616%_)))) - (let ((_%tl177147177624%_ + _%tl177418177890%_)))) + (let ((_%tl177421177898%_ (let () (declare (not safe)) - (##cdr _%e177145177619%_))) - (_%hd177146177622%_ + (##cdr _%e177419177893%_))) + (_%hd177420177896%_ (let () (declare (not safe)) - (##car _%e177145177619%_)))) + (##car _%e177419177893%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177147177624%_)) - (let ((_%e177148177627%_ + _%tl177421177898%_)) + (let ((_%e177422177901%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl177147177624%_)))) - (let ((_%tl177150177632%_ - (let () (declare (not safe)) (##cdr _%e177148177627%_))) - (_%hd177149177630%_ + (gx#stx-e _%tl177421177898%_)))) + (let ((_%tl177424177906%_ + (let () (declare (not safe)) (##cdr _%e177422177901%_))) + (_%hd177423177904%_ (let () (declare (not safe)) - (##car _%e177148177627%_)))) + (##car _%e177422177901%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177150177632%_)) - (let ((_%e177151177635%_ + (gx#stx-pair? _%tl177424177906%_)) + (let ((_%e177425177909%_ (let () (declare (not safe)) - (gx#stx-e _%tl177150177632%_)))) - (let ((_%tl177153177640%_ + (gx#stx-e _%tl177424177906%_)))) + (let ((_%tl177427177914%_ (let () (declare (not safe)) - (##cdr _%e177151177635%_))) - (_%hd177152177638%_ + (##cdr _%e177425177909%_))) + (_%hd177426177912%_ (let () (declare (not safe)) - (##car _%e177151177635%_)))) + (##car _%e177425177909%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177153177640%_)) - (_%__kont190546190547%_ - _%hd177152177638%_ - _%hd177149177630%_ - _%hd177146177622%_) + (gx#stx-null? _%tl177427177914%_)) + (_%__kont190820190821%_ + _%hd177426177912%_ + _%hd177423177904%_ + _%hd177420177896%_) (let () (declare (not safe)) - (_%g177137177252%_))))) - (let () (declare (not safe)) (_%g177137177252%_))))) - (let () (declare (not safe)) (_%g177137177252%_))))) + (_%g177411177526%_))))) + (let () (declare (not safe)) (_%g177411177526%_))))) + (let () (declare (not safe)) (_%g177411177526%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g177137177252%_))) + (_%g177411177526%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd177143177614%_)) + _%hd177417177888%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177144177616%_)) - (let ((_%e177159177575%_ + _%tl177418177890%_)) + (let ((_%e177433177849%_ (let () (declare (not safe)) (gx#stx-e - _%tl177144177616%_)))) - (let ((_%tl177161177580%_ + _%tl177418177890%_)))) + (let ((_%tl177435177854%_ (let () (declare (not safe)) - (##cdr _%e177159177575%_))) - (_%hd177160177578%_ + (##cdr _%e177433177849%_))) + (_%hd177434177852%_ (let () (declare (not safe)) - (##car _%e177159177575%_)))) + (##car _%e177433177849%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177161177580%_)) - (let ((_%e177162177583%_ + _%tl177435177854%_)) + (let ((_%e177436177857%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl177161177580%_)))) - (let ((_%tl177164177588%_ + (gx#stx-e _%tl177435177854%_)))) + (let ((_%tl177438177862%_ (let () (declare (not safe)) - (##cdr _%e177162177583%_))) - (_%hd177163177586%_ + (##cdr _%e177436177857%_))) + (_%hd177437177860%_ (let () (declare (not safe)) - (##car _%e177162177583%_)))) + (##car _%e177436177857%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177164177588%_)) - (_%__kont190548190549%_ - _%hd177163177586%_ - _%hd177160177578%_) - (let () (declare (not safe)) (_%g177137177252%_))))) - (let () (declare (not safe)) (_%g177137177252%_))))) + (gx#stx-null? _%tl177438177862%_)) + (_%__kont190822190823%_ + _%hd177437177860%_ + _%hd177434177852%_) + (let () (declare (not safe)) (_%g177411177526%_))))) + (let () (declare (not safe)) (_%g177411177526%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g177137177252%_))) + (_%g177411177526%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd177143177614%_)) + _%hd177417177888%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177144177616%_)) - (let ((_%e177171177489%_ + _%tl177418177890%_)) + (let ((_%e177445177763%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl177144177616%_)))) - (let ((_%tl177173177494%_ - (let () (declare (not safe)) (##cdr _%e177171177489%_))) - (_%hd177172177492%_ + (gx#stx-e _%tl177418177890%_)))) + (let ((_%tl177447177768%_ + (let () (declare (not safe)) (##cdr _%e177445177763%_))) + (_%hd177446177766%_ (let () (declare (not safe)) - (##car _%e177171177489%_)))) + (##car _%e177445177763%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd177172177492%_)) - (let ((_%e177174177497%_ + (gx#stx-pair? _%hd177446177766%_)) + (let ((_%e177448177771%_ (let () (declare (not safe)) - (gx#stx-e _%hd177172177492%_)))) - (let ((_%tl177176177502%_ + (gx#stx-e _%hd177446177766%_)))) + (let ((_%tl177450177776%_ (let () (declare (not safe)) - (##cdr _%e177174177497%_))) - (_%hd177175177500%_ + (##cdr _%e177448177771%_))) + (_%hd177449177774%_ (let () (declare (not safe)) - (##car _%e177174177497%_)))) + (##car _%e177448177771%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd177175177500%_)) - (let ((_%e177177177505%_ + (gx#stx-pair? _%hd177449177774%_)) + (let ((_%e177451177779%_ (let () (declare (not safe)) - (gx#stx-e _%hd177175177500%_)))) - (let ((_%tl177179177510%_ + (gx#stx-e _%hd177449177774%_)))) + (let ((_%tl177453177784%_ (let () (declare (not safe)) - (##cdr _%e177177177505%_))) - (_%hd177178177508%_ + (##cdr _%e177451177779%_))) + (_%hd177452177782%_ (let () (declare (not safe)) - (##car _%e177177177505%_)))) + (##car _%e177451177779%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd177178177508%_)) - (let ((_%e177180177513%_ + (gx#stx-pair? _%hd177452177782%_)) + (let ((_%e177454177787%_ (let () (declare (not safe)) - (gx#stx-e _%hd177178177508%_)))) - (let ((_%tl177182177518%_ + (gx#stx-e _%hd177452177782%_)))) + (let ((_%tl177456177792%_ (let () (declare (not safe)) - (##cdr _%e177180177513%_))) - (_%hd177181177516%_ + (##cdr _%e177454177787%_))) + (_%hd177455177790%_ (let () (declare (not safe)) - (##car _%e177180177513%_)))) + (##car _%e177454177787%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl177182177518%_)) + _%tl177456177792%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177179177510%_)) - (let ((_%e177183177521%_ + _%tl177453177784%_)) + (let ((_%e177457177795%_ (let () (declare (not safe)) (gx#stx-e - _%tl177179177510%_)))) - (let ((_%tl177185177526%_ + _%tl177453177784%_)))) + (let ((_%tl177459177800%_ (let () (declare (not safe)) - (##cdr _%e177183177521%_))) - (_%hd177184177524%_ + (##cdr _%e177457177795%_))) + (_%hd177458177798%_ (let () (declare (not safe)) - (##car _%e177183177521%_)))) + (##car _%e177457177795%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl177185177526%_)) + _%tl177459177800%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl177176177502%_)) + (gx#stx-null? _%tl177450177776%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177173177494%_)) - (let ((_%e177186177529%_ + (gx#stx-pair? _%tl177447177768%_)) + (let ((_%e177460177803%_ (let () (declare (not safe)) - (gx#stx-e _%tl177173177494%_)))) - (let ((_%tl177188177534%_ + (gx#stx-e _%tl177447177768%_)))) + (let ((_%tl177462177808%_ (let () (declare (not safe)) - (##cdr _%e177186177529%_))) - (_%hd177187177532%_ + (##cdr _%e177460177803%_))) + (_%hd177461177806%_ (let () (declare (not safe)) - (##car _%e177186177529%_)))) + (##car _%e177460177803%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177188177534%_)) - (_%__kont190550190551%_ - _%hd177187177532%_ - _%hd177184177524%_ - _%hd177181177516%_) + (gx#stx-null? _%tl177462177808%_)) + (_%__kont190824190825%_ + _%hd177461177806%_ + _%hd177458177798%_ + _%hd177455177790%_) (let () (declare (not safe)) - (_%g177137177252%_))))) - (let () (declare (not safe)) (_%g177137177252%_))) - (let () (declare (not safe)) (_%g177137177252%_))) - (let () (declare (not safe)) (_%g177137177252%_))))) + (_%g177411177526%_))))) + (let () (declare (not safe)) (_%g177411177526%_))) + (let () (declare (not safe)) (_%g177411177526%_))) + (let () (declare (not safe)) (_%g177411177526%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g177137177252%_))) + (_%g177411177526%_))) (let () (declare (not safe)) - (_%g177137177252%_))))) + (_%g177411177526%_))))) (let () (declare (not safe)) - (_%g177137177252%_))))) + (_%g177411177526%_))))) (let () (declare (not safe)) - (_%g177137177252%_))))) - (let () (declare (not safe)) (_%g177137177252%_))))) - (let () (declare (not safe)) (_%g177137177252%_))) + (_%g177411177526%_))))) + (let () (declare (not safe)) (_%g177411177526%_))))) + (let () (declare (not safe)) (_%g177411177526%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd177143177614%_)) + _%hd177417177888%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177144177616%_)) - (let ((_%e177194177410%_ + _%tl177418177890%_)) + (let ((_%e177468177684%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl177144177616%_)))) - (let ((_%tl177196177415%_ + (gx#stx-e _%tl177418177890%_)))) + (let ((_%tl177470177689%_ (let () (declare (not safe)) - (##cdr _%e177194177410%_))) - (_%hd177195177413%_ + (##cdr _%e177468177684%_))) + (_%hd177469177687%_ (let () (declare (not safe)) - (##car _%e177194177410%_)))) + (##car _%e177468177684%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd177195177413%_)) - (let ((_%__splice190554190555%_ + (gx#stx-pair/null? _%hd177469177687%_)) + (let ((_%__splice190828190829%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd177195177413%_ + _%hd177469177687%_ '0)))) - (let ((_%tl177199177420%_ + (let ((_%tl177473177694%_ (let () (declare (not safe)) (##vector-ref - _%__splice190554190555%_ + _%__splice190828190829%_ '1))) - (_%target177197177418%_ + (_%target177471177692%_ (let () (declare (not safe)) (##vector-ref - _%__splice190554190555%_ + _%__splice190828190829%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177199177420%_)) - (_%__match190693190694%_ - _%e177142177611%_ - _%hd177143177614%_ - _%tl177144177616%_ - _%e177194177410%_ - _%hd177195177413%_ - _%tl177196177415%_ - _%__splice190554190555%_ - _%target177197177418%_ - _%tl177199177420%_) + (gx#stx-null? _%tl177473177694%_)) + (_%__match190967190968%_ + _%e177416177885%_ + _%hd177417177888%_ + _%tl177418177890%_ + _%e177468177684%_ + _%hd177469177687%_ + _%tl177470177689%_ + _%__splice190828190829%_ + _%target177471177692%_ + _%tl177473177694%_) (let () (declare (not safe)) - (_%g177137177252%_))))) - (let () (declare (not safe)) (_%g177137177252%_))))) - (let () (declare (not safe)) (_%g177137177252%_))) + (_%g177411177526%_))))) + (let () (declare (not safe)) (_%g177411177526%_))))) + (let () (declare (not safe)) (_%g177411177526%_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd177143177614%_)) + (gx#stx-eq? '%#call _%hd177417177888%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177144177616%_)) - (let ((_%e177213177348%_ + (gx#stx-pair? _%tl177418177890%_)) + (let ((_%e177487177622%_ (let () (declare (not safe)) - (gx#stx-e _%tl177144177616%_)))) - (let ((_%tl177215177353%_ + (gx#stx-e _%tl177418177890%_)))) + (let ((_%tl177489177627%_ (let () (declare (not safe)) - (##cdr _%e177213177348%_))) - (_%hd177214177351%_ + (##cdr _%e177487177622%_))) + (_%hd177488177625%_ (let () (declare (not safe)) - (##car _%e177213177348%_)))) + (##car _%e177487177622%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd177214177351%_)) - (let ((_%e177216177356%_ + (gx#stx-pair? _%hd177488177625%_)) + (let ((_%e177490177630%_ (let () (declare (not safe)) - (gx#stx-e _%hd177214177351%_)))) - (let ((_%tl177218177361%_ + (gx#stx-e _%hd177488177625%_)))) + (let ((_%tl177492177635%_ (let () (declare (not safe)) - (##cdr _%e177216177356%_))) - (_%hd177217177359%_ + (##cdr _%e177490177630%_))) + (_%hd177491177633%_ (let () (declare (not safe)) - (##car _%e177216177356%_)))) + (##car _%e177490177630%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd177217177359%_)) + (gx#identifier? _%hd177491177633%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd177217177359%_)) + _%hd177491177633%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177218177361%_)) - (let ((_%e177219177364%_ + _%tl177492177635%_)) + (let ((_%e177493177638%_ (let () (declare (not safe)) (gx#stx-e - _%tl177218177361%_)))) - (let ((_%tl177221177369%_ + _%tl177492177635%_)))) + (let ((_%tl177495177643%_ (let () (declare (not safe)) - (##cdr _%e177219177364%_))) - (_%hd177220177367%_ + (##cdr _%e177493177638%_))) + (_%hd177494177641%_ (let () (declare (not safe)) - (##car _%e177219177364%_)))) + (##car _%e177493177638%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl177221177369%_)) + _%tl177495177643%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177215177353%_)) - (let ((_%e177222177372%_ + _%tl177489177627%_)) + (let ((_%e177496177646%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl177215177353%_)))) - (let ((_%tl177224177377%_ + (gx#stx-e _%tl177489177627%_)))) + (let ((_%tl177498177651%_ (let () (declare (not safe)) - (##cdr _%e177222177372%_))) - (_%hd177223177375%_ + (##cdr _%e177496177646%_))) + (_%hd177497177649%_ (let () (declare (not safe)) - (##car _%e177222177372%_)))) + (##car _%e177496177646%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177224177377%_)) - (_%__match190735190736%_ - _%e177142177611%_ - _%hd177143177614%_ - _%tl177144177616%_ - _%e177213177348%_ - _%hd177214177351%_ - _%tl177215177353%_ - _%e177216177356%_ - _%hd177217177359%_ - _%tl177218177361%_ - _%e177219177364%_ - _%hd177220177367%_ - _%tl177221177369%_ - _%e177222177372%_ - _%hd177223177375%_ - _%tl177224177377%_) + (gx#stx-null? _%tl177498177651%_)) + (_%__match191009191010%_ + _%e177416177885%_ + _%hd177417177888%_ + _%tl177418177890%_ + _%e177487177622%_ + _%hd177488177625%_ + _%tl177489177627%_ + _%e177490177630%_ + _%hd177491177633%_ + _%tl177492177635%_ + _%e177493177638%_ + _%hd177494177641%_ + _%tl177495177643%_ + _%e177496177646%_ + _%hd177497177649%_ + _%tl177498177651%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl177215177353%_)) - (let ((_%__splice190560190561%_ + (gx#stx-pair/null? _%tl177489177627%_)) + (let ((_%__splice190834190835%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl177215177353%_ + _%tl177489177627%_ '0)))) - (let ((_%tl177241177291%_ + (let ((_%tl177515177565%_ (let () (declare (not safe)) (##vector-ref - _%__splice190560190561%_ + _%__splice190834190835%_ '1))) - (_%target177239177289%_ + (_%target177513177563%_ (let () (declare (not safe)) (##vector-ref - _%__splice190560190561%_ + _%__splice190834190835%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177241177291%_)) - (_%__match190777190778%_ - _%e177142177611%_ - _%hd177143177614%_ - _%tl177144177616%_ - _%e177213177348%_ - _%hd177214177351%_ - _%tl177215177353%_ - _%e177216177356%_ - _%hd177217177359%_ - _%tl177218177361%_ - _%e177219177364%_ - _%hd177220177367%_ - _%tl177221177369%_ - _%__splice190560190561%_ - _%target177239177289%_ - _%tl177241177291%_) + (gx#stx-null? _%tl177515177565%_)) + (_%__match191051191052%_ + _%e177416177885%_ + _%hd177417177888%_ + _%tl177418177890%_ + _%e177487177622%_ + _%hd177488177625%_ + _%tl177489177627%_ + _%e177490177630%_ + _%hd177491177633%_ + _%tl177492177635%_ + _%e177493177638%_ + _%hd177494177641%_ + _%tl177495177643%_ + _%__splice190834190835%_ + _%target177513177563%_ + _%tl177515177565%_) (let () (declare (not safe)) - (_%g177137177252%_))))) + (_%g177411177526%_))))) (let () (declare (not safe)) - (_%g177137177252%_)))))) + (_%g177411177526%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl177215177353%_)) - (let ((_%__splice190560190561%_ + (gx#stx-pair/null? _%tl177489177627%_)) + (let ((_%__splice190834190835%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl177215177353%_ + _%tl177489177627%_ '0)))) - (let ((_%tl177241177291%_ + (let ((_%tl177515177565%_ (let () (declare (not safe)) - (##vector-ref _%__splice190560190561%_ '1))) - (_%target177239177289%_ + (##vector-ref _%__splice190834190835%_ '1))) + (_%target177513177563%_ (let () (declare (not safe)) - (##vector-ref _%__splice190560190561%_ '0)))) + (##vector-ref _%__splice190834190835%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177241177291%_)) - (_%__match190777190778%_ - _%e177142177611%_ - _%hd177143177614%_ - _%tl177144177616%_ - _%e177213177348%_ - _%hd177214177351%_ - _%tl177215177353%_ - _%e177216177356%_ - _%hd177217177359%_ - _%tl177218177361%_ - _%e177219177364%_ - _%hd177220177367%_ - _%tl177221177369%_ - _%__splice190560190561%_ - _%target177239177289%_ - _%tl177241177291%_) + (gx#stx-null? _%tl177515177565%_)) + (_%__match191051191052%_ + _%e177416177885%_ + _%hd177417177888%_ + _%tl177418177890%_ + _%e177487177622%_ + _%hd177488177625%_ + _%tl177489177627%_ + _%e177490177630%_ + _%hd177491177633%_ + _%tl177492177635%_ + _%e177493177638%_ + _%hd177494177641%_ + _%tl177495177643%_ + _%__splice190834190835%_ + _%target177513177563%_ + _%tl177515177565%_) (let () (declare (not safe)) - (_%g177137177252%_))))) - (let () (declare (not safe)) (_%g177137177252%_)))) - (let () (declare (not safe)) (_%g177137177252%_))))) + (_%g177411177526%_))))) + (let () (declare (not safe)) (_%g177411177526%_)))) + (let () (declare (not safe)) (_%g177411177526%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g177137177252%_))) + (_%g177411177526%_))) (let () (declare (not safe)) - (_%g177137177252%_))) + (_%g177411177526%_))) (let () (declare (not safe)) - (_%g177137177252%_))))) + (_%g177411177526%_))))) (let () (declare (not safe)) - (_%g177137177252%_))))) - (let () (declare (not safe)) (_%g177137177252%_))) - (let () (declare (not safe)) (_%g177137177252%_))))))) + (_%g177411177526%_))))) + (let () (declare (not safe)) (_%g177411177526%_))) + (let () (declare (not safe)) (_%g177411177526%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g177137177252%_))))) + (_%g177411177526%_))))) (let () (declare (not safe)) - (_%g177137177252%_))))))))) - (let* ((_%clause177014177021%_ _%clause177009%_) - (_%E177016177025%_ + (_%g177411177526%_))))))))) + (let* ((_%clause177288177295%_ _%clause177283%_) + (_%E177290177299%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause177014177021%_ + _%clause177288177295%_ '([id . kont]))) '#!void)) - (_%K177017177118%_ - (lambda (_%kont177028%_ _%id177029%_) - (let* ((_%g177031177051%_ - (lambda (_%g177032177048%_) + (_%K177291177392%_ + (lambda (_%kont177302%_ _%id177303%_) + (let* ((_%g177305177325%_ + (lambda (_%g177306177322%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g177032177048%_)))) - (_%g177030177115%_ - (lambda (_%g177032177054%_) + _%g177306177322%_)))) + (_%g177304177389%_ + (lambda (_%g177306177328%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g177032177054%_)) - (let ((_%e177035177056%_ + (gx#stx-pair? _%g177306177328%_)) + (let ((_%e177309177330%_ (let () (declare (not safe)) - (gx#stx-e _%g177032177054%_)))) - (let ((_%hd177036177059%_ + (gx#stx-e _%g177306177328%_)))) + (let ((_%hd177310177333%_ (let () (declare (not safe)) - (##car _%e177035177056%_))) - (_%tl177037177061%_ + (##car _%e177309177330%_))) + (_%tl177311177335%_ (let () (declare (not safe)) - (##cdr _%e177035177056%_)))) + (##cdr _%e177309177330%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd177036177059%_)) + _%hd177310177333%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd177036177059%_)) + _%hd177310177333%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl177037177061%_)) - (let ((_%e177038177064%_ + _%tl177311177335%_)) + (let ((_%e177312177338%_ (let () (declare (not safe)) (gx#stx-e - _%tl177037177061%_)))) - (let ((_%hd177039177067%_ + _%tl177311177335%_)))) + (let ((_%hd177313177341%_ (let () (declare (not safe)) - (##car _%e177038177064%_))) - (_%tl177040177069%_ + (##car _%e177312177338%_))) + (_%tl177314177343%_ (let () (declare (not safe)) - (##cdr _%e177038177064%_)))) + (##cdr _%e177312177338%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd177039177067%_)) - (let ((_%e177041177072%_ + _%hd177313177341%_)) + (let ((_%e177315177346%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd177039177067%_)))) - (let ((_%hd177042177075%_ + (gx#stx-e _%hd177313177341%_)))) + (let ((_%hd177316177349%_ (let () (declare (not safe)) - (##car _%e177041177072%_))) - (_%tl177043177077%_ + (##car _%e177315177346%_))) + (_%tl177317177351%_ (let () (declare (not safe)) - (##cdr _%e177041177072%_)))) + (##cdr _%e177315177346%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177043177077%_)) + (gx#stx-null? _%tl177317177351%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl177040177069%_)) - (let ((_%e177044177080%_ + (gx#stx-pair? _%tl177314177343%_)) + (let ((_%e177318177354%_ (let () (declare (not safe)) - (gx#stx-e _%tl177040177069%_)))) - (let ((_%hd177045177083%_ + (gx#stx-e _%tl177314177343%_)))) + (let ((_%hd177319177357%_ (let () (declare (not safe)) - (##car _%e177044177080%_))) - (_%tl177046177085%_ + (##car _%e177318177354%_))) + (_%tl177320177359%_ (let () (declare (not safe)) - (##cdr _%e177044177080%_)))) + (##cdr _%e177318177354%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl177046177085%_)) - ((lambda (_%L177088%_ _%L177089%_) - (let* ((_%body177110%_ + (gx#stx-null? _%tl177320177359%_)) + ((lambda (_%L177362%_ _%L177363%_) + (let* ((_%body177384%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L177089%_ - _%target177011%_ - _%L177088%_))) - (_%body177112%_ - (if _%negation177010%_ - (_%closure-e177013%_ - _%body177110%_) - _%body177110%_))) - (let ((__tmp190937 + _%L177363%_ + _%target177285%_ + _%L177362%_))) + (_%body177386%_ + (if _%negation177284%_ + (_%closure-e177287%_ + _%body177384%_) + _%body177384%_))) + (let ((__tmp191211 (let () (declare (not safe)) (gxc#identifier-symbol - _%id177029%_))) - (__tmp190936 - (let ((__obj190835 + _%id177303%_))) + (__tmp191210 + (let ((__obj191109 (let () (declare (not safe)) (##structure @@ -16646,577 +16646,577 @@ (gxc#!lambda:::init!__% '#f absent-value - __obj190835 + __obj191109 '0 '#f)) - __obj190835))) + __obj191109))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp190937 - __tmp190936 + __tmp191211 + __tmp191210 '#t)) - (cons _%id177029%_ + (cons _%id177303%_ (cons '%#lambda (cons '() - (cons _%body177112%_ + (cons _%body177386%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd177045177083%_ - _%hd177042177075%_) - (_%g177031177051%_ _%g177032177054%_)))) - (_%g177031177051%_ _%g177032177054%_)) - (_%g177031177051%_ _%g177032177054%_)))) - (_%g177031177051%_ _%g177032177054%_)))) + _%hd177319177357%_ + _%hd177316177349%_) + (_%g177305177325%_ _%g177306177328%_)))) + (_%g177305177325%_ _%g177306177328%_)) + (_%g177305177325%_ _%g177306177328%_)))) + (_%g177305177325%_ _%g177306177328%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g177031177051%_ - _%g177032177054%_)) - (_%g177031177051%_ - _%g177032177054%_)) - (_%g177031177051%_ - _%g177032177054%_)))) - (_%g177031177051%_ _%g177032177054%_))))) - (_%g177030177115%_ _%kont177028%_))))) - (if (let () (declare (not safe)) (##pair? _%clause177014177021%_)) - (let ((_%hd177018177121%_ + (_%g177305177325%_ + _%g177306177328%_)) + (_%g177305177325%_ + _%g177306177328%_)) + (_%g177305177325%_ + _%g177306177328%_)))) + (_%g177305177325%_ _%g177306177328%_))))) + (_%g177304177389%_ _%kont177302%_))))) + (if (let () (declare (not safe)) (##pair? _%clause177288177295%_)) + (let ((_%hd177292177395%_ (let () (declare (not safe)) - (##car _%clause177014177021%_))) - (_%tl177019177123%_ + (##car _%clause177288177295%_))) + (_%tl177293177397%_ (let () (declare (not safe)) - (##cdr _%clause177014177021%_)))) - (let* ((_%id177126%_ _%hd177018177121%_) - (_%kont177128%_ _%tl177019177123%_)) - (_%K177017177118%_ _%kont177128%_ _%id177126%_))) - (_%E177016177025%_)))))) + (##cdr _%clause177288177295%_)))) + (let* ((_%id177400%_ _%hd177292177395%_) + (_%kont177402%_ _%tl177293177397%_)) + (_%K177291177392%_ _%kont177402%_ _%id177400%_))) + (_%E177290177299%_)))))) (define gxc#push-match-vars-let-values% - (lambda (_%self176793%_ _%stx176794%_) - (let* ((_%g176796176813%_ - (lambda (_%g176797176810%_) + (lambda (_%self177067%_ _%stx177068%_) + (let* ((_%g177070177087%_ + (lambda (_%g177071177084%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176797176810%_)))) - (_%g176795177006%_ - (lambda (_%g176797176816%_) + _%g177071177084%_)))) + (_%g177069177280%_ + (lambda (_%g177071177090%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g176797176816%_)) - (let ((_%e176800176818%_ + (gx#stx-pair? _%g177071177090%_)) + (let ((_%e177074177092%_ (let () (declare (not safe)) - (gx#stx-e _%g176797176816%_)))) - (let ((_%hd176801176821%_ + (gx#stx-e _%g177071177090%_)))) + (let ((_%hd177075177095%_ (let () (declare (not safe)) - (##car _%e176800176818%_))) - (_%tl176802176823%_ + (##car _%e177074177092%_))) + (_%tl177076177097%_ (let () (declare (not safe)) - (##cdr _%e176800176818%_)))) + (##cdr _%e177074177092%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176802176823%_)) - (let ((_%e176803176826%_ + (gx#stx-pair? _%tl177076177097%_)) + (let ((_%e177077177100%_ (let () (declare (not safe)) - (gx#stx-e _%tl176802176823%_)))) - (let ((_%hd176804176829%_ + (gx#stx-e _%tl177076177097%_)))) + (let ((_%hd177078177103%_ (let () (declare (not safe)) - (##car _%e176803176826%_))) - (_%tl176805176831%_ + (##car _%e177077177100%_))) + (_%tl177079177105%_ (let () (declare (not safe)) - (##cdr _%e176803176826%_)))) + (##cdr _%e177077177100%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176805176831%_)) - (let ((_%e176806176834%_ + (gx#stx-pair? _%tl177079177105%_)) + (let ((_%e177080177108%_ (let () (declare (not safe)) - (gx#stx-e _%tl176805176831%_)))) - (let ((_%hd176807176837%_ + (gx#stx-e _%tl177079177105%_)))) + (let ((_%hd177081177111%_ (let () (declare (not safe)) - (##car _%e176806176834%_))) - (_%tl176808176839%_ + (##car _%e177080177108%_))) + (_%tl177082177113%_ (let () (declare (not safe)) - (##cdr _%e176806176834%_)))) + (##cdr _%e177080177108%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176808176839%_)) - ((lambda (_%L176842%_ - _%L176843%_) - (let _%lp176858%_ ((_%rest176860%_ + _%tl177082177113%_)) + ((lambda (_%L177116%_ + _%L177117%_) + (let _%lp177132%_ ((_%rest177134%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L176843%_) - (_%rebind176861%_ '()) - (_%vars176862%_ + _%L177117%_) + (_%rebind177135%_ '()) + (_%vars177136%_ (let () (declare (not safe)) - (slot-ref__0 _%self176793%_ 'vars)))) + (slot-ref__0 _%self177067%_ 'vars)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%rest176863176871%_ - _%rest176860%_) - (_%else176865176882%_ + (let* ((_%rest177137177145%_ + _%rest177134%_) + (_%else177139177156%_ (lambda () - (let ((_%sibling176879%_ + (let ((_%sibling177153%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (struct-copy _%self176793%_)))) + (struct-copy _%self177067%_)))) (let () (declare (not safe)) - (slot-set!__0 _%sibling176879%_ 'vars _%vars176862%_)) - (let ((__tmp190938 + (slot-set!__0 _%sibling177153%_ 'vars _%vars177136%_)) + (let ((__tmp191212 (lambda () - (if (null? _%rebind176861%_) + (if (null? _%rebind177135%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%sibling176879%_ - _%L176842%_)) - (let ((__tmp190939 + _%sibling177153%_ + _%L177116%_)) + (let ((__tmp191213 (cons '%#let-values - (cons (reverse _%rebind176861%_) + (cons (reverse _%rebind177135%_) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__1 _%sibling176879%_ _%L176842%_)) + (gxc#compile-e__1 _%sibling177153%_ _%L177116%_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp190939 - _%stx176794%_)))))) + __tmp191213 + _%stx177068%_)))))) (declare (not safe)) (__call-with-parameters - __tmp190938 + __tmp191212 gxc#current-compile-method - _%sibling176879%_))))) - (_%K176867176994%_ - (lambda (_%rest176885%_ _%bind176886%_) - (let* ((_%__stx190780190781%_ _%bind176886%_) - (_%g176889176912%_ + _%sibling177153%_))))) + (_%K177141177268%_ + (lambda (_%rest177159%_ _%bind177160%_) + (let* ((_%__stx191054191055%_ _%bind177160%_) + (_%g177163177186%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190780190781%_))))) - (let ((_%__kont190782190783%_ - (lambda (_%L176964%_ _%L176965%_) - (_%lp176858%_ - _%rest176885%_ - _%rebind176861%_ - (cons _%bind176886%_ _%vars176862%_)))) - (_%__kont190784190785%_ + _%__stx191054191055%_))))) + (let ((_%__kont191056191057%_ + (lambda (_%L177238%_ _%L177239%_) + (_%lp177132%_ + _%rest177159%_ + _%rebind177135%_ + (cons _%bind177160%_ _%vars177136%_)))) + (_%__kont191058191059%_ (lambda () - (_%lp176858%_ - _%rest176885%_ - (cons _%bind176886%_ _%rebind176861%_) - _%vars176862%_)))) + (_%lp177132%_ + _%rest177159%_ + (cons _%bind177160%_ _%rebind177135%_) + _%vars177136%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190780190781%_)) - (let ((_%e176893176924%_ + (gx#stx-pair? _%__stx191054191055%_)) + (let ((_%e177167177198%_ (let () (declare (not safe)) - (gx#stx-e _%__stx190780190781%_)))) - (let ((_%tl176895176929%_ + (gx#stx-e _%__stx191054191055%_)))) + (let ((_%tl177169177203%_ (let () (declare (not safe)) - (##cdr _%e176893176924%_))) - (_%hd176894176927%_ + (##cdr _%e177167177198%_))) + (_%hd177168177201%_ (let () (declare (not safe)) - (##car _%e176893176924%_)))) + (##car _%e177167177198%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd176894176927%_)) - (let ((_%e176896176932%_ + (gx#stx-pair? _%hd177168177201%_)) + (let ((_%e177170177206%_ (let () (declare (not safe)) - (gx#stx-e _%hd176894176927%_)))) - (let ((_%tl176898176937%_ + (gx#stx-e _%hd177168177201%_)))) + (let ((_%tl177172177211%_ (let () (declare (not safe)) - (##cdr _%e176896176932%_))) - (_%hd176897176935%_ + (##cdr _%e177170177206%_))) + (_%hd177171177209%_ (let () (declare (not safe)) - (##car _%e176896176932%_)))) + (##car _%e177170177206%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176898176937%_)) + _%tl177172177211%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl176895176929%_)) - (let ((_%e176899176940%_ + _%tl177169177203%_)) + (let ((_%e177173177214%_ (let () (declare (not safe)) (gx#stx-e - _%tl176895176929%_)))) - (let ((_%tl176901176945%_ + _%tl177169177203%_)))) + (let ((_%tl177175177219%_ (let () (declare (not safe)) - (##cdr _%e176899176940%_))) - (_%hd176900176943%_ + (##cdr _%e177173177214%_))) + (_%hd177174177217%_ (let () (declare (not safe)) - (##car _%e176899176940%_)))) + (##car _%e177173177214%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd176900176943%_)) - (let ((_%e176902176948%_ + _%hd177174177217%_)) + (let ((_%e177176177222%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd176900176943%_)))) - (let ((_%tl176904176953%_ + (gx#stx-e _%hd177174177217%_)))) + (let ((_%tl177178177227%_ (let () (declare (not safe)) - (##cdr _%e176902176948%_))) - (_%hd176903176951%_ + (##cdr _%e177176177222%_))) + (_%hd177177177225%_ (let () (declare (not safe)) - (##car _%e176902176948%_)))) + (##car _%e177176177222%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd176903176951%_)) + (gx#identifier? _%hd177177177225%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd176903176951%_)) + (gx#stx-eq? '%#ref _%hd177177177225%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176904176953%_)) - (let ((_%e176905176956%_ + (gx#stx-pair? _%tl177178177227%_)) + (let ((_%e177179177230%_ (let () (declare (not safe)) - (gx#stx-e _%tl176904176953%_)))) - (let ((_%tl176907176961%_ + (gx#stx-e _%tl177178177227%_)))) + (let ((_%tl177181177235%_ (let () (declare (not safe)) - (##cdr _%e176905176956%_))) - (_%hd176906176959%_ + (##cdr _%e177179177230%_))) + (_%hd177180177233%_ (let () (declare (not safe)) - (##car _%e176905176956%_)))) + (##car _%e177179177230%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176907176961%_)) + (gx#stx-null? _%tl177181177235%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176901176945%_)) - (_%__kont190782190783%_ - _%hd176906176959%_ - _%hd176897176935%_) - (_%__kont190784190785%_)) - (_%__kont190784190785%_)))) - (_%__kont190784190785%_)) - (_%__kont190784190785%_)) - (_%__kont190784190785%_)))) - (_%__kont190784190785%_)))) + _%tl177175177219%_)) + (_%__kont191056191057%_ + _%hd177180177233%_ + _%hd177171177209%_) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190784190785%_)) - (_%__kont190784190785%_)))) - (_%__kont190784190785%_)))) - (_%__kont190784190785%_))))))) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%rest176863176871%_)) - (let ((_%hd176868176997%_ + (##pair? _%rest177137177145%_)) + (let ((_%hd177142177271%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%rest176863176871%_))) - (_%tl176869176999%_ + (##car _%rest177137177145%_))) + (_%tl177143177273%_ (let () (declare (not safe)) - (##cdr _%rest176863176871%_)))) - (let* ((_%bind177002%_ _%hd176868176997%_) - (_%rest177004%_ _%tl176869176999%_)) - (_%K176867176994%_ _%rest177004%_ _%bind177002%_))) - (_%else176865176882%_))))) + (##cdr _%rest177137177145%_)))) + (let* ((_%bind177276%_ _%hd177142177271%_) + (_%rest177278%_ _%tl177143177273%_)) + (_%K177141177268%_ _%rest177278%_ _%bind177276%_))) + (_%else177139177156%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd176807176837%_ - _%hd176804176829%_) - (_%g176796176813%_ - _%g176797176816%_)))) - (_%g176796176813%_ _%g176797176816%_)))) - (_%g176796176813%_ _%g176797176816%_)))) - (_%g176796176813%_ _%g176797176816%_))))) - (_%g176795177006%_ _%stx176794%_)))) + _%hd177081177111%_ + _%hd177078177103%_) + (_%g177070177087%_ + _%g177071177090%_)))) + (_%g177070177087%_ _%g177071177090%_)))) + (_%g177070177087%_ _%g177071177090%_)))) + (_%g177070177087%_ _%g177071177090%_))))) + (_%g177069177280%_ _%stx177068%_)))) (define gxc#push-match-vars-if% - (lambda (_%self176709%_ _%stx176710%_) - (let* ((_%g176712176733%_ - (lambda (_%g176713176730%_) + (lambda (_%self176983%_ _%stx176984%_) + (let* ((_%g176986177007%_ + (lambda (_%g176987177004%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176713176730%_)))) - (_%g176711176790%_ - (lambda (_%g176713176736%_) + _%g176987177004%_)))) + (_%g176985177064%_ + (lambda (_%g176987177010%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g176713176736%_)) - (let ((_%e176717176738%_ + (gx#stx-pair? _%g176987177010%_)) + (let ((_%e176991177012%_ (let () (declare (not safe)) - (gx#stx-e _%g176713176736%_)))) - (let ((_%hd176718176741%_ + (gx#stx-e _%g176987177010%_)))) + (let ((_%hd176992177015%_ (let () (declare (not safe)) - (##car _%e176717176738%_))) - (_%tl176719176743%_ + (##car _%e176991177012%_))) + (_%tl176993177017%_ (let () (declare (not safe)) - (##cdr _%e176717176738%_)))) + (##cdr _%e176991177012%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176719176743%_)) - (let ((_%e176720176746%_ + (gx#stx-pair? _%tl176993177017%_)) + (let ((_%e176994177020%_ (let () (declare (not safe)) - (gx#stx-e _%tl176719176743%_)))) - (let ((_%hd176721176749%_ + (gx#stx-e _%tl176993177017%_)))) + (let ((_%hd176995177023%_ (let () (declare (not safe)) - (##car _%e176720176746%_))) - (_%tl176722176751%_ + (##car _%e176994177020%_))) + (_%tl176996177025%_ (let () (declare (not safe)) - (##cdr _%e176720176746%_)))) + (##cdr _%e176994177020%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176722176751%_)) - (let ((_%e176723176754%_ + (gx#stx-pair? _%tl176996177025%_)) + (let ((_%e176997177028%_ (let () (declare (not safe)) - (gx#stx-e _%tl176722176751%_)))) - (let ((_%hd176724176757%_ + (gx#stx-e _%tl176996177025%_)))) + (let ((_%hd176998177031%_ (let () (declare (not safe)) - (##car _%e176723176754%_))) - (_%tl176725176759%_ + (##car _%e176997177028%_))) + (_%tl176999177033%_ (let () (declare (not safe)) - (##cdr _%e176723176754%_)))) + (##cdr _%e176997177028%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl176725176759%_)) - (let ((_%e176726176762%_ + _%tl176999177033%_)) + (let ((_%e177000177036%_ (let () (declare (not safe)) (gx#stx-e - _%tl176725176759%_)))) - (let ((_%hd176727176765%_ + _%tl176999177033%_)))) + (let ((_%hd177001177039%_ (let () (declare (not safe)) - (##car _%e176726176762%_))) - (_%tl176728176767%_ + (##car _%e177000177036%_))) + (_%tl177002177041%_ (let () (declare (not safe)) - (##cdr _%e176726176762%_)))) + (##cdr _%e177000177036%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176728176767%_)) - ((lambda (_%L176770%_ - _%L176771%_ - _%L176772%_) - (if (let ((__tmp190940 + _%tl177002177041%_)) + ((lambda (_%L177044%_ + _%L177045%_ + _%L177046%_) + (if (let ((__tmp191214 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (map caar (let () (declare (not safe)) - (slot-ref__0 _%self176709%_ 'vars))))) + (slot-ref__0 _%self176983%_ 'vars))))) (declare (not safe)) (gxc#apply-find-var-refs__% '#f - __tmp190940 - _%L176772%_)) - (gxc#push-match-vars-stop _%self176709%_ _%stx176710%_) - (let ((__tmp190941 + __tmp191214 + _%L177046%_)) + (gxc#push-match-vars-stop _%self176983%_ _%stx176984%_) + (let ((__tmp191215 (cons '%#if - (cons _%L176772%_ + (cons _%L177046%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self176709%_ - _%L176771%_)) + _%self176983%_ + _%L177045%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self176709%_ - _%L176770%_)) + _%self176983%_ + _%L177044%_)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp190941 _%stx176710%_)))) - _%hd176727176765%_ - _%hd176724176757%_ - _%hd176721176749%_) - (_%g176712176733%_ _%g176713176736%_)))) + (gxc#xform-wrap-source __tmp191215 _%stx176984%_)))) + _%hd177001177039%_ + _%hd176998177031%_ + _%hd176995177023%_) + (_%g176986177007%_ _%g176987177010%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g176712176733%_ - _%g176713176736%_)))) - (_%g176712176733%_ _%g176713176736%_)))) - (_%g176712176733%_ _%g176713176736%_)))) - (_%g176712176733%_ _%g176713176736%_))))) - (_%g176711176790%_ _%stx176710%_)))) + (_%g176986177007%_ + _%g176987177010%_)))) + (_%g176986177007%_ _%g176987177010%_)))) + (_%g176986177007%_ _%g176987177010%_)))) + (_%g176986177007%_ _%g176987177010%_))))) + (_%g176985177064%_ _%stx176984%_)))) (define gxc#push-match-vars-call% - (lambda (_%self176631%_ _%stx176632%_) - (let* ((_%g176634176653%_ - (lambda (_%g176635176650%_) + (lambda (_%self176905%_ _%stx176906%_) + (let* ((_%g176908176927%_ + (lambda (_%g176909176924%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176635176650%_)))) - (_%g176633176706%_ - (lambda (_%g176635176656%_) + _%g176909176924%_)))) + (_%g176907176980%_ + (lambda (_%g176909176930%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g176635176656%_)) - (let ((_%e176637176658%_ + (gx#stx-pair? _%g176909176930%_)) + (let ((_%e176911176932%_ (let () (declare (not safe)) - (gx#stx-e _%g176635176656%_)))) - (let ((_%hd176638176661%_ + (gx#stx-e _%g176909176930%_)))) + (let ((_%hd176912176935%_ (let () (declare (not safe)) - (##car _%e176637176658%_))) - (_%tl176639176663%_ + (##car _%e176911176932%_))) + (_%tl176913176937%_ (let () (declare (not safe)) - (##cdr _%e176637176658%_)))) + (##cdr _%e176911176932%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176639176663%_)) - (let ((_%e176640176666%_ + (gx#stx-pair? _%tl176913176937%_)) + (let ((_%e176914176940%_ (let () (declare (not safe)) - (gx#stx-e _%tl176639176663%_)))) - (let ((_%hd176641176669%_ + (gx#stx-e _%tl176913176937%_)))) + (let ((_%hd176915176943%_ (let () (declare (not safe)) - (##car _%e176640176666%_))) - (_%tl176642176671%_ + (##car _%e176914176940%_))) + (_%tl176916176945%_ (let () (declare (not safe)) - (##cdr _%e176640176666%_)))) + (##cdr _%e176914176940%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd176641176669%_)) - (let ((_%e176643176674%_ + (gx#stx-pair? _%hd176915176943%_)) + (let ((_%e176917176948%_ (let () (declare (not safe)) - (gx#stx-e _%hd176641176669%_)))) - (let ((_%hd176644176677%_ + (gx#stx-e _%hd176915176943%_)))) + (let ((_%hd176918176951%_ (let () (declare (not safe)) - (##car _%e176643176674%_))) - (_%tl176645176679%_ + (##car _%e176917176948%_))) + (_%tl176919176953%_ (let () (declare (not safe)) - (##cdr _%e176643176674%_)))) + (##cdr _%e176917176948%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd176644176677%_)) + _%hd176918176951%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd176644176677%_)) + _%hd176918176951%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl176645176679%_)) - (let ((_%e176646176682%_ + _%tl176919176953%_)) + (let ((_%e176920176956%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl176645176679%_)))) - (let ((_%hd176647176685%_ - (let () (declare (not safe)) (##car _%e176646176682%_))) - (_%tl176648176687%_ + (gx#stx-e _%tl176919176953%_)))) + (let ((_%hd176921176959%_ + (let () (declare (not safe)) (##car _%e176920176956%_))) + (_%tl176922176961%_ (let () (declare (not safe)) - (##cdr _%e176646176682%_)))) + (##cdr _%e176920176956%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176648176687%_)) - ((lambda (_%L176690%_) - (if (and (let ((__tmp190942 + (gx#stx-null? _%tl176922176961%_)) + ((lambda (_%L176964%_) + (if (and (let ((__tmp191216 (let () (declare (not safe)) - (slot-ref__0 _%self176631%_ 'K)))) + (slot-ref__0 _%self176905%_ 'K)))) (declare (not safe)) (gx#free-identifier=? - _%L176690%_ - __tmp190942)) + _%L176964%_ + __tmp191216)) (pair? (let () (declare (not safe)) (slot-ref__0 - _%self176631%_ + _%self176905%_ 'vars)))) - (let ((__tmp190943 + (let ((__tmp191217 (cons '%#let-values (cons (reverse (let () (declare (not safe)) (slot-ref__0 - _%self176631%_ + _%self176905%_ 'vars))) - (cons _%stx176632%_ '()))))) + (cons _%stx176906%_ '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp190943 - _%stx176632%_)) - _%stx176632%_)) - _%hd176647176685%_) - (_%g176634176653%_ _%g176635176656%_)))) - (_%g176634176653%_ _%g176635176656%_)) + __tmp191217 + _%stx176906%_)) + _%stx176906%_)) + _%hd176921176959%_) + (_%g176908176927%_ _%g176909176930%_)))) + (_%g176908176927%_ _%g176909176930%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g176634176653%_ - _%g176635176656%_)) - (_%g176634176653%_ - _%g176635176656%_)))) - (_%g176634176653%_ _%g176635176656%_)))) - (_%g176634176653%_ _%g176635176656%_)))) - (_%g176634176653%_ _%g176635176656%_))))) - (_%g176633176706%_ _%stx176632%_)))) + (_%g176908176927%_ + _%g176909176930%_)) + (_%g176908176927%_ + _%g176909176930%_)))) + (_%g176908176927%_ _%g176909176930%_)))) + (_%g176908176927%_ _%g176909176930%_)))) + (_%g176908176927%_ _%g176909176930%_))))) + (_%g176907176980%_ _%stx176906%_)))) (define gxc#push-match-vars-stop - (lambda (_%self176628%_ _%stx176629%_) + (lambda (_%self176902%_ _%stx176903%_) (if (null? (let () (declare (not safe)) - (slot-ref__0 _%self176628%_ 'vars))) - _%stx176629%_ - (let ((__tmp190944 + (slot-ref__0 _%self176902%_ 'vars))) + _%stx176903%_ + (let ((__tmp191218 (cons '%#let-values (cons (reverse (let () (declare (not safe)) - (slot-ref__0 _%self176628%_ 'vars))) - (cons _%stx176629%_ '()))))) + (slot-ref__0 _%self176902%_ 'vars))) + (cons _%stx176903%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp190944 _%stx176629%_))))))) + (gxc#xform-wrap-source __tmp191218 _%stx176903%_))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann~1.scm b/src/bootstrap/gerbil/compiler/optimize-ann~1.scm index 725091964..b61835f4a 100644 --- a/src/bootstrap/gerbil/compiler/optimize-ann~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-ann~1.scm @@ -1,132 +1,132 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g190946_| + (define |gxc[1]#_g191220_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g190948_| + (define |gxc[1]#_g191222_| (##structure gx#syntax-quote::t '::optimize-annotated::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g190950_| + (define |gxc[1]#_g191224_| (##structure gx#syntax-quote::t 'make-::optimize-annotated #f (gx#current-expander-context) '())) - (define |gxc[1]#_g190952_| + (define |gxc[1]#_g191226_| (##structure gx#syntax-quote::t '::optimize-annotated? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g190954_| + (define |gxc[1]#_g191228_| (##structure gx#syntax-quote::t '::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g190956_| + (define |gxc[1]#_g191230_| (##structure gx#syntax-quote::t '::generate-runtime-repr::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g190958_| + (define |gxc[1]#_g191232_| (##structure gx#syntax-quote::t 'make-::generate-runtime-repr #f (gx#current-expander-context) '())) - (define |gxc[1]#_g190960_| + (define |gxc[1]#_g191234_| (##structure gx#syntax-quote::t '::generate-runtime-repr? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g190962_| + (define |gxc[1]#_g191236_| (##structure gx#syntax-quote::t '::push-match-vars::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g190964_| + (define |gxc[1]#_g191238_| (##structure gx#syntax-quote::t 'make-::push-match-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g190966_| + (define |gxc[1]#_g191240_| (##structure gx#syntax-quote::t '::push-match-vars? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g190968_| + (define |gxc[1]#_g191242_| (##structure gx#syntax-quote::t '::push-match-vars-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g190969_| + (define |gxc[1]#_g191243_| (##structure gx#syntax-quote::t '::push-match-vars-K #f (gx#current-expander-context) '())) - (define |gxc[1]#_g190971_| + (define |gxc[1]#_g191245_| (##structure gx#syntax-quote::t '::push-match-vars-vars-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g190972_| + (define |gxc[1]#_g191246_| (##structure gx#syntax-quote::t '::push-match-vars-K-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g190974_| + (define |gxc[1]#_g191248_| (##structure gx#syntax-quote::t '&::push-match-vars-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g190975_| + (define |gxc[1]#_g191249_| (##structure gx#syntax-quote::t '&::push-match-vars-K #f (gx#current-expander-context) '())) - (define |gxc[1]#_g190977_| + (define |gxc[1]#_g191251_| (##structure gx#syntax-quote::t '&::push-match-vars-vars-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g190978_| + (define |gxc[1]#_g191252_| (##structure gx#syntax-quote::t '&::push-match-vars-K-set! @@ -135,7 +135,7 @@ '())) (begin (define |gxc[:0:]#::optimize-annotated| - (let ((__obj190827 + (let ((__obj191101 (let () (declare (not safe)) (##structure @@ -164,7 +164,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj190827 + __obj191101 'gxc#::optimize-annotated::t '1 '#f @@ -172,65 +172,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj190827 + __obj191101 '::optimize-annotated '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190827 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj191101 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190827 '() '6 '#f '#f)) - (let ((__tmp190945 (cons |gxc[1]#_g190946_| '()))) + (##unchecked-structure-set! __obj191101 '() '6 '#f '#f)) + (let ((__tmp191219 (cons |gxc[1]#_g191220_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj190827 __tmp190945 '3 '#f '#f)) + (##unchecked-structure-set! __obj191101 __tmp191219 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190827 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj191101 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190827 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj191101 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190827 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj191101 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190827 '#f '11 '#f '#f)) - (let ((__tmp190947 |gxc[1]#_g190948_|)) + (##unchecked-structure-set! __obj191101 '#f '11 '#f '#f)) + (let ((__tmp191221 |gxc[1]#_g191222_|)) (declare (not safe)) - (##unchecked-structure-set! __obj190827 __tmp190947 '12 '#f '#f)) - (let ((__tmp190949 |gxc[1]#_g190950_|)) + (##unchecked-structure-set! __obj191101 __tmp191221 '12 '#f '#f)) + (let ((__tmp191223 |gxc[1]#_g191224_|)) (declare (not safe)) - (##unchecked-structure-set! __obj190827 __tmp190949 '13 '#f '#f)) - (let ((__tmp190951 |gxc[1]#_g190952_|)) + (##unchecked-structure-set! __obj191101 __tmp191223 '13 '#f '#f)) + (let ((__tmp191225 |gxc[1]#_g191226_|)) (declare (not safe)) - (##unchecked-structure-set! __obj190827 __tmp190951 '14 '#f '#f)) + (##unchecked-structure-set! __obj191101 __tmp191225 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190827 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj191101 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190827 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj191101 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190827 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj191101 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190827 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj191101 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190827 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj191101 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190827 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj191101 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190827 '() '20 '#f '#f)) - __obj190827)) + (##unchecked-structure-set! __obj191101 '() '20 '#f '#f)) + __obj191101)) (define |gxc[:0:]#::generate-runtime-repr| - (let ((__obj190829 + (let ((__obj191103 (let () (declare (not safe)) (##structure @@ -259,7 +259,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj190829 + __obj191103 'gxc#::generate-runtime-repr::t '1 '#f @@ -267,65 +267,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj190829 + __obj191103 '::generate-runtime-repr '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190829 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj191103 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190829 '() '6 '#f '#f)) - (let ((__tmp190953 (cons |gxc[1]#_g190954_| '()))) + (##unchecked-structure-set! __obj191103 '() '6 '#f '#f)) + (let ((__tmp191227 (cons |gxc[1]#_g191228_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj190829 __tmp190953 '3 '#f '#f)) + (##unchecked-structure-set! __obj191103 __tmp191227 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190829 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj191103 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190829 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj191103 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190829 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj191103 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190829 '#f '11 '#f '#f)) - (let ((__tmp190955 |gxc[1]#_g190956_|)) + (##unchecked-structure-set! __obj191103 '#f '11 '#f '#f)) + (let ((__tmp191229 |gxc[1]#_g191230_|)) (declare (not safe)) - (##unchecked-structure-set! __obj190829 __tmp190955 '12 '#f '#f)) - (let ((__tmp190957 |gxc[1]#_g190958_|)) + (##unchecked-structure-set! __obj191103 __tmp191229 '12 '#f '#f)) + (let ((__tmp191231 |gxc[1]#_g191232_|)) (declare (not safe)) - (##unchecked-structure-set! __obj190829 __tmp190957 '13 '#f '#f)) - (let ((__tmp190959 |gxc[1]#_g190960_|)) + (##unchecked-structure-set! __obj191103 __tmp191231 '13 '#f '#f)) + (let ((__tmp191233 |gxc[1]#_g191234_|)) (declare (not safe)) - (##unchecked-structure-set! __obj190829 __tmp190959 '14 '#f '#f)) + (##unchecked-structure-set! __obj191103 __tmp191233 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190829 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj191103 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190829 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj191103 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190829 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj191103 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190829 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj191103 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190829 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj191103 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190829 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj191103 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190829 '() '20 '#f '#f)) - __obj190829)) + (##unchecked-structure-set! __obj191103 '() '20 '#f '#f)) + __obj191103)) (define |gxc[:0:]#::push-match-vars| - (let ((__obj190831 + (let ((__obj191105 (let () (declare (not safe)) (##structure @@ -354,7 +354,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj190831 + __obj191105 'gxc#::push-match-vars::t '1 '#f @@ -362,68 +362,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj190831 + __obj191105 '::push-match-vars '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190831 '(vars K) '4 '#f '#f)) + (##unchecked-structure-set! __obj191105 '(vars K) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190831 '(vars K) '6 '#f '#f)) + (##unchecked-structure-set! __obj191105 '(vars K) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190831 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj191105 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190831 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj191105 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190831 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj191105 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190831 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj191105 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190831 '#f '11 '#f '#f)) - (let ((__tmp190961 |gxc[1]#_g190962_|)) + (##unchecked-structure-set! __obj191105 '#f '11 '#f '#f)) + (let ((__tmp191235 |gxc[1]#_g191236_|)) (declare (not safe)) - (##unchecked-structure-set! __obj190831 __tmp190961 '12 '#f '#f)) - (let ((__tmp190963 |gxc[1]#_g190964_|)) + (##unchecked-structure-set! __obj191105 __tmp191235 '12 '#f '#f)) + (let ((__tmp191237 |gxc[1]#_g191238_|)) (declare (not safe)) - (##unchecked-structure-set! __obj190831 __tmp190963 '13 '#f '#f)) - (let ((__tmp190965 |gxc[1]#_g190966_|)) + (##unchecked-structure-set! __obj191105 __tmp191237 '13 '#f '#f)) + (let ((__tmp191239 |gxc[1]#_g191240_|)) (declare (not safe)) - (##unchecked-structure-set! __obj190831 __tmp190965 '14 '#f '#f)) - (let ((__tmp190967 - (cons (cons 'vars |gxc[1]#_g190968_|) - (cons (cons 'K |gxc[1]#_g190969_|) '())))) + (##unchecked-structure-set! __obj191105 __tmp191239 '14 '#f '#f)) + (let ((__tmp191241 + (cons (cons 'vars |gxc[1]#_g191242_|) + (cons (cons 'K |gxc[1]#_g191243_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj190831 __tmp190967 '15 '#f '#f)) - (let ((__tmp190970 - (cons (cons 'vars |gxc[1]#_g190971_|) - (cons (cons 'K |gxc[1]#_g190972_|) '())))) + (##unchecked-structure-set! __obj191105 __tmp191241 '15 '#f '#f)) + (let ((__tmp191244 + (cons (cons 'vars |gxc[1]#_g191245_|) + (cons (cons 'K |gxc[1]#_g191246_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj190831 __tmp190970 '16 '#f '#f)) - (let ((__tmp190973 - (cons (cons 'vars |gxc[1]#_g190974_|) - (cons (cons 'K |gxc[1]#_g190975_|) '())))) + (##unchecked-structure-set! __obj191105 __tmp191244 '16 '#f '#f)) + (let ((__tmp191247 + (cons (cons 'vars |gxc[1]#_g191248_|) + (cons (cons 'K |gxc[1]#_g191249_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj190831 __tmp190973 '17 '#f '#f)) - (let ((__tmp190976 - (cons (cons 'vars |gxc[1]#_g190977_|) - (cons (cons 'K |gxc[1]#_g190978_|) '())))) + (##unchecked-structure-set! __obj191105 __tmp191247 '17 '#f '#f)) + (let ((__tmp191250 + (cons (cons 'vars |gxc[1]#_g191251_|) + (cons (cons 'K |gxc[1]#_g191252_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj190831 __tmp190976 '18 '#f '#f)) + (##unchecked-structure-set! __obj191105 __tmp191250 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190831 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj191105 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190831 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj191105 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj190831 '() '20 '#f '#f)) - __obj190831)))) + (##unchecked-structure-set! __obj191105 '() '20 '#f '#f)) + __obj191105)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base~0.scm b/src/bootstrap/gerbil/compiler/optimize-base~0.scm index dfa41011e..5af724b74 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-base~0.scm @@ -1,28 +1,28 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-base::timestamp 1713044317) + (define gerbil/compiler/optimize-base::timestamp 1713454412) (begin (define gxc#current-compile-optimizer-info (make-parameter '#f)) (define gxc#current-compile-mutators (make-parameter '#f)) (define gxc#current-compile-local-type (make-parameter '#f)) (define gxc#current-compile-path-type (make-parameter '())) (define gxc#optimizer-info::t - (let ((__tmp150698 (list)) (__tmp150697 (cons (cons 'struct: '#t) '()))) + (let ((__tmp150972 (list)) (__tmp150971 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#optimizer-info::t 'optimizer-info - __tmp150698 + __tmp150972 '(type classes ssxi methods) - __tmp150697 + __tmp150971 ':init!))) (define gxc#optimizer-info? (let () (declare (not safe)) (__make-class-predicate gxc#optimizer-info::t))) (define gxc#make-optimizer-info - (lambda _%$args150669%_ - (apply make-instance gxc#optimizer-info::t _%$args150669%_))) + (lambda _%$args150943%_ + (apply make-instance gxc#optimizer-info::t _%$args150943%_))) (define gxc#optimizer-info-type (let () (declare (not safe)) @@ -88,62 +88,62 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#optimizer-info::t 'methods))) (define gxc#optimizer-info:::init! - (lambda (_%self147810150654%_) - (let* ((_%self150657%_ _%self147810150654%_) - (_%self150659%_ _%self150657%_)) - (if (let ((__tmp150699 + (lambda (_%self148084150928%_) + (let* ((_%self150931%_ _%self148084150928%_) + (_%self150933%_ _%self150931%_)) + (if (let ((__tmp150973 (let () (declare (not safe)) - (##structure-length _%self150659%_)))) + (##structure-length _%self150933%_)))) (declare (not safe)) - (##fx< '4 __tmp150699)) + (##fx< '4 __tmp150973)) (begin - (let ((__tmp150700 + (let ((__tmp150974 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self150659%_ - __tmp150700 + _%self150933%_ + __tmp150974 '1 '#f '#f)) - (let ((__tmp150701 + (let ((__tmp150975 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self150659%_ - __tmp150701 + _%self150933%_ + __tmp150975 '2 '#f '#f)) - (let ((__tmp150702 + (let ((__tmp150976 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self150659%_ - __tmp150702 + _%self150933%_ + __tmp150976 '3 '#f '#f)) - (let ((__tmp150703 + (let ((__tmp150977 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self150659%_ - __tmp150703 + _%self150933%_ + __tmp150977 '4 '#f '#f)) '#!void) - (let ((__tmp150704 + (let ((__tmp150978 (let () (declare (not safe)) - (##vector-length _%self150659%_)))) + (##vector-length _%self150933%_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _%self150659%_ + _%self150933%_ '4 - __tmp150704)))))) + __tmp150978)))))) (let () (declare (not safe)) (__bind-method!__% @@ -152,22 +152,22 @@ gxc#optimizer-info:::init! '#f)) (define gxc#!type::t - (let ((__tmp150706 (list)) - (__tmp150705 + (let ((__tmp150980 (list)) + (__tmp150979 (cons (cons 'struct: '#t) '((equal: id) (print: id))))) (declare (not safe)) (__make-class-type 'gxc#!type::t '!type - __tmp150706 + __tmp150980 '(id) - __tmp150705 + __tmp150979 '#f))) (define gxc#!type? (let () (declare (not safe)) (__make-class-predicate gxc#!type::t))) (define gxc#make-!type - (lambda _%$args150529%_ - (apply make-instance gxc#!type::t _%$args150529%_))) + (lambda _%$args150803%_ + (apply make-instance gxc#!type::t _%$args150803%_))) (define gxc#!type-id (let () (declare (not safe)) @@ -185,21 +185,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!type::t 'id))) (define gxc#!abort::t - (let ((__tmp150708 (list gxc#!type::t)) - (__tmp150707 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp150982 (list gxc#!type::t)) + (__tmp150981 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!abort::t '!abort - __tmp150708 + __tmp150982 '() - __tmp150707 + __tmp150981 ':init!))) (define gxc#!abort? (let () (declare (not safe)) (__make-class-predicate gxc#!abort::t))) (define gxc#make-!abort - (lambda _%$args150526%_ - (apply make-instance gxc#!abort::t _%$args150526%_))) + (lambda _%$args150800%_ + (apply make-instance gxc#!abort::t _%$args150800%_))) (define gxc#!abort-id (let () (declare (not safe)) @@ -217,21 +217,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!abort::t 'id))) (define gxc#!alias::t - (let ((__tmp150710 (list gxc#!type::t)) - (__tmp150709 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp150984 (list gxc#!type::t)) + (__tmp150983 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!alias::t '!alias - __tmp150710 + __tmp150984 '() - __tmp150709 + __tmp150983 '#f))) (define gxc#!alias? (let () (declare (not safe)) (__make-class-predicate gxc#!alias::t))) (define gxc#make-!alias - (lambda _%$args150523%_ - (apply make-instance gxc#!alias::t _%$args150523%_))) + (lambda _%$args150797%_ + (apply make-instance gxc#!alias::t _%$args150797%_))) (define gxc#!alias-id (let () (declare (not safe)) @@ -249,8 +249,8 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!alias::t 'id))) (define gxc#!signature::t - (let ((__tmp150712 (list)) - (__tmp150711 + (let ((__tmp150986 (list)) + (__tmp150985 (cons (cons 'final: '#t) '((equal: return effect arguments unchecked origin) (print: return effect arguments unchecked origin))))) @@ -258,15 +258,15 @@ (__make-class-type 'gxc#!signature::t '!signature - __tmp150712 + __tmp150986 '(return effect arguments unchecked origin) - __tmp150711 + __tmp150985 '#f))) (define gxc#!signature? (let () (declare (not safe)) (__make-class-predicate gxc#!signature::t))) (define gxc#make-!signature - (lambda _%$args150520%_ - (apply make-instance gxc#!signature::t _%$args150520%_))) + (lambda _%$args150794%_ + (apply make-instance gxc#!signature::t _%$args150794%_))) (define gxc#!signature-return (let () (declare (not safe)) @@ -348,17 +348,17 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!signature::t 'origin))) (define gxc#!procedure::t - (let ((__tmp150714 (list gxc#!type::t)) - (__tmp150713 + (let ((__tmp150988 (list gxc#!type::t)) + (__tmp150987 (cons (cons 'struct: '#t) '((equal: signature) (print: signature))))) (declare (not safe)) (__make-class-type 'gxc#!procedure::t '!procedure - __tmp150714 + __tmp150988 '(signature) - __tmp150713 + __tmp150987 '#f))) (define gxc#!procedure? (let () (declare (not safe)) (__make-class-predicate gxc#!procedure::t))) @@ -395,17 +395,17 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!procedure::t 'id))) (define gxc#make-!procedure - (lambda (_%id150499%_ _%signature150500%_) - (if ((lambda (_%$obj150503%_) - (or (not _%$obj150503%_) + (lambda (_%id150773%_ _%signature150774%_) + (if ((lambda (_%$obj150777%_) + (or (not _%$obj150777%_) (let () (declare (not safe)) (##structure-direct-instance-of? - _%$obj150503%_ + _%$obj150777%_ 'gxc#!signature::t)))) - _%signature150500%_) - (let ((_%signature150510%_ _%signature150500%_)) - (gxc#__make-!procedure _%id150499%_ _%signature150510%_)) + _%signature150774%_) + (let ((_%signature150784%_ _%signature150774%_)) + (gxc#__make-!procedure _%id150773%_ _%signature150784%_)) (begin (raise-contract-violation-error '"contract violation" @@ -414,31 +414,31 @@ 'contract: '(? (or not !signature?)) 'value: - _%signature150500%_) + _%signature150774%_) '#!void)))) (define gxc#__make-!procedure - (lambda (_%id150485%_ _%signature150487%_) - (let ((_%signature150490%_ _%signature150487%_)) + (lambda (_%id150759%_ _%signature150761%_) + (let ((_%signature150764%_ _%signature150761%_)) (declare (not safe)) - (##structure gxc#!procedure::t _%id150485%_ _%signature150490%_)))) + (##structure gxc#!procedure::t _%id150759%_ _%signature150764%_)))) (define gxc#!procedure-signature-set! - (lambda (_%$obj150454%_ _%signature150455%_) + (lambda (_%$obj150728%_ _%signature150729%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%$obj150454%_ 'gxc#!procedure::t)) - (let ((_%$obj150459%_ _%$obj150454%_)) - (if ((lambda (_%$obj150468%_) - (or (not _%$obj150468%_) + (##structure-instance-of? _%$obj150728%_ 'gxc#!procedure::t)) + (let ((_%$obj150733%_ _%$obj150728%_)) + (if ((lambda (_%$obj150742%_) + (or (not _%$obj150742%_) (let () (declare (not safe)) (##structure-direct-instance-of? - _%$obj150468%_ + _%$obj150742%_ 'gxc#!signature::t)))) - _%signature150455%_) - (let ((_%signature150475%_ _%signature150455%_)) + _%signature150729%_) + (let ((_%signature150749%_ _%signature150729%_)) (gxc#__!procedure-signature-set! - _%$obj150459%_ - _%signature150475%_)) + _%$obj150733%_ + _%signature150749%_)) (begin (raise-contract-violation-error '"contract violation" @@ -447,7 +447,7 @@ 'contract: '(? (or not !signature?)) 'value: - _%signature150455%_) + _%signature150729%_) '#!void))) (begin (raise-contract-violation-error @@ -457,37 +457,37 @@ 'contract: '!procedure? 'value: - _%$obj150454%_) + _%$obj150728%_) '#!void)))) (define gxc#__!procedure-signature-set! - (lambda (_%$obj150431%_ _%signature150433%_) - (let* ((_%$obj150437%_ _%$obj150431%_) - (_%signature150445%_ _%signature150433%_)) + (lambda (_%$obj150705%_ _%signature150707%_) + (let* ((_%$obj150711%_ _%$obj150705%_) + (_%signature150719%_ _%signature150707%_)) (declare (not safe)) (##unchecked-structure-set! - _%$obj150437%_ - _%signature150445%_ + _%$obj150711%_ + _%signature150719%_ '2 '#f '#f)))) (define gxc#!class-meta::t - (let ((__tmp150716 (list gxc#!type::t)) - (__tmp150715 (cons (cons 'struct: '#t) '()))) + (let ((__tmp150990 (list gxc#!type::t)) + (__tmp150989 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!class-meta::t '!class-meta - __tmp150716 + __tmp150990 '(class) - __tmp150715 + __tmp150989 ':init!))) (define gxc#!class-meta? (let () (declare (not safe)) (__make-class-predicate gxc#!class-meta::t))) (define gxc#make-!class-meta - (lambda _%$args150428%_ - (apply make-instance gxc#!class-meta::t _%$args150428%_))) + (lambda _%$args150702%_ + (apply make-instance gxc#!class-meta::t _%$args150702%_))) (define gxc#!class-meta-class (let () (declare (not safe)) @@ -521,8 +521,8 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!class-meta::t 'id))) (define gxc#!class::t - (let ((__tmp150718 (list gxc#!type::t)) - (__tmp150717 + (let ((__tmp150992 (list gxc#!type::t)) + (__tmp150991 (cons (cons 'struct: '#t) '((equal: super @@ -540,7 +540,7 @@ (__make-class-type 'gxc#!class::t '!class - __tmp150718 + __tmp150992 '(super precedence-list slots fields @@ -550,13 +550,13 @@ system? metaclass methods) - __tmp150717 + __tmp150991 ':init!))) (define gxc#!class? (let () (declare (not safe)) (__make-class-predicate gxc#!class::t))) (define gxc#make-!class - (lambda _%$args150425%_ - (apply make-instance gxc#!class::t _%$args150425%_))) + (lambda _%$args150699%_ + (apply make-instance gxc#!class::t _%$args150699%_))) (define gxc#!class-super (let () (declare (not safe)) @@ -734,21 +734,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!class::t 'id))) (define gxc#!predicate::t - (let ((__tmp150720 (list gxc#!procedure::t)) - (__tmp150719 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp150994 (list gxc#!procedure::t)) + (__tmp150993 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!predicate::t '!predicate - __tmp150720 + __tmp150994 '() - __tmp150719 + __tmp150993 ':init!))) (define gxc#!predicate? (let () (declare (not safe)) (__make-class-predicate gxc#!predicate::t))) (define gxc#make-!predicate - (lambda _%$args150422%_ - (apply make-instance gxc#!predicate::t _%$args150422%_))) + (lambda _%$args150696%_ + (apply make-instance gxc#!predicate::t _%$args150696%_))) (define gxc#!predicate-signature (let () (declare (not safe)) @@ -782,23 +782,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!predicate::t 'id))) (define gxc#!constructor::t - (let ((__tmp150722 (list gxc#!procedure::t)) - (__tmp150721 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp150996 (list gxc#!procedure::t)) + (__tmp150995 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!constructor::t '!constructor - __tmp150722 + __tmp150996 '() - __tmp150721 + __tmp150995 ':init!))) (define gxc#!constructor? (let () (declare (not safe)) (__make-class-predicate gxc#!constructor::t))) (define gxc#make-!constructor - (lambda _%$args150419%_ - (apply make-instance gxc#!constructor::t _%$args150419%_))) + (lambda _%$args150693%_ + (apply make-instance gxc#!constructor::t _%$args150693%_))) (define gxc#!constructor-signature (let () (declare (not safe)) @@ -832,21 +832,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!constructor::t 'id))) (define gxc#!accessor::t - (let ((__tmp150724 (list gxc#!procedure::t)) - (__tmp150723 (cons (cons 'struct: '#t) '((equal: slot checked?))))) + (let ((__tmp150998 (list gxc#!procedure::t)) + (__tmp150997 (cons (cons 'struct: '#t) '((equal: slot checked?))))) (declare (not safe)) (__make-class-type 'gxc#!accessor::t '!accessor - __tmp150724 + __tmp150998 '(slot checked?) - __tmp150723 + __tmp150997 ':init!))) (define gxc#!accessor? (let () (declare (not safe)) (__make-class-predicate gxc#!accessor::t))) (define gxc#make-!accessor - (lambda _%$args150416%_ - (apply make-instance gxc#!accessor::t _%$args150416%_))) + (lambda _%$args150690%_ + (apply make-instance gxc#!accessor::t _%$args150690%_))) (define gxc#!accessor-slot (let () (declare (not safe)) @@ -912,21 +912,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!accessor::t 'id))) (define gxc#!mutator::t - (let ((__tmp150726 (list gxc#!procedure::t)) - (__tmp150725 (cons (cons 'struct: '#t) '((equal: slot checked?))))) + (let ((__tmp151000 (list gxc#!procedure::t)) + (__tmp150999 (cons (cons 'struct: '#t) '((equal: slot checked?))))) (declare (not safe)) (__make-class-type 'gxc#!mutator::t '!mutator - __tmp150726 + __tmp151000 '(slot checked?) - __tmp150725 + __tmp150999 ':init!))) (define gxc#!mutator? (let () (declare (not safe)) (__make-class-predicate gxc#!mutator::t))) (define gxc#make-!mutator - (lambda _%$args150413%_ - (apply make-instance gxc#!mutator::t _%$args150413%_))) + (lambda _%$args150687%_ + (apply make-instance gxc#!mutator::t _%$args150687%_))) (define gxc#!mutator-slot (let () (declare (not safe)) @@ -992,21 +992,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!mutator::t 'id))) (define gxc#!interface::t - (let ((__tmp150728 (list gxc#!type::t)) - (__tmp150727 (cons (cons 'struct: '#t) '((equal: methods))))) + (let ((__tmp151002 (list gxc#!type::t)) + (__tmp151001 (cons (cons 'struct: '#t) '((equal: methods))))) (declare (not safe)) (__make-class-type 'gxc#!interface::t '!interface - __tmp150728 + __tmp151002 '(methods) - __tmp150727 + __tmp151001 '#f))) (define gxc#!interface? (let () (declare (not safe)) (__make-class-predicate gxc#!interface::t))) (define gxc#make-!interface - (lambda _%$args150410%_ - (apply make-instance gxc#!interface::t _%$args150410%_))) + (lambda _%$args150684%_ + (apply make-instance gxc#!interface::t _%$args150684%_))) (define gxc#!interface-methods (let () (declare (not safe)) @@ -1040,23 +1040,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!interface::t 'id))) (define gxc#!lambda::t - (let ((__tmp150730 (list gxc#!procedure::t)) - (__tmp150729 + (let ((__tmp151004 (list gxc#!procedure::t)) + (__tmp151003 (cons (cons 'struct: '#t) '((equal: arity dispatch inline inline-typedecl))))) (declare (not safe)) (__make-class-type 'gxc#!lambda::t '!lambda - __tmp150730 + __tmp151004 '(arity dispatch inline inline-typedecl) - __tmp150729 + __tmp151003 ':init!))) (define gxc#!lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!lambda::t))) (define gxc#make-!lambda - (lambda _%$args150407%_ - (apply make-instance gxc#!lambda::t _%$args150407%_))) + (lambda _%$args150681%_ + (apply make-instance gxc#!lambda::t _%$args150681%_))) (define gxc#!lambda-arity (let () (declare (not safe)) @@ -1156,23 +1156,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!lambda::t 'id))) (define gxc#!case-lambda::t - (let ((__tmp150732 (list gxc#!procedure::t)) - (__tmp150731 (cons (cons 'struct: '#t) '((equal: clauses))))) + (let ((__tmp151006 (list gxc#!procedure::t)) + (__tmp151005 (cons (cons 'struct: '#t) '((equal: clauses))))) (declare (not safe)) (__make-class-type 'gxc#!case-lambda::t '!case-lambda - __tmp150732 + __tmp151006 '(clauses) - __tmp150731 + __tmp151005 ':init!))) (define gxc#!case-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!case-lambda::t))) (define gxc#make-!case-lambda - (lambda _%$args150404%_ - (apply make-instance gxc#!case-lambda::t _%$args150404%_))) + (lambda _%$args150678%_ + (apply make-instance gxc#!case-lambda::t _%$args150678%_))) (define gxc#!case-lambda-clauses (let () (declare (not safe)) @@ -1222,22 +1222,22 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!case-lambda::t 'id))) (define gxc#!kw-lambda::t - (let ((__tmp150734 (list gxc#!procedure::t)) - (__tmp150733 + (let ((__tmp151008 (list gxc#!procedure::t)) + (__tmp151007 (cons (cons 'struct: '#t) '((equal: table dispatch))))) (declare (not safe)) (__make-class-type 'gxc#!kw-lambda::t '!kw-lambda - __tmp150734 + __tmp151008 '(table dispatch) - __tmp150733 + __tmp151007 ':init!))) (define gxc#!kw-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!kw-lambda::t))) (define gxc#make-!kw-lambda - (lambda _%$args150401%_ - (apply make-instance gxc#!kw-lambda::t _%$args150401%_))) + (lambda _%$args150675%_ + (apply make-instance gxc#!kw-lambda::t _%$args150675%_))) (define gxc#!kw-lambda-table (let () (declare (not safe)) @@ -1303,23 +1303,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!kw-lambda::t 'id))) (define gxc#!kw-lambda-primary::t - (let ((__tmp150736 (list gxc#!procedure::t)) - (__tmp150735 (cons (cons 'struct: '#t) '((equal: keys main))))) + (let ((__tmp151010 (list gxc#!procedure::t)) + (__tmp151009 (cons (cons 'struct: '#t) '((equal: keys main))))) (declare (not safe)) (__make-class-type 'gxc#!kw-lambda-primary::t '!kw-lambda-primary - __tmp150736 + __tmp151010 '(keys main) - __tmp150735 + __tmp151009 ':init!))) (define gxc#!kw-lambda-primary? (let () (declare (not safe)) (__make-class-predicate gxc#!kw-lambda-primary::t))) (define gxc#make-!kw-lambda-primary - (lambda _%$args150398%_ - (apply make-instance gxc#!kw-lambda-primary::t _%$args150398%_))) + (lambda _%$args150672%_ + (apply make-instance gxc#!kw-lambda-primary::t _%$args150672%_))) (define gxc#!kw-lambda-primary-keys (let () (declare (not safe)) @@ -1393,38 +1393,38 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!kw-lambda-primary::t 'id))) (define gxc#!primitive::t - (let ((__tmp150737 (list))) + (let ((__tmp151011 (list))) (declare (not safe)) (__make-class-type 'gxc#!primitive::t '!primitive - __tmp150737 + __tmp151011 '() '((equal:)) '#f))) (define gxc#!primitive? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive::t))) (define gxc#make-!primitive - (lambda _%$args150395%_ - (apply make-instance gxc#!primitive::t _%$args150395%_))) + (lambda _%$args150669%_ + (apply make-instance gxc#!primitive::t _%$args150669%_))) (define gxc#!primitive-predicate::t - (let ((__tmp150739 (list gxc#!primitive::t gxc#!procedure::t)) - (__tmp150738 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp151013 (list gxc#!primitive::t gxc#!procedure::t)) + (__tmp151012 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!primitive-predicate::t '!primitive-predicate - __tmp150739 + __tmp151013 '() - __tmp150738 + __tmp151012 ':init!))) (define gxc#!primitive-predicate? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive-predicate::t))) (define gxc#make-!primitive-predicate - (lambda _%$args150392%_ - (apply make-instance gxc#!primitive-predicate::t _%$args150392%_))) + (lambda _%$args150666%_ + (apply make-instance gxc#!primitive-predicate::t _%$args150666%_))) (define gxc#!primitive-predicate-signature (let () (declare (not safe)) @@ -1464,23 +1464,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!primitive-predicate::t 'id))) (define gxc#!primitive-lambda::t - (let ((__tmp150741 (list gxc#!primitive::t gxc#!lambda::t)) - (__tmp150740 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp151015 (list gxc#!primitive::t gxc#!lambda::t)) + (__tmp151014 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!primitive-lambda::t '!primitive-lambda - __tmp150741 + __tmp151015 '() - __tmp150740 + __tmp151014 ':init!))) (define gxc#!primitive-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive-lambda::t))) (define gxc#make-!primitive-lambda - (lambda _%$args150389%_ - (apply make-instance gxc#!primitive-lambda::t _%$args150389%_))) + (lambda _%$args150663%_ + (apply make-instance gxc#!primitive-lambda::t _%$args150663%_))) (define gxc#!primitive-lambda-arity (let () (declare (not safe)) @@ -1598,23 +1598,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!primitive-lambda::t 'id))) (define gxc#!primitive-case-lambda::t - (let ((__tmp150743 (list gxc#!primitive::t gxc#!case-lambda::t)) - (__tmp150742 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp151017 (list gxc#!primitive::t gxc#!case-lambda::t)) + (__tmp151016 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!primitive-case-lambda::t '!primitive-case-lambda - __tmp150743 + __tmp151017 '() - __tmp150742 + __tmp151016 ':init!))) (define gxc#!primitive-case-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive-case-lambda::t))) (define gxc#make-!primitive-case-lambda - (lambda _%$args150386%_ - (apply make-instance gxc#!primitive-case-lambda::t _%$args150386%_))) + (lambda _%$args150660%_ + (apply make-instance gxc#!primitive-case-lambda::t _%$args150660%_))) (define gxc#!primitive-case-lambda-clauses (let () (declare (not safe)) @@ -1676,26 +1676,26 @@ gxc#!primitive-case-lambda::t 'id))) (define gxc#!abort:::init! - (lambda (_%self147811150371%_) - (let* ((_%self150374%_ _%self147811150371%_) - (_%self150376%_ _%self150374%_)) + (lambda (_%self148085150645%_) + (let* ((_%self150648%_ _%self148085150645%_) + (_%self150650%_ _%self150648%_)) (declare (not safe)) - (##unchecked-structure-set! _%self150376%_ 'abort '1 '#f '#f)))) + (##unchecked-structure-set! _%self150650%_ 'abort '1 '#f '#f)))) (let () (declare (not safe)) (__bind-method!__% gxc#!abort::t ':init! gxc#!abort:::init! '#f)) (define gxc#!class-meta:::init! - (lambda (_%self147812150233%_ _%klass150235%_) - (let* ((_%self150237%_ _%self147812150233%_) - (_%self150239%_ _%self150237%_)) + (lambda (_%self148086150507%_ _%klass150509%_) + (let* ((_%self150511%_ _%self148086150507%_) + (_%self150513%_ _%self150511%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self150239%_ 'class '1 '#f '#f)) + (##unchecked-structure-set! _%self150513%_ 'class '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150239%_ - _%klass150235%_ + _%self150513%_ + _%klass150509%_ '2 '#f '#f))))) @@ -1707,598 +1707,598 @@ gxc#!class-meta:::init! '#f)) (define gxc#!class:::init!__0 - (lambda (_%self147813149921%_ - _%id149923%_ - _%super149924%_ - _%slots149925%_ - _%ctor-method149926%_ - _%struct?149927%_ - _%final?149928%_ - _%system?149929%_ - _%metaclass149930%_) - (let* ((_%self149932%_ _%self147813149921%_) - (_%self149934%_ _%self149932%_)) - (let _%lp149944%_ ((_%rest149946%_ _%super149924%_)) - (let* ((_%rest149947149955%_ _%rest149946%_) - (_%else149949149963%_ (lambda () '#!void)) - (_%K149951149969%_ - (lambda (_%rest149966%_ _%super-id149967%_) - (if (let ((__tmp150744 + (lambda (_%self148087150195%_ + _%id150197%_ + _%super150198%_ + _%slots150199%_ + _%ctor-method150200%_ + _%struct?150201%_ + _%final?150202%_ + _%system?150203%_ + _%metaclass150204%_) + (let* ((_%self150206%_ _%self148087150195%_) + (_%self150208%_ _%self150206%_)) + (let _%lp150218%_ ((_%rest150220%_ _%super150198%_)) + (let* ((_%rest150221150229%_ _%rest150220%_) + (_%else150223150237%_ (lambda () '#!void)) + (_%K150225150243%_ + (lambda (_%rest150240%_ _%super-id150241%_) + (if (let ((__tmp151018 (gxc#optimizer-resolve-class - (cons '!class (cons _%id149923%_ '())) - _%super-id149967%_))) + (cons '!class (cons _%id150197%_ '())) + _%super-id150241%_))) (declare (not safe)) - (##unchecked-structure-ref __tmp150744 '8 '#f '#f)) - (let ((__tmp150745 - (cons '!class (cons _%id149923%_ '())))) + (##unchecked-structure-ref __tmp151018 '8 '#f '#f)) + (let ((__tmp151019 + (cons '!class (cons _%id150197%_ '())))) (declare (not safe)) (gxc#raise-compile-error '"cannot extend final class" - __tmp150745 - _%super-id149967%_)) + __tmp151019 + _%super-id150241%_)) '#!void) - (_%lp149944%_ _%rest149966%_)))) - (if (let () (declare (not safe)) (##pair? _%rest149947149955%_)) - (let ((_%hd149952149972%_ + (_%lp150218%_ _%rest150240%_)))) + (if (let () (declare (not safe)) (##pair? _%rest150221150229%_)) + (let ((_%hd150226150246%_ (let () (declare (not safe)) - (##car _%rest149947149955%_))) - (_%tl149953149974%_ + (##car _%rest150221150229%_))) + (_%tl150227150248%_ (let () (declare (not safe)) - (##cdr _%rest149947149955%_)))) - (let* ((_%super-id149977%_ _%hd149952149972%_) - (_%rest149979%_ _%tl149953149974%_)) - (_%K149951149969%_ _%rest149979%_ _%super-id149977%_))) + (##cdr _%rest150221150229%_)))) + (let* ((_%super-id150251%_ _%hd150226150246%_) + (_%rest150253%_ _%tl150227150248%_)) + (_%K150225150243%_ _%rest150253%_ _%super-id150251%_))) '#!void))) - (let* ((_%ctor-method150030%_ - (let ((_%$e149981%_ _%ctor-method149926%_)) - (if _%$e149981%_ - _%$e149981%_ - (let _%lp149984%_ ((_%rest149986%_ _%super149924%_) - (_%method149987%_ '#f)) - (let* ((_%rest149988149996%_ _%rest149986%_) - (_%else149990150004%_ - (lambda () _%method149987%_)) - (_%K149992150018%_ - (lambda (_%rest150007%_ _%super-id150008%_) - (let* ((_%klass150010%_ + (let* ((_%ctor-method150304%_ + (let ((_%$e150255%_ _%ctor-method150200%_)) + (if _%$e150255%_ + _%$e150255%_ + (let _%lp150258%_ ((_%rest150260%_ _%super150198%_) + (_%method150261%_ '#f)) + (let* ((_%rest150262150270%_ _%rest150260%_) + (_%else150264150278%_ + (lambda () _%method150261%_)) + (_%K150266150292%_ + (lambda (_%rest150281%_ _%super-id150282%_) + (let* ((_%klass150284%_ (gxc#optimizer-resolve-class (cons '!class - (cons _%id149923%_ '())) - _%super-id150008%_)) - (_%$e150012%_ + (cons _%id150197%_ '())) + _%super-id150282%_)) + (_%$e150286%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass150010%_ + _%klass150284%_ '6 '#f '#f)))) - (if _%$e150012%_ - ((lambda (_%ctor-method150015%_) - (if _%method149987%_ - (if (eq? _%ctor-method150015%_ - _%method149987%_) - (_%lp149984%_ - _%rest150007%_ - _%ctor-method150015%_) - (let ((__tmp150746 + (if _%$e150286%_ + ((lambda (_%ctor-method150289%_) + (if _%method150261%_ + (if (eq? _%ctor-method150289%_ + _%method150261%_) + (_%lp150258%_ + _%rest150281%_ + _%ctor-method150289%_) + (let ((__tmp151020 (cons '!class ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id149923%_ '())))) + (cons _%id150197%_ '())))) (declare (not safe)) (gxc#raise-compile-error '"conflicting implicit constructor methods" - __tmp150746 - _%method149987%_ - _%ctor-method150015%_))) + __tmp151020 + _%method150261%_ + _%ctor-method150289%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp149984%_ - _%rest150007%_ - _%ctor-method150015%_))) - _%$e150012%_) - (_%lp149984%_ - _%rest150007%_ - _%method149987%_)))))) + (_%lp150258%_ + _%rest150281%_ + _%ctor-method150289%_))) + _%$e150286%_) + (_%lp150258%_ + _%rest150281%_ + _%method150261%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest149988149996%_)) - (let ((_%hd149993150021%_ + (##pair? _%rest150262150270%_)) + (let ((_%hd150267150295%_ (let () (declare (not safe)) - (##car _%rest149988149996%_))) - (_%tl149994150023%_ + (##car _%rest150262150270%_))) + (_%tl150268150297%_ (let () (declare (not safe)) - (##cdr _%rest149988149996%_)))) - (let* ((_%super-id150026%_ - _%hd149993150021%_) - (_%rest150028%_ _%tl149994150023%_)) - (_%K149992150018%_ - _%rest150028%_ - _%super-id150026%_))) - (_%else149990150004%_))))))) - (_g150747_ - (let ((__tmp150751 - (lambda (_%klass-id150032%_) - (cons _%klass-id150032%_ - (let ((__tmp150752 + (##cdr _%rest150262150270%_)))) + (let* ((_%super-id150300%_ + _%hd150267150295%_) + (_%rest150302%_ _%tl150268150297%_)) + (_%K150266150292%_ + _%rest150302%_ + _%super-id150300%_))) + (_%else150264150278%_))))))) + (_g151021_ + (let ((__tmp151025 + (lambda (_%klass-id150306%_) + (cons _%klass-id150306%_ + (let ((__tmp151026 (gxc#optimizer-resolve-class - (cons '!class (cons _%id149923%_ '())) - _%klass-id150032%_))) + (cons '!class (cons _%id150197%_ '())) + _%klass-id150306%_))) (declare (not safe)) (##unchecked-structure-ref - __tmp150752 + __tmp151026 '3 '#f '#f))))) - (__tmp150749 - (lambda (_%klass-id150034%_) - (let ((__tmp150750 + (__tmp151023 + (lambda (_%klass-id150308%_) + (let ((__tmp151024 (gxc#optimizer-resolve-class - (cons '!class (cons _%id149923%_ '())) - _%klass-id150034%_))) + (cons '!class (cons _%id150197%_ '())) + _%klass-id150308%_))) (declare (not safe)) (##unchecked-structure-ref - __tmp150750 + __tmp151024 '7 '#f '#f))))) (declare (not safe)) (c4-linearize__% '#f - __tmp150751 - __tmp150749 + __tmp151025 + __tmp151023 eq? identity '() - _%super149924%_)))) + _%super150198%_)))) (begin - (let ((_g150748_ + (let ((_g151022_ (let () (declare (not safe)) - (if (##values? _g150747_) - (##vector-length _g150747_) + (if (##values? _g151021_) + (##vector-length _g151021_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g150748_ 2))) - (error "Context expects 2 values" _g150748_))) - (let ((_%precedence-list150036%_ - (let () (declare (not safe)) (##vector-ref _g150747_ 0))) - (_%base-struct150037%_ - (let () (declare (not safe)) (##vector-ref _g150747_ 1)))) - (let* ((_%precedence-list150081%_ + (if (not (let () (declare (not safe)) (##fx= _g151022_ 2))) + (error "Context expects 2 values" _g151022_))) + (let ((_%precedence-list150310%_ + (let () (declare (not safe)) (##vector-ref _g151021_ 0))) + (_%base-struct150311%_ + (let () (declare (not safe)) (##vector-ref _g151021_ 1)))) + (let* ((_%precedence-list150355%_ (if (let () (declare (not safe)) - (##memq _%id149923%_ '(t object class))) - _%precedence-list150036%_ - (if (memq 'object::t _%precedence-list150036%_) - _%precedence-list150036%_ - (if _%system?149929%_ - (if (memq 't::t _%precedence-list150036%_) - _%precedence-list150036%_ + (##memq _%id150197%_ '(t object class))) + _%precedence-list150310%_ + (if (memq 'object::t _%precedence-list150310%_) + _%precedence-list150310%_ + (if _%system?150203%_ + (if (memq 't::t _%precedence-list150310%_) + _%precedence-list150310%_ (let () (declare (not safe)) (##append - _%precedence-list150036%_ + _%precedence-list150310%_ '(t::t)))) - (let _%loop150043%_ ((_%tail150045%_ - _%precedence-list150036%_) - (_%head150046%_ '())) - (let* ((_%tail150047150055%_ - _%tail150045%_) - (_%else150049150063%_ + (let _%loop150317%_ ((_%tail150319%_ + _%precedence-list150310%_) + (_%head150320%_ '())) + (let* ((_%tail150321150329%_ + _%tail150319%_) + (_%else150323150337%_ (lambda () (let () (declare (not safe)) (__foldl1 cons '(object::t t::t) - _%head150046%_)))) - (_%K150051150069%_ - (lambda (_%rest150066%_ - _%hd150067%_) - (if (eq? _%hd150067%_ 't::t) - (let ((__tmp150753 + _%head150320%_)))) + (_%K150325150343%_ + (lambda (_%rest150340%_ + _%hd150341%_) + (if (eq? _%hd150341%_ 't::t) + (let ((__tmp151027 (cons 'object::t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tail150045%_))) + _%tail150319%_))) (declare (not safe)) - (__foldl1 cons __tmp150753 _%head150046%_)) + (__foldl1 cons __tmp151027 _%head150320%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop150043%_ - _%rest150066%_ - (cons _%hd150067%_ - _%head150046%_)))))) + (_%loop150317%_ + _%rest150340%_ + (cons _%hd150341%_ + _%head150320%_)))))) (if (let () (declare (not safe)) - (##pair? _%tail150047150055%_)) - (let ((_%hd150052150072%_ + (##pair? _%tail150321150329%_)) + (let ((_%hd150326150346%_ (let () (declare (not safe)) - (##car _%tail150047150055%_))) - (_%tl150053150074%_ + (##car _%tail150321150329%_))) + (_%tl150327150348%_ (let () (declare (not safe)) - (##cdr _%tail150047150055%_)))) - (let* ((_%hd150077%_ - _%hd150052150072%_) - (_%rest150079%_ - _%tl150053150074%_)) - (_%K150051150069%_ - _%rest150079%_ - _%hd150077%_))) - (_%else150049150063%_)))))))) - (_%fields150083%_ + (##cdr _%tail150321150329%_)))) + (let* ((_%hd150351%_ + _%hd150326150346%_) + (_%rest150353%_ + _%tl150327150348%_)) + (_%K150325150343%_ + _%rest150353%_ + _%hd150351%_))) + (_%else150323150337%_)))))))) + (_%fields150357%_ (gxc#compute-class-fields - (cons '!class (cons _%id149923%_ '())) - _%base-struct150037%_ - _%precedence-list150081%_ - _%slots149925%_))) + (cons '!class (cons _%id150197%_ '())) + _%base-struct150311%_ + _%precedence-list150355%_ + _%slots150199%_))) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149934%_ - _%id149923%_ + _%self150208%_ + _%id150197%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149934%_ - _%super149924%_ + _%self150208%_ + _%super150198%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149934%_ - _%precedence-list150081%_ + _%self150208%_ + _%precedence-list150355%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149934%_ - _%slots149925%_ + _%self150208%_ + _%slots150199%_ '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149934%_ - _%fields150083%_ + _%self150208%_ + _%fields150357%_ '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149934%_ - _%ctor-method150030%_ + _%self150208%_ + _%ctor-method150304%_ '6 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149934%_ - _%struct?149927%_ + _%self150208%_ + _%struct?150201%_ '7 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149934%_ - _%final?149928%_ + _%self150208%_ + _%final?150202%_ '8 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149934%_ - _%metaclass149930%_ + _%self150208%_ + _%metaclass150204%_ '10 '#f '#f))))))))) (define gxc#!class:::init!__1 - (lambda (_%self147814150086%_ - _%id150088%_ - _%super150089%_ - _%precedence-list150090%_ - _%slots150091%_ - _%fields150092%_ - _%constructor150093%_ - _%struct?150094%_ - _%final?150095%_ - _%system?150096%_ - _%metaclass150097%_ - _%methods150098%_) - (let* ((_%self150100%_ _%self147814150086%_) - (_%self150102%_ _%self150100%_)) + (lambda (_%self148088150360%_ + _%id150362%_ + _%super150363%_ + _%precedence-list150364%_ + _%slots150365%_ + _%fields150366%_ + _%constructor150367%_ + _%struct?150368%_ + _%final?150369%_ + _%system?150370%_ + _%metaclass150371%_ + _%methods150372%_) + (let* ((_%self150374%_ _%self148088150360%_) + (_%self150376%_ _%self150374%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150102%_ - _%id150088%_ + _%self150376%_ + _%id150362%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150102%_ - _%super150089%_ + _%self150376%_ + _%super150363%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150102%_ - _%precedence-list150090%_ + _%self150376%_ + _%precedence-list150364%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150102%_ - _%slots150091%_ + _%self150376%_ + _%slots150365%_ '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150102%_ - _%fields150092%_ + _%self150376%_ + _%fields150366%_ '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150102%_ - _%constructor150093%_ + _%self150376%_ + _%constructor150367%_ '6 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150102%_ - _%struct?150094%_ + _%self150376%_ + _%struct?150368%_ '7 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150102%_ - _%final?150095%_ + _%self150376%_ + _%final?150369%_ '8 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150102%_ - _%metaclass150097%_ + _%self150376%_ + _%metaclass150371%_ '10 '#f '#f)) - (if _%methods150098%_ - (let ((__tmp150754 + (if _%methods150372%_ + (let ((__tmp151028 (let () (declare (not safe)) - (list->hash-table-eq _%methods150098%_)))) + (list->hash-table-eq _%methods150372%_)))) (declare (not safe)) (##unchecked-structure-set! - _%self150102%_ - __tmp150754 + _%self150376%_ + __tmp151028 '11 '#f '#f)) '#!void)))) (define gxc#!class:::init! - (lambda _g150756_ - (let ((_g150755_ (let () (declare (not safe)) (##length _g150756_)))) - (cond ((let () (declare (not safe)) (##fx= _g150755_ 9)) - (apply gxc#!class:::init!__0 _g150756_)) - ((let () (declare (not safe)) (##fx= _g150755_ 12)) - (apply gxc#!class:::init!__1 _g150756_)) + (lambda _g151030_ + (let ((_g151029_ (let () (declare (not safe)) (##length _g151030_)))) + (cond ((let () (declare (not safe)) (##fx= _g151029_ 9)) + (apply gxc#!class:::init!__0 _g151030_)) + ((let () (declare (not safe)) (##fx= _g151029_ 12)) + (apply gxc#!class:::init!__1 _g151030_)) (else (##raise-wrong-number-of-arguments-exception gxc#!class:::init! - _g150756_)))))) + _g151030_)))))) (let () (declare (not safe)) (__bind-method!__% gxc#!class::t ':init! gxc#!class:::init! '#f)) (define gxc#compute-class-fields - (lambda (_%where149773%_ - _%base-struct149774%_ - _%precedence-list149775%_ - _%direct-slots149776%_) - (let* ((_%base-fields149778%_ - (if _%base-struct149774%_ - (let ((__tmp150757 + (lambda (_%where150047%_ + _%base-struct150048%_ + _%precedence-list150049%_ + _%direct-slots150050%_) + (let* ((_%base-fields150052%_ + (if _%base-struct150048%_ + (let ((__tmp151031 (gxc#optimizer-resolve-class - _%where149773%_ - _%base-struct149774%_))) + _%where150047%_ + _%base-struct150048%_))) (declare (not safe)) - (##unchecked-structure-ref __tmp150757 '5 '#f '#f)) + (##unchecked-structure-ref __tmp151031 '5 '#f '#f)) '())) - (_%r-fields149780%_ (reverse _%base-fields149778%_)) - (_%seen-slots149788%_ - (let ((_%tab149782%_ + (_%r-fields150054%_ (reverse _%base-fields150052%_)) + (_%seen-slots150062%_ + (let ((_%tab150056%_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_%g149783149785%_) + (lambda (_%g150057150059%_) (let () (declare (not safe)) - (__hash-put! _%tab149782%_ _%g149783149785%_ '#t))) - _%base-fields149778%_) - _%tab149782%_)) - (_%process-slot149792%_ - (lambda (_%slot149790%_) + (__hash-put! _%tab150056%_ _%g150057150059%_ '#t))) + _%base-fields150052%_) + _%tab150056%_)) + (_%process-slot150066%_ + (lambda (_%slot150064%_) (if (let () (declare (not safe)) - (__hash-get _%seen-slots149788%_ _%slot149790%_)) + (__hash-get _%seen-slots150062%_ _%slot150064%_)) '#!void (begin (let () (declare (not safe)) (__hash-put! - _%seen-slots149788%_ - _%slot149790%_ + _%seen-slots150062%_ + _%slot150064%_ '#t)) - (set! _%r-fields149780%_ - (cons _%slot149790%_ _%r-fields149780%_))))))) + (set! _%r-fields150054%_ + (cons _%slot150064%_ _%r-fields150054%_))))))) (for-each - (lambda (_%mixin149795%_) - (let ((_%klass149797%_ + (lambda (_%mixin150069%_) + (let ((_%klass150071%_ (gxc#optimizer-resolve-class - _%where149773%_ - _%mixin149795%_))) + _%where150047%_ + _%mixin150069%_))) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%klass149797%_ '7 '#f '#f)) + (##unchecked-structure-ref _%klass150071%_ '7 '#f '#f)) '#!void (for-each - _%process-slot149792%_ + _%process-slot150066%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass149797%_ + _%klass150071%_ '5 '#f '#f)))))) - _%precedence-list149775%_) - (for-each _%process-slot149792%_ _%direct-slots149776%_) - (let () (declare (not safe)) (##reverse _%r-fields149780%_))))) + _%precedence-list150049%_) + (for-each _%process-slot150066%_ _%direct-slots150050%_) + (let () (declare (not safe)) (##reverse _%r-fields150054%_))))) (define gxc#!class-slot->field-offset - (lambda (_%klass149732%_ _%slot149733%_) - (let _%lp149735%_ ((_%rest149737%_ + (lambda (_%klass150006%_ _%slot150007%_) + (let _%lp150009%_ ((_%rest150011%_ (##structure-ref - _%klass149732%_ + _%klass150006%_ '5 gxc#!class::t '#f)) - (_%offset149738%_ '1)) - (let* ((_%rest149739149747%_ _%rest149737%_) - (_%else149741149755%_ + (_%offset150012%_ '1)) + (let* ((_%rest150013150021%_ _%rest150011%_) + (_%else150015150029%_ (lambda () - (let ((__tmp150759 + (let ((__tmp151033 (##structure-ref - _%klass149732%_ + _%klass150006%_ '1 gxc#!type::t '#f)) - (__tmp150758 + (__tmp151032 (##structure-ref - _%klass149732%_ + _%klass150006%_ '5 gxc#!class::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"unknown class slot" - __tmp150759 - __tmp150758 - _%slot149733%_)))) - (_%K149743149761%_ - (lambda (_%rest149758%_ _%s149759%_) - (if (eq? _%s149759%_ _%slot149733%_) - _%offset149738%_ - (_%lp149735%_ - _%rest149758%_ + __tmp151033 + __tmp151032 + _%slot150007%_)))) + (_%K150017150035%_ + (lambda (_%rest150032%_ _%s150033%_) + (if (eq? _%s150033%_ _%slot150007%_) + _%offset150012%_ + (_%lp150009%_ + _%rest150032%_ (let () (declare (not safe)) - (##fx+ _%offset149738%_ '1))))))) - (if (let () (declare (not safe)) (##pair? _%rest149739149747%_)) - (let ((_%hd149744149764%_ + (##fx+ _%offset150012%_ '1))))))) + (if (let () (declare (not safe)) (##pair? _%rest150013150021%_)) + (let ((_%hd150018150038%_ (let () (declare (not safe)) - (##car _%rest149739149747%_))) - (_%tl149745149766%_ + (##car _%rest150013150021%_))) + (_%tl150019150040%_ (let () (declare (not safe)) - (##cdr _%rest149739149747%_)))) - (let* ((_%s149769%_ _%hd149744149764%_) - (_%rest149771%_ _%tl149745149766%_)) - (_%K149743149761%_ _%rest149771%_ _%s149769%_))) - (_%else149741149755%_)))))) + (##cdr _%rest150013150021%_)))) + (let* ((_%s150043%_ _%hd150018150038%_) + (_%rest150045%_ _%tl150019150040%_)) + (_%K150017150035%_ _%rest150045%_ _%s150043%_))) + (_%else150015150029%_)))))) (define gxc#!class-slot-find-struct - (lambda (_%klass149690%_ _%slot149691%_) - (if (gxc#!class-struct-slot? _%klass149690%_ _%slot149691%_) - _%klass149690%_ - (let _%lp149693%_ ((_%rest149695%_ + (lambda (_%klass149964%_ _%slot149965%_) + (if (gxc#!class-struct-slot? _%klass149964%_ _%slot149965%_) + _%klass149964%_ + (let _%lp149967%_ ((_%rest149969%_ (##structure-ref - _%klass149690%_ + _%klass149964%_ '3 gxc#!class::t '#f))) - (let* ((_%rest149696149704%_ _%rest149695%_) - (_%else149698149712%_ (lambda () '#f)) - (_%K149700149720%_ - (lambda (_%rest149715%_ _%super149716%_) - (let ((_%super-class149718%_ + (let* ((_%rest149970149978%_ _%rest149969%_) + (_%else149972149986%_ (lambda () '#f)) + (_%K149974149994%_ + (lambda (_%rest149989%_ _%super149990%_) + (let ((_%super-class149992%_ (gxc#optimizer-resolve-class (cons '!class-slot-find-struct (cons (##structure-ref - _%klass149690%_ + _%klass149964%_ '1 gxc#!type::t '#f) - (cons _%slot149691%_ '()))) - _%super149716%_))) + (cons _%slot149965%_ '()))) + _%super149990%_))) (if (gxc#!class-struct-slot? - _%super-class149718%_ - _%slot149691%_) - _%super-class149718%_ - (_%lp149693%_ _%rest149715%_)))))) + _%super-class149992%_ + _%slot149965%_) + _%super-class149992%_ + (_%lp149967%_ _%rest149989%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest149696149704%_)) - (let ((_%hd149701149723%_ + (##pair? _%rest149970149978%_)) + (let ((_%hd149975149997%_ (let () (declare (not safe)) - (##car _%rest149696149704%_))) - (_%tl149702149725%_ + (##car _%rest149970149978%_))) + (_%tl149976149999%_ (let () (declare (not safe)) - (##cdr _%rest149696149704%_)))) - (let* ((_%super149728%_ _%hd149701149723%_) - (_%rest149730%_ _%tl149702149725%_)) - (_%K149700149720%_ _%rest149730%_ _%super149728%_))) - (_%else149698149712%_))))))) + (##cdr _%rest149970149978%_)))) + (let* ((_%super150002%_ _%hd149975149997%_) + (_%rest150004%_ _%tl149976149999%_)) + (_%K149974149994%_ _%rest150004%_ _%super150002%_))) + (_%else149972149986%_))))))) (define gxc#!class-struct-slot? - (lambda (_%klass149687%_ _%slot149688%_) - (if (##structure-ref _%klass149687%_ '7 gxc#!class::t '#f) - (memq _%slot149688%_ - (##structure-ref _%klass149687%_ '5 gxc#!class::t '#f)) + (lambda (_%klass149961%_ _%slot149962%_) + (if (##structure-ref _%klass149961%_ '7 gxc#!class::t '#f) + (memq _%slot149962%_ + (##structure-ref _%klass149961%_ '5 gxc#!class::t '#f)) '#f))) (define gxc#!predicate:::init! - (lambda (_%self147815149671%_ _%id149673%_) - (let* ((_%self149675%_ _%self147815149671%_) - (_%self149677%_ _%self149675%_)) + (lambda (_%self148089149945%_ _%id149947%_) + (let* ((_%self149949%_ _%self148089149945%_) + (_%self149951%_ _%self149949%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149677%_ - _%id149673%_ + _%self149951%_ + _%id149947%_ '1 '#f '#f)) - (let ((__tmp150760 - (let ((__obj150692 + (let ((__tmp151034 + (let ((__obj150966 (let () (declare (not safe)) (##structure @@ -2311,7 +2311,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150692 + __obj150966 'boolean::t '1 '#f @@ -2319,7 +2319,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150692 + __obj150966 '(pure predicate) '2 '#f @@ -2327,16 +2327,16 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150692 + __obj150966 '(t::t) '3 '#f '#f)) - __obj150692))) + __obj150966))) (declare (not safe)) (##unchecked-structure-set! - _%self149677%_ - __tmp150760 + _%self149951%_ + __tmp151034 '2 '#f '#f))))) @@ -2344,19 +2344,19 @@ (declare (not safe)) (__bind-method!__% gxc#!predicate::t ':init! gxc#!predicate:::init! '#f)) (define gxc#!constructor:::init! - (lambda (_%self147816149533%_ _%id149535%_) - (let* ((_%self149537%_ _%self147816149533%_) - (_%self149539%_ _%self149537%_)) + (lambda (_%self148090149807%_ _%id149809%_) + (let* ((_%self149811%_ _%self148090149807%_) + (_%self149813%_ _%self149811%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149539%_ - _%id149535%_ + _%self149813%_ + _%id149809%_ '1 '#f '#f)) - (let ((__tmp150761 - (let ((__obj150693 + (let ((__tmp151035 + (let ((__obj150967 (let () (declare (not safe)) (##structure @@ -2369,24 +2369,24 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150693 - _%id149535%_ + __obj150967 + _%id149809%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150693 + __obj150967 '(alloc) '2 '#f '#f)) - __obj150693))) + __obj150967))) (declare (not safe)) (##unchecked-structure-set! - _%self149539%_ - __tmp150761 + _%self149813%_ + __tmp151035 '2 '#f '#f))))) @@ -2398,38 +2398,38 @@ gxc#!constructor:::init! '#f)) (define gxc#!accessor:::init! - (lambda (_%self147817149393%_ - _%id149395%_ - _%slot149396%_ - _%checked?149397%_) - (let* ((_%self149399%_ _%self147817149393%_) - (_%self149401%_ _%self149399%_)) + (lambda (_%self148091149667%_ + _%id149669%_ + _%slot149670%_ + _%checked?149671%_) + (let* ((_%self149673%_ _%self148091149667%_) + (_%self149675%_ _%self149673%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149401%_ - _%id149395%_ + _%self149675%_ + _%id149669%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149401%_ - _%slot149396%_ + _%self149675%_ + _%slot149670%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149401%_ - _%checked?149397%_ + _%self149675%_ + _%checked?149671%_ '4 '#f '#f)) - (let ((__tmp150762 - (let ((__obj150694 + (let ((__tmp151036 + (let ((__obj150968 (let () (declare (not safe)) (##structure @@ -2441,28 +2441,28 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150694 't::t '1 '#f '#f)) + (##unchecked-structure-set! __obj150968 't::t '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150694 + __obj150968 '(pure) '2 '#f '#f)) - (let ((__tmp150763 (cons _%id149395%_ '()))) + (let ((__tmp151037 (cons _%id149669%_ '()))) (declare (not safe)) (##unchecked-structure-set! - __obj150694 - __tmp150763 + __obj150968 + __tmp151037 '3 '#f '#f)) - __obj150694))) + __obj150968))) (declare (not safe)) (##unchecked-structure-set! - _%self149401%_ - __tmp150762 + _%self149675%_ + __tmp151036 '2 '#f '#f))))) @@ -2470,38 +2470,38 @@ (declare (not safe)) (__bind-method!__% gxc#!accessor::t ':init! gxc#!accessor:::init! '#f)) (define gxc#!mutator:::init! - (lambda (_%self147818149253%_ - _%id149255%_ - _%slot149256%_ - _%checked?149257%_) - (let* ((_%self149259%_ _%self147818149253%_) - (_%self149261%_ _%self149259%_)) + (lambda (_%self148092149527%_ + _%id149529%_ + _%slot149530%_ + _%checked?149531%_) + (let* ((_%self149533%_ _%self148092149527%_) + (_%self149535%_ _%self149533%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149261%_ - _%id149255%_ + _%self149535%_ + _%id149529%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149261%_ - _%slot149256%_ + _%self149535%_ + _%slot149530%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149261%_ - _%checked?149257%_ + _%self149535%_ + _%checked?149531%_ '4 '#f '#f)) - (let ((__tmp150764 - (let ((__obj150695 + (let ((__tmp151038 + (let ((__obj150969 (let () (declare (not safe)) (##structure @@ -2514,7 +2514,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150695 + __obj150969 'void::t '1 '#f @@ -2522,24 +2522,24 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150695 + __obj150969 '(mut) '2 '#f '#f)) - (let ((__tmp150765 (cons _%id149255%_ (cons 't::t '())))) + (let ((__tmp151039 (cons _%id149529%_ (cons 't::t '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150695 - __tmp150765 + __obj150969 + __tmp151039 '3 '#f '#f)) - __obj150695))) + __obj150969))) (declare (not safe)) (##unchecked-structure-set! - _%self149261%_ - __tmp150764 + _%self149535%_ + __tmp151038 '2 '#f '#f))))) @@ -2547,111 +2547,111 @@ (declare (not safe)) (__bind-method!__% gxc#!mutator::t ':init! gxc#!mutator:::init! '#f)) (define gxc#!lambda:::init!__% - (lambda (_%@@keywords149095%_ - _%signature149092149096%_ - _%self147819149098%_ - _%arity149100%_ - _%dispatch149101%_) - (let* ((_%signature149103%_ - (if (eq? _%signature149092149096%_ absent-value) + (lambda (_%@@keywords149369%_ + _%signature149366149370%_ + _%self148093149372%_ + _%arity149374%_ + _%dispatch149375%_) + (let* ((_%signature149377%_ + (if (eq? _%signature149366149370%_ absent-value) '#f - _%signature149092149096%_)) - (_%self149105%_ _%self147819149098%_) - (_%self149107%_ _%self149105%_)) + _%signature149366149370%_)) + (_%self149379%_ _%self148093149372%_) + (_%self149381%_ _%self149379%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self149107%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self149381%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149107%_ - _%arity149100%_ + _%self149381%_ + _%arity149374%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149107%_ - _%dispatch149101%_ + _%self149381%_ + _%dispatch149375%_ '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149107%_ - _%signature149103%_ + _%self149381%_ + _%signature149377%_ '2 '#f '#f))))) (define gxc#!lambda:::init!__@ - (lambda (_%@@keywords149121%_ . _%args149122%_) + (lambda (_%@@keywords149395%_ . _%args149396%_) (apply gxc#!lambda:::init!__% - _%@@keywords149121%_ + _%@@keywords149395%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords149121%_ + _%@@keywords149395%_ 'signature: absent-value)) - _%args149122%_))) + _%args149396%_))) (define gxc#!lambda:::init! - (lambda _%args149093149128%_ + (lambda _%args149367149402%_ (apply keyword-dispatch '#(signature:) gxc#!lambda:::init!__@ - _%args149093149128%_))) + _%args149367149402%_))) (let () (declare (not safe)) (__bind-method!__% gxc#!lambda::t ':init! gxc#!lambda:::init! '#f)) (define gxc#!case-lambda:::init!__% - (lambda (_%@@keywords148934%_ - _%signature148931148935%_ - _%self147820148937%_ - _%clauses148939%_) - (let* ((_%signature148941%_ - (if (eq? _%signature148931148935%_ absent-value) + (lambda (_%@@keywords149208%_ + _%signature149205149209%_ + _%self148094149211%_ + _%clauses149213%_) + (let* ((_%signature149215%_ + (if (eq? _%signature149205149209%_ absent-value) '#f - _%signature148931148935%_)) - (_%self148943%_ _%self147820148937%_) - (_%self148945%_ _%self148943%_)) + _%signature149205149209%_)) + (_%self149217%_ _%self148094149211%_) + (_%self149219%_ _%self149217%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self148945%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self149219%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148945%_ - _%signature148941%_ + _%self149219%_ + _%signature149215%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148945%_ - _%clauses148939%_ + _%self149219%_ + _%clauses149213%_ '3 '#f '#f))))) (define gxc#!case-lambda:::init!__@ - (lambda (_%@@keywords148959%_ . _%args148960%_) + (lambda (_%@@keywords149233%_ . _%args149234%_) (apply gxc#!case-lambda:::init!__% - _%@@keywords148959%_ + _%@@keywords149233%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords148959%_ + _%@@keywords149233%_ 'signature: absent-value)) - _%args148960%_))) + _%args149234%_))) (define gxc#!case-lambda:::init! - (lambda _%args148932148966%_ + (lambda _%args149206149240%_ (apply keyword-dispatch '#(signature:) gxc#!case-lambda:::init!__@ - _%args148932148966%_))) + _%args149206149240%_))) (let () (declare (not safe)) (__bind-method!__% @@ -2660,25 +2660,25 @@ gxc#!case-lambda:::init! '#f)) (define gxc#!kw-lambda:::init! - (lambda (_%self147821148791%_ _%tab148793%_ _%dispatch148794%_) - (let* ((_%self148796%_ _%self147821148791%_) - (_%self148798%_ _%self148796%_)) + (lambda (_%self148095149065%_ _%tab149067%_ _%dispatch149068%_) + (let* ((_%self149070%_ _%self148095149065%_) + (_%self149072%_ _%self149070%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self148798%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self149072%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148798%_ - _%tab148793%_ + _%self149072%_ + _%tab149067%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148798%_ - _%dispatch148794%_ + _%self149072%_ + _%dispatch149068%_ '4 '#f '#f))))) @@ -2686,25 +2686,25 @@ (declare (not safe)) (__bind-method!__% gxc#!kw-lambda::t ':init! gxc#!kw-lambda:::init! '#f)) (define gxc#!kw-lambda-primary:::init! - (lambda (_%self147822148652%_ _%keys148654%_ _%main148655%_) - (let* ((_%self148657%_ _%self147822148652%_) - (_%self148659%_ _%self148657%_)) + (lambda (_%self148096148926%_ _%keys148928%_ _%main148929%_) + (let* ((_%self148931%_ _%self148096148926%_) + (_%self148933%_ _%self148931%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self148659%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self148933%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148659%_ - _%keys148654%_ + _%self148933%_ + _%keys148928%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148659%_ - _%main148655%_ + _%self148933%_ + _%main148929%_ '4 '#f '#f))))) @@ -2732,19 +2732,19 @@ gxc#!primitive-case-lambda:::init! '#f)) (define gxc#!primitive-predicate:::init! - (lambda (_%self147823148270%_ _%id148272%_) - (let* ((_%self148274%_ _%self147823148270%_) - (_%self148276%_ _%self148274%_)) + (lambda (_%self148097148544%_ _%id148546%_) + (let* ((_%self148548%_ _%self148097148544%_) + (_%self148550%_ _%self148548%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self148276%_ - _%id148272%_ + _%self148550%_ + _%id148546%_ '1 '#f '#f)) - (let ((__tmp150766 - (let ((__obj150696 + (let ((__tmp151040 + (let ((__obj150970 (let () (declare (not safe)) (##structure @@ -2757,7 +2757,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150696 + __obj150970 'boolean::t '1 '#f @@ -2765,7 +2765,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150696 + __obj150970 '(pure) '2 '#f @@ -2773,16 +2773,16 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150696 + __obj150970 '(t::t) '3 '#f '#f)) - __obj150696))) + __obj150970))) (declare (not safe)) (##unchecked-structure-set! - _%self148276%_ - __tmp150766 + _%self148550%_ + __tmp151040 '2 '#f '#f))))) @@ -2794,160 +2794,160 @@ gxc#!primitive-predicate:::init! '#f)) (define gxc#!class-method-table - (lambda (_%klass148139%_) - (let ((_%$e148141%_ - (##structure-ref _%klass148139%_ '11 gxc#!class::t '#f))) - (if _%$e148141%_ - _%$e148141%_ - (let ((_%tab148145%_ + (lambda (_%klass148413%_) + (let ((_%$e148415%_ + (##structure-ref _%klass148413%_ '11 gxc#!class::t '#f))) + (if _%$e148415%_ + _%$e148415%_ + (let ((_%tab148419%_ (let () (declare (not safe)) (make-hash-table-eq)))) (##structure-set! - _%klass148139%_ - _%tab148145%_ + _%klass148413%_ + _%tab148419%_ '11 gxc#!class::t '#f) - _%tab148145%_))))) + _%tab148419%_))))) (define gxc#!class-lookup-method - (lambda (_%klass148130%_ _%method148131%_) - (let ((_%tab148132148134%_ - (##structure-ref _%klass148130%_ '11 gxc#!class::t '#f))) - (if _%tab148132148134%_ - (let ((_%tab148137%_ _%tab148132148134%_)) + (lambda (_%klass148404%_ _%method148405%_) + (let ((_%tab148406148408%_ + (##structure-ref _%klass148404%_ '11 gxc#!class::t '#f))) + (if _%tab148406148408%_ + (let ((_%tab148411%_ _%tab148406148408%_)) (declare (not safe)) - (hash-get _%tab148137%_ _%method148131%_)) + (hash-get _%tab148411%_ _%method148405%_)) '#f)))) (define gxc#!type-subtype? - (lambda (_%type-a148118%_ _%type-b148119%_) - (if _%type-a148118%_ - (if _%type-b148119%_ - (let ((_%$e148121%_ (eq? _%type-a148118%_ _%type-b148119%_))) - (if _%$e148121%_ - _%$e148121%_ - (let ((_%$e148124%_ + (lambda (_%type-a148392%_ _%type-b148393%_) + (if _%type-a148392%_ + (if _%type-b148393%_ + (let ((_%$e148395%_ (eq? _%type-a148392%_ _%type-b148393%_))) + (if _%$e148395%_ + _%$e148395%_ + (let ((_%$e148398%_ (eq? (##structure-ref - _%type-b148119%_ + _%type-b148393%_ '1 gxc#!type::t '#f) 't))) - (if _%$e148124%_ - _%$e148124%_ - (let ((_%$e148127%_ + (if _%$e148398%_ + _%$e148398%_ + (let ((_%$e148401%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%type-a148118%_ + _%type-a148392%_ 'gxc#!procedure::t)) (eq? (##structure-ref - _%type-b148119%_ + _%type-b148393%_ '1 gxc#!type::t '#f) 'procedure) '#f))) - (if _%$e148127%_ - _%$e148127%_ + (if _%$e148401%_ + _%$e148401%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%type-a148118%_ + _%type-a148392%_ 'gxc#!class::t)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type-b148119%_ + _%type-b148393%_ 'gxc#!class::t)) (gxc#!class-subclass? - _%type-a148118%_ - _%type-b148119%_) + _%type-a148392%_ + _%type-b148393%_) '#f) '#f))))))) '#f) '#f))) (define gxc#!class-subclass? - (lambda (_%klass-a148069%_ _%klass-b148070%_) - (let ((_%$e148072%_ - (eq? (##structure-ref _%klass-a148069%_ '1 gxc#!type::t '#f) - (##structure-ref _%klass-b148070%_ '1 gxc#!type::t '#f)))) - (if _%$e148072%_ - _%$e148072%_ - (let ((_%klass-id-b148075%_ - (##structure-ref _%klass-b148070%_ '1 gxc#!type::t '#f)) - (_%precedence-list148076%_ - (##structure-ref _%klass-a148069%_ '3 gxc#!class::t '#f))) - (let _%loop148078%_ ((_%rest148080%_ - _%precedence-list148076%_)) - (let* ((_%rest148081148089%_ _%rest148080%_) - (_%else148083148097%_ (lambda () '#f)) - (_%K148085148106%_ - (lambda (_%rest148100%_ _%klass-name148101%_) - (let ((_%$e148103%_ - (eq? (let ((__tmp150767 + (lambda (_%klass-a148343%_ _%klass-b148344%_) + (let ((_%$e148346%_ + (eq? (##structure-ref _%klass-a148343%_ '1 gxc#!type::t '#f) + (##structure-ref _%klass-b148344%_ '1 gxc#!type::t '#f)))) + (if _%$e148346%_ + _%$e148346%_ + (let ((_%klass-id-b148349%_ + (##structure-ref _%klass-b148344%_ '1 gxc#!type::t '#f)) + (_%precedence-list148350%_ + (##structure-ref _%klass-a148343%_ '3 gxc#!class::t '#f))) + (let _%loop148352%_ ((_%rest148354%_ + _%precedence-list148350%_)) + (let* ((_%rest148355148363%_ _%rest148354%_) + (_%else148357148371%_ (lambda () '#f)) + (_%K148359148380%_ + (lambda (_%rest148374%_ _%klass-name148375%_) + (let ((_%$e148377%_ + (eq? (let ((__tmp151041 (gxc#optimizer-resolve-class (cons 'subclass? - (cons _%klass-a148069%_ - (cons _%klass-b148070%_ + (cons _%klass-a148343%_ + (cons _%klass-b148344%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%klass-name148101%_))) + _%klass-name148375%_))) (declare (not safe)) (##unchecked-structure-ref - __tmp150767 + __tmp151041 '1 '#f '#f)) - _%klass-id-b148075%_))) - (if _%$e148103%_ - _%$e148103%_ - (_%loop148078%_ _%rest148100%_)))))) + _%klass-id-b148349%_))) + (if _%$e148377%_ + _%$e148377%_ + (_%loop148352%_ _%rest148374%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest148081148089%_)) - (let ((_%hd148086148109%_ + (##pair? _%rest148355148363%_)) + (let ((_%hd148360148383%_ (let () (declare (not safe)) - (##car _%rest148081148089%_))) - (_%tl148087148111%_ + (##car _%rest148355148363%_))) + (_%tl148361148385%_ (let () (declare (not safe)) - (##cdr _%rest148081148089%_)))) - (let* ((_%klass-name148114%_ _%hd148086148109%_) - (_%rest148116%_ _%tl148087148111%_)) - (_%K148085148106%_ - _%rest148116%_ - _%klass-name148114%_))) - (_%else148083148097%_))))))))) + (##cdr _%rest148355148363%_)))) + (let* ((_%klass-name148388%_ _%hd148360148383%_) + (_%rest148390%_ _%tl148361148385%_)) + (_%K148359148380%_ + _%rest148390%_ + _%klass-name148388%_))) + (_%else148357148371%_))))))))) (define gxc#!interface-instance? - (lambda (_%type148067%_) + (lambda (_%type148341%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type148067%_ 'gxc#!class::t)) + (##structure-instance-of? _%type148341%_ 'gxc#!class::t)) (memq 'interface-instance::t (let () (declare (not safe)) - (##unchecked-structure-ref _%type148067%_ '3 '#f '#f))) + (##unchecked-structure-ref _%type148341%_ '3 '#f '#f))) '#f))) (define gxc#!procedure-origin - (lambda (_%proc148056%_) + (lambda (_%proc148330%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%proc148056%_ 'gxc#!procedure::t)) - (let ((_%proc148059%_ _%proc148056%_)) + (##structure-instance-of? _%proc148330%_ 'gxc#!procedure::t)) + (let ((_%proc148333%_ _%proc148330%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%proc148059%_ '2 '#f '#f)) - (let ((__tmp150768 + (##unchecked-structure-ref _%proc148333%_ '2 '#f '#f)) + (let ((__tmp151042 (let () (declare (not safe)) (##unchecked-structure-ref - _%proc148059%_ + _%proc148333%_ '2 '#f '#f)))) (declare (not safe)) - (##unchecked-structure-ref __tmp150768 '5 '#f '#f)) + (##unchecked-structure-ref __tmp151042 '5 '#f '#f)) '#f)) (begin (raise-contract-violation-error @@ -2957,24 +2957,24 @@ 'contract: '!procedure? 'value: - _%proc148056%_) + _%proc148330%_) '#!void)))) (define gxc#optimizer-declare-type!__% - (lambda (_%sym148038%_ _%type148039%_ _%local?148040%_) + (lambda (_%sym148312%_ _%type148313%_ _%local?148314%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type148039%_ 'gxc#!type::t)) + (##structure-instance-of? _%type148313%_ 'gxc#!type::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !type" - _%sym148038%_ - _%type148039%_))) + _%sym148312%_ + _%type148313%_))) (let () (declare (not safe)) - (gxc#verbose '"declare-type " _%sym148038%_ '" " _%type148039%_)) - (let ((_%table148042%_ - (if _%local?148040%_ + (gxc#verbose '"declare-type " _%sym148312%_ '" " _%type148313%_)) + (let ((_%table148316%_ + (if _%local?148314%_ (let () (declare (not safe)) (gxc#current-compile-local-type)) @@ -2986,37 +2986,37 @@ gxc#optimizer-info::t '#f)))) (declare (not safe)) - (hash-put! _%table148042%_ _%sym148038%_ _%type148039%_)))) + (hash-put! _%table148316%_ _%sym148312%_ _%type148313%_)))) (define gxc#optimizer-declare-type!__0 - (lambda (_%sym148047%_ _%type148048%_) - (let ((_%local?148050%_ '#f)) + (lambda (_%sym148321%_ _%type148322%_) + (let ((_%local?148324%_ '#f)) (gxc#optimizer-declare-type!__% - _%sym148047%_ - _%type148048%_ - _%local?148050%_)))) + _%sym148321%_ + _%type148322%_ + _%local?148324%_)))) (define gxc#optimizer-declare-type! - (lambda _g150770_ - (let ((_g150769_ (let () (declare (not safe)) (##length _g150770_)))) - (cond ((let () (declare (not safe)) (##fx= _g150769_ 2)) - (apply gxc#optimizer-declare-type!__0 _g150770_)) - ((let () (declare (not safe)) (##fx= _g150769_ 3)) - (apply gxc#optimizer-declare-type!__% _g150770_)) + (lambda _g151044_ + (let ((_g151043_ (let () (declare (not safe)) (##length _g151044_)))) + (cond ((let () (declare (not safe)) (##fx= _g151043_ 2)) + (apply gxc#optimizer-declare-type!__0 _g151044_)) + ((let () (declare (not safe)) (##fx= _g151043_ 3)) + (apply gxc#optimizer-declare-type!__% _g151044_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-type! - _g150770_)))))) + _g151044_)))))) (define gxc#optimizer-declare-class! - (lambda (_%sym148032%_ _%type148033%_) + (lambda (_%sym148306%_ _%type148307%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type148033%_ 'gxc#!class::t)) + (##structure-instance-of? _%type148307%_ 'gxc#!class::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !class" - _%sym148032%_ - _%type148033%_))) - (let ((_%table148035%_ + _%sym148306%_ + _%type148307%_))) + (let ((_%table148309%_ (##structure-ref (let () (declare (not safe)) @@ -3024,28 +3024,28 @@ '2 gxc#optimizer-info::t '#f))) - (let ((__tmp150771 - (let () (declare (not safe)) (struct->list _%type148033%_)))) + (let ((__tmp151045 + (let () (declare (not safe)) (struct->list _%type148307%_)))) (declare (not safe)) - (gxc#verbose '"declare-class " _%sym148032%_ '" " __tmp150771)) + (gxc#verbose '"declare-class " _%sym148306%_ '" " __tmp151045)) (let () (declare (not safe)) - (hash-put! _%table148035%_ _%sym148032%_ _%type148033%_)) + (hash-put! _%table148309%_ _%sym148306%_ _%type148307%_)) (let () (declare (not safe)) - (hash-put! _%table148035%_ _%type148033%_ _%sym148032%_))))) + (hash-put! _%table148309%_ _%type148307%_ _%sym148306%_))))) (define gxc#optimizer-declare-builtin-class! - (lambda (_%sym148027%_ _%type148028%_) + (lambda (_%sym148301%_ _%type148302%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type148028%_ 'gxc#!class::t)) + (##structure-instance-of? _%type148302%_ 'gxc#!class::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !class" - _%sym148027%_ - _%type148028%_))) - (let ((_%table148030%_ + _%sym148301%_ + _%type148302%_))) + (let ((_%table148304%_ (##structure-ref (let () (declare (not safe)) @@ -3055,38 +3055,38 @@ '#f))) (if (let () (declare (not safe)) - (hash-get _%table148030%_ _%sym148027%_)) + (hash-get _%table148304%_ _%sym148301%_)) '#!void (begin - (let ((__tmp150772 + (let ((__tmp151046 (let () (declare (not safe)) - (struct->list _%type148028%_)))) + (struct->list _%type148302%_)))) (declare (not safe)) (gxc#verbose '"declare-builtin-class " - _%sym148027%_ + _%sym148301%_ '" " - __tmp150772)) + __tmp151046)) (let () (declare (not safe)) - (hash-put! _%table148030%_ _%sym148027%_ _%type148028%_)) + (hash-put! _%table148304%_ _%sym148301%_ _%type148302%_)) (let () (declare (not safe)) (hash-put! - _%table148030%_ - _%type148028%_ - _%sym148027%_))))))) + _%table148304%_ + _%type148302%_ + _%sym148301%_))))))) (define gxc#optimizer-clear-type! - (lambda (_%sym148025%_) + (lambda (_%sym148299%_) (let () (declare (not safe)) - (gxc#verbose '"clear-type " _%sym148025%_)) - (let ((__tmp150773 + (gxc#verbose '"clear-type " _%sym148299%_)) + (let ((__tmp151047 (let () (declare (not safe)) (gxc#current-compile-local-type)))) (declare (not safe)) - (hash-remove! __tmp150773 _%sym148025%_)) - (let ((__tmp150774 + (hash-remove! __tmp151047 _%sym148299%_)) + (let ((__tmp151048 (##structure-ref (let () (declare (not safe)) @@ -3095,13 +3095,13 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-remove! __tmp150774 _%sym148025%_)))) + (hash-remove! __tmp151048 _%sym148299%_)))) (define gxc#optimizer-declare-method!__% - (lambda (_%type-t147993%_ - _%method147994%_ - _%sym147995%_ - _%rebind?147996%_) - (let ((__tmp150775 + (lambda (_%type-t148267%_ + _%method148268%_ + _%sym148269%_ + _%rebind?148270%_) + (let ((__tmp151049 (##structure-ref (let () (declare (not safe)) @@ -3110,109 +3110,109 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-put! __tmp150775 _%sym147995%_ '#t)) - (let ((_%klass147998%_ (gxc#optimizer-lookup-class _%type-t147993%_))) - (if _%klass147998%_ - (let* ((_%vtab148000%_ (gxc#!class-method-table _%klass147998%_)) - (_%$e148002%_ + (hash-put! __tmp151049 _%sym148269%_ '#t)) + (let ((_%klass148272%_ (gxc#optimizer-lookup-class _%type-t148267%_))) + (if _%klass148272%_ + (let* ((_%vtab148274%_ (gxc#!class-method-table _%klass148272%_)) + (_%$e148276%_ (let () (declare (not safe)) - (hash-get _%vtab148000%_ _%method147994%_)))) - (if _%$e148002%_ - ((lambda (_%existing148005%_) - (if _%rebind?147996%_ + (hash-get _%vtab148274%_ _%method148268%_)))) + (if _%$e148276%_ + ((lambda (_%existing148279%_) + (if _%rebind?148270%_ (let () (let () (declare (not safe)) (gxc#verbose '"declare-method: rebind existing method" - _%type-t147993%_ + _%type-t148267%_ '" " - _%method147994%_)) + _%method148268%_)) (let () (declare (not safe)) (hash-put! - _%vtab148000%_ - _%method147994%_ - _%sym147995%_))) - (if (eq? _%existing148005%_ _%sym147995%_) + _%vtab148274%_ + _%method148268%_ + _%sym148269%_))) + (if (eq? _%existing148279%_ _%sym148269%_) '#!void - (let ((__tmp150776 + (let ((__tmp151050 (cons 'bind-method! - (cons _%type-t147993%_ - (cons _%method147994%_ - (cons _%sym147995%_ + (cons _%type-t148267%_ + (cons _%method148268%_ + (cons _%sym148269%_ '())))))) (declare (not safe)) (gxc#raise-compile-error '"declare-method: duplicate method declaration" - __tmp150776 - _%method147994%_))))) - _%$e148002%_) + __tmp151050 + _%method148268%_))))) + _%$e148276%_) (let () (let () (declare (not safe)) (gxc#verbose '"declare-method " - _%type-t147993%_ + _%type-t148267%_ '" " - _%method147994%_ + _%method148268%_ '" => " - _%sym147995%_)) + _%sym148269%_)) (let () (declare (not safe)) (hash-put! - _%vtab148000%_ - _%method147994%_ - _%sym147995%_))))) + _%vtab148274%_ + _%method148268%_ + _%sym148269%_))))) (let () (declare (not safe)) (gxc#verbose '"declare-method: unknown class" - _%type-t147993%_)))))) + _%type-t148267%_)))))) (define gxc#optimizer-declare-method!__0 - (lambda (_%type-t148014%_ _%method148015%_ _%sym148016%_) - (let ((_%rebind?148018%_ '#f)) + (lambda (_%type-t148288%_ _%method148289%_ _%sym148290%_) + (let ((_%rebind?148292%_ '#f)) (gxc#optimizer-declare-method!__% - _%type-t148014%_ - _%method148015%_ - _%sym148016%_ - _%rebind?148018%_)))) + _%type-t148288%_ + _%method148289%_ + _%sym148290%_ + _%rebind?148292%_)))) (define gxc#optimizer-declare-method! - (lambda _g150778_ - (let ((_g150777_ (let () (declare (not safe)) (##length _g150778_)))) - (cond ((let () (declare (not safe)) (##fx= _g150777_ 3)) - (apply gxc#optimizer-declare-method!__0 _g150778_)) - ((let () (declare (not safe)) (##fx= _g150777_ 4)) - (apply gxc#optimizer-declare-method!__% _g150778_)) + (lambda _g151052_ + (let ((_g151051_ (let () (declare (not safe)) (##length _g151052_)))) + (cond ((let () (declare (not safe)) (##fx= _g151051_ 3)) + (apply gxc#optimizer-declare-method!__0 _g151052_)) + ((let () (declare (not safe)) (##fx= _g151051_ 4)) + (apply gxc#optimizer-declare-method!__% _g151052_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-method! - _g150778_)))))) + _g151052_)))))) (define gxc#optimizer-lookup-type - (lambda (_%sym147978%_) - (let ((_%$e147980%_ - (let ((__tmp150779 + (lambda (_%sym148252%_) + (let ((_%$e148254%_ + (let ((__tmp151053 (let () (declare (not safe)) (gxc#current-compile-path-type)))) (declare (not safe)) - (agetq__0 _%sym147978%_ __tmp150779)))) - (if _%$e147980%_ - _%$e147980%_ - (let ((_%$e147989%_ - (let ((_%ht147982147984%_ + (agetq__0 _%sym148252%_ __tmp151053)))) + (if _%$e148254%_ + _%$e148254%_ + (let ((_%$e148263%_ + (let ((_%ht148256148258%_ (let () (declare (not safe)) (gxc#current-compile-local-type)))) - (if _%ht147982147984%_ - (let ((_%ht147987%_ _%ht147982147984%_)) + (if _%ht148256148258%_ + (let ((_%ht148261%_ _%ht148256148258%_)) (declare (not safe)) - (hash-get _%ht147987%_ _%sym147978%_)) + (hash-get _%ht148261%_ _%sym148252%_)) '#f)))) - (if _%$e147989%_ - _%$e147989%_ - (let ((__tmp150780 + (if _%$e148263%_ + _%$e148263%_ + (let ((__tmp151054 (##structure-ref (let () (declare (not safe)) @@ -3221,24 +3221,24 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp150780 _%sym147978%_)))))))) + (hash-get __tmp151054 _%sym148252%_)))))))) (define gxc#optimizer-resolve-type - (lambda (_%sym147970%_) - (let ((_%type147971147973%_ (gxc#optimizer-lookup-type _%sym147970%_))) - (if _%type147971147973%_ - (let ((_%type147976%_ _%type147971147973%_)) + (lambda (_%sym148244%_) + (let ((_%type148245148247%_ (gxc#optimizer-lookup-type _%sym148244%_))) + (if _%type148245148247%_ + (let ((_%type148250%_ _%type148245148247%_)) (if (let () (declare (not safe)) - (##structure-instance-of? _%type147976%_ 'gxc#!alias::t)) + (##structure-instance-of? _%type148250%_ 'gxc#!alias::t)) (gxc#optimizer-resolve-type (let () (declare (not safe)) - (##unchecked-structure-ref _%type147976%_ '1 '#f '#f))) - _%type147976%_)) + (##unchecked-structure-ref _%type148250%_ '1 '#f '#f))) + _%type148250%_)) '#f)))) (define gxc#optimizer-lookup-class - (lambda (_%sym147966%_) - (let ((_%table147968%_ + (lambda (_%sym148240%_) + (let ((_%table148242%_ (##structure-ref (let () (declare (not safe)) @@ -3247,34 +3247,34 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get _%table147968%_ _%sym147966%_)))) + (hash-get _%table148242%_ _%sym148240%_)))) (define gxc#optimizer-resolve-class - (lambda (_%where147951%_ _%sym147952%_) - (let ((_%$e147955%_ (gxc#optimizer-lookup-class _%sym147952%_))) - (if _%$e147955%_ - ((lambda (_%g147957147959%_) - (let ((_%val147962%_ _%g147957147959%_)) + (lambda (_%where148225%_ _%sym148226%_) + (let ((_%$e148229%_ (gxc#optimizer-lookup-class _%sym148226%_))) + (if _%$e148229%_ + ((lambda (_%g148231148233%_) + (let ((_%val148236%_ _%g148231148233%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%val147962%_ + _%val148236%_ 'gxc#!class::t)) - _%val147962%_ + _%val148236%_ (let () (declare (not safe)) - (error '"bad cast" gxc#!class::t _%val147962%_))))) - _%$e147955%_) + (error '"bad cast" gxc#!class::t _%val148236%_))))) + _%$e148229%_) (let () (let () (declare (not safe)) (gxc#raise-compile-error '"unknown class" - _%where147951%_ - _%sym147952%_)) + _%where148225%_ + _%sym148226%_)) '#!void))))) (define gxc#optimizer-lookup-class-name - (lambda (_%klass147949%_) - (let ((__tmp150781 + (lambda (_%klass148223%_) + (let ((__tmp151055 (##structure-ref (let () (declare (not safe)) @@ -3283,15 +3283,15 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp150781 _%klass147949%_)))) + (hash-get __tmp151055 _%klass148223%_)))) (define gxc#optimizer-lookup-method - (lambda (_%type-t147946%_ _%method147947%_) + (lambda (_%type-t148220%_ _%method148221%_) (gxc#!class-lookup-method - (gxc#optimizer-resolve-class 'lookup-method _%type-t147946%_) - _%method147947%_))) + (gxc#optimizer-resolve-class 'lookup-method _%type-t148220%_) + _%method148221%_))) (define gxc#optimizer-top-level-method? - (lambda (_%sym147944%_) - (let ((__tmp150782 + (lambda (_%sym148218%_) + (let ((__tmp151056 (##structure-ref (let () (declare (not safe)) @@ -3300,59 +3300,59 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp150782 _%sym147944%_)))) + (hash-get __tmp151056 _%sym148218%_)))) (define gxc#optimizer-current-types (lambda () - (letrec ((_%type-e147826%_ - (lambda (_%t147927%_) - (if (symbol? _%t147927%_) - (_%type-e147826%_ - (gxc#optimizer-lookup-type _%t147927%_)) + (letrec ((_%type-e148100%_ + (lambda (_%t148201%_) + (if (symbol? _%t148201%_) + (_%type-e148100%_ + (gxc#optimizer-lookup-type _%t148201%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%t147927%_ + _%t148201%_ 'gxc#!lambda::t)) - (_%__lambda-type147828%_ _%t147927%_) + (_%__lambda-type148102%_ _%t148201%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%t147927%_ + _%t148201%_ 'gxc#!kw-lambda::t)) - (_%__kw-lambda-type147830%_ _%t147927%_) + (_%__kw-lambda-type148104%_ _%t148201%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%t147927%_ + _%t148201%_ 'gxc#!kw-lambda-primary::t)) - (_%__kw-lambda-primary-type147832%_ - _%t147927%_) + (_%__kw-lambda-primary-type148106%_ + _%t148201%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%t147927%_ + _%t148201%_ 'gxc#!procedure::t)) (cons 'procedure - (let ((_%t147934%_ _%t147927%_)) + (let ((_%t148208%_ _%t148201%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%t147934%_ + _%t148208%_ '2 '#f '#f)) - (let ((__tmp150783 + (let ((__tmp151057 (let () (declare (not safe)) (##unchecked-structure-ref - _%t147934%_ + _%t148208%_ '2 '#f '#f)))) (declare (not safe)) (##unchecked-structure-ref - __tmp150783 + __tmp151057 '1 '#f '#f)) @@ -3360,31 +3360,31 @@ (if (let () (declare (not safe)) (##structure-instance-of? - _%t147927%_ + _%t148201%_ 'gxc#!type::t)) (let () (declare (not safe)) (##unchecked-structure-ref - _%t147927%_ + _%t148201%_ '1 '#f '#f)) '#f)))))))) - (_%lambda-type147827%_ - (lambda (_%t147915%_) - (let ((_%t147918%_ _%t147915%_)) - (_%__lambda-type147828%_ _%t147918%_)))) - (_%__lambda-type147828%_ - (lambda (_%t147903%_) - (let ((_%t147906%_ _%t147903%_)) + (_%lambda-type148101%_ + (lambda (_%t148189%_) + (let ((_%t148192%_ _%t148189%_)) + (_%__lambda-type148102%_ _%t148192%_)))) + (_%__lambda-type148102%_ + (lambda (_%t148177%_) + (let ((_%t148180%_ _%t148177%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%t147906%_ '4 '#f '#f)) - (_%type-e147826%_ + (##unchecked-structure-ref _%t148180%_ '4 '#f '#f)) + (_%type-e148100%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%t147906%_ + _%t148180%_ '4 '#f '#f))) @@ -3392,56 +3392,56 @@ (if (let () (declare (not safe)) (##unchecked-structure-ref - _%t147906%_ + _%t148180%_ '2 '#f '#f)) - (let ((__tmp150784 + (let ((__tmp151058 (let () (declare (not safe)) (##unchecked-structure-ref - _%t147906%_ + _%t148180%_ '2 '#f '#f)))) (declare (not safe)) (##unchecked-structure-ref - __tmp150784 + __tmp151058 '1 '#f '#f)) '#f)))))) - (_%kw-lambda-type147829%_ - (lambda (_%t147891%_) - (let ((_%t147894%_ _%t147891%_)) - (_%__kw-lambda-type147830%_ _%t147894%_)))) - (_%__kw-lambda-type147830%_ - (lambda (_%t147879%_) - (let ((_%t147882%_ _%t147879%_)) - (_%type-e147826%_ + (_%kw-lambda-type148103%_ + (lambda (_%t148165%_) + (let ((_%t148168%_ _%t148165%_)) + (_%__kw-lambda-type148104%_ _%t148168%_)))) + (_%__kw-lambda-type148104%_ + (lambda (_%t148153%_) + (let ((_%t148156%_ _%t148153%_)) + (_%type-e148100%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%t147882%_ + _%t148156%_ '4 '#f '#f)))))) - (_%kw-lambda-primary-type147831%_ - (lambda (_%t147867%_) - (let ((_%t147870%_ _%t147867%_)) - (_%__kw-lambda-primary-type147832%_ _%t147870%_)))) - (_%__kw-lambda-primary-type147832%_ - (lambda (_%t147853%_) - (let ((_%t147856%_ _%t147853%_)) - (_%type-e147826%_ + (_%kw-lambda-primary-type148105%_ + (lambda (_%t148141%_) + (let ((_%t148144%_ _%t148141%_)) + (_%__kw-lambda-primary-type148106%_ _%t148144%_)))) + (_%__kw-lambda-primary-type148106%_ + (lambda (_%t148127%_) + (let ((_%t148130%_ _%t148127%_)) + (_%type-e148100%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%t147856%_ + _%t148130%_ '4 '#f '#f))))))) - (let* ((_%ht1147834%_ + (let* ((_%ht1148108%_ (##structure-ref (let () (declare (not safe)) @@ -3449,33 +3449,33 @@ '1 gxc#optimizer-info::t '#f)) - (_%ht2147836%_ + (_%ht2148110%_ (let () (declare (not safe)) (gxc#current-compile-local-type))) - (_%result147838%_ - (if _%ht1147834%_ - (let () (declare (not safe)) (hash->list _%ht1147834%_)) + (_%result148112%_ + (if _%ht1148108%_ + (let () (declare (not safe)) (hash->list _%ht1148108%_)) '())) - (_%result147840%_ - (if _%ht2147836%_ - (let ((__tmp150785 + (_%result148114%_ + (if _%ht2148110%_ + (let ((__tmp151059 (let () (declare (not safe)) - (hash->list _%ht2147836%_)))) + (hash->list _%ht2148110%_)))) (declare (not safe)) - (__foldl1 cons _%result147838%_ __tmp150785)) - _%result147838%_))) + (__foldl1 cons _%result148112%_ __tmp151059)) + _%result148112%_))) (for-each - (lambda (_%p147843%_) - (let* ((_%t147845%_ (cdr _%p147843%_)) - (_%tr147847%_ (_%type-e147826%_ _%t147845%_))) - (set-cdr! _%p147843%_ _%tr147847%_))) - _%result147840%_) + (lambda (_%p148117%_) + (let* ((_%t148119%_ (cdr _%p148117%_)) + (_%tr148121%_ (_%type-e148100%_ _%t148119%_))) + (set-cdr! _%p148117%_ _%tr148121%_))) + _%result148114%_) (list-sort - (lambda (_%a147850%_ _%b147851%_) - (let ((__tmp150787 (symbol->string (car _%a147850%_))) - (__tmp150786 (symbol->string (car _%b147851%_)))) + (lambda (_%a148124%_ _%b148125%_) + (let ((__tmp151061 (symbol->string (car _%a148124%_))) + (__tmp151060 (symbol->string (car _%b148125%_)))) (declare (not safe)) - (##string>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj150678 __tmp150937 '15 '#f '#f)) - (let ((__tmp150949 - (cons (cons 'super |gxc[1]#_g150950_|) - (cons (cons 'precedence-list |gxc[1]#_g150951_|) - (cons (cons 'slots |gxc[1]#_g150952_|) - (cons (cons 'fields |gxc[1]#_g150953_|) + (##unchecked-structure-set! __obj150952 __tmp151211 '15 '#f '#f)) + (let ((__tmp151223 + (cons (cons 'super |gxc[1]#_g151224_|) + (cons (cons 'precedence-list |gxc[1]#_g151225_|) + (cons (cons 'slots |gxc[1]#_g151226_|) + (cons (cons 'fields |gxc[1]#_g151227_|) (cons (cons 'constructor - |gxc[1]#_g150954_|) + |gxc[1]#_g151228_|) (cons (cons 'struct? - |gxc[1]#_g150955_|) + |gxc[1]#_g151229_|) (cons (cons 'final? - |gxc[1]#_g150956_|) + |gxc[1]#_g151230_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g150957_|) - (cons (cons 'metaclass |gxc[1]#_g150958_|) - (cons (cons 'methods |gxc[1]#_g150959_|) - (cons (cons 'id |gxc[1]#_g150960_|) + |gxc[1]#_g151231_|) + (cons (cons 'metaclass |gxc[1]#_g151232_|) + (cons (cons 'methods |gxc[1]#_g151233_|) + (cons (cons 'id |gxc[1]#_g151234_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj150678 __tmp150949 '16 '#f '#f)) - (let ((__tmp150961 - (cons (cons 'super |gxc[1]#_g150962_|) - (cons (cons 'precedence-list |gxc[1]#_g150963_|) - (cons (cons 'slots |gxc[1]#_g150964_|) - (cons (cons 'fields |gxc[1]#_g150965_|) + (##unchecked-structure-set! __obj150952 __tmp151223 '16 '#f '#f)) + (let ((__tmp151235 + (cons (cons 'super |gxc[1]#_g151236_|) + (cons (cons 'precedence-list |gxc[1]#_g151237_|) + (cons (cons 'slots |gxc[1]#_g151238_|) + (cons (cons 'fields |gxc[1]#_g151239_|) (cons (cons 'constructor - |gxc[1]#_g150966_|) + |gxc[1]#_g151240_|) (cons (cons 'struct? - |gxc[1]#_g150967_|) + |gxc[1]#_g151241_|) (cons (cons 'final? - |gxc[1]#_g150968_|) + |gxc[1]#_g151242_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g150969_|) - (cons (cons 'metaclass |gxc[1]#_g150970_|) - (cons (cons 'methods |gxc[1]#_g150971_|) - (cons (cons 'id |gxc[1]#_g150972_|) + |gxc[1]#_g151243_|) + (cons (cons 'metaclass |gxc[1]#_g151244_|) + (cons (cons 'methods |gxc[1]#_g151245_|) + (cons (cons 'id |gxc[1]#_g151246_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj150678 __tmp150961 '17 '#f '#f)) - (let ((__tmp150973 - (cons (cons 'super |gxc[1]#_g150974_|) - (cons (cons 'precedence-list |gxc[1]#_g150975_|) - (cons (cons 'slots |gxc[1]#_g150976_|) - (cons (cons 'fields |gxc[1]#_g150977_|) + (##unchecked-structure-set! __obj150952 __tmp151235 '17 '#f '#f)) + (let ((__tmp151247 + (cons (cons 'super |gxc[1]#_g151248_|) + (cons (cons 'precedence-list |gxc[1]#_g151249_|) + (cons (cons 'slots |gxc[1]#_g151250_|) + (cons (cons 'fields |gxc[1]#_g151251_|) (cons (cons 'constructor - |gxc[1]#_g150978_|) + |gxc[1]#_g151252_|) (cons (cons 'struct? - |gxc[1]#_g150979_|) + |gxc[1]#_g151253_|) (cons (cons 'final? - |gxc[1]#_g150980_|) + |gxc[1]#_g151254_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g150981_|) - (cons (cons 'metaclass |gxc[1]#_g150982_|) - (cons (cons 'methods |gxc[1]#_g150983_|) - (cons (cons 'id |gxc[1]#_g150984_|) + |gxc[1]#_g151255_|) + (cons (cons 'metaclass |gxc[1]#_g151256_|) + (cons (cons 'methods |gxc[1]#_g151257_|) + (cons (cons 'id |gxc[1]#_g151258_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj150678 __tmp150973 '18 '#f '#f)) + (##unchecked-structure-set! __obj150952 __tmp151247 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150678 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150952 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150678 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150952 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150678 '() '20 '#f '#f)) - __obj150678)) + (##unchecked-structure-set! __obj150952 '() '20 '#f '#f)) + __obj150952)) (define |gxc[:0:]#!predicate| - (let ((__obj150679 + (let ((__obj150953 (let () (declare (not safe)) (##structure @@ -3325,76 +3325,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150679 + __obj150953 'gxc#!predicate::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150679 '!predicate '2 '#f '#f)) + (##unchecked-structure-set! __obj150953 '!predicate '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150679 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150953 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150679 '(id signature) '6 '#f '#f)) - (let ((__tmp150985 (cons |gxc[1]#_g150986_| '()))) + (##unchecked-structure-set! __obj150953 '(id signature) '6 '#f '#f)) + (let ((__tmp151259 (cons |gxc[1]#_g151260_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150679 __tmp150985 '3 '#f '#f)) + (##unchecked-structure-set! __obj150953 __tmp151259 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150679 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj150953 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150679 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150953 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150679 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150953 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150679 ':init! '11 '#f '#f)) - (let ((__tmp150987 |gxc[1]#_g150988_|)) + (##unchecked-structure-set! __obj150953 ':init! '11 '#f '#f)) + (let ((__tmp151261 |gxc[1]#_g151262_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150679 __tmp150987 '12 '#f '#f)) - (let ((__tmp150989 |gxc[1]#_g150990_|)) + (##unchecked-structure-set! __obj150953 __tmp151261 '12 '#f '#f)) + (let ((__tmp151263 |gxc[1]#_g151264_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150679 __tmp150989 '13 '#f '#f)) - (let ((__tmp150991 |gxc[1]#_g150992_|)) + (##unchecked-structure-set! __obj150953 __tmp151263 '13 '#f '#f)) + (let ((__tmp151265 |gxc[1]#_g151266_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150679 __tmp150991 '14 '#f '#f)) - (let ((__tmp150993 - (cons (cons 'signature |gxc[1]#_g150994_|) - (cons (cons 'id |gxc[1]#_g150995_|) '())))) + (##unchecked-structure-set! __obj150953 __tmp151265 '14 '#f '#f)) + (let ((__tmp151267 + (cons (cons 'signature |gxc[1]#_g151268_|) + (cons (cons 'id |gxc[1]#_g151269_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150679 __tmp150993 '15 '#f '#f)) - (let ((__tmp150996 - (cons (cons 'signature |gxc[1]#_g150997_|) - (cons (cons 'id |gxc[1]#_g150998_|) '())))) + (##unchecked-structure-set! __obj150953 __tmp151267 '15 '#f '#f)) + (let ((__tmp151270 + (cons (cons 'signature |gxc[1]#_g151271_|) + (cons (cons 'id |gxc[1]#_g151272_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150679 __tmp150996 '16 '#f '#f)) - (let ((__tmp150999 - (cons (cons 'signature |gxc[1]#_g151000_|) - (cons (cons 'id |gxc[1]#_g151001_|) '())))) + (##unchecked-structure-set! __obj150953 __tmp151270 '16 '#f '#f)) + (let ((__tmp151273 + (cons (cons 'signature |gxc[1]#_g151274_|) + (cons (cons 'id |gxc[1]#_g151275_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150679 __tmp150999 '17 '#f '#f)) - (let ((__tmp151002 - (cons (cons 'signature |gxc[1]#_g151003_|) - (cons (cons 'id |gxc[1]#_g151004_|) '())))) + (##unchecked-structure-set! __obj150953 __tmp151273 '17 '#f '#f)) + (let ((__tmp151276 + (cons (cons 'signature |gxc[1]#_g151277_|) + (cons (cons 'id |gxc[1]#_g151278_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150679 __tmp151002 '18 '#f '#f)) - (let ((__tmp151005 (cons (cons 'signature |gxc[1]#_g150909_|) '()))) + (##unchecked-structure-set! __obj150953 __tmp151276 '18 '#f '#f)) + (let ((__tmp151279 (cons (cons 'signature |gxc[1]#_g151183_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150679 __tmp151005 '19 '#f '#f)) + (##unchecked-structure-set! __obj150953 __tmp151279 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150679 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150953 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150679 '() '20 '#f '#f)) - __obj150679)) + (##unchecked-structure-set! __obj150953 '() '20 '#f '#f)) + __obj150953)) (define |gxc[:0:]#!constructor| - (let ((__obj150680 + (let ((__obj150954 (let () (declare (not safe)) (##structure @@ -3423,76 +3423,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150680 + __obj150954 'gxc#!constructor::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150680 '!constructor '2 '#f '#f)) + (##unchecked-structure-set! __obj150954 '!constructor '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150680 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150954 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150680 '(id signature) '6 '#f '#f)) - (let ((__tmp151006 (cons |gxc[1]#_g150986_| '()))) + (##unchecked-structure-set! __obj150954 '(id signature) '6 '#f '#f)) + (let ((__tmp151280 (cons |gxc[1]#_g151260_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150680 __tmp151006 '3 '#f '#f)) + (##unchecked-structure-set! __obj150954 __tmp151280 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150680 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj150954 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150680 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150954 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150680 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150954 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150680 ':init! '11 '#f '#f)) - (let ((__tmp151007 |gxc[1]#_g151008_|)) + (##unchecked-structure-set! __obj150954 ':init! '11 '#f '#f)) + (let ((__tmp151281 |gxc[1]#_g151282_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150680 __tmp151007 '12 '#f '#f)) - (let ((__tmp151009 |gxc[1]#_g151010_|)) + (##unchecked-structure-set! __obj150954 __tmp151281 '12 '#f '#f)) + (let ((__tmp151283 |gxc[1]#_g151284_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150680 __tmp151009 '13 '#f '#f)) - (let ((__tmp151011 |gxc[1]#_g151012_|)) + (##unchecked-structure-set! __obj150954 __tmp151283 '13 '#f '#f)) + (let ((__tmp151285 |gxc[1]#_g151286_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150680 __tmp151011 '14 '#f '#f)) - (let ((__tmp151013 - (cons (cons 'signature |gxc[1]#_g151014_|) - (cons (cons 'id |gxc[1]#_g151015_|) '())))) + (##unchecked-structure-set! __obj150954 __tmp151285 '14 '#f '#f)) + (let ((__tmp151287 + (cons (cons 'signature |gxc[1]#_g151288_|) + (cons (cons 'id |gxc[1]#_g151289_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150680 __tmp151013 '15 '#f '#f)) - (let ((__tmp151016 - (cons (cons 'signature |gxc[1]#_g151017_|) - (cons (cons 'id |gxc[1]#_g151018_|) '())))) + (##unchecked-structure-set! __obj150954 __tmp151287 '15 '#f '#f)) + (let ((__tmp151290 + (cons (cons 'signature |gxc[1]#_g151291_|) + (cons (cons 'id |gxc[1]#_g151292_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150680 __tmp151016 '16 '#f '#f)) - (let ((__tmp151019 - (cons (cons 'signature |gxc[1]#_g151020_|) - (cons (cons 'id |gxc[1]#_g151021_|) '())))) + (##unchecked-structure-set! __obj150954 __tmp151290 '16 '#f '#f)) + (let ((__tmp151293 + (cons (cons 'signature |gxc[1]#_g151294_|) + (cons (cons 'id |gxc[1]#_g151295_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150680 __tmp151019 '17 '#f '#f)) - (let ((__tmp151022 - (cons (cons 'signature |gxc[1]#_g151023_|) - (cons (cons 'id |gxc[1]#_g151024_|) '())))) + (##unchecked-structure-set! __obj150954 __tmp151293 '17 '#f '#f)) + (let ((__tmp151296 + (cons (cons 'signature |gxc[1]#_g151297_|) + (cons (cons 'id |gxc[1]#_g151298_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150680 __tmp151022 '18 '#f '#f)) - (let ((__tmp151025 (cons (cons 'signature |gxc[1]#_g150909_|) '()))) + (##unchecked-structure-set! __obj150954 __tmp151296 '18 '#f '#f)) + (let ((__tmp151299 (cons (cons 'signature |gxc[1]#_g151183_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150680 __tmp151025 '19 '#f '#f)) + (##unchecked-structure-set! __obj150954 __tmp151299 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150680 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150954 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150680 '() '20 '#f '#f)) - __obj150680)) + (##unchecked-structure-set! __obj150954 '() '20 '#f '#f)) + __obj150954)) (define |gxc[:0:]#!accessor| - (let ((__obj150681 + (let ((__obj150955 (let () (declare (not safe)) (##structure @@ -3521,89 +3521,89 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150681 + __obj150955 'gxc#!accessor::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150681 '!accessor '2 '#f '#f)) + (##unchecked-structure-set! __obj150955 '!accessor '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150681 '(slot checked?) '4 '#f '#f)) + (##unchecked-structure-set! __obj150955 '(slot checked?) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150681 + __obj150955 '(id signature slot checked?) '6 '#f '#f)) - (let ((__tmp151026 (cons |gxc[1]#_g150986_| '()))) + (let ((__tmp151300 (cons |gxc[1]#_g151260_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150681 __tmp151026 '3 '#f '#f)) + (##unchecked-structure-set! __obj150955 __tmp151300 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150681 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj150955 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150681 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150955 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150681 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150955 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150681 ':init! '11 '#f '#f)) - (let ((__tmp151027 |gxc[1]#_g151028_|)) + (##unchecked-structure-set! __obj150955 ':init! '11 '#f '#f)) + (let ((__tmp151301 |gxc[1]#_g151302_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150681 __tmp151027 '12 '#f '#f)) - (let ((__tmp151029 |gxc[1]#_g151030_|)) + (##unchecked-structure-set! __obj150955 __tmp151301 '12 '#f '#f)) + (let ((__tmp151303 |gxc[1]#_g151304_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150681 __tmp151029 '13 '#f '#f)) - (let ((__tmp151031 |gxc[1]#_g151032_|)) + (##unchecked-structure-set! __obj150955 __tmp151303 '13 '#f '#f)) + (let ((__tmp151305 |gxc[1]#_g151306_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150681 __tmp151031 '14 '#f '#f)) - (let ((__tmp151033 - (cons (cons 'slot |gxc[1]#_g151034_|) - (cons (cons 'checked? |gxc[1]#_g151035_|) - (cons (cons 'signature |gxc[1]#_g151036_|) - (cons (cons 'id |gxc[1]#_g151037_|) '())))))) + (##unchecked-structure-set! __obj150955 __tmp151305 '14 '#f '#f)) + (let ((__tmp151307 + (cons (cons 'slot |gxc[1]#_g151308_|) + (cons (cons 'checked? |gxc[1]#_g151309_|) + (cons (cons 'signature |gxc[1]#_g151310_|) + (cons (cons 'id |gxc[1]#_g151311_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150681 __tmp151033 '15 '#f '#f)) - (let ((__tmp151038 - (cons (cons 'slot |gxc[1]#_g151039_|) - (cons (cons 'checked? |gxc[1]#_g151040_|) - (cons (cons 'signature |gxc[1]#_g151041_|) - (cons (cons 'id |gxc[1]#_g151042_|) '())))))) + (##unchecked-structure-set! __obj150955 __tmp151307 '15 '#f '#f)) + (let ((__tmp151312 + (cons (cons 'slot |gxc[1]#_g151313_|) + (cons (cons 'checked? |gxc[1]#_g151314_|) + (cons (cons 'signature |gxc[1]#_g151315_|) + (cons (cons 'id |gxc[1]#_g151316_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150681 __tmp151038 '16 '#f '#f)) - (let ((__tmp151043 - (cons (cons 'slot |gxc[1]#_g151044_|) - (cons (cons 'checked? |gxc[1]#_g151045_|) - (cons (cons 'signature |gxc[1]#_g151046_|) - (cons (cons 'id |gxc[1]#_g151047_|) '())))))) + (##unchecked-structure-set! __obj150955 __tmp151312 '16 '#f '#f)) + (let ((__tmp151317 + (cons (cons 'slot |gxc[1]#_g151318_|) + (cons (cons 'checked? |gxc[1]#_g151319_|) + (cons (cons 'signature |gxc[1]#_g151320_|) + (cons (cons 'id |gxc[1]#_g151321_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150681 __tmp151043 '17 '#f '#f)) - (let ((__tmp151048 - (cons (cons 'slot |gxc[1]#_g151049_|) - (cons (cons 'checked? |gxc[1]#_g151050_|) - (cons (cons 'signature |gxc[1]#_g151051_|) - (cons (cons 'id |gxc[1]#_g151052_|) '())))))) + (##unchecked-structure-set! __obj150955 __tmp151317 '17 '#f '#f)) + (let ((__tmp151322 + (cons (cons 'slot |gxc[1]#_g151323_|) + (cons (cons 'checked? |gxc[1]#_g151324_|) + (cons (cons 'signature |gxc[1]#_g151325_|) + (cons (cons 'id |gxc[1]#_g151326_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150681 __tmp151048 '18 '#f '#f)) - (let ((__tmp151053 (cons (cons 'signature |gxc[1]#_g150909_|) '()))) + (##unchecked-structure-set! __obj150955 __tmp151322 '18 '#f '#f)) + (let ((__tmp151327 (cons (cons 'signature |gxc[1]#_g151183_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150681 __tmp151053 '19 '#f '#f)) + (##unchecked-structure-set! __obj150955 __tmp151327 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150681 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150955 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150681 '() '20 '#f '#f)) - __obj150681)) + (##unchecked-structure-set! __obj150955 '() '20 '#f '#f)) + __obj150955)) (define |gxc[:0:]#!mutator| - (let ((__obj150682 + (let ((__obj150956 (let () (declare (not safe)) (##structure @@ -3631,85 +3631,85 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150682 'gxc#!mutator::t '1 '#f '#f)) + (##unchecked-structure-set! __obj150956 'gxc#!mutator::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150682 '!mutator '2 '#f '#f)) + (##unchecked-structure-set! __obj150956 '!mutator '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150682 '(slot checked?) '4 '#f '#f)) + (##unchecked-structure-set! __obj150956 '(slot checked?) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150682 + __obj150956 '(id signature slot checked?) '6 '#f '#f)) - (let ((__tmp151054 (cons |gxc[1]#_g150986_| '()))) + (let ((__tmp151328 (cons |gxc[1]#_g151260_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150682 __tmp151054 '3 '#f '#f)) + (##unchecked-structure-set! __obj150956 __tmp151328 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150682 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj150956 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150682 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150956 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150682 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150956 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150682 ':init! '11 '#f '#f)) - (let ((__tmp151055 |gxc[1]#_g151056_|)) + (##unchecked-structure-set! __obj150956 ':init! '11 '#f '#f)) + (let ((__tmp151329 |gxc[1]#_g151330_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150682 __tmp151055 '12 '#f '#f)) - (let ((__tmp151057 |gxc[1]#_g151058_|)) + (##unchecked-structure-set! __obj150956 __tmp151329 '12 '#f '#f)) + (let ((__tmp151331 |gxc[1]#_g151332_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150682 __tmp151057 '13 '#f '#f)) - (let ((__tmp151059 |gxc[1]#_g151060_|)) + (##unchecked-structure-set! __obj150956 __tmp151331 '13 '#f '#f)) + (let ((__tmp151333 |gxc[1]#_g151334_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150682 __tmp151059 '14 '#f '#f)) - (let ((__tmp151061 - (cons (cons 'slot |gxc[1]#_g151062_|) - (cons (cons 'checked? |gxc[1]#_g151063_|) - (cons (cons 'signature |gxc[1]#_g151064_|) - (cons (cons 'id |gxc[1]#_g151065_|) '())))))) + (##unchecked-structure-set! __obj150956 __tmp151333 '14 '#f '#f)) + (let ((__tmp151335 + (cons (cons 'slot |gxc[1]#_g151336_|) + (cons (cons 'checked? |gxc[1]#_g151337_|) + (cons (cons 'signature |gxc[1]#_g151338_|) + (cons (cons 'id |gxc[1]#_g151339_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150682 __tmp151061 '15 '#f '#f)) - (let ((__tmp151066 - (cons (cons 'slot |gxc[1]#_g151067_|) - (cons (cons 'checked? |gxc[1]#_g151068_|) - (cons (cons 'signature |gxc[1]#_g151069_|) - (cons (cons 'id |gxc[1]#_g151070_|) '())))))) + (##unchecked-structure-set! __obj150956 __tmp151335 '15 '#f '#f)) + (let ((__tmp151340 + (cons (cons 'slot |gxc[1]#_g151341_|) + (cons (cons 'checked? |gxc[1]#_g151342_|) + (cons (cons 'signature |gxc[1]#_g151343_|) + (cons (cons 'id |gxc[1]#_g151344_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150682 __tmp151066 '16 '#f '#f)) - (let ((__tmp151071 - (cons (cons 'slot |gxc[1]#_g151072_|) - (cons (cons 'checked? |gxc[1]#_g151073_|) - (cons (cons 'signature |gxc[1]#_g151074_|) - (cons (cons 'id |gxc[1]#_g151075_|) '())))))) + (##unchecked-structure-set! __obj150956 __tmp151340 '16 '#f '#f)) + (let ((__tmp151345 + (cons (cons 'slot |gxc[1]#_g151346_|) + (cons (cons 'checked? |gxc[1]#_g151347_|) + (cons (cons 'signature |gxc[1]#_g151348_|) + (cons (cons 'id |gxc[1]#_g151349_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150682 __tmp151071 '17 '#f '#f)) - (let ((__tmp151076 - (cons (cons 'slot |gxc[1]#_g151077_|) - (cons (cons 'checked? |gxc[1]#_g151078_|) - (cons (cons 'signature |gxc[1]#_g151079_|) - (cons (cons 'id |gxc[1]#_g151080_|) '())))))) + (##unchecked-structure-set! __obj150956 __tmp151345 '17 '#f '#f)) + (let ((__tmp151350 + (cons (cons 'slot |gxc[1]#_g151351_|) + (cons (cons 'checked? |gxc[1]#_g151352_|) + (cons (cons 'signature |gxc[1]#_g151353_|) + (cons (cons 'id |gxc[1]#_g151354_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150682 __tmp151076 '18 '#f '#f)) - (let ((__tmp151081 (cons (cons 'signature |gxc[1]#_g150909_|) '()))) + (##unchecked-structure-set! __obj150956 __tmp151350 '18 '#f '#f)) + (let ((__tmp151355 (cons (cons 'signature |gxc[1]#_g151183_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150682 __tmp151081 '19 '#f '#f)) + (##unchecked-structure-set! __obj150956 __tmp151355 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150682 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150956 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150682 '() '20 '#f '#f)) - __obj150682)) + (##unchecked-structure-set! __obj150956 '() '20 '#f '#f)) + __obj150956)) (define |gxc[:0:]#!interface| - (let ((__obj150683 + (let ((__obj150957 (let () (declare (not safe)) (##structure @@ -3738,76 +3738,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150683 + __obj150957 'gxc#!interface::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150683 '!interface '2 '#f '#f)) + (##unchecked-structure-set! __obj150957 '!interface '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150683 '(methods) '4 '#f '#f)) + (##unchecked-structure-set! __obj150957 '(methods) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150683 '(id methods) '6 '#f '#f)) - (let ((__tmp151082 (cons |gxc[1]#_g150829_| '()))) + (##unchecked-structure-set! __obj150957 '(id methods) '6 '#f '#f)) + (let ((__tmp151356 (cons |gxc[1]#_g151103_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150683 __tmp151082 '3 '#f '#f)) + (##unchecked-structure-set! __obj150957 __tmp151356 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150683 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj150957 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150683 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150957 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150683 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150957 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150683 '#f '11 '#f '#f)) - (let ((__tmp151083 |gxc[1]#_g151084_|)) + (##unchecked-structure-set! __obj150957 '#f '11 '#f '#f)) + (let ((__tmp151357 |gxc[1]#_g151358_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150683 __tmp151083 '12 '#f '#f)) - (let ((__tmp151085 |gxc[1]#_g151086_|)) + (##unchecked-structure-set! __obj150957 __tmp151357 '12 '#f '#f)) + (let ((__tmp151359 |gxc[1]#_g151360_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150683 __tmp151085 '13 '#f '#f)) - (let ((__tmp151087 |gxc[1]#_g151088_|)) + (##unchecked-structure-set! __obj150957 __tmp151359 '13 '#f '#f)) + (let ((__tmp151361 |gxc[1]#_g151362_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150683 __tmp151087 '14 '#f '#f)) - (let ((__tmp151089 - (cons (cons 'methods |gxc[1]#_g151090_|) - (cons (cons 'id |gxc[1]#_g151091_|) '())))) + (##unchecked-structure-set! __obj150957 __tmp151361 '14 '#f '#f)) + (let ((__tmp151363 + (cons (cons 'methods |gxc[1]#_g151364_|) + (cons (cons 'id |gxc[1]#_g151365_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150683 __tmp151089 '15 '#f '#f)) - (let ((__tmp151092 - (cons (cons 'methods |gxc[1]#_g151093_|) - (cons (cons 'id |gxc[1]#_g151094_|) '())))) + (##unchecked-structure-set! __obj150957 __tmp151363 '15 '#f '#f)) + (let ((__tmp151366 + (cons (cons 'methods |gxc[1]#_g151367_|) + (cons (cons 'id |gxc[1]#_g151368_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150683 __tmp151092 '16 '#f '#f)) - (let ((__tmp151095 - (cons (cons 'methods |gxc[1]#_g151096_|) - (cons (cons 'id |gxc[1]#_g151097_|) '())))) + (##unchecked-structure-set! __obj150957 __tmp151366 '16 '#f '#f)) + (let ((__tmp151369 + (cons (cons 'methods |gxc[1]#_g151370_|) + (cons (cons 'id |gxc[1]#_g151371_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150683 __tmp151095 '17 '#f '#f)) - (let ((__tmp151098 - (cons (cons 'methods |gxc[1]#_g151099_|) - (cons (cons 'id |gxc[1]#_g151100_|) '())))) + (##unchecked-structure-set! __obj150957 __tmp151369 '17 '#f '#f)) + (let ((__tmp151372 + (cons (cons 'methods |gxc[1]#_g151373_|) + (cons (cons 'id |gxc[1]#_g151374_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150683 __tmp151098 '18 '#f '#f)) + (##unchecked-structure-set! __obj150957 __tmp151372 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150683 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150957 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150683 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150957 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150683 '() '20 '#f '#f)) - __obj150683)) + (##unchecked-structure-set! __obj150957 '() '20 '#f '#f)) + __obj150957)) (define |gxc[:0:]#!lambda| - (let ((__obj150684 + (let ((__obj150958 (let () (declare (not safe)) (##structure @@ -3835,14 +3835,14 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150684 'gxc#!lambda::t '1 '#f '#f)) + (##unchecked-structure-set! __obj150958 'gxc#!lambda::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150684 '!lambda '2 '#f '#f)) + (##unchecked-structure-set! __obj150958 '!lambda '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150684 + __obj150958 '(arity dispatch inline inline-typedecl) '4 '#f @@ -3850,99 +3850,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150684 + __obj150958 '(id signature arity dispatch inline inline-typedecl) '6 '#f '#f)) - (let ((__tmp151101 (cons |gxc[1]#_g150986_| '()))) + (let ((__tmp151375 (cons |gxc[1]#_g151260_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150684 __tmp151101 '3 '#f '#f)) + (##unchecked-structure-set! __obj150958 __tmp151375 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150684 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj150958 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150684 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150958 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150684 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150958 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150684 ':init! '11 '#f '#f)) - (let ((__tmp151102 |gxc[1]#_g151103_|)) + (##unchecked-structure-set! __obj150958 ':init! '11 '#f '#f)) + (let ((__tmp151376 |gxc[1]#_g151377_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150684 __tmp151102 '12 '#f '#f)) - (let ((__tmp151104 |gxc[1]#_g151105_|)) + (##unchecked-structure-set! __obj150958 __tmp151376 '12 '#f '#f)) + (let ((__tmp151378 |gxc[1]#_g151379_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150684 __tmp151104 '13 '#f '#f)) - (let ((__tmp151106 |gxc[1]#_g151107_|)) + (##unchecked-structure-set! __obj150958 __tmp151378 '13 '#f '#f)) + (let ((__tmp151380 |gxc[1]#_g151381_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150684 __tmp151106 '14 '#f '#f)) - (let ((__tmp151108 - (cons (cons 'arity |gxc[1]#_g151109_|) - (cons (cons 'dispatch |gxc[1]#_g151110_|) - (cons (cons 'inline |gxc[1]#_g151111_|) + (##unchecked-structure-set! __obj150958 __tmp151380 '14 '#f '#f)) + (let ((__tmp151382 + (cons (cons 'arity |gxc[1]#_g151383_|) + (cons (cons 'dispatch |gxc[1]#_g151384_|) + (cons (cons 'inline |gxc[1]#_g151385_|) (cons (cons 'inline-typedecl - |gxc[1]#_g151112_|) + |gxc[1]#_g151386_|) (cons (cons 'signature - |gxc[1]#_g151113_|) + |gxc[1]#_g151387_|) (cons (cons 'id - |gxc[1]#_g151114_|) + |gxc[1]#_g151388_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj150684 __tmp151108 '15 '#f '#f)) - (let ((__tmp151115 - (cons (cons 'arity |gxc[1]#_g151116_|) - (cons (cons 'dispatch |gxc[1]#_g151117_|) - (cons (cons 'inline |gxc[1]#_g151118_|) + (##unchecked-structure-set! __obj150958 __tmp151382 '15 '#f '#f)) + (let ((__tmp151389 + (cons (cons 'arity |gxc[1]#_g151390_|) + (cons (cons 'dispatch |gxc[1]#_g151391_|) + (cons (cons 'inline |gxc[1]#_g151392_|) (cons (cons 'inline-typedecl - |gxc[1]#_g151119_|) + |gxc[1]#_g151393_|) (cons (cons 'signature - |gxc[1]#_g151120_|) + |gxc[1]#_g151394_|) (cons (cons 'id - |gxc[1]#_g151121_|) + |gxc[1]#_g151395_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj150684 __tmp151115 '16 '#f '#f)) - (let ((__tmp151122 - (cons (cons 'arity |gxc[1]#_g151123_|) - (cons (cons 'dispatch |gxc[1]#_g151124_|) - (cons (cons 'inline |gxc[1]#_g151125_|) + (##unchecked-structure-set! __obj150958 __tmp151389 '16 '#f '#f)) + (let ((__tmp151396 + (cons (cons 'arity |gxc[1]#_g151397_|) + (cons (cons 'dispatch |gxc[1]#_g151398_|) + (cons (cons 'inline |gxc[1]#_g151399_|) (cons (cons 'inline-typedecl - |gxc[1]#_g151126_|) + |gxc[1]#_g151400_|) (cons (cons 'signature - |gxc[1]#_g151127_|) + |gxc[1]#_g151401_|) (cons (cons 'id - |gxc[1]#_g151128_|) + |gxc[1]#_g151402_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj150684 __tmp151122 '17 '#f '#f)) - (let ((__tmp151129 - (cons (cons 'arity |gxc[1]#_g151130_|) - (cons (cons 'dispatch |gxc[1]#_g151131_|) - (cons (cons 'inline |gxc[1]#_g151132_|) + (##unchecked-structure-set! __obj150958 __tmp151396 '17 '#f '#f)) + (let ((__tmp151403 + (cons (cons 'arity |gxc[1]#_g151404_|) + (cons (cons 'dispatch |gxc[1]#_g151405_|) + (cons (cons 'inline |gxc[1]#_g151406_|) (cons (cons 'inline-typedecl - |gxc[1]#_g151133_|) + |gxc[1]#_g151407_|) (cons (cons 'signature - |gxc[1]#_g151134_|) + |gxc[1]#_g151408_|) (cons (cons 'id - |gxc[1]#_g151135_|) + |gxc[1]#_g151409_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj150684 __tmp151129 '18 '#f '#f)) - (let ((__tmp151136 (cons (cons 'signature |gxc[1]#_g150909_|) '()))) + (##unchecked-structure-set! __obj150958 __tmp151403 '18 '#f '#f)) + (let ((__tmp151410 (cons (cons 'signature |gxc[1]#_g151183_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150684 __tmp151136 '19 '#f '#f)) + (##unchecked-structure-set! __obj150958 __tmp151410 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150684 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150958 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150684 '() '20 '#f '#f)) - __obj150684)) + (##unchecked-structure-set! __obj150958 '() '20 '#f '#f)) + __obj150958)) (define |gxc[:0:]#!case-lambda| - (let ((__obj150685 + (let ((__obj150959 (let () (declare (not safe)) (##structure @@ -3971,85 +3971,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150685 + __obj150959 'gxc#!case-lambda::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150685 '!case-lambda '2 '#f '#f)) + (##unchecked-structure-set! __obj150959 '!case-lambda '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150685 '(clauses) '4 '#f '#f)) + (##unchecked-structure-set! __obj150959 '(clauses) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150685 + __obj150959 '(id signature clauses) '6 '#f '#f)) - (let ((__tmp151137 (cons |gxc[1]#_g150986_| '()))) + (let ((__tmp151411 (cons |gxc[1]#_g151260_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150685 __tmp151137 '3 '#f '#f)) + (##unchecked-structure-set! __obj150959 __tmp151411 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150685 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj150959 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150685 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150959 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150685 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150959 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150685 ':init! '11 '#f '#f)) - (let ((__tmp151138 |gxc[1]#_g151139_|)) + (##unchecked-structure-set! __obj150959 ':init! '11 '#f '#f)) + (let ((__tmp151412 |gxc[1]#_g151413_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150685 __tmp151138 '12 '#f '#f)) - (let ((__tmp151140 |gxc[1]#_g151141_|)) + (##unchecked-structure-set! __obj150959 __tmp151412 '12 '#f '#f)) + (let ((__tmp151414 |gxc[1]#_g151415_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150685 __tmp151140 '13 '#f '#f)) - (let ((__tmp151142 |gxc[1]#_g151143_|)) + (##unchecked-structure-set! __obj150959 __tmp151414 '13 '#f '#f)) + (let ((__tmp151416 |gxc[1]#_g151417_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150685 __tmp151142 '14 '#f '#f)) - (let ((__tmp151144 - (cons (cons 'clauses |gxc[1]#_g151145_|) - (cons (cons 'signature |gxc[1]#_g151146_|) - (cons (cons 'id |gxc[1]#_g151147_|) '()))))) + (##unchecked-structure-set! __obj150959 __tmp151416 '14 '#f '#f)) + (let ((__tmp151418 + (cons (cons 'clauses |gxc[1]#_g151419_|) + (cons (cons 'signature |gxc[1]#_g151420_|) + (cons (cons 'id |gxc[1]#_g151421_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj150685 __tmp151144 '15 '#f '#f)) - (let ((__tmp151148 - (cons (cons 'clauses |gxc[1]#_g151149_|) - (cons (cons 'signature |gxc[1]#_g151150_|) - (cons (cons 'id |gxc[1]#_g151151_|) '()))))) + (##unchecked-structure-set! __obj150959 __tmp151418 '15 '#f '#f)) + (let ((__tmp151422 + (cons (cons 'clauses |gxc[1]#_g151423_|) + (cons (cons 'signature |gxc[1]#_g151424_|) + (cons (cons 'id |gxc[1]#_g151425_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj150685 __tmp151148 '16 '#f '#f)) - (let ((__tmp151152 - (cons (cons 'clauses |gxc[1]#_g151153_|) - (cons (cons 'signature |gxc[1]#_g151154_|) - (cons (cons 'id |gxc[1]#_g151155_|) '()))))) + (##unchecked-structure-set! __obj150959 __tmp151422 '16 '#f '#f)) + (let ((__tmp151426 + (cons (cons 'clauses |gxc[1]#_g151427_|) + (cons (cons 'signature |gxc[1]#_g151428_|) + (cons (cons 'id |gxc[1]#_g151429_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj150685 __tmp151152 '17 '#f '#f)) - (let ((__tmp151156 - (cons (cons 'clauses |gxc[1]#_g151157_|) - (cons (cons 'signature |gxc[1]#_g151158_|) - (cons (cons 'id |gxc[1]#_g151159_|) '()))))) + (##unchecked-structure-set! __obj150959 __tmp151426 '17 '#f '#f)) + (let ((__tmp151430 + (cons (cons 'clauses |gxc[1]#_g151431_|) + (cons (cons 'signature |gxc[1]#_g151432_|) + (cons (cons 'id |gxc[1]#_g151433_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj150685 __tmp151156 '18 '#f '#f)) - (let ((__tmp151160 (cons (cons 'signature |gxc[1]#_g150909_|) '()))) + (##unchecked-structure-set! __obj150959 __tmp151430 '18 '#f '#f)) + (let ((__tmp151434 (cons (cons 'signature |gxc[1]#_g151183_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150685 __tmp151160 '19 '#f '#f)) + (##unchecked-structure-set! __obj150959 __tmp151434 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150685 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150959 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150685 '() '20 '#f '#f)) - __obj150685)) + (##unchecked-structure-set! __obj150959 '() '20 '#f '#f)) + __obj150959)) (define |gxc[:0:]#!kw-lambda| - (let ((__obj150686 + (let ((__obj150960 (let () (declare (not safe)) (##structure @@ -4078,18 +4078,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150686 + __obj150960 'gxc#!kw-lambda::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150686 '!kw-lambda '2 '#f '#f)) + (##unchecked-structure-set! __obj150960 '!kw-lambda '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150686 + __obj150960 '(table dispatch) '4 '#f @@ -4097,75 +4097,75 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150686 + __obj150960 '(id signature table dispatch) '6 '#f '#f)) - (let ((__tmp151161 (cons |gxc[1]#_g150986_| '()))) + (let ((__tmp151435 (cons |gxc[1]#_g151260_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150686 __tmp151161 '3 '#f '#f)) + (##unchecked-structure-set! __obj150960 __tmp151435 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150686 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj150960 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150686 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150960 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150686 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150960 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150686 ':init! '11 '#f '#f)) - (let ((__tmp151162 |gxc[1]#_g151163_|)) + (##unchecked-structure-set! __obj150960 ':init! '11 '#f '#f)) + (let ((__tmp151436 |gxc[1]#_g151437_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150686 __tmp151162 '12 '#f '#f)) - (let ((__tmp151164 |gxc[1]#_g151165_|)) + (##unchecked-structure-set! __obj150960 __tmp151436 '12 '#f '#f)) + (let ((__tmp151438 |gxc[1]#_g151439_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150686 __tmp151164 '13 '#f '#f)) - (let ((__tmp151166 |gxc[1]#_g151167_|)) + (##unchecked-structure-set! __obj150960 __tmp151438 '13 '#f '#f)) + (let ((__tmp151440 |gxc[1]#_g151441_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150686 __tmp151166 '14 '#f '#f)) - (let ((__tmp151168 - (cons (cons 'table |gxc[1]#_g151169_|) - (cons (cons 'dispatch |gxc[1]#_g151170_|) - (cons (cons 'signature |gxc[1]#_g151171_|) - (cons (cons 'id |gxc[1]#_g151172_|) '())))))) + (##unchecked-structure-set! __obj150960 __tmp151440 '14 '#f '#f)) + (let ((__tmp151442 + (cons (cons 'table |gxc[1]#_g151443_|) + (cons (cons 'dispatch |gxc[1]#_g151444_|) + (cons (cons 'signature |gxc[1]#_g151445_|) + (cons (cons 'id |gxc[1]#_g151446_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150686 __tmp151168 '15 '#f '#f)) - (let ((__tmp151173 - (cons (cons 'table |gxc[1]#_g151174_|) - (cons (cons 'dispatch |gxc[1]#_g151175_|) - (cons (cons 'signature |gxc[1]#_g151176_|) - (cons (cons 'id |gxc[1]#_g151177_|) '())))))) + (##unchecked-structure-set! __obj150960 __tmp151442 '15 '#f '#f)) + (let ((__tmp151447 + (cons (cons 'table |gxc[1]#_g151448_|) + (cons (cons 'dispatch |gxc[1]#_g151449_|) + (cons (cons 'signature |gxc[1]#_g151450_|) + (cons (cons 'id |gxc[1]#_g151451_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150686 __tmp151173 '16 '#f '#f)) - (let ((__tmp151178 - (cons (cons 'table |gxc[1]#_g151179_|) - (cons (cons 'dispatch |gxc[1]#_g151180_|) - (cons (cons 'signature |gxc[1]#_g151181_|) - (cons (cons 'id |gxc[1]#_g151182_|) '())))))) + (##unchecked-structure-set! __obj150960 __tmp151447 '16 '#f '#f)) + (let ((__tmp151452 + (cons (cons 'table |gxc[1]#_g151453_|) + (cons (cons 'dispatch |gxc[1]#_g151454_|) + (cons (cons 'signature |gxc[1]#_g151455_|) + (cons (cons 'id |gxc[1]#_g151456_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150686 __tmp151178 '17 '#f '#f)) - (let ((__tmp151183 - (cons (cons 'table |gxc[1]#_g151184_|) - (cons (cons 'dispatch |gxc[1]#_g151185_|) - (cons (cons 'signature |gxc[1]#_g151186_|) - (cons (cons 'id |gxc[1]#_g151187_|) '())))))) + (##unchecked-structure-set! __obj150960 __tmp151452 '17 '#f '#f)) + (let ((__tmp151457 + (cons (cons 'table |gxc[1]#_g151458_|) + (cons (cons 'dispatch |gxc[1]#_g151459_|) + (cons (cons 'signature |gxc[1]#_g151460_|) + (cons (cons 'id |gxc[1]#_g151461_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150686 __tmp151183 '18 '#f '#f)) - (let ((__tmp151188 (cons (cons 'signature |gxc[1]#_g150909_|) '()))) + (##unchecked-structure-set! __obj150960 __tmp151457 '18 '#f '#f)) + (let ((__tmp151462 (cons (cons 'signature |gxc[1]#_g151183_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150686 __tmp151188 '19 '#f '#f)) + (##unchecked-structure-set! __obj150960 __tmp151462 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150686 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150960 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150686 '() '20 '#f '#f)) - __obj150686)) + (##unchecked-structure-set! __obj150960 '() '20 '#f '#f)) + __obj150960)) (define |gxc[:0:]#!kw-lambda-primary| - (let ((__obj150687 + (let ((__obj150961 (let () (declare (not safe)) (##structure @@ -4194,7 +4194,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150687 + __obj150961 'gxc#!kw-lambda-primary::t '1 '#f @@ -4202,86 +4202,86 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150687 + __obj150961 '!kw-lambda-primary '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150687 '(keys main) '4 '#f '#f)) + (##unchecked-structure-set! __obj150961 '(keys main) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150687 + __obj150961 '(id signature keys main) '6 '#f '#f)) - (let ((__tmp151189 (cons |gxc[1]#_g150986_| '()))) + (let ((__tmp151463 (cons |gxc[1]#_g151260_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150687 __tmp151189 '3 '#f '#f)) + (##unchecked-structure-set! __obj150961 __tmp151463 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150687 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj150961 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150687 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150961 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150687 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150961 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150687 ':init! '11 '#f '#f)) - (let ((__tmp151190 |gxc[1]#_g151191_|)) + (##unchecked-structure-set! __obj150961 ':init! '11 '#f '#f)) + (let ((__tmp151464 |gxc[1]#_g151465_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150687 __tmp151190 '12 '#f '#f)) - (let ((__tmp151192 |gxc[1]#_g151193_|)) + (##unchecked-structure-set! __obj150961 __tmp151464 '12 '#f '#f)) + (let ((__tmp151466 |gxc[1]#_g151467_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150687 __tmp151192 '13 '#f '#f)) - (let ((__tmp151194 |gxc[1]#_g151195_|)) + (##unchecked-structure-set! __obj150961 __tmp151466 '13 '#f '#f)) + (let ((__tmp151468 |gxc[1]#_g151469_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150687 __tmp151194 '14 '#f '#f)) - (let ((__tmp151196 - (cons (cons 'keys |gxc[1]#_g151197_|) - (cons (cons 'main |gxc[1]#_g151198_|) - (cons (cons 'signature |gxc[1]#_g151199_|) - (cons (cons 'id |gxc[1]#_g151200_|) '())))))) + (##unchecked-structure-set! __obj150961 __tmp151468 '14 '#f '#f)) + (let ((__tmp151470 + (cons (cons 'keys |gxc[1]#_g151471_|) + (cons (cons 'main |gxc[1]#_g151472_|) + (cons (cons 'signature |gxc[1]#_g151473_|) + (cons (cons 'id |gxc[1]#_g151474_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150687 __tmp151196 '15 '#f '#f)) - (let ((__tmp151201 - (cons (cons 'keys |gxc[1]#_g151202_|) - (cons (cons 'main |gxc[1]#_g151203_|) - (cons (cons 'signature |gxc[1]#_g151204_|) - (cons (cons 'id |gxc[1]#_g151205_|) '())))))) - (declare (not safe)) - (##unchecked-structure-set! __obj150687 __tmp151201 '16 '#f '#f)) - (let ((__tmp151206 - (cons (cons 'keys |gxc[1]#_g151207_|) - (cons (cons 'main |gxc[1]#_g151208_|) - (cons (cons 'signature |gxc[1]#_g151209_|) - (cons (cons 'id |gxc[1]#_g151210_|) '())))))) - (declare (not safe)) - (##unchecked-structure-set! __obj150687 __tmp151206 '17 '#f '#f)) - (let ((__tmp151211 - (cons (cons 'keys |gxc[1]#_g151212_|) - (cons (cons 'main |gxc[1]#_g151213_|) - (cons (cons 'signature |gxc[1]#_g151214_|) - (cons (cons 'id |gxc[1]#_g151215_|) '())))))) + (##unchecked-structure-set! __obj150961 __tmp151470 '15 '#f '#f)) + (let ((__tmp151475 + (cons (cons 'keys |gxc[1]#_g151476_|) + (cons (cons 'main |gxc[1]#_g151477_|) + (cons (cons 'signature |gxc[1]#_g151478_|) + (cons (cons 'id |gxc[1]#_g151479_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150687 __tmp151211 '18 '#f '#f)) - (let ((__tmp151216 (cons (cons 'signature |gxc[1]#_g150909_|) '()))) + (##unchecked-structure-set! __obj150961 __tmp151475 '16 '#f '#f)) + (let ((__tmp151480 + (cons (cons 'keys |gxc[1]#_g151481_|) + (cons (cons 'main |gxc[1]#_g151482_|) + (cons (cons 'signature |gxc[1]#_g151483_|) + (cons (cons 'id |gxc[1]#_g151484_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj150687 __tmp151216 '19 '#f '#f)) + (##unchecked-structure-set! __obj150961 __tmp151480 '17 '#f '#f)) + (let ((__tmp151485 + (cons (cons 'keys |gxc[1]#_g151486_|) + (cons (cons 'main |gxc[1]#_g151487_|) + (cons (cons 'signature |gxc[1]#_g151488_|) + (cons (cons 'id |gxc[1]#_g151489_|) '())))))) + (declare (not safe)) + (##unchecked-structure-set! __obj150961 __tmp151485 '18 '#f '#f)) + (let ((__tmp151490 (cons (cons 'signature |gxc[1]#_g151183_|) '()))) + (declare (not safe)) + (##unchecked-structure-set! __obj150961 __tmp151490 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150687 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150961 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150687 '() '20 '#f '#f)) - __obj150687)) + (##unchecked-structure-set! __obj150961 '() '20 '#f '#f)) + __obj150961)) (define |gxc[:0:]#!primitive| - (let ((__obj150688 + (let ((__obj150962 (let () (declare (not safe)) (##structure @@ -4310,68 +4310,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150688 + __obj150962 'gxc#!primitive::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150688 '!primitive '2 '#f '#f)) + (##unchecked-structure-set! __obj150962 '!primitive '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150688 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150962 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150688 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj150962 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150688 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj150962 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150688 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150962 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150688 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150962 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150688 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150962 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150688 '#f '11 '#f '#f)) - (let ((__tmp151217 |gxc[1]#_g151218_|)) + (##unchecked-structure-set! __obj150962 '#f '11 '#f '#f)) + (let ((__tmp151491 |gxc[1]#_g151492_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150688 __tmp151217 '12 '#f '#f)) - (let ((__tmp151219 |gxc[1]#_g151220_|)) + (##unchecked-structure-set! __obj150962 __tmp151491 '12 '#f '#f)) + (let ((__tmp151493 |gxc[1]#_g151494_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150688 __tmp151219 '13 '#f '#f)) - (let ((__tmp151221 |gxc[1]#_g151222_|)) + (##unchecked-structure-set! __obj150962 __tmp151493 '13 '#f '#f)) + (let ((__tmp151495 |gxc[1]#_g151496_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150688 __tmp151221 '14 '#f '#f)) + (##unchecked-structure-set! __obj150962 __tmp151495 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150688 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150962 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150688 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150962 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150688 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150962 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150688 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150962 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150688 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150962 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150688 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150962 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150688 '() '20 '#f '#f)) - __obj150688)) + (##unchecked-structure-set! __obj150962 '() '20 '#f '#f)) + __obj150962)) (define |gxc[:0:]#!primitive-predicate| - (let ((__obj150689 + (let ((__obj150963 (let () (declare (not safe)) (##structure @@ -4400,7 +4400,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150689 + __obj150963 'gxc#!primitive-predicate::t '1 '#f @@ -4408,74 +4408,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150689 + __obj150963 '!primitive-predicate '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150689 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150963 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150689 '(id signature) '6 '#f '#f)) - (let ((__tmp151223 - (cons |gxc[1]#_g151224_| (cons |gxc[1]#_g150986_| '())))) + (##unchecked-structure-set! __obj150963 '(id signature) '6 '#f '#f)) + (let ((__tmp151497 + (cons |gxc[1]#_g151498_| (cons |gxc[1]#_g151260_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150689 __tmp151223 '3 '#f '#f)) + (##unchecked-structure-set! __obj150963 __tmp151497 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150689 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj150963 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150689 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150963 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150689 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150963 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150689 ':init! '11 '#f '#f)) - (let ((__tmp151225 |gxc[1]#_g151226_|)) + (##unchecked-structure-set! __obj150963 ':init! '11 '#f '#f)) + (let ((__tmp151499 |gxc[1]#_g151500_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150689 __tmp151225 '12 '#f '#f)) - (let ((__tmp151227 |gxc[1]#_g151228_|)) + (##unchecked-structure-set! __obj150963 __tmp151499 '12 '#f '#f)) + (let ((__tmp151501 |gxc[1]#_g151502_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150689 __tmp151227 '13 '#f '#f)) - (let ((__tmp151229 |gxc[1]#_g151230_|)) + (##unchecked-structure-set! __obj150963 __tmp151501 '13 '#f '#f)) + (let ((__tmp151503 |gxc[1]#_g151504_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150689 __tmp151229 '14 '#f '#f)) - (let ((__tmp151231 - (cons (cons 'signature |gxc[1]#_g151232_|) - (cons (cons 'id |gxc[1]#_g151233_|) '())))) + (##unchecked-structure-set! __obj150963 __tmp151503 '14 '#f '#f)) + (let ((__tmp151505 + (cons (cons 'signature |gxc[1]#_g151506_|) + (cons (cons 'id |gxc[1]#_g151507_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150689 __tmp151231 '15 '#f '#f)) - (let ((__tmp151234 - (cons (cons 'signature |gxc[1]#_g151235_|) - (cons (cons 'id |gxc[1]#_g151236_|) '())))) + (##unchecked-structure-set! __obj150963 __tmp151505 '15 '#f '#f)) + (let ((__tmp151508 + (cons (cons 'signature |gxc[1]#_g151509_|) + (cons (cons 'id |gxc[1]#_g151510_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150689 __tmp151234 '16 '#f '#f)) - (let ((__tmp151237 - (cons (cons 'signature |gxc[1]#_g151238_|) - (cons (cons 'id |gxc[1]#_g151239_|) '())))) + (##unchecked-structure-set! __obj150963 __tmp151508 '16 '#f '#f)) + (let ((__tmp151511 + (cons (cons 'signature |gxc[1]#_g151512_|) + (cons (cons 'id |gxc[1]#_g151513_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150689 __tmp151237 '17 '#f '#f)) - (let ((__tmp151240 - (cons (cons 'signature |gxc[1]#_g151241_|) - (cons (cons 'id |gxc[1]#_g151242_|) '())))) + (##unchecked-structure-set! __obj150963 __tmp151511 '17 '#f '#f)) + (let ((__tmp151514 + (cons (cons 'signature |gxc[1]#_g151515_|) + (cons (cons 'id |gxc[1]#_g151516_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150689 __tmp151240 '18 '#f '#f)) - (let ((__tmp151243 (cons (cons 'signature |gxc[1]#_g150909_|) '()))) + (##unchecked-structure-set! __obj150963 __tmp151514 '18 '#f '#f)) + (let ((__tmp151517 (cons (cons 'signature |gxc[1]#_g151183_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150689 __tmp151243 '19 '#f '#f)) + (##unchecked-structure-set! __obj150963 __tmp151517 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150689 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150963 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150689 '() '20 '#f '#f)) - __obj150689)) + (##unchecked-structure-set! __obj150963 '() '20 '#f '#f)) + __obj150963)) (define |gxc[:0:]#!primitive-lambda| - (let ((__obj150690 + (let ((__obj150964 (let () (declare (not safe)) (##structure @@ -4504,7 +4504,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150690 + __obj150964 'gxc#!primitive-lambda::t '1 '#f @@ -4512,111 +4512,111 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150690 + __obj150964 '!primitive-lambda '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150690 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150964 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150690 + __obj150964 '(id signature arity dispatch inline inline-typedecl) '6 '#f '#f)) - (let ((__tmp151244 - (cons |gxc[1]#_g151224_| (cons |gxc[1]#_g151245_| '())))) + (let ((__tmp151518 + (cons |gxc[1]#_g151498_| (cons |gxc[1]#_g151519_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150690 __tmp151244 '3 '#f '#f)) + (##unchecked-structure-set! __obj150964 __tmp151518 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150690 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj150964 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150690 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150964 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150690 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150964 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150690 ':init! '11 '#f '#f)) - (let ((__tmp151246 |gxc[1]#_g151247_|)) + (##unchecked-structure-set! __obj150964 ':init! '11 '#f '#f)) + (let ((__tmp151520 |gxc[1]#_g151521_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150690 __tmp151246 '12 '#f '#f)) - (let ((__tmp151248 |gxc[1]#_g151249_|)) + (##unchecked-structure-set! __obj150964 __tmp151520 '12 '#f '#f)) + (let ((__tmp151522 |gxc[1]#_g151523_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150690 __tmp151248 '13 '#f '#f)) - (let ((__tmp151250 |gxc[1]#_g151251_|)) + (##unchecked-structure-set! __obj150964 __tmp151522 '13 '#f '#f)) + (let ((__tmp151524 |gxc[1]#_g151525_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150690 __tmp151250 '14 '#f '#f)) - (let ((__tmp151252 - (cons (cons 'arity |gxc[1]#_g151253_|) - (cons (cons 'dispatch |gxc[1]#_g151254_|) - (cons (cons 'inline |gxc[1]#_g151255_|) + (##unchecked-structure-set! __obj150964 __tmp151524 '14 '#f '#f)) + (let ((__tmp151526 + (cons (cons 'arity |gxc[1]#_g151527_|) + (cons (cons 'dispatch |gxc[1]#_g151528_|) + (cons (cons 'inline |gxc[1]#_g151529_|) (cons (cons 'inline-typedecl - |gxc[1]#_g151256_|) + |gxc[1]#_g151530_|) (cons (cons 'signature - |gxc[1]#_g151257_|) + |gxc[1]#_g151531_|) (cons (cons 'id - |gxc[1]#_g151258_|) + |gxc[1]#_g151532_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj150690 __tmp151252 '15 '#f '#f)) - (let ((__tmp151259 - (cons (cons 'arity |gxc[1]#_g151260_|) - (cons (cons 'dispatch |gxc[1]#_g151261_|) - (cons (cons 'inline |gxc[1]#_g151262_|) + (##unchecked-structure-set! __obj150964 __tmp151526 '15 '#f '#f)) + (let ((__tmp151533 + (cons (cons 'arity |gxc[1]#_g151534_|) + (cons (cons 'dispatch |gxc[1]#_g151535_|) + (cons (cons 'inline |gxc[1]#_g151536_|) (cons (cons 'inline-typedecl - |gxc[1]#_g151263_|) + |gxc[1]#_g151537_|) (cons (cons 'signature - |gxc[1]#_g151264_|) + |gxc[1]#_g151538_|) (cons (cons 'id - |gxc[1]#_g151265_|) + |gxc[1]#_g151539_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj150690 __tmp151259 '16 '#f '#f)) - (let ((__tmp151266 - (cons (cons 'arity |gxc[1]#_g151267_|) - (cons (cons 'dispatch |gxc[1]#_g151268_|) - (cons (cons 'inline |gxc[1]#_g151269_|) + (##unchecked-structure-set! __obj150964 __tmp151533 '16 '#f '#f)) + (let ((__tmp151540 + (cons (cons 'arity |gxc[1]#_g151541_|) + (cons (cons 'dispatch |gxc[1]#_g151542_|) + (cons (cons 'inline |gxc[1]#_g151543_|) (cons (cons 'inline-typedecl - |gxc[1]#_g151270_|) + |gxc[1]#_g151544_|) (cons (cons 'signature - |gxc[1]#_g151271_|) + |gxc[1]#_g151545_|) (cons (cons 'id - |gxc[1]#_g151272_|) + |gxc[1]#_g151546_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj150690 __tmp151266 '17 '#f '#f)) - (let ((__tmp151273 - (cons (cons 'arity |gxc[1]#_g151274_|) - (cons (cons 'dispatch |gxc[1]#_g151275_|) - (cons (cons 'inline |gxc[1]#_g151276_|) + (##unchecked-structure-set! __obj150964 __tmp151540 '17 '#f '#f)) + (let ((__tmp151547 + (cons (cons 'arity |gxc[1]#_g151548_|) + (cons (cons 'dispatch |gxc[1]#_g151549_|) + (cons (cons 'inline |gxc[1]#_g151550_|) (cons (cons 'inline-typedecl - |gxc[1]#_g151277_|) + |gxc[1]#_g151551_|) (cons (cons 'signature - |gxc[1]#_g151278_|) + |gxc[1]#_g151552_|) (cons (cons 'id - |gxc[1]#_g151279_|) + |gxc[1]#_g151553_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj150690 __tmp151273 '18 '#f '#f)) - (let ((__tmp151280 (cons (cons 'signature |gxc[1]#_g150909_|) '()))) + (##unchecked-structure-set! __obj150964 __tmp151547 '18 '#f '#f)) + (let ((__tmp151554 (cons (cons 'signature |gxc[1]#_g151183_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150690 __tmp151280 '19 '#f '#f)) + (##unchecked-structure-set! __obj150964 __tmp151554 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150690 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150964 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150690 '() '20 '#f '#f)) - __obj150690)) + (##unchecked-structure-set! __obj150964 '() '20 '#f '#f)) + __obj150964)) (define |gxc[:0:]#!primitive-case-lambda| - (let ((__obj150691 + (let ((__obj150965 (let () (declare (not safe)) (##structure @@ -4645,7 +4645,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150691 + __obj150965 'gxc#!primitive-case-lambda::t '1 '#f @@ -4653,78 +4653,78 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150691 + __obj150965 '!primitive-case-lambda '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150691 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150965 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150691 + __obj150965 '(id signature clauses) '6 '#f '#f)) - (let ((__tmp151281 - (cons |gxc[1]#_g151224_| (cons |gxc[1]#_g151282_| '())))) + (let ((__tmp151555 + (cons |gxc[1]#_g151498_| (cons |gxc[1]#_g151556_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj150691 __tmp151281 '3 '#f '#f)) + (##unchecked-structure-set! __obj150965 __tmp151555 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150691 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj150965 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150691 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150965 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150691 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150965 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150691 ':init! '11 '#f '#f)) - (let ((__tmp151283 |gxc[1]#_g151284_|)) + (##unchecked-structure-set! __obj150965 ':init! '11 '#f '#f)) + (let ((__tmp151557 |gxc[1]#_g151558_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150691 __tmp151283 '12 '#f '#f)) - (let ((__tmp151285 |gxc[1]#_g151286_|)) + (##unchecked-structure-set! __obj150965 __tmp151557 '12 '#f '#f)) + (let ((__tmp151559 |gxc[1]#_g151560_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150691 __tmp151285 '13 '#f '#f)) - (let ((__tmp151287 |gxc[1]#_g151288_|)) + (##unchecked-structure-set! __obj150965 __tmp151559 '13 '#f '#f)) + (let ((__tmp151561 |gxc[1]#_g151562_|)) (declare (not safe)) - (##unchecked-structure-set! __obj150691 __tmp151287 '14 '#f '#f)) - (let ((__tmp151289 - (cons (cons 'clauses |gxc[1]#_g151290_|) - (cons (cons 'signature |gxc[1]#_g151291_|) - (cons (cons 'id |gxc[1]#_g151292_|) '()))))) + (##unchecked-structure-set! __obj150965 __tmp151561 '14 '#f '#f)) + (let ((__tmp151563 + (cons (cons 'clauses |gxc[1]#_g151564_|) + (cons (cons 'signature |gxc[1]#_g151565_|) + (cons (cons 'id |gxc[1]#_g151566_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj150691 __tmp151289 '15 '#f '#f)) - (let ((__tmp151293 - (cons (cons 'clauses |gxc[1]#_g151294_|) - (cons (cons 'signature |gxc[1]#_g151295_|) - (cons (cons 'id |gxc[1]#_g151296_|) '()))))) + (##unchecked-structure-set! __obj150965 __tmp151563 '15 '#f '#f)) + (let ((__tmp151567 + (cons (cons 'clauses |gxc[1]#_g151568_|) + (cons (cons 'signature |gxc[1]#_g151569_|) + (cons (cons 'id |gxc[1]#_g151570_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj150691 __tmp151293 '16 '#f '#f)) - (let ((__tmp151297 - (cons (cons 'clauses |gxc[1]#_g151298_|) - (cons (cons 'signature |gxc[1]#_g151299_|) - (cons (cons 'id |gxc[1]#_g151300_|) '()))))) + (##unchecked-structure-set! __obj150965 __tmp151567 '16 '#f '#f)) + (let ((__tmp151571 + (cons (cons 'clauses |gxc[1]#_g151572_|) + (cons (cons 'signature |gxc[1]#_g151573_|) + (cons (cons 'id |gxc[1]#_g151574_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj150691 __tmp151297 '17 '#f '#f)) - (let ((__tmp151301 - (cons (cons 'clauses |gxc[1]#_g151302_|) - (cons (cons 'signature |gxc[1]#_g151303_|) - (cons (cons 'id |gxc[1]#_g151304_|) '()))))) + (##unchecked-structure-set! __obj150965 __tmp151571 '17 '#f '#f)) + (let ((__tmp151575 + (cons (cons 'clauses |gxc[1]#_g151576_|) + (cons (cons 'signature |gxc[1]#_g151577_|) + (cons (cons 'id |gxc[1]#_g151578_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj150691 __tmp151301 '18 '#f '#f)) - (let ((__tmp151305 (cons (cons 'signature |gxc[1]#_g150909_|) '()))) + (##unchecked-structure-set! __obj150965 __tmp151575 '18 '#f '#f)) + (let ((__tmp151579 (cons (cons 'signature |gxc[1]#_g151183_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj150691 __tmp151305 '19 '#f '#f)) + (##unchecked-structure-set! __obj150965 __tmp151579 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150691 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150965 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj150691 '() '20 '#f '#f)) - __obj150691)))) + (##unchecked-structure-set! __obj150965 '() '20 '#f '#f)) + __obj150965)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-call~0.scm b/src/bootstrap/gerbil/compiler/optimize-call~0.scm index 2b39b0f78..787af5906 100644 --- a/src/bootstrap/gerbil/compiler/optimize-call~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-call~0.scm @@ -1,27 +1,27 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-call::timestamp 1713044322) + (define gerbil/compiler/optimize-call::timestamp 1713454417) (begin (define gxc#::optimize-call::t - (let ((__tmp195742 (list gxc#::basic-xform::t)) - (__tmp195741 (cons (cons 'final: '#t) '()))) + (let ((__tmp196016 (list gxc#::basic-xform::t)) + (__tmp196015 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::optimize-call::t '::optimize-call - __tmp195742 + __tmp196016 '() - __tmp195741 + __tmp196015 '#f))) (define gxc#::optimize-call? (let () (declare (not safe)) (__make-class-predicate gxc#::optimize-call::t))) (define gxc#make-::optimize-call - (lambda _%$args195019%_ - (apply make-instance gxc#::optimize-call::t _%$args195019%_))) + (lambda _%$args195293%_ + (apply make-instance gxc#::optimize-call::t _%$args195293%_))) (define gxc#::optimize-call-bind-methods! - (let ((__tmp195743 + (let ((__tmp196017 (lambda () (force gxc#::basic-xform-bind-methods!) (let () @@ -40,46 +40,46 @@ (declare (not safe)) (__seal-class! gxc#::optimize-call::t))))) (declare (not safe)) - (__make-promise __tmp195743))) + (__make-promise __tmp196017))) (define gxc#apply-optimize-call - (lambda (_%stx195011%_) + (lambda (_%stx195285%_) (force gxc#::optimize-call-bind-methods!) - (let* ((_%self195014%_ - (let ((__obj195733 + (let* ((_%self195288%_ + (let ((__obj196007 (let () (declare (not safe)) (##structure gxc#::optimize-call::t)))) - __obj195733)) - (__tmp195744 + __obj196007)) + (__tmp196018 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self195014%_ _%stx195011%_))))) + (gxc#compile-e__1 _%self195288%_ _%stx195285%_))))) (declare (not safe)) (__call-with-parameters - __tmp195744 + __tmp196018 gxc#current-compile-method - _%self195014%_)))) + _%self195288%_)))) (define gxc#::check-return-type::t - (let ((__tmp195746 (list gxc#::void::t)) - (__tmp195745 (cons (cons 'final: '#t) '()))) + (let ((__tmp196020 (list gxc#::void::t)) + (__tmp196019 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::check-return-type::t '::check-return-type - __tmp195746 + __tmp196020 '() - __tmp195745 + __tmp196019 '#f))) (define gxc#::check-return-type? (let () (declare (not safe)) (__make-class-predicate gxc#::check-return-type::t))) (define gxc#make-::check-return-type - (lambda _%$args195008%_ - (apply make-instance gxc#::check-return-type::t _%$args195008%_))) + (lambda _%$args195282%_ + (apply make-instance gxc#::check-return-type::t _%$args195282%_))) (define gxc#::check-return-type-bind-methods! - (let ((__tmp195747 + (let ((__tmp196021 (lambda () (force gxc#::void-bind-methods!) (let () @@ -170,154 +170,154 @@ (declare (not safe)) (__seal-class! gxc#::check-return-type::t))))) (declare (not safe)) - (__make-promise __tmp195747))) + (__make-promise __tmp196021))) (define gxc#apply-check-return-type - (lambda (_%stx195000%_) + (lambda (_%stx195274%_) (force gxc#::check-return-type-bind-methods!) - (let* ((_%self195003%_ - (let ((__obj195735 + (let* ((_%self195277%_ + (let ((__obj196009 (let () (declare (not safe)) (##structure gxc#::check-return-type::t)))) - __obj195735)) - (__tmp195748 + __obj196009)) + (__tmp196022 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self195003%_ _%stx195000%_))))) + (gxc#compile-e__1 _%self195277%_ _%stx195274%_))))) (declare (not safe)) (__call-with-parameters - __tmp195748 + __tmp196022 gxc#current-compile-method - _%self195003%_)))) + _%self195277%_)))) (define gxc#optimize-call% - (lambda (_%self194601%_ _%stx194602%_) - (let* ((_%__stx195088195089%_ _%stx194602%_) - (_%g194605194651%_ + (lambda (_%self194875%_ _%stx194876%_) + (let* ((_%__stx195362195363%_ _%stx194876%_) + (_%g194879194925%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx195088195089%_))))) - (let ((_%__kont195090195091%_ - (lambda (_%L194794%_ _%L194795%_) - (let* ((_%rator-id194815%_ + _%__stx195362195363%_))))) + (let ((_%__kont195364195365%_ + (lambda (_%L195068%_ _%L195069%_) + (let* ((_%rator-id195089%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L194795%_))) - (_%rator-type194817%_ + (gxc#identifier-symbol _%L195069%_))) + (_%rator-type195091%_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _%rator-id194815%_)))) - (if (or (not _%rator-type194817%_) + (gxc#optimizer-resolve-type _%rator-id195089%_)))) + (if (or (not _%rator-type195091%_) (eq? (##structure-ref - _%rator-type194817%_ + _%rator-type195091%_ '1 gxc#!type::t '#f) 't)) (let () (declare (not safe)) - (gxc#xform-call% _%self194601%_ _%stx194602%_)) + (gxc#xform-call% _%self194875%_ _%stx194876%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type194817%_ + _%rator-type195091%_ 'gxc#!procedure::t)) (let () - (let ((__tmp195749 + (let ((__tmp196023 (let () (declare (not safe)) (##unchecked-structure-ref - _%rator-type194817%_ + _%rator-type195091%_ '1 '#f '#f)))) (declare (not safe)) (gxc#verbose '"optimize-call " - _%rator-id194815%_ + _%rator-id195089%_ '" => " - _%rator-type194817%_ + _%rator-type195091%_ '" " - __tmp195749)) - (let* ((_%optimized194832%_ - (let ((__method195736 + __tmp196023)) + (let* ((_%optimized195106%_ + (let ((__method196010 (let () (declare (not safe)) (__method-ref - _%rator-type194817%_ + _%rator-type195091%_ 'optimize-call)))) - (if __method195736 - (let ((__tmp195750 - (let ((__tmp195751 - (lambda (_%g194824194827%_ + (if __method196010 + (let ((__tmp196024 + (let ((__tmp196025 + (lambda (_%g195098195101%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g194825194829%_) - (cons _%g194824194827%_ _%g194825194829%_)))) + _%g195099195103%_) + (cons _%g195098195101%_ _%g195099195103%_)))) (declare (not safe)) - (__foldr1 __tmp195751 '() _%L194794%_)))) + (__foldr1 __tmp196025 '() _%L195068%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (__method195736 - _%rator-type194817%_ - _%self194601%_ - _%stx194602%_ - __tmp195750)) + (__method196010 + _%rator-type195091%_ + _%self194875%_ + _%stx194876%_ + __tmp196024)) (begin (let () (declare (not safe)) (error '"Missing method" - _%rator-type194817%_ + _%rator-type195091%_ 'optimize-call)) '#!void)))) - (_%__stx195036195037%_ - _%optimized194832%_) - (_%g194835194864%_ + (_%__stx195310195311%_ + _%optimized195106%_) + (_%g195109195138%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx195036195037%_))))) - (let ((_%__kont195038195039%_ - (lambda (_%L194932%_ _%L194933%_) - (let* ((_%optimized-rator-id194960%_ + _%__stx195310195311%_))))) + (let ((_%__kont195312195313%_ + (lambda (_%L195206%_ _%L195207%_) + (let* ((_%optimized-rator-id195234%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L194933%_))) - (_%rator-type194965%_ - (let ((_%$e194962%_ + _%L195207%_))) + (_%rator-type195239%_ + (let ((_%$e195236%_ (let () (declare (not safe)) (gxc#optimizer-lookup-type - _%optimized-rator-id194960%_)))) - (if _%$e194962%_ - _%$e194962%_ - _%rator-type194817%_)))) + _%optimized-rator-id195234%_)))) + (if _%$e195236%_ + _%$e195236%_ + _%rator-type195091%_)))) (if (or (let () (declare (not safe)) (class-instance? gxc#!primitive::t - _%rator-type194965%_)) + _%rator-type195239%_)) (let () (declare (not safe)) - (##memq _%optimized-rator-id194960%_ + (##memq _%optimized-rator-id195234%_ gxc#checked-primitives)) (and (let () (declare (not safe)) (##structure-instance-of? - _%rator-type194965%_ + _%rator-type195239%_ 'gxc#!procedure::t)) (eq? (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#!procedure-origin _%rator-type194965%_)) + (gxc#!procedure-origin _%rator-type195239%_)) (##structure-ref (let () (declare (not safe)) @@ -326,226 +326,226 @@ gx#expander-context::t '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%optimized194832%_ - (let ((__tmp195752 + _%optimized195106%_ + (let ((__tmp196026 (cons '%#call-unchecked (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L194933%_ '())) - (let ((__tmp195753 - (lambda (_%g194973194976%_ _%g194974194978%_) - (cons _%g194973194976%_ - _%g194974194978%_)))) + (cons _%L195207%_ '())) + (let ((__tmp196027 + (lambda (_%g195247195250%_ _%g195248195252%_) + (cons _%g195247195250%_ + _%g195248195252%_)))) (declare (not safe)) - (__foldr1 __tmp195753 '() _%L194932%_)))))) + (__foldr1 __tmp196027 '() _%L195206%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp195752 - _%stx194602%_)))))) - (_%__kont195042195043%_ - (lambda () _%optimized194832%_))) - (let ((_%__match195085195086%_ - (lambda (_%e194839194876%_ - _%hd194840194879%_ - _%tl194841194881%_ - _%e194842194884%_ - _%hd194843194887%_ - _%tl194844194889%_ - _%e194845194892%_ - _%hd194846194895%_ - _%tl194847194897%_ - _%e194848194900%_ - _%hd194849194903%_ - _%tl194850194905%_ - _%__splice195040195041%_ - _%target194851194908%_ - _%tl194853194910%_) - (letrec ((_%loop194854194913%_ - (lambda (_%hd194852194916%_ - _%arg194858194918%_) + __tmp196026 + _%stx194876%_)))))) + (_%__kont195316195317%_ + (lambda () _%optimized195106%_))) + (let ((_%__match195359195360%_ + (lambda (_%e195113195150%_ + _%hd195114195153%_ + _%tl195115195155%_ + _%e195116195158%_ + _%hd195117195161%_ + _%tl195118195163%_ + _%e195119195166%_ + _%hd195120195169%_ + _%tl195121195171%_ + _%e195122195174%_ + _%hd195123195177%_ + _%tl195124195179%_ + _%__splice195314195315%_ + _%target195125195182%_ + _%tl195127195184%_) + (letrec ((_%loop195128195187%_ + (lambda (_%hd195126195190%_ + _%arg195132195192%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd194852194916%_)) - (let ((_%e194855194921%_ + _%hd195126195190%_)) + (let ((_%e195129195195%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd194852194916%_)))) - (let ((_%lp-tl194857194926%_ + (gx#stx-e _%hd195126195190%_)))) + (let ((_%lp-tl195131195200%_ (let () (declare (not safe)) - (##cdr _%e194855194921%_))) - (_%lp-hd194856194924%_ + (##cdr _%e195129195195%_))) + (_%lp-hd195130195198%_ (let () (declare (not safe)) - (##car _%e194855194921%_)))) - (_%loop194854194913%_ - _%lp-tl194857194926%_ - (cons _%lp-hd194856194924%_ _%arg194858194918%_)))) - (let ((_%arg194859194929%_ (reverse _%arg194858194918%_))) - (_%__kont195038195039%_ - _%arg194859194929%_ - _%hd194849194903%_)))))) + (##car _%e195129195195%_)))) + (_%loop195128195187%_ + _%lp-tl195131195200%_ + (cons _%lp-hd195130195198%_ _%arg195132195192%_)))) + (let ((_%arg195133195203%_ (reverse _%arg195132195192%_))) + (_%__kont195312195313%_ + _%arg195133195203%_ + _%hd195123195177%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop194854194913%_ - _%target194851194908%_ + (_%loop195128195187%_ + _%target195125195182%_ '()))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx195036195037%_)) - (let ((_%e194839194876%_ + _%__stx195310195311%_)) + (let ((_%e195113195150%_ (let () (declare (not safe)) (gx#stx-e - _%__stx195036195037%_)))) - (let ((_%tl194841194881%_ + _%__stx195310195311%_)))) + (let ((_%tl195115195155%_ (let () (declare (not safe)) - (##cdr _%e194839194876%_))) - (_%hd194840194879%_ + (##cdr _%e195113195150%_))) + (_%hd195114195153%_ (let () (declare (not safe)) - (##car _%e194839194876%_)))) + (##car _%e195113195150%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd194840194879%_)) + _%hd195114195153%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd194840194879%_)) + _%hd195114195153%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl194841194881%_)) - (let ((_%e194842194884%_ + _%tl195115195155%_)) + (let ((_%e195116195158%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl194841194881%_)))) - (let ((_%tl194844194889%_ + (gx#stx-e _%tl195115195155%_)))) + (let ((_%tl195118195163%_ (let () (declare (not safe)) - (##cdr _%e194842194884%_))) - (_%hd194843194887%_ + (##cdr _%e195116195158%_))) + (_%hd195117195161%_ (let () (declare (not safe)) - (##car _%e194842194884%_)))) + (##car _%e195116195158%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd194843194887%_)) - (let ((_%e194845194892%_ + (gx#stx-pair? _%hd195117195161%_)) + (let ((_%e195119195166%_ (let () (declare (not safe)) - (gx#stx-e _%hd194843194887%_)))) - (let ((_%tl194847194897%_ + (gx#stx-e _%hd195117195161%_)))) + (let ((_%tl195121195171%_ (let () (declare (not safe)) - (##cdr _%e194845194892%_))) - (_%hd194846194895%_ + (##cdr _%e195119195166%_))) + (_%hd195120195169%_ (let () (declare (not safe)) - (##car _%e194845194892%_)))) + (##car _%e195119195166%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd194846194895%_)) + (gx#identifier? _%hd195120195169%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd194846194895%_)) + (gx#stx-eq? '%#ref _%hd195120195169%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194847194897%_)) - (let ((_%e194848194900%_ + (gx#stx-pair? _%tl195121195171%_)) + (let ((_%e195122195174%_ (let () (declare (not safe)) (gx#stx-e - _%tl194847194897%_)))) - (let ((_%tl194850194905%_ + _%tl195121195171%_)))) + (let ((_%tl195124195179%_ (let () (declare (not safe)) - (##cdr _%e194848194900%_))) - (_%hd194849194903%_ + (##cdr _%e195122195174%_))) + (_%hd195123195177%_ (let () (declare (not safe)) - (##car _%e194848194900%_)))) + (##car _%e195122195174%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl194850194905%_)) + _%tl195124195179%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl194844194889%_)) - (let ((_%__splice195040195041%_ + _%tl195118195163%_)) + (let ((_%__splice195314195315%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl194844194889%_ + _%tl195118195163%_ '0)))) - (let ((_%tl194853194910%_ + (let ((_%tl195127195184%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice195040195041%_ '1))) - (_%target194851194908%_ + (##vector-ref _%__splice195314195315%_ '1))) + (_%target195125195182%_ (let () (declare (not safe)) - (##vector-ref _%__splice195040195041%_ '0)))) + (##vector-ref _%__splice195314195315%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194853194910%_)) - (_%__match195085195086%_ - _%e194839194876%_ - _%hd194840194879%_ - _%tl194841194881%_ - _%e194842194884%_ - _%hd194843194887%_ - _%tl194844194889%_ - _%e194845194892%_ - _%hd194846194895%_ - _%tl194847194897%_ - _%e194848194900%_ - _%hd194849194903%_ - _%tl194850194905%_ - _%__splice195040195041%_ - _%target194851194908%_ - _%tl194853194910%_) - (_%__kont195042195043%_)))) + (gx#stx-null? _%tl195127195184%_)) + (_%__match195359195360%_ + _%e195113195150%_ + _%hd195114195153%_ + _%tl195115195155%_ + _%e195116195158%_ + _%hd195117195161%_ + _%tl195118195163%_ + _%e195119195166%_ + _%hd195120195169%_ + _%tl195121195171%_ + _%e195122195174%_ + _%hd195123195177%_ + _%tl195124195179%_ + _%__splice195314195315%_ + _%target195125195182%_ + _%tl195127195184%_) + (_%__kont195316195317%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont195042195043%_)) - (_%__kont195042195043%_)))) - (_%__kont195042195043%_)) - (_%__kont195042195043%_)) - (_%__kont195042195043%_)))) - (_%__kont195042195043%_)))) - (_%__kont195042195043%_)) + (_%__kont195316195317%_)) + (_%__kont195316195317%_)))) + (_%__kont195316195317%_)) + (_%__kont195316195317%_)) + (_%__kont195316195317%_)))) + (_%__kont195316195317%_)))) + (_%__kont195316195317%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont195042195043%_)) - (_%__kont195042195043%_)))) - (_%__kont195042195043%_)))))) + (_%__kont195316195317%_)) + (_%__kont195316195317%_)))) + (_%__kont195316195317%_)))))) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%rator-type194817%_ + _%rator-type195091%_ 'gxc#!class::t)) (eq? (let () (declare (not safe)) (##unchecked-structure-ref - _%rator-type194817%_ + _%rator-type195091%_ '1 '#f '#f)) 'procedure)) - (let ((__tmp195754 + (let ((__tmp196028 (cons '%#call-unchecked (cons (cons (let () (declare @@ -553,42 +553,42 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L194795%_ + (cons _%L195069%_ '())) - (map (lambda (_%g194984194986%_) + (map (lambda (_%g195258195260%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self194601%_ - _%g194984194986%_))) - (let ((__tmp195755 - (lambda (_%g194988194991%_ + _%self194875%_ + _%g195258195260%_))) + (let ((__tmp196029 + (lambda (_%g195262195265%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g194989194993%_) - (cons _%g194988194991%_ _%g194989194993%_)))) + _%g195263195267%_) + (cons _%g195262195265%_ _%g195263195267%_)))) (declare (not safe)) - (__foldr1 __tmp195755 '() _%L194794%_))))))) + (__foldr1 __tmp196029 '() _%L195068%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp195754 - _%stx194602%_)) + __tmp196028 + _%stx194876%_)) (let () (declare (not safe)) (gxc#raise-compile-error '"illegal application; not a procedure" - _%stx194602%_ - _%rator-type194817%_)))))))) - (_%__kont195094195095%_ - (lambda (_%L194696%_ _%L194697%_) - (let ((_%rator-type194714%_ + _%stx194876%_ + _%rator-type195091%_)))))))) + (_%__kont195368195369%_ + (lambda (_%L194970%_ _%L194971%_) + (let ((_%rator-type194988%_ (let () (declare (not safe)) - (gxc#apply-basic-expression-type _%L194697%_)))) - (if (and _%rator-type194714%_ + (gxc#apply-basic-expression-type _%L194971%_)))) + (if (and _%rator-type194988%_ (eq? (##structure-ref - _%rator-type194714%_ + _%rator-type194988%_ '1 gxc#!type::t '#f) @@ -597,17 +597,17 @@ (declare (not safe)) (class-instance? gxc#!primitive::t - _%rator-type194714%_)) + _%rator-type194988%_)) '#f (not (and (let () (declare (not safe)) (##structure-instance-of? - _%rator-type194714%_ + _%rator-type194988%_ 'gxc#!procedure::t)) (eq? (let () (declare (not safe)) (gxc#!procedure-origin - _%rator-type194714%_)) + _%rator-type194988%_)) (##structure-ref (let () (declare (not safe)) @@ -615,607 +615,607 @@ '1 gx#expander-context::t '#f)))))) - (let ((__tmp195756 + (let ((__tmp196030 (cons '%#call-unchecked (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self194601%_ - _%L194697%_)) - (map (lambda (_%g194716194718%_) + _%self194875%_ + _%L194971%_)) + (map (lambda (_%g194990194992%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self194601%_ - _%g194716194718%_))) - (let ((__tmp195757 - (lambda (_%g194720194723%_ + _%self194875%_ + _%g194990194992%_))) + (let ((__tmp196031 + (lambda (_%g194994194997%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g194721194725%_) - (cons _%g194720194723%_ _%g194721194725%_)))) + _%g194995194999%_) + (cons _%g194994194997%_ _%g194995194999%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp195757 + __tmp196031 '() - _%L194696%_))))))) + _%L194970%_))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp195756 _%stx194602%_)) - (if (or (not _%rator-type194714%_) - (let ((__tmp195758 + (gxc#xform-wrap-source __tmp196030 _%stx194876%_)) + (if (or (not _%rator-type194988%_) + (let ((__tmp196032 (##structure-ref - _%rator-type194714%_ + _%rator-type194988%_ '1 gxc#!type::t '#f))) (declare (not safe)) - (##memq __tmp195758 '(t procedure)))) + (##memq __tmp196032 '(t procedure)))) (let () (declare (not safe)) - (gxc#xform-call% _%self194601%_ _%stx194602%_)) + (gxc#xform-call% _%self194875%_ _%stx194876%_)) (let () (declare (not safe)) (gxc#raise-compile-error '"illegal application; not a procedure" - _%stx194602%_ - _%rator-type194714%_)))))))) - (let* ((_%__match195155195156%_ - (lambda (_%e194632194656%_ - _%hd194633194659%_ - _%tl194634194661%_ - _%e194635194664%_ - _%hd194636194667%_ - _%tl194637194669%_ - _%__splice195096195097%_ - _%target194638194672%_ - _%tl194640194674%_) - (letrec ((_%loop194641194677%_ - (lambda (_%hd194639194680%_ - _%rand194645194682%_) + _%stx194876%_ + _%rator-type194988%_)))))))) + (let* ((_%__match195429195430%_ + (lambda (_%e194906194930%_ + _%hd194907194933%_ + _%tl194908194935%_ + _%e194909194938%_ + _%hd194910194941%_ + _%tl194911194943%_ + _%__splice195370195371%_ + _%target194912194946%_ + _%tl194914194948%_) + (letrec ((_%loop194915194951%_ + (lambda (_%hd194913194954%_ + _%rand194919194956%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd194639194680%_)) - (let ((_%e194642194685%_ + (gx#stx-pair? _%hd194913194954%_)) + (let ((_%e194916194959%_ (let () (declare (not safe)) - (gx#stx-e _%hd194639194680%_)))) - (let ((_%lp-tl194644194690%_ + (gx#stx-e _%hd194913194954%_)))) + (let ((_%lp-tl194918194964%_ (let () (declare (not safe)) - (##cdr _%e194642194685%_))) - (_%lp-hd194643194688%_ + (##cdr _%e194916194959%_))) + (_%lp-hd194917194962%_ (let () (declare (not safe)) - (##car _%e194642194685%_)))) - (_%loop194641194677%_ - _%lp-tl194644194690%_ - (cons _%lp-hd194643194688%_ - _%rand194645194682%_)))) - (let ((_%rand194646194693%_ - (reverse _%rand194645194682%_))) - (_%__kont195094195095%_ - _%rand194646194693%_ - _%hd194636194667%_)))))) - (_%loop194641194677%_ _%target194638194672%_ '())))) - (_%__match195135195136%_ - (lambda (_%e194609194738%_ - _%hd194610194741%_ - _%tl194611194743%_ - _%e194612194746%_ - _%hd194613194749%_ - _%tl194614194751%_ - _%e194615194754%_ - _%hd194616194757%_ - _%tl194617194759%_ - _%e194618194762%_ - _%hd194619194765%_ - _%tl194620194767%_ - _%__splice195092195093%_ - _%target194621194770%_ - _%tl194623194772%_) - (letrec ((_%loop194624194775%_ - (lambda (_%hd194622194778%_ - _%rand194628194780%_) + (##car _%e194916194959%_)))) + (_%loop194915194951%_ + _%lp-tl194918194964%_ + (cons _%lp-hd194917194962%_ + _%rand194919194956%_)))) + (let ((_%rand194920194967%_ + (reverse _%rand194919194956%_))) + (_%__kont195368195369%_ + _%rand194920194967%_ + _%hd194910194941%_)))))) + (_%loop194915194951%_ _%target194912194946%_ '())))) + (_%__match195409195410%_ + (lambda (_%e194883195012%_ + _%hd194884195015%_ + _%tl194885195017%_ + _%e194886195020%_ + _%hd194887195023%_ + _%tl194888195025%_ + _%e194889195028%_ + _%hd194890195031%_ + _%tl194891195033%_ + _%e194892195036%_ + _%hd194893195039%_ + _%tl194894195041%_ + _%__splice195366195367%_ + _%target194895195044%_ + _%tl194897195046%_) + (letrec ((_%loop194898195049%_ + (lambda (_%hd194896195052%_ + _%rand194902195054%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd194622194778%_)) - (let ((_%e194625194783%_ + (gx#stx-pair? _%hd194896195052%_)) + (let ((_%e194899195057%_ (let () (declare (not safe)) - (gx#stx-e _%hd194622194778%_)))) - (let ((_%lp-tl194627194788%_ + (gx#stx-e _%hd194896195052%_)))) + (let ((_%lp-tl194901195062%_ (let () (declare (not safe)) - (##cdr _%e194625194783%_))) - (_%lp-hd194626194786%_ + (##cdr _%e194899195057%_))) + (_%lp-hd194900195060%_ (let () (declare (not safe)) - (##car _%e194625194783%_)))) - (_%loop194624194775%_ - _%lp-tl194627194788%_ - (cons _%lp-hd194626194786%_ - _%rand194628194780%_)))) - (let ((_%rand194629194791%_ - (reverse _%rand194628194780%_))) - (_%__kont195090195091%_ - _%rand194629194791%_ - _%hd194619194765%_)))))) - (_%loop194624194775%_ _%target194621194770%_ '()))))) + (##car _%e194899195057%_)))) + (_%loop194898195049%_ + _%lp-tl194901195062%_ + (cons _%lp-hd194900195060%_ + _%rand194902195054%_)))) + (let ((_%rand194903195065%_ + (reverse _%rand194902195054%_))) + (_%__kont195364195365%_ + _%rand194903195065%_ + _%hd194893195039%_)))))) + (_%loop194898195049%_ _%target194895195044%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx195088195089%_)) - (let ((_%e194609194738%_ + (gx#stx-pair? _%__stx195362195363%_)) + (let ((_%e194883195012%_ (let () (declare (not safe)) - (gx#stx-e _%__stx195088195089%_)))) - (let ((_%tl194611194743%_ + (gx#stx-e _%__stx195362195363%_)))) + (let ((_%tl194885195017%_ (let () (declare (not safe)) - (##cdr _%e194609194738%_))) - (_%hd194610194741%_ + (##cdr _%e194883195012%_))) + (_%hd194884195015%_ (let () (declare (not safe)) - (##car _%e194609194738%_)))) + (##car _%e194883195012%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194611194743%_)) - (let ((_%e194612194746%_ + (gx#stx-pair? _%tl194885195017%_)) + (let ((_%e194886195020%_ (let () (declare (not safe)) - (gx#stx-e _%tl194611194743%_)))) - (let ((_%tl194614194751%_ + (gx#stx-e _%tl194885195017%_)))) + (let ((_%tl194888195025%_ (let () (declare (not safe)) - (##cdr _%e194612194746%_))) - (_%hd194613194749%_ + (##cdr _%e194886195020%_))) + (_%hd194887195023%_ (let () (declare (not safe)) - (##car _%e194612194746%_)))) + (##car _%e194886195020%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd194613194749%_)) - (let ((_%e194615194754%_ + (gx#stx-pair? _%hd194887195023%_)) + (let ((_%e194889195028%_ (let () (declare (not safe)) - (gx#stx-e _%hd194613194749%_)))) - (let ((_%tl194617194759%_ + (gx#stx-e _%hd194887195023%_)))) + (let ((_%tl194891195033%_ (let () (declare (not safe)) - (##cdr _%e194615194754%_))) - (_%hd194616194757%_ + (##cdr _%e194889195028%_))) + (_%hd194890195031%_ (let () (declare (not safe)) - (##car _%e194615194754%_)))) + (##car _%e194889195028%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd194616194757%_)) + _%hd194890195031%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd194616194757%_)) + _%hd194890195031%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl194617194759%_)) - (let ((_%e194618194762%_ + _%tl194891195033%_)) + (let ((_%e194892195036%_ (let () (declare (not safe)) (gx#stx-e - _%tl194617194759%_)))) - (let ((_%tl194620194767%_ + _%tl194891195033%_)))) + (let ((_%tl194894195041%_ (let () (declare (not safe)) - (##cdr _%e194618194762%_))) - (_%hd194619194765%_ + (##cdr _%e194892195036%_))) + (_%hd194893195039%_ (let () (declare (not safe)) - (##car _%e194618194762%_)))) + (##car _%e194892195036%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl194620194767%_)) + _%tl194894195041%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _%tl194614194751%_)) - (let ((_%__splice195092195093%_ + (gx#stx-pair/null? _%tl194888195025%_)) + (let ((_%__splice195366195367%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl194614194751%_ + _%tl194888195025%_ '0)))) - (let ((_%tl194623194772%_ + (let ((_%tl194897195046%_ (let () (declare (not safe)) - (##vector-ref _%__splice195092195093%_ '1))) - (_%target194621194770%_ + (##vector-ref _%__splice195366195367%_ '1))) + (_%target194895195044%_ (let () (declare (not safe)) - (##vector-ref _%__splice195092195093%_ '0)))) + (##vector-ref _%__splice195366195367%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194623194772%_)) - (_%__match195135195136%_ - _%e194609194738%_ - _%hd194610194741%_ - _%tl194611194743%_ - _%e194612194746%_ - _%hd194613194749%_ - _%tl194614194751%_ - _%e194615194754%_ - _%hd194616194757%_ - _%tl194617194759%_ - _%e194618194762%_ - _%hd194619194765%_ - _%tl194620194767%_ - _%__splice195092195093%_ - _%target194621194770%_ - _%tl194623194772%_) + (gx#stx-null? _%tl194897195046%_)) + (_%__match195409195410%_ + _%e194883195012%_ + _%hd194884195015%_ + _%tl194885195017%_ + _%e194886195020%_ + _%hd194887195023%_ + _%tl194888195025%_ + _%e194889195028%_ + _%hd194890195031%_ + _%tl194891195033%_ + _%e194892195036%_ + _%hd194893195039%_ + _%tl194894195041%_ + _%__splice195366195367%_ + _%target194895195044%_ + _%tl194897195046%_) (let () (declare (not safe)) - (_%g194605194651%_))))) - (let () (declare (not safe)) (_%g194605194651%_))) + (_%g194879194925%_))))) + (let () (declare (not safe)) (_%g194879194925%_))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl194614194751%_)) - (let ((_%__splice195096195097%_ + (gx#stx-pair/null? _%tl194888195025%_)) + (let ((_%__splice195370195371%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl194614194751%_ + _%tl194888195025%_ '0)))) - (let ((_%tl194640194674%_ + (let ((_%tl194914194948%_ (let () (declare (not safe)) - (##vector-ref _%__splice195096195097%_ '1))) - (_%target194638194672%_ + (##vector-ref _%__splice195370195371%_ '1))) + (_%target194912194946%_ (let () (declare (not safe)) - (##vector-ref _%__splice195096195097%_ '0)))) + (##vector-ref _%__splice195370195371%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194640194674%_)) - (_%__match195155195156%_ - _%e194609194738%_ - _%hd194610194741%_ - _%tl194611194743%_ - _%e194612194746%_ - _%hd194613194749%_ - _%tl194614194751%_ - _%__splice195096195097%_ - _%target194638194672%_ - _%tl194640194674%_) + (gx#stx-null? _%tl194914194948%_)) + (_%__match195429195430%_ + _%e194883195012%_ + _%hd194884195015%_ + _%tl194885195017%_ + _%e194886195020%_ + _%hd194887195023%_ + _%tl194888195025%_ + _%__splice195370195371%_ + _%target194912194946%_ + _%tl194914194948%_) (let () (declare (not safe)) - (_%g194605194651%_))))) - (let () (declare (not safe)) (_%g194605194651%_)))))) + (_%g194879194925%_))))) + (let () (declare (not safe)) (_%g194879194925%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl194614194751%_)) - (let ((_%__splice195096195097%_ + _%tl194888195025%_)) + (let ((_%__splice195370195371%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl194614194751%_ '0)))) - (let ((_%tl194640194674%_ + (gx#syntax-split-splice _%tl194888195025%_ '0)))) + (let ((_%tl194914194948%_ (let () (declare (not safe)) - (##vector-ref _%__splice195096195097%_ '1))) - (_%target194638194672%_ + (##vector-ref _%__splice195370195371%_ '1))) + (_%target194912194946%_ (let () (declare (not safe)) - (##vector-ref _%__splice195096195097%_ '0)))) + (##vector-ref _%__splice195370195371%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194640194674%_)) - (_%__match195155195156%_ - _%e194609194738%_ - _%hd194610194741%_ - _%tl194611194743%_ - _%e194612194746%_ - _%hd194613194749%_ - _%tl194614194751%_ - _%__splice195096195097%_ - _%target194638194672%_ - _%tl194640194674%_) - (let () (declare (not safe)) (_%g194605194651%_))))) - (let () (declare (not safe)) (_%g194605194651%_)))) + (gx#stx-null? _%tl194914194948%_)) + (_%__match195429195430%_ + _%e194883195012%_ + _%hd194884195015%_ + _%tl194885195017%_ + _%e194886195020%_ + _%hd194887195023%_ + _%tl194888195025%_ + _%__splice195370195371%_ + _%target194912194946%_ + _%tl194914194948%_) + (let () (declare (not safe)) (_%g194879194925%_))))) + (let () (declare (not safe)) (_%g194879194925%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl194614194751%_)) - (let ((_%__splice195096195097%_ + _%tl194888195025%_)) + (let ((_%__splice195370195371%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl194614194751%_ + _%tl194888195025%_ '0)))) - (let ((_%tl194640194674%_ + (let ((_%tl194914194948%_ (let () (declare (not safe)) (##vector-ref - _%__splice195096195097%_ + _%__splice195370195371%_ '1))) - (_%target194638194672%_ + (_%target194912194946%_ (let () (declare (not safe)) (##vector-ref - _%__splice195096195097%_ + _%__splice195370195371%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl194640194674%_)) - (_%__match195155195156%_ - _%e194609194738%_ - _%hd194610194741%_ - _%tl194611194743%_ - _%e194612194746%_ - _%hd194613194749%_ - _%tl194614194751%_ - _%__splice195096195097%_ - _%target194638194672%_ - _%tl194640194674%_) + _%tl194914194948%_)) + (_%__match195429195430%_ + _%e194883195012%_ + _%hd194884195015%_ + _%tl194885195017%_ + _%e194886195020%_ + _%hd194887195023%_ + _%tl194888195025%_ + _%__splice195370195371%_ + _%target194912194946%_ + _%tl194914194948%_) (let () (declare (not safe)) - (_%g194605194651%_))))) + (_%g194879194925%_))))) (let () (declare (not safe)) - (_%g194605194651%_)))) + (_%g194879194925%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl194614194751%_)) - (let ((_%__splice195096195097%_ + _%tl194888195025%_)) + (let ((_%__splice195370195371%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl194614194751%_ + _%tl194888195025%_ '0)))) - (let ((_%tl194640194674%_ + (let ((_%tl194914194948%_ (let () (declare (not safe)) (##vector-ref - _%__splice195096195097%_ + _%__splice195370195371%_ '1))) - (_%target194638194672%_ + (_%target194912194946%_ (let () (declare (not safe)) (##vector-ref - _%__splice195096195097%_ + _%__splice195370195371%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl194640194674%_)) - (_%__match195155195156%_ - _%e194609194738%_ - _%hd194610194741%_ - _%tl194611194743%_ - _%e194612194746%_ - _%hd194613194749%_ - _%tl194614194751%_ - _%__splice195096195097%_ - _%target194638194672%_ - _%tl194640194674%_) + _%tl194914194948%_)) + (_%__match195429195430%_ + _%e194883195012%_ + _%hd194884195015%_ + _%tl194885195017%_ + _%e194886195020%_ + _%hd194887195023%_ + _%tl194888195025%_ + _%__splice195370195371%_ + _%target194912194946%_ + _%tl194914194948%_) (let () (declare (not safe)) - (_%g194605194651%_))))) + (_%g194879194925%_))))) (let () (declare (not safe)) - (_%g194605194651%_)))))) + (_%g194879194925%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl194614194751%_)) - (let ((_%__splice195096195097%_ + (gx#stx-pair/null? _%tl194888195025%_)) + (let ((_%__splice195370195371%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl194614194751%_ + _%tl194888195025%_ '0)))) - (let ((_%tl194640194674%_ + (let ((_%tl194914194948%_ (let () (declare (not safe)) (##vector-ref - _%__splice195096195097%_ + _%__splice195370195371%_ '1))) - (_%target194638194672%_ + (_%target194912194946%_ (let () (declare (not safe)) (##vector-ref - _%__splice195096195097%_ + _%__splice195370195371%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl194640194674%_)) - (_%__match195155195156%_ - _%e194609194738%_ - _%hd194610194741%_ - _%tl194611194743%_ - _%e194612194746%_ - _%hd194613194749%_ - _%tl194614194751%_ - _%__splice195096195097%_ - _%target194638194672%_ - _%tl194640194674%_) + _%tl194914194948%_)) + (_%__match195429195430%_ + _%e194883195012%_ + _%hd194884195015%_ + _%tl194885195017%_ + _%e194886195020%_ + _%hd194887195023%_ + _%tl194888195025%_ + _%__splice195370195371%_ + _%target194912194946%_ + _%tl194914194948%_) (let () (declare (not safe)) - (_%g194605194651%_))))) + (_%g194879194925%_))))) (let () (declare (not safe)) - (_%g194605194651%_)))))) - (let () (declare (not safe)) (_%g194605194651%_))))) - (let () (declare (not safe)) (_%g194605194651%_)))))))) + (_%g194879194925%_)))))) + (let () (declare (not safe)) (_%g194879194925%_))))) + (let () (declare (not safe)) (_%g194879194925%_)))))))) (define gxc#!procedure::optimize-call - (lambda (_%self190980194561%_ _%ctx194563%_ _%stx194564%_ _%args194565%_) - (let* ((_%self194567%_ _%self190980194561%_) - (_%self194569%_ _%self194567%_)) - (if (let ((__method195737 + (lambda (_%self191254194835%_ _%ctx194837%_ _%stx194838%_ _%args194839%_) + (let* ((_%self194841%_ _%self191254194835%_) + (_%self194843%_ _%self194841%_)) + (if (let ((__method196011 (let () (declare (not safe)) - (__method-ref _%self194569%_ 'check-arguments)))) - (if __method195737 + (__method-ref _%self194843%_ 'check-arguments)))) + (if __method196011 (let () (declare (not safe)) - (__method195737 - _%self194569%_ - _%ctx194563%_ - _%stx194564%_ - _%args194565%_)) + (__method196011 + _%self194843%_ + _%ctx194837%_ + _%stx194838%_ + _%args194839%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%self194569%_ + _%self194843%_ 'check-arguments)) '#!void))) - (let* ((_%signature194579%_ + (let* ((_%signature194853%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194569%_ '2 '#f '#f))) - (_%signature194581%_ _%signature194579%_) - (_%$e194591%_ - (if _%signature194581%_ + (##unchecked-structure-ref _%self194843%_ '2 '#f '#f))) + (_%signature194855%_ _%signature194853%_) + (_%$e194865%_ + (if _%signature194855%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%signature194581%_ + _%signature194855%_ '4 '#f '#f)) '#f))) - (if _%$e194591%_ - ((lambda (_%unchecked194594%_) + (if _%$e194865%_ + ((lambda (_%unchecked194868%_) (if (let () (declare (not safe)) - (gxc#symbol-in-local-scope? _%unchecked194594%_)) - (let ((__tmp195759 + (gxc#symbol-in-local-scope? _%unchecked194868%_)) + (let ((__tmp196033 (cons '%#call (cons (cons '%#ref - (cons _%unchecked194594%_ + (cons _%unchecked194868%_ '())) - (map (lambda (_%g194595194597%_) + (map (lambda (_%g194869194871%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194563%_ - _%g194595194597%_))) - _%args194565%_))))) + _%ctx194837%_ + _%g194869194871%_))) + _%args194839%_))))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp195759 - _%stx194564%_ - _%ctx194563%_)) + __tmp196033 + _%stx194838%_ + _%ctx194837%_)) (let () (declare (not safe)) - (gxc#xform-call% _%ctx194563%_ _%stx194564%_)))) - _%$e194591%_) + (gxc#xform-call% _%ctx194837%_ _%stx194838%_)))) + _%$e194865%_) (let () (declare (not safe)) - (gxc#xform-call% _%ctx194563%_ _%stx194564%_)))) + (gxc#xform-call% _%ctx194837%_ _%stx194838%_)))) (let () (declare (not safe)) - (gxc#xform-call% _%ctx194563%_ _%stx194564%_)))))) + (gxc#xform-call% _%ctx194837%_ _%stx194838%_)))))) (define gxc#!procedure::optimize-call::specialize - (lambda (__klass195021 __method-table195022) - (let ((__check-arguments195023 - (let ((__tmp195760 + (lambda (__klass195295 __method-table195296) + (let ((__check-arguments195297 + (let ((__tmp196034 (lambda () - (let ((__method195024 + (let ((__method195298 (let () (declare (not safe)) (symbolic-table-ref - __method-table195022 + __method-table195296 'check-arguments '#f)))) - (if __method195024 - __method195024 + (if __method195298 + __method195298 (let () (declare (not safe)) (error '"Missing method" 'check-arguments))))))) (declare (not safe)) - (__make-promise __tmp195760)))) - (lambda (_%self190980194561%_ - _%ctx194563%_ - _%stx194564%_ - _%args194565%_) - (let* ((_%self194567%_ _%self190980194561%_) - (_%self194569%_ _%self194567%_)) - (if ((force __check-arguments195023) - _%self194569%_ - _%ctx194563%_ - _%stx194564%_ - _%args194565%_) - (let* ((_%signature194579%_ + (__make-promise __tmp196034)))) + (lambda (_%self191254194835%_ + _%ctx194837%_ + _%stx194838%_ + _%args194839%_) + (let* ((_%self194841%_ _%self191254194835%_) + (_%self194843%_ _%self194841%_)) + (if ((force __check-arguments195297) + _%self194843%_ + _%ctx194837%_ + _%stx194838%_ + _%args194839%_) + (let* ((_%signature194853%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self194569%_ + _%self194843%_ '2 '#f '#f))) - (_%signature194581%_ _%signature194579%_) - (_%$e194591%_ - (if _%signature194581%_ + (_%signature194855%_ _%signature194853%_) + (_%$e194865%_ + (if _%signature194855%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%signature194581%_ + _%signature194855%_ '4 '#f '#f)) '#f))) - (if _%$e194591%_ - ((lambda (_%unchecked194594%_) + (if _%$e194865%_ + ((lambda (_%unchecked194868%_) (if (let () (declare (not safe)) (gxc#symbol-in-local-scope? - _%unchecked194594%_)) - (let ((__tmp195761 + _%unchecked194868%_)) + (let ((__tmp196035 (cons '%#call (cons (cons '%#ref - (cons _%unchecked194594%_ + (cons _%unchecked194868%_ '())) - (map (lambda (_%g194595194597%_) + (map (lambda (_%g194869194871%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194563%_ - _%g194595194597%_))) - _%args194565%_))))) + _%ctx194837%_ + _%g194869194871%_))) + _%args194839%_))))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp195761 - _%stx194564%_ - _%ctx194563%_)) + __tmp196035 + _%stx194838%_ + _%ctx194837%_)) (let () (declare (not safe)) (gxc#xform-call% - _%ctx194563%_ - _%stx194564%_)))) - _%$e194591%_) + _%ctx194837%_ + _%stx194838%_)))) + _%$e194865%_) (let () (declare (not safe)) - (gxc#xform-call% _%ctx194563%_ _%stx194564%_)))) + (gxc#xform-call% _%ctx194837%_ _%stx194838%_)))) (let () (declare (not safe)) - (gxc#xform-call% _%ctx194563%_ _%stx194564%_)))))))) + (gxc#xform-call% _%ctx194837%_ _%stx194838%_)))))))) (let () (declare (not safe)) (bind-specializer! @@ -1229,142 +1229,142 @@ gxc#!procedure::optimize-call '#f)) (define gxc#!procedure::check-arguments - (lambda (_%self190981194310%_ _%ctx194312%_ _%stx194313%_ _%args194314%_) - (let* ((_%self194316%_ _%self190981194310%_) - (_%self194318%_ _%self194316%_) - (_%signature194327194329%_ + (lambda (_%self191255194584%_ _%ctx194586%_ _%stx194587%_ _%args194588%_) + (let* ((_%self194590%_ _%self191255194584%_) + (_%self194592%_ _%self194590%_) + (_%signature194601194603%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194318%_ '2 '#f '#f)))) - (if _%signature194327194329%_ - (let* ((_%signature194332%_ _%signature194327194329%_) - (_%argument-types194333194335%_ + (##unchecked-structure-ref _%self194592%_ '2 '#f '#f)))) + (if _%signature194601194603%_ + (let* ((_%signature194606%_ _%signature194601194603%_) + (_%argument-types194607194609%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%signature194332%_ + _%signature194606%_ '3 '#f '#f)))) - (if _%argument-types194333194335%_ - (let* ((_%argument-types194338%_ - _%argument-types194333194335%_) - (_%argument-types194343%_ - (let ((__tmp195762 - (lambda (_%t194341%_) - (if _%t194341%_ + (if _%argument-types194607194609%_ + (let* ((_%argument-types194612%_ + _%argument-types194607194609%_) + (_%argument-types194617%_ + (let ((__tmp196036 + (lambda (_%t194615%_) + (if _%t194615%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194313%_ - _%t194341%_)) + _%stx194587%_ + _%t194615%_)) '#f)))) (declare (not safe)) (gxc#map* - __tmp195762 - _%argument-types194338%_)))) - (let _%loop194345%_ ((_%rest-args194347%_ _%args194314%_) - (_%rest-types194348%_ - _%argument-types194343%_) - (_%result194349%_ '#t)) - (let* ((_%rest-args194350194358%_ _%rest-args194347%_) - (_%else194352194366%_ - (lambda () _%result194349%_)) - (_%K194354194427%_ - (lambda (_%rest-args194369%_ _%arg194370%_) - (let* ((_%rest-types194371194382%_ - _%rest-types194348%_) - (_%E194375194386%_ + __tmp196036 + _%argument-types194612%_)))) + (let _%loop194619%_ ((_%rest-args194621%_ _%args194588%_) + (_%rest-types194622%_ + _%argument-types194617%_) + (_%result194623%_ '#t)) + (let* ((_%rest-args194624194632%_ _%rest-args194621%_) + (_%else194626194640%_ + (lambda () _%result194623%_)) + (_%K194628194701%_ + (lambda (_%rest-args194643%_ _%arg194644%_) + (let* ((_%rest-types194645194656%_ + _%rest-types194622%_) + (_%E194649194660%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest-types194371194382%_ + _%rest-types194645194656%_ '([type . rest-types]) '([]) '(tail-type))) '#!void))) - (let ((_%K194378194415%_ - (lambda (_%rest-types194412%_ - _%type194413%_) - (_%loop194345%_ - _%rest-args194369%_ - _%rest-types194412%_ + (let ((_%K194652194689%_ + (lambda (_%rest-types194686%_ + _%type194687%_) + (_%loop194619%_ + _%rest-args194643%_ + _%rest-types194686%_ (if (gxc#check-expression-type! - _%stx194313%_ - _%arg194370%_ - _%type194413%_) - _%result194349%_ + _%stx194587%_ + _%arg194644%_ + _%type194687%_) + _%result194623%_ '#f)))) - (_%K194377194406%_ + (_%K194651194680%_ (lambda () (let () (declare (not safe)) (gxc#raise-compile-error '"signature arity mismatch" - _%stx194313%_ - _%argument-types194343%_)))) - (_%K194376194396%_ - (lambda (_%tail-type194390%_) - (if (let ((__tmp195763 - (lambda (_%g194391194393%_) + _%stx194587%_ + _%argument-types194617%_)))) + (_%K194650194670%_ + (lambda (_%tail-type194664%_) + (if (let ((__tmp196037 + (lambda (_%g194665194667%_) (gxc#check-expression-type! - _%stx194313%_ - _%g194391194393%_ - _%tail-type194390%_)))) + _%stx194587%_ + _%g194665194667%_ + _%tail-type194664%_)))) (declare (not safe)) (__andmap1 - __tmp195763 - _%rest-args194369%_)) - _%result194349%_ + __tmp196037 + _%rest-args194643%_)) + _%result194623%_ '#f)))) - (let ((_%try-match194373194409%_ + (let ((_%try-match194647194683%_ (lambda () (if (let () (declare (not safe)) - (##null? _%rest-types194371194382%_)) - (_%K194377194406%_) - (let ((_%tail-type194399%_ - _%rest-types194371194382%_)) - (_%K194376194396%_ - _%tail-type194399%_)))))) + (##null? _%rest-types194645194656%_)) + (_%K194651194680%_) + (let ((_%tail-type194673%_ + _%rest-types194645194656%_)) + (_%K194650194670%_ + _%tail-type194673%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest-types194371194382%_)) - (let ((_%tl194380194420%_ + (##pair? _%rest-types194645194656%_)) + (let ((_%tl194654194694%_ (let () (declare (not safe)) - (##cdr _%rest-types194371194382%_))) - (_%hd194379194418%_ + (##cdr _%rest-types194645194656%_))) + (_%hd194653194692%_ (let () (declare (not safe)) - (##car _%rest-types194371194382%_)))) - (let ((_%type194423%_ - _%hd194379194418%_) - (_%rest-types194425%_ - _%tl194380194420%_)) - (_%K194378194415%_ - _%rest-types194425%_ - _%type194423%_))) - (_%try-match194373194409%_)))))))) + (##car _%rest-types194645194656%_)))) + (let ((_%type194697%_ + _%hd194653194692%_) + (_%rest-types194699%_ + _%tl194654194694%_)) + (_%K194652194689%_ + _%rest-types194699%_ + _%type194697%_))) + (_%try-match194647194683%_)))))))) (if (let () (declare (not safe)) - (##pair? _%rest-args194350194358%_)) - (let ((_%hd194355194430%_ + (##pair? _%rest-args194624194632%_)) + (let ((_%hd194629194704%_ (let () (declare (not safe)) - (##car _%rest-args194350194358%_))) - (_%tl194356194432%_ + (##car _%rest-args194624194632%_))) + (_%tl194630194706%_ (let () (declare (not safe)) - (##cdr _%rest-args194350194358%_)))) - (let* ((_%arg194435%_ _%hd194355194430%_) - (_%rest-args194437%_ - _%tl194356194432%_)) - (_%K194354194427%_ - _%rest-args194437%_ - _%arg194435%_))) - (_%else194352194366%_))))) + (##cdr _%rest-args194624194632%_)))) + (let* ((_%arg194709%_ _%hd194629194704%_) + (_%rest-args194711%_ + _%tl194630194706%_)) + (_%K194628194701%_ + _%rest-args194711%_ + _%arg194709%_))) + (_%else194626194640%_))))) '#f)) '#f)))) (let () @@ -1375,94 +1375,94 @@ gxc#!procedure::check-arguments '#f)) (define gxc#!primitive-predicate::optimize-call - (lambda (_%self190982194119%_ _%ctx194121%_ _%stx194122%_ _%args194123%_) - (let* ((_%self194125%_ _%self190982194119%_) - (_%self194127%_ _%self194125%_) - (_%g194137194147%_ - (lambda (_%g194138194144%_) + (lambda (_%self191256194393%_ _%ctx194395%_ _%stx194396%_ _%args194397%_) + (let* ((_%self194399%_ _%self191256194393%_) + (_%self194401%_ _%self194399%_) + (_%g194411194421%_ + (lambda (_%g194412194418%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g194138194144%_)))) - (_%g194136194185%_ - (lambda (_%g194138194150%_) + _%g194412194418%_)))) + (_%g194410194459%_ + (lambda (_%g194412194424%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g194138194150%_)) - (let ((_%e194140194152%_ + (gx#stx-pair? _%g194412194424%_)) + (let ((_%e194414194426%_ (let () (declare (not safe)) - (gx#stx-e _%g194138194150%_)))) - (let ((_%hd194141194155%_ + (gx#stx-e _%g194412194424%_)))) + (let ((_%hd194415194429%_ (let () (declare (not safe)) - (##car _%e194140194152%_))) - (_%tl194142194157%_ + (##car _%e194414194426%_))) + (_%tl194416194431%_ (let () (declare (not safe)) - (##cdr _%e194140194152%_)))) + (##cdr _%e194414194426%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194142194157%_)) - ((lambda (_%L194160%_) - (let* ((_%klass194172%_ - (let ((__tmp195764 + (gx#stx-null? _%tl194416194431%_)) + ((lambda (_%L194434%_) + (let* ((_%klass194446%_ + (let ((__tmp196038 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194127%_ + _%self194401%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194122%_ - __tmp195764))) - (_%object194174%_ + _%stx194396%_ + __tmp196038))) + (_%object194448%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194121%_ - _%L194160%_))) - (_%instance?194179%_ - (let ((_%$e194176%_ + _%ctx194395%_ + _%L194434%_))) + (_%instance?194453%_ + (let ((_%$e194450%_ (gxc#expression-type? - _%object194174%_ - _%klass194172%_))) - (if _%$e194176%_ - _%$e194176%_ + _%object194448%_ + _%klass194446%_))) + (if _%$e194450%_ + _%$e194450%_ (gxc#expression-type? - _%L194160%_ - _%klass194172%_))))) - (if _%instance?194179%_ - (let ((__tmp195765 + _%L194434%_ + _%klass194446%_))))) + (if _%instance?194453%_ + (let ((__tmp196039 (if (or (gxc#expression-no-side-effects? - _%object194174%_) + _%object194448%_) (gxc#expression-no-side-effects? - _%L194160%_)) + _%L194434%_)) (cons '%#quote (cons '#t '())) (cons '%#begin - (cons _%object194174%_ + (cons _%object194448%_ (cons '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp195765 - _%stx194122%_)) + __tmp196039 + _%stx194396%_)) (let () (declare (not safe)) (gxc#xform-call% - _%ctx194121%_ - _%stx194122%_))))) - _%hd194141194155%_) - (_%g194137194147%_ _%g194138194150%_)))) - (_%g194137194147%_ _%g194138194150%_))))) - (_%g194136194185%_ _%args194123%_)))) + _%ctx194395%_ + _%stx194396%_))))) + _%hd194415194429%_) + (_%g194411194421%_ _%g194412194424%_)))) + (_%g194411194421%_ _%g194412194424%_))))) + (_%g194410194459%_ _%args194397%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -1471,137 +1471,137 @@ gxc#!primitive-predicate::optimize-call '#f)) (define gxc#!predicate::optimize-call - (lambda (_%self190983193913%_ _%ctx193915%_ _%stx193916%_ _%args193917%_) - (let* ((_%self193919%_ _%self190983193913%_) - (_%self193921%_ _%self193919%_) - (_%g193931193941%_ - (lambda (_%g193932193938%_) + (lambda (_%self191257194187%_ _%ctx194189%_ _%stx194190%_ _%args194191%_) + (let* ((_%self194193%_ _%self191257194187%_) + (_%self194195%_ _%self194193%_) + (_%g194205194215%_ + (lambda (_%g194206194212%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g193932193938%_)))) - (_%g193930193994%_ - (lambda (_%g193932193944%_) + _%g194206194212%_)))) + (_%g194204194268%_ + (lambda (_%g194206194218%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g193932193944%_)) - (let ((_%e193934193946%_ + (gx#stx-pair? _%g194206194218%_)) + (let ((_%e194208194220%_ (let () (declare (not safe)) - (gx#stx-e _%g193932193944%_)))) - (let ((_%hd193935193949%_ + (gx#stx-e _%g194206194218%_)))) + (let ((_%hd194209194223%_ (let () (declare (not safe)) - (##car _%e193934193946%_))) - (_%tl193936193951%_ + (##car _%e194208194220%_))) + (_%tl194210194225%_ (let () (declare (not safe)) - (##cdr _%e193934193946%_)))) + (##cdr _%e194208194220%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193936193951%_)) - ((lambda (_%L193954%_) - (let* ((_%klass193966%_ - (let ((__tmp195766 + (gx#stx-null? _%tl194210194225%_)) + ((lambda (_%L194228%_) + (let* ((_%klass194240%_ + (let ((__tmp196040 (let () (declare (not safe)) (##unchecked-structure-ref - _%self193921%_ + _%self194195%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx193916%_ - __tmp195766))) - (_%object193968%_ + _%stx194190%_ + __tmp196040))) + (_%object194242%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx193915%_ - _%L193954%_))) - (_%instance?193973%_ - (let ((_%$e193970%_ + _%ctx194189%_ + _%L194228%_))) + (_%instance?194247%_ + (let ((_%$e194244%_ (gxc#expression-type? - _%object193968%_ - _%klass193966%_))) - (if _%$e193970%_ - _%$e193970%_ + _%object194242%_ + _%klass194240%_))) + (if _%$e194244%_ + _%$e194244%_ (gxc#expression-type? - _%L193954%_ - _%klass193966%_)))) - (_%klass193976%_ _%klass193966%_)) - (if _%instance?193973%_ - (let ((__tmp195767 + _%L194228%_ + _%klass194240%_)))) + (_%klass194250%_ _%klass194240%_)) + (if _%instance?194247%_ + (let ((__tmp196041 (if (or (gxc#expression-no-side-effects? - _%object193968%_) + _%object194242%_) (gxc#expression-no-side-effects? - _%L193954%_)) + _%L194228%_)) (cons '%#quote (cons '#t '())) (cons '%#begin - (cons _%object193968%_ + (cons _%object194242%_ (cons '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp195767 - _%stx193916%_)) + __tmp196041 + _%stx194190%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193976%_ + _%klass194250%_ '8 '#f '#f)) - (let ((__tmp195768 + (let ((__tmp196042 (cons '%#struct-direct-instance? (cons (cons '%#quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193976%_ + _%klass194250%_ '1 '#f '#f)) '())) - (cons _%object193968%_ '()))))) + (cons _%object194242%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp195768 - _%stx193916%_)) + __tmp196042 + _%stx194190%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193976%_ + _%klass194250%_ '7 '#f '#f)) - (let ((__tmp195769 + (let ((__tmp196043 (cons '%#struct-instance? (cons (cons '%#quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193976%_ + _%klass194250%_ '1 '#f '#f)) '())) - (cons _%object193968%_ '()))))) + (cons _%object194242%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp195769 - _%stx193916%_)) - (let ((__tmp195770 + __tmp196043 + _%stx194190%_)) + (let ((__tmp196044 (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -1610,21 +1610,21 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193921%_ + _%self194195%_ '1 '#f '#f)) '())) - (cons _%object193968%_ '())))))) + (cons _%object194242%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp195770 - _%stx193916%_))))))) - _%hd193935193949%_) - (_%g193931193941%_ _%g193932193944%_)))) - (_%g193931193941%_ _%g193932193944%_))))) - (_%g193930193994%_ _%args193917%_)))) + __tmp196044 + _%stx194190%_))))))) + _%hd194209194223%_) + (_%g194205194215%_ _%g194206194218%_)))) + (_%g194205194215%_ _%g194206194218%_))))) + (_%g194204194268%_ _%args194191%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -1633,419 +1633,419 @@ gxc#!predicate::optimize-call '#f)) (define gxc#expression-no-side-effects? - (lambda (_%stx193576%_) - (let* ((_%__stx195165195166%_ _%stx193576%_) - (_%g193581193622%_ + (lambda (_%stx193850%_) + (let* ((_%__stx195439195440%_ _%stx193850%_) + (_%g193855193896%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx195165195166%_))))) - (let ((_%__kont195167195168%_ (lambda () '#t)) - (_%__kont195169195170%_ (lambda () '#t)) - (_%__kont195171195172%_ - (lambda (_%L193690%_ _%L193691%_) - (let ((_%rator-type193712193714%_ - (let ((__tmp195771 + _%__stx195439195440%_))))) + (let ((_%__kont195441195442%_ (lambda () '#t)) + (_%__kont195443195444%_ (lambda () '#t)) + (_%__kont195445195446%_ + (lambda (_%L193964%_ _%L193965%_) + (let ((_%rator-type193986193988%_ + (let ((__tmp196045 (let () (declare (not safe)) - (gxc#identifier-symbol _%L193691%_)))) + (gxc#identifier-symbol _%L193965%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp195771)))) - (if _%rator-type193712193714%_ - (let* ((_%rator-type193717%_ - _%rator-type193712193714%_) - (_%rator-signature193718193720%_ + (gxc#optimizer-resolve-type __tmp196045)))) + (if _%rator-type193986193988%_ + (let* ((_%rator-type193991%_ + _%rator-type193986193988%_) + (_%rator-signature193992193994%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type193717%_ + _%rator-type193991%_ 'gxc#!procedure::t)) (let () (declare (not safe)) (##unchecked-structure-ref - _%rator-type193717%_ + _%rator-type193991%_ '2 '#f '#f)) '#f))) - (if _%rator-signature193718193720%_ - (let* ((_%rator-signature193723%_ - _%rator-signature193718193720%_) - (_%rator-effect193724193726%_ - (if _%rator-signature193723%_ + (if _%rator-signature193992193994%_ + (let* ((_%rator-signature193997%_ + _%rator-signature193992193994%_) + (_%rator-effect193998194000%_ + (if _%rator-signature193997%_ (##direct-structure-ref - _%rator-signature193723%_ + _%rator-signature193997%_ '2 gxc#!signature::t '#f) '#f))) - (if _%rator-effect193724193726%_ - (let ((_%rator-effect193729%_ - _%rator-effect193724193726%_)) + (if _%rator-effect193998194000%_ + (let ((_%rator-effect194003%_ + _%rator-effect193998194000%_)) (if (or (equal? '(pure) - _%rator-effect193729%_) + _%rator-effect194003%_) (equal? '(alloc) - _%rator-effect193729%_)) - (let ((__tmp195772 - (let ((__tmp195773 - (lambda (_%g193734193737%_ + _%rator-effect194003%_)) + (let ((__tmp196046 + (let ((__tmp196047 + (lambda (_%g194008194011%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g193735193739%_) - (cons _%g193734193737%_ _%g193735193739%_)))) + _%g194009194013%_) + (cons _%g194008194011%_ _%g194009194013%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp195773 + __tmp196047 '() - _%L193690%_)))) + _%L193964%_)))) (declare (not safe)) (__andmap1 gxc#expression-no-side-effects? - __tmp195772)) + __tmp196046)) '#f)) '#f)) '#f)) '#f)))) - (_%__kont195175195176%_ (lambda () '#f))) - (let ((_%__match195254195255%_ - (lambda (_%e193597193634%_ - _%hd193598193637%_ - _%tl193599193639%_ - _%e193600193642%_ - _%hd193601193645%_ - _%tl193602193647%_ - _%e193603193650%_ - _%hd193604193653%_ - _%tl193605193655%_ - _%e193606193658%_ - _%hd193607193661%_ - _%tl193608193663%_ - _%__splice195173195174%_ - _%target193609193666%_ - _%tl193611193668%_) - (letrec ((_%loop193612193671%_ - (lambda (_%hd193610193674%_ - _%rand193616193676%_) + (_%__kont195449195450%_ (lambda () '#f))) + (let ((_%__match195528195529%_ + (lambda (_%e193871193908%_ + _%hd193872193911%_ + _%tl193873193913%_ + _%e193874193916%_ + _%hd193875193919%_ + _%tl193876193921%_ + _%e193877193924%_ + _%hd193878193927%_ + _%tl193879193929%_ + _%e193880193932%_ + _%hd193881193935%_ + _%tl193882193937%_ + _%__splice195447195448%_ + _%target193883193940%_ + _%tl193885193942%_) + (letrec ((_%loop193886193945%_ + (lambda (_%hd193884193948%_ + _%rand193890193950%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193610193674%_)) - (let ((_%e193613193679%_ + (gx#stx-pair? _%hd193884193948%_)) + (let ((_%e193887193953%_ (let () (declare (not safe)) - (gx#stx-e _%hd193610193674%_)))) - (let ((_%lp-tl193615193684%_ + (gx#stx-e _%hd193884193948%_)))) + (let ((_%lp-tl193889193958%_ (let () (declare (not safe)) - (##cdr _%e193613193679%_))) - (_%lp-hd193614193682%_ + (##cdr _%e193887193953%_))) + (_%lp-hd193888193956%_ (let () (declare (not safe)) - (##car _%e193613193679%_)))) - (_%loop193612193671%_ - _%lp-tl193615193684%_ - (cons _%lp-hd193614193682%_ - _%rand193616193676%_)))) - (let ((_%rand193617193687%_ - (reverse _%rand193616193676%_))) - (_%__kont195171195172%_ - _%rand193617193687%_ - _%hd193607193661%_)))))) - (_%loop193612193671%_ _%target193609193666%_ '()))))) + (##car _%e193887193953%_)))) + (_%loop193886193945%_ + _%lp-tl193889193958%_ + (cons _%lp-hd193888193956%_ + _%rand193890193950%_)))) + (let ((_%rand193891193961%_ + (reverse _%rand193890193950%_))) + (_%__kont195445195446%_ + _%rand193891193961%_ + _%hd193881193935%_)))))) + (_%loop193886193945%_ _%target193883193940%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx195165195166%_)) - (let ((_%e193583193770%_ + (gx#stx-pair? _%__stx195439195440%_)) + (let ((_%e193857194044%_ (let () (declare (not safe)) - (gx#stx-e _%__stx195165195166%_)))) - (let ((_%tl193585193775%_ + (gx#stx-e _%__stx195439195440%_)))) + (let ((_%tl193859194049%_ (let () (declare (not safe)) - (##cdr _%e193583193770%_))) - (_%hd193584193773%_ + (##cdr _%e193857194044%_))) + (_%hd193858194047%_ (let () (declare (not safe)) - (##car _%e193583193770%_)))) + (##car _%e193857194044%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd193584193773%_)) + (gx#identifier? _%hd193858194047%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd193584193773%_)) + (gx#stx-eq? '%#quote _%hd193858194047%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193585193775%_)) - (let ((_%e193586193778%_ + (gx#stx-pair? _%tl193859194049%_)) + (let ((_%e193860194052%_ (let () (declare (not safe)) - (gx#stx-e _%tl193585193775%_)))) - (let ((_%tl193588193783%_ + (gx#stx-e _%tl193859194049%_)))) + (let ((_%tl193862194057%_ (let () (declare (not safe)) - (##cdr _%e193586193778%_))) - (_%hd193587193781%_ + (##cdr _%e193860194052%_))) + (_%hd193861194055%_ (let () (declare (not safe)) - (##car _%e193586193778%_)))) + (##car _%e193860194052%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193588193783%_)) - (_%__kont195167195168%_) - (_%__kont195175195176%_)))) - (_%__kont195175195176%_)) + (gx#stx-null? _%tl193862194057%_)) + (_%__kont195441195442%_) + (_%__kont195449195450%_)))) + (_%__kont195449195450%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd193584193773%_)) + (gx#stx-eq? '%#ref _%hd193858194047%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193585193775%_)) - (let ((_%e193592193755%_ + (gx#stx-pair? _%tl193859194049%_)) + (let ((_%e193866194029%_ (let () (declare (not safe)) - (gx#stx-e _%tl193585193775%_)))) - (let ((_%tl193594193760%_ + (gx#stx-e _%tl193859194049%_)))) + (let ((_%tl193868194034%_ (let () (declare (not safe)) - (##cdr _%e193592193755%_))) - (_%hd193593193758%_ + (##cdr _%e193866194029%_))) + (_%hd193867194032%_ (let () (declare (not safe)) - (##car _%e193592193755%_)))) + (##car _%e193866194029%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193594193760%_)) - (_%__kont195169195170%_) - (_%__kont195175195176%_)))) - (_%__kont195175195176%_)) + _%tl193868194034%_)) + (_%__kont195443195444%_) + (_%__kont195449195450%_)))) + (_%__kont195449195450%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd193584193773%_)) + _%hd193858194047%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193585193775%_)) - (let ((_%e193600193642%_ + (gx#stx-pair? _%tl193859194049%_)) + (let ((_%e193874193916%_ (let () (declare (not safe)) (gx#stx-e - _%tl193585193775%_)))) - (let ((_%tl193602193647%_ + _%tl193859194049%_)))) + (let ((_%tl193876193921%_ (let () (declare (not safe)) - (##cdr _%e193600193642%_))) - (_%hd193601193645%_ + (##cdr _%e193874193916%_))) + (_%hd193875193919%_ (let () (declare (not safe)) - (##car _%e193600193642%_)))) + (##car _%e193874193916%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd193601193645%_)) - (let ((_%e193603193650%_ + _%hd193875193919%_)) + (let ((_%e193877193924%_ (let () (declare (not safe)) (gx#stx-e - _%hd193601193645%_)))) - (let ((_%tl193605193655%_ + _%hd193875193919%_)))) + (let ((_%tl193879193929%_ (let () (declare (not safe)) - (##cdr _%e193603193650%_))) - (_%hd193604193653%_ + (##cdr _%e193877193924%_))) + (_%hd193878193927%_ (let () (declare (not safe)) - (##car _%e193603193650%_)))) + (##car _%e193877193924%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd193604193653%_)) + _%hd193878193927%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd193604193653%_)) + (gx#stx-eq? '%#ref _%hd193878193927%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193605193655%_)) - (let ((_%e193606193658%_ + (gx#stx-pair? _%tl193879193929%_)) + (let ((_%e193880193932%_ (let () (declare (not safe)) - (gx#stx-e _%tl193605193655%_)))) - (let ((_%tl193608193663%_ + (gx#stx-e _%tl193879193929%_)))) + (let ((_%tl193882193937%_ (let () (declare (not safe)) - (##cdr _%e193606193658%_))) - (_%hd193607193661%_ + (##cdr _%e193880193932%_))) + (_%hd193881193935%_ (let () (declare (not safe)) - (##car _%e193606193658%_)))) + (##car _%e193880193932%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193608193663%_)) + (gx#stx-null? _%tl193882193937%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl193602193647%_)) - (let ((_%__splice195173195174%_ + (gx#stx-pair/null? _%tl193876193921%_)) + (let ((_%__splice195447195448%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl193602193647%_ + _%tl193876193921%_ '0)))) - (let ((_%tl193611193668%_ + (let ((_%tl193885193942%_ (let () (declare (not safe)) (##vector-ref - _%__splice195173195174%_ + _%__splice195447195448%_ '1))) - (_%target193609193666%_ + (_%target193883193940%_ (let () (declare (not safe)) (##vector-ref - _%__splice195173195174%_ + _%__splice195447195448%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193611193668%_)) - (_%__match195254195255%_ - _%e193583193770%_ - _%hd193584193773%_ - _%tl193585193775%_ - _%e193600193642%_ - _%hd193601193645%_ - _%tl193602193647%_ - _%e193603193650%_ - _%hd193604193653%_ - _%tl193605193655%_ - _%e193606193658%_ - _%hd193607193661%_ - _%tl193608193663%_ - _%__splice195173195174%_ - _%target193609193666%_ - _%tl193611193668%_) - (_%__kont195175195176%_)))) - (_%__kont195175195176%_)) - (_%__kont195175195176%_)))) - (_%__kont195175195176%_)) - (_%__kont195175195176%_)) - (_%__kont195175195176%_)))) + _%tl193885193942%_)) + (_%__match195528195529%_ + _%e193857194044%_ + _%hd193858194047%_ + _%tl193859194049%_ + _%e193874193916%_ + _%hd193875193919%_ + _%tl193876193921%_ + _%e193877193924%_ + _%hd193878193927%_ + _%tl193879193929%_ + _%e193880193932%_ + _%hd193881193935%_ + _%tl193882193937%_ + _%__splice195447195448%_ + _%target193883193940%_ + _%tl193885193942%_) + (_%__kont195449195450%_)))) + (_%__kont195449195450%_)) + (_%__kont195449195450%_)))) + (_%__kont195449195450%_)) + (_%__kont195449195450%_)) + (_%__kont195449195450%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont195175195176%_)))) - (_%__kont195175195176%_)) - (_%__kont195175195176%_)))) - (_%__kont195175195176%_)))) - (_%__kont195175195176%_))))))) + (_%__kont195449195450%_)))) + (_%__kont195449195450%_)) + (_%__kont195449195450%_)))) + (_%__kont195449195450%_)))) + (_%__kont195449195450%_))))))) (define gxc#expression-type? - (lambda (_%stx193571%_ _%klass193572%_) - (let ((_%expr-type193574%_ + (lambda (_%stx193845%_ _%klass193846%_) + (let ((_%expr-type193848%_ (let () (declare (not safe)) - (gxc#apply-basic-expression-type _%stx193571%_)))) - (if _%expr-type193574%_ + (gxc#apply-basic-expression-type _%stx193845%_)))) + (if _%expr-type193848%_ (let () (declare (not safe)) - (gxc#!type-subtype? _%expr-type193574%_ _%klass193572%_)) + (gxc#!type-subtype? _%expr-type193848%_ _%klass193846%_)) '#f)))) (define gxc#check-expression-type! - (lambda (_%stx193549%_ _%expr193550%_ _%type193551%_) - (if (not _%type193551%_) + (lambda (_%stx193823%_ _%expr193824%_ _%type193825%_) + (if (not _%type193825%_) '#f - (let ((_%$e193554%_ - (eq? (##structure-ref _%type193551%_ '1 gxc#!type::t '#f) + (let ((_%$e193828%_ + (eq? (##structure-ref _%type193825%_ '1 gxc#!type::t '#f) 't))) - (if _%$e193554%_ - _%$e193554%_ - (let ((_%expr-type193558%_ + (if _%$e193828%_ + _%$e193828%_ + (let ((_%expr-type193832%_ (let () (declare (not safe)) - (gxc#apply-basic-expression-type _%expr193550%_)))) - (if (not _%expr-type193558%_) + (gxc#apply-basic-expression-type _%expr193824%_)))) + (if (not _%expr-type193832%_) '#f (if (eq? 't (##structure-ref - _%expr-type193558%_ + _%expr-type193832%_ '1 gxc#!type::t '#f)) '#f - (let ((_%$e193562%_ + (let ((_%$e193836%_ (let () (declare (not safe)) (##structure-instance-of? - _%expr-type193558%_ + _%expr-type193832%_ 'gxc#!abort::t)))) - (if _%$e193562%_ - _%$e193562%_ - (let ((_%$e193565%_ + (if _%$e193836%_ + _%$e193836%_ + (let ((_%$e193839%_ (let () (declare (not safe)) (gxc#!type-subtype? - _%expr-type193558%_ - _%type193551%_)))) - (if _%$e193565%_ - _%$e193565%_ + _%expr-type193832%_ + _%type193825%_)))) + (if _%$e193839%_ + _%$e193839%_ (if (let () (declare (not safe)) (gxc#!interface-instance? - _%type193551%_)) + _%type193825%_)) '#f (if (let () (declare (not safe)) (gxc#!type-subtype? - _%type193551%_ - _%expr-type193558%_)) + _%type193825%_ + _%expr-type193832%_)) '#f (let () (declare (not safe)) (gxc#raise-compile-error '"signature type mismatch" - _%stx193549%_ - _%expr193550%_ - _%expr-type193558%_ - _%type193551%_)))))))))))))))) + _%stx193823%_ + _%expr193824%_ + _%expr-type193832%_ + _%type193825%_)))))))))))))))) (define gxc#!constructor::optimize-call - (lambda (_%self190984193361%_ _%ctx193363%_ _%stx193364%_ _%args193365%_) - (let* ((_%self193367%_ _%self190984193361%_) - (_%self193369%_ _%self193367%_) - (_%klass193379%_ - (let ((__tmp195774 + (lambda (_%self191258193635%_ _%ctx193637%_ _%stx193638%_ _%args193639%_) + (let* ((_%self193641%_ _%self191258193635%_) + (_%self193643%_ _%self193641%_) + (_%klass193653%_ + (let ((__tmp196048 (let () (declare (not safe)) (##unchecked-structure-ref - _%self193369%_ + _%self193643%_ '1 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _%stx193364%_ __tmp195774))) - (_%fields193381%_ + (gxc#optimizer-resolve-class _%stx193638%_ __tmp196048))) + (_%fields193655%_ (length (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193379%_ + _%klass193653%_ '5 '#f '#f)))) - (_%args193387%_ - (map (lambda (_%g193382193384%_) + (_%args193661%_ + (map (lambda (_%g193656193658%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%ctx193363%_ _%g193382193384%_))) - _%args193365%_)) - (_%inline-make-object193389%_ + (gxc#compile-e__1 _%ctx193637%_ _%g193656193658%_))) + _%args193639%_)) + (_%inline-make-object193663%_ (cons '%#begin-annotation (cons (cons '@type (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193369%_ + _%self193643%_ '1 '#f '#f)) @@ -2058,66 +2058,66 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self193369%_ + _%self193643%_ '1 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (make-list - _%fields193381%_ + _%fields193655%_ '(%#quote #f))))) '())))) - (_%klass193392%_ _%klass193379%_) - (_%$e193406%_ + (_%klass193666%_ _%klass193653%_) + (_%$e193680%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass193392%_ '6 '#f '#f)))) - (if _%$e193406%_ - ((lambda (_%ctor193409%_) - (let ((_%$obj193411%_ - (let ((__tmp195775 + (##unchecked-structure-ref _%klass193666%_ '6 '#f '#f)))) + (if _%$e193680%_ + ((lambda (_%ctor193683%_) + (let ((_%$obj193685%_ + (let ((__tmp196049 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp195775))) - (_%ctor-impl193412%_ + (make-symbol__0 __tmp196049))) + (_%ctor-impl193686%_ (let () (declare (not safe)) (gxc#!class-lookup-method - _%klass193392%_ - _%ctor193409%_)))) - (let ((__tmp195776 + _%klass193666%_ + _%ctor193683%_)))) + (let ((__tmp196050 (cons '%#let-values - (cons (cons (cons (cons _%$obj193411%_ '()) - (cons _%inline-make-object193389%_ + (cons (cons (cons (cons _%$obj193685%_ '()) + (cons _%inline-make-object193663%_ '())) '()) (cons (cons '%#begin - (cons (if _%ctor-impl193412%_ - (let ((__tmp195777 + (cons (if _%ctor-impl193686%_ + (let ((__tmp196051 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#call (cons (cons '%#ref - (cons _%ctor-impl193412%_ '())) + (cons _%ctor-impl193686%_ '())) (cons (cons '%#ref - (cons _%$obj193411%_ '())) - _%args193387%_))))) + (cons _%$obj193685%_ '())) + _%args193661%_))))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp195777 - _%stx193364%_ - _%ctx193363%_)) - (let ((_%$ctor193414%_ - (let ((__tmp195778 + __tmp196051 + _%stx193638%_ + _%ctx193637%_)) + (let ((_%$ctor193688%_ + (let ((__tmp196052 (let () (declare (not safe)) (##gensym '__constructor)))) (declare (not safe)) - (make-symbol__0 __tmp195778)))) + (make-symbol__0 __tmp196052)))) (cons '%#let-values - (cons (cons (cons (cons _%$ctor193414%_ '()) + (cons (cons (cons (cons _%$ctor193688%_ '()) (cons (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -2126,28 +2126,28 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193369%_ + _%self193643%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj193411%_ '())) + (cons (cons '%#ref (cons _%$obj193685%_ '())) (cons (cons '%#quote - (cons _%ctor193409%_ '())) + (cons _%ctor193683%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) (cons (cons '%#if (cons (cons '%#ref - (cons _%$ctor193414%_ + (cons _%$ctor193688%_ '())) (cons (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$ctor193414%_ '())) - (cons (cons '%#ref (cons _%$obj193411%_ '())) - _%args193387%_))) + (cons _%$ctor193688%_ '())) + (cons (cons '%#ref (cons _%$obj193685%_ '())) + _%args193661%_))) (cons (cons '%#call (cons (cons '%#ref (cons 'error '())) (cons (cons '%#quote @@ -2160,92 +2160,92 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self193369%_ + _%self193643%_ '1 '#f '#f)) '())) (cons (cons '%#quote (cons 'method: '())) - (cons (cons '%#quote (cons _%ctor193409%_ '())) '()))))))) + (cons (cons '%#quote (cons _%ctor193683%_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (cons (cons '%#ref (cons _%$obj193411%_ '())) '()))) + (cons (cons '%#ref (cons _%$obj193685%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp195776 _%stx193364%_)))) - _%$e193406%_) - (let ((_%$e193416%_ + (gxc#xform-wrap-source __tmp196050 _%stx193638%_)))) + _%$e193680%_) + (let ((_%$e193690%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193392%_ + _%klass193666%_ '10 '#f '#f)))) - (if _%$e193416%_ - ((lambda (_%metaclass193419%_) - (let* ((_%$obj193421%_ - (let ((__tmp195779 + (if _%$e193690%_ + ((lambda (_%metaclass193693%_) + (let* ((_%$obj193695%_ + (let ((__tmp196053 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp195779))) - (_%metakons193423%_ - (let ((__tmp195780 + (make-symbol__0 __tmp196053))) + (_%metakons193697%_ + (let ((__tmp196054 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx193364%_ - _%metaclass193419%_)))) + _%stx193638%_ + _%metaclass193693%_)))) (declare (not safe)) (gxc#!class-lookup-method - __tmp195780 + __tmp196054 'instance-init!))) - (__tmp195781 + (__tmp196055 (cons '%#let-values - (cons (cons (cons (cons _%$obj193421%_ + (cons (cons (cons (cons _%$obj193695%_ '()) - (cons _%inline-make-object193389%_ + (cons _%inline-make-object193663%_ '())) '()) (cons (cons '%#begin - (cons (if _%metakons193423%_ + (cons (if _%metakons193697%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp195782 + (let ((__tmp196056 (cons '%#call (cons (cons '%#ref - (cons _%metakons193423%_ + (cons _%metakons193697%_ '())) (cons (cons '%#ref (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##unchecked-structure-ref _%self193369%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self193643%_ '1 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#ref - (cons _%$obj193421%_ + (cons _%$obj193695%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%args193387%_)))))) + _%args193661%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp195782 - _%stx193364%_ - _%ctx193363%_)) + __tmp196056 + _%stx193638%_ + _%ctx193637%_)) (cons '%#call (cons (cons '%#ref (cons 'call-method '())) (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193369%_ + _%self193643%_ '1 '#f '#f)) @@ -2254,38 +2254,38 @@ (cons 'instance-init! '())) (cons (cons '%#ref - (cons _%$obj193421%_ + (cons _%$obj193695%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%args193387%_)))))) + _%args193661%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons '%#ref (cons _%$obj193421%_ '())) '()))) + (cons (cons '%#ref (cons _%$obj193695%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp195781 _%stx193364%_))) - _%$e193416%_) + (gxc#xform-wrap-source __tmp196055 _%stx193638%_))) + _%$e193690%_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193392%_ + _%klass193666%_ '7 '#f '#f)) - (if (let ((__tmp195783 + (if (let ((__tmp196057 (let () (declare (not safe)) - (##length _%args193387%_)))) + (##length _%args193661%_)))) (declare (not safe)) - (##fx= __tmp195783 _%fields193381%_)) - (let ((__tmp195784 + (##fx= __tmp196057 _%fields193655%_)) + (let ((__tmp196058 (cons '%#begin-annotation (cons (cons '@type (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193369%_ + _%self193643%_ '1 '#f '#f)) @@ -2298,151 +2298,151 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193369%_ + _%self193643%_ '1 '#f '#f)) '())) - _%args193387%_))) + _%args193661%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp195784 - _%stx193364%_)) - (let ((__tmp195786 + __tmp196058 + _%stx193638%_)) + (let ((__tmp196060 (let () (declare (not safe)) (##unchecked-structure-ref - _%self193369%_ + _%self193643%_ '1 '#f '#f))) - (__tmp195785 + (__tmp196059 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193392%_ + _%klass193666%_ '5 '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"illegal struct constructor application; arity mismatch" - _%stx193364%_ - __tmp195786 - __tmp195785))) - (let ((_%$obj193428%_ - (let ((__tmp195787 + _%stx193638%_ + __tmp196060 + __tmp196059))) + (let ((_%$obj193702%_ + (let ((__tmp196061 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp195787)))) - (let _%lp193430%_ ((_%rest193432%_ _%args193387%_) - (_%initializers193433%_ '())) - (let* ((_%__stx195257195258%_ _%rest193432%_) - (_%g193437193458%_ + (make-symbol__0 __tmp196061)))) + (let _%lp193704%_ ((_%rest193706%_ _%args193661%_) + (_%initializers193707%_ '())) + (let* ((_%__stx195531195532%_ _%rest193706%_) + (_%g193711193732%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx195257195258%_))))) - (let ((_%__kont195259195260%_ - (lambda (_%L193512%_ - _%L193513%_ - _%L193514%_) - (let* ((_%slot193541%_ - (let ((__tmp195788 + _%__stx195531195532%_))))) + (let ((_%__kont195533195534%_ + (lambda (_%L193786%_ + _%L193787%_ + _%L193788%_) + (let* ((_%slot193815%_ + (let ((__tmp196062 (let () (declare (not safe)) (gx#stx-e - _%L193514%_)))) + _%L193788%_)))) (declare (not safe)) (keyword->symbol - __tmp195788))) - (_%off193543%_ + __tmp196062))) + (_%off193817%_ (let () (declare (not safe)) (gxc#!class-slot->field-offset - _%klass193392%_ - _%slot193541%_)))) - (if _%off193543%_ - (_%lp193430%_ - _%L193512%_ - (cons (cons _%off193543%_ - _%L193513%_) - _%initializers193433%_)) - (let ((__tmp195789 + _%klass193666%_ + _%slot193815%_)))) + (if _%off193817%_ + (_%lp193704%_ + _%L193786%_ + (cons (cons _%off193817%_ + _%L193787%_) + _%initializers193707%_)) + (let ((__tmp196063 (let () (declare (not safe)) (##unchecked-structure-ref - _%self193369%_ + _%self193643%_ '1 '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"unknown slot" - _%stx193364%_ - __tmp195789 - _%slot193541%_)))))) - (_%__kont195261195262%_ + _%stx193638%_ + __tmp196063 + _%slot193815%_)))))) + (_%__kont195535195536%_ (lambda () - (let ((__tmp195790 + (let ((__tmp196064 (cons '%#let-values - (cons (cons (cons (cons _%$obj193428%_ + (cons (cons (cons (cons _%$obj193702%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%inline-make-object193389%_ '())) + (cons _%inline-make-object193663%_ '())) '()) (cons (cons '%#begin - (let ((__tmp195793 + (let ((__tmp196067 (cons (cons '%#ref - (cons _%$obj193428%_ '())) + (cons _%$obj193702%_ '())) '())) - (__tmp195791 - (let ((__tmp195792 - (lambda (_%i193472%_ _%r193473%_) + (__tmp196065 + (let ((__tmp196066 + (lambda (_%i193746%_ _%r193747%_) (cons (cons '%#struct-unchecked-set! (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193369%_ + _%self193643%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons (car _%i193472%_) '())) - (cons (cons '%#ref (cons _%$obj193428%_ '())) - (cons (cdr _%i193472%_) '()))))) + (cons (cons '%#quote (cons (car _%i193746%_) '())) + (cons (cons '%#ref (cons _%$obj193702%_ '())) + (cons (cdr _%i193746%_) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r193473%_)))) + _%r193747%_)))) (declare (not safe)) (__foldl1 - __tmp195792 + __tmp196066 '() - _%initializers193433%_)))) + _%initializers193707%_)))) (declare (not safe)) - (__foldr1 cons __tmp195793 __tmp195791))) + (__foldr1 cons __tmp196067 __tmp196065))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp195790 - _%stx193364%_)))) - (_%__kont195263195264%_ + __tmp196064 + _%stx193638%_)))) + (_%__kont195537195538%_ (lambda () - (let ((__tmp195794 + (let ((__tmp196068 (cons '%#let-values - (cons (cons (cons (cons _%$obj193428%_ + (cons (cons (cons (cons _%$obj193702%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%inline-make-object193389%_ '())) + (cons _%inline-make-object193663%_ '())) '()) (cons (cons '%#begin (cons (cons '%#call @@ -2450,157 +2450,157 @@ (cons 'class-instance-init! '())) (cons (cons '%#ref - (cons _%$obj193428%_ + (cons _%$obj193702%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%args193387%_))) + _%args193661%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#ref - (cons _%$obj193428%_ '())) + (cons _%$obj193702%_ '())) '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp195794 - _%stx193364%_))))) - (let* ((_%g193435193475%_ + __tmp196068 + _%stx193638%_))))) + (let* ((_%g193709193749%_ (lambda () (if (let () (declare (not safe)) (gx#stx-null? - _%__stx195257195258%_)) - (_%__kont195261195262%_) - (_%__kont195263195264%_)))) - (_%__match195294195295%_ - (lambda (_%e193442193480%_ - _%hd193443193483%_ - _%tl193444193485%_ - _%e193445193488%_ - _%hd193446193491%_ - _%tl193447193493%_ - _%e193448193496%_ - _%hd193449193499%_ - _%tl193450193501%_ - _%e193451193504%_ - _%hd193452193507%_ - _%tl193453193509%_) - (let ((_%L193512%_ - _%tl193453193509%_) - (_%L193513%_ - _%hd193452193507%_) - (_%L193514%_ - _%hd193449193499%_)) + _%__stx195531195532%_)) + (_%__kont195535195536%_) + (_%__kont195537195538%_)))) + (_%__match195568195569%_ + (lambda (_%e193716193754%_ + _%hd193717193757%_ + _%tl193718193759%_ + _%e193719193762%_ + _%hd193720193765%_ + _%tl193721193767%_ + _%e193722193770%_ + _%hd193723193773%_ + _%tl193724193775%_ + _%e193725193778%_ + _%hd193726193781%_ + _%tl193727193783%_) + (let ((_%L193786%_ + _%tl193727193783%_) + (_%L193787%_ + _%hd193726193781%_) + (_%L193788%_ + _%hd193723193773%_)) (if (let () (declare (not safe)) (gx#stx-keyword? - _%L193514%_)) - (_%__kont195259195260%_ - _%L193512%_ - _%L193513%_ - _%L193514%_) - (_%__kont195263195264%_)))))) + _%L193788%_)) + (_%__kont195533195534%_ + _%L193786%_ + _%L193787%_ + _%L193788%_) + (_%__kont195537195538%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx195257195258%_)) - (let ((_%e193442193480%_ + (gx#stx-pair? _%__stx195531195532%_)) + (let ((_%e193716193754%_ (let () (declare (not safe)) (gx#stx-e - _%__stx195257195258%_)))) - (let ((_%tl193444193485%_ + _%__stx195531195532%_)))) + (let ((_%tl193718193759%_ (let () (declare (not safe)) - (##cdr _%e193442193480%_))) - (_%hd193443193483%_ + (##cdr _%e193716193754%_))) + (_%hd193717193757%_ (let () (declare (not safe)) - (##car _%e193442193480%_)))) + (##car _%e193716193754%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd193443193483%_)) - (let ((_%e193445193488%_ + _%hd193717193757%_)) + (let ((_%e193719193762%_ (let () (declare (not safe)) (gx#stx-e - _%hd193443193483%_)))) - (let ((_%tl193447193493%_ + _%hd193717193757%_)))) + (let ((_%tl193721193767%_ (let () (declare (not safe)) - (##cdr _%e193445193488%_))) - (_%hd193446193491%_ + (##cdr _%e193719193762%_))) + (_%hd193720193765%_ (let () (declare (not safe)) - (##car _%e193445193488%_)))) + (##car _%e193719193762%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd193446193491%_)) + _%hd193720193765%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd193446193491%_)) + _%hd193720193765%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl193447193493%_)) - (let ((_%e193448193496%_ + (gx#stx-pair? _%tl193721193767%_)) + (let ((_%e193722193770%_ (let () (declare (not safe)) - (gx#stx-e _%tl193447193493%_)))) - (let ((_%tl193450193501%_ + (gx#stx-e _%tl193721193767%_)))) + (let ((_%tl193724193775%_ (let () (declare (not safe)) - (##cdr _%e193448193496%_))) - (_%hd193449193499%_ + (##cdr _%e193722193770%_))) + (_%hd193723193773%_ (let () (declare (not safe)) - (##car _%e193448193496%_)))) + (##car _%e193722193770%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193450193501%_)) + (gx#stx-null? _%tl193724193775%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193444193485%_)) - (let ((_%e193451193504%_ + (gx#stx-pair? _%tl193718193759%_)) + (let ((_%e193725193778%_ (let () (declare (not safe)) - (gx#stx-e _%tl193444193485%_)))) - (let ((_%tl193453193509%_ + (gx#stx-e _%tl193718193759%_)))) + (let ((_%tl193727193783%_ (let () (declare (not safe)) - (##cdr _%e193451193504%_))) - (_%hd193452193507%_ + (##cdr _%e193725193778%_))) + (_%hd193726193781%_ (let () (declare (not safe)) - (##car _%e193451193504%_)))) - (_%__match195294195295%_ - _%e193442193480%_ - _%hd193443193483%_ - _%tl193444193485%_ - _%e193445193488%_ - _%hd193446193491%_ - _%tl193447193493%_ - _%e193448193496%_ - _%hd193449193499%_ - _%tl193450193501%_ - _%e193451193504%_ - _%hd193452193507%_ - _%tl193453193509%_))) - (_%__kont195263195264%_)) - (_%__kont195263195264%_)))) - (_%__kont195263195264%_)) - (_%__kont195263195264%_)) - (_%__kont195263195264%_)))) + (##car _%e193725193778%_)))) + (_%__match195568195569%_ + _%e193716193754%_ + _%hd193717193757%_ + _%tl193718193759%_ + _%e193719193762%_ + _%hd193720193765%_ + _%tl193721193767%_ + _%e193722193770%_ + _%hd193723193773%_ + _%tl193724193775%_ + _%e193725193778%_ + _%hd193726193781%_ + _%tl193727193783%_))) + (_%__kont195537195538%_)) + (_%__kont195537195538%_)))) + (_%__kont195537195538%_)) + (_%__kont195537195538%_)) + (_%__kont195537195538%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont195263195264%_)))) + (_%__kont195537195538%_)))) (let () (declare (not safe)) - (_%g193435193475%_))))))))))))))) + (_%g193709193749%_))))))))))))))) (let () (declare (not safe)) (__bind-method!__% @@ -2609,105 +2609,105 @@ gxc#!constructor::optimize-call '#f)) (define gxc#!accessor::optimize-call - (lambda (_%self190985193142%_ _%ctx193144%_ _%stx193145%_ _%args193146%_) - (let* ((_%self193148%_ _%self190985193142%_) - (_%self193150%_ _%self193148%_) - (_%arguments-ok?193160%_ - (let ((__method195738 + (lambda (_%self191259193416%_ _%ctx193418%_ _%stx193419%_ _%args193420%_) + (let* ((_%self193422%_ _%self191259193416%_) + (_%self193424%_ _%self193422%_) + (_%arguments-ok?193434%_ + (let ((__method196012 (let () (declare (not safe)) - (__method-ref _%self193150%_ 'check-arguments)))) - (if __method195738 + (__method-ref _%self193424%_ 'check-arguments)))) + (if __method196012 (let () (declare (not safe)) - (__method195738 - _%self193150%_ - _%ctx193144%_ - _%stx193145%_ - _%args193146%_)) + (__method196012 + _%self193424%_ + _%ctx193418%_ + _%stx193419%_ + _%args193420%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%self193150%_ + _%self193424%_ 'check-arguments)) '#!void)))) - (_%g193162193172%_ - (lambda (_%g193163193169%_) + (_%g193436193446%_ + (lambda (_%g193437193443%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g193163193169%_)))) - (_%g193161193236%_ - (lambda (_%g193163193175%_) + _%g193437193443%_)))) + (_%g193435193510%_ + (lambda (_%g193437193449%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g193163193175%_)) - (let ((_%e193165193177%_ + (gx#stx-pair? _%g193437193449%_)) + (let ((_%e193439193451%_ (let () (declare (not safe)) - (gx#stx-e _%g193163193175%_)))) - (let ((_%hd193166193180%_ + (gx#stx-e _%g193437193449%_)))) + (let ((_%hd193440193454%_ (let () (declare (not safe)) - (##car _%e193165193177%_))) - (_%tl193167193182%_ + (##car _%e193439193451%_))) + (_%tl193441193456%_ (let () (declare (not safe)) - (##cdr _%e193165193177%_)))) + (##cdr _%e193439193451%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193167193182%_)) - ((lambda (_%L193185%_) - (let* ((_%klass193198%_ - (let ((__tmp195795 + (gx#stx-null? _%tl193441193456%_)) + ((lambda (_%L193459%_) + (let* ((_%klass193472%_ + (let ((__tmp196069 (let () (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ + _%self193424%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx193145%_ - __tmp195795))) - (_%field193200%_ - (let ((__tmp195796 + _%stx193419%_ + __tmp196069))) + (_%field193474%_ + (let ((__tmp196070 (let () (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ + _%self193424%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass193198%_ - __tmp195796))) - (_%object193202%_ + _%klass193472%_ + __tmp196070))) + (_%object193476%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx193144%_ - _%L193185%_))) - (_%klass193205%_ _%klass193198%_)) + _%ctx193418%_ + _%L193459%_))) + (_%klass193479%_ _%klass193472%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193205%_ + _%klass193479%_ '8 '#f '#f)) - (let ((__tmp195797 - (cons (if (or _%arguments-ok?193160%_ + (let ((__tmp196071 + (cons (if (or _%arguments-ok?193434%_ (not (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ + _%self193424%_ '4 '#f '#f)))) @@ -2719,32 +2719,32 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ + _%self193424%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field193200%_ '())) - (cons _%object193202%_ '())))))) + (cons (cons '%#quote (cons _%field193474%_ '())) + (cons _%object193476%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp195797 - _%stx193145%_)) + __tmp196071 + _%stx193419%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193205%_ + _%klass193479%_ '7 '#f '#f)) - (let ((__tmp195798 - (cons (if (or _%arguments-ok?193160%_ + (let ((__tmp196072 + (cons (if (or _%arguments-ok?193434%_ (not (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ + _%self193424%_ '4 '#f '#f)))) @@ -2754,40 +2754,40 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ + _%self193424%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field193200%_ '())) - (cons _%object193202%_ '())))))) + (cons (cons '%#quote (cons _%field193474%_ '())) + (cons _%object193476%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp195798 - _%stx193145%_)) - (let ((_%$e193224%_ - (let ((__tmp195799 + __tmp196072 + _%stx193419%_)) + (let ((_%$e193498%_ + (let ((__tmp196073 (let () (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ + _%self193424%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _%klass193205%_ - __tmp195799)))) - (if _%$e193224%_ - ((lambda (_%klass193227%_) - (let ((__tmp195800 - (cons (if (or _%arguments-ok?193160%_ + _%klass193479%_ + __tmp196073)))) + (if _%$e193498%_ + ((lambda (_%klass193501%_) + (let ((__tmp196074 + (cons (if (or _%arguments-ok?193434%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ + _%self193424%_ '4 '#f '#f)))) @@ -2797,36 +2797,36 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ + _%self193424%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field193200%_ '())) - (cons _%object193202%_ '())))))) + (cons (cons '%#quote (cons _%field193474%_ '())) + (cons _%object193476%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp195800 _%stx193145%_))) + (gxc#xform-wrap-source __tmp196074 _%stx193419%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e193224%_) + _%$e193498%_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ + _%self193424%_ '4 '#f '#f)) - (let ((__tmp195801 - (let ((_%$obj193233%_ + (let ((__tmp196075 + (let ((_%$obj193507%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp195802 + (let ((__tmp196076 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp195802)))) + (make-symbol__0 __tmp196076)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj193233%_ '()) - (cons _%object193202%_ '())) + (cons (cons (cons (cons _%$obj193507%_ '()) + (cons _%object193476%_ '())) '()) (cons (cons '%#if (cons (cons '%#struct-direct-instance? @@ -2835,12 +2835,12 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193205%_ + _%klass193479%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj193233%_ '())) '()))) + (cons (cons '%#ref (cons _%$obj193507%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#struct-unchecked-ref (cons (cons '%#ref @@ -2848,27 +2848,27 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ + _%self193424%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field193200%_ '())) + (cons (cons '%#quote (cons _%field193474%_ '())) (cons (cons '%#ref - (cons _%$obj193233%_ '())) + (cons _%$obj193507%_ '())) '())))) - (cons (if _%arguments-ok?193160%_ + (cons (if _%arguments-ok?193434%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-ref '())) (cons (cons '%#ref - (cons _%$obj193233%_ '())) + (cons _%$obj193507%_ '())) (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ + _%self193424%_ '3 '#f '#f)) @@ -2883,20 +2883,20 @@ (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ + _%self193424%_ '1 '#f '#f)) '())) (cons (cons '%#ref - (cons _%$obj193233%_ + (cons _%$obj193507%_ '())) (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ + _%self193424%_ '3 '#f '#f)) @@ -2907,148 +2907,148 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp195801 _%stx193145%_)) + (gxc#xform-wrap-source __tmp196075 _%stx193419%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp195803 + (let ((__tmp196077 (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons 'unchecked-slot-ref '())) - (cons _%object193202%_ + (cons _%object193476%_ (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ + _%self193424%_ '3 '#f '#f)) '())) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp195803 _%stx193145%_))))))))) + (gxc#xform-wrap-source __tmp196077 _%stx193419%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd193166193180%_) - (_%g193162193172%_ _%g193163193175%_)))) - (_%g193162193172%_ _%g193163193175%_))))) - (_%g193161193236%_ _%args193146%_)))) + _%hd193440193454%_) + (_%g193436193446%_ _%g193437193449%_)))) + (_%g193436193446%_ _%g193437193449%_))))) + (_%g193435193510%_ _%args193420%_)))) (define gxc#!accessor::optimize-call::specialize - (lambda (__klass195025 __method-table195026) - (let ((__check-arguments195027 - (let ((__tmp195804 + (lambda (__klass195299 __method-table195300) + (let ((__check-arguments195301 + (let ((__tmp196078 (lambda () - (let ((__method195028 + (let ((__method195302 (let () (declare (not safe)) (symbolic-table-ref - __method-table195026 + __method-table195300 'check-arguments '#f)))) - (if __method195028 - __method195028 + (if __method195302 + __method195302 (let () (declare (not safe)) (error '"Missing method" 'check-arguments))))))) (declare (not safe)) - (__make-promise __tmp195804))) - (__slot195029 - (let ((__slot195030 + (__make-promise __tmp196078))) + (__slot195303 + (let ((__slot195304 (let () (declare (not safe)) - (class-slot-offset __klass195025 'slot)))) - (if __slot195030 - __slot195030 + (class-slot-offset __klass195299 'slot)))) + (if __slot195304 + __slot195304 (let () (declare (not safe)) (error '"Unknown slot" 'slot)))))) - (lambda (_%self190985193142%_ - _%ctx193144%_ - _%stx193145%_ - _%args193146%_) - (let* ((_%self193148%_ _%self190985193142%_) - (_%self193150%_ _%self193148%_) - (_%arguments-ok?193160%_ - ((force __check-arguments195027) - _%self193150%_ - _%ctx193144%_ - _%stx193145%_ - _%args193146%_)) - (_%g193162193172%_ - (lambda (_%g193163193169%_) + (lambda (_%self191259193416%_ + _%ctx193418%_ + _%stx193419%_ + _%args193420%_) + (let* ((_%self193422%_ _%self191259193416%_) + (_%self193424%_ _%self193422%_) + (_%arguments-ok?193434%_ + ((force __check-arguments195301) + _%self193424%_ + _%ctx193418%_ + _%stx193419%_ + _%args193420%_)) + (_%g193436193446%_ + (lambda (_%g193437193443%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g193163193169%_)))) - (_%g193161193236%_ - (lambda (_%g193163193175%_) + _%g193437193443%_)))) + (_%g193435193510%_ + (lambda (_%g193437193449%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g193163193175%_)) - (let ((_%e193165193177%_ + (gx#stx-pair? _%g193437193449%_)) + (let ((_%e193439193451%_ (let () (declare (not safe)) - (gx#stx-e _%g193163193175%_)))) - (let ((_%hd193166193180%_ + (gx#stx-e _%g193437193449%_)))) + (let ((_%hd193440193454%_ (let () (declare (not safe)) - (##car _%e193165193177%_))) - (_%tl193167193182%_ + (##car _%e193439193451%_))) + (_%tl193441193456%_ (let () (declare (not safe)) - (##cdr _%e193165193177%_)))) + (##cdr _%e193439193451%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193167193182%_)) - ((lambda (_%L193185%_) - (let* ((_%klass193198%_ - (let ((__tmp195805 + (gx#stx-null? _%tl193441193456%_)) + ((lambda (_%L193459%_) + (let* ((_%klass193472%_ + (let ((__tmp196079 (let () (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ + _%self193424%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx193145%_ - __tmp195805))) - (_%field193200%_ - (let ((__tmp195806 + _%stx193419%_ + __tmp196079))) + (_%field193474%_ + (let ((__tmp196080 (let () (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ + _%self193424%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass193198%_ - __tmp195806))) - (_%object193202%_ + _%klass193472%_ + __tmp196080))) + (_%object193476%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx193144%_ - _%L193185%_))) - (_%klass193205%_ _%klass193198%_)) + _%ctx193418%_ + _%L193459%_))) + (_%klass193479%_ _%klass193472%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193205%_ + _%klass193479%_ '8 '#f '#f)) - (let ((__tmp195807 - (cons (if (or _%arguments-ok?193160%_ + (let ((__tmp196081 + (cons (if (or _%arguments-ok?193434%_ (not (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ + _%self193424%_ '4 '#f '#f)))) @@ -3058,32 +3058,32 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ + _%self193424%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field193200%_ '())) - (cons _%object193202%_ '())))))) + (cons (cons '%#quote (cons _%field193474%_ '())) + (cons _%object193476%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp195807 - _%stx193145%_)) + __tmp196081 + _%stx193419%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193205%_ + _%klass193479%_ '7 '#f '#f)) - (let ((__tmp195808 - (cons (if (or _%arguments-ok?193160%_ + (let ((__tmp196082 + (cons (if (or _%arguments-ok?193434%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ + _%self193424%_ '4 '#f '#f)))) @@ -3093,37 +3093,37 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ + _%self193424%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field193200%_ '())) - (cons _%object193202%_ '())))))) + (cons (cons '%#quote (cons _%field193474%_ '())) + (cons _%object193476%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp195808 - _%stx193145%_)) - (let ((_%$e193224%_ - (let ((__tmp195809 + __tmp196082 + _%stx193419%_)) + (let ((_%$e193498%_ + (let ((__tmp196083 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##unchecked-structure-ref _%self193150%_ '3 '#f '#f)))) + (##unchecked-structure-ref _%self193424%_ '3 '#f '#f)))) (declare (not safe)) - (gxc#!class-slot-find-struct _%klass193205%_ __tmp195809)))) + (gxc#!class-slot-find-struct _%klass193479%_ __tmp196083)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e193224%_ - ((lambda (_%klass193227%_) - (let ((__tmp195810 - (cons (if (or _%arguments-ok?193160%_ + (if _%$e193498%_ + ((lambda (_%klass193501%_) + (let ((__tmp196084 + (cons (if (or _%arguments-ok?193434%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ + _%self193424%_ '4 '#f '#f)))) @@ -3133,37 +3133,37 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ + _%self193424%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field193200%_ '())) - (cons _%object193202%_ '())))))) + (cons _%field193474%_ '())) + (cons _%object193476%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp195810 _%stx193145%_))) - _%$e193224%_) + (gxc#xform-wrap-source __tmp196084 _%stx193419%_))) + _%$e193498%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ + _%self193424%_ '4 '#f '#f)) - (let ((__tmp195811 - (let ((_%$obj193233%_ + (let ((__tmp196085 + (let ((_%$obj193507%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp195812 + (let ((__tmp196086 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp195812)))) + (make-symbol__0 __tmp196086)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj193233%_ '()) - (cons _%object193202%_ '())) + (cons (cons (cons (cons _%$obj193507%_ '()) + (cons _%object193476%_ '())) '()) (cons (cons '%#if (cons (cons '%#struct-direct-instance? @@ -3172,43 +3172,43 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass193205%_ + _%klass193479%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj193233%_ '())) + (cons (cons '%#ref (cons _%$obj193507%_ '())) '()))) (cons (cons '%#struct-unchecked-ref (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ + _%self193424%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field193200%_ '())) + (cons _%field193474%_ '())) (cons (cons '%#ref - (cons _%$obj193233%_ '())) + (cons _%$obj193507%_ '())) '())))) - (cons (if _%arguments-ok?193160%_ + (cons (if _%arguments-ok?193434%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-ref '())) (cons (cons '%#ref - (cons _%$obj193233%_ + (cons _%$obj193507%_ '())) (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ - __slot195029 + _%self193424%_ + __slot195303 '#f '#f)) '())) @@ -3222,18 +3222,18 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##unchecked-structure-ref _%self193150%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self193424%_ '1 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#ref - (cons _%$obj193233%_ + (cons _%$obj193507%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ + _%self193424%_ '3 '#f '#f)) @@ -3244,30 +3244,30 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp195811 _%stx193145%_)) - (let ((__tmp195813 + (gxc#xform-wrap-source __tmp196085 _%stx193419%_)) + (let ((__tmp196087 (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-ref '())) - (cons _%object193202%_ + (cons _%object193476%_ (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self193150%_ + _%self193424%_ '3 '#f '#f)) '())) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp195813 _%stx193145%_))))))))) + (gxc#xform-wrap-source __tmp196087 _%stx193419%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd193166193180%_) - (_%g193162193172%_ _%g193163193175%_)))) - (_%g193162193172%_ _%g193163193175%_))))) - (_%g193161193236%_ _%args193146%_)))))) + _%hd193440193454%_) + (_%g193436193446%_ _%g193437193449%_)))) + (_%g193436193446%_ _%g193437193449%_))))) + (_%g193435193510%_ _%args193420%_)))))) (let () (declare (not safe)) (bind-specializer! @@ -3281,127 +3281,127 @@ gxc#!accessor::optimize-call '#f)) (define gxc#!mutator::optimize-call - (lambda (_%self190986192904%_ _%ctx192906%_ _%stx192907%_ _%args192908%_) - (let* ((_%self192910%_ _%self190986192904%_) - (_%self192912%_ _%self192910%_) - (_%arguments-ok?192922%_ - (let ((__method195739 + (lambda (_%self191260193178%_ _%ctx193180%_ _%stx193181%_ _%args193182%_) + (let* ((_%self193184%_ _%self191260193178%_) + (_%self193186%_ _%self193184%_) + (_%arguments-ok?193196%_ + (let ((__method196013 (let () (declare (not safe)) - (__method-ref _%self192912%_ 'check-arguments)))) - (if __method195739 + (__method-ref _%self193186%_ 'check-arguments)))) + (if __method196013 (let () (declare (not safe)) - (__method195739 - _%self192912%_ - _%ctx192906%_ - _%stx192907%_ - _%args192908%_)) + (__method196013 + _%self193186%_ + _%ctx193180%_ + _%stx193181%_ + _%args193182%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%self192912%_ + _%self193186%_ 'check-arguments)) '#!void)))) - (_%g192924192938%_ - (lambda (_%g192925192935%_) + (_%g193198193212%_ + (lambda (_%g193199193209%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g192925192935%_)))) - (_%g192923193017%_ - (lambda (_%g192925192941%_) + _%g193199193209%_)))) + (_%g193197193291%_ + (lambda (_%g193199193215%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g192925192941%_)) - (let ((_%e192928192943%_ + (gx#stx-pair? _%g193199193215%_)) + (let ((_%e193202193217%_ (let () (declare (not safe)) - (gx#stx-e _%g192925192941%_)))) - (let ((_%hd192929192946%_ + (gx#stx-e _%g193199193215%_)))) + (let ((_%hd193203193220%_ (let () (declare (not safe)) - (##car _%e192928192943%_))) - (_%tl192930192948%_ + (##car _%e193202193217%_))) + (_%tl193204193222%_ (let () (declare (not safe)) - (##cdr _%e192928192943%_)))) + (##cdr _%e193202193217%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192930192948%_)) - (let ((_%e192931192951%_ + (gx#stx-pair? _%tl193204193222%_)) + (let ((_%e193205193225%_ (let () (declare (not safe)) - (gx#stx-e _%tl192930192948%_)))) - (let ((_%hd192932192954%_ + (gx#stx-e _%tl193204193222%_)))) + (let ((_%hd193206193228%_ (let () (declare (not safe)) - (##car _%e192931192951%_))) - (_%tl192933192956%_ + (##car _%e193205193225%_))) + (_%tl193207193230%_ (let () (declare (not safe)) - (##cdr _%e192931192951%_)))) + (##cdr _%e193205193225%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192933192956%_)) - ((lambda (_%L192959%_ _%L192960%_) - (let* ((_%klass192976%_ - (let ((__tmp195814 + (gx#stx-null? _%tl193207193230%_)) + ((lambda (_%L193233%_ _%L193234%_) + (let* ((_%klass193250%_ + (let ((__tmp196088 (let () (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx192907%_ - __tmp195814))) - (_%field192978%_ - (let ((__tmp195815 + _%stx193181%_ + __tmp196088))) + (_%field193252%_ + (let ((__tmp196089 (let () (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass192976%_ - __tmp195815))) - (_%object192980%_ + _%klass193250%_ + __tmp196089))) + (_%object193254%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx192906%_ - _%L192960%_))) - (_%value192982%_ + _%ctx193180%_ + _%L193234%_))) + (_%value193256%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx192906%_ - _%L192959%_))) - (_%klass192985%_ - _%klass192976%_)) + _%ctx193180%_ + _%L193233%_))) + (_%klass193259%_ + _%klass193250%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass192985%_ + _%klass193259%_ '8 '#f '#f)) - (let ((__tmp195816 - (cons (if (or _%arguments-ok?192922%_ + (let ((__tmp196090 + (cons (if (or _%arguments-ok?193196%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '4 '#f '#f)))) @@ -3411,33 +3411,33 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field192978%_ '())) - (cons _%object192980%_ - (cons _%value192982%_ '()))))))) + (cons (cons '%#quote (cons _%field193252%_ '())) + (cons _%object193254%_ + (cons _%value193256%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp195816 - _%stx192907%_)) + __tmp196090 + _%stx193181%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass192985%_ + _%klass193259%_ '7 '#f '#f)) - (let ((__tmp195817 - (cons (if (or _%arguments-ok?192922%_ + (let ((__tmp196091 + (cons (if (or _%arguments-ok?193196%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '4 '#f '#f)))) @@ -3447,43 +3447,43 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field192978%_ '())) - (cons _%object192980%_ - (cons _%value192982%_ '()))))))) + (cons (cons '%#quote (cons _%field193252%_ '())) + (cons _%object193254%_ + (cons _%value193256%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp195817 - _%stx192907%_)) - (let ((_%$e193005%_ - (let ((__tmp195818 + __tmp196091 + _%stx193181%_)) + (let ((_%$e193279%_ + (let ((__tmp196092 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _%klass192985%_ - __tmp195818)))) + _%klass193259%_ + __tmp196092)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e193005%_ - ((lambda (_%klass193008%_) - (let ((__tmp195819 + (if _%$e193279%_ + ((lambda (_%klass193282%_) + (let ((__tmp196093 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (if (or _%arguments-ok?192922%_ + (cons (if (or _%arguments-ok?193196%_ (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '3 '#f '#f)))) @@ -3493,33 +3493,33 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field192978%_ '())) - (cons _%object192980%_ - (cons _%value192982%_ + (cons _%field193252%_ '())) + (cons _%object193254%_ + (cons _%value193256%_ '()))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp195819 _%stx192907%_))) - _%$e193005%_) + (gxc#xform-wrap-source __tmp196093 _%stx193181%_))) + _%$e193279%_) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%self192912%_ '4 '#f '#f)) - (let ((__tmp195820 - (let ((_%$obj193014%_ - (let ((__tmp195821 + (##unchecked-structure-ref _%self193186%_ '4 '#f '#f)) + (let ((__tmp196094 + (let ((_%$obj193288%_ + (let ((__tmp196095 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp195821)))) + (make-symbol__0 __tmp196095)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj193014%_ '()) - (cons _%object192980%_ + (cons (cons (cons (cons _%$obj193288%_ '()) + (cons _%object193254%_ '())) '()) (cons (cons '%#if @@ -3529,49 +3529,49 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass192985%_ + _%klass193259%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj193014%_ '())) + (cons (cons '%#ref (cons _%$obj193288%_ '())) '()))) (cons (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field192978%_ '())) + (cons _%field193252%_ '())) (cons (cons '%#ref - (cons _%$obj193014%_ + (cons _%$obj193288%_ '())) - (cons _%value192982%_ + (cons _%value193256%_ '()))))) - (cons (if _%arguments-ok?192922%_ + (cons (if _%arguments-ok?193196%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) (cons (cons '%#ref - (cons _%$obj193014%_ + (cons _%$obj193288%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '3 '#f '#f)) '())) - (cons _%value192982%_ '()))))) + (cons _%value193256%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '%#call (cons (cons '%#ref @@ -3582,189 +3582,189 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj193014%_ '())) + (cons (cons '%#ref (cons _%$obj193288%_ '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '3 '#f '#f)) '())) - (cons _%value192982%_ '()))))))) + (cons _%value193256%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp195820 _%stx192907%_)) - (let ((__tmp195822 + (gxc#xform-wrap-source __tmp196094 _%stx193181%_)) + (let ((__tmp196096 (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) - (cons _%object192980%_ + (cons _%object193254%_ (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '3 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%value192982%_ + (cons _%value193256%_ '()))))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp195822 - _%stx192907%_))))))))) + __tmp196096 + _%stx193181%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd192932192954%_ - _%hd192929192946%_) - (_%g192924192938%_ _%g192925192941%_)))) - (_%g192924192938%_ _%g192925192941%_)))) - (_%g192924192938%_ _%g192925192941%_))))) - (_%g192923193017%_ _%args192908%_)))) + _%hd193206193228%_ + _%hd193203193220%_) + (_%g193198193212%_ _%g193199193215%_)))) + (_%g193198193212%_ _%g193199193215%_)))) + (_%g193198193212%_ _%g193199193215%_))))) + (_%g193197193291%_ _%args193182%_)))) (define gxc#!mutator::optimize-call::specialize - (lambda (__klass195031 __method-table195032) - (let ((__check-arguments195033 - (let ((__tmp195823 + (lambda (__klass195305 __method-table195306) + (let ((__check-arguments195307 + (let ((__tmp196097 (lambda () - (let ((__method195034 + (let ((__method195308 (let () (declare (not safe)) (symbolic-table-ref - __method-table195032 + __method-table195306 'check-arguments '#f)))) - (if __method195034 - __method195034 + (if __method195308 + __method195308 (let () (declare (not safe)) (error '"Missing method" 'check-arguments))))))) (declare (not safe)) - (__make-promise __tmp195823)))) - (lambda (_%self190986192904%_ - _%ctx192906%_ - _%stx192907%_ - _%args192908%_) - (let* ((_%self192910%_ _%self190986192904%_) - (_%self192912%_ _%self192910%_) - (_%arguments-ok?192922%_ - ((force __check-arguments195033) - _%self192912%_ - _%ctx192906%_ - _%stx192907%_ - _%args192908%_)) - (_%g192924192938%_ - (lambda (_%g192925192935%_) + (__make-promise __tmp196097)))) + (lambda (_%self191260193178%_ + _%ctx193180%_ + _%stx193181%_ + _%args193182%_) + (let* ((_%self193184%_ _%self191260193178%_) + (_%self193186%_ _%self193184%_) + (_%arguments-ok?193196%_ + ((force __check-arguments195307) + _%self193186%_ + _%ctx193180%_ + _%stx193181%_ + _%args193182%_)) + (_%g193198193212%_ + (lambda (_%g193199193209%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g192925192935%_)))) - (_%g192923193017%_ - (lambda (_%g192925192941%_) + _%g193199193209%_)))) + (_%g193197193291%_ + (lambda (_%g193199193215%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g192925192941%_)) - (let ((_%e192928192943%_ + (gx#stx-pair? _%g193199193215%_)) + (let ((_%e193202193217%_ (let () (declare (not safe)) - (gx#stx-e _%g192925192941%_)))) - (let ((_%hd192929192946%_ + (gx#stx-e _%g193199193215%_)))) + (let ((_%hd193203193220%_ (let () (declare (not safe)) - (##car _%e192928192943%_))) - (_%tl192930192948%_ + (##car _%e193202193217%_))) + (_%tl193204193222%_ (let () (declare (not safe)) - (##cdr _%e192928192943%_)))) + (##cdr _%e193202193217%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192930192948%_)) - (let ((_%e192931192951%_ + (gx#stx-pair? _%tl193204193222%_)) + (let ((_%e193205193225%_ (let () (declare (not safe)) - (gx#stx-e _%tl192930192948%_)))) - (let ((_%hd192932192954%_ + (gx#stx-e _%tl193204193222%_)))) + (let ((_%hd193206193228%_ (let () (declare (not safe)) - (##car _%e192931192951%_))) - (_%tl192933192956%_ + (##car _%e193205193225%_))) + (_%tl193207193230%_ (let () (declare (not safe)) - (##cdr _%e192931192951%_)))) + (##cdr _%e193205193225%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192933192956%_)) - ((lambda (_%L192959%_ _%L192960%_) - (let* ((_%klass192976%_ - (let ((__tmp195824 + (gx#stx-null? _%tl193207193230%_)) + ((lambda (_%L193233%_ _%L193234%_) + (let* ((_%klass193250%_ + (let ((__tmp196098 (let () (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx192907%_ - __tmp195824))) - (_%field192978%_ - (let ((__tmp195825 + _%stx193181%_ + __tmp196098))) + (_%field193252%_ + (let ((__tmp196099 (let () (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass192976%_ - __tmp195825))) - (_%object192980%_ + _%klass193250%_ + __tmp196099))) + (_%object193254%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx192906%_ - _%L192960%_))) - (_%value192982%_ + _%ctx193180%_ + _%L193234%_))) + (_%value193256%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx192906%_ - _%L192959%_))) - (_%klass192985%_ - _%klass192976%_)) + _%ctx193180%_ + _%L193233%_))) + (_%klass193259%_ + _%klass193250%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass192985%_ + _%klass193259%_ '8 '#f '#f)) - (let ((__tmp195826 - (cons (if (or _%arguments-ok?192922%_ + (let ((__tmp196100 + (cons (if (or _%arguments-ok?193196%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '4 '#f '#f)))) @@ -3774,33 +3774,33 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field192978%_ '())) - (cons _%object192980%_ - (cons _%value192982%_ '()))))))) + (cons (cons '%#quote (cons _%field193252%_ '())) + (cons _%object193254%_ + (cons _%value193256%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp195826 - _%stx192907%_)) + __tmp196100 + _%stx193181%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass192985%_ + _%klass193259%_ '7 '#f '#f)) - (let ((__tmp195827 - (cons (if (or _%arguments-ok?192922%_ + (let ((__tmp196101 + (cons (if (or _%arguments-ok?193196%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '4 '#f '#f)))) @@ -3810,38 +3810,38 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field192978%_ '())) - (cons _%object192980%_ - (cons _%value192982%_ '()))))))) + (cons _%field193252%_ '())) + (cons _%object193254%_ + (cons _%value193256%_ '()))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp195827 _%stx192907%_)) - (let ((_%$e193005%_ - (let ((__tmp195828 + (gxc#xform-wrap-source __tmp196101 _%stx193181%_)) + (let ((_%$e193279%_ + (let ((__tmp196102 (let () (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _%klass192985%_ - __tmp195828)))) - (if _%$e193005%_ - ((lambda (_%klass193008%_) - (let ((__tmp195829 - (cons (if (or _%arguments-ok?192922%_ + _%klass193259%_ + __tmp196102)))) + (if _%$e193279%_ + ((lambda (_%klass193282%_) + (let ((__tmp196103 + (cons (if (or _%arguments-ok?193196%_ (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '3 '#f '#f)))) @@ -3851,39 +3851,39 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field192978%_ + (cons _%field193252%_ '())) - (cons _%object192980%_ - (cons _%value192982%_ + (cons _%object193254%_ + (cons _%value193256%_ '()))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp195829 _%stx192907%_))) - _%$e193005%_) + (gxc#xform-wrap-source __tmp196103 _%stx193181%_))) + _%$e193279%_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '4 '#f '#f)) - (let ((__tmp195830 - (let ((_%$obj193014%_ - (let ((__tmp195831 + (let ((__tmp196104 + (let ((_%$obj193288%_ + (let ((__tmp196105 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp195831)))) + (make-symbol__0 __tmp196105)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj193014%_ + (cons (cons (cons (cons _%$obj193288%_ '()) - (cons _%object192980%_ + (cons _%object193254%_ '())) '()) (cons (cons '%#if @@ -3893,52 +3893,52 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass192985%_ + _%klass193259%_ '1 '#f '#f)) '())) (cons (cons '%#ref - (cons _%$obj193014%_ '())) + (cons _%$obj193288%_ '())) '()))) (cons (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field192978%_ + (cons _%field193252%_ '())) (cons (cons '%#ref - (cons _%$obj193014%_ + (cons _%$obj193288%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%value192982%_ '()))))) + (cons _%value193256%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (if _%arguments-ok?192922%_ + (cons (if _%arguments-ok?193196%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) (cons (cons '%#ref - (cons _%$obj193014%_ + (cons _%$obj193288%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '3 '#f '#f)) '())) - (cons _%value192982%_ '()))))) + (cons _%value193256%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '%#call (cons (cons '%#ref @@ -3949,58 +3949,58 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj193014%_ '())) + (cons (cons '%#ref (cons _%$obj193288%_ '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '3 '#f '#f)) '())) - (cons _%value192982%_ '()))))))) + (cons _%value193256%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp195830 _%stx192907%_)) - (let ((__tmp195832 + (gxc#xform-wrap-source __tmp196104 _%stx193181%_)) + (let ((__tmp196106 (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) - (cons _%object192980%_ + (cons _%object193254%_ (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self192912%_ + _%self193186%_ '3 '#f '#f)) '())) - (cons _%value192982%_ '()))))))) + (cons _%value193256%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp195832 - _%stx192907%_))))))))) + __tmp196106 + _%stx193181%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd192932192954%_ - _%hd192929192946%_) - (_%g192924192938%_ - _%g192925192941%_)))) - (_%g192924192938%_ _%g192925192941%_)))) - (_%g192924192938%_ _%g192925192941%_))))) - (_%g192923193017%_ _%args192908%_)))))) + _%hd193206193228%_ + _%hd193203193220%_) + (_%g193198193212%_ + _%g193199193215%_)))) + (_%g193198193212%_ _%g193199193215%_)))) + (_%g193198193212%_ _%g193199193215%_))))) + (_%g193197193291%_ _%args193182%_)))))) (let () (declare (not safe)) (bind-specializer! @@ -4014,97 +4014,97 @@ gxc#!mutator::optimize-call '#f)) (define gxc#!lambda::optimize-call - (lambda (_%self190987192717%_ _%ctx192719%_ _%stx192720%_ _%args192721%_) - (let* ((_%self192723%_ _%self190987192717%_) - (_%self192725%_ _%self192723%_) - (_%self192734192744%_ _%self192725%_) - (_%E192736192748%_ + (lambda (_%self191261192991%_ _%ctx192993%_ _%stx192994%_ _%args192995%_) + (let* ((_%self192997%_ _%self191261192991%_) + (_%self192999%_ _%self192997%_) + (_%self193008193018%_ _%self192999%_) + (_%E193010193022%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self192734192744%_ + _%self193008193018%_ '((!lambda _ _ arity dispatch inline)))) '#!void)) - (_%K192737192758%_ - (lambda (_%inline192751%_ _%dispatch192752%_ _%arity192753%_) + (_%K193011193032%_ + (lambda (_%inline193025%_ _%dispatch193026%_ _%arity193027%_) (if (let () (declare (not safe)) (gxc#!lambda-arity-match? - _%self192725%_ - _%args192721%_)) + _%self192999%_ + _%args192995%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal lambda application; arity mismatch" - _%stx192720%_ - _%arity192753%_))) - (if _%inline192751%_ + _%stx192994%_ + _%arity193027%_))) + (if _%inline193025%_ (let () (let () (declare (not safe)) (gxc#verbose '"inline lambda")) - (let ((__tmp195833 (_%inline192751%_ _%stx192720%_))) + (let ((__tmp196107 (_%inline193025%_ _%stx192994%_))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp195833 - _%stx192720%_ - _%ctx192719%_))) - (if (and _%dispatch192752%_ + __tmp196107 + _%stx192994%_ + _%ctx192993%_))) + (if (and _%dispatch193026%_ (let () (declare (not safe)) (gxc#symbol-in-local-scope? - _%dispatch192752%_))) + _%dispatch193026%_))) (let () (let () (declare (not safe)) (gxc#verbose '"dispatch lambda => " - _%dispatch192752%_)) - (let ((__tmp195834 + _%dispatch193026%_)) + (let ((__tmp196108 (cons '%#call (cons (cons '%#ref - (cons _%dispatch192752%_ + (cons _%dispatch193026%_ '())) - _%args192721%_)))) + _%args192995%_)))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp195834 - _%stx192720%_ - _%ctx192719%_))) + __tmp196108 + _%stx192994%_ + _%ctx192993%_))) (gxc#!procedure::optimize-call - _%self192725%_ - _%ctx192719%_ - _%stx192720%_ - _%args192721%_))))) - (_%e192738192761%_ + _%self192999%_ + _%ctx192993%_ + _%stx192994%_ + _%args192995%_))))) + (_%e193012193035%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self192734192744%_ '1 '#f '#f))) - (_%e192739192764%_ + (##unchecked-structure-ref _%self193008193018%_ '1 '#f '#f))) + (_%e193013193038%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self192734192744%_ '2 '#f '#f))) - (_%e192740192767%_ + (##unchecked-structure-ref _%self193008193018%_ '2 '#f '#f))) + (_%e193014193041%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self192734192744%_ '3 '#f '#f))) - (_%arity192770%_ _%e192740192767%_) - (_%e192741192772%_ + (##unchecked-structure-ref _%self193008193018%_ '3 '#f '#f))) + (_%arity193044%_ _%e193014193041%_) + (_%e193015193046%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self192734192744%_ '4 '#f '#f))) - (_%dispatch192775%_ _%e192741192772%_) - (_%e192742192777%_ + (##unchecked-structure-ref _%self193008193018%_ '4 '#f '#f))) + (_%dispatch193049%_ _%e193015193046%_) + (_%e193016193051%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self192734192744%_ '5 '#f '#f))) - (_%inline192780%_ _%e192742192777%_)) - (_%K192737192758%_ - _%inline192780%_ - _%dispatch192775%_ - _%arity192770%_)))) + (##unchecked-structure-ref _%self193008193018%_ '5 '#f '#f))) + (_%inline193054%_ _%e193016193051%_)) + (_%K193011193032%_ + _%inline193054%_ + _%dispatch193049%_ + _%arity193044%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -4113,63 +4113,63 @@ gxc#!lambda::optimize-call '#f)) (define gxc#!case-lambda::optimize-call - (lambda (_%self190988192567%_ _%ctx192569%_ _%stx192570%_ _%args192571%_) - (let* ((_%self192573%_ _%self190988192567%_) - (_%self192575%_ _%self192573%_) - (_%$e192589%_ - (let ((__tmp195836 - (lambda (_%g192584192586%_) + (lambda (_%self191262192841%_ _%ctx192843%_ _%stx192844%_ _%args192845%_) + (let* ((_%self192847%_ _%self191262192841%_) + (_%self192849%_ _%self192847%_) + (_%$e192863%_ + (let ((__tmp196110 + (lambda (_%g192858192860%_) (let () (declare (not safe)) (gxc#!lambda-arity-match? - _%g192584192586%_ - _%args192571%_)))) - (__tmp195835 + _%g192858192860%_ + _%args192845%_)))) + (__tmp196109 (let () (declare (not safe)) (##unchecked-structure-ref - _%self192575%_ + _%self192849%_ '3 '#f '#f)))) (declare (not safe)) - (__find __tmp195836 __tmp195835)))) - (if _%$e192589%_ - ((lambda (_%clause192592%_) - (let ((__method195740 + (__find __tmp196110 __tmp196109)))) + (if _%$e192863%_ + ((lambda (_%clause192866%_) + (let ((__method196014 (let () (declare (not safe)) - (__method-ref _%clause192592%_ 'optimize-call)))) - (if __method195740 + (__method-ref _%clause192866%_ 'optimize-call)))) + (if __method196014 (let () (declare (not safe)) - (__method195740 - _%clause192592%_ - _%ctx192569%_ - _%stx192570%_ - _%args192571%_)) + (__method196014 + _%clause192866%_ + _%ctx192843%_ + _%stx192844%_ + _%args192845%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%clause192592%_ + _%clause192866%_ 'optimize-call)) '#!void)))) - _%$e192589%_) - (let ((__tmp195837 + _%$e192863%_) + (let ((__tmp196111 (map gxc#!lambda-arity (let () (declare (not safe)) (##unchecked-structure-ref - _%self192575%_ + _%self192849%_ '3 '#f '#f))))) (declare (not safe)) (gxc#raise-compile-error '"Illegal case-lambda application; arity mismatch" - _%stx192570%_ - __tmp195837)))))) + _%stx192844%_ + __tmp196111)))))) (let () (declare (not safe)) (__bind-method!__% @@ -4178,116 +4178,116 @@ gxc#!case-lambda::optimize-call '#f)) (define gxc#!kw-lambda::optimize-call - (lambda (_%self190989192305%_ _%ctx192307%_ _%stx192308%_ _%args192309%_) - (let* ((_%self192311%_ _%self190989192305%_) - (_%self192313%_ _%self192311%_) - (_%self192322192331%_ _%self192313%_) - (_%E192324192335%_ + (lambda (_%self191263192579%_ _%ctx192581%_ _%stx192582%_ _%args192583%_) + (let* ((_%self192585%_ _%self191263192579%_) + (_%self192587%_ _%self192585%_) + (_%self192596192605%_ _%self192587%_) + (_%E192598192609%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self192322192331%_ + _%self192596192605%_ '((!kw-lambda _ _ table dispatch)))) '#!void)) - (_%K192325192426%_ - (lambda (_%dispatch192338%_ _%table192339%_) + (_%K192599192700%_ + (lambda (_%dispatch192612%_ _%table192613%_) (if (let () (declare (not safe)) - (gxc#symbol-in-local-scope? _%dispatch192338%_)) - (let* ((_%g192340192350%_ + (gxc#symbol-in-local-scope? _%dispatch192612%_)) + (let* ((_%g192614192624%_ (let () (declare (not safe)) (gxc#optimizer-lookup-type - _%dispatch192338%_))) - (_%else192342192358%_ + _%dispatch192612%_))) + (_%else192616192632%_ (lambda () (let () (declare (not safe)) (gxc#verbose '"unknown keyword dispatch lambda " - _%dispatch192338%_)) + _%dispatch192612%_)) (let () (declare (not safe)) (gxc#xform-call% - _%ctx192307%_ - _%stx192308%_)))) - (_%K192344192407%_ - (lambda (_%main192361%_ _%keys192362%_) - (let ((_g195838_ + _%ctx192581%_ + _%stx192582%_)))) + (_%K192618192681%_ + (lambda (_%main192635%_ _%keys192636%_) + (let ((_g196112_ (gxc#!kw-lambda-split-args - _%stx192308%_ - _%args192309%_))) + _%stx192582%_ + _%args192583%_))) (begin - (let ((_g195839_ + (let ((_g196113_ (let () (declare (not safe)) - (if (##values? _g195838_) - (##vector-length _g195838_) + (if (##values? _g196112_) + (##vector-length _g196112_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g195839_ 2))) + (##fx= _g196113_ 2))) (error "Context expects 2 values" - _g195839_))) - (let ((_%pargs192364%_ + _g196113_))) + (let ((_%pargs192638%_ (let () (declare (not safe)) - (##vector-ref _g195838_ 0))) - (_%kwargs192365%_ + (##vector-ref _g196112_ 0))) + (_%kwargs192639%_ (let () (declare (not safe)) - (##vector-ref _g195838_ 1)))) + (##vector-ref _g196112_ 1)))) (begin (let () (declare (not safe)) (gxc#verbose '"dispatch kw-lambda => " - _%main192361%_)) - (if _%table192339%_ - (let ((_%xargs192373%_ - (map (lambda (_%key192367%_) - (let ((_%$e192369%_ + _%main192635%_)) + (if _%table192613%_ + (let ((_%xargs192647%_ + (map (lambda (_%key192641%_) + (let ((_%$e192643%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (agetq__0 _%key192367%_ _%kwargs192365%_)))) - (if _%$e192369%_ _%$e192369%_ '(%#ref absent-value)))) - _%keys192362%_))) + (agetq__0 _%key192641%_ _%kwargs192639%_)))) + (if _%$e192643%_ _%$e192643%_ '(%#ref absent-value)))) + _%keys192636%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%kw192375%_) - (if (memq (car _%kw192375%_) - _%keys192362%_) + (lambda (_%kw192649%_) + (if (memq (car _%kw192649%_) + _%keys192636%_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; unexpected keyword" - _%stx192308%_ - _%keys192362%_ - _%kw192375%_)))) - _%kwargs192365%_) - (let ((__tmp195840 + _%stx192582%_ + _%keys192636%_ + _%kw192649%_)))) + _%kwargs192639%_) + (let ((__tmp196114 (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%main192361%_ '())) + (cons _%main192635%_ '())) (cons (cons '%#quote (cons '#f '())) (let () (declare (not safe)) (__foldr1 cons - _%pargs192364%_ - _%xargs192373%_))))))) + _%pargs192638%_ + _%xargs192647%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp195840 - _%stx192308%_ - _%ctx192307%_))) - (let* ((_%kwt192377%_ - (let ((__tmp195841 + __tmp196114 + _%stx192582%_ + _%ctx192581%_))) + (let* ((_%kwt192651%_ + (let ((__tmp196115 (let () (declare (not safe)) @@ -4295,175 +4295,175 @@ '__kwt)))) (declare (not safe)) (make-symbol__0 - __tmp195841))) - (_%kwvars192381%_ - (map (lambda (_%_192379%_) - (let ((__tmp195842 + __tmp196115))) + (_%kwvars192655%_ + (map (lambda (_%_192653%_) + (let ((__tmp196116 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##gensym '__kw)))) (declare (not safe)) - (make-symbol__0 __tmp195842))) - _%kwargs192365%_)) + (make-symbol__0 __tmp196116))) + _%kwargs192639%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%kwbind192386%_ - (map (lambda (_%kw192383%_ + (_%kwbind192660%_ + (map (lambda (_%kw192657%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kwvar192384%_) - (cons (cons _%kwvar192384%_ '()) - (cons (cdr _%kw192383%_) '()))) - _%kwargs192365%_ - _%kwvars192381%_)) + _%kwvar192658%_) + (cons (cons _%kwvar192658%_ '()) + (cons (cdr _%kw192657%_) '()))) + _%kwargs192639%_ + _%kwvars192655%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%kwset192391%_ - (map (lambda (_%kw192388%_ + (_%kwset192665%_ + (map (lambda (_%kw192662%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kwvar192389%_) + _%kwvar192663%_) (cons '%#call (cons '(%#ref symbolic-table-set!) - (cons (cons '%#ref (cons _%kwt192377%_ '())) + (cons (cons '%#ref (cons _%kwt192651%_ '())) (cons (cons '%#quote - (cons (car _%kw192388%_) '())) + (cons (car _%kw192662%_) '())) (cons (cons '%#ref - (cons _%kwvar192389%_ + (cons _%kwvar192663%_ '())) '())))))) - _%kwargs192365%_ - _%kwvars192381%_)) + _%kwargs192639%_ + _%kwvars192655%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%xkwargs192396%_ - (map (lambda (_%kw192393%_ + (_%xkwargs192670%_ + (map (lambda (_%kw192667%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kwvar192394%_) - (cons (car _%kw192393%_) - (cons '%#ref (cons _%kwvar192394%_ '())))) - _%kwargs192365%_ - _%kwvars192381%_)) + _%kwvar192668%_) + (cons (car _%kw192667%_) + (cons '%#ref (cons _%kwvar192668%_ '())))) + _%kwargs192639%_ + _%kwvars192655%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%xargs192404%_ - (map (lambda (_%key192398%_) - (let ((_%$e192400%_ + (_%xargs192678%_ + (map (lambda (_%key192672%_) + (let ((_%$e192674%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (agetq__0 _%key192398%_ _%xkwargs192396%_)))) - (if _%$e192400%_ _%$e192400%_ '(%#ref absent-value)))) - _%keys192362%_)) + (agetq__0 _%key192672%_ _%xkwargs192670%_)))) + (if _%$e192674%_ _%$e192674%_ '(%#ref absent-value)))) + _%keys192636%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp195843 + (__tmp196117 (cons '%#let-values - (cons _%kwbind192386%_ + (cons _%kwbind192660%_ (cons (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%kwt192377%_ '()) - (cons (let ((__tmp195844 + (cons (cons (cons (cons _%kwt192651%_ '()) + (cons (let ((__tmp196118 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#call (cons '(%#ref make-symbolic-table) (cons (cons '%#quote - (cons (length _%kwargs192365%_) + (cons (length _%kwargs192639%_) '())) (cons '(%#quote (length kwvars)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp195844 _%stx192308%_)) + (gxc#xform-wrap-source __tmp196118 _%stx192582%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons '%#begin - (let ((__tmp195845 - (cons (let ((__tmp195846 + (let ((__tmp196119 + (cons (let ((__tmp196120 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#call (cons (cons '%#ref - (cons _%main192361%_ '())) + (cons _%main192635%_ '())) (cons (cons '%#ref - (cons _%kwt192377%_ + (cons _%kwt192651%_ '())) (let () (declare (not safe)) (__foldr1 cons - _%pargs192364%_ - _%xargs192404%_))))))) + _%pargs192638%_ + _%xargs192678%_))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp195846 _%stx192308%_)) + (gxc#xform-wrap-source __tmp196120 _%stx192582%_)) '()))) (declare (not safe)) - (__foldr1 cons __tmp195845 _%kwset192391%_))) + (__foldr1 cons __tmp196119 _%kwset192665%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp195843 - _%stx192308%_ - _%ctx192307%_)))))))))) + __tmp196117 + _%stx192582%_ + _%ctx192581%_)))))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g192340192350%_ + _%g192614192624%_ 'gxc#!kw-lambda-primary::t)) - (let* ((_%e192345192410%_ + (let* ((_%e192619192684%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g192340192350%_ + _%g192614192624%_ '1 '#f '#f))) - (_%e192346192413%_ + (_%e192620192687%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g192340192350%_ + _%g192614192624%_ '2 '#f '#f))) - (_%e192347192416%_ + (_%e192621192690%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g192340192350%_ + _%g192614192624%_ '3 '#f '#f))) - (_%keys192419%_ _%e192347192416%_) - (_%e192348192421%_ + (_%keys192693%_ _%e192621192690%_) + (_%e192622192695%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g192340192350%_ + _%g192614192624%_ '4 '#f '#f))) - (_%main192424%_ _%e192348192421%_)) - (_%K192344192407%_ - _%main192424%_ - _%keys192419%_)) - (_%else192342192358%_))) + (_%main192698%_ _%e192622192695%_)) + (_%K192618192681%_ + _%main192698%_ + _%keys192693%_)) + (_%else192616192632%_))) (let () (declare (not safe)) - (gxc#xform-call% _%ctx192307%_ _%stx192308%_))))) - (_%e192326192429%_ + (gxc#xform-call% _%ctx192581%_ _%stx192582%_))))) + (_%e192600192703%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self192322192331%_ '1 '#f '#f))) - (_%e192327192432%_ + (##unchecked-structure-ref _%self192596192605%_ '1 '#f '#f))) + (_%e192601192706%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self192322192331%_ '2 '#f '#f))) - (_%e192328192435%_ + (##unchecked-structure-ref _%self192596192605%_ '2 '#f '#f))) + (_%e192602192709%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self192322192331%_ '3 '#f '#f))) - (_%table192438%_ _%e192328192435%_) - (_%e192329192440%_ + (##unchecked-structure-ref _%self192596192605%_ '3 '#f '#f))) + (_%table192712%_ _%e192602192709%_) + (_%e192603192714%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self192322192331%_ '4 '#f '#f))) - (_%dispatch192443%_ _%e192329192440%_)) - (_%K192325192426%_ _%dispatch192443%_ _%table192438%_)))) + (##unchecked-structure-ref _%self192596192605%_ '4 '#f '#f))) + (_%dispatch192717%_ _%e192603192714%_)) + (_%K192599192700%_ _%dispatch192717%_ _%table192712%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -4472,287 +4472,287 @@ gxc#!kw-lambda::optimize-call '#f)) (define gxc#!kw-lambda-split-args - (lambda (_%stx191918%_ _%args191919%_) - (let _%lp191921%_ ((_%rest191923%_ _%args191919%_) - (_%pargs191924%_ '()) - (_%kwargs191925%_ '())) - (let* ((_%__stx195299195300%_ _%rest191923%_) - (_%g191931191983%_ + (lambda (_%stx192192%_ _%args192193%_) + (let _%lp192195%_ ((_%rest192197%_ _%args192193%_) + (_%pargs192198%_ '()) + (_%kwargs192199%_ '())) + (let* ((_%__stx195573195574%_ _%rest192197%_) + (_%g192205192257%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx195299195300%_))))) - (let ((_%__kont195301195302%_ - (lambda (_%L192162%_ _%L192163%_) - (_%lp191921%_ - _%L192162%_ - (cons _%L192163%_ _%pargs191924%_) - _%kwargs191925%_))) - (_%__kont195303195304%_ - (lambda (_%L192108%_) + _%__stx195573195574%_))))) + (let ((_%__kont195575195576%_ + (lambda (_%L192436%_ _%L192437%_) + (_%lp192195%_ + _%L192436%_ + (cons _%L192437%_ _%pargs192198%_) + _%kwargs192199%_))) + (_%__kont195577195578%_ + (lambda (_%L192382%_) (values (let () (declare (not safe)) - (__foldl1 cons _%L192108%_ _%pargs191924%_)) - (reverse _%kwargs191925%_)))) - (_%__kont195305195306%_ - (lambda (_%L192055%_ _%L192056%_ _%L192057%_) - (let ((_%kw192074%_ + (__foldl1 cons _%L192382%_ _%pargs192198%_)) + (reverse _%kwargs192199%_)))) + (_%__kont195579195580%_ + (lambda (_%L192329%_ _%L192330%_ _%L192331%_) + (let ((_%kw192348%_ (let () (declare (not safe)) - (gx#stx-e _%L192057%_)))) - (if (assq _%kw192074%_ _%kwargs191925%_) + (gx#stx-e _%L192331%_)))) + (if (assq _%kw192348%_ _%kwargs192199%_) (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; duplicate keyword" - _%stx191918%_ - _%kw192074%_)) - (_%lp191921%_ - _%L192055%_ - _%pargs191924%_ - (cons (cons _%kw192074%_ _%L192056%_) - _%kwargs191925%_)))))) - (_%__kont195307195308%_ - (lambda (_%L192003%_ _%L192004%_) - (_%lp191921%_ - _%L192003%_ - (cons _%L192004%_ _%pargs191924%_) - _%kwargs191925%_))) - (_%__kont195309195310%_ + _%stx192192%_ + _%kw192348%_)) + (_%lp192195%_ + _%L192329%_ + _%pargs192198%_ + (cons (cons _%kw192348%_ _%L192330%_) + _%kwargs192199%_)))))) + (_%__kont195581195582%_ + (lambda (_%L192277%_ _%L192278%_) + (_%lp192195%_ + _%L192277%_ + (cons _%L192278%_ _%pargs192198%_) + _%kwargs192199%_))) + (_%__kont195583195584%_ (lambda () - (values (reverse _%pargs191924%_) - (reverse _%kwargs191925%_))))) - (let ((_%__match195406195407%_ - (lambda (_%e191962192023%_ - _%hd191963192026%_ - _%tl191964192028%_ - _%e191965192031%_ - _%hd191966192034%_ - _%tl191967192036%_ - _%e191968192039%_ - _%hd191969192042%_ - _%tl191970192044%_ - _%e191971192047%_ - _%hd191972192050%_ - _%tl191973192052%_) - (let ((_%L192055%_ _%tl191973192052%_) - (_%L192056%_ _%hd191972192050%_) - (_%L192057%_ _%hd191969192042%_)) + (values (reverse _%pargs192198%_) + (reverse _%kwargs192199%_))))) + (let ((_%__match195680195681%_ + (lambda (_%e192236192297%_ + _%hd192237192300%_ + _%tl192238192302%_ + _%e192239192305%_ + _%hd192240192308%_ + _%tl192241192310%_ + _%e192242192313%_ + _%hd192243192316%_ + _%tl192244192318%_ + _%e192245192321%_ + _%hd192246192324%_ + _%tl192247192326%_) + (let ((_%L192329%_ _%tl192247192326%_) + (_%L192330%_ _%hd192246192324%_) + (_%L192331%_ _%hd192243192316%_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _%L192057%_)) - (_%__kont195305195306%_ - _%L192055%_ - _%L192056%_ - _%L192057%_) - (_%__kont195307195308%_ - _%tl191964192028%_ - _%hd191963192026%_)))))) + (gx#stx-keyword? _%L192331%_)) + (_%__kont195579195580%_ + _%L192329%_ + _%L192330%_ + _%L192331%_) + (_%__kont195581195582%_ + _%tl192238192302%_ + _%hd192237192300%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx195299195300%_)) - (let ((_%e191935192127%_ + (gx#stx-pair? _%__stx195573195574%_)) + (let ((_%e192209192401%_ (let () (declare (not safe)) - (gx#stx-e _%__stx195299195300%_)))) - (let ((_%tl191937192132%_ + (gx#stx-e _%__stx195573195574%_)))) + (let ((_%tl192211192406%_ (let () (declare (not safe)) - (##cdr _%e191935192127%_))) - (_%hd191936192130%_ + (##cdr _%e192209192401%_))) + (_%hd192210192404%_ (let () (declare (not safe)) - (##car _%e191935192127%_)))) + (##car _%e192209192401%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd191936192130%_)) - (let ((_%e191938192135%_ + (gx#stx-pair? _%hd192210192404%_)) + (let ((_%e192212192409%_ (let () (declare (not safe)) - (gx#stx-e _%hd191936192130%_)))) - (let ((_%tl191940192140%_ + (gx#stx-e _%hd192210192404%_)))) + (let ((_%tl192214192414%_ (let () (declare (not safe)) - (##cdr _%e191938192135%_))) - (_%hd191939192138%_ + (##cdr _%e192212192409%_))) + (_%hd192213192412%_ (let () (declare (not safe)) - (##car _%e191938192135%_)))) + (##car _%e192212192409%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd191939192138%_)) + (gx#identifier? _%hd192213192412%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd191939192138%_)) + _%hd192213192412%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191940192140%_)) - (let ((_%e191941192143%_ + _%tl192214192414%_)) + (let ((_%e192215192417%_ (let () (declare (not safe)) (gx#stx-e - _%tl191940192140%_)))) - (let ((_%tl191943192148%_ + _%tl192214192414%_)))) + (let ((_%tl192217192422%_ (let () (declare (not safe)) - (##cdr _%e191941192143%_))) - (_%hd191942192146%_ + (##cdr _%e192215192417%_))) + (_%hd192216192420%_ (let () (declare (not safe)) - (##car _%e191941192143%_)))) + (##car _%e192215192417%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd191942192146%_)) - (let ((_%e191944192151%_ + _%hd192216192420%_)) + (let ((_%e192218192425%_ (let () (declare (not safe)) (gx#stx-e - _%hd191942192146%_)))) - (if (equal? _%e191944192151%_ + _%hd192216192420%_)))) + (if (equal? _%e192218192425%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!key) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191943192148%_)) + (gx#stx-null? _%tl192217192422%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191937192132%_)) - (let ((_%e191945192154%_ + (gx#stx-pair? _%tl192211192406%_)) + (let ((_%e192219192428%_ (let () (declare (not safe)) - (gx#stx-e _%tl191937192132%_)))) - (let ((_%tl191947192159%_ + (gx#stx-e _%tl192211192406%_)))) + (let ((_%tl192221192433%_ (let () (declare (not safe)) - (##cdr _%e191945192154%_))) - (_%hd191946192157%_ + (##cdr _%e192219192428%_))) + (_%hd192220192431%_ (let () (declare (not safe)) - (##car _%e191945192154%_)))) - (_%__kont195301195302%_ - _%tl191947192159%_ - _%hd191946192157%_))) - (_%__kont195307195308%_ - _%tl191937192132%_ - _%hd191936192130%_)) - (_%__kont195307195308%_ - _%tl191937192132%_ - _%hd191936192130%_)) - (if (equal? _%e191944192151%_ '#!rest) + (##car _%e192219192428%_)))) + (_%__kont195575195576%_ + _%tl192221192433%_ + _%hd192220192431%_))) + (_%__kont195581195582%_ + _%tl192211192406%_ + _%hd192210192404%_)) + (_%__kont195581195582%_ + _%tl192211192406%_ + _%hd192210192404%_)) + (if (equal? _%e192218192425%_ '#!rest) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191943192148%_)) - (_%__kont195303195304%_ _%tl191937192132%_) - (_%__kont195307195308%_ - _%tl191937192132%_ - _%hd191936192130%_)) + (gx#stx-null? _%tl192217192422%_)) + (_%__kont195577195578%_ _%tl192211192406%_) + (_%__kont195581195582%_ + _%tl192211192406%_ + _%hd192210192404%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191943192148%_)) + (gx#stx-null? _%tl192217192422%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191937192132%_)) - (let ((_%e191971192047%_ + (gx#stx-pair? _%tl192211192406%_)) + (let ((_%e192245192321%_ (let () (declare (not safe)) - (gx#stx-e _%tl191937192132%_)))) - (let ((_%tl191973192052%_ + (gx#stx-e _%tl192211192406%_)))) + (let ((_%tl192247192326%_ (let () (declare (not safe)) - (##cdr _%e191971192047%_))) - (_%hd191972192050%_ + (##cdr _%e192245192321%_))) + (_%hd192246192324%_ (let () (declare (not safe)) - (##car _%e191971192047%_)))) - (_%__match195406195407%_ - _%e191935192127%_ - _%hd191936192130%_ - _%tl191937192132%_ - _%e191938192135%_ - _%hd191939192138%_ - _%tl191940192140%_ - _%e191941192143%_ - _%hd191942192146%_ - _%tl191943192148%_ - _%e191971192047%_ - _%hd191972192050%_ - _%tl191973192052%_))) - (_%__kont195307195308%_ - _%tl191937192132%_ - _%hd191936192130%_)) - (_%__kont195307195308%_ - _%tl191937192132%_ - _%hd191936192130%_))))) + (##car _%e192245192321%_)))) + (_%__match195680195681%_ + _%e192209192401%_ + _%hd192210192404%_ + _%tl192211192406%_ + _%e192212192409%_ + _%hd192213192412%_ + _%tl192214192414%_ + _%e192215192417%_ + _%hd192216192420%_ + _%tl192217192422%_ + _%e192245192321%_ + _%hd192246192324%_ + _%tl192247192326%_))) + (_%__kont195581195582%_ + _%tl192211192406%_ + _%hd192210192404%_)) + (_%__kont195581195582%_ + _%tl192211192406%_ + _%hd192210192404%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _%tl191943192148%_)) + _%tl192217192422%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191937192132%_)) - (let ((_%e191971192047%_ + _%tl192211192406%_)) + (let ((_%e192245192321%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl191937192132%_)))) - (let ((_%tl191973192052%_ + (gx#stx-e _%tl192211192406%_)))) + (let ((_%tl192247192326%_ (let () (declare (not safe)) - (##cdr _%e191971192047%_))) - (_%hd191972192050%_ + (##cdr _%e192245192321%_))) + (_%hd192246192324%_ (let () (declare (not safe)) - (##car _%e191971192047%_)))) - (_%__match195406195407%_ - _%e191935192127%_ - _%hd191936192130%_ - _%tl191937192132%_ - _%e191938192135%_ - _%hd191939192138%_ - _%tl191940192140%_ - _%e191941192143%_ - _%hd191942192146%_ - _%tl191943192148%_ - _%e191971192047%_ - _%hd191972192050%_ - _%tl191973192052%_))) - (_%__kont195307195308%_ - _%tl191937192132%_ - _%hd191936192130%_)) - (_%__kont195307195308%_ - _%tl191937192132%_ - _%hd191936192130%_))))) + (##car _%e192245192321%_)))) + (_%__match195680195681%_ + _%e192209192401%_ + _%hd192210192404%_ + _%tl192211192406%_ + _%e192212192409%_ + _%hd192213192412%_ + _%tl192214192414%_ + _%e192215192417%_ + _%hd192216192420%_ + _%tl192217192422%_ + _%e192245192321%_ + _%hd192246192324%_ + _%tl192247192326%_))) + (_%__kont195581195582%_ + _%tl192211192406%_ + _%hd192210192404%_)) + (_%__kont195581195582%_ + _%tl192211192406%_ + _%hd192210192404%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont195307195308%_ - _%tl191937192132%_ - _%hd191936192130%_)) - (_%__kont195307195308%_ - _%tl191937192132%_ - _%hd191936192130%_)) - (_%__kont195307195308%_ - _%tl191937192132%_ - _%hd191936192130%_)))) - (_%__kont195307195308%_ - _%tl191937192132%_ - _%hd191936192130%_)))) - (_%__kont195309195310%_)))))))) + (_%__kont195581195582%_ + _%tl192211192406%_ + _%hd192210192404%_)) + (_%__kont195581195582%_ + _%tl192211192406%_ + _%hd192210192404%_)) + (_%__kont195581195582%_ + _%tl192211192406%_ + _%hd192210192404%_)))) + (_%__kont195581195582%_ + _%tl192211192406%_ + _%hd192210192404%_)))) + (_%__kont195583195584%_)))))))) (define gxc#!kw-lambda-primary::optimize-call - (lambda (_%self190990191900%_ _%ctx191902%_ _%stx191903%_ _%args191904%_) - (let* ((_%self191906%_ _%self190990191900%_) - (_%self191908%_ _%self191906%_)) + (lambda (_%self191264192174%_ _%ctx192176%_ _%stx192177%_ _%args192178%_) + (let* ((_%self192180%_ _%self191264192174%_) + (_%self192182%_ _%self192180%_)) (declare (not safe)) - (gxc#xform-call% _%ctx191902%_ _%stx191903%_)))) + (gxc#xform-call% _%ctx192176%_ _%stx192177%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -4761,394 +4761,394 @@ gxc#!kw-lambda-primary::optimize-call '#f)) (define gxc#apply-check-return-type-begin-annotation% - (lambda (_%self191588%_ _%stx191589%_) - (let* ((_%__stx195415195416%_ _%stx191589%_) - (_%g191592191632%_ + (lambda (_%self191862%_ _%stx191863%_) + (let* ((_%__stx195689195690%_ _%stx191863%_) + (_%g191866191906%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx195415195416%_))))) - (let ((_%__kont195417195418%_ - (lambda (_%L191738%_ _%L191739%_) - (let ((_%$e191766%_ + _%__stx195689195690%_))))) + (let ((_%__kont195691195692%_ + (lambda (_%L192012%_ _%L192013%_) + (let ((_%$e192040%_ (member 'return: - (let ((__tmp195847 - (lambda (_%g191758191761%_ - _%g191759191763%_) - (cons _%g191758191761%_ - _%g191759191763%_)))) + (let ((__tmp196121 + (lambda (_%g192032192035%_ + _%g192033192037%_) + (cons _%g192032192035%_ + _%g192033192037%_)))) (declare (not safe)) - (__foldr1 __tmp195847 '() _%L191739%_)) + (__foldr1 __tmp196121 '() _%L192013%_)) gx#stx-eq?))) - (if _%$e191766%_ - ((lambda (_%tail191769%_) - (let ((_%type191771%_ - (let ((__tmp195848 - (let ((__tmp195849 - (cadr _%tail191769%_))) + (if _%$e192040%_ + ((lambda (_%tail192043%_) + (let ((_%type192045%_ + (let ((__tmp196122 + (let ((__tmp196123 + (cadr _%tail192043%_))) (declare (not safe)) (gxc#identifier-symbol - __tmp195849)))) + __tmp196123)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx191589%_ - __tmp195848)))) + _%stx191863%_ + __tmp196122)))) (gxc#check-return-type! - _%stx191589%_ - _%L191738%_ - _%type191771%_) + _%stx191863%_ + _%L192012%_ + _%type192045%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self191588%_ - _%L191738%_)))) - _%$e191766%_) + _%self191862%_ + _%L192012%_)))) + _%$e192040%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self191588%_ _%L191738%_)))))) - (_%__kont195421195422%_ - (lambda (_%L191661%_ _%L191662%_) + (gxc#compile-e__1 _%self191862%_ _%L192012%_)))))) + (_%__kont195695195696%_ + (lambda (_%L191935%_ _%L191936%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self191588%_ _%L191661%_))))) - (let ((_%__match195452195453%_ - (lambda (_%e191596191682%_ - _%hd191597191685%_ - _%tl191598191687%_ - _%e191599191690%_ - _%hd191600191693%_ - _%tl191601191695%_ - _%e191602191698%_ - _%hd191603191701%_ - _%tl191604191703%_ - _%__splice195419195420%_ - _%target191605191706%_ - _%tl191607191708%_) - (letrec ((_%loop191608191711%_ - (lambda (_%hd191606191714%_ - _%signature191612191716%_) + (gxc#compile-e__1 _%self191862%_ _%L191935%_))))) + (let ((_%__match195726195727%_ + (lambda (_%e191870191956%_ + _%hd191871191959%_ + _%tl191872191961%_ + _%e191873191964%_ + _%hd191874191967%_ + _%tl191875191969%_ + _%e191876191972%_ + _%hd191877191975%_ + _%tl191878191977%_ + _%__splice195693195694%_ + _%target191879191980%_ + _%tl191881191982%_) + (letrec ((_%loop191882191985%_ + (lambda (_%hd191880191988%_ + _%signature191886191990%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd191606191714%_)) - (let ((_%e191609191719%_ + (gx#stx-pair? _%hd191880191988%_)) + (let ((_%e191883191993%_ (let () (declare (not safe)) - (gx#stx-e _%hd191606191714%_)))) - (let ((_%lp-tl191611191724%_ + (gx#stx-e _%hd191880191988%_)))) + (let ((_%lp-tl191885191998%_ (let () (declare (not safe)) - (##cdr _%e191609191719%_))) - (_%lp-hd191610191722%_ + (##cdr _%e191883191993%_))) + (_%lp-hd191884191996%_ (let () (declare (not safe)) - (##car _%e191609191719%_)))) - (_%loop191608191711%_ - _%lp-tl191611191724%_ - (cons _%lp-hd191610191722%_ - _%signature191612191716%_)))) - (let ((_%signature191613191727%_ - (reverse _%signature191612191716%_))) + (##car _%e191883191993%_)))) + (_%loop191882191985%_ + _%lp-tl191885191998%_ + (cons _%lp-hd191884191996%_ + _%signature191886191990%_)))) + (let ((_%signature191887192001%_ + (reverse _%signature191886191990%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191601191695%_)) - (let ((_%e191614191730%_ + (gx#stx-pair? _%tl191875191969%_)) + (let ((_%e191888192004%_ (let () (declare (not safe)) (gx#stx-e - _%tl191601191695%_)))) - (let ((_%tl191616191735%_ + _%tl191875191969%_)))) + (let ((_%tl191890192009%_ (let () (declare (not safe)) - (##cdr _%e191614191730%_))) - (_%hd191615191733%_ + (##cdr _%e191888192004%_))) + (_%hd191889192007%_ (let () (declare (not safe)) - (##car _%e191614191730%_)))) + (##car _%e191888192004%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191616191735%_)) - (_%__kont195417195418%_ - _%hd191615191733%_ - _%signature191613191727%_) + _%tl191890192009%_)) + (_%__kont195691195692%_ + _%hd191889192007%_ + _%signature191887192001%_) (let () (declare (not safe)) - (_%g191592191632%_))))) + (_%g191866191906%_))))) (let () (declare (not safe)) - (_%g191592191632%_)))))))) - (_%loop191608191711%_ _%target191605191706%_ '()))))) + (_%g191866191906%_)))))))) + (_%loop191882191985%_ _%target191879191980%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx195415195416%_)) - (let ((_%e191596191682%_ + (gx#stx-pair? _%__stx195689195690%_)) + (let ((_%e191870191956%_ (let () (declare (not safe)) - (gx#stx-e _%__stx195415195416%_)))) - (let ((_%tl191598191687%_ + (gx#stx-e _%__stx195689195690%_)))) + (let ((_%tl191872191961%_ (let () (declare (not safe)) - (##cdr _%e191596191682%_))) - (_%hd191597191685%_ + (##cdr _%e191870191956%_))) + (_%hd191871191959%_ (let () (declare (not safe)) - (##car _%e191596191682%_)))) + (##car _%e191870191956%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191598191687%_)) - (let ((_%e191599191690%_ + (gx#stx-pair? _%tl191872191961%_)) + (let ((_%e191873191964%_ (let () (declare (not safe)) - (gx#stx-e _%tl191598191687%_)))) - (let ((_%tl191601191695%_ + (gx#stx-e _%tl191872191961%_)))) + (let ((_%tl191875191969%_ (let () (declare (not safe)) - (##cdr _%e191599191690%_))) - (_%hd191600191693%_ + (##cdr _%e191873191964%_))) + (_%hd191874191967%_ (let () (declare (not safe)) - (##car _%e191599191690%_)))) + (##car _%e191873191964%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd191600191693%_)) - (let ((_%e191602191698%_ + (gx#stx-pair? _%hd191874191967%_)) + (let ((_%e191876191972%_ (let () (declare (not safe)) - (gx#stx-e _%hd191600191693%_)))) - (let ((_%tl191604191703%_ + (gx#stx-e _%hd191874191967%_)))) + (let ((_%tl191878191977%_ (let () (declare (not safe)) - (##cdr _%e191602191698%_))) - (_%hd191603191701%_ + (##cdr _%e191876191972%_))) + (_%hd191877191975%_ (let () (declare (not safe)) - (##car _%e191602191698%_)))) + (##car _%e191876191972%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd191603191701%_)) + _%hd191877191975%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@type.signature - _%hd191603191701%_)) + _%hd191877191975%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl191604191703%_)) - (let ((_%__splice195419195420%_ + _%tl191878191977%_)) + (let ((_%__splice195693195694%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl191604191703%_ + _%tl191878191977%_ '0)))) - (let ((_%tl191607191708%_ + (let ((_%tl191881191982%_ (let () (declare (not safe)) (##vector-ref - _%__splice195419195420%_ + _%__splice195693195694%_ '1))) - (_%target191605191706%_ + (_%target191879191980%_ (let () (declare (not safe)) (##vector-ref - _%__splice195419195420%_ + _%__splice195693195694%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191607191708%_)) - (_%__match195452195453%_ - _%e191596191682%_ - _%hd191597191685%_ - _%tl191598191687%_ - _%e191599191690%_ - _%hd191600191693%_ - _%tl191601191695%_ - _%e191602191698%_ - _%hd191603191701%_ - _%tl191604191703%_ - _%__splice195419195420%_ - _%target191605191706%_ - _%tl191607191708%_) + _%tl191881191982%_)) + (_%__match195726195727%_ + _%e191870191956%_ + _%hd191871191959%_ + _%tl191872191961%_ + _%e191873191964%_ + _%hd191874191967%_ + _%tl191875191969%_ + _%e191876191972%_ + _%hd191877191975%_ + _%tl191878191977%_ + _%__splice195693195694%_ + _%target191879191980%_ + _%tl191881191982%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl191601191695%_)) - (let ((_%e191625191653%_ + (gx#stx-pair? _%tl191875191969%_)) + (let ((_%e191899191927%_ (let () (declare (not safe)) - (gx#stx-e _%tl191601191695%_)))) - (let ((_%tl191627191658%_ + (gx#stx-e _%tl191875191969%_)))) + (let ((_%tl191901191932%_ (let () (declare (not safe)) - (##cdr _%e191625191653%_))) - (_%hd191626191656%_ + (##cdr _%e191899191927%_))) + (_%hd191900191930%_ (let () (declare (not safe)) - (##car _%e191625191653%_)))) + (##car _%e191899191927%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191627191658%_)) - (_%__kont195421195422%_ - _%hd191626191656%_ - _%hd191600191693%_) + (gx#stx-null? _%tl191901191932%_)) + (_%__kont195695195696%_ + _%hd191900191930%_ + _%hd191874191967%_) (let () (declare (not safe)) - (_%g191592191632%_))))) - (let () (declare (not safe)) (_%g191592191632%_)))))) + (_%g191866191906%_))))) + (let () (declare (not safe)) (_%g191866191906%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191601191695%_)) - (let ((_%e191625191653%_ + _%tl191875191969%_)) + (let ((_%e191899191927%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl191601191695%_)))) - (let ((_%tl191627191658%_ - (let () (declare (not safe)) (##cdr _%e191625191653%_))) - (_%hd191626191656%_ + (gx#stx-e _%tl191875191969%_)))) + (let ((_%tl191901191932%_ + (let () (declare (not safe)) (##cdr _%e191899191927%_))) + (_%hd191900191930%_ (let () (declare (not safe)) - (##car _%e191625191653%_)))) + (##car _%e191899191927%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191627191658%_)) - (_%__kont195421195422%_ - _%hd191626191656%_ - _%hd191600191693%_) - (let () (declare (not safe)) (_%g191592191632%_))))) - (let () (declare (not safe)) (_%g191592191632%_)))) + (gx#stx-null? _%tl191901191932%_)) + (_%__kont195695195696%_ + _%hd191900191930%_ + _%hd191874191967%_) + (let () (declare (not safe)) (_%g191866191906%_))))) + (let () (declare (not safe)) (_%g191866191906%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191601191695%_)) - (let ((_%e191625191653%_ + _%tl191875191969%_)) + (let ((_%e191899191927%_ (let () (declare (not safe)) (gx#stx-e - _%tl191601191695%_)))) - (let ((_%tl191627191658%_ + _%tl191875191969%_)))) + (let ((_%tl191901191932%_ (let () (declare (not safe)) - (##cdr _%e191625191653%_))) - (_%hd191626191656%_ + (##cdr _%e191899191927%_))) + (_%hd191900191930%_ (let () (declare (not safe)) - (##car _%e191625191653%_)))) + (##car _%e191899191927%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191627191658%_)) - (_%__kont195421195422%_ - _%hd191626191656%_ - _%hd191600191693%_) + _%tl191901191932%_)) + (_%__kont195695195696%_ + _%hd191900191930%_ + _%hd191874191967%_) (let () (declare (not safe)) - (_%g191592191632%_))))) + (_%g191866191906%_))))) (let () (declare (not safe)) - (_%g191592191632%_)))) + (_%g191866191906%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191601191695%_)) - (let ((_%e191625191653%_ + _%tl191875191969%_)) + (let ((_%e191899191927%_ (let () (declare (not safe)) (gx#stx-e - _%tl191601191695%_)))) - (let ((_%tl191627191658%_ + _%tl191875191969%_)))) + (let ((_%tl191901191932%_ (let () (declare (not safe)) - (##cdr _%e191625191653%_))) - (_%hd191626191656%_ + (##cdr _%e191899191927%_))) + (_%hd191900191930%_ (let () (declare (not safe)) - (##car _%e191625191653%_)))) + (##car _%e191899191927%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191627191658%_)) - (_%__kont195421195422%_ - _%hd191626191656%_ - _%hd191600191693%_) + _%tl191901191932%_)) + (_%__kont195695195696%_ + _%hd191900191930%_ + _%hd191874191967%_) (let () (declare (not safe)) - (_%g191592191632%_))))) + (_%g191866191906%_))))) (let () (declare (not safe)) - (_%g191592191632%_)))))) + (_%g191866191906%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191601191695%_)) - (let ((_%e191625191653%_ + (gx#stx-pair? _%tl191875191969%_)) + (let ((_%e191899191927%_ (let () (declare (not safe)) - (gx#stx-e _%tl191601191695%_)))) - (let ((_%tl191627191658%_ + (gx#stx-e _%tl191875191969%_)))) + (let ((_%tl191901191932%_ (let () (declare (not safe)) - (##cdr _%e191625191653%_))) - (_%hd191626191656%_ + (##cdr _%e191899191927%_))) + (_%hd191900191930%_ (let () (declare (not safe)) - (##car _%e191625191653%_)))) + (##car _%e191899191927%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191627191658%_)) - (_%__kont195421195422%_ - _%hd191626191656%_ - _%hd191600191693%_) + _%tl191901191932%_)) + (_%__kont195695195696%_ + _%hd191900191930%_ + _%hd191874191967%_) (let () (declare (not safe)) - (_%g191592191632%_))))) + (_%g191866191906%_))))) (let () (declare (not safe)) - (_%g191592191632%_)))))) - (let () (declare (not safe)) (_%g191592191632%_))))) - (let () (declare (not safe)) (_%g191592191632%_)))))))) + (_%g191866191906%_)))))) + (let () (declare (not safe)) (_%g191866191906%_))))) + (let () (declare (not safe)) (_%g191866191906%_)))))))) (define gxc#check-return-type! - (lambda (_%stx191566%_ _%expr191567%_ _%type191568%_) - (let ((_%$e191570%_ (not _%type191568%_))) - (if _%$e191570%_ - _%$e191570%_ - (let ((_%$e191573%_ - (eq? (##structure-ref _%type191568%_ '1 gxc#!type::t '#f) + (lambda (_%stx191840%_ _%expr191841%_ _%type191842%_) + (let ((_%$e191844%_ (not _%type191842%_))) + (if _%$e191844%_ + _%$e191844%_ + (let ((_%$e191847%_ + (eq? (##structure-ref _%type191842%_ '1 gxc#!type::t '#f) 't))) - (if _%$e191573%_ - _%$e191573%_ - (let ((_%expr-type191577%_ + (if _%$e191847%_ + _%$e191847%_ + (let ((_%expr-type191851%_ (let () (declare (not safe)) (gxc#apply-basic-expression-type - _%expr191567%_)))) - (if (not _%expr-type191577%_) + _%expr191841%_)))) + (if (not _%expr-type191851%_) (let () (declare (not safe)) (gxc#raise-compile-error '"cannot verify procedure return type; no type information" - _%stx191566%_ - _%type191568%_)) + _%stx191840%_ + _%type191842%_)) (if (eq? 't (##structure-ref - _%expr-type191577%_ + _%expr-type191851%_ '1 gxc#!type::t '#f)) @@ -5156,75 +5156,75 @@ (declare (not safe)) (gxc#raise-compile-error '"cannot verify procedure return type; unspecific type" - _%stx191566%_ - _%type191568%_ - _%expr-type191577%_)) - (let ((_%$e191581%_ + _%stx191840%_ + _%type191842%_ + _%expr-type191851%_)) + (let ((_%$e191855%_ (let () (declare (not safe)) (##structure-instance-of? - _%expr-type191577%_ + _%expr-type191851%_ 'gxc#!abort::t)))) - (if _%$e191581%_ - _%$e191581%_ - (let ((_%$e191584%_ + (if _%$e191855%_ + _%$e191855%_ + (let ((_%$e191858%_ (let () (declare (not safe)) (gxc#!type-subtype? - _%expr-type191577%_ - _%type191568%_)))) - (if _%$e191584%_ - _%$e191584%_ + _%expr-type191851%_ + _%type191842%_)))) + (if _%$e191858%_ + _%$e191858%_ (let () (declare (not safe)) (gxc#raise-compile-error '"procedure return type does not match signature" - _%stx191566%_ - _%type191568%_ - _%expr-type191577%_))))))))))))))) + _%stx191840%_ + _%type191842%_ + _%expr-type191851%_))))))))))))))) (define gxc#optimize-if% - (lambda (_%self190992%_ _%stx190993%_) - (let* ((_%__stx195497195498%_ _%stx190993%_) - (_%g190998191108%_ + (lambda (_%self191266%_ _%stx191267%_) + (let* ((_%__stx195771195772%_ _%stx191267%_) + (_%g191272191382%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx195497195498%_))))) - (let ((_%__kont195499195500%_ - (lambda (_%L191540%_ _%L191541%_ _%L191542%_) - (if (let () (declare (not safe)) (gx#stx-e _%L191542%_)) + _%__stx195771195772%_))))) + (let ((_%__kont195773195774%_ + (lambda (_%L191814%_ _%L191815%_ _%L191816%_) + (if (let () (declare (not safe)) (gx#stx-e _%L191816%_)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self190992%_ _%L191541%_)) + (gxc#compile-e__1 _%self191266%_ _%L191815%_)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self190992%_ _%L191540%_))))) - (_%__kont195501195502%_ - (lambda (_%L191366%_ _%L191367%_ _%L191368%_ _%L191369%_) - (let ((_%$e191401%_ - (let ((__tmp195850 + (gxc#compile-e__1 _%self191266%_ _%L191814%_))))) + (_%__kont195775195776%_ + (lambda (_%L191640%_ _%L191641%_ _%L191642%_ _%L191643%_) + (let ((_%$e191675%_ + (let ((__tmp196124 (let () (declare (not safe)) - (gxc#identifier-symbol _%L191369%_)))) + (gxc#identifier-symbol _%L191643%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp195850)))) - (if _%$e191401%_ - ((lambda (_%pred-type191404%_) + (gxc#optimizer-lookup-type __tmp196124)))) + (if _%$e191675%_ + ((lambda (_%pred-type191678%_) (if (or (let () (declare (not safe)) (##structure-instance-of? - _%pred-type191404%_ + _%pred-type191678%_ 'gxc#!predicate::t)) (let () (declare (not safe)) (##structure-instance-of? - _%pred-type191404%_ + _%pred-type191678%_ 'gxc#!primitive-predicate::t))) - (let* ((_%test191409%_ - (let ((__tmp195851 + (let* ((_%test191683%_ + (let ((__tmp196125 (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -5234,1749 +5234,1749 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L191369%_ '())) + (cons _%L191643%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L191368%_ '())) + (cons _%L191642%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp195851 - _%stx190993%_ - _%self190992%_))) - (_%K191413%_ - (let ((__tmp195852 + __tmp196125 + _%stx191267%_ + _%self191266%_))) + (_%K191687%_ + (let ((__tmp196126 (lambda () - (let ((__tmp195855 + (let ((__tmp196129 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self190992%_ - _%L191367%_)))) - (__tmp195853 + _%self191266%_ + _%L191641%_)))) + (__tmp196127 (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _%L191368%_)) - (let ((__tmp195854 + (gxc#identifier-symbol _%L191642%_)) + (let ((__tmp196128 (##structure-ref - _%pred-type191404%_ + _%pred-type191678%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx190993%_ - __tmp195854))) + _%stx191267%_ + __tmp196128))) (let () (declare (not safe)) (gxc#current-compile-path-type))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp195855 + __tmp196129 gxc#current-compile-path-type - __tmp195853))))) + __tmp196127))))) (declare (not safe)) - (__make-promise __tmp195852))) - (_%E191416%_ - (let ((__tmp195856 + (__make-promise __tmp196126))) + (_%E191690%_ + (let ((__tmp196130 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self190992%_ - _%L191366%_))))) + _%self191266%_ + _%L191640%_))))) (declare (not safe)) - (__make-promise __tmp195856))) - (_%__stx195475195476%_ _%test191409%_) - (_%g191420191434%_ + (__make-promise __tmp196130))) + (_%__stx195749195750%_ _%test191683%_) + (_%g191694191708%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx195475195476%_))))) - (let ((_%__kont195477195478%_ - (lambda (_%L191462%_ _%L191463%_) + _%__stx195749195750%_))))) + (let ((_%__kont195751195752%_ + (lambda (_%L191736%_ _%L191737%_) (if (let () (declare (not safe)) - (gx#stx-e _%L191462%_)) - (force _%K191413%_) - (force _%E191416%_)))) - (_%__kont195479195480%_ + (gx#stx-e _%L191736%_)) + (force _%K191687%_) + (force _%E191690%_)))) + (_%__kont195753195754%_ (lambda () - (let ((__tmp195857 + (let ((__tmp196131 (cons '%#if - (cons _%test191409%_ - (cons (force _%K191413%_) + (cons _%test191683%_ + (cons (force _%K191687%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (force _%E191416%_) '())))))) + (cons (force _%E191690%_) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp195857 - _%stx190993%_))))) + __tmp196131 + _%stx191267%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx195475195476%_)) - (let ((_%e191424191446%_ + (gx#stx-pair? _%__stx195749195750%_)) + (let ((_%e191698191720%_ (let () (declare (not safe)) (gx#stx-e - _%__stx195475195476%_)))) - (let ((_%tl191426191451%_ + _%__stx195749195750%_)))) + (let ((_%tl191700191725%_ (let () (declare (not safe)) - (##cdr _%e191424191446%_))) - (_%hd191425191449%_ + (##cdr _%e191698191720%_))) + (_%hd191699191723%_ (let () (declare (not safe)) - (##car _%e191424191446%_)))) + (##car _%e191698191720%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191426191451%_)) - (let ((_%e191427191454%_ + _%tl191700191725%_)) + (let ((_%e191701191728%_ (let () (declare (not safe)) (gx#stx-e - _%tl191426191451%_)))) - (let ((_%tl191429191459%_ + _%tl191700191725%_)))) + (let ((_%tl191703191733%_ (let () (declare (not safe)) - (##cdr _%e191427191454%_))) - (_%hd191428191457%_ + (##cdr _%e191701191728%_))) + (_%hd191702191731%_ (let () (declare (not safe)) - (##car _%e191427191454%_)))) + (##car _%e191701191728%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191429191459%_)) - (_%__kont195477195478%_ - _%hd191428191457%_ - _%hd191425191449%_) - (_%__kont195479195480%_)))) - (_%__kont195479195480%_)))) - (_%__kont195479195480%_)))) + _%tl191703191733%_)) + (_%__kont195751195752%_ + _%hd191702191731%_ + _%hd191699191723%_) + (_%__kont195753195754%_)))) + (_%__kont195753195754%_)))) + (_%__kont195753195754%_)))) (let () (declare (not safe)) (gxc#xform-operands - _%self190992%_ - _%stx190993%_)))) - _%$e191401%_) + _%self191266%_ + _%stx191267%_)))) + _%$e191675%_) (let () (declare (not safe)) (gxc#xform-operands - _%self190992%_ - _%stx190993%_)))))) - (_%__kont195503195504%_ - (lambda (_%L191242%_ _%L191243%_ _%L191244%_ _%L191245%_) + _%self191266%_ + _%stx191267%_)))))) + (_%__kont195777195778%_ + (lambda (_%L191516%_ _%L191517%_ _%L191518%_ _%L191519%_) (gxc#optimize-if% - _%self190992%_ - (let ((__tmp195858 + _%self191266%_ + (let ((__tmp196132 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#if)) - (cons _%L191244%_ - (cons _%L191242%_ - (cons _%L191243%_ '())))))) + (cons _%L191518%_ + (cons _%L191516%_ + (cons _%L191517%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp195858 _%stx190993%_))))) - (_%__kont195505195506%_ - (lambda (_%L191145%_ _%L191146%_ _%L191147%_) + (gxc#xform-wrap-source __tmp196132 _%stx191267%_))))) + (_%__kont195779195780%_ + (lambda (_%L191419%_ _%L191420%_ _%L191421%_) (let () (declare (not safe)) - (gxc#xform-operands _%self190992%_ _%stx190993%_))))) - (let ((_%__match195704195705%_ - (lambda (_%e191062191170%_ - _%hd191063191173%_ - _%tl191064191175%_ - _%e191065191178%_ - _%hd191066191181%_ - _%tl191067191183%_ - _%e191068191186%_ - _%hd191069191189%_ - _%tl191070191191%_ - _%e191071191194%_ - _%hd191072191197%_ - _%tl191073191199%_ - _%e191074191202%_ - _%hd191075191205%_ - _%tl191076191207%_ - _%e191077191210%_ - _%hd191078191213%_ - _%tl191079191215%_ - _%e191080191218%_ - _%hd191081191221%_ - _%tl191082191223%_ - _%e191083191226%_ - _%hd191084191229%_ - _%tl191085191231%_ - _%e191086191234%_ - _%hd191087191237%_ - _%tl191088191239%_) - (let ((_%L191242%_ _%hd191087191237%_) - (_%L191243%_ _%hd191084191229%_) - (_%L191244%_ _%hd191081191221%_) - (_%L191245%_ _%hd191078191213%_)) + (gxc#xform-operands _%self191266%_ _%stx191267%_))))) + (let ((_%__match195978195979%_ + (lambda (_%e191336191444%_ + _%hd191337191447%_ + _%tl191338191449%_ + _%e191339191452%_ + _%hd191340191455%_ + _%tl191341191457%_ + _%e191342191460%_ + _%hd191343191463%_ + _%tl191344191465%_ + _%e191345191468%_ + _%hd191346191471%_ + _%tl191347191473%_ + _%e191348191476%_ + _%hd191349191479%_ + _%tl191350191481%_ + _%e191351191484%_ + _%hd191352191487%_ + _%tl191353191489%_ + _%e191354191492%_ + _%hd191355191495%_ + _%tl191356191497%_ + _%e191357191500%_ + _%hd191358191503%_ + _%tl191359191505%_ + _%e191360191508%_ + _%hd191361191511%_ + _%tl191362191513%_) + (let ((_%L191516%_ _%hd191361191511%_) + (_%L191517%_ _%hd191358191503%_) + (_%L191518%_ _%hd191355191495%_) + (_%L191519%_ _%hd191352191487%_)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L191245%_ 'not)) - (_%__kont195503195504%_ - _%L191242%_ - _%L191243%_ - _%L191244%_ - _%L191245%_) - (_%__kont195505195506%_ - _%hd191087191237%_ - _%hd191084191229%_ - _%hd191066191181%_)))))) + (gxc#runtime-identifier=? _%L191519%_ 'not)) + (_%__kont195777195778%_ + _%L191516%_ + _%L191517%_ + _%L191518%_ + _%L191519%_) + (_%__kont195779195780%_ + _%hd191361191511%_ + _%hd191358191503%_ + _%hd191340191455%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx195497195498%_)) - (let ((_%e191003191492%_ + (gx#stx-pair? _%__stx195771195772%_)) + (let ((_%e191277191766%_ (let () (declare (not safe)) - (gx#stx-e _%__stx195497195498%_)))) - (let ((_%tl191005191497%_ + (gx#stx-e _%__stx195771195772%_)))) + (let ((_%tl191279191771%_ (let () (declare (not safe)) - (##cdr _%e191003191492%_))) - (_%hd191004191495%_ + (##cdr _%e191277191766%_))) + (_%hd191278191769%_ (let () (declare (not safe)) - (##car _%e191003191492%_)))) + (##car _%e191277191766%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191005191497%_)) - (let ((_%e191006191500%_ + (gx#stx-pair? _%tl191279191771%_)) + (let ((_%e191280191774%_ (let () (declare (not safe)) - (gx#stx-e _%tl191005191497%_)))) - (let ((_%tl191008191505%_ + (gx#stx-e _%tl191279191771%_)))) + (let ((_%tl191282191779%_ (let () (declare (not safe)) - (##cdr _%e191006191500%_))) - (_%hd191007191503%_ + (##cdr _%e191280191774%_))) + (_%hd191281191777%_ (let () (declare (not safe)) - (##car _%e191006191500%_)))) + (##car _%e191280191774%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd191007191503%_)) - (let ((_%e191009191508%_ + (gx#stx-pair? _%hd191281191777%_)) + (let ((_%e191283191782%_ (let () (declare (not safe)) - (gx#stx-e _%hd191007191503%_)))) - (let ((_%tl191011191513%_ + (gx#stx-e _%hd191281191777%_)))) + (let ((_%tl191285191787%_ (let () (declare (not safe)) - (##cdr _%e191009191508%_))) - (_%hd191010191511%_ + (##cdr _%e191283191782%_))) + (_%hd191284191785%_ (let () (declare (not safe)) - (##car _%e191009191508%_)))) + (##car _%e191283191782%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd191010191511%_)) + _%hd191284191785%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd191010191511%_)) + _%hd191284191785%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191011191513%_)) - (let ((_%e191012191516%_ + _%tl191285191787%_)) + (let ((_%e191286191790%_ (let () (declare (not safe)) (gx#stx-e - _%tl191011191513%_)))) - (let ((_%tl191014191521%_ + _%tl191285191787%_)))) + (let ((_%tl191288191795%_ (let () (declare (not safe)) - (##cdr _%e191012191516%_))) - (_%hd191013191519%_ + (##cdr _%e191286191790%_))) + (_%hd191287191793%_ (let () (declare (not safe)) - (##car _%e191012191516%_)))) + (##car _%e191286191790%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191014191521%_)) + _%tl191288191795%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl191008191505%_)) - (let ((_%e191015191524%_ + (gx#stx-pair? _%tl191282191779%_)) + (let ((_%e191289191798%_ (let () (declare (not safe)) - (gx#stx-e _%tl191008191505%_)))) - (let ((_%tl191017191529%_ + (gx#stx-e _%tl191282191779%_)))) + (let ((_%tl191291191803%_ (let () (declare (not safe)) - (##cdr _%e191015191524%_))) - (_%hd191016191527%_ + (##cdr _%e191289191798%_))) + (_%hd191290191801%_ (let () (declare (not safe)) - (##car _%e191015191524%_)))) + (##car _%e191289191798%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191017191529%_)) - (let ((_%e191018191532%_ + (gx#stx-pair? _%tl191291191803%_)) + (let ((_%e191292191806%_ (let () (declare (not safe)) - (gx#stx-e _%tl191017191529%_)))) - (let ((_%tl191020191537%_ + (gx#stx-e _%tl191291191803%_)))) + (let ((_%tl191294191811%_ (let () (declare (not safe)) - (##cdr _%e191018191532%_))) - (_%hd191019191535%_ + (##cdr _%e191292191806%_))) + (_%hd191293191809%_ (let () (declare (not safe)) - (##car _%e191018191532%_)))) + (##car _%e191292191806%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191020191537%_)) - (_%__kont195499195500%_ - _%hd191019191535%_ - _%hd191016191527%_ - _%hd191013191519%_) + (gx#stx-null? _%tl191294191811%_)) + (_%__kont195773195774%_ + _%hd191293191809%_ + _%hd191290191801%_ + _%hd191287191793%_) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (let () (declare (not safe)) - (_%g190998191108%_))))) - (let () (declare (not safe)) (_%g190998191108%_))) + (_%g191272191382%_))))) + (let () (declare (not safe)) (_%g191272191382%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191008191505%_)) - (let ((_%e191098191129%_ + (gx#stx-pair? _%tl191282191779%_)) + (let ((_%e191372191403%_ (let () (declare (not safe)) - (gx#stx-e _%tl191008191505%_)))) - (let ((_%tl191100191134%_ + (gx#stx-e _%tl191282191779%_)))) + (let ((_%tl191374191408%_ (let () (declare (not safe)) - (##cdr _%e191098191129%_))) - (_%hd191099191132%_ + (##cdr _%e191372191403%_))) + (_%hd191373191406%_ (let () (declare (not safe)) - (##car _%e191098191129%_)))) + (##car _%e191372191403%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191100191134%_)) - (let ((_%e191101191137%_ + (gx#stx-pair? _%tl191374191408%_)) + (let ((_%e191375191411%_ (let () (declare (not safe)) - (gx#stx-e _%tl191100191134%_)))) - (let ((_%tl191103191142%_ + (gx#stx-e _%tl191374191408%_)))) + (let ((_%tl191377191416%_ (let () (declare (not safe)) - (##cdr _%e191101191137%_))) - (_%hd191102191140%_ + (##cdr _%e191375191411%_))) + (_%hd191376191414%_ (let () (declare (not safe)) - (##car _%e191101191137%_)))) + (##car _%e191375191411%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191103191142%_)) - (_%__kont195505195506%_ - _%hd191102191140%_ - _%hd191099191132%_ - _%hd191007191503%_) + (gx#stx-null? _%tl191377191416%_)) + (_%__kont195779195780%_ + _%hd191376191414%_ + _%hd191373191406%_ + _%hd191281191777%_) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (let () (declare (not safe)) - (_%g190998191108%_))))) - (let () (declare (not safe)) (_%g190998191108%_)))))) + (_%g191272191382%_))))) + (let () (declare (not safe)) (_%g191272191382%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191008191505%_)) - (let ((_%e191098191129%_ + _%tl191282191779%_)) + (let ((_%e191372191403%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl191008191505%_)))) - (let ((_%tl191100191134%_ - (let () (declare (not safe)) (##cdr _%e191098191129%_))) - (_%hd191099191132%_ + (gx#stx-e _%tl191282191779%_)))) + (let ((_%tl191374191408%_ + (let () (declare (not safe)) (##cdr _%e191372191403%_))) + (_%hd191373191406%_ (let () (declare (not safe)) - (##car _%e191098191129%_)))) + (##car _%e191372191403%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191100191134%_)) - (let ((_%e191101191137%_ + (gx#stx-pair? _%tl191374191408%_)) + (let ((_%e191375191411%_ (let () (declare (not safe)) - (gx#stx-e _%tl191100191134%_)))) - (let ((_%tl191103191142%_ + (gx#stx-e _%tl191374191408%_)))) + (let ((_%tl191377191416%_ (let () (declare (not safe)) - (##cdr _%e191101191137%_))) - (_%hd191102191140%_ + (##cdr _%e191375191411%_))) + (_%hd191376191414%_ (let () (declare (not safe)) - (##car _%e191101191137%_)))) + (##car _%e191375191411%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191103191142%_)) - (_%__kont195505195506%_ - _%hd191102191140%_ - _%hd191099191132%_ - _%hd191007191503%_) + (gx#stx-null? _%tl191377191416%_)) + (_%__kont195779195780%_ + _%hd191376191414%_ + _%hd191373191406%_ + _%hd191281191777%_) (let () (declare (not safe)) - (_%g190998191108%_))))) - (let () (declare (not safe)) (_%g190998191108%_))))) - (let () (declare (not safe)) (_%g190998191108%_)))) + (_%g191272191382%_))))) + (let () (declare (not safe)) (_%g191272191382%_))))) + (let () (declare (not safe)) (_%g191272191382%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd191010191511%_)) + _%hd191284191785%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191011191513%_)) - (let ((_%e191034191302%_ + _%tl191285191787%_)) + (let ((_%e191308191576%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl191011191513%_)))) - (let ((_%tl191036191307%_ - (let () (declare (not safe)) (##cdr _%e191034191302%_))) - (_%hd191035191305%_ + (gx#stx-e _%tl191285191787%_)))) + (let ((_%tl191310191581%_ + (let () (declare (not safe)) (##cdr _%e191308191576%_))) + (_%hd191309191579%_ (let () (declare (not safe)) - (##car _%e191034191302%_)))) + (##car _%e191308191576%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd191035191305%_)) - (let ((_%e191037191310%_ + (gx#stx-pair? _%hd191309191579%_)) + (let ((_%e191311191584%_ (let () (declare (not safe)) - (gx#stx-e _%hd191035191305%_)))) - (let ((_%tl191039191315%_ + (gx#stx-e _%hd191309191579%_)))) + (let ((_%tl191313191589%_ (let () (declare (not safe)) - (##cdr _%e191037191310%_))) - (_%hd191038191313%_ + (##cdr _%e191311191584%_))) + (_%hd191312191587%_ (let () (declare (not safe)) - (##car _%e191037191310%_)))) + (##car _%e191311191584%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd191038191313%_)) + (gx#identifier? _%hd191312191587%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd191038191313%_)) + (gx#stx-eq? '%#ref _%hd191312191587%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191039191315%_)) - (let ((_%e191040191318%_ + (gx#stx-pair? _%tl191313191589%_)) + (let ((_%e191314191592%_ (let () (declare (not safe)) - (gx#stx-e _%tl191039191315%_)))) - (let ((_%tl191042191323%_ + (gx#stx-e _%tl191313191589%_)))) + (let ((_%tl191316191597%_ (let () (declare (not safe)) - (##cdr _%e191040191318%_))) - (_%hd191041191321%_ + (##cdr _%e191314191592%_))) + (_%hd191315191595%_ (let () (declare (not safe)) - (##car _%e191040191318%_)))) + (##car _%e191314191592%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191042191323%_)) + _%tl191316191597%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191036191307%_)) - (let ((_%e191043191326%_ + _%tl191310191581%_)) + (let ((_%e191317191600%_ (let () (declare (not safe)) (gx#stx-e - _%tl191036191307%_)))) - (let ((_%tl191045191331%_ + _%tl191310191581%_)))) + (let ((_%tl191319191605%_ (let () (declare (not safe)) - (##cdr _%e191043191326%_))) - (_%hd191044191329%_ + (##cdr _%e191317191600%_))) + (_%hd191318191603%_ (let () (declare (not safe)) - (##car _%e191043191326%_)))) + (##car _%e191317191600%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd191044191329%_)) - (let ((_%e191046191334%_ + _%hd191318191603%_)) + (let ((_%e191320191608%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd191044191329%_)))) - (let ((_%tl191048191339%_ + (gx#stx-e _%hd191318191603%_)))) + (let ((_%tl191322191613%_ (let () (declare (not safe)) - (##cdr _%e191046191334%_))) - (_%hd191047191337%_ + (##cdr _%e191320191608%_))) + (_%hd191321191611%_ (let () (declare (not safe)) - (##car _%e191046191334%_)))) + (##car _%e191320191608%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd191047191337%_)) + (gx#identifier? _%hd191321191611%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd191047191337%_)) + (gx#stx-eq? '%#ref _%hd191321191611%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191048191339%_)) - (let ((_%e191049191342%_ + (gx#stx-pair? _%tl191322191613%_)) + (let ((_%e191323191616%_ (let () (declare (not safe)) - (gx#stx-e _%tl191048191339%_)))) - (let ((_%tl191051191347%_ + (gx#stx-e _%tl191322191613%_)))) + (let ((_%tl191325191621%_ (let () (declare (not safe)) - (##cdr _%e191049191342%_))) - (_%hd191050191345%_ + (##cdr _%e191323191616%_))) + (_%hd191324191619%_ (let () (declare (not safe)) - (##car _%e191049191342%_)))) + (##car _%e191323191616%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191051191347%_)) + (gx#stx-null? _%tl191325191621%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191045191331%_)) + _%tl191319191605%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191008191505%_)) - (let ((_%e191052191350%_ + _%tl191282191779%_)) + (let ((_%e191326191624%_ (let () (declare (not safe)) (gx#stx-e - _%tl191008191505%_)))) - (let ((_%tl191054191355%_ + _%tl191282191779%_)))) + (let ((_%tl191328191629%_ (let () (declare (not safe)) - (##cdr _%e191052191350%_))) - (_%hd191053191353%_ + (##cdr _%e191326191624%_))) + (_%hd191327191627%_ (let () (declare (not safe)) - (##car _%e191052191350%_)))) + (##car _%e191326191624%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191054191355%_)) - (let ((_%e191055191358%_ + _%tl191328191629%_)) + (let ((_%e191329191632%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl191054191355%_)))) - (let ((_%tl191057191363%_ + (gx#stx-e _%tl191328191629%_)))) + (let ((_%tl191331191637%_ (let () (declare (not safe)) - (##cdr _%e191055191358%_))) - (_%hd191056191361%_ + (##cdr _%e191329191632%_))) + (_%hd191330191635%_ (let () (declare (not safe)) - (##car _%e191055191358%_)))) + (##car _%e191329191632%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191057191363%_)) - (_%__kont195501195502%_ - _%hd191056191361%_ - _%hd191053191353%_ - _%hd191050191345%_ - _%hd191041191321%_) - (let () (declare (not safe)) (_%g190998191108%_))))) - (let () (declare (not safe)) (_%g190998191108%_))))) + (gx#stx-null? _%tl191331191637%_)) + (_%__kont195775195776%_ + _%hd191330191635%_ + _%hd191327191627%_ + _%hd191324191619%_ + _%hd191315191595%_) + (let () (declare (not safe)) (_%g191272191382%_))))) + (let () (declare (not safe)) (_%g191272191382%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g190998191108%_))) + (_%g191272191382%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191008191505%_)) - (let ((_%e191098191129%_ + _%tl191282191779%_)) + (let ((_%e191372191403%_ (let () (declare (not safe)) (gx#stx-e - _%tl191008191505%_)))) - (let ((_%tl191100191134%_ + _%tl191282191779%_)))) + (let ((_%tl191374191408%_ (let () (declare (not safe)) - (##cdr _%e191098191129%_))) - (_%hd191099191132%_ + (##cdr _%e191372191403%_))) + (_%hd191373191406%_ (let () (declare (not safe)) - (##car _%e191098191129%_)))) + (##car _%e191372191403%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191100191134%_)) - (let ((_%e191101191137%_ + _%tl191374191408%_)) + (let ((_%e191375191411%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl191100191134%_)))) - (let ((_%tl191103191142%_ + (gx#stx-e _%tl191374191408%_)))) + (let ((_%tl191377191416%_ (let () (declare (not safe)) - (##cdr _%e191101191137%_))) - (_%hd191102191140%_ + (##cdr _%e191375191411%_))) + (_%hd191376191414%_ (let () (declare (not safe)) - (##car _%e191101191137%_)))) + (##car _%e191375191411%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191103191142%_)) - (_%__kont195505195506%_ - _%hd191102191140%_ - _%hd191099191132%_ - _%hd191007191503%_) - (let () (declare (not safe)) (_%g190998191108%_))))) - (let () (declare (not safe)) (_%g190998191108%_))))) + (gx#stx-null? _%tl191377191416%_)) + (_%__kont195779195780%_ + _%hd191376191414%_ + _%hd191373191406%_ + _%hd191281191777%_) + (let () (declare (not safe)) (_%g191272191382%_))))) + (let () (declare (not safe)) (_%g191272191382%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g190998191108%_)))) + (_%g191272191382%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191045191331%_)) + _%tl191319191605%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191008191505%_)) - (let ((_%e191083191226%_ + _%tl191282191779%_)) + (let ((_%e191357191500%_ (let () (declare (not safe)) (gx#stx-e - _%tl191008191505%_)))) - (let ((_%tl191085191231%_ + _%tl191282191779%_)))) + (let ((_%tl191359191505%_ (let () (declare (not safe)) - (##cdr _%e191083191226%_))) - (_%hd191084191229%_ + (##cdr _%e191357191500%_))) + (_%hd191358191503%_ (let () (declare (not safe)) - (##car _%e191083191226%_)))) + (##car _%e191357191500%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191085191231%_)) - (let ((_%e191086191234%_ + _%tl191359191505%_)) + (let ((_%e191360191508%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl191085191231%_)))) - (let ((_%tl191088191239%_ + (gx#stx-e _%tl191359191505%_)))) + (let ((_%tl191362191513%_ (let () (declare (not safe)) - (##cdr _%e191086191234%_))) - (_%hd191087191237%_ + (##cdr _%e191360191508%_))) + (_%hd191361191511%_ (let () (declare (not safe)) - (##car _%e191086191234%_)))) + (##car _%e191360191508%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191088191239%_)) - (_%__match195704195705%_ - _%e191003191492%_ - _%hd191004191495%_ - _%tl191005191497%_ - _%e191006191500%_ - _%hd191007191503%_ - _%tl191008191505%_ - _%e191009191508%_ - _%hd191010191511%_ - _%tl191011191513%_ - _%e191034191302%_ - _%hd191035191305%_ - _%tl191036191307%_ - _%e191037191310%_ - _%hd191038191313%_ - _%tl191039191315%_ - _%e191040191318%_ - _%hd191041191321%_ - _%tl191042191323%_ - _%e191043191326%_ - _%hd191044191329%_ - _%tl191045191331%_ - _%e191083191226%_ - _%hd191084191229%_ - _%tl191085191231%_ - _%e191086191234%_ - _%hd191087191237%_ - _%tl191088191239%_) - (let () (declare (not safe)) (_%g190998191108%_))))) - (let () (declare (not safe)) (_%g190998191108%_))))) + (gx#stx-null? _%tl191362191513%_)) + (_%__match195978195979%_ + _%e191277191766%_ + _%hd191278191769%_ + _%tl191279191771%_ + _%e191280191774%_ + _%hd191281191777%_ + _%tl191282191779%_ + _%e191283191782%_ + _%hd191284191785%_ + _%tl191285191787%_ + _%e191308191576%_ + _%hd191309191579%_ + _%tl191310191581%_ + _%e191311191584%_ + _%hd191312191587%_ + _%tl191313191589%_ + _%e191314191592%_ + _%hd191315191595%_ + _%tl191316191597%_ + _%e191317191600%_ + _%hd191318191603%_ + _%tl191319191605%_ + _%e191357191500%_ + _%hd191358191503%_ + _%tl191359191505%_ + _%e191360191508%_ + _%hd191361191511%_ + _%tl191362191513%_) + (let () (declare (not safe)) (_%g191272191382%_))))) + (let () (declare (not safe)) (_%g191272191382%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g190998191108%_))) + (_%g191272191382%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191008191505%_)) - (let ((_%e191098191129%_ + _%tl191282191779%_)) + (let ((_%e191372191403%_ (let () (declare (not safe)) (gx#stx-e - _%tl191008191505%_)))) - (let ((_%tl191100191134%_ + _%tl191282191779%_)))) + (let ((_%tl191374191408%_ (let () (declare (not safe)) - (##cdr _%e191098191129%_))) - (_%hd191099191132%_ + (##cdr _%e191372191403%_))) + (_%hd191373191406%_ (let () (declare (not safe)) - (##car _%e191098191129%_)))) + (##car _%e191372191403%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191100191134%_)) - (let ((_%e191101191137%_ + _%tl191374191408%_)) + (let ((_%e191375191411%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl191100191134%_)))) - (let ((_%tl191103191142%_ + (gx#stx-e _%tl191374191408%_)))) + (let ((_%tl191377191416%_ (let () (declare (not safe)) - (##cdr _%e191101191137%_))) - (_%hd191102191140%_ + (##cdr _%e191375191411%_))) + (_%hd191376191414%_ (let () (declare (not safe)) - (##car _%e191101191137%_)))) + (##car _%e191375191411%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191103191142%_)) - (_%__kont195505195506%_ - _%hd191102191140%_ - _%hd191099191132%_ - _%hd191007191503%_) - (let () (declare (not safe)) (_%g190998191108%_))))) - (let () (declare (not safe)) (_%g190998191108%_))))) + (gx#stx-null? _%tl191377191416%_)) + (_%__kont195779195780%_ + _%hd191376191414%_ + _%hd191373191406%_ + _%hd191281191777%_) + (let () (declare (not safe)) (_%g191272191382%_))))) + (let () (declare (not safe)) (_%g191272191382%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g190998191108%_))))))) + (_%g191272191382%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191045191331%_)) + (gx#stx-null? _%tl191319191605%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191008191505%_)) - (let ((_%e191083191226%_ + (gx#stx-pair? _%tl191282191779%_)) + (let ((_%e191357191500%_ (let () (declare (not safe)) (gx#stx-e - _%tl191008191505%_)))) - (let ((_%tl191085191231%_ + _%tl191282191779%_)))) + (let ((_%tl191359191505%_ (let () (declare (not safe)) - (##cdr _%e191083191226%_))) - (_%hd191084191229%_ + (##cdr _%e191357191500%_))) + (_%hd191358191503%_ (let () (declare (not safe)) - (##car _%e191083191226%_)))) + (##car _%e191357191500%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191085191231%_)) - (let ((_%e191086191234%_ + _%tl191359191505%_)) + (let ((_%e191360191508%_ (let () (declare (not safe)) (gx#stx-e - _%tl191085191231%_)))) - (let ((_%tl191088191239%_ + _%tl191359191505%_)))) + (let ((_%tl191362191513%_ (let () (declare (not safe)) - (##cdr _%e191086191234%_))) - (_%hd191087191237%_ + (##cdr _%e191360191508%_))) + (_%hd191361191511%_ (let () (declare (not safe)) - (##car _%e191086191234%_)))) + (##car _%e191360191508%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191088191239%_)) - (_%__match195704195705%_ - _%e191003191492%_ - _%hd191004191495%_ - _%tl191005191497%_ - _%e191006191500%_ - _%hd191007191503%_ - _%tl191008191505%_ - _%e191009191508%_ - _%hd191010191511%_ - _%tl191011191513%_ - _%e191034191302%_ - _%hd191035191305%_ - _%tl191036191307%_ - _%e191037191310%_ - _%hd191038191313%_ - _%tl191039191315%_ - _%e191040191318%_ - _%hd191041191321%_ - _%tl191042191323%_ - _%e191043191326%_ - _%hd191044191329%_ - _%tl191045191331%_ - _%e191083191226%_ - _%hd191084191229%_ - _%tl191085191231%_ - _%e191086191234%_ - _%hd191087191237%_ - _%tl191088191239%_) + _%tl191362191513%_)) + (_%__match195978195979%_ + _%e191277191766%_ + _%hd191278191769%_ + _%tl191279191771%_ + _%e191280191774%_ + _%hd191281191777%_ + _%tl191282191779%_ + _%e191283191782%_ + _%hd191284191785%_ + _%tl191285191787%_ + _%e191308191576%_ + _%hd191309191579%_ + _%tl191310191581%_ + _%e191311191584%_ + _%hd191312191587%_ + _%tl191313191589%_ + _%e191314191592%_ + _%hd191315191595%_ + _%tl191316191597%_ + _%e191317191600%_ + _%hd191318191603%_ + _%tl191319191605%_ + _%e191357191500%_ + _%hd191358191503%_ + _%tl191359191505%_ + _%e191360191508%_ + _%hd191361191511%_ + _%tl191362191513%_) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (let () (declare (not safe)) - (_%g190998191108%_))) + (_%g191272191382%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191008191505%_)) - (let ((_%e191098191129%_ + (gx#stx-pair? _%tl191282191779%_)) + (let ((_%e191372191403%_ (let () (declare (not safe)) (gx#stx-e - _%tl191008191505%_)))) - (let ((_%tl191100191134%_ + _%tl191282191779%_)))) + (let ((_%tl191374191408%_ (let () (declare (not safe)) - (##cdr _%e191098191129%_))) - (_%hd191099191132%_ + (##cdr _%e191372191403%_))) + (_%hd191373191406%_ (let () (declare (not safe)) - (##car _%e191098191129%_)))) + (##car _%e191372191403%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191100191134%_)) - (let ((_%e191101191137%_ + _%tl191374191408%_)) + (let ((_%e191375191411%_ (let () (declare (not safe)) (gx#stx-e - _%tl191100191134%_)))) - (let ((_%tl191103191142%_ + _%tl191374191408%_)))) + (let ((_%tl191377191416%_ (let () (declare (not safe)) - (##cdr _%e191101191137%_))) - (_%hd191102191140%_ + (##cdr _%e191375191411%_))) + (_%hd191376191414%_ (let () (declare (not safe)) - (##car _%e191101191137%_)))) + (##car _%e191375191411%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191103191142%_)) - (_%__kont195505195506%_ - _%hd191102191140%_ - _%hd191099191132%_ - _%hd191007191503%_) + _%tl191377191416%_)) + (_%__kont195779195780%_ + _%hd191376191414%_ + _%hd191373191406%_ + _%hd191281191777%_) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191045191331%_)) + (gx#stx-null? _%tl191319191605%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191008191505%_)) - (let ((_%e191083191226%_ + (gx#stx-pair? _%tl191282191779%_)) + (let ((_%e191357191500%_ (let () (declare (not safe)) - (gx#stx-e _%tl191008191505%_)))) - (let ((_%tl191085191231%_ + (gx#stx-e _%tl191282191779%_)))) + (let ((_%tl191359191505%_ (let () (declare (not safe)) - (##cdr _%e191083191226%_))) - (_%hd191084191229%_ + (##cdr _%e191357191500%_))) + (_%hd191358191503%_ (let () (declare (not safe)) - (##car _%e191083191226%_)))) + (##car _%e191357191500%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191085191231%_)) - (let ((_%e191086191234%_ + _%tl191359191505%_)) + (let ((_%e191360191508%_ (let () (declare (not safe)) (gx#stx-e - _%tl191085191231%_)))) - (let ((_%tl191088191239%_ + _%tl191359191505%_)))) + (let ((_%tl191362191513%_ (let () (declare (not safe)) - (##cdr _%e191086191234%_))) - (_%hd191087191237%_ + (##cdr _%e191360191508%_))) + (_%hd191361191511%_ (let () (declare (not safe)) - (##car _%e191086191234%_)))) + (##car _%e191360191508%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191088191239%_)) - (_%__match195704195705%_ - _%e191003191492%_ - _%hd191004191495%_ - _%tl191005191497%_ - _%e191006191500%_ - _%hd191007191503%_ - _%tl191008191505%_ - _%e191009191508%_ - _%hd191010191511%_ - _%tl191011191513%_ - _%e191034191302%_ - _%hd191035191305%_ - _%tl191036191307%_ - _%e191037191310%_ - _%hd191038191313%_ - _%tl191039191315%_ - _%e191040191318%_ - _%hd191041191321%_ - _%tl191042191323%_ - _%e191043191326%_ - _%hd191044191329%_ - _%tl191045191331%_ - _%e191083191226%_ - _%hd191084191229%_ - _%tl191085191231%_ - _%e191086191234%_ - _%hd191087191237%_ - _%tl191088191239%_) + _%tl191362191513%_)) + (_%__match195978195979%_ + _%e191277191766%_ + _%hd191278191769%_ + _%tl191279191771%_ + _%e191280191774%_ + _%hd191281191777%_ + _%tl191282191779%_ + _%e191283191782%_ + _%hd191284191785%_ + _%tl191285191787%_ + _%e191308191576%_ + _%hd191309191579%_ + _%tl191310191581%_ + _%e191311191584%_ + _%hd191312191587%_ + _%tl191313191589%_ + _%e191314191592%_ + _%hd191315191595%_ + _%tl191316191597%_ + _%e191317191600%_ + _%hd191318191603%_ + _%tl191319191605%_ + _%e191357191500%_ + _%hd191358191503%_ + _%tl191359191505%_ + _%e191360191508%_ + _%hd191361191511%_ + _%tl191362191513%_) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (let () (declare (not safe)) - (_%g190998191108%_))) + (_%g191272191382%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191008191505%_)) - (let ((_%e191098191129%_ + (gx#stx-pair? _%tl191282191779%_)) + (let ((_%e191372191403%_ (let () (declare (not safe)) - (gx#stx-e _%tl191008191505%_)))) - (let ((_%tl191100191134%_ + (gx#stx-e _%tl191282191779%_)))) + (let ((_%tl191374191408%_ (let () (declare (not safe)) - (##cdr _%e191098191129%_))) - (_%hd191099191132%_ + (##cdr _%e191372191403%_))) + (_%hd191373191406%_ (let () (declare (not safe)) - (##car _%e191098191129%_)))) + (##car _%e191372191403%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191100191134%_)) - (let ((_%e191101191137%_ + _%tl191374191408%_)) + (let ((_%e191375191411%_ (let () (declare (not safe)) (gx#stx-e - _%tl191100191134%_)))) - (let ((_%tl191103191142%_ + _%tl191374191408%_)))) + (let ((_%tl191377191416%_ (let () (declare (not safe)) - (##cdr _%e191101191137%_))) - (_%hd191102191140%_ + (##cdr _%e191375191411%_))) + (_%hd191376191414%_ (let () (declare (not safe)) - (##car _%e191101191137%_)))) + (##car _%e191375191411%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191103191142%_)) - (_%__kont195505195506%_ - _%hd191102191140%_ - _%hd191099191132%_ - _%hd191007191503%_) + _%tl191377191416%_)) + (_%__kont195779195780%_ + _%hd191376191414%_ + _%hd191373191406%_ + _%hd191281191777%_) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191045191331%_)) + (gx#stx-null? _%tl191319191605%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191008191505%_)) - (let ((_%e191083191226%_ + (gx#stx-pair? _%tl191282191779%_)) + (let ((_%e191357191500%_ (let () (declare (not safe)) - (gx#stx-e _%tl191008191505%_)))) - (let ((_%tl191085191231%_ + (gx#stx-e _%tl191282191779%_)))) + (let ((_%tl191359191505%_ (let () (declare (not safe)) - (##cdr _%e191083191226%_))) - (_%hd191084191229%_ + (##cdr _%e191357191500%_))) + (_%hd191358191503%_ (let () (declare (not safe)) - (##car _%e191083191226%_)))) + (##car _%e191357191500%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191085191231%_)) - (let ((_%e191086191234%_ + (gx#stx-pair? _%tl191359191505%_)) + (let ((_%e191360191508%_ (let () (declare (not safe)) (gx#stx-e - _%tl191085191231%_)))) - (let ((_%tl191088191239%_ + _%tl191359191505%_)))) + (let ((_%tl191362191513%_ (let () (declare (not safe)) - (##cdr _%e191086191234%_))) - (_%hd191087191237%_ + (##cdr _%e191360191508%_))) + (_%hd191361191511%_ (let () (declare (not safe)) - (##car _%e191086191234%_)))) + (##car _%e191360191508%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191088191239%_)) - (_%__match195704195705%_ - _%e191003191492%_ - _%hd191004191495%_ - _%tl191005191497%_ - _%e191006191500%_ - _%hd191007191503%_ - _%tl191008191505%_ - _%e191009191508%_ - _%hd191010191511%_ - _%tl191011191513%_ - _%e191034191302%_ - _%hd191035191305%_ - _%tl191036191307%_ - _%e191037191310%_ - _%hd191038191313%_ - _%tl191039191315%_ - _%e191040191318%_ - _%hd191041191321%_ - _%tl191042191323%_ - _%e191043191326%_ - _%hd191044191329%_ - _%tl191045191331%_ - _%e191083191226%_ - _%hd191084191229%_ - _%tl191085191231%_ - _%e191086191234%_ - _%hd191087191237%_ - _%tl191088191239%_) + _%tl191362191513%_)) + (_%__match195978195979%_ + _%e191277191766%_ + _%hd191278191769%_ + _%tl191279191771%_ + _%e191280191774%_ + _%hd191281191777%_ + _%tl191282191779%_ + _%e191283191782%_ + _%hd191284191785%_ + _%tl191285191787%_ + _%e191308191576%_ + _%hd191309191579%_ + _%tl191310191581%_ + _%e191311191584%_ + _%hd191312191587%_ + _%tl191313191589%_ + _%e191314191592%_ + _%hd191315191595%_ + _%tl191316191597%_ + _%e191317191600%_ + _%hd191318191603%_ + _%tl191319191605%_ + _%e191357191500%_ + _%hd191358191503%_ + _%tl191359191505%_ + _%e191360191508%_ + _%hd191361191511%_ + _%tl191362191513%_) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (let () (declare (not safe)) - (_%g190998191108%_))) + (_%g191272191382%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191008191505%_)) - (let ((_%e191098191129%_ + (gx#stx-pair? _%tl191282191779%_)) + (let ((_%e191372191403%_ (let () (declare (not safe)) - (gx#stx-e _%tl191008191505%_)))) - (let ((_%tl191100191134%_ + (gx#stx-e _%tl191282191779%_)))) + (let ((_%tl191374191408%_ (let () (declare (not safe)) - (##cdr _%e191098191129%_))) - (_%hd191099191132%_ + (##cdr _%e191372191403%_))) + (_%hd191373191406%_ (let () (declare (not safe)) - (##car _%e191098191129%_)))) + (##car _%e191372191403%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191100191134%_)) - (let ((_%e191101191137%_ + (gx#stx-pair? _%tl191374191408%_)) + (let ((_%e191375191411%_ (let () (declare (not safe)) (gx#stx-e - _%tl191100191134%_)))) - (let ((_%tl191103191142%_ + _%tl191374191408%_)))) + (let ((_%tl191377191416%_ (let () (declare (not safe)) - (##cdr _%e191101191137%_))) - (_%hd191102191140%_ + (##cdr _%e191375191411%_))) + (_%hd191376191414%_ (let () (declare (not safe)) - (##car _%e191101191137%_)))) + (##car _%e191375191411%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191103191142%_)) - (_%__kont195505195506%_ - _%hd191102191140%_ - _%hd191099191132%_ - _%hd191007191503%_) + _%tl191377191416%_)) + (_%__kont195779195780%_ + _%hd191376191414%_ + _%hd191373191406%_ + _%hd191281191777%_) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (let () (declare (not safe)) - (_%g190998191108%_))))))) + (_%g191272191382%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191045191331%_)) + (gx#stx-null? _%tl191319191605%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191008191505%_)) - (let ((_%e191083191226%_ + (gx#stx-pair? _%tl191282191779%_)) + (let ((_%e191357191500%_ (let () (declare (not safe)) - (gx#stx-e _%tl191008191505%_)))) - (let ((_%tl191085191231%_ + (gx#stx-e _%tl191282191779%_)))) + (let ((_%tl191359191505%_ (let () (declare (not safe)) - (##cdr _%e191083191226%_))) - (_%hd191084191229%_ + (##cdr _%e191357191500%_))) + (_%hd191358191503%_ (let () (declare (not safe)) - (##car _%e191083191226%_)))) + (##car _%e191357191500%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191085191231%_)) - (let ((_%e191086191234%_ + (gx#stx-pair? _%tl191359191505%_)) + (let ((_%e191360191508%_ (let () (declare (not safe)) - (gx#stx-e _%tl191085191231%_)))) - (let ((_%tl191088191239%_ + (gx#stx-e _%tl191359191505%_)))) + (let ((_%tl191362191513%_ (let () (declare (not safe)) - (##cdr _%e191086191234%_))) - (_%hd191087191237%_ + (##cdr _%e191360191508%_))) + (_%hd191361191511%_ (let () (declare (not safe)) - (##car _%e191086191234%_)))) + (##car _%e191360191508%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191088191239%_)) - (_%__match195704195705%_ - _%e191003191492%_ - _%hd191004191495%_ - _%tl191005191497%_ - _%e191006191500%_ - _%hd191007191503%_ - _%tl191008191505%_ - _%e191009191508%_ - _%hd191010191511%_ - _%tl191011191513%_ - _%e191034191302%_ - _%hd191035191305%_ - _%tl191036191307%_ - _%e191037191310%_ - _%hd191038191313%_ - _%tl191039191315%_ - _%e191040191318%_ - _%hd191041191321%_ - _%tl191042191323%_ - _%e191043191326%_ - _%hd191044191329%_ - _%tl191045191331%_ - _%e191083191226%_ - _%hd191084191229%_ - _%tl191085191231%_ - _%e191086191234%_ - _%hd191087191237%_ - _%tl191088191239%_) + (gx#stx-null? _%tl191362191513%_)) + (_%__match195978195979%_ + _%e191277191766%_ + _%hd191278191769%_ + _%tl191279191771%_ + _%e191280191774%_ + _%hd191281191777%_ + _%tl191282191779%_ + _%e191283191782%_ + _%hd191284191785%_ + _%tl191285191787%_ + _%e191308191576%_ + _%hd191309191579%_ + _%tl191310191581%_ + _%e191311191584%_ + _%hd191312191587%_ + _%tl191313191589%_ + _%e191314191592%_ + _%hd191315191595%_ + _%tl191316191597%_ + _%e191317191600%_ + _%hd191318191603%_ + _%tl191319191605%_ + _%e191357191500%_ + _%hd191358191503%_ + _%tl191359191505%_ + _%e191360191508%_ + _%hd191361191511%_ + _%tl191362191513%_) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (let () (declare (not safe)) - (_%g190998191108%_))))) - (let () (declare (not safe)) (_%g190998191108%_))) + (_%g191272191382%_))))) + (let () (declare (not safe)) (_%g191272191382%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191008191505%_)) - (let ((_%e191098191129%_ + (gx#stx-pair? _%tl191282191779%_)) + (let ((_%e191372191403%_ (let () (declare (not safe)) - (gx#stx-e _%tl191008191505%_)))) - (let ((_%tl191100191134%_ + (gx#stx-e _%tl191282191779%_)))) + (let ((_%tl191374191408%_ (let () (declare (not safe)) - (##cdr _%e191098191129%_))) - (_%hd191099191132%_ + (##cdr _%e191372191403%_))) + (_%hd191373191406%_ (let () (declare (not safe)) - (##car _%e191098191129%_)))) + (##car _%e191372191403%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191100191134%_)) - (let ((_%e191101191137%_ + (gx#stx-pair? _%tl191374191408%_)) + (let ((_%e191375191411%_ (let () (declare (not safe)) - (gx#stx-e _%tl191100191134%_)))) - (let ((_%tl191103191142%_ + (gx#stx-e _%tl191374191408%_)))) + (let ((_%tl191377191416%_ (let () (declare (not safe)) - (##cdr _%e191101191137%_))) - (_%hd191102191140%_ + (##cdr _%e191375191411%_))) + (_%hd191376191414%_ (let () (declare (not safe)) - (##car _%e191101191137%_)))) + (##car _%e191375191411%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191103191142%_)) - (_%__kont195505195506%_ - _%hd191102191140%_ - _%hd191099191132%_ - _%hd191007191503%_) + (gx#stx-null? _%tl191377191416%_)) + (_%__kont195779195780%_ + _%hd191376191414%_ + _%hd191373191406%_ + _%hd191281191777%_) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (let () (declare (not safe)) - (_%g190998191108%_))))))) + (_%g191272191382%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191008191505%_)) - (let ((_%e191098191129%_ + _%tl191282191779%_)) + (let ((_%e191372191403%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl191008191505%_)))) - (let ((_%tl191100191134%_ - (let () (declare (not safe)) (##cdr _%e191098191129%_))) - (_%hd191099191132%_ + (gx#stx-e _%tl191282191779%_)))) + (let ((_%tl191374191408%_ + (let () (declare (not safe)) (##cdr _%e191372191403%_))) + (_%hd191373191406%_ (let () (declare (not safe)) - (##car _%e191098191129%_)))) + (##car _%e191372191403%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191100191134%_)) - (let ((_%e191101191137%_ + (gx#stx-pair? _%tl191374191408%_)) + (let ((_%e191375191411%_ (let () (declare (not safe)) - (gx#stx-e _%tl191100191134%_)))) - (let ((_%tl191103191142%_ + (gx#stx-e _%tl191374191408%_)))) + (let ((_%tl191377191416%_ (let () (declare (not safe)) - (##cdr _%e191101191137%_))) - (_%hd191102191140%_ + (##cdr _%e191375191411%_))) + (_%hd191376191414%_ (let () (declare (not safe)) - (##car _%e191101191137%_)))) + (##car _%e191375191411%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191103191142%_)) - (_%__kont195505195506%_ - _%hd191102191140%_ - _%hd191099191132%_ - _%hd191007191503%_) + (gx#stx-null? _%tl191377191416%_)) + (_%__kont195779195780%_ + _%hd191376191414%_ + _%hd191373191406%_ + _%hd191281191777%_) (let () (declare (not safe)) - (_%g190998191108%_))))) - (let () (declare (not safe)) (_%g190998191108%_))))) - (let () (declare (not safe)) (_%g190998191108%_)))) + (_%g191272191382%_))))) + (let () (declare (not safe)) (_%g191272191382%_))))) + (let () (declare (not safe)) (_%g191272191382%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191008191505%_)) - (let ((_%e191098191129%_ + _%tl191282191779%_)) + (let ((_%e191372191403%_ (let () (declare (not safe)) (gx#stx-e - _%tl191008191505%_)))) - (let ((_%tl191100191134%_ + _%tl191282191779%_)))) + (let ((_%tl191374191408%_ (let () (declare (not safe)) - (##cdr _%e191098191129%_))) - (_%hd191099191132%_ + (##cdr _%e191372191403%_))) + (_%hd191373191406%_ (let () (declare (not safe)) - (##car _%e191098191129%_)))) + (##car _%e191372191403%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191100191134%_)) - (let ((_%e191101191137%_ + _%tl191374191408%_)) + (let ((_%e191375191411%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl191100191134%_)))) - (let ((_%tl191103191142%_ + (gx#stx-e _%tl191374191408%_)))) + (let ((_%tl191377191416%_ (let () (declare (not safe)) - (##cdr _%e191101191137%_))) - (_%hd191102191140%_ + (##cdr _%e191375191411%_))) + (_%hd191376191414%_ (let () (declare (not safe)) - (##car _%e191101191137%_)))) + (##car _%e191375191411%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191103191142%_)) - (_%__kont195505195506%_ - _%hd191102191140%_ - _%hd191099191132%_ - _%hd191007191503%_) - (let () (declare (not safe)) (_%g190998191108%_))))) - (let () (declare (not safe)) (_%g190998191108%_))))) + (gx#stx-null? _%tl191377191416%_)) + (_%__kont195779195780%_ + _%hd191376191414%_ + _%hd191373191406%_ + _%hd191281191777%_) + (let () (declare (not safe)) (_%g191272191382%_))))) + (let () (declare (not safe)) (_%g191272191382%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g190998191108%_)))))) + (_%g191272191382%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191008191505%_)) - (let ((_%e191098191129%_ + (gx#stx-pair? _%tl191282191779%_)) + (let ((_%e191372191403%_ (let () (declare (not safe)) (gx#stx-e - _%tl191008191505%_)))) - (let ((_%tl191100191134%_ + _%tl191282191779%_)))) + (let ((_%tl191374191408%_ (let () (declare (not safe)) - (##cdr _%e191098191129%_))) - (_%hd191099191132%_ + (##cdr _%e191372191403%_))) + (_%hd191373191406%_ (let () (declare (not safe)) - (##car _%e191098191129%_)))) + (##car _%e191372191403%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191100191134%_)) - (let ((_%e191101191137%_ + _%tl191374191408%_)) + (let ((_%e191375191411%_ (let () (declare (not safe)) (gx#stx-e - _%tl191100191134%_)))) - (let ((_%tl191103191142%_ + _%tl191374191408%_)))) + (let ((_%tl191377191416%_ (let () (declare (not safe)) - (##cdr _%e191101191137%_))) - (_%hd191102191140%_ + (##cdr _%e191375191411%_))) + (_%hd191376191414%_ (let () (declare (not safe)) - (##car _%e191101191137%_)))) + (##car _%e191375191411%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191103191142%_)) - (_%__kont195505195506%_ - _%hd191102191140%_ - _%hd191099191132%_ - _%hd191007191503%_) + _%tl191377191416%_)) + (_%__kont195779195780%_ + _%hd191376191414%_ + _%hd191373191406%_ + _%hd191281191777%_) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (let () (declare (not safe)) - (_%g190998191108%_)))) + (_%g191272191382%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191008191505%_)) - (let ((_%e191098191129%_ + (gx#stx-pair? _%tl191282191779%_)) + (let ((_%e191372191403%_ (let () (declare (not safe)) - (gx#stx-e _%tl191008191505%_)))) - (let ((_%tl191100191134%_ + (gx#stx-e _%tl191282191779%_)))) + (let ((_%tl191374191408%_ (let () (declare (not safe)) - (##cdr _%e191098191129%_))) - (_%hd191099191132%_ + (##cdr _%e191372191403%_))) + (_%hd191373191406%_ (let () (declare (not safe)) - (##car _%e191098191129%_)))) + (##car _%e191372191403%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191100191134%_)) - (let ((_%e191101191137%_ + _%tl191374191408%_)) + (let ((_%e191375191411%_ (let () (declare (not safe)) (gx#stx-e - _%tl191100191134%_)))) - (let ((_%tl191103191142%_ + _%tl191374191408%_)))) + (let ((_%tl191377191416%_ (let () (declare (not safe)) - (##cdr _%e191101191137%_))) - (_%hd191102191140%_ + (##cdr _%e191375191411%_))) + (_%hd191376191414%_ (let () (declare (not safe)) - (##car _%e191101191137%_)))) + (##car _%e191375191411%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191103191142%_)) - (_%__kont195505195506%_ - _%hd191102191140%_ - _%hd191099191132%_ - _%hd191007191503%_) + _%tl191377191416%_)) + (_%__kont195779195780%_ + _%hd191376191414%_ + _%hd191373191406%_ + _%hd191281191777%_) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (let () (declare (not safe)) - (_%g190998191108%_)))) + (_%g191272191382%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191008191505%_)) - (let ((_%e191098191129%_ + (gx#stx-pair? _%tl191282191779%_)) + (let ((_%e191372191403%_ (let () (declare (not safe)) - (gx#stx-e _%tl191008191505%_)))) - (let ((_%tl191100191134%_ + (gx#stx-e _%tl191282191779%_)))) + (let ((_%tl191374191408%_ (let () (declare (not safe)) - (##cdr _%e191098191129%_))) - (_%hd191099191132%_ + (##cdr _%e191372191403%_))) + (_%hd191373191406%_ (let () (declare (not safe)) - (##car _%e191098191129%_)))) + (##car _%e191372191403%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191100191134%_)) - (let ((_%e191101191137%_ + (gx#stx-pair? _%tl191374191408%_)) + (let ((_%e191375191411%_ (let () (declare (not safe)) (gx#stx-e - _%tl191100191134%_)))) - (let ((_%tl191103191142%_ + _%tl191374191408%_)))) + (let ((_%tl191377191416%_ (let () (declare (not safe)) - (##cdr _%e191101191137%_))) - (_%hd191102191140%_ + (##cdr _%e191375191411%_))) + (_%hd191376191414%_ (let () (declare (not safe)) - (##car _%e191101191137%_)))) + (##car _%e191375191411%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191103191142%_)) - (_%__kont195505195506%_ - _%hd191102191140%_ - _%hd191099191132%_ - _%hd191007191503%_) + _%tl191377191416%_)) + (_%__kont195779195780%_ + _%hd191376191414%_ + _%hd191373191406%_ + _%hd191281191777%_) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (let () (declare (not safe)) - (_%g190998191108%_)))))) + (_%g191272191382%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191008191505%_)) - (let ((_%e191098191129%_ + (gx#stx-pair? _%tl191282191779%_)) + (let ((_%e191372191403%_ (let () (declare (not safe)) - (gx#stx-e _%tl191008191505%_)))) - (let ((_%tl191100191134%_ + (gx#stx-e _%tl191282191779%_)))) + (let ((_%tl191374191408%_ (let () (declare (not safe)) - (##cdr _%e191098191129%_))) - (_%hd191099191132%_ + (##cdr _%e191372191403%_))) + (_%hd191373191406%_ (let () (declare (not safe)) - (##car _%e191098191129%_)))) + (##car _%e191372191403%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191100191134%_)) - (let ((_%e191101191137%_ + (gx#stx-pair? _%tl191374191408%_)) + (let ((_%e191375191411%_ (let () (declare (not safe)) - (gx#stx-e _%tl191100191134%_)))) - (let ((_%tl191103191142%_ + (gx#stx-e _%tl191374191408%_)))) + (let ((_%tl191377191416%_ (let () (declare (not safe)) - (##cdr _%e191101191137%_))) - (_%hd191102191140%_ + (##cdr _%e191375191411%_))) + (_%hd191376191414%_ (let () (declare (not safe)) - (##car _%e191101191137%_)))) + (##car _%e191375191411%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191103191142%_)) - (_%__kont195505195506%_ - _%hd191102191140%_ - _%hd191099191132%_ - _%hd191007191503%_) + (gx#stx-null? _%tl191377191416%_)) + (_%__kont195779195780%_ + _%hd191376191414%_ + _%hd191373191406%_ + _%hd191281191777%_) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (let () (declare (not safe)) - (_%g190998191108%_))))) - (let () (declare (not safe)) (_%g190998191108%_)))))) + (_%g191272191382%_))))) + (let () (declare (not safe)) (_%g191272191382%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191008191505%_)) - (let ((_%e191098191129%_ + (gx#stx-pair? _%tl191282191779%_)) + (let ((_%e191372191403%_ (let () (declare (not safe)) - (gx#stx-e _%tl191008191505%_)))) - (let ((_%tl191100191134%_ + (gx#stx-e _%tl191282191779%_)))) + (let ((_%tl191374191408%_ (let () (declare (not safe)) - (##cdr _%e191098191129%_))) - (_%hd191099191132%_ + (##cdr _%e191372191403%_))) + (_%hd191373191406%_ (let () (declare (not safe)) - (##car _%e191098191129%_)))) + (##car _%e191372191403%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191100191134%_)) - (let ((_%e191101191137%_ + (gx#stx-pair? _%tl191374191408%_)) + (let ((_%e191375191411%_ (let () (declare (not safe)) - (gx#stx-e _%tl191100191134%_)))) - (let ((_%tl191103191142%_ + (gx#stx-e _%tl191374191408%_)))) + (let ((_%tl191377191416%_ (let () (declare (not safe)) - (##cdr _%e191101191137%_))) - (_%hd191102191140%_ + (##cdr _%e191375191411%_))) + (_%hd191376191414%_ (let () (declare (not safe)) - (##car _%e191101191137%_)))) + (##car _%e191375191411%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191103191142%_)) - (_%__kont195505195506%_ - _%hd191102191140%_ - _%hd191099191132%_ - _%hd191007191503%_) + (gx#stx-null? _%tl191377191416%_)) + (_%__kont195779195780%_ + _%hd191376191414%_ + _%hd191373191406%_ + _%hd191281191777%_) (let () (declare (not safe)) - (_%g190998191108%_))))) - (let () (declare (not safe)) (_%g190998191108%_))))) - (let () (declare (not safe)) (_%g190998191108%_)))) + (_%g191272191382%_))))) + (let () (declare (not safe)) (_%g191272191382%_))))) + (let () (declare (not safe)) (_%g191272191382%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191008191505%_)) - (let ((_%e191098191129%_ + _%tl191282191779%_)) + (let ((_%e191372191403%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl191008191505%_)))) - (let ((_%tl191100191134%_ - (let () (declare (not safe)) (##cdr _%e191098191129%_))) - (_%hd191099191132%_ + (gx#stx-e _%tl191282191779%_)))) + (let ((_%tl191374191408%_ + (let () (declare (not safe)) (##cdr _%e191372191403%_))) + (_%hd191373191406%_ (let () (declare (not safe)) - (##car _%e191098191129%_)))) + (##car _%e191372191403%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191100191134%_)) - (let ((_%e191101191137%_ + (gx#stx-pair? _%tl191374191408%_)) + (let ((_%e191375191411%_ (let () (declare (not safe)) - (gx#stx-e _%tl191100191134%_)))) - (let ((_%tl191103191142%_ + (gx#stx-e _%tl191374191408%_)))) + (let ((_%tl191377191416%_ (let () (declare (not safe)) - (##cdr _%e191101191137%_))) - (_%hd191102191140%_ + (##cdr _%e191375191411%_))) + (_%hd191376191414%_ (let () (declare (not safe)) - (##car _%e191101191137%_)))) + (##car _%e191375191411%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191103191142%_)) - (_%__kont195505195506%_ - _%hd191102191140%_ - _%hd191099191132%_ - _%hd191007191503%_) + (gx#stx-null? _%tl191377191416%_)) + (_%__kont195779195780%_ + _%hd191376191414%_ + _%hd191373191406%_ + _%hd191281191777%_) (let () (declare (not safe)) - (_%g190998191108%_))))) - (let () (declare (not safe)) (_%g190998191108%_))))) - (let () (declare (not safe)) (_%g190998191108%_))))) + (_%g191272191382%_))))) + (let () (declare (not safe)) (_%g191272191382%_))))) + (let () (declare (not safe)) (_%g191272191382%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191008191505%_)) - (let ((_%e191098191129%_ + _%tl191282191779%_)) + (let ((_%e191372191403%_ (let () (declare (not safe)) (gx#stx-e - _%tl191008191505%_)))) - (let ((_%tl191100191134%_ + _%tl191282191779%_)))) + (let ((_%tl191374191408%_ (let () (declare (not safe)) - (##cdr _%e191098191129%_))) - (_%hd191099191132%_ + (##cdr _%e191372191403%_))) + (_%hd191373191406%_ (let () (declare (not safe)) - (##car _%e191098191129%_)))) + (##car _%e191372191403%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191100191134%_)) - (let ((_%e191101191137%_ + _%tl191374191408%_)) + (let ((_%e191375191411%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl191100191134%_)))) - (let ((_%tl191103191142%_ - (let () (declare (not safe)) (##cdr _%e191101191137%_))) - (_%hd191102191140%_ + (gx#stx-e _%tl191374191408%_)))) + (let ((_%tl191377191416%_ + (let () (declare (not safe)) (##cdr _%e191375191411%_))) + (_%hd191376191414%_ (let () (declare (not safe)) - (##car _%e191101191137%_)))) + (##car _%e191375191411%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191103191142%_)) - (_%__kont195505195506%_ - _%hd191102191140%_ - _%hd191099191132%_ - _%hd191007191503%_) - (let () (declare (not safe)) (_%g190998191108%_))))) - (let () (declare (not safe)) (_%g190998191108%_))))) + (gx#stx-null? _%tl191377191416%_)) + (_%__kont195779195780%_ + _%hd191376191414%_ + _%hd191373191406%_ + _%hd191281191777%_) + (let () (declare (not safe)) (_%g191272191382%_))))) + (let () (declare (not safe)) (_%g191272191382%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g190998191108%_)))))) + (_%g191272191382%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191008191505%_)) - (let ((_%e191098191129%_ + (gx#stx-pair? _%tl191282191779%_)) + (let ((_%e191372191403%_ (let () (declare (not safe)) - (gx#stx-e _%tl191008191505%_)))) - (let ((_%tl191100191134%_ + (gx#stx-e _%tl191282191779%_)))) + (let ((_%tl191374191408%_ (let () (declare (not safe)) - (##cdr _%e191098191129%_))) - (_%hd191099191132%_ + (##cdr _%e191372191403%_))) + (_%hd191373191406%_ (let () (declare (not safe)) - (##car _%e191098191129%_)))) + (##car _%e191372191403%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191100191134%_)) - (let ((_%e191101191137%_ + _%tl191374191408%_)) + (let ((_%e191375191411%_ (let () (declare (not safe)) (gx#stx-e - _%tl191100191134%_)))) - (let ((_%tl191103191142%_ + _%tl191374191408%_)))) + (let ((_%tl191377191416%_ (let () (declare (not safe)) - (##cdr _%e191101191137%_))) - (_%hd191102191140%_ + (##cdr _%e191375191411%_))) + (_%hd191376191414%_ (let () (declare (not safe)) - (##car _%e191101191137%_)))) + (##car _%e191375191411%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191103191142%_)) - (_%__kont195505195506%_ - _%hd191102191140%_ - _%hd191099191132%_ - _%hd191007191503%_) + _%tl191377191416%_)) + (_%__kont195779195780%_ + _%hd191376191414%_ + _%hd191373191406%_ + _%hd191281191777%_) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (let () (declare (not safe)) - (_%g190998191108%_))))) + (_%g191272191382%_))))) (let () (declare (not safe)) - (_%g190998191108%_)))))) - (let () (declare (not safe)) (_%g190998191108%_))))) - (let () (declare (not safe)) (_%g190998191108%_)))))))))) + (_%g191272191382%_)))))) + (let () (declare (not safe)) (_%g191272191382%_))))) + (let () (declare (not safe)) (_%g191272191382%_)))))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-call~1.scm b/src/bootstrap/gerbil/compiler/optimize-call~1.scm index 87e958ccf..1022d36ea 100644 --- a/src/bootstrap/gerbil/compiler/optimize-call~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-call~1.scm @@ -1,55 +1,55 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g195860_| + (define |gxc[1]#_g196134_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g195862_| + (define |gxc[1]#_g196136_| (##structure gx#syntax-quote::t '::optimize-call::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g195864_| + (define |gxc[1]#_g196138_| (##structure gx#syntax-quote::t 'make-::optimize-call #f (gx#current-expander-context) '())) - (define |gxc[1]#_g195866_| + (define |gxc[1]#_g196140_| (##structure gx#syntax-quote::t '::optimize-call? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g195868_| + (define |gxc[1]#_g196142_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g195870_| + (define |gxc[1]#_g196144_| (##structure gx#syntax-quote::t '::check-return-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g195872_| + (define |gxc[1]#_g196146_| (##structure gx#syntax-quote::t 'make-::check-return-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g195874_| + (define |gxc[1]#_g196148_| (##structure gx#syntax-quote::t '::check-return-type? @@ -58,7 +58,7 @@ '())) (begin (define |gxc[:0:]#::optimize-call| - (let ((__obj195732 + (let ((__obj196006 (let () (declare (not safe)) (##structure @@ -87,68 +87,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj195732 + __obj196006 'gxc#::optimize-call::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj195732 '::optimize-call '2 '#f '#f)) + (##unchecked-structure-set! __obj196006 '::optimize-call '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj195732 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj196006 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj195732 '() '6 '#f '#f)) - (let ((__tmp195859 (cons |gxc[1]#_g195860_| '()))) + (##unchecked-structure-set! __obj196006 '() '6 '#f '#f)) + (let ((__tmp196133 (cons |gxc[1]#_g196134_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj195732 __tmp195859 '3 '#f '#f)) + (##unchecked-structure-set! __obj196006 __tmp196133 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj195732 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj196006 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj195732 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj196006 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj195732 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj196006 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj195732 '#f '11 '#f '#f)) - (let ((__tmp195861 |gxc[1]#_g195862_|)) + (##unchecked-structure-set! __obj196006 '#f '11 '#f '#f)) + (let ((__tmp196135 |gxc[1]#_g196136_|)) (declare (not safe)) - (##unchecked-structure-set! __obj195732 __tmp195861 '12 '#f '#f)) - (let ((__tmp195863 |gxc[1]#_g195864_|)) + (##unchecked-structure-set! __obj196006 __tmp196135 '12 '#f '#f)) + (let ((__tmp196137 |gxc[1]#_g196138_|)) (declare (not safe)) - (##unchecked-structure-set! __obj195732 __tmp195863 '13 '#f '#f)) - (let ((__tmp195865 |gxc[1]#_g195866_|)) + (##unchecked-structure-set! __obj196006 __tmp196137 '13 '#f '#f)) + (let ((__tmp196139 |gxc[1]#_g196140_|)) (declare (not safe)) - (##unchecked-structure-set! __obj195732 __tmp195865 '14 '#f '#f)) + (##unchecked-structure-set! __obj196006 __tmp196139 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj195732 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj196006 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj195732 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj196006 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj195732 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj196006 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj195732 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj196006 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj195732 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj196006 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj195732 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj196006 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj195732 '() '20 '#f '#f)) - __obj195732)) + (##unchecked-structure-set! __obj196006 '() '20 '#f '#f)) + __obj196006)) (define |gxc[:0:]#::check-return-type| - (let ((__obj195734 + (let ((__obj196008 (let () (declare (not safe)) (##structure @@ -177,7 +177,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj195734 + __obj196008 'gxc#::check-return-type::t '1 '#f @@ -185,60 +185,60 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj195734 + __obj196008 '::check-return-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj195734 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj196008 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj195734 '() '6 '#f '#f)) - (let ((__tmp195867 (cons |gxc[1]#_g195868_| '()))) + (##unchecked-structure-set! __obj196008 '() '6 '#f '#f)) + (let ((__tmp196141 (cons |gxc[1]#_g196142_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj195734 __tmp195867 '3 '#f '#f)) + (##unchecked-structure-set! __obj196008 __tmp196141 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj195734 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj196008 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj195734 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj196008 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj195734 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj196008 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj195734 '#f '11 '#f '#f)) - (let ((__tmp195869 |gxc[1]#_g195870_|)) + (##unchecked-structure-set! __obj196008 '#f '11 '#f '#f)) + (let ((__tmp196143 |gxc[1]#_g196144_|)) (declare (not safe)) - (##unchecked-structure-set! __obj195734 __tmp195869 '12 '#f '#f)) - (let ((__tmp195871 |gxc[1]#_g195872_|)) + (##unchecked-structure-set! __obj196008 __tmp196143 '12 '#f '#f)) + (let ((__tmp196145 |gxc[1]#_g196146_|)) (declare (not safe)) - (##unchecked-structure-set! __obj195734 __tmp195871 '13 '#f '#f)) - (let ((__tmp195873 |gxc[1]#_g195874_|)) + (##unchecked-structure-set! __obj196008 __tmp196145 '13 '#f '#f)) + (let ((__tmp196147 |gxc[1]#_g196148_|)) (declare (not safe)) - (##unchecked-structure-set! __obj195734 __tmp195873 '14 '#f '#f)) + (##unchecked-structure-set! __obj196008 __tmp196147 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj195734 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj196008 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj195734 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj196008 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj195734 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj196008 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj195734 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj196008 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj195734 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj196008 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj195734 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj196008 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj195734 '() '20 '#f '#f)) - __obj195734)))) + (##unchecked-structure-set! __obj196008 '() '20 '#f '#f)) + __obj196008)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-spec~0.scm b/src/bootstrap/gerbil/compiler/optimize-spec~0.scm index 43ca0f837..c1ff9dde3 100644 --- a/src/bootstrap/gerbil/compiler/optimize-spec~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-spec~0.scm @@ -1,29 +1,29 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-spec::timestamp 1713044319) + (define gerbil/compiler/optimize-spec::timestamp 1713454414) (begin (define gxc#::generate-method-specializers::t - (let ((__tmp176405 (list gxc#::identity::t)) - (__tmp176404 (cons (cons 'final: '#t) '()))) + (let ((__tmp176679 (list gxc#::identity::t)) + (__tmp176678 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-method-specializers::t '::generate-method-specializers - __tmp176405 + __tmp176679 '() - __tmp176404 + __tmp176678 '#f))) (define gxc#::generate-method-specializers? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-method-specializers::t))) (define gxc#make-::generate-method-specializers - (lambda _%$args175202%_ + (lambda _%$args175476%_ (apply make-instance gxc#::generate-method-specializers::t - _%$args175202%_))) + _%$args175476%_))) (define gxc#::generate-method-specializers-bind-methods! - (let ((__tmp176406 + (let ((__tmp176680 (lambda () (force gxc#::identity-bind-methods!) (let () @@ -54,46 +54,46 @@ (declare (not safe)) (__seal-class! gxc#::generate-method-specializers::t))))) (declare (not safe)) - (__make-promise __tmp176406))) + (__make-promise __tmp176680))) (define gxc#apply-generate-method-specializers - (lambda (_%stx175194%_) + (lambda (_%stx175468%_) (force gxc#::generate-method-specializers-bind-methods!) - (let* ((_%self175197%_ - (let ((__obj176397 + (let* ((_%self175471%_ + (let ((__obj176671 (let () (declare (not safe)) (##structure gxc#::generate-method-specializers::t)))) - __obj176397)) - (__tmp176407 + __obj176671)) + (__tmp176681 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self175197%_ _%stx175194%_))))) + (gxc#compile-e__1 _%self175471%_ _%stx175468%_))))) (declare (not safe)) (__call-with-parameters - __tmp176407 + __tmp176681 gxc#current-compile-method - _%self175197%_)))) + _%self175471%_)))) (define gxc#::extract-receiver::t - (let ((__tmp176409 (list gxc#::false::t)) - (__tmp176408 (cons (cons 'final: '#t) '()))) + (let ((__tmp176683 (list gxc#::false::t)) + (__tmp176682 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::extract-receiver::t '::extract-receiver - __tmp176409 + __tmp176683 '() - __tmp176408 + __tmp176682 '#f))) (define gxc#::extract-receiver? (let () (declare (not safe)) (__make-class-predicate gxc#::extract-receiver::t))) (define gxc#make-::extract-receiver - (lambda _%$args175191%_ - (apply make-instance gxc#::extract-receiver::t _%$args175191%_))) + (lambda _%$args175465%_ + (apply make-instance gxc#::extract-receiver::t _%$args175465%_))) (define gxc#::extract-receiver-bind-methods! - (let ((__tmp176410 + (let ((__tmp176684 (lambda () (force gxc#::false-bind-methods!) (let () @@ -136,44 +136,44 @@ (declare (not safe)) (__seal-class! gxc#::extract-receiver::t))))) (declare (not safe)) - (__make-promise __tmp176410))) + (__make-promise __tmp176684))) (define gxc#apply-extract-receiver - (lambda (_%stx175183%_) + (lambda (_%stx175457%_) (force gxc#::extract-receiver-bind-methods!) - (let* ((_%self175186%_ - (let ((__obj176399 + (let* ((_%self175460%_ + (let ((__obj176673 (let () (declare (not safe)) (##structure gxc#::extract-receiver::t)))) - __obj176399)) - (__tmp176411 + __obj176673)) + (__tmp176685 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self175186%_ _%stx175183%_))))) + (gxc#compile-e__1 _%self175460%_ _%stx175457%_))))) (declare (not safe)) (__call-with-parameters - __tmp176411 + __tmp176685 gxc#current-compile-method - _%self175186%_)))) + _%self175460%_)))) (define gxc#::collect-object-refs::t - (let ((__tmp176413 (list gxc#::void::t)) - (__tmp176412 (cons (cons 'final: '#t) '()))) + (let ((__tmp176687 (list gxc#::void::t)) + (__tmp176686 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-object-refs::t '::collect-object-refs - __tmp176413 + __tmp176687 '(receiver methods slots) - __tmp176412 + __tmp176686 '#f))) (define gxc#::collect-object-refs? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-object-refs::t))) (define gxc#make-::collect-object-refs - (lambda _%$args175180%_ - (apply make-instance gxc#::collect-object-refs::t _%$args175180%_))) + (lambda _%$args175454%_ + (apply make-instance gxc#::collect-object-refs::t _%$args175454%_))) (define gxc#::collect-object-refs-receiver (let () (declare (not safe)) @@ -235,7 +235,7 @@ gxc#::collect-object-refs::t 'slots))) (define gxc#::collect-object-refs-bind-methods! - (let ((__tmp176414 + (let ((__tmp176688 (lambda () (force gxc#::void-bind-methods!) (let () @@ -338,34 +338,34 @@ (declare (not safe)) (__seal-class! gxc#::collect-object-refs::t))))) (declare (not safe)) - (__make-promise __tmp176414))) + (__make-promise __tmp176688))) (define gxc#apply-collect-object-refs__% - (lambda (_%@@keywords175146%_ - _%receiver175141175147%_ - _%methods175142175149%_ - _%slots175143175151%_ - _%stx175153%_) - (let* ((_%receiver175156%_ - (if (eq? _%receiver175141175147%_ absent-value) + (lambda (_%@@keywords175420%_ + _%receiver175415175421%_ + _%methods175416175423%_ + _%slots175417175425%_ + _%stx175427%_) + (let* ((_%receiver175430%_ + (if (eq? _%receiver175415175421%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'receiver:)) - _%receiver175141175147%_)) - (_%methods175158%_ - (if (eq? _%methods175142175149%_ absent-value) + _%receiver175415175421%_)) + (_%methods175432%_ + (if (eq? _%methods175416175423%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'methods:)) - _%methods175142175149%_)) - (_%slots175160%_ - (if (eq? _%slots175143175151%_ absent-value) + _%methods175416175423%_)) + (_%slots175434%_ + (if (eq? _%slots175417175425%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'slots:)) - _%slots175143175151%_))) + _%slots175417175425%_))) (force gxc#::collect-object-refs-bind-methods!) - (let* ((_%self175162%_ - (let ((__obj176401 + (let* ((_%self175436%_ + (let ((__obj176675 (let () (declare (not safe)) (##structure @@ -376,85 +376,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176401 - _%receiver175156%_ + __obj176675 + _%receiver175430%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj176401 - _%methods175158%_ + __obj176675 + _%methods175432%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj176401 - _%slots175160%_ + __obj176675 + _%slots175434%_ '3 '#f '#f)) - __obj176401)) - (__tmp176415 + __obj176675)) + (__tmp176689 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self175162%_ _%stx175153%_))))) + (gxc#compile-e__1 _%self175436%_ _%stx175427%_))))) (declare (not safe)) (__call-with-parameters - __tmp176415 + __tmp176689 gxc#current-compile-method - _%self175162%_))))) + _%self175436%_))))) (define gxc#apply-collect-object-refs__@ - (lambda (_%@@keywords175169%_ . _%args175170%_) + (lambda (_%@@keywords175443%_ . _%args175444%_) (apply gxc#apply-collect-object-refs__% - _%@@keywords175169%_ + _%@@keywords175443%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords175169%_ + _%@@keywords175443%_ 'receiver: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords175169%_ + _%@@keywords175443%_ 'methods: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords175169%_ + _%@@keywords175443%_ 'slots: absent-value)) - _%args175170%_))) + _%args175444%_))) (define gxc#apply-collect-object-refs - (lambda _%args175144175176%_ + (lambda _%args175418175450%_ (apply keyword-dispatch '#(receiver: slots: methods:) gxc#apply-collect-object-refs__@ - _%args175144175176%_))) + _%args175418175450%_))) (define gxc#::subst-object-refs::t - (let ((__tmp176417 (list gxc#::basic-xform-expression::t)) - (__tmp176416 (cons (cons 'final: '#t) '()))) + (let ((__tmp176691 (list gxc#::basic-xform-expression::t)) + (__tmp176690 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::subst-object-refs::t '::subst-object-refs - __tmp176417 + __tmp176691 '(receiver klass methods slots) - __tmp176416 + __tmp176690 '#f))) (define gxc#::subst-object-refs? (let () (declare (not safe)) (__make-class-predicate gxc#::subst-object-refs::t))) (define gxc#make-::subst-object-refs - (lambda _%$args175137%_ - (apply make-instance gxc#::subst-object-refs::t _%$args175137%_))) + (lambda _%$args175411%_ + (apply make-instance gxc#::subst-object-refs::t _%$args175411%_))) (define gxc#::subst-object-refs-receiver (let () (declare (not safe)) @@ -536,7 +536,7 @@ gxc#::subst-object-refs::t 'slots))) (define gxc#::subst-object-refs-bind-methods! - (let ((__tmp176418 + (let ((__tmp176692 (lambda () (force gxc#::basic-xform-expression-bind-methods!) (let () @@ -555,41 +555,41 @@ (declare (not safe)) (__seal-class! gxc#::subst-object-refs::t))))) (declare (not safe)) - (__make-promise __tmp176418))) + (__make-promise __tmp176692))) (define gxc#apply-subst-object-refs__% - (lambda (_%@@keywords175099%_ - _%receiver175093175100%_ - _%klass175094175102%_ - _%methods175095175104%_ - _%slots175096175106%_ - _%stx175108%_) - (let* ((_%receiver175111%_ - (if (eq? _%receiver175093175100%_ absent-value) + (lambda (_%@@keywords175373%_ + _%receiver175367175374%_ + _%klass175368175376%_ + _%methods175369175378%_ + _%slots175370175380%_ + _%stx175382%_) + (let* ((_%receiver175385%_ + (if (eq? _%receiver175367175374%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'receiver:)) - _%receiver175093175100%_)) - (_%klass175113%_ - (if (eq? _%klass175094175102%_ absent-value) + _%receiver175367175374%_)) + (_%klass175387%_ + (if (eq? _%klass175368175376%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'klass:)) - _%klass175094175102%_)) - (_%methods175115%_ - (if (eq? _%methods175095175104%_ absent-value) + _%klass175368175376%_)) + (_%methods175389%_ + (if (eq? _%methods175369175378%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'methods:)) - _%methods175095175104%_)) - (_%slots175117%_ - (if (eq? _%slots175096175106%_ absent-value) + _%methods175369175378%_)) + (_%slots175391%_ + (if (eq? _%slots175370175380%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'slots:)) - _%slots175096175106%_))) + _%slots175370175380%_))) (force gxc#::subst-object-refs-bind-methods!) - (let* ((_%self175119%_ - (let ((__obj176403 + (let* ((_%self175393%_ + (let ((__obj176677 (let () (declare (not safe)) (##structure @@ -601,96 +601,96 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176403 - _%receiver175111%_ + __obj176677 + _%receiver175385%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj176403 - _%klass175113%_ + __obj176677 + _%klass175387%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj176403 - _%methods175115%_ + __obj176677 + _%methods175389%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj176403 - _%slots175117%_ + __obj176677 + _%slots175391%_ '4 '#f '#f)) - __obj176403)) - (__tmp176419 + __obj176677)) + (__tmp176693 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self175119%_ _%stx175108%_))))) + (gxc#compile-e__1 _%self175393%_ _%stx175382%_))))) (declare (not safe)) (__call-with-parameters - __tmp176419 + __tmp176693 gxc#current-compile-method - _%self175119%_))))) + _%self175393%_))))) (define gxc#apply-subst-object-refs__@ - (lambda (_%@@keywords175126%_ . _%args175127%_) + (lambda (_%@@keywords175400%_ . _%args175401%_) (apply gxc#apply-subst-object-refs__% - _%@@keywords175126%_ + _%@@keywords175400%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords175126%_ + _%@@keywords175400%_ 'receiver: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords175126%_ + _%@@keywords175400%_ 'klass: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords175126%_ + _%@@keywords175400%_ 'methods: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords175126%_ + _%@@keywords175400%_ 'slots: absent-value)) - _%args175127%_))) + _%args175401%_))) (define gxc#apply-subst-object-refs - (lambda _%args175097175133%_ + (lambda _%args175371175407%_ (apply keyword-dispatch '#(receiver: methods: slots: klass:) gxc#apply-subst-object-refs__@ - _%args175097175133%_))) + _%args175371175407%_))) (define gxc#generate-method-specializers-define-values% - (lambda (_%self172208%_ _%stx172209%_) - (letrec ((_%generate-method-bind172211%_ - (lambda (_%$klass175085%_ - _%$method-table175086%_ - _%id175087%_ - _%$id175088%_) - (let ((_%$tmp175090%_ - (let ((__tmp176420 + (lambda (_%self172482%_ _%stx172483%_) + (letrec ((_%generate-method-bind172485%_ + (lambda (_%$klass175359%_ + _%$method-table175360%_ + _%id175361%_ + _%$id175362%_) + (let ((_%$tmp175364%_ + (let ((__tmp176694 (let () (declare (not safe)) (##gensym '__method)))) (declare (not safe)) - (make-symbol__0 __tmp176420)))) - (cons (cons _%$id175088%_ '()) + (make-symbol__0 __tmp176694)))) + (cons (cons _%$id175362%_ '()) (cons (cons '%#call (cons (cons '%#ref (cons 'make-promise '())) @@ -698,14 +698,14 @@ (cons '() (cons (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%$tmp175090%_ '()) + (cons (cons (cons (cons _%$tmp175364%_ '()) (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons 'symbolic-table-ref '())) (cons (cons '%#ref - (cons _%$method-table175086%_ '())) + (cons _%$method-table175360%_ '())) (cons (cons '%#quote - (cons _%id175087%_ '())) + (cons _%id175361%_ '())) (cons (cons '%#quote (cons '#f '())) '()))))) @@ -715,15 +715,15 @@ (cons (cons '%#if (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$tmp175090%_ '())) - (cons (cons '%#ref (cons _%$tmp175090%_ '())) + (cons _%$tmp175364%_ '())) + (cons (cons '%#ref (cons _%$tmp175364%_ '())) (cons (cons '%#call (cons (cons '%#ref (cons 'error '())) (cons (cons '%#quote (cons '"Missing method" '())) (cons (cons '%#quote - (cons _%id175087%_ + (cons _%id175361%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())))) @@ -735,26 +735,26 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) - (_%generate-slot-bind172212%_ - (lambda (_%$klass175079%_ _%id175080%_ _%$id175081%_) - (let ((_%$tmp175083%_ - (let ((__tmp176421 + (_%generate-slot-bind172486%_ + (lambda (_%$klass175353%_ _%id175354%_ _%$id175355%_) + (let ((_%$tmp175357%_ + (let ((__tmp176695 (let () (declare (not safe)) (##gensym '__slot)))) (declare (not safe)) - (make-symbol__0 __tmp176421)))) - (cons (cons _%$id175081%_ '()) + (make-symbol__0 __tmp176695)))) + (cons (cons _%$id175355%_ '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%$tmp175083%_ + (cons (cons (cons (cons _%$tmp175357%_ '()) (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons 'class-slot-offset '())) (cons (cons '%#ref - (cons _%$klass175079%_ '())) + (cons _%$klass175353%_ '())) (cons (cons '%#quote - (cons _%id175080%_ '())) + (cons _%id175354%_ '())) '())))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -762,465 +762,465 @@ (cons (cons '%#if (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$tmp175083%_ '())) - (cons (cons '%#ref (cons _%$tmp175083%_ '())) + (cons _%$tmp175357%_ '())) + (cons (cons '%#ref (cons _%$tmp175357%_ '())) (cons (cons '%#call (cons (cons '%#ref (cons 'error '())) (cons (cons '%#quote (cons '"Unknown slot" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons (cons '%#quote (cons _%id175080%_ '())) '())))) + (cons (cons '%#quote (cons _%id175354%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) - (_%generate-specializer-impl172213%_ - (lambda (_%$klass175073%_ - _%$method-table175074%_ - _%methods-bind175075%_ - _%slots-bind175076%_ - _%specializer-impl175077%_) - (let ((__tmp176422 + (_%generate-specializer-impl172487%_ + (lambda (_%$klass175347%_ + _%$method-table175348%_ + _%methods-bind175349%_ + _%slots-bind175350%_ + _%specializer-impl175351%_) + (let ((__tmp176696 (cons '%#lambda - (cons (cons _%$klass175073%_ - (cons _%$method-table175074%_ + (cons (cons _%$klass175347%_ + (cons _%$method-table175348%_ '())) (cons (cons '%#let-values (cons (let () (declare (not safe)) (__foldr1 cons - _%slots-bind175076%_ - _%methods-bind175075%_)) - (cons _%specializer-impl175077%_ + _%slots-bind175350%_ + _%methods-bind175349%_)) + (cons _%specializer-impl175351%_ '()))) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp176422 _%stx172209%_)))) - (_%generate-specializer-def172214%_ - (lambda (_%id175069%_ - _%specializer-id175070%_ - _%specializer-impl175071%_) - (let ((__tmp176423 + (gxc#xform-wrap-source __tmp176696 _%stx172483%_)))) + (_%generate-specializer-def172488%_ + (lambda (_%id175343%_ + _%specializer-id175344%_ + _%specializer-impl175345%_) + (let ((__tmp176697 (cons '%#begin - (cons _%stx172209%_ - (cons (let ((__tmp176424 + (cons _%stx172483%_ + (cons (let ((__tmp176698 (cons '%#define-values - (cons (cons _%specializer-id175070%_ + (cons (cons _%specializer-id175344%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%specializer-impl175071%_ '()))))) + (cons _%specializer-impl175345%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp176424 - _%stx172209%_)) - (cons (let ((__tmp176425 + __tmp176698 + _%stx172483%_)) + (cons (let ((__tmp176699 (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'bind-specializer! '())) - (cons (cons '%#ref (cons _%id175069%_ '())) + (cons (cons '%#ref (cons _%id175343%_ '())) (cons (cons '%#ref - (cons _%specializer-id175070%_ + (cons _%specializer-id175344%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp176425 - _%stx172209%_)) + __tmp176699 + _%stx172483%_)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp176423 _%stx172209%_))))) - (let* ((_%__stx175291175292%_ _%stx172209%_) - (_%g172217172237%_ + (gxc#xform-wrap-source __tmp176697 _%stx172483%_))))) + (let* ((_%__stx175565175566%_ _%stx172483%_) + (_%g172491172511%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx175291175292%_))))) - (let ((_%__kont175293175294%_ - (lambda (_%L172281%_ _%L172282%_) - (let ((_%method-calls172301%_ + _%__stx175565175566%_))))) + (let ((_%__kont175567175568%_ + (lambda (_%L172555%_ _%L172556%_) + (let ((_%method-calls172575%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%slot-refs172302%_ + (_%slot-refs172576%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%empty172303%_ + (_%empty172577%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (letrec ((_%no-specializer?172305%_ + (letrec ((_%no-specializer?172579%_ (lambda () (if (fxzero? (let () (declare (not safe)) (__hash-length - _%method-calls172301%_))) + _%method-calls172575%_))) (fxzero? (let () (declare (not safe)) (__hash-length - _%slot-refs172302%_))) + _%slot-refs172576%_))) '#f)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _%L172281%_)) - (let* ((_%__stx175205175206%_ _%L172281%_) - (_%g172693172711%_ + (gxc#lambda-expr? _%L172555%_)) + (let* ((_%__stx175479175480%_ _%L172555%_) + (_%g172967172985%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx175205175206%_))))) - (let ((_%__kont175207175208%_ - (lambda (_%L172747%_ - _%L172748%_ - _%L172749%_) - (let ((_%receiver172769%_ - (let ((_%$e172766%_ + _%__stx175479175480%_))))) + (let ((_%__kont175481175482%_ + (lambda (_%L173021%_ + _%L173022%_ + _%L173023%_) + (let ((_%receiver173043%_ + (let ((_%$e173040%_ (gxc#apply-extract-receiver (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L172747%_)))) + _%L173021%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e172766%_ - _%$e172766%_ - _%L172749%_)))) + (if _%$e173040%_ + _%$e173040%_ + _%L173023%_)))) (for-each - (lambda (_%g172770172772%_) + (lambda (_%g173044173046%_) (gxc#apply-collect-object-refs__% '#f - _%receiver172769%_ - _%method-calls172301%_ - _%slot-refs172302%_ - _%g172770172772%_)) - _%L172747%_) - (if (_%no-specializer?172305%_) - _%stx172209%_ - (let* ((_%specializer-id172781%_ - (let* ((_%id172775%_ - (let ((__tmp176426 + _%receiver173043%_ + _%method-calls172575%_ + _%slot-refs172576%_ + _%g173044173046%_)) + _%L173021%_) + (if (_%no-specializer?172579%_) + _%stx172483%_ + (let* ((_%specializer-id173055%_ + (let* ((_%id173049%_ + (let ((__tmp176700 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%L172282%_)))) + (gx#stx-e _%L172556%_)))) (declare (not safe)) - (make-symbol__1 __tmp176426 '"::specialize"))) - (_%specializer-id172778%_ - (let ((__tmp176427 + (make-symbol__1 __tmp176700 '"::specialize"))) + (_%specializer-id173052%_ + (let ((__tmp176701 (let () (declare (not safe)) - (gx#stx-source _%stx172209%_)))) + (gx#stx-source _%stx172483%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%id172775%_ __tmp176427)))) + (gx#core-quote-syntax__1 _%id173049%_ __tmp176701)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id172778%_)) - _%specializer-id172778%_)) + (gx#core-bind-runtime!__0 _%specializer-id173052%_)) + _%specializer-id173052%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$klass172783%_ - (let ((__tmp176428 + (_%$klass173057%_ + (let ((__tmp176702 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp176428))) + (make-symbol__0 __tmp176702))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$method-table172785%_ - (let ((__tmp176429 + (_%$method-table173059%_ + (let ((__tmp176703 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp176429))) + (make-symbol__0 __tmp176703))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%methods172787%_ + (_%methods173061%_ (let () (declare (not safe)) (__hash-keys - _%method-calls172301%_))) - (_%$methods172791%_ - (map (lambda (_%id172789%_) - (let ((__tmp176430 + _%method-calls172575%_))) + (_%$methods173065%_ + (map (lambda (_%id173063%_) + (let ((__tmp176704 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id172789%_))) + (gensym _%id173063%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp176430))) - _%methods172787%_)) + (make-symbol__1 '"__" __tmp176704))) + _%methods173061%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_172800%_ + (_%_173074%_ (for-each - (lambda (_%g172792172795%_ - _%g172793172797%_) + (lambda (_%g173066173069%_ + _%g173067173071%_) (let () (declare (not safe)) (__hash-put! - _%method-calls172301%_ - _%g172792172795%_ - _%g172793172797%_))) - _%methods172787%_ - _%$methods172791%_)) - (_%methods-bind172810%_ - (map (lambda (_%g172802172805%_ + _%method-calls172575%_ + _%g173066173069%_ + _%g173067173071%_))) + _%methods173061%_ + _%$methods173065%_)) + (_%methods-bind173084%_ + (map (lambda (_%g173076173079%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g172803172807%_) - (_%generate-method-bind172211%_ - _%$klass172783%_ - _%$method-table172785%_ - _%g172802172805%_ - _%g172803172807%_)) - _%methods172787%_ - _%$methods172791%_)) + _%g173077173081%_) + (_%generate-method-bind172485%_ + _%$klass173057%_ + _%$method-table173059%_ + _%g173076173079%_ + _%g173077173081%_)) + _%methods173061%_ + _%$methods173065%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%slots172812%_ + (_%slots173086%_ (let () (declare (not safe)) (__hash-keys - _%slot-refs172302%_))) - (_%$slots172816%_ - (map (lambda (_%id172814%_) - (let ((__tmp176431 + _%slot-refs172576%_))) + (_%$slots173090%_ + (map (lambda (_%id173088%_) + (let ((__tmp176705 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id172814%_))) + (gensym _%id173088%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp176431))) - _%slots172812%_)) + (make-symbol__1 '"__" __tmp176705))) + _%slots173086%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_172825%_ + (_%_173099%_ (for-each - (lambda (_%g172817172820%_ - _%g172818172822%_) + (lambda (_%g173091173094%_ + _%g173092173096%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs172302%_ - _%g172817172820%_ - _%g172818172822%_))) - _%slots172812%_ - _%$slots172816%_)) - (_%slots-bind172834%_ - (map (lambda (_%g172826172829%_ + _%slot-refs172576%_ + _%g173091173094%_ + _%g173092173096%_))) + _%slots173086%_ + _%$slots173090%_)) + (_%slots-bind173108%_ + (map (lambda (_%g173100173103%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g172827172831%_) - (_%generate-slot-bind172212%_ - _%$klass172783%_ - _%g172826172829%_ - _%g172827172831%_)) - _%slots172812%_ - _%$slots172816%_)) + _%g173101173105%_) + (_%generate-slot-bind172486%_ + _%$klass173057%_ + _%g173100173103%_ + _%g173101173105%_)) + _%slots173086%_ + _%$slots173090%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-body172840%_ - (map (lambda (_%g172835172837%_) + (_%specializer-body173114%_ + (map (lambda (_%g173109173111%_) (gxc#apply-subst-object-refs__% '#f - _%receiver172769%_ - _%$klass172783%_ - _%method-calls172301%_ - _%slot-refs172302%_ - _%g172835172837%_)) - _%L172747%_)) - (_%specializer-impl172842%_ - (let ((__tmp176432 + _%receiver173043%_ + _%$klass173057%_ + _%method-calls172575%_ + _%slot-refs172576%_ + _%g173109173111%_)) + _%L173021%_)) + (_%specializer-impl173116%_ + (let ((__tmp176706 (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L172749%_ _%L172748%_) - _%specializer-body172840%_)))) + (cons (cons _%L173023%_ _%L173022%_) + _%specializer-body173114%_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp176432 _%stx172209%_))) + (gxc#xform-wrap-source __tmp176706 _%stx172483%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-impl172844%_ - (_%generate-specializer-impl172213%_ - _%$klass172783%_ - _%$method-table172785%_ - _%methods-bind172810%_ - _%slots-bind172834%_ - _%specializer-impl172842%_))) - (let ((__tmp176434 + (_%specializer-impl173118%_ + (_%generate-specializer-impl172487%_ + _%$klass173057%_ + _%$method-table173059%_ + _%methods-bind173084%_ + _%slots-bind173108%_ + _%specializer-impl173116%_))) + (let ((__tmp176708 (let () (declare (not safe)) (gx#stx-e - _%L172282%_))) - (__tmp176433 + _%L172556%_))) + (__tmp176707 (let () (declare (not safe)) (gx#stx-e - _%specializer-id172781%_)))) + _%specializer-id173055%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp176434 + __tmp176708 '" => " - __tmp176433)) - (_%generate-specializer-def172214%_ - _%L172282%_ - _%specializer-id172781%_ - _%specializer-impl172844%_)))))) - (_%__kont175209175210%_ - (lambda () _%stx172209%_))) + __tmp176707)) + (_%generate-specializer-def172488%_ + _%L172556%_ + _%specializer-id173055%_ + _%specializer-impl173118%_)))))) + (_%__kont175483175484%_ + (lambda () _%stx172483%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx175205175206%_)) - (let ((_%e172698172723%_ + (gx#stx-pair? _%__stx175479175480%_)) + (let ((_%e172972172997%_ (let () (declare (not safe)) (gx#stx-e - _%__stx175205175206%_)))) - (let ((_%tl172700172728%_ + _%__stx175479175480%_)))) + (let ((_%tl172974173002%_ (let () (declare (not safe)) - (##cdr _%e172698172723%_))) - (_%hd172699172726%_ + (##cdr _%e172972172997%_))) + (_%hd172973173000%_ (let () (declare (not safe)) - (##car _%e172698172723%_)))) + (##car _%e172972172997%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172700172728%_)) - (let ((_%e172701172731%_ + _%tl172974173002%_)) + (let ((_%e172975173005%_ (let () (declare (not safe)) (gx#stx-e - _%tl172700172728%_)))) - (let ((_%tl172703172736%_ + _%tl172974173002%_)))) + (let ((_%tl172977173010%_ (let () (declare (not safe)) - (##cdr _%e172701172731%_))) - (_%hd172702172734%_ + (##cdr _%e172975173005%_))) + (_%hd172976173008%_ (let () (declare (not safe)) - (##car _%e172701172731%_)))) + (##car _%e172975173005%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd172702172734%_)) - (let ((_%e172704172739%_ + _%hd172976173008%_)) + (let ((_%e172978173013%_ (let () (declare (not safe)) (gx#stx-e - _%hd172702172734%_)))) - (let ((_%tl172706172744%_ + _%hd172976173008%_)))) + (let ((_%tl172980173018%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e172704172739%_))) - (_%hd172705172742%_ - (let () (declare (not safe)) (##car _%e172704172739%_)))) - (_%__kont175207175208%_ - _%tl172703172736%_ - _%tl172706172744%_ - _%hd172705172742%_))) + (##cdr _%e172978173013%_))) + (_%hd172979173016%_ + (let () (declare (not safe)) (##car _%e172978173013%_)))) + (_%__kont175481175482%_ + _%tl172977173010%_ + _%tl172980173018%_ + _%hd172979173016%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont175209175210%_)))) - (_%__kont175209175210%_)))) - (_%__kont175209175210%_)))) + (_%__kont175483175484%_)))) + (_%__kont175483175484%_)))) + (_%__kont175483175484%_)))) (if (let () (declare (not safe)) - (gxc#case-lambda-expr? _%L172281%_)) - (let* ((_%g172851172870%_ - (lambda (_%g172852172867%_) + (gxc#case-lambda-expr? _%L172555%_)) + (let* ((_%g173125173144%_ + (lambda (_%g173126173141%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g172852172867%_)))) - (_%g172850173168%_ - (lambda (_%g172852172873%_) + _%g173126173141%_)))) + (_%g173124173442%_ + (lambda (_%g173126173147%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g172852172873%_)) - (let ((_%e172854172875%_ + _%g173126173147%_)) + (let ((_%e173128173149%_ (let () (declare (not safe)) (gx#stx-e - _%g172852172873%_)))) - (let ((_%hd172855172878%_ + _%g173126173147%_)))) + (let ((_%hd173129173152%_ (let () (declare (not safe)) - (##car _%e172854172875%_))) - (_%tl172856172880%_ + (##car _%e173128173149%_))) + (_%tl173130173154%_ (let () (declare (not safe)) - (##cdr _%e172854172875%_)))) + (##cdr _%e173128173149%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl172856172880%_)) - (let ((_g176435_ + _%tl173130173154%_)) + (let ((_g176709_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl172856172880%_ '0)))) + (gx#syntax-split-splice _%tl173130173154%_ '0)))) (begin - (let ((_g176436_ + (let ((_g176710_ (let () (declare (not safe)) - (if (##values? _g176435_) - (##vector-length _g176435_) + (if (##values? _g176709_) + (##vector-length _g176709_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g176436_ 2))) - (error "Context expects 2 values" _g176436_))) - (let ((_%target172857172883%_ + (##fx= _g176710_ 2))) + (error "Context expects 2 values" _g176710_))) + (let ((_%target173131173157%_ (let () (declare (not safe)) - (##vector-ref _g176435_ 0))) - (_%tl172859172885%_ + (##vector-ref _g176709_ 0))) + (_%tl173133173159%_ (let () (declare (not safe)) - (##vector-ref _g176435_ 1)))) + (##vector-ref _g176709_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172859172885%_)) - (letrec ((_%loop172860172888%_ - (lambda (_%hd172858172891%_ - _%clause172864172893%_) + (gx#stx-null? _%tl173133173159%_)) + (letrec ((_%loop173134173162%_ + (lambda (_%hd173132173165%_ + _%clause173138173167%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172858172891%_)) - (let ((_%e172861172896%_ + (gx#stx-pair? _%hd173132173165%_)) + (let ((_%e173135173170%_ (let () (declare (not safe)) (gx#stx-e - _%hd172858172891%_)))) - (let ((_%lp-hd172862172899%_ + _%hd173132173165%_)))) + (let ((_%lp-hd173136173173%_ (let () (declare (not safe)) - (##car _%e172861172896%_))) - (_%lp-tl172863172901%_ + (##car _%e173135173170%_))) + (_%lp-tl173137173175%_ (let () (declare (not safe)) - (##cdr _%e172861172896%_)))) - (_%loop172860172888%_ - _%lp-tl172863172901%_ - (cons _%lp-hd172862172899%_ - _%clause172864172893%_)))) - (let ((_%clause172865172904%_ - (reverse _%clause172864172893%_))) - ((lambda (_%L172907%_) + (##cdr _%e173135173170%_)))) + (_%loop173134173162%_ + _%lp-tl173137173175%_ + (cons _%lp-hd173136173173%_ + _%clause173138173167%_)))) + (let ((_%clause173139173178%_ + (reverse _%clause173138173167%_))) + ((lambda (_%L173181%_) (for-each - (lambda (_%clause172921%_) - (let* ((_%__stx175231175232%_ - _%clause172921%_) - (_%g172924172939%_ + (lambda (_%clause173195%_) + (let* ((_%__stx175505175506%_ + _%clause173195%_) + (_%g173198173213%_ (lambda () (let () (declare @@ -1228,190 +1228,190 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx175231175232%_))))) - (let ((_%__kont175233175234%_ - (lambda (_%L172967%_ + _%__stx175505175506%_))))) + (let ((_%__kont175507175508%_ + (lambda (_%L173241%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L172968%_ - _%L172969%_) - (let ((_%receiver172988%_ - (let ((_%$e172985%_ + _%L173242%_ + _%L173243%_) + (let ((_%receiver173262%_ + (let ((_%$e173259%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L172967%_)))) - (if _%$e172985%_ _%$e172985%_ _%L172969%_)))) + _%L173241%_)))) + (if _%$e173259%_ _%$e173259%_ _%L173243%_)))) (for-each - (lambda (_%g172989172991%_) + (lambda (_%g173263173265%_) (gxc#apply-collect-object-refs__% '#f - _%receiver172988%_ - _%method-calls172301%_ - _%slot-refs172302%_ - _%g172989172991%_)) - _%L172967%_)))) - (_%__kont175235175236%_ (lambda () '#!void))) + _%receiver173262%_ + _%method-calls172575%_ + _%slot-refs172576%_ + _%g173263173265%_)) + _%L173241%_)))) + (_%__kont175509175510%_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx175231175232%_)) - (let ((_%e172929172951%_ + _%__stx175505175506%_)) + (let ((_%e173203173225%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%__stx175231175232%_)))) - (let ((_%tl172931172956%_ + (gx#stx-e _%__stx175505175506%_)))) + (let ((_%tl173205173230%_ (let () (declare (not safe)) - (##cdr _%e172929172951%_))) - (_%hd172930172954%_ + (##cdr _%e173203173225%_))) + (_%hd173204173228%_ (let () (declare (not safe)) - (##car _%e172929172951%_)))) + (##car _%e173203173225%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172930172954%_)) - (let ((_%e172932172959%_ + (gx#stx-pair? _%hd173204173228%_)) + (let ((_%e173206173233%_ (let () (declare (not safe)) - (gx#stx-e _%hd172930172954%_)))) - (let ((_%tl172934172964%_ + (gx#stx-e _%hd173204173228%_)))) + (let ((_%tl173208173238%_ (let () (declare (not safe)) - (##cdr _%e172932172959%_))) - (_%hd172933172962%_ + (##cdr _%e173206173233%_))) + (_%hd173207173236%_ (let () (declare (not safe)) - (##car _%e172932172959%_)))) - (_%__kont175233175234%_ - _%tl172931172956%_ - _%tl172934172964%_ - _%hd172933172962%_))) - (_%__kont175235175236%_)))) - (_%__kont175235175236%_))))) + (##car _%e173206173233%_)))) + (_%__kont175507175508%_ + _%tl173205173230%_ + _%tl173208173238%_ + _%hd173207173236%_))) + (_%__kont175509175510%_)))) + (_%__kont175509175510%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp176437 - (lambda (_%g172996172999%_ - _%g172997173001%_) - (cons _%g172996172999%_ - _%g172997173001%_)))) + (let ((__tmp176711 + (lambda (_%g173270173273%_ + _%g173271173275%_) + (cons _%g173270173273%_ + _%g173271173275%_)))) (declare (not safe)) (__foldr1 - __tmp176437 + __tmp176711 '() - _%L172907%_))) - (if (_%no-specializer?172305%_) - _%stx172209%_ - (let* ((_%specializer-id173010%_ - (let* ((_%id173004%_ + _%L173181%_))) + (if (_%no-specializer?172579%_) + _%stx172483%_ + (let* ((_%specializer-id173284%_ + (let* ((_%id173278%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp176438 + (let ((__tmp176712 (let () (declare (not safe)) - (gx#stx-e _%L172282%_)))) + (gx#stx-e _%L172556%_)))) (declare (not safe)) - (make-symbol__1 __tmp176438 '"::specialize"))) - (_%specializer-id173007%_ - (let ((__tmp176439 + (make-symbol__1 __tmp176712 '"::specialize"))) + (_%specializer-id173281%_ + (let ((__tmp176713 (let () (declare (not safe)) - (gx#stx-source _%stx172209%_)))) + (gx#stx-source _%stx172483%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id173004%_ - __tmp176439)))) + _%id173278%_ + __tmp176713)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id173007%_)) - _%specializer-id173007%_)) - (_%$klass173012%_ - (let ((__tmp176440 + (gx#core-bind-runtime!__0 _%specializer-id173281%_)) + _%specializer-id173281%_)) + (_%$klass173286%_ + (let ((__tmp176714 (let () (declare (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp176440))) - (_%$method-table173014%_ - (let ((__tmp176441 + (make-symbol__0 __tmp176714))) + (_%$method-table173288%_ + (let ((__tmp176715 (let () (declare (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp176441))) - (_%methods173016%_ + (make-symbol__0 __tmp176715))) + (_%methods173290%_ (let () (declare (not safe)) - (__hash-keys _%method-calls172301%_))) - (_%$methods173020%_ - (map (lambda (_%id173018%_) - (let ((__tmp176442 (gensym _%id173018%_))) + (__hash-keys _%method-calls172575%_))) + (_%$methods173294%_ + (map (lambda (_%id173292%_) + (let ((__tmp176716 (gensym _%id173292%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp176442))) - _%methods173016%_)) - (_%_173029%_ + (make-symbol__1 '"__" __tmp176716))) + _%methods173290%_)) + (_%_173303%_ (for-each - (lambda (_%g173021173024%_ _%g173022173026%_) + (lambda (_%g173295173298%_ _%g173296173300%_) (let () (declare (not safe)) (__hash-put! - _%method-calls172301%_ - _%g173021173024%_ - _%g173022173026%_))) - _%methods173016%_ - _%$methods173020%_)) - (_%methods-bind173039%_ - (map (lambda (_%g173031173034%_ _%g173032173036%_) - (_%generate-method-bind172211%_ - _%$klass173012%_ - _%$method-table173014%_ - _%g173031173034%_ - _%g173032173036%_)) - _%methods173016%_ - _%$methods173020%_)) - (_%slots173041%_ + _%method-calls172575%_ + _%g173295173298%_ + _%g173296173300%_))) + _%methods173290%_ + _%$methods173294%_)) + (_%methods-bind173313%_ + (map (lambda (_%g173305173308%_ _%g173306173310%_) + (_%generate-method-bind172485%_ + _%$klass173286%_ + _%$method-table173288%_ + _%g173305173308%_ + _%g173306173310%_)) + _%methods173290%_ + _%$methods173294%_)) + (_%slots173315%_ (let () (declare (not safe)) - (__hash-keys _%slot-refs172302%_))) - (_%$slots173045%_ - (map (lambda (_%id173043%_) - (let ((__tmp176443 (gensym _%id173043%_))) + (__hash-keys _%slot-refs172576%_))) + (_%$slots173319%_ + (map (lambda (_%id173317%_) + (let ((__tmp176717 (gensym _%id173317%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp176443))) - _%slots173041%_)) - (_%_173054%_ + (make-symbol__1 '"__" __tmp176717))) + _%slots173315%_)) + (_%_173328%_ (for-each - (lambda (_%g173046173049%_ _%g173047173051%_) + (lambda (_%g173320173323%_ _%g173321173325%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs172302%_ - _%g173046173049%_ - _%g173047173051%_))) - _%slots173041%_ - _%$slots173045%_)) - (_%slots-bind173063%_ - (map (lambda (_%g173055173058%_ _%g173056173060%_) - (_%generate-slot-bind172212%_ - _%$klass173012%_ - _%g173055173058%_ - _%g173056173060%_)) - _%slots173041%_ - _%$slots173045%_)) - (_%specializer-clauses173161%_ - (map (lambda (_%clause173065%_) - (let* ((_%__stx175251175252%_ _%clause173065%_) - (_%g173068173083%_ + _%slot-refs172576%_ + _%g173320173323%_ + _%g173321173325%_))) + _%slots173315%_ + _%$slots173319%_)) + (_%slots-bind173337%_ + (map (lambda (_%g173329173332%_ _%g173330173334%_) + (_%generate-slot-bind172486%_ + _%$klass173286%_ + _%g173329173332%_ + _%g173330173334%_)) + _%slots173315%_ + _%$slots173319%_)) + (_%specializer-clauses173435%_ + (map (lambda (_%clause173339%_) + (let* ((_%__stx175525175526%_ _%clause173339%_) + (_%g173342173357%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx175251175252%_))))) - (let ((_%__kont175253175254%_ - (lambda (_%L173111%_ _%L173112%_ _%L173113%_) - (let* ((_%receiver173142%_ - (let ((_%$e173139%_ + _%__stx175525175526%_))))) + (let ((_%__kont175527175528%_ + (lambda (_%L173385%_ _%L173386%_ _%L173387%_) + (let* ((_%receiver173416%_ + (let ((_%$e173413%_ (gxc#apply-extract-receiver (cons (let () (declare @@ -1419,317 +1419,317 @@ (gx#datum->syntax__0 '#f '%#begin)) - _%L173111%_)))) - (if _%$e173139%_ - _%$e173139%_ - _%L173113%_))) - (_%body173148%_ - (map (lambda (_%g173143173145%_) + _%L173385%_)))) + (if _%$e173413%_ + _%$e173413%_ + _%L173387%_))) + (_%body173422%_ + (map (lambda (_%g173417173419%_) (gxc#apply-subst-object-refs__% '#f - _%receiver173142%_ - _%$klass173012%_ - _%method-calls172301%_ - _%slot-refs172302%_ - _%g173143173145%_)) - _%L173111%_))) - (cons (cons _%L173113%_ _%L173112%_) - _%body173148%_)))) - (_%__kont175255175256%_ - (lambda () _%clause173065%_))) + _%receiver173416%_ + _%$klass173286%_ + _%method-calls172575%_ + _%slot-refs172576%_ + _%g173417173419%_)) + _%L173385%_))) + (cons (cons _%L173387%_ _%L173386%_) + _%body173422%_)))) + (_%__kont175529175530%_ + (lambda () _%clause173339%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx175251175252%_)) - (let ((_%e173073173095%_ + (gx#stx-pair? _%__stx175525175526%_)) + (let ((_%e173347173369%_ (let () (declare (not safe)) - (gx#stx-e _%__stx175251175252%_)))) - (let ((_%tl173075173100%_ + (gx#stx-e _%__stx175525175526%_)))) + (let ((_%tl173349173374%_ (let () (declare (not safe)) - (##cdr _%e173073173095%_))) - (_%hd173074173098%_ + (##cdr _%e173347173369%_))) + (_%hd173348173372%_ (let () (declare (not safe)) - (##car _%e173073173095%_)))) + (##car _%e173347173369%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173074173098%_)) - (let ((_%e173076173103%_ + (gx#stx-pair? _%hd173348173372%_)) + (let ((_%e173350173377%_ (let () (declare (not safe)) (gx#stx-e - _%hd173074173098%_)))) - (let ((_%tl173078173108%_ + _%hd173348173372%_)))) + (let ((_%tl173352173382%_ (let () (declare (not safe)) - (##cdr _%e173076173103%_))) - (_%hd173077173106%_ + (##cdr _%e173350173377%_))) + (_%hd173351173380%_ (let () (declare (not safe)) - (##car _%e173076173103%_)))) - (_%__kont175253175254%_ - _%tl173075173100%_ - _%tl173078173108%_ - _%hd173077173106%_))) - (_%__kont175255175256%_)))) - (_%__kont175255175256%_))))) - (let ((__tmp176444 - (lambda (_%g173153173156%_ _%g173154173158%_) - (cons _%g173153173156%_ _%g173154173158%_)))) + (##car _%e173350173377%_)))) + (_%__kont175527175528%_ + _%tl173349173374%_ + _%tl173352173382%_ + _%hd173351173380%_))) + (_%__kont175529175530%_)))) + (_%__kont175529175530%_))))) + (let ((__tmp176718 + (lambda (_%g173427173430%_ _%g173428173432%_) + (cons _%g173427173430%_ _%g173428173432%_)))) (declare (not safe)) - (__foldr1 __tmp176444 '() _%L172907%_)))) - (_%specializer-impl173163%_ - (let ((__tmp176445 - (cons '%#case-lambda _%specializer-clauses173161%_))) + (__foldr1 __tmp176718 '() _%L173181%_)))) + (_%specializer-impl173437%_ + (let ((__tmp176719 + (cons '%#case-lambda _%specializer-clauses173435%_))) (declare (not safe)) - (gxc#xform-wrap-source __tmp176445 _%stx172209%_))) - (_%specializer-impl173165%_ - (_%generate-specializer-impl172213%_ - _%$klass173012%_ - _%$method-table173014%_ - _%methods-bind173039%_ - _%slots-bind173063%_ - _%specializer-impl173163%_))) + (gxc#xform-wrap-source __tmp176719 _%stx172483%_))) + (_%specializer-impl173439%_ + (_%generate-specializer-impl172487%_ + _%$klass173286%_ + _%$method-table173288%_ + _%methods-bind173313%_ + _%slots-bind173337%_ + _%specializer-impl173437%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp176447 + (let ((__tmp176721 (let () (declare (not safe)) (gx#stx-e - _%L172282%_))) - (__tmp176446 + _%L172556%_))) + (__tmp176720 (let () (declare (not safe)) (gx#stx-e - _%specializer-id173010%_)))) + _%specializer-id173284%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp176447 + __tmp176721 '" => " - __tmp176446)) - (_%generate-specializer-def172214%_ - _%L172282%_ - _%specializer-id173010%_ - _%specializer-impl173165%_)))) - _%clause172865172904%_)))))) - (_%loop172860172888%_ _%target172857172883%_ '())) - (_%g172851172870%_ _%g172852172873%_))))) - (_%g172851172870%_ _%g172852172873%_)))) + __tmp176720)) + (_%generate-specializer-def172488%_ + _%L172556%_ + _%specializer-id173284%_ + _%specializer-impl173439%_)))) + _%clause173139173178%_)))))) + (_%loop173134173162%_ _%target173131173157%_ '())) + (_%g173125173144%_ _%g173126173147%_))))) + (_%g173125173144%_ _%g173126173147%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g172851172870%_ - _%g172852172873%_))))) - (_%g172850173168%_ _%L172281%_)) + (_%g173125173144%_ + _%g173126173147%_))))) + (_%g173124173442%_ _%L172555%_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _%L172281%_)) - (let* ((_%g173172173202%_ - (lambda (_%g173173173199%_) + (gxc#opt-lambda-expr? _%L172555%_)) + (let* ((_%g173446173476%_ + (lambda (_%g173447173473%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173173173199%_)))) - (_%g173171173833%_ - (lambda (_%g173173173205%_) + _%g173447173473%_)))) + (_%g173445174107%_ + (lambda (_%g173447173479%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g173173173205%_)) - (let ((_%e173177173207%_ + _%g173447173479%_)) + (let ((_%e173451173481%_ (let () (declare (not safe)) (gx#stx-e - _%g173173173205%_)))) - (let ((_%hd173178173210%_ + _%g173447173479%_)))) + (let ((_%hd173452173484%_ (let () (declare (not safe)) - (##car _%e173177173207%_))) - (_%tl173179173212%_ + (##car _%e173451173481%_))) + (_%tl173453173486%_ (let () (declare (not safe)) - (##cdr _%e173177173207%_)))) + (##cdr _%e173451173481%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173179173212%_)) - (let ((_%e173180173215%_ + _%tl173453173486%_)) + (let ((_%e173454173489%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl173179173212%_)))) - (let ((_%hd173181173218%_ + (gx#stx-e _%tl173453173486%_)))) + (let ((_%hd173455173492%_ (let () (declare (not safe)) - (##car _%e173180173215%_))) - (_%tl173182173220%_ + (##car _%e173454173489%_))) + (_%tl173456173494%_ (let () (declare (not safe)) - (##cdr _%e173180173215%_)))) + (##cdr _%e173454173489%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173181173218%_)) - (let ((_%e173183173223%_ + (gx#stx-pair? _%hd173455173492%_)) + (let ((_%e173457173497%_ (let () (declare (not safe)) - (gx#stx-e _%hd173181173218%_)))) - (let ((_%hd173184173226%_ + (gx#stx-e _%hd173455173492%_)))) + (let ((_%hd173458173500%_ (let () (declare (not safe)) - (##car _%e173183173223%_))) - (_%tl173185173228%_ + (##car _%e173457173497%_))) + (_%tl173459173502%_ (let () (declare (not safe)) - (##cdr _%e173183173223%_)))) + (##cdr _%e173457173497%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173184173226%_)) - (let ((_%e173186173231%_ + (gx#stx-pair? _%hd173458173500%_)) + (let ((_%e173460173505%_ (let () (declare (not safe)) - (gx#stx-e _%hd173184173226%_)))) - (let ((_%hd173187173234%_ + (gx#stx-e _%hd173458173500%_)))) + (let ((_%hd173461173508%_ (let () (declare (not safe)) - (##car _%e173186173231%_))) - (_%tl173188173236%_ + (##car _%e173460173505%_))) + (_%tl173462173510%_ (let () (declare (not safe)) - (##cdr _%e173186173231%_)))) + (##cdr _%e173460173505%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173187173234%_)) - (let ((_%e173189173239%_ + (gx#stx-pair? _%hd173461173508%_)) + (let ((_%e173463173513%_ (let () (declare (not safe)) (gx#stx-e - _%hd173187173234%_)))) - (let ((_%hd173190173242%_ + _%hd173461173508%_)))) + (let ((_%hd173464173516%_ (let () (declare (not safe)) - (##car _%e173189173239%_))) - (_%tl173191173244%_ + (##car _%e173463173513%_))) + (_%tl173465173518%_ (let () (declare (not safe)) - (##cdr _%e173189173239%_)))) + (##cdr _%e173463173513%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173191173244%_)) + _%tl173465173518%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173188173236%_)) - (let ((_%e173192173247%_ + _%tl173462173510%_)) + (let ((_%e173466173521%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl173188173236%_)))) - (let ((_%hd173193173250%_ + (gx#stx-e _%tl173462173510%_)))) + (let ((_%hd173467173524%_ (let () (declare (not safe)) - (##car _%e173192173247%_))) - (_%tl173194173252%_ + (##car _%e173466173521%_))) + (_%tl173468173526%_ (let () (declare (not safe)) - (##cdr _%e173192173247%_)))) + (##cdr _%e173466173521%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173194173252%_)) + (gx#stx-null? _%tl173468173526%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173185173228%_)) + (gx#stx-null? _%tl173459173502%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173182173220%_)) - (let ((_%e173195173255%_ + (gx#stx-pair? _%tl173456173494%_)) + (let ((_%e173469173529%_ (let () (declare (not safe)) - (gx#stx-e _%tl173182173220%_)))) - (let ((_%hd173196173258%_ + (gx#stx-e _%tl173456173494%_)))) + (let ((_%hd173470173532%_ (let () (declare (not safe)) - (##car _%e173195173255%_))) - (_%tl173197173260%_ + (##car _%e173469173529%_))) + (_%tl173471173534%_ (let () (declare (not safe)) - (##cdr _%e173195173255%_)))) + (##cdr _%e173469173529%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173197173260%_)) - ((lambda (_%L173263%_ - _%L173264%_ - _%L173265%_) - (let* ((_%g173289173307%_ - (lambda (_%g173290173304%_) + (gx#stx-null? _%tl173471173534%_)) + ((lambda (_%L173537%_ + _%L173538%_ + _%L173539%_) + (let* ((_%g173563173581%_ + (lambda (_%g173564173578%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173290173304%_)))) - (_%g173288173363%_ - (lambda (_%g173290173310%_) + _%g173564173578%_)))) + (_%g173562173637%_ + (lambda (_%g173564173584%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g173290173310%_)) - (let ((_%e173294173312%_ + _%g173564173584%_)) + (let ((_%e173568173586%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%g173290173310%_)))) - (let ((_%hd173295173315%_ + (gx#stx-e _%g173564173584%_)))) + (let ((_%hd173569173589%_ (let () (declare (not safe)) - (##car _%e173294173312%_))) - (_%tl173296173317%_ + (##car _%e173568173586%_))) + (_%tl173570173591%_ (let () (declare (not safe)) - (##cdr _%e173294173312%_)))) + (##cdr _%e173568173586%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173296173317%_)) - (let ((_%e173297173320%_ + (gx#stx-pair? _%tl173570173591%_)) + (let ((_%e173571173594%_ (let () (declare (not safe)) - (gx#stx-e _%tl173296173317%_)))) - (let ((_%hd173298173323%_ + (gx#stx-e _%tl173570173591%_)))) + (let ((_%hd173572173597%_ (let () (declare (not safe)) - (##car _%e173297173320%_))) - (_%tl173299173325%_ + (##car _%e173571173594%_))) + (_%tl173573173599%_ (let () (declare (not safe)) - (##cdr _%e173297173320%_)))) + (##cdr _%e173571173594%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173298173323%_)) - (let ((_%e173300173328%_ + (gx#stx-pair? _%hd173572173597%_)) + (let ((_%e173574173602%_ (let () (declare (not safe)) - (gx#stx-e _%hd173298173323%_)))) - (let ((_%hd173301173331%_ + (gx#stx-e _%hd173572173597%_)))) + (let ((_%hd173575173605%_ (let () (declare (not safe)) - (##car _%e173300173328%_))) - (_%tl173302173333%_ + (##car _%e173574173602%_))) + (_%tl173576173607%_ (let () (declare (not safe)) - (##cdr _%e173300173328%_)))) - ((lambda (_%L173336%_ - _%L173337%_ - _%L173338%_) - (let ((_%receiver173357%_ - (let ((_%$e173354%_ + (##cdr _%e173574173602%_)))) + ((lambda (_%L173610%_ + _%L173611%_ + _%L173612%_) + (let ((_%receiver173631%_ + (let ((_%$e173628%_ (gxc#apply-extract-receiver (cons (let () (declare @@ -1737,3099 +1737,3099 @@ (gx#datum->syntax__0 '#f '%#begin)) - _%L173336%_)))) - (if _%$e173354%_ - _%$e173354%_ - _%L173338%_)))) + _%L173610%_)))) + (if _%$e173628%_ + _%$e173628%_ + _%L173612%_)))) (for-each - (lambda (_%g173358173360%_) + (lambda (_%g173632173634%_) (gxc#apply-collect-object-refs__% '#f - _%receiver173357%_ - _%method-calls172301%_ - _%slot-refs172302%_ - _%g173358173360%_)) - _%L173336%_))) - _%tl173299173325%_ - _%tl173302173333%_ - _%hd173301173331%_))) - (_%g173289173307%_ _%g173290173310%_)))) - (_%g173289173307%_ _%g173290173310%_)))) - (_%g173289173307%_ _%g173290173310%_))))) + _%receiver173631%_ + _%method-calls172575%_ + _%slot-refs172576%_ + _%g173632173634%_)) + _%L173610%_))) + _%tl173573173599%_ + _%tl173576173607%_ + _%hd173575173605%_))) + (_%g173563173581%_ _%g173564173584%_)))) + (_%g173563173581%_ _%g173564173584%_)))) + (_%g173563173581%_ _%g173564173584%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g173288173363%_ _%L173264%_)) - (let* ((_%g173366173385%_ - (lambda (_%g173367173382%_) + (_%g173562173637%_ _%L173538%_)) + (let* ((_%g173640173659%_ + (lambda (_%g173641173656%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173367173382%_)))) - (_%g173365173509%_ - (lambda (_%g173367173388%_) + _%g173641173656%_)))) + (_%g173639173783%_ + (lambda (_%g173641173662%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g173367173388%_)) - (let ((_%e173369173390%_ + _%g173641173662%_)) + (let ((_%e173643173664%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%g173367173388%_)))) - (let ((_%hd173370173393%_ + (gx#stx-e _%g173641173662%_)))) + (let ((_%hd173644173667%_ (let () (declare (not safe)) - (##car _%e173369173390%_))) - (_%tl173371173395%_ + (##car _%e173643173664%_))) + (_%tl173645173669%_ (let () (declare (not safe)) - (##cdr _%e173369173390%_)))) + (##cdr _%e173643173664%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl173371173395%_)) - (let ((_g176448_ + (gx#stx-pair/null? _%tl173645173669%_)) + (let ((_g176722_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl173371173395%_ + _%tl173645173669%_ '0)))) (begin - (let ((_g176449_ + (let ((_g176723_ (let () (declare (not safe)) - (if (##values? _g176448_) - (##vector-length _g176448_) + (if (##values? _g176722_) + (##vector-length _g176722_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g176449_ 2))) + (##fx= _g176723_ 2))) (error "Context expects 2 values" - _g176449_))) - (let ((_%target173372173398%_ + _g176723_))) + (let ((_%target173646173672%_ (let () (declare (not safe)) - (##vector-ref _g176448_ 0))) - (_%tl173374173400%_ + (##vector-ref _g176722_ 0))) + (_%tl173648173674%_ (let () (declare (not safe)) - (##vector-ref _g176448_ 1)))) + (##vector-ref _g176722_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173374173400%_)) - (letrec ((_%loop173375173403%_ - (lambda (_%hd173373173406%_ - _%clause173379173408%_) + (gx#stx-null? _%tl173648173674%_)) + (letrec ((_%loop173649173677%_ + (lambda (_%hd173647173680%_ + _%clause173653173682%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd173373173406%_)) - (let ((_%e173376173411%_ + _%hd173647173680%_)) + (let ((_%e173650173685%_ (let () (declare (not safe)) (gx#stx-e - _%hd173373173406%_)))) - (let ((_%lp-hd173377173414%_ + _%hd173647173680%_)))) + (let ((_%lp-hd173651173688%_ (let () (declare (not safe)) - (##car _%e173376173411%_))) - (_%lp-tl173378173416%_ + (##car _%e173650173685%_))) + (_%lp-tl173652173690%_ (let () (declare (not safe)) - (##cdr _%e173376173411%_)))) - (_%loop173375173403%_ - _%lp-tl173378173416%_ - (cons _%lp-hd173377173414%_ - _%clause173379173408%_)))) - (let ((_%clause173380173419%_ - (reverse _%clause173379173408%_))) - ((lambda (_%L173422%_) + (##cdr _%e173650173685%_)))) + (_%loop173649173677%_ + _%lp-tl173652173690%_ + (cons _%lp-hd173651173688%_ + _%clause173653173682%_)))) + (let ((_%clause173654173693%_ + (reverse _%clause173653173682%_))) + ((lambda (_%L173696%_) (for-each - (lambda (_%clause173435%_) - (let* ((_%g173437173452%_ + (lambda (_%clause173709%_) + (let* ((_%g173711173726%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g173438173449%_) + (lambda (_%g173712173723%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173438173449%_)))) - (_%g173436173499%_ - (lambda (_%g173438173455%_) + _%g173712173723%_)))) + (_%g173710173773%_ + (lambda (_%g173712173729%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g173438173455%_)) - (let ((_%e173442173457%_ + (gx#stx-pair? _%g173712173729%_)) + (let ((_%e173716173731%_ (let () (declare (not safe)) - (gx#stx-e _%g173438173455%_)))) - (let ((_%hd173443173460%_ + (gx#stx-e _%g173712173729%_)))) + (let ((_%hd173717173734%_ (let () (declare (not safe)) - (##car _%e173442173457%_))) - (_%tl173444173462%_ + (##car _%e173716173731%_))) + (_%tl173718173736%_ (let () (declare (not safe)) - (##cdr _%e173442173457%_)))) + (##cdr _%e173716173731%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173443173460%_)) - (let ((_%e173445173465%_ + (gx#stx-pair? _%hd173717173734%_)) + (let ((_%e173719173739%_ (let () (declare (not safe)) (gx#stx-e - _%hd173443173460%_)))) - (let ((_%hd173446173468%_ + _%hd173717173734%_)))) + (let ((_%hd173720173742%_ (let () (declare (not safe)) - (##car _%e173445173465%_))) - (_%tl173447173470%_ + (##car _%e173719173739%_))) + (_%tl173721173744%_ (let () (declare (not safe)) - (##cdr _%e173445173465%_)))) - ((lambda (_%L173473%_ - _%L173474%_ - _%L173475%_) - (let ((_%receiver173493%_ - (let ((_%$e173490%_ + (##cdr _%e173719173739%_)))) + ((lambda (_%L173747%_ + _%L173748%_ + _%L173749%_) + (let ((_%receiver173767%_ + (let ((_%$e173764%_ (gxc#apply-extract-receiver (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L173473%_)))) - (if _%$e173490%_ _%$e173490%_ _%L173475%_)))) + _%L173747%_)))) + (if _%$e173764%_ _%$e173764%_ _%L173749%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g173494173496%_) + (lambda (_%g173768173770%_) (gxc#apply-collect-object-refs__% '#f - _%receiver173493%_ - _%method-calls172301%_ - _%slot-refs172302%_ - _%g173494173496%_)) - _%L173473%_))) - _%tl173444173462%_ - _%tl173447173470%_ - _%hd173446173468%_))) - (_%g173437173452%_ - _%g173438173455%_)))) - (_%g173437173452%_ _%g173438173455%_))))) - (_%g173436173499%_ _%clause173435%_))) - (let ((__tmp176450 - (lambda (_%g173501173504%_ _%g173502173506%_) - (cons _%g173501173504%_ _%g173502173506%_)))) + _%receiver173767%_ + _%method-calls172575%_ + _%slot-refs172576%_ + _%g173768173770%_)) + _%L173747%_))) + _%tl173718173736%_ + _%tl173721173744%_ + _%hd173720173742%_))) + (_%g173711173726%_ + _%g173712173729%_)))) + (_%g173711173726%_ _%g173712173729%_))))) + (_%g173710173773%_ _%clause173709%_))) + (let ((__tmp176724 + (lambda (_%g173775173778%_ _%g173776173780%_) + (cons _%g173775173778%_ _%g173776173780%_)))) (declare (not safe)) - (__foldr1 __tmp176450 '() _%L173422%_)))) + (__foldr1 __tmp176724 '() _%L173696%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause173380173419%_)))))) - (_%loop173375173403%_ - _%target173372173398%_ + _%clause173654173693%_)))))) + (_%loop173649173677%_ + _%target173646173672%_ '())) - (_%g173366173385%_ _%g173367173388%_))))) - (_%g173366173385%_ _%g173367173388%_)))) - (_%g173366173385%_ _%g173367173388%_))))) + (_%g173640173659%_ _%g173641173662%_))))) + (_%g173640173659%_ _%g173641173662%_)))) + (_%g173640173659%_ _%g173641173662%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g173365173509%_ _%L173263%_)) - (if (_%no-specializer?172305%_) - _%stx172209%_ - (let* ((_%specializer-id173518%_ - (let* ((_%id173512%_ - (let ((__tmp176451 + (_%g173639173783%_ _%L173537%_)) + (if (_%no-specializer?172579%_) + _%stx172483%_ + (let* ((_%specializer-id173792%_ + (let* ((_%id173786%_ + (let ((__tmp176725 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%L172282%_)))) + (gx#stx-e _%L172556%_)))) (declare (not safe)) - (make-symbol__1 __tmp176451 '"::specialize"))) - (_%specializer-id173515%_ - (let ((__tmp176452 + (make-symbol__1 __tmp176725 '"::specialize"))) + (_%specializer-id173789%_ + (let ((__tmp176726 (let () (declare (not safe)) - (gx#stx-source _%stx172209%_)))) + (gx#stx-source _%stx172483%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%id173512%_ __tmp176452)))) + (gx#core-quote-syntax__1 _%id173786%_ __tmp176726)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id173515%_)) - _%specializer-id173515%_)) + (gx#core-bind-runtime!__0 _%specializer-id173789%_)) + _%specializer-id173789%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$klass173520%_ - (let ((__tmp176453 + (_%$klass173794%_ + (let ((__tmp176727 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp176453))) + (make-symbol__0 __tmp176727))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$method-table173522%_ - (let ((__tmp176454 + (_%$method-table173796%_ + (let ((__tmp176728 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp176454))) + (make-symbol__0 __tmp176728))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%methods173524%_ + (_%methods173798%_ (let () (declare (not safe)) (__hash-keys - _%method-calls172301%_))) - (_%$methods173528%_ - (map (lambda (_%id173526%_) - (let ((__tmp176455 + _%method-calls172575%_))) + (_%$methods173802%_ + (map (lambda (_%id173800%_) + (let ((__tmp176729 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id173526%_))) + (gensym _%id173800%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp176455))) - _%methods173524%_)) + (make-symbol__1 '"__" __tmp176729))) + _%methods173798%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_173537%_ + (_%_173811%_ (for-each - (lambda (_%g173529173532%_ - _%g173530173534%_) + (lambda (_%g173803173806%_ + _%g173804173808%_) (let () (declare (not safe)) (__hash-put! - _%method-calls172301%_ - _%g173529173532%_ - _%g173530173534%_))) - _%methods173524%_ - _%$methods173528%_)) - (_%methods-bind173547%_ - (map (lambda (_%g173539173542%_ + _%method-calls172575%_ + _%g173803173806%_ + _%g173804173808%_))) + _%methods173798%_ + _%$methods173802%_)) + (_%methods-bind173821%_ + (map (lambda (_%g173813173816%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g173540173544%_) - (_%generate-method-bind172211%_ - _%$klass173520%_ - _%$method-table173522%_ - _%g173539173542%_ - _%g173540173544%_)) - _%methods173524%_ - _%$methods173528%_)) + _%g173814173818%_) + (_%generate-method-bind172485%_ + _%$klass173794%_ + _%$method-table173796%_ + _%g173813173816%_ + _%g173814173818%_)) + _%methods173798%_ + _%$methods173802%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%slots173549%_ + (_%slots173823%_ (let () (declare (not safe)) (__hash-keys - _%slot-refs172302%_))) - (_%$slots173553%_ - (map (lambda (_%id173551%_) - (let ((__tmp176456 + _%slot-refs172576%_))) + (_%$slots173827%_ + (map (lambda (_%id173825%_) + (let ((__tmp176730 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id173551%_))) + (gensym _%id173825%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp176456))) - _%slots173549%_)) + (make-symbol__1 '"__" __tmp176730))) + _%slots173823%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_173562%_ + (_%_173836%_ (for-each - (lambda (_%g173554173557%_ - _%g173555173559%_) + (lambda (_%g173828173831%_ + _%g173829173833%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs172302%_ - _%g173554173557%_ - _%g173555173559%_))) - _%slots173549%_ - _%$slots173553%_)) - (_%slots-bind173571%_ - (map (lambda (_%g173563173566%_ + _%slot-refs172576%_ + _%g173828173831%_ + _%g173829173833%_))) + _%slots173823%_ + _%$slots173827%_)) + (_%slots-bind173845%_ + (map (lambda (_%g173837173840%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g173564173568%_) - (_%generate-slot-bind172212%_ - _%$klass173520%_ - _%g173563173566%_ - _%g173564173568%_)) - _%slots173549%_ - _%$slots173553%_)) + _%g173838173842%_) + (_%generate-slot-bind172486%_ + _%$klass173794%_ + _%g173837173840%_ + _%g173838173842%_)) + _%slots173823%_ + _%$slots173827%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-lambda-expr173663%_ - (let* ((_%g173573173591%_ - (lambda (_%g173574173588%_) + (_%specializer-lambda-expr173937%_ + (let* ((_%g173847173865%_ + (lambda (_%g173848173862%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173574173588%_)))) - (_%g173572173660%_ - (lambda (_%g173574173594%_) + _%g173848173862%_)))) + (_%g173846173934%_ + (lambda (_%g173848173868%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g173574173594%_)) - (let ((_%e173578173596%_ + (gx#stx-pair? _%g173848173868%_)) + (let ((_%e173852173870%_ (let () (declare (not safe)) - (gx#stx-e _%g173574173594%_)))) - (let ((_%hd173579173599%_ + (gx#stx-e _%g173848173868%_)))) + (let ((_%hd173853173873%_ (let () (declare (not safe)) - (##car _%e173578173596%_))) - (_%tl173580173601%_ + (##car _%e173852173870%_))) + (_%tl173854173875%_ (let () (declare (not safe)) - (##cdr _%e173578173596%_)))) + (##cdr _%e173852173870%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173580173601%_)) - (let ((_%e173581173604%_ + (gx#stx-pair? _%tl173854173875%_)) + (let ((_%e173855173878%_ (let () (declare (not safe)) - (gx#stx-e _%tl173580173601%_)))) - (let ((_%hd173582173607%_ + (gx#stx-e _%tl173854173875%_)))) + (let ((_%hd173856173881%_ (let () (declare (not safe)) - (##car _%e173581173604%_))) - (_%tl173583173609%_ + (##car _%e173855173878%_))) + (_%tl173857173883%_ (let () (declare (not safe)) - (##cdr _%e173581173604%_)))) + (##cdr _%e173855173878%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd173582173607%_)) - (let ((_%e173584173612%_ + _%hd173856173881%_)) + (let ((_%e173858173886%_ (let () (declare (not safe)) (gx#stx-e - _%hd173582173607%_)))) - (let ((_%hd173585173615%_ + _%hd173856173881%_)))) + (let ((_%hd173859173889%_ (let () (declare (not safe)) - (##car _%e173584173612%_))) - (_%tl173586173617%_ + (##car _%e173858173886%_))) + (_%tl173860173891%_ (let () (declare (not safe)) - (##cdr _%e173584173612%_)))) - ((lambda (_%L173620%_ - _%L173621%_ - _%L173622%_) - (let* ((_%receiver173651%_ - (let ((_%$e173648%_ + (##cdr _%e173858173886%_)))) + ((lambda (_%L173894%_ + _%L173895%_ + _%L173896%_) + (let* ((_%receiver173925%_ + (let ((_%$e173922%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L173620%_)))) - (if _%$e173648%_ _%$e173648%_ _%L173622%_))) - (_%body173657%_ - (map (lambda (_%g173652173654%_) + _%L173894%_)))) + (if _%$e173922%_ _%$e173922%_ _%L173896%_))) + (_%body173931%_ + (map (lambda (_%g173926173928%_) (gxc#apply-subst-object-refs__% '#f - _%receiver173651%_ - _%$klass173520%_ - _%method-calls172301%_ - _%slot-refs172302%_ - _%g173652173654%_)) - _%L173620%_)) - (__tmp176457 + _%receiver173925%_ + _%$klass173794%_ + _%method-calls172575%_ + _%slot-refs172576%_ + _%g173926173928%_)) + _%L173894%_)) + (__tmp176731 (cons '%#lambda - (cons (cons _%L173622%_ _%L173621%_) - _%body173657%_)))) + (cons (cons _%L173896%_ _%L173895%_) + _%body173931%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp176457 - _%L173264%_))) - _%tl173583173609%_ - _%tl173586173617%_ - _%hd173585173615%_))) - (_%g173573173591%_ - _%g173574173594%_)))) - (_%g173573173591%_ _%g173574173594%_)))) - (_%g173573173591%_ _%g173574173594%_))))) - (_%g173572173660%_ _%L173264%_))) + __tmp176731 + _%L173538%_))) + _%tl173857173883%_ + _%tl173860173891%_ + _%hd173859173889%_))) + (_%g173847173865%_ + _%g173848173868%_)))) + (_%g173847173865%_ _%g173848173868%_)))) + (_%g173847173865%_ _%g173848173868%_))))) + (_%g173846173934%_ _%L173538%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-case-lambda-expr173826%_ - (let* ((_%g173665173684%_ - (lambda (_%g173666173681%_) + (_%specializer-case-lambda-expr174100%_ + (let* ((_%g173939173958%_ + (lambda (_%g173940173955%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173666173681%_)))) - (_%g173664173823%_ - (lambda (_%g173666173687%_) + _%g173940173955%_)))) + (_%g173938174097%_ + (lambda (_%g173940173961%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g173666173687%_)) - (let ((_%e173668173689%_ + (gx#stx-pair? _%g173940173961%_)) + (let ((_%e173942173963%_ (let () (declare (not safe)) - (gx#stx-e _%g173666173687%_)))) - (let ((_%hd173669173692%_ + (gx#stx-e _%g173940173961%_)))) + (let ((_%hd173943173966%_ (let () (declare (not safe)) - (##car _%e173668173689%_))) - (_%tl173670173694%_ + (##car _%e173942173963%_))) + (_%tl173944173968%_ (let () (declare (not safe)) - (##cdr _%e173668173689%_)))) + (##cdr _%e173942173963%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl173670173694%_)) - (let ((_g176458_ + (gx#stx-pair/null? _%tl173944173968%_)) + (let ((_g176732_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl173670173694%_ + _%tl173944173968%_ '0)))) (begin - (let ((_g176459_ + (let ((_g176733_ (let () (declare (not safe)) - (if (##values? _g176458_) + (if (##values? _g176732_) (##vector-length - _g176458_) + _g176732_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g176459_ 2))) + (##fx= _g176733_ 2))) (error "Context expects 2 values" - _g176459_))) - (let ((_%target173671173697%_ + _g176733_))) + (let ((_%target173945173971%_ (let () (declare (not safe)) - (##vector-ref _g176458_ 0))) - (_%tl173673173699%_ + (##vector-ref _g176732_ 0))) + (_%tl173947173973%_ (let () (declare (not safe)) - (##vector-ref _g176458_ 1)))) + (##vector-ref _g176732_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173673173699%_)) - (letrec ((_%loop173674173702%_ - (lambda (_%hd173672173705%_ + _%tl173947173973%_)) + (letrec ((_%loop173948173976%_ + (lambda (_%hd173946173979%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause173678173707%_) + _%clause173952173981%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173672173705%_)) - (let ((_%e173675173710%_ + (gx#stx-pair? _%hd173946173979%_)) + (let ((_%e173949173984%_ (let () (declare (not safe)) - (gx#stx-e _%hd173672173705%_)))) - (let ((_%lp-hd173676173713%_ + (gx#stx-e _%hd173946173979%_)))) + (let ((_%lp-hd173950173987%_ (let () (declare (not safe)) - (##car _%e173675173710%_))) - (_%lp-tl173677173715%_ + (##car _%e173949173984%_))) + (_%lp-tl173951173989%_ (let () (declare (not safe)) - (##cdr _%e173675173710%_)))) - (_%loop173674173702%_ - _%lp-tl173677173715%_ - (cons _%lp-hd173676173713%_ - _%clause173678173707%_)))) - (let ((_%clause173679173718%_ - (reverse _%clause173678173707%_))) - ((lambda (_%L173721%_) - (let* ((_%clauses173821%_ - (map (lambda (_%clause173735%_) - (let* ((_%__stx175271175272%_ - _%clause173735%_) - (_%g173738173753%_ + (##cdr _%e173949173984%_)))) + (_%loop173948173976%_ + _%lp-tl173951173989%_ + (cons _%lp-hd173950173987%_ + _%clause173952173981%_)))) + (let ((_%clause173953173992%_ + (reverse _%clause173952173981%_))) + ((lambda (_%L173995%_) + (let* ((_%clauses174095%_ + (map (lambda (_%clause174009%_) + (let* ((_%__stx175545175546%_ + _%clause174009%_) + (_%g174012174027%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx175271175272%_))))) - (let ((_%__kont175273175274%_ - (lambda (_%L173781%_ - _%L173782%_ - _%L173783%_) - (let* ((_%receiver173802%_ - (let ((_%$e173799%_ + _%__stx175545175546%_))))) + (let ((_%__kont175547175548%_ + (lambda (_%L174055%_ + _%L174056%_ + _%L174057%_) + (let* ((_%receiver174076%_ + (let ((_%$e174073%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L173781%_)))) - (if _%$e173799%_ _%$e173799%_ _%L173783%_))) - (_%body173808%_ - (map (lambda (_%g173803173805%_) + _%L174055%_)))) + (if _%$e174073%_ _%$e174073%_ _%L174057%_))) + (_%body174082%_ + (map (lambda (_%g174077174079%_) (gxc#apply-subst-object-refs__% '#f - _%receiver173802%_ - _%$klass173520%_ - _%method-calls172301%_ - _%slot-refs172302%_ - _%g173803173805%_)) - _%L173781%_))) - (cons (cons _%L173783%_ _%L173782%_) _%body173808%_)))) + _%receiver174076%_ + _%$klass173794%_ + _%method-calls172575%_ + _%slot-refs172576%_ + _%g174077174079%_)) + _%L174055%_))) + (cons (cons _%L174057%_ _%L174056%_) _%body174082%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont175275175276%_ + (_%__kont175549175550%_ (lambda () - _%clause173735%_))) + _%clause174009%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx175271175272%_)) - (let ((_%e173743173765%_ + _%__stx175545175546%_)) + (let ((_%e174017174039%_ (let () (declare (not safe)) (gx#stx-e - _%__stx175271175272%_)))) - (let ((_%tl173745173770%_ + _%__stx175545175546%_)))) + (let ((_%tl174019174044%_ (let () (declare (not safe)) - (##cdr _%e173743173765%_))) - (_%hd173744173768%_ + (##cdr _%e174017174039%_))) + (_%hd174018174042%_ (let () (declare (not safe)) - (##car _%e173743173765%_)))) + (##car _%e174017174039%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd173744173768%_)) - (let ((_%e173746173773%_ + _%hd174018174042%_)) + (let ((_%e174020174047%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd173744173768%_)))) - (let ((_%tl173748173778%_ + (gx#stx-e _%hd174018174042%_)))) + (let ((_%tl174022174052%_ (let () (declare (not safe)) - (##cdr _%e173746173773%_))) - (_%hd173747173776%_ + (##cdr _%e174020174047%_))) + (_%hd174021174050%_ (let () (declare (not safe)) - (##car _%e173746173773%_)))) - (_%__kont175273175274%_ - _%tl173745173770%_ - _%tl173748173778%_ - _%hd173747173776%_))) - (_%__kont175275175276%_)))) + (##car _%e174020174047%_)))) + (_%__kont175547175548%_ + _%tl174019174044%_ + _%tl174022174052%_ + _%hd174021174050%_))) + (_%__kont175549175550%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont175275175276%_))))) - (let ((__tmp176460 - (lambda (_%g173813173816%_ - _%g173814173818%_) - (cons _%g173813173816%_ - _%g173814173818%_)))) + (_%__kont175549175550%_))))) + (let ((__tmp176734 + (lambda (_%g174087174090%_ + _%g174088174092%_) + (cons _%g174087174090%_ + _%g174088174092%_)))) (declare (not safe)) (__foldr1 - __tmp176460 + __tmp176734 '() - _%L173721%_)))) - (__tmp176461 - (cons '%#case-lambda _%clauses173821%_))) + _%L173995%_)))) + (__tmp176735 + (cons '%#case-lambda _%clauses174095%_))) (declare (not safe)) - (gxc#xform-wrap-source __tmp176461 _%L173263%_))) - _%clause173679173718%_)))))) + (gxc#xform-wrap-source __tmp176735 _%L173537%_))) + _%clause173953173992%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop173674173702%_ - _%target173671173697%_ + (_%loop173948173976%_ + _%target173945173971%_ '())) - (_%g173665173684%_ - _%g173666173687%_))))) - (_%g173665173684%_ _%g173666173687%_)))) - (_%g173665173684%_ _%g173666173687%_))))) - (_%g173664173823%_ _%L173263%_))) + (_%g173939173958%_ + _%g173940173961%_))))) + (_%g173939173958%_ _%g173940173961%_)))) + (_%g173939173958%_ _%g173940173961%_))))) + (_%g173938174097%_ _%L173537%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-impl173828%_ - (let ((__tmp176462 + (_%specializer-impl174102%_ + (let ((__tmp176736 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%L173265%_ '()) - (cons _%specializer-lambda-expr173663%_ + (cons (cons (cons (cons _%L173539%_ '()) + (cons _%specializer-lambda-expr173937%_ '())) '()) - (cons _%specializer-case-lambda-expr173826%_ + (cons _%specializer-case-lambda-expr174100%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp176462 _%stx172209%_))) + (gxc#xform-wrap-source __tmp176736 _%stx172483%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-impl173830%_ - (_%generate-specializer-impl172213%_ - _%$klass173520%_ - _%$method-table173522%_ - _%methods-bind173547%_ - _%slots-bind173571%_ - _%specializer-impl173828%_))) - (let ((__tmp176464 + (_%specializer-impl174104%_ + (_%generate-specializer-impl172487%_ + _%$klass173794%_ + _%$method-table173796%_ + _%methods-bind173821%_ + _%slots-bind173845%_ + _%specializer-impl174102%_))) + (let ((__tmp176738 (let () (declare (not safe)) (gx#stx-e - _%L172282%_))) - (__tmp176463 + _%L172556%_))) + (__tmp176737 (let () (declare (not safe)) (gx#stx-e - _%specializer-id173518%_)))) + _%specializer-id173792%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp176464 + __tmp176738 '" => " - __tmp176463)) - (_%generate-specializer-def172214%_ - _%L172282%_ - _%specializer-id173518%_ - _%specializer-impl173830%_)))) - _%hd173196173258%_ - _%hd173193173250%_ - _%hd173190173242%_) - (_%g173172173202%_ _%g173173173205%_)))) - (_%g173172173202%_ _%g173173173205%_)) - (_%g173172173202%_ _%g173173173205%_)) - (_%g173172173202%_ _%g173173173205%_)))) - (_%g173172173202%_ _%g173173173205%_)) + __tmp176737)) + (_%generate-specializer-def172488%_ + _%L172556%_ + _%specializer-id173792%_ + _%specializer-impl174104%_)))) + _%hd173470173532%_ + _%hd173467173524%_ + _%hd173464173516%_) + (_%g173446173476%_ _%g173447173479%_)))) + (_%g173446173476%_ _%g173447173479%_)) + (_%g173446173476%_ _%g173447173479%_)) + (_%g173446173476%_ _%g173447173479%_)))) + (_%g173446173476%_ _%g173447173479%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g173172173202%_ - _%g173173173205%_)))) - (_%g173172173202%_ - _%g173173173205%_)))) - (_%g173172173202%_ _%g173173173205%_)))) - (_%g173172173202%_ _%g173173173205%_)))) - (_%g173172173202%_ _%g173173173205%_)))) + (_%g173446173476%_ + _%g173447173479%_)))) + (_%g173446173476%_ + _%g173447173479%_)))) + (_%g173446173476%_ _%g173447173479%_)))) + (_%g173446173476%_ _%g173447173479%_)))) + (_%g173446173476%_ _%g173447173479%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g173172173202%_ - _%g173173173205%_))))) - (_%g173171173833%_ _%L172281%_)) + (_%g173446173476%_ + _%g173447173479%_))))) + (_%g173445174107%_ _%L172555%_)) (if (let () (declare (not safe)) - (gxc#kw-lambda-expr? _%L172281%_)) - (let* ((_%g173837173890%_ - (lambda (_%g173838173887%_) + (gxc#kw-lambda-expr? _%L172555%_)) + (let* ((_%g174111174164%_ + (lambda (_%g174112174161%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173838173887%_)))) - (_%g173836175061%_ - (lambda (_%g173838173893%_) + _%g174112174161%_)))) + (_%g174110175335%_ + (lambda (_%g174112174167%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g173838173893%_)) - (let ((_%e173844173895%_ + _%g174112174167%_)) + (let ((_%e174118174169%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%g173838173893%_)))) - (let ((_%hd173845173898%_ + (gx#stx-e _%g174112174167%_)))) + (let ((_%hd174119174172%_ (let () (declare (not safe)) - (##car _%e173844173895%_))) - (_%tl173846173900%_ + (##car _%e174118174169%_))) + (_%tl174120174174%_ (let () (declare (not safe)) - (##cdr _%e173844173895%_)))) + (##cdr _%e174118174169%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd173845173898%_)) + (gx#identifier? _%hd174119174172%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd173845173898%_)) + (gx#stx-eq? '%#let-values _%hd174119174172%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173846173900%_)) - (let ((_%e173847173903%_ + (gx#stx-pair? _%tl174120174174%_)) + (let ((_%e174121174177%_ (let () (declare (not safe)) - (gx#stx-e _%tl173846173900%_)))) - (let ((_%hd173848173906%_ + (gx#stx-e _%tl174120174174%_)))) + (let ((_%hd174122174180%_ (let () (declare (not safe)) - (##car _%e173847173903%_))) - (_%tl173849173908%_ + (##car _%e174121174177%_))) + (_%tl174123174182%_ (let () (declare (not safe)) - (##cdr _%e173847173903%_)))) + (##cdr _%e174121174177%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173848173906%_)) - (let ((_%e173850173911%_ + (gx#stx-pair? _%hd174122174180%_)) + (let ((_%e174124174185%_ (let () (declare (not safe)) (gx#stx-e - _%hd173848173906%_)))) - (let ((_%hd173851173914%_ + _%hd174122174180%_)))) + (let ((_%hd174125174188%_ (let () (declare (not safe)) - (##car _%e173850173911%_))) - (_%tl173852173916%_ + (##car _%e174124174185%_))) + (_%tl174126174190%_ (let () (declare (not safe)) - (##cdr _%e173850173911%_)))) + (##cdr _%e174124174185%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd173851173914%_)) - (let ((_%e173853173919%_ + _%hd174125174188%_)) + (let ((_%e174127174193%_ (let () (declare (not safe)) (gx#stx-e - _%hd173851173914%_)))) - (let ((_%hd173854173922%_ + _%hd174125174188%_)))) + (let ((_%hd174128174196%_ (let () (declare (not safe)) - (##car _%e173853173919%_))) - (_%tl173855173924%_ + (##car _%e174127174193%_))) + (_%tl174129174198%_ (let () (declare (not safe)) - (##cdr _%e173853173919%_)))) + (##cdr _%e174127174193%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd173854173922%_)) - (let ((_%e173856173927%_ + _%hd174128174196%_)) + (let ((_%e174130174201%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd173854173922%_)))) - (let ((_%hd173857173930%_ + (gx#stx-e _%hd174128174196%_)))) + (let ((_%hd174131174204%_ (let () (declare (not safe)) - (##car _%e173856173927%_))) - (_%tl173858173932%_ + (##car _%e174130174201%_))) + (_%tl174132174206%_ (let () (declare (not safe)) - (##cdr _%e173856173927%_)))) + (##cdr _%e174130174201%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173858173932%_)) + (gx#stx-null? _%tl174132174206%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173855173924%_)) - (let ((_%e173859173935%_ + (gx#stx-pair? _%tl174129174198%_)) + (let ((_%e174133174209%_ (let () (declare (not safe)) - (gx#stx-e _%tl173855173924%_)))) - (let ((_%hd173860173938%_ + (gx#stx-e _%tl174129174198%_)))) + (let ((_%hd174134174212%_ (let () (declare (not safe)) - (##car _%e173859173935%_))) - (_%tl173861173940%_ + (##car _%e174133174209%_))) + (_%tl174135174214%_ (let () (declare (not safe)) - (##cdr _%e173859173935%_)))) + (##cdr _%e174133174209%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173860173938%_)) - (let ((_%e173862173943%_ + (gx#stx-pair? _%hd174134174212%_)) + (let ((_%e174136174217%_ (let () (declare (not safe)) - (gx#stx-e _%hd173860173938%_)))) - (let ((_%hd173863173946%_ + (gx#stx-e _%hd174134174212%_)))) + (let ((_%hd174137174220%_ (let () (declare (not safe)) - (##car _%e173862173943%_))) - (_%tl173864173948%_ + (##car _%e174136174217%_))) + (_%tl174138174222%_ (let () (declare (not safe)) - (##cdr _%e173862173943%_)))) + (##cdr _%e174136174217%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd173863173946%_)) + _%hd174137174220%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd173863173946%_)) + _%hd174137174220%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173864173948%_)) - (let ((_%e173865173951%_ + _%tl174138174222%_)) + (let ((_%e174139174225%_ (let () (declare (not safe)) (gx#stx-e - _%tl173864173948%_)))) - (let ((_%hd173866173954%_ + _%tl174138174222%_)))) + (let ((_%hd174140174228%_ (let () (declare (not safe)) - (##car _%e173865173951%_))) - (_%tl173867173956%_ + (##car _%e174139174225%_))) + (_%tl174141174230%_ (let () (declare (not safe)) - (##cdr _%e173865173951%_)))) + (##cdr _%e174139174225%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd173866173954%_)) - (let ((_%e173868173959%_ + _%hd174140174228%_)) + (let ((_%e174142174233%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd173866173954%_)))) - (let ((_%hd173869173962%_ + (gx#stx-e _%hd174140174228%_)))) + (let ((_%hd174143174236%_ (let () (declare (not safe)) - (##car _%e173868173959%_))) - (_%tl173870173964%_ + (##car _%e174142174233%_))) + (_%tl174144174238%_ (let () (declare (not safe)) - (##cdr _%e173868173959%_)))) + (##cdr _%e174142174233%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173869173962%_)) - (let ((_%e173871173967%_ + (gx#stx-pair? _%hd174143174236%_)) + (let ((_%e174145174241%_ (let () (declare (not safe)) - (gx#stx-e _%hd173869173962%_)))) - (let ((_%hd173872173970%_ + (gx#stx-e _%hd174143174236%_)))) + (let ((_%hd174146174244%_ (let () (declare (not safe)) - (##car _%e173871173967%_))) - (_%tl173873173972%_ + (##car _%e174145174241%_))) + (_%tl174147174246%_ (let () (declare (not safe)) - (##cdr _%e173871173967%_)))) + (##cdr _%e174145174241%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173872173970%_)) - (let ((_%e173874173975%_ + (gx#stx-pair? _%hd174146174244%_)) + (let ((_%e174148174249%_ (let () (declare (not safe)) - (gx#stx-e _%hd173872173970%_)))) - (let ((_%hd173875173978%_ + (gx#stx-e _%hd174146174244%_)))) + (let ((_%hd174149174252%_ (let () (declare (not safe)) - (##car _%e173874173975%_))) - (_%tl173876173980%_ + (##car _%e174148174249%_))) + (_%tl174150174254%_ (let () (declare (not safe)) - (##cdr _%e173874173975%_)))) + (##cdr _%e174148174249%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173876173980%_)) + (gx#stx-null? _%tl174150174254%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173873173972%_)) - (let ((_%e173877173983%_ + _%tl174147174246%_)) + (let ((_%e174151174257%_ (let () (declare (not safe)) (gx#stx-e - _%tl173873173972%_)))) - (let ((_%hd173878173986%_ + _%tl174147174246%_)))) + (let ((_%hd174152174260%_ (let () (declare (not safe)) - (##car _%e173877173983%_))) - (_%tl173879173988%_ + (##car _%e174151174257%_))) + (_%tl174153174262%_ (let () (declare (not safe)) - (##cdr _%e173877173983%_)))) + (##cdr _%e174151174257%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173879173988%_)) + _%tl174153174262%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173870173964%_)) + _%tl174144174238%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl173867173956%_)) - (let ((_%e173880173991%_ + (gx#stx-pair? _%tl174141174230%_)) + (let ((_%e174154174265%_ (let () (declare (not safe)) - (gx#stx-e _%tl173867173956%_)))) - (let ((_%hd173881173994%_ + (gx#stx-e _%tl174141174230%_)))) + (let ((_%hd174155174268%_ (let () (declare (not safe)) - (##car _%e173880173991%_))) - (_%tl173882173996%_ + (##car _%e174154174265%_))) + (_%tl174156174270%_ (let () (declare (not safe)) - (##cdr _%e173880173991%_)))) + (##cdr _%e174154174265%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173882173996%_)) + (gx#stx-null? _%tl174156174270%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173861173940%_)) + (gx#stx-null? _%tl174135174214%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173852173916%_)) + (gx#stx-null? _%tl174126174190%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173849173908%_)) - (let ((_%e173883173999%_ + (gx#stx-pair? _%tl174123174182%_)) + (let ((_%e174157174273%_ (let () (declare (not safe)) (gx#stx-e - _%tl173849173908%_)))) - (let ((_%hd173884174002%_ + _%tl174123174182%_)))) + (let ((_%hd174158174276%_ (let () (declare (not safe)) - (##car _%e173883173999%_))) - (_%tl173885174004%_ + (##car _%e174157174273%_))) + (_%tl174159174278%_ (let () (declare (not safe)) - (##cdr _%e173883173999%_)))) + (##cdr _%e174157174273%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173885174004%_)) - ((lambda (_%L174007%_ - _%L174008%_ - _%L174009%_ - _%L174010%_ - _%L174011%_) - (let* ((_%g174051174113%_ - (lambda (_%g174052174110%_) + _%tl174159174278%_)) + ((lambda (_%L174281%_ + _%L174282%_ + _%L174283%_ + _%L174284%_ + _%L174285%_) + (let* ((_%g174325174387%_ + (lambda (_%g174326174384%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174052174110%_)))) - (_%g174050175058%_ - (lambda (_%g174052174116%_) + _%g174326174384%_)))) + (_%g174324175332%_ + (lambda (_%g174326174390%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g174052174116%_)) - (let ((_%e174058174118%_ + (gx#stx-pair? _%g174326174390%_)) + (let ((_%e174332174392%_ (let () (declare (not safe)) - (gx#stx-e _%g174052174116%_)))) - (let ((_%hd174059174121%_ + (gx#stx-e _%g174326174390%_)))) + (let ((_%hd174333174395%_ (let () (declare (not safe)) - (##car _%e174058174118%_))) - (_%tl174060174123%_ + (##car _%e174332174392%_))) + (_%tl174334174397%_ (let () (declare (not safe)) - (##cdr _%e174058174118%_)))) + (##cdr _%e174332174392%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd174059174121%_)) + (gx#identifier? _%hd174333174395%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd174059174121%_)) + _%hd174333174395%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174060174123%_)) - (let ((_%e174061174126%_ + _%tl174334174397%_)) + (let ((_%e174335174400%_ (let () (declare (not safe)) (gx#stx-e - _%tl174060174123%_)))) - (let ((_%hd174062174129%_ + _%tl174334174397%_)))) + (let ((_%hd174336174403%_ (let () (declare (not safe)) - (##car _%e174061174126%_))) - (_%tl174063174131%_ + (##car _%e174335174400%_))) + (_%tl174337174405%_ (let () (declare (not safe)) - (##cdr _%e174061174126%_)))) + (##cdr _%e174335174400%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174063174131%_)) - (let ((_%e174064174134%_ + _%tl174337174405%_)) + (let ((_%e174338174408%_ (let () (declare (not safe)) (gx#stx-e - _%tl174063174131%_)))) - (let ((_%hd174065174137%_ + _%tl174337174405%_)))) + (let ((_%hd174339174411%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e174064174134%_))) - (_%tl174066174139%_ - (let () (declare (not safe)) (##cdr _%e174064174134%_)))) + (##car _%e174338174408%_))) + (_%tl174340174413%_ + (let () (declare (not safe)) (##cdr _%e174338174408%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174065174137%_)) - (let ((_%e174067174142%_ + (gx#stx-pair? _%hd174339174411%_)) + (let ((_%e174341174416%_ (let () (declare (not safe)) - (gx#stx-e _%hd174065174137%_)))) - (let ((_%hd174068174145%_ + (gx#stx-e _%hd174339174411%_)))) + (let ((_%hd174342174419%_ (let () (declare (not safe)) - (##car _%e174067174142%_))) - (_%tl174069174147%_ + (##car _%e174341174416%_))) + (_%tl174343174421%_ (let () (declare (not safe)) - (##cdr _%e174067174142%_)))) + (##cdr _%e174341174416%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd174068174145%_)) + (gx#identifier? _%hd174342174419%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd174068174145%_)) + (gx#stx-eq? '%#call _%hd174342174419%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174069174147%_)) - (let ((_%e174070174150%_ + (gx#stx-pair? _%tl174343174421%_)) + (let ((_%e174344174424%_ (let () (declare (not safe)) - (gx#stx-e _%tl174069174147%_)))) - (let ((_%hd174071174153%_ + (gx#stx-e _%tl174343174421%_)))) + (let ((_%hd174345174427%_ (let () (declare (not safe)) - (##car _%e174070174150%_))) - (_%tl174072174155%_ + (##car _%e174344174424%_))) + (_%tl174346174429%_ (let () (declare (not safe)) - (##cdr _%e174070174150%_)))) + (##cdr _%e174344174424%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174071174153%_)) - (let ((_%e174073174158%_ + _%hd174345174427%_)) + (let ((_%e174347174432%_ (let () (declare (not safe)) (gx#stx-e - _%hd174071174153%_)))) - (let ((_%hd174074174161%_ + _%hd174345174427%_)))) + (let ((_%hd174348174435%_ (let () (declare (not safe)) - (##car _%e174073174158%_))) - (_%tl174075174163%_ + (##car _%e174347174432%_))) + (_%tl174349174437%_ (let () (declare (not safe)) - (##cdr _%e174073174158%_)))) + (##cdr _%e174347174432%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd174074174161%_)) + _%hd174348174435%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd174074174161%_)) + _%hd174348174435%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174075174163%_)) - (let ((_%e174076174166%_ + _%tl174349174437%_)) + (let ((_%e174350174440%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl174075174163%_)))) - (let ((_%hd174077174169%_ + (gx#stx-e _%tl174349174437%_)))) + (let ((_%hd174351174443%_ (let () (declare (not safe)) - (##car _%e174076174166%_))) - (_%tl174078174171%_ + (##car _%e174350174440%_))) + (_%tl174352174445%_ (let () (declare (not safe)) - (##cdr _%e174076174166%_)))) + (##cdr _%e174350174440%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174078174171%_)) + (gx#stx-null? _%tl174352174445%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174072174155%_)) - (let ((_%e174079174174%_ + (gx#stx-pair? _%tl174346174429%_)) + (let ((_%e174353174448%_ (let () (declare (not safe)) - (gx#stx-e _%tl174072174155%_)))) - (let ((_%hd174080174177%_ + (gx#stx-e _%tl174346174429%_)))) + (let ((_%hd174354174451%_ (let () (declare (not safe)) - (##car _%e174079174174%_))) - (_%tl174081174179%_ + (##car _%e174353174448%_))) + (_%tl174355174453%_ (let () (declare (not safe)) - (##cdr _%e174079174174%_)))) + (##cdr _%e174353174448%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174080174177%_)) - (let ((_%e174082174182%_ + (gx#stx-pair? _%hd174354174451%_)) + (let ((_%e174356174456%_ (let () (declare (not safe)) (gx#stx-e - _%hd174080174177%_)))) - (let ((_%hd174083174185%_ + _%hd174354174451%_)))) + (let ((_%hd174357174459%_ (let () (declare (not safe)) - (##car _%e174082174182%_))) - (_%tl174084174187%_ + (##car _%e174356174456%_))) + (_%tl174358174461%_ (let () (declare (not safe)) - (##cdr _%e174082174182%_)))) + (##cdr _%e174356174456%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd174083174185%_)) + _%hd174357174459%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd174083174185%_)) + _%hd174357174459%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174084174187%_)) - (let ((_%e174085174190%_ + _%tl174358174461%_)) + (let ((_%e174359174464%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl174084174187%_)))) - (let ((_%hd174086174193%_ + (gx#stx-e _%tl174358174461%_)))) + (let ((_%hd174360174467%_ (let () (declare (not safe)) - (##car _%e174085174190%_))) - (_%tl174087174195%_ + (##car _%e174359174464%_))) + (_%tl174361174469%_ (let () (declare (not safe)) - (##cdr _%e174085174190%_)))) + (##cdr _%e174359174464%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174087174195%_)) + (gx#stx-null? _%tl174361174469%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174081174179%_)) - (let ((_%e174088174198%_ + (gx#stx-pair? _%tl174355174453%_)) + (let ((_%e174362174472%_ (let () (declare (not safe)) - (gx#stx-e _%tl174081174179%_)))) - (let ((_%hd174089174201%_ + (gx#stx-e _%tl174355174453%_)))) + (let ((_%hd174363174475%_ (let () (declare (not safe)) - (##car _%e174088174198%_))) - (_%tl174090174203%_ + (##car _%e174362174472%_))) + (_%tl174364174477%_ (let () (declare (not safe)) - (##cdr _%e174088174198%_)))) + (##cdr _%e174362174472%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174089174201%_)) - (let ((_%e174091174206%_ + (gx#stx-pair? _%hd174363174475%_)) + (let ((_%e174365174480%_ (let () (declare (not safe)) - (gx#stx-e _%hd174089174201%_)))) - (let ((_%hd174092174209%_ + (gx#stx-e _%hd174363174475%_)))) + (let ((_%hd174366174483%_ (let () (declare (not safe)) - (##car _%e174091174206%_))) - (_%tl174093174211%_ + (##car _%e174365174480%_))) + (_%tl174367174485%_ (let () (declare (not safe)) - (##cdr _%e174091174206%_)))) + (##cdr _%e174365174480%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd174092174209%_)) + _%hd174366174483%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd174092174209%_)) + _%hd174366174483%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174093174211%_)) - (let ((_%e174094174214%_ + _%tl174367174485%_)) + (let ((_%e174368174488%_ (let () (declare (not safe)) (gx#stx-e - _%tl174093174211%_)))) - (let ((_%hd174095174217%_ + _%tl174367174485%_)))) + (let ((_%hd174369174491%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e174094174214%_))) - (_%tl174096174219%_ - (let () (declare (not safe)) (##cdr _%e174094174214%_)))) + (##car _%e174368174488%_))) + (_%tl174370174493%_ + (let () (declare (not safe)) (##cdr _%e174368174488%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174096174219%_)) + (gx#stx-null? _%tl174370174493%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174090174203%_)) - (if (let ((__tmp176465 + (gx#stx-pair/null? _%tl174364174477%_)) + (if (let ((__tmp176739 (let () (declare (not safe)) - (gx#stx-length _%tl174090174203%_)))) + (gx#stx-length _%tl174364174477%_)))) (declare (not safe)) - (##fx>= __tmp176465 '1)) - (let ((_g176466_ + (##fx>= __tmp176739 '1)) + (let ((_g176740_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl174090174203%_ + _%tl174364174477%_ '1)))) (begin - (let ((_g176467_ + (let ((_g176741_ (let () (declare (not safe)) - (if (##values? _g176466_) - (##vector-length _g176466_) + (if (##values? _g176740_) + (##vector-length _g176740_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g176467_ 2))) + (##fx= _g176741_ 2))) (error "Context expects 2 values" - _g176467_))) - (let ((_%target174097174222%_ + _g176741_))) + (let ((_%target174371174496%_ (let () (declare (not safe)) - (##vector-ref _g176466_ 0))) - (_%tl174099174224%_ + (##vector-ref _g176740_ 0))) + (_%tl174373174498%_ (let () (declare (not safe)) - (##vector-ref _g176466_ 1)))) + (##vector-ref _g176740_ 1)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174099174224%_)) - (let ((_%e174106174227%_ + (gx#stx-pair? _%tl174373174498%_)) + (let ((_%e174380174501%_ (let () (declare (not safe)) - (gx#stx-e _%tl174099174224%_)))) - (let ((_%hd174107174230%_ + (gx#stx-e _%tl174373174498%_)))) + (let ((_%hd174381174504%_ (let () (declare (not safe)) - (##car _%e174106174227%_))) - (_%tl174108174232%_ + (##car _%e174380174501%_))) + (_%tl174382174506%_ (let () (declare (not safe)) - (##cdr _%e174106174227%_)))) + (##cdr _%e174380174501%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174108174232%_)) - (letrec ((_%loop174100174235%_ - (lambda (_%hd174098174238%_ + _%tl174382174506%_)) + (letrec ((_%loop174374174509%_ + (lambda (_%hd174372174512%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kw-ref174104174240%_) + _%kw-ref174378174514%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174098174238%_)) - (let ((_%e174101174243%_ + (gx#stx-pair? _%hd174372174512%_)) + (let ((_%e174375174517%_ (let () (declare (not safe)) - (gx#stx-e _%hd174098174238%_)))) - (let ((_%lp-hd174102174246%_ + (gx#stx-e _%hd174372174512%_)))) + (let ((_%lp-hd174376174520%_ (let () (declare (not safe)) - (##car _%e174101174243%_))) - (_%lp-tl174103174248%_ + (##car _%e174375174517%_))) + (_%lp-tl174377174522%_ (let () (declare (not safe)) - (##cdr _%e174101174243%_)))) - (_%loop174100174235%_ - _%lp-tl174103174248%_ - (cons _%lp-hd174102174246%_ - _%kw-ref174104174240%_)))) - (let ((_%kw-ref174105174251%_ - (reverse _%kw-ref174104174240%_))) + (##cdr _%e174375174517%_)))) + (_%loop174374174509%_ + _%lp-tl174377174522%_ + (cons _%lp-hd174376174520%_ + _%kw-ref174378174514%_)))) + (let ((_%kw-ref174379174525%_ + (reverse _%kw-ref174378174514%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174066174139%_)) - ((lambda (_%L174254%_ - _%L174255%_ - _%L174256%_ - _%L174257%_ - _%L174258%_) - (let* ((_%kw-count174309%_ - (length (let ((__tmp176468 - (lambda (_%g174301174304%_ - _%g174302174306%_) - (cons _%g174301174304%_ - _%g174302174306%_)))) + (gx#stx-null? _%tl174340174413%_)) + ((lambda (_%L174528%_ + _%L174529%_ + _%L174530%_ + _%L174531%_ + _%L174532%_) + (let* ((_%kw-count174583%_ + (length (let ((__tmp176742 + (lambda (_%g174575174578%_ + _%g174576174580%_) + (cons _%g174575174578%_ + _%g174576174580%_)))) (declare (not safe)) (__foldr1 - __tmp176468 + __tmp176742 '() - _%L174255%_)))) - (_%self-index174311%_ + _%L174529%_)))) + (_%self-index174585%_ (let () (declare (not safe)) - (##fx+ _%kw-count174309%_ '1)))) + (##fx+ _%kw-count174583%_ '1)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _%L174009%_)) - (let* ((_%g174315174329%_ - (lambda (_%g174316174326%_) + (gxc#lambda-expr? _%L174283%_)) + (let* ((_%g174589174603%_ + (lambda (_%g174590174600%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174316174326%_)))) - (_%g174314174452%_ - (lambda (_%g174316174332%_) + _%g174590174600%_)))) + (_%g174588174726%_ + (lambda (_%g174590174606%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174316174332%_)) - (let ((_%e174319174334%_ + _%g174590174606%_)) + (let ((_%e174593174608%_ (let () (declare (not safe)) (gx#stx-e - _%g174316174332%_)))) - (let ((_%hd174320174337%_ + _%g174590174606%_)))) + (let ((_%hd174594174611%_ (let () (declare (not safe)) - (##car _%e174319174334%_))) - (_%tl174321174339%_ + (##car _%e174593174608%_))) + (_%tl174595174613%_ (let () (declare (not safe)) - (##cdr _%e174319174334%_)))) + (##cdr _%e174593174608%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174321174339%_)) - (let ((_%e174322174342%_ + _%tl174595174613%_)) + (let ((_%e174596174616%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl174321174339%_)))) - (let ((_%hd174323174345%_ + (gx#stx-e _%tl174595174613%_)))) + (let ((_%hd174597174619%_ (let () (declare (not safe)) - (##car _%e174322174342%_))) - (_%tl174324174347%_ + (##car _%e174596174616%_))) + (_%tl174598174621%_ (let () (declare (not safe)) - (##cdr _%e174322174342%_)))) - ((lambda (_%L174350%_ _%L174351%_) - (let* ((_%self174368%_ - (list-ref _%L174351%_ _%self-index174311%_)) - (_%receiver174373%_ - (let ((_%$e174370%_ + (##cdr _%e174596174616%_)))) + ((lambda (_%L174624%_ _%L174625%_) + (let* ((_%self174642%_ + (list-ref _%L174625%_ _%self-index174585%_)) + (_%receiver174647%_ + (let ((_%$e174644%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L174350%_)))) - (if _%$e174370%_ - _%$e174370%_ - _%self174368%_)))) + _%L174624%_)))) + (if _%$e174644%_ + _%$e174644%_ + _%self174642%_)))) (for-each - (lambda (_%g174375174377%_) + (lambda (_%g174649174651%_) (gxc#apply-collect-object-refs__% '#f - _%receiver174373%_ - _%method-calls172301%_ - _%slot-refs172302%_ - _%g174375174377%_)) - _%L174350%_) - (if (_%no-specializer?172305%_) - _%stx172209%_ - (let* ((_%specializer-id174386%_ - (let* ((_%id174380%_ - (let ((__tmp176469 + _%receiver174647%_ + _%method-calls172575%_ + _%slot-refs172576%_ + _%g174649174651%_)) + _%L174624%_) + (if (_%no-specializer?172579%_) + _%stx172483%_ + (let* ((_%specializer-id174660%_ + (let* ((_%id174654%_ + (let ((__tmp176743 (let () (declare (not safe)) (gx#stx-e - _%L172282%_)))) + _%L172556%_)))) (declare (not safe)) (make-symbol__1 - __tmp176469 + __tmp176743 '"::specialize"))) - (_%specializer-id174383%_ - (let ((__tmp176470 + (_%specializer-id174657%_ + (let ((__tmp176744 (let () (declare (not safe)) (gx#stx-source - _%stx172209%_)))) + _%stx172483%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id174380%_ - __tmp176470)))) + _%id174654%_ + __tmp176744)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%specializer-id174383%_)) - _%specializer-id174383%_)) - (_%$klass174388%_ - (let ((__tmp176471 + _%specializer-id174657%_)) + _%specializer-id174657%_)) + (_%$klass174662%_ + (let ((__tmp176745 (let () (declare (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp176471))) - (_%$method-table174390%_ - (let ((__tmp176472 + (make-symbol__0 __tmp176745))) + (_%$method-table174664%_ + (let ((__tmp176746 (let () (declare (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp176472))) - (_%methods174392%_ + (make-symbol__0 __tmp176746))) + (_%methods174666%_ (let () (declare (not safe)) (__hash-keys - _%method-calls172301%_))) - (_%$methods174396%_ - (map (lambda (_%id174394%_) - (let ((__tmp176473 - (gensym _%id174394%_))) + _%method-calls172575%_))) + (_%$methods174670%_ + (map (lambda (_%id174668%_) + (let ((__tmp176747 + (gensym _%id174668%_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp176473))) - _%methods174392%_)) - (_%_174405%_ + __tmp176747))) + _%methods174666%_)) + (_%_174679%_ (for-each - (lambda (_%g174397174400%_ - _%g174398174402%_) + (lambda (_%g174671174674%_ + _%g174672174676%_) (let () (declare (not safe)) (__hash-put! - _%method-calls172301%_ - _%g174397174400%_ - _%g174398174402%_))) - _%methods174392%_ - _%$methods174396%_)) - (_%methods-bind174415%_ - (map (lambda (_%g174407174410%_ - _%g174408174412%_) - (_%generate-method-bind172211%_ - _%$klass174388%_ - _%$method-table174390%_ - _%g174407174410%_ - _%g174408174412%_)) - _%methods174392%_ - _%$methods174396%_)) - (_%slots174417%_ + _%method-calls172575%_ + _%g174671174674%_ + _%g174672174676%_))) + _%methods174666%_ + _%$methods174670%_)) + (_%methods-bind174689%_ + (map (lambda (_%g174681174684%_ + _%g174682174686%_) + (_%generate-method-bind172485%_ + _%$klass174662%_ + _%$method-table174664%_ + _%g174681174684%_ + _%g174682174686%_)) + _%methods174666%_ + _%$methods174670%_)) + (_%slots174691%_ (let () (declare (not safe)) - (__hash-keys _%slot-refs172302%_))) - (_%$slots174421%_ - (map (lambda (_%id174419%_) - (let ((__tmp176474 - (gensym _%id174419%_))) + (__hash-keys _%slot-refs172576%_))) + (_%$slots174695%_ + (map (lambda (_%id174693%_) + (let ((__tmp176748 + (gensym _%id174693%_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp176474))) - _%slots174417%_)) - (_%_174430%_ + __tmp176748))) + _%slots174691%_)) + (_%_174704%_ (for-each - (lambda (_%g174422174425%_ - _%g174423174427%_) + (lambda (_%g174696174699%_ + _%g174697174701%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs172302%_ - _%g174422174425%_ - _%g174423174427%_))) - _%slots174417%_ - _%$slots174421%_)) - (_%slots-bind174439%_ - (map (lambda (_%g174431174434%_ - _%g174432174436%_) - (_%generate-slot-bind172212%_ - _%$klass174388%_ - _%g174431174434%_ - _%g174432174436%_)) - _%slots174417%_ - _%$slots174421%_)) - (_%specializer-impl174447%_ - (let* ((_%specializer-body174445%_ - (map (lambda (_%g174440174442%_) + _%slot-refs172576%_ + _%g174696174699%_ + _%g174697174701%_))) + _%slots174691%_ + _%$slots174695%_)) + (_%slots-bind174713%_ + (map (lambda (_%g174705174708%_ + _%g174706174710%_) + (_%generate-slot-bind172486%_ + _%$klass174662%_ + _%g174705174708%_ + _%g174706174710%_)) + _%slots174691%_ + _%$slots174695%_)) + (_%specializer-impl174721%_ + (let* ((_%specializer-body174719%_ + (map (lambda (_%g174714174716%_) (gxc#apply-subst-object-refs__% '#f - _%receiver174373%_ - _%$klass174388%_ - _%method-calls172301%_ - _%slot-refs172302%_ - _%g174440174442%_)) - _%L174350%_)) - (__tmp176475 + _%receiver174647%_ + _%$klass174662%_ + _%method-calls172575%_ + _%slot-refs172576%_ + _%g174714174716%_)) + _%L174624%_)) + (__tmp176749 (cons '%#let-values - (cons (cons (cons (cons _%L174011%_ + (cons (cons (cons (cons _%L174285%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L174010%_ + (cons (cons (cons (cons _%L174284%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp176476 + (cons (let ((__tmp176750 (cons '%#lambda - (cons _%L174351%_ - _%specializer-body174445%_)))) + (cons _%L174625%_ + _%specializer-body174719%_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp176476 _%L174009%_)) + (gxc#xform-wrap-source __tmp176750 _%L174283%_)) '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L174008%_ '()))) + (cons _%L174282%_ '()))) '())) '()) - (cons _%L174007%_ '()))))) + (cons _%L174281%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp176475 - _%stx172209%_))) - (_%specializer-impl174449%_ - (_%generate-specializer-impl172213%_ - _%$klass174388%_ - _%$method-table174390%_ - _%methods-bind174415%_ - _%slots-bind174439%_ - _%specializer-impl174447%_))) - (let ((__tmp176478 + __tmp176749 + _%stx172483%_))) + (_%specializer-impl174723%_ + (_%generate-specializer-impl172487%_ + _%$klass174662%_ + _%$method-table174664%_ + _%methods-bind174689%_ + _%slots-bind174713%_ + _%specializer-impl174721%_))) + (let ((__tmp176752 (let () (declare (not safe)) - (gx#stx-e _%L172282%_))) - (__tmp176477 + (gx#stx-e _%L172556%_))) + (__tmp176751 (let () (declare (not safe)) (gx#stx-e - _%specializer-id174386%_)))) + _%specializer-id174660%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp176478 + __tmp176752 '" => " - __tmp176477)) - (_%generate-specializer-def172214%_ - _%L172282%_ - _%specializer-id174386%_ - _%specializer-impl174449%_))))) - _%tl174324174347%_ - _%hd174323174345%_))) - (_%g174315174329%_ _%g174316174332%_)))) + __tmp176751)) + (_%generate-specializer-def172488%_ + _%L172556%_ + _%specializer-id174660%_ + _%specializer-impl174723%_))))) + _%tl174598174621%_ + _%hd174597174619%_))) + (_%g174589174603%_ _%g174590174606%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174315174329%_ - _%g174316174332%_))))) - (_%g174314174452%_ _%L174009%_)) + (_%g174589174603%_ + _%g174590174606%_))))) + (_%g174588174726%_ _%L174283%_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _%L174009%_)) - (let* ((_%g174456174486%_ - (lambda (_%g174457174483%_) + (gxc#opt-lambda-expr? _%L174283%_)) + (let* ((_%g174730174760%_ + (lambda (_%g174731174757%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174457174483%_)))) - (_%g174455175054%_ - (lambda (_%g174457174489%_) + _%g174731174757%_)))) + (_%g174729175328%_ + (lambda (_%g174731174763%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174457174489%_)) - (let ((_%e174461174491%_ + _%g174731174763%_)) + (let ((_%e174735174765%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%g174457174489%_)))) - (let ((_%hd174462174494%_ + (gx#stx-e _%g174731174763%_)))) + (let ((_%hd174736174768%_ (let () (declare (not safe)) - (##car _%e174461174491%_))) - (_%tl174463174496%_ + (##car _%e174735174765%_))) + (_%tl174737174770%_ (let () (declare (not safe)) - (##cdr _%e174461174491%_)))) + (##cdr _%e174735174765%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174463174496%_)) - (let ((_%e174464174499%_ + (gx#stx-pair? _%tl174737174770%_)) + (let ((_%e174738174773%_ (let () (declare (not safe)) - (gx#stx-e _%tl174463174496%_)))) - (let ((_%hd174465174502%_ + (gx#stx-e _%tl174737174770%_)))) + (let ((_%hd174739174776%_ (let () (declare (not safe)) - (##car _%e174464174499%_))) - (_%tl174466174504%_ + (##car _%e174738174773%_))) + (_%tl174740174778%_ (let () (declare (not safe)) - (##cdr _%e174464174499%_)))) + (##cdr _%e174738174773%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174465174502%_)) - (let ((_%e174467174507%_ + (gx#stx-pair? _%hd174739174776%_)) + (let ((_%e174741174781%_ (let () (declare (not safe)) - (gx#stx-e _%hd174465174502%_)))) - (let ((_%hd174468174510%_ + (gx#stx-e _%hd174739174776%_)))) + (let ((_%hd174742174784%_ (let () (declare (not safe)) - (##car _%e174467174507%_))) - (_%tl174469174512%_ + (##car _%e174741174781%_))) + (_%tl174743174786%_ (let () (declare (not safe)) - (##cdr _%e174467174507%_)))) + (##cdr _%e174741174781%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174468174510%_)) - (let ((_%e174470174515%_ + (gx#stx-pair? _%hd174742174784%_)) + (let ((_%e174744174789%_ (let () (declare (not safe)) (gx#stx-e - _%hd174468174510%_)))) - (let ((_%hd174471174518%_ + _%hd174742174784%_)))) + (let ((_%hd174745174792%_ (let () (declare (not safe)) - (##car _%e174470174515%_))) - (_%tl174472174520%_ + (##car _%e174744174789%_))) + (_%tl174746174794%_ (let () (declare (not safe)) - (##cdr _%e174470174515%_)))) + (##cdr _%e174744174789%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174471174518%_)) - (let ((_%e174473174523%_ + _%hd174745174792%_)) + (let ((_%e174747174797%_ (let () (declare (not safe)) (gx#stx-e - _%hd174471174518%_)))) - (let ((_%hd174474174526%_ + _%hd174745174792%_)))) + (let ((_%hd174748174800%_ (let () (declare (not safe)) - (##car _%e174473174523%_))) - (_%tl174475174528%_ + (##car _%e174747174797%_))) + (_%tl174749174802%_ (let () (declare (not safe)) - (##cdr _%e174473174523%_)))) + (##cdr _%e174747174797%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174475174528%_)) + _%tl174749174802%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174472174520%_)) - (let ((_%e174476174531%_ + _%tl174746174794%_)) + (let ((_%e174750174805%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl174472174520%_)))) - (let ((_%hd174477174534%_ + (gx#stx-e _%tl174746174794%_)))) + (let ((_%hd174751174808%_ (let () (declare (not safe)) - (##car _%e174476174531%_))) - (_%tl174478174536%_ + (##car _%e174750174805%_))) + (_%tl174752174810%_ (let () (declare (not safe)) - (##cdr _%e174476174531%_)))) + (##cdr _%e174750174805%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174478174536%_)) + (gx#stx-null? _%tl174752174810%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174469174512%_)) + (gx#stx-null? _%tl174743174786%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174466174504%_)) - (let ((_%e174479174539%_ + (gx#stx-pair? _%tl174740174778%_)) + (let ((_%e174753174813%_ (let () (declare (not safe)) - (gx#stx-e _%tl174466174504%_)))) - (let ((_%hd174480174542%_ + (gx#stx-e _%tl174740174778%_)))) + (let ((_%hd174754174816%_ (let () (declare (not safe)) - (##car _%e174479174539%_))) - (_%tl174481174544%_ + (##car _%e174753174813%_))) + (_%tl174755174818%_ (let () (declare (not safe)) - (##cdr _%e174479174539%_)))) + (##cdr _%e174753174813%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174481174544%_)) - ((lambda (_%L174547%_ - _%L174548%_ - _%L174549%_) - (let* ((_%g174573174587%_ - (lambda (_%g174574174584%_) + (gx#stx-null? _%tl174755174818%_)) + ((lambda (_%L174821%_ + _%L174822%_ + _%L174823%_) + (let* ((_%g174847174861%_ + (lambda (_%g174848174858%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174574174584%_)))) - (_%g174572174634%_ - (lambda (_%g174574174590%_) + _%g174848174858%_)))) + (_%g174846174908%_ + (lambda (_%g174848174864%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174574174590%_)) - (let ((_%e174577174592%_ + _%g174848174864%_)) + (let ((_%e174851174866%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g174574174590%_)))) - (let ((_%hd174578174595%_ + (gx#stx-e _%g174848174864%_)))) + (let ((_%hd174852174869%_ (let () (declare (not safe)) - (##car _%e174577174592%_))) - (_%tl174579174597%_ + (##car _%e174851174866%_))) + (_%tl174853174871%_ (let () (declare (not safe)) - (##cdr _%e174577174592%_)))) + (##cdr _%e174851174866%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174579174597%_)) - (let ((_%e174580174600%_ + (gx#stx-pair? _%tl174853174871%_)) + (let ((_%e174854174874%_ (let () (declare (not safe)) - (gx#stx-e _%tl174579174597%_)))) - (let ((_%hd174581174603%_ + (gx#stx-e _%tl174853174871%_)))) + (let ((_%hd174855174877%_ (let () (declare (not safe)) - (##car _%e174580174600%_))) - (_%tl174582174605%_ + (##car _%e174854174874%_))) + (_%tl174856174879%_ (let () (declare (not safe)) - (##cdr _%e174580174600%_)))) - ((lambda (_%L174608%_ _%L174609%_) - (let* ((_%self174622%_ + (##cdr _%e174854174874%_)))) + ((lambda (_%L174882%_ _%L174883%_) + (let* ((_%self174896%_ (list-ref - _%L174609%_ - _%self-index174311%_)) - (_%receiver174627%_ - (let ((_%$e174624%_ + _%L174883%_ + _%self-index174585%_)) + (_%receiver174901%_ + (let ((_%$e174898%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L174608%_)))) - (if _%$e174624%_ - _%$e174624%_ - _%self174622%_)))) + _%L174882%_)))) + (if _%$e174898%_ + _%$e174898%_ + _%self174896%_)))) (for-each - (lambda (_%g174629174631%_) + (lambda (_%g174903174905%_) (gxc#apply-collect-object-refs__% '#f - _%receiver174627%_ - _%method-calls172301%_ - _%slot-refs172302%_ - _%g174629174631%_)) - _%L174608%_))) - _%tl174582174605%_ - _%hd174581174603%_))) - (_%g174573174587%_ _%g174574174590%_)))) - (_%g174573174587%_ _%g174574174590%_))))) + _%receiver174901%_ + _%method-calls172575%_ + _%slot-refs172576%_ + _%g174903174905%_)) + _%L174882%_))) + _%tl174856174879%_ + _%hd174855174877%_))) + (_%g174847174861%_ _%g174848174864%_)))) + (_%g174847174861%_ _%g174848174864%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174572174634%_ - _%L174548%_)) - (let* ((_%g174637174656%_ - (lambda (_%g174638174653%_) + (_%g174846174908%_ + _%L174822%_)) + (let* ((_%g174911174930%_ + (lambda (_%g174912174927%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174638174653%_)))) - (_%g174636174767%_ - (lambda (_%g174638174659%_) + _%g174912174927%_)))) + (_%g174910175041%_ + (lambda (_%g174912174933%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174638174659%_)) - (let ((_%e174640174661%_ + _%g174912174933%_)) + (let ((_%e174914174935%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g174638174659%_)))) - (let ((_%hd174641174664%_ + (gx#stx-e _%g174912174933%_)))) + (let ((_%hd174915174938%_ (let () (declare (not safe)) - (##car _%e174640174661%_))) - (_%tl174642174666%_ + (##car _%e174914174935%_))) + (_%tl174916174940%_ (let () (declare (not safe)) - (##cdr _%e174640174661%_)))) + (##cdr _%e174914174935%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174642174666%_)) - (let ((_g176479_ + (gx#stx-pair/null? _%tl174916174940%_)) + (let ((_g176753_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl174642174666%_ + _%tl174916174940%_ '0)))) (begin - (let ((_g176480_ + (let ((_g176754_ (let () (declare (not safe)) - (if (##values? _g176479_) - (##vector-length _g176479_) + (if (##values? _g176753_) + (##vector-length _g176753_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g176480_ 2))) + (##fx= _g176754_ 2))) (error "Context expects 2 values" - _g176480_))) - (let ((_%target174643174669%_ + _g176754_))) + (let ((_%target174917174943%_ (let () (declare (not safe)) - (##vector-ref _g176479_ 0))) - (_%tl174645174671%_ + (##vector-ref _g176753_ 0))) + (_%tl174919174945%_ (let () (declare (not safe)) - (##vector-ref _g176479_ 1)))) + (##vector-ref _g176753_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174645174671%_)) - (letrec ((_%loop174646174674%_ - (lambda (_%hd174644174677%_ - _%clause174650174679%_) + (gx#stx-null? _%tl174919174945%_)) + (letrec ((_%loop174920174948%_ + (lambda (_%hd174918174951%_ + _%clause174924174953%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174644174677%_)) - (let ((_%e174647174682%_ + _%hd174918174951%_)) + (let ((_%e174921174956%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd174644174677%_)))) - (let ((_%lp-hd174648174685%_ - (let () (declare (not safe)) (##car _%e174647174682%_))) - (_%lp-tl174649174687%_ + (gx#stx-e _%hd174918174951%_)))) + (let ((_%lp-hd174922174959%_ + (let () (declare (not safe)) (##car _%e174921174956%_))) + (_%lp-tl174923174961%_ (let () (declare (not safe)) - (##cdr _%e174647174682%_)))) - (_%loop174646174674%_ - _%lp-tl174649174687%_ - (cons _%lp-hd174648174685%_ _%clause174650174679%_)))) - (let ((_%clause174651174690%_ (reverse _%clause174650174679%_))) - ((lambda (_%L174693%_) + (##cdr _%e174921174956%_)))) + (_%loop174920174948%_ + _%lp-tl174923174961%_ + (cons _%lp-hd174922174959%_ _%clause174924174953%_)))) + (let ((_%clause174925174964%_ (reverse _%clause174924174953%_))) + ((lambda (_%L174967%_) (for-each - (lambda (_%clause174706%_) - (let* ((_%g174708174719%_ - (lambda (_%g174709174716%_) + (lambda (_%clause174980%_) + (let* ((_%g174982174993%_ + (lambda (_%g174983174990%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174709174716%_)))) - (_%g174707174757%_ - (lambda (_%g174709174722%_) + _%g174983174990%_)))) + (_%g174981175031%_ + (lambda (_%g174983174996%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g174709174722%_)) - (let ((_%e174712174724%_ + (gx#stx-pair? _%g174983174996%_)) + (let ((_%e174986174998%_ (let () (declare (not safe)) - (gx#stx-e _%g174709174722%_)))) - (let ((_%hd174713174727%_ + (gx#stx-e _%g174983174996%_)))) + (let ((_%hd174987175001%_ (let () (declare (not safe)) - (##car _%e174712174724%_))) - (_%tl174714174729%_ + (##car _%e174986174998%_))) + (_%tl174988175003%_ (let () (declare (not safe)) - (##cdr _%e174712174724%_)))) - ((lambda (_%L174732%_ _%L174733%_) - (let* ((_%self174745%_ + (##cdr _%e174986174998%_)))) + ((lambda (_%L175006%_ _%L175007%_) + (let* ((_%self175019%_ (list-ref - _%L174733%_ - _%self-index174311%_)) - (_%receiver174750%_ - (let ((_%$e174747%_ + _%L175007%_ + _%self-index174585%_)) + (_%receiver175024%_ + (let ((_%$e175021%_ (gxc#apply-extract-receiver (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L174732%_)))) + _%L175006%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e174747%_ - _%$e174747%_ - _%self174745%_)))) + (if _%$e175021%_ + _%$e175021%_ + _%self175019%_)))) (for-each - (lambda (_%g174752174754%_) + (lambda (_%g175026175028%_) (gxc#apply-collect-object-refs__% '#f - _%receiver174750%_ - _%method-calls172301%_ - _%slot-refs172302%_ - _%g174752174754%_)) - _%L174732%_))) - _%tl174714174729%_ - _%hd174713174727%_))) - (_%g174708174719%_ _%g174709174722%_))))) - (_%g174707174757%_ _%clause174706%_))) - (let ((__tmp176481 - (lambda (_%g174759174762%_ _%g174760174764%_) - (cons _%g174759174762%_ _%g174760174764%_)))) + _%receiver175024%_ + _%method-calls172575%_ + _%slot-refs172576%_ + _%g175026175028%_)) + _%L175006%_))) + _%tl174988175003%_ + _%hd174987175001%_))) + (_%g174982174993%_ _%g174983174996%_))))) + (_%g174981175031%_ _%clause174980%_))) + (let ((__tmp176755 + (lambda (_%g175033175036%_ _%g175034175038%_) + (cons _%g175033175036%_ _%g175034175038%_)))) (declare (not safe)) - (__foldr1 __tmp176481 '() _%L174693%_)))) - _%clause174651174690%_)))))) + (__foldr1 __tmp176755 '() _%L174967%_)))) + _%clause174925174964%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop174646174674%_ - _%target174643174669%_ + (_%loop174920174948%_ + _%target174917174943%_ '())) - (_%g174637174656%_ _%g174638174659%_))))) - (_%g174637174656%_ _%g174638174659%_)))) - (_%g174637174656%_ _%g174638174659%_))))) + (_%g174911174930%_ _%g174912174933%_))))) + (_%g174911174930%_ _%g174912174933%_)))) + (_%g174911174930%_ _%g174912174933%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174636174767%_ - _%L174547%_)) - (if (_%no-specializer?172305%_) - _%stx172209%_ - (let* ((_%specializer-id174776%_ - (let* ((_%id174770%_ + (_%g174910175041%_ + _%L174821%_)) + (if (_%no-specializer?172579%_) + _%stx172483%_ + (let* ((_%specializer-id175050%_ + (let* ((_%id175044%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp176482 + (let ((__tmp176756 (let () (declare (not safe)) - (gx#stx-e _%L172282%_)))) + (gx#stx-e _%L172556%_)))) (declare (not safe)) - (make-symbol__1 __tmp176482 '"::specialize"))) - (_%specializer-id174773%_ - (let ((__tmp176483 + (make-symbol__1 __tmp176756 '"::specialize"))) + (_%specializer-id175047%_ + (let ((__tmp176757 (let () (declare (not safe)) - (gx#stx-source _%stx172209%_)))) + (gx#stx-source _%stx172483%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id174770%_ - __tmp176483)))) + _%id175044%_ + __tmp176757)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id174773%_)) - _%specializer-id174773%_)) - (_%$klass174778%_ - (let ((__tmp176484 + (gx#core-bind-runtime!__0 _%specializer-id175047%_)) + _%specializer-id175047%_)) + (_%$klass175052%_ + (let ((__tmp176758 (let () (declare (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp176484))) - (_%$method-table174780%_ - (let ((__tmp176485 + (make-symbol__0 __tmp176758))) + (_%$method-table175054%_ + (let ((__tmp176759 (let () (declare (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp176485))) - (_%methods174782%_ + (make-symbol__0 __tmp176759))) + (_%methods175056%_ (let () (declare (not safe)) - (__hash-keys _%method-calls172301%_))) - (_%$methods174786%_ - (map (lambda (_%id174784%_) - (let ((__tmp176486 (gensym _%id174784%_))) + (__hash-keys _%method-calls172575%_))) + (_%$methods175060%_ + (map (lambda (_%id175058%_) + (let ((__tmp176760 (gensym _%id175058%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp176486))) - _%methods174782%_)) - (_%_174795%_ + (make-symbol__1 '"__" __tmp176760))) + _%methods175056%_)) + (_%_175069%_ (for-each - (lambda (_%g174787174790%_ _%g174788174792%_) + (lambda (_%g175061175064%_ _%g175062175066%_) (let () (declare (not safe)) (__hash-put! - _%method-calls172301%_ - _%g174787174790%_ - _%g174788174792%_))) - _%methods174782%_ - _%$methods174786%_)) - (_%methods-bind174805%_ - (map (lambda (_%g174797174800%_ _%g174798174802%_) - (_%generate-method-bind172211%_ - _%$klass174778%_ - _%$method-table174780%_ - _%g174797174800%_ - _%g174798174802%_)) - _%methods174782%_ - _%$methods174786%_)) - (_%slots174807%_ + _%method-calls172575%_ + _%g175061175064%_ + _%g175062175066%_))) + _%methods175056%_ + _%$methods175060%_)) + (_%methods-bind175079%_ + (map (lambda (_%g175071175074%_ _%g175072175076%_) + (_%generate-method-bind172485%_ + _%$klass175052%_ + _%$method-table175054%_ + _%g175071175074%_ + _%g175072175076%_)) + _%methods175056%_ + _%$methods175060%_)) + (_%slots175081%_ (let () (declare (not safe)) - (__hash-keys _%slot-refs172302%_))) - (_%$slots174811%_ - (map (lambda (_%id174809%_) - (let ((__tmp176487 (gensym _%id174809%_))) + (__hash-keys _%slot-refs172576%_))) + (_%$slots175085%_ + (map (lambda (_%id175083%_) + (let ((__tmp176761 (gensym _%id175083%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp176487))) - _%slots174807%_)) - (_%_174820%_ + (make-symbol__1 '"__" __tmp176761))) + _%slots175081%_)) + (_%_175094%_ (for-each - (lambda (_%g174812174815%_ _%g174813174817%_) + (lambda (_%g175086175089%_ _%g175087175091%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs172302%_ - _%g174812174815%_ - _%g174813174817%_))) - _%slots174807%_ - _%$slots174811%_)) - (_%slots-bind174829%_ - (map (lambda (_%g174821174824%_ _%g174822174826%_) - (_%generate-slot-bind172212%_ - _%$klass174778%_ - _%g174821174824%_ - _%g174822174826%_)) - _%slots174807%_ - _%$slots174811%_)) - (_%specializer-lambda-expr174907%_ - (let* ((_%g174831174845%_ - (lambda (_%g174832174842%_) + _%slot-refs172576%_ + _%g175086175089%_ + _%g175087175091%_))) + _%slots175081%_ + _%$slots175085%_)) + (_%slots-bind175103%_ + (map (lambda (_%g175095175098%_ _%g175096175100%_) + (_%generate-slot-bind172486%_ + _%$klass175052%_ + _%g175095175098%_ + _%g175096175100%_)) + _%slots175081%_ + _%$slots175085%_)) + (_%specializer-lambda-expr175181%_ + (let* ((_%g175105175119%_ + (lambda (_%g175106175116%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174832174842%_)))) - (_%g174830174904%_ - (lambda (_%g174832174848%_) + _%g175106175116%_)))) + (_%g175104175178%_ + (lambda (_%g175106175122%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g174832174848%_)) - (let ((_%e174835174850%_ + (gx#stx-pair? _%g175106175122%_)) + (let ((_%e175109175124%_ (let () (declare (not safe)) - (gx#stx-e _%g174832174848%_)))) - (let ((_%hd174836174853%_ + (gx#stx-e _%g175106175122%_)))) + (let ((_%hd175110175127%_ (let () (declare (not safe)) - (##car _%e174835174850%_))) - (_%tl174837174855%_ + (##car _%e175109175124%_))) + (_%tl175111175129%_ (let () (declare (not safe)) - (##cdr _%e174835174850%_)))) + (##cdr _%e175109175124%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174837174855%_)) - (let ((_%e174838174858%_ + (gx#stx-pair? _%tl175111175129%_)) + (let ((_%e175112175132%_ (let () (declare (not safe)) (gx#stx-e - _%tl174837174855%_)))) - (let ((_%hd174839174861%_ + _%tl175111175129%_)))) + (let ((_%hd175113175135%_ (let () (declare (not safe)) - (##car _%e174838174858%_))) - (_%tl174840174863%_ + (##car _%e175112175132%_))) + (_%tl175114175137%_ (let () (declare (not safe)) - (##cdr _%e174838174858%_)))) - ((lambda (_%L174866%_ _%L174867%_) - (let* ((_%self174890%_ + (##cdr _%e175112175132%_)))) + ((lambda (_%L175140%_ _%L175141%_) + (let* ((_%self175164%_ (list-ref - _%L174867%_ - _%self-index174311%_)) - (_%receiver174895%_ - (let ((_%$e174892%_ + _%L175141%_ + _%self-index174585%_)) + (_%receiver175169%_ + (let ((_%$e175166%_ (gxc#apply-extract-receiver (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L174866%_)))) - (if _%$e174892%_ _%$e174892%_ _%self174890%_))) - (_%body174901%_ - (map (lambda (_%g174896174898%_) + _%L175140%_)))) + (if _%$e175166%_ _%$e175166%_ _%self175164%_))) + (_%body175175%_ + (map (lambda (_%g175170175172%_) (gxc#apply-subst-object-refs__% '#f - _%receiver174895%_ - _%$klass174778%_ - _%method-calls172301%_ - _%slot-refs172302%_ - _%g174896174898%_)) - _%L174866%_)) - (__tmp176488 (cons '%#lambda (cons _%L174867%_ _%body174901%_)))) + _%receiver175169%_ + _%$klass175052%_ + _%method-calls172575%_ + _%slot-refs172576%_ + _%g175170175172%_)) + _%L175140%_)) + (__tmp176762 (cons '%#lambda (cons _%L175141%_ _%body175175%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp176488 - _%L174548%_))) - _%tl174840174863%_ - _%hd174839174861%_))) - (_%g174831174845%_ - _%g174832174848%_)))) - (_%g174831174845%_ _%g174832174848%_))))) - (_%g174830174904%_ _%L174548%_))) - (_%specializer-case-lambda-expr175047%_ - (let* ((_%g174909174928%_ - (lambda (_%g174910174925%_) + __tmp176762 + _%L174822%_))) + _%tl175114175137%_ + _%hd175113175135%_))) + (_%g175105175119%_ + _%g175106175122%_)))) + (_%g175105175119%_ _%g175106175122%_))))) + (_%g175104175178%_ _%L174822%_))) + (_%specializer-case-lambda-expr175321%_ + (let* ((_%g175183175202%_ + (lambda (_%g175184175199%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174910174925%_)))) - (_%g174908175044%_ - (lambda (_%g174910174931%_) + _%g175184175199%_)))) + (_%g175182175318%_ + (lambda (_%g175184175205%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g174910174931%_)) - (let ((_%e174912174933%_ + (gx#stx-pair? _%g175184175205%_)) + (let ((_%e175186175207%_ (let () (declare (not safe)) - (gx#stx-e _%g174910174931%_)))) - (let ((_%hd174913174936%_ + (gx#stx-e _%g175184175205%_)))) + (let ((_%hd175187175210%_ (let () (declare (not safe)) - (##car _%e174912174933%_))) - (_%tl174914174938%_ + (##car _%e175186175207%_))) + (_%tl175188175212%_ (let () (declare (not safe)) - (##cdr _%e174912174933%_)))) + (##cdr _%e175186175207%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl174914174938%_)) - (let ((_g176489_ + _%tl175188175212%_)) + (let ((_g176763_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl174914174938%_ + _%tl175188175212%_ '0)))) (begin - (let ((_g176490_ + (let ((_g176764_ (let () (declare (not safe)) - (if (##values? _g176489_) + (if (##values? _g176763_) (##vector-length - _g176489_) + _g176763_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g176490_ 2))) + (##fx= _g176764_ 2))) (error "Context expects 2 values" - _g176490_))) - (let ((_%target174915174941%_ + _g176764_))) + (let ((_%target175189175215%_ (let () (declare (not safe)) (##vector-ref - _g176489_ + _g176763_ 0))) - (_%tl174917174943%_ + (_%tl175191175217%_ (let () (declare (not safe)) (##vector-ref - _g176489_ + _g176763_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174917174943%_)) - (letrec ((_%loop174918174946%_ - (lambda (_%hd174916174949%_ + _%tl175191175217%_)) + (letrec ((_%loop175192175220%_ + (lambda (_%hd175190175223%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause174922174951%_) + _%clause175196175225%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174916174949%_)) - (let ((_%e174919174954%_ + (gx#stx-pair? _%hd175190175223%_)) + (let ((_%e175193175228%_ (let () (declare (not safe)) - (gx#stx-e _%hd174916174949%_)))) - (let ((_%lp-hd174920174957%_ + (gx#stx-e _%hd175190175223%_)))) + (let ((_%lp-hd175194175231%_ (let () (declare (not safe)) - (##car _%e174919174954%_))) - (_%lp-tl174921174959%_ + (##car _%e175193175228%_))) + (_%lp-tl175195175233%_ (let () (declare (not safe)) - (##cdr _%e174919174954%_)))) - (_%loop174918174946%_ - _%lp-tl174921174959%_ - (cons _%lp-hd174920174957%_ - _%clause174922174951%_)))) - (let ((_%clause174923174962%_ - (reverse _%clause174922174951%_))) - ((lambda (_%L174965%_) - (let* ((_%clauses175042%_ - (map (lambda (_%clause174979%_) - (let* ((_%g174981174992%_ - (lambda (_%g174982174989%_) + (##cdr _%e175193175228%_)))) + (_%loop175192175220%_ + _%lp-tl175195175233%_ + (cons _%lp-hd175194175231%_ + _%clause175196175225%_)))) + (let ((_%clause175197175236%_ + (reverse _%clause175196175225%_))) + ((lambda (_%L175239%_) + (let* ((_%clauses175316%_ + (map (lambda (_%clause175253%_) + (let* ((_%g175255175266%_ + (lambda (_%g175256175263%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174982174989%_)))) - (_%g174980175032%_ - (lambda (_%g174982174995%_) + _%g175256175263%_)))) + (_%g175254175306%_ + (lambda (_%g175256175269%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174982174995%_)) - (let ((_%e174985174997%_ + _%g175256175269%_)) + (let ((_%e175259175271%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g174982174995%_)))) - (let ((_%hd174986175000%_ + (gx#stx-e _%g175256175269%_)))) + (let ((_%hd175260175274%_ (let () (declare (not safe)) - (##car _%e174985174997%_))) - (_%tl174987175002%_ + (##car _%e175259175271%_))) + (_%tl175261175276%_ (let () (declare (not safe)) - (##cdr _%e174985174997%_)))) - ((lambda (_%L175005%_ _%L175006%_) - (let* ((_%self175018%_ - (list-ref _%L175006%_ _%self-index174311%_)) - (_%receiver175023%_ - (let ((_%$e175020%_ + (##cdr _%e175259175271%_)))) + ((lambda (_%L175279%_ _%L175280%_) + (let* ((_%self175292%_ + (list-ref _%L175280%_ _%self-index174585%_)) + (_%receiver175297%_ + (let ((_%$e175294%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L175005%_)))) - (if _%$e175020%_ - _%$e175020%_ - _%self175018%_))) - (_%body175029%_ - (map (lambda (_%g175024175026%_) + _%L175279%_)))) + (if _%$e175294%_ + _%$e175294%_ + _%self175292%_))) + (_%body175303%_ + (map (lambda (_%g175298175300%_) (gxc#apply-subst-object-refs__% '#f - _%receiver175023%_ - _%$klass174778%_ - _%method-calls172301%_ - _%slot-refs172302%_ - _%g175024175026%_)) - _%L175005%_))) - (cons _%L175006%_ _%body175029%_))) - _%tl174987175002%_ - _%hd174986175000%_))) - (_%g174981174992%_ _%g174982174995%_))))) + _%receiver175297%_ + _%$klass175052%_ + _%method-calls172575%_ + _%slot-refs172576%_ + _%g175298175300%_)) + _%L175279%_))) + (cons _%L175280%_ _%body175303%_))) + _%tl175261175276%_ + _%hd175260175274%_))) + (_%g175255175266%_ _%g175256175269%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174980175032%_ - _%clause174979%_))) - (let ((__tmp176491 - (lambda (_%g175034175037%_ - _%g175035175039%_) - (cons _%g175034175037%_ - _%g175035175039%_)))) + (_%g175254175306%_ + _%clause175253%_))) + (let ((__tmp176765 + (lambda (_%g175308175311%_ + _%g175309175313%_) + (cons _%g175308175311%_ + _%g175309175313%_)))) (declare (not safe)) (__foldr1 - __tmp176491 + __tmp176765 '() - _%L174965%_)))) - (__tmp176492 + _%L175239%_)))) + (__tmp176766 (cons '%#case-lambda - _%clauses175042%_))) + _%clauses175316%_))) (declare (not safe)) (gxc#xform-wrap-source - __tmp176492 - _%L174547%_))) - _%clause174923174962%_)))))) + __tmp176766 + _%L174821%_))) + _%clause175197175236%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop174918174946%_ - _%target174915174941%_ + (_%loop175192175220%_ + _%target175189175215%_ '())) - (_%g174909174928%_ - _%g174910174931%_))))) - (_%g174909174928%_ - _%g174910174931%_)))) - (_%g174909174928%_ _%g174910174931%_))))) - (_%g174908175044%_ _%L174547%_))) - (_%specializer-impl175049%_ - (let ((__tmp176493 + (_%g175183175202%_ + _%g175184175205%_))))) + (_%g175183175202%_ + _%g175184175205%_)))) + (_%g175183175202%_ _%g175184175205%_))))) + (_%g175182175318%_ _%L174821%_))) + (_%specializer-impl175323%_ + (let ((__tmp176767 (cons '%#let-values - (cons (cons (cons (cons _%L174011%_ '()) + (cons (cons (cons (cons _%L174285%_ '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L174010%_ + (cons (cons (cons (cons _%L174284%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp176494 + (cons (let ((__tmp176768 (cons '%#let-values - (cons (cons (cons (cons _%L174549%_ + (cons (cons (cons (cons _%L174823%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%specializer-lambda-expr174907%_ + (cons _%specializer-lambda-expr175181%_ '())) '()) - (cons _%specializer-case-lambda-expr175047%_ '()))))) + (cons _%specializer-case-lambda-expr175321%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp176494 - _%stx172209%_)) + __tmp176768 + _%stx172483%_)) '())) '()) - (cons _%L174008%_ '()))) + (cons _%L174282%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons _%L174007%_ '()))))) + (cons _%L174281%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp176493 _%stx172209%_))) - (_%specializer-impl175051%_ - (_%generate-specializer-impl172213%_ - _%$klass174778%_ - _%$method-table174780%_ - _%methods-bind174805%_ - _%slots-bind174829%_ - _%specializer-impl175049%_))) + (gxc#xform-wrap-source __tmp176767 _%stx172483%_))) + (_%specializer-impl175325%_ + (_%generate-specializer-impl172487%_ + _%$klass175052%_ + _%$method-table175054%_ + _%methods-bind175079%_ + _%slots-bind175103%_ + _%specializer-impl175323%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp176496 + (let ((__tmp176770 (let () (declare (not safe)) (gx#stx-e - _%L172282%_))) - (__tmp176495 + _%L172556%_))) + (__tmp176769 (let () (declare (not safe)) (gx#stx-e - _%specializer-id174776%_)))) + _%specializer-id175050%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp176496 + __tmp176770 '" => " - __tmp176495)) - (_%generate-specializer-def172214%_ - _%L172282%_ - _%specializer-id174776%_ - _%specializer-impl175051%_)))) - _%hd174480174542%_ - _%hd174477174534%_ - _%hd174474174526%_) - (_%g174456174486%_ - _%g174457174489%_)))) - (_%g174456174486%_ _%g174457174489%_)) - (_%g174456174486%_ _%g174457174489%_)) - (_%g174456174486%_ _%g174457174489%_)))) - (_%g174456174486%_ _%g174457174489%_)) - (_%g174456174486%_ _%g174457174489%_)))) + __tmp176769)) + (_%generate-specializer-def172488%_ + _%L172556%_ + _%specializer-id175050%_ + _%specializer-impl175325%_)))) + _%hd174754174816%_ + _%hd174751174808%_ + _%hd174748174800%_) + (_%g174730174760%_ + _%g174731174763%_)))) + (_%g174730174760%_ _%g174731174763%_)) + (_%g174730174760%_ _%g174731174763%_)) + (_%g174730174760%_ _%g174731174763%_)))) + (_%g174730174760%_ _%g174731174763%_)) + (_%g174730174760%_ _%g174731174763%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174456174486%_ - _%g174457174489%_)))) - (_%g174456174486%_ _%g174457174489%_)))) - (_%g174456174486%_ _%g174457174489%_)))) - (_%g174456174486%_ _%g174457174489%_)))) - (_%g174456174486%_ _%g174457174489%_))))) + (_%g174730174760%_ + _%g174731174763%_)))) + (_%g174730174760%_ _%g174731174763%_)))) + (_%g174730174760%_ _%g174731174763%_)))) + (_%g174730174760%_ _%g174731174763%_)))) + (_%g174730174760%_ _%g174731174763%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174455175054%_ _%L174009%_)) - _%stx172209%_)))) - _%hd174107174230%_ - _%kw-ref174105174251%_ - _%hd174095174217%_ - _%hd174086174193%_ - _%hd174077174169%_) - (_%g174051174113%_ _%g174052174116%_))))))) + (_%g174729175328%_ _%L174283%_)) + _%stx172483%_)))) + _%hd174381174504%_ + _%kw-ref174379174525%_ + _%hd174369174491%_ + _%hd174360174467%_ + _%hd174351174443%_) + (_%g174325174387%_ _%g174326174390%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop174100174235%_ - _%target174097174222%_ + (_%loop174374174509%_ + _%target174371174496%_ '())) - (_%g174051174113%_ - _%g174052174116%_)))) - (_%g174051174113%_ _%g174052174116%_))))) - (_%g174051174113%_ _%g174052174116%_)) - (_%g174051174113%_ _%g174052174116%_)) - (_%g174051174113%_ _%g174052174116%_)))) + (_%g174325174387%_ + _%g174326174390%_)))) + (_%g174325174387%_ _%g174326174390%_))))) + (_%g174325174387%_ _%g174326174390%_)) + (_%g174325174387%_ _%g174326174390%_)) + (_%g174325174387%_ _%g174326174390%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174051174113%_ - _%g174052174116%_)) - (_%g174051174113%_ - _%g174052174116%_)) - (_%g174051174113%_ - _%g174052174116%_)))) - (_%g174051174113%_ _%g174052174116%_)))) - (_%g174051174113%_ _%g174052174116%_)) - (_%g174051174113%_ _%g174052174116%_)))) - (_%g174051174113%_ _%g174052174116%_)) + (_%g174325174387%_ + _%g174326174390%_)) + (_%g174325174387%_ + _%g174326174390%_)) + (_%g174325174387%_ + _%g174326174390%_)))) + (_%g174325174387%_ _%g174326174390%_)))) + (_%g174325174387%_ _%g174326174390%_)) + (_%g174325174387%_ _%g174326174390%_)))) + (_%g174325174387%_ _%g174326174390%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174051174113%_ - _%g174052174116%_)) - (_%g174051174113%_ - _%g174052174116%_)))) - (_%g174051174113%_ - _%g174052174116%_)))) - (_%g174051174113%_ _%g174052174116%_)) - (_%g174051174113%_ _%g174052174116%_)))) - (_%g174051174113%_ _%g174052174116%_)) - (_%g174051174113%_ _%g174052174116%_)) + (_%g174325174387%_ + _%g174326174390%_)) + (_%g174325174387%_ + _%g174326174390%_)))) + (_%g174325174387%_ + _%g174326174390%_)))) + (_%g174325174387%_ _%g174326174390%_)) + (_%g174325174387%_ _%g174326174390%_)))) + (_%g174325174387%_ _%g174326174390%_)) + (_%g174325174387%_ _%g174326174390%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174051174113%_ - _%g174052174116%_)))) - (_%g174051174113%_ - _%g174052174116%_)))) - (_%g174051174113%_ _%g174052174116%_)) - (_%g174051174113%_ _%g174052174116%_)) - (_%g174051174113%_ _%g174052174116%_)))) - (_%g174051174113%_ _%g174052174116%_)))) + (_%g174325174387%_ + _%g174326174390%_)))) + (_%g174325174387%_ + _%g174326174390%_)))) + (_%g174325174387%_ _%g174326174390%_)) + (_%g174325174387%_ _%g174326174390%_)) + (_%g174325174387%_ _%g174326174390%_)))) + (_%g174325174387%_ _%g174326174390%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174051174113%_ - _%g174052174116%_)))) - (_%g174051174113%_ - _%g174052174116%_)) - (_%g174051174113%_ _%g174052174116%_)) - (_%g174051174113%_ _%g174052174116%_)))) - (_%g174051174113%_ _%g174052174116%_))))) - (_%g174050175058%_ _%L174008%_))) + (_%g174325174387%_ + _%g174326174390%_)))) + (_%g174325174387%_ + _%g174326174390%_)) + (_%g174325174387%_ _%g174326174390%_)) + (_%g174325174387%_ _%g174326174390%_)))) + (_%g174325174387%_ _%g174326174390%_))))) + (_%g174324175332%_ _%L174282%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd173884174002%_ - _%hd173881173994%_ - _%hd173878173986%_ - _%hd173875173978%_ - _%hd173857173930%_) - (_%g173837173890%_ - _%g173838173893%_)))) - (_%g173837173890%_ - _%g173838173893%_)) - (_%g173837173890%_ _%g173838173893%_)) - (_%g173837173890%_ _%g173838173893%_)) - (_%g173837173890%_ _%g173838173893%_)))) - (_%g173837173890%_ _%g173838173893%_)) - (_%g173837173890%_ _%g173838173893%_)) - (_%g173837173890%_ _%g173838173893%_)))) + _%hd174158174276%_ + _%hd174155174268%_ + _%hd174152174260%_ + _%hd174149174252%_ + _%hd174131174204%_) + (_%g174111174164%_ + _%g174112174167%_)))) + (_%g174111174164%_ + _%g174112174167%_)) + (_%g174111174164%_ _%g174112174167%_)) + (_%g174111174164%_ _%g174112174167%_)) + (_%g174111174164%_ _%g174112174167%_)))) + (_%g174111174164%_ _%g174112174167%_)) + (_%g174111174164%_ _%g174112174167%_)) + (_%g174111174164%_ _%g174112174167%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g173837173890%_ - _%g173838173893%_)) - (_%g173837173890%_ - _%g173838173893%_)))) - (_%g173837173890%_ _%g173838173893%_)))) - (_%g173837173890%_ _%g173838173893%_)))) - (_%g173837173890%_ _%g173838173893%_)))) + (_%g174111174164%_ + _%g174112174167%_)) + (_%g174111174164%_ + _%g174112174167%_)))) + (_%g174111174164%_ _%g174112174167%_)))) + (_%g174111174164%_ _%g174112174167%_)))) + (_%g174111174164%_ _%g174112174167%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g173837173890%_ - _%g173838173893%_)) - (_%g173837173890%_ - _%g173838173893%_)) - (_%g173837173890%_ - _%g173838173893%_)))) - (_%g173837173890%_ _%g173838173893%_)))) - (_%g173837173890%_ _%g173838173893%_)) - (_%g173837173890%_ _%g173838173893%_)))) - (_%g173837173890%_ _%g173838173893%_)))) + (_%g174111174164%_ + _%g174112174167%_)) + (_%g174111174164%_ + _%g174112174167%_)) + (_%g174111174164%_ + _%g174112174167%_)))) + (_%g174111174164%_ _%g174112174167%_)))) + (_%g174111174164%_ _%g174112174167%_)) + (_%g174111174164%_ _%g174112174167%_)))) + (_%g174111174164%_ _%g174112174167%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g173837173890%_ - _%g173838173893%_)))) - (_%g173837173890%_ _%g173838173893%_)))) - (_%g173837173890%_ _%g173838173893%_)) - (_%g173837173890%_ _%g173838173893%_)) - (_%g173837173890%_ _%g173838173893%_)))) - (_%g173837173890%_ _%g173838173893%_))))) + (_%g174111174164%_ + _%g174112174167%_)))) + (_%g174111174164%_ _%g174112174167%_)))) + (_%g174111174164%_ _%g174112174167%_)) + (_%g174111174164%_ _%g174112174167%_)) + (_%g174111174164%_ _%g174112174167%_)))) + (_%g174111174164%_ _%g174112174167%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g173836175061%_ _%L172281%_)) - _%stx172209%_)))))))) - (_%__kont175295175296%_ (lambda () _%stx172209%_))) - (let ((_%__match175324175325%_ - (lambda (_%e172221172249%_ - _%hd172222172252%_ - _%tl172223172254%_ - _%e172224172257%_ - _%hd172225172260%_ - _%tl172226172262%_ - _%e172227172265%_ - _%hd172228172268%_ - _%tl172229172270%_ - _%e172230172273%_ - _%hd172231172276%_ - _%tl172232172278%_) - (let ((_%L172281%_ _%hd172231172276%_) - (_%L172282%_ _%hd172228172268%_)) - (if (let ((__tmp176497 + (_%g174110175335%_ _%L172555%_)) + _%stx172483%_)))))))) + (_%__kont175569175570%_ (lambda () _%stx172483%_))) + (let ((_%__match175598175599%_ + (lambda (_%e172495172523%_ + _%hd172496172526%_ + _%tl172497172528%_ + _%e172498172531%_ + _%hd172499172534%_ + _%tl172500172536%_ + _%e172501172539%_ + _%hd172502172542%_ + _%tl172503172544%_ + _%e172504172547%_ + _%hd172505172550%_ + _%tl172506172552%_) + (let ((_%L172555%_ _%hd172505172550%_) + (_%L172556%_ _%hd172502172542%_)) + (if (let ((__tmp176771 (let () (declare (not safe)) - (gxc#identifier-symbol _%L172282%_)))) + (gxc#identifier-symbol _%L172556%_)))) (declare (not safe)) - (gxc#optimizer-top-level-method? __tmp176497)) - (_%__kont175293175294%_ _%L172281%_ _%L172282%_) - (_%__kont175295175296%_)))))) + (gxc#optimizer-top-level-method? __tmp176771)) + (_%__kont175567175568%_ _%L172555%_ _%L172556%_) + (_%__kont175569175570%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx175291175292%_)) - (let ((_%e172221172249%_ + (gx#stx-pair? _%__stx175565175566%_)) + (let ((_%e172495172523%_ (let () (declare (not safe)) - (gx#stx-e _%__stx175291175292%_)))) - (let ((_%tl172223172254%_ + (gx#stx-e _%__stx175565175566%_)))) + (let ((_%tl172497172528%_ (let () (declare (not safe)) - (##cdr _%e172221172249%_))) - (_%hd172222172252%_ + (##cdr _%e172495172523%_))) + (_%hd172496172526%_ (let () (declare (not safe)) - (##car _%e172221172249%_)))) + (##car _%e172495172523%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172223172254%_)) - (let ((_%e172224172257%_ + (gx#stx-pair? _%tl172497172528%_)) + (let ((_%e172498172531%_ (let () (declare (not safe)) - (gx#stx-e _%tl172223172254%_)))) - (let ((_%tl172226172262%_ + (gx#stx-e _%tl172497172528%_)))) + (let ((_%tl172500172536%_ (let () (declare (not safe)) - (##cdr _%e172224172257%_))) - (_%hd172225172260%_ + (##cdr _%e172498172531%_))) + (_%hd172499172534%_ (let () (declare (not safe)) - (##car _%e172224172257%_)))) + (##car _%e172498172531%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172225172260%_)) - (let ((_%e172227172265%_ + (gx#stx-pair? _%hd172499172534%_)) + (let ((_%e172501172539%_ (let () (declare (not safe)) - (gx#stx-e _%hd172225172260%_)))) - (let ((_%tl172229172270%_ + (gx#stx-e _%hd172499172534%_)))) + (let ((_%tl172503172544%_ (let () (declare (not safe)) - (##cdr _%e172227172265%_))) - (_%hd172228172268%_ + (##cdr _%e172501172539%_))) + (_%hd172502172542%_ (let () (declare (not safe)) - (##car _%e172227172265%_)))) + (##car _%e172501172539%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172229172270%_)) + _%tl172503172544%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172226172262%_)) - (let ((_%e172230172273%_ + _%tl172500172536%_)) + (let ((_%e172504172547%_ (let () (declare (not safe)) (gx#stx-e - _%tl172226172262%_)))) - (let ((_%tl172232172278%_ + _%tl172500172536%_)))) + (let ((_%tl172506172552%_ (let () (declare (not safe)) - (##cdr _%e172230172273%_))) - (_%hd172231172276%_ + (##cdr _%e172504172547%_))) + (_%hd172505172550%_ (let () (declare (not safe)) - (##car _%e172230172273%_)))) + (##car _%e172504172547%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172232172278%_)) - (_%__match175324175325%_ - _%e172221172249%_ - _%hd172222172252%_ - _%tl172223172254%_ - _%e172224172257%_ - _%hd172225172260%_ - _%tl172226172262%_ - _%e172227172265%_ - _%hd172228172268%_ - _%tl172229172270%_ - _%e172230172273%_ - _%hd172231172276%_ - _%tl172232172278%_) - (_%__kont175295175296%_)))) - (_%__kont175295175296%_)) - (_%__kont175295175296%_)))) - (_%__kont175295175296%_)))) - (_%__kont175295175296%_)))) - (_%__kont175295175296%_)))))))) + _%tl172506172552%_)) + (_%__match175598175599%_ + _%e172495172523%_ + _%hd172496172526%_ + _%tl172497172528%_ + _%e172498172531%_ + _%hd172499172534%_ + _%tl172500172536%_ + _%e172501172539%_ + _%hd172502172542%_ + _%tl172503172544%_ + _%e172504172547%_ + _%hd172505172550%_ + _%tl172506172552%_) + (_%__kont175569175570%_)))) + (_%__kont175569175570%_)) + (_%__kont175569175570%_)))) + (_%__kont175569175570%_)))) + (_%__kont175569175570%_)))) + (_%__kont175569175570%_)))))))) (define gxc#extract-receiver-begin-annotation% - (lambda (_%self172061%_ _%stx172062%_) - (let* ((_%__stx175327175328%_ _%stx172062%_) - (_%g172065172098%_ + (lambda (_%self172335%_ _%stx172336%_) + (let* ((_%__stx175601175602%_ _%stx172336%_) + (_%g172339172372%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx175327175328%_))))) - (let ((_%__kont175329175330%_ (lambda (_%L172188%_) _%L172188%_)) - (_%__kont175331175332%_ - (lambda (_%L172127%_ _%L172128%_) + _%__stx175601175602%_))))) + (let ((_%__kont175603175604%_ (lambda (_%L172462%_) _%L172462%_)) + (_%__kont175605175606%_ + (lambda (_%L172401%_ _%L172402%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self172061%_ _%L172127%_))))) + (gxc#compile-e__1 _%self172335%_ _%L172401%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx175327175328%_)) - (let ((_%e172068172148%_ + (gx#stx-pair? _%__stx175601175602%_)) + (let ((_%e172342172422%_ (let () (declare (not safe)) - (gx#stx-e _%__stx175327175328%_)))) - (let ((_%tl172070172153%_ + (gx#stx-e _%__stx175601175602%_)))) + (let ((_%tl172344172427%_ (let () (declare (not safe)) - (##cdr _%e172068172148%_))) - (_%hd172069172151%_ + (##cdr _%e172342172422%_))) + (_%hd172343172425%_ (let () (declare (not safe)) - (##car _%e172068172148%_)))) + (##car _%e172342172422%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172070172153%_)) - (let ((_%e172071172156%_ + (gx#stx-pair? _%tl172344172427%_)) + (let ((_%e172345172430%_ (let () (declare (not safe)) - (gx#stx-e _%tl172070172153%_)))) - (let ((_%tl172073172161%_ + (gx#stx-e _%tl172344172427%_)))) + (let ((_%tl172347172435%_ (let () (declare (not safe)) - (##cdr _%e172071172156%_))) - (_%hd172072172159%_ + (##cdr _%e172345172430%_))) + (_%hd172346172433%_ (let () (declare (not safe)) - (##car _%e172071172156%_)))) + (##car _%e172345172430%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172072172159%_)) - (let ((_%e172074172164%_ + (gx#stx-pair? _%hd172346172433%_)) + (let ((_%e172348172438%_ (let () (declare (not safe)) - (gx#stx-e _%hd172072172159%_)))) - (let ((_%tl172076172169%_ + (gx#stx-e _%hd172346172433%_)))) + (let ((_%tl172350172443%_ (let () (declare (not safe)) - (##cdr _%e172074172164%_))) - (_%hd172075172167%_ + (##cdr _%e172348172438%_))) + (_%hd172349172441%_ (let () (declare (not safe)) - (##car _%e172074172164%_)))) + (##car _%e172348172438%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd172075172167%_)) + (gx#identifier? _%hd172349172441%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@receiver - _%hd172075172167%_)) + _%hd172349172441%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172076172169%_)) - (let ((_%e172077172172%_ + _%tl172350172443%_)) + (let ((_%e172351172446%_ (let () (declare (not safe)) (gx#stx-e - _%tl172076172169%_)))) - (let ((_%tl172079172177%_ + _%tl172350172443%_)))) + (let ((_%tl172353172451%_ (let () (declare (not safe)) - (##cdr _%e172077172172%_))) - (_%hd172078172175%_ + (##cdr _%e172351172446%_))) + (_%hd172352172449%_ (let () (declare (not safe)) - (##car _%e172077172172%_)))) + (##car _%e172351172446%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172079172177%_)) + _%tl172353172451%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172073172161%_)) - (let ((_%e172080172180%_ + _%tl172347172435%_)) + (let ((_%e172354172454%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl172073172161%_)))) - (let ((_%tl172082172185%_ + (gx#stx-e _%tl172347172435%_)))) + (let ((_%tl172356172459%_ (let () (declare (not safe)) - (##cdr _%e172080172180%_))) - (_%hd172081172183%_ + (##cdr _%e172354172454%_))) + (_%hd172355172457%_ (let () (declare (not safe)) - (##car _%e172080172180%_)))) + (##car _%e172354172454%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172082172185%_)) - (_%__kont175329175330%_ _%hd172078172175%_) + (gx#stx-null? _%tl172356172459%_)) + (_%__kont175603175604%_ _%hd172352172449%_) (let () (declare (not safe)) - (_%g172065172098%_))))) - (let () (declare (not safe)) (_%g172065172098%_))) + (_%g172339172372%_))))) + (let () (declare (not safe)) (_%g172339172372%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172073172161%_)) - (let ((_%e172091172119%_ + (gx#stx-pair? _%tl172347172435%_)) + (let ((_%e172365172393%_ (let () (declare (not safe)) - (gx#stx-e _%tl172073172161%_)))) - (let ((_%tl172093172124%_ + (gx#stx-e _%tl172347172435%_)))) + (let ((_%tl172367172398%_ (let () (declare (not safe)) - (##cdr _%e172091172119%_))) - (_%hd172092172122%_ + (##cdr _%e172365172393%_))) + (_%hd172366172396%_ (let () (declare (not safe)) - (##car _%e172091172119%_)))) + (##car _%e172365172393%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172093172124%_)) - (_%__kont175331175332%_ - _%hd172092172122%_ - _%hd172072172159%_) + (gx#stx-null? _%tl172367172398%_)) + (_%__kont175605175606%_ + _%hd172366172396%_ + _%hd172346172433%_) (let () (declare (not safe)) - (_%g172065172098%_))))) - (let () (declare (not safe)) (_%g172065172098%_)))))) + (_%g172339172372%_))))) + (let () (declare (not safe)) (_%g172339172372%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172073172161%_)) - (let ((_%e172091172119%_ + _%tl172347172435%_)) + (let ((_%e172365172393%_ (let () (declare (not safe)) (gx#stx-e - _%tl172073172161%_)))) - (let ((_%tl172093172124%_ + _%tl172347172435%_)))) + (let ((_%tl172367172398%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e172091172119%_))) - (_%hd172092172122%_ - (let () (declare (not safe)) (##car _%e172091172119%_)))) + (##cdr _%e172365172393%_))) + (_%hd172366172396%_ + (let () (declare (not safe)) (##car _%e172365172393%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172093172124%_)) - (_%__kont175331175332%_ - _%hd172092172122%_ - _%hd172072172159%_) - (let () (declare (not safe)) (_%g172065172098%_))))) + (gx#stx-null? _%tl172367172398%_)) + (_%__kont175605175606%_ + _%hd172366172396%_ + _%hd172346172433%_) + (let () (declare (not safe)) (_%g172339172372%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g172065172098%_)))) + (_%g172339172372%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172073172161%_)) - (let ((_%e172091172119%_ + _%tl172347172435%_)) + (let ((_%e172365172393%_ (let () (declare (not safe)) (gx#stx-e - _%tl172073172161%_)))) - (let ((_%tl172093172124%_ + _%tl172347172435%_)))) + (let ((_%tl172367172398%_ (let () (declare (not safe)) - (##cdr _%e172091172119%_))) - (_%hd172092172122%_ + (##cdr _%e172365172393%_))) + (_%hd172366172396%_ (let () (declare (not safe)) - (##car _%e172091172119%_)))) + (##car _%e172365172393%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172093172124%_)) - (_%__kont175331175332%_ - _%hd172092172122%_ - _%hd172072172159%_) + _%tl172367172398%_)) + (_%__kont175605175606%_ + _%hd172366172396%_ + _%hd172346172433%_) (let () (declare (not safe)) - (_%g172065172098%_))))) + (_%g172339172372%_))))) (let () (declare (not safe)) - (_%g172065172098%_)))) + (_%g172339172372%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172073172161%_)) - (let ((_%e172091172119%_ + _%tl172347172435%_)) + (let ((_%e172365172393%_ (let () (declare (not safe)) (gx#stx-e - _%tl172073172161%_)))) - (let ((_%tl172093172124%_ + _%tl172347172435%_)))) + (let ((_%tl172367172398%_ (let () (declare (not safe)) - (##cdr _%e172091172119%_))) - (_%hd172092172122%_ + (##cdr _%e172365172393%_))) + (_%hd172366172396%_ (let () (declare (not safe)) - (##car _%e172091172119%_)))) + (##car _%e172365172393%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172093172124%_)) - (_%__kont175331175332%_ - _%hd172092172122%_ - _%hd172072172159%_) + _%tl172367172398%_)) + (_%__kont175605175606%_ + _%hd172366172396%_ + _%hd172346172433%_) (let () (declare (not safe)) - (_%g172065172098%_))))) + (_%g172339172372%_))))) (let () (declare (not safe)) - (_%g172065172098%_)))))) + (_%g172339172372%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172073172161%_)) - (let ((_%e172091172119%_ + (gx#stx-pair? _%tl172347172435%_)) + (let ((_%e172365172393%_ (let () (declare (not safe)) - (gx#stx-e _%tl172073172161%_)))) - (let ((_%tl172093172124%_ + (gx#stx-e _%tl172347172435%_)))) + (let ((_%tl172367172398%_ (let () (declare (not safe)) - (##cdr _%e172091172119%_))) - (_%hd172092172122%_ + (##cdr _%e172365172393%_))) + (_%hd172366172396%_ (let () (declare (not safe)) - (##car _%e172091172119%_)))) + (##car _%e172365172393%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172093172124%_)) - (_%__kont175331175332%_ - _%hd172092172122%_ - _%hd172072172159%_) + _%tl172367172398%_)) + (_%__kont175605175606%_ + _%hd172366172396%_ + _%hd172346172433%_) (let () (declare (not safe)) - (_%g172065172098%_))))) + (_%g172339172372%_))))) (let () (declare (not safe)) - (_%g172065172098%_)))))) - (let () (declare (not safe)) (_%g172065172098%_))))) - (let () (declare (not safe)) (_%g172065172098%_))))))) + (_%g172339172372%_)))))) + (let () (declare (not safe)) (_%g172339172372%_))))) + (let () (declare (not safe)) (_%g172339172372%_))))))) (define gxc#extract-receiver-if% - (lambda (_%self171977%_ _%stx171978%_) - (let* ((_%g171980172001%_ - (lambda (_%g171981171998%_) + (lambda (_%self172251%_ _%stx172252%_) + (let* ((_%g172254172275%_ + (lambda (_%g172255172272%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g171981171998%_)))) - (_%g171979172058%_ - (lambda (_%g171981172004%_) + _%g172255172272%_)))) + (_%g172253172332%_ + (lambda (_%g172255172278%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g171981172004%_)) - (let ((_%e171985172006%_ + (gx#stx-pair? _%g172255172278%_)) + (let ((_%e172259172280%_ (let () (declare (not safe)) - (gx#stx-e _%g171981172004%_)))) - (let ((_%hd171986172009%_ + (gx#stx-e _%g172255172278%_)))) + (let ((_%hd172260172283%_ (let () (declare (not safe)) - (##car _%e171985172006%_))) - (_%tl171987172011%_ + (##car _%e172259172280%_))) + (_%tl172261172285%_ (let () (declare (not safe)) - (##cdr _%e171985172006%_)))) + (##cdr _%e172259172280%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171987172011%_)) - (let ((_%e171988172014%_ + (gx#stx-pair? _%tl172261172285%_)) + (let ((_%e172262172288%_ (let () (declare (not safe)) - (gx#stx-e _%tl171987172011%_)))) - (let ((_%hd171989172017%_ + (gx#stx-e _%tl172261172285%_)))) + (let ((_%hd172263172291%_ (let () (declare (not safe)) - (##car _%e171988172014%_))) - (_%tl171990172019%_ + (##car _%e172262172288%_))) + (_%tl172264172293%_ (let () (declare (not safe)) - (##cdr _%e171988172014%_)))) + (##cdr _%e172262172288%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171990172019%_)) - (let ((_%e171991172022%_ + (gx#stx-pair? _%tl172264172293%_)) + (let ((_%e172265172296%_ (let () (declare (not safe)) - (gx#stx-e _%tl171990172019%_)))) - (let ((_%hd171992172025%_ + (gx#stx-e _%tl172264172293%_)))) + (let ((_%hd172266172299%_ (let () (declare (not safe)) - (##car _%e171991172022%_))) - (_%tl171993172027%_ + (##car _%e172265172296%_))) + (_%tl172267172301%_ (let () (declare (not safe)) - (##cdr _%e171991172022%_)))) + (##cdr _%e172265172296%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171993172027%_)) - (let ((_%e171994172030%_ + _%tl172267172301%_)) + (let ((_%e172268172304%_ (let () (declare (not safe)) (gx#stx-e - _%tl171993172027%_)))) - (let ((_%hd171995172033%_ + _%tl172267172301%_)))) + (let ((_%hd172269172307%_ (let () (declare (not safe)) - (##car _%e171994172030%_))) - (_%tl171996172035%_ + (##car _%e172268172304%_))) + (_%tl172270172309%_ (let () (declare (not safe)) - (##cdr _%e171994172030%_)))) + (##cdr _%e172268172304%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171996172035%_)) - ((lambda (_%L172038%_ - _%L172039%_ - _%L172040%_) + _%tl172270172309%_)) + ((lambda (_%L172312%_ + _%L172313%_ + _%L172314%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self171977%_ - _%L172039%_))) - _%hd171995172033%_ - _%hd171992172025%_ - _%hd171989172017%_) - (_%g171980172001%_ - _%g171981172004%_)))) - (_%g171980172001%_ - _%g171981172004%_)))) - (_%g171980172001%_ _%g171981172004%_)))) - (_%g171980172001%_ _%g171981172004%_)))) - (_%g171980172001%_ _%g171981172004%_))))) - (_%g171979172058%_ _%stx171978%_)))) + _%self172251%_ + _%L172313%_))) + _%hd172269172307%_ + _%hd172266172299%_ + _%hd172263172291%_) + (_%g172254172275%_ + _%g172255172278%_)))) + (_%g172254172275%_ + _%g172255172278%_)))) + (_%g172254172275%_ _%g172255172278%_)))) + (_%g172254172275%_ _%g172255172278%_)))) + (_%g172254172275%_ _%g172255172278%_))))) + (_%g172253172332%_ _%stx172252%_)))) (define gxc#collect-object-refs-call% - (lambda (_%self170938%_ _%stx170939%_) - (let* ((_%__stx175393175394%_ _%stx170939%_) - (_%g170947171169%_ + (lambda (_%self171212%_ _%stx171213%_) + (let* ((_%__stx175667175668%_ _%stx171213%_) + (_%g171221171443%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx175393175394%_))))) - (let ((_%__kont175395175396%_ - (lambda (_%L171926%_ _%L171927%_ _%L171928%_ _%L171929%_) - (let ((__tmp176499 + _%__stx175667175668%_))))) + (let ((_%__kont175669175670%_ + (lambda (_%L172200%_ _%L172201%_ _%L172202%_ _%L172203%_) + (let ((__tmp176773 (let () (declare (not safe)) - (slot-ref__0 _%self170938%_ 'methods))) - (__tmp176498 + (slot-ref__0 _%self171212%_ 'methods))) + (__tmp176772 (let () (declare (not safe)) - (gx#stx-e _%L171927%_)))) + (gx#stx-e _%L172201%_)))) (declare (not safe)) - (hash-put! __tmp176499 __tmp176498 '#t)) + (hash-put! __tmp176773 __tmp176772 '#t)) (for-each - (lambda (_%g171962171964%_) + (lambda (_%g172236172238%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self170938%_ _%g171962171964%_))) - (let ((__tmp176500 - (lambda (_%g171966171969%_ _%g171967171971%_) - (cons _%g171966171969%_ _%g171967171971%_)))) + (gxc#compile-e__1 _%self171212%_ _%g172236172238%_))) + (let ((__tmp176774 + (lambda (_%g172240172243%_ _%g172241172245%_) + (cons _%g172240172243%_ _%g172241172245%_)))) (declare (not safe)) - (__foldr1 __tmp176500 '() _%L171926%_))))) - (_%__kont175399175400%_ - (lambda (_%L171761%_ - _%L171762%_ - _%L171763%_ - _%L171764%_ - _%L171765%_) - (let ((__tmp176502 + (__foldr1 __tmp176774 '() _%L172200%_))))) + (_%__kont175673175674%_ + (lambda (_%L172035%_ + _%L172036%_ + _%L172037%_ + _%L172038%_ + _%L172039%_) + (let ((__tmp176776 (let () (declare (not safe)) - (slot-ref__0 _%self170938%_ 'methods))) - (__tmp176501 + (slot-ref__0 _%self171212%_ 'methods))) + (__tmp176775 (let () (declare (not safe)) - (gx#stx-e _%L171762%_)))) + (gx#stx-e _%L172036%_)))) (declare (not safe)) - (hash-put! __tmp176502 __tmp176501 '#t)) + (hash-put! __tmp176776 __tmp176775 '#t)) (for-each - (lambda (_%g171805171807%_) + (lambda (_%g172079172081%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self170938%_ _%g171805171807%_))) - (let ((__tmp176503 - (lambda (_%g171809171812%_ _%g171810171814%_) - (cons _%g171809171812%_ _%g171810171814%_)))) + (gxc#compile-e__1 _%self171212%_ _%g172079172081%_))) + (let ((__tmp176777 + (lambda (_%g172083172086%_ _%g172084172088%_) + (cons _%g172083172086%_ _%g172084172088%_)))) (declare (not safe)) - (__foldr1 __tmp176503 '() _%L171761%_))))) - (_%__kont175403175404%_ - (lambda (_%L171594%_ _%L171595%_ _%L171596%_) - (let ((__tmp176505 + (__foldr1 __tmp176777 '() _%L172035%_))))) + (_%__kont175677175678%_ + (lambda (_%L171868%_ _%L171869%_ _%L171870%_) + (let ((__tmp176779 (let () (declare (not safe)) - (slot-ref__0 _%self170938%_ 'slots))) - (__tmp176504 + (slot-ref__0 _%self171212%_ 'slots))) + (__tmp176778 (let () (declare (not safe)) - (gx#stx-e _%L171594%_)))) + (gx#stx-e _%L171868%_)))) (declare (not safe)) - (hash-put! __tmp176505 __tmp176504 '#t)))) - (_%__kont175405175406%_ - (lambda (_%L171471%_ _%L171472%_ _%L171473%_ _%L171474%_) - (let ((__tmp176507 + (hash-put! __tmp176779 __tmp176778 '#t)))) + (_%__kont175679175680%_ + (lambda (_%L171745%_ _%L171746%_ _%L171747%_ _%L171748%_) + (let ((__tmp176781 (let () (declare (not safe)) - (slot-ref__0 _%self170938%_ 'slots))) - (__tmp176506 + (slot-ref__0 _%self171212%_ 'slots))) + (__tmp176780 (let () (declare (not safe)) - (gx#stx-e _%L171472%_)))) + (gx#stx-e _%L171746%_)))) (declare (not safe)) - (hash-put! __tmp176507 __tmp176506 '#t)) + (hash-put! __tmp176781 __tmp176780 '#t)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self170938%_ _%L171471%_)))) - (_%__kont175407175408%_ - (lambda (_%L171345%_ _%L171346%_) - (let* ((_%accessor171368%_ - (let ((__tmp176508 + (gxc#compile-e__1 _%self171212%_ _%L171745%_)))) + (_%__kont175681175682%_ + (lambda (_%L171619%_ _%L171620%_) + (let* ((_%accessor171642%_ + (let ((__tmp176782 (let () (declare (not safe)) - (gxc#identifier-symbol _%L171346%_)))) + (gxc#identifier-symbol _%L171620%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp176508))) - (_%klass171370%_ - (let ((__tmp176509 + (gxc#optimizer-resolve-type __tmp176782))) + (_%klass171644%_ + (let ((__tmp176783 (##structure-ref - _%accessor171368%_ + _%accessor171642%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx170939%_ - __tmp176509))) - (_%slot171372%_ + _%stx171213%_ + __tmp176783))) + (_%slot171646%_ (##structure-ref - _%accessor171368%_ + _%accessor171642%_ '3 gxc#!accessor::t '#f))) (if (if (##structure-ref - _%accessor171368%_ + _%accessor171642%_ '4 gxc#!accessor::t '#f) @@ -4837,56 +4837,56 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass171370%_ - _%slot171372%_)) + _%klass171644%_ + _%slot171646%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass171370%_ + _%klass171644%_ '8 '#f '#f)))) '#!void - (let ((__tmp176511 + (let ((__tmp176785 (let () (declare (not safe)) - (slot-ref__0 _%self170938%_ 'slots))) - (__tmp176510 + (slot-ref__0 _%self171212%_ 'slots))) + (__tmp176784 (##structure-ref - _%accessor171368%_ + _%accessor171642%_ '3 gxc#!accessor::t '#f))) (declare (not safe)) - (hash-put! __tmp176511 __tmp176510 '#t)))))) - (_%__kont175409175410%_ - (lambda (_%L171245%_ _%L171246%_ _%L171247%_) - (let* ((_%mutator171274%_ - (let ((__tmp176512 + (hash-put! __tmp176785 __tmp176784 '#t)))))) + (_%__kont175683175684%_ + (lambda (_%L171519%_ _%L171520%_ _%L171521%_) + (let* ((_%mutator171548%_ + (let ((__tmp176786 (let () (declare (not safe)) - (gxc#identifier-symbol _%L171247%_)))) + (gxc#identifier-symbol _%L171521%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp176512))) - (_%klass171276%_ - (let ((__tmp176513 + (gxc#optimizer-resolve-type __tmp176786))) + (_%klass171550%_ + (let ((__tmp176787 (##structure-ref - _%mutator171274%_ + _%mutator171548%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx170939%_ - __tmp176513))) - (_%slot171278%_ + _%stx171213%_ + __tmp176787))) + (_%slot171552%_ (##structure-ref - _%mutator171274%_ + _%mutator171548%_ '3 gxc#!mutator::t '#f))) (if (if (##structure-ref - _%mutator171274%_ + _%mutator171548%_ '4 gxc#!mutator::t '#f) @@ -4894,2064 +4894,2064 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass171276%_ - _%slot171278%_)) + _%klass171550%_ + _%slot171552%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass171276%_ + _%klass171550%_ '8 '#f '#f)))) '#!void - (let ((__tmp176514 + (let ((__tmp176788 (let () (declare (not safe)) - (slot-ref__0 _%self170938%_ 'slots)))) + (slot-ref__0 _%self171212%_ 'slots)))) (declare (not safe)) - (hash-put! __tmp176514 _%slot171278%_ '#t))) + (hash-put! __tmp176788 _%slot171552%_ '#t))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self170938%_ _%L171245%_))))) - (_%__kont175411175412%_ + (gxc#compile-e__1 _%self171212%_ _%L171519%_))))) + (_%__kont175685175686%_ (lambda () (let () (declare (not safe)) - (gxc#apply-operands _%self170938%_ _%stx170939%_))))) - (let* ((_%__match175892175893%_ - (lambda (_%e171141171181%_ - _%hd171142171184%_ - _%tl171143171186%_ - _%e171144171189%_ - _%hd171145171192%_ - _%tl171146171194%_ - _%e171147171197%_ - _%hd171148171200%_ - _%tl171149171202%_ - _%e171150171205%_ - _%hd171151171208%_ - _%tl171152171210%_ - _%e171153171213%_ - _%hd171154171216%_ - _%tl171155171218%_ - _%e171156171221%_ - _%hd171157171224%_ - _%tl171158171226%_ - _%e171159171229%_ - _%hd171160171232%_ - _%tl171161171234%_ - _%e171162171237%_ - _%hd171163171240%_ - _%tl171164171242%_) - (let ((_%L171245%_ _%hd171163171240%_) - (_%L171246%_ _%hd171160171232%_) - (_%L171247%_ _%hd171151171208%_)) - (if (and (let ((__tmp176515 - (let ((__tmp176516 + (gxc#apply-operands _%self171212%_ _%stx171213%_))))) + (let* ((_%__match176166176167%_ + (lambda (_%e171415171455%_ + _%hd171416171458%_ + _%tl171417171460%_ + _%e171418171463%_ + _%hd171419171466%_ + _%tl171420171468%_ + _%e171421171471%_ + _%hd171422171474%_ + _%tl171423171476%_ + _%e171424171479%_ + _%hd171425171482%_ + _%tl171426171484%_ + _%e171427171487%_ + _%hd171428171490%_ + _%tl171429171492%_ + _%e171430171495%_ + _%hd171431171498%_ + _%tl171432171500%_ + _%e171433171503%_ + _%hd171434171506%_ + _%tl171435171508%_ + _%e171436171511%_ + _%hd171437171514%_ + _%tl171438171516%_) + (let ((_%L171519%_ _%hd171437171514%_) + (_%L171520%_ _%hd171434171506%_) + (_%L171521%_ _%hd171425171482%_)) + (if (and (let ((__tmp176789 + (let ((__tmp176790 (let () (declare (not safe)) (gxc#identifier-symbol - _%L171247%_)))) + _%L171521%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp176516)))) + __tmp176790)))) (declare (not safe)) (##structure-instance-of? - __tmp176515 + __tmp176789 'gxc#!mutator::t)) - (let ((__tmp176517 + (let ((__tmp176791 (let () (declare (not safe)) (slot-ref__0 - _%self170938%_ + _%self171212%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L171246%_ - __tmp176517))) - (_%__kont175409175410%_ - _%L171245%_ - _%L171246%_ - _%L171247%_) - (_%__kont175411175412%_))))) - (_%__match175890175891%_ - (lambda (_%e171141171181%_ - _%hd171142171184%_ - _%tl171143171186%_ - _%e171144171189%_ - _%hd171145171192%_ - _%tl171146171194%_ - _%e171147171197%_ - _%hd171148171200%_ - _%tl171149171202%_ - _%e171150171205%_ - _%hd171151171208%_ - _%tl171152171210%_ - _%e171153171213%_ - _%hd171154171216%_ - _%tl171155171218%_ - _%e171156171221%_ - _%hd171157171224%_ - _%tl171158171226%_ - _%e171159171229%_ - _%hd171160171232%_ - _%tl171161171234%_ - _%e171162171237%_ - _%hd171163171240%_ - _%tl171164171242%_) + _%L171520%_ + __tmp176791))) + (_%__kont175683175684%_ + _%L171519%_ + _%L171520%_ + _%L171521%_) + (_%__kont175685175686%_))))) + (_%__match176164176165%_ + (lambda (_%e171415171455%_ + _%hd171416171458%_ + _%tl171417171460%_ + _%e171418171463%_ + _%hd171419171466%_ + _%tl171420171468%_ + _%e171421171471%_ + _%hd171422171474%_ + _%tl171423171476%_ + _%e171424171479%_ + _%hd171425171482%_ + _%tl171426171484%_ + _%e171427171487%_ + _%hd171428171490%_ + _%tl171429171492%_ + _%e171430171495%_ + _%hd171431171498%_ + _%tl171432171500%_ + _%e171433171503%_ + _%hd171434171506%_ + _%tl171435171508%_ + _%e171436171511%_ + _%hd171437171514%_ + _%tl171438171516%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171164171242%_)) - (_%__match175892175893%_ - _%e171141171181%_ - _%hd171142171184%_ - _%tl171143171186%_ - _%e171144171189%_ - _%hd171145171192%_ - _%tl171146171194%_ - _%e171147171197%_ - _%hd171148171200%_ - _%tl171149171202%_ - _%e171150171205%_ - _%hd171151171208%_ - _%tl171152171210%_ - _%e171153171213%_ - _%hd171154171216%_ - _%tl171155171218%_ - _%e171156171221%_ - _%hd171157171224%_ - _%tl171158171226%_ - _%e171159171229%_ - _%hd171160171232%_ - _%tl171161171234%_ - _%e171162171237%_ - _%hd171163171240%_ - _%tl171164171242%_) - (_%__kont175411175412%_)))) - (_%__match175884175885%_ - (lambda (_%e171141171181%_ - _%hd171142171184%_ - _%tl171143171186%_ - _%e171144171189%_ - _%hd171145171192%_ - _%tl171146171194%_ - _%e171147171197%_ - _%hd171148171200%_ - _%tl171149171202%_ - _%e171150171205%_ - _%hd171151171208%_ - _%tl171152171210%_ - _%e171153171213%_ - _%hd171154171216%_ - _%tl171155171218%_ - _%e171156171221%_ - _%hd171157171224%_ - _%tl171158171226%_ - _%e171159171229%_ - _%hd171160171232%_ - _%tl171161171234%_) + (gx#stx-null? _%tl171438171516%_)) + (_%__match176166176167%_ + _%e171415171455%_ + _%hd171416171458%_ + _%tl171417171460%_ + _%e171418171463%_ + _%hd171419171466%_ + _%tl171420171468%_ + _%e171421171471%_ + _%hd171422171474%_ + _%tl171423171476%_ + _%e171424171479%_ + _%hd171425171482%_ + _%tl171426171484%_ + _%e171427171487%_ + _%hd171428171490%_ + _%tl171429171492%_ + _%e171430171495%_ + _%hd171431171498%_ + _%tl171432171500%_ + _%e171433171503%_ + _%hd171434171506%_ + _%tl171435171508%_ + _%e171436171511%_ + _%hd171437171514%_ + _%tl171438171516%_) + (_%__kont175685175686%_)))) + (_%__match176158176159%_ + (lambda (_%e171415171455%_ + _%hd171416171458%_ + _%tl171417171460%_ + _%e171418171463%_ + _%hd171419171466%_ + _%tl171420171468%_ + _%e171421171471%_ + _%hd171422171474%_ + _%tl171423171476%_ + _%e171424171479%_ + _%hd171425171482%_ + _%tl171426171484%_ + _%e171427171487%_ + _%hd171428171490%_ + _%tl171429171492%_ + _%e171430171495%_ + _%hd171431171498%_ + _%tl171432171500%_ + _%e171433171503%_ + _%hd171434171506%_ + _%tl171435171508%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171155171218%_)) - (let ((_%e171162171237%_ + (gx#stx-pair? _%tl171429171492%_)) + (let ((_%e171436171511%_ (let () (declare (not safe)) - (gx#stx-e _%tl171155171218%_)))) - (let ((_%tl171164171242%_ + (gx#stx-e _%tl171429171492%_)))) + (let ((_%tl171438171516%_ (let () (declare (not safe)) - (##cdr _%e171162171237%_))) - (_%hd171163171240%_ + (##cdr _%e171436171511%_))) + (_%hd171437171514%_ (let () (declare (not safe)) - (##car _%e171162171237%_)))) + (##car _%e171436171511%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171164171242%_)) - (_%__match175892175893%_ - _%e171141171181%_ - _%hd171142171184%_ - _%tl171143171186%_ - _%e171144171189%_ - _%hd171145171192%_ - _%tl171146171194%_ - _%e171147171197%_ - _%hd171148171200%_ - _%tl171149171202%_ - _%e171150171205%_ - _%hd171151171208%_ - _%tl171152171210%_ - _%e171153171213%_ - _%hd171154171216%_ - _%tl171155171218%_ - _%e171156171221%_ - _%hd171157171224%_ - _%tl171158171226%_ - _%e171159171229%_ - _%hd171160171232%_ - _%tl171161171234%_ - _%e171162171237%_ - _%hd171163171240%_ - _%tl171164171242%_) - (_%__kont175411175412%_)))) - (_%__kont175411175412%_)))) - (_%__match175830175831%_ - (lambda (_%e171117171289%_ - _%hd171118171292%_ - _%tl171119171294%_ - _%e171120171297%_ - _%hd171121171300%_ - _%tl171122171302%_ - _%e171123171305%_ - _%hd171124171308%_ - _%tl171125171310%_ - _%e171126171313%_ - _%hd171127171316%_ - _%tl171128171318%_ - _%e171129171321%_ - _%hd171130171324%_ - _%tl171131171326%_ - _%e171132171329%_ - _%hd171133171332%_ - _%tl171134171334%_ - _%e171135171337%_ - _%hd171136171340%_ - _%tl171137171342%_) - (let ((_%L171345%_ _%hd171136171340%_) - (_%L171346%_ _%hd171127171316%_)) - (if (and (let ((__tmp176518 - (let ((__tmp176519 + (gx#stx-null? _%tl171438171516%_)) + (_%__match176166176167%_ + _%e171415171455%_ + _%hd171416171458%_ + _%tl171417171460%_ + _%e171418171463%_ + _%hd171419171466%_ + _%tl171420171468%_ + _%e171421171471%_ + _%hd171422171474%_ + _%tl171423171476%_ + _%e171424171479%_ + _%hd171425171482%_ + _%tl171426171484%_ + _%e171427171487%_ + _%hd171428171490%_ + _%tl171429171492%_ + _%e171430171495%_ + _%hd171431171498%_ + _%tl171432171500%_ + _%e171433171503%_ + _%hd171434171506%_ + _%tl171435171508%_ + _%e171436171511%_ + _%hd171437171514%_ + _%tl171438171516%_) + (_%__kont175685175686%_)))) + (_%__kont175685175686%_)))) + (_%__match176104176105%_ + (lambda (_%e171391171563%_ + _%hd171392171566%_ + _%tl171393171568%_ + _%e171394171571%_ + _%hd171395171574%_ + _%tl171396171576%_ + _%e171397171579%_ + _%hd171398171582%_ + _%tl171399171584%_ + _%e171400171587%_ + _%hd171401171590%_ + _%tl171402171592%_ + _%e171403171595%_ + _%hd171404171598%_ + _%tl171405171600%_ + _%e171406171603%_ + _%hd171407171606%_ + _%tl171408171608%_ + _%e171409171611%_ + _%hd171410171614%_ + _%tl171411171616%_) + (let ((_%L171619%_ _%hd171410171614%_) + (_%L171620%_ _%hd171401171590%_)) + (if (and (let ((__tmp176792 + (let ((__tmp176793 (let () (declare (not safe)) (gxc#identifier-symbol - _%L171346%_)))) + _%L171620%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp176519)))) + __tmp176793)))) (declare (not safe)) (##structure-instance-of? - __tmp176518 + __tmp176792 'gxc#!accessor::t)) - (let ((__tmp176520 + (let ((__tmp176794 (let () (declare (not safe)) (slot-ref__0 - _%self170938%_ + _%self171212%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L171345%_ - __tmp176520))) - (_%__kont175407175408%_ _%L171345%_ _%L171346%_) - (_%__kont175411175412%_))))) - (_%__match175828175829%_ - (lambda (_%e171117171289%_ - _%hd171118171292%_ - _%tl171119171294%_ - _%e171120171297%_ - _%hd171121171300%_ - _%tl171122171302%_ - _%e171123171305%_ - _%hd171124171308%_ - _%tl171125171310%_ - _%e171126171313%_ - _%hd171127171316%_ - _%tl171128171318%_ - _%e171129171321%_ - _%hd171130171324%_ - _%tl171131171326%_ - _%e171132171329%_ - _%hd171133171332%_ - _%tl171134171334%_ - _%e171135171337%_ - _%hd171136171340%_ - _%tl171137171342%_) + _%L171619%_ + __tmp176794))) + (_%__kont175681175682%_ _%L171619%_ _%L171620%_) + (_%__kont175685175686%_))))) + (_%__match176102176103%_ + (lambda (_%e171391171563%_ + _%hd171392171566%_ + _%tl171393171568%_ + _%e171394171571%_ + _%hd171395171574%_ + _%tl171396171576%_ + _%e171397171579%_ + _%hd171398171582%_ + _%tl171399171584%_ + _%e171400171587%_ + _%hd171401171590%_ + _%tl171402171592%_ + _%e171403171595%_ + _%hd171404171598%_ + _%tl171405171600%_ + _%e171406171603%_ + _%hd171407171606%_ + _%tl171408171608%_ + _%e171409171611%_ + _%hd171410171614%_ + _%tl171411171616%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171131171326%_)) - (_%__match175830175831%_ - _%e171117171289%_ - _%hd171118171292%_ - _%tl171119171294%_ - _%e171120171297%_ - _%hd171121171300%_ - _%tl171122171302%_ - _%e171123171305%_ - _%hd171124171308%_ - _%tl171125171310%_ - _%e171126171313%_ - _%hd171127171316%_ - _%tl171128171318%_ - _%e171129171321%_ - _%hd171130171324%_ - _%tl171131171326%_ - _%e171132171329%_ - _%hd171133171332%_ - _%tl171134171334%_ - _%e171135171337%_ - _%hd171136171340%_ - _%tl171137171342%_) - (_%__match175884175885%_ - _%e171117171289%_ - _%hd171118171292%_ - _%tl171119171294%_ - _%e171120171297%_ - _%hd171121171300%_ - _%tl171122171302%_ - _%e171123171305%_ - _%hd171124171308%_ - _%tl171125171310%_ - _%e171126171313%_ - _%hd171127171316%_ - _%tl171128171318%_ - _%e171129171321%_ - _%hd171130171324%_ - _%tl171131171326%_ - _%e171132171329%_ - _%hd171133171332%_ - _%tl171134171334%_ - _%e171135171337%_ - _%hd171136171340%_ - _%tl171137171342%_)))) - (_%__match175774175775%_ - (lambda (_%e171082171383%_ - _%hd171083171386%_ - _%tl171084171388%_ - _%e171085171391%_ - _%hd171086171394%_ - _%tl171087171396%_ - _%e171088171399%_ - _%hd171089171402%_ - _%tl171090171404%_ - _%e171091171407%_ - _%hd171092171410%_ - _%tl171093171412%_ - _%e171094171415%_ - _%hd171095171418%_ - _%tl171096171420%_ - _%e171097171423%_ - _%hd171098171426%_ - _%tl171099171428%_ - _%e171100171431%_ - _%hd171101171434%_ - _%tl171102171436%_ - _%e171103171439%_ - _%hd171104171442%_ - _%tl171105171444%_ - _%e171106171447%_ - _%hd171107171450%_ - _%tl171108171452%_ - _%e171109171455%_ - _%hd171110171458%_ - _%tl171111171460%_ - _%e171112171463%_ - _%hd171113171466%_ - _%tl171114171468%_) - (let ((_%L171471%_ _%hd171113171466%_) - (_%L171472%_ _%hd171110171458%_) - (_%L171473%_ _%hd171101171434%_) - (_%L171474%_ _%hd171092171410%_)) + (gx#stx-null? _%tl171405171600%_)) + (_%__match176104176105%_ + _%e171391171563%_ + _%hd171392171566%_ + _%tl171393171568%_ + _%e171394171571%_ + _%hd171395171574%_ + _%tl171396171576%_ + _%e171397171579%_ + _%hd171398171582%_ + _%tl171399171584%_ + _%e171400171587%_ + _%hd171401171590%_ + _%tl171402171592%_ + _%e171403171595%_ + _%hd171404171598%_ + _%tl171405171600%_ + _%e171406171603%_ + _%hd171407171606%_ + _%tl171408171608%_ + _%e171409171611%_ + _%hd171410171614%_ + _%tl171411171616%_) + (_%__match176158176159%_ + _%e171391171563%_ + _%hd171392171566%_ + _%tl171393171568%_ + _%e171394171571%_ + _%hd171395171574%_ + _%tl171396171576%_ + _%e171397171579%_ + _%hd171398171582%_ + _%tl171399171584%_ + _%e171400171587%_ + _%hd171401171590%_ + _%tl171402171592%_ + _%e171403171595%_ + _%hd171404171598%_ + _%tl171405171600%_ + _%e171406171603%_ + _%hd171407171606%_ + _%tl171408171608%_ + _%e171409171611%_ + _%hd171410171614%_ + _%tl171411171616%_)))) + (_%__match176048176049%_ + (lambda (_%e171356171657%_ + _%hd171357171660%_ + _%tl171358171662%_ + _%e171359171665%_ + _%hd171360171668%_ + _%tl171361171670%_ + _%e171362171673%_ + _%hd171363171676%_ + _%tl171364171678%_ + _%e171365171681%_ + _%hd171366171684%_ + _%tl171367171686%_ + _%e171368171689%_ + _%hd171369171692%_ + _%tl171370171694%_ + _%e171371171697%_ + _%hd171372171700%_ + _%tl171373171702%_ + _%e171374171705%_ + _%hd171375171708%_ + _%tl171376171710%_ + _%e171377171713%_ + _%hd171378171716%_ + _%tl171379171718%_ + _%e171380171721%_ + _%hd171381171724%_ + _%tl171382171726%_ + _%e171383171729%_ + _%hd171384171732%_ + _%tl171385171734%_ + _%e171386171737%_ + _%hd171387171740%_ + _%tl171388171742%_) + (let ((_%L171745%_ _%hd171387171740%_) + (_%L171746%_ _%hd171384171732%_) + (_%L171747%_ _%hd171375171708%_) + (_%L171748%_ _%hd171366171684%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L171474%_ + _%L171748%_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L171474%_ + _%L171748%_ 'unchecked-slot-set!))) - (let ((__tmp176521 + (let ((__tmp176795 (let () (declare (not safe)) (slot-ref__0 - _%self170938%_ + _%self171212%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L171473%_ - __tmp176521))) - (_%__kont175405175406%_ - _%L171471%_ - _%L171472%_ - _%L171473%_ - _%L171474%_) - (_%__kont175411175412%_))))) - (_%__match175766175767%_ - (lambda (_%e171082171383%_ - _%hd171083171386%_ - _%tl171084171388%_ - _%e171085171391%_ - _%hd171086171394%_ - _%tl171087171396%_ - _%e171088171399%_ - _%hd171089171402%_ - _%tl171090171404%_ - _%e171091171407%_ - _%hd171092171410%_ - _%tl171093171412%_ - _%e171094171415%_ - _%hd171095171418%_ - _%tl171096171420%_ - _%e171097171423%_ - _%hd171098171426%_ - _%tl171099171428%_ - _%e171100171431%_ - _%hd171101171434%_ - _%tl171102171436%_ - _%e171103171439%_ - _%hd171104171442%_ - _%tl171105171444%_ - _%e171106171447%_ - _%hd171107171450%_ - _%tl171108171452%_ - _%e171109171455%_ - _%hd171110171458%_ - _%tl171111171460%_) + _%L171747%_ + __tmp176795))) + (_%__kont175679175680%_ + _%L171745%_ + _%L171746%_ + _%L171747%_ + _%L171748%_) + (_%__kont175685175686%_))))) + (_%__match176040176041%_ + (lambda (_%e171356171657%_ + _%hd171357171660%_ + _%tl171358171662%_ + _%e171359171665%_ + _%hd171360171668%_ + _%tl171361171670%_ + _%e171362171673%_ + _%hd171363171676%_ + _%tl171364171678%_ + _%e171365171681%_ + _%hd171366171684%_ + _%tl171367171686%_ + _%e171368171689%_ + _%hd171369171692%_ + _%tl171370171694%_ + _%e171371171697%_ + _%hd171372171700%_ + _%tl171373171702%_ + _%e171374171705%_ + _%hd171375171708%_ + _%tl171376171710%_ + _%e171377171713%_ + _%hd171378171716%_ + _%tl171379171718%_ + _%e171380171721%_ + _%hd171381171724%_ + _%tl171382171726%_ + _%e171383171729%_ + _%hd171384171732%_ + _%tl171385171734%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171105171444%_)) - (let ((_%e171112171463%_ + (gx#stx-pair? _%tl171379171718%_)) + (let ((_%e171386171737%_ (let () (declare (not safe)) - (gx#stx-e _%tl171105171444%_)))) - (let ((_%tl171114171468%_ + (gx#stx-e _%tl171379171718%_)))) + (let ((_%tl171388171742%_ (let () (declare (not safe)) - (##cdr _%e171112171463%_))) - (_%hd171113171466%_ + (##cdr _%e171386171737%_))) + (_%hd171387171740%_ (let () (declare (not safe)) - (##car _%e171112171463%_)))) + (##car _%e171386171737%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171114171468%_)) - (_%__match175774175775%_ - _%e171082171383%_ - _%hd171083171386%_ - _%tl171084171388%_ - _%e171085171391%_ - _%hd171086171394%_ - _%tl171087171396%_ - _%e171088171399%_ - _%hd171089171402%_ - _%tl171090171404%_ - _%e171091171407%_ - _%hd171092171410%_ - _%tl171093171412%_ - _%e171094171415%_ - _%hd171095171418%_ - _%tl171096171420%_ - _%e171097171423%_ - _%hd171098171426%_ - _%tl171099171428%_ - _%e171100171431%_ - _%hd171101171434%_ - _%tl171102171436%_ - _%e171103171439%_ - _%hd171104171442%_ - _%tl171105171444%_ - _%e171106171447%_ - _%hd171107171450%_ - _%tl171108171452%_ - _%e171109171455%_ - _%hd171110171458%_ - _%tl171111171460%_ - _%e171112171463%_ - _%hd171113171466%_ - _%tl171114171468%_) - (_%__kont175411175412%_)))) - (_%__match175890175891%_ - _%e171082171383%_ - _%hd171083171386%_ - _%tl171084171388%_ - _%e171085171391%_ - _%hd171086171394%_ - _%tl171087171396%_ - _%e171088171399%_ - _%hd171089171402%_ - _%tl171090171404%_ - _%e171091171407%_ - _%hd171092171410%_ - _%tl171093171412%_ - _%e171094171415%_ - _%hd171095171418%_ - _%tl171096171420%_ - _%e171097171423%_ - _%hd171098171426%_ - _%tl171099171428%_ - _%e171100171431%_ - _%hd171101171434%_ - _%tl171102171436%_ - _%e171103171439%_ - _%hd171104171442%_ - _%tl171105171444%_)))) - (_%__match175688175689%_ - (lambda (_%e171048171514%_ - _%hd171049171517%_ - _%tl171050171519%_ - _%e171051171522%_ - _%hd171052171525%_ - _%tl171053171527%_ - _%e171054171530%_ - _%hd171055171533%_ - _%tl171056171535%_ - _%e171057171538%_ - _%hd171058171541%_ - _%tl171059171543%_ - _%e171060171546%_ - _%hd171061171549%_ - _%tl171062171551%_ - _%e171063171554%_ - _%hd171064171557%_ - _%tl171065171559%_ - _%e171066171562%_ - _%hd171067171565%_ - _%tl171068171567%_ - _%e171069171570%_ - _%hd171070171573%_ - _%tl171071171575%_ - _%e171072171578%_ - _%hd171073171581%_ - _%tl171074171583%_ - _%e171075171586%_ - _%hd171076171589%_ - _%tl171077171591%_) - (let ((_%L171594%_ _%hd171076171589%_) - (_%L171595%_ _%hd171067171565%_) - (_%L171596%_ _%hd171058171541%_)) + (gx#stx-null? _%tl171388171742%_)) + (_%__match176048176049%_ + _%e171356171657%_ + _%hd171357171660%_ + _%tl171358171662%_ + _%e171359171665%_ + _%hd171360171668%_ + _%tl171361171670%_ + _%e171362171673%_ + _%hd171363171676%_ + _%tl171364171678%_ + _%e171365171681%_ + _%hd171366171684%_ + _%tl171367171686%_ + _%e171368171689%_ + _%hd171369171692%_ + _%tl171370171694%_ + _%e171371171697%_ + _%hd171372171700%_ + _%tl171373171702%_ + _%e171374171705%_ + _%hd171375171708%_ + _%tl171376171710%_ + _%e171377171713%_ + _%hd171378171716%_ + _%tl171379171718%_ + _%e171380171721%_ + _%hd171381171724%_ + _%tl171382171726%_ + _%e171383171729%_ + _%hd171384171732%_ + _%tl171385171734%_ + _%e171386171737%_ + _%hd171387171740%_ + _%tl171388171742%_) + (_%__kont175685175686%_)))) + (_%__match176164176165%_ + _%e171356171657%_ + _%hd171357171660%_ + _%tl171358171662%_ + _%e171359171665%_ + _%hd171360171668%_ + _%tl171361171670%_ + _%e171362171673%_ + _%hd171363171676%_ + _%tl171364171678%_ + _%e171365171681%_ + _%hd171366171684%_ + _%tl171367171686%_ + _%e171368171689%_ + _%hd171369171692%_ + _%tl171370171694%_ + _%e171371171697%_ + _%hd171372171700%_ + _%tl171373171702%_ + _%e171374171705%_ + _%hd171375171708%_ + _%tl171376171710%_ + _%e171377171713%_ + _%hd171378171716%_ + _%tl171379171718%_)))) + (_%__match175962175963%_ + (lambda (_%e171322171788%_ + _%hd171323171791%_ + _%tl171324171793%_ + _%e171325171796%_ + _%hd171326171799%_ + _%tl171327171801%_ + _%e171328171804%_ + _%hd171329171807%_ + _%tl171330171809%_ + _%e171331171812%_ + _%hd171332171815%_ + _%tl171333171817%_ + _%e171334171820%_ + _%hd171335171823%_ + _%tl171336171825%_ + _%e171337171828%_ + _%hd171338171831%_ + _%tl171339171833%_ + _%e171340171836%_ + _%hd171341171839%_ + _%tl171342171841%_ + _%e171343171844%_ + _%hd171344171847%_ + _%tl171345171849%_ + _%e171346171852%_ + _%hd171347171855%_ + _%tl171348171857%_ + _%e171349171860%_ + _%hd171350171863%_ + _%tl171351171865%_) + (let ((_%L171868%_ _%hd171350171863%_) + (_%L171869%_ _%hd171341171839%_) + (_%L171870%_ _%hd171332171815%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L171596%_ + _%L171870%_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L171596%_ + _%L171870%_ 'unchecked-slot-ref))) - (let ((__tmp176522 + (let ((__tmp176796 (let () (declare (not safe)) (slot-ref__0 - _%self170938%_ + _%self171212%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L171595%_ - __tmp176522))) - (_%__kont175403175404%_ - _%L171594%_ - _%L171595%_ - _%L171596%_) - (_%__match175892175893%_ - _%e171048171514%_ - _%hd171049171517%_ - _%tl171050171519%_ - _%e171051171522%_ - _%hd171052171525%_ - _%tl171053171527%_ - _%e171054171530%_ - _%hd171055171533%_ - _%tl171056171535%_ - _%e171057171538%_ - _%hd171058171541%_ - _%tl171059171543%_ - _%e171060171546%_ - _%hd171061171549%_ - _%tl171062171551%_ - _%e171063171554%_ - _%hd171064171557%_ - _%tl171065171559%_ - _%e171066171562%_ - _%hd171067171565%_ - _%tl171068171567%_ - _%e171069171570%_ - _%hd171070171573%_ - _%tl171071171575%_))))) - (_%__match175686175687%_ - (lambda (_%e171048171514%_ - _%hd171049171517%_ - _%tl171050171519%_ - _%e171051171522%_ - _%hd171052171525%_ - _%tl171053171527%_ - _%e171054171530%_ - _%hd171055171533%_ - _%tl171056171535%_ - _%e171057171538%_ - _%hd171058171541%_ - _%tl171059171543%_ - _%e171060171546%_ - _%hd171061171549%_ - _%tl171062171551%_ - _%e171063171554%_ - _%hd171064171557%_ - _%tl171065171559%_ - _%e171066171562%_ - _%hd171067171565%_ - _%tl171068171567%_ - _%e171069171570%_ - _%hd171070171573%_ - _%tl171071171575%_ - _%e171072171578%_ - _%hd171073171581%_ - _%tl171074171583%_ - _%e171075171586%_ - _%hd171076171589%_ - _%tl171077171591%_) + _%L171869%_ + __tmp176796))) + (_%__kont175677175678%_ + _%L171868%_ + _%L171869%_ + _%L171870%_) + (_%__match176166176167%_ + _%e171322171788%_ + _%hd171323171791%_ + _%tl171324171793%_ + _%e171325171796%_ + _%hd171326171799%_ + _%tl171327171801%_ + _%e171328171804%_ + _%hd171329171807%_ + _%tl171330171809%_ + _%e171331171812%_ + _%hd171332171815%_ + _%tl171333171817%_ + _%e171334171820%_ + _%hd171335171823%_ + _%tl171336171825%_ + _%e171337171828%_ + _%hd171338171831%_ + _%tl171339171833%_ + _%e171340171836%_ + _%hd171341171839%_ + _%tl171342171841%_ + _%e171343171844%_ + _%hd171344171847%_ + _%tl171345171849%_))))) + (_%__match175960175961%_ + (lambda (_%e171322171788%_ + _%hd171323171791%_ + _%tl171324171793%_ + _%e171325171796%_ + _%hd171326171799%_ + _%tl171327171801%_ + _%e171328171804%_ + _%hd171329171807%_ + _%tl171330171809%_ + _%e171331171812%_ + _%hd171332171815%_ + _%tl171333171817%_ + _%e171334171820%_ + _%hd171335171823%_ + _%tl171336171825%_ + _%e171337171828%_ + _%hd171338171831%_ + _%tl171339171833%_ + _%e171340171836%_ + _%hd171341171839%_ + _%tl171342171841%_ + _%e171343171844%_ + _%hd171344171847%_ + _%tl171345171849%_ + _%e171346171852%_ + _%hd171347171855%_ + _%tl171348171857%_ + _%e171349171860%_ + _%hd171350171863%_ + _%tl171351171865%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171071171575%_)) - (_%__match175688175689%_ - _%e171048171514%_ - _%hd171049171517%_ - _%tl171050171519%_ - _%e171051171522%_ - _%hd171052171525%_ - _%tl171053171527%_ - _%e171054171530%_ - _%hd171055171533%_ - _%tl171056171535%_ - _%e171057171538%_ - _%hd171058171541%_ - _%tl171059171543%_ - _%e171060171546%_ - _%hd171061171549%_ - _%tl171062171551%_ - _%e171063171554%_ - _%hd171064171557%_ - _%tl171065171559%_ - _%e171066171562%_ - _%hd171067171565%_ - _%tl171068171567%_ - _%e171069171570%_ - _%hd171070171573%_ - _%tl171071171575%_ - _%e171072171578%_ - _%hd171073171581%_ - _%tl171074171583%_ - _%e171075171586%_ - _%hd171076171589%_ - _%tl171077171591%_) - (_%__match175766175767%_ - _%e171048171514%_ - _%hd171049171517%_ - _%tl171050171519%_ - _%e171051171522%_ - _%hd171052171525%_ - _%tl171053171527%_ - _%e171054171530%_ - _%hd171055171533%_ - _%tl171056171535%_ - _%e171057171538%_ - _%hd171058171541%_ - _%tl171059171543%_ - _%e171060171546%_ - _%hd171061171549%_ - _%tl171062171551%_ - _%e171063171554%_ - _%hd171064171557%_ - _%tl171065171559%_ - _%e171066171562%_ - _%hd171067171565%_ - _%tl171068171567%_ - _%e171069171570%_ - _%hd171070171573%_ - _%tl171071171575%_ - _%e171072171578%_ - _%hd171073171581%_ - _%tl171074171583%_ - _%e171075171586%_ - _%hd171076171589%_ - _%tl171077171591%_)))) - (_%__match175676175677%_ - (lambda (_%e171048171514%_ - _%hd171049171517%_ - _%tl171050171519%_ - _%e171051171522%_ - _%hd171052171525%_ - _%tl171053171527%_ - _%e171054171530%_ - _%hd171055171533%_ - _%tl171056171535%_ - _%e171057171538%_ - _%hd171058171541%_ - _%tl171059171543%_ - _%e171060171546%_ - _%hd171061171549%_ - _%tl171062171551%_ - _%e171063171554%_ - _%hd171064171557%_ - _%tl171065171559%_ - _%e171066171562%_ - _%hd171067171565%_ - _%tl171068171567%_ - _%e171069171570%_ - _%hd171070171573%_ - _%tl171071171575%_ - _%e171072171578%_ - _%hd171073171581%_ - _%tl171074171583%_) + (gx#stx-null? _%tl171345171849%_)) + (_%__match175962175963%_ + _%e171322171788%_ + _%hd171323171791%_ + _%tl171324171793%_ + _%e171325171796%_ + _%hd171326171799%_ + _%tl171327171801%_ + _%e171328171804%_ + _%hd171329171807%_ + _%tl171330171809%_ + _%e171331171812%_ + _%hd171332171815%_ + _%tl171333171817%_ + _%e171334171820%_ + _%hd171335171823%_ + _%tl171336171825%_ + _%e171337171828%_ + _%hd171338171831%_ + _%tl171339171833%_ + _%e171340171836%_ + _%hd171341171839%_ + _%tl171342171841%_ + _%e171343171844%_ + _%hd171344171847%_ + _%tl171345171849%_ + _%e171346171852%_ + _%hd171347171855%_ + _%tl171348171857%_ + _%e171349171860%_ + _%hd171350171863%_ + _%tl171351171865%_) + (_%__match176040176041%_ + _%e171322171788%_ + _%hd171323171791%_ + _%tl171324171793%_ + _%e171325171796%_ + _%hd171326171799%_ + _%tl171327171801%_ + _%e171328171804%_ + _%hd171329171807%_ + _%tl171330171809%_ + _%e171331171812%_ + _%hd171332171815%_ + _%tl171333171817%_ + _%e171334171820%_ + _%hd171335171823%_ + _%tl171336171825%_ + _%e171337171828%_ + _%hd171338171831%_ + _%tl171339171833%_ + _%e171340171836%_ + _%hd171341171839%_ + _%tl171342171841%_ + _%e171343171844%_ + _%hd171344171847%_ + _%tl171345171849%_ + _%e171346171852%_ + _%hd171347171855%_ + _%tl171348171857%_ + _%e171349171860%_ + _%hd171350171863%_ + _%tl171351171865%_)))) + (_%__match175950175951%_ + (lambda (_%e171322171788%_ + _%hd171323171791%_ + _%tl171324171793%_ + _%e171325171796%_ + _%hd171326171799%_ + _%tl171327171801%_ + _%e171328171804%_ + _%hd171329171807%_ + _%tl171330171809%_ + _%e171331171812%_ + _%hd171332171815%_ + _%tl171333171817%_ + _%e171334171820%_ + _%hd171335171823%_ + _%tl171336171825%_ + _%e171337171828%_ + _%hd171338171831%_ + _%tl171339171833%_ + _%e171340171836%_ + _%hd171341171839%_ + _%tl171342171841%_ + _%e171343171844%_ + _%hd171344171847%_ + _%tl171345171849%_ + _%e171346171852%_ + _%hd171347171855%_ + _%tl171348171857%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd171073171581%_)) + (gx#stx-eq? '%#quote _%hd171347171855%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171074171583%_)) - (let ((_%e171075171586%_ + (gx#stx-pair? _%tl171348171857%_)) + (let ((_%e171349171860%_ (let () (declare (not safe)) - (gx#stx-e _%tl171074171583%_)))) - (let ((_%tl171077171591%_ + (gx#stx-e _%tl171348171857%_)))) + (let ((_%tl171351171865%_ (let () (declare (not safe)) - (##cdr _%e171075171586%_))) - (_%hd171076171589%_ + (##cdr _%e171349171860%_))) + (_%hd171350171863%_ (let () (declare (not safe)) - (##car _%e171075171586%_)))) + (##car _%e171349171860%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171077171591%_)) + (gx#stx-null? _%tl171351171865%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171071171575%_)) - (_%__match175688175689%_ - _%e171048171514%_ - _%hd171049171517%_ - _%tl171050171519%_ - _%e171051171522%_ - _%hd171052171525%_ - _%tl171053171527%_ - _%e171054171530%_ - _%hd171055171533%_ - _%tl171056171535%_ - _%e171057171538%_ - _%hd171058171541%_ - _%tl171059171543%_ - _%e171060171546%_ - _%hd171061171549%_ - _%tl171062171551%_ - _%e171063171554%_ - _%hd171064171557%_ - _%tl171065171559%_ - _%e171066171562%_ - _%hd171067171565%_ - _%tl171068171567%_ - _%e171069171570%_ - _%hd171070171573%_ - _%tl171071171575%_ - _%e171072171578%_ - _%hd171073171581%_ - _%tl171074171583%_ - _%e171075171586%_ - _%hd171076171589%_ - _%tl171077171591%_) - (_%__match175766175767%_ - _%e171048171514%_ - _%hd171049171517%_ - _%tl171050171519%_ - _%e171051171522%_ - _%hd171052171525%_ - _%tl171053171527%_ - _%e171054171530%_ - _%hd171055171533%_ - _%tl171056171535%_ - _%e171057171538%_ - _%hd171058171541%_ - _%tl171059171543%_ - _%e171060171546%_ - _%hd171061171549%_ - _%tl171062171551%_ - _%e171063171554%_ - _%hd171064171557%_ - _%tl171065171559%_ - _%e171066171562%_ - _%hd171067171565%_ - _%tl171068171567%_ - _%e171069171570%_ - _%hd171070171573%_ - _%tl171071171575%_ - _%e171072171578%_ - _%hd171073171581%_ - _%tl171074171583%_ - _%e171075171586%_ - _%hd171076171589%_ - _%tl171077171591%_)) - (_%__match175890175891%_ - _%e171048171514%_ - _%hd171049171517%_ - _%tl171050171519%_ - _%e171051171522%_ - _%hd171052171525%_ - _%tl171053171527%_ - _%e171054171530%_ - _%hd171055171533%_ - _%tl171056171535%_ - _%e171057171538%_ - _%hd171058171541%_ - _%tl171059171543%_ - _%e171060171546%_ - _%hd171061171549%_ - _%tl171062171551%_ - _%e171063171554%_ - _%hd171064171557%_ - _%tl171065171559%_ - _%e171066171562%_ - _%hd171067171565%_ - _%tl171068171567%_ - _%e171069171570%_ - _%hd171070171573%_ - _%tl171071171575%_)))) - (_%__match175890175891%_ - _%e171048171514%_ - _%hd171049171517%_ - _%tl171050171519%_ - _%e171051171522%_ - _%hd171052171525%_ - _%tl171053171527%_ - _%e171054171530%_ - _%hd171055171533%_ - _%tl171056171535%_ - _%e171057171538%_ - _%hd171058171541%_ - _%tl171059171543%_ - _%e171060171546%_ - _%hd171061171549%_ - _%tl171062171551%_ - _%e171063171554%_ - _%hd171064171557%_ - _%tl171065171559%_ - _%e171066171562%_ - _%hd171067171565%_ - _%tl171068171567%_ - _%e171069171570%_ - _%hd171070171573%_ - _%tl171071171575%_)) - (_%__match175890175891%_ - _%e171048171514%_ - _%hd171049171517%_ - _%tl171050171519%_ - _%e171051171522%_ - _%hd171052171525%_ - _%tl171053171527%_ - _%e171054171530%_ - _%hd171055171533%_ - _%tl171056171535%_ - _%e171057171538%_ - _%hd171058171541%_ - _%tl171059171543%_ - _%e171060171546%_ - _%hd171061171549%_ - _%tl171062171551%_ - _%e171063171554%_ - _%hd171064171557%_ - _%tl171065171559%_ - _%e171066171562%_ - _%hd171067171565%_ - _%tl171068171567%_ - _%e171069171570%_ - _%hd171070171573%_ - _%tl171071171575%_)))) - (_%__match175608175609%_ - (lambda (_%e170997171633%_ - _%hd170998171636%_ - _%tl170999171638%_ - _%e171000171641%_ - _%hd171001171644%_ - _%tl171002171646%_ - _%e171003171649%_ - _%hd171004171652%_ - _%tl171005171654%_ - _%e171006171657%_ - _%hd171007171660%_ - _%tl171008171662%_ - _%e171009171665%_ - _%hd171010171668%_ - _%tl171011171670%_ - _%e171012171673%_ - _%hd171013171676%_ - _%tl171014171678%_ - _%e171015171681%_ - _%hd171016171684%_ - _%tl171017171686%_ - _%e171018171689%_ - _%hd171019171692%_ - _%tl171020171694%_ - _%e171021171697%_ - _%hd171022171700%_ - _%tl171023171702%_ - _%e171024171705%_ - _%hd171025171708%_ - _%tl171026171710%_ - _%e171027171713%_ - _%hd171028171716%_ - _%tl171029171718%_ - _%e171030171721%_ - _%hd171031171724%_ - _%tl171032171726%_ - _%e171033171729%_ - _%hd171034171732%_ - _%tl171035171734%_ - _%__splice175401175402%_ - _%target171036171737%_ - _%tl171038171739%_) - (letrec ((_%loop171039171742%_ - (lambda (_%hd171037171745%_ - _%args171043171747%_) + (gx#stx-null? _%tl171345171849%_)) + (_%__match175962175963%_ + _%e171322171788%_ + _%hd171323171791%_ + _%tl171324171793%_ + _%e171325171796%_ + _%hd171326171799%_ + _%tl171327171801%_ + _%e171328171804%_ + _%hd171329171807%_ + _%tl171330171809%_ + _%e171331171812%_ + _%hd171332171815%_ + _%tl171333171817%_ + _%e171334171820%_ + _%hd171335171823%_ + _%tl171336171825%_ + _%e171337171828%_ + _%hd171338171831%_ + _%tl171339171833%_ + _%e171340171836%_ + _%hd171341171839%_ + _%tl171342171841%_ + _%e171343171844%_ + _%hd171344171847%_ + _%tl171345171849%_ + _%e171346171852%_ + _%hd171347171855%_ + _%tl171348171857%_ + _%e171349171860%_ + _%hd171350171863%_ + _%tl171351171865%_) + (_%__match176040176041%_ + _%e171322171788%_ + _%hd171323171791%_ + _%tl171324171793%_ + _%e171325171796%_ + _%hd171326171799%_ + _%tl171327171801%_ + _%e171328171804%_ + _%hd171329171807%_ + _%tl171330171809%_ + _%e171331171812%_ + _%hd171332171815%_ + _%tl171333171817%_ + _%e171334171820%_ + _%hd171335171823%_ + _%tl171336171825%_ + _%e171337171828%_ + _%hd171338171831%_ + _%tl171339171833%_ + _%e171340171836%_ + _%hd171341171839%_ + _%tl171342171841%_ + _%e171343171844%_ + _%hd171344171847%_ + _%tl171345171849%_ + _%e171346171852%_ + _%hd171347171855%_ + _%tl171348171857%_ + _%e171349171860%_ + _%hd171350171863%_ + _%tl171351171865%_)) + (_%__match176164176165%_ + _%e171322171788%_ + _%hd171323171791%_ + _%tl171324171793%_ + _%e171325171796%_ + _%hd171326171799%_ + _%tl171327171801%_ + _%e171328171804%_ + _%hd171329171807%_ + _%tl171330171809%_ + _%e171331171812%_ + _%hd171332171815%_ + _%tl171333171817%_ + _%e171334171820%_ + _%hd171335171823%_ + _%tl171336171825%_ + _%e171337171828%_ + _%hd171338171831%_ + _%tl171339171833%_ + _%e171340171836%_ + _%hd171341171839%_ + _%tl171342171841%_ + _%e171343171844%_ + _%hd171344171847%_ + _%tl171345171849%_)))) + (_%__match176164176165%_ + _%e171322171788%_ + _%hd171323171791%_ + _%tl171324171793%_ + _%e171325171796%_ + _%hd171326171799%_ + _%tl171327171801%_ + _%e171328171804%_ + _%hd171329171807%_ + _%tl171330171809%_ + _%e171331171812%_ + _%hd171332171815%_ + _%tl171333171817%_ + _%e171334171820%_ + _%hd171335171823%_ + _%tl171336171825%_ + _%e171337171828%_ + _%hd171338171831%_ + _%tl171339171833%_ + _%e171340171836%_ + _%hd171341171839%_ + _%tl171342171841%_ + _%e171343171844%_ + _%hd171344171847%_ + _%tl171345171849%_)) + (_%__match176164176165%_ + _%e171322171788%_ + _%hd171323171791%_ + _%tl171324171793%_ + _%e171325171796%_ + _%hd171326171799%_ + _%tl171327171801%_ + _%e171328171804%_ + _%hd171329171807%_ + _%tl171330171809%_ + _%e171331171812%_ + _%hd171332171815%_ + _%tl171333171817%_ + _%e171334171820%_ + _%hd171335171823%_ + _%tl171336171825%_ + _%e171337171828%_ + _%hd171338171831%_ + _%tl171339171833%_ + _%e171340171836%_ + _%hd171341171839%_ + _%tl171342171841%_ + _%e171343171844%_ + _%hd171344171847%_ + _%tl171345171849%_)))) + (_%__match175882175883%_ + (lambda (_%e171271171907%_ + _%hd171272171910%_ + _%tl171273171912%_ + _%e171274171915%_ + _%hd171275171918%_ + _%tl171276171920%_ + _%e171277171923%_ + _%hd171278171926%_ + _%tl171279171928%_ + _%e171280171931%_ + _%hd171281171934%_ + _%tl171282171936%_ + _%e171283171939%_ + _%hd171284171942%_ + _%tl171285171944%_ + _%e171286171947%_ + _%hd171287171950%_ + _%tl171288171952%_ + _%e171289171955%_ + _%hd171290171958%_ + _%tl171291171960%_ + _%e171292171963%_ + _%hd171293171966%_ + _%tl171294171968%_ + _%e171295171971%_ + _%hd171296171974%_ + _%tl171297171976%_ + _%e171298171979%_ + _%hd171299171982%_ + _%tl171300171984%_ + _%e171301171987%_ + _%hd171302171990%_ + _%tl171303171992%_ + _%e171304171995%_ + _%hd171305171998%_ + _%tl171306172000%_ + _%e171307172003%_ + _%hd171308172006%_ + _%tl171309172008%_ + _%__splice175675175676%_ + _%target171310172011%_ + _%tl171312172013%_) + (letrec ((_%loop171313172016%_ + (lambda (_%hd171311172019%_ + _%args171317172021%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171037171745%_)) - (let ((_%e171040171750%_ + (gx#stx-pair? _%hd171311172019%_)) + (let ((_%e171314172024%_ (let () (declare (not safe)) - (gx#stx-e _%hd171037171745%_)))) - (let ((_%lp-tl171042171755%_ + (gx#stx-e _%hd171311172019%_)))) + (let ((_%lp-tl171316172029%_ (let () (declare (not safe)) - (##cdr _%e171040171750%_))) - (_%lp-hd171041171753%_ + (##cdr _%e171314172024%_))) + (_%lp-hd171315172027%_ (let () (declare (not safe)) - (##car _%e171040171750%_)))) - (_%loop171039171742%_ - _%lp-tl171042171755%_ - (cons _%lp-hd171041171753%_ - _%args171043171747%_)))) - (let ((_%args171044171758%_ - (reverse _%args171043171747%_))) - (let ((_%L171761%_ - _%args171044171758%_) - (_%L171762%_ _%hd171034171732%_) - (_%L171763%_ _%hd171025171708%_) - (_%L171764%_ _%hd171016171684%_) - (_%L171765%_ _%hd171007171660%_)) + (##car _%e171314172024%_)))) + (_%loop171313172016%_ + _%lp-tl171316172029%_ + (cons _%lp-hd171315172027%_ + _%args171317172021%_)))) + (let ((_%args171318172032%_ + (reverse _%args171317172021%_))) + (let ((_%L172035%_ + _%args171318172032%_) + (_%L172036%_ _%hd171308172006%_) + (_%L172037%_ _%hd171299171982%_) + (_%L172038%_ _%hd171290171958%_) + (_%L172039%_ _%hd171281171934%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L171765%_ + _%L172039%_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L171764%_ + _%L172038%_ 'call-method)) - (let ((__tmp176523 + (let ((__tmp176797 (let () (declare (not safe)) (slot-ref__0 - _%self170938%_ + _%self171212%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L171763%_ - __tmp176523))) - (_%__kont175399175400%_ - _%L171761%_ - _%L171762%_ - _%L171763%_ - _%L171764%_ - _%L171765%_) - (_%__kont175411175412%_)))))))) - (_%loop171039171742%_ _%target171036171737%_ '())))) - (_%__match175566175567%_ - (lambda (_%e170997171633%_ - _%hd170998171636%_ - _%tl170999171638%_ - _%e171000171641%_ - _%hd171001171644%_ - _%tl171002171646%_ - _%e171003171649%_ - _%hd171004171652%_ - _%tl171005171654%_ - _%e171006171657%_ - _%hd171007171660%_ - _%tl171008171662%_ - _%e171009171665%_ - _%hd171010171668%_ - _%tl171011171670%_ - _%e171012171673%_ - _%hd171013171676%_ - _%tl171014171678%_ - _%e171015171681%_ - _%hd171016171684%_ - _%tl171017171686%_ - _%e171018171689%_ - _%hd171019171692%_ - _%tl171020171694%_ - _%e171021171697%_ - _%hd171022171700%_ - _%tl171023171702%_) + _%L172037%_ + __tmp176797))) + (_%__kont175673175674%_ + _%L172035%_ + _%L172036%_ + _%L172037%_ + _%L172038%_ + _%L172039%_) + (_%__kont175685175686%_)))))))) + (_%loop171313172016%_ _%target171310172011%_ '())))) + (_%__match175840175841%_ + (lambda (_%e171271171907%_ + _%hd171272171910%_ + _%tl171273171912%_ + _%e171274171915%_ + _%hd171275171918%_ + _%tl171276171920%_ + _%e171277171923%_ + _%hd171278171926%_ + _%tl171279171928%_ + _%e171280171931%_ + _%hd171281171934%_ + _%tl171282171936%_ + _%e171283171939%_ + _%hd171284171942%_ + _%tl171285171944%_ + _%e171286171947%_ + _%hd171287171950%_ + _%tl171288171952%_ + _%e171289171955%_ + _%hd171290171958%_ + _%tl171291171960%_ + _%e171292171963%_ + _%hd171293171966%_ + _%tl171294171968%_ + _%e171295171971%_ + _%hd171296171974%_ + _%tl171297171976%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd171022171700%_)) + (gx#stx-eq? '%#ref _%hd171296171974%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171023171702%_)) - (let ((_%e171024171705%_ + (gx#stx-pair? _%tl171297171976%_)) + (let ((_%e171298171979%_ (let () (declare (not safe)) - (gx#stx-e _%tl171023171702%_)))) - (let ((_%tl171026171710%_ + (gx#stx-e _%tl171297171976%_)))) + (let ((_%tl171300171984%_ (let () (declare (not safe)) - (##cdr _%e171024171705%_))) - (_%hd171025171708%_ + (##cdr _%e171298171979%_))) + (_%hd171299171982%_ (let () (declare (not safe)) - (##car _%e171024171705%_)))) + (##car _%e171298171979%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171026171710%_)) + (gx#stx-null? _%tl171300171984%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171020171694%_)) - (let ((_%e171027171713%_ + (gx#stx-pair? _%tl171294171968%_)) + (let ((_%e171301171987%_ (let () (declare (not safe)) (gx#stx-e - _%tl171020171694%_)))) - (let ((_%tl171029171718%_ + _%tl171294171968%_)))) + (let ((_%tl171303171992%_ (let () (declare (not safe)) - (##cdr _%e171027171713%_))) - (_%hd171028171716%_ + (##cdr _%e171301171987%_))) + (_%hd171302171990%_ (let () (declare (not safe)) - (##car _%e171027171713%_)))) + (##car _%e171301171987%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd171028171716%_)) - (let ((_%e171030171721%_ + _%hd171302171990%_)) + (let ((_%e171304171995%_ (let () (declare (not safe)) (gx#stx-e - _%hd171028171716%_)))) - (let ((_%tl171032171726%_ + _%hd171302171990%_)))) + (let ((_%tl171306172000%_ (let () (declare (not safe)) - (##cdr _%e171030171721%_))) - (_%hd171031171724%_ + (##cdr _%e171304171995%_))) + (_%hd171305171998%_ (let () (declare (not safe)) - (##car _%e171030171721%_)))) + (##car _%e171304171995%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd171031171724%_)) + _%hd171305171998%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _%hd171031171724%_)) + (gx#stx-eq? '%#quote _%hd171305171998%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171032171726%_)) - (let ((_%e171033171729%_ + (gx#stx-pair? _%tl171306172000%_)) + (let ((_%e171307172003%_ (let () (declare (not safe)) - (gx#stx-e _%tl171032171726%_)))) - (let ((_%tl171035171734%_ + (gx#stx-e _%tl171306172000%_)))) + (let ((_%tl171309172008%_ (let () (declare (not safe)) - (##cdr _%e171033171729%_))) - (_%hd171034171732%_ + (##cdr _%e171307172003%_))) + (_%hd171308172006%_ (let () (declare (not safe)) - (##car _%e171033171729%_)))) + (##car _%e171307172003%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171035171734%_)) + (gx#stx-null? _%tl171309172008%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl171029171718%_)) - (let ((_%__splice175401175402%_ + (gx#stx-pair/null? _%tl171303171992%_)) + (let ((_%__splice175675175676%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl171029171718%_ + _%tl171303171992%_ '0)))) - (let ((_%tl171038171739%_ + (let ((_%tl171312172013%_ (let () (declare (not safe)) (##vector-ref - _%__splice175401175402%_ + _%__splice175675175676%_ '1))) - (_%target171036171737%_ + (_%target171310172011%_ (let () (declare (not safe)) (##vector-ref - _%__splice175401175402%_ + _%__splice175675175676%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171038171739%_)) - (_%__match175608175609%_ - _%e170997171633%_ - _%hd170998171636%_ - _%tl170999171638%_ - _%e171000171641%_ - _%hd171001171644%_ - _%tl171002171646%_ - _%e171003171649%_ - _%hd171004171652%_ - _%tl171005171654%_ - _%e171006171657%_ - _%hd171007171660%_ - _%tl171008171662%_ - _%e171009171665%_ - _%hd171010171668%_ - _%tl171011171670%_ - _%e171012171673%_ - _%hd171013171676%_ - _%tl171014171678%_ - _%e171015171681%_ - _%hd171016171684%_ - _%tl171017171686%_ - _%e171018171689%_ - _%hd171019171692%_ - _%tl171020171694%_ - _%e171021171697%_ - _%hd171022171700%_ - _%tl171023171702%_ - _%e171024171705%_ - _%hd171025171708%_ - _%tl171026171710%_ - _%e171027171713%_ - _%hd171028171716%_ - _%tl171029171718%_ - _%e171030171721%_ - _%hd171031171724%_ - _%tl171032171726%_ - _%e171033171729%_ - _%hd171034171732%_ - _%tl171035171734%_ - _%__splice175401175402%_ - _%target171036171737%_ - _%tl171038171739%_) - (_%__kont175411175412%_)))) - (_%__kont175411175412%_)) - (_%__kont175411175412%_)))) - (_%__kont175411175412%_)) - (_%__kont175411175412%_)) - (_%__kont175411175412%_)))) + _%tl171312172013%_)) + (_%__match175882175883%_ + _%e171271171907%_ + _%hd171272171910%_ + _%tl171273171912%_ + _%e171274171915%_ + _%hd171275171918%_ + _%tl171276171920%_ + _%e171277171923%_ + _%hd171278171926%_ + _%tl171279171928%_ + _%e171280171931%_ + _%hd171281171934%_ + _%tl171282171936%_ + _%e171283171939%_ + _%hd171284171942%_ + _%tl171285171944%_ + _%e171286171947%_ + _%hd171287171950%_ + _%tl171288171952%_ + _%e171289171955%_ + _%hd171290171958%_ + _%tl171291171960%_ + _%e171292171963%_ + _%hd171293171966%_ + _%tl171294171968%_ + _%e171295171971%_ + _%hd171296171974%_ + _%tl171297171976%_ + _%e171298171979%_ + _%hd171299171982%_ + _%tl171300171984%_ + _%e171301171987%_ + _%hd171302171990%_ + _%tl171303171992%_ + _%e171304171995%_ + _%hd171305171998%_ + _%tl171306172000%_ + _%e171307172003%_ + _%hd171308172006%_ + _%tl171309172008%_ + _%__splice175675175676%_ + _%target171310172011%_ + _%tl171312172013%_) + (_%__kont175685175686%_)))) + (_%__kont175685175686%_)) + (_%__kont175685175686%_)))) + (_%__kont175685175686%_)) + (_%__kont175685175686%_)) + (_%__kont175685175686%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont175411175412%_)))) - (_%__match175890175891%_ - _%e170997171633%_ - _%hd170998171636%_ - _%tl170999171638%_ - _%e171000171641%_ - _%hd171001171644%_ - _%tl171002171646%_ - _%e171003171649%_ - _%hd171004171652%_ - _%tl171005171654%_ - _%e171006171657%_ - _%hd171007171660%_ - _%tl171008171662%_ - _%e171009171665%_ - _%hd171010171668%_ - _%tl171011171670%_ - _%e171012171673%_ - _%hd171013171676%_ - _%tl171014171678%_ - _%e171015171681%_ - _%hd171016171684%_ - _%tl171017171686%_ - _%e171018171689%_ - _%hd171019171692%_ - _%tl171020171694%_)) - (_%__match175890175891%_ - _%e170997171633%_ - _%hd170998171636%_ - _%tl170999171638%_ - _%e171000171641%_ - _%hd171001171644%_ - _%tl171002171646%_ - _%e171003171649%_ - _%hd171004171652%_ - _%tl171005171654%_ - _%e171006171657%_ - _%hd171007171660%_ - _%tl171008171662%_ - _%e171009171665%_ - _%hd171010171668%_ - _%tl171011171670%_ - _%e171012171673%_ - _%hd171013171676%_ - _%tl171014171678%_ - _%e171015171681%_ - _%hd171016171684%_ - _%tl171017171686%_ - _%e171018171689%_ - _%hd171019171692%_ - _%tl171020171694%_)))) - (_%__match175890175891%_ - _%e170997171633%_ - _%hd170998171636%_ - _%tl170999171638%_ - _%e171000171641%_ - _%hd171001171644%_ - _%tl171002171646%_ - _%e171003171649%_ - _%hd171004171652%_ - _%tl171005171654%_ - _%e171006171657%_ - _%hd171007171660%_ - _%tl171008171662%_ - _%e171009171665%_ - _%hd171010171668%_ - _%tl171011171670%_ - _%e171012171673%_ - _%hd171013171676%_ - _%tl171014171678%_ - _%e171015171681%_ - _%hd171016171684%_ - _%tl171017171686%_ - _%e171018171689%_ - _%hd171019171692%_ - _%tl171020171694%_)) - (_%__match175676175677%_ - _%e170997171633%_ - _%hd170998171636%_ - _%tl170999171638%_ - _%e171000171641%_ - _%hd171001171644%_ - _%tl171002171646%_ - _%e171003171649%_ - _%hd171004171652%_ - _%tl171005171654%_ - _%e171006171657%_ - _%hd171007171660%_ - _%tl171008171662%_ - _%e171009171665%_ - _%hd171010171668%_ - _%tl171011171670%_ - _%e171012171673%_ - _%hd171013171676%_ - _%tl171014171678%_ - _%e171015171681%_ - _%hd171016171684%_ - _%tl171017171686%_ - _%e171018171689%_ - _%hd171019171692%_ - _%tl171020171694%_ - _%e171021171697%_ - _%hd171022171700%_ - _%tl171023171702%_)))) - (_%__match175498175499%_ - (lambda (_%e170953171822%_ - _%hd170954171825%_ - _%tl170955171827%_ - _%e170956171830%_ - _%hd170957171833%_ - _%tl170958171835%_ - _%e170959171838%_ - _%hd170960171841%_ - _%tl170961171843%_ - _%e170962171846%_ - _%hd170963171849%_ - _%tl170964171851%_ - _%e170965171854%_ - _%hd170966171857%_ - _%tl170967171859%_ - _%e170968171862%_ - _%hd170969171865%_ - _%tl170970171867%_ - _%e170971171870%_ - _%hd170972171873%_ - _%tl170973171875%_ - _%e170974171878%_ - _%hd170975171881%_ - _%tl170976171883%_ - _%e170977171886%_ - _%hd170978171889%_ - _%tl170979171891%_ - _%e170980171894%_ - _%hd170981171897%_ - _%tl170982171899%_ - _%__splice175397175398%_ - _%target170983171902%_ - _%tl170985171904%_) - (letrec ((_%loop170986171907%_ - (lambda (_%hd170984171910%_ - _%args170990171912%_) + (_%__kont175685175686%_)))) + (_%__match176164176165%_ + _%e171271171907%_ + _%hd171272171910%_ + _%tl171273171912%_ + _%e171274171915%_ + _%hd171275171918%_ + _%tl171276171920%_ + _%e171277171923%_ + _%hd171278171926%_ + _%tl171279171928%_ + _%e171280171931%_ + _%hd171281171934%_ + _%tl171282171936%_ + _%e171283171939%_ + _%hd171284171942%_ + _%tl171285171944%_ + _%e171286171947%_ + _%hd171287171950%_ + _%tl171288171952%_ + _%e171289171955%_ + _%hd171290171958%_ + _%tl171291171960%_ + _%e171292171963%_ + _%hd171293171966%_ + _%tl171294171968%_)) + (_%__match176164176165%_ + _%e171271171907%_ + _%hd171272171910%_ + _%tl171273171912%_ + _%e171274171915%_ + _%hd171275171918%_ + _%tl171276171920%_ + _%e171277171923%_ + _%hd171278171926%_ + _%tl171279171928%_ + _%e171280171931%_ + _%hd171281171934%_ + _%tl171282171936%_ + _%e171283171939%_ + _%hd171284171942%_ + _%tl171285171944%_ + _%e171286171947%_ + _%hd171287171950%_ + _%tl171288171952%_ + _%e171289171955%_ + _%hd171290171958%_ + _%tl171291171960%_ + _%e171292171963%_ + _%hd171293171966%_ + _%tl171294171968%_)))) + (_%__match176164176165%_ + _%e171271171907%_ + _%hd171272171910%_ + _%tl171273171912%_ + _%e171274171915%_ + _%hd171275171918%_ + _%tl171276171920%_ + _%e171277171923%_ + _%hd171278171926%_ + _%tl171279171928%_ + _%e171280171931%_ + _%hd171281171934%_ + _%tl171282171936%_ + _%e171283171939%_ + _%hd171284171942%_ + _%tl171285171944%_ + _%e171286171947%_ + _%hd171287171950%_ + _%tl171288171952%_ + _%e171289171955%_ + _%hd171290171958%_ + _%tl171291171960%_ + _%e171292171963%_ + _%hd171293171966%_ + _%tl171294171968%_)) + (_%__match175950175951%_ + _%e171271171907%_ + _%hd171272171910%_ + _%tl171273171912%_ + _%e171274171915%_ + _%hd171275171918%_ + _%tl171276171920%_ + _%e171277171923%_ + _%hd171278171926%_ + _%tl171279171928%_ + _%e171280171931%_ + _%hd171281171934%_ + _%tl171282171936%_ + _%e171283171939%_ + _%hd171284171942%_ + _%tl171285171944%_ + _%e171286171947%_ + _%hd171287171950%_ + _%tl171288171952%_ + _%e171289171955%_ + _%hd171290171958%_ + _%tl171291171960%_ + _%e171292171963%_ + _%hd171293171966%_ + _%tl171294171968%_ + _%e171295171971%_ + _%hd171296171974%_ + _%tl171297171976%_)))) + (_%__match175772175773%_ + (lambda (_%e171227172096%_ + _%hd171228172099%_ + _%tl171229172101%_ + _%e171230172104%_ + _%hd171231172107%_ + _%tl171232172109%_ + _%e171233172112%_ + _%hd171234172115%_ + _%tl171235172117%_ + _%e171236172120%_ + _%hd171237172123%_ + _%tl171238172125%_ + _%e171239172128%_ + _%hd171240172131%_ + _%tl171241172133%_ + _%e171242172136%_ + _%hd171243172139%_ + _%tl171244172141%_ + _%e171245172144%_ + _%hd171246172147%_ + _%tl171247172149%_ + _%e171248172152%_ + _%hd171249172155%_ + _%tl171250172157%_ + _%e171251172160%_ + _%hd171252172163%_ + _%tl171253172165%_ + _%e171254172168%_ + _%hd171255172171%_ + _%tl171256172173%_ + _%__splice175671175672%_ + _%target171257172176%_ + _%tl171259172178%_) + (letrec ((_%loop171260172181%_ + (lambda (_%hd171258172184%_ + _%args171264172186%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd170984171910%_)) - (let ((_%e170987171915%_ + (gx#stx-pair? _%hd171258172184%_)) + (let ((_%e171261172189%_ (let () (declare (not safe)) - (gx#stx-e _%hd170984171910%_)))) - (let ((_%lp-tl170989171920%_ + (gx#stx-e _%hd171258172184%_)))) + (let ((_%lp-tl171263172194%_ (let () (declare (not safe)) - (##cdr _%e170987171915%_))) - (_%lp-hd170988171918%_ + (##cdr _%e171261172189%_))) + (_%lp-hd171262172192%_ (let () (declare (not safe)) - (##car _%e170987171915%_)))) - (_%loop170986171907%_ - _%lp-tl170989171920%_ - (cons _%lp-hd170988171918%_ - _%args170990171912%_)))) - (let ((_%args170991171923%_ - (reverse _%args170990171912%_))) - (let ((_%L171926%_ - _%args170991171923%_) - (_%L171927%_ _%hd170981171897%_) - (_%L171928%_ _%hd170972171873%_) - (_%L171929%_ _%hd170963171849%_)) + (##car _%e171261172189%_)))) + (_%loop171260172181%_ + _%lp-tl171263172194%_ + (cons _%lp-hd171262172192%_ + _%args171264172186%_)))) + (let ((_%args171265172197%_ + (reverse _%args171264172186%_))) + (let ((_%L172200%_ + _%args171265172197%_) + (_%L172201%_ _%hd171255172171%_) + (_%L172202%_ _%hd171246172147%_) + (_%L172203%_ _%hd171237172123%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L171929%_ + _%L172203%_ 'call-method)) - (let ((__tmp176524 + (let ((__tmp176798 (let () (declare (not safe)) (slot-ref__0 - _%self170938%_ + _%self171212%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L171928%_ - __tmp176524))) - (_%__kont175395175396%_ - _%L171926%_ - _%L171927%_ - _%L171928%_ - _%L171929%_) - (_%__match175686175687%_ - _%e170953171822%_ - _%hd170954171825%_ - _%tl170955171827%_ - _%e170956171830%_ - _%hd170957171833%_ - _%tl170958171835%_ - _%e170959171838%_ - _%hd170960171841%_ - _%tl170961171843%_ - _%e170962171846%_ - _%hd170963171849%_ - _%tl170964171851%_ - _%e170965171854%_ - _%hd170966171857%_ - _%tl170967171859%_ - _%e170968171862%_ - _%hd170969171865%_ - _%tl170970171867%_ - _%e170971171870%_ - _%hd170972171873%_ - _%tl170973171875%_ - _%e170974171878%_ - _%hd170975171881%_ - _%tl170976171883%_ - _%e170977171886%_ - _%hd170978171889%_ - _%tl170979171891%_ - _%e170980171894%_ - _%hd170981171897%_ - _%tl170982171899%_)))))))) - (_%loop170986171907%_ _%target170983171902%_ '()))))) + _%L172202%_ + __tmp176798))) + (_%__kont175669175670%_ + _%L172200%_ + _%L172201%_ + _%L172202%_ + _%L172203%_) + (_%__match175960175961%_ + _%e171227172096%_ + _%hd171228172099%_ + _%tl171229172101%_ + _%e171230172104%_ + _%hd171231172107%_ + _%tl171232172109%_ + _%e171233172112%_ + _%hd171234172115%_ + _%tl171235172117%_ + _%e171236172120%_ + _%hd171237172123%_ + _%tl171238172125%_ + _%e171239172128%_ + _%hd171240172131%_ + _%tl171241172133%_ + _%e171242172136%_ + _%hd171243172139%_ + _%tl171244172141%_ + _%e171245172144%_ + _%hd171246172147%_ + _%tl171247172149%_ + _%e171248172152%_ + _%hd171249172155%_ + _%tl171250172157%_ + _%e171251172160%_ + _%hd171252172163%_ + _%tl171253172165%_ + _%e171254172168%_ + _%hd171255172171%_ + _%tl171256172173%_)))))))) + (_%loop171260172181%_ _%target171257172176%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx175393175394%_)) - (let ((_%e170953171822%_ + (gx#stx-pair? _%__stx175667175668%_)) + (let ((_%e171227172096%_ (let () (declare (not safe)) - (gx#stx-e _%__stx175393175394%_)))) - (let ((_%tl170955171827%_ + (gx#stx-e _%__stx175667175668%_)))) + (let ((_%tl171229172101%_ (let () (declare (not safe)) - (##cdr _%e170953171822%_))) - (_%hd170954171825%_ + (##cdr _%e171227172096%_))) + (_%hd171228172099%_ (let () (declare (not safe)) - (##car _%e170953171822%_)))) + (##car _%e171227172096%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl170955171827%_)) - (let ((_%e170956171830%_ + (gx#stx-pair? _%tl171229172101%_)) + (let ((_%e171230172104%_ (let () (declare (not safe)) - (gx#stx-e _%tl170955171827%_)))) - (let ((_%tl170958171835%_ + (gx#stx-e _%tl171229172101%_)))) + (let ((_%tl171232172109%_ (let () (declare (not safe)) - (##cdr _%e170956171830%_))) - (_%hd170957171833%_ + (##cdr _%e171230172104%_))) + (_%hd171231172107%_ (let () (declare (not safe)) - (##car _%e170956171830%_)))) + (##car _%e171230172104%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd170957171833%_)) - (let ((_%e170959171838%_ + (gx#stx-pair? _%hd171231172107%_)) + (let ((_%e171233172112%_ (let () (declare (not safe)) - (gx#stx-e _%hd170957171833%_)))) - (let ((_%tl170961171843%_ + (gx#stx-e _%hd171231172107%_)))) + (let ((_%tl171235172117%_ (let () (declare (not safe)) - (##cdr _%e170959171838%_))) - (_%hd170960171841%_ + (##cdr _%e171233172112%_))) + (_%hd171234172115%_ (let () (declare (not safe)) - (##car _%e170959171838%_)))) + (##car _%e171233172112%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd170960171841%_)) + _%hd171234172115%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd170960171841%_)) + _%hd171234172115%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl170961171843%_)) - (let ((_%e170962171846%_ + _%tl171235172117%_)) + (let ((_%e171236172120%_ (let () (declare (not safe)) (gx#stx-e - _%tl170961171843%_)))) - (let ((_%tl170964171851%_ + _%tl171235172117%_)))) + (let ((_%tl171238172125%_ (let () (declare (not safe)) - (##cdr _%e170962171846%_))) - (_%hd170963171849%_ + (##cdr _%e171236172120%_))) + (_%hd171237172123%_ (let () (declare (not safe)) - (##car _%e170962171846%_)))) + (##car _%e171236172120%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl170964171851%_)) + _%tl171238172125%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl170958171835%_)) - (let ((_%e170965171854%_ + (gx#stx-pair? _%tl171232172109%_)) + (let ((_%e171239172128%_ (let () (declare (not safe)) - (gx#stx-e _%tl170958171835%_)))) - (let ((_%tl170967171859%_ + (gx#stx-e _%tl171232172109%_)))) + (let ((_%tl171241172133%_ (let () (declare (not safe)) - (##cdr _%e170965171854%_))) - (_%hd170966171857%_ + (##cdr _%e171239172128%_))) + (_%hd171240172131%_ (let () (declare (not safe)) - (##car _%e170965171854%_)))) + (##car _%e171239172128%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd170966171857%_)) - (let ((_%e170968171862%_ + (gx#stx-pair? _%hd171240172131%_)) + (let ((_%e171242172136%_ (let () (declare (not safe)) - (gx#stx-e _%hd170966171857%_)))) - (let ((_%tl170970171867%_ + (gx#stx-e _%hd171240172131%_)))) + (let ((_%tl171244172141%_ (let () (declare (not safe)) - (##cdr _%e170968171862%_))) - (_%hd170969171865%_ + (##cdr _%e171242172136%_))) + (_%hd171243172139%_ (let () (declare (not safe)) - (##car _%e170968171862%_)))) + (##car _%e171242172136%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd170969171865%_)) + (gx#identifier? _%hd171243172139%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd170969171865%_)) + _%hd171243172139%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl170970171867%_)) - (let ((_%e170971171870%_ + _%tl171244172141%_)) + (let ((_%e171245172144%_ (let () (declare (not safe)) (gx#stx-e - _%tl170970171867%_)))) - (let ((_%tl170973171875%_ + _%tl171244172141%_)))) + (let ((_%tl171247172149%_ (let () (declare (not safe)) - (##cdr _%e170971171870%_))) - (_%hd170972171873%_ + (##cdr _%e171245172144%_))) + (_%hd171246172147%_ (let () (declare (not safe)) - (##car _%e170971171870%_)))) + (##car _%e171245172144%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl170973171875%_)) + _%tl171247172149%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl170967171859%_)) - (let ((_%e170974171878%_ + _%tl171241172133%_)) + (let ((_%e171248172152%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl170967171859%_)))) - (let ((_%tl170976171883%_ + (gx#stx-e _%tl171241172133%_)))) + (let ((_%tl171250172157%_ (let () (declare (not safe)) - (##cdr _%e170974171878%_))) - (_%hd170975171881%_ + (##cdr _%e171248172152%_))) + (_%hd171249172155%_ (let () (declare (not safe)) - (##car _%e170974171878%_)))) + (##car _%e171248172152%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd170975171881%_)) - (let ((_%e170977171886%_ + (gx#stx-pair? _%hd171249172155%_)) + (let ((_%e171251172160%_ (let () (declare (not safe)) - (gx#stx-e _%hd170975171881%_)))) - (let ((_%tl170979171891%_ + (gx#stx-e _%hd171249172155%_)))) + (let ((_%tl171253172165%_ (let () (declare (not safe)) - (##cdr _%e170977171886%_))) - (_%hd170978171889%_ + (##cdr _%e171251172160%_))) + (_%hd171252172163%_ (let () (declare (not safe)) - (##car _%e170977171886%_)))) + (##car _%e171251172160%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd170978171889%_)) + (gx#identifier? _%hd171252172163%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd170978171889%_)) + _%hd171252172163%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl170979171891%_)) - (let ((_%e170980171894%_ + (gx#stx-pair? _%tl171253172165%_)) + (let ((_%e171254172168%_ (let () (declare (not safe)) (gx#stx-e - _%tl170979171891%_)))) - (let ((_%tl170982171899%_ + _%tl171253172165%_)))) + (let ((_%tl171256172173%_ (let () (declare (not safe)) - (##cdr _%e170980171894%_))) - (_%hd170981171897%_ + (##cdr _%e171254172168%_))) + (_%hd171255172171%_ (let () (declare (not safe)) - (##car _%e170980171894%_)))) + (##car _%e171254172168%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl170982171899%_)) + _%tl171256172173%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl170976171883%_)) - (let ((_%__splice175397175398%_ + _%tl171250172157%_)) + (let ((_%__splice175671175672%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl170976171883%_ '0)))) - (let ((_%tl170985171904%_ + (gx#syntax-split-splice _%tl171250172157%_ '0)))) + (let ((_%tl171259172178%_ (let () (declare (not safe)) - (##vector-ref _%__splice175397175398%_ '1))) - (_%target170983171902%_ + (##vector-ref _%__splice175671175672%_ '1))) + (_%target171257172176%_ (let () (declare (not safe)) - (##vector-ref _%__splice175397175398%_ '0)))) + (##vector-ref _%__splice175671175672%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl170985171904%_)) - (_%__match175498175499%_ - _%e170953171822%_ - _%hd170954171825%_ - _%tl170955171827%_ - _%e170956171830%_ - _%hd170957171833%_ - _%tl170958171835%_ - _%e170959171838%_ - _%hd170960171841%_ - _%tl170961171843%_ - _%e170962171846%_ - _%hd170963171849%_ - _%tl170964171851%_ - _%e170965171854%_ - _%hd170966171857%_ - _%tl170967171859%_ - _%e170968171862%_ - _%hd170969171865%_ - _%tl170970171867%_ - _%e170971171870%_ - _%hd170972171873%_ - _%tl170973171875%_ - _%e170974171878%_ - _%hd170975171881%_ - _%tl170976171883%_ - _%e170977171886%_ - _%hd170978171889%_ - _%tl170979171891%_ - _%e170980171894%_ - _%hd170981171897%_ - _%tl170982171899%_ - _%__splice175397175398%_ - _%target170983171902%_ - _%tl170985171904%_) - (_%__match175686175687%_ - _%e170953171822%_ - _%hd170954171825%_ - _%tl170955171827%_ - _%e170956171830%_ - _%hd170957171833%_ - _%tl170958171835%_ - _%e170959171838%_ - _%hd170960171841%_ - _%tl170961171843%_ - _%e170962171846%_ - _%hd170963171849%_ - _%tl170964171851%_ - _%e170965171854%_ - _%hd170966171857%_ - _%tl170967171859%_ - _%e170968171862%_ - _%hd170969171865%_ - _%tl170970171867%_ - _%e170971171870%_ - _%hd170972171873%_ - _%tl170973171875%_ - _%e170974171878%_ - _%hd170975171881%_ - _%tl170976171883%_ - _%e170977171886%_ - _%hd170978171889%_ - _%tl170979171891%_ - _%e170980171894%_ - _%hd170981171897%_ - _%tl170982171899%_)))) - (_%__match175686175687%_ - _%e170953171822%_ - _%hd170954171825%_ - _%tl170955171827%_ - _%e170956171830%_ - _%hd170957171833%_ - _%tl170958171835%_ - _%e170959171838%_ - _%hd170960171841%_ - _%tl170961171843%_ - _%e170962171846%_ - _%hd170963171849%_ - _%tl170964171851%_ - _%e170965171854%_ - _%hd170966171857%_ - _%tl170967171859%_ - _%e170968171862%_ - _%hd170969171865%_ - _%tl170970171867%_ - _%e170971171870%_ - _%hd170972171873%_ - _%tl170973171875%_ - _%e170974171878%_ - _%hd170975171881%_ - _%tl170976171883%_ - _%e170977171886%_ - _%hd170978171889%_ - _%tl170979171891%_ - _%e170980171894%_ - _%hd170981171897%_ - _%tl170982171899%_)) + (gx#stx-null? _%tl171259172178%_)) + (_%__match175772175773%_ + _%e171227172096%_ + _%hd171228172099%_ + _%tl171229172101%_ + _%e171230172104%_ + _%hd171231172107%_ + _%tl171232172109%_ + _%e171233172112%_ + _%hd171234172115%_ + _%tl171235172117%_ + _%e171236172120%_ + _%hd171237172123%_ + _%tl171238172125%_ + _%e171239172128%_ + _%hd171240172131%_ + _%tl171241172133%_ + _%e171242172136%_ + _%hd171243172139%_ + _%tl171244172141%_ + _%e171245172144%_ + _%hd171246172147%_ + _%tl171247172149%_ + _%e171248172152%_ + _%hd171249172155%_ + _%tl171250172157%_ + _%e171251172160%_ + _%hd171252172163%_ + _%tl171253172165%_ + _%e171254172168%_ + _%hd171255172171%_ + _%tl171256172173%_ + _%__splice175671175672%_ + _%target171257172176%_ + _%tl171259172178%_) + (_%__match175960175961%_ + _%e171227172096%_ + _%hd171228172099%_ + _%tl171229172101%_ + _%e171230172104%_ + _%hd171231172107%_ + _%tl171232172109%_ + _%e171233172112%_ + _%hd171234172115%_ + _%tl171235172117%_ + _%e171236172120%_ + _%hd171237172123%_ + _%tl171238172125%_ + _%e171239172128%_ + _%hd171240172131%_ + _%tl171241172133%_ + _%e171242172136%_ + _%hd171243172139%_ + _%tl171244172141%_ + _%e171245172144%_ + _%hd171246172147%_ + _%tl171247172149%_ + _%e171248172152%_ + _%hd171249172155%_ + _%tl171250172157%_ + _%e171251172160%_ + _%hd171252172163%_ + _%tl171253172165%_ + _%e171254172168%_ + _%hd171255172171%_ + _%tl171256172173%_)))) + (_%__match175960175961%_ + _%e171227172096%_ + _%hd171228172099%_ + _%tl171229172101%_ + _%e171230172104%_ + _%hd171231172107%_ + _%tl171232172109%_ + _%e171233172112%_ + _%hd171234172115%_ + _%tl171235172117%_ + _%e171236172120%_ + _%hd171237172123%_ + _%tl171238172125%_ + _%e171239172128%_ + _%hd171240172131%_ + _%tl171241172133%_ + _%e171242172136%_ + _%hd171243172139%_ + _%tl171244172141%_ + _%e171245172144%_ + _%hd171246172147%_ + _%tl171247172149%_ + _%e171248172152%_ + _%hd171249172155%_ + _%tl171250172157%_ + _%e171251172160%_ + _%hd171252172163%_ + _%tl171253172165%_ + _%e171254172168%_ + _%hd171255172171%_ + _%tl171256172173%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match175890175891%_ - _%e170953171822%_ - _%hd170954171825%_ - _%tl170955171827%_ - _%e170956171830%_ - _%hd170957171833%_ - _%tl170958171835%_ - _%e170959171838%_ - _%hd170960171841%_ - _%tl170961171843%_ - _%e170962171846%_ - _%hd170963171849%_ - _%tl170964171851%_ - _%e170965171854%_ - _%hd170966171857%_ - _%tl170967171859%_ - _%e170968171862%_ - _%hd170969171865%_ - _%tl170970171867%_ - _%e170971171870%_ - _%hd170972171873%_ - _%tl170973171875%_ - _%e170974171878%_ - _%hd170975171881%_ - _%tl170976171883%_)))) - (_%__match175890175891%_ - _%e170953171822%_ - _%hd170954171825%_ - _%tl170955171827%_ - _%e170956171830%_ - _%hd170957171833%_ - _%tl170958171835%_ - _%e170959171838%_ - _%hd170960171841%_ - _%tl170961171843%_ - _%e170962171846%_ - _%hd170963171849%_ - _%tl170964171851%_ - _%e170965171854%_ - _%hd170966171857%_ - _%tl170967171859%_ - _%e170968171862%_ - _%hd170969171865%_ - _%tl170970171867%_ - _%e170971171870%_ - _%hd170972171873%_ - _%tl170973171875%_ - _%e170974171878%_ - _%hd170975171881%_ - _%tl170976171883%_)) - (_%__match175566175567%_ - _%e170953171822%_ - _%hd170954171825%_ - _%tl170955171827%_ - _%e170956171830%_ - _%hd170957171833%_ - _%tl170958171835%_ - _%e170959171838%_ - _%hd170960171841%_ - _%tl170961171843%_ - _%e170962171846%_ - _%hd170963171849%_ - _%tl170964171851%_ - _%e170965171854%_ - _%hd170966171857%_ - _%tl170967171859%_ - _%e170968171862%_ - _%hd170969171865%_ - _%tl170970171867%_ - _%e170971171870%_ - _%hd170972171873%_ - _%tl170973171875%_ - _%e170974171878%_ - _%hd170975171881%_ - _%tl170976171883%_ - _%e170977171886%_ - _%hd170978171889%_ - _%tl170979171891%_)) - (_%__match175890175891%_ - _%e170953171822%_ - _%hd170954171825%_ - _%tl170955171827%_ - _%e170956171830%_ - _%hd170957171833%_ - _%tl170958171835%_ - _%e170959171838%_ - _%hd170960171841%_ - _%tl170961171843%_ - _%e170962171846%_ - _%hd170963171849%_ - _%tl170964171851%_ - _%e170965171854%_ - _%hd170966171857%_ - _%tl170967171859%_ - _%e170968171862%_ - _%hd170969171865%_ - _%tl170970171867%_ - _%e170971171870%_ - _%hd170972171873%_ - _%tl170973171875%_ - _%e170974171878%_ - _%hd170975171881%_ - _%tl170976171883%_)))) - (_%__match175890175891%_ - _%e170953171822%_ - _%hd170954171825%_ - _%tl170955171827%_ - _%e170956171830%_ - _%hd170957171833%_ - _%tl170958171835%_ - _%e170959171838%_ - _%hd170960171841%_ - _%tl170961171843%_ - _%e170962171846%_ - _%hd170963171849%_ - _%tl170964171851%_ - _%e170965171854%_ - _%hd170966171857%_ - _%tl170967171859%_ - _%e170968171862%_ - _%hd170969171865%_ - _%tl170970171867%_ - _%e170971171870%_ - _%hd170972171873%_ - _%tl170973171875%_ - _%e170974171878%_ - _%hd170975171881%_ - _%tl170976171883%_)))) - (_%__match175828175829%_ - _%e170953171822%_ - _%hd170954171825%_ - _%tl170955171827%_ - _%e170956171830%_ - _%hd170957171833%_ - _%tl170958171835%_ - _%e170959171838%_ - _%hd170960171841%_ - _%tl170961171843%_ - _%e170962171846%_ - _%hd170963171849%_ - _%tl170964171851%_ - _%e170965171854%_ - _%hd170966171857%_ - _%tl170967171859%_ - _%e170968171862%_ - _%hd170969171865%_ - _%tl170970171867%_ - _%e170971171870%_ - _%hd170972171873%_ - _%tl170973171875%_)) - (_%__kont175411175412%_)))) + (_%__match176164176165%_ + _%e171227172096%_ + _%hd171228172099%_ + _%tl171229172101%_ + _%e171230172104%_ + _%hd171231172107%_ + _%tl171232172109%_ + _%e171233172112%_ + _%hd171234172115%_ + _%tl171235172117%_ + _%e171236172120%_ + _%hd171237172123%_ + _%tl171238172125%_ + _%e171239172128%_ + _%hd171240172131%_ + _%tl171241172133%_ + _%e171242172136%_ + _%hd171243172139%_ + _%tl171244172141%_ + _%e171245172144%_ + _%hd171246172147%_ + _%tl171247172149%_ + _%e171248172152%_ + _%hd171249172155%_ + _%tl171250172157%_)))) + (_%__match176164176165%_ + _%e171227172096%_ + _%hd171228172099%_ + _%tl171229172101%_ + _%e171230172104%_ + _%hd171231172107%_ + _%tl171232172109%_ + _%e171233172112%_ + _%hd171234172115%_ + _%tl171235172117%_ + _%e171236172120%_ + _%hd171237172123%_ + _%tl171238172125%_ + _%e171239172128%_ + _%hd171240172131%_ + _%tl171241172133%_ + _%e171242172136%_ + _%hd171243172139%_ + _%tl171244172141%_ + _%e171245172144%_ + _%hd171246172147%_ + _%tl171247172149%_ + _%e171248172152%_ + _%hd171249172155%_ + _%tl171250172157%_)) + (_%__match175840175841%_ + _%e171227172096%_ + _%hd171228172099%_ + _%tl171229172101%_ + _%e171230172104%_ + _%hd171231172107%_ + _%tl171232172109%_ + _%e171233172112%_ + _%hd171234172115%_ + _%tl171235172117%_ + _%e171236172120%_ + _%hd171237172123%_ + _%tl171238172125%_ + _%e171239172128%_ + _%hd171240172131%_ + _%tl171241172133%_ + _%e171242172136%_ + _%hd171243172139%_ + _%tl171244172141%_ + _%e171245172144%_ + _%hd171246172147%_ + _%tl171247172149%_ + _%e171248172152%_ + _%hd171249172155%_ + _%tl171250172157%_ + _%e171251172160%_ + _%hd171252172163%_ + _%tl171253172165%_)) + (_%__match176164176165%_ + _%e171227172096%_ + _%hd171228172099%_ + _%tl171229172101%_ + _%e171230172104%_ + _%hd171231172107%_ + _%tl171232172109%_ + _%e171233172112%_ + _%hd171234172115%_ + _%tl171235172117%_ + _%e171236172120%_ + _%hd171237172123%_ + _%tl171238172125%_ + _%e171239172128%_ + _%hd171240172131%_ + _%tl171241172133%_ + _%e171242172136%_ + _%hd171243172139%_ + _%tl171244172141%_ + _%e171245172144%_ + _%hd171246172147%_ + _%tl171247172149%_ + _%e171248172152%_ + _%hd171249172155%_ + _%tl171250172157%_)))) + (_%__match176164176165%_ + _%e171227172096%_ + _%hd171228172099%_ + _%tl171229172101%_ + _%e171230172104%_ + _%hd171231172107%_ + _%tl171232172109%_ + _%e171233172112%_ + _%hd171234172115%_ + _%tl171235172117%_ + _%e171236172120%_ + _%hd171237172123%_ + _%tl171238172125%_ + _%e171239172128%_ + _%hd171240172131%_ + _%tl171241172133%_ + _%e171242172136%_ + _%hd171243172139%_ + _%tl171244172141%_ + _%e171245172144%_ + _%hd171246172147%_ + _%tl171247172149%_ + _%e171248172152%_ + _%hd171249172155%_ + _%tl171250172157%_)))) + (_%__match176102176103%_ + _%e171227172096%_ + _%hd171228172099%_ + _%tl171229172101%_ + _%e171230172104%_ + _%hd171231172107%_ + _%tl171232172109%_ + _%e171233172112%_ + _%hd171234172115%_ + _%tl171235172117%_ + _%e171236172120%_ + _%hd171237172123%_ + _%tl171238172125%_ + _%e171239172128%_ + _%hd171240172131%_ + _%tl171241172133%_ + _%e171242172136%_ + _%hd171243172139%_ + _%tl171244172141%_ + _%e171245172144%_ + _%hd171246172147%_ + _%tl171247172149%_)) + (_%__kont175685175686%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont175411175412%_)) - (_%__kont175411175412%_)) - (_%__kont175411175412%_)))) - (_%__kont175411175412%_)))) - (_%__kont175411175412%_)) - (_%__kont175411175412%_)))) + (_%__kont175685175686%_)) + (_%__kont175685175686%_)) + (_%__kont175685175686%_)))) + (_%__kont175685175686%_)))) + (_%__kont175685175686%_)) + (_%__kont175685175686%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont175411175412%_)) - (_%__kont175411175412%_)) - (_%__kont175411175412%_)))) - (_%__kont175411175412%_)))) - (_%__kont175411175412%_)))) - (_%__kont175411175412%_))))))) + (_%__kont175685175686%_)) + (_%__kont175685175686%_)) + (_%__kont175685175686%_)))) + (_%__kont175685175686%_)))) + (_%__kont175685175686%_)))) + (_%__kont175685175686%_))))))) (define gxc#subst-object-refs-call% - (lambda (_%self169877%_ _%stx169878%_) - (letrec ((_%force-e169880%_ - (lambda (_%target170936%_) + (lambda (_%self170151%_ _%stx170152%_) + (letrec ((_%force-e170154%_ + (lambda (_%target171210%_) (cons '%#call (cons (cons '%#ref (cons 'force '())) - (cons (cons '%#ref (cons _%target170936%_ '())) + (cons (cons '%#ref (cons _%target171210%_ '())) '())))))) - (let* ((_%__stx175895175896%_ _%stx169878%_) - (_%g169888170110%_ + (let* ((_%__stx176169176170%_ _%stx170152%_) + (_%g170162170384%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx175895175896%_))))) - (let ((_%__kont175897175898%_ - (lambda (_%L170882%_ _%L170883%_ _%L170884%_ _%L170885%_) - (let ((_%$method170930%_ - (let ((__tmp176526 + _%__stx176169176170%_))))) + (let ((_%__kont176171176172%_ + (lambda (_%L171156%_ _%L171157%_ _%L171158%_ _%L171159%_) + (let ((_%$method171204%_ + (let ((__tmp176800 (let () (declare (not safe)) - (slot-ref__0 _%self169877%_ 'methods))) - (__tmp176525 + (slot-ref__0 _%self170151%_ 'methods))) + (__tmp176799 (let () (declare (not safe)) - (gx#stx-e _%L170883%_)))) + (gx#stx-e _%L171157%_)))) (declare (not safe)) - (hash-ref__0 __tmp176526 __tmp176525))) - (_%args170931%_ - (map (lambda (_%g170918170920%_) + (hash-ref__0 __tmp176800 __tmp176799))) + (_%args171205%_ + (map (lambda (_%g171192171194%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self169877%_ - _%g170918170920%_))) - (let ((__tmp176527 - (lambda (_%g170922170925%_ - _%g170923170927%_) - (cons _%g170922170925%_ - _%g170923170927%_)))) + _%self170151%_ + _%g171192171194%_))) + (let ((__tmp176801 + (lambda (_%g171196171199%_ + _%g171197171201%_) + (cons _%g171196171199%_ + _%g171197171201%_)))) (declare (not safe)) - (__foldr1 __tmp176527 '() _%L170882%_))))) - (let ((__tmp176528 + (__foldr1 __tmp176801 '() _%L171156%_))))) + (let ((__tmp176802 (cons '%#call - (cons (_%force-e169880%_ _%$method170930%_) + (cons (_%force-e170154%_ _%$method171204%_) (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self169877%_ + _%self170151%_ 'receiver)) '())) - _%args170931%_))))) + _%args171205%_))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp176528 _%stx169878%_))))) - (_%__kont175901175902%_ - (lambda (_%L170714%_ - _%L170715%_ - _%L170716%_ - _%L170717%_ - _%L170718%_) - (let ((_%$method170770%_ - (let ((__tmp176530 + (gxc#xform-wrap-source __tmp176802 _%stx170152%_))))) + (_%__kont176175176176%_ + (lambda (_%L170988%_ + _%L170989%_ + _%L170990%_ + _%L170991%_ + _%L170992%_) + (let ((_%$method171044%_ + (let ((__tmp176804 (let () (declare (not safe)) - (slot-ref__0 _%self169877%_ 'methods))) - (__tmp176529 + (slot-ref__0 _%self170151%_ 'methods))) + (__tmp176803 (let () (declare (not safe)) - (gx#stx-e _%L170715%_)))) + (gx#stx-e _%L170989%_)))) (declare (not safe)) - (hash-ref__0 __tmp176530 __tmp176529))) - (_%args170771%_ - (map (lambda (_%g170758170760%_) + (hash-ref__0 __tmp176804 __tmp176803))) + (_%args171045%_ + (map (lambda (_%g171032171034%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self169877%_ - _%g170758170760%_))) - (let ((__tmp176531 - (lambda (_%g170762170765%_ - _%g170763170767%_) - (cons _%g170762170765%_ - _%g170763170767%_)))) + _%self170151%_ + _%g171032171034%_))) + (let ((__tmp176805 + (lambda (_%g171036171039%_ + _%g171037171041%_) + (cons _%g171036171039%_ + _%g171037171041%_)))) (declare (not safe)) - (__foldr1 __tmp176531 '() _%L170714%_))))) - (let ((__tmp176532 + (__foldr1 __tmp176805 '() _%L170988%_))))) + (let ((__tmp176806 (cons '%#call (cons (cons '%#ref (cons 'apply '())) - (cons (_%force-e169880%_ - _%$method170770%_) + (cons (_%force-e170154%_ + _%$method171044%_) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self169877%_ 'receiver)) + (slot-ref__0 _%self170151%_ 'receiver)) '())) - _%args170771%_)))))) + _%args171045%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (gxc#xform-wrap-source __tmp176532 _%stx169878%_))))) - (_%__kont175905175906%_ - (lambda (_%L170545%_ _%L170546%_ _%L170547%_) - (let* ((_%$field170579%_ - (let ((__tmp176534 + (gxc#xform-wrap-source __tmp176806 _%stx170152%_))))) + (_%__kont176179176180%_ + (lambda (_%L170819%_ _%L170820%_ _%L170821%_) + (let* ((_%$field170853%_ + (let ((__tmp176808 (let () (declare (not safe)) - (slot-ref__0 _%self169877%_ 'slots))) - (__tmp176533 + (slot-ref__0 _%self170151%_ 'slots))) + (__tmp176807 (let () (declare (not safe)) - (gx#stx-e _%L170545%_)))) + (gx#stx-e _%L170819%_)))) (declare (not safe)) - (hash-ref__0 __tmp176534 __tmp176533))) - (__tmp176535 + (hash-ref__0 __tmp176808 __tmp176807))) + (__tmp176809 (cons '%#struct-unchecked-ref (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self169877%_ + _%self170151%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field170579%_ + (cons _%$field170853%_ '())) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self169877%_ 'receiver)) + (slot-ref__0 _%self170151%_ 'receiver)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp176535 _%stx169878%_)))) - (_%__kont175907175908%_ - (lambda (_%L170419%_ _%L170420%_ _%L170421%_ _%L170422%_) - (let ((_%$field170457%_ - (let ((__tmp176537 + (gxc#xform-wrap-source __tmp176809 _%stx170152%_)))) + (_%__kont176181176182%_ + (lambda (_%L170693%_ _%L170694%_ _%L170695%_ _%L170696%_) + (let ((_%$field170731%_ + (let ((__tmp176811 (let () (declare (not safe)) - (slot-ref__0 _%self169877%_ 'slots))) - (__tmp176536 + (slot-ref__0 _%self170151%_ 'slots))) + (__tmp176810 (let () (declare (not safe)) - (gx#stx-e _%L170420%_)))) + (gx#stx-e _%L170694%_)))) (declare (not safe)) - (hash-ref__0 __tmp176537 __tmp176536))) - (_%expr170458%_ + (hash-ref__0 __tmp176811 __tmp176810))) + (_%expr170732%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self169877%_ _%L170419%_)))) - (let ((__tmp176538 + (gxc#compile-e__1 _%self170151%_ _%L170693%_)))) + (let ((__tmp176812 (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self169877%_ + _%self170151%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field170457%_ + (cons _%$field170731%_ '())) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self169877%_ 'receiver)) + (slot-ref__0 _%self170151%_ 'receiver)) '())) - (cons _%expr170458%_ '()))))))) + (cons _%expr170732%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (gxc#xform-wrap-source __tmp176538 _%stx169878%_))))) - (_%__kont175909175910%_ - (lambda (_%L170291%_ _%L170292%_) - (let* ((_%accessor170314%_ - (let ((__tmp176539 + (gxc#xform-wrap-source __tmp176812 _%stx170152%_))))) + (_%__kont176183176184%_ + (lambda (_%L170565%_ _%L170566%_) + (let* ((_%accessor170588%_ + (let ((__tmp176813 (let () (declare (not safe)) - (gxc#identifier-symbol _%L170292%_)))) + (gxc#identifier-symbol _%L170566%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp176539))) - (_%klass170316%_ - (let ((__tmp176540 + (gxc#optimizer-resolve-type __tmp176813))) + (_%klass170590%_ + (let ((__tmp176814 (##structure-ref - _%accessor170314%_ + _%accessor170588%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx169878%_ - __tmp176540))) - (_%slot170318%_ + _%stx170152%_ + __tmp176814))) + (_%slot170592%_ (##structure-ref - _%accessor170314%_ + _%accessor170588%_ '3 gxc#!accessor::t '#f))) (if (if (##structure-ref - _%accessor170314%_ + _%accessor170588%_ '4 gxc#!accessor::t '#f) @@ -6959,37 +6959,37 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass170316%_ - _%slot170318%_)) + _%klass170590%_ + _%slot170592%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass170316%_ + _%klass170590%_ '8 '#f '#f)))) - _%stx169878%_ - (let* ((_%$field170324%_ - (let ((__tmp176541 + _%stx170152%_ + (let* ((_%$field170598%_ + (let ((__tmp176815 (let () (declare (not safe)) (slot-ref__0 - _%self169877%_ + _%self170151%_ 'slots)))) (declare (not safe)) - (hash-ref__0 __tmp176541 _%slot170318%_))) - (__tmp176542 + (hash-ref__0 __tmp176815 _%slot170592%_))) + (__tmp176816 (cons '%#struct-unchecked-ref (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self169877%_ + _%self170151%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field170324%_ + (cons _%$field170598%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -6997,46 +6997,46 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) - (slot-ref__0 _%self169877%_ 'receiver)) + (slot-ref__0 _%self170151%_ 'receiver)) '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp176542 - _%stx169878%_)))))) - (_%__kont175911175912%_ - (lambda (_%L170186%_ _%L170187%_ _%L170188%_) - (let* ((_%mutator170216%_ - (let ((__tmp176543 + __tmp176816 + _%stx170152%_)))))) + (_%__kont176185176186%_ + (lambda (_%L170460%_ _%L170461%_ _%L170462%_) + (let* ((_%mutator170490%_ + (let ((__tmp176817 (let () (declare (not safe)) - (gxc#identifier-symbol _%L170188%_)))) + (gxc#identifier-symbol _%L170462%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp176543))) - (_%klass170218%_ - (let ((__tmp176544 + (gxc#optimizer-resolve-type __tmp176817))) + (_%klass170492%_ + (let ((__tmp176818 (##structure-ref - _%mutator170216%_ + _%mutator170490%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx169878%_ - __tmp176544))) - (_%slot170220%_ + _%stx170152%_ + __tmp176818))) + (_%slot170494%_ (##structure-ref - _%mutator170216%_ + _%mutator170490%_ '3 gxc#!mutator::t '#f)) - (_%expr170222%_ + (_%expr170496%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self169877%_ _%L170186%_)))) + (gxc#compile-e__1 _%self170151%_ _%L170460%_)))) (if (if (##structure-ref - _%mutator170216%_ + _%mutator170490%_ '4 gxc#!mutator::t '#f) @@ -7044,56 +7044,56 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass170218%_ - _%slot170220%_)) + _%klass170492%_ + _%slot170494%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass170218%_ + _%klass170492%_ '8 '#f '#f)))) - (let ((__tmp176545 + (let ((__tmp176819 (cons '%#call (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L170188%_ '())) + (cons _%L170462%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L170187%_ + (cons _%L170461%_ '())) - (cons _%expr170222%_ + (cons _%expr170496%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp176545 _%stx169878%_)) - (let* ((_%$field170228%_ - (let ((__tmp176546 + (gxc#xform-wrap-source __tmp176819 _%stx170152%_)) + (let* ((_%$field170502%_ + (let ((__tmp176820 (let () (declare (not safe)) (slot-ref__0 - _%self169877%_ + _%self170151%_ 'slots)))) (declare (not safe)) - (hash-ref__0 __tmp176546 _%slot170220%_))) - (__tmp176547 + (hash-ref__0 __tmp176820 _%slot170494%_))) + (__tmp176821 (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self169877%_ + _%self170151%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field170228%_ + (cons _%$field170502%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -7101,1846 +7101,1846 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) - (slot-ref__0 _%self169877%_ 'receiver)) + (slot-ref__0 _%self170151%_ 'receiver)) '())) - (cons _%expr170222%_ '()))))))) + (cons _%expr170496%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp176547 - _%stx169878%_)))))) - (_%__kont175913175914%_ + __tmp176821 + _%stx170152%_)))))) + (_%__kont176187176188%_ (lambda () (let () (declare (not safe)) - (gxc#xform-operands _%self169877%_ _%stx169878%_))))) - (let* ((_%__match176394176395%_ - (lambda (_%e170082170122%_ - _%hd170083170125%_ - _%tl170084170127%_ - _%e170085170130%_ - _%hd170086170133%_ - _%tl170087170135%_ - _%e170088170138%_ - _%hd170089170141%_ - _%tl170090170143%_ - _%e170091170146%_ - _%hd170092170149%_ - _%tl170093170151%_ - _%e170094170154%_ - _%hd170095170157%_ - _%tl170096170159%_ - _%e170097170162%_ - _%hd170098170165%_ - _%tl170099170167%_ - _%e170100170170%_ - _%hd170101170173%_ - _%tl170102170175%_ - _%e170103170178%_ - _%hd170104170181%_ - _%tl170105170183%_) - (let ((_%L170186%_ _%hd170104170181%_) - (_%L170187%_ _%hd170101170173%_) - (_%L170188%_ _%hd170092170149%_)) - (if (and (let ((__tmp176548 + (gxc#xform-operands _%self170151%_ _%stx170152%_))))) + (let* ((_%__match176668176669%_ + (lambda (_%e170356170396%_ + _%hd170357170399%_ + _%tl170358170401%_ + _%e170359170404%_ + _%hd170360170407%_ + _%tl170361170409%_ + _%e170362170412%_ + _%hd170363170415%_ + _%tl170364170417%_ + _%e170365170420%_ + _%hd170366170423%_ + _%tl170367170425%_ + _%e170368170428%_ + _%hd170369170431%_ + _%tl170370170433%_ + _%e170371170436%_ + _%hd170372170439%_ + _%tl170373170441%_ + _%e170374170444%_ + _%hd170375170447%_ + _%tl170376170449%_ + _%e170377170452%_ + _%hd170378170455%_ + _%tl170379170457%_) + (let ((_%L170460%_ _%hd170378170455%_) + (_%L170461%_ _%hd170375170447%_) + (_%L170462%_ _%hd170366170423%_)) + (if (and (let ((__tmp176822 (let () (declare (not safe)) (slot-ref__0 - _%self169877%_ + _%self170151%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L170187%_ - __tmp176548)) - (let ((__tmp176549 - (let ((__tmp176550 + _%L170461%_ + __tmp176822)) + (let ((__tmp176823 + (let ((__tmp176824 (let () (declare (not safe)) (gxc#identifier-symbol - _%L170188%_)))) + _%L170462%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp176550)))) + __tmp176824)))) (declare (not safe)) (##structure-instance-of? - __tmp176549 + __tmp176823 'gxc#!mutator::t))) - (_%__kont175911175912%_ - _%L170186%_ - _%L170187%_ - _%L170188%_) - (_%__kont175913175914%_))))) - (_%__match176392176393%_ - (lambda (_%e170082170122%_ - _%hd170083170125%_ - _%tl170084170127%_ - _%e170085170130%_ - _%hd170086170133%_ - _%tl170087170135%_ - _%e170088170138%_ - _%hd170089170141%_ - _%tl170090170143%_ - _%e170091170146%_ - _%hd170092170149%_ - _%tl170093170151%_ - _%e170094170154%_ - _%hd170095170157%_ - _%tl170096170159%_ - _%e170097170162%_ - _%hd170098170165%_ - _%tl170099170167%_ - _%e170100170170%_ - _%hd170101170173%_ - _%tl170102170175%_ - _%e170103170178%_ - _%hd170104170181%_ - _%tl170105170183%_) + (_%__kont176185176186%_ + _%L170460%_ + _%L170461%_ + _%L170462%_) + (_%__kont176187176188%_))))) + (_%__match176666176667%_ + (lambda (_%e170356170396%_ + _%hd170357170399%_ + _%tl170358170401%_ + _%e170359170404%_ + _%hd170360170407%_ + _%tl170361170409%_ + _%e170362170412%_ + _%hd170363170415%_ + _%tl170364170417%_ + _%e170365170420%_ + _%hd170366170423%_ + _%tl170367170425%_ + _%e170368170428%_ + _%hd170369170431%_ + _%tl170370170433%_ + _%e170371170436%_ + _%hd170372170439%_ + _%tl170373170441%_ + _%e170374170444%_ + _%hd170375170447%_ + _%tl170376170449%_ + _%e170377170452%_ + _%hd170378170455%_ + _%tl170379170457%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl170105170183%_)) - (_%__match176394176395%_ - _%e170082170122%_ - _%hd170083170125%_ - _%tl170084170127%_ - _%e170085170130%_ - _%hd170086170133%_ - _%tl170087170135%_ - _%e170088170138%_ - _%hd170089170141%_ - _%tl170090170143%_ - _%e170091170146%_ - _%hd170092170149%_ - _%tl170093170151%_ - _%e170094170154%_ - _%hd170095170157%_ - _%tl170096170159%_ - _%e170097170162%_ - _%hd170098170165%_ - _%tl170099170167%_ - _%e170100170170%_ - _%hd170101170173%_ - _%tl170102170175%_ - _%e170103170178%_ - _%hd170104170181%_ - _%tl170105170183%_) - (_%__kont175913175914%_)))) - (_%__match176386176387%_ - (lambda (_%e170082170122%_ - _%hd170083170125%_ - _%tl170084170127%_ - _%e170085170130%_ - _%hd170086170133%_ - _%tl170087170135%_ - _%e170088170138%_ - _%hd170089170141%_ - _%tl170090170143%_ - _%e170091170146%_ - _%hd170092170149%_ - _%tl170093170151%_ - _%e170094170154%_ - _%hd170095170157%_ - _%tl170096170159%_ - _%e170097170162%_ - _%hd170098170165%_ - _%tl170099170167%_ - _%e170100170170%_ - _%hd170101170173%_ - _%tl170102170175%_) + (gx#stx-null? _%tl170379170457%_)) + (_%__match176668176669%_ + _%e170356170396%_ + _%hd170357170399%_ + _%tl170358170401%_ + _%e170359170404%_ + _%hd170360170407%_ + _%tl170361170409%_ + _%e170362170412%_ + _%hd170363170415%_ + _%tl170364170417%_ + _%e170365170420%_ + _%hd170366170423%_ + _%tl170367170425%_ + _%e170368170428%_ + _%hd170369170431%_ + _%tl170370170433%_ + _%e170371170436%_ + _%hd170372170439%_ + _%tl170373170441%_ + _%e170374170444%_ + _%hd170375170447%_ + _%tl170376170449%_ + _%e170377170452%_ + _%hd170378170455%_ + _%tl170379170457%_) + (_%__kont176187176188%_)))) + (_%__match176660176661%_ + (lambda (_%e170356170396%_ + _%hd170357170399%_ + _%tl170358170401%_ + _%e170359170404%_ + _%hd170360170407%_ + _%tl170361170409%_ + _%e170362170412%_ + _%hd170363170415%_ + _%tl170364170417%_ + _%e170365170420%_ + _%hd170366170423%_ + _%tl170367170425%_ + _%e170368170428%_ + _%hd170369170431%_ + _%tl170370170433%_ + _%e170371170436%_ + _%hd170372170439%_ + _%tl170373170441%_ + _%e170374170444%_ + _%hd170375170447%_ + _%tl170376170449%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl170096170159%_)) - (let ((_%e170103170178%_ + (gx#stx-pair? _%tl170370170433%_)) + (let ((_%e170377170452%_ (let () (declare (not safe)) - (gx#stx-e _%tl170096170159%_)))) - (let ((_%tl170105170183%_ + (gx#stx-e _%tl170370170433%_)))) + (let ((_%tl170379170457%_ (let () (declare (not safe)) - (##cdr _%e170103170178%_))) - (_%hd170104170181%_ + (##cdr _%e170377170452%_))) + (_%hd170378170455%_ (let () (declare (not safe)) - (##car _%e170103170178%_)))) + (##car _%e170377170452%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl170105170183%_)) - (_%__match176394176395%_ - _%e170082170122%_ - _%hd170083170125%_ - _%tl170084170127%_ - _%e170085170130%_ - _%hd170086170133%_ - _%tl170087170135%_ - _%e170088170138%_ - _%hd170089170141%_ - _%tl170090170143%_ - _%e170091170146%_ - _%hd170092170149%_ - _%tl170093170151%_ - _%e170094170154%_ - _%hd170095170157%_ - _%tl170096170159%_ - _%e170097170162%_ - _%hd170098170165%_ - _%tl170099170167%_ - _%e170100170170%_ - _%hd170101170173%_ - _%tl170102170175%_ - _%e170103170178%_ - _%hd170104170181%_ - _%tl170105170183%_) - (_%__kont175913175914%_)))) - (_%__kont175913175914%_)))) - (_%__match176332176333%_ - (lambda (_%e170058170235%_ - _%hd170059170238%_ - _%tl170060170240%_ - _%e170061170243%_ - _%hd170062170246%_ - _%tl170063170248%_ - _%e170064170251%_ - _%hd170065170254%_ - _%tl170066170256%_ - _%e170067170259%_ - _%hd170068170262%_ - _%tl170069170264%_ - _%e170070170267%_ - _%hd170071170270%_ - _%tl170072170272%_ - _%e170073170275%_ - _%hd170074170278%_ - _%tl170075170280%_ - _%e170076170283%_ - _%hd170077170286%_ - _%tl170078170288%_) - (let ((_%L170291%_ _%hd170077170286%_) - (_%L170292%_ _%hd170068170262%_)) - (if (and (let ((__tmp176551 + (gx#stx-null? _%tl170379170457%_)) + (_%__match176668176669%_ + _%e170356170396%_ + _%hd170357170399%_ + _%tl170358170401%_ + _%e170359170404%_ + _%hd170360170407%_ + _%tl170361170409%_ + _%e170362170412%_ + _%hd170363170415%_ + _%tl170364170417%_ + _%e170365170420%_ + _%hd170366170423%_ + _%tl170367170425%_ + _%e170368170428%_ + _%hd170369170431%_ + _%tl170370170433%_ + _%e170371170436%_ + _%hd170372170439%_ + _%tl170373170441%_ + _%e170374170444%_ + _%hd170375170447%_ + _%tl170376170449%_ + _%e170377170452%_ + _%hd170378170455%_ + _%tl170379170457%_) + (_%__kont176187176188%_)))) + (_%__kont176187176188%_)))) + (_%__match176606176607%_ + (lambda (_%e170332170509%_ + _%hd170333170512%_ + _%tl170334170514%_ + _%e170335170517%_ + _%hd170336170520%_ + _%tl170337170522%_ + _%e170338170525%_ + _%hd170339170528%_ + _%tl170340170530%_ + _%e170341170533%_ + _%hd170342170536%_ + _%tl170343170538%_ + _%e170344170541%_ + _%hd170345170544%_ + _%tl170346170546%_ + _%e170347170549%_ + _%hd170348170552%_ + _%tl170349170554%_ + _%e170350170557%_ + _%hd170351170560%_ + _%tl170352170562%_) + (let ((_%L170565%_ _%hd170351170560%_) + (_%L170566%_ _%hd170342170536%_)) + (if (and (let ((__tmp176825 (let () (declare (not safe)) (slot-ref__0 - _%self169877%_ + _%self170151%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L170291%_ - __tmp176551)) - (let ((__tmp176552 - (let ((__tmp176553 + _%L170565%_ + __tmp176825)) + (let ((__tmp176826 + (let ((__tmp176827 (let () (declare (not safe)) (gxc#identifier-symbol - _%L170292%_)))) + _%L170566%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp176553)))) + __tmp176827)))) (declare (not safe)) (##structure-instance-of? - __tmp176552 + __tmp176826 'gxc#!accessor::t))) - (_%__kont175909175910%_ _%L170291%_ _%L170292%_) - (_%__kont175913175914%_))))) - (_%__match176330176331%_ - (lambda (_%e170058170235%_ - _%hd170059170238%_ - _%tl170060170240%_ - _%e170061170243%_ - _%hd170062170246%_ - _%tl170063170248%_ - _%e170064170251%_ - _%hd170065170254%_ - _%tl170066170256%_ - _%e170067170259%_ - _%hd170068170262%_ - _%tl170069170264%_ - _%e170070170267%_ - _%hd170071170270%_ - _%tl170072170272%_ - _%e170073170275%_ - _%hd170074170278%_ - _%tl170075170280%_ - _%e170076170283%_ - _%hd170077170286%_ - _%tl170078170288%_) + (_%__kont176183176184%_ _%L170565%_ _%L170566%_) + (_%__kont176187176188%_))))) + (_%__match176604176605%_ + (lambda (_%e170332170509%_ + _%hd170333170512%_ + _%tl170334170514%_ + _%e170335170517%_ + _%hd170336170520%_ + _%tl170337170522%_ + _%e170338170525%_ + _%hd170339170528%_ + _%tl170340170530%_ + _%e170341170533%_ + _%hd170342170536%_ + _%tl170343170538%_ + _%e170344170541%_ + _%hd170345170544%_ + _%tl170346170546%_ + _%e170347170549%_ + _%hd170348170552%_ + _%tl170349170554%_ + _%e170350170557%_ + _%hd170351170560%_ + _%tl170352170562%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl170072170272%_)) - (_%__match176332176333%_ - _%e170058170235%_ - _%hd170059170238%_ - _%tl170060170240%_ - _%e170061170243%_ - _%hd170062170246%_ - _%tl170063170248%_ - _%e170064170251%_ - _%hd170065170254%_ - _%tl170066170256%_ - _%e170067170259%_ - _%hd170068170262%_ - _%tl170069170264%_ - _%e170070170267%_ - _%hd170071170270%_ - _%tl170072170272%_ - _%e170073170275%_ - _%hd170074170278%_ - _%tl170075170280%_ - _%e170076170283%_ - _%hd170077170286%_ - _%tl170078170288%_) - (_%__match176386176387%_ - _%e170058170235%_ - _%hd170059170238%_ - _%tl170060170240%_ - _%e170061170243%_ - _%hd170062170246%_ - _%tl170063170248%_ - _%e170064170251%_ - _%hd170065170254%_ - _%tl170066170256%_ - _%e170067170259%_ - _%hd170068170262%_ - _%tl170069170264%_ - _%e170070170267%_ - _%hd170071170270%_ - _%tl170072170272%_ - _%e170073170275%_ - _%hd170074170278%_ - _%tl170075170280%_ - _%e170076170283%_ - _%hd170077170286%_ - _%tl170078170288%_)))) - (_%__match176276176277%_ - (lambda (_%e170023170331%_ - _%hd170024170334%_ - _%tl170025170336%_ - _%e170026170339%_ - _%hd170027170342%_ - _%tl170028170344%_ - _%e170029170347%_ - _%hd170030170350%_ - _%tl170031170352%_ - _%e170032170355%_ - _%hd170033170358%_ - _%tl170034170360%_ - _%e170035170363%_ - _%hd170036170366%_ - _%tl170037170368%_ - _%e170038170371%_ - _%hd170039170374%_ - _%tl170040170376%_ - _%e170041170379%_ - _%hd170042170382%_ - _%tl170043170384%_ - _%e170044170387%_ - _%hd170045170390%_ - _%tl170046170392%_ - _%e170047170395%_ - _%hd170048170398%_ - _%tl170049170400%_ - _%e170050170403%_ - _%hd170051170406%_ - _%tl170052170408%_ - _%e170053170411%_ - _%hd170054170414%_ - _%tl170055170416%_) - (let ((_%L170419%_ _%hd170054170414%_) - (_%L170420%_ _%hd170051170406%_) - (_%L170421%_ _%hd170042170382%_) - (_%L170422%_ _%hd170033170358%_)) + (gx#stx-null? _%tl170346170546%_)) + (_%__match176606176607%_ + _%e170332170509%_ + _%hd170333170512%_ + _%tl170334170514%_ + _%e170335170517%_ + _%hd170336170520%_ + _%tl170337170522%_ + _%e170338170525%_ + _%hd170339170528%_ + _%tl170340170530%_ + _%e170341170533%_ + _%hd170342170536%_ + _%tl170343170538%_ + _%e170344170541%_ + _%hd170345170544%_ + _%tl170346170546%_ + _%e170347170549%_ + _%hd170348170552%_ + _%tl170349170554%_ + _%e170350170557%_ + _%hd170351170560%_ + _%tl170352170562%_) + (_%__match176660176661%_ + _%e170332170509%_ + _%hd170333170512%_ + _%tl170334170514%_ + _%e170335170517%_ + _%hd170336170520%_ + _%tl170337170522%_ + _%e170338170525%_ + _%hd170339170528%_ + _%tl170340170530%_ + _%e170341170533%_ + _%hd170342170536%_ + _%tl170343170538%_ + _%e170344170541%_ + _%hd170345170544%_ + _%tl170346170546%_ + _%e170347170549%_ + _%hd170348170552%_ + _%tl170349170554%_ + _%e170350170557%_ + _%hd170351170560%_ + _%tl170352170562%_)))) + (_%__match176550176551%_ + (lambda (_%e170297170605%_ + _%hd170298170608%_ + _%tl170299170610%_ + _%e170300170613%_ + _%hd170301170616%_ + _%tl170302170618%_ + _%e170303170621%_ + _%hd170304170624%_ + _%tl170305170626%_ + _%e170306170629%_ + _%hd170307170632%_ + _%tl170308170634%_ + _%e170309170637%_ + _%hd170310170640%_ + _%tl170311170642%_ + _%e170312170645%_ + _%hd170313170648%_ + _%tl170314170650%_ + _%e170315170653%_ + _%hd170316170656%_ + _%tl170317170658%_ + _%e170318170661%_ + _%hd170319170664%_ + _%tl170320170666%_ + _%e170321170669%_ + _%hd170322170672%_ + _%tl170323170674%_ + _%e170324170677%_ + _%hd170325170680%_ + _%tl170326170682%_ + _%e170327170685%_ + _%hd170328170688%_ + _%tl170329170690%_) + (let ((_%L170693%_ _%hd170328170688%_) + (_%L170694%_ _%hd170325170680%_) + (_%L170695%_ _%hd170316170656%_) + (_%L170696%_ _%hd170307170632%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L170422%_ + _%L170696%_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L170422%_ + _%L170696%_ 'unchecked-slot-set!))) - (let ((__tmp176554 + (let ((__tmp176828 (let () (declare (not safe)) (slot-ref__0 - _%self169877%_ + _%self170151%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L170421%_ - __tmp176554))) - (_%__kont175907175908%_ - _%L170419%_ - _%L170420%_ - _%L170421%_ - _%L170422%_) - (_%__kont175913175914%_))))) - (_%__match176268176269%_ - (lambda (_%e170023170331%_ - _%hd170024170334%_ - _%tl170025170336%_ - _%e170026170339%_ - _%hd170027170342%_ - _%tl170028170344%_ - _%e170029170347%_ - _%hd170030170350%_ - _%tl170031170352%_ - _%e170032170355%_ - _%hd170033170358%_ - _%tl170034170360%_ - _%e170035170363%_ - _%hd170036170366%_ - _%tl170037170368%_ - _%e170038170371%_ - _%hd170039170374%_ - _%tl170040170376%_ - _%e170041170379%_ - _%hd170042170382%_ - _%tl170043170384%_ - _%e170044170387%_ - _%hd170045170390%_ - _%tl170046170392%_ - _%e170047170395%_ - _%hd170048170398%_ - _%tl170049170400%_ - _%e170050170403%_ - _%hd170051170406%_ - _%tl170052170408%_) + _%L170695%_ + __tmp176828))) + (_%__kont176181176182%_ + _%L170693%_ + _%L170694%_ + _%L170695%_ + _%L170696%_) + (_%__kont176187176188%_))))) + (_%__match176542176543%_ + (lambda (_%e170297170605%_ + _%hd170298170608%_ + _%tl170299170610%_ + _%e170300170613%_ + _%hd170301170616%_ + _%tl170302170618%_ + _%e170303170621%_ + _%hd170304170624%_ + _%tl170305170626%_ + _%e170306170629%_ + _%hd170307170632%_ + _%tl170308170634%_ + _%e170309170637%_ + _%hd170310170640%_ + _%tl170311170642%_ + _%e170312170645%_ + _%hd170313170648%_ + _%tl170314170650%_ + _%e170315170653%_ + _%hd170316170656%_ + _%tl170317170658%_ + _%e170318170661%_ + _%hd170319170664%_ + _%tl170320170666%_ + _%e170321170669%_ + _%hd170322170672%_ + _%tl170323170674%_ + _%e170324170677%_ + _%hd170325170680%_ + _%tl170326170682%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl170046170392%_)) - (let ((_%e170053170411%_ + (gx#stx-pair? _%tl170320170666%_)) + (let ((_%e170327170685%_ (let () (declare (not safe)) - (gx#stx-e _%tl170046170392%_)))) - (let ((_%tl170055170416%_ + (gx#stx-e _%tl170320170666%_)))) + (let ((_%tl170329170690%_ (let () (declare (not safe)) - (##cdr _%e170053170411%_))) - (_%hd170054170414%_ + (##cdr _%e170327170685%_))) + (_%hd170328170688%_ (let () (declare (not safe)) - (##car _%e170053170411%_)))) + (##car _%e170327170685%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl170055170416%_)) - (_%__match176276176277%_ - _%e170023170331%_ - _%hd170024170334%_ - _%tl170025170336%_ - _%e170026170339%_ - _%hd170027170342%_ - _%tl170028170344%_ - _%e170029170347%_ - _%hd170030170350%_ - _%tl170031170352%_ - _%e170032170355%_ - _%hd170033170358%_ - _%tl170034170360%_ - _%e170035170363%_ - _%hd170036170366%_ - _%tl170037170368%_ - _%e170038170371%_ - _%hd170039170374%_ - _%tl170040170376%_ - _%e170041170379%_ - _%hd170042170382%_ - _%tl170043170384%_ - _%e170044170387%_ - _%hd170045170390%_ - _%tl170046170392%_ - _%e170047170395%_ - _%hd170048170398%_ - _%tl170049170400%_ - _%e170050170403%_ - _%hd170051170406%_ - _%tl170052170408%_ - _%e170053170411%_ - _%hd170054170414%_ - _%tl170055170416%_) - (_%__kont175913175914%_)))) - (_%__match176392176393%_ - _%e170023170331%_ - _%hd170024170334%_ - _%tl170025170336%_ - _%e170026170339%_ - _%hd170027170342%_ - _%tl170028170344%_ - _%e170029170347%_ - _%hd170030170350%_ - _%tl170031170352%_ - _%e170032170355%_ - _%hd170033170358%_ - _%tl170034170360%_ - _%e170035170363%_ - _%hd170036170366%_ - _%tl170037170368%_ - _%e170038170371%_ - _%hd170039170374%_ - _%tl170040170376%_ - _%e170041170379%_ - _%hd170042170382%_ - _%tl170043170384%_ - _%e170044170387%_ - _%hd170045170390%_ - _%tl170046170392%_)))) - (_%__match176190176191%_ - (lambda (_%e169989170465%_ - _%hd169990170468%_ - _%tl169991170470%_ - _%e169992170473%_ - _%hd169993170476%_ - _%tl169994170478%_ - _%e169995170481%_ - _%hd169996170484%_ - _%tl169997170486%_ - _%e169998170489%_ - _%hd169999170492%_ - _%tl170000170494%_ - _%e170001170497%_ - _%hd170002170500%_ - _%tl170003170502%_ - _%e170004170505%_ - _%hd170005170508%_ - _%tl170006170510%_ - _%e170007170513%_ - _%hd170008170516%_ - _%tl170009170518%_ - _%e170010170521%_ - _%hd170011170524%_ - _%tl170012170526%_ - _%e170013170529%_ - _%hd170014170532%_ - _%tl170015170534%_ - _%e170016170537%_ - _%hd170017170540%_ - _%tl170018170542%_) - (let ((_%L170545%_ _%hd170017170540%_) - (_%L170546%_ _%hd170008170516%_) - (_%L170547%_ _%hd169999170492%_)) + (gx#stx-null? _%tl170329170690%_)) + (_%__match176550176551%_ + _%e170297170605%_ + _%hd170298170608%_ + _%tl170299170610%_ + _%e170300170613%_ + _%hd170301170616%_ + _%tl170302170618%_ + _%e170303170621%_ + _%hd170304170624%_ + _%tl170305170626%_ + _%e170306170629%_ + _%hd170307170632%_ + _%tl170308170634%_ + _%e170309170637%_ + _%hd170310170640%_ + _%tl170311170642%_ + _%e170312170645%_ + _%hd170313170648%_ + _%tl170314170650%_ + _%e170315170653%_ + _%hd170316170656%_ + _%tl170317170658%_ + _%e170318170661%_ + _%hd170319170664%_ + _%tl170320170666%_ + _%e170321170669%_ + _%hd170322170672%_ + _%tl170323170674%_ + _%e170324170677%_ + _%hd170325170680%_ + _%tl170326170682%_ + _%e170327170685%_ + _%hd170328170688%_ + _%tl170329170690%_) + (_%__kont176187176188%_)))) + (_%__match176666176667%_ + _%e170297170605%_ + _%hd170298170608%_ + _%tl170299170610%_ + _%e170300170613%_ + _%hd170301170616%_ + _%tl170302170618%_ + _%e170303170621%_ + _%hd170304170624%_ + _%tl170305170626%_ + _%e170306170629%_ + _%hd170307170632%_ + _%tl170308170634%_ + _%e170309170637%_ + _%hd170310170640%_ + _%tl170311170642%_ + _%e170312170645%_ + _%hd170313170648%_ + _%tl170314170650%_ + _%e170315170653%_ + _%hd170316170656%_ + _%tl170317170658%_ + _%e170318170661%_ + _%hd170319170664%_ + _%tl170320170666%_)))) + (_%__match176464176465%_ + (lambda (_%e170263170739%_ + _%hd170264170742%_ + _%tl170265170744%_ + _%e170266170747%_ + _%hd170267170750%_ + _%tl170268170752%_ + _%e170269170755%_ + _%hd170270170758%_ + _%tl170271170760%_ + _%e170272170763%_ + _%hd170273170766%_ + _%tl170274170768%_ + _%e170275170771%_ + _%hd170276170774%_ + _%tl170277170776%_ + _%e170278170779%_ + _%hd170279170782%_ + _%tl170280170784%_ + _%e170281170787%_ + _%hd170282170790%_ + _%tl170283170792%_ + _%e170284170795%_ + _%hd170285170798%_ + _%tl170286170800%_ + _%e170287170803%_ + _%hd170288170806%_ + _%tl170289170808%_ + _%e170290170811%_ + _%hd170291170814%_ + _%tl170292170816%_) + (let ((_%L170819%_ _%hd170291170814%_) + (_%L170820%_ _%hd170282170790%_) + (_%L170821%_ _%hd170273170766%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L170547%_ + _%L170821%_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L170547%_ + _%L170821%_ 'unchecked-slot-ref))) - (let ((__tmp176555 + (let ((__tmp176829 (let () (declare (not safe)) (slot-ref__0 - _%self169877%_ + _%self170151%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L170546%_ - __tmp176555))) - (_%__kont175905175906%_ - _%L170545%_ - _%L170546%_ - _%L170547%_) - (_%__match176394176395%_ - _%e169989170465%_ - _%hd169990170468%_ - _%tl169991170470%_ - _%e169992170473%_ - _%hd169993170476%_ - _%tl169994170478%_ - _%e169995170481%_ - _%hd169996170484%_ - _%tl169997170486%_ - _%e169998170489%_ - _%hd169999170492%_ - _%tl170000170494%_ - _%e170001170497%_ - _%hd170002170500%_ - _%tl170003170502%_ - _%e170004170505%_ - _%hd170005170508%_ - _%tl170006170510%_ - _%e170007170513%_ - _%hd170008170516%_ - _%tl170009170518%_ - _%e170010170521%_ - _%hd170011170524%_ - _%tl170012170526%_))))) - (_%__match176188176189%_ - (lambda (_%e169989170465%_ - _%hd169990170468%_ - _%tl169991170470%_ - _%e169992170473%_ - _%hd169993170476%_ - _%tl169994170478%_ - _%e169995170481%_ - _%hd169996170484%_ - _%tl169997170486%_ - _%e169998170489%_ - _%hd169999170492%_ - _%tl170000170494%_ - _%e170001170497%_ - _%hd170002170500%_ - _%tl170003170502%_ - _%e170004170505%_ - _%hd170005170508%_ - _%tl170006170510%_ - _%e170007170513%_ - _%hd170008170516%_ - _%tl170009170518%_ - _%e170010170521%_ - _%hd170011170524%_ - _%tl170012170526%_ - _%e170013170529%_ - _%hd170014170532%_ - _%tl170015170534%_ - _%e170016170537%_ - _%hd170017170540%_ - _%tl170018170542%_) + _%L170820%_ + __tmp176829))) + (_%__kont176179176180%_ + _%L170819%_ + _%L170820%_ + _%L170821%_) + (_%__match176668176669%_ + _%e170263170739%_ + _%hd170264170742%_ + _%tl170265170744%_ + _%e170266170747%_ + _%hd170267170750%_ + _%tl170268170752%_ + _%e170269170755%_ + _%hd170270170758%_ + _%tl170271170760%_ + _%e170272170763%_ + _%hd170273170766%_ + _%tl170274170768%_ + _%e170275170771%_ + _%hd170276170774%_ + _%tl170277170776%_ + _%e170278170779%_ + _%hd170279170782%_ + _%tl170280170784%_ + _%e170281170787%_ + _%hd170282170790%_ + _%tl170283170792%_ + _%e170284170795%_ + _%hd170285170798%_ + _%tl170286170800%_))))) + (_%__match176462176463%_ + (lambda (_%e170263170739%_ + _%hd170264170742%_ + _%tl170265170744%_ + _%e170266170747%_ + _%hd170267170750%_ + _%tl170268170752%_ + _%e170269170755%_ + _%hd170270170758%_ + _%tl170271170760%_ + _%e170272170763%_ + _%hd170273170766%_ + _%tl170274170768%_ + _%e170275170771%_ + _%hd170276170774%_ + _%tl170277170776%_ + _%e170278170779%_ + _%hd170279170782%_ + _%tl170280170784%_ + _%e170281170787%_ + _%hd170282170790%_ + _%tl170283170792%_ + _%e170284170795%_ + _%hd170285170798%_ + _%tl170286170800%_ + _%e170287170803%_ + _%hd170288170806%_ + _%tl170289170808%_ + _%e170290170811%_ + _%hd170291170814%_ + _%tl170292170816%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl170012170526%_)) - (_%__match176190176191%_ - _%e169989170465%_ - _%hd169990170468%_ - _%tl169991170470%_ - _%e169992170473%_ - _%hd169993170476%_ - _%tl169994170478%_ - _%e169995170481%_ - _%hd169996170484%_ - _%tl169997170486%_ - _%e169998170489%_ - _%hd169999170492%_ - _%tl170000170494%_ - _%e170001170497%_ - _%hd170002170500%_ - _%tl170003170502%_ - _%e170004170505%_ - _%hd170005170508%_ - _%tl170006170510%_ - _%e170007170513%_ - _%hd170008170516%_ - _%tl170009170518%_ - _%e170010170521%_ - _%hd170011170524%_ - _%tl170012170526%_ - _%e170013170529%_ - _%hd170014170532%_ - _%tl170015170534%_ - _%e170016170537%_ - _%hd170017170540%_ - _%tl170018170542%_) - (_%__match176268176269%_ - _%e169989170465%_ - _%hd169990170468%_ - _%tl169991170470%_ - _%e169992170473%_ - _%hd169993170476%_ - _%tl169994170478%_ - _%e169995170481%_ - _%hd169996170484%_ - _%tl169997170486%_ - _%e169998170489%_ - _%hd169999170492%_ - _%tl170000170494%_ - _%e170001170497%_ - _%hd170002170500%_ - _%tl170003170502%_ - _%e170004170505%_ - _%hd170005170508%_ - _%tl170006170510%_ - _%e170007170513%_ - _%hd170008170516%_ - _%tl170009170518%_ - _%e170010170521%_ - _%hd170011170524%_ - _%tl170012170526%_ - _%e170013170529%_ - _%hd170014170532%_ - _%tl170015170534%_ - _%e170016170537%_ - _%hd170017170540%_ - _%tl170018170542%_)))) - (_%__match176178176179%_ - (lambda (_%e169989170465%_ - _%hd169990170468%_ - _%tl169991170470%_ - _%e169992170473%_ - _%hd169993170476%_ - _%tl169994170478%_ - _%e169995170481%_ - _%hd169996170484%_ - _%tl169997170486%_ - _%e169998170489%_ - _%hd169999170492%_ - _%tl170000170494%_ - _%e170001170497%_ - _%hd170002170500%_ - _%tl170003170502%_ - _%e170004170505%_ - _%hd170005170508%_ - _%tl170006170510%_ - _%e170007170513%_ - _%hd170008170516%_ - _%tl170009170518%_ - _%e170010170521%_ - _%hd170011170524%_ - _%tl170012170526%_ - _%e170013170529%_ - _%hd170014170532%_ - _%tl170015170534%_) + (gx#stx-null? _%tl170286170800%_)) + (_%__match176464176465%_ + _%e170263170739%_ + _%hd170264170742%_ + _%tl170265170744%_ + _%e170266170747%_ + _%hd170267170750%_ + _%tl170268170752%_ + _%e170269170755%_ + _%hd170270170758%_ + _%tl170271170760%_ + _%e170272170763%_ + _%hd170273170766%_ + _%tl170274170768%_ + _%e170275170771%_ + _%hd170276170774%_ + _%tl170277170776%_ + _%e170278170779%_ + _%hd170279170782%_ + _%tl170280170784%_ + _%e170281170787%_ + _%hd170282170790%_ + _%tl170283170792%_ + _%e170284170795%_ + _%hd170285170798%_ + _%tl170286170800%_ + _%e170287170803%_ + _%hd170288170806%_ + _%tl170289170808%_ + _%e170290170811%_ + _%hd170291170814%_ + _%tl170292170816%_) + (_%__match176542176543%_ + _%e170263170739%_ + _%hd170264170742%_ + _%tl170265170744%_ + _%e170266170747%_ + _%hd170267170750%_ + _%tl170268170752%_ + _%e170269170755%_ + _%hd170270170758%_ + _%tl170271170760%_ + _%e170272170763%_ + _%hd170273170766%_ + _%tl170274170768%_ + _%e170275170771%_ + _%hd170276170774%_ + _%tl170277170776%_ + _%e170278170779%_ + _%hd170279170782%_ + _%tl170280170784%_ + _%e170281170787%_ + _%hd170282170790%_ + _%tl170283170792%_ + _%e170284170795%_ + _%hd170285170798%_ + _%tl170286170800%_ + _%e170287170803%_ + _%hd170288170806%_ + _%tl170289170808%_ + _%e170290170811%_ + _%hd170291170814%_ + _%tl170292170816%_)))) + (_%__match176452176453%_ + (lambda (_%e170263170739%_ + _%hd170264170742%_ + _%tl170265170744%_ + _%e170266170747%_ + _%hd170267170750%_ + _%tl170268170752%_ + _%e170269170755%_ + _%hd170270170758%_ + _%tl170271170760%_ + _%e170272170763%_ + _%hd170273170766%_ + _%tl170274170768%_ + _%e170275170771%_ + _%hd170276170774%_ + _%tl170277170776%_ + _%e170278170779%_ + _%hd170279170782%_ + _%tl170280170784%_ + _%e170281170787%_ + _%hd170282170790%_ + _%tl170283170792%_ + _%e170284170795%_ + _%hd170285170798%_ + _%tl170286170800%_ + _%e170287170803%_ + _%hd170288170806%_ + _%tl170289170808%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd170014170532%_)) + (gx#stx-eq? '%#quote _%hd170288170806%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl170015170534%_)) - (let ((_%e170016170537%_ + (gx#stx-pair? _%tl170289170808%_)) + (let ((_%e170290170811%_ (let () (declare (not safe)) - (gx#stx-e _%tl170015170534%_)))) - (let ((_%tl170018170542%_ + (gx#stx-e _%tl170289170808%_)))) + (let ((_%tl170292170816%_ (let () (declare (not safe)) - (##cdr _%e170016170537%_))) - (_%hd170017170540%_ + (##cdr _%e170290170811%_))) + (_%hd170291170814%_ (let () (declare (not safe)) - (##car _%e170016170537%_)))) + (##car _%e170290170811%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl170018170542%_)) + (gx#stx-null? _%tl170292170816%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl170012170526%_)) - (_%__match176190176191%_ - _%e169989170465%_ - _%hd169990170468%_ - _%tl169991170470%_ - _%e169992170473%_ - _%hd169993170476%_ - _%tl169994170478%_ - _%e169995170481%_ - _%hd169996170484%_ - _%tl169997170486%_ - _%e169998170489%_ - _%hd169999170492%_ - _%tl170000170494%_ - _%e170001170497%_ - _%hd170002170500%_ - _%tl170003170502%_ - _%e170004170505%_ - _%hd170005170508%_ - _%tl170006170510%_ - _%e170007170513%_ - _%hd170008170516%_ - _%tl170009170518%_ - _%e170010170521%_ - _%hd170011170524%_ - _%tl170012170526%_ - _%e170013170529%_ - _%hd170014170532%_ - _%tl170015170534%_ - _%e170016170537%_ - _%hd170017170540%_ - _%tl170018170542%_) - (_%__match176268176269%_ - _%e169989170465%_ - _%hd169990170468%_ - _%tl169991170470%_ - _%e169992170473%_ - _%hd169993170476%_ - _%tl169994170478%_ - _%e169995170481%_ - _%hd169996170484%_ - _%tl169997170486%_ - _%e169998170489%_ - _%hd169999170492%_ - _%tl170000170494%_ - _%e170001170497%_ - _%hd170002170500%_ - _%tl170003170502%_ - _%e170004170505%_ - _%hd170005170508%_ - _%tl170006170510%_ - _%e170007170513%_ - _%hd170008170516%_ - _%tl170009170518%_ - _%e170010170521%_ - _%hd170011170524%_ - _%tl170012170526%_ - _%e170013170529%_ - _%hd170014170532%_ - _%tl170015170534%_ - _%e170016170537%_ - _%hd170017170540%_ - _%tl170018170542%_)) - (_%__match176392176393%_ - _%e169989170465%_ - _%hd169990170468%_ - _%tl169991170470%_ - _%e169992170473%_ - _%hd169993170476%_ - _%tl169994170478%_ - _%e169995170481%_ - _%hd169996170484%_ - _%tl169997170486%_ - _%e169998170489%_ - _%hd169999170492%_ - _%tl170000170494%_ - _%e170001170497%_ - _%hd170002170500%_ - _%tl170003170502%_ - _%e170004170505%_ - _%hd170005170508%_ - _%tl170006170510%_ - _%e170007170513%_ - _%hd170008170516%_ - _%tl170009170518%_ - _%e170010170521%_ - _%hd170011170524%_ - _%tl170012170526%_)))) - (_%__match176392176393%_ - _%e169989170465%_ - _%hd169990170468%_ - _%tl169991170470%_ - _%e169992170473%_ - _%hd169993170476%_ - _%tl169994170478%_ - _%e169995170481%_ - _%hd169996170484%_ - _%tl169997170486%_ - _%e169998170489%_ - _%hd169999170492%_ - _%tl170000170494%_ - _%e170001170497%_ - _%hd170002170500%_ - _%tl170003170502%_ - _%e170004170505%_ - _%hd170005170508%_ - _%tl170006170510%_ - _%e170007170513%_ - _%hd170008170516%_ - _%tl170009170518%_ - _%e170010170521%_ - _%hd170011170524%_ - _%tl170012170526%_)) - (_%__match176392176393%_ - _%e169989170465%_ - _%hd169990170468%_ - _%tl169991170470%_ - _%e169992170473%_ - _%hd169993170476%_ - _%tl169994170478%_ - _%e169995170481%_ - _%hd169996170484%_ - _%tl169997170486%_ - _%e169998170489%_ - _%hd169999170492%_ - _%tl170000170494%_ - _%e170001170497%_ - _%hd170002170500%_ - _%tl170003170502%_ - _%e170004170505%_ - _%hd170005170508%_ - _%tl170006170510%_ - _%e170007170513%_ - _%hd170008170516%_ - _%tl170009170518%_ - _%e170010170521%_ - _%hd170011170524%_ - _%tl170012170526%_)))) - (_%__match176110176111%_ - (lambda (_%e169938170586%_ - _%hd169939170589%_ - _%tl169940170591%_ - _%e169941170594%_ - _%hd169942170597%_ - _%tl169943170599%_ - _%e169944170602%_ - _%hd169945170605%_ - _%tl169946170607%_ - _%e169947170610%_ - _%hd169948170613%_ - _%tl169949170615%_ - _%e169950170618%_ - _%hd169951170621%_ - _%tl169952170623%_ - _%e169953170626%_ - _%hd169954170629%_ - _%tl169955170631%_ - _%e169956170634%_ - _%hd169957170637%_ - _%tl169958170639%_ - _%e169959170642%_ - _%hd169960170645%_ - _%tl169961170647%_ - _%e169962170650%_ - _%hd169963170653%_ - _%tl169964170655%_ - _%e169965170658%_ - _%hd169966170661%_ - _%tl169967170663%_ - _%e169968170666%_ - _%hd169969170669%_ - _%tl169970170671%_ - _%e169971170674%_ - _%hd169972170677%_ - _%tl169973170679%_ - _%e169974170682%_ - _%hd169975170685%_ - _%tl169976170687%_ - _%__splice175903175904%_ - _%target169977170690%_ - _%tl169979170692%_) - (letrec ((_%loop169980170695%_ - (lambda (_%hd169978170698%_ - _%args169984170700%_) + _%tl170286170800%_)) + (_%__match176464176465%_ + _%e170263170739%_ + _%hd170264170742%_ + _%tl170265170744%_ + _%e170266170747%_ + _%hd170267170750%_ + _%tl170268170752%_ + _%e170269170755%_ + _%hd170270170758%_ + _%tl170271170760%_ + _%e170272170763%_ + _%hd170273170766%_ + _%tl170274170768%_ + _%e170275170771%_ + _%hd170276170774%_ + _%tl170277170776%_ + _%e170278170779%_ + _%hd170279170782%_ + _%tl170280170784%_ + _%e170281170787%_ + _%hd170282170790%_ + _%tl170283170792%_ + _%e170284170795%_ + _%hd170285170798%_ + _%tl170286170800%_ + _%e170287170803%_ + _%hd170288170806%_ + _%tl170289170808%_ + _%e170290170811%_ + _%hd170291170814%_ + _%tl170292170816%_) + (_%__match176542176543%_ + _%e170263170739%_ + _%hd170264170742%_ + _%tl170265170744%_ + _%e170266170747%_ + _%hd170267170750%_ + _%tl170268170752%_ + _%e170269170755%_ + _%hd170270170758%_ + _%tl170271170760%_ + _%e170272170763%_ + _%hd170273170766%_ + _%tl170274170768%_ + _%e170275170771%_ + _%hd170276170774%_ + _%tl170277170776%_ + _%e170278170779%_ + _%hd170279170782%_ + _%tl170280170784%_ + _%e170281170787%_ + _%hd170282170790%_ + _%tl170283170792%_ + _%e170284170795%_ + _%hd170285170798%_ + _%tl170286170800%_ + _%e170287170803%_ + _%hd170288170806%_ + _%tl170289170808%_ + _%e170290170811%_ + _%hd170291170814%_ + _%tl170292170816%_)) + (_%__match176666176667%_ + _%e170263170739%_ + _%hd170264170742%_ + _%tl170265170744%_ + _%e170266170747%_ + _%hd170267170750%_ + _%tl170268170752%_ + _%e170269170755%_ + _%hd170270170758%_ + _%tl170271170760%_ + _%e170272170763%_ + _%hd170273170766%_ + _%tl170274170768%_ + _%e170275170771%_ + _%hd170276170774%_ + _%tl170277170776%_ + _%e170278170779%_ + _%hd170279170782%_ + _%tl170280170784%_ + _%e170281170787%_ + _%hd170282170790%_ + _%tl170283170792%_ + _%e170284170795%_ + _%hd170285170798%_ + _%tl170286170800%_)))) + (_%__match176666176667%_ + _%e170263170739%_ + _%hd170264170742%_ + _%tl170265170744%_ + _%e170266170747%_ + _%hd170267170750%_ + _%tl170268170752%_ + _%e170269170755%_ + _%hd170270170758%_ + _%tl170271170760%_ + _%e170272170763%_ + _%hd170273170766%_ + _%tl170274170768%_ + _%e170275170771%_ + _%hd170276170774%_ + _%tl170277170776%_ + _%e170278170779%_ + _%hd170279170782%_ + _%tl170280170784%_ + _%e170281170787%_ + _%hd170282170790%_ + _%tl170283170792%_ + _%e170284170795%_ + _%hd170285170798%_ + _%tl170286170800%_)) + (_%__match176666176667%_ + _%e170263170739%_ + _%hd170264170742%_ + _%tl170265170744%_ + _%e170266170747%_ + _%hd170267170750%_ + _%tl170268170752%_ + _%e170269170755%_ + _%hd170270170758%_ + _%tl170271170760%_ + _%e170272170763%_ + _%hd170273170766%_ + _%tl170274170768%_ + _%e170275170771%_ + _%hd170276170774%_ + _%tl170277170776%_ + _%e170278170779%_ + _%hd170279170782%_ + _%tl170280170784%_ + _%e170281170787%_ + _%hd170282170790%_ + _%tl170283170792%_ + _%e170284170795%_ + _%hd170285170798%_ + _%tl170286170800%_)))) + (_%__match176384176385%_ + (lambda (_%e170212170860%_ + _%hd170213170863%_ + _%tl170214170865%_ + _%e170215170868%_ + _%hd170216170871%_ + _%tl170217170873%_ + _%e170218170876%_ + _%hd170219170879%_ + _%tl170220170881%_ + _%e170221170884%_ + _%hd170222170887%_ + _%tl170223170889%_ + _%e170224170892%_ + _%hd170225170895%_ + _%tl170226170897%_ + _%e170227170900%_ + _%hd170228170903%_ + _%tl170229170905%_ + _%e170230170908%_ + _%hd170231170911%_ + _%tl170232170913%_ + _%e170233170916%_ + _%hd170234170919%_ + _%tl170235170921%_ + _%e170236170924%_ + _%hd170237170927%_ + _%tl170238170929%_ + _%e170239170932%_ + _%hd170240170935%_ + _%tl170241170937%_ + _%e170242170940%_ + _%hd170243170943%_ + _%tl170244170945%_ + _%e170245170948%_ + _%hd170246170951%_ + _%tl170247170953%_ + _%e170248170956%_ + _%hd170249170959%_ + _%tl170250170961%_ + _%__splice176177176178%_ + _%target170251170964%_ + _%tl170253170966%_) + (letrec ((_%loop170254170969%_ + (lambda (_%hd170252170972%_ + _%args170258170974%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd169978170698%_)) - (let ((_%e169981170703%_ + (gx#stx-pair? _%hd170252170972%_)) + (let ((_%e170255170977%_ (let () (declare (not safe)) (gx#stx-e - _%hd169978170698%_)))) - (let ((_%lp-tl169983170708%_ + _%hd170252170972%_)))) + (let ((_%lp-tl170257170982%_ (let () (declare (not safe)) - (##cdr _%e169981170703%_))) - (_%lp-hd169982170706%_ + (##cdr _%e170255170977%_))) + (_%lp-hd170256170980%_ (let () (declare (not safe)) - (##car _%e169981170703%_)))) - (_%loop169980170695%_ - _%lp-tl169983170708%_ - (cons _%lp-hd169982170706%_ - _%args169984170700%_)))) - (let ((_%args169985170711%_ - (reverse _%args169984170700%_))) - (let ((_%L170714%_ - _%args169985170711%_) - (_%L170715%_ - _%hd169975170685%_) - (_%L170716%_ - _%hd169966170661%_) - (_%L170717%_ - _%hd169957170637%_) - (_%L170718%_ - _%hd169948170613%_)) + (##car _%e170255170977%_)))) + (_%loop170254170969%_ + _%lp-tl170257170982%_ + (cons _%lp-hd170256170980%_ + _%args170258170974%_)))) + (let ((_%args170259170985%_ + (reverse _%args170258170974%_))) + (let ((_%L170988%_ + _%args170259170985%_) + (_%L170989%_ + _%hd170249170959%_) + (_%L170990%_ + _%hd170240170935%_) + (_%L170991%_ + _%hd170231170911%_) + (_%L170992%_ + _%hd170222170887%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L170718%_ + _%L170992%_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L170717%_ + _%L170991%_ 'call-method)) - (let ((__tmp176556 + (let ((__tmp176830 (let () (declare (not safe)) (slot-ref__0 - _%self169877%_ + _%self170151%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L170716%_ - __tmp176556))) - (_%__kont175901175902%_ - _%L170714%_ - _%L170715%_ - _%L170716%_ - _%L170717%_ - _%L170718%_) - (_%__kont175913175914%_)))))))) - (_%loop169980170695%_ _%target169977170690%_ '())))) - (_%__match176068176069%_ - (lambda (_%e169938170586%_ - _%hd169939170589%_ - _%tl169940170591%_ - _%e169941170594%_ - _%hd169942170597%_ - _%tl169943170599%_ - _%e169944170602%_ - _%hd169945170605%_ - _%tl169946170607%_ - _%e169947170610%_ - _%hd169948170613%_ - _%tl169949170615%_ - _%e169950170618%_ - _%hd169951170621%_ - _%tl169952170623%_ - _%e169953170626%_ - _%hd169954170629%_ - _%tl169955170631%_ - _%e169956170634%_ - _%hd169957170637%_ - _%tl169958170639%_ - _%e169959170642%_ - _%hd169960170645%_ - _%tl169961170647%_ - _%e169962170650%_ - _%hd169963170653%_ - _%tl169964170655%_) + _%L170990%_ + __tmp176830))) + (_%__kont176175176176%_ + _%L170988%_ + _%L170989%_ + _%L170990%_ + _%L170991%_ + _%L170992%_) + (_%__kont176187176188%_)))))))) + (_%loop170254170969%_ _%target170251170964%_ '())))) + (_%__match176342176343%_ + (lambda (_%e170212170860%_ + _%hd170213170863%_ + _%tl170214170865%_ + _%e170215170868%_ + _%hd170216170871%_ + _%tl170217170873%_ + _%e170218170876%_ + _%hd170219170879%_ + _%tl170220170881%_ + _%e170221170884%_ + _%hd170222170887%_ + _%tl170223170889%_ + _%e170224170892%_ + _%hd170225170895%_ + _%tl170226170897%_ + _%e170227170900%_ + _%hd170228170903%_ + _%tl170229170905%_ + _%e170230170908%_ + _%hd170231170911%_ + _%tl170232170913%_ + _%e170233170916%_ + _%hd170234170919%_ + _%tl170235170921%_ + _%e170236170924%_ + _%hd170237170927%_ + _%tl170238170929%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd169963170653%_)) + (gx#stx-eq? '%#ref _%hd170237170927%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl169964170655%_)) - (let ((_%e169965170658%_ + (gx#stx-pair? _%tl170238170929%_)) + (let ((_%e170239170932%_ (let () (declare (not safe)) - (gx#stx-e _%tl169964170655%_)))) - (let ((_%tl169967170663%_ + (gx#stx-e _%tl170238170929%_)))) + (let ((_%tl170241170937%_ (let () (declare (not safe)) - (##cdr _%e169965170658%_))) - (_%hd169966170661%_ + (##cdr _%e170239170932%_))) + (_%hd170240170935%_ (let () (declare (not safe)) - (##car _%e169965170658%_)))) + (##car _%e170239170932%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl169967170663%_)) + (gx#stx-null? _%tl170241170937%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl169961170647%_)) - (let ((_%e169968170666%_ + _%tl170235170921%_)) + (let ((_%e170242170940%_ (let () (declare (not safe)) (gx#stx-e - _%tl169961170647%_)))) - (let ((_%tl169970170671%_ + _%tl170235170921%_)))) + (let ((_%tl170244170945%_ (let () (declare (not safe)) - (##cdr _%e169968170666%_))) - (_%hd169969170669%_ + (##cdr _%e170242170940%_))) + (_%hd170243170943%_ (let () (declare (not safe)) - (##car _%e169968170666%_)))) + (##car _%e170242170940%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd169969170669%_)) - (let ((_%e169971170674%_ + _%hd170243170943%_)) + (let ((_%e170245170948%_ (let () (declare (not safe)) (gx#stx-e - _%hd169969170669%_)))) - (let ((_%tl169973170679%_ + _%hd170243170943%_)))) + (let ((_%tl170247170953%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e169971170674%_))) - (_%hd169972170677%_ - (let () (declare (not safe)) (##car _%e169971170674%_)))) + (##cdr _%e170245170948%_))) + (_%hd170246170951%_ + (let () (declare (not safe)) (##car _%e170245170948%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd169972170677%_)) + (gx#identifier? _%hd170246170951%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd169972170677%_)) + (gx#stx-eq? '%#quote _%hd170246170951%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl169973170679%_)) - (let ((_%e169974170682%_ + (gx#stx-pair? _%tl170247170953%_)) + (let ((_%e170248170956%_ (let () (declare (not safe)) - (gx#stx-e _%tl169973170679%_)))) - (let ((_%tl169976170687%_ + (gx#stx-e _%tl170247170953%_)))) + (let ((_%tl170250170961%_ (let () (declare (not safe)) - (##cdr _%e169974170682%_))) - (_%hd169975170685%_ + (##cdr _%e170248170956%_))) + (_%hd170249170959%_ (let () (declare (not safe)) - (##car _%e169974170682%_)))) + (##car _%e170248170956%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl169976170687%_)) + (gx#stx-null? _%tl170250170961%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl169970170671%_)) - (let ((_%__splice175903175904%_ + _%tl170244170945%_)) + (let ((_%__splice176177176178%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl169970170671%_ + _%tl170244170945%_ '0)))) - (let ((_%tl169979170692%_ + (let ((_%tl170253170966%_ (let () (declare (not safe)) (##vector-ref - _%__splice175903175904%_ + _%__splice176177176178%_ '1))) - (_%target169977170690%_ + (_%target170251170964%_ (let () (declare (not safe)) (##vector-ref - _%__splice175903175904%_ + _%__splice176177176178%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl169979170692%_)) - (_%__match176110176111%_ - _%e169938170586%_ - _%hd169939170589%_ - _%tl169940170591%_ - _%e169941170594%_ - _%hd169942170597%_ - _%tl169943170599%_ - _%e169944170602%_ - _%hd169945170605%_ - _%tl169946170607%_ - _%e169947170610%_ - _%hd169948170613%_ - _%tl169949170615%_ - _%e169950170618%_ - _%hd169951170621%_ - _%tl169952170623%_ - _%e169953170626%_ - _%hd169954170629%_ - _%tl169955170631%_ - _%e169956170634%_ - _%hd169957170637%_ - _%tl169958170639%_ - _%e169959170642%_ - _%hd169960170645%_ - _%tl169961170647%_ - _%e169962170650%_ - _%hd169963170653%_ - _%tl169964170655%_ - _%e169965170658%_ - _%hd169966170661%_ - _%tl169967170663%_ - _%e169968170666%_ - _%hd169969170669%_ - _%tl169970170671%_ - _%e169971170674%_ - _%hd169972170677%_ - _%tl169973170679%_ - _%e169974170682%_ - _%hd169975170685%_ - _%tl169976170687%_ - _%__splice175903175904%_ - _%target169977170690%_ - _%tl169979170692%_) - (_%__kont175913175914%_)))) - (_%__kont175913175914%_)) - (_%__kont175913175914%_)))) - (_%__kont175913175914%_)) - (_%__kont175913175914%_)) - (_%__kont175913175914%_)))) + _%tl170253170966%_)) + (_%__match176384176385%_ + _%e170212170860%_ + _%hd170213170863%_ + _%tl170214170865%_ + _%e170215170868%_ + _%hd170216170871%_ + _%tl170217170873%_ + _%e170218170876%_ + _%hd170219170879%_ + _%tl170220170881%_ + _%e170221170884%_ + _%hd170222170887%_ + _%tl170223170889%_ + _%e170224170892%_ + _%hd170225170895%_ + _%tl170226170897%_ + _%e170227170900%_ + _%hd170228170903%_ + _%tl170229170905%_ + _%e170230170908%_ + _%hd170231170911%_ + _%tl170232170913%_ + _%e170233170916%_ + _%hd170234170919%_ + _%tl170235170921%_ + _%e170236170924%_ + _%hd170237170927%_ + _%tl170238170929%_ + _%e170239170932%_ + _%hd170240170935%_ + _%tl170241170937%_ + _%e170242170940%_ + _%hd170243170943%_ + _%tl170244170945%_ + _%e170245170948%_ + _%hd170246170951%_ + _%tl170247170953%_ + _%e170248170956%_ + _%hd170249170959%_ + _%tl170250170961%_ + _%__splice176177176178%_ + _%target170251170964%_ + _%tl170253170966%_) + (_%__kont176187176188%_)))) + (_%__kont176187176188%_)) + (_%__kont176187176188%_)))) + (_%__kont176187176188%_)) + (_%__kont176187176188%_)) + (_%__kont176187176188%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont175913175914%_)))) - (_%__match176392176393%_ - _%e169938170586%_ - _%hd169939170589%_ - _%tl169940170591%_ - _%e169941170594%_ - _%hd169942170597%_ - _%tl169943170599%_ - _%e169944170602%_ - _%hd169945170605%_ - _%tl169946170607%_ - _%e169947170610%_ - _%hd169948170613%_ - _%tl169949170615%_ - _%e169950170618%_ - _%hd169951170621%_ - _%tl169952170623%_ - _%e169953170626%_ - _%hd169954170629%_ - _%tl169955170631%_ - _%e169956170634%_ - _%hd169957170637%_ - _%tl169958170639%_ - _%e169959170642%_ - _%hd169960170645%_ - _%tl169961170647%_)) - (_%__match176392176393%_ - _%e169938170586%_ - _%hd169939170589%_ - _%tl169940170591%_ - _%e169941170594%_ - _%hd169942170597%_ - _%tl169943170599%_ - _%e169944170602%_ - _%hd169945170605%_ - _%tl169946170607%_ - _%e169947170610%_ - _%hd169948170613%_ - _%tl169949170615%_ - _%e169950170618%_ - _%hd169951170621%_ - _%tl169952170623%_ - _%e169953170626%_ - _%hd169954170629%_ - _%tl169955170631%_ - _%e169956170634%_ - _%hd169957170637%_ - _%tl169958170639%_ - _%e169959170642%_ - _%hd169960170645%_ - _%tl169961170647%_)))) - (_%__match176392176393%_ - _%e169938170586%_ - _%hd169939170589%_ - _%tl169940170591%_ - _%e169941170594%_ - _%hd169942170597%_ - _%tl169943170599%_ - _%e169944170602%_ - _%hd169945170605%_ - _%tl169946170607%_ - _%e169947170610%_ - _%hd169948170613%_ - _%tl169949170615%_ - _%e169950170618%_ - _%hd169951170621%_ - _%tl169952170623%_ - _%e169953170626%_ - _%hd169954170629%_ - _%tl169955170631%_ - _%e169956170634%_ - _%hd169957170637%_ - _%tl169958170639%_ - _%e169959170642%_ - _%hd169960170645%_ - _%tl169961170647%_)) - (_%__match176178176179%_ - _%e169938170586%_ - _%hd169939170589%_ - _%tl169940170591%_ - _%e169941170594%_ - _%hd169942170597%_ - _%tl169943170599%_ - _%e169944170602%_ - _%hd169945170605%_ - _%tl169946170607%_ - _%e169947170610%_ - _%hd169948170613%_ - _%tl169949170615%_ - _%e169950170618%_ - _%hd169951170621%_ - _%tl169952170623%_ - _%e169953170626%_ - _%hd169954170629%_ - _%tl169955170631%_ - _%e169956170634%_ - _%hd169957170637%_ - _%tl169958170639%_ - _%e169959170642%_ - _%hd169960170645%_ - _%tl169961170647%_ - _%e169962170650%_ - _%hd169963170653%_ - _%tl169964170655%_)))) - (_%__match176000176001%_ - (lambda (_%e169894170778%_ - _%hd169895170781%_ - _%tl169896170783%_ - _%e169897170786%_ - _%hd169898170789%_ - _%tl169899170791%_ - _%e169900170794%_ - _%hd169901170797%_ - _%tl169902170799%_ - _%e169903170802%_ - _%hd169904170805%_ - _%tl169905170807%_ - _%e169906170810%_ - _%hd169907170813%_ - _%tl169908170815%_ - _%e169909170818%_ - _%hd169910170821%_ - _%tl169911170823%_ - _%e169912170826%_ - _%hd169913170829%_ - _%tl169914170831%_ - _%e169915170834%_ - _%hd169916170837%_ - _%tl169917170839%_ - _%e169918170842%_ - _%hd169919170845%_ - _%tl169920170847%_ - _%e169921170850%_ - _%hd169922170853%_ - _%tl169923170855%_ - _%__splice175899175900%_ - _%target169924170858%_ - _%tl169926170860%_) - (letrec ((_%loop169927170863%_ - (lambda (_%hd169925170866%_ - _%args169931170868%_) + (_%__kont176187176188%_)))) + (_%__match176666176667%_ + _%e170212170860%_ + _%hd170213170863%_ + _%tl170214170865%_ + _%e170215170868%_ + _%hd170216170871%_ + _%tl170217170873%_ + _%e170218170876%_ + _%hd170219170879%_ + _%tl170220170881%_ + _%e170221170884%_ + _%hd170222170887%_ + _%tl170223170889%_ + _%e170224170892%_ + _%hd170225170895%_ + _%tl170226170897%_ + _%e170227170900%_ + _%hd170228170903%_ + _%tl170229170905%_ + _%e170230170908%_ + _%hd170231170911%_ + _%tl170232170913%_ + _%e170233170916%_ + _%hd170234170919%_ + _%tl170235170921%_)) + (_%__match176666176667%_ + _%e170212170860%_ + _%hd170213170863%_ + _%tl170214170865%_ + _%e170215170868%_ + _%hd170216170871%_ + _%tl170217170873%_ + _%e170218170876%_ + _%hd170219170879%_ + _%tl170220170881%_ + _%e170221170884%_ + _%hd170222170887%_ + _%tl170223170889%_ + _%e170224170892%_ + _%hd170225170895%_ + _%tl170226170897%_ + _%e170227170900%_ + _%hd170228170903%_ + _%tl170229170905%_ + _%e170230170908%_ + _%hd170231170911%_ + _%tl170232170913%_ + _%e170233170916%_ + _%hd170234170919%_ + _%tl170235170921%_)))) + (_%__match176666176667%_ + _%e170212170860%_ + _%hd170213170863%_ + _%tl170214170865%_ + _%e170215170868%_ + _%hd170216170871%_ + _%tl170217170873%_ + _%e170218170876%_ + _%hd170219170879%_ + _%tl170220170881%_ + _%e170221170884%_ + _%hd170222170887%_ + _%tl170223170889%_ + _%e170224170892%_ + _%hd170225170895%_ + _%tl170226170897%_ + _%e170227170900%_ + _%hd170228170903%_ + _%tl170229170905%_ + _%e170230170908%_ + _%hd170231170911%_ + _%tl170232170913%_ + _%e170233170916%_ + _%hd170234170919%_ + _%tl170235170921%_)) + (_%__match176452176453%_ + _%e170212170860%_ + _%hd170213170863%_ + _%tl170214170865%_ + _%e170215170868%_ + _%hd170216170871%_ + _%tl170217170873%_ + _%e170218170876%_ + _%hd170219170879%_ + _%tl170220170881%_ + _%e170221170884%_ + _%hd170222170887%_ + _%tl170223170889%_ + _%e170224170892%_ + _%hd170225170895%_ + _%tl170226170897%_ + _%e170227170900%_ + _%hd170228170903%_ + _%tl170229170905%_ + _%e170230170908%_ + _%hd170231170911%_ + _%tl170232170913%_ + _%e170233170916%_ + _%hd170234170919%_ + _%tl170235170921%_ + _%e170236170924%_ + _%hd170237170927%_ + _%tl170238170929%_)))) + (_%__match176274176275%_ + (lambda (_%e170168171052%_ + _%hd170169171055%_ + _%tl170170171057%_ + _%e170171171060%_ + _%hd170172171063%_ + _%tl170173171065%_ + _%e170174171068%_ + _%hd170175171071%_ + _%tl170176171073%_ + _%e170177171076%_ + _%hd170178171079%_ + _%tl170179171081%_ + _%e170180171084%_ + _%hd170181171087%_ + _%tl170182171089%_ + _%e170183171092%_ + _%hd170184171095%_ + _%tl170185171097%_ + _%e170186171100%_ + _%hd170187171103%_ + _%tl170188171105%_ + _%e170189171108%_ + _%hd170190171111%_ + _%tl170191171113%_ + _%e170192171116%_ + _%hd170193171119%_ + _%tl170194171121%_ + _%e170195171124%_ + _%hd170196171127%_ + _%tl170197171129%_ + _%__splice176173176174%_ + _%target170198171132%_ + _%tl170200171134%_) + (letrec ((_%loop170201171137%_ + (lambda (_%hd170199171140%_ + _%args170205171142%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd169925170866%_)) - (let ((_%e169928170871%_ + (gx#stx-pair? _%hd170199171140%_)) + (let ((_%e170202171145%_ (let () (declare (not safe)) (gx#stx-e - _%hd169925170866%_)))) - (let ((_%lp-tl169930170876%_ + _%hd170199171140%_)))) + (let ((_%lp-tl170204171150%_ (let () (declare (not safe)) - (##cdr _%e169928170871%_))) - (_%lp-hd169929170874%_ + (##cdr _%e170202171145%_))) + (_%lp-hd170203171148%_ (let () (declare (not safe)) - (##car _%e169928170871%_)))) - (_%loop169927170863%_ - _%lp-tl169930170876%_ - (cons _%lp-hd169929170874%_ - _%args169931170868%_)))) - (let ((_%args169932170879%_ - (reverse _%args169931170868%_))) - (let ((_%L170882%_ - _%args169932170879%_) - (_%L170883%_ - _%hd169922170853%_) - (_%L170884%_ - _%hd169913170829%_) - (_%L170885%_ - _%hd169904170805%_)) + (##car _%e170202171145%_)))) + (_%loop170201171137%_ + _%lp-tl170204171150%_ + (cons _%lp-hd170203171148%_ + _%args170205171142%_)))) + (let ((_%args170206171153%_ + (reverse _%args170205171142%_))) + (let ((_%L171156%_ + _%args170206171153%_) + (_%L171157%_ + _%hd170196171127%_) + (_%L171158%_ + _%hd170187171103%_) + (_%L171159%_ + _%hd170178171079%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L170885%_ + _%L171159%_ 'call-method)) - (let ((__tmp176557 + (let ((__tmp176831 (let () (declare (not safe)) (slot-ref__0 - _%self169877%_ + _%self170151%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L170884%_ - __tmp176557))) - (_%__kont175897175898%_ - _%L170882%_ - _%L170883%_ - _%L170884%_ - _%L170885%_) - (_%__match176188176189%_ - _%e169894170778%_ - _%hd169895170781%_ - _%tl169896170783%_ - _%e169897170786%_ - _%hd169898170789%_ - _%tl169899170791%_ - _%e169900170794%_ - _%hd169901170797%_ - _%tl169902170799%_ - _%e169903170802%_ - _%hd169904170805%_ - _%tl169905170807%_ - _%e169906170810%_ - _%hd169907170813%_ - _%tl169908170815%_ - _%e169909170818%_ - _%hd169910170821%_ - _%tl169911170823%_ - _%e169912170826%_ - _%hd169913170829%_ - _%tl169914170831%_ - _%e169915170834%_ - _%hd169916170837%_ - _%tl169917170839%_ - _%e169918170842%_ - _%hd169919170845%_ - _%tl169920170847%_ - _%e169921170850%_ - _%hd169922170853%_ - _%tl169923170855%_)))))))) - (_%loop169927170863%_ _%target169924170858%_ '()))))) + _%L171158%_ + __tmp176831))) + (_%__kont176171176172%_ + _%L171156%_ + _%L171157%_ + _%L171158%_ + _%L171159%_) + (_%__match176462176463%_ + _%e170168171052%_ + _%hd170169171055%_ + _%tl170170171057%_ + _%e170171171060%_ + _%hd170172171063%_ + _%tl170173171065%_ + _%e170174171068%_ + _%hd170175171071%_ + _%tl170176171073%_ + _%e170177171076%_ + _%hd170178171079%_ + _%tl170179171081%_ + _%e170180171084%_ + _%hd170181171087%_ + _%tl170182171089%_ + _%e170183171092%_ + _%hd170184171095%_ + _%tl170185171097%_ + _%e170186171100%_ + _%hd170187171103%_ + _%tl170188171105%_ + _%e170189171108%_ + _%hd170190171111%_ + _%tl170191171113%_ + _%e170192171116%_ + _%hd170193171119%_ + _%tl170194171121%_ + _%e170195171124%_ + _%hd170196171127%_ + _%tl170197171129%_)))))))) + (_%loop170201171137%_ _%target170198171132%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx175895175896%_)) - (let ((_%e169894170778%_ + (gx#stx-pair? _%__stx176169176170%_)) + (let ((_%e170168171052%_ (let () (declare (not safe)) - (gx#stx-e _%__stx175895175896%_)))) - (let ((_%tl169896170783%_ + (gx#stx-e _%__stx176169176170%_)))) + (let ((_%tl170170171057%_ (let () (declare (not safe)) - (##cdr _%e169894170778%_))) - (_%hd169895170781%_ + (##cdr _%e170168171052%_))) + (_%hd170169171055%_ (let () (declare (not safe)) - (##car _%e169894170778%_)))) + (##car _%e170168171052%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl169896170783%_)) - (let ((_%e169897170786%_ + (gx#stx-pair? _%tl170170171057%_)) + (let ((_%e170171171060%_ (let () (declare (not safe)) - (gx#stx-e _%tl169896170783%_)))) - (let ((_%tl169899170791%_ + (gx#stx-e _%tl170170171057%_)))) + (let ((_%tl170173171065%_ (let () (declare (not safe)) - (##cdr _%e169897170786%_))) - (_%hd169898170789%_ + (##cdr _%e170171171060%_))) + (_%hd170172171063%_ (let () (declare (not safe)) - (##car _%e169897170786%_)))) + (##car _%e170171171060%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd169898170789%_)) - (let ((_%e169900170794%_ + (gx#stx-pair? _%hd170172171063%_)) + (let ((_%e170174171068%_ (let () (declare (not safe)) - (gx#stx-e _%hd169898170789%_)))) - (let ((_%tl169902170799%_ + (gx#stx-e _%hd170172171063%_)))) + (let ((_%tl170176171073%_ (let () (declare (not safe)) - (##cdr _%e169900170794%_))) - (_%hd169901170797%_ + (##cdr _%e170174171068%_))) + (_%hd170175171071%_ (let () (declare (not safe)) - (##car _%e169900170794%_)))) + (##car _%e170174171068%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd169901170797%_)) + _%hd170175171071%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd169901170797%_)) + _%hd170175171071%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl169902170799%_)) - (let ((_%e169903170802%_ + _%tl170176171073%_)) + (let ((_%e170177171076%_ (let () (declare (not safe)) (gx#stx-e - _%tl169902170799%_)))) - (let ((_%tl169905170807%_ + _%tl170176171073%_)))) + (let ((_%tl170179171081%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e169903170802%_))) - (_%hd169904170805%_ - (let () (declare (not safe)) (##car _%e169903170802%_)))) + (##cdr _%e170177171076%_))) + (_%hd170178171079%_ + (let () (declare (not safe)) (##car _%e170177171076%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl169905170807%_)) + (gx#stx-null? _%tl170179171081%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl169899170791%_)) - (let ((_%e169906170810%_ + (gx#stx-pair? _%tl170173171065%_)) + (let ((_%e170180171084%_ (let () (declare (not safe)) - (gx#stx-e _%tl169899170791%_)))) - (let ((_%tl169908170815%_ + (gx#stx-e _%tl170173171065%_)))) + (let ((_%tl170182171089%_ (let () (declare (not safe)) - (##cdr _%e169906170810%_))) - (_%hd169907170813%_ + (##cdr _%e170180171084%_))) + (_%hd170181171087%_ (let () (declare (not safe)) - (##car _%e169906170810%_)))) + (##car _%e170180171084%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd169907170813%_)) - (let ((_%e169909170818%_ + (gx#stx-pair? _%hd170181171087%_)) + (let ((_%e170183171092%_ (let () (declare (not safe)) - (gx#stx-e _%hd169907170813%_)))) - (let ((_%tl169911170823%_ + (gx#stx-e _%hd170181171087%_)))) + (let ((_%tl170185171097%_ (let () (declare (not safe)) - (##cdr _%e169909170818%_))) - (_%hd169910170821%_ + (##cdr _%e170183171092%_))) + (_%hd170184171095%_ (let () (declare (not safe)) - (##car _%e169909170818%_)))) + (##car _%e170183171092%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd169910170821%_)) + (gx#identifier? _%hd170184171095%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd169910170821%_)) + _%hd170184171095%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl169911170823%_)) - (let ((_%e169912170826%_ + _%tl170185171097%_)) + (let ((_%e170186171100%_ (let () (declare (not safe)) (gx#stx-e - _%tl169911170823%_)))) - (let ((_%tl169914170831%_ + _%tl170185171097%_)))) + (let ((_%tl170188171105%_ (let () (declare (not safe)) - (##cdr _%e169912170826%_))) - (_%hd169913170829%_ + (##cdr _%e170186171100%_))) + (_%hd170187171103%_ (let () (declare (not safe)) - (##car _%e169912170826%_)))) + (##car _%e170186171100%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl169914170831%_)) + _%tl170188171105%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl169908170815%_)) - (let ((_%e169915170834%_ + _%tl170182171089%_)) + (let ((_%e170189171108%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl169908170815%_)))) - (let ((_%tl169917170839%_ + (gx#stx-e _%tl170182171089%_)))) + (let ((_%tl170191171113%_ (let () (declare (not safe)) - (##cdr _%e169915170834%_))) - (_%hd169916170837%_ + (##cdr _%e170189171108%_))) + (_%hd170190171111%_ (let () (declare (not safe)) - (##car _%e169915170834%_)))) + (##car _%e170189171108%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd169916170837%_)) - (let ((_%e169918170842%_ + (gx#stx-pair? _%hd170190171111%_)) + (let ((_%e170192171116%_ (let () (declare (not safe)) - (gx#stx-e _%hd169916170837%_)))) - (let ((_%tl169920170847%_ + (gx#stx-e _%hd170190171111%_)))) + (let ((_%tl170194171121%_ (let () (declare (not safe)) - (##cdr _%e169918170842%_))) - (_%hd169919170845%_ + (##cdr _%e170192171116%_))) + (_%hd170193171119%_ (let () (declare (not safe)) - (##car _%e169918170842%_)))) + (##car _%e170192171116%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd169919170845%_)) + (gx#identifier? _%hd170193171119%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd169919170845%_)) + _%hd170193171119%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl169920170847%_)) - (let ((_%e169921170850%_ + _%tl170194171121%_)) + (let ((_%e170195171124%_ (let () (declare (not safe)) (gx#stx-e - _%tl169920170847%_)))) - (let ((_%tl169923170855%_ + _%tl170194171121%_)))) + (let ((_%tl170197171129%_ (let () (declare (not safe)) - (##cdr _%e169921170850%_))) - (_%hd169922170853%_ + (##cdr _%e170195171124%_))) + (_%hd170196171127%_ (let () (declare (not safe)) - (##car _%e169921170850%_)))) + (##car _%e170195171124%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl169923170855%_)) + _%tl170197171129%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl169917170839%_)) - (let ((_%__splice175899175900%_ + _%tl170191171113%_)) + (let ((_%__splice176173176174%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _%tl169917170839%_ '0)))) - (let ((_%tl169926170860%_ + (gx#syntax-split-splice _%tl170191171113%_ '0)))) + (let ((_%tl170200171134%_ (let () (declare (not safe)) - (##vector-ref _%__splice175899175900%_ '1))) - (_%target169924170858%_ + (##vector-ref _%__splice176173176174%_ '1))) + (_%target170198171132%_ (let () (declare (not safe)) - (##vector-ref _%__splice175899175900%_ '0)))) + (##vector-ref _%__splice176173176174%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl169926170860%_)) - (_%__match176000176001%_ - _%e169894170778%_ - _%hd169895170781%_ - _%tl169896170783%_ - _%e169897170786%_ - _%hd169898170789%_ - _%tl169899170791%_ - _%e169900170794%_ - _%hd169901170797%_ - _%tl169902170799%_ - _%e169903170802%_ - _%hd169904170805%_ - _%tl169905170807%_ - _%e169906170810%_ - _%hd169907170813%_ - _%tl169908170815%_ - _%e169909170818%_ - _%hd169910170821%_ - _%tl169911170823%_ - _%e169912170826%_ - _%hd169913170829%_ - _%tl169914170831%_ - _%e169915170834%_ - _%hd169916170837%_ - _%tl169917170839%_ - _%e169918170842%_ - _%hd169919170845%_ - _%tl169920170847%_ - _%e169921170850%_ - _%hd169922170853%_ - _%tl169923170855%_ - _%__splice175899175900%_ - _%target169924170858%_ - _%tl169926170860%_) - (_%__match176188176189%_ - _%e169894170778%_ - _%hd169895170781%_ - _%tl169896170783%_ - _%e169897170786%_ - _%hd169898170789%_ - _%tl169899170791%_ - _%e169900170794%_ - _%hd169901170797%_ - _%tl169902170799%_ - _%e169903170802%_ - _%hd169904170805%_ - _%tl169905170807%_ - _%e169906170810%_ - _%hd169907170813%_ - _%tl169908170815%_ - _%e169909170818%_ - _%hd169910170821%_ - _%tl169911170823%_ - _%e169912170826%_ - _%hd169913170829%_ - _%tl169914170831%_ - _%e169915170834%_ - _%hd169916170837%_ - _%tl169917170839%_ - _%e169918170842%_ - _%hd169919170845%_ - _%tl169920170847%_ - _%e169921170850%_ - _%hd169922170853%_ - _%tl169923170855%_)))) - (_%__match176188176189%_ - _%e169894170778%_ - _%hd169895170781%_ - _%tl169896170783%_ - _%e169897170786%_ - _%hd169898170789%_ - _%tl169899170791%_ - _%e169900170794%_ - _%hd169901170797%_ - _%tl169902170799%_ - _%e169903170802%_ - _%hd169904170805%_ - _%tl169905170807%_ - _%e169906170810%_ - _%hd169907170813%_ - _%tl169908170815%_ - _%e169909170818%_ - _%hd169910170821%_ - _%tl169911170823%_ - _%e169912170826%_ - _%hd169913170829%_ - _%tl169914170831%_ - _%e169915170834%_ - _%hd169916170837%_ - _%tl169917170839%_ - _%e169918170842%_ - _%hd169919170845%_ - _%tl169920170847%_ - _%e169921170850%_ - _%hd169922170853%_ - _%tl169923170855%_)) + (gx#stx-null? _%tl170200171134%_)) + (_%__match176274176275%_ + _%e170168171052%_ + _%hd170169171055%_ + _%tl170170171057%_ + _%e170171171060%_ + _%hd170172171063%_ + _%tl170173171065%_ + _%e170174171068%_ + _%hd170175171071%_ + _%tl170176171073%_ + _%e170177171076%_ + _%hd170178171079%_ + _%tl170179171081%_ + _%e170180171084%_ + _%hd170181171087%_ + _%tl170182171089%_ + _%e170183171092%_ + _%hd170184171095%_ + _%tl170185171097%_ + _%e170186171100%_ + _%hd170187171103%_ + _%tl170188171105%_ + _%e170189171108%_ + _%hd170190171111%_ + _%tl170191171113%_ + _%e170192171116%_ + _%hd170193171119%_ + _%tl170194171121%_ + _%e170195171124%_ + _%hd170196171127%_ + _%tl170197171129%_ + _%__splice176173176174%_ + _%target170198171132%_ + _%tl170200171134%_) + (_%__match176462176463%_ + _%e170168171052%_ + _%hd170169171055%_ + _%tl170170171057%_ + _%e170171171060%_ + _%hd170172171063%_ + _%tl170173171065%_ + _%e170174171068%_ + _%hd170175171071%_ + _%tl170176171073%_ + _%e170177171076%_ + _%hd170178171079%_ + _%tl170179171081%_ + _%e170180171084%_ + _%hd170181171087%_ + _%tl170182171089%_ + _%e170183171092%_ + _%hd170184171095%_ + _%tl170185171097%_ + _%e170186171100%_ + _%hd170187171103%_ + _%tl170188171105%_ + _%e170189171108%_ + _%hd170190171111%_ + _%tl170191171113%_ + _%e170192171116%_ + _%hd170193171119%_ + _%tl170194171121%_ + _%e170195171124%_ + _%hd170196171127%_ + _%tl170197171129%_)))) + (_%__match176462176463%_ + _%e170168171052%_ + _%hd170169171055%_ + _%tl170170171057%_ + _%e170171171060%_ + _%hd170172171063%_ + _%tl170173171065%_ + _%e170174171068%_ + _%hd170175171071%_ + _%tl170176171073%_ + _%e170177171076%_ + _%hd170178171079%_ + _%tl170179171081%_ + _%e170180171084%_ + _%hd170181171087%_ + _%tl170182171089%_ + _%e170183171092%_ + _%hd170184171095%_ + _%tl170185171097%_ + _%e170186171100%_ + _%hd170187171103%_ + _%tl170188171105%_ + _%e170189171108%_ + _%hd170190171111%_ + _%tl170191171113%_ + _%e170192171116%_ + _%hd170193171119%_ + _%tl170194171121%_ + _%e170195171124%_ + _%hd170196171127%_ + _%tl170197171129%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match176392176393%_ - _%e169894170778%_ - _%hd169895170781%_ - _%tl169896170783%_ - _%e169897170786%_ - _%hd169898170789%_ - _%tl169899170791%_ - _%e169900170794%_ - _%hd169901170797%_ - _%tl169902170799%_ - _%e169903170802%_ - _%hd169904170805%_ - _%tl169905170807%_ - _%e169906170810%_ - _%hd169907170813%_ - _%tl169908170815%_ - _%e169909170818%_ - _%hd169910170821%_ - _%tl169911170823%_ - _%e169912170826%_ - _%hd169913170829%_ - _%tl169914170831%_ - _%e169915170834%_ - _%hd169916170837%_ - _%tl169917170839%_)))) - (_%__match176392176393%_ - _%e169894170778%_ - _%hd169895170781%_ - _%tl169896170783%_ - _%e169897170786%_ - _%hd169898170789%_ - _%tl169899170791%_ - _%e169900170794%_ - _%hd169901170797%_ - _%tl169902170799%_ - _%e169903170802%_ - _%hd169904170805%_ - _%tl169905170807%_ - _%e169906170810%_ - _%hd169907170813%_ - _%tl169908170815%_ - _%e169909170818%_ - _%hd169910170821%_ - _%tl169911170823%_ - _%e169912170826%_ - _%hd169913170829%_ - _%tl169914170831%_ - _%e169915170834%_ - _%hd169916170837%_ - _%tl169917170839%_)) - (_%__match176068176069%_ - _%e169894170778%_ - _%hd169895170781%_ - _%tl169896170783%_ - _%e169897170786%_ - _%hd169898170789%_ - _%tl169899170791%_ - _%e169900170794%_ - _%hd169901170797%_ - _%tl169902170799%_ - _%e169903170802%_ - _%hd169904170805%_ - _%tl169905170807%_ - _%e169906170810%_ - _%hd169907170813%_ - _%tl169908170815%_ - _%e169909170818%_ - _%hd169910170821%_ - _%tl169911170823%_ - _%e169912170826%_ - _%hd169913170829%_ - _%tl169914170831%_ - _%e169915170834%_ - _%hd169916170837%_ - _%tl169917170839%_ - _%e169918170842%_ - _%hd169919170845%_ - _%tl169920170847%_)) - (_%__match176392176393%_ - _%e169894170778%_ - _%hd169895170781%_ - _%tl169896170783%_ - _%e169897170786%_ - _%hd169898170789%_ - _%tl169899170791%_ - _%e169900170794%_ - _%hd169901170797%_ - _%tl169902170799%_ - _%e169903170802%_ - _%hd169904170805%_ - _%tl169905170807%_ - _%e169906170810%_ - _%hd169907170813%_ - _%tl169908170815%_ - _%e169909170818%_ - _%hd169910170821%_ - _%tl169911170823%_ - _%e169912170826%_ - _%hd169913170829%_ - _%tl169914170831%_ - _%e169915170834%_ - _%hd169916170837%_ - _%tl169917170839%_)))) - (_%__match176392176393%_ - _%e169894170778%_ - _%hd169895170781%_ - _%tl169896170783%_ - _%e169897170786%_ - _%hd169898170789%_ - _%tl169899170791%_ - _%e169900170794%_ - _%hd169901170797%_ - _%tl169902170799%_ - _%e169903170802%_ - _%hd169904170805%_ - _%tl169905170807%_ - _%e169906170810%_ - _%hd169907170813%_ - _%tl169908170815%_ - _%e169909170818%_ - _%hd169910170821%_ - _%tl169911170823%_ - _%e169912170826%_ - _%hd169913170829%_ - _%tl169914170831%_ - _%e169915170834%_ - _%hd169916170837%_ - _%tl169917170839%_)))) - (_%__match176330176331%_ - _%e169894170778%_ - _%hd169895170781%_ - _%tl169896170783%_ - _%e169897170786%_ - _%hd169898170789%_ - _%tl169899170791%_ - _%e169900170794%_ - _%hd169901170797%_ - _%tl169902170799%_ - _%e169903170802%_ - _%hd169904170805%_ - _%tl169905170807%_ - _%e169906170810%_ - _%hd169907170813%_ - _%tl169908170815%_ - _%e169909170818%_ - _%hd169910170821%_ - _%tl169911170823%_ - _%e169912170826%_ - _%hd169913170829%_ - _%tl169914170831%_)) - (_%__kont175913175914%_)))) + (_%__match176666176667%_ + _%e170168171052%_ + _%hd170169171055%_ + _%tl170170171057%_ + _%e170171171060%_ + _%hd170172171063%_ + _%tl170173171065%_ + _%e170174171068%_ + _%hd170175171071%_ + _%tl170176171073%_ + _%e170177171076%_ + _%hd170178171079%_ + _%tl170179171081%_ + _%e170180171084%_ + _%hd170181171087%_ + _%tl170182171089%_ + _%e170183171092%_ + _%hd170184171095%_ + _%tl170185171097%_ + _%e170186171100%_ + _%hd170187171103%_ + _%tl170188171105%_ + _%e170189171108%_ + _%hd170190171111%_ + _%tl170191171113%_)))) + (_%__match176666176667%_ + _%e170168171052%_ + _%hd170169171055%_ + _%tl170170171057%_ + _%e170171171060%_ + _%hd170172171063%_ + _%tl170173171065%_ + _%e170174171068%_ + _%hd170175171071%_ + _%tl170176171073%_ + _%e170177171076%_ + _%hd170178171079%_ + _%tl170179171081%_ + _%e170180171084%_ + _%hd170181171087%_ + _%tl170182171089%_ + _%e170183171092%_ + _%hd170184171095%_ + _%tl170185171097%_ + _%e170186171100%_ + _%hd170187171103%_ + _%tl170188171105%_ + _%e170189171108%_ + _%hd170190171111%_ + _%tl170191171113%_)) + (_%__match176342176343%_ + _%e170168171052%_ + _%hd170169171055%_ + _%tl170170171057%_ + _%e170171171060%_ + _%hd170172171063%_ + _%tl170173171065%_ + _%e170174171068%_ + _%hd170175171071%_ + _%tl170176171073%_ + _%e170177171076%_ + _%hd170178171079%_ + _%tl170179171081%_ + _%e170180171084%_ + _%hd170181171087%_ + _%tl170182171089%_ + _%e170183171092%_ + _%hd170184171095%_ + _%tl170185171097%_ + _%e170186171100%_ + _%hd170187171103%_ + _%tl170188171105%_ + _%e170189171108%_ + _%hd170190171111%_ + _%tl170191171113%_ + _%e170192171116%_ + _%hd170193171119%_ + _%tl170194171121%_)) + (_%__match176666176667%_ + _%e170168171052%_ + _%hd170169171055%_ + _%tl170170171057%_ + _%e170171171060%_ + _%hd170172171063%_ + _%tl170173171065%_ + _%e170174171068%_ + _%hd170175171071%_ + _%tl170176171073%_ + _%e170177171076%_ + _%hd170178171079%_ + _%tl170179171081%_ + _%e170180171084%_ + _%hd170181171087%_ + _%tl170182171089%_ + _%e170183171092%_ + _%hd170184171095%_ + _%tl170185171097%_ + _%e170186171100%_ + _%hd170187171103%_ + _%tl170188171105%_ + _%e170189171108%_ + _%hd170190171111%_ + _%tl170191171113%_)))) + (_%__match176666176667%_ + _%e170168171052%_ + _%hd170169171055%_ + _%tl170170171057%_ + _%e170171171060%_ + _%hd170172171063%_ + _%tl170173171065%_ + _%e170174171068%_ + _%hd170175171071%_ + _%tl170176171073%_ + _%e170177171076%_ + _%hd170178171079%_ + _%tl170179171081%_ + _%e170180171084%_ + _%hd170181171087%_ + _%tl170182171089%_ + _%e170183171092%_ + _%hd170184171095%_ + _%tl170185171097%_ + _%e170186171100%_ + _%hd170187171103%_ + _%tl170188171105%_ + _%e170189171108%_ + _%hd170190171111%_ + _%tl170191171113%_)))) + (_%__match176604176605%_ + _%e170168171052%_ + _%hd170169171055%_ + _%tl170170171057%_ + _%e170171171060%_ + _%hd170172171063%_ + _%tl170173171065%_ + _%e170174171068%_ + _%hd170175171071%_ + _%tl170176171073%_ + _%e170177171076%_ + _%hd170178171079%_ + _%tl170179171081%_ + _%e170180171084%_ + _%hd170181171087%_ + _%tl170182171089%_ + _%e170183171092%_ + _%hd170184171095%_ + _%tl170185171097%_ + _%e170186171100%_ + _%hd170187171103%_ + _%tl170188171105%_)) + (_%__kont176187176188%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont175913175914%_)) - (_%__kont175913175914%_)) - (_%__kont175913175914%_)))) - (_%__kont175913175914%_)))) - (_%__kont175913175914%_)) - (_%__kont175913175914%_)))) + (_%__kont176187176188%_)) + (_%__kont176187176188%_)) + (_%__kont176187176188%_)))) + (_%__kont176187176188%_)))) + (_%__kont176187176188%_)) + (_%__kont176187176188%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont175913175914%_)) - (_%__kont175913175914%_)) - (_%__kont175913175914%_)))) - (_%__kont175913175914%_)))) - (_%__kont175913175914%_)))) - (_%__kont175913175914%_)))))))))) + (_%__kont176187176188%_)) + (_%__kont176187176188%_)) + (_%__kont176187176188%_)))) + (_%__kont176187176188%_)))) + (_%__kont176187176188%_)))) + (_%__kont176187176188%_)))))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-spec~1.scm b/src/bootstrap/gerbil/compiler/optimize-spec~1.scm index e4de3aebe..2a420e1d7 100644 --- a/src/bootstrap/gerbil/compiler/optimize-spec~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-spec~1.scm @@ -1,307 +1,307 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g176559_| + (define |gxc[1]#_g176833_| (##structure gx#syntax-quote::t '::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176561_| + (define |gxc[1]#_g176835_| (##structure gx#syntax-quote::t '::generate-method-specializers::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176563_| + (define |gxc[1]#_g176837_| (##structure gx#syntax-quote::t 'make-::generate-method-specializers #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176565_| + (define |gxc[1]#_g176839_| (##structure gx#syntax-quote::t '::generate-method-specializers? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176567_| + (define |gxc[1]#_g176841_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176569_| + (define |gxc[1]#_g176843_| (##structure gx#syntax-quote::t '::extract-receiver::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176571_| + (define |gxc[1]#_g176845_| (##structure gx#syntax-quote::t 'make-::extract-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176573_| + (define |gxc[1]#_g176847_| (##structure gx#syntax-quote::t '::extract-receiver? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176575_| + (define |gxc[1]#_g176849_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176577_| + (define |gxc[1]#_g176851_| (##structure gx#syntax-quote::t '::collect-object-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176579_| + (define |gxc[1]#_g176853_| (##structure gx#syntax-quote::t 'make-::collect-object-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176581_| + (define |gxc[1]#_g176855_| (##structure gx#syntax-quote::t '::collect-object-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176583_| + (define |gxc[1]#_g176857_| (##structure gx#syntax-quote::t '::collect-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176584_| + (define |gxc[1]#_g176858_| (##structure gx#syntax-quote::t '::collect-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176585_| + (define |gxc[1]#_g176859_| (##structure gx#syntax-quote::t '::collect-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176587_| + (define |gxc[1]#_g176861_| (##structure gx#syntax-quote::t '::collect-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176588_| + (define |gxc[1]#_g176862_| (##structure gx#syntax-quote::t '::collect-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176589_| + (define |gxc[1]#_g176863_| (##structure gx#syntax-quote::t '::collect-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176591_| + (define |gxc[1]#_g176865_| (##structure gx#syntax-quote::t '&::collect-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176592_| + (define |gxc[1]#_g176866_| (##structure gx#syntax-quote::t '&::collect-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176593_| + (define |gxc[1]#_g176867_| (##structure gx#syntax-quote::t '&::collect-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176595_| + (define |gxc[1]#_g176869_| (##structure gx#syntax-quote::t '&::collect-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176596_| + (define |gxc[1]#_g176870_| (##structure gx#syntax-quote::t '&::collect-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176597_| + (define |gxc[1]#_g176871_| (##structure gx#syntax-quote::t '&::collect-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176599_| + (define |gxc[1]#_g176873_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176601_| + (define |gxc[1]#_g176875_| (##structure gx#syntax-quote::t '::subst-object-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176603_| + (define |gxc[1]#_g176877_| (##structure gx#syntax-quote::t 'make-::subst-object-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176605_| + (define |gxc[1]#_g176879_| (##structure gx#syntax-quote::t '::subst-object-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176607_| + (define |gxc[1]#_g176881_| (##structure gx#syntax-quote::t '::subst-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176608_| + (define |gxc[1]#_g176882_| (##structure gx#syntax-quote::t '::subst-object-refs-klass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176609_| + (define |gxc[1]#_g176883_| (##structure gx#syntax-quote::t '::subst-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176610_| + (define |gxc[1]#_g176884_| (##structure gx#syntax-quote::t '::subst-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176612_| + (define |gxc[1]#_g176886_| (##structure gx#syntax-quote::t '::subst-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176613_| + (define |gxc[1]#_g176887_| (##structure gx#syntax-quote::t '::subst-object-refs-klass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176614_| + (define |gxc[1]#_g176888_| (##structure gx#syntax-quote::t '::subst-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176615_| + (define |gxc[1]#_g176889_| (##structure gx#syntax-quote::t '::subst-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176617_| + (define |gxc[1]#_g176891_| (##structure gx#syntax-quote::t '&::subst-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176618_| + (define |gxc[1]#_g176892_| (##structure gx#syntax-quote::t '&::subst-object-refs-klass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176619_| + (define |gxc[1]#_g176893_| (##structure gx#syntax-quote::t '&::subst-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176620_| + (define |gxc[1]#_g176894_| (##structure gx#syntax-quote::t '&::subst-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176622_| + (define |gxc[1]#_g176896_| (##structure gx#syntax-quote::t '&::subst-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176623_| + (define |gxc[1]#_g176897_| (##structure gx#syntax-quote::t '&::subst-object-refs-klass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176624_| + (define |gxc[1]#_g176898_| (##structure gx#syntax-quote::t '&::subst-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g176625_| + (define |gxc[1]#_g176899_| (##structure gx#syntax-quote::t '&::subst-object-refs-slots-set! @@ -310,7 +310,7 @@ '())) (begin (define |gxc[:0:]#::generate-method-specializers| - (let ((__obj176396 + (let ((__obj176670 (let () (declare (not safe)) (##structure @@ -339,7 +339,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176396 + __obj176670 'gxc#::generate-method-specializers::t '1 '#f @@ -347,65 +347,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176396 + __obj176670 '::generate-method-specializers '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176396 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj176670 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176396 '() '6 '#f '#f)) - (let ((__tmp176558 (cons |gxc[1]#_g176559_| '()))) + (##unchecked-structure-set! __obj176670 '() '6 '#f '#f)) + (let ((__tmp176832 (cons |gxc[1]#_g176833_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj176396 __tmp176558 '3 '#f '#f)) + (##unchecked-structure-set! __obj176670 __tmp176832 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176396 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj176670 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176396 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj176670 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176396 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj176670 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176396 '#f '11 '#f '#f)) - (let ((__tmp176560 |gxc[1]#_g176561_|)) + (##unchecked-structure-set! __obj176670 '#f '11 '#f '#f)) + (let ((__tmp176834 |gxc[1]#_g176835_|)) (declare (not safe)) - (##unchecked-structure-set! __obj176396 __tmp176560 '12 '#f '#f)) - (let ((__tmp176562 |gxc[1]#_g176563_|)) + (##unchecked-structure-set! __obj176670 __tmp176834 '12 '#f '#f)) + (let ((__tmp176836 |gxc[1]#_g176837_|)) (declare (not safe)) - (##unchecked-structure-set! __obj176396 __tmp176562 '13 '#f '#f)) - (let ((__tmp176564 |gxc[1]#_g176565_|)) + (##unchecked-structure-set! __obj176670 __tmp176836 '13 '#f '#f)) + (let ((__tmp176838 |gxc[1]#_g176839_|)) (declare (not safe)) - (##unchecked-structure-set! __obj176396 __tmp176564 '14 '#f '#f)) + (##unchecked-structure-set! __obj176670 __tmp176838 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176396 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj176670 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176396 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj176670 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176396 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj176670 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176396 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj176670 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176396 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj176670 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176396 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj176670 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176396 '() '20 '#f '#f)) - __obj176396)) + (##unchecked-structure-set! __obj176670 '() '20 '#f '#f)) + __obj176670)) (define |gxc[:0:]#::extract-receiver| - (let ((__obj176398 + (let ((__obj176672 (let () (declare (not safe)) (##structure @@ -434,7 +434,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176398 + __obj176672 'gxc#::extract-receiver::t '1 '#f @@ -442,65 +442,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176398 + __obj176672 '::extract-receiver '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176398 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj176672 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176398 '() '6 '#f '#f)) - (let ((__tmp176566 (cons |gxc[1]#_g176567_| '()))) + (##unchecked-structure-set! __obj176672 '() '6 '#f '#f)) + (let ((__tmp176840 (cons |gxc[1]#_g176841_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj176398 __tmp176566 '3 '#f '#f)) + (##unchecked-structure-set! __obj176672 __tmp176840 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176398 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj176672 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176398 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj176672 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176398 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj176672 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176398 '#f '11 '#f '#f)) - (let ((__tmp176568 |gxc[1]#_g176569_|)) + (##unchecked-structure-set! __obj176672 '#f '11 '#f '#f)) + (let ((__tmp176842 |gxc[1]#_g176843_|)) (declare (not safe)) - (##unchecked-structure-set! __obj176398 __tmp176568 '12 '#f '#f)) - (let ((__tmp176570 |gxc[1]#_g176571_|)) + (##unchecked-structure-set! __obj176672 __tmp176842 '12 '#f '#f)) + (let ((__tmp176844 |gxc[1]#_g176845_|)) (declare (not safe)) - (##unchecked-structure-set! __obj176398 __tmp176570 '13 '#f '#f)) - (let ((__tmp176572 |gxc[1]#_g176573_|)) + (##unchecked-structure-set! __obj176672 __tmp176844 '13 '#f '#f)) + (let ((__tmp176846 |gxc[1]#_g176847_|)) (declare (not safe)) - (##unchecked-structure-set! __obj176398 __tmp176572 '14 '#f '#f)) + (##unchecked-structure-set! __obj176672 __tmp176846 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176398 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj176672 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176398 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj176672 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176398 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj176672 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176398 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj176672 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176398 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj176672 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176398 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj176672 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176398 '() '20 '#f '#f)) - __obj176398)) + (##unchecked-structure-set! __obj176672 '() '20 '#f '#f)) + __obj176672)) (define |gxc[:0:]#::collect-object-refs| - (let ((__obj176400 + (let ((__obj176674 (let () (declare (not safe)) (##structure @@ -529,7 +529,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176400 + __obj176674 'gxc#::collect-object-refs::t '1 '#f @@ -537,7 +537,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176400 + __obj176674 '::collect-object-refs '2 '#f @@ -545,7 +545,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176400 + __obj176674 '(receiver methods slots) '4 '#f @@ -553,71 +553,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176400 + __obj176674 '(receiver methods slots) '6 '#f '#f)) - (let ((__tmp176574 (cons |gxc[1]#_g176575_| '()))) + (let ((__tmp176848 (cons |gxc[1]#_g176849_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj176400 __tmp176574 '3 '#f '#f)) + (##unchecked-structure-set! __obj176674 __tmp176848 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176400 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj176674 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176400 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj176674 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176400 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj176674 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176400 '#f '11 '#f '#f)) - (let ((__tmp176576 |gxc[1]#_g176577_|)) + (##unchecked-structure-set! __obj176674 '#f '11 '#f '#f)) + (let ((__tmp176850 |gxc[1]#_g176851_|)) (declare (not safe)) - (##unchecked-structure-set! __obj176400 __tmp176576 '12 '#f '#f)) - (let ((__tmp176578 |gxc[1]#_g176579_|)) + (##unchecked-structure-set! __obj176674 __tmp176850 '12 '#f '#f)) + (let ((__tmp176852 |gxc[1]#_g176853_|)) (declare (not safe)) - (##unchecked-structure-set! __obj176400 __tmp176578 '13 '#f '#f)) - (let ((__tmp176580 |gxc[1]#_g176581_|)) + (##unchecked-structure-set! __obj176674 __tmp176852 '13 '#f '#f)) + (let ((__tmp176854 |gxc[1]#_g176855_|)) (declare (not safe)) - (##unchecked-structure-set! __obj176400 __tmp176580 '14 '#f '#f)) - (let ((__tmp176582 - (cons (cons 'receiver |gxc[1]#_g176583_|) - (cons (cons 'methods |gxc[1]#_g176584_|) - (cons (cons 'slots |gxc[1]#_g176585_|) '()))))) + (##unchecked-structure-set! __obj176674 __tmp176854 '14 '#f '#f)) + (let ((__tmp176856 + (cons (cons 'receiver |gxc[1]#_g176857_|) + (cons (cons 'methods |gxc[1]#_g176858_|) + (cons (cons 'slots |gxc[1]#_g176859_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj176400 __tmp176582 '15 '#f '#f)) - (let ((__tmp176586 - (cons (cons 'receiver |gxc[1]#_g176587_|) - (cons (cons 'methods |gxc[1]#_g176588_|) - (cons (cons 'slots |gxc[1]#_g176589_|) '()))))) + (##unchecked-structure-set! __obj176674 __tmp176856 '15 '#f '#f)) + (let ((__tmp176860 + (cons (cons 'receiver |gxc[1]#_g176861_|) + (cons (cons 'methods |gxc[1]#_g176862_|) + (cons (cons 'slots |gxc[1]#_g176863_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj176400 __tmp176586 '16 '#f '#f)) - (let ((__tmp176590 - (cons (cons 'receiver |gxc[1]#_g176591_|) - (cons (cons 'methods |gxc[1]#_g176592_|) - (cons (cons 'slots |gxc[1]#_g176593_|) '()))))) + (##unchecked-structure-set! __obj176674 __tmp176860 '16 '#f '#f)) + (let ((__tmp176864 + (cons (cons 'receiver |gxc[1]#_g176865_|) + (cons (cons 'methods |gxc[1]#_g176866_|) + (cons (cons 'slots |gxc[1]#_g176867_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj176400 __tmp176590 '17 '#f '#f)) - (let ((__tmp176594 - (cons (cons 'receiver |gxc[1]#_g176595_|) - (cons (cons 'methods |gxc[1]#_g176596_|) - (cons (cons 'slots |gxc[1]#_g176597_|) '()))))) + (##unchecked-structure-set! __obj176674 __tmp176864 '17 '#f '#f)) + (let ((__tmp176868 + (cons (cons 'receiver |gxc[1]#_g176869_|) + (cons (cons 'methods |gxc[1]#_g176870_|) + (cons (cons 'slots |gxc[1]#_g176871_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj176400 __tmp176594 '18 '#f '#f)) + (##unchecked-structure-set! __obj176674 __tmp176868 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176400 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj176674 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176400 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj176674 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176400 '() '20 '#f '#f)) - __obj176400)) + (##unchecked-structure-set! __obj176674 '() '20 '#f '#f)) + __obj176674)) (define |gxc[:0:]#::subst-object-refs| - (let ((__obj176402 + (let ((__obj176676 (let () (declare (not safe)) (##structure @@ -646,7 +646,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176402 + __obj176676 'gxc#::subst-object-refs::t '1 '#f @@ -654,7 +654,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176402 + __obj176676 '::subst-object-refs '2 '#f @@ -662,7 +662,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176402 + __obj176676 '(receiver klass methods slots) '4 '#f @@ -670,74 +670,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj176402 + __obj176676 '(receiver klass methods slots) '6 '#f '#f)) - (let ((__tmp176598 (cons |gxc[1]#_g176599_| '()))) + (let ((__tmp176872 (cons |gxc[1]#_g176873_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj176402 __tmp176598 '3 '#f '#f)) + (##unchecked-structure-set! __obj176676 __tmp176872 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176402 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj176676 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176402 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj176676 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176402 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj176676 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176402 '#f '11 '#f '#f)) - (let ((__tmp176600 |gxc[1]#_g176601_|)) + (##unchecked-structure-set! __obj176676 '#f '11 '#f '#f)) + (let ((__tmp176874 |gxc[1]#_g176875_|)) (declare (not safe)) - (##unchecked-structure-set! __obj176402 __tmp176600 '12 '#f '#f)) - (let ((__tmp176602 |gxc[1]#_g176603_|)) + (##unchecked-structure-set! __obj176676 __tmp176874 '12 '#f '#f)) + (let ((__tmp176876 |gxc[1]#_g176877_|)) (declare (not safe)) - (##unchecked-structure-set! __obj176402 __tmp176602 '13 '#f '#f)) - (let ((__tmp176604 |gxc[1]#_g176605_|)) + (##unchecked-structure-set! __obj176676 __tmp176876 '13 '#f '#f)) + (let ((__tmp176878 |gxc[1]#_g176879_|)) (declare (not safe)) - (##unchecked-structure-set! __obj176402 __tmp176604 '14 '#f '#f)) - (let ((__tmp176606 - (cons (cons 'receiver |gxc[1]#_g176607_|) - (cons (cons 'klass |gxc[1]#_g176608_|) - (cons (cons 'methods |gxc[1]#_g176609_|) - (cons (cons 'slots |gxc[1]#_g176610_|) + (##unchecked-structure-set! __obj176676 __tmp176878 '14 '#f '#f)) + (let ((__tmp176880 + (cons (cons 'receiver |gxc[1]#_g176881_|) + (cons (cons 'klass |gxc[1]#_g176882_|) + (cons (cons 'methods |gxc[1]#_g176883_|) + (cons (cons 'slots |gxc[1]#_g176884_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj176402 __tmp176606 '15 '#f '#f)) - (let ((__tmp176611 - (cons (cons 'receiver |gxc[1]#_g176612_|) - (cons (cons 'klass |gxc[1]#_g176613_|) - (cons (cons 'methods |gxc[1]#_g176614_|) - (cons (cons 'slots |gxc[1]#_g176615_|) + (##unchecked-structure-set! __obj176676 __tmp176880 '15 '#f '#f)) + (let ((__tmp176885 + (cons (cons 'receiver |gxc[1]#_g176886_|) + (cons (cons 'klass |gxc[1]#_g176887_|) + (cons (cons 'methods |gxc[1]#_g176888_|) + (cons (cons 'slots |gxc[1]#_g176889_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj176402 __tmp176611 '16 '#f '#f)) - (let ((__tmp176616 - (cons (cons 'receiver |gxc[1]#_g176617_|) - (cons (cons 'klass |gxc[1]#_g176618_|) - (cons (cons 'methods |gxc[1]#_g176619_|) - (cons (cons 'slots |gxc[1]#_g176620_|) + (##unchecked-structure-set! __obj176676 __tmp176885 '16 '#f '#f)) + (let ((__tmp176890 + (cons (cons 'receiver |gxc[1]#_g176891_|) + (cons (cons 'klass |gxc[1]#_g176892_|) + (cons (cons 'methods |gxc[1]#_g176893_|) + (cons (cons 'slots |gxc[1]#_g176894_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj176402 __tmp176616 '17 '#f '#f)) - (let ((__tmp176621 - (cons (cons 'receiver |gxc[1]#_g176622_|) - (cons (cons 'klass |gxc[1]#_g176623_|) - (cons (cons 'methods |gxc[1]#_g176624_|) - (cons (cons 'slots |gxc[1]#_g176625_|) + (##unchecked-structure-set! __obj176676 __tmp176890 '17 '#f '#f)) + (let ((__tmp176895 + (cons (cons 'receiver |gxc[1]#_g176896_|) + (cons (cons 'klass |gxc[1]#_g176897_|) + (cons (cons 'methods |gxc[1]#_g176898_|) + (cons (cons 'slots |gxc[1]#_g176899_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj176402 __tmp176621 '18 '#f '#f)) + (##unchecked-structure-set! __obj176676 __tmp176895 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176402 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj176676 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176402 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj176676 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj176402 '() '20 '#f '#f)) - __obj176402)))) + (##unchecked-structure-set! __obj176676 '() '20 '#f '#f)) + __obj176676)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top~0.scm b/src/bootstrap/gerbil/compiler/optimize-top~0.scm index 54118fbbe..eee14d99b 100644 --- a/src/bootstrap/gerbil/compiler/optimize-top~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-top~0.scm @@ -1,29 +1,29 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-top::timestamp 1713044318) + (define gerbil/compiler/optimize-top::timestamp 1713454413) (begin (define gxc#::collect-top-level-type-info::t - (let ((__tmp169445 (list gxc#::void::t)) - (__tmp169444 (cons (cons 'final: '#t) '()))) + (let ((__tmp169719 (list gxc#::void::t)) + (__tmp169718 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-top-level-type-info::t '::collect-top-level-type-info - __tmp169445 + __tmp169719 '() - __tmp169444 + __tmp169718 '#f))) (define gxc#::collect-top-level-type-info? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-top-level-type-info::t))) (define gxc#make-::collect-top-level-type-info - (lambda _%$args166387%_ + (lambda _%$args166661%_ (apply make-instance gxc#::collect-top-level-type-info::t - _%$args166387%_))) + _%$args166661%_))) (define gxc#::collect-top-level-type-info-bind-methods! - (let ((__tmp169446 + (let ((__tmp169720 (lambda () (force gxc#::void-bind-methods!) (let () @@ -102,48 +102,48 @@ (declare (not safe)) (__seal-class! gxc#::collect-top-level-type-info::t))))) (declare (not safe)) - (__make-promise __tmp169446))) + (__make-promise __tmp169720))) (define gxc#apply-collect-top-level-type-info - (lambda (_%stx166379%_) + (lambda (_%stx166653%_) (force gxc#::collect-top-level-type-info-bind-methods!) - (let* ((_%self166382%_ - (let ((__obj169391 + (let* ((_%self166656%_ + (let ((__obj169665 (let () (declare (not safe)) (##structure gxc#::collect-top-level-type-info::t)))) - __obj169391)) - (__tmp169447 + __obj169665)) + (__tmp169721 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self166382%_ _%stx166379%_))))) + (gxc#compile-e__1 _%self166656%_ _%stx166653%_))))) (declare (not safe)) (__call-with-parameters - __tmp169447 + __tmp169721 gxc#current-compile-method - _%self166382%_)))) + _%self166656%_)))) (define gxc#::collect-top-level-declarations::t - (let ((__tmp169449 (list gxc#::void::t)) - (__tmp169448 (cons (cons 'final: '#t) '()))) + (let ((__tmp169723 (list gxc#::void::t)) + (__tmp169722 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-top-level-declarations::t '::collect-top-level-declarations - __tmp169449 + __tmp169723 '() - __tmp169448 + __tmp169722 '#f))) (define gxc#::collect-top-level-declarations? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-top-level-declarations::t))) (define gxc#make-::collect-top-level-declarations - (lambda _%$args166376%_ + (lambda _%$args166650%_ (apply make-instance gxc#::collect-top-level-declarations::t - _%$args166376%_))) + _%$args166650%_))) (define gxc#::collect-top-level-declarations-bind-methods! - (let ((__tmp169450 + (let ((__tmp169724 (lambda () (force gxc#::void-bind-methods!) (let () @@ -174,49 +174,49 @@ (declare (not safe)) (__seal-class! gxc#::collect-top-level-declarations::t))))) (declare (not safe)) - (__make-promise __tmp169450))) + (__make-promise __tmp169724))) (define gxc#apply-collect-top-level-declarations - (lambda (_%stx166368%_) + (lambda (_%stx166642%_) (force gxc#::collect-top-level-declarations-bind-methods!) - (let* ((_%self166371%_ - (let ((__obj169393 + (let* ((_%self166645%_ + (let ((__obj169667 (let () (declare (not safe)) (##structure gxc#::collect-top-level-declarations::t)))) - __obj169393)) - (__tmp169451 + __obj169667)) + (__tmp169725 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self166371%_ _%stx166368%_))))) + (gxc#compile-e__1 _%self166645%_ _%stx166642%_))))) (declare (not safe)) (__call-with-parameters - __tmp169451 + __tmp169725 gxc#current-compile-method - _%self166371%_)))) + _%self166645%_)))) (define gxc#::basic-expression-top-level-type::t - (let ((__tmp169453 (list gxc#::false::t)) - (__tmp169452 (cons (cons 'final: '#t) '()))) + (let ((__tmp169727 (list gxc#::false::t)) + (__tmp169726 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::basic-expression-top-level-type::t '::basic-expression-top-level-type - __tmp169453 + __tmp169727 '() - __tmp169452 + __tmp169726 '#f))) (define gxc#::basic-expression-top-level-type? (let () (declare (not safe)) (__make-class-predicate gxc#::basic-expression-top-level-type::t))) (define gxc#make-::basic-expression-top-level-type - (lambda _%$args166365%_ + (lambda _%$args166639%_ (apply make-instance gxc#::basic-expression-top-level-type::t - _%$args166365%_))) + _%$args166639%_))) (define gxc#::basic-expression-top-level-type-bind-methods! - (let ((__tmp169454 + (let ((__tmp169728 (lambda () (force gxc#::false-bind-methods!) (let () @@ -229,47 +229,47 @@ (declare (not safe)) (__seal-class! gxc#::basic-expression-top-level-type::t))))) (declare (not safe)) - (__make-promise __tmp169454))) + (__make-promise __tmp169728))) (define gxc#apply-basic-expression-top-level-type - (lambda (_%stx166357%_) + (lambda (_%stx166631%_) (force gxc#::basic-expression-top-level-type-bind-methods!) - (let* ((_%self166360%_ - (let ((__obj169395 + (let* ((_%self166634%_ + (let ((__obj169669 (let () (declare (not safe)) (##structure gxc#::basic-expression-top-level-type::t)))) - __obj169395)) - (__tmp169455 + __obj169669)) + (__tmp169729 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self166360%_ _%stx166357%_))))) + (gxc#compile-e__1 _%self166634%_ _%stx166631%_))))) (declare (not safe)) (__call-with-parameters - __tmp169455 + __tmp169729 gxc#current-compile-method - _%self166360%_)))) + _%self166634%_)))) (define gxc#::collect-type-info::t - (let ((__tmp169457 (list gxc#::void::t)) - (__tmp169456 (cons (cons 'final: '#t) '()))) + (let ((__tmp169731 (list gxc#::void::t)) + (__tmp169730 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-type-info::t '::collect-type-info - __tmp169457 + __tmp169731 '() - __tmp169456 + __tmp169730 '#f))) (define gxc#::collect-type-info? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-type-info::t))) (define gxc#make-::collect-type-info - (lambda _%$args166354%_ - (apply make-instance gxc#::collect-type-info::t _%$args166354%_))) + (lambda _%$args166628%_ + (apply make-instance gxc#::collect-type-info::t _%$args166628%_))) (define gxc#::collect-type-info-bind-methods! - (let ((__tmp169458 + (let ((__tmp169732 (lambda () (force gxc#::void-bind-methods!) (let () @@ -354,48 +354,48 @@ (declare (not safe)) (__seal-class! gxc#::collect-type-info::t))))) (declare (not safe)) - (__make-promise __tmp169458))) + (__make-promise __tmp169732))) (define gxc#apply-collect-type-info - (lambda (_%stx166346%_) + (lambda (_%stx166620%_) (force gxc#::collect-type-info-bind-methods!) - (let* ((_%self166349%_ - (let ((__obj169397 + (let* ((_%self166623%_ + (let ((__obj169671 (let () (declare (not safe)) (##structure gxc#::collect-type-info::t)))) - __obj169397)) - (__tmp169459 + __obj169671)) + (__tmp169733 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self166349%_ _%stx166346%_))))) + (gxc#compile-e__1 _%self166623%_ _%stx166620%_))))) (declare (not safe)) (__call-with-parameters - __tmp169459 + __tmp169733 gxc#current-compile-method - _%self166349%_)))) + _%self166623%_)))) (define gxc#::collect-mutable-type-info::t - (let ((__tmp169461 (list gxc#::void::t)) - (__tmp169460 (cons (cons 'final: '#t) '()))) + (let ((__tmp169735 (list gxc#::void::t)) + (__tmp169734 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-mutable-type-info::t '::collect-mutable-type-info - __tmp169461 + __tmp169735 '() - __tmp169460 + __tmp169734 '#f))) (define gxc#::collect-mutable-type-info? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-mutable-type-info::t))) (define gxc#make-::collect-mutable-type-info - (lambda _%$args166343%_ + (lambda _%$args166617%_ (apply make-instance gxc#::collect-mutable-type-info::t - _%$args166343%_))) + _%$args166617%_))) (define gxc#::collect-mutable-type-info-bind-methods! - (let ((__tmp169462 + (let ((__tmp169736 (lambda () (force gxc#::void-bind-methods!) (let () @@ -480,46 +480,46 @@ (declare (not safe)) (__seal-class! gxc#::collect-mutable-type-info::t))))) (declare (not safe)) - (__make-promise __tmp169462))) + (__make-promise __tmp169736))) (define gxc#apply-collect-mutable-type-info - (lambda (_%stx166335%_) + (lambda (_%stx166609%_) (force gxc#::collect-mutable-type-info-bind-methods!) - (let* ((_%self166338%_ - (let ((__obj169399 + (let* ((_%self166612%_ + (let ((__obj169673 (let () (declare (not safe)) (##structure gxc#::collect-mutable-type-info::t)))) - __obj169399)) - (__tmp169463 + __obj169673)) + (__tmp169737 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self166338%_ _%stx166335%_))))) + (gxc#compile-e__1 _%self166612%_ _%stx166609%_))))) (declare (not safe)) (__call-with-parameters - __tmp169463 + __tmp169737 gxc#current-compile-method - _%self166338%_)))) + _%self166612%_)))) (define gxc#::refine-type-info::t - (let ((__tmp169465 (list gxc#::void::t)) - (__tmp169464 (cons (cons 'final: '#t) '()))) + (let ((__tmp169739 (list gxc#::void::t)) + (__tmp169738 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::refine-type-info::t '::refine-type-info - __tmp169465 + __tmp169739 '() - __tmp169464 + __tmp169738 '#f))) (define gxc#::refine-type-info? (let () (declare (not safe)) (__make-class-predicate gxc#::refine-type-info::t))) (define gxc#make-::refine-type-info - (lambda _%$args166332%_ - (apply make-instance gxc#::refine-type-info::t _%$args166332%_))) + (lambda _%$args166606%_ + (apply make-instance gxc#::refine-type-info::t _%$args166606%_))) (define gxc#::refine-type-info-bind-methods! - (let ((__tmp169466 + (let ((__tmp169740 (lambda () (force gxc#::void-bind-methods!) (let () @@ -604,33 +604,33 @@ (declare (not safe)) (__seal-class! gxc#::refine-type-info::t))))) (declare (not safe)) - (__make-promise __tmp169466))) + (__make-promise __tmp169740))) (define gxc#apply-refine-type-info - (lambda (_%stx166324%_) + (lambda (_%stx166598%_) (force gxc#::refine-type-info-bind-methods!) - (let* ((_%self166327%_ - (let ((__obj169401 + (let* ((_%self166601%_ + (let ((__obj169675 (let () (declare (not safe)) (##structure gxc#::refine-type-info::t)))) - __obj169401)) - (__tmp169467 + __obj169675)) + (__tmp169741 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self166327%_ _%stx166324%_))))) + (gxc#compile-e__1 _%self166601%_ _%stx166598%_))))) (declare (not safe)) (__call-with-parameters - __tmp169467 + __tmp169741 gxc#current-compile-method - _%self166327%_)))) + _%self166601%_)))) (define gxc#::raw-expression-type::t - (let ((__tmp169468 (list gxc#::false::t))) + (let ((__tmp169742 (list gxc#::false::t))) (declare (not safe)) (__make-class-type 'gxc#::raw-expression-type::t '::raw-expression-type - __tmp169468 + __tmp169742 '() '() '#f))) @@ -639,10 +639,10 @@ (declare (not safe)) (__make-class-predicate gxc#::raw-expression-type::t))) (define gxc#make-::raw-expression-type - (lambda _%$args166321%_ - (apply make-instance gxc#::raw-expression-type::t _%$args166321%_))) + (lambda _%$args166595%_ + (apply make-instance gxc#::raw-expression-type::t _%$args166595%_))) (define gxc#::raw-expression-type-bind-methods! - (let ((__tmp169469 + (let ((__tmp169743 (lambda () (force gxc#::false-bind-methods!) (let () @@ -712,46 +712,46 @@ '%#quote gxc#basic-expression-type-quote%))))) (declare (not safe)) - (__make-promise __tmp169469))) + (__make-promise __tmp169743))) (define gxc#apply-raw-expression-type - (lambda (_%stx166313%_) + (lambda (_%stx166587%_) (force gxc#::raw-expression-type-bind-methods!) - (let* ((_%self166316%_ - (let ((__obj169403 + (let* ((_%self166590%_ + (let ((__obj169677 (let () (declare (not safe)) (##structure gxc#::raw-expression-type::t)))) - __obj169403)) - (__tmp169470 + __obj169677)) + (__tmp169744 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self166316%_ _%stx166313%_))))) + (gxc#compile-e__1 _%self166590%_ _%stx166587%_))))) (declare (not safe)) (__call-with-parameters - __tmp169470 + __tmp169744 gxc#current-compile-method - _%self166316%_)))) + _%self166590%_)))) (define gxc#::basic-expression-type::t - (let ((__tmp169472 (list gxc#::raw-expression-type::t gxc#::false::t)) - (__tmp169471 (cons (cons 'final: '#t) '()))) + (let ((__tmp169746 (list gxc#::raw-expression-type::t gxc#::false::t)) + (__tmp169745 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::basic-expression-type::t '::basic-expression-type - __tmp169472 + __tmp169746 '() - __tmp169471 + __tmp169745 '#f))) (define gxc#::basic-expression-type? (let () (declare (not safe)) (__make-class-predicate gxc#::basic-expression-type::t))) (define gxc#make-::basic-expression-type - (lambda _%$args166310%_ - (apply make-instance gxc#::basic-expression-type::t _%$args166310%_))) + (lambda _%$args166584%_ + (apply make-instance gxc#::basic-expression-type::t _%$args166584%_))) (define gxc#::basic-expression-type-bind-methods! - (let ((__tmp169473 + (let ((__tmp169747 (lambda () (force gxc#::raw-expression-type-bind-methods!) (force gxc#::false-bind-methods!) @@ -765,46 +765,46 @@ (declare (not safe)) (__seal-class! gxc#::basic-expression-type::t))))) (declare (not safe)) - (__make-promise __tmp169473))) + (__make-promise __tmp169747))) (define gxc#apply-basic-expression-type - (lambda (_%stx166302%_) + (lambda (_%stx166576%_) (force gxc#::basic-expression-type-bind-methods!) - (let* ((_%self166305%_ - (let ((__obj169405 + (let* ((_%self166579%_ + (let ((__obj169679 (let () (declare (not safe)) (##structure gxc#::basic-expression-type::t)))) - __obj169405)) - (__tmp169474 + __obj169679)) + (__tmp169748 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self166305%_ _%stx166302%_))))) + (gxc#compile-e__1 _%self166579%_ _%stx166576%_))))) (declare (not safe)) (__call-with-parameters - __tmp169474 + __tmp169748 gxc#current-compile-method - _%self166305%_)))) + _%self166579%_)))) (define gxc#::lift-top-lambdas::t - (let ((__tmp169476 (list gxc#::basic-xform::t)) - (__tmp169475 (cons (cons 'final: '#t) '()))) + (let ((__tmp169750 (list gxc#::basic-xform::t)) + (__tmp169749 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::lift-top-lambdas::t '::lift-top-lambdas - __tmp169476 + __tmp169750 '() - __tmp169475 + __tmp169749 '#f))) (define gxc#::lift-top-lambdas? (let () (declare (not safe)) (__make-class-predicate gxc#::lift-top-lambdas::t))) (define gxc#make-::lift-top-lambdas - (lambda _%$args166299%_ - (apply make-instance gxc#::lift-top-lambdas::t _%$args166299%_))) + (lambda _%$args166573%_ + (apply make-instance gxc#::lift-top-lambdas::t _%$args166573%_))) (define gxc#::lift-top-lambdas-bind-methods! - (let ((__tmp169477 + (let ((__tmp169751 (lambda () (force gxc#::basic-xform-bind-methods!) (let () @@ -835,48 +835,48 @@ (declare (not safe)) (__seal-class! gxc#::lift-top-lambdas::t))))) (declare (not safe)) - (__make-promise __tmp169477))) + (__make-promise __tmp169751))) (define gxc#apply-lift-top-lambdas - (lambda (_%stx166291%_) + (lambda (_%stx166565%_) (force gxc#::lift-top-lambdas-bind-methods!) - (let* ((_%self166294%_ - (let ((__obj169407 + (let* ((_%self166568%_ + (let ((__obj169681 (let () (declare (not safe)) (##structure gxc#::lift-top-lambdas::t)))) - __obj169407)) - (__tmp169478 + __obj169681)) + (__tmp169752 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self166294%_ _%stx166291%_))))) + (gxc#compile-e__1 _%self166568%_ _%stx166565%_))))) (declare (not safe)) (__call-with-parameters - __tmp169478 + __tmp169752 gxc#current-compile-method - _%self166294%_)))) + _%self166568%_)))) (define gxc#::extract-lambda-signature::t - (let ((__tmp169480 (list gxc#::false::t)) - (__tmp169479 (cons (cons 'final: '#t) '()))) + (let ((__tmp169754 (list gxc#::false::t)) + (__tmp169753 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::extract-lambda-signature::t '::extract-lambda-signature - __tmp169480 + __tmp169754 '() - __tmp169479 + __tmp169753 '#f))) (define gxc#::extract-lambda-signature? (let () (declare (not safe)) (__make-class-predicate gxc#::extract-lambda-signature::t))) (define gxc#make-::extract-lambda-signature - (lambda _%$args166288%_ + (lambda _%$args166562%_ (apply make-instance gxc#::extract-lambda-signature::t - _%$args166288%_))) + _%$args166562%_))) (define gxc#::extract-lambda-signature-bind-methods! - (let ((__tmp169481 + (let ((__tmp169755 (lambda () (force gxc#::false-bind-methods!) (let () @@ -913,225 +913,225 @@ (declare (not safe)) (__seal-class! gxc#::extract-lambda-signature::t))))) (declare (not safe)) - (__make-promise __tmp169481))) + (__make-promise __tmp169755))) (define gxc#apply-extract-lambda-signature - (lambda (_%stx166280%_) + (lambda (_%stx166554%_) (force gxc#::extract-lambda-signature-bind-methods!) - (let* ((_%self166283%_ - (let ((__obj169409 + (let* ((_%self166557%_ + (let ((__obj169683 (let () (declare (not safe)) (##structure gxc#::extract-lambda-signature::t)))) - __obj169409)) - (__tmp169482 + __obj169683)) + (__tmp169756 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self166283%_ _%stx166280%_))))) + (gxc#compile-e__1 _%self166557%_ _%stx166554%_))))) (declare (not safe)) (__call-with-parameters - __tmp169482 + __tmp169756 gxc#current-compile-method - _%self166283%_)))) + _%self166557%_)))) (define gxc#collect-top-level-type-define-values% - (lambda (_%self166182%_ _%stx166183%_) - (let* ((_%__stx166400166401%_ _%stx166183%_) - (_%g166186166206%_ + (lambda (_%self166456%_ _%stx166457%_) + (let* ((_%__stx166674166675%_ _%stx166457%_) + (_%g166460166480%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx166400166401%_))))) - (let ((_%__kont166402166403%_ - (lambda (_%L166250%_ _%L166251%_) - (let ((_%sym166269%_ + _%__stx166674166675%_))))) + (let ((_%__kont166676166677%_ + (lambda (_%L166524%_ _%L166525%_) + (let ((_%sym166543%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L166251%_)))) + (gxc#identifier-symbol _%L166525%_)))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self166182%_ _%L166250%_)) - (let ((_%type166270166272%_ + (gxc#compile-e__1 _%self166456%_ _%L166524%_)) + (let ((_%type166544166546%_ (gxc#apply-basic-expression-top-level-type - _%L166250%_))) - (if _%type166270166272%_ - (let ((_%type166275%_ _%type166270166272%_)) + _%L166524%_))) + (if _%type166544166546%_ + (let ((_%type166549%_ _%type166544166546%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type166275%_ + _%type166549%_ 'gxc#!class-meta::t)) (begin - (let ((__tmp169483 + (let ((__tmp169757 (let () (declare (not safe)) (##unchecked-structure-ref - _%type166275%_ + _%type166549%_ '2 '#f '#f)))) (declare (not safe)) (gxc#optimizer-declare-class! - _%sym166269%_ - __tmp169483)) - (let ((__tmp169484 + _%sym166543%_ + __tmp169757)) + (let ((__tmp169758 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx166183%_ + _%stx166457%_ 'class::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym166269%_ - __tmp169484))) + _%sym166543%_ + __tmp169758))) (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym166269%_ - _%type166275%_)))) + _%sym166543%_ + _%type166549%_)))) '#f))))) - (_%__kont166404166405%_ (lambda () '#!void))) - (let ((_%__match166433166434%_ - (lambda (_%e166190166218%_ - _%hd166191166221%_ - _%tl166192166223%_ - _%e166193166226%_ - _%hd166194166229%_ - _%tl166195166231%_ - _%e166196166234%_ - _%hd166197166237%_ - _%tl166198166239%_ - _%e166199166242%_ - _%hd166200166245%_ - _%tl166201166247%_) - (let ((_%L166250%_ _%hd166200166245%_) - (_%L166251%_ _%hd166197166237%_)) + (_%__kont166678166679%_ (lambda () '#!void))) + (let ((_%__match166707166708%_ + (lambda (_%e166464166492%_ + _%hd166465166495%_ + _%tl166466166497%_ + _%e166467166500%_ + _%hd166468166503%_ + _%tl166469166505%_ + _%e166470166508%_ + _%hd166471166511%_ + _%tl166472166513%_ + _%e166473166516%_ + _%hd166474166519%_ + _%tl166475166521%_) + (let ((_%L166524%_ _%hd166474166519%_) + (_%L166525%_ _%hd166471166511%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L166251%_)) - (_%__kont166402166403%_ _%L166250%_ _%L166251%_) - (_%__kont166404166405%_)))))) + (gx#identifier? _%L166525%_)) + (_%__kont166676166677%_ _%L166524%_ _%L166525%_) + (_%__kont166678166679%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx166400166401%_)) - (let ((_%e166190166218%_ + (gx#stx-pair? _%__stx166674166675%_)) + (let ((_%e166464166492%_ (let () (declare (not safe)) - (gx#stx-e _%__stx166400166401%_)))) - (let ((_%tl166192166223%_ + (gx#stx-e _%__stx166674166675%_)))) + (let ((_%tl166466166497%_ (let () (declare (not safe)) - (##cdr _%e166190166218%_))) - (_%hd166191166221%_ + (##cdr _%e166464166492%_))) + (_%hd166465166495%_ (let () (declare (not safe)) - (##car _%e166190166218%_)))) + (##car _%e166464166492%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166192166223%_)) - (let ((_%e166193166226%_ + (gx#stx-pair? _%tl166466166497%_)) + (let ((_%e166467166500%_ (let () (declare (not safe)) - (gx#stx-e _%tl166192166223%_)))) - (let ((_%tl166195166231%_ + (gx#stx-e _%tl166466166497%_)))) + (let ((_%tl166469166505%_ (let () (declare (not safe)) - (##cdr _%e166193166226%_))) - (_%hd166194166229%_ + (##cdr _%e166467166500%_))) + (_%hd166468166503%_ (let () (declare (not safe)) - (##car _%e166193166226%_)))) + (##car _%e166467166500%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166194166229%_)) - (let ((_%e166196166234%_ + (gx#stx-pair? _%hd166468166503%_)) + (let ((_%e166470166508%_ (let () (declare (not safe)) - (gx#stx-e _%hd166194166229%_)))) - (let ((_%tl166198166239%_ + (gx#stx-e _%hd166468166503%_)))) + (let ((_%tl166472166513%_ (let () (declare (not safe)) - (##cdr _%e166196166234%_))) - (_%hd166197166237%_ + (##cdr _%e166470166508%_))) + (_%hd166471166511%_ (let () (declare (not safe)) - (##car _%e166196166234%_)))) + (##car _%e166470166508%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166198166239%_)) + (gx#stx-null? _%tl166472166513%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166195166231%_)) - (let ((_%e166199166242%_ + _%tl166469166505%_)) + (let ((_%e166473166516%_ (let () (declare (not safe)) (gx#stx-e - _%tl166195166231%_)))) - (let ((_%tl166201166247%_ + _%tl166469166505%_)))) + (let ((_%tl166475166521%_ (let () (declare (not safe)) - (##cdr _%e166199166242%_))) - (_%hd166200166245%_ + (##cdr _%e166473166516%_))) + (_%hd166474166519%_ (let () (declare (not safe)) - (##car _%e166199166242%_)))) + (##car _%e166473166516%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166201166247%_)) - (_%__match166433166434%_ - _%e166190166218%_ - _%hd166191166221%_ - _%tl166192166223%_ - _%e166193166226%_ - _%hd166194166229%_ - _%tl166195166231%_ - _%e166196166234%_ - _%hd166197166237%_ - _%tl166198166239%_ - _%e166199166242%_ - _%hd166200166245%_ - _%tl166201166247%_) - (_%__kont166404166405%_)))) - (_%__kont166404166405%_)) - (_%__kont166404166405%_)))) - (_%__kont166404166405%_)))) - (_%__kont166404166405%_)))) - (_%__kont166404166405%_))))))) + _%tl166475166521%_)) + (_%__match166707166708%_ + _%e166464166492%_ + _%hd166465166495%_ + _%tl166466166497%_ + _%e166467166500%_ + _%hd166468166503%_ + _%tl166469166505%_ + _%e166470166508%_ + _%hd166471166511%_ + _%tl166472166513%_ + _%e166473166516%_ + _%hd166474166519%_ + _%tl166475166521%_) + (_%__kont166678166679%_)))) + (_%__kont166678166679%_)) + (_%__kont166678166679%_)))) + (_%__kont166678166679%_)))) + (_%__kont166678166679%_)))) + (_%__kont166678166679%_))))))) (define gxc#collect-top-level-decl-begin-annotation% - (lambda (_%self166004%_ _%stx166005%_) - (let* ((_%__stx166436166437%_ _%stx166005%_) - (_%g166008166048%_ + (lambda (_%self166278%_ _%stx166279%_) + (let* ((_%__stx166710166711%_ _%stx166279%_) + (_%g166282166322%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx166436166437%_))))) - (let ((_%__kont166438166439%_ - (lambda (_%L166154%_ _%L166155%_) - (let ((_%type166177%_ - (let ((__tmp169485 + _%__stx166710166711%_))))) + (let ((_%__kont166712166713%_ + (lambda (_%L166428%_ _%L166429%_) + (let ((_%type166451%_ + (let ((__tmp169759 (let () (declare (not safe)) - (gxc#identifier-symbol _%L166155%_)))) + (gxc#identifier-symbol _%L166429%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp169485)))) + (gxc#optimizer-lookup-type __tmp169759)))) (if (let () (declare (not safe)) (##structure-instance-of? - _%type166177%_ + _%type166451%_ 'gxc#!lambda::t)) - (let ((__tmp169486 - (gxc#eval-in-ssxi-context _%L166154%_))) + (let ((__tmp169760 + (gxc#eval-in-ssxi-context _%L166428%_))) (declare (not safe)) (##unchecked-structure-set! - _%type166177%_ - __tmp169486 + _%type166451%_ + __tmp169760 '5 '#f '#f)) @@ -1139,6747 +1139,6747 @@ (declare (not safe)) (gxc#raise-compile-error '"inline rule for non lambda procedure" - _%stx166005%_ - _%L166155%_)))))) - (_%__kont166440166441%_ - (lambda (_%L166077%_ _%L166078%_) '#!void))) + _%stx166279%_ + _%L166429%_)))))) + (_%__kont166714166715%_ + (lambda (_%L166351%_ _%L166352%_) '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx166436166437%_)) - (let ((_%e166012166098%_ + (gx#stx-pair? _%__stx166710166711%_)) + (let ((_%e166286166372%_ (let () (declare (not safe)) - (gx#stx-e _%__stx166436166437%_)))) - (let ((_%tl166014166103%_ + (gx#stx-e _%__stx166710166711%_)))) + (let ((_%tl166288166377%_ (let () (declare (not safe)) - (##cdr _%e166012166098%_))) - (_%hd166013166101%_ + (##cdr _%e166286166372%_))) + (_%hd166287166375%_ (let () (declare (not safe)) - (##car _%e166012166098%_)))) + (##car _%e166286166372%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166014166103%_)) - (let ((_%e166015166106%_ + (gx#stx-pair? _%tl166288166377%_)) + (let ((_%e166289166380%_ (let () (declare (not safe)) - (gx#stx-e _%tl166014166103%_)))) - (let ((_%tl166017166111%_ + (gx#stx-e _%tl166288166377%_)))) + (let ((_%tl166291166385%_ (let () (declare (not safe)) - (##cdr _%e166015166106%_))) - (_%hd166016166109%_ + (##cdr _%e166289166380%_))) + (_%hd166290166383%_ (let () (declare (not safe)) - (##car _%e166015166106%_)))) + (##car _%e166289166380%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166016166109%_)) - (let ((_%e166018166114%_ + (gx#stx-pair? _%hd166290166383%_)) + (let ((_%e166292166388%_ (let () (declare (not safe)) - (gx#stx-e _%hd166016166109%_)))) - (let ((_%tl166020166119%_ + (gx#stx-e _%hd166290166383%_)))) + (let ((_%tl166294166393%_ (let () (declare (not safe)) - (##cdr _%e166018166114%_))) - (_%hd166019166117%_ + (##cdr _%e166292166388%_))) + (_%hd166293166391%_ (let () (declare (not safe)) - (##car _%e166018166114%_)))) + (##car _%e166292166388%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd166019166117%_)) + (gx#identifier? _%hd166293166391%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@inline - _%hd166019166117%_)) + _%hd166293166391%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166020166119%_)) - (let ((_%e166021166122%_ + _%tl166294166393%_)) + (let ((_%e166295166396%_ (let () (declare (not safe)) (gx#stx-e - _%tl166020166119%_)))) - (let ((_%tl166023166127%_ + _%tl166294166393%_)))) + (let ((_%tl166297166401%_ (let () (declare (not safe)) - (##cdr _%e166021166122%_))) - (_%hd166022166125%_ + (##cdr _%e166295166396%_))) + (_%hd166296166399%_ (let () (declare (not safe)) - (##car _%e166021166122%_)))) + (##car _%e166295166396%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166023166127%_)) + _%tl166297166401%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166017166111%_)) - (let ((_%e166024166130%_ + _%tl166291166385%_)) + (let ((_%e166298166404%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl166017166111%_)))) - (let ((_%tl166026166135%_ + (gx#stx-e _%tl166291166385%_)))) + (let ((_%tl166300166409%_ (let () (declare (not safe)) - (##cdr _%e166024166130%_))) - (_%hd166025166133%_ + (##cdr _%e166298166404%_))) + (_%hd166299166407%_ (let () (declare (not safe)) - (##car _%e166024166130%_)))) + (##car _%e166298166404%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166025166133%_)) - (let ((_%e166027166138%_ + (gx#stx-pair? _%hd166299166407%_)) + (let ((_%e166301166412%_ (let () (declare (not safe)) - (gx#stx-e _%hd166025166133%_)))) - (let ((_%tl166029166143%_ + (gx#stx-e _%hd166299166407%_)))) + (let ((_%tl166303166417%_ (let () (declare (not safe)) - (##cdr _%e166027166138%_))) - (_%hd166028166141%_ + (##cdr _%e166301166412%_))) + (_%hd166302166415%_ (let () (declare (not safe)) - (##car _%e166027166138%_)))) + (##car _%e166301166412%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd166028166141%_)) + (gx#identifier? _%hd166302166415%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd166028166141%_)) + _%hd166302166415%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166029166143%_)) - (let ((_%e166030166146%_ + _%tl166303166417%_)) + (let ((_%e166304166420%_ (let () (declare (not safe)) (gx#stx-e - _%tl166029166143%_)))) - (let ((_%tl166032166151%_ + _%tl166303166417%_)))) + (let ((_%tl166306166425%_ (let () (declare (not safe)) - (##cdr _%e166030166146%_))) - (_%hd166031166149%_ + (##cdr _%e166304166420%_))) + (_%hd166305166423%_ (let () (declare (not safe)) - (##car _%e166030166146%_)))) + (##car _%e166304166420%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166032166151%_)) + _%tl166306166425%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166026166135%_)) - (_%__kont166438166439%_ - _%hd166031166149%_ - _%hd166022166125%_) + _%tl166300166409%_)) + (_%__kont166712166713%_ + _%hd166305166423%_ + _%hd166296166399%_) (let () (declare (not safe)) - (_%g166008166048%_))) + (_%g166282166322%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166026166135%_)) - (_%__kont166440166441%_ - _%hd166025166133%_ - _%hd166016166109%_) + _%tl166300166409%_)) + (_%__kont166714166715%_ + _%hd166299166407%_ + _%hd166290166383%_) (let () (declare (not safe)) - (_%g166008166048%_)))))) + (_%g166282166322%_)))))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166026166135%_)) - (_%__kont166440166441%_ - _%hd166025166133%_ - _%hd166016166109%_) + _%tl166300166409%_)) + (_%__kont166714166715%_ + _%hd166299166407%_ + _%hd166290166383%_) (let () (declare (not safe)) - (_%g166008166048%_)))) + (_%g166282166322%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166026166135%_)) - (_%__kont166440166441%_ - _%hd166025166133%_ - _%hd166016166109%_) + _%tl166300166409%_)) + (_%__kont166714166715%_ + _%hd166299166407%_ + _%hd166290166383%_) (let () (declare (not safe)) - (_%g166008166048%_)))) + (_%g166282166322%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166026166135%_)) - (_%__kont166440166441%_ - _%hd166025166133%_ - _%hd166016166109%_) + (gx#stx-null? _%tl166300166409%_)) + (_%__kont166714166715%_ + _%hd166299166407%_ + _%hd166290166383%_) (let () (declare (not safe)) - (_%g166008166048%_)))))) + (_%g166282166322%_)))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166026166135%_)) - (_%__kont166440166441%_ - _%hd166025166133%_ - _%hd166016166109%_) + (gx#stx-null? _%tl166300166409%_)) + (_%__kont166714166715%_ + _%hd166299166407%_ + _%hd166290166383%_) (let () (declare (not safe)) - (_%g166008166048%_)))))) - (let () (declare (not safe)) (_%g166008166048%_))) + (_%g166282166322%_)))))) + (let () (declare (not safe)) (_%g166282166322%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166017166111%_)) - (let ((_%e166041166069%_ + (gx#stx-pair? _%tl166291166385%_)) + (let ((_%e166315166343%_ (let () (declare (not safe)) - (gx#stx-e _%tl166017166111%_)))) - (let ((_%tl166043166074%_ + (gx#stx-e _%tl166291166385%_)))) + (let ((_%tl166317166348%_ (let () (declare (not safe)) - (##cdr _%e166041166069%_))) - (_%hd166042166072%_ + (##cdr _%e166315166343%_))) + (_%hd166316166346%_ (let () (declare (not safe)) - (##car _%e166041166069%_)))) + (##car _%e166315166343%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166043166074%_)) - (_%__kont166440166441%_ - _%hd166042166072%_ - _%hd166016166109%_) + (gx#stx-null? _%tl166317166348%_)) + (_%__kont166714166715%_ + _%hd166316166346%_ + _%hd166290166383%_) (let () (declare (not safe)) - (_%g166008166048%_))))) - (let () (declare (not safe)) (_%g166008166048%_)))))) + (_%g166282166322%_))))) + (let () (declare (not safe)) (_%g166282166322%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166017166111%_)) - (let ((_%e166041166069%_ + _%tl166291166385%_)) + (let ((_%e166315166343%_ (let () (declare (not safe)) (gx#stx-e - _%tl166017166111%_)))) - (let ((_%tl166043166074%_ + _%tl166291166385%_)))) + (let ((_%tl166317166348%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e166041166069%_))) - (_%hd166042166072%_ - (let () (declare (not safe)) (##car _%e166041166069%_)))) + (##cdr _%e166315166343%_))) + (_%hd166316166346%_ + (let () (declare (not safe)) (##car _%e166315166343%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166043166074%_)) - (_%__kont166440166441%_ - _%hd166042166072%_ - _%hd166016166109%_) - (let () (declare (not safe)) (_%g166008166048%_))))) + (gx#stx-null? _%tl166317166348%_)) + (_%__kont166714166715%_ + _%hd166316166346%_ + _%hd166290166383%_) + (let () (declare (not safe)) (_%g166282166322%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g166008166048%_)))) + (_%g166282166322%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166017166111%_)) - (let ((_%e166041166069%_ + _%tl166291166385%_)) + (let ((_%e166315166343%_ (let () (declare (not safe)) (gx#stx-e - _%tl166017166111%_)))) - (let ((_%tl166043166074%_ + _%tl166291166385%_)))) + (let ((_%tl166317166348%_ (let () (declare (not safe)) - (##cdr _%e166041166069%_))) - (_%hd166042166072%_ + (##cdr _%e166315166343%_))) + (_%hd166316166346%_ (let () (declare (not safe)) - (##car _%e166041166069%_)))) + (##car _%e166315166343%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166043166074%_)) - (_%__kont166440166441%_ - _%hd166042166072%_ - _%hd166016166109%_) + _%tl166317166348%_)) + (_%__kont166714166715%_ + _%hd166316166346%_ + _%hd166290166383%_) (let () (declare (not safe)) - (_%g166008166048%_))))) + (_%g166282166322%_))))) (let () (declare (not safe)) - (_%g166008166048%_)))) + (_%g166282166322%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166017166111%_)) - (let ((_%e166041166069%_ + _%tl166291166385%_)) + (let ((_%e166315166343%_ (let () (declare (not safe)) (gx#stx-e - _%tl166017166111%_)))) - (let ((_%tl166043166074%_ + _%tl166291166385%_)))) + (let ((_%tl166317166348%_ (let () (declare (not safe)) - (##cdr _%e166041166069%_))) - (_%hd166042166072%_ + (##cdr _%e166315166343%_))) + (_%hd166316166346%_ (let () (declare (not safe)) - (##car _%e166041166069%_)))) + (##car _%e166315166343%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166043166074%_)) - (_%__kont166440166441%_ - _%hd166042166072%_ - _%hd166016166109%_) + _%tl166317166348%_)) + (_%__kont166714166715%_ + _%hd166316166346%_ + _%hd166290166383%_) (let () (declare (not safe)) - (_%g166008166048%_))))) + (_%g166282166322%_))))) (let () (declare (not safe)) - (_%g166008166048%_)))))) + (_%g166282166322%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166017166111%_)) - (let ((_%e166041166069%_ + (gx#stx-pair? _%tl166291166385%_)) + (let ((_%e166315166343%_ (let () (declare (not safe)) - (gx#stx-e _%tl166017166111%_)))) - (let ((_%tl166043166074%_ + (gx#stx-e _%tl166291166385%_)))) + (let ((_%tl166317166348%_ (let () (declare (not safe)) - (##cdr _%e166041166069%_))) - (_%hd166042166072%_ + (##cdr _%e166315166343%_))) + (_%hd166316166346%_ (let () (declare (not safe)) - (##car _%e166041166069%_)))) + (##car _%e166315166343%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166043166074%_)) - (_%__kont166440166441%_ - _%hd166042166072%_ - _%hd166016166109%_) + _%tl166317166348%_)) + (_%__kont166714166715%_ + _%hd166316166346%_ + _%hd166290166383%_) (let () (declare (not safe)) - (_%g166008166048%_))))) + (_%g166282166322%_))))) (let () (declare (not safe)) - (_%g166008166048%_)))))) - (let () (declare (not safe)) (_%g166008166048%_))))) - (let () (declare (not safe)) (_%g166008166048%_))))))) + (_%g166282166322%_)))))) + (let () (declare (not safe)) (_%g166282166322%_))))) + (let () (declare (not safe)) (_%g166282166322%_))))))) (define gxc#eval-in-ssxi-context - (lambda (_%expr166001%_) - (let ((__tmp169488 + (lambda (_%expr166275%_) + (let ((__tmp169762 (lambda () (eval '(import :gerbil/compiler/ssxi)) (let () (declare (not safe)) - (gx#eval-syntax__0 _%expr166001%_)))) - (__tmp169487 - (let ((__obj169410 + (gx#eval-syntax__0 _%expr166275%_)))) + (__tmp169761 + (let ((__obj169684 (let () (declare (not safe)) (##structure gx#top-context::t '#f '#f '#f '#f '#f)))) (let () (declare (not safe)) - (gx#top-context:::init!__0 __obj169410)) - __obj169410))) + (gx#top-context:::init!__0 __obj169684)) + __obj169684))) (declare (not safe)) (__call-with-parameters - __tmp169488 + __tmp169762 gx#current-expander-context - __tmp169487)))) + __tmp169761)))) (define gxc#collect-type-define-values% - (lambda (_%self165863%_ _%stx165864%_) - (let* ((_%__stx166520166521%_ _%stx165864%_) - (_%g165867165897%_ + (lambda (_%self166137%_ _%stx166138%_) + (let* ((_%__stx166794166795%_ _%stx166138%_) + (_%g166141166171%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx166520166521%_))))) - (let ((_%__kont166522166523%_ - (lambda (_%L165977%_ _%L165978%_) - (let ((_%sym165994%_ + _%__stx166794166795%_))))) + (let ((_%__kont166796166797%_ + (lambda (_%L166251%_ _%L166252%_) + (let ((_%sym166268%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L165978%_)))) + (gxc#identifier-symbol _%L166252%_)))) (if (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%sym165994%_)) + (gxc#optimizer-lookup-type _%sym166268%_)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self165863%_ _%L165977%_)) - (let ((_%type165996%_ - (gxc#apply-basic-expression-type _%L165977%_))) - (if _%type165996%_ + (gxc#compile-e__1 _%self166137%_ _%L166251%_)) + (let ((_%type166270%_ + (gxc#apply-basic-expression-type _%L166251%_))) + (if _%type166270%_ (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym165994%_ - _%type165996%_)) + _%sym166268%_ + _%type166270%_)) '#!void) (let () (declare (not safe)) (gxc#compile-e__1 - _%self165863%_ - _%L165977%_))))))) - (_%__kont166524166525%_ - (lambda (_%L165926%_) + _%self166137%_ + _%L166251%_))))))) + (_%__kont166798166799%_ + (lambda (_%L166200%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self165863%_ _%L165926%_))))) - (let ((_%__match166553166554%_ - (lambda (_%e165871165945%_ - _%hd165872165948%_ - _%tl165873165950%_ - _%e165874165953%_ - _%hd165875165956%_ - _%tl165876165958%_ - _%e165877165961%_ - _%hd165878165964%_ - _%tl165879165966%_ - _%e165880165969%_ - _%hd165881165972%_ - _%tl165882165974%_) - (let ((_%L165977%_ _%hd165881165972%_) - (_%L165978%_ _%hd165878165964%_)) + (gxc#compile-e__1 _%self166137%_ _%L166200%_))))) + (let ((_%__match166827166828%_ + (lambda (_%e166145166219%_ + _%hd166146166222%_ + _%tl166147166224%_ + _%e166148166227%_ + _%hd166149166230%_ + _%tl166150166232%_ + _%e166151166235%_ + _%hd166152166238%_ + _%tl166153166240%_ + _%e166154166243%_ + _%hd166155166246%_ + _%tl166156166248%_) + (let ((_%L166251%_ _%hd166155166246%_) + (_%L166252%_ _%hd166152166238%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L165978%_)) - (_%__kont166522166523%_ _%L165977%_ _%L165978%_) - (_%__kont166524166525%_ _%hd165881165972%_)))))) + (gx#identifier? _%L166252%_)) + (_%__kont166796166797%_ _%L166251%_ _%L166252%_) + (_%__kont166798166799%_ _%hd166155166246%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx166520166521%_)) - (let ((_%e165871165945%_ + (gx#stx-pair? _%__stx166794166795%_)) + (let ((_%e166145166219%_ (let () (declare (not safe)) - (gx#stx-e _%__stx166520166521%_)))) - (let ((_%tl165873165950%_ + (gx#stx-e _%__stx166794166795%_)))) + (let ((_%tl166147166224%_ (let () (declare (not safe)) - (##cdr _%e165871165945%_))) - (_%hd165872165948%_ + (##cdr _%e166145166219%_))) + (_%hd166146166222%_ (let () (declare (not safe)) - (##car _%e165871165945%_)))) + (##car _%e166145166219%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165873165950%_)) - (let ((_%e165874165953%_ + (gx#stx-pair? _%tl166147166224%_)) + (let ((_%e166148166227%_ (let () (declare (not safe)) - (gx#stx-e _%tl165873165950%_)))) - (let ((_%tl165876165958%_ + (gx#stx-e _%tl166147166224%_)))) + (let ((_%tl166150166232%_ (let () (declare (not safe)) - (##cdr _%e165874165953%_))) - (_%hd165875165956%_ + (##cdr _%e166148166227%_))) + (_%hd166149166230%_ (let () (declare (not safe)) - (##car _%e165874165953%_)))) + (##car _%e166148166227%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165875165956%_)) - (let ((_%e165877165961%_ + (gx#stx-pair? _%hd166149166230%_)) + (let ((_%e166151166235%_ (let () (declare (not safe)) - (gx#stx-e _%hd165875165956%_)))) - (let ((_%tl165879165966%_ + (gx#stx-e _%hd166149166230%_)))) + (let ((_%tl166153166240%_ (let () (declare (not safe)) - (##cdr _%e165877165961%_))) - (_%hd165878165964%_ + (##cdr _%e166151166235%_))) + (_%hd166152166238%_ (let () (declare (not safe)) - (##car _%e165877165961%_)))) + (##car _%e166151166235%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165879165966%_)) + (gx#stx-null? _%tl166153166240%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165876165958%_)) - (let ((_%e165880165969%_ + _%tl166150166232%_)) + (let ((_%e166154166243%_ (let () (declare (not safe)) (gx#stx-e - _%tl165876165958%_)))) - (let ((_%tl165882165974%_ + _%tl166150166232%_)))) + (let ((_%tl166156166248%_ (let () (declare (not safe)) - (##cdr _%e165880165969%_))) - (_%hd165881165972%_ + (##cdr _%e166154166243%_))) + (_%hd166155166246%_ (let () (declare (not safe)) - (##car _%e165880165969%_)))) + (##car _%e166154166243%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165882165974%_)) - (_%__match166553166554%_ - _%e165871165945%_ - _%hd165872165948%_ - _%tl165873165950%_ - _%e165874165953%_ - _%hd165875165956%_ - _%tl165876165958%_ - _%e165877165961%_ - _%hd165878165964%_ - _%tl165879165966%_ - _%e165880165969%_ - _%hd165881165972%_ - _%tl165882165974%_) + _%tl166156166248%_)) + (_%__match166827166828%_ + _%e166145166219%_ + _%hd166146166222%_ + _%tl166147166224%_ + _%e166148166227%_ + _%hd166149166230%_ + _%tl166150166232%_ + _%e166151166235%_ + _%hd166152166238%_ + _%tl166153166240%_ + _%e166154166243%_ + _%hd166155166246%_ + _%tl166156166248%_) (let () (declare (not safe)) - (_%g165867165897%_))))) + (_%g166141166171%_))))) (let () (declare (not safe)) - (_%g165867165897%_))) + (_%g166141166171%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165876165958%_)) - (let ((_%e165890165918%_ + _%tl166150166232%_)) + (let ((_%e166164166192%_ (let () (declare (not safe)) (gx#stx-e - _%tl165876165958%_)))) - (let ((_%tl165892165923%_ + _%tl166150166232%_)))) + (let ((_%tl166166166197%_ (let () (declare (not safe)) - (##cdr _%e165890165918%_))) - (_%hd165891165921%_ + (##cdr _%e166164166192%_))) + (_%hd166165166195%_ (let () (declare (not safe)) - (##car _%e165890165918%_)))) + (##car _%e166164166192%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165892165923%_)) - (_%__kont166524166525%_ - _%hd165891165921%_) + _%tl166166166197%_)) + (_%__kont166798166799%_ + _%hd166165166195%_) (let () (declare (not safe)) - (_%g165867165897%_))))) + (_%g166141166171%_))))) (let () (declare (not safe)) - (_%g165867165897%_)))))) + (_%g166141166171%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165876165958%_)) - (let ((_%e165890165918%_ + (gx#stx-pair? _%tl166150166232%_)) + (let ((_%e166164166192%_ (let () (declare (not safe)) - (gx#stx-e _%tl165876165958%_)))) - (let ((_%tl165892165923%_ + (gx#stx-e _%tl166150166232%_)))) + (let ((_%tl166166166197%_ (let () (declare (not safe)) - (##cdr _%e165890165918%_))) - (_%hd165891165921%_ + (##cdr _%e166164166192%_))) + (_%hd166165166195%_ (let () (declare (not safe)) - (##car _%e165890165918%_)))) + (##car _%e166164166192%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165892165923%_)) - (_%__kont166524166525%_ - _%hd165891165921%_) + _%tl166166166197%_)) + (_%__kont166798166799%_ + _%hd166165166195%_) (let () (declare (not safe)) - (_%g165867165897%_))))) + (_%g166141166171%_))))) (let () (declare (not safe)) - (_%g165867165897%_)))))) - (let () (declare (not safe)) (_%g165867165897%_))))) - (let () (declare (not safe)) (_%g165867165897%_)))))))) + (_%g166141166171%_)))))) + (let () (declare (not safe)) (_%g166141166171%_))))) + (let () (declare (not safe)) (_%g166141166171%_)))))))) (define gxc#collect-type-begin-annotation% - (lambda (_%self165618%_ _%stx165619%_) - (let* ((_%__stx166598166599%_ _%stx165619%_) - (_%g165622165662%_ + (lambda (_%self165892%_ _%stx165893%_) + (let* ((_%__stx166872166873%_ _%stx165893%_) + (_%g165896165936%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx166598166599%_))))) - (let ((_%__kont166600166601%_ - (lambda (_%L165768%_ _%L165769%_) + _%__stx166872166873%_))))) + (let ((_%__kont166874166875%_ + (lambda (_%L166042%_ _%L166043%_) (for-each - (lambda (_%assertion165789%_) - (let* ((_%__stx166576166577%_ _%assertion165789%_) - (_%g165792165806%_ + (lambda (_%assertion166063%_) + (let* ((_%__stx166850166851%_ _%assertion166063%_) + (_%g166066166080%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx166576166577%_))))) - (let ((_%__kont166578166579%_ - (lambda (_%L165834%_ _%L165835%_) - (let ((__tmp169491 + _%__stx166850166851%_))))) + (let ((_%__kont166852166853%_ + (lambda (_%L166108%_ _%L166109%_) + (let ((__tmp169765 (let () (declare (not safe)) - (gxc#identifier-symbol _%L165835%_))) - (__tmp169489 - (let ((__tmp169490 + (gxc#identifier-symbol _%L166109%_))) + (__tmp169763 + (let ((__tmp169764 (let () (declare (not safe)) (gxc#identifier-symbol - _%L165834%_)))) + _%L166108%_)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx165619%_ - __tmp169490)))) + _%stx165893%_ + __tmp169764)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp169491 - __tmp169489 + __tmp169765 + __tmp169763 '#t)))) - (_%__kont166580166581%_ + (_%__kont166854166855%_ (lambda () (let () (declare (not safe)) (gxc#raise-compile-error '"malformed type assertion" - _%stx165619%_ - _%assertion165789%_))))) - (let ((_%__match166595166596%_ - (lambda (_%e165796165818%_ - _%hd165797165821%_ - _%tl165798165823%_ - _%e165799165826%_ - _%hd165800165829%_ - _%tl165801165831%_) - (let ((_%L165834%_ _%hd165800165829%_) - (_%L165835%_ _%hd165797165821%_)) + _%stx165893%_ + _%assertion166063%_))))) + (let ((_%__match166869166870%_ + (lambda (_%e166070166092%_ + _%hd166071166095%_ + _%tl166072166097%_ + _%e166073166100%_ + _%hd166074166103%_ + _%tl166075166105%_) + (let ((_%L166108%_ _%hd166074166103%_) + (_%L166109%_ _%hd166071166095%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L165835%_)) + (gx#identifier? _%L166109%_)) (let () (declare (not safe)) - (gx#identifier? _%L165834%_))) - (_%__kont166578166579%_ - _%L165834%_ - _%L165835%_) - (_%__kont166580166581%_)))))) + (gx#identifier? _%L166108%_))) + (_%__kont166852166853%_ + _%L166108%_ + _%L166109%_) + (_%__kont166854166855%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx166576166577%_)) - (let ((_%e165796165818%_ + (gx#stx-pair? _%__stx166850166851%_)) + (let ((_%e166070166092%_ (let () (declare (not safe)) - (gx#stx-e _%__stx166576166577%_)))) - (let ((_%tl165798165823%_ + (gx#stx-e _%__stx166850166851%_)))) + (let ((_%tl166072166097%_ (let () (declare (not safe)) - (##cdr _%e165796165818%_))) - (_%hd165797165821%_ + (##cdr _%e166070166092%_))) + (_%hd166071166095%_ (let () (declare (not safe)) - (##car _%e165796165818%_)))) + (##car _%e166070166092%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165798165823%_)) - (let ((_%e165799165826%_ + (gx#stx-pair? _%tl166072166097%_)) + (let ((_%e166073166100%_ (let () (declare (not safe)) (gx#stx-e - _%tl165798165823%_)))) - (let ((_%tl165801165831%_ + _%tl166072166097%_)))) + (let ((_%tl166075166105%_ (let () (declare (not safe)) - (##cdr _%e165799165826%_))) - (_%hd165800165829%_ + (##cdr _%e166073166100%_))) + (_%hd166074166103%_ (let () (declare (not safe)) - (##car _%e165799165826%_)))) + (##car _%e166073166100%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165801165831%_)) - (_%__match166595166596%_ - _%e165796165818%_ - _%hd165797165821%_ - _%tl165798165823%_ - _%e165799165826%_ - _%hd165800165829%_ - _%tl165801165831%_) - (_%__kont166580166581%_)))) - (_%__kont166580166581%_)))) - (_%__kont166580166581%_)))))) - (let ((__tmp169492 - (lambda (_%g165852165855%_ _%g165853165857%_) - (cons _%g165852165855%_ _%g165853165857%_)))) + _%tl166075166105%_)) + (_%__match166869166870%_ + _%e166070166092%_ + _%hd166071166095%_ + _%tl166072166097%_ + _%e166073166100%_ + _%hd166074166103%_ + _%tl166075166105%_) + (_%__kont166854166855%_)))) + (_%__kont166854166855%_)))) + (_%__kont166854166855%_)))))) + (let ((__tmp169766 + (lambda (_%g166126166129%_ _%g166127166131%_) + (cons _%g166126166129%_ _%g166127166131%_)))) (declare (not safe)) - (__foldr1 __tmp169492 '() _%L165769%_))) + (__foldr1 __tmp169766 '() _%L166043%_))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self165618%_ _%L165768%_)))) - (_%__kont166604166605%_ - (lambda (_%L165691%_ _%L165692%_) + (gxc#compile-e__1 _%self165892%_ _%L166042%_)))) + (_%__kont166878166879%_ + (lambda (_%L165965%_ _%L165966%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self165618%_ _%L165691%_))))) - (let ((_%__match166635166636%_ - (lambda (_%e165626165712%_ - _%hd165627165715%_ - _%tl165628165717%_ - _%e165629165720%_ - _%hd165630165723%_ - _%tl165631165725%_ - _%e165632165728%_ - _%hd165633165731%_ - _%tl165634165733%_ - _%__splice166602166603%_ - _%target165635165736%_ - _%tl165637165738%_) - (letrec ((_%loop165638165741%_ - (lambda (_%hd165636165744%_ - _%assertion165642165746%_) + (gxc#compile-e__1 _%self165892%_ _%L165965%_))))) + (let ((_%__match166909166910%_ + (lambda (_%e165900165986%_ + _%hd165901165989%_ + _%tl165902165991%_ + _%e165903165994%_ + _%hd165904165997%_ + _%tl165905165999%_ + _%e165906166002%_ + _%hd165907166005%_ + _%tl165908166007%_ + _%__splice166876166877%_ + _%target165909166010%_ + _%tl165911166012%_) + (letrec ((_%loop165912166015%_ + (lambda (_%hd165910166018%_ + _%assertion165916166020%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165636165744%_)) - (let ((_%e165639165749%_ + (gx#stx-pair? _%hd165910166018%_)) + (let ((_%e165913166023%_ (let () (declare (not safe)) - (gx#stx-e _%hd165636165744%_)))) - (let ((_%lp-tl165641165754%_ + (gx#stx-e _%hd165910166018%_)))) + (let ((_%lp-tl165915166028%_ (let () (declare (not safe)) - (##cdr _%e165639165749%_))) - (_%lp-hd165640165752%_ + (##cdr _%e165913166023%_))) + (_%lp-hd165914166026%_ (let () (declare (not safe)) - (##car _%e165639165749%_)))) - (_%loop165638165741%_ - _%lp-tl165641165754%_ - (cons _%lp-hd165640165752%_ - _%assertion165642165746%_)))) - (let ((_%assertion165643165757%_ - (reverse _%assertion165642165746%_))) + (##car _%e165913166023%_)))) + (_%loop165912166015%_ + _%lp-tl165915166028%_ + (cons _%lp-hd165914166026%_ + _%assertion165916166020%_)))) + (let ((_%assertion165917166031%_ + (reverse _%assertion165916166020%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165631165725%_)) - (let ((_%e165644165760%_ + (gx#stx-pair? _%tl165905165999%_)) + (let ((_%e165918166034%_ (let () (declare (not safe)) (gx#stx-e - _%tl165631165725%_)))) - (let ((_%tl165646165765%_ + _%tl165905165999%_)))) + (let ((_%tl165920166039%_ (let () (declare (not safe)) - (##cdr _%e165644165760%_))) - (_%hd165645165763%_ + (##cdr _%e165918166034%_))) + (_%hd165919166037%_ (let () (declare (not safe)) - (##car _%e165644165760%_)))) + (##car _%e165918166034%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165646165765%_)) - (_%__kont166600166601%_ - _%hd165645165763%_ - _%assertion165643165757%_) + _%tl165920166039%_)) + (_%__kont166874166875%_ + _%hd165919166037%_ + _%assertion165917166031%_) (let () (declare (not safe)) - (_%g165622165662%_))))) + (_%g165896165936%_))))) (let () (declare (not safe)) - (_%g165622165662%_)))))))) - (_%loop165638165741%_ _%target165635165736%_ '()))))) + (_%g165896165936%_)))))))) + (_%loop165912166015%_ _%target165909166010%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx166598166599%_)) - (let ((_%e165626165712%_ + (gx#stx-pair? _%__stx166872166873%_)) + (let ((_%e165900165986%_ (let () (declare (not safe)) - (gx#stx-e _%__stx166598166599%_)))) - (let ((_%tl165628165717%_ + (gx#stx-e _%__stx166872166873%_)))) + (let ((_%tl165902165991%_ (let () (declare (not safe)) - (##cdr _%e165626165712%_))) - (_%hd165627165715%_ + (##cdr _%e165900165986%_))) + (_%hd165901165989%_ (let () (declare (not safe)) - (##car _%e165626165712%_)))) + (##car _%e165900165986%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165628165717%_)) - (let ((_%e165629165720%_ + (gx#stx-pair? _%tl165902165991%_)) + (let ((_%e165903165994%_ (let () (declare (not safe)) - (gx#stx-e _%tl165628165717%_)))) - (let ((_%tl165631165725%_ + (gx#stx-e _%tl165902165991%_)))) + (let ((_%tl165905165999%_ (let () (declare (not safe)) - (##cdr _%e165629165720%_))) - (_%hd165630165723%_ + (##cdr _%e165903165994%_))) + (_%hd165904165997%_ (let () (declare (not safe)) - (##car _%e165629165720%_)))) + (##car _%e165903165994%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165630165723%_)) - (let ((_%e165632165728%_ + (gx#stx-pair? _%hd165904165997%_)) + (let ((_%e165906166002%_ (let () (declare (not safe)) - (gx#stx-e _%hd165630165723%_)))) - (let ((_%tl165634165733%_ + (gx#stx-e _%hd165904165997%_)))) + (let ((_%tl165908166007%_ (let () (declare (not safe)) - (##cdr _%e165632165728%_))) - (_%hd165633165731%_ + (##cdr _%e165906166002%_))) + (_%hd165907166005%_ (let () (declare (not safe)) - (##car _%e165632165728%_)))) + (##car _%e165906166002%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd165633165731%_)) + _%hd165907166005%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@type.assert - _%hd165633165731%_)) + _%hd165907166005%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165634165733%_)) - (let ((_%__splice166602166603%_ + _%tl165908166007%_)) + (let ((_%__splice166876166877%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165634165733%_ + _%tl165908166007%_ '0)))) - (let ((_%tl165637165738%_ + (let ((_%tl165911166012%_ (let () (declare (not safe)) (##vector-ref - _%__splice166602166603%_ + _%__splice166876166877%_ '1))) - (_%target165635165736%_ + (_%target165909166010%_ (let () (declare (not safe)) (##vector-ref - _%__splice166602166603%_ + _%__splice166876166877%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165637165738%_)) - (_%__match166635166636%_ - _%e165626165712%_ - _%hd165627165715%_ - _%tl165628165717%_ - _%e165629165720%_ - _%hd165630165723%_ - _%tl165631165725%_ - _%e165632165728%_ - _%hd165633165731%_ - _%tl165634165733%_ - _%__splice166602166603%_ - _%target165635165736%_ - _%tl165637165738%_) + _%tl165911166012%_)) + (_%__match166909166910%_ + _%e165900165986%_ + _%hd165901165989%_ + _%tl165902165991%_ + _%e165903165994%_ + _%hd165904165997%_ + _%tl165905165999%_ + _%e165906166002%_ + _%hd165907166005%_ + _%tl165908166007%_ + _%__splice166876166877%_ + _%target165909166010%_ + _%tl165911166012%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl165631165725%_)) - (let ((_%e165655165683%_ + (gx#stx-pair? _%tl165905165999%_)) + (let ((_%e165929165957%_ (let () (declare (not safe)) - (gx#stx-e _%tl165631165725%_)))) - (let ((_%tl165657165688%_ + (gx#stx-e _%tl165905165999%_)))) + (let ((_%tl165931165962%_ (let () (declare (not safe)) - (##cdr _%e165655165683%_))) - (_%hd165656165686%_ + (##cdr _%e165929165957%_))) + (_%hd165930165960%_ (let () (declare (not safe)) - (##car _%e165655165683%_)))) + (##car _%e165929165957%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165657165688%_)) - (_%__kont166604166605%_ - _%hd165656165686%_ - _%hd165630165723%_) + (gx#stx-null? _%tl165931165962%_)) + (_%__kont166878166879%_ + _%hd165930165960%_ + _%hd165904165997%_) (let () (declare (not safe)) - (_%g165622165662%_))))) - (let () (declare (not safe)) (_%g165622165662%_)))))) + (_%g165896165936%_))))) + (let () (declare (not safe)) (_%g165896165936%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165631165725%_)) - (let ((_%e165655165683%_ + _%tl165905165999%_)) + (let ((_%e165929165957%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165631165725%_)))) - (let ((_%tl165657165688%_ - (let () (declare (not safe)) (##cdr _%e165655165683%_))) - (_%hd165656165686%_ + (gx#stx-e _%tl165905165999%_)))) + (let ((_%tl165931165962%_ + (let () (declare (not safe)) (##cdr _%e165929165957%_))) + (_%hd165930165960%_ (let () (declare (not safe)) - (##car _%e165655165683%_)))) + (##car _%e165929165957%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165657165688%_)) - (_%__kont166604166605%_ - _%hd165656165686%_ - _%hd165630165723%_) - (let () (declare (not safe)) (_%g165622165662%_))))) - (let () (declare (not safe)) (_%g165622165662%_)))) + (gx#stx-null? _%tl165931165962%_)) + (_%__kont166878166879%_ + _%hd165930165960%_ + _%hd165904165997%_) + (let () (declare (not safe)) (_%g165896165936%_))))) + (let () (declare (not safe)) (_%g165896165936%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165631165725%_)) - (let ((_%e165655165683%_ + _%tl165905165999%_)) + (let ((_%e165929165957%_ (let () (declare (not safe)) (gx#stx-e - _%tl165631165725%_)))) - (let ((_%tl165657165688%_ + _%tl165905165999%_)))) + (let ((_%tl165931165962%_ (let () (declare (not safe)) - (##cdr _%e165655165683%_))) - (_%hd165656165686%_ + (##cdr _%e165929165957%_))) + (_%hd165930165960%_ (let () (declare (not safe)) - (##car _%e165655165683%_)))) + (##car _%e165929165957%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165657165688%_)) - (_%__kont166604166605%_ - _%hd165656165686%_ - _%hd165630165723%_) + _%tl165931165962%_)) + (_%__kont166878166879%_ + _%hd165930165960%_ + _%hd165904165997%_) (let () (declare (not safe)) - (_%g165622165662%_))))) + (_%g165896165936%_))))) (let () (declare (not safe)) - (_%g165622165662%_)))) + (_%g165896165936%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165631165725%_)) - (let ((_%e165655165683%_ + _%tl165905165999%_)) + (let ((_%e165929165957%_ (let () (declare (not safe)) (gx#stx-e - _%tl165631165725%_)))) - (let ((_%tl165657165688%_ + _%tl165905165999%_)))) + (let ((_%tl165931165962%_ (let () (declare (not safe)) - (##cdr _%e165655165683%_))) - (_%hd165656165686%_ + (##cdr _%e165929165957%_))) + (_%hd165930165960%_ (let () (declare (not safe)) - (##car _%e165655165683%_)))) + (##car _%e165929165957%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165657165688%_)) - (_%__kont166604166605%_ - _%hd165656165686%_ - _%hd165630165723%_) + _%tl165931165962%_)) + (_%__kont166878166879%_ + _%hd165930165960%_ + _%hd165904165997%_) (let () (declare (not safe)) - (_%g165622165662%_))))) + (_%g165896165936%_))))) (let () (declare (not safe)) - (_%g165622165662%_)))))) + (_%g165896165936%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165631165725%_)) - (let ((_%e165655165683%_ + (gx#stx-pair? _%tl165905165999%_)) + (let ((_%e165929165957%_ (let () (declare (not safe)) - (gx#stx-e _%tl165631165725%_)))) - (let ((_%tl165657165688%_ + (gx#stx-e _%tl165905165999%_)))) + (let ((_%tl165931165962%_ (let () (declare (not safe)) - (##cdr _%e165655165683%_))) - (_%hd165656165686%_ + (##cdr _%e165929165957%_))) + (_%hd165930165960%_ (let () (declare (not safe)) - (##car _%e165655165683%_)))) + (##car _%e165929165957%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165657165688%_)) - (_%__kont166604166605%_ - _%hd165656165686%_ - _%hd165630165723%_) + _%tl165931165962%_)) + (_%__kont166878166879%_ + _%hd165930165960%_ + _%hd165904165997%_) (let () (declare (not safe)) - (_%g165622165662%_))))) + (_%g165896165936%_))))) (let () (declare (not safe)) - (_%g165622165662%_)))))) - (let () (declare (not safe)) (_%g165622165662%_))))) - (let () (declare (not safe)) (_%g165622165662%_)))))))) + (_%g165896165936%_)))))) + (let () (declare (not safe)) (_%g165896165936%_))))) + (let () (declare (not safe)) (_%g165896165936%_)))))))) (define gxc#collect-type-lambda% - (lambda (_%self165562%_ _%stx165563%_) - (let* ((_%g165565165579%_ - (lambda (_%g165566165576%_) + (lambda (_%self165836%_ _%stx165837%_) + (let* ((_%g165839165853%_ + (lambda (_%g165840165850%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g165566165576%_)))) - (_%g165564165615%_ - (lambda (_%g165566165582%_) + _%g165840165850%_)))) + (_%g165838165889%_ + (lambda (_%g165840165856%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g165566165582%_)) - (let ((_%e165569165584%_ + (gx#stx-pair? _%g165840165856%_)) + (let ((_%e165843165858%_ (let () (declare (not safe)) - (gx#stx-e _%g165566165582%_)))) - (let ((_%hd165570165587%_ + (gx#stx-e _%g165840165856%_)))) + (let ((_%hd165844165861%_ (let () (declare (not safe)) - (##car _%e165569165584%_))) - (_%tl165571165589%_ + (##car _%e165843165858%_))) + (_%tl165845165863%_ (let () (declare (not safe)) - (##cdr _%e165569165584%_)))) + (##cdr _%e165843165858%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165571165589%_)) - (let ((_%e165572165592%_ + (gx#stx-pair? _%tl165845165863%_)) + (let ((_%e165846165866%_ (let () (declare (not safe)) - (gx#stx-e _%tl165571165589%_)))) - (let ((_%hd165573165595%_ + (gx#stx-e _%tl165845165863%_)))) + (let ((_%hd165847165869%_ (let () (declare (not safe)) - (##car _%e165572165592%_))) - (_%tl165574165597%_ + (##car _%e165846165866%_))) + (_%tl165848165871%_ (let () (declare (not safe)) - (##cdr _%e165572165592%_)))) - ((lambda (_%L165600%_ _%L165601%_) - (let ((__tmp169494 + (##cdr _%e165846165866%_)))) + ((lambda (_%L165874%_ _%L165875%_) + (let ((__tmp169768 (lambda () (gxc#collect-type-lambda-formals-tail - _%stx165563%_ - _%L165601%_) + _%stx165837%_ + _%L165875%_) (let () (declare (not safe)) (gxc#apply-body-lambda% - _%self165562%_ - _%stx165563%_)))) - (__tmp169493 + _%self165836%_ + _%stx165837%_)))) + (__tmp169767 (let () (declare (not safe)) (gxc#xform-let-locals - _%L165601%_)))) + _%L165875%_)))) (declare (not safe)) (__call-with-parameters - __tmp169494 + __tmp169768 gxc#current-compile-local-env - __tmp169493))) - _%tl165574165597%_ - _%hd165573165595%_))) - (_%g165565165579%_ _%g165566165582%_)))) - (_%g165565165579%_ _%g165566165582%_))))) - (_%g165564165615%_ _%stx165563%_)))) + __tmp169767))) + _%tl165848165871%_ + _%hd165847165869%_))) + (_%g165839165853%_ _%g165840165856%_)))) + (_%g165839165853%_ _%g165840165856%_))))) + (_%g165838165889%_ _%stx165837%_)))) (define gxc#collect-type-case-lambda% - (lambda (_%self165378%_ _%stx165379%_) - (let* ((_%g165381165409%_ - (lambda (_%g165382165406%_) + (lambda (_%self165652%_ _%stx165653%_) + (let* ((_%g165655165683%_ + (lambda (_%g165656165680%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g165382165406%_)))) - (_%g165380165559%_ - (lambda (_%g165382165412%_) + _%g165656165680%_)))) + (_%g165654165833%_ + (lambda (_%g165656165686%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g165382165412%_)) - (let ((_%e165385165414%_ + (gx#stx-pair? _%g165656165686%_)) + (let ((_%e165659165688%_ (let () (declare (not safe)) - (gx#stx-e _%g165382165412%_)))) - (let ((_%hd165386165417%_ + (gx#stx-e _%g165656165686%_)))) + (let ((_%hd165660165691%_ (let () (declare (not safe)) - (##car _%e165385165414%_))) - (_%tl165387165419%_ + (##car _%e165659165688%_))) + (_%tl165661165693%_ (let () (declare (not safe)) - (##cdr _%e165385165414%_)))) + (##cdr _%e165659165688%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165387165419%_)) - (let ((_g169495_ + (gx#stx-pair/null? _%tl165661165693%_)) + (let ((_g169769_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165387165419%_ + _%tl165661165693%_ '0)))) (begin - (let ((_g169496_ + (let ((_g169770_ (let () (declare (not safe)) - (if (##values? _g169495_) - (##vector-length _g169495_) + (if (##values? _g169769_) + (##vector-length _g169769_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g169496_ 2))) + (##fx= _g169770_ 2))) (error "Context expects 2 values" - _g169496_))) - (let ((_%target165388165422%_ + _g169770_))) + (let ((_%target165662165696%_ (let () (declare (not safe)) - (##vector-ref _g169495_ 0))) - (_%tl165390165424%_ + (##vector-ref _g169769_ 0))) + (_%tl165664165698%_ (let () (declare (not safe)) - (##vector-ref _g169495_ 1)))) + (##vector-ref _g169769_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165390165424%_)) - (letrec ((_%loop165391165427%_ - (lambda (_%hd165389165430%_ - _%body165395165432%_ - _%hd165396165434%_) + (gx#stx-null? _%tl165664165698%_)) + (letrec ((_%loop165665165701%_ + (lambda (_%hd165663165704%_ + _%body165669165706%_ + _%hd165670165708%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd165389165430%_)) - (let ((_%e165392165437%_ + _%hd165663165704%_)) + (let ((_%e165666165711%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd165389165430%_)))) - (let ((_%lp-hd165393165440%_ + (gx#stx-e _%hd165663165704%_)))) + (let ((_%lp-hd165667165714%_ (let () (declare (not safe)) - (##car _%e165392165437%_))) - (_%lp-tl165394165442%_ + (##car _%e165666165711%_))) + (_%lp-tl165668165716%_ (let () (declare (not safe)) - (##cdr _%e165392165437%_)))) + (##cdr _%e165666165711%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd165393165440%_)) - (let ((_%e165399165445%_ + (gx#stx-pair? _%lp-hd165667165714%_)) + (let ((_%e165673165719%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd165393165440%_)))) - (let ((_%hd165400165448%_ + (gx#stx-e _%lp-hd165667165714%_)))) + (let ((_%hd165674165722%_ (let () (declare (not safe)) - (##car _%e165399165445%_))) - (_%tl165401165450%_ + (##car _%e165673165719%_))) + (_%tl165675165724%_ (let () (declare (not safe)) - (##cdr _%e165399165445%_)))) + (##cdr _%e165673165719%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165401165450%_)) - (let ((_%e165402165453%_ + (gx#stx-pair? _%tl165675165724%_)) + (let ((_%e165676165727%_ (let () (declare (not safe)) - (gx#stx-e _%tl165401165450%_)))) - (let ((_%hd165403165456%_ + (gx#stx-e _%tl165675165724%_)))) + (let ((_%hd165677165730%_ (let () (declare (not safe)) - (##car _%e165402165453%_))) - (_%tl165404165458%_ + (##car _%e165676165727%_))) + (_%tl165678165732%_ (let () (declare (not safe)) - (##cdr _%e165402165453%_)))) + (##cdr _%e165676165727%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165404165458%_)) - (_%loop165391165427%_ - _%lp-tl165394165442%_ - (cons _%hd165403165456%_ - _%body165395165432%_) - (cons _%hd165400165448%_ - _%hd165396165434%_)) - (_%g165381165409%_ - _%g165382165412%_)))) - (_%g165381165409%_ _%g165382165412%_)))) - (_%g165381165409%_ _%g165382165412%_)))) - (let ((_%body165397165461%_ (reverse _%body165395165432%_)) - (_%hd165398165463%_ (reverse _%hd165396165434%_))) - ((lambda (_%L165466%_ _%L165467%_) + (gx#stx-null? _%tl165678165732%_)) + (_%loop165665165701%_ + _%lp-tl165668165716%_ + (cons _%hd165677165730%_ + _%body165669165706%_) + (cons _%hd165674165722%_ + _%hd165670165708%_)) + (_%g165655165683%_ + _%g165656165686%_)))) + (_%g165655165683%_ _%g165656165686%_)))) + (_%g165655165683%_ _%g165656165686%_)))) + (let ((_%body165671165735%_ (reverse _%body165669165706%_)) + (_%hd165672165737%_ (reverse _%hd165670165708%_))) + ((lambda (_%L165740%_ _%L165741%_) (for-each - (lambda (_%g165481165483%_) + (lambda (_%g165755165757%_) (gxc#collect-type-lambda-formals-tail - _%stx165379%_ - _%g165481165483%_)) - (let ((__tmp169497 - (lambda (_%g165485165488%_ _%g165486165490%_) - (cons _%g165485165488%_ _%g165486165490%_)))) + _%stx165653%_ + _%g165755165757%_)) + (let ((__tmp169771 + (lambda (_%g165759165762%_ _%g165760165764%_) + (cons _%g165759165762%_ _%g165760165764%_)))) (declare (not safe)) - (__foldr1 __tmp169497 '() _%L165467%_))) + (__foldr1 __tmp169771 '() _%L165741%_))) (for-each - (lambda (_%clause165493%_) - (let* ((_%g165495165509%_ - (lambda (_%g165496165506%_) + (lambda (_%clause165767%_) + (let* ((_%g165769165783%_ + (lambda (_%g165770165780%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g165496165506%_)))) - (_%g165494165546%_ - (lambda (_%g165496165512%_) + _%g165770165780%_)))) + (_%g165768165820%_ + (lambda (_%g165770165786%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g165496165512%_)) - (let ((_%e165499165514%_ + (gx#stx-pair? _%g165770165786%_)) + (let ((_%e165773165788%_ (let () (declare (not safe)) - (gx#stx-e _%g165496165512%_)))) - (let ((_%hd165500165517%_ + (gx#stx-e _%g165770165786%_)))) + (let ((_%hd165774165791%_ (let () (declare (not safe)) - (##car _%e165499165514%_))) - (_%tl165501165519%_ + (##car _%e165773165788%_))) + (_%tl165775165793%_ (let () (declare (not safe)) - (##cdr _%e165499165514%_)))) + (##cdr _%e165773165788%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165501165519%_)) - (let ((_%e165502165522%_ + _%tl165775165793%_)) + (let ((_%e165776165796%_ (let () (declare (not safe)) (gx#stx-e - _%tl165501165519%_)))) - (let ((_%hd165503165525%_ + _%tl165775165793%_)))) + (let ((_%hd165777165799%_ (let () (declare (not safe)) - (##car _%e165502165522%_))) - (_%tl165504165527%_ + (##car _%e165776165796%_))) + (_%tl165778165801%_ (let () (declare (not safe)) - (##cdr _%e165502165522%_)))) + (##cdr _%e165776165796%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165504165527%_)) - ((lambda (_%L165530%_ - _%L165531%_) - (let ((__tmp169499 + _%tl165778165801%_)) + ((lambda (_%L165804%_ + _%L165805%_) + (let ((__tmp169773 (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-body-case-lambda% - _%self165378%_ - _%stx165379%_)))) - (__tmp169498 + _%self165652%_ + _%stx165653%_)))) + (__tmp169772 (let () (declare (not safe)) - (gxc#xform-let-locals _%L165531%_)))) + (gxc#xform-let-locals _%L165805%_)))) (declare (not safe)) (__call-with-parameters - __tmp169499 + __tmp169773 gxc#current-compile-local-env - __tmp169498))) - _%hd165503165525%_ - _%hd165500165517%_) - (_%g165495165509%_ _%g165496165512%_)))) + __tmp169772))) + _%hd165777165799%_ + _%hd165774165791%_) + (_%g165769165783%_ _%g165770165786%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g165495165509%_ - _%g165496165512%_)))) - (_%g165495165509%_ _%g165496165512%_))))) - (_%g165494165546%_ _%clause165493%_))) + (_%g165769165783%_ + _%g165770165786%_)))) + (_%g165769165783%_ _%g165770165786%_))))) + (_%g165768165820%_ _%clause165767%_))) (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L165466%_ - _%L165467%_)) - (let ((__tmp169500 - (lambda (_%g165548165552%_ - _%g165549165554%_ - _%g165550165556%_) - (cons (cons _%g165549165554%_ - (cons _%g165548165552%_ '())) - _%g165550165556%_)))) + _%L165740%_ + _%L165741%_)) + (let ((__tmp169774 + (lambda (_%g165822165826%_ + _%g165823165828%_ + _%g165824165830%_) + (cons (cons _%g165823165828%_ + (cons _%g165822165826%_ '())) + _%g165824165830%_)))) (declare (not safe)) (__foldr2 - __tmp169500 + __tmp169774 '() - _%L165466%_ - _%L165467%_))))) - _%body165397165461%_ - _%hd165398165463%_)))))) + _%L165740%_ + _%L165741%_))))) + _%body165671165735%_ + _%hd165672165737%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop165391165427%_ - _%target165388165422%_ + (_%loop165665165701%_ + _%target165662165696%_ '() '())) - (_%g165381165409%_ - _%g165382165412%_))))) - (_%g165381165409%_ _%g165382165412%_)))) - (_%g165381165409%_ _%g165382165412%_))))) - (_%g165380165559%_ _%stx165379%_)))) + (_%g165655165683%_ + _%g165656165686%_))))) + (_%g165655165683%_ _%g165656165686%_)))) + (_%g165655165683%_ _%g165656165686%_))))) + (_%g165654165833%_ _%stx165653%_)))) (define gxc#collect-type-lambda-formals-tail - (lambda (_%stx165310%_ _%formals165311%_) - (let _%loop165313%_ ((_%rest165315%_ _%formals165311%_)) - (let* ((_%__stx166658166659%_ _%rest165315%_) - (_%g165319165330%_ + (lambda (_%stx165584%_ _%formals165585%_) + (let _%loop165587%_ ((_%rest165589%_ _%formals165585%_)) + (let* ((_%__stx166932166933%_ _%rest165589%_) + (_%g165593165604%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx166658166659%_))))) - (let ((_%__kont166660166661%_ - (lambda (_%L165366%_) (_%loop165313%_ _%L165366%_))) - (_%__kont166662166663%_ - (lambda (_%L165342%_) - (let ((__tmp169502 + _%__stx166932166933%_))))) + (let ((_%__kont166934166935%_ + (lambda (_%L165640%_) (_%loop165587%_ _%L165640%_))) + (_%__kont166936166937%_ + (lambda (_%L165616%_) + (let ((__tmp169776 (let () (declare (not safe)) - (gxc#identifier-symbol _%L165342%_))) - (__tmp169501 + (gxc#identifier-symbol _%L165616%_))) + (__tmp169775 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx165310%_ + _%stx165584%_ 'list::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp169502 - __tmp169501 + __tmp169776 + __tmp169775 '#t)))) - (_%__kont166664166665%_ (lambda () '#!void))) - (let ((_%g165317165353%_ + (_%__kont166938166939%_ (lambda () '#!void))) + (let ((_%g165591165627%_ (lambda () - (let ((_%L165342%_ _%__stx166658166659%_)) + (let ((_%L165616%_ _%__stx166932166933%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L165342%_)) - (_%__kont166662166663%_ _%L165342%_) - (_%__kont166664166665%_)))))) + (gx#identifier? _%L165616%_)) + (_%__kont166936166937%_ _%L165616%_) + (_%__kont166938166939%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx166658166659%_)) - (let ((_%e165322165358%_ + (gx#stx-pair? _%__stx166932166933%_)) + (let ((_%e165596165632%_ (let () (declare (not safe)) - (gx#stx-e _%__stx166658166659%_)))) - (let ((_%tl165324165363%_ + (gx#stx-e _%__stx166932166933%_)))) + (let ((_%tl165598165637%_ (let () (declare (not safe)) - (##cdr _%e165322165358%_))) - (_%hd165323165361%_ + (##cdr _%e165596165632%_))) + (_%hd165597165635%_ (let () (declare (not safe)) - (##car _%e165322165358%_)))) - (_%__kont166660166661%_ _%tl165324165363%_))) - (let () (declare (not safe)) (_%g165317165353%_))))))))) + (##car _%e165596165632%_)))) + (_%__kont166934166935%_ _%tl165598165637%_))) + (let () (declare (not safe)) (_%g165591165627%_))))))))) (define gxc#collect-type-let-values%__% - (lambda (_%self165069%_ _%stx165070%_ _%expression-type165071%_) - (letrec ((_%collect-e165073%_ - (lambda (_%hd165242%_ _%expr165243%_) - (let* ((_%__stx166674166675%_ _%hd165242%_) - (_%g165246165256%_ + (lambda (_%self165343%_ _%stx165344%_ _%expression-type165345%_) + (letrec ((_%collect-e165347%_ + (lambda (_%hd165516%_ _%expr165517%_) + (let* ((_%__stx166948166949%_ _%hd165516%_) + (_%g165520165530%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx166674166675%_))))) - (let ((_%__kont166676166677%_ - (lambda (_%L165276%_) - (let* ((_%sym165287%_ + _%__stx166948166949%_))))) + (let ((_%__kont166950166951%_ + (lambda (_%L165550%_) + (let* ((_%sym165561%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L165276%_))) - (_%type165288165290%_ - (_%expression-type165071%_ - _%expr165243%_))) - (if _%type165288165290%_ - (let ((_%type165293%_ - _%type165288165290%_)) + (gxc#identifier-symbol _%L165550%_))) + (_%type165562165564%_ + (_%expression-type165345%_ + _%expr165517%_))) + (if _%type165562165564%_ + (let ((_%type165567%_ + _%type165562165564%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type165293%_ + _%type165567%_ 'gxc#!class-meta::t)) (begin - (let ((__tmp169503 + (let ((__tmp169777 (let () (declare (not safe)) (##unchecked-structure-ref - _%type165293%_ + _%type165567%_ '2 '#f '#f)))) (declare (not safe)) (gxc#optimizer-declare-class! - _%sym165287%_ - __tmp169503)) - (let ((__tmp169504 + _%sym165561%_ + __tmp169777)) + (let ((__tmp169778 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx165070%_ + _%stx165344%_ 'class::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym165287%_ - __tmp169504 + _%sym165561%_ + __tmp169778 '#t))) (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym165287%_ - _%type165293%_ + _%sym165561%_ + _%type165567%_ '#t)))) '#f)))) - (_%__kont166678166679%_ (lambda () '#!void))) - (let ((_%__match166687166688%_ - (lambda (_%e165249165268%_ - _%hd165250165271%_ - _%tl165251165273%_) - (let ((_%L165276%_ _%hd165250165271%_)) + (_%__kont166952166953%_ (lambda () '#!void))) + (let ((_%__match166961166962%_ + (lambda (_%e165523165542%_ + _%hd165524165545%_ + _%tl165525165547%_) + (let ((_%L165550%_ _%hd165524165545%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L165276%_)) - (_%__kont166676166677%_ _%L165276%_) - (_%__kont166678166679%_)))))) + (gx#identifier? _%L165550%_)) + (_%__kont166950166951%_ _%L165550%_) + (_%__kont166952166953%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx166674166675%_)) - (let ((_%e165249165268%_ + (gx#stx-pair? _%__stx166948166949%_)) + (let ((_%e165523165542%_ (let () (declare (not safe)) - (gx#stx-e _%__stx166674166675%_)))) - (let ((_%tl165251165273%_ + (gx#stx-e _%__stx166948166949%_)))) + (let ((_%tl165525165547%_ (let () (declare (not safe)) - (##cdr _%e165249165268%_))) - (_%hd165250165271%_ + (##cdr _%e165523165542%_))) + (_%hd165524165545%_ (let () (declare (not safe)) - (##car _%e165249165268%_)))) + (##car _%e165523165542%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165251165273%_)) - (_%__match166687166688%_ - _%e165249165268%_ - _%hd165250165271%_ - _%tl165251165273%_) - (_%__kont166678166679%_)))) - (_%__kont166678166679%_)))))))) - (let* ((_%g165075165110%_ - (lambda (_%g165076165107%_) + (gx#stx-null? _%tl165525165547%_)) + (_%__match166961166962%_ + _%e165523165542%_ + _%hd165524165545%_ + _%tl165525165547%_) + (_%__kont166952166953%_)))) + (_%__kont166952166953%_)))))))) + (let* ((_%g165349165384%_ + (lambda (_%g165350165381%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g165076165107%_)))) - (_%g165074165239%_ - (lambda (_%g165076165113%_) + _%g165350165381%_)))) + (_%g165348165513%_ + (lambda (_%g165350165387%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g165076165113%_)) - (let ((_%e165080165115%_ + (gx#stx-pair? _%g165350165387%_)) + (let ((_%e165354165389%_ (let () (declare (not safe)) - (gx#stx-e _%g165076165113%_)))) - (let ((_%hd165081165118%_ + (gx#stx-e _%g165350165387%_)))) + (let ((_%hd165355165392%_ (let () (declare (not safe)) - (##car _%e165080165115%_))) - (_%tl165082165120%_ + (##car _%e165354165389%_))) + (_%tl165356165394%_ (let () (declare (not safe)) - (##cdr _%e165080165115%_)))) + (##cdr _%e165354165389%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165082165120%_)) - (let ((_%e165083165123%_ + (gx#stx-pair? _%tl165356165394%_)) + (let ((_%e165357165397%_ (let () (declare (not safe)) - (gx#stx-e _%tl165082165120%_)))) - (let ((_%hd165084165126%_ + (gx#stx-e _%tl165356165394%_)))) + (let ((_%hd165358165400%_ (let () (declare (not safe)) - (##car _%e165083165123%_))) - (_%tl165085165128%_ + (##car _%e165357165397%_))) + (_%tl165359165402%_ (let () (declare (not safe)) - (##cdr _%e165083165123%_)))) + (##cdr _%e165357165397%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd165084165126%_)) - (let ((_g169505_ + _%hd165358165400%_)) + (let ((_g169779_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd165084165126%_ + _%hd165358165400%_ '0)))) (begin - (let ((_g169506_ + (let ((_g169780_ (let () (declare (not safe)) - (if (##values? _g169505_) + (if (##values? _g169779_) (##vector-length - _g169505_) + _g169779_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g169506_ 2))) + (##fx= _g169780_ 2))) (error "Context expects 2 values" - _g169506_))) - (let ((_%target165086165131%_ + _g169780_))) + (let ((_%target165360165405%_ (let () (declare (not safe)) (##vector-ref - _g169505_ + _g169779_ 0))) - (_%tl165088165133%_ + (_%tl165362165407%_ (let () (declare (not safe)) (##vector-ref - _g169505_ + _g169779_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165088165133%_)) - (letrec ((_%loop165089165136%_ - (lambda (_%hd165087165139%_ + _%tl165362165407%_)) + (letrec ((_%loop165363165410%_ + (lambda (_%hd165361165413%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr165093165141%_ - _%hd165094165143%_) + _%expr165367165415%_ + _%hd165368165417%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165087165139%_)) - (let ((_%e165090165146%_ + (gx#stx-pair? _%hd165361165413%_)) + (let ((_%e165364165420%_ (let () (declare (not safe)) - (gx#stx-e _%hd165087165139%_)))) - (let ((_%lp-hd165091165149%_ + (gx#stx-e _%hd165361165413%_)))) + (let ((_%lp-hd165365165423%_ (let () (declare (not safe)) - (##car _%e165090165146%_))) - (_%lp-tl165092165151%_ + (##car _%e165364165420%_))) + (_%lp-tl165366165425%_ (let () (declare (not safe)) - (##cdr _%e165090165146%_)))) + (##cdr _%e165364165420%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd165091165149%_)) - (let ((_%e165100165154%_ + (gx#stx-pair? _%lp-hd165365165423%_)) + (let ((_%e165374165428%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd165091165149%_)))) - (let ((_%hd165101165157%_ + (gx#stx-e _%lp-hd165365165423%_)))) + (let ((_%hd165375165431%_ (let () (declare (not safe)) - (##car _%e165100165154%_))) - (_%tl165102165159%_ + (##car _%e165374165428%_))) + (_%tl165376165433%_ (let () (declare (not safe)) - (##cdr _%e165100165154%_)))) + (##cdr _%e165374165428%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165102165159%_)) - (let ((_%e165103165162%_ + (gx#stx-pair? _%tl165376165433%_)) + (let ((_%e165377165436%_ (let () (declare (not safe)) (gx#stx-e - _%tl165102165159%_)))) - (let ((_%hd165104165165%_ + _%tl165376165433%_)))) + (let ((_%hd165378165439%_ (let () (declare (not safe)) - (##car _%e165103165162%_))) - (_%tl165105165167%_ + (##car _%e165377165436%_))) + (_%tl165379165441%_ (let () (declare (not safe)) - (##cdr _%e165103165162%_)))) + (##cdr _%e165377165436%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165105165167%_)) - (_%loop165089165136%_ - _%lp-tl165092165151%_ - (cons _%hd165104165165%_ - _%expr165093165141%_) - (cons _%hd165101165157%_ - _%hd165094165143%_)) - (_%g165075165110%_ - _%g165076165113%_)))) - (_%g165075165110%_ - _%g165076165113%_)))) - (_%g165075165110%_ _%g165076165113%_)))) - (let ((_%expr165095165170%_ - (reverse _%expr165093165141%_)) - (_%hd165096165172%_ - (reverse _%hd165094165143%_))) + _%tl165379165441%_)) + (_%loop165363165410%_ + _%lp-tl165366165425%_ + (cons _%hd165378165439%_ + _%expr165367165415%_) + (cons _%hd165375165431%_ + _%hd165368165417%_)) + (_%g165349165384%_ + _%g165350165387%_)))) + (_%g165349165384%_ + _%g165350165387%_)))) + (_%g165349165384%_ _%g165350165387%_)))) + (let ((_%expr165369165444%_ + (reverse _%expr165367165415%_)) + (_%hd165370165446%_ + (reverse _%hd165368165417%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165085165128%_)) - (let ((_%e165097165175%_ + (gx#stx-pair? _%tl165359165402%_)) + (let ((_%e165371165449%_ (let () (declare (not safe)) - (gx#stx-e _%tl165085165128%_)))) - (let ((_%hd165098165178%_ + (gx#stx-e _%tl165359165402%_)))) + (let ((_%hd165372165452%_ (let () (declare (not safe)) - (##car _%e165097165175%_))) - (_%tl165099165180%_ + (##car _%e165371165449%_))) + (_%tl165373165454%_ (let () (declare (not safe)) - (##cdr _%e165097165175%_)))) + (##cdr _%e165371165449%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165099165180%_)) - ((lambda (_%L165183%_ - _%L165184%_ - _%L165185%_) + (gx#stx-null? _%tl165373165454%_)) + ((lambda (_%L165457%_ + _%L165458%_ + _%L165459%_) (for-each - _%collect-e165073%_ - (let ((__tmp169507 - (lambda (_%g165205165208%_ - _%g165206165210%_) - (cons _%g165205165208%_ - _%g165206165210%_)))) + _%collect-e165347%_ + (let ((__tmp169781 + (lambda (_%g165479165482%_ + _%g165480165484%_) + (cons _%g165479165482%_ + _%g165480165484%_)))) (declare (not safe)) (__foldr1 - __tmp169507 + __tmp169781 '() - _%L165185%_)) - (let ((__tmp169508 - (lambda (_%g165212165215%_ - _%g165213165217%_) - (cons _%g165212165215%_ - _%g165213165217%_)))) + _%L165459%_)) + (let ((__tmp169782 + (lambda (_%g165486165489%_ + _%g165487165491%_) + (cons _%g165486165489%_ + _%g165487165491%_)))) (declare (not safe)) (__foldr1 - __tmp169508 + __tmp169782 '() - _%L165184%_))) + _%L165458%_))) (for-each - (lambda (_%g165219165221%_) + (lambda (_%g165493165495%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self165069%_ - _%g165219165221%_))) - (let ((__tmp169509 - (lambda (_%g165223165226%_ - _%g165224165228%_) - (cons _%g165223165226%_ - _%g165224165228%_)))) + _%self165343%_ + _%g165493165495%_))) + (let ((__tmp169783 + (lambda (_%g165497165500%_ + _%g165498165502%_) + (cons _%g165497165500%_ + _%g165498165502%_)))) (declare (not safe)) (__foldr1 - __tmp169509 + __tmp169783 '() - _%L165184%_))) - (let ((__tmp169513 + _%L165458%_))) + (let ((__tmp169787 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self165069%_ - _%L165183%_)))) - (__tmp169510 - (let ((__tmp169511 - (let ((__tmp169512 - (lambda (_%g165231165234%_ + _%self165343%_ + _%L165457%_)))) + (__tmp169784 + (let ((__tmp169785 + (let ((__tmp169786 + (lambda (_%g165505165508%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g165232165236%_) - (cons _%g165231165234%_ _%g165232165236%_)))) + _%g165506165510%_) + (cons _%g165505165508%_ _%g165506165510%_)))) (declare (not safe)) - (__foldr1 __tmp169512 '() _%L165185%_)))) + (__foldr1 __tmp169786 '() _%L165459%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp169511)))) + __tmp169785)))) (declare (not safe)) (__call-with-parameters - __tmp169513 + __tmp169787 gxc#current-compile-local-env - __tmp169510))) - _%hd165098165178%_ - _%expr165095165170%_ - _%hd165096165172%_) - (_%g165075165110%_ - _%g165076165113%_)))) - (_%g165075165110%_ _%g165076165113%_))))))) + __tmp169784))) + _%hd165372165452%_ + _%expr165369165444%_ + _%hd165370165446%_) + (_%g165349165384%_ + _%g165350165387%_)))) + (_%g165349165384%_ _%g165350165387%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop165089165136%_ - _%target165086165131%_ + (_%loop165363165410%_ + _%target165360165405%_ '() '())) - (_%g165075165110%_ - _%g165076165113%_))))) - (_%g165075165110%_ - _%g165076165113%_)))) - (_%g165075165110%_ _%g165076165113%_)))) - (_%g165075165110%_ _%g165076165113%_))))) - (_%g165074165239%_ _%stx165070%_))))) + (_%g165349165384%_ + _%g165350165387%_))))) + (_%g165349165384%_ + _%g165350165387%_)))) + (_%g165349165384%_ _%g165350165387%_)))) + (_%g165349165384%_ _%g165350165387%_))))) + (_%g165348165513%_ _%stx165344%_))))) (define gxc#collect-type-let-values%__0 - (lambda (_%self165301%_ _%stx165302%_) - (let ((_%expression-type165304%_ gxc#apply-basic-expression-type)) + (lambda (_%self165575%_ _%stx165576%_) + (let ((_%expression-type165578%_ gxc#apply-basic-expression-type)) (gxc#collect-type-let-values%__% - _%self165301%_ - _%stx165302%_ - _%expression-type165304%_)))) + _%self165575%_ + _%stx165576%_ + _%expression-type165578%_)))) (define gxc#collect-type-let-values% - (lambda _g169515_ - (let ((_g169514_ (let () (declare (not safe)) (##length _g169515_)))) - (cond ((let () (declare (not safe)) (##fx= _g169514_ 2)) - (apply gxc#collect-type-let-values%__0 _g169515_)) - ((let () (declare (not safe)) (##fx= _g169514_ 3)) - (apply gxc#collect-type-let-values%__% _g169515_)) + (lambda _g169789_ + (let ((_g169788_ (let () (declare (not safe)) (##length _g169789_)))) + (cond ((let () (declare (not safe)) (##fx= _g169788_ 2)) + (apply gxc#collect-type-let-values%__0 _g169789_)) + ((let () (declare (not safe)) (##fx= _g169788_ 3)) + (apply gxc#collect-type-let-values%__% _g169789_)) (else (##raise-wrong-number-of-arguments-exception gxc#collect-type-let-values% - _g169515_)))))) + _g169789_)))))) (define gxc#collect-type-letrec-values%__% - (lambda (_%self164802%_ _%stx164803%_ _%expression-type164804%_) - (letrec ((_%collect-e164806%_ - (lambda (_%hd165000%_ _%expr165001%_) - (let* ((_%__stx166690166691%_ _%hd165000%_) - (_%g165004165014%_ + (lambda (_%self165076%_ _%stx165077%_ _%expression-type165078%_) + (letrec ((_%collect-e165080%_ + (lambda (_%hd165274%_ _%expr165275%_) + (let* ((_%__stx166964166965%_ _%hd165274%_) + (_%g165278165288%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx166690166691%_))))) - (let ((_%__kont166692166693%_ - (lambda (_%L165034%_) - (let* ((_%sym165045%_ + _%__stx166964166965%_))))) + (let ((_%__kont166966166967%_ + (lambda (_%L165308%_) + (let* ((_%sym165319%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L165034%_))) - (_%type165046165048%_ - (_%expression-type164804%_ - _%expr165001%_))) - (if _%type165046165048%_ - (let ((_%type165051%_ - _%type165046165048%_)) + (gxc#identifier-symbol _%L165308%_))) + (_%type165320165322%_ + (_%expression-type165078%_ + _%expr165275%_))) + (if _%type165320165322%_ + (let ((_%type165325%_ + _%type165320165322%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type165051%_ + _%type165325%_ 'gxc#!class-meta::t)) (begin - (let ((__tmp169516 + (let ((__tmp169790 (let () (declare (not safe)) (##unchecked-structure-ref - _%type165051%_ + _%type165325%_ '2 '#f '#f)))) (declare (not safe)) (gxc#optimizer-declare-class! - _%sym165045%_ - __tmp169516)) - (let ((__tmp169517 + _%sym165319%_ + __tmp169790)) + (let ((__tmp169791 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx164803%_ + _%stx165077%_ 'class::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym165045%_ - __tmp169517 + _%sym165319%_ + __tmp169791 '#t))) (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym165045%_ - _%type165051%_ + _%sym165319%_ + _%type165325%_ '#t)))) '#f)))) - (_%__kont166694166695%_ (lambda () '#!void))) - (let ((_%__match166703166704%_ - (lambda (_%e165007165026%_ - _%hd165008165029%_ - _%tl165009165031%_) - (let ((_%L165034%_ _%hd165008165029%_)) + (_%__kont166968166969%_ (lambda () '#!void))) + (let ((_%__match166977166978%_ + (lambda (_%e165281165300%_ + _%hd165282165303%_ + _%tl165283165305%_) + (let ((_%L165308%_ _%hd165282165303%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L165034%_)) - (_%__kont166692166693%_ _%L165034%_) - (_%__kont166694166695%_)))))) + (gx#identifier? _%L165308%_)) + (_%__kont166966166967%_ _%L165308%_) + (_%__kont166968166969%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx166690166691%_)) - (let ((_%e165007165026%_ + (gx#stx-pair? _%__stx166964166965%_)) + (let ((_%e165281165300%_ (let () (declare (not safe)) - (gx#stx-e _%__stx166690166691%_)))) - (let ((_%tl165009165031%_ + (gx#stx-e _%__stx166964166965%_)))) + (let ((_%tl165283165305%_ (let () (declare (not safe)) - (##cdr _%e165007165026%_))) - (_%hd165008165029%_ + (##cdr _%e165281165300%_))) + (_%hd165282165303%_ (let () (declare (not safe)) - (##car _%e165007165026%_)))) + (##car _%e165281165300%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165009165031%_)) - (_%__match166703166704%_ - _%e165007165026%_ - _%hd165008165029%_ - _%tl165009165031%_) - (_%__kont166694166695%_)))) - (_%__kont166694166695%_)))))))) - (let* ((_%g164808164843%_ - (lambda (_%g164809164840%_) + (gx#stx-null? _%tl165283165305%_)) + (_%__match166977166978%_ + _%e165281165300%_ + _%hd165282165303%_ + _%tl165283165305%_) + (_%__kont166968166969%_)))) + (_%__kont166968166969%_)))))))) + (let* ((_%g165082165117%_ + (lambda (_%g165083165114%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164809164840%_)))) - (_%g164807164997%_ - (lambda (_%g164809164846%_) + _%g165083165114%_)))) + (_%g165081165271%_ + (lambda (_%g165083165120%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164809164846%_)) - (let ((_%e164813164848%_ + (gx#stx-pair? _%g165083165120%_)) + (let ((_%e165087165122%_ (let () (declare (not safe)) - (gx#stx-e _%g164809164846%_)))) - (let ((_%hd164814164851%_ + (gx#stx-e _%g165083165120%_)))) + (let ((_%hd165088165125%_ (let () (declare (not safe)) - (##car _%e164813164848%_))) - (_%tl164815164853%_ + (##car _%e165087165122%_))) + (_%tl165089165127%_ (let () (declare (not safe)) - (##cdr _%e164813164848%_)))) + (##cdr _%e165087165122%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164815164853%_)) - (let ((_%e164816164856%_ + (gx#stx-pair? _%tl165089165127%_)) + (let ((_%e165090165130%_ (let () (declare (not safe)) - (gx#stx-e _%tl164815164853%_)))) - (let ((_%hd164817164859%_ + (gx#stx-e _%tl165089165127%_)))) + (let ((_%hd165091165133%_ (let () (declare (not safe)) - (##car _%e164816164856%_))) - (_%tl164818164861%_ + (##car _%e165090165130%_))) + (_%tl165092165135%_ (let () (declare (not safe)) - (##cdr _%e164816164856%_)))) + (##cdr _%e165090165130%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd164817164859%_)) - (let ((_g169518_ + _%hd165091165133%_)) + (let ((_g169792_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd164817164859%_ + _%hd165091165133%_ '0)))) (begin - (let ((_g169519_ + (let ((_g169793_ (let () (declare (not safe)) - (if (##values? _g169518_) + (if (##values? _g169792_) (##vector-length - _g169518_) + _g169792_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g169519_ 2))) + (##fx= _g169793_ 2))) (error "Context expects 2 values" - _g169519_))) - (let ((_%target164819164864%_ + _g169793_))) + (let ((_%target165093165138%_ (let () (declare (not safe)) (##vector-ref - _g169518_ + _g169792_ 0))) - (_%tl164821164866%_ + (_%tl165095165140%_ (let () (declare (not safe)) (##vector-ref - _g169518_ + _g169792_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164821164866%_)) - (letrec ((_%loop164822164869%_ - (lambda (_%hd164820164872%_ + _%tl165095165140%_)) + (letrec ((_%loop165096165143%_ + (lambda (_%hd165094165146%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr164826164874%_ - _%hd164827164876%_) + _%expr165100165148%_ + _%hd165101165150%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd164820164872%_)) - (let ((_%e164823164879%_ + (gx#stx-pair? _%hd165094165146%_)) + (let ((_%e165097165153%_ (let () (declare (not safe)) - (gx#stx-e _%hd164820164872%_)))) - (let ((_%lp-hd164824164882%_ + (gx#stx-e _%hd165094165146%_)))) + (let ((_%lp-hd165098165156%_ (let () (declare (not safe)) - (##car _%e164823164879%_))) - (_%lp-tl164825164884%_ + (##car _%e165097165153%_))) + (_%lp-tl165099165158%_ (let () (declare (not safe)) - (##cdr _%e164823164879%_)))) + (##cdr _%e165097165153%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd164824164882%_)) - (let ((_%e164833164887%_ + (gx#stx-pair? _%lp-hd165098165156%_)) + (let ((_%e165107165161%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd164824164882%_)))) - (let ((_%hd164834164890%_ + (gx#stx-e _%lp-hd165098165156%_)))) + (let ((_%hd165108165164%_ (let () (declare (not safe)) - (##car _%e164833164887%_))) - (_%tl164835164892%_ + (##car _%e165107165161%_))) + (_%tl165109165166%_ (let () (declare (not safe)) - (##cdr _%e164833164887%_)))) + (##cdr _%e165107165161%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164835164892%_)) - (let ((_%e164836164895%_ + (gx#stx-pair? _%tl165109165166%_)) + (let ((_%e165110165169%_ (let () (declare (not safe)) (gx#stx-e - _%tl164835164892%_)))) - (let ((_%hd164837164898%_ + _%tl165109165166%_)))) + (let ((_%hd165111165172%_ (let () (declare (not safe)) - (##car _%e164836164895%_))) - (_%tl164838164900%_ + (##car _%e165110165169%_))) + (_%tl165112165174%_ (let () (declare (not safe)) - (##cdr _%e164836164895%_)))) + (##cdr _%e165110165169%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164838164900%_)) - (_%loop164822164869%_ - _%lp-tl164825164884%_ - (cons _%hd164837164898%_ - _%expr164826164874%_) - (cons _%hd164834164890%_ - _%hd164827164876%_)) - (_%g164808164843%_ - _%g164809164846%_)))) - (_%g164808164843%_ - _%g164809164846%_)))) - (_%g164808164843%_ _%g164809164846%_)))) - (let ((_%expr164828164903%_ - (reverse _%expr164826164874%_)) - (_%hd164829164905%_ - (reverse _%hd164827164876%_))) + _%tl165112165174%_)) + (_%loop165096165143%_ + _%lp-tl165099165158%_ + (cons _%hd165111165172%_ + _%expr165100165148%_) + (cons _%hd165108165164%_ + _%hd165101165150%_)) + (_%g165082165117%_ + _%g165083165120%_)))) + (_%g165082165117%_ + _%g165083165120%_)))) + (_%g165082165117%_ _%g165083165120%_)))) + (let ((_%expr165102165177%_ + (reverse _%expr165100165148%_)) + (_%hd165103165179%_ + (reverse _%hd165101165150%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164818164861%_)) - (let ((_%e164830164908%_ + (gx#stx-pair? _%tl165092165135%_)) + (let ((_%e165104165182%_ (let () (declare (not safe)) - (gx#stx-e _%tl164818164861%_)))) - (let ((_%hd164831164911%_ + (gx#stx-e _%tl165092165135%_)))) + (let ((_%hd165105165185%_ (let () (declare (not safe)) - (##car _%e164830164908%_))) - (_%tl164832164913%_ + (##car _%e165104165182%_))) + (_%tl165106165187%_ (let () (declare (not safe)) - (##cdr _%e164830164908%_)))) + (##cdr _%e165104165182%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164832164913%_)) - ((lambda (_%L164916%_ - _%L164917%_ - _%L164918%_) - (let ((__tmp169523 + (gx#stx-null? _%tl165106165187%_)) + ((lambda (_%L165190%_ + _%L165191%_ + _%L165192%_) + (let ((__tmp169797 (lambda () (for-each - _%collect-e164806%_ - (let ((__tmp169524 - (lambda (_%g164939164942%_ + _%collect-e165080%_ + (let ((__tmp169798 + (lambda (_%g165213165216%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g164940164944%_) - (cons _%g164939164942%_ _%g164940164944%_)))) + _%g165214165218%_) + (cons _%g165213165216%_ _%g165214165218%_)))) (declare (not safe)) - (__foldr1 __tmp169524 '() _%L164918%_)) + (__foldr1 __tmp169798 '() _%L165192%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp169525 - (lambda (_%g164946164949%_ + (let ((__tmp169799 + (lambda (_%g165220165223%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g164947164951%_) - (cons _%g164946164949%_ _%g164947164951%_)))) + _%g165221165225%_) + (cons _%g165220165223%_ _%g165221165225%_)))) (declare (not safe)) - (__foldr1 __tmp169525 '() _%L164917%_))) + (__foldr1 __tmp169799 '() _%L165191%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g164953164955%_) + (lambda (_%g165227165229%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self164802%_ - _%g164953164955%_))) - (let ((__tmp169526 - (lambda (_%g164957164960%_ + _%self165076%_ + _%g165227165229%_))) + (let ((__tmp169800 + (lambda (_%g165231165234%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g164958164962%_) - (cons _%g164957164960%_ _%g164958164962%_)))) + _%g165232165236%_) + (cons _%g165231165234%_ _%g165232165236%_)))) (declare (not safe)) - (__foldr1 __tmp169526 '() _%L164917%_))) + (__foldr1 __tmp169800 '() _%L165191%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - _%collect-e164806%_ - (let ((__tmp169527 - (lambda (_%g164964164967%_ + _%collect-e165080%_ + (let ((__tmp169801 + (lambda (_%g165238165241%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g164965164969%_) - (cons _%g164964164967%_ _%g164965164969%_)))) + _%g165239165243%_) + (cons _%g165238165241%_ _%g165239165243%_)))) (declare (not safe)) - (__foldr1 __tmp169527 '() _%L164918%_)) + (__foldr1 __tmp169801 '() _%L165192%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp169528 - (lambda (_%g164971164974%_ + (let ((__tmp169802 + (lambda (_%g165245165248%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g164972164976%_) - (cons _%g164971164974%_ _%g164972164976%_)))) + _%g165246165250%_) + (cons _%g165245165248%_ _%g165246165250%_)))) (declare (not safe)) - (__foldr1 __tmp169528 '() _%L164917%_))) + (__foldr1 __tmp169802 '() _%L165191%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g164978164980%_) + (lambda (_%g165252165254%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self164802%_ - _%g164978164980%_))) - (let ((__tmp169529 - (lambda (_%g164982164985%_ + _%self165076%_ + _%g165252165254%_))) + (let ((__tmp169803 + (lambda (_%g165256165259%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g164983164987%_) - (cons _%g164982164985%_ _%g164983164987%_)))) + _%g165257165261%_) + (cons _%g165256165259%_ _%g165257165261%_)))) (declare (not safe)) - (__foldr1 __tmp169529 '() _%L164917%_))) + (__foldr1 __tmp169803 '() _%L165191%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#compile-e__1 - _%self164802%_ - _%L164916%_)))) - (__tmp169520 - (let ((__tmp169521 - (let ((__tmp169522 - (lambda (_%g164989164992%_ + _%self165076%_ + _%L165190%_)))) + (__tmp169794 + (let ((__tmp169795 + (let ((__tmp169796 + (lambda (_%g165263165266%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g164990164994%_) - (cons _%g164989164992%_ _%g164990164994%_)))) + _%g165264165268%_) + (cons _%g165263165266%_ _%g165264165268%_)))) (declare (not safe)) - (__foldr1 __tmp169522 '() _%L164918%_)))) + (__foldr1 __tmp169796 '() _%L165192%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp169521)))) + __tmp169795)))) (declare (not safe)) (__call-with-parameters - __tmp169523 + __tmp169797 gxc#current-compile-local-env - __tmp169520))) - _%hd164831164911%_ - _%expr164828164903%_ - _%hd164829164905%_) - (_%g164808164843%_ - _%g164809164846%_)))) - (_%g164808164843%_ _%g164809164846%_))))))) + __tmp169794))) + _%hd165105165185%_ + _%expr165102165177%_ + _%hd165103165179%_) + (_%g165082165117%_ + _%g165083165120%_)))) + (_%g165082165117%_ _%g165083165120%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop164822164869%_ - _%target164819164864%_ + (_%loop165096165143%_ + _%target165093165138%_ '() '())) - (_%g164808164843%_ - _%g164809164846%_))))) - (_%g164808164843%_ - _%g164809164846%_)))) - (_%g164808164843%_ _%g164809164846%_)))) - (_%g164808164843%_ _%g164809164846%_))))) - (_%g164807164997%_ _%stx164803%_))))) + (_%g165082165117%_ + _%g165083165120%_))))) + (_%g165082165117%_ + _%g165083165120%_)))) + (_%g165082165117%_ _%g165083165120%_)))) + (_%g165082165117%_ _%g165083165120%_))))) + (_%g165081165271%_ _%stx165077%_))))) (define gxc#collect-type-letrec-values%__0 - (lambda (_%self165059%_ _%stx165060%_) - (let ((_%expression-type165062%_ gxc#apply-basic-expression-type)) + (lambda (_%self165333%_ _%stx165334%_) + (let ((_%expression-type165336%_ gxc#apply-basic-expression-type)) (gxc#collect-type-letrec-values%__% - _%self165059%_ - _%stx165060%_ - _%expression-type165062%_)))) + _%self165333%_ + _%stx165334%_ + _%expression-type165336%_)))) (define gxc#collect-type-letrec-values% - (lambda _g169531_ - (let ((_g169530_ (let () (declare (not safe)) (##length _g169531_)))) - (cond ((let () (declare (not safe)) (##fx= _g169530_ 2)) - (apply gxc#collect-type-letrec-values%__0 _g169531_)) - ((let () (declare (not safe)) (##fx= _g169530_ 3)) - (apply gxc#collect-type-letrec-values%__% _g169531_)) + (lambda _g169805_ + (let ((_g169804_ (let () (declare (not safe)) (##length _g169805_)))) + (cond ((let () (declare (not safe)) (##fx= _g169804_ 2)) + (apply gxc#collect-type-letrec-values%__0 _g169805_)) + ((let () (declare (not safe)) (##fx= _g169804_ 3)) + (apply gxc#collect-type-letrec-values%__% _g169805_)) (else (##raise-wrong-number-of-arguments-exception gxc#collect-type-letrec-values% - _g169531_)))))) + _g169805_)))))) (define gxc#collect-top-level-type-let-values% - (lambda (_%self164798%_ _%stx164799%_) + (lambda (_%self165072%_ _%stx165073%_) (gxc#collect-type-let-values%__% - _%self164798%_ - _%stx164799%_ + _%self165072%_ + _%stx165073%_ gxc#apply-raw-expression-type))) (define gxc#collect-top-level-type-letrec-values% - (lambda (_%self164795%_ _%stx164796%_) + (lambda (_%self165069%_ _%stx165070%_) (gxc#collect-type-letrec-values%__% - _%self164795%_ - _%stx164796%_ + _%self165069%_ + _%stx165070%_ gxc#apply-raw-expression-type))) (define gxc#collect-top-level-type-call% - (lambda (_%self164282%_ _%stx164283%_) - (let* ((_%__stx166706166707%_ _%stx164283%_) - (_%g164287164402%_ + (lambda (_%self164556%_ _%stx164557%_) + (let* ((_%__stx166980166981%_ _%stx164557%_) + (_%g164561164676%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx166706166707%_))))) - (let ((_%__kont166708166709%_ - (lambda (_%L164745%_ - _%L164746%_ - _%L164747%_ - _%L164748%_ - _%L164749%_) - (let ((__tmp169535 + _%__stx166980166981%_))))) + (let ((_%__kont166982166983%_ + (lambda (_%L165019%_ + _%L165020%_ + _%L165021%_ + _%L165022%_ + _%L165023%_) + (let ((__tmp169809 (let () (declare (not safe)) - (gxc#identifier-symbol _%L164748%_))) - (__tmp169534 - (let () (declare (not safe)) (gx#stx-e _%L164747%_))) - (__tmp169533 + (gxc#identifier-symbol _%L165022%_))) + (__tmp169808 + (let () (declare (not safe)) (gx#stx-e _%L165021%_))) + (__tmp169807 (let () (declare (not safe)) - (gxc#identifier-symbol _%L164746%_))) - (__tmp169532 + (gxc#identifier-symbol _%L165020%_))) + (__tmp169806 (let () (declare (not safe)) - (gx#stx-e _%L164745%_)))) + (gx#stx-e _%L165019%_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp169535 - __tmp169534 - __tmp169533 - __tmp169532)))) - (_%__kont166710166711%_ - (lambda (_%L164573%_ _%L164574%_ _%L164575%_ _%L164576%_) - (let ((__tmp169538 + __tmp169809 + __tmp169808 + __tmp169807 + __tmp169806)))) + (_%__kont166984166985%_ + (lambda (_%L164847%_ _%L164848%_ _%L164849%_ _%L164850%_) + (let ((__tmp169812 (let () (declare (not safe)) - (gxc#identifier-symbol _%L164575%_))) - (__tmp169537 - (let () (declare (not safe)) (gx#stx-e _%L164574%_))) - (__tmp169536 + (gxc#identifier-symbol _%L164849%_))) + (__tmp169811 + (let () (declare (not safe)) (gx#stx-e _%L164848%_))) + (__tmp169810 (let () (declare (not safe)) - (gxc#identifier-symbol _%L164573%_)))) + (gxc#identifier-symbol _%L164847%_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp169538 - __tmp169537 - __tmp169536 + __tmp169812 + __tmp169811 + __tmp169810 '#f)))) - (_%__kont166712166713%_ - (lambda (_%L164439%_) + (_%__kont166986166987%_ + (lambda (_%L164713%_) (for-each - (lambda (_%g164452164454%_) + (lambda (_%g164726164728%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self164282%_ _%g164452164454%_))) - (let ((__tmp169539 - (lambda (_%g164456164459%_ _%g164457164461%_) - (cons _%g164456164459%_ _%g164457164461%_)))) + (gxc#compile-e__1 _%self164556%_ _%g164726164728%_))) + (let ((__tmp169813 + (lambda (_%g164730164733%_ _%g164731164735%_) + (cons _%g164730164733%_ _%g164731164735%_)))) (declare (not safe)) - (__foldr1 __tmp169539 '() _%L164439%_)))))) - (let* ((_%__match166963166964%_ - (lambda (_%e164386164407%_ - _%hd164387164410%_ - _%tl164388164412%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) - (letrec ((_%loop164392164420%_ - (lambda (_%hd164390164423%_ - _%expr164396164425%_) + (__foldr1 __tmp169813 '() _%L164713%_)))))) + (let* ((_%__match167237167238%_ + (lambda (_%e164660164681%_ + _%hd164661164684%_ + _%tl164662164686%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) + (letrec ((_%loop164666164694%_ + (lambda (_%hd164664164697%_ + _%expr164670164699%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd164390164423%_)) - (let ((_%e164393164428%_ + (gx#stx-pair? _%hd164664164697%_)) + (let ((_%e164667164702%_ (let () (declare (not safe)) - (gx#stx-e _%hd164390164423%_)))) - (let ((_%lp-tl164395164433%_ + (gx#stx-e _%hd164664164697%_)))) + (let ((_%lp-tl164669164707%_ (let () (declare (not safe)) - (##cdr _%e164393164428%_))) - (_%lp-hd164394164431%_ + (##cdr _%e164667164702%_))) + (_%lp-hd164668164705%_ (let () (declare (not safe)) - (##car _%e164393164428%_)))) - (_%loop164392164420%_ - _%lp-tl164395164433%_ - (cons _%lp-hd164394164431%_ - _%expr164396164425%_)))) - (let ((_%expr164397164436%_ - (reverse _%expr164396164425%_))) - (_%__kont166712166713%_ - _%expr164397164436%_)))))) - (_%loop164392164420%_ _%target164389164415%_ '())))) - (_%__match166843166844%_ - (lambda (_%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%e164297164625%_ - _%hd164298164628%_ - _%tl164299164630%_ - _%e164300164633%_ - _%hd164301164636%_ - _%tl164302164638%_ - _%e164303164641%_ - _%hd164304164644%_ - _%tl164305164646%_ - _%e164306164649%_ - _%hd164307164652%_ - _%tl164308164654%_ - _%e164309164657%_ - _%hd164310164660%_ - _%tl164311164662%_ - _%e164312164665%_ - _%hd164313164668%_ - _%tl164314164670%_ - _%e164315164673%_ - _%hd164316164676%_ - _%tl164317164678%_ - _%e164318164681%_ - _%hd164319164684%_ - _%tl164320164686%_ - _%e164321164689%_ - _%hd164322164692%_ - _%tl164323164694%_ - _%e164324164697%_ - _%hd164325164700%_ - _%tl164326164702%_ - _%e164327164705%_ - _%hd164328164708%_ - _%tl164329164710%_ - _%e164330164713%_ - _%hd164331164716%_ - _%tl164332164718%_ - _%e164333164721%_ - _%hd164334164724%_ - _%tl164335164726%_ - _%e164336164729%_ - _%hd164337164732%_ - _%tl164338164734%_ - _%e164339164737%_ - _%hd164340164740%_ - _%tl164341164742%_) - (let ((_%L164745%_ _%hd164340164740%_) - (_%L164746%_ _%hd164331164716%_) - (_%L164747%_ _%hd164322164692%_) - (_%L164748%_ _%hd164313164668%_) - (_%L164749%_ _%hd164304164644%_)) + (##car _%e164667164702%_)))) + (_%loop164666164694%_ + _%lp-tl164669164707%_ + (cons _%lp-hd164668164705%_ + _%expr164670164699%_)))) + (let ((_%expr164671164710%_ + (reverse _%expr164670164699%_))) + (_%__kont166986166987%_ + _%expr164671164710%_)))))) + (_%loop164666164694%_ _%target164663164689%_ '())))) + (_%__match167117167118%_ + (lambda (_%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%e164571164899%_ + _%hd164572164902%_ + _%tl164573164904%_ + _%e164574164907%_ + _%hd164575164910%_ + _%tl164576164912%_ + _%e164577164915%_ + _%hd164578164918%_ + _%tl164579164920%_ + _%e164580164923%_ + _%hd164581164926%_ + _%tl164582164928%_ + _%e164583164931%_ + _%hd164584164934%_ + _%tl164585164936%_ + _%e164586164939%_ + _%hd164587164942%_ + _%tl164588164944%_ + _%e164589164947%_ + _%hd164590164950%_ + _%tl164591164952%_ + _%e164592164955%_ + _%hd164593164958%_ + _%tl164594164960%_ + _%e164595164963%_ + _%hd164596164966%_ + _%tl164597164968%_ + _%e164598164971%_ + _%hd164599164974%_ + _%tl164600164976%_ + _%e164601164979%_ + _%hd164602164982%_ + _%tl164603164984%_ + _%e164604164987%_ + _%hd164605164990%_ + _%tl164606164992%_ + _%e164607164995%_ + _%hd164608164998%_ + _%tl164609165000%_ + _%e164610165003%_ + _%hd164611165006%_ + _%tl164612165008%_ + _%e164613165011%_ + _%hd164614165014%_ + _%tl164615165016%_) + (let ((_%L165019%_ _%hd164614165014%_) + (_%L165020%_ _%hd164605164990%_) + (_%L165021%_ _%hd164596164966%_) + (_%L165022%_ _%hd164587164942%_) + (_%L165023%_ _%hd164578164918%_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L164749%_ + _%L165023%_ 'bind-method!)) - (_%__kont166708166709%_ - _%L164745%_ - _%L164746%_ - _%L164747%_ - _%L164748%_ - _%L164749%_) + (_%__kont166982166983%_ + _%L165019%_ + _%L165020%_ + _%L165021%_ + _%L165022%_ + _%L165023%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + (gx#stx-pair/null? _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '1))) - (_%target164389164415%_ + (_%target164663164689%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + (gx#stx-null? _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) + (_%g164561164676%_))))) (let () (declare (not safe)) - (_%g164287164402%_)))))))) + (_%g164561164676%_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx166706166707%_)) - (let ((_%e164294164617%_ + (gx#stx-pair? _%__stx166980166981%_)) + (let ((_%e164568164891%_ (let () (declare (not safe)) - (gx#stx-e _%__stx166706166707%_)))) - (let ((_%tl164296164622%_ + (gx#stx-e _%__stx166980166981%_)))) + (let ((_%tl164570164896%_ (let () (declare (not safe)) - (##cdr _%e164294164617%_))) - (_%hd164295164620%_ + (##cdr _%e164568164891%_))) + (_%hd164569164894%_ (let () (declare (not safe)) - (##car _%e164294164617%_)))) + (##car _%e164568164891%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164296164622%_)) - (let ((_%e164297164625%_ + (gx#stx-pair? _%tl164570164896%_)) + (let ((_%e164571164899%_ (let () (declare (not safe)) - (gx#stx-e _%tl164296164622%_)))) - (let ((_%tl164299164630%_ + (gx#stx-e _%tl164570164896%_)))) + (let ((_%tl164573164904%_ (let () (declare (not safe)) - (##cdr _%e164297164625%_))) - (_%hd164298164628%_ + (##cdr _%e164571164899%_))) + (_%hd164572164902%_ (let () (declare (not safe)) - (##car _%e164297164625%_)))) + (##car _%e164571164899%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd164298164628%_)) - (let ((_%e164300164633%_ + (gx#stx-pair? _%hd164572164902%_)) + (let ((_%e164574164907%_ (let () (declare (not safe)) - (gx#stx-e _%hd164298164628%_)))) - (let ((_%tl164302164638%_ + (gx#stx-e _%hd164572164902%_)))) + (let ((_%tl164576164912%_ (let () (declare (not safe)) - (##cdr _%e164300164633%_))) - (_%hd164301164636%_ + (##cdr _%e164574164907%_))) + (_%hd164575164910%_ (let () (declare (not safe)) - (##car _%e164300164633%_)))) + (##car _%e164574164907%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd164301164636%_)) + _%hd164575164910%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd164301164636%_)) + _%hd164575164910%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164302164638%_)) - (let ((_%e164303164641%_ + _%tl164576164912%_)) + (let ((_%e164577164915%_ (let () (declare (not safe)) (gx#stx-e - _%tl164302164638%_)))) - (let ((_%tl164305164646%_ + _%tl164576164912%_)))) + (let ((_%tl164579164920%_ (let () (declare (not safe)) - (##cdr _%e164303164641%_))) - (_%hd164304164644%_ + (##cdr _%e164577164915%_))) + (_%hd164578164918%_ (let () (declare (not safe)) - (##car _%e164303164641%_)))) + (##car _%e164577164915%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164305164646%_)) + _%tl164579164920%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl164299164630%_)) - (let ((_%e164306164649%_ + (gx#stx-pair? _%tl164573164904%_)) + (let ((_%e164580164923%_ (let () (declare (not safe)) - (gx#stx-e _%tl164299164630%_)))) - (let ((_%tl164308164654%_ + (gx#stx-e _%tl164573164904%_)))) + (let ((_%tl164582164928%_ (let () (declare (not safe)) - (##cdr _%e164306164649%_))) - (_%hd164307164652%_ + (##cdr _%e164580164923%_))) + (_%hd164581164926%_ (let () (declare (not safe)) - (##car _%e164306164649%_)))) + (##car _%e164580164923%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd164307164652%_)) - (let ((_%e164309164657%_ + (gx#stx-pair? _%hd164581164926%_)) + (let ((_%e164583164931%_ (let () (declare (not safe)) - (gx#stx-e _%hd164307164652%_)))) - (let ((_%tl164311164662%_ + (gx#stx-e _%hd164581164926%_)))) + (let ((_%tl164585164936%_ (let () (declare (not safe)) - (##cdr _%e164309164657%_))) - (_%hd164310164660%_ + (##cdr _%e164583164931%_))) + (_%hd164584164934%_ (let () (declare (not safe)) - (##car _%e164309164657%_)))) + (##car _%e164583164931%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd164310164660%_)) + (gx#identifier? _%hd164584164934%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd164310164660%_)) + _%hd164584164934%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164311164662%_)) - (let ((_%e164312164665%_ + _%tl164585164936%_)) + (let ((_%e164586164939%_ (let () (declare (not safe)) (gx#stx-e - _%tl164311164662%_)))) - (let ((_%tl164314164670%_ + _%tl164585164936%_)))) + (let ((_%tl164588164944%_ (let () (declare (not safe)) - (##cdr _%e164312164665%_))) - (_%hd164313164668%_ + (##cdr _%e164586164939%_))) + (_%hd164587164942%_ (let () (declare (not safe)) - (##car _%e164312164665%_)))) + (##car _%e164586164939%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164314164670%_)) + _%tl164588164944%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164308164654%_)) - (let ((_%e164315164673%_ + _%tl164582164928%_)) + (let ((_%e164589164947%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl164308164654%_)))) - (let ((_%tl164317164678%_ + (gx#stx-e _%tl164582164928%_)))) + (let ((_%tl164591164952%_ (let () (declare (not safe)) - (##cdr _%e164315164673%_))) - (_%hd164316164676%_ + (##cdr _%e164589164947%_))) + (_%hd164590164950%_ (let () (declare (not safe)) - (##car _%e164315164673%_)))) + (##car _%e164589164947%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd164316164676%_)) - (let ((_%e164318164681%_ + (gx#stx-pair? _%hd164590164950%_)) + (let ((_%e164592164955%_ (let () (declare (not safe)) - (gx#stx-e _%hd164316164676%_)))) - (let ((_%tl164320164686%_ + (gx#stx-e _%hd164590164950%_)))) + (let ((_%tl164594164960%_ (let () (declare (not safe)) - (##cdr _%e164318164681%_))) - (_%hd164319164684%_ + (##cdr _%e164592164955%_))) + (_%hd164593164958%_ (let () (declare (not safe)) - (##car _%e164318164681%_)))) + (##car _%e164592164955%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd164319164684%_)) + (gx#identifier? _%hd164593164958%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd164319164684%_)) + _%hd164593164958%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164320164686%_)) - (let ((_%e164321164689%_ + (gx#stx-pair? _%tl164594164960%_)) + (let ((_%e164595164963%_ (let () (declare (not safe)) (gx#stx-e - _%tl164320164686%_)))) - (let ((_%tl164323164694%_ + _%tl164594164960%_)))) + (let ((_%tl164597164968%_ (let () (declare (not safe)) - (##cdr _%e164321164689%_))) - (_%hd164322164692%_ + (##cdr _%e164595164963%_))) + (_%hd164596164966%_ (let () (declare (not safe)) - (##car _%e164321164689%_)))) + (##car _%e164595164963%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164323164694%_)) + _%tl164597164968%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164317164678%_)) - (let ((_%e164324164697%_ + _%tl164591164952%_)) + (let ((_%e164598164971%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl164317164678%_)))) - (let ((_%tl164326164702%_ - (let () (declare (not safe)) (##cdr _%e164324164697%_))) - (_%hd164325164700%_ + (gx#stx-e _%tl164591164952%_)))) + (let ((_%tl164600164976%_ + (let () (declare (not safe)) (##cdr _%e164598164971%_))) + (_%hd164599164974%_ (let () (declare (not safe)) - (##car _%e164324164697%_)))) + (##car _%e164598164971%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd164325164700%_)) - (let ((_%e164327164705%_ + (gx#stx-pair? _%hd164599164974%_)) + (let ((_%e164601164979%_ (let () (declare (not safe)) - (gx#stx-e _%hd164325164700%_)))) - (let ((_%tl164329164710%_ + (gx#stx-e _%hd164599164974%_)))) + (let ((_%tl164603164984%_ (let () (declare (not safe)) - (##cdr _%e164327164705%_))) - (_%hd164328164708%_ + (##cdr _%e164601164979%_))) + (_%hd164602164982%_ (let () (declare (not safe)) - (##car _%e164327164705%_)))) + (##car _%e164601164979%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd164328164708%_)) + (gx#identifier? _%hd164602164982%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd164328164708%_)) + (gx#stx-eq? '%#ref _%hd164602164982%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164329164710%_)) - (let ((_%e164330164713%_ + (gx#stx-pair? _%tl164603164984%_)) + (let ((_%e164604164987%_ (let () (declare (not safe)) - (gx#stx-e _%tl164329164710%_)))) - (let ((_%tl164332164718%_ + (gx#stx-e _%tl164603164984%_)))) + (let ((_%tl164606164992%_ (let () (declare (not safe)) - (##cdr _%e164330164713%_))) - (_%hd164331164716%_ + (##cdr _%e164604164987%_))) + (_%hd164605164990%_ (let () (declare (not safe)) - (##car _%e164330164713%_)))) + (##car _%e164604164987%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164332164718%_)) + _%tl164606164992%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164326164702%_)) - (let ((_%e164333164721%_ + _%tl164600164976%_)) + (let ((_%e164607164995%_ (let () (declare (not safe)) (gx#stx-e - _%tl164326164702%_)))) - (let ((_%tl164335164726%_ + _%tl164600164976%_)))) + (let ((_%tl164609165000%_ (let () (declare (not safe)) - (##cdr _%e164333164721%_))) - (_%hd164334164724%_ + (##cdr _%e164607164995%_))) + (_%hd164608164998%_ (let () (declare (not safe)) - (##car _%e164333164721%_)))) + (##car _%e164607164995%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd164334164724%_)) - (let ((_%e164336164729%_ + _%hd164608164998%_)) + (let ((_%e164610165003%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd164334164724%_)))) - (let ((_%tl164338164734%_ + (gx#stx-e _%hd164608164998%_)))) + (let ((_%tl164612165008%_ (let () (declare (not safe)) - (##cdr _%e164336164729%_))) - (_%hd164337164732%_ + (##cdr _%e164610165003%_))) + (_%hd164611165006%_ (let () (declare (not safe)) - (##car _%e164336164729%_)))) + (##car _%e164610165003%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd164337164732%_)) + (gx#identifier? _%hd164611165006%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd164337164732%_)) + (gx#stx-eq? '%#quote _%hd164611165006%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164338164734%_)) - (let ((_%e164339164737%_ + (gx#stx-pair? _%tl164612165008%_)) + (let ((_%e164613165011%_ (let () (declare (not safe)) - (gx#stx-e _%tl164338164734%_)))) - (let ((_%tl164341164742%_ + (gx#stx-e _%tl164612165008%_)))) + (let ((_%tl164615165016%_ (let () (declare (not safe)) - (##cdr _%e164339164737%_))) - (_%hd164340164740%_ + (##cdr _%e164613165011%_))) + (_%hd164614165014%_ (let () (declare (not safe)) - (##car _%e164339164737%_)))) + (##car _%e164613165011%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164341164742%_)) + (gx#stx-null? _%tl164615165016%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164335164726%_)) - (_%__match166843166844%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%e164297164625%_ - _%hd164298164628%_ - _%tl164299164630%_ - _%e164300164633%_ - _%hd164301164636%_ - _%tl164302164638%_ - _%e164303164641%_ - _%hd164304164644%_ - _%tl164305164646%_ - _%e164306164649%_ - _%hd164307164652%_ - _%tl164308164654%_ - _%e164309164657%_ - _%hd164310164660%_ - _%tl164311164662%_ - _%e164312164665%_ - _%hd164313164668%_ - _%tl164314164670%_ - _%e164315164673%_ - _%hd164316164676%_ - _%tl164317164678%_ - _%e164318164681%_ - _%hd164319164684%_ - _%tl164320164686%_ - _%e164321164689%_ - _%hd164322164692%_ - _%tl164323164694%_ - _%e164324164697%_ - _%hd164325164700%_ - _%tl164326164702%_ - _%e164327164705%_ - _%hd164328164708%_ - _%tl164329164710%_ - _%e164330164713%_ - _%hd164331164716%_ - _%tl164332164718%_ - _%e164333164721%_ - _%hd164334164724%_ - _%tl164335164726%_ - _%e164336164729%_ - _%hd164337164732%_ - _%tl164338164734%_ - _%e164339164737%_ - _%hd164340164740%_ - _%tl164341164742%_) + _%tl164609165000%_)) + (_%__match167117167118%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%e164571164899%_ + _%hd164572164902%_ + _%tl164573164904%_ + _%e164574164907%_ + _%hd164575164910%_ + _%tl164576164912%_ + _%e164577164915%_ + _%hd164578164918%_ + _%tl164579164920%_ + _%e164580164923%_ + _%hd164581164926%_ + _%tl164582164928%_ + _%e164583164931%_ + _%hd164584164934%_ + _%tl164585164936%_ + _%e164586164939%_ + _%hd164587164942%_ + _%tl164588164944%_ + _%e164589164947%_ + _%hd164590164950%_ + _%tl164591164952%_ + _%e164592164955%_ + _%hd164593164958%_ + _%tl164594164960%_ + _%e164595164963%_ + _%hd164596164966%_ + _%tl164597164968%_ + _%e164598164971%_ + _%hd164599164974%_ + _%tl164600164976%_ + _%e164601164979%_ + _%hd164602164982%_ + _%tl164603164984%_ + _%e164604164987%_ + _%hd164605164990%_ + _%tl164606164992%_ + _%e164607164995%_ + _%hd164608164998%_ + _%tl164609165000%_ + _%e164610165003%_ + _%hd164611165006%_ + _%tl164612165008%_ + _%e164613165011%_ + _%hd164614165014%_ + _%tl164615165016%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '1))) - (_%target164389164415%_ + (_%target164663164689%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) + (_%g164561164676%_))))) (let () (declare (not safe)) - (_%g164287164402%_)))) + (_%g164561164676%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '1))) - (_%target164389164415%_ + (_%target164663164689%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) + (_%g164561164676%_))))) (let () (declare (not safe)) - (_%g164287164402%_)))))) + (_%g164561164676%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + (gx#stx-pair/null? _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '1))) - (_%target164389164415%_ + (_%target164663164689%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) + (_%g164561164676%_))))) (let () (declare (not safe)) - (_%g164287164402%_)))) + (_%g164561164676%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + (gx#stx-pair/null? _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '1))) - (_%target164389164415%_ + (_%target164663164689%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + (gx#stx-null? _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) + (_%g164561164676%_))))) (let () (declare (not safe)) - (_%g164287164402%_)))) + (_%g164561164676%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + (gx#stx-pair/null? _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '1))) - (_%target164389164415%_ + (_%target164663164689%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + (gx#stx-null? _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) + (_%g164561164676%_))))) (let () (declare (not safe)) - (_%g164287164402%_)))))) + (_%g164561164676%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + (gx#stx-pair/null? _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) - (##vector-ref _%__splice166714166715%_ '1))) - (_%target164389164415%_ + (##vector-ref _%__splice166988166989%_ '1))) + (_%target164663164689%_ (let () (declare (not safe)) - (##vector-ref _%__splice166714166715%_ '0)))) + (##vector-ref _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + (gx#stx-null? _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) - (let () (declare (not safe)) (_%g164287164402%_)))))) + (_%g164561164676%_))))) + (let () (declare (not safe)) (_%g164561164676%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _%tl164326164702%_)) - (if (let ((__tmp169540 + _%tl164600164976%_)) + (if (let ((__tmp169814 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp169540 'bind-method!)) - (let ((_%L164573%_ _%hd164331164716%_) - (_%L164574%_ _%hd164322164692%_) - (_%L164575%_ _%hd164313164668%_) - (_%L164576%_ _%hd164304164644%_)) - (_%__kont166710166711%_ - _%L164573%_ - _%L164574%_ - _%L164575%_ - _%L164576%_)) + (gxc#runtime-identifier=? __tmp169814 'bind-method!)) + (let ((_%L164847%_ _%hd164605164990%_) + (_%L164848%_ _%hd164596164966%_) + (_%L164849%_ _%hd164587164942%_) + (_%L164850%_ _%hd164578164918%_)) + (_%__kont166984166985%_ + _%L164847%_ + _%L164848%_ + _%L164849%_ + _%L164850%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + (gx#stx-pair/null? _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) - (##vector-ref _%__splice166714166715%_ '1))) - (_%target164389164415%_ + (##vector-ref _%__splice166988166989%_ '1))) + (_%target164663164689%_ (let () (declare (not safe)) - (##vector-ref _%__splice166714166715%_ '0)))) + (##vector-ref _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + (gx#stx-null? _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) - (let () (declare (not safe)) (_%g164287164402%_)))) + (_%g164561164676%_))))) + (let () (declare (not safe)) (_%g164561164676%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + (gx#stx-pair/null? _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl164296164622%_ '0)))) - (let ((_%tl164391164417%_ + (gx#syntax-split-splice _%tl164570164896%_ '0)))) + (let ((_%tl164665164691%_ (let () (declare (not safe)) - (##vector-ref _%__splice166714166715%_ '1))) - (_%target164389164415%_ + (##vector-ref _%__splice166988166989%_ '1))) + (_%target164663164689%_ (let () (declare (not safe)) - (##vector-ref _%__splice166714166715%_ '0)))) + (##vector-ref _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) - (let () (declare (not safe)) (_%g164287164402%_))))) - (let () (declare (not safe)) (_%g164287164402%_))))) + (gx#stx-null? _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) + (let () (declare (not safe)) (_%g164561164676%_))))) + (let () (declare (not safe)) (_%g164561164676%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '1))) - (_%target164389164415%_ + (_%target164663164689%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) + (_%g164561164676%_))))) (let () (declare (not safe)) - (_%g164287164402%_)))))) + (_%g164561164676%_)))))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '1))) - (_%target164389164415%_ + (_%target164663164689%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) + (_%g164561164676%_))))) (let () (declare (not safe)) - (_%g164287164402%_)))) + (_%g164561164676%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + (gx#stx-pair/null? _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '1))) - (_%target164389164415%_ + (_%target164663164689%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) + (_%g164561164676%_))))) (let () (declare (not safe)) - (_%g164287164402%_)))) + (_%g164561164676%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + (gx#stx-pair/null? _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '1))) - (_%target164389164415%_ + (_%target164663164689%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + (gx#stx-null? _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) + (_%g164561164676%_))))) (let () (declare (not safe)) - (_%g164287164402%_)))))) + (_%g164561164676%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + (gx#stx-pair/null? _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '1))) - (_%target164389164415%_ + (_%target164663164689%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + (gx#stx-null? _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) - (let () (declare (not safe)) (_%g164287164402%_)))))) + (_%g164561164676%_))))) + (let () (declare (not safe)) (_%g164561164676%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + (gx#stx-pair/null? _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl164296164622%_ '0)))) - (let ((_%tl164391164417%_ + (gx#syntax-split-splice _%tl164570164896%_ '0)))) + (let ((_%tl164665164691%_ (let () (declare (not safe)) - (##vector-ref _%__splice166714166715%_ '1))) - (_%target164389164415%_ + (##vector-ref _%__splice166988166989%_ '1))) + (_%target164663164689%_ (let () (declare (not safe)) - (##vector-ref _%__splice166714166715%_ '0)))) + (##vector-ref _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) - (let () (declare (not safe)) (_%g164287164402%_))))) - (let () (declare (not safe)) (_%g164287164402%_)))) + (gx#stx-null? _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) + (let () (declare (not safe)) (_%g164561164676%_))))) + (let () (declare (not safe)) (_%g164561164676%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl164296164622%_ '0)))) - (let ((_%tl164391164417%_ + (gx#syntax-split-splice _%tl164570164896%_ '0)))) + (let ((_%tl164665164691%_ (let () (declare (not safe)) - (##vector-ref _%__splice166714166715%_ '1))) - (_%target164389164415%_ + (##vector-ref _%__splice166988166989%_ '1))) + (_%target164663164689%_ (let () (declare (not safe)) - (##vector-ref _%__splice166714166715%_ '0)))) + (##vector-ref _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) - (let () (declare (not safe)) (_%g164287164402%_))))) - (let () (declare (not safe)) (_%g164287164402%_)))))) + (gx#stx-null? _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) + (let () (declare (not safe)) (_%g164561164676%_))))) + (let () (declare (not safe)) (_%g164561164676%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '1))) - (_%target164389164415%_ + (_%target164663164689%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) + (_%g164561164676%_))))) (let () (declare (not safe)) - (_%g164287164402%_)))) + (_%g164561164676%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '1))) - (_%target164389164415%_ + (_%target164663164689%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) + (_%g164561164676%_))))) (let () (declare (not safe)) - (_%g164287164402%_)))) + (_%g164561164676%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + (gx#stx-pair/null? _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '1))) - (_%target164389164415%_ + (_%target164663164689%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) + (_%g164561164676%_))))) (let () (declare (not safe)) - (_%g164287164402%_)))))) + (_%g164561164676%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + (gx#stx-pair/null? _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '1))) - (_%target164389164415%_ + (_%target164663164689%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + (gx#stx-null? _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) + (_%g164561164676%_))))) (let () (declare (not safe)) - (_%g164287164402%_)))))) + (_%g164561164676%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + (gx#stx-pair/null? _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) - (##vector-ref _%__splice166714166715%_ '1))) - (_%target164389164415%_ + (##vector-ref _%__splice166988166989%_ '1))) + (_%target164663164689%_ (let () (declare (not safe)) - (##vector-ref _%__splice166714166715%_ '0)))) + (##vector-ref _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + (gx#stx-null? _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) - (let () (declare (not safe)) (_%g164287164402%_)))) + (_%g164561164676%_))))) + (let () (declare (not safe)) (_%g164561164676%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + (gx#stx-pair/null? _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl164296164622%_ '0)))) - (let ((_%tl164391164417%_ + (gx#syntax-split-splice _%tl164570164896%_ '0)))) + (let ((_%tl164665164691%_ (let () (declare (not safe)) - (##vector-ref _%__splice166714166715%_ '1))) - (_%target164389164415%_ + (##vector-ref _%__splice166988166989%_ '1))) + (_%target164663164689%_ (let () (declare (not safe)) - (##vector-ref _%__splice166714166715%_ '0)))) + (##vector-ref _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) - (let () (declare (not safe)) (_%g164287164402%_))))) - (let () (declare (not safe)) (_%g164287164402%_)))))) + (gx#stx-null? _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) + (let () (declare (not safe)) (_%g164561164676%_))))) + (let () (declare (not safe)) (_%g164561164676%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '1))) - (_%target164389164415%_ + (_%target164663164689%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) + (_%g164561164676%_))))) (let () (declare (not safe)) - (_%g164287164402%_)))) + (_%g164561164676%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '1))) - (_%target164389164415%_ + (_%target164663164689%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) + (_%g164561164676%_))))) (let () (declare (not safe)) - (_%g164287164402%_)))) + (_%g164561164676%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '1))) - (_%target164389164415%_ + (_%target164663164689%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) + (_%g164561164676%_))))) (let () (declare (not safe)) - (_%g164287164402%_)))))) + (_%g164561164676%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + (gx#stx-pair/null? _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '1))) - (_%target164389164415%_ + (_%target164663164689%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + (gx#stx-null? _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) + (_%g164561164676%_))))) (let () (declare (not safe)) - (_%g164287164402%_)))))) + (_%g164561164676%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + (gx#stx-pair/null? _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '1))) - (_%target164389164415%_ + (_%target164663164689%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + (gx#stx-null? _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) - (let () (declare (not safe)) (_%g164287164402%_)))) + (_%g164561164676%_))))) + (let () (declare (not safe)) (_%g164561164676%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + (gx#stx-pair/null? _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) - (##vector-ref _%__splice166714166715%_ '1))) - (_%target164389164415%_ + (##vector-ref _%__splice166988166989%_ '1))) + (_%target164663164689%_ (let () (declare (not safe)) - (##vector-ref _%__splice166714166715%_ '0)))) + (##vector-ref _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + (gx#stx-null? _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) - (let () (declare (not safe)) (_%g164287164402%_)))))) + (_%g164561164676%_))))) + (let () (declare (not safe)) (_%g164561164676%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl164296164622%_ '0)))) - (let ((_%tl164391164417%_ + (gx#syntax-split-splice _%tl164570164896%_ '0)))) + (let ((_%tl164665164691%_ (let () (declare (not safe)) - (##vector-ref _%__splice166714166715%_ '1))) - (_%target164389164415%_ + (##vector-ref _%__splice166988166989%_ '1))) + (_%target164663164689%_ (let () (declare (not safe)) - (##vector-ref _%__splice166714166715%_ '0)))) + (##vector-ref _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) - (let () (declare (not safe)) (_%g164287164402%_))))) - (let () (declare (not safe)) (_%g164287164402%_)))) + (gx#stx-null? _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) + (let () (declare (not safe)) (_%g164561164676%_))))) + (let () (declare (not safe)) (_%g164561164676%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '1))) - (_%target164389164415%_ + (_%target164663164689%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) + (_%g164561164676%_))))) (let () (declare (not safe)) - (_%g164287164402%_)))) + (_%g164561164676%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '1))) - (_%target164389164415%_ + (_%target164663164689%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) + (_%g164561164676%_))))) (let () (declare (not safe)) - (_%g164287164402%_)))))) + (_%g164561164676%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + (gx#stx-pair/null? _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '1))) - (_%target164389164415%_ + (_%target164663164689%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) + (_%g164561164676%_))))) (let () (declare (not safe)) - (_%g164287164402%_)))))) + (_%g164561164676%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164296164622%_)) - (let ((_%__splice166714166715%_ + (gx#stx-pair/null? _%tl164570164896%_)) + (let ((_%__splice166988166989%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164296164622%_ + _%tl164570164896%_ '0)))) - (let ((_%tl164391164417%_ + (let ((_%tl164665164691%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '1))) - (_%target164389164415%_ + (_%target164663164689%_ (let () (declare (not safe)) (##vector-ref - _%__splice166714166715%_ + _%__splice166988166989%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164391164417%_)) - (_%__match166963166964%_ - _%e164294164617%_ - _%hd164295164620%_ - _%tl164296164622%_ - _%__splice166714166715%_ - _%target164389164415%_ - _%tl164391164417%_) + (gx#stx-null? _%tl164665164691%_)) + (_%__match167237167238%_ + _%e164568164891%_ + _%hd164569164894%_ + _%tl164570164896%_ + _%__splice166988166989%_ + _%target164663164689%_ + _%tl164665164691%_) (let () (declare (not safe)) - (_%g164287164402%_))))) + (_%g164561164676%_))))) (let () (declare (not safe)) - (_%g164287164402%_)))))) - (let () (declare (not safe)) (_%g164287164402%_)))))))) + (_%g164561164676%_)))))) + (let () (declare (not safe)) (_%g164561164676%_)))))))) (define gxc#collect-type-setq% - (lambda (_%self164205%_ _%stx164206%_) - (let* ((_%g164208164225%_ - (lambda (_%g164209164222%_) + (lambda (_%self164479%_ _%stx164480%_) + (let* ((_%g164482164499%_ + (lambda (_%g164483164496%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164209164222%_)))) - (_%g164207164279%_ - (lambda (_%g164209164228%_) + _%g164483164496%_)))) + (_%g164481164553%_ + (lambda (_%g164483164502%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164209164228%_)) - (let ((_%e164212164230%_ + (gx#stx-pair? _%g164483164502%_)) + (let ((_%e164486164504%_ (let () (declare (not safe)) - (gx#stx-e _%g164209164228%_)))) - (let ((_%hd164213164233%_ + (gx#stx-e _%g164483164502%_)))) + (let ((_%hd164487164507%_ (let () (declare (not safe)) - (##car _%e164212164230%_))) - (_%tl164214164235%_ + (##car _%e164486164504%_))) + (_%tl164488164509%_ (let () (declare (not safe)) - (##cdr _%e164212164230%_)))) + (##cdr _%e164486164504%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164214164235%_)) - (let ((_%e164215164238%_ + (gx#stx-pair? _%tl164488164509%_)) + (let ((_%e164489164512%_ (let () (declare (not safe)) - (gx#stx-e _%tl164214164235%_)))) - (let ((_%hd164216164241%_ + (gx#stx-e _%tl164488164509%_)))) + (let ((_%hd164490164515%_ (let () (declare (not safe)) - (##car _%e164215164238%_))) - (_%tl164217164243%_ + (##car _%e164489164512%_))) + (_%tl164491164517%_ (let () (declare (not safe)) - (##cdr _%e164215164238%_)))) + (##cdr _%e164489164512%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164217164243%_)) - (let ((_%e164218164246%_ + (gx#stx-pair? _%tl164491164517%_)) + (let ((_%e164492164520%_ (let () (declare (not safe)) - (gx#stx-e _%tl164217164243%_)))) - (let ((_%hd164219164249%_ + (gx#stx-e _%tl164491164517%_)))) + (let ((_%hd164493164523%_ (let () (declare (not safe)) - (##car _%e164218164246%_))) - (_%tl164220164251%_ + (##car _%e164492164520%_))) + (_%tl164494164525%_ (let () (declare (not safe)) - (##cdr _%e164218164246%_)))) + (##cdr _%e164492164520%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164220164251%_)) - ((lambda (_%L164254%_ - _%L164255%_) - (let* ((_%sym164270%_ + _%tl164494164525%_)) + ((lambda (_%L164528%_ + _%L164529%_) + (let* ((_%sym164544%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L164255%_))) - (_%bind-type164272%_ + _%L164529%_))) + (_%bind-type164546%_ (let () (declare (not safe)) (gxc#optimizer-resolve-type - _%sym164270%_))) - (_%expr-type164274%_ + _%sym164544%_))) + (_%expr-type164548%_ (gxc#apply-basic-expression-type - _%L164254%_)) - (_%reduced-type164276%_ + _%L164528%_)) + (_%reduced-type164550%_ (gxc#greatest-common-type - _%stx164206%_ - _%bind-type164272%_ - _%expr-type164274%_))) - (if _%reduced-type164276%_ - (let ((__tmp169541 - (memq _%sym164270%_ + _%stx164480%_ + _%bind-type164546%_ + _%expr-type164548%_))) + (if _%reduced-type164550%_ + (let ((__tmp169815 + (memq _%sym164544%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#current-compile-local-env))))) (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym164270%_ - _%reduced-type164276%_ - __tmp169541)) + _%sym164544%_ + _%reduced-type164550%_ + __tmp169815)) '#!void) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#compile-e__1 - _%self164205%_ - _%L164254%_)))) - _%hd164219164249%_ - _%hd164216164241%_) - (_%g164208164225%_ - _%g164209164228%_)))) - (_%g164208164225%_ _%g164209164228%_)))) - (_%g164208164225%_ _%g164209164228%_)))) - (_%g164208164225%_ _%g164209164228%_))))) - (_%g164207164279%_ _%stx164206%_)))) + _%self164479%_ + _%L164528%_)))) + _%hd164493164523%_ + _%hd164490164515%_) + (_%g164482164499%_ + _%g164483164502%_)))) + (_%g164482164499%_ _%g164483164502%_)))) + (_%g164482164499%_ _%g164483164502%_)))) + (_%g164482164499%_ _%g164483164502%_))))) + (_%g164481164553%_ _%stx164480%_)))) (define gxc#apply-path-type-if% - (lambda (_%self163805%_ _%stx163806%_) - (let* ((_%__stx166966166967%_ _%stx163806%_) - (_%g163810163899%_ + (lambda (_%self164079%_ _%stx164080%_) + (let* ((_%__stx167240167241%_ _%stx164080%_) + (_%g164084164173%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx166966166967%_))))) - (let ((_%__kont166968166969%_ - (lambda (_%L164157%_ _%L164158%_ _%L164159%_ _%L164160%_) - (let ((_%$e164192%_ - (let ((__tmp169542 + _%__stx167240167241%_))))) + (let ((_%__kont167242167243%_ + (lambda (_%L164431%_ _%L164432%_ _%L164433%_ _%L164434%_) + (let ((_%$e164466%_ + (let ((__tmp169816 (let () (declare (not safe)) - (gxc#identifier-symbol _%L164160%_)))) + (gxc#identifier-symbol _%L164434%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp169542)))) - (if _%$e164192%_ - ((lambda (_%pred-type164195%_) + (gxc#optimizer-lookup-type __tmp169816)))) + (if _%$e164466%_ + ((lambda (_%pred-type164469%_) (if (or (let () (declare (not safe)) (##structure-instance-of? - _%pred-type164195%_ + _%pred-type164469%_ 'gxc#!predicate::t)) (let () (declare (not safe)) (##structure-instance-of? - _%pred-type164195%_ + _%pred-type164469%_ 'gxc#!primitive-predicate::t))) (begin - (let ((__tmp169545 + (let ((__tmp169819 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self163805%_ - _%L164158%_)))) - (__tmp169543 + _%self164079%_ + _%L164432%_)))) + (__tmp169817 (cons (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%L164159%_)) - (let ((__tmp169544 + _%L164433%_)) + (let ((__tmp169818 (##structure-ref - _%pred-type164195%_ + _%pred-type164469%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx163806%_ - __tmp169544))) + _%stx164080%_ + __tmp169818))) (let () (declare (not safe)) (gxc#current-compile-path-type))))) (declare (not safe)) (__call-with-parameters - __tmp169545 + __tmp169819 gxc#current-compile-path-type - __tmp169543)) + __tmp169817)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self163805%_ - _%L164157%_))) + _%self164079%_ + _%L164431%_))) (let () (declare (not safe)) (gxc#apply-operands - _%self163805%_ - _%stx163806%_)))) - _%$e164192%_) + _%self164079%_ + _%stx164080%_)))) + _%$e164466%_) (let () (declare (not safe)) (gxc#apply-operands - _%self163805%_ - _%stx163806%_)))))) - (_%__kont166970166971%_ - (lambda (_%L164033%_ _%L164034%_ _%L164035%_ _%L164036%_) + _%self164079%_ + _%stx164080%_)))))) + (_%__kont167244167245%_ + (lambda (_%L164307%_ _%L164308%_ _%L164309%_ _%L164310%_) (gxc#apply-path-type-if% - _%self163805%_ - (let ((__tmp169546 + _%self164079%_ + (let ((__tmp169820 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#if)) - (cons _%L164035%_ - (cons _%L164033%_ - (cons _%L164034%_ '())))))) + (cons _%L164309%_ + (cons _%L164307%_ + (cons _%L164308%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp169546 _%stx163806%_))))) - (_%__kont166972166973%_ - (lambda (_%L163936%_ _%L163937%_ _%L163938%_) + (gxc#xform-wrap-source __tmp169820 _%stx164080%_))))) + (_%__kont167246167247%_ + (lambda (_%L164210%_ _%L164211%_ _%L164212%_) (let () (declare (not safe)) - (gxc#apply-operands _%self163805%_ _%stx163806%_))))) - (let ((_%__match167127167128%_ - (lambda (_%e163853163961%_ - _%hd163854163964%_ - _%tl163855163966%_ - _%e163856163969%_ - _%hd163857163972%_ - _%tl163858163974%_ - _%e163859163977%_ - _%hd163860163980%_ - _%tl163861163982%_ - _%e163862163985%_ - _%hd163863163988%_ - _%tl163864163990%_ - _%e163865163993%_ - _%hd163866163996%_ - _%tl163867163998%_ - _%e163868164001%_ - _%hd163869164004%_ - _%tl163870164006%_ - _%e163871164009%_ - _%hd163872164012%_ - _%tl163873164014%_ - _%e163874164017%_ - _%hd163875164020%_ - _%tl163876164022%_ - _%e163877164025%_ - _%hd163878164028%_ - _%tl163879164030%_) - (let ((_%L164033%_ _%hd163878164028%_) - (_%L164034%_ _%hd163875164020%_) - (_%L164035%_ _%hd163872164012%_) - (_%L164036%_ _%hd163869164004%_)) + (gxc#apply-operands _%self164079%_ _%stx164080%_))))) + (let ((_%__match167401167402%_ + (lambda (_%e164127164235%_ + _%hd164128164238%_ + _%tl164129164240%_ + _%e164130164243%_ + _%hd164131164246%_ + _%tl164132164248%_ + _%e164133164251%_ + _%hd164134164254%_ + _%tl164135164256%_ + _%e164136164259%_ + _%hd164137164262%_ + _%tl164138164264%_ + _%e164139164267%_ + _%hd164140164270%_ + _%tl164141164272%_ + _%e164142164275%_ + _%hd164143164278%_ + _%tl164144164280%_ + _%e164145164283%_ + _%hd164146164286%_ + _%tl164147164288%_ + _%e164148164291%_ + _%hd164149164294%_ + _%tl164150164296%_ + _%e164151164299%_ + _%hd164152164302%_ + _%tl164153164304%_) + (let ((_%L164307%_ _%hd164152164302%_) + (_%L164308%_ _%hd164149164294%_) + (_%L164309%_ _%hd164146164286%_) + (_%L164310%_ _%hd164143164278%_)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L164036%_ 'not)) - (_%__kont166970166971%_ - _%L164033%_ - _%L164034%_ - _%L164035%_ - _%L164036%_) - (_%__kont166972166973%_ - _%hd163878164028%_ - _%hd163875164020%_ - _%hd163857163972%_)))))) + (gxc#runtime-identifier=? _%L164310%_ 'not)) + (_%__kont167244167245%_ + _%L164307%_ + _%L164308%_ + _%L164309%_ + _%L164310%_) + (_%__kont167246167247%_ + _%hd164152164302%_ + _%hd164149164294%_ + _%hd164131164246%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx166966166967%_)) - (let ((_%e163816164069%_ + (gx#stx-pair? _%__stx167240167241%_)) + (let ((_%e164090164343%_ (let () (declare (not safe)) - (gx#stx-e _%__stx166966166967%_)))) - (let ((_%tl163818164074%_ + (gx#stx-e _%__stx167240167241%_)))) + (let ((_%tl164092164348%_ (let () (declare (not safe)) - (##cdr _%e163816164069%_))) - (_%hd163817164072%_ + (##cdr _%e164090164343%_))) + (_%hd164091164346%_ (let () (declare (not safe)) - (##car _%e163816164069%_)))) + (##car _%e164090164343%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163818164074%_)) - (let ((_%e163819164077%_ + (gx#stx-pair? _%tl164092164348%_)) + (let ((_%e164093164351%_ (let () (declare (not safe)) - (gx#stx-e _%tl163818164074%_)))) - (let ((_%tl163821164082%_ + (gx#stx-e _%tl164092164348%_)))) + (let ((_%tl164095164356%_ (let () (declare (not safe)) - (##cdr _%e163819164077%_))) - (_%hd163820164080%_ + (##cdr _%e164093164351%_))) + (_%hd164094164354%_ (let () (declare (not safe)) - (##car _%e163819164077%_)))) + (##car _%e164093164351%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163820164080%_)) - (let ((_%e163822164085%_ + (gx#stx-pair? _%hd164094164354%_)) + (let ((_%e164096164359%_ (let () (declare (not safe)) - (gx#stx-e _%hd163820164080%_)))) - (let ((_%tl163824164090%_ + (gx#stx-e _%hd164094164354%_)))) + (let ((_%tl164098164364%_ (let () (declare (not safe)) - (##cdr _%e163822164085%_))) - (_%hd163823164088%_ + (##cdr _%e164096164359%_))) + (_%hd164097164362%_ (let () (declare (not safe)) - (##car _%e163822164085%_)))) + (##car _%e164096164359%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd163823164088%_)) + _%hd164097164362%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd163823164088%_)) + _%hd164097164362%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163824164090%_)) - (let ((_%e163825164093%_ + _%tl164098164364%_)) + (let ((_%e164099164367%_ (let () (declare (not safe)) (gx#stx-e - _%tl163824164090%_)))) - (let ((_%tl163827164098%_ + _%tl164098164364%_)))) + (let ((_%tl164101164372%_ (let () (declare (not safe)) - (##cdr _%e163825164093%_))) - (_%hd163826164096%_ + (##cdr _%e164099164367%_))) + (_%hd164100164370%_ (let () (declare (not safe)) - (##car _%e163825164093%_)))) + (##car _%e164099164367%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd163826164096%_)) - (let ((_%e163828164101%_ + _%hd164100164370%_)) + (let ((_%e164102164375%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd163826164096%_)))) - (let ((_%tl163830164106%_ + (gx#stx-e _%hd164100164370%_)))) + (let ((_%tl164104164380%_ (let () (declare (not safe)) - (##cdr _%e163828164101%_))) - (_%hd163829164104%_ + (##cdr _%e164102164375%_))) + (_%hd164103164378%_ (let () (declare (not safe)) - (##car _%e163828164101%_)))) + (##car _%e164102164375%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd163829164104%_)) + (gx#identifier? _%hd164103164378%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd163829164104%_)) + (gx#stx-eq? '%#ref _%hd164103164378%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163830164106%_)) - (let ((_%e163831164109%_ + (gx#stx-pair? _%tl164104164380%_)) + (let ((_%e164105164383%_ (let () (declare (not safe)) - (gx#stx-e _%tl163830164106%_)))) - (let ((_%tl163833164114%_ + (gx#stx-e _%tl164104164380%_)))) + (let ((_%tl164107164388%_ (let () (declare (not safe)) - (##cdr _%e163831164109%_))) - (_%hd163832164112%_ + (##cdr _%e164105164383%_))) + (_%hd164106164386%_ (let () (declare (not safe)) - (##car _%e163831164109%_)))) + (##car _%e164105164383%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163833164114%_)) + (gx#stx-null? _%tl164107164388%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163827164098%_)) - (let ((_%e163834164117%_ + _%tl164101164372%_)) + (let ((_%e164108164391%_ (let () (declare (not safe)) (gx#stx-e - _%tl163827164098%_)))) - (let ((_%tl163836164122%_ + _%tl164101164372%_)))) + (let ((_%tl164110164396%_ (let () (declare (not safe)) - (##cdr _%e163834164117%_))) - (_%hd163835164120%_ + (##cdr _%e164108164391%_))) + (_%hd164109164394%_ (let () (declare (not safe)) - (##car _%e163834164117%_)))) + (##car _%e164108164391%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd163835164120%_)) - (let ((_%e163837164125%_ + _%hd164109164394%_)) + (let ((_%e164111164399%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd163835164120%_)))) - (let ((_%tl163839164130%_ - (let () (declare (not safe)) (##cdr _%e163837164125%_))) - (_%hd163838164128%_ + (gx#stx-e _%hd164109164394%_)))) + (let ((_%tl164113164404%_ + (let () (declare (not safe)) (##cdr _%e164111164399%_))) + (_%hd164112164402%_ (let () (declare (not safe)) - (##car _%e163837164125%_)))) + (##car _%e164111164399%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd163838164128%_)) + (gx#identifier? _%hd164112164402%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd163838164128%_)) + (gx#stx-eq? '%#ref _%hd164112164402%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163839164130%_)) - (let ((_%e163840164133%_ + (gx#stx-pair? _%tl164113164404%_)) + (let ((_%e164114164407%_ (let () (declare (not safe)) - (gx#stx-e _%tl163839164130%_)))) - (let ((_%tl163842164138%_ + (gx#stx-e _%tl164113164404%_)))) + (let ((_%tl164116164412%_ (let () (declare (not safe)) - (##cdr _%e163840164133%_))) - (_%hd163841164136%_ + (##cdr _%e164114164407%_))) + (_%hd164115164410%_ (let () (declare (not safe)) - (##car _%e163840164133%_)))) + (##car _%e164114164407%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163842164138%_)) + (gx#stx-null? _%tl164116164412%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163836164122%_)) + (gx#stx-null? _%tl164110164396%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163821164082%_)) - (let ((_%e163843164141%_ + _%tl164095164356%_)) + (let ((_%e164117164415%_ (let () (declare (not safe)) (gx#stx-e - _%tl163821164082%_)))) - (let ((_%tl163845164146%_ + _%tl164095164356%_)))) + (let ((_%tl164119164420%_ (let () (declare (not safe)) - (##cdr _%e163843164141%_))) - (_%hd163844164144%_ + (##cdr _%e164117164415%_))) + (_%hd164118164418%_ (let () (declare (not safe)) - (##car _%e163843164141%_)))) + (##car _%e164117164415%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163845164146%_)) - (let ((_%e163846164149%_ + _%tl164119164420%_)) + (let ((_%e164120164423%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl163845164146%_)))) - (let ((_%tl163848164154%_ - (let () (declare (not safe)) (##cdr _%e163846164149%_))) - (_%hd163847164152%_ + (gx#stx-e _%tl164119164420%_)))) + (let ((_%tl164122164428%_ + (let () (declare (not safe)) (##cdr _%e164120164423%_))) + (_%hd164121164426%_ (let () (declare (not safe)) - (##car _%e163846164149%_)))) + (##car _%e164120164423%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163848164154%_)) - (_%__kont166968166969%_ - _%hd163847164152%_ - _%hd163844164144%_ - _%hd163841164136%_ - _%hd163832164112%_) - (let () (declare (not safe)) (_%g163810163899%_))))) - (let () (declare (not safe)) (_%g163810163899%_))))) + (gx#stx-null? _%tl164122164428%_)) + (_%__kont167242167243%_ + _%hd164121164426%_ + _%hd164118164418%_ + _%hd164115164410%_ + _%hd164106164386%_) + (let () (declare (not safe)) (_%g164084164173%_))))) + (let () (declare (not safe)) (_%g164084164173%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g163810163899%_))) + (_%g164084164173%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163821164082%_)) - (let ((_%e163889163920%_ + _%tl164095164356%_)) + (let ((_%e164163164194%_ (let () (declare (not safe)) (gx#stx-e - _%tl163821164082%_)))) - (let ((_%tl163891163925%_ + _%tl164095164356%_)))) + (let ((_%tl164165164199%_ (let () (declare (not safe)) - (##cdr _%e163889163920%_))) - (_%hd163890163923%_ + (##cdr _%e164163164194%_))) + (_%hd164164164197%_ (let () (declare (not safe)) - (##car _%e163889163920%_)))) + (##car _%e164163164194%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163891163925%_)) - (let ((_%e163892163928%_ + _%tl164165164199%_)) + (let ((_%e164166164202%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl163891163925%_)))) - (let ((_%tl163894163933%_ - (let () (declare (not safe)) (##cdr _%e163892163928%_))) - (_%hd163893163931%_ + (gx#stx-e _%tl164165164199%_)))) + (let ((_%tl164168164207%_ + (let () (declare (not safe)) (##cdr _%e164166164202%_))) + (_%hd164167164205%_ (let () (declare (not safe)) - (##car _%e163892163928%_)))) + (##car _%e164166164202%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163894163933%_)) - (_%__kont166972166973%_ - _%hd163893163931%_ - _%hd163890163923%_ - _%hd163820164080%_) - (let () (declare (not safe)) (_%g163810163899%_))))) - (let () (declare (not safe)) (_%g163810163899%_))))) + (gx#stx-null? _%tl164168164207%_)) + (_%__kont167246167247%_ + _%hd164167164205%_ + _%hd164164164197%_ + _%hd164094164354%_) + (let () (declare (not safe)) (_%g164084164173%_))))) + (let () (declare (not safe)) (_%g164084164173%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g163810163899%_)))) + (_%g164084164173%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163836164122%_)) + (gx#stx-null? _%tl164110164396%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163821164082%_)) - (let ((_%e163874164017%_ + _%tl164095164356%_)) + (let ((_%e164148164291%_ (let () (declare (not safe)) (gx#stx-e - _%tl163821164082%_)))) - (let ((_%tl163876164022%_ + _%tl164095164356%_)))) + (let ((_%tl164150164296%_ (let () (declare (not safe)) - (##cdr _%e163874164017%_))) - (_%hd163875164020%_ + (##cdr _%e164148164291%_))) + (_%hd164149164294%_ (let () (declare (not safe)) - (##car _%e163874164017%_)))) + (##car _%e164148164291%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163876164022%_)) - (let ((_%e163877164025%_ + _%tl164150164296%_)) + (let ((_%e164151164299%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl163876164022%_)))) - (let ((_%tl163879164030%_ - (let () (declare (not safe)) (##cdr _%e163877164025%_))) - (_%hd163878164028%_ + (gx#stx-e _%tl164150164296%_)))) + (let ((_%tl164153164304%_ + (let () (declare (not safe)) (##cdr _%e164151164299%_))) + (_%hd164152164302%_ (let () (declare (not safe)) - (##car _%e163877164025%_)))) + (##car _%e164151164299%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163879164030%_)) - (_%__match167127167128%_ - _%e163816164069%_ - _%hd163817164072%_ - _%tl163818164074%_ - _%e163819164077%_ - _%hd163820164080%_ - _%tl163821164082%_ - _%e163822164085%_ - _%hd163823164088%_ - _%tl163824164090%_ - _%e163825164093%_ - _%hd163826164096%_ - _%tl163827164098%_ - _%e163828164101%_ - _%hd163829164104%_ - _%tl163830164106%_ - _%e163831164109%_ - _%hd163832164112%_ - _%tl163833164114%_ - _%e163834164117%_ - _%hd163835164120%_ - _%tl163836164122%_ - _%e163874164017%_ - _%hd163875164020%_ - _%tl163876164022%_ - _%e163877164025%_ - _%hd163878164028%_ - _%tl163879164030%_) - (let () (declare (not safe)) (_%g163810163899%_))))) - (let () (declare (not safe)) (_%g163810163899%_))))) + (gx#stx-null? _%tl164153164304%_)) + (_%__match167401167402%_ + _%e164090164343%_ + _%hd164091164346%_ + _%tl164092164348%_ + _%e164093164351%_ + _%hd164094164354%_ + _%tl164095164356%_ + _%e164096164359%_ + _%hd164097164362%_ + _%tl164098164364%_ + _%e164099164367%_ + _%hd164100164370%_ + _%tl164101164372%_ + _%e164102164375%_ + _%hd164103164378%_ + _%tl164104164380%_ + _%e164105164383%_ + _%hd164106164386%_ + _%tl164107164388%_ + _%e164108164391%_ + _%hd164109164394%_ + _%tl164110164396%_ + _%e164148164291%_ + _%hd164149164294%_ + _%tl164150164296%_ + _%e164151164299%_ + _%hd164152164302%_ + _%tl164153164304%_) + (let () (declare (not safe)) (_%g164084164173%_))))) + (let () (declare (not safe)) (_%g164084164173%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g163810163899%_))) + (_%g164084164173%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163821164082%_)) - (let ((_%e163889163920%_ + _%tl164095164356%_)) + (let ((_%e164163164194%_ (let () (declare (not safe)) (gx#stx-e - _%tl163821164082%_)))) - (let ((_%tl163891163925%_ + _%tl164095164356%_)))) + (let ((_%tl164165164199%_ (let () (declare (not safe)) - (##cdr _%e163889163920%_))) - (_%hd163890163923%_ + (##cdr _%e164163164194%_))) + (_%hd164164164197%_ (let () (declare (not safe)) - (##car _%e163889163920%_)))) + (##car _%e164163164194%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163891163925%_)) - (let ((_%e163892163928%_ + _%tl164165164199%_)) + (let ((_%e164166164202%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl163891163925%_)))) - (let ((_%tl163894163933%_ - (let () (declare (not safe)) (##cdr _%e163892163928%_))) - (_%hd163893163931%_ + (gx#stx-e _%tl164165164199%_)))) + (let ((_%tl164168164207%_ + (let () (declare (not safe)) (##cdr _%e164166164202%_))) + (_%hd164167164205%_ (let () (declare (not safe)) - (##car _%e163892163928%_)))) + (##car _%e164166164202%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163894163933%_)) - (_%__kont166972166973%_ - _%hd163893163931%_ - _%hd163890163923%_ - _%hd163820164080%_) - (let () (declare (not safe)) (_%g163810163899%_))))) - (let () (declare (not safe)) (_%g163810163899%_))))) + (gx#stx-null? _%tl164168164207%_)) + (_%__kont167246167247%_ + _%hd164167164205%_ + _%hd164164164197%_ + _%hd164094164354%_) + (let () (declare (not safe)) (_%g164084164173%_))))) + (let () (declare (not safe)) (_%g164084164173%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g163810163899%_))))))) + (_%g164084164173%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163836164122%_)) + (gx#stx-null? _%tl164110164396%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163821164082%_)) - (let ((_%e163874164017%_ + (gx#stx-pair? _%tl164095164356%_)) + (let ((_%e164148164291%_ (let () (declare (not safe)) - (gx#stx-e _%tl163821164082%_)))) - (let ((_%tl163876164022%_ + (gx#stx-e _%tl164095164356%_)))) + (let ((_%tl164150164296%_ (let () (declare (not safe)) - (##cdr _%e163874164017%_))) - (_%hd163875164020%_ + (##cdr _%e164148164291%_))) + (_%hd164149164294%_ (let () (declare (not safe)) - (##car _%e163874164017%_)))) + (##car _%e164148164291%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163876164022%_)) - (let ((_%e163877164025%_ + _%tl164150164296%_)) + (let ((_%e164151164299%_ (let () (declare (not safe)) (gx#stx-e - _%tl163876164022%_)))) - (let ((_%tl163879164030%_ + _%tl164150164296%_)))) + (let ((_%tl164153164304%_ (let () (declare (not safe)) - (##cdr _%e163877164025%_))) - (_%hd163878164028%_ + (##cdr _%e164151164299%_))) + (_%hd164152164302%_ (let () (declare (not safe)) - (##car _%e163877164025%_)))) + (##car _%e164151164299%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163879164030%_)) - (_%__match167127167128%_ - _%e163816164069%_ - _%hd163817164072%_ - _%tl163818164074%_ - _%e163819164077%_ - _%hd163820164080%_ - _%tl163821164082%_ - _%e163822164085%_ - _%hd163823164088%_ - _%tl163824164090%_ - _%e163825164093%_ - _%hd163826164096%_ - _%tl163827164098%_ - _%e163828164101%_ - _%hd163829164104%_ - _%tl163830164106%_ - _%e163831164109%_ - _%hd163832164112%_ - _%tl163833164114%_ - _%e163834164117%_ - _%hd163835164120%_ - _%tl163836164122%_ - _%e163874164017%_ - _%hd163875164020%_ - _%tl163876164022%_ - _%e163877164025%_ - _%hd163878164028%_ - _%tl163879164030%_) + _%tl164153164304%_)) + (_%__match167401167402%_ + _%e164090164343%_ + _%hd164091164346%_ + _%tl164092164348%_ + _%e164093164351%_ + _%hd164094164354%_ + _%tl164095164356%_ + _%e164096164359%_ + _%hd164097164362%_ + _%tl164098164364%_ + _%e164099164367%_ + _%hd164100164370%_ + _%tl164101164372%_ + _%e164102164375%_ + _%hd164103164378%_ + _%tl164104164380%_ + _%e164105164383%_ + _%hd164106164386%_ + _%tl164107164388%_ + _%e164108164391%_ + _%hd164109164394%_ + _%tl164110164396%_ + _%e164148164291%_ + _%hd164149164294%_ + _%tl164150164296%_ + _%e164151164299%_ + _%hd164152164302%_ + _%tl164153164304%_) (let () (declare (not safe)) - (_%g163810163899%_))))) + (_%g164084164173%_))))) (let () (declare (not safe)) - (_%g163810163899%_))))) + (_%g164084164173%_))))) (let () (declare (not safe)) - (_%g163810163899%_))) + (_%g164084164173%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163821164082%_)) - (let ((_%e163889163920%_ + (gx#stx-pair? _%tl164095164356%_)) + (let ((_%e164163164194%_ (let () (declare (not safe)) - (gx#stx-e _%tl163821164082%_)))) - (let ((_%tl163891163925%_ + (gx#stx-e _%tl164095164356%_)))) + (let ((_%tl164165164199%_ (let () (declare (not safe)) - (##cdr _%e163889163920%_))) - (_%hd163890163923%_ + (##cdr _%e164163164194%_))) + (_%hd164164164197%_ (let () (declare (not safe)) - (##car _%e163889163920%_)))) + (##car _%e164163164194%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163891163925%_)) - (let ((_%e163892163928%_ + _%tl164165164199%_)) + (let ((_%e164166164202%_ (let () (declare (not safe)) (gx#stx-e - _%tl163891163925%_)))) - (let ((_%tl163894163933%_ + _%tl164165164199%_)))) + (let ((_%tl164168164207%_ (let () (declare (not safe)) - (##cdr _%e163892163928%_))) - (_%hd163893163931%_ + (##cdr _%e164166164202%_))) + (_%hd164167164205%_ (let () (declare (not safe)) - (##car _%e163892163928%_)))) + (##car _%e164166164202%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163894163933%_)) - (_%__kont166972166973%_ - _%hd163893163931%_ - _%hd163890163923%_ - _%hd163820164080%_) + _%tl164168164207%_)) + (_%__kont167246167247%_ + _%hd164167164205%_ + _%hd164164164197%_ + _%hd164094164354%_) (let () (declare (not safe)) - (_%g163810163899%_))))) + (_%g164084164173%_))))) (let () (declare (not safe)) - (_%g163810163899%_))))) + (_%g164084164173%_))))) (let () (declare (not safe)) - (_%g163810163899%_))))) + (_%g164084164173%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163836164122%_)) + (gx#stx-null? _%tl164110164396%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163821164082%_)) - (let ((_%e163874164017%_ + (gx#stx-pair? _%tl164095164356%_)) + (let ((_%e164148164291%_ (let () (declare (not safe)) - (gx#stx-e _%tl163821164082%_)))) - (let ((_%tl163876164022%_ + (gx#stx-e _%tl164095164356%_)))) + (let ((_%tl164150164296%_ (let () (declare (not safe)) - (##cdr _%e163874164017%_))) - (_%hd163875164020%_ + (##cdr _%e164148164291%_))) + (_%hd164149164294%_ (let () (declare (not safe)) - (##car _%e163874164017%_)))) + (##car _%e164148164291%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163876164022%_)) - (let ((_%e163877164025%_ + (gx#stx-pair? _%tl164150164296%_)) + (let ((_%e164151164299%_ (let () (declare (not safe)) (gx#stx-e - _%tl163876164022%_)))) - (let ((_%tl163879164030%_ + _%tl164150164296%_)))) + (let ((_%tl164153164304%_ (let () (declare (not safe)) - (##cdr _%e163877164025%_))) - (_%hd163878164028%_ + (##cdr _%e164151164299%_))) + (_%hd164152164302%_ (let () (declare (not safe)) - (##car _%e163877164025%_)))) + (##car _%e164151164299%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163879164030%_)) - (_%__match167127167128%_ - _%e163816164069%_ - _%hd163817164072%_ - _%tl163818164074%_ - _%e163819164077%_ - _%hd163820164080%_ - _%tl163821164082%_ - _%e163822164085%_ - _%hd163823164088%_ - _%tl163824164090%_ - _%e163825164093%_ - _%hd163826164096%_ - _%tl163827164098%_ - _%e163828164101%_ - _%hd163829164104%_ - _%tl163830164106%_ - _%e163831164109%_ - _%hd163832164112%_ - _%tl163833164114%_ - _%e163834164117%_ - _%hd163835164120%_ - _%tl163836164122%_ - _%e163874164017%_ - _%hd163875164020%_ - _%tl163876164022%_ - _%e163877164025%_ - _%hd163878164028%_ - _%tl163879164030%_) + _%tl164153164304%_)) + (_%__match167401167402%_ + _%e164090164343%_ + _%hd164091164346%_ + _%tl164092164348%_ + _%e164093164351%_ + _%hd164094164354%_ + _%tl164095164356%_ + _%e164096164359%_ + _%hd164097164362%_ + _%tl164098164364%_ + _%e164099164367%_ + _%hd164100164370%_ + _%tl164101164372%_ + _%e164102164375%_ + _%hd164103164378%_ + _%tl164104164380%_ + _%e164105164383%_ + _%hd164106164386%_ + _%tl164107164388%_ + _%e164108164391%_ + _%hd164109164394%_ + _%tl164110164396%_ + _%e164148164291%_ + _%hd164149164294%_ + _%tl164150164296%_ + _%e164151164299%_ + _%hd164152164302%_ + _%tl164153164304%_) (let () (declare (not safe)) - (_%g163810163899%_))))) + (_%g164084164173%_))))) (let () (declare (not safe)) - (_%g163810163899%_))))) + (_%g164084164173%_))))) (let () (declare (not safe)) - (_%g163810163899%_))) + (_%g164084164173%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163821164082%_)) - (let ((_%e163889163920%_ + (gx#stx-pair? _%tl164095164356%_)) + (let ((_%e164163164194%_ (let () (declare (not safe)) - (gx#stx-e _%tl163821164082%_)))) - (let ((_%tl163891163925%_ + (gx#stx-e _%tl164095164356%_)))) + (let ((_%tl164165164199%_ (let () (declare (not safe)) - (##cdr _%e163889163920%_))) - (_%hd163890163923%_ + (##cdr _%e164163164194%_))) + (_%hd164164164197%_ (let () (declare (not safe)) - (##car _%e163889163920%_)))) + (##car _%e164163164194%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163891163925%_)) - (let ((_%e163892163928%_ + (gx#stx-pair? _%tl164165164199%_)) + (let ((_%e164166164202%_ (let () (declare (not safe)) (gx#stx-e - _%tl163891163925%_)))) - (let ((_%tl163894163933%_ + _%tl164165164199%_)))) + (let ((_%tl164168164207%_ (let () (declare (not safe)) - (##cdr _%e163892163928%_))) - (_%hd163893163931%_ + (##cdr _%e164166164202%_))) + (_%hd164167164205%_ (let () (declare (not safe)) - (##car _%e163892163928%_)))) + (##car _%e164166164202%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163894163933%_)) - (_%__kont166972166973%_ - _%hd163893163931%_ - _%hd163890163923%_ - _%hd163820164080%_) + _%tl164168164207%_)) + (_%__kont167246167247%_ + _%hd164167164205%_ + _%hd164164164197%_ + _%hd164094164354%_) (let () (declare (not safe)) - (_%g163810163899%_))))) + (_%g164084164173%_))))) (let () (declare (not safe)) - (_%g163810163899%_))))) + (_%g164084164173%_))))) (let () (declare (not safe)) - (_%g163810163899%_))))) + (_%g164084164173%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163836164122%_)) + (gx#stx-null? _%tl164110164396%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163821164082%_)) - (let ((_%e163874164017%_ + (gx#stx-pair? _%tl164095164356%_)) + (let ((_%e164148164291%_ (let () (declare (not safe)) - (gx#stx-e _%tl163821164082%_)))) - (let ((_%tl163876164022%_ + (gx#stx-e _%tl164095164356%_)))) + (let ((_%tl164150164296%_ (let () (declare (not safe)) - (##cdr _%e163874164017%_))) - (_%hd163875164020%_ + (##cdr _%e164148164291%_))) + (_%hd164149164294%_ (let () (declare (not safe)) - (##car _%e163874164017%_)))) + (##car _%e164148164291%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163876164022%_)) - (let ((_%e163877164025%_ + (gx#stx-pair? _%tl164150164296%_)) + (let ((_%e164151164299%_ (let () (declare (not safe)) - (gx#stx-e _%tl163876164022%_)))) - (let ((_%tl163879164030%_ + (gx#stx-e _%tl164150164296%_)))) + (let ((_%tl164153164304%_ (let () (declare (not safe)) - (##cdr _%e163877164025%_))) - (_%hd163878164028%_ + (##cdr _%e164151164299%_))) + (_%hd164152164302%_ (let () (declare (not safe)) - (##car _%e163877164025%_)))) + (##car _%e164151164299%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163879164030%_)) - (_%__match167127167128%_ - _%e163816164069%_ - _%hd163817164072%_ - _%tl163818164074%_ - _%e163819164077%_ - _%hd163820164080%_ - _%tl163821164082%_ - _%e163822164085%_ - _%hd163823164088%_ - _%tl163824164090%_ - _%e163825164093%_ - _%hd163826164096%_ - _%tl163827164098%_ - _%e163828164101%_ - _%hd163829164104%_ - _%tl163830164106%_ - _%e163831164109%_ - _%hd163832164112%_ - _%tl163833164114%_ - _%e163834164117%_ - _%hd163835164120%_ - _%tl163836164122%_ - _%e163874164017%_ - _%hd163875164020%_ - _%tl163876164022%_ - _%e163877164025%_ - _%hd163878164028%_ - _%tl163879164030%_) + _%tl164153164304%_)) + (_%__match167401167402%_ + _%e164090164343%_ + _%hd164091164346%_ + _%tl164092164348%_ + _%e164093164351%_ + _%hd164094164354%_ + _%tl164095164356%_ + _%e164096164359%_ + _%hd164097164362%_ + _%tl164098164364%_ + _%e164099164367%_ + _%hd164100164370%_ + _%tl164101164372%_ + _%e164102164375%_ + _%hd164103164378%_ + _%tl164104164380%_ + _%e164105164383%_ + _%hd164106164386%_ + _%tl164107164388%_ + _%e164108164391%_ + _%hd164109164394%_ + _%tl164110164396%_ + _%e164148164291%_ + _%hd164149164294%_ + _%tl164150164296%_ + _%e164151164299%_ + _%hd164152164302%_ + _%tl164153164304%_) (let () (declare (not safe)) - (_%g163810163899%_))))) + (_%g164084164173%_))))) (let () (declare (not safe)) - (_%g163810163899%_))))) + (_%g164084164173%_))))) (let () (declare (not safe)) - (_%g163810163899%_))) + (_%g164084164173%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163821164082%_)) - (let ((_%e163889163920%_ + (gx#stx-pair? _%tl164095164356%_)) + (let ((_%e164163164194%_ (let () (declare (not safe)) - (gx#stx-e _%tl163821164082%_)))) - (let ((_%tl163891163925%_ + (gx#stx-e _%tl164095164356%_)))) + (let ((_%tl164165164199%_ (let () (declare (not safe)) - (##cdr _%e163889163920%_))) - (_%hd163890163923%_ + (##cdr _%e164163164194%_))) + (_%hd164164164197%_ (let () (declare (not safe)) - (##car _%e163889163920%_)))) + (##car _%e164163164194%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163891163925%_)) - (let ((_%e163892163928%_ + (gx#stx-pair? _%tl164165164199%_)) + (let ((_%e164166164202%_ (let () (declare (not safe)) - (gx#stx-e _%tl163891163925%_)))) - (let ((_%tl163894163933%_ + (gx#stx-e _%tl164165164199%_)))) + (let ((_%tl164168164207%_ (let () (declare (not safe)) - (##cdr _%e163892163928%_))) - (_%hd163893163931%_ + (##cdr _%e164166164202%_))) + (_%hd164167164205%_ (let () (declare (not safe)) - (##car _%e163892163928%_)))) + (##car _%e164166164202%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163894163933%_)) - (_%__kont166972166973%_ - _%hd163893163931%_ - _%hd163890163923%_ - _%hd163820164080%_) + _%tl164168164207%_)) + (_%__kont167246167247%_ + _%hd164167164205%_ + _%hd164164164197%_ + _%hd164094164354%_) (let () (declare (not safe)) - (_%g163810163899%_))))) + (_%g164084164173%_))))) (let () (declare (not safe)) - (_%g163810163899%_))))) + (_%g164084164173%_))))) (let () (declare (not safe)) - (_%g163810163899%_))))))) + (_%g164084164173%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163836164122%_)) + (gx#stx-null? _%tl164110164396%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163821164082%_)) - (let ((_%e163874164017%_ + (gx#stx-pair? _%tl164095164356%_)) + (let ((_%e164148164291%_ (let () (declare (not safe)) - (gx#stx-e _%tl163821164082%_)))) - (let ((_%tl163876164022%_ + (gx#stx-e _%tl164095164356%_)))) + (let ((_%tl164150164296%_ (let () (declare (not safe)) - (##cdr _%e163874164017%_))) - (_%hd163875164020%_ + (##cdr _%e164148164291%_))) + (_%hd164149164294%_ (let () (declare (not safe)) - (##car _%e163874164017%_)))) + (##car _%e164148164291%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163876164022%_)) - (let ((_%e163877164025%_ + (gx#stx-pair? _%tl164150164296%_)) + (let ((_%e164151164299%_ (let () (declare (not safe)) - (gx#stx-e _%tl163876164022%_)))) - (let ((_%tl163879164030%_ + (gx#stx-e _%tl164150164296%_)))) + (let ((_%tl164153164304%_ (let () (declare (not safe)) - (##cdr _%e163877164025%_))) - (_%hd163878164028%_ + (##cdr _%e164151164299%_))) + (_%hd164152164302%_ (let () (declare (not safe)) - (##car _%e163877164025%_)))) + (##car _%e164151164299%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163879164030%_)) - (_%__match167127167128%_ - _%e163816164069%_ - _%hd163817164072%_ - _%tl163818164074%_ - _%e163819164077%_ - _%hd163820164080%_ - _%tl163821164082%_ - _%e163822164085%_ - _%hd163823164088%_ - _%tl163824164090%_ - _%e163825164093%_ - _%hd163826164096%_ - _%tl163827164098%_ - _%e163828164101%_ - _%hd163829164104%_ - _%tl163830164106%_ - _%e163831164109%_ - _%hd163832164112%_ - _%tl163833164114%_ - _%e163834164117%_ - _%hd163835164120%_ - _%tl163836164122%_ - _%e163874164017%_ - _%hd163875164020%_ - _%tl163876164022%_ - _%e163877164025%_ - _%hd163878164028%_ - _%tl163879164030%_) + (gx#stx-null? _%tl164153164304%_)) + (_%__match167401167402%_ + _%e164090164343%_ + _%hd164091164346%_ + _%tl164092164348%_ + _%e164093164351%_ + _%hd164094164354%_ + _%tl164095164356%_ + _%e164096164359%_ + _%hd164097164362%_ + _%tl164098164364%_ + _%e164099164367%_ + _%hd164100164370%_ + _%tl164101164372%_ + _%e164102164375%_ + _%hd164103164378%_ + _%tl164104164380%_ + _%e164105164383%_ + _%hd164106164386%_ + _%tl164107164388%_ + _%e164108164391%_ + _%hd164109164394%_ + _%tl164110164396%_ + _%e164148164291%_ + _%hd164149164294%_ + _%tl164150164296%_ + _%e164151164299%_ + _%hd164152164302%_ + _%tl164153164304%_) (let () (declare (not safe)) - (_%g163810163899%_))))) + (_%g164084164173%_))))) (let () (declare (not safe)) - (_%g163810163899%_))))) - (let () (declare (not safe)) (_%g163810163899%_))) + (_%g164084164173%_))))) + (let () (declare (not safe)) (_%g164084164173%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163821164082%_)) - (let ((_%e163889163920%_ + (gx#stx-pair? _%tl164095164356%_)) + (let ((_%e164163164194%_ (let () (declare (not safe)) - (gx#stx-e _%tl163821164082%_)))) - (let ((_%tl163891163925%_ + (gx#stx-e _%tl164095164356%_)))) + (let ((_%tl164165164199%_ (let () (declare (not safe)) - (##cdr _%e163889163920%_))) - (_%hd163890163923%_ + (##cdr _%e164163164194%_))) + (_%hd164164164197%_ (let () (declare (not safe)) - (##car _%e163889163920%_)))) + (##car _%e164163164194%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163891163925%_)) - (let ((_%e163892163928%_ + (gx#stx-pair? _%tl164165164199%_)) + (let ((_%e164166164202%_ (let () (declare (not safe)) - (gx#stx-e _%tl163891163925%_)))) - (let ((_%tl163894163933%_ + (gx#stx-e _%tl164165164199%_)))) + (let ((_%tl164168164207%_ (let () (declare (not safe)) - (##cdr _%e163892163928%_))) - (_%hd163893163931%_ + (##cdr _%e164166164202%_))) + (_%hd164167164205%_ (let () (declare (not safe)) - (##car _%e163892163928%_)))) + (##car _%e164166164202%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163894163933%_)) - (_%__kont166972166973%_ - _%hd163893163931%_ - _%hd163890163923%_ - _%hd163820164080%_) + (gx#stx-null? _%tl164168164207%_)) + (_%__kont167246167247%_ + _%hd164167164205%_ + _%hd164164164197%_ + _%hd164094164354%_) (let () (declare (not safe)) - (_%g163810163899%_))))) + (_%g164084164173%_))))) (let () (declare (not safe)) - (_%g163810163899%_))))) - (let () (declare (not safe)) (_%g163810163899%_))))))) + (_%g164084164173%_))))) + (let () (declare (not safe)) (_%g164084164173%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163821164082%_)) - (let ((_%e163889163920%_ + _%tl164095164356%_)) + (let ((_%e164163164194%_ (let () (declare (not safe)) (gx#stx-e - _%tl163821164082%_)))) - (let ((_%tl163891163925%_ + _%tl164095164356%_)))) + (let ((_%tl164165164199%_ (let () (declare (not safe)) - (##cdr _%e163889163920%_))) - (_%hd163890163923%_ + (##cdr _%e164163164194%_))) + (_%hd164164164197%_ (let () (declare (not safe)) - (##car _%e163889163920%_)))) + (##car _%e164163164194%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163891163925%_)) - (let ((_%e163892163928%_ + _%tl164165164199%_)) + (let ((_%e164166164202%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl163891163925%_)))) - (let ((_%tl163894163933%_ + (gx#stx-e _%tl164165164199%_)))) + (let ((_%tl164168164207%_ (let () (declare (not safe)) - (##cdr _%e163892163928%_))) - (_%hd163893163931%_ + (##cdr _%e164166164202%_))) + (_%hd164167164205%_ (let () (declare (not safe)) - (##car _%e163892163928%_)))) + (##car _%e164166164202%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163894163933%_)) - (_%__kont166972166973%_ - _%hd163893163931%_ - _%hd163890163923%_ - _%hd163820164080%_) - (let () (declare (not safe)) (_%g163810163899%_))))) - (let () (declare (not safe)) (_%g163810163899%_))))) + (gx#stx-null? _%tl164168164207%_)) + (_%__kont167246167247%_ + _%hd164167164205%_ + _%hd164164164197%_ + _%hd164094164354%_) + (let () (declare (not safe)) (_%g164084164173%_))))) + (let () (declare (not safe)) (_%g164084164173%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g163810163899%_)))) + (_%g164084164173%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163821164082%_)) - (let ((_%e163889163920%_ + _%tl164095164356%_)) + (let ((_%e164163164194%_ (let () (declare (not safe)) (gx#stx-e - _%tl163821164082%_)))) - (let ((_%tl163891163925%_ + _%tl164095164356%_)))) + (let ((_%tl164165164199%_ (let () (declare (not safe)) - (##cdr _%e163889163920%_))) - (_%hd163890163923%_ + (##cdr _%e164163164194%_))) + (_%hd164164164197%_ (let () (declare (not safe)) - (##car _%e163889163920%_)))) + (##car _%e164163164194%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163891163925%_)) - (let ((_%e163892163928%_ + _%tl164165164199%_)) + (let ((_%e164166164202%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl163891163925%_)))) - (let ((_%tl163894163933%_ - (let () (declare (not safe)) (##cdr _%e163892163928%_))) - (_%hd163893163931%_ + (gx#stx-e _%tl164165164199%_)))) + (let ((_%tl164168164207%_ + (let () (declare (not safe)) (##cdr _%e164166164202%_))) + (_%hd164167164205%_ (let () (declare (not safe)) - (##car _%e163892163928%_)))) + (##car _%e164166164202%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163894163933%_)) - (_%__kont166972166973%_ - _%hd163893163931%_ - _%hd163890163923%_ - _%hd163820164080%_) - (let () (declare (not safe)) (_%g163810163899%_))))) - (let () (declare (not safe)) (_%g163810163899%_))))) + (gx#stx-null? _%tl164168164207%_)) + (_%__kont167246167247%_ + _%hd164167164205%_ + _%hd164164164197%_ + _%hd164094164354%_) + (let () (declare (not safe)) (_%g164084164173%_))))) + (let () (declare (not safe)) (_%g164084164173%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g163810163899%_)))))) + (_%g164084164173%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163821164082%_)) - (let ((_%e163889163920%_ + (gx#stx-pair? _%tl164095164356%_)) + (let ((_%e164163164194%_ (let () (declare (not safe)) - (gx#stx-e _%tl163821164082%_)))) - (let ((_%tl163891163925%_ + (gx#stx-e _%tl164095164356%_)))) + (let ((_%tl164165164199%_ (let () (declare (not safe)) - (##cdr _%e163889163920%_))) - (_%hd163890163923%_ + (##cdr _%e164163164194%_))) + (_%hd164164164197%_ (let () (declare (not safe)) - (##car _%e163889163920%_)))) + (##car _%e164163164194%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163891163925%_)) - (let ((_%e163892163928%_ + _%tl164165164199%_)) + (let ((_%e164166164202%_ (let () (declare (not safe)) (gx#stx-e - _%tl163891163925%_)))) - (let ((_%tl163894163933%_ + _%tl164165164199%_)))) + (let ((_%tl164168164207%_ (let () (declare (not safe)) - (##cdr _%e163892163928%_))) - (_%hd163893163931%_ + (##cdr _%e164166164202%_))) + (_%hd164167164205%_ (let () (declare (not safe)) - (##car _%e163892163928%_)))) + (##car _%e164166164202%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163894163933%_)) - (_%__kont166972166973%_ - _%hd163893163931%_ - _%hd163890163923%_ - _%hd163820164080%_) + _%tl164168164207%_)) + (_%__kont167246167247%_ + _%hd164167164205%_ + _%hd164164164197%_ + _%hd164094164354%_) (let () (declare (not safe)) - (_%g163810163899%_))))) + (_%g164084164173%_))))) (let () (declare (not safe)) - (_%g163810163899%_))))) + (_%g164084164173%_))))) (let () (declare (not safe)) - (_%g163810163899%_)))) + (_%g164084164173%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163821164082%_)) - (let ((_%e163889163920%_ + (gx#stx-pair? _%tl164095164356%_)) + (let ((_%e164163164194%_ (let () (declare (not safe)) - (gx#stx-e _%tl163821164082%_)))) - (let ((_%tl163891163925%_ + (gx#stx-e _%tl164095164356%_)))) + (let ((_%tl164165164199%_ (let () (declare (not safe)) - (##cdr _%e163889163920%_))) - (_%hd163890163923%_ + (##cdr _%e164163164194%_))) + (_%hd164164164197%_ (let () (declare (not safe)) - (##car _%e163889163920%_)))) + (##car _%e164163164194%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163891163925%_)) - (let ((_%e163892163928%_ + (gx#stx-pair? _%tl164165164199%_)) + (let ((_%e164166164202%_ (let () (declare (not safe)) (gx#stx-e - _%tl163891163925%_)))) - (let ((_%tl163894163933%_ + _%tl164165164199%_)))) + (let ((_%tl164168164207%_ (let () (declare (not safe)) - (##cdr _%e163892163928%_))) - (_%hd163893163931%_ + (##cdr _%e164166164202%_))) + (_%hd164167164205%_ (let () (declare (not safe)) - (##car _%e163892163928%_)))) + (##car _%e164166164202%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163894163933%_)) - (_%__kont166972166973%_ - _%hd163893163931%_ - _%hd163890163923%_ - _%hd163820164080%_) + _%tl164168164207%_)) + (_%__kont167246167247%_ + _%hd164167164205%_ + _%hd164164164197%_ + _%hd164094164354%_) (let () (declare (not safe)) - (_%g163810163899%_))))) + (_%g164084164173%_))))) (let () (declare (not safe)) - (_%g163810163899%_))))) + (_%g164084164173%_))))) (let () (declare (not safe)) - (_%g163810163899%_)))) + (_%g164084164173%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163821164082%_)) - (let ((_%e163889163920%_ + (gx#stx-pair? _%tl164095164356%_)) + (let ((_%e164163164194%_ (let () (declare (not safe)) - (gx#stx-e _%tl163821164082%_)))) - (let ((_%tl163891163925%_ + (gx#stx-e _%tl164095164356%_)))) + (let ((_%tl164165164199%_ (let () (declare (not safe)) - (##cdr _%e163889163920%_))) - (_%hd163890163923%_ + (##cdr _%e164163164194%_))) + (_%hd164164164197%_ (let () (declare (not safe)) - (##car _%e163889163920%_)))) + (##car _%e164163164194%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163891163925%_)) - (let ((_%e163892163928%_ + (gx#stx-pair? _%tl164165164199%_)) + (let ((_%e164166164202%_ (let () (declare (not safe)) - (gx#stx-e _%tl163891163925%_)))) - (let ((_%tl163894163933%_ + (gx#stx-e _%tl164165164199%_)))) + (let ((_%tl164168164207%_ (let () (declare (not safe)) - (##cdr _%e163892163928%_))) - (_%hd163893163931%_ + (##cdr _%e164166164202%_))) + (_%hd164167164205%_ (let () (declare (not safe)) - (##car _%e163892163928%_)))) + (##car _%e164166164202%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163894163933%_)) - (_%__kont166972166973%_ - _%hd163893163931%_ - _%hd163890163923%_ - _%hd163820164080%_) + _%tl164168164207%_)) + (_%__kont167246167247%_ + _%hd164167164205%_ + _%hd164164164197%_ + _%hd164094164354%_) (let () (declare (not safe)) - (_%g163810163899%_))))) + (_%g164084164173%_))))) (let () (declare (not safe)) - (_%g163810163899%_))))) + (_%g164084164173%_))))) (let () (declare (not safe)) - (_%g163810163899%_)))))) + (_%g164084164173%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163821164082%_)) - (let ((_%e163889163920%_ + (gx#stx-pair? _%tl164095164356%_)) + (let ((_%e164163164194%_ (let () (declare (not safe)) - (gx#stx-e _%tl163821164082%_)))) - (let ((_%tl163891163925%_ + (gx#stx-e _%tl164095164356%_)))) + (let ((_%tl164165164199%_ (let () (declare (not safe)) - (##cdr _%e163889163920%_))) - (_%hd163890163923%_ + (##cdr _%e164163164194%_))) + (_%hd164164164197%_ (let () (declare (not safe)) - (##car _%e163889163920%_)))) + (##car _%e164163164194%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163891163925%_)) - (let ((_%e163892163928%_ + (gx#stx-pair? _%tl164165164199%_)) + (let ((_%e164166164202%_ (let () (declare (not safe)) - (gx#stx-e _%tl163891163925%_)))) - (let ((_%tl163894163933%_ + (gx#stx-e _%tl164165164199%_)))) + (let ((_%tl164168164207%_ (let () (declare (not safe)) - (##cdr _%e163892163928%_))) - (_%hd163893163931%_ + (##cdr _%e164166164202%_))) + (_%hd164167164205%_ (let () (declare (not safe)) - (##car _%e163892163928%_)))) + (##car _%e164166164202%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163894163933%_)) - (_%__kont166972166973%_ - _%hd163893163931%_ - _%hd163890163923%_ - _%hd163820164080%_) + (gx#stx-null? _%tl164168164207%_)) + (_%__kont167246167247%_ + _%hd164167164205%_ + _%hd164164164197%_ + _%hd164094164354%_) (let () (declare (not safe)) - (_%g163810163899%_))))) + (_%g164084164173%_))))) (let () (declare (not safe)) - (_%g163810163899%_))))) - (let () (declare (not safe)) (_%g163810163899%_)))))) + (_%g164084164173%_))))) + (let () (declare (not safe)) (_%g164084164173%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163821164082%_)) - (let ((_%e163889163920%_ + _%tl164095164356%_)) + (let ((_%e164163164194%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl163821164082%_)))) - (let ((_%tl163891163925%_ - (let () (declare (not safe)) (##cdr _%e163889163920%_))) - (_%hd163890163923%_ + (gx#stx-e _%tl164095164356%_)))) + (let ((_%tl164165164199%_ + (let () (declare (not safe)) (##cdr _%e164163164194%_))) + (_%hd164164164197%_ (let () (declare (not safe)) - (##car _%e163889163920%_)))) + (##car _%e164163164194%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163891163925%_)) - (let ((_%e163892163928%_ + (gx#stx-pair? _%tl164165164199%_)) + (let ((_%e164166164202%_ (let () (declare (not safe)) - (gx#stx-e _%tl163891163925%_)))) - (let ((_%tl163894163933%_ + (gx#stx-e _%tl164165164199%_)))) + (let ((_%tl164168164207%_ (let () (declare (not safe)) - (##cdr _%e163892163928%_))) - (_%hd163893163931%_ + (##cdr _%e164166164202%_))) + (_%hd164167164205%_ (let () (declare (not safe)) - (##car _%e163892163928%_)))) + (##car _%e164166164202%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163894163933%_)) - (_%__kont166972166973%_ - _%hd163893163931%_ - _%hd163890163923%_ - _%hd163820164080%_) + (gx#stx-null? _%tl164168164207%_)) + (_%__kont167246167247%_ + _%hd164167164205%_ + _%hd164164164197%_ + _%hd164094164354%_) (let () (declare (not safe)) - (_%g163810163899%_))))) - (let () (declare (not safe)) (_%g163810163899%_))))) - (let () (declare (not safe)) (_%g163810163899%_)))) + (_%g164084164173%_))))) + (let () (declare (not safe)) (_%g164084164173%_))))) + (let () (declare (not safe)) (_%g164084164173%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163821164082%_)) - (let ((_%e163889163920%_ + _%tl164095164356%_)) + (let ((_%e164163164194%_ (let () (declare (not safe)) (gx#stx-e - _%tl163821164082%_)))) - (let ((_%tl163891163925%_ + _%tl164095164356%_)))) + (let ((_%tl164165164199%_ (let () (declare (not safe)) - (##cdr _%e163889163920%_))) - (_%hd163890163923%_ + (##cdr _%e164163164194%_))) + (_%hd164164164197%_ (let () (declare (not safe)) - (##car _%e163889163920%_)))) + (##car _%e164163164194%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163891163925%_)) - (let ((_%e163892163928%_ + _%tl164165164199%_)) + (let ((_%e164166164202%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl163891163925%_)))) - (let ((_%tl163894163933%_ + (gx#stx-e _%tl164165164199%_)))) + (let ((_%tl164168164207%_ (let () (declare (not safe)) - (##cdr _%e163892163928%_))) - (_%hd163893163931%_ + (##cdr _%e164166164202%_))) + (_%hd164167164205%_ (let () (declare (not safe)) - (##car _%e163892163928%_)))) + (##car _%e164166164202%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163894163933%_)) - (_%__kont166972166973%_ - _%hd163893163931%_ - _%hd163890163923%_ - _%hd163820164080%_) - (let () (declare (not safe)) (_%g163810163899%_))))) - (let () (declare (not safe)) (_%g163810163899%_))))) + (gx#stx-null? _%tl164168164207%_)) + (_%__kont167246167247%_ + _%hd164167164205%_ + _%hd164164164197%_ + _%hd164094164354%_) + (let () (declare (not safe)) (_%g164084164173%_))))) + (let () (declare (not safe)) (_%g164084164173%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g163810163899%_)))) + (_%g164084164173%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163821164082%_)) - (let ((_%e163889163920%_ + _%tl164095164356%_)) + (let ((_%e164163164194%_ (let () (declare (not safe)) (gx#stx-e - _%tl163821164082%_)))) - (let ((_%tl163891163925%_ + _%tl164095164356%_)))) + (let ((_%tl164165164199%_ (let () (declare (not safe)) - (##cdr _%e163889163920%_))) - (_%hd163890163923%_ + (##cdr _%e164163164194%_))) + (_%hd164164164197%_ (let () (declare (not safe)) - (##car _%e163889163920%_)))) + (##car _%e164163164194%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163891163925%_)) - (let ((_%e163892163928%_ + _%tl164165164199%_)) + (let ((_%e164166164202%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl163891163925%_)))) - (let ((_%tl163894163933%_ - (let () (declare (not safe)) (##cdr _%e163892163928%_))) - (_%hd163893163931%_ + (gx#stx-e _%tl164165164199%_)))) + (let ((_%tl164168164207%_ + (let () (declare (not safe)) (##cdr _%e164166164202%_))) + (_%hd164167164205%_ (let () (declare (not safe)) - (##car _%e163892163928%_)))) + (##car _%e164166164202%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163894163933%_)) - (_%__kont166972166973%_ - _%hd163893163931%_ - _%hd163890163923%_ - _%hd163820164080%_) - (let () (declare (not safe)) (_%g163810163899%_))))) - (let () (declare (not safe)) (_%g163810163899%_))))) + (gx#stx-null? _%tl164168164207%_)) + (_%__kont167246167247%_ + _%hd164167164205%_ + _%hd164164164197%_ + _%hd164094164354%_) + (let () (declare (not safe)) (_%g164084164173%_))))) + (let () (declare (not safe)) (_%g164084164173%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g163810163899%_)))))) + (_%g164084164173%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163821164082%_)) - (let ((_%e163889163920%_ + (gx#stx-pair? _%tl164095164356%_)) + (let ((_%e164163164194%_ (let () (declare (not safe)) - (gx#stx-e _%tl163821164082%_)))) - (let ((_%tl163891163925%_ + (gx#stx-e _%tl164095164356%_)))) + (let ((_%tl164165164199%_ (let () (declare (not safe)) - (##cdr _%e163889163920%_))) - (_%hd163890163923%_ + (##cdr _%e164163164194%_))) + (_%hd164164164197%_ (let () (declare (not safe)) - (##car _%e163889163920%_)))) + (##car _%e164163164194%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163891163925%_)) - (let ((_%e163892163928%_ + _%tl164165164199%_)) + (let ((_%e164166164202%_ (let () (declare (not safe)) (gx#stx-e - _%tl163891163925%_)))) - (let ((_%tl163894163933%_ + _%tl164165164199%_)))) + (let ((_%tl164168164207%_ (let () (declare (not safe)) - (##cdr _%e163892163928%_))) - (_%hd163893163931%_ + (##cdr _%e164166164202%_))) + (_%hd164167164205%_ (let () (declare (not safe)) - (##car _%e163892163928%_)))) + (##car _%e164166164202%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163894163933%_)) - (_%__kont166972166973%_ - _%hd163893163931%_ - _%hd163890163923%_ - _%hd163820164080%_) + _%tl164168164207%_)) + (_%__kont167246167247%_ + _%hd164167164205%_ + _%hd164164164197%_ + _%hd164094164354%_) (let () (declare (not safe)) - (_%g163810163899%_))))) + (_%g164084164173%_))))) (let () (declare (not safe)) - (_%g163810163899%_))))) + (_%g164084164173%_))))) (let () (declare (not safe)) - (_%g163810163899%_)))))) - (let () (declare (not safe)) (_%g163810163899%_))))) - (let () (declare (not safe)) (_%g163810163899%_)))))))) + (_%g164084164173%_)))))) + (let () (declare (not safe)) (_%g164084164173%_))))) + (let () (declare (not safe)) (_%g164084164173%_)))))))) (define gxc#refine-type-define-values% - (lambda (_%self163663%_ _%stx163664%_) - (let* ((_%__stx167156167157%_ _%stx163664%_) - (_%g163667163697%_ + (lambda (_%self163937%_ _%stx163938%_) + (let* ((_%__stx167430167431%_ _%stx163938%_) + (_%g163941163971%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167156167157%_))))) - (let ((_%__kont167158167159%_ - (lambda (_%L163777%_ _%L163778%_) - (let ((_%sym163794%_ + _%__stx167430167431%_))))) + (let ((_%__kont167432167433%_ + (lambda (_%L164051%_ _%L164052%_) + (let ((_%sym164068%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L163778%_)))) - (if (let ((__tmp169547 + (gxc#identifier-symbol _%L164052%_)))) + (if (let ((__tmp169821 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) - (hash-get __tmp169547 _%sym163794%_)) + (hash-get __tmp169821 _%sym164068%_)) '#!void - (let ((_%type163795163797%_ - (gxc#apply-basic-expression-type _%L163777%_))) - (if _%type163795163797%_ - (let ((_%type163800%_ _%type163795163797%_)) + (let ((_%type164069164071%_ + (gxc#apply-basic-expression-type _%L164051%_))) + (if _%type164069164071%_ + (let ((_%type164074%_ _%type164069164071%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type163800%_ + _%type164074%_ 'gxc#!class-meta::t)) '#!void (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym163794%_ - _%type163800%_)))) + _%sym164068%_ + _%type164074%_)))) '#f))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self163663%_ _%L163777%_))))) - (_%__kont167160167161%_ - (lambda (_%L163726%_) + (gxc#compile-e__1 _%self163937%_ _%L164051%_))))) + (_%__kont167434167435%_ + (lambda (_%L164000%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self163663%_ _%L163726%_))))) - (let ((_%__match167189167190%_ - (lambda (_%e163671163745%_ - _%hd163672163748%_ - _%tl163673163750%_ - _%e163674163753%_ - _%hd163675163756%_ - _%tl163676163758%_ - _%e163677163761%_ - _%hd163678163764%_ - _%tl163679163766%_ - _%e163680163769%_ - _%hd163681163772%_ - _%tl163682163774%_) - (let ((_%L163777%_ _%hd163681163772%_) - (_%L163778%_ _%hd163678163764%_)) + (gxc#compile-e__1 _%self163937%_ _%L164000%_))))) + (let ((_%__match167463167464%_ + (lambda (_%e163945164019%_ + _%hd163946164022%_ + _%tl163947164024%_ + _%e163948164027%_ + _%hd163949164030%_ + _%tl163950164032%_ + _%e163951164035%_ + _%hd163952164038%_ + _%tl163953164040%_ + _%e163954164043%_ + _%hd163955164046%_ + _%tl163956164048%_) + (let ((_%L164051%_ _%hd163955164046%_) + (_%L164052%_ _%hd163952164038%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L163778%_)) - (_%__kont167158167159%_ _%L163777%_ _%L163778%_) - (_%__kont167160167161%_ _%hd163681163772%_)))))) + (gx#identifier? _%L164052%_)) + (_%__kont167432167433%_ _%L164051%_ _%L164052%_) + (_%__kont167434167435%_ _%hd163955164046%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167156167157%_)) - (let ((_%e163671163745%_ + (gx#stx-pair? _%__stx167430167431%_)) + (let ((_%e163945164019%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167156167157%_)))) - (let ((_%tl163673163750%_ + (gx#stx-e _%__stx167430167431%_)))) + (let ((_%tl163947164024%_ (let () (declare (not safe)) - (##cdr _%e163671163745%_))) - (_%hd163672163748%_ + (##cdr _%e163945164019%_))) + (_%hd163946164022%_ (let () (declare (not safe)) - (##car _%e163671163745%_)))) + (##car _%e163945164019%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163673163750%_)) - (let ((_%e163674163753%_ + (gx#stx-pair? _%tl163947164024%_)) + (let ((_%e163948164027%_ (let () (declare (not safe)) - (gx#stx-e _%tl163673163750%_)))) - (let ((_%tl163676163758%_ + (gx#stx-e _%tl163947164024%_)))) + (let ((_%tl163950164032%_ (let () (declare (not safe)) - (##cdr _%e163674163753%_))) - (_%hd163675163756%_ + (##cdr _%e163948164027%_))) + (_%hd163949164030%_ (let () (declare (not safe)) - (##car _%e163674163753%_)))) + (##car _%e163948164027%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163675163756%_)) - (let ((_%e163677163761%_ + (gx#stx-pair? _%hd163949164030%_)) + (let ((_%e163951164035%_ (let () (declare (not safe)) - (gx#stx-e _%hd163675163756%_)))) - (let ((_%tl163679163766%_ + (gx#stx-e _%hd163949164030%_)))) + (let ((_%tl163953164040%_ (let () (declare (not safe)) - (##cdr _%e163677163761%_))) - (_%hd163678163764%_ + (##cdr _%e163951164035%_))) + (_%hd163952164038%_ (let () (declare (not safe)) - (##car _%e163677163761%_)))) + (##car _%e163951164035%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163679163766%_)) + (gx#stx-null? _%tl163953164040%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163676163758%_)) - (let ((_%e163680163769%_ + _%tl163950164032%_)) + (let ((_%e163954164043%_ (let () (declare (not safe)) (gx#stx-e - _%tl163676163758%_)))) - (let ((_%tl163682163774%_ + _%tl163950164032%_)))) + (let ((_%tl163956164048%_ (let () (declare (not safe)) - (##cdr _%e163680163769%_))) - (_%hd163681163772%_ + (##cdr _%e163954164043%_))) + (_%hd163955164046%_ (let () (declare (not safe)) - (##car _%e163680163769%_)))) + (##car _%e163954164043%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163682163774%_)) - (_%__match167189167190%_ - _%e163671163745%_ - _%hd163672163748%_ - _%tl163673163750%_ - _%e163674163753%_ - _%hd163675163756%_ - _%tl163676163758%_ - _%e163677163761%_ - _%hd163678163764%_ - _%tl163679163766%_ - _%e163680163769%_ - _%hd163681163772%_ - _%tl163682163774%_) + _%tl163956164048%_)) + (_%__match167463167464%_ + _%e163945164019%_ + _%hd163946164022%_ + _%tl163947164024%_ + _%e163948164027%_ + _%hd163949164030%_ + _%tl163950164032%_ + _%e163951164035%_ + _%hd163952164038%_ + _%tl163953164040%_ + _%e163954164043%_ + _%hd163955164046%_ + _%tl163956164048%_) (let () (declare (not safe)) - (_%g163667163697%_))))) + (_%g163941163971%_))))) (let () (declare (not safe)) - (_%g163667163697%_))) + (_%g163941163971%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163676163758%_)) - (let ((_%e163690163718%_ + _%tl163950164032%_)) + (let ((_%e163964163992%_ (let () (declare (not safe)) (gx#stx-e - _%tl163676163758%_)))) - (let ((_%tl163692163723%_ + _%tl163950164032%_)))) + (let ((_%tl163966163997%_ (let () (declare (not safe)) - (##cdr _%e163690163718%_))) - (_%hd163691163721%_ + (##cdr _%e163964163992%_))) + (_%hd163965163995%_ (let () (declare (not safe)) - (##car _%e163690163718%_)))) + (##car _%e163964163992%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163692163723%_)) - (_%__kont167160167161%_ - _%hd163691163721%_) + _%tl163966163997%_)) + (_%__kont167434167435%_ + _%hd163965163995%_) (let () (declare (not safe)) - (_%g163667163697%_))))) + (_%g163941163971%_))))) (let () (declare (not safe)) - (_%g163667163697%_)))))) + (_%g163941163971%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163676163758%_)) - (let ((_%e163690163718%_ + (gx#stx-pair? _%tl163950164032%_)) + (let ((_%e163964163992%_ (let () (declare (not safe)) - (gx#stx-e _%tl163676163758%_)))) - (let ((_%tl163692163723%_ + (gx#stx-e _%tl163950164032%_)))) + (let ((_%tl163966163997%_ (let () (declare (not safe)) - (##cdr _%e163690163718%_))) - (_%hd163691163721%_ + (##cdr _%e163964163992%_))) + (_%hd163965163995%_ (let () (declare (not safe)) - (##car _%e163690163718%_)))) + (##car _%e163964163992%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163692163723%_)) - (_%__kont167160167161%_ - _%hd163691163721%_) + _%tl163966163997%_)) + (_%__kont167434167435%_ + _%hd163965163995%_) (let () (declare (not safe)) - (_%g163667163697%_))))) + (_%g163941163971%_))))) (let () (declare (not safe)) - (_%g163667163697%_)))))) - (let () (declare (not safe)) (_%g163667163697%_))))) - (let () (declare (not safe)) (_%g163667163697%_)))))))) + (_%g163941163971%_)))))) + (let () (declare (not safe)) (_%g163941163971%_))))) + (let () (declare (not safe)) (_%g163941163971%_)))))))) (define gxc#refine-type-let-values% - (lambda (_%self163435%_ _%stx163436%_) - (letrec ((_%collect-e163438%_ - (lambda (_%hd163607%_ _%expr163608%_) - (let* ((_%__stx167212167213%_ _%hd163607%_) - (_%g163611163621%_ + (lambda (_%self163709%_ _%stx163710%_) + (letrec ((_%collect-e163712%_ + (lambda (_%hd163881%_ _%expr163882%_) + (let* ((_%__stx167486167487%_ _%hd163881%_) + (_%g163885163895%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167212167213%_))))) - (let ((_%__kont167214167215%_ - (lambda (_%L163641%_) - (let ((_%sym163652%_ + _%__stx167486167487%_))))) + (let ((_%__kont167488167489%_ + (lambda (_%L163915%_) + (let ((_%sym163926%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L163641%_)))) - (if (let ((__tmp169548 + (gxc#identifier-symbol _%L163915%_)))) + (if (let ((__tmp169822 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) - (hash-get __tmp169548 _%sym163652%_)) + (hash-get __tmp169822 _%sym163926%_)) '#!void - (let ((_%type163653163655%_ + (let ((_%type163927163929%_ (gxc#apply-basic-expression-type - _%expr163608%_))) - (if _%type163653163655%_ - (let ((_%type163658%_ - _%type163653163655%_)) + _%expr163882%_))) + (if _%type163927163929%_ + (let ((_%type163932%_ + _%type163927163929%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type163658%_ + _%type163932%_ 'gxc#!class-meta::t)) '#!void (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym163652%_ - _%type163658%_ + _%sym163926%_ + _%type163932%_ '#t)))) '#f)))))) - (_%__kont167216167217%_ (lambda () '#!void))) - (let ((_%__match167225167226%_ - (lambda (_%e163614163633%_ - _%hd163615163636%_ - _%tl163616163638%_) - (let ((_%L163641%_ _%hd163615163636%_)) + (_%__kont167490167491%_ (lambda () '#!void))) + (let ((_%__match167499167500%_ + (lambda (_%e163888163907%_ + _%hd163889163910%_ + _%tl163890163912%_) + (let ((_%L163915%_ _%hd163889163910%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L163641%_)) - (_%__kont167214167215%_ _%L163641%_) - (_%__kont167216167217%_)))))) + (gx#identifier? _%L163915%_)) + (_%__kont167488167489%_ _%L163915%_) + (_%__kont167490167491%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167212167213%_)) - (let ((_%e163614163633%_ + (gx#stx-pair? _%__stx167486167487%_)) + (let ((_%e163888163907%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167212167213%_)))) - (let ((_%tl163616163638%_ + (gx#stx-e _%__stx167486167487%_)))) + (let ((_%tl163890163912%_ (let () (declare (not safe)) - (##cdr _%e163614163633%_))) - (_%hd163615163636%_ + (##cdr _%e163888163907%_))) + (_%hd163889163910%_ (let () (declare (not safe)) - (##car _%e163614163633%_)))) + (##car _%e163888163907%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163616163638%_)) - (_%__match167225167226%_ - _%e163614163633%_ - _%hd163615163636%_ - _%tl163616163638%_) - (_%__kont167216167217%_)))) - (_%__kont167216167217%_)))))))) - (let* ((_%g163440163475%_ - (lambda (_%g163441163472%_) + (gx#stx-null? _%tl163890163912%_)) + (_%__match167499167500%_ + _%e163888163907%_ + _%hd163889163910%_ + _%tl163890163912%_) + (_%__kont167490167491%_)))) + (_%__kont167490167491%_)))))))) + (let* ((_%g163714163749%_ + (lambda (_%g163715163746%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163441163472%_)))) - (_%g163439163604%_ - (lambda (_%g163441163478%_) + _%g163715163746%_)))) + (_%g163713163878%_ + (lambda (_%g163715163752%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163441163478%_)) - (let ((_%e163445163480%_ + (gx#stx-pair? _%g163715163752%_)) + (let ((_%e163719163754%_ (let () (declare (not safe)) - (gx#stx-e _%g163441163478%_)))) - (let ((_%hd163446163483%_ + (gx#stx-e _%g163715163752%_)))) + (let ((_%hd163720163757%_ (let () (declare (not safe)) - (##car _%e163445163480%_))) - (_%tl163447163485%_ + (##car _%e163719163754%_))) + (_%tl163721163759%_ (let () (declare (not safe)) - (##cdr _%e163445163480%_)))) + (##cdr _%e163719163754%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163447163485%_)) - (let ((_%e163448163488%_ + (gx#stx-pair? _%tl163721163759%_)) + (let ((_%e163722163762%_ (let () (declare (not safe)) - (gx#stx-e _%tl163447163485%_)))) - (let ((_%hd163449163491%_ + (gx#stx-e _%tl163721163759%_)))) + (let ((_%hd163723163765%_ (let () (declare (not safe)) - (##car _%e163448163488%_))) - (_%tl163450163493%_ + (##car _%e163722163762%_))) + (_%tl163724163767%_ (let () (declare (not safe)) - (##cdr _%e163448163488%_)))) + (##cdr _%e163722163762%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd163449163491%_)) - (let ((_g169549_ + _%hd163723163765%_)) + (let ((_g169823_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd163449163491%_ + _%hd163723163765%_ '0)))) (begin - (let ((_g169550_ + (let ((_g169824_ (let () (declare (not safe)) - (if (##values? _g169549_) + (if (##values? _g169823_) (##vector-length - _g169549_) + _g169823_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g169550_ 2))) + (##fx= _g169824_ 2))) (error "Context expects 2 values" - _g169550_))) - (let ((_%target163451163496%_ + _g169824_))) + (let ((_%target163725163770%_ (let () (declare (not safe)) (##vector-ref - _g169549_ + _g169823_ 0))) - (_%tl163453163498%_ + (_%tl163727163772%_ (let () (declare (not safe)) (##vector-ref - _g169549_ + _g169823_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163453163498%_)) - (letrec ((_%loop163454163501%_ - (lambda (_%hd163452163504%_ + _%tl163727163772%_)) + (letrec ((_%loop163728163775%_ + (lambda (_%hd163726163778%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr163458163506%_ - _%hd163459163508%_) + _%expr163732163780%_ + _%hd163733163782%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163452163504%_)) - (let ((_%e163455163511%_ + (gx#stx-pair? _%hd163726163778%_)) + (let ((_%e163729163785%_ (let () (declare (not safe)) - (gx#stx-e _%hd163452163504%_)))) - (let ((_%lp-hd163456163514%_ + (gx#stx-e _%hd163726163778%_)))) + (let ((_%lp-hd163730163788%_ (let () (declare (not safe)) - (##car _%e163455163511%_))) - (_%lp-tl163457163516%_ + (##car _%e163729163785%_))) + (_%lp-tl163731163790%_ (let () (declare (not safe)) - (##cdr _%e163455163511%_)))) + (##cdr _%e163729163785%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd163456163514%_)) - (let ((_%e163465163519%_ + (gx#stx-pair? _%lp-hd163730163788%_)) + (let ((_%e163739163793%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd163456163514%_)))) - (let ((_%hd163466163522%_ + (gx#stx-e _%lp-hd163730163788%_)))) + (let ((_%hd163740163796%_ (let () (declare (not safe)) - (##car _%e163465163519%_))) - (_%tl163467163524%_ + (##car _%e163739163793%_))) + (_%tl163741163798%_ (let () (declare (not safe)) - (##cdr _%e163465163519%_)))) + (##cdr _%e163739163793%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163467163524%_)) - (let ((_%e163468163527%_ + (gx#stx-pair? _%tl163741163798%_)) + (let ((_%e163742163801%_ (let () (declare (not safe)) (gx#stx-e - _%tl163467163524%_)))) - (let ((_%hd163469163530%_ + _%tl163741163798%_)))) + (let ((_%hd163743163804%_ (let () (declare (not safe)) - (##car _%e163468163527%_))) - (_%tl163470163532%_ + (##car _%e163742163801%_))) + (_%tl163744163806%_ (let () (declare (not safe)) - (##cdr _%e163468163527%_)))) + (##cdr _%e163742163801%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163470163532%_)) - (_%loop163454163501%_ - _%lp-tl163457163516%_ - (cons _%hd163469163530%_ - _%expr163458163506%_) - (cons _%hd163466163522%_ - _%hd163459163508%_)) - (_%g163440163475%_ - _%g163441163478%_)))) - (_%g163440163475%_ - _%g163441163478%_)))) - (_%g163440163475%_ _%g163441163478%_)))) - (let ((_%expr163460163535%_ - (reverse _%expr163458163506%_)) - (_%hd163461163537%_ - (reverse _%hd163459163508%_))) + _%tl163744163806%_)) + (_%loop163728163775%_ + _%lp-tl163731163790%_ + (cons _%hd163743163804%_ + _%expr163732163780%_) + (cons _%hd163740163796%_ + _%hd163733163782%_)) + (_%g163714163749%_ + _%g163715163752%_)))) + (_%g163714163749%_ + _%g163715163752%_)))) + (_%g163714163749%_ _%g163715163752%_)))) + (let ((_%expr163734163809%_ + (reverse _%expr163732163780%_)) + (_%hd163735163811%_ + (reverse _%hd163733163782%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163450163493%_)) - (let ((_%e163462163540%_ + (gx#stx-pair? _%tl163724163767%_)) + (let ((_%e163736163814%_ (let () (declare (not safe)) - (gx#stx-e _%tl163450163493%_)))) - (let ((_%hd163463163543%_ + (gx#stx-e _%tl163724163767%_)))) + (let ((_%hd163737163817%_ (let () (declare (not safe)) - (##car _%e163462163540%_))) - (_%tl163464163545%_ + (##car _%e163736163814%_))) + (_%tl163738163819%_ (let () (declare (not safe)) - (##cdr _%e163462163540%_)))) + (##cdr _%e163736163814%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163464163545%_)) - ((lambda (_%L163548%_ - _%L163549%_ - _%L163550%_) + (gx#stx-null? _%tl163738163819%_)) + ((lambda (_%L163822%_ + _%L163823%_ + _%L163824%_) (for-each - _%collect-e163438%_ - (let ((__tmp169551 - (lambda (_%g163570163573%_ - _%g163571163575%_) - (cons _%g163570163573%_ - _%g163571163575%_)))) + _%collect-e163712%_ + (let ((__tmp169825 + (lambda (_%g163844163847%_ + _%g163845163849%_) + (cons _%g163844163847%_ + _%g163845163849%_)))) (declare (not safe)) (__foldr1 - __tmp169551 + __tmp169825 '() - _%L163550%_)) - (let ((__tmp169552 - (lambda (_%g163577163580%_ - _%g163578163582%_) - (cons _%g163577163580%_ - _%g163578163582%_)))) + _%L163824%_)) + (let ((__tmp169826 + (lambda (_%g163851163854%_ + _%g163852163856%_) + (cons _%g163851163854%_ + _%g163852163856%_)))) (declare (not safe)) (__foldr1 - __tmp169552 + __tmp169826 '() - _%L163549%_))) + _%L163823%_))) (for-each - (lambda (_%g163584163586%_) + (lambda (_%g163858163860%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self163435%_ - _%g163584163586%_))) - (let ((__tmp169553 - (lambda (_%g163588163591%_ - _%g163589163593%_) - (cons _%g163588163591%_ - _%g163589163593%_)))) + _%self163709%_ + _%g163858163860%_))) + (let ((__tmp169827 + (lambda (_%g163862163865%_ + _%g163863163867%_) + (cons _%g163862163865%_ + _%g163863163867%_)))) (declare (not safe)) (__foldr1 - __tmp169553 + __tmp169827 '() - _%L163549%_))) - (let ((__tmp169557 + _%L163823%_))) + (let ((__tmp169831 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self163435%_ - _%L163548%_)))) - (__tmp169554 - (let ((__tmp169555 - (let ((__tmp169556 - (lambda (_%g163596163599%_ + _%self163709%_ + _%L163822%_)))) + (__tmp169828 + (let ((__tmp169829 + (let ((__tmp169830 + (lambda (_%g163870163873%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g163597163601%_) - (cons _%g163596163599%_ _%g163597163601%_)))) + _%g163871163875%_) + (cons _%g163870163873%_ _%g163871163875%_)))) (declare (not safe)) - (__foldr1 __tmp169556 '() _%L163550%_)))) + (__foldr1 __tmp169830 '() _%L163824%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp169555)))) + __tmp169829)))) (declare (not safe)) (__call-with-parameters - __tmp169557 + __tmp169831 gxc#current-compile-local-env - __tmp169554))) - _%hd163463163543%_ - _%expr163460163535%_ - _%hd163461163537%_) - (_%g163440163475%_ - _%g163441163478%_)))) - (_%g163440163475%_ _%g163441163478%_))))))) + __tmp169828))) + _%hd163737163817%_ + _%expr163734163809%_ + _%hd163735163811%_) + (_%g163714163749%_ + _%g163715163752%_)))) + (_%g163714163749%_ _%g163715163752%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop163454163501%_ - _%target163451163496%_ + (_%loop163728163775%_ + _%target163725163770%_ '() '())) - (_%g163440163475%_ - _%g163441163478%_))))) - (_%g163440163475%_ - _%g163441163478%_)))) - (_%g163440163475%_ _%g163441163478%_)))) - (_%g163440163475%_ _%g163441163478%_))))) - (_%g163439163604%_ _%stx163436%_))))) + (_%g163714163749%_ + _%g163715163752%_))))) + (_%g163714163749%_ + _%g163715163752%_)))) + (_%g163714163749%_ _%g163715163752%_)))) + (_%g163714163749%_ _%g163715163752%_))))) + (_%g163713163878%_ _%stx163710%_))))) (define gxc#refine-type-letrec-values% - (lambda (_%self163207%_ _%stx163208%_) - (letrec ((_%collect-e163210%_ - (lambda (_%hd163379%_ _%expr163380%_) - (let* ((_%__stx167228167229%_ _%hd163379%_) - (_%g163383163393%_ + (lambda (_%self163481%_ _%stx163482%_) + (letrec ((_%collect-e163484%_ + (lambda (_%hd163653%_ _%expr163654%_) + (let* ((_%__stx167502167503%_ _%hd163653%_) + (_%g163657163667%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167228167229%_))))) - (let ((_%__kont167230167231%_ - (lambda (_%L163413%_) - (let ((_%sym163424%_ + _%__stx167502167503%_))))) + (let ((_%__kont167504167505%_ + (lambda (_%L163687%_) + (let ((_%sym163698%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L163413%_)))) - (if (let ((__tmp169558 + (gxc#identifier-symbol _%L163687%_)))) + (if (let ((__tmp169832 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) - (hash-get __tmp169558 _%sym163424%_)) + (hash-get __tmp169832 _%sym163698%_)) '#!void - (let ((_%type163425163427%_ + (let ((_%type163699163701%_ (gxc#apply-basic-expression-type - _%expr163380%_))) - (if _%type163425163427%_ - (let ((_%type163430%_ - _%type163425163427%_)) + _%expr163654%_))) + (if _%type163699163701%_ + (let ((_%type163704%_ + _%type163699163701%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type163430%_ + _%type163704%_ 'gxc#!class-meta::t)) '#!void (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym163424%_ - _%type163430%_ + _%sym163698%_ + _%type163704%_ '#t)))) '#f)))))) - (_%__kont167232167233%_ (lambda () '#!void))) - (let ((_%__match167241167242%_ - (lambda (_%e163386163405%_ - _%hd163387163408%_ - _%tl163388163410%_) - (let ((_%L163413%_ _%hd163387163408%_)) + (_%__kont167506167507%_ (lambda () '#!void))) + (let ((_%__match167515167516%_ + (lambda (_%e163660163679%_ + _%hd163661163682%_ + _%tl163662163684%_) + (let ((_%L163687%_ _%hd163661163682%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L163413%_)) - (_%__kont167230167231%_ _%L163413%_) - (_%__kont167232167233%_)))))) + (gx#identifier? _%L163687%_)) + (_%__kont167504167505%_ _%L163687%_) + (_%__kont167506167507%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167228167229%_)) - (let ((_%e163386163405%_ + (gx#stx-pair? _%__stx167502167503%_)) + (let ((_%e163660163679%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167228167229%_)))) - (let ((_%tl163388163410%_ + (gx#stx-e _%__stx167502167503%_)))) + (let ((_%tl163662163684%_ (let () (declare (not safe)) - (##cdr _%e163386163405%_))) - (_%hd163387163408%_ + (##cdr _%e163660163679%_))) + (_%hd163661163682%_ (let () (declare (not safe)) - (##car _%e163386163405%_)))) + (##car _%e163660163679%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163388163410%_)) - (_%__match167241167242%_ - _%e163386163405%_ - _%hd163387163408%_ - _%tl163388163410%_) - (_%__kont167232167233%_)))) - (_%__kont167232167233%_)))))))) - (let* ((_%g163212163247%_ - (lambda (_%g163213163244%_) + (gx#stx-null? _%tl163662163684%_)) + (_%__match167515167516%_ + _%e163660163679%_ + _%hd163661163682%_ + _%tl163662163684%_) + (_%__kont167506167507%_)))) + (_%__kont167506167507%_)))))))) + (let* ((_%g163486163521%_ + (lambda (_%g163487163518%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163213163244%_)))) - (_%g163211163376%_ - (lambda (_%g163213163250%_) + _%g163487163518%_)))) + (_%g163485163650%_ + (lambda (_%g163487163524%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163213163250%_)) - (let ((_%e163217163252%_ + (gx#stx-pair? _%g163487163524%_)) + (let ((_%e163491163526%_ (let () (declare (not safe)) - (gx#stx-e _%g163213163250%_)))) - (let ((_%hd163218163255%_ + (gx#stx-e _%g163487163524%_)))) + (let ((_%hd163492163529%_ (let () (declare (not safe)) - (##car _%e163217163252%_))) - (_%tl163219163257%_ + (##car _%e163491163526%_))) + (_%tl163493163531%_ (let () (declare (not safe)) - (##cdr _%e163217163252%_)))) + (##cdr _%e163491163526%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163219163257%_)) - (let ((_%e163220163260%_ + (gx#stx-pair? _%tl163493163531%_)) + (let ((_%e163494163534%_ (let () (declare (not safe)) - (gx#stx-e _%tl163219163257%_)))) - (let ((_%hd163221163263%_ + (gx#stx-e _%tl163493163531%_)))) + (let ((_%hd163495163537%_ (let () (declare (not safe)) - (##car _%e163220163260%_))) - (_%tl163222163265%_ + (##car _%e163494163534%_))) + (_%tl163496163539%_ (let () (declare (not safe)) - (##cdr _%e163220163260%_)))) + (##cdr _%e163494163534%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd163221163263%_)) - (let ((_g169559_ + _%hd163495163537%_)) + (let ((_g169833_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd163221163263%_ + _%hd163495163537%_ '0)))) (begin - (let ((_g169560_ + (let ((_g169834_ (let () (declare (not safe)) - (if (##values? _g169559_) + (if (##values? _g169833_) (##vector-length - _g169559_) + _g169833_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g169560_ 2))) + (##fx= _g169834_ 2))) (error "Context expects 2 values" - _g169560_))) - (let ((_%target163223163268%_ + _g169834_))) + (let ((_%target163497163542%_ (let () (declare (not safe)) (##vector-ref - _g169559_ + _g169833_ 0))) - (_%tl163225163270%_ + (_%tl163499163544%_ (let () (declare (not safe)) (##vector-ref - _g169559_ + _g169833_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163225163270%_)) - (letrec ((_%loop163226163273%_ - (lambda (_%hd163224163276%_ + _%tl163499163544%_)) + (letrec ((_%loop163500163547%_ + (lambda (_%hd163498163550%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr163230163278%_ - _%hd163231163280%_) + _%expr163504163552%_ + _%hd163505163554%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163224163276%_)) - (let ((_%e163227163283%_ + (gx#stx-pair? _%hd163498163550%_)) + (let ((_%e163501163557%_ (let () (declare (not safe)) - (gx#stx-e _%hd163224163276%_)))) - (let ((_%lp-hd163228163286%_ + (gx#stx-e _%hd163498163550%_)))) + (let ((_%lp-hd163502163560%_ (let () (declare (not safe)) - (##car _%e163227163283%_))) - (_%lp-tl163229163288%_ + (##car _%e163501163557%_))) + (_%lp-tl163503163562%_ (let () (declare (not safe)) - (##cdr _%e163227163283%_)))) + (##cdr _%e163501163557%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd163228163286%_)) - (let ((_%e163237163291%_ + (gx#stx-pair? _%lp-hd163502163560%_)) + (let ((_%e163511163565%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd163228163286%_)))) - (let ((_%hd163238163294%_ + (gx#stx-e _%lp-hd163502163560%_)))) + (let ((_%hd163512163568%_ (let () (declare (not safe)) - (##car _%e163237163291%_))) - (_%tl163239163296%_ + (##car _%e163511163565%_))) + (_%tl163513163570%_ (let () (declare (not safe)) - (##cdr _%e163237163291%_)))) + (##cdr _%e163511163565%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163239163296%_)) - (let ((_%e163240163299%_ + (gx#stx-pair? _%tl163513163570%_)) + (let ((_%e163514163573%_ (let () (declare (not safe)) (gx#stx-e - _%tl163239163296%_)))) - (let ((_%hd163241163302%_ + _%tl163513163570%_)))) + (let ((_%hd163515163576%_ (let () (declare (not safe)) - (##car _%e163240163299%_))) - (_%tl163242163304%_ + (##car _%e163514163573%_))) + (_%tl163516163578%_ (let () (declare (not safe)) - (##cdr _%e163240163299%_)))) + (##cdr _%e163514163573%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163242163304%_)) - (_%loop163226163273%_ - _%lp-tl163229163288%_ - (cons _%hd163241163302%_ - _%expr163230163278%_) - (cons _%hd163238163294%_ - _%hd163231163280%_)) - (_%g163212163247%_ - _%g163213163250%_)))) - (_%g163212163247%_ - _%g163213163250%_)))) - (_%g163212163247%_ _%g163213163250%_)))) - (let ((_%expr163232163307%_ - (reverse _%expr163230163278%_)) - (_%hd163233163309%_ - (reverse _%hd163231163280%_))) + _%tl163516163578%_)) + (_%loop163500163547%_ + _%lp-tl163503163562%_ + (cons _%hd163515163576%_ + _%expr163504163552%_) + (cons _%hd163512163568%_ + _%hd163505163554%_)) + (_%g163486163521%_ + _%g163487163524%_)))) + (_%g163486163521%_ + _%g163487163524%_)))) + (_%g163486163521%_ _%g163487163524%_)))) + (let ((_%expr163506163581%_ + (reverse _%expr163504163552%_)) + (_%hd163507163583%_ + (reverse _%hd163505163554%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163222163265%_)) - (let ((_%e163234163312%_ + (gx#stx-pair? _%tl163496163539%_)) + (let ((_%e163508163586%_ (let () (declare (not safe)) - (gx#stx-e _%tl163222163265%_)))) - (let ((_%hd163235163315%_ + (gx#stx-e _%tl163496163539%_)))) + (let ((_%hd163509163589%_ (let () (declare (not safe)) - (##car _%e163234163312%_))) - (_%tl163236163317%_ + (##car _%e163508163586%_))) + (_%tl163510163591%_ (let () (declare (not safe)) - (##cdr _%e163234163312%_)))) + (##cdr _%e163508163586%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163236163317%_)) - ((lambda (_%L163320%_ - _%L163321%_ - _%L163322%_) - (let ((__tmp169564 + (gx#stx-null? _%tl163510163591%_)) + ((lambda (_%L163594%_ + _%L163595%_ + _%L163596%_) + (let ((__tmp169838 (lambda () (for-each - _%collect-e163210%_ - (let ((__tmp169565 - (lambda (_%g163343163346%_ + _%collect-e163484%_ + (let ((__tmp169839 + (lambda (_%g163617163620%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g163344163348%_) - (cons _%g163343163346%_ _%g163344163348%_)))) + _%g163618163622%_) + (cons _%g163617163620%_ _%g163618163622%_)))) (declare (not safe)) - (__foldr1 __tmp169565 '() _%L163322%_)) + (__foldr1 __tmp169839 '() _%L163596%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp169566 - (lambda (_%g163350163353%_ + (let ((__tmp169840 + (lambda (_%g163624163627%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g163351163355%_) - (cons _%g163350163353%_ _%g163351163355%_)))) + _%g163625163629%_) + (cons _%g163624163627%_ _%g163625163629%_)))) (declare (not safe)) - (__foldr1 __tmp169566 '() _%L163321%_))) + (__foldr1 __tmp169840 '() _%L163595%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g163357163359%_) + (lambda (_%g163631163633%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self163207%_ - _%g163357163359%_))) - (let ((__tmp169567 - (lambda (_%g163361163364%_ + _%self163481%_ + _%g163631163633%_))) + (let ((__tmp169841 + (lambda (_%g163635163638%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g163362163366%_) - (cons _%g163361163364%_ _%g163362163366%_)))) + _%g163636163640%_) + (cons _%g163635163638%_ _%g163636163640%_)))) (declare (not safe)) - (__foldr1 __tmp169567 '() _%L163321%_))) + (__foldr1 __tmp169841 '() _%L163595%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#compile-e__1 - _%self163207%_ - _%L163320%_)))) - (__tmp169561 - (let ((__tmp169562 - (let ((__tmp169563 - (lambda (_%g163368163371%_ + _%self163481%_ + _%L163594%_)))) + (__tmp169835 + (let ((__tmp169836 + (let ((__tmp169837 + (lambda (_%g163642163645%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g163369163373%_) - (cons _%g163368163371%_ _%g163369163373%_)))) + _%g163643163647%_) + (cons _%g163642163645%_ _%g163643163647%_)))) (declare (not safe)) - (__foldr1 __tmp169563 '() _%L163322%_)))) + (__foldr1 __tmp169837 '() _%L163596%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp169562)))) + __tmp169836)))) (declare (not safe)) (__call-with-parameters - __tmp169564 + __tmp169838 gxc#current-compile-local-env - __tmp169561))) - _%hd163235163315%_ - _%expr163232163307%_ - _%hd163233163309%_) - (_%g163212163247%_ - _%g163213163250%_)))) - (_%g163212163247%_ _%g163213163250%_))))))) + __tmp169835))) + _%hd163509163589%_ + _%expr163506163581%_ + _%hd163507163583%_) + (_%g163486163521%_ + _%g163487163524%_)))) + (_%g163486163521%_ _%g163487163524%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop163226163273%_ - _%target163223163268%_ + (_%loop163500163547%_ + _%target163497163542%_ '() '())) - (_%g163212163247%_ - _%g163213163250%_))))) - (_%g163212163247%_ - _%g163213163250%_)))) - (_%g163212163247%_ _%g163213163250%_)))) - (_%g163212163247%_ _%g163213163250%_))))) - (_%g163211163376%_ _%stx163208%_))))) + (_%g163486163521%_ + _%g163487163524%_))))) + (_%g163486163521%_ + _%g163487163524%_)))) + (_%g163486163521%_ _%g163487163524%_)))) + (_%g163486163521%_ _%g163487163524%_))))) + (_%g163485163650%_ _%stx163482%_))))) (define gxc#refine-type-lambda% - (lambda (_%self163151%_ _%stx163152%_) - (let* ((_%g163154163168%_ - (lambda (_%g163155163165%_) + (lambda (_%self163425%_ _%stx163426%_) + (let* ((_%g163428163442%_ + (lambda (_%g163429163439%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163155163165%_)))) - (_%g163153163204%_ - (lambda (_%g163155163171%_) + _%g163429163439%_)))) + (_%g163427163478%_ + (lambda (_%g163429163445%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163155163171%_)) - (let ((_%e163158163173%_ + (gx#stx-pair? _%g163429163445%_)) + (let ((_%e163432163447%_ (let () (declare (not safe)) - (gx#stx-e _%g163155163171%_)))) - (let ((_%hd163159163176%_ + (gx#stx-e _%g163429163445%_)))) + (let ((_%hd163433163450%_ (let () (declare (not safe)) - (##car _%e163158163173%_))) - (_%tl163160163178%_ + (##car _%e163432163447%_))) + (_%tl163434163452%_ (let () (declare (not safe)) - (##cdr _%e163158163173%_)))) + (##cdr _%e163432163447%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163160163178%_)) - (let ((_%e163161163181%_ + (gx#stx-pair? _%tl163434163452%_)) + (let ((_%e163435163455%_ (let () (declare (not safe)) - (gx#stx-e _%tl163160163178%_)))) - (let ((_%hd163162163184%_ + (gx#stx-e _%tl163434163452%_)))) + (let ((_%hd163436163458%_ (let () (declare (not safe)) - (##car _%e163161163181%_))) - (_%tl163163163186%_ + (##car _%e163435163455%_))) + (_%tl163437163460%_ (let () (declare (not safe)) - (##cdr _%e163161163181%_)))) - ((lambda (_%L163189%_ _%L163190%_) - (let ((__tmp169569 + (##cdr _%e163435163455%_)))) + ((lambda (_%L163463%_ _%L163464%_) + (let ((__tmp169843 (lambda () (let () (declare (not safe)) (gxc#apply-body-lambda% - _%self163151%_ - _%stx163152%_)))) - (__tmp169568 + _%self163425%_ + _%stx163426%_)))) + (__tmp169842 (let () (declare (not safe)) (gxc#xform-let-locals - _%L163190%_)))) + _%L163464%_)))) (declare (not safe)) (__call-with-parameters - __tmp169569 + __tmp169843 gxc#current-compile-local-env - __tmp169568))) - _%tl163163163186%_ - _%hd163162163184%_))) - (_%g163154163168%_ _%g163155163171%_)))) - (_%g163154163168%_ _%g163155163171%_))))) - (_%g163153163204%_ _%stx163152%_)))) + __tmp169842))) + _%tl163437163460%_ + _%hd163436163458%_))) + (_%g163428163442%_ _%g163429163445%_)))) + (_%g163428163442%_ _%g163429163445%_))))) + (_%g163427163478%_ _%stx163426%_)))) (define gxc#refine-type-case-lambda% - (lambda (_%self162978%_ _%stx162979%_) - (let* ((_%g162981163009%_ - (lambda (_%g162982163006%_) + (lambda (_%self163252%_ _%stx163253%_) + (let* ((_%g163255163283%_ + (lambda (_%g163256163280%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162982163006%_)))) - (_%g162980163148%_ - (lambda (_%g162982163012%_) + _%g163256163280%_)))) + (_%g163254163422%_ + (lambda (_%g163256163286%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162982163012%_)) - (let ((_%e162985163014%_ + (gx#stx-pair? _%g163256163286%_)) + (let ((_%e163259163288%_ (let () (declare (not safe)) - (gx#stx-e _%g162982163012%_)))) - (let ((_%hd162986163017%_ + (gx#stx-e _%g163256163286%_)))) + (let ((_%hd163260163291%_ (let () (declare (not safe)) - (##car _%e162985163014%_))) - (_%tl162987163019%_ + (##car _%e163259163288%_))) + (_%tl163261163293%_ (let () (declare (not safe)) - (##cdr _%e162985163014%_)))) + (##cdr _%e163259163288%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl162987163019%_)) - (let ((_g169570_ + (gx#stx-pair/null? _%tl163261163293%_)) + (let ((_g169844_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl162987163019%_ + _%tl163261163293%_ '0)))) (begin - (let ((_g169571_ + (let ((_g169845_ (let () (declare (not safe)) - (if (##values? _g169570_) - (##vector-length _g169570_) + (if (##values? _g169844_) + (##vector-length _g169844_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g169571_ 2))) + (##fx= _g169845_ 2))) (error "Context expects 2 values" - _g169571_))) - (let ((_%target162988163022%_ + _g169845_))) + (let ((_%target163262163296%_ (let () (declare (not safe)) - (##vector-ref _g169570_ 0))) - (_%tl162990163024%_ + (##vector-ref _g169844_ 0))) + (_%tl163264163298%_ (let () (declare (not safe)) - (##vector-ref _g169570_ 1)))) + (##vector-ref _g169844_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162990163024%_)) - (letrec ((_%loop162991163027%_ - (lambda (_%hd162989163030%_ - _%body162995163032%_ - _%hd162996163034%_) + (gx#stx-null? _%tl163264163298%_)) + (letrec ((_%loop163265163301%_ + (lambda (_%hd163263163304%_ + _%body163269163306%_ + _%hd163270163308%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd162989163030%_)) - (let ((_%e162992163037%_ + _%hd163263163304%_)) + (let ((_%e163266163311%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd162989163030%_)))) - (let ((_%lp-hd162993163040%_ + (gx#stx-e _%hd163263163304%_)))) + (let ((_%lp-hd163267163314%_ (let () (declare (not safe)) - (##car _%e162992163037%_))) - (_%lp-tl162994163042%_ + (##car _%e163266163311%_))) + (_%lp-tl163268163316%_ (let () (declare (not safe)) - (##cdr _%e162992163037%_)))) + (##cdr _%e163266163311%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd162993163040%_)) - (let ((_%e162999163045%_ + (gx#stx-pair? _%lp-hd163267163314%_)) + (let ((_%e163273163319%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd162993163040%_)))) - (let ((_%hd163000163048%_ + (gx#stx-e _%lp-hd163267163314%_)))) + (let ((_%hd163274163322%_ (let () (declare (not safe)) - (##car _%e162999163045%_))) - (_%tl163001163050%_ + (##car _%e163273163319%_))) + (_%tl163275163324%_ (let () (declare (not safe)) - (##cdr _%e162999163045%_)))) + (##cdr _%e163273163319%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163001163050%_)) - (let ((_%e163002163053%_ + (gx#stx-pair? _%tl163275163324%_)) + (let ((_%e163276163327%_ (let () (declare (not safe)) - (gx#stx-e _%tl163001163050%_)))) - (let ((_%hd163003163056%_ + (gx#stx-e _%tl163275163324%_)))) + (let ((_%hd163277163330%_ (let () (declare (not safe)) - (##car _%e163002163053%_))) - (_%tl163004163058%_ + (##car _%e163276163327%_))) + (_%tl163278163332%_ (let () (declare (not safe)) - (##cdr _%e163002163053%_)))) + (##cdr _%e163276163327%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163004163058%_)) - (_%loop162991163027%_ - _%lp-tl162994163042%_ - (cons _%hd163003163056%_ - _%body162995163032%_) - (cons _%hd163000163048%_ - _%hd162996163034%_)) - (_%g162981163009%_ - _%g162982163012%_)))) - (_%g162981163009%_ _%g162982163012%_)))) - (_%g162981163009%_ _%g162982163012%_)))) - (let ((_%body162997163061%_ (reverse _%body162995163032%_)) - (_%hd162998163063%_ (reverse _%hd162996163034%_))) - ((lambda (_%L163066%_ _%L163067%_) + (gx#stx-null? _%tl163278163332%_)) + (_%loop163265163301%_ + _%lp-tl163268163316%_ + (cons _%hd163277163330%_ + _%body163269163306%_) + (cons _%hd163274163322%_ + _%hd163270163308%_)) + (_%g163255163283%_ + _%g163256163286%_)))) + (_%g163255163283%_ _%g163256163286%_)))) + (_%g163255163283%_ _%g163256163286%_)))) + (let ((_%body163271163335%_ (reverse _%body163269163306%_)) + (_%hd163272163337%_ (reverse _%hd163270163308%_))) + ((lambda (_%L163340%_ _%L163341%_) (for-each - (lambda (_%clause163082%_) - (let* ((_%g163084163098%_ - (lambda (_%g163085163095%_) + (lambda (_%clause163356%_) + (let* ((_%g163358163372%_ + (lambda (_%g163359163369%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163085163095%_)))) - (_%g163083163135%_ - (lambda (_%g163085163101%_) + _%g163359163369%_)))) + (_%g163357163409%_ + (lambda (_%g163359163375%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163085163101%_)) - (let ((_%e163088163103%_ + (gx#stx-pair? _%g163359163375%_)) + (let ((_%e163362163377%_ (let () (declare (not safe)) - (gx#stx-e _%g163085163101%_)))) - (let ((_%hd163089163106%_ + (gx#stx-e _%g163359163375%_)))) + (let ((_%hd163363163380%_ (let () (declare (not safe)) - (##car _%e163088163103%_))) - (_%tl163090163108%_ + (##car _%e163362163377%_))) + (_%tl163364163382%_ (let () (declare (not safe)) - (##cdr _%e163088163103%_)))) + (##cdr _%e163362163377%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163090163108%_)) - (let ((_%e163091163111%_ + _%tl163364163382%_)) + (let ((_%e163365163385%_ (let () (declare (not safe)) (gx#stx-e - _%tl163090163108%_)))) - (let ((_%hd163092163114%_ + _%tl163364163382%_)))) + (let ((_%hd163366163388%_ (let () (declare (not safe)) - (##car _%e163091163111%_))) - (_%tl163093163116%_ + (##car _%e163365163385%_))) + (_%tl163367163390%_ (let () (declare (not safe)) - (##cdr _%e163091163111%_)))) + (##cdr _%e163365163385%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163093163116%_)) - ((lambda (_%L163119%_ - _%L163120%_) - (let ((__tmp169573 + _%tl163367163390%_)) + ((lambda (_%L163393%_ + _%L163394%_) + (let ((__tmp169847 (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-body-case-lambda% - _%self162978%_ - _%stx162979%_)))) - (__tmp169572 + _%self163252%_ + _%stx163253%_)))) + (__tmp169846 (let () (declare (not safe)) - (gxc#xform-let-locals _%L163120%_)))) + (gxc#xform-let-locals _%L163394%_)))) (declare (not safe)) (__call-with-parameters - __tmp169573 + __tmp169847 gxc#current-compile-local-env - __tmp169572))) - _%hd163092163114%_ - _%hd163089163106%_) - (_%g163084163098%_ _%g163085163101%_)))) + __tmp169846))) + _%hd163366163388%_ + _%hd163363163380%_) + (_%g163358163372%_ _%g163359163375%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g163084163098%_ - _%g163085163101%_)))) - (_%g163084163098%_ _%g163085163101%_))))) - (_%g163083163135%_ _%clause163082%_))) + (_%g163358163372%_ + _%g163359163375%_)))) + (_%g163358163372%_ _%g163359163375%_))))) + (_%g163357163409%_ _%clause163356%_))) (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L163066%_ - _%L163067%_)) - (let ((__tmp169574 - (lambda (_%g163137163141%_ - _%g163138163143%_ - _%g163139163145%_) - (cons (cons _%g163138163143%_ - (cons _%g163137163141%_ '())) - _%g163139163145%_)))) + _%L163340%_ + _%L163341%_)) + (let ((__tmp169848 + (lambda (_%g163411163415%_ + _%g163412163417%_ + _%g163413163419%_) + (cons (cons _%g163412163417%_ + (cons _%g163411163415%_ '())) + _%g163413163419%_)))) (declare (not safe)) (__foldr2 - __tmp169574 + __tmp169848 '() - _%L163066%_ - _%L163067%_))))) - _%body162997163061%_ - _%hd162998163063%_)))))) + _%L163340%_ + _%L163341%_))))) + _%body163271163335%_ + _%hd163272163337%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop162991163027%_ - _%target162988163022%_ + (_%loop163265163301%_ + _%target163262163296%_ '() '())) - (_%g162981163009%_ - _%g162982163012%_))))) - (_%g162981163009%_ _%g162982163012%_)))) - (_%g162981163009%_ _%g162982163012%_))))) - (_%g162980163148%_ _%stx162979%_)))) + (_%g163255163283%_ + _%g163256163286%_))))) + (_%g163255163283%_ _%g163256163286%_)))) + (_%g163255163283%_ _%g163256163286%_))))) + (_%g163254163422%_ _%stx163253%_)))) (define gxc#basic-expression-type-annotations (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-begin-annotation% - (lambda (_%self162856%_ _%stx162857%_) - (let* ((_%g162859162876%_ - (lambda (_%g162860162873%_) + (lambda (_%self163130%_ _%stx163131%_) + (let* ((_%g163133163150%_ + (lambda (_%g163134163147%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162860162873%_)))) - (_%g162858162975%_ - (lambda (_%g162860162879%_) + _%g163134163147%_)))) + (_%g163132163249%_ + (lambda (_%g163134163153%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162860162879%_)) - (let ((_%e162863162881%_ + (gx#stx-pair? _%g163134163153%_)) + (let ((_%e163137163155%_ (let () (declare (not safe)) - (gx#stx-e _%g162860162879%_)))) - (let ((_%hd162864162884%_ + (gx#stx-e _%g163134163153%_)))) + (let ((_%hd163138163158%_ (let () (declare (not safe)) - (##car _%e162863162881%_))) - (_%tl162865162886%_ + (##car _%e163137163155%_))) + (_%tl163139163160%_ (let () (declare (not safe)) - (##cdr _%e162863162881%_)))) + (##cdr _%e163137163155%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162865162886%_)) - (let ((_%e162866162889%_ + (gx#stx-pair? _%tl163139163160%_)) + (let ((_%e163140163163%_ (let () (declare (not safe)) - (gx#stx-e _%tl162865162886%_)))) - (let ((_%hd162867162892%_ + (gx#stx-e _%tl163139163160%_)))) + (let ((_%hd163141163166%_ (let () (declare (not safe)) - (##car _%e162866162889%_))) - (_%tl162868162894%_ + (##car _%e163140163163%_))) + (_%tl163142163168%_ (let () (declare (not safe)) - (##cdr _%e162866162889%_)))) + (##cdr _%e163140163163%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162868162894%_)) - (let ((_%e162869162897%_ + (gx#stx-pair? _%tl163142163168%_)) + (let ((_%e163143163171%_ (let () (declare (not safe)) - (gx#stx-e _%tl162868162894%_)))) - (let ((_%hd162870162900%_ + (gx#stx-e _%tl163142163168%_)))) + (let ((_%hd163144163174%_ (let () (declare (not safe)) - (##car _%e162869162897%_))) - (_%tl162871162902%_ + (##car _%e163143163171%_))) + (_%tl163145163176%_ (let () (declare (not safe)) - (##cdr _%e162869162897%_)))) + (##cdr _%e163143163171%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162871162902%_)) - ((lambda (_%L162905%_ - _%L162906%_) - (let* ((_%__stx167244167245%_ - _%L162906%_) - (_%g162922162933%_ + _%tl163145163176%_)) + ((lambda (_%L163179%_ + _%L163180%_) + (let* ((_%__stx167518167519%_ + _%L163180%_) + (_%g163196163207%_ (lambda () (let () (declare @@ -7887,325 +7887,325 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167244167245%_))))) - (let ((_%__kont167246167247%_ - (lambda (_%L162953%_ + _%__stx167518167519%_))))) + (let ((_%__kont167520167521%_ + (lambda (_%L163227%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L162954%_) - (let ((_%$e162966%_ - (let ((__tmp169575 + _%L163228%_) + (let ((_%$e163240%_ + (let ((__tmp169849 (let () (declare (not safe)) - (gx#stx-e _%L162954%_)))) + (gx#stx-e _%L163228%_)))) (declare (not safe)) (__hash-get gxc#basic-expression-type-annotations - __tmp169575)))) - (if _%$e162966%_ - ((lambda (_%type-e162969%_) - (_%type-e162969%_ _%stx162857%_ _%L162906%_)) - _%$e162966%_) + __tmp169849)))) + (if _%$e163240%_ + ((lambda (_%type-e163243%_) + (_%type-e163243%_ _%stx163131%_ _%L163180%_)) + _%$e163240%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self162856%_ _%L162905%_)))))) - (_%__kont167248167249%_ + (gxc#compile-e__1 _%self163130%_ _%L163179%_)))))) + (_%__kont167522167523%_ (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self162856%_ _%L162905%_))))) + (gxc#compile-e__1 _%self163130%_ _%L163179%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match167255167256%_ - (lambda (_%e162926162945%_ + (let ((_%__match167529167530%_ + (lambda (_%e163200163219%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd162927162948%_ - _%tl162928162950%_) - (let ((_%L162953%_ _%tl162928162950%_) - (_%L162954%_ _%hd162927162948%_)) + _%hd163201163222%_ + _%tl163202163224%_) + (let ((_%L163227%_ _%tl163202163224%_) + (_%L163228%_ _%hd163201163222%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L162954%_)) - (_%__kont167246167247%_ _%L162953%_ _%L162954%_) - (_%__kont167248167249%_)))))) + (gx#identifier? _%L163228%_)) + (_%__kont167520167521%_ _%L163227%_ _%L163228%_) + (_%__kont167522167523%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167244167245%_)) - (let ((_%e162926162945%_ + (gx#stx-pair? _%__stx167518167519%_)) + (let ((_%e163200163219%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167244167245%_)))) - (let ((_%tl162928162950%_ + (gx#stx-e _%__stx167518167519%_)))) + (let ((_%tl163202163224%_ (let () (declare (not safe)) - (##cdr _%e162926162945%_))) - (_%hd162927162948%_ + (##cdr _%e163200163219%_))) + (_%hd163201163222%_ (let () (declare (not safe)) - (##car _%e162926162945%_)))) - (_%__match167255167256%_ - _%e162926162945%_ - _%hd162927162948%_ - _%tl162928162950%_))) - (_%__kont167248167249%_)))))) + (##car _%e163200163219%_)))) + (_%__match167529167530%_ + _%e163200163219%_ + _%hd163201163222%_ + _%tl163202163224%_))) + (_%__kont167522167523%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd162870162900%_ - _%hd162867162892%_) - (_%g162859162876%_ - _%g162860162879%_)))) - (_%g162859162876%_ _%g162860162879%_)))) - (_%g162859162876%_ _%g162860162879%_)))) - (_%g162859162876%_ _%g162860162879%_))))) - (_%g162858162975%_ _%stx162857%_)))) + _%hd163144163174%_ + _%hd163141163166%_) + (_%g163133163150%_ + _%g163134163153%_)))) + (_%g163133163150%_ _%g163134163153%_)))) + (_%g163133163150%_ _%g163134163153%_)))) + (_%g163133163150%_ _%g163134163153%_))))) + (_%g163132163249%_ _%stx163131%_)))) (define gxc#basic-expression-type-annotation-typedecl - (lambda (_%stx162804%_ _%ann162805%_) - (let* ((_%g162807162820%_ - (lambda (_%g162808162817%_) + (lambda (_%stx163078%_ _%ann163079%_) + (let* ((_%g163081163094%_ + (lambda (_%g163082163091%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162808162817%_)))) - (_%g162806162853%_ - (lambda (_%g162808162823%_) + _%g163082163091%_)))) + (_%g163080163127%_ + (lambda (_%g163082163097%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162808162823%_)) - (let ((_%e162810162825%_ + (gx#stx-pair? _%g163082163097%_)) + (let ((_%e163084163099%_ (let () (declare (not safe)) - (gx#stx-e _%g162808162823%_)))) - (let ((_%hd162811162828%_ + (gx#stx-e _%g163082163097%_)))) + (let ((_%hd163085163102%_ (let () (declare (not safe)) - (##car _%e162810162825%_))) - (_%tl162812162830%_ + (##car _%e163084163099%_))) + (_%tl163086163104%_ (let () (declare (not safe)) - (##cdr _%e162810162825%_)))) + (##cdr _%e163084163099%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162812162830%_)) - (let ((_%e162813162833%_ + (gx#stx-pair? _%tl163086163104%_)) + (let ((_%e163087163107%_ (let () (declare (not safe)) - (gx#stx-e _%tl162812162830%_)))) - (let ((_%hd162814162836%_ + (gx#stx-e _%tl163086163104%_)))) + (let ((_%hd163088163110%_ (let () (declare (not safe)) - (##car _%e162813162833%_))) - (_%tl162815162838%_ + (##car _%e163087163107%_))) + (_%tl163089163112%_ (let () (declare (not safe)) - (##cdr _%e162813162833%_)))) + (##cdr _%e163087163107%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162815162838%_)) - ((lambda (_%L162841%_) - (let ((__tmp169576 + (gx#stx-null? _%tl163089163112%_)) + ((lambda (_%L163115%_) + (let ((__tmp169850 (let () (declare (not safe)) (gxc#identifier-symbol - _%L162841%_)))) + _%L163115%_)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx162804%_ - __tmp169576))) - _%hd162814162836%_) - (_%g162807162820%_ _%g162808162823%_)))) - (_%g162807162820%_ _%g162808162823%_)))) - (_%g162807162820%_ _%g162808162823%_))))) - (_%g162806162853%_ _%ann162805%_)))) + _%stx163078%_ + __tmp169850))) + _%hd163088163110%_) + (_%g163081163094%_ _%g163082163097%_)))) + (_%g163081163094%_ _%g163082163097%_)))) + (_%g163081163094%_ _%g163082163097%_))))) + (_%g163080163127%_ _%ann163079%_)))) (define gxc#basic-expression-type-annotation-mop.class - (lambda (_%stx162648%_ _%ann162649%_) - (let* ((_%g162651162688%_ - (lambda (_%g162652162685%_) + (lambda (_%stx162922%_ _%ann162923%_) + (let* ((_%g162925162962%_ + (lambda (_%g162926162959%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162652162685%_)))) - (_%g162650162801%_ - (lambda (_%g162652162691%_) + _%g162926162959%_)))) + (_%g162924163075%_ + (lambda (_%g162926162965%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162652162691%_)) - (let ((_%e162660162693%_ + (gx#stx-pair? _%g162926162965%_)) + (let ((_%e162934162967%_ (let () (declare (not safe)) - (gx#stx-e _%g162652162691%_)))) - (let ((_%hd162661162696%_ + (gx#stx-e _%g162926162965%_)))) + (let ((_%hd162935162970%_ (let () (declare (not safe)) - (##car _%e162660162693%_))) - (_%tl162662162698%_ + (##car _%e162934162967%_))) + (_%tl162936162972%_ (let () (declare (not safe)) - (##cdr _%e162660162693%_)))) + (##cdr _%e162934162967%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162662162698%_)) - (let ((_%e162663162701%_ + (gx#stx-pair? _%tl162936162972%_)) + (let ((_%e162937162975%_ (let () (declare (not safe)) - (gx#stx-e _%tl162662162698%_)))) - (let ((_%hd162664162704%_ + (gx#stx-e _%tl162936162972%_)))) + (let ((_%hd162938162978%_ (let () (declare (not safe)) - (##car _%e162663162701%_))) - (_%tl162665162706%_ + (##car _%e162937162975%_))) + (_%tl162939162980%_ (let () (declare (not safe)) - (##cdr _%e162663162701%_)))) + (##cdr _%e162937162975%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162665162706%_)) - (let ((_%e162666162709%_ + (gx#stx-pair? _%tl162939162980%_)) + (let ((_%e162940162983%_ (let () (declare (not safe)) - (gx#stx-e _%tl162665162706%_)))) - (let ((_%hd162667162712%_ + (gx#stx-e _%tl162939162980%_)))) + (let ((_%hd162941162986%_ (let () (declare (not safe)) - (##car _%e162666162709%_))) - (_%tl162668162714%_ + (##car _%e162940162983%_))) + (_%tl162942162988%_ (let () (declare (not safe)) - (##cdr _%e162666162709%_)))) + (##cdr _%e162940162983%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162668162714%_)) - (let ((_%e162669162717%_ + _%tl162942162988%_)) + (let ((_%e162943162991%_ (let () (declare (not safe)) (gx#stx-e - _%tl162668162714%_)))) - (let ((_%hd162670162720%_ + _%tl162942162988%_)))) + (let ((_%hd162944162994%_ (let () (declare (not safe)) - (##car _%e162669162717%_))) - (_%tl162671162722%_ + (##car _%e162943162991%_))) + (_%tl162945162996%_ (let () (declare (not safe)) - (##cdr _%e162669162717%_)))) + (##cdr _%e162943162991%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162671162722%_)) - (let ((_%e162672162725%_ + _%tl162945162996%_)) + (let ((_%e162946162999%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl162671162722%_)))) - (let ((_%hd162673162728%_ - (let () (declare (not safe)) (##car _%e162672162725%_))) - (_%tl162674162730%_ + (gx#stx-e _%tl162945162996%_)))) + (let ((_%hd162947163002%_ + (let () (declare (not safe)) (##car _%e162946162999%_))) + (_%tl162948163004%_ (let () (declare (not safe)) - (##cdr _%e162672162725%_)))) + (##cdr _%e162946162999%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162674162730%_)) - (let ((_%e162675162733%_ + (gx#stx-pair? _%tl162948163004%_)) + (let ((_%e162949163007%_ (let () (declare (not safe)) - (gx#stx-e _%tl162674162730%_)))) - (let ((_%hd162676162736%_ + (gx#stx-e _%tl162948163004%_)))) + (let ((_%hd162950163010%_ (let () (declare (not safe)) - (##car _%e162675162733%_))) - (_%tl162677162738%_ + (##car _%e162949163007%_))) + (_%tl162951163012%_ (let () (declare (not safe)) - (##cdr _%e162675162733%_)))) + (##cdr _%e162949163007%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162677162738%_)) - (let ((_%e162678162741%_ + (gx#stx-pair? _%tl162951163012%_)) + (let ((_%e162952163015%_ (let () (declare (not safe)) - (gx#stx-e _%tl162677162738%_)))) - (let ((_%hd162679162744%_ + (gx#stx-e _%tl162951163012%_)))) + (let ((_%hd162953163018%_ (let () (declare (not safe)) - (##car _%e162678162741%_))) - (_%tl162680162746%_ + (##car _%e162952163015%_))) + (_%tl162954163020%_ (let () (declare (not safe)) - (##cdr _%e162678162741%_)))) + (##cdr _%e162952163015%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162680162746%_)) - (let ((_%e162681162749%_ + (gx#stx-pair? _%tl162954163020%_)) + (let ((_%e162955163023%_ (let () (declare (not safe)) - (gx#stx-e _%tl162680162746%_)))) - (let ((_%hd162682162752%_ + (gx#stx-e _%tl162954163020%_)))) + (let ((_%hd162956163026%_ (let () (declare (not safe)) - (##car _%e162681162749%_))) - (_%tl162683162754%_ + (##car _%e162955163023%_))) + (_%tl162957163028%_ (let () (declare (not safe)) - (##cdr _%e162681162749%_)))) + (##cdr _%e162955163023%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162683162754%_)) - ((lambda (_%L162757%_ - _%L162758%_ - _%L162759%_ - _%L162760%_ - _%L162761%_ - _%L162762%_ - _%L162763%_) - (let ((_%type-id162793%_ + _%tl162957163028%_)) + ((lambda (_%L163031%_ + _%L163032%_ + _%L163033%_ + _%L163034%_ + _%L163035%_ + _%L163036%_ + _%L163037%_) + (let ((_%type-id163067%_ (let () (declare (not safe)) (gx#stx-e - _%L162763%_))) - (_%super162794%_ + _%L163037%_))) + (_%super163068%_ (let () (declare (not safe)) (gx#stx-map1 gxc#identifier-symbol - _%L162762%_))) - (_%slots162795%_ + _%L163036%_))) + (_%slots163069%_ (let () (declare (not safe)) (gx#stx-map1 gx#stx-e - _%L162761%_))) - (_%ctor-method162796%_ + _%L163035%_))) + (_%ctor-method163070%_ (let () (declare (not safe)) (gx#stx-e - _%L162760%_))) - (_%struct?162797%_ + _%L163034%_))) + (_%struct?163071%_ (let () (declare (not safe)) (gx#stx-e - _%L162759%_))) - (_%final?162798%_ + _%L163033%_))) + (_%final?163072%_ (let () (declare (not safe)) (gx#stx-e - _%L162758%_))) - (_%metaclass162799%_ + _%L163032%_))) + (_%metaclass163073%_ (if (let () (declare (not safe)) (gx#stx-e - _%L162757%_)) + _%L163031%_)) (let () (declare (not safe)) (gxc#identifier-symbol - _%L162757%_)) + _%L163031%_)) '#f))) - (let ((__obj169412 + (let ((__obj169686 (let () (declare (not safe)) @@ -8213,8 +8213,8 @@ gxc#!class-meta::t '#f '#f)))) - (let ((__tmp169577 - (let ((__obj169411 + (let ((__tmp169851 + (let ((__obj169685 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -8234,115 +8234,115 @@ (let () (declare (not safe)) (gxc#!class:::init!__0 - __obj169411 - _%type-id162793%_ - _%super162794%_ - _%slots162795%_ - _%ctor-method162796%_ - _%struct?162797%_ - _%final?162798%_ + __obj169685 + _%type-id163067%_ + _%super163068%_ + _%slots163069%_ + _%ctor-method163070%_ + _%struct?163071%_ + _%final?163072%_ '#f - _%metaclass162799%_)) - __obj169411))) + _%metaclass163073%_)) + __obj169685))) (declare (not safe)) - (gxc#!class-meta:::init! __obj169412 __tmp169577)) + (gxc#!class-meta:::init! __obj169686 __tmp169851)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - __obj169412))) - _%hd162682162752%_ - _%hd162679162744%_ - _%hd162676162736%_ - _%hd162673162728%_ - _%hd162670162720%_ - _%hd162667162712%_ - _%hd162664162704%_) - (_%g162651162688%_ - _%g162652162691%_)))) - (_%g162651162688%_ _%g162652162691%_)))) - (_%g162651162688%_ _%g162652162691%_)))) - (_%g162651162688%_ _%g162652162691%_)))) - (_%g162651162688%_ _%g162652162691%_)))) + __obj169686))) + _%hd162956163026%_ + _%hd162953163018%_ + _%hd162950163010%_ + _%hd162947163002%_ + _%hd162944162994%_ + _%hd162941162986%_ + _%hd162938162978%_) + (_%g162925162962%_ + _%g162926162965%_)))) + (_%g162925162962%_ _%g162926162965%_)))) + (_%g162925162962%_ _%g162926162965%_)))) + (_%g162925162962%_ _%g162926162965%_)))) + (_%g162925162962%_ _%g162926162965%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g162651162688%_ - _%g162652162691%_)))) - (_%g162651162688%_ _%g162652162691%_)))) - (_%g162651162688%_ _%g162652162691%_)))) - (_%g162651162688%_ _%g162652162691%_))))) - (_%g162650162801%_ _%ann162649%_)))) + (_%g162925162962%_ + _%g162926162965%_)))) + (_%g162925162962%_ _%g162926162965%_)))) + (_%g162925162962%_ _%g162926162965%_)))) + (_%g162925162962%_ _%g162926162965%_))))) + (_%g162924163075%_ _%ann162923%_)))) (define gxc#basic-expression-type-annotation-mop.system - (lambda (_%stx162577%_ _%ann162578%_) - (let* ((_%g162580162597%_ - (lambda (_%g162581162594%_) + (lambda (_%stx162851%_ _%ann162852%_) + (let* ((_%g162854162871%_ + (lambda (_%g162855162868%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162581162594%_)))) - (_%g162579162645%_ - (lambda (_%g162581162600%_) + _%g162855162868%_)))) + (_%g162853162919%_ + (lambda (_%g162855162874%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162581162600%_)) - (let ((_%e162584162602%_ + (gx#stx-pair? _%g162855162874%_)) + (let ((_%e162858162876%_ (let () (declare (not safe)) - (gx#stx-e _%g162581162600%_)))) - (let ((_%hd162585162605%_ + (gx#stx-e _%g162855162874%_)))) + (let ((_%hd162859162879%_ (let () (declare (not safe)) - (##car _%e162584162602%_))) - (_%tl162586162607%_ + (##car _%e162858162876%_))) + (_%tl162860162881%_ (let () (declare (not safe)) - (##cdr _%e162584162602%_)))) + (##cdr _%e162858162876%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162586162607%_)) - (let ((_%e162587162610%_ + (gx#stx-pair? _%tl162860162881%_)) + (let ((_%e162861162884%_ (let () (declare (not safe)) - (gx#stx-e _%tl162586162607%_)))) - (let ((_%hd162588162613%_ + (gx#stx-e _%tl162860162881%_)))) + (let ((_%hd162862162887%_ (let () (declare (not safe)) - (##car _%e162587162610%_))) - (_%tl162589162615%_ + (##car _%e162861162884%_))) + (_%tl162863162889%_ (let () (declare (not safe)) - (##cdr _%e162587162610%_)))) + (##cdr _%e162861162884%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162589162615%_)) - (let ((_%e162590162618%_ + (gx#stx-pair? _%tl162863162889%_)) + (let ((_%e162864162892%_ (let () (declare (not safe)) - (gx#stx-e _%tl162589162615%_)))) - (let ((_%hd162591162621%_ + (gx#stx-e _%tl162863162889%_)))) + (let ((_%hd162865162895%_ (let () (declare (not safe)) - (##car _%e162590162618%_))) - (_%tl162592162623%_ + (##car _%e162864162892%_))) + (_%tl162866162897%_ (let () (declare (not safe)) - (##cdr _%e162590162618%_)))) + (##cdr _%e162864162892%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162592162623%_)) - ((lambda (_%L162626%_ - _%L162627%_) - (let ((_%type-id162642%_ + _%tl162866162897%_)) + ((lambda (_%L162900%_ + _%L162901%_) + (let ((_%type-id162916%_ (let () (declare (not safe)) (gx#stx-e - _%L162627%_))) - (_%super162643%_ + _%L162901%_))) + (_%super162917%_ (let () (declare (not safe)) (gx#stx-map1 gxc#identifier-symbol - _%L162626%_)))) - (let ((__obj169414 + _%L162900%_)))) + (let ((__obj169688 (let () (declare (not safe)) @@ -8350,8 +8350,8 @@ gxc#!class-meta::t '#f '#f)))) - (let ((__tmp169578 - (let ((__obj169413 + (let ((__tmp169852 + (let ((__obj169687 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -8371,589 +8371,589 @@ (let () (declare (not safe)) (gxc#!class:::init!__0 - __obj169413 - _%type-id162642%_ - _%super162643%_ + __obj169687 + _%type-id162916%_ + _%super162917%_ '() '#f '#f '#f '#t '#f)) - __obj169413))) + __obj169687))) (declare (not safe)) - (gxc#!class-meta:::init! __obj169414 __tmp169578)) + (gxc#!class-meta:::init! __obj169688 __tmp169852)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - __obj169414))) - _%hd162591162621%_ - _%hd162588162613%_) - (_%g162580162597%_ - _%g162581162600%_)))) - (_%g162580162597%_ _%g162581162600%_)))) - (_%g162580162597%_ _%g162581162600%_)))) - (_%g162580162597%_ _%g162581162600%_))))) - (_%g162579162645%_ _%ann162578%_)))) + __obj169688))) + _%hd162865162895%_ + _%hd162862162887%_) + (_%g162854162871%_ + _%g162855162874%_)))) + (_%g162854162871%_ _%g162855162874%_)))) + (_%g162854162871%_ _%g162855162874%_)))) + (_%g162854162871%_ _%g162855162874%_))))) + (_%g162853162919%_ _%ann162852%_)))) (define gxc#basic-expression-type-annotation-mop.constructor - (lambda (_%stx162525%_ _%ann162526%_) - (let* ((_%g162528162541%_ - (lambda (_%g162529162538%_) + (lambda (_%stx162799%_ _%ann162800%_) + (let* ((_%g162802162815%_ + (lambda (_%g162803162812%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162529162538%_)))) - (_%g162527162574%_ - (lambda (_%g162529162544%_) + _%g162803162812%_)))) + (_%g162801162848%_ + (lambda (_%g162803162818%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162529162544%_)) - (let ((_%e162531162546%_ + (gx#stx-pair? _%g162803162818%_)) + (let ((_%e162805162820%_ (let () (declare (not safe)) - (gx#stx-e _%g162529162544%_)))) - (let ((_%hd162532162549%_ + (gx#stx-e _%g162803162818%_)))) + (let ((_%hd162806162823%_ (let () (declare (not safe)) - (##car _%e162531162546%_))) - (_%tl162533162551%_ + (##car _%e162805162820%_))) + (_%tl162807162825%_ (let () (declare (not safe)) - (##cdr _%e162531162546%_)))) + (##cdr _%e162805162820%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162533162551%_)) - (let ((_%e162534162554%_ + (gx#stx-pair? _%tl162807162825%_)) + (let ((_%e162808162828%_ (let () (declare (not safe)) - (gx#stx-e _%tl162533162551%_)))) - (let ((_%hd162535162557%_ + (gx#stx-e _%tl162807162825%_)))) + (let ((_%hd162809162831%_ (let () (declare (not safe)) - (##car _%e162534162554%_))) - (_%tl162536162559%_ + (##car _%e162808162828%_))) + (_%tl162810162833%_ (let () (declare (not safe)) - (##cdr _%e162534162554%_)))) + (##cdr _%e162808162828%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162536162559%_)) - ((lambda (_%L162562%_) - (let ((__obj169415 + (gx#stx-null? _%tl162810162833%_)) + ((lambda (_%L162836%_) + (let ((__obj169689 (let () (declare (not safe)) (##structure gxc#!constructor::t '#f '#f)))) - (let ((__tmp169579 + (let ((__tmp169853 (let () (declare (not safe)) (gxc#identifier-symbol - _%L162562%_)))) + _%L162836%_)))) (declare (not safe)) (gxc#!constructor:::init! - __obj169415 - __tmp169579)) - __obj169415)) - _%hd162535162557%_) - (_%g162528162541%_ _%g162529162544%_)))) - (_%g162528162541%_ _%g162529162544%_)))) - (_%g162528162541%_ _%g162529162544%_))))) - (_%g162527162574%_ _%ann162526%_)))) + __obj169689 + __tmp169853)) + __obj169689)) + _%hd162809162831%_) + (_%g162802162815%_ _%g162803162818%_)))) + (_%g162802162815%_ _%g162803162818%_)))) + (_%g162802162815%_ _%g162803162818%_))))) + (_%g162801162848%_ _%ann162800%_)))) (define gxc#basic-expression-type-annotation-mop.predicate - (lambda (_%stx162473%_ _%ann162474%_) - (let* ((_%g162476162489%_ - (lambda (_%g162477162486%_) + (lambda (_%stx162747%_ _%ann162748%_) + (let* ((_%g162750162763%_ + (lambda (_%g162751162760%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162477162486%_)))) - (_%g162475162522%_ - (lambda (_%g162477162492%_) + _%g162751162760%_)))) + (_%g162749162796%_ + (lambda (_%g162751162766%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162477162492%_)) - (let ((_%e162479162494%_ + (gx#stx-pair? _%g162751162766%_)) + (let ((_%e162753162768%_ (let () (declare (not safe)) - (gx#stx-e _%g162477162492%_)))) - (let ((_%hd162480162497%_ + (gx#stx-e _%g162751162766%_)))) + (let ((_%hd162754162771%_ (let () (declare (not safe)) - (##car _%e162479162494%_))) - (_%tl162481162499%_ + (##car _%e162753162768%_))) + (_%tl162755162773%_ (let () (declare (not safe)) - (##cdr _%e162479162494%_)))) + (##cdr _%e162753162768%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162481162499%_)) - (let ((_%e162482162502%_ + (gx#stx-pair? _%tl162755162773%_)) + (let ((_%e162756162776%_ (let () (declare (not safe)) - (gx#stx-e _%tl162481162499%_)))) - (let ((_%hd162483162505%_ + (gx#stx-e _%tl162755162773%_)))) + (let ((_%hd162757162779%_ (let () (declare (not safe)) - (##car _%e162482162502%_))) - (_%tl162484162507%_ + (##car _%e162756162776%_))) + (_%tl162758162781%_ (let () (declare (not safe)) - (##cdr _%e162482162502%_)))) + (##cdr _%e162756162776%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162484162507%_)) - ((lambda (_%L162510%_) - (let ((__obj169416 + (gx#stx-null? _%tl162758162781%_)) + ((lambda (_%L162784%_) + (let ((__obj169690 (let () (declare (not safe)) (##structure gxc#!predicate::t '#f '#f)))) - (let ((__tmp169580 + (let ((__tmp169854 (let () (declare (not safe)) (gxc#identifier-symbol - _%L162510%_)))) + _%L162784%_)))) (declare (not safe)) (gxc#!predicate:::init! - __obj169416 - __tmp169580)) - __obj169416)) - _%hd162483162505%_) - (_%g162476162489%_ _%g162477162492%_)))) - (_%g162476162489%_ _%g162477162492%_)))) - (_%g162476162489%_ _%g162477162492%_))))) - (_%g162475162522%_ _%ann162474%_)))) + __obj169690 + __tmp169854)) + __obj169690)) + _%hd162757162779%_) + (_%g162750162763%_ _%g162751162766%_)))) + (_%g162750162763%_ _%g162751162766%_)))) + (_%g162750162763%_ _%g162751162766%_))))) + (_%g162749162796%_ _%ann162748%_)))) (define gxc#basic-expression-type-annotation-mop.accessor - (lambda (_%stx162389%_ _%ann162390%_) - (let* ((_%g162392162413%_ - (lambda (_%g162393162410%_) + (lambda (_%stx162663%_ _%ann162664%_) + (let* ((_%g162666162687%_ + (lambda (_%g162667162684%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162393162410%_)))) - (_%g162391162470%_ - (lambda (_%g162393162416%_) + _%g162667162684%_)))) + (_%g162665162744%_ + (lambda (_%g162667162690%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162393162416%_)) - (let ((_%e162397162418%_ + (gx#stx-pair? _%g162667162690%_)) + (let ((_%e162671162692%_ (let () (declare (not safe)) - (gx#stx-e _%g162393162416%_)))) - (let ((_%hd162398162421%_ + (gx#stx-e _%g162667162690%_)))) + (let ((_%hd162672162695%_ (let () (declare (not safe)) - (##car _%e162397162418%_))) - (_%tl162399162423%_ + (##car _%e162671162692%_))) + (_%tl162673162697%_ (let () (declare (not safe)) - (##cdr _%e162397162418%_)))) + (##cdr _%e162671162692%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162399162423%_)) - (let ((_%e162400162426%_ + (gx#stx-pair? _%tl162673162697%_)) + (let ((_%e162674162700%_ (let () (declare (not safe)) - (gx#stx-e _%tl162399162423%_)))) - (let ((_%hd162401162429%_ + (gx#stx-e _%tl162673162697%_)))) + (let ((_%hd162675162703%_ (let () (declare (not safe)) - (##car _%e162400162426%_))) - (_%tl162402162431%_ + (##car _%e162674162700%_))) + (_%tl162676162705%_ (let () (declare (not safe)) - (##cdr _%e162400162426%_)))) + (##cdr _%e162674162700%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162402162431%_)) - (let ((_%e162403162434%_ + (gx#stx-pair? _%tl162676162705%_)) + (let ((_%e162677162708%_ (let () (declare (not safe)) - (gx#stx-e _%tl162402162431%_)))) - (let ((_%hd162404162437%_ + (gx#stx-e _%tl162676162705%_)))) + (let ((_%hd162678162711%_ (let () (declare (not safe)) - (##car _%e162403162434%_))) - (_%tl162405162439%_ + (##car _%e162677162708%_))) + (_%tl162679162713%_ (let () (declare (not safe)) - (##cdr _%e162403162434%_)))) + (##cdr _%e162677162708%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162405162439%_)) - (let ((_%e162406162442%_ + _%tl162679162713%_)) + (let ((_%e162680162716%_ (let () (declare (not safe)) (gx#stx-e - _%tl162405162439%_)))) - (let ((_%hd162407162445%_ + _%tl162679162713%_)))) + (let ((_%hd162681162719%_ (let () (declare (not safe)) - (##car _%e162406162442%_))) - (_%tl162408162447%_ + (##car _%e162680162716%_))) + (_%tl162682162721%_ (let () (declare (not safe)) - (##cdr _%e162406162442%_)))) + (##cdr _%e162680162716%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162408162447%_)) - ((lambda (_%L162450%_ - _%L162451%_ - _%L162452%_) - (let ((__obj169417 + _%tl162682162721%_)) + ((lambda (_%L162724%_ + _%L162725%_ + _%L162726%_) + (let ((__obj169691 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure gxc#!accessor::t '#f '#f '#f '#f)))) - (let ((__tmp169583 + (let ((__tmp169857 (let () (declare (not safe)) - (gxc#identifier-symbol _%L162452%_))) - (__tmp169582 - (let () (declare (not safe)) (gx#stx-e _%L162451%_))) - (__tmp169581 + (gxc#identifier-symbol _%L162726%_))) + (__tmp169856 + (let () (declare (not safe)) (gx#stx-e _%L162725%_))) + (__tmp169855 (let () (declare (not safe)) - (gx#stx-e _%L162450%_)))) + (gx#stx-e _%L162724%_)))) (declare (not safe)) (gxc#!accessor:::init! - __obj169417 - __tmp169583 - __tmp169582 - __tmp169581)) - __obj169417)) - _%hd162407162445%_ - _%hd162404162437%_ - _%hd162401162429%_) - (_%g162392162413%_ _%g162393162416%_)))) + __obj169691 + __tmp169857 + __tmp169856 + __tmp169855)) + __obj169691)) + _%hd162681162719%_ + _%hd162678162711%_ + _%hd162675162703%_) + (_%g162666162687%_ _%g162667162690%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g162392162413%_ - _%g162393162416%_)))) - (_%g162392162413%_ _%g162393162416%_)))) - (_%g162392162413%_ _%g162393162416%_)))) - (_%g162392162413%_ _%g162393162416%_))))) - (_%g162391162470%_ _%ann162390%_)))) + (_%g162666162687%_ + _%g162667162690%_)))) + (_%g162666162687%_ _%g162667162690%_)))) + (_%g162666162687%_ _%g162667162690%_)))) + (_%g162666162687%_ _%g162667162690%_))))) + (_%g162665162744%_ _%ann162664%_)))) (define gxc#basic-expression-type-annotation-mop.mutator - (lambda (_%stx162305%_ _%ann162306%_) - (let* ((_%g162308162329%_ - (lambda (_%g162309162326%_) + (lambda (_%stx162579%_ _%ann162580%_) + (let* ((_%g162582162603%_ + (lambda (_%g162583162600%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162309162326%_)))) - (_%g162307162386%_ - (lambda (_%g162309162332%_) + _%g162583162600%_)))) + (_%g162581162660%_ + (lambda (_%g162583162606%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162309162332%_)) - (let ((_%e162313162334%_ + (gx#stx-pair? _%g162583162606%_)) + (let ((_%e162587162608%_ (let () (declare (not safe)) - (gx#stx-e _%g162309162332%_)))) - (let ((_%hd162314162337%_ + (gx#stx-e _%g162583162606%_)))) + (let ((_%hd162588162611%_ (let () (declare (not safe)) - (##car _%e162313162334%_))) - (_%tl162315162339%_ + (##car _%e162587162608%_))) + (_%tl162589162613%_ (let () (declare (not safe)) - (##cdr _%e162313162334%_)))) + (##cdr _%e162587162608%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162315162339%_)) - (let ((_%e162316162342%_ + (gx#stx-pair? _%tl162589162613%_)) + (let ((_%e162590162616%_ (let () (declare (not safe)) - (gx#stx-e _%tl162315162339%_)))) - (let ((_%hd162317162345%_ + (gx#stx-e _%tl162589162613%_)))) + (let ((_%hd162591162619%_ (let () (declare (not safe)) - (##car _%e162316162342%_))) - (_%tl162318162347%_ + (##car _%e162590162616%_))) + (_%tl162592162621%_ (let () (declare (not safe)) - (##cdr _%e162316162342%_)))) + (##cdr _%e162590162616%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162318162347%_)) - (let ((_%e162319162350%_ + (gx#stx-pair? _%tl162592162621%_)) + (let ((_%e162593162624%_ (let () (declare (not safe)) - (gx#stx-e _%tl162318162347%_)))) - (let ((_%hd162320162353%_ + (gx#stx-e _%tl162592162621%_)))) + (let ((_%hd162594162627%_ (let () (declare (not safe)) - (##car _%e162319162350%_))) - (_%tl162321162355%_ + (##car _%e162593162624%_))) + (_%tl162595162629%_ (let () (declare (not safe)) - (##cdr _%e162319162350%_)))) + (##cdr _%e162593162624%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162321162355%_)) - (let ((_%e162322162358%_ + _%tl162595162629%_)) + (let ((_%e162596162632%_ (let () (declare (not safe)) (gx#stx-e - _%tl162321162355%_)))) - (let ((_%hd162323162361%_ + _%tl162595162629%_)))) + (let ((_%hd162597162635%_ (let () (declare (not safe)) - (##car _%e162322162358%_))) - (_%tl162324162363%_ + (##car _%e162596162632%_))) + (_%tl162598162637%_ (let () (declare (not safe)) - (##cdr _%e162322162358%_)))) + (##cdr _%e162596162632%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162324162363%_)) - ((lambda (_%L162366%_ - _%L162367%_ - _%L162368%_) - (let ((__obj169418 + _%tl162598162637%_)) + ((lambda (_%L162640%_ + _%L162641%_ + _%L162642%_) + (let ((__obj169692 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure gxc#!mutator::t '#f '#f '#f '#f)))) - (let ((__tmp169586 + (let ((__tmp169860 (let () (declare (not safe)) - (gxc#identifier-symbol _%L162368%_))) - (__tmp169585 - (let () (declare (not safe)) (gx#stx-e _%L162367%_))) - (__tmp169584 + (gxc#identifier-symbol _%L162642%_))) + (__tmp169859 + (let () (declare (not safe)) (gx#stx-e _%L162641%_))) + (__tmp169858 (let () (declare (not safe)) - (gx#stx-e _%L162366%_)))) + (gx#stx-e _%L162640%_)))) (declare (not safe)) (gxc#!mutator:::init! - __obj169418 - __tmp169586 - __tmp169585 - __tmp169584)) - __obj169418)) - _%hd162323162361%_ - _%hd162320162353%_ - _%hd162317162345%_) - (_%g162308162329%_ _%g162309162332%_)))) + __obj169692 + __tmp169860 + __tmp169859 + __tmp169858)) + __obj169692)) + _%hd162597162635%_ + _%hd162594162627%_ + _%hd162591162619%_) + (_%g162582162603%_ _%g162583162606%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g162308162329%_ - _%g162309162332%_)))) - (_%g162308162329%_ _%g162309162332%_)))) - (_%g162308162329%_ _%g162309162332%_)))) - (_%g162308162329%_ _%g162309162332%_))))) - (_%g162307162386%_ _%ann162306%_)))) + (_%g162582162603%_ + _%g162583162606%_)))) + (_%g162582162603%_ _%g162583162606%_)))) + (_%g162582162603%_ _%g162583162606%_)))) + (_%g162582162603%_ _%g162583162606%_))))) + (_%g162581162660%_ _%ann162580%_)))) (define gxc#basic-expression-type-annotation-interface - (lambda (_%stx162237%_ _%ann162238%_) - (let* ((_%g162240162257%_ - (lambda (_%g162241162254%_) + (lambda (_%stx162511%_ _%ann162512%_) + (let* ((_%g162514162531%_ + (lambda (_%g162515162528%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162241162254%_)))) - (_%g162239162302%_ - (lambda (_%g162241162260%_) + _%g162515162528%_)))) + (_%g162513162576%_ + (lambda (_%g162515162534%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162241162260%_)) - (let ((_%e162244162262%_ + (gx#stx-pair? _%g162515162534%_)) + (let ((_%e162518162536%_ (let () (declare (not safe)) - (gx#stx-e _%g162241162260%_)))) - (let ((_%hd162245162265%_ + (gx#stx-e _%g162515162534%_)))) + (let ((_%hd162519162539%_ (let () (declare (not safe)) - (##car _%e162244162262%_))) - (_%tl162246162267%_ + (##car _%e162518162536%_))) + (_%tl162520162541%_ (let () (declare (not safe)) - (##cdr _%e162244162262%_)))) + (##cdr _%e162518162536%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162246162267%_)) - (let ((_%e162247162270%_ + (gx#stx-pair? _%tl162520162541%_)) + (let ((_%e162521162544%_ (let () (declare (not safe)) - (gx#stx-e _%tl162246162267%_)))) - (let ((_%hd162248162273%_ + (gx#stx-e _%tl162520162541%_)))) + (let ((_%hd162522162547%_ (let () (declare (not safe)) - (##car _%e162247162270%_))) - (_%tl162249162275%_ + (##car _%e162521162544%_))) + (_%tl162523162549%_ (let () (declare (not safe)) - (##cdr _%e162247162270%_)))) + (##cdr _%e162521162544%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162249162275%_)) - (let ((_%e162250162278%_ + (gx#stx-pair? _%tl162523162549%_)) + (let ((_%e162524162552%_ (let () (declare (not safe)) - (gx#stx-e _%tl162249162275%_)))) - (let ((_%hd162251162281%_ + (gx#stx-e _%tl162523162549%_)))) + (let ((_%hd162525162555%_ (let () (declare (not safe)) - (##car _%e162250162278%_))) - (_%tl162252162283%_ + (##car _%e162524162552%_))) + (_%tl162526162557%_ (let () (declare (not safe)) - (##cdr _%e162250162278%_)))) + (##cdr _%e162524162552%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162252162283%_)) - ((lambda (_%L162286%_ - _%L162287%_) - (let ((__tmp169588 + _%tl162526162557%_)) + ((lambda (_%L162560%_ + _%L162561%_) + (let ((__tmp169862 (let () (declare (not safe)) (gxc#identifier-symbol - _%L162287%_))) - (__tmp169587 + _%L162561%_))) + (__tmp169861 (let () (declare (not safe)) (gx#stx-map1 gx#stx-e - _%L162286%_)))) + _%L162560%_)))) (declare (not safe)) (##structure gxc#!interface::t - __tmp169588 - __tmp169587))) - _%hd162251162281%_ - _%hd162248162273%_) - (_%g162240162257%_ - _%g162241162260%_)))) - (_%g162240162257%_ _%g162241162260%_)))) - (_%g162240162257%_ _%g162241162260%_)))) - (_%g162240162257%_ _%g162241162260%_))))) - (_%g162239162302%_ _%ann162238%_)))) + __tmp169862 + __tmp169861))) + _%hd162525162555%_ + _%hd162522162547%_) + (_%g162514162531%_ + _%g162515162534%_)))) + (_%g162514162531%_ _%g162515162534%_)))) + (_%g162514162531%_ _%g162515162534%_)))) + (_%g162514162531%_ _%g162515162534%_))))) + (_%g162513162576%_ _%ann162512%_)))) (define gxc#basic-expression-type-annotation-predicate - (lambda (_%stx162185%_ _%ann162186%_) - (let* ((_%g162188162201%_ - (lambda (_%g162189162198%_) + (lambda (_%stx162459%_ _%ann162460%_) + (let* ((_%g162462162475%_ + (lambda (_%g162463162472%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162189162198%_)))) - (_%g162187162234%_ - (lambda (_%g162189162204%_) + _%g162463162472%_)))) + (_%g162461162508%_ + (lambda (_%g162463162478%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162189162204%_)) - (let ((_%e162191162206%_ + (gx#stx-pair? _%g162463162478%_)) + (let ((_%e162465162480%_ (let () (declare (not safe)) - (gx#stx-e _%g162189162204%_)))) - (let ((_%hd162192162209%_ + (gx#stx-e _%g162463162478%_)))) + (let ((_%hd162466162483%_ (let () (declare (not safe)) - (##car _%e162191162206%_))) - (_%tl162193162211%_ + (##car _%e162465162480%_))) + (_%tl162467162485%_ (let () (declare (not safe)) - (##cdr _%e162191162206%_)))) + (##cdr _%e162465162480%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162193162211%_)) - (let ((_%e162194162214%_ + (gx#stx-pair? _%tl162467162485%_)) + (let ((_%e162468162488%_ (let () (declare (not safe)) - (gx#stx-e _%tl162193162211%_)))) - (let ((_%hd162195162217%_ + (gx#stx-e _%tl162467162485%_)))) + (let ((_%hd162469162491%_ (let () (declare (not safe)) - (##car _%e162194162214%_))) - (_%tl162196162219%_ + (##car _%e162468162488%_))) + (_%tl162470162493%_ (let () (declare (not safe)) - (##cdr _%e162194162214%_)))) + (##cdr _%e162468162488%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162196162219%_)) - ((lambda (_%L162222%_) - (let ((__obj169419 + (gx#stx-null? _%tl162470162493%_)) + ((lambda (_%L162496%_) + (let ((__obj169693 (let () (declare (not safe)) (##structure gxc#!primitive-predicate::t '#f '#f)))) - (let ((__tmp169589 + (let ((__tmp169863 (let () (declare (not safe)) (gxc#identifier-symbol - _%L162222%_)))) + _%L162496%_)))) (declare (not safe)) (gxc#!primitive-predicate:::init! - __obj169419 - __tmp169589)) - __obj169419)) - _%hd162195162217%_) - (_%g162188162201%_ _%g162189162204%_)))) - (_%g162188162201%_ _%g162189162204%_)))) - (_%g162188162201%_ _%g162189162204%_))))) - (_%g162187162234%_ _%ann162186%_)))) + __obj169693 + __tmp169863)) + __obj169693)) + _%hd162469162491%_) + (_%g162462162475%_ _%g162463162478%_)))) + (_%g162462162475%_ _%g162463162478%_)))) + (_%g162462162475%_ _%g162463162478%_))))) + (_%g162461162508%_ _%ann162460%_)))) (define gxc#basic-expression-type-annotation-abort - (lambda (_%stx162155%_ _%ann162156%_) - (let* ((_%g162158162167%_ - (lambda (_%g162159162164%_) + (lambda (_%stx162429%_ _%ann162430%_) + (let* ((_%g162432162441%_ + (lambda (_%g162433162438%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162159162164%_)))) - (_%g162157162182%_ - (lambda (_%g162159162170%_) + _%g162433162438%_)))) + (_%g162431162456%_ + (lambda (_%g162433162444%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162159162170%_)) - (let ((_%e162160162172%_ + (gx#stx-pair? _%g162433162444%_)) + (let ((_%e162434162446%_ (let () (declare (not safe)) - (gx#stx-e _%g162159162170%_)))) - (let ((_%hd162161162175%_ + (gx#stx-e _%g162433162444%_)))) + (let ((_%hd162435162449%_ (let () (declare (not safe)) - (##car _%e162160162172%_))) - (_%tl162162162177%_ + (##car _%e162434162446%_))) + (_%tl162436162451%_ (let () (declare (not safe)) - (##cdr _%e162160162172%_)))) + (##cdr _%e162434162446%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162162162177%_)) + (gx#stx-null? _%tl162436162451%_)) ((lambda () - (let ((__obj169420 + (let ((__obj169694 (let () (declare (not safe)) (##structure gxc#!abort::t '#f)))) (let () (declare (not safe)) - (gxc#!abort:::init! __obj169420)) - __obj169420))) - (_%g162158162167%_ _%g162159162170%_)))) - (_%g162158162167%_ _%g162159162170%_))))) - (_%g162157162182%_ _%ann162156%_)))) + (gxc#!abort:::init! __obj169694)) + __obj169694))) + (_%g162432162441%_ _%g162433162444%_)))) + (_%g162432162441%_ _%g162433162444%_))))) + (_%g162431162456%_ _%ann162430%_)))) (let () (declare (not safe)) (__hash-put! @@ -9015,19 +9015,19 @@ '@abort gxc#basic-expression-type-annotation-abort)) (define gxc#raw-expression-type-lambda% - (lambda (_%self162087%_ _%stx162088%_) - (let* ((_%__stx167258167259%_ _%stx162088%_) - (_%g162091162105%_ + (lambda (_%self162361%_ _%stx162362%_) + (let* ((_%__stx167532167533%_ _%stx162362%_) + (_%g162365162379%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167258167259%_))))) - (let ((_%__kont167260167261%_ - (lambda (_%L162143%_) - (let ((__obj169421 + _%__stx167532167533%_))))) + (let ((_%__kont167534167535%_ + (lambda (_%L162417%_) + (let ((__obj169695 (let () (declare (not safe)) (##structure @@ -9038,22 +9038,22 @@ '#f '#f '#f)))) - (let ((__tmp169591 (gxc#lambda-form-arity _%L162143%_)) - (__tmp169590 - (gxc#dispatch-lambda-form-delegate _%L162143%_))) + (let ((__tmp169865 (gxc#lambda-form-arity _%L162417%_)) + (__tmp169864 + (gxc#dispatch-lambda-form-delegate _%L162417%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f absent-value - __obj169421 - __tmp169591 - __tmp169590)) - __obj169421))) - (_%__kont167262167263%_ - (lambda (_%L162118%_) - (let* ((_%signature162128%_ - (gxc#lambda-form-infer-signature _%L162118%_)) - (__obj169422 + __obj169695 + __tmp169865 + __tmp169864)) + __obj169695))) + (_%__kont167536167537%_ + (lambda (_%L162392%_) + (let* ((_%signature162402%_ + (gxc#lambda-form-infer-signature _%L162392%_)) + (__obj169696 (let () (declare (not safe)) (##structure @@ -9064,98 +9064,98 @@ '#f '#f '#f)))) - (let ((__tmp169592 (gxc#lambda-form-arity _%L162118%_))) + (let ((__tmp169866 (gxc#lambda-form-arity _%L162392%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f - _%signature162128%_ - __obj169422 - __tmp169592 + _%signature162402%_ + __obj169696 + __tmp169866 '#f)) - __obj169422)))) - (let ((_%__match167269167270%_ - (lambda (_%e162094162135%_ - _%hd162095162138%_ - _%tl162096162140%_) - (let ((_%L162143%_ _%tl162096162140%_)) - (if (gxc#dispatch-lambda-form? _%L162143%_) - (_%__kont167260167261%_ _%L162143%_) - (_%__kont167262167263%_ _%tl162096162140%_)))))) + __obj169696)))) + (let ((_%__match167543167544%_ + (lambda (_%e162368162409%_ + _%hd162369162412%_ + _%tl162370162414%_) + (let ((_%L162417%_ _%tl162370162414%_)) + (if (gxc#dispatch-lambda-form? _%L162417%_) + (_%__kont167534167535%_ _%L162417%_) + (_%__kont167536167537%_ _%tl162370162414%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167258167259%_)) - (let ((_%e162094162135%_ + (gx#stx-pair? _%__stx167532167533%_)) + (let ((_%e162368162409%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167258167259%_)))) - (let ((_%tl162096162140%_ + (gx#stx-e _%__stx167532167533%_)))) + (let ((_%tl162370162414%_ (let () (declare (not safe)) - (##cdr _%e162094162135%_))) - (_%hd162095162138%_ + (##cdr _%e162368162409%_))) + (_%hd162369162412%_ (let () (declare (not safe)) - (##car _%e162094162135%_)))) - (_%__match167269167270%_ - _%e162094162135%_ - _%hd162095162138%_ - _%tl162096162140%_))) - (let () (declare (not safe)) (_%g162091162105%_)))))))) + (##car _%e162368162409%_)))) + (_%__match167543167544%_ + _%e162368162409%_ + _%hd162369162412%_ + _%tl162370162414%_))) + (let () (declare (not safe)) (_%g162365162379%_)))))))) (define gxc#basic-expression-type-lambda% - (lambda (_%self161231%_ _%stx161232%_) - (let* ((_%__stx167278167279%_ _%stx161232%_) - (_%g161237161429%_ + (lambda (_%self161505%_ _%stx161506%_) + (let* ((_%__stx167552167553%_ _%stx161506%_) + (_%g161511161703%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167278167279%_))))) - (let ((_%__kont167280167281%_ - (lambda (_%L162024%_ - _%L162025%_ - _%L162026%_ - _%L162027%_ - _%L162028%_ - _%L162029%_) - (let* ((_%tab162079%_ + _%__stx167552167553%_))))) + (let ((_%__kont167554167555%_ + (lambda (_%L162298%_ + _%L162299%_ + _%L162300%_ + _%L162301%_ + _%L162302%_ + _%L162303%_) + (let* ((_%tab162353%_ (let () (declare (not safe)) - (gx#stx-e _%L162026%_))) - (_%keys162081%_ - (if _%tab162079%_ - (let ((__tmp169593 - (vector->list _%tab162079%_))) + (gx#stx-e _%L162300%_))) + (_%keys162355%_ + (if _%tab162353%_ + (let ((__tmp169867 + (vector->list _%tab162353%_))) (declare (not safe)) - (##filter identity __tmp169593)) + (##filter identity __tmp169867)) '#f)) - (__obj169423 + (__obj169697 (let () (declare (not safe)) (##structure gxc#!kw-lambda::t '#f '#f '#f '#f)))) - (let ((__tmp169594 + (let ((__tmp169868 (let () (declare (not safe)) - (gxc#identifier-symbol _%L162025%_)))) + (gxc#identifier-symbol _%L162299%_)))) (declare (not safe)) (gxc#!kw-lambda:::init! - __obj169423 - _%keys162081%_ - __tmp169594)) - __obj169423))) - (_%__kont167282167283%_ - (lambda (_%L161757%_ - _%L161758%_ - _%L161759%_ - _%L161760%_ - _%L161761%_ - _%L161762%_ - _%L161763%_ - _%L161764%_ - _%L161765%_ - _%L161766%_) - (let ((__obj169424 + __obj169697 + _%keys162355%_ + __tmp169868)) + __obj169697))) + (_%__kont167556167557%_ + (lambda (_%L162031%_ + _%L162032%_ + _%L162033%_ + _%L162034%_ + _%L162035%_ + _%L162036%_ + _%L162037%_ + _%L162038%_ + _%L162039%_ + _%L162040%_) + (let ((__obj169698 (let () (declare (not safe)) (##structure @@ -9164,28 +9164,28 @@ '#f '#f '#f)))) - (let ((__tmp169596 + (let ((__tmp169870 (map gx#stx-e - (let ((__tmp169597 - (lambda (_%g161859161862%_ - _%g161860161864%_) - (cons _%g161859161862%_ - _%g161860161864%_)))) + (let ((__tmp169871 + (lambda (_%g162133162136%_ + _%g162134162138%_) + (cons _%g162133162136%_ + _%g162134162138%_)))) (declare (not safe)) - (__foldr1 __tmp169597 '() _%L161759%_)))) - (__tmp169595 + (__foldr1 __tmp169871 '() _%L162033%_)))) + (__tmp169869 (let () (declare (not safe)) - (gxc#identifier-symbol _%L161763%_)))) + (gxc#identifier-symbol _%L162037%_)))) (declare (not safe)) (gxc#!kw-lambda-primary:::init! - __obj169424 - __tmp169596 - __tmp169595)) - __obj169424))) - (_%__kont167286167287%_ - (lambda (_%L161467%_) - (let ((__obj169425 + __obj169698 + __tmp169870 + __tmp169869)) + __obj169698))) + (_%__kont167560167561%_ + (lambda (_%L161741%_) + (let ((__obj169699 (let () (declare (not safe)) (##structure @@ -9196,22 +9196,22 @@ '#f '#f '#f)))) - (let ((__tmp169599 (gxc#lambda-form-arity _%L161467%_)) - (__tmp169598 - (gxc#dispatch-lambda-form-delegate _%L161467%_))) + (let ((__tmp169873 (gxc#lambda-form-arity _%L161741%_)) + (__tmp169872 + (gxc#dispatch-lambda-form-delegate _%L161741%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f absent-value - __obj169425 - __tmp169599 - __tmp169598)) - __obj169425))) - (_%__kont167288167289%_ - (lambda (_%L161442%_) - (let* ((_%signature161452%_ - (gxc#lambda-form-infer-signature _%L161442%_)) - (__obj169426 + __obj169699 + __tmp169873 + __tmp169872)) + __obj169699))) + (_%__kont167562167563%_ + (lambda (_%L161716%_) + (let* ((_%signature161726%_ + (gxc#lambda-form-infer-signature _%L161716%_)) + (__obj169700 (let () (declare (not safe)) (##structure @@ -9222,1937 +9222,1937 @@ '#f '#f '#f)))) - (let ((__tmp169600 (gxc#lambda-form-arity _%L161442%_))) + (let ((__tmp169874 (gxc#lambda-form-arity _%L161716%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f - _%signature161452%_ - __obj169426 - __tmp169600 + _%signature161726%_ + __obj169700 + __tmp169874 '#f)) - __obj169426)))) - (let* ((_%__match167587167588%_ - (lambda (_%e161418161459%_ - _%hd161419161462%_ - _%tl161420161464%_) - (let ((_%L161467%_ _%tl161420161464%_)) - (if (gxc#dispatch-lambda-form? _%L161467%_) - (_%__kont167286167287%_ _%L161467%_) - (_%__kont167288167289%_ _%tl161420161464%_))))) - (_%__match167581167582%_ - (lambda (_%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_ - _%e161315161489%_ - _%hd161316161492%_ - _%tl161317161494%_ - _%e161318161497%_ - _%hd161319161500%_ - _%tl161320161502%_ - _%e161321161505%_ - _%hd161322161508%_ - _%tl161323161510%_ - _%e161324161513%_ - _%hd161325161516%_ - _%tl161326161518%_ - _%e161327161521%_ - _%hd161328161524%_ - _%tl161329161526%_ - _%e161330161529%_ - _%hd161331161532%_ - _%tl161332161534%_ - _%e161333161537%_ - _%hd161334161540%_ - _%tl161335161542%_ - _%e161336161545%_ - _%hd161337161548%_ - _%tl161338161550%_ - _%e161339161553%_ - _%hd161340161556%_ - _%tl161341161558%_ - _%e161342161561%_ - _%hd161343161564%_ - _%tl161344161566%_ - _%e161345161569%_ - _%hd161346161572%_ - _%tl161347161574%_ - _%e161348161577%_ - _%hd161349161580%_ - _%tl161350161582%_ - _%e161351161585%_ - _%hd161352161588%_ - _%tl161353161590%_ - _%__splice167284167285%_ - _%target161354161593%_ - _%tl161356161595%_ - _%e161369161598%_ - _%hd161370161601%_ - _%tl161371161603%_ - _%e161372161606%_ - _%hd161373161609%_ - _%tl161374161611%_ - _%e161375161614%_ - _%hd161376161617%_ - _%tl161377161619%_) - (letrec ((_%loop161357161622%_ - (lambda (_%hd161355161625%_ - _%-absent-value161361161627%_ - _%key161362161629%_ - _%-xkwvar161363161631%_ - _%-hash-ref161364161633%_) + __obj169700)))) + (let* ((_%__match167861167862%_ + (lambda (_%e161692161733%_ + _%hd161693161736%_ + _%tl161694161738%_) + (let ((_%L161741%_ _%tl161694161738%_)) + (if (gxc#dispatch-lambda-form? _%L161741%_) + (_%__kont167560167561%_ _%L161741%_) + (_%__kont167562167563%_ _%tl161694161738%_))))) + (_%__match167855167856%_ + (lambda (_%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_ + _%e161589161763%_ + _%hd161590161766%_ + _%tl161591161768%_ + _%e161592161771%_ + _%hd161593161774%_ + _%tl161594161776%_ + _%e161595161779%_ + _%hd161596161782%_ + _%tl161597161784%_ + _%e161598161787%_ + _%hd161599161790%_ + _%tl161600161792%_ + _%e161601161795%_ + _%hd161602161798%_ + _%tl161603161800%_ + _%e161604161803%_ + _%hd161605161806%_ + _%tl161606161808%_ + _%e161607161811%_ + _%hd161608161814%_ + _%tl161609161816%_ + _%e161610161819%_ + _%hd161611161822%_ + _%tl161612161824%_ + _%e161613161827%_ + _%hd161614161830%_ + _%tl161615161832%_ + _%e161616161835%_ + _%hd161617161838%_ + _%tl161618161840%_ + _%e161619161843%_ + _%hd161620161846%_ + _%tl161621161848%_ + _%e161622161851%_ + _%hd161623161854%_ + _%tl161624161856%_ + _%e161625161859%_ + _%hd161626161862%_ + _%tl161627161864%_ + _%__splice167558167559%_ + _%target161628161867%_ + _%tl161630161869%_ + _%e161643161872%_ + _%hd161644161875%_ + _%tl161645161877%_ + _%e161646161880%_ + _%hd161647161883%_ + _%tl161648161885%_ + _%e161649161888%_ + _%hd161650161891%_ + _%tl161651161893%_) + (letrec ((_%loop161631161896%_ + (lambda (_%hd161629161899%_ + _%-absent-value161635161901%_ + _%key161636161903%_ + _%-xkwvar161637161905%_ + _%-hash-ref161638161907%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161355161625%_)) - (let ((_%e161358161636%_ + (gx#stx-pair? _%hd161629161899%_)) + (let ((_%e161632161910%_ (let () (declare (not safe)) - (gx#stx-e _%hd161355161625%_)))) - (let ((_%lp-tl161360161641%_ + (gx#stx-e _%hd161629161899%_)))) + (let ((_%lp-tl161634161915%_ (let () (declare (not safe)) - (##cdr _%e161358161636%_))) - (_%lp-hd161359161639%_ + (##cdr _%e161632161910%_))) + (_%lp-hd161633161913%_ (let () (declare (not safe)) - (##car _%e161358161636%_)))) + (##car _%e161632161910%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd161359161639%_)) - (let ((_%e161378161644%_ + _%lp-hd161633161913%_)) + (let ((_%e161652161918%_ (let () (declare (not safe)) (gx#stx-e - _%lp-hd161359161639%_)))) - (let ((_%tl161380161649%_ + _%lp-hd161633161913%_)))) + (let ((_%tl161654161923%_ (let () (declare (not safe)) - (##cdr _%e161378161644%_))) - (_%hd161379161647%_ + (##cdr _%e161652161918%_))) + (_%hd161653161921%_ (let () (declare (not safe)) - (##car _%e161378161644%_)))) + (##car _%e161652161918%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd161379161647%_)) + _%hd161653161921%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd161379161647%_)) + _%hd161653161921%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl161380161649%_)) - (let ((_%e161381161652%_ + (gx#stx-pair? _%tl161654161923%_)) + (let ((_%e161655161926%_ (let () (declare (not safe)) - (gx#stx-e _%tl161380161649%_)))) - (let ((_%tl161383161657%_ + (gx#stx-e _%tl161654161923%_)))) + (let ((_%tl161657161931%_ (let () (declare (not safe)) - (##cdr _%e161381161652%_))) - (_%hd161382161655%_ + (##cdr _%e161655161926%_))) + (_%hd161656161929%_ (let () (declare (not safe)) - (##car _%e161381161652%_)))) + (##car _%e161655161926%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161382161655%_)) - (let ((_%e161384161660%_ + (gx#stx-pair? _%hd161656161929%_)) + (let ((_%e161658161934%_ (let () (declare (not safe)) - (gx#stx-e _%hd161382161655%_)))) - (let ((_%tl161386161665%_ + (gx#stx-e _%hd161656161929%_)))) + (let ((_%tl161660161939%_ (let () (declare (not safe)) - (##cdr _%e161384161660%_))) - (_%hd161385161663%_ + (##cdr _%e161658161934%_))) + (_%hd161659161937%_ (let () (declare (not safe)) - (##car _%e161384161660%_)))) + (##car _%e161658161934%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161385161663%_)) + (gx#identifier? _%hd161659161937%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd161385161663%_)) + _%hd161659161937%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161386161665%_)) - (let ((_%e161387161668%_ + _%tl161660161939%_)) + (let ((_%e161661161942%_ (let () (declare (not safe)) (gx#stx-e - _%tl161386161665%_)))) - (let ((_%tl161389161673%_ + _%tl161660161939%_)))) + (let ((_%tl161663161947%_ (let () (declare (not safe)) - (##cdr _%e161387161668%_))) - (_%hd161388161671%_ + (##cdr _%e161661161942%_))) + (_%hd161662161945%_ (let () (declare (not safe)) - (##car _%e161387161668%_)))) + (##car _%e161661161942%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161389161673%_)) + _%tl161663161947%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161383161657%_)) - (let ((_%e161390161676%_ + _%tl161657161931%_)) + (let ((_%e161664161950%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl161383161657%_)))) - (let ((_%tl161392161681%_ + (gx#stx-e _%tl161657161931%_)))) + (let ((_%tl161666161955%_ (let () (declare (not safe)) - (##cdr _%e161390161676%_))) - (_%hd161391161679%_ + (##cdr _%e161664161950%_))) + (_%hd161665161953%_ (let () (declare (not safe)) - (##car _%e161390161676%_)))) + (##car _%e161664161950%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161391161679%_)) - (let ((_%e161393161684%_ + (gx#stx-pair? _%hd161665161953%_)) + (let ((_%e161667161958%_ (let () (declare (not safe)) - (gx#stx-e _%hd161391161679%_)))) - (let ((_%tl161395161689%_ + (gx#stx-e _%hd161665161953%_)))) + (let ((_%tl161669161963%_ (let () (declare (not safe)) - (##cdr _%e161393161684%_))) - (_%hd161394161687%_ + (##cdr _%e161667161958%_))) + (_%hd161668161961%_ (let () (declare (not safe)) - (##car _%e161393161684%_)))) + (##car _%e161667161958%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161394161687%_)) + (gx#identifier? _%hd161668161961%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd161394161687%_)) + (gx#stx-eq? '%#ref _%hd161668161961%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161395161689%_)) - (let ((_%e161396161692%_ + (gx#stx-pair? _%tl161669161963%_)) + (let ((_%e161670161966%_ (let () (declare (not safe)) (gx#stx-e - _%tl161395161689%_)))) - (let ((_%tl161398161697%_ + _%tl161669161963%_)))) + (let ((_%tl161672161971%_ (let () (declare (not safe)) - (##cdr _%e161396161692%_))) - (_%hd161397161695%_ + (##cdr _%e161670161966%_))) + (_%hd161671161969%_ (let () (declare (not safe)) - (##car _%e161396161692%_)))) + (##car _%e161670161966%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161398161697%_)) + _%tl161672161971%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161392161681%_)) - (let ((_%e161399161700%_ + _%tl161666161955%_)) + (let ((_%e161673161974%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl161392161681%_)))) - (let ((_%tl161401161705%_ - (let () (declare (not safe)) (##cdr _%e161399161700%_))) - (_%hd161400161703%_ + (gx#stx-e _%tl161666161955%_)))) + (let ((_%tl161675161979%_ + (let () (declare (not safe)) (##cdr _%e161673161974%_))) + (_%hd161674161977%_ (let () (declare (not safe)) - (##car _%e161399161700%_)))) + (##car _%e161673161974%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161400161703%_)) - (let ((_%e161402161708%_ + (gx#stx-pair? _%hd161674161977%_)) + (let ((_%e161676161982%_ (let () (declare (not safe)) - (gx#stx-e _%hd161400161703%_)))) - (let ((_%tl161404161713%_ + (gx#stx-e _%hd161674161977%_)))) + (let ((_%tl161678161987%_ (let () (declare (not safe)) - (##cdr _%e161402161708%_))) - (_%hd161403161711%_ + (##cdr _%e161676161982%_))) + (_%hd161677161985%_ (let () (declare (not safe)) - (##car _%e161402161708%_)))) + (##car _%e161676161982%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161403161711%_)) + (gx#identifier? _%hd161677161985%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd161403161711%_)) + (gx#stx-eq? '%#quote _%hd161677161985%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161404161713%_)) - (let ((_%e161405161716%_ + (gx#stx-pair? _%tl161678161987%_)) + (let ((_%e161679161990%_ (let () (declare (not safe)) - (gx#stx-e _%tl161404161713%_)))) - (let ((_%tl161407161721%_ + (gx#stx-e _%tl161678161987%_)))) + (let ((_%tl161681161995%_ (let () (declare (not safe)) - (##cdr _%e161405161716%_))) - (_%hd161406161719%_ + (##cdr _%e161679161990%_))) + (_%hd161680161993%_ (let () (declare (not safe)) - (##car _%e161405161716%_)))) + (##car _%e161679161990%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161407161721%_)) + _%tl161681161995%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161401161705%_)) - (let ((_%e161408161724%_ + _%tl161675161979%_)) + (let ((_%e161682161998%_ (let () (declare (not safe)) (gx#stx-e - _%tl161401161705%_)))) - (let ((_%tl161410161729%_ + _%tl161675161979%_)))) + (let ((_%tl161684162003%_ (let () (declare (not safe)) - (##cdr _%e161408161724%_))) - (_%hd161409161727%_ + (##cdr _%e161682161998%_))) + (_%hd161683162001%_ (let () (declare (not safe)) - (##car _%e161408161724%_)))) + (##car _%e161682161998%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd161409161727%_)) - (let ((_%e161411161732%_ + _%hd161683162001%_)) + (let ((_%e161685162006%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd161409161727%_)))) - (let ((_%tl161413161737%_ + (gx#stx-e _%hd161683162001%_)))) + (let ((_%tl161687162011%_ (let () (declare (not safe)) - (##cdr _%e161411161732%_))) - (_%hd161412161735%_ + (##cdr _%e161685162006%_))) + (_%hd161686162009%_ (let () (declare (not safe)) - (##car _%e161411161732%_)))) + (##car _%e161685162006%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161412161735%_)) + (gx#identifier? _%hd161686162009%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd161412161735%_)) + (gx#stx-eq? '%#ref _%hd161686162009%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161413161737%_)) - (let ((_%e161414161740%_ + (gx#stx-pair? _%tl161687162011%_)) + (let ((_%e161688162014%_ (let () (declare (not safe)) - (gx#stx-e _%tl161413161737%_)))) - (let ((_%tl161416161745%_ + (gx#stx-e _%tl161687162011%_)))) + (let ((_%tl161690162019%_ (let () (declare (not safe)) - (##cdr _%e161414161740%_))) - (_%hd161415161743%_ + (##cdr _%e161688162014%_))) + (_%hd161689162017%_ (let () (declare (not safe)) - (##car _%e161414161740%_)))) + (##car _%e161688162014%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161416161745%_)) + (gx#stx-null? _%tl161690162019%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161410161729%_)) - (_%loop161357161622%_ - _%lp-tl161360161641%_ - (cons _%hd161415161743%_ - _%-absent-value161361161627%_) - (cons _%hd161406161719%_ - _%key161362161629%_) - (cons _%hd161397161695%_ - _%-xkwvar161363161631%_) - (cons _%hd161388161671%_ - _%-hash-ref161364161633%_)) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) + _%tl161684162003%_)) + (_%loop161631161896%_ + _%lp-tl161634161915%_ + (cons _%hd161689162017%_ + _%-absent-value161635161901%_) + (cons _%hd161680161993%_ + _%key161636161903%_) + (cons _%hd161671161969%_ + _%-xkwvar161637161905%_) + (cons _%hd161662161945%_ + _%-hash-ref161638161907%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) - (let ((_%-hash-ref161368161754%_ - (reverse _%-hash-ref161364161633%_)) - (_%-xkwvar161367161752%_ - (reverse _%-xkwvar161363161631%_)) - (_%key161366161750%_ - (reverse _%key161362161629%_)) - (_%-absent-value161365161748%_ - (reverse _%-absent-value161361161627%_))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) + (let ((_%-hash-ref161642162028%_ + (reverse _%-hash-ref161638161907%_)) + (_%-xkwvar161641162026%_ + (reverse _%-xkwvar161637161905%_)) + (_%key161640162024%_ + (reverse _%key161636161903%_)) + (_%-absent-value161639162022%_ + (reverse _%-absent-value161635161901%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161323161510%_)) - (let ((_%L161757%_ - _%hd161376161617%_) - (_%L161758%_ - _%-absent-value161365161748%_) - (_%L161759%_ - _%key161366161750%_) - (_%L161760%_ - _%-xkwvar161367161752%_) - (_%L161761%_ - _%-hash-ref161368161754%_) - (_%L161762%_ - _%hd161352161588%_) - (_%L161763%_ - _%hd161343161564%_) - (_%L161764%_ - _%hd161334161540%_) - (_%L161765%_ - _%tl161320161502%_) - (_%L161766%_ - _%hd161319161500%_)) + _%tl161597161784%_)) + (let ((_%L162031%_ + _%hd161650161891%_) + (_%L162032%_ + _%-absent-value161639162022%_) + (_%L162033%_ + _%key161640162024%_) + (_%L162034%_ + _%-xkwvar161641162026%_) + (_%L162035%_ + _%-hash-ref161642162028%_) + (_%L162036%_ + _%hd161626161862%_) + (_%L162037%_ + _%hd161617161838%_) + (_%L162038%_ + _%hd161608161814%_) + (_%L162039%_ + _%tl161594161776%_) + (_%L162040%_ + _%hd161593161774%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L161766%_)) + _%L162040%_)) (let () (declare (not safe)) (gx#identifier? - _%L161765%_)) + _%L162039%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L161764%_ + _%L162038%_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _%L161766%_ - _%L161762%_)) - (let ((__tmp169601 - (let ((__tmp169602 + _%L162040%_ + _%L162036%_)) + (let ((__tmp169875 + (let ((__tmp169876 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g161819161822%_ _%g161820161824%_) - (cons _%g161819161822%_ _%g161820161824%_)))) + (lambda (_%g162093162096%_ _%g162094162098%_) + (cons _%g162093162096%_ _%g162094162098%_)))) (declare (not safe)) - (__foldr1 __tmp169602 '() _%L161759%_)))) + (__foldr1 __tmp169876 '() _%L162033%_)))) (declare (not safe)) - (__andmap1 gx#stx-keyword? __tmp169601)) - (let ((__tmp169605 - (lambda (_%g161826161828%_) + (__andmap1 gx#stx-keyword? __tmp169875)) + (let ((__tmp169879 + (lambda (_%g162100162102%_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%g161826161828%_ + _%g162100162102%_ 'symbolic-table-ref)))) - (__tmp169603 - (let ((__tmp169604 - (lambda (_%g161830161833%_ _%g161831161835%_) - (cons _%g161830161833%_ _%g161831161835%_)))) + (__tmp169877 + (let ((__tmp169878 + (lambda (_%g162104162107%_ _%g162105162109%_) + (cons _%g162104162107%_ _%g162105162109%_)))) (declare (not safe)) - (__foldr1 __tmp169604 '() _%L161761%_)))) + (__foldr1 __tmp169878 '() _%L162035%_)))) (declare (not safe)) - (__andmap1 __tmp169605 __tmp169603)) - (let ((__tmp169608 - (lambda (_%g161837161839%_) + (__andmap1 __tmp169879 __tmp169877)) + (let ((__tmp169882 + (lambda (_%g162111162113%_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%g161837161839%_ + _%g162111162113%_ 'absent-value)))) - (__tmp169606 - (let ((__tmp169607 - (lambda (_%g161841161844%_ _%g161842161846%_) - (cons _%g161841161844%_ _%g161842161846%_)))) + (__tmp169880 + (let ((__tmp169881 + (lambda (_%g162115162118%_ _%g162116162120%_) + (cons _%g162115162118%_ _%g162116162120%_)))) (declare (not safe)) - (__foldr1 __tmp169607 '() _%L161758%_)))) + (__foldr1 __tmp169881 '() _%L162032%_)))) (declare (not safe)) - (__andmap1 __tmp169608 __tmp169606)) - (let ((__tmp169611 - (lambda (_%g161848161850%_) + (__andmap1 __tmp169882 __tmp169880)) + (let ((__tmp169885 + (lambda (_%g162122162124%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g161848161850%_ - _%L161766%_)))) - (__tmp169609 - (let ((__tmp169610 - (lambda (_%g161852161855%_ _%g161853161857%_) - (cons _%g161852161855%_ _%g161853161857%_)))) + _%g162122162124%_ + _%L162040%_)))) + (__tmp169883 + (let ((__tmp169884 + (lambda (_%g162126162129%_ _%g162127162131%_) + (cons _%g162126162129%_ _%g162127162131%_)))) (declare (not safe)) - (__foldr1 __tmp169610 '() _%L161760%_)))) + (__foldr1 __tmp169884 '() _%L162034%_)))) (declare (not safe)) - (__andmap1 __tmp169611 __tmp169609))) + (__andmap1 __tmp169885 __tmp169883))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont167282167283%_ - _%L161757%_ - _%L161758%_ - _%L161759%_ - _%L161760%_ - _%L161761%_ - _%L161762%_ - _%L161763%_ - _%L161764%_ - _%L161765%_ - _%L161766%_) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_))) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_))))))) - (_%loop161357161622%_ - _%target161354161593%_ + (_%__kont167556167557%_ + _%L162031%_ + _%L162032%_ + _%L162033%_ + _%L162034%_ + _%L162035%_ + _%L162036%_ + _%L162037%_ + _%L162038%_ + _%L162039%_ + _%L162040%_) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_))))))) + (_%loop161631161896%_ + _%target161628161867%_ '() '() '() '())))) - (_%__match167453167454%_ - (lambda (_%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_ - _%e161315161489%_ - _%hd161316161492%_ - _%tl161317161494%_) + (_%__match167727167728%_ + (lambda (_%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_ + _%e161589161763%_ + _%hd161590161766%_ + _%tl161591161768%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161316161492%_)) - (let ((_%e161318161497%_ + (gx#stx-pair? _%hd161590161766%_)) + (let ((_%e161592161771%_ (let () (declare (not safe)) - (gx#stx-e _%hd161316161492%_)))) - (let ((_%tl161320161502%_ + (gx#stx-e _%hd161590161766%_)))) + (let ((_%tl161594161776%_ (let () (declare (not safe)) - (##cdr _%e161318161497%_))) - (_%hd161319161500%_ + (##cdr _%e161592161771%_))) + (_%hd161593161774%_ (let () (declare (not safe)) - (##car _%e161318161497%_)))) + (##car _%e161592161771%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161317161494%_)) - (let ((_%e161321161505%_ + (gx#stx-pair? _%tl161591161768%_)) + (let ((_%e161595161779%_ (let () (declare (not safe)) - (gx#stx-e _%tl161317161494%_)))) - (let ((_%tl161323161510%_ + (gx#stx-e _%tl161591161768%_)))) + (let ((_%tl161597161784%_ (let () (declare (not safe)) - (##cdr _%e161321161505%_))) - (_%hd161322161508%_ + (##cdr _%e161595161779%_))) + (_%hd161596161782%_ (let () (declare (not safe)) - (##car _%e161321161505%_)))) + (##car _%e161595161779%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161322161508%_)) - (let ((_%e161324161513%_ + (gx#stx-pair? _%hd161596161782%_)) + (let ((_%e161598161787%_ (let () (declare (not safe)) (gx#stx-e - _%hd161322161508%_)))) - (let ((_%tl161326161518%_ + _%hd161596161782%_)))) + (let ((_%tl161600161792%_ (let () (declare (not safe)) - (##cdr _%e161324161513%_))) - (_%hd161325161516%_ + (##cdr _%e161598161787%_))) + (_%hd161599161790%_ (let () (declare (not safe)) - (##car _%e161324161513%_)))) + (##car _%e161598161787%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd161325161516%_)) + _%hd161599161790%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd161325161516%_)) + _%hd161599161790%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161326161518%_)) - (let ((_%e161327161521%_ + _%tl161600161792%_)) + (let ((_%e161601161795%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl161326161518%_)))) - (let ((_%tl161329161526%_ + (gx#stx-e _%tl161600161792%_)))) + (let ((_%tl161603161800%_ (let () (declare (not safe)) - (##cdr _%e161327161521%_))) - (_%hd161328161524%_ + (##cdr _%e161601161795%_))) + (_%hd161602161798%_ (let () (declare (not safe)) - (##car _%e161327161521%_)))) + (##car _%e161601161795%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161328161524%_)) - (let ((_%e161330161529%_ + (gx#stx-pair? _%hd161602161798%_)) + (let ((_%e161604161803%_ (let () (declare (not safe)) - (gx#stx-e _%hd161328161524%_)))) - (let ((_%tl161332161534%_ + (gx#stx-e _%hd161602161798%_)))) + (let ((_%tl161606161808%_ (let () (declare (not safe)) - (##cdr _%e161330161529%_))) - (_%hd161331161532%_ + (##cdr _%e161604161803%_))) + (_%hd161605161806%_ (let () (declare (not safe)) - (##car _%e161330161529%_)))) + (##car _%e161604161803%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161331161532%_)) + (gx#identifier? _%hd161605161806%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd161331161532%_)) + (gx#stx-eq? '%#ref _%hd161605161806%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161332161534%_)) - (let ((_%e161333161537%_ + (gx#stx-pair? _%tl161606161808%_)) + (let ((_%e161607161811%_ (let () (declare (not safe)) (gx#stx-e - _%tl161332161534%_)))) - (let ((_%tl161335161542%_ + _%tl161606161808%_)))) + (let ((_%tl161609161816%_ (let () (declare (not safe)) - (##cdr _%e161333161537%_))) - (_%hd161334161540%_ + (##cdr _%e161607161811%_))) + (_%hd161608161814%_ (let () (declare (not safe)) - (##car _%e161333161537%_)))) + (##car _%e161607161811%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161335161542%_)) + _%tl161609161816%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161329161526%_)) - (let ((_%e161336161545%_ + _%tl161603161800%_)) + (let ((_%e161610161819%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl161329161526%_)))) - (let ((_%tl161338161550%_ - (let () (declare (not safe)) (##cdr _%e161336161545%_))) - (_%hd161337161548%_ + (gx#stx-e _%tl161603161800%_)))) + (let ((_%tl161612161824%_ + (let () (declare (not safe)) (##cdr _%e161610161819%_))) + (_%hd161611161822%_ (let () (declare (not safe)) - (##car _%e161336161545%_)))) + (##car _%e161610161819%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161337161548%_)) - (let ((_%e161339161553%_ + (gx#stx-pair? _%hd161611161822%_)) + (let ((_%e161613161827%_ (let () (declare (not safe)) - (gx#stx-e _%hd161337161548%_)))) - (let ((_%tl161341161558%_ + (gx#stx-e _%hd161611161822%_)))) + (let ((_%tl161615161832%_ (let () (declare (not safe)) - (##cdr _%e161339161553%_))) - (_%hd161340161556%_ + (##cdr _%e161613161827%_))) + (_%hd161614161830%_ (let () (declare (not safe)) - (##car _%e161339161553%_)))) + (##car _%e161613161827%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161340161556%_)) + (gx#identifier? _%hd161614161830%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd161340161556%_)) + (gx#stx-eq? '%#ref _%hd161614161830%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161341161558%_)) - (let ((_%e161342161561%_ + (gx#stx-pair? _%tl161615161832%_)) + (let ((_%e161616161835%_ (let () (declare (not safe)) - (gx#stx-e _%tl161341161558%_)))) - (let ((_%tl161344161566%_ + (gx#stx-e _%tl161615161832%_)))) + (let ((_%tl161618161840%_ (let () (declare (not safe)) - (##cdr _%e161342161561%_))) - (_%hd161343161564%_ + (##cdr _%e161616161835%_))) + (_%hd161617161838%_ (let () (declare (not safe)) - (##car _%e161342161561%_)))) + (##car _%e161616161835%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161344161566%_)) + _%tl161618161840%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161338161550%_)) - (let ((_%e161345161569%_ + _%tl161612161824%_)) + (let ((_%e161619161843%_ (let () (declare (not safe)) (gx#stx-e - _%tl161338161550%_)))) - (let ((_%tl161347161574%_ + _%tl161612161824%_)))) + (let ((_%tl161621161848%_ (let () (declare (not safe)) - (##cdr _%e161345161569%_))) - (_%hd161346161572%_ + (##cdr _%e161619161843%_))) + (_%hd161620161846%_ (let () (declare (not safe)) - (##car _%e161345161569%_)))) + (##car _%e161619161843%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd161346161572%_)) - (let ((_%e161348161577%_ + _%hd161620161846%_)) + (let ((_%e161622161851%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd161346161572%_)))) - (let ((_%tl161350161582%_ + (gx#stx-e _%hd161620161846%_)))) + (let ((_%tl161624161856%_ (let () (declare (not safe)) - (##cdr _%e161348161577%_))) - (_%hd161349161580%_ + (##cdr _%e161622161851%_))) + (_%hd161623161854%_ (let () (declare (not safe)) - (##car _%e161348161577%_)))) + (##car _%e161622161851%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161349161580%_)) + (gx#identifier? _%hd161623161854%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd161349161580%_)) + (gx#stx-eq? '%#ref _%hd161623161854%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161350161582%_)) - (let ((_%e161351161585%_ + (gx#stx-pair? _%tl161624161856%_)) + (let ((_%e161625161859%_ (let () (declare (not safe)) - (gx#stx-e _%tl161350161582%_)))) - (let ((_%tl161353161590%_ + (gx#stx-e _%tl161624161856%_)))) + (let ((_%tl161627161864%_ (let () (declare (not safe)) - (##cdr _%e161351161585%_))) - (_%hd161352161588%_ + (##cdr _%e161625161859%_))) + (_%hd161626161862%_ (let () (declare (not safe)) - (##car _%e161351161585%_)))) + (##car _%e161625161859%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161353161590%_)) + (gx#stx-null? _%tl161627161864%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl161347161574%_)) - (if (let ((__tmp169612 + _%tl161621161848%_)) + (if (let ((__tmp169886 (let () (declare (not safe)) (gx#stx-length - _%tl161347161574%_)))) + _%tl161621161848%_)))) (declare (not safe)) - (##fx>= __tmp169612 '1)) - (let ((_%__splice167284167285%_ + (##fx>= __tmp169886 '1)) + (let ((_%__splice167558167559%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161347161574%_ + _%tl161621161848%_ '1)))) - (let ((_%tl161356161595%_ + (let ((_%tl161630161869%_ (let () (declare (not safe)) (##vector-ref - _%__splice167284167285%_ + _%__splice167558167559%_ '1))) - (_%target161354161593%_ + (_%target161628161867%_ (let () (declare (not safe)) (##vector-ref - _%__splice167284167285%_ + _%__splice167558167559%_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161356161595%_)) - (let ((_%e161369161598%_ + _%tl161630161869%_)) + (let ((_%e161643161872%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl161356161595%_)))) - (let ((_%tl161371161603%_ + (gx#stx-e _%tl161630161869%_)))) + (let ((_%tl161645161877%_ (let () (declare (not safe)) - (##cdr _%e161369161598%_))) - (_%hd161370161601%_ + (##cdr _%e161643161872%_))) + (_%hd161644161875%_ (let () (declare (not safe)) - (##car _%e161369161598%_)))) + (##car _%e161643161872%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161370161601%_)) - (let ((_%e161372161606%_ + (gx#stx-pair? _%hd161644161875%_)) + (let ((_%e161646161880%_ (let () (declare (not safe)) - (gx#stx-e _%hd161370161601%_)))) - (let ((_%tl161374161611%_ + (gx#stx-e _%hd161644161875%_)))) + (let ((_%tl161648161885%_ (let () (declare (not safe)) - (##cdr _%e161372161606%_))) - (_%hd161373161609%_ + (##cdr _%e161646161880%_))) + (_%hd161647161883%_ (let () (declare (not safe)) - (##car _%e161372161606%_)))) + (##car _%e161646161880%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161373161609%_)) + (gx#identifier? _%hd161647161883%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd161373161609%_)) + (gx#stx-eq? '%#ref _%hd161647161883%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161374161611%_)) - (let ((_%e161375161614%_ + (gx#stx-pair? _%tl161648161885%_)) + (let ((_%e161649161888%_ (let () (declare (not safe)) (gx#stx-e - _%tl161374161611%_)))) - (let ((_%tl161377161619%_ + _%tl161648161885%_)))) + (let ((_%tl161651161893%_ (let () (declare (not safe)) - (##cdr _%e161375161614%_))) - (_%hd161376161617%_ + (##cdr _%e161649161888%_))) + (_%hd161650161891%_ (let () (declare (not safe)) - (##car _%e161375161614%_)))) + (##car _%e161649161888%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161377161619%_)) + _%tl161651161893%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161371161603%_)) - (_%__match167581167582%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_ - _%e161315161489%_ - _%hd161316161492%_ - _%tl161317161494%_ - _%e161318161497%_ - _%hd161319161500%_ - _%tl161320161502%_ - _%e161321161505%_ - _%hd161322161508%_ - _%tl161323161510%_ - _%e161324161513%_ - _%hd161325161516%_ - _%tl161326161518%_ - _%e161327161521%_ - _%hd161328161524%_ - _%tl161329161526%_ - _%e161330161529%_ - _%hd161331161532%_ - _%tl161332161534%_ - _%e161333161537%_ - _%hd161334161540%_ - _%tl161335161542%_ - _%e161336161545%_ - _%hd161337161548%_ - _%tl161338161550%_ - _%e161339161553%_ - _%hd161340161556%_ - _%tl161341161558%_ - _%e161342161561%_ - _%hd161343161564%_ - _%tl161344161566%_ - _%e161345161569%_ - _%hd161346161572%_ - _%tl161347161574%_ - _%e161348161577%_ - _%hd161349161580%_ - _%tl161350161582%_ - _%e161351161585%_ - _%hd161352161588%_ - _%tl161353161590%_ - _%__splice167284167285%_ - _%target161354161593%_ - _%tl161356161595%_ - _%e161369161598%_ - _%hd161370161601%_ - _%tl161371161603%_ - _%e161372161606%_ - _%hd161373161609%_ - _%tl161374161611%_ - _%e161375161614%_ - _%hd161376161617%_ - _%tl161377161619%_) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) + _%tl161645161877%_)) + (_%__match167855167856%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_ + _%e161589161763%_ + _%hd161590161766%_ + _%tl161591161768%_ + _%e161592161771%_ + _%hd161593161774%_ + _%tl161594161776%_ + _%e161595161779%_ + _%hd161596161782%_ + _%tl161597161784%_ + _%e161598161787%_ + _%hd161599161790%_ + _%tl161600161792%_ + _%e161601161795%_ + _%hd161602161798%_ + _%tl161603161800%_ + _%e161604161803%_ + _%hd161605161806%_ + _%tl161606161808%_ + _%e161607161811%_ + _%hd161608161814%_ + _%tl161609161816%_ + _%e161610161819%_ + _%hd161611161822%_ + _%tl161612161824%_ + _%e161613161827%_ + _%hd161614161830%_ + _%tl161615161832%_ + _%e161616161835%_ + _%hd161617161838%_ + _%tl161618161840%_ + _%e161619161843%_ + _%hd161620161846%_ + _%tl161621161848%_ + _%e161622161851%_ + _%hd161623161854%_ + _%tl161624161856%_ + _%e161625161859%_ + _%hd161626161862%_ + _%tl161627161864%_ + _%__splice167558167559%_ + _%target161628161867%_ + _%tl161630161869%_ + _%e161643161872%_ + _%hd161644161875%_ + _%tl161645161877%_ + _%e161646161880%_ + _%hd161647161883%_ + _%tl161648161885%_ + _%e161649161888%_ + _%hd161650161891%_ + _%tl161651161893%_) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) - (_%__match167587167588%_ - _%e161312161481%_ - _%hd161313161484%_ - _%tl161314161486%_)))) - (_%__match167441167442%_ - (lambda (_%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_ - _%e161251161888%_ - _%hd161252161891%_ - _%tl161253161893%_ - _%e161254161896%_ - _%hd161255161899%_ - _%tl161256161901%_ - _%e161257161904%_ - _%hd161258161907%_ - _%tl161259161909%_ - _%e161260161912%_ - _%hd161261161915%_ - _%tl161262161917%_ - _%e161263161920%_ - _%hd161264161923%_ - _%tl161265161925%_ - _%e161266161928%_ - _%hd161267161931%_ - _%tl161268161933%_ - _%e161269161936%_ - _%hd161270161939%_ - _%tl161271161941%_ - _%e161272161944%_ - _%hd161273161947%_ - _%tl161274161949%_ - _%e161275161952%_ - _%hd161276161955%_ - _%tl161277161957%_ - _%e161278161960%_ - _%hd161279161963%_ - _%tl161280161965%_ - _%e161281161968%_ - _%hd161282161971%_ - _%tl161283161973%_ - _%e161284161976%_ - _%hd161285161979%_ - _%tl161286161981%_ - _%e161287161984%_ - _%hd161288161987%_ - _%tl161289161989%_ - _%e161290161992%_ - _%hd161291161995%_ - _%tl161292161997%_ - _%e161293162000%_ - _%hd161294162003%_ - _%tl161295162005%_ - _%e161296162008%_ - _%hd161297162011%_ - _%tl161298162013%_ - _%e161299162016%_ - _%hd161300162019%_ - _%tl161301162021%_) - (let ((_%L162024%_ _%hd161300162019%_) - (_%L162025%_ _%hd161291161995%_) - (_%L162026%_ _%hd161282161971%_) - (_%L162027%_ _%hd161273161947%_) - (_%L162028%_ _%hd161264161923%_) - (_%L162029%_ _%hd161249161883%_)) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) + (_%__match167861167862%_ + _%e161586161755%_ + _%hd161587161758%_ + _%tl161588161760%_)))) + (_%__match167715167716%_ + (lambda (_%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_ + _%e161525162162%_ + _%hd161526162165%_ + _%tl161527162167%_ + _%e161528162170%_ + _%hd161529162173%_ + _%tl161530162175%_ + _%e161531162178%_ + _%hd161532162181%_ + _%tl161533162183%_ + _%e161534162186%_ + _%hd161535162189%_ + _%tl161536162191%_ + _%e161537162194%_ + _%hd161538162197%_ + _%tl161539162199%_ + _%e161540162202%_ + _%hd161541162205%_ + _%tl161542162207%_ + _%e161543162210%_ + _%hd161544162213%_ + _%tl161545162215%_ + _%e161546162218%_ + _%hd161547162221%_ + _%tl161548162223%_ + _%e161549162226%_ + _%hd161550162229%_ + _%tl161551162231%_ + _%e161552162234%_ + _%hd161553162237%_ + _%tl161554162239%_ + _%e161555162242%_ + _%hd161556162245%_ + _%tl161557162247%_ + _%e161558162250%_ + _%hd161559162253%_ + _%tl161560162255%_ + _%e161561162258%_ + _%hd161562162261%_ + _%tl161563162263%_ + _%e161564162266%_ + _%hd161565162269%_ + _%tl161566162271%_ + _%e161567162274%_ + _%hd161568162277%_ + _%tl161569162279%_ + _%e161570162282%_ + _%hd161571162285%_ + _%tl161572162287%_ + _%e161573162290%_ + _%hd161574162293%_ + _%tl161575162295%_) + (let ((_%L162298%_ _%hd161574162293%_) + (_%L162299%_ _%hd161565162269%_) + (_%L162300%_ _%hd161556162245%_) + (_%L162301%_ _%hd161547162221%_) + (_%L162302%_ _%hd161538162197%_) + (_%L162303%_ _%hd161523162157%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L162029%_)) + (gx#identifier? _%L162303%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L162028%_ + _%L162302%_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L162027%_ + _%L162301%_ 'keyword-dispatch)) (let () (declare (not safe)) (gx#free-identifier=? - _%L162029%_ - _%L162024%_))) - (_%__kont167280167281%_ - _%L162024%_ - _%L162025%_ - _%L162026%_ - _%L162027%_ - _%L162028%_ - _%L162029%_) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)))))) + _%L162303%_ + _%L162298%_))) + (_%__kont167554167555%_ + _%L162298%_ + _%L162299%_ + _%L162300%_ + _%L162301%_ + _%L162302%_ + _%L162303%_) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167278167279%_)) - (let ((_%e161245161872%_ + (gx#stx-pair? _%__stx167552167553%_)) + (let ((_%e161519162146%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167278167279%_)))) - (let ((_%tl161247161877%_ + (gx#stx-e _%__stx167552167553%_)))) + (let ((_%tl161521162151%_ (let () (declare (not safe)) - (##cdr _%e161245161872%_))) - (_%hd161246161875%_ + (##cdr _%e161519162146%_))) + (_%hd161520162149%_ (let () (declare (not safe)) - (##car _%e161245161872%_)))) + (##car _%e161519162146%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161247161877%_)) - (let ((_%e161248161880%_ + (gx#stx-pair? _%tl161521162151%_)) + (let ((_%e161522162154%_ (let () (declare (not safe)) - (gx#stx-e _%tl161247161877%_)))) - (let ((_%tl161250161885%_ + (gx#stx-e _%tl161521162151%_)))) + (let ((_%tl161524162159%_ (let () (declare (not safe)) - (##cdr _%e161248161880%_))) - (_%hd161249161883%_ + (##cdr _%e161522162154%_))) + (_%hd161523162157%_ (let () (declare (not safe)) - (##car _%e161248161880%_)))) + (##car _%e161522162154%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161250161885%_)) - (let ((_%e161251161888%_ + (gx#stx-pair? _%tl161524162159%_)) + (let ((_%e161525162162%_ (let () (declare (not safe)) - (gx#stx-e _%tl161250161885%_)))) - (let ((_%tl161253161893%_ + (gx#stx-e _%tl161524162159%_)))) + (let ((_%tl161527162167%_ (let () (declare (not safe)) - (##cdr _%e161251161888%_))) - (_%hd161252161891%_ + (##cdr _%e161525162162%_))) + (_%hd161526162165%_ (let () (declare (not safe)) - (##car _%e161251161888%_)))) + (##car _%e161525162162%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161252161891%_)) - (let ((_%e161254161896%_ + (gx#stx-pair? _%hd161526162165%_)) + (let ((_%e161528162170%_ (let () (declare (not safe)) (gx#stx-e - _%hd161252161891%_)))) - (let ((_%tl161256161901%_ + _%hd161526162165%_)))) + (let ((_%tl161530162175%_ (let () (declare (not safe)) - (##cdr _%e161254161896%_))) - (_%hd161255161899%_ + (##cdr _%e161528162170%_))) + (_%hd161529162173%_ (let () (declare (not safe)) - (##car _%e161254161896%_)))) + (##car _%e161528162170%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd161255161899%_)) + _%hd161529162173%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd161255161899%_)) + _%hd161529162173%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161256161901%_)) - (let ((_%e161257161904%_ + _%tl161530162175%_)) + (let ((_%e161531162178%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl161256161901%_)))) - (let ((_%tl161259161909%_ + (gx#stx-e _%tl161530162175%_)))) + (let ((_%tl161533162183%_ (let () (declare (not safe)) - (##cdr _%e161257161904%_))) - (_%hd161258161907%_ + (##cdr _%e161531162178%_))) + (_%hd161532162181%_ (let () (declare (not safe)) - (##car _%e161257161904%_)))) + (##car _%e161531162178%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161258161907%_)) - (let ((_%e161260161912%_ + (gx#stx-pair? _%hd161532162181%_)) + (let ((_%e161534162186%_ (let () (declare (not safe)) - (gx#stx-e _%hd161258161907%_)))) - (let ((_%tl161262161917%_ + (gx#stx-e _%hd161532162181%_)))) + (let ((_%tl161536162191%_ (let () (declare (not safe)) - (##cdr _%e161260161912%_))) - (_%hd161261161915%_ + (##cdr _%e161534162186%_))) + (_%hd161535162189%_ (let () (declare (not safe)) - (##car _%e161260161912%_)))) + (##car _%e161534162186%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161261161915%_)) + (gx#identifier? _%hd161535162189%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd161261161915%_)) + (gx#stx-eq? '%#ref _%hd161535162189%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161262161917%_)) - (let ((_%e161263161920%_ + (gx#stx-pair? _%tl161536162191%_)) + (let ((_%e161537162194%_ (let () (declare (not safe)) (gx#stx-e - _%tl161262161917%_)))) - (let ((_%tl161265161925%_ + _%tl161536162191%_)))) + (let ((_%tl161539162199%_ (let () (declare (not safe)) - (##cdr _%e161263161920%_))) - (_%hd161264161923%_ + (##cdr _%e161537162194%_))) + (_%hd161538162197%_ (let () (declare (not safe)) - (##car _%e161263161920%_)))) + (##car _%e161537162194%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161265161925%_)) + _%tl161539162199%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161259161909%_)) - (let ((_%e161266161928%_ + _%tl161533162183%_)) + (let ((_%e161540162202%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl161259161909%_)))) - (let ((_%tl161268161933%_ - (let () (declare (not safe)) (##cdr _%e161266161928%_))) - (_%hd161267161931%_ + (gx#stx-e _%tl161533162183%_)))) + (let ((_%tl161542162207%_ + (let () (declare (not safe)) (##cdr _%e161540162202%_))) + (_%hd161541162205%_ (let () (declare (not safe)) - (##car _%e161266161928%_)))) + (##car _%e161540162202%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161267161931%_)) - (let ((_%e161269161936%_ + (gx#stx-pair? _%hd161541162205%_)) + (let ((_%e161543162210%_ (let () (declare (not safe)) - (gx#stx-e _%hd161267161931%_)))) - (let ((_%tl161271161941%_ + (gx#stx-e _%hd161541162205%_)))) + (let ((_%tl161545162215%_ (let () (declare (not safe)) - (##cdr _%e161269161936%_))) - (_%hd161270161939%_ + (##cdr _%e161543162210%_))) + (_%hd161544162213%_ (let () (declare (not safe)) - (##car _%e161269161936%_)))) + (##car _%e161543162210%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161270161939%_)) + (gx#identifier? _%hd161544162213%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd161270161939%_)) + (gx#stx-eq? '%#ref _%hd161544162213%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161271161941%_)) - (let ((_%e161272161944%_ + (gx#stx-pair? _%tl161545162215%_)) + (let ((_%e161546162218%_ (let () (declare (not safe)) - (gx#stx-e _%tl161271161941%_)))) - (let ((_%tl161274161949%_ + (gx#stx-e _%tl161545162215%_)))) + (let ((_%tl161548162223%_ (let () (declare (not safe)) - (##cdr _%e161272161944%_))) - (_%hd161273161947%_ + (##cdr _%e161546162218%_))) + (_%hd161547162221%_ (let () (declare (not safe)) - (##car _%e161272161944%_)))) + (##car _%e161546162218%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161274161949%_)) + _%tl161548162223%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161268161933%_)) - (let ((_%e161275161952%_ + _%tl161542162207%_)) + (let ((_%e161549162226%_ (let () (declare (not safe)) (gx#stx-e - _%tl161268161933%_)))) - (let ((_%tl161277161957%_ + _%tl161542162207%_)))) + (let ((_%tl161551162231%_ (let () (declare (not safe)) - (##cdr _%e161275161952%_))) - (_%hd161276161955%_ + (##cdr _%e161549162226%_))) + (_%hd161550162229%_ (let () (declare (not safe)) - (##car _%e161275161952%_)))) + (##car _%e161549162226%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd161276161955%_)) - (let ((_%e161278161960%_ + _%hd161550162229%_)) + (let ((_%e161552162234%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd161276161955%_)))) - (let ((_%tl161280161965%_ + (gx#stx-e _%hd161550162229%_)))) + (let ((_%tl161554162239%_ (let () (declare (not safe)) - (##cdr _%e161278161960%_))) - (_%hd161279161963%_ + (##cdr _%e161552162234%_))) + (_%hd161553162237%_ (let () (declare (not safe)) - (##car _%e161278161960%_)))) + (##car _%e161552162234%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161279161963%_)) + (gx#identifier? _%hd161553162237%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd161279161963%_)) + (gx#stx-eq? '%#quote _%hd161553162237%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161280161965%_)) - (let ((_%e161281161968%_ + (gx#stx-pair? _%tl161554162239%_)) + (let ((_%e161555162242%_ (let () (declare (not safe)) - (gx#stx-e _%tl161280161965%_)))) - (let ((_%tl161283161973%_ + (gx#stx-e _%tl161554162239%_)))) + (let ((_%tl161557162247%_ (let () (declare (not safe)) - (##cdr _%e161281161968%_))) - (_%hd161282161971%_ + (##cdr _%e161555162242%_))) + (_%hd161556162245%_ (let () (declare (not safe)) - (##car _%e161281161968%_)))) + (##car _%e161555162242%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161283161973%_)) + (gx#stx-null? _%tl161557162247%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161277161957%_)) - (let ((_%e161284161976%_ + _%tl161551162231%_)) + (let ((_%e161558162250%_ (let () (declare (not safe)) (gx#stx-e - _%tl161277161957%_)))) - (let ((_%tl161286161981%_ + _%tl161551162231%_)))) + (let ((_%tl161560162255%_ (let () (declare (not safe)) - (##cdr _%e161284161976%_))) - (_%hd161285161979%_ + (##cdr _%e161558162250%_))) + (_%hd161559162253%_ (let () (declare (not safe)) - (##car _%e161284161976%_)))) + (##car _%e161558162250%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd161285161979%_)) - (let ((_%e161287161984%_ + _%hd161559162253%_)) + (let ((_%e161561162258%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd161285161979%_)))) - (let ((_%tl161289161989%_ - (let () (declare (not safe)) (##cdr _%e161287161984%_))) - (_%hd161288161987%_ + (gx#stx-e _%hd161559162253%_)))) + (let ((_%tl161563162263%_ + (let () (declare (not safe)) (##cdr _%e161561162258%_))) + (_%hd161562162261%_ (let () (declare (not safe)) - (##car _%e161287161984%_)))) + (##car _%e161561162258%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161288161987%_)) + (gx#identifier? _%hd161562162261%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd161288161987%_)) + (gx#stx-eq? '%#ref _%hd161562162261%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161289161989%_)) - (let ((_%e161290161992%_ + (gx#stx-pair? _%tl161563162263%_)) + (let ((_%e161564162266%_ (let () (declare (not safe)) - (gx#stx-e _%tl161289161989%_)))) - (let ((_%tl161292161997%_ + (gx#stx-e _%tl161563162263%_)))) + (let ((_%tl161566162271%_ (let () (declare (not safe)) - (##cdr _%e161290161992%_))) - (_%hd161291161995%_ + (##cdr _%e161564162266%_))) + (_%hd161565162269%_ (let () (declare (not safe)) - (##car _%e161290161992%_)))) + (##car _%e161564162266%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161292161997%_)) + (gx#stx-null? _%tl161566162271%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161286161981%_)) - (let ((_%e161293162000%_ + (gx#stx-pair? _%tl161560162255%_)) + (let ((_%e161567162274%_ (let () (declare (not safe)) (gx#stx-e - _%tl161286161981%_)))) - (let ((_%tl161295162005%_ + _%tl161560162255%_)))) + (let ((_%tl161569162279%_ (let () (declare (not safe)) - (##cdr _%e161293162000%_))) - (_%hd161294162003%_ + (##cdr _%e161567162274%_))) + (_%hd161568162277%_ (let () (declare (not safe)) - (##car _%e161293162000%_)))) + (##car _%e161567162274%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd161294162003%_)) - (let ((_%e161296162008%_ + _%hd161568162277%_)) + (let ((_%e161570162282%_ (let () (declare (not safe)) (gx#stx-e - _%hd161294162003%_)))) - (let ((_%tl161298162013%_ + _%hd161568162277%_)))) + (let ((_%tl161572162287%_ (let () (declare (not safe)) - (##cdr _%e161296162008%_))) - (_%hd161297162011%_ + (##cdr _%e161570162282%_))) + (_%hd161571162285%_ (let () (declare (not safe)) - (##car _%e161296162008%_)))) + (##car _%e161570162282%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd161297162011%_)) + _%hd161571162285%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd161297162011%_)) + (gx#stx-eq? '%#ref _%hd161571162285%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161298162013%_)) - (let ((_%e161299162016%_ + (gx#stx-pair? _%tl161572162287%_)) + (let ((_%e161573162290%_ (let () (declare (not safe)) - (gx#stx-e _%tl161298162013%_)))) - (let ((_%tl161301162021%_ + (gx#stx-e _%tl161572162287%_)))) + (let ((_%tl161575162295%_ (let () (declare (not safe)) - (##cdr _%e161299162016%_))) - (_%hd161300162019%_ + (##cdr _%e161573162290%_))) + (_%hd161574162293%_ (let () (declare (not safe)) - (##car _%e161299162016%_)))) + (##car _%e161573162290%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161301162021%_)) + (gx#stx-null? _%tl161575162295%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161295162005%_)) + (gx#stx-null? _%tl161569162279%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161253161893%_)) - (_%__match167441167442%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_ - _%e161251161888%_ - _%hd161252161891%_ - _%tl161253161893%_ - _%e161254161896%_ - _%hd161255161899%_ - _%tl161256161901%_ - _%e161257161904%_ - _%hd161258161907%_ - _%tl161259161909%_ - _%e161260161912%_ - _%hd161261161915%_ - _%tl161262161917%_ - _%e161263161920%_ - _%hd161264161923%_ - _%tl161265161925%_ - _%e161266161928%_ - _%hd161267161931%_ - _%tl161268161933%_ - _%e161269161936%_ - _%hd161270161939%_ - _%tl161271161941%_ - _%e161272161944%_ - _%hd161273161947%_ - _%tl161274161949%_ - _%e161275161952%_ - _%hd161276161955%_ - _%tl161277161957%_ - _%e161278161960%_ - _%hd161279161963%_ - _%tl161280161965%_ - _%e161281161968%_ - _%hd161282161971%_ - _%tl161283161973%_ - _%e161284161976%_ - _%hd161285161979%_ - _%tl161286161981%_ - _%e161287161984%_ - _%hd161288161987%_ - _%tl161289161989%_ - _%e161290161992%_ - _%hd161291161995%_ - _%tl161292161997%_ - _%e161293162000%_ - _%hd161294162003%_ - _%tl161295162005%_ - _%e161296162008%_ - _%hd161297162011%_ - _%tl161298162013%_ - _%e161299162016%_ - _%hd161300162019%_ - _%tl161301162021%_) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)))) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)))) + (gx#stx-null? _%tl161527162167%_)) + (_%__match167715167716%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_ + _%e161525162162%_ + _%hd161526162165%_ + _%tl161527162167%_ + _%e161528162170%_ + _%hd161529162173%_ + _%tl161530162175%_ + _%e161531162178%_ + _%hd161532162181%_ + _%tl161533162183%_ + _%e161534162186%_ + _%hd161535162189%_ + _%tl161536162191%_ + _%e161537162194%_ + _%hd161538162197%_ + _%tl161539162199%_ + _%e161540162202%_ + _%hd161541162205%_ + _%tl161542162207%_ + _%e161543162210%_ + _%hd161544162213%_ + _%tl161545162215%_ + _%e161546162218%_ + _%hd161547162221%_ + _%tl161548162223%_ + _%e161549162226%_ + _%hd161550162229%_ + _%tl161551162231%_ + _%e161552162234%_ + _%hd161553162237%_ + _%tl161554162239%_ + _%e161555162242%_ + _%hd161556162245%_ + _%tl161557162247%_ + _%e161558162250%_ + _%hd161559162253%_ + _%tl161560162255%_ + _%e161561162258%_ + _%hd161562162261%_ + _%tl161563162263%_ + _%e161564162266%_ + _%hd161565162269%_ + _%tl161566162271%_ + _%e161567162274%_ + _%hd161568162277%_ + _%tl161569162279%_ + _%e161570162282%_ + _%hd161571162285%_ + _%tl161572162287%_ + _%e161573162290%_ + _%hd161574162293%_ + _%tl161575162295%_) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)))) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)))) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)))) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)))) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)))) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)))) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)))) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)))) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)))) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)))) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)))) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)))) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)))) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)))) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)))) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)))) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)))) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)))) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)))) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)))) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)))) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)))) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)))) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)))) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)))) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)))) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)))) - (_%__match167453167454%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_ - _%e161248161880%_ - _%hd161249161883%_ - _%tl161250161885%_)))) - (_%__match167587167588%_ - _%e161245161872%_ - _%hd161246161875%_ - _%tl161247161877%_)))) - (let () (declare (not safe)) (_%g161237161429%_)))))))) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)))) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)))) + (_%__match167727167728%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_ + _%e161522162154%_ + _%hd161523162157%_ + _%tl161524162159%_)))) + (_%__match167861167862%_ + _%e161519162146%_ + _%hd161520162149%_ + _%tl161521162151%_)))) + (let () (declare (not safe)) (_%g161511161703%_)))))))) (define gxc#basic-expression-type-case-lambda% - (lambda (_%self161101%_ _%stx161102%_) - (letrec ((_%clause-e161104%_ - (lambda (_%form161227%_) - (let* ((_%signature161229%_ - (gxc#lambda-form-infer-signature _%form161227%_)) - (__obj169427 + (lambda (_%self161375%_ _%stx161376%_) + (letrec ((_%clause-e161378%_ + (lambda (_%form161501%_) + (let* ((_%signature161503%_ + (gxc#lambda-form-infer-signature _%form161501%_)) + (__obj169701 (let () (declare (not safe)) (##structure @@ -11163,128 +11163,128 @@ '#f '#f '#f)))) - (let ((__tmp169614 - (gxc#lambda-form-arity _%form161227%_)) - (__tmp169613 - (if (gxc#dispatch-lambda-form? _%form161227%_) + (let ((__tmp169888 + (gxc#lambda-form-arity _%form161501%_)) + (__tmp169887 + (if (gxc#dispatch-lambda-form? _%form161501%_) (gxc#dispatch-lambda-form-delegate - _%form161227%_) + _%form161501%_) '#f))) (declare (not safe)) (gxc#!lambda:::init!__% '#f - _%signature161229%_ - __obj169427 - __tmp169614 - __tmp169613)) - __obj169427))) - (_%return-type-e161105%_ - (lambda (_%clauses161155%_) - (let _%loop161157%_ ((_%rest161159%_ _%clauses161155%_) - (_%result161160%_ '#f)) - (let* ((_%rest161161161169%_ _%rest161159%_) - (_%else161163161177%_ - (lambda () _%result161160%_)) - (_%K161165161215%_ - (lambda (_%rest161180%_ _%clause161181%_) - (let* ((_%clause161183%_ _%clause161181%_) - (_%return161207%_ - (let* ((_%signature161196%_ + _%signature161503%_ + __obj169701 + __tmp169888 + __tmp169887)) + __obj169701))) + (_%return-type-e161379%_ + (lambda (_%clauses161429%_) + (let _%loop161431%_ ((_%rest161433%_ _%clauses161429%_) + (_%result161434%_ '#f)) + (let* ((_%rest161435161443%_ _%rest161433%_) + (_%else161437161451%_ + (lambda () _%result161434%_)) + (_%K161439161489%_ + (lambda (_%rest161454%_ _%clause161455%_) + (let* ((_%clause161457%_ _%clause161455%_) + (_%return161481%_ + (let* ((_%signature161470%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%clause161183%_ + _%clause161457%_ '2 '#f '#f))) - (_%signature161198%_ - _%signature161196%_)) - (if _%signature161198%_ + (_%signature161472%_ + _%signature161470%_)) + (if _%signature161472%_ (if (let () (declare (not safe)) (##unchecked-structure-ref - _%signature161198%_ + _%signature161472%_ '1 '#f '#f)) - (let ((__tmp169615 + (let ((__tmp169889 (let () (declare (not safe)) (##unchecked-structure-ref - _%signature161198%_ + _%signature161472%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx161102%_ - __tmp169615)) + _%stx161376%_ + __tmp169889)) '#f) '#f))) - (_%result161212%_ - (if (and _%result161160%_ - _%return161207%_) + (_%result161486%_ + (if (and _%result161434%_ + _%return161481%_) (gxc#greatest-common-type - _%stx161102%_ - _%result161160%_ - _%return161207%_) - (let ((_%$e161209%_ - _%result161160%_)) - (if _%$e161209%_ - _%$e161209%_ - _%return161207%_))))) - (_%loop161157%_ - _%rest161180%_ - _%result161212%_))))) + _%stx161376%_ + _%result161434%_ + _%return161481%_) + (let ((_%$e161483%_ + _%result161434%_)) + (if _%$e161483%_ + _%$e161483%_ + _%return161481%_))))) + (_%loop161431%_ + _%rest161454%_ + _%result161486%_))))) (if (let () (declare (not safe)) - (##pair? _%rest161161161169%_)) - (let ((_%hd161166161218%_ + (##pair? _%rest161435161443%_)) + (let ((_%hd161440161492%_ (let () (declare (not safe)) - (##car _%rest161161161169%_))) - (_%tl161167161220%_ + (##car _%rest161435161443%_))) + (_%tl161441161494%_ (let () (declare (not safe)) - (##cdr _%rest161161161169%_)))) - (let* ((_%clause161223%_ _%hd161166161218%_) - (_%rest161225%_ _%tl161167161220%_)) - (_%K161165161215%_ - _%rest161225%_ - _%clause161223%_))) - (_%else161163161177%_))))))) - (let* ((_%g161107161117%_ - (lambda (_%g161108161114%_) + (##cdr _%rest161435161443%_)))) + (let* ((_%clause161497%_ _%hd161440161492%_) + (_%rest161499%_ _%tl161441161494%_)) + (_%K161439161489%_ + _%rest161499%_ + _%clause161497%_))) + (_%else161437161451%_))))))) + (let* ((_%g161381161391%_ + (lambda (_%g161382161388%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g161108161114%_)))) - (_%g161106161152%_ - (lambda (_%g161108161120%_) + _%g161382161388%_)))) + (_%g161380161426%_ + (lambda (_%g161382161394%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g161108161120%_)) - (let ((_%e161110161122%_ + (gx#stx-pair? _%g161382161394%_)) + (let ((_%e161384161396%_ (let () (declare (not safe)) - (gx#stx-e _%g161108161120%_)))) - (let ((_%hd161111161125%_ + (gx#stx-e _%g161382161394%_)))) + (let ((_%hd161385161399%_ (let () (declare (not safe)) - (##car _%e161110161122%_))) - (_%tl161112161127%_ + (##car _%e161384161396%_))) + (_%tl161386161401%_ (let () (declare (not safe)) - (##cdr _%e161110161122%_)))) - ((lambda (_%L161130%_) - (let* ((_%clauses161141%_ - (map _%clause-e161104%_ _%L161130%_)) - (_%return161143%_ - (_%return-type-e161105%_ - _%clauses161141%_)) - (__obj169429 + (##cdr _%e161384161396%_)))) + ((lambda (_%L161404%_) + (let* ((_%clauses161415%_ + (map _%clause-e161378%_ _%L161404%_)) + (_%return161417%_ + (_%return-type-e161379%_ + _%clauses161415%_)) + (__obj169703 (let () (declare (not safe)) (##structure @@ -11292,17 +11292,17 @@ '#f '#f '#f)))) - (let ((__tmp169616 - (if _%return161143%_ - (let ((_%return-type161145161147%_ + (let ((__tmp169890 + (if _%return161417%_ + (let ((_%return-type161419161421%_ (let () (declare (not safe)) (gxc#optimizer-lookup-class-name - _%return161143%_)))) - (if _%return-type161145161147%_ - (let* ((_%return-type161150%_ - _%return-type161145161147%_) - (__obj169428 + _%return161417%_)))) + (if _%return-type161419161421%_ + (let* ((_%return-type161424%_ + _%return-type161419161421%_) + (__obj169702 (let () (declare (not safe)) @@ -11316,216 +11316,216 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169428 - _%return-type161150%_ + __obj169702 + _%return-type161424%_ '1 '#f '#f)) - __obj169428) + __obj169702) '#f)) '#f))) (declare (not safe)) (gxc#!case-lambda:::init!__% '#f - __tmp169616 - __obj169429 - _%clauses161141%_)) - __obj169429)) - _%tl161112161127%_))) - (_%g161107161117%_ _%g161108161120%_))))) - (_%g161106161152%_ _%stx161102%_))))) + __tmp169890 + __obj169703 + _%clauses161415%_)) + __obj169703)) + _%tl161386161401%_))) + (_%g161381161391%_ _%g161382161394%_))))) + (_%g161380161426%_ _%stx161376%_))))) (define gxc#basic-expression-type-special (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-call% - (lambda (_%self160961%_ _%stx160962%_) - (letrec ((_%type-e160964%_ - (lambda (_%rator161094%_ _%rator-type161095%_ _%args161096%_) - (if (not _%rator-type161095%_) + (lambda (_%self161235%_ _%stx161236%_) + (letrec ((_%type-e161238%_ + (lambda (_%rator161368%_ _%rator-type161369%_ _%args161370%_) + (if (not _%rator-type161369%_) '#f (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type161095%_ + _%rator-type161369%_ 'gxc#!procedure::t)) - (let ((__method169430 + (let ((__method169704 (let () (declare (not safe)) (__method-ref - _%rator-type161095%_ + _%rator-type161369%_ 'return-type)))) - (if __method169430 + (if __method169704 (let () (declare (not safe)) - (__method169430 - _%rator-type161095%_ - _%self160961%_ - _%stx160962%_ - _%args161096%_)) + (__method169704 + _%rator-type161369%_ + _%self161235%_ + _%stx161236%_ + _%args161370%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%rator-type161095%_ + _%rator-type161369%_ 'return-type)) '#!void))) '#f))))) - (let* ((_%__stx167596167597%_ _%stx160962%_) - (_%g160967160995%_ + (let* ((_%__stx167870167871%_ _%stx161236%_) + (_%g161241161269%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167596167597%_))))) - (let ((_%__kont167598167599%_ - (lambda (_%L161068%_ _%L161069%_) - (let ((_%$e161085%_ - (let ((__tmp169617 + _%__stx167870167871%_))))) + (let ((_%__kont167872167873%_ + (lambda (_%L161342%_ _%L161343%_) + (let ((_%$e161359%_ + (let ((__tmp169891 (let () (declare (not safe)) - (gxc#identifier-symbol _%L161069%_)))) + (gxc#identifier-symbol _%L161343%_)))) (declare (not safe)) (__hash-get gxc#basic-expression-type-special - __tmp169617)))) - (if _%$e161085%_ - ((lambda (_%type-e161088%_) - (_%type-e161088%_ _%self160961%_ _%stx160962%_)) - _%$e161085%_) - (_%type-e160964%_ - _%L161069%_ - (let ((__tmp169618 + __tmp169891)))) + (if _%$e161359%_ + ((lambda (_%type-e161362%_) + (_%type-e161362%_ _%self161235%_ _%stx161236%_)) + _%$e161359%_) + (_%type-e161238%_ + _%L161343%_ + (let ((__tmp169892 (let () (declare (not safe)) - (gxc#identifier-symbol _%L161069%_)))) + (gxc#identifier-symbol _%L161343%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp169618)) - _%L161068%_))))) - (_%__kont167600167601%_ - (lambda (_%L161016%_ _%L161017%_) - (_%type-e160964%_ - _%L161017%_ - (gxc#apply-basic-expression-type _%L161017%_) - _%L161016%_)))) + (gxc#optimizer-resolve-type __tmp169892)) + _%L161342%_))))) + (_%__kont167874167875%_ + (lambda (_%L161290%_ _%L161291%_) + (_%type-e161238%_ + _%L161291%_ + (gxc#apply-basic-expression-type _%L161291%_) + _%L161290%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167596167597%_)) - (let ((_%e160971161036%_ + (gx#stx-pair? _%__stx167870167871%_)) + (let ((_%e161245161310%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167596167597%_)))) - (let ((_%tl160973161041%_ + (gx#stx-e _%__stx167870167871%_)))) + (let ((_%tl161247161315%_ (let () (declare (not safe)) - (##cdr _%e160971161036%_))) - (_%hd160972161039%_ + (##cdr _%e161245161310%_))) + (_%hd161246161313%_ (let () (declare (not safe)) - (##car _%e160971161036%_)))) + (##car _%e161245161310%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160973161041%_)) - (let ((_%e160974161044%_ + (gx#stx-pair? _%tl161247161315%_)) + (let ((_%e161248161318%_ (let () (declare (not safe)) - (gx#stx-e _%tl160973161041%_)))) - (let ((_%tl160976161049%_ + (gx#stx-e _%tl161247161315%_)))) + (let ((_%tl161250161323%_ (let () (declare (not safe)) - (##cdr _%e160974161044%_))) - (_%hd160975161047%_ + (##cdr _%e161248161318%_))) + (_%hd161249161321%_ (let () (declare (not safe)) - (##car _%e160974161044%_)))) + (##car _%e161248161318%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd160975161047%_)) - (let ((_%e160977161052%_ + (gx#stx-pair? _%hd161249161321%_)) + (let ((_%e161251161326%_ (let () (declare (not safe)) - (gx#stx-e _%hd160975161047%_)))) - (let ((_%tl160979161057%_ + (gx#stx-e _%hd161249161321%_)))) + (let ((_%tl161253161331%_ (let () (declare (not safe)) - (##cdr _%e160977161052%_))) - (_%hd160978161055%_ + (##cdr _%e161251161326%_))) + (_%hd161252161329%_ (let () (declare (not safe)) - (##car _%e160977161052%_)))) + (##car _%e161251161326%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd160978161055%_)) + _%hd161252161329%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd160978161055%_)) + _%hd161252161329%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160979161057%_)) - (let ((_%e160980161060%_ + _%tl161253161331%_)) + (let ((_%e161254161334%_ (let () (declare (not safe)) (gx#stx-e - _%tl160979161057%_)))) - (let ((_%tl160982161065%_ + _%tl161253161331%_)))) + (let ((_%tl161256161339%_ (let () (declare (not safe)) - (##cdr _%e160980161060%_))) - (_%hd160981161063%_ + (##cdr _%e161254161334%_))) + (_%hd161255161337%_ (let () (declare (not safe)) - (##car _%e160980161060%_)))) + (##car _%e161254161334%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160982161065%_)) - (_%__kont167598167599%_ - _%tl160976161049%_ - _%hd160981161063%_) - (_%__kont167600167601%_ - _%tl160976161049%_ - _%hd160975161047%_)))) - (_%__kont167600167601%_ - _%tl160976161049%_ - _%hd160975161047%_)) - (_%__kont167600167601%_ - _%tl160976161049%_ - _%hd160975161047%_)) - (_%__kont167600167601%_ - _%tl160976161049%_ - _%hd160975161047%_)))) - (_%__kont167600167601%_ - _%tl160976161049%_ - _%hd160975161047%_)))) - (let () (declare (not safe)) (_%g160967160995%_))))) - (let () (declare (not safe)) (_%g160967160995%_)))))))) + _%tl161256161339%_)) + (_%__kont167872167873%_ + _%tl161250161323%_ + _%hd161255161337%_) + (_%__kont167874167875%_ + _%tl161250161323%_ + _%hd161249161321%_)))) + (_%__kont167874167875%_ + _%tl161250161323%_ + _%hd161249161321%_)) + (_%__kont167874167875%_ + _%tl161250161323%_ + _%hd161249161321%_)) + (_%__kont167874167875%_ + _%tl161250161323%_ + _%hd161249161321%_)))) + (_%__kont167874167875%_ + _%tl161250161323%_ + _%hd161249161321%_)))) + (let () (declare (not safe)) (_%g161241161269%_))))) + (let () (declare (not safe)) (_%g161241161269%_)))))))) (define gxc#!procedure::return-type - (lambda (_%self152704160943%_ _%ctx160945%_ _%stx160946%_ _%args160947%_) - (let* ((_%self160949%_ _%self152704160943%_) - (_%self160951%_ _%self160949%_)) + (lambda (_%self152978161217%_ _%ctx161219%_ _%stx161220%_ _%args161221%_) + (let* ((_%self161223%_ _%self152978161217%_) + (_%self161225%_ _%self161223%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%self160951%_ '2 '#f '#f)) - (let ((__tmp169619 - (let ((__tmp169620 + (##unchecked-structure-ref _%self161225%_ '2 '#f '#f)) + (let ((__tmp169893 + (let ((__tmp169894 (let () (declare (not safe)) (##unchecked-structure-ref - _%self160951%_ + _%self161225%_ '2 '#f '#f)))) (declare (not safe)) - (##unchecked-structure-ref __tmp169620 '1 '#f '#f)))) + (##unchecked-structure-ref __tmp169894 '1 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _%stx160946%_ __tmp169619)) + (gxc#optimizer-resolve-class _%stx161220%_ __tmp169893)) '#f)))) (let () (declare (not safe)) @@ -11543,59 +11543,59 @@ gxc#!procedure::apply-return-type '#f)) (define gxc#!lambda::return-type - (lambda (_%self152705160675%_ _%ctx160677%_ _%stx160678%_ _%args160679%_) - (let* ((_%self160681%_ _%self152705160675%_) - (_%self160683%_ _%self160681%_)) + (lambda (_%self152979160949%_ _%ctx160951%_ _%stx160952%_ _%args160953%_) + (let* ((_%self160955%_ _%self152979160949%_) + (_%self160957%_ _%self160955%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%self160683%_ '4 '#f '#f)) - (let ((_%dispatch-type160692160694%_ - (let ((__tmp169621 + (##unchecked-structure-ref _%self160957%_ '4 '#f '#f)) + (let ((_%dispatch-type160966160968%_ + (let ((__tmp169895 (let () (declare (not safe)) (##unchecked-structure-ref - _%self160683%_ + _%self160957%_ '4 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp169621)))) - (if _%dispatch-type160692160694%_ - (let ((_%dispatch-type160697%_ - _%dispatch-type160692160694%_)) + (gxc#optimizer-lookup-type __tmp169895)))) + (if _%dispatch-type160966160968%_ + (let ((_%dispatch-type160971%_ + _%dispatch-type160966160968%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%dispatch-type160697%_ + _%dispatch-type160971%_ 'gxc#!procedure::t)) - (let ((__method169431 + (let ((__method169705 (let () (declare (not safe)) (__method-ref - _%dispatch-type160697%_ + _%dispatch-type160971%_ 'return-type)))) - (if __method169431 + (if __method169705 (let () (declare (not safe)) - (__method169431 - _%dispatch-type160697%_ - _%ctx160677%_ - _%stx160678%_ - _%args160679%_)) + (__method169705 + _%dispatch-type160971%_ + _%ctx160951%_ + _%stx160952%_ + _%args160953%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%dispatch-type160697%_ + _%dispatch-type160971%_ 'return-type)) '#!void))) '#f)) '#f)) (gxc#!procedure::return-type - _%self160683%_ - _%ctx160677%_ - _%stx160678%_ - _%args160679%_))))) + _%self160957%_ + _%ctx160951%_ + _%stx160952%_ + _%args160953%_))))) (let () (declare (not safe)) (__bind-method!__% @@ -11612,52 +11612,52 @@ gxc#!lambda::apply-return-type '#f)) (define gxc#!case-lambda::return-type - (lambda (_%self152706160403%_ _%ctx160405%_ _%stx160406%_ _%args160407%_) - (let* ((_%self160409%_ _%self152706160403%_) - (_%self160411%_ _%self160409%_) - (_%$e160425%_ - (let ((__tmp169623 - (lambda (_%g160420160422%_) + (lambda (_%self152980160677%_ _%ctx160679%_ _%stx160680%_ _%args160681%_) + (let* ((_%self160683%_ _%self152980160677%_) + (_%self160685%_ _%self160683%_) + (_%$e160699%_ + (let ((__tmp169897 + (lambda (_%g160694160696%_) (gxc#!lambda-arity-match? - _%g160420160422%_ - _%args160407%_))) - (__tmp169622 + _%g160694160696%_ + _%args160681%_))) + (__tmp169896 (let () (declare (not safe)) (##unchecked-structure-ref - _%self160411%_ + _%self160685%_ '3 '#f '#f)))) (declare (not safe)) - (__find __tmp169623 __tmp169622)))) - (if _%$e160425%_ - ((lambda (_%clause160428%_) - (let ((__method169432 + (__find __tmp169897 __tmp169896)))) + (if _%$e160699%_ + ((lambda (_%clause160702%_) + (let ((__method169706 (let () (declare (not safe)) - (__method-ref _%clause160428%_ 'return-type)))) - (if __method169432 + (__method-ref _%clause160702%_ 'return-type)))) + (if __method169706 (let () (declare (not safe)) - (__method169432 - _%clause160428%_ - _%ctx160405%_ - _%stx160406%_ - _%args160407%_)) + (__method169706 + _%clause160702%_ + _%ctx160679%_ + _%stx160680%_ + _%args160681%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%clause160428%_ + _%clause160702%_ 'return-type)) '#!void)))) - _%$e160425%_) + _%$e160699%_) (gxc#!procedure::return-type - _%self160411%_ - _%ctx160405%_ - _%stx160406%_ - _%args160407%_))))) + _%self160685%_ + _%ctx160679%_ + _%stx160680%_ + _%args160681%_))))) (let () (declare (not safe)) (__bind-method!__% @@ -11666,73 +11666,73 @@ gxc#!case-lambda::return-type '#f)) (define gxc#!case-lambda::apply-return-type - (lambda (_%self152707160249%_ _%ctx160251%_ _%stx160252%_ _%args160253%_) - (let* ((_%self160255%_ _%self152707160249%_) - (_%self160257%_ _%self160255%_) - (_%candidates160271%_ - (filter (lambda (_%g160266160268%_) + (lambda (_%self152981160523%_ _%ctx160525%_ _%stx160526%_ _%args160527%_) + (let* ((_%self160529%_ _%self152981160523%_) + (_%self160531%_ _%self160529%_) + (_%candidates160545%_ + (filter (lambda (_%g160540160542%_) (gxc#!lambda-arity-match-apply? - _%g160266160268%_ - _%args160253%_)) + _%g160540160542%_ + _%args160527%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%self160257%_ + _%self160531%_ '3 '#f '#f)))) - (_%candidate-types160275%_ - (let ((__tmp169624 - (lambda (_%candidate160273%_) - (let ((__method169433 + (_%candidate-types160549%_ + (let ((__tmp169898 + (lambda (_%candidate160547%_) + (let ((__method169707 (let () (declare (not safe)) (__method-ref - _%candidate160273%_ + _%candidate160547%_ 'apply-return-type)))) - (if __method169433 + (if __method169707 (let () (declare (not safe)) - (__method169433 - _%candidate160273%_ - _%ctx160251%_ - _%stx160252%_ - _%args160253%_)) + (__method169707 + _%candidate160547%_ + _%ctx160525%_ + _%stx160526%_ + _%args160527%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%candidate160273%_ + _%candidate160547%_ 'apply-return-type)) '#!void)))))) (declare (not safe)) - (##map __tmp169624 _%candidates160271%_)))) - (if (pair? _%candidate-types160275%_) - (let ((__tmp169627 - (lambda (_%candidate-type160278%_ _%ret160279%_) - (if _%ret160279%_ - (if _%candidate-type160278%_ + (##map __tmp169898 _%candidates160545%_)))) + (if (pair? _%candidate-types160549%_) + (let ((__tmp169901 + (lambda (_%candidate-type160552%_ _%ret160553%_) + (if _%ret160553%_ + (if _%candidate-type160552%_ (gxc#greatest-common-type - _%stx160252%_ - _%candidate-type160278%_ - _%ret160279%_) + _%stx160526%_ + _%candidate-type160552%_ + _%ret160553%_) '#f) '#f))) - (__tmp169626 + (__tmp169900 (let () (declare (not safe)) - (##car _%candidate-types160275%_))) - (__tmp169625 + (##car _%candidate-types160549%_))) + (__tmp169899 (let () (declare (not safe)) - (##cdr _%candidate-types160275%_)))) + (##cdr _%candidate-types160549%_)))) (declare (not safe)) - (__foldl1 __tmp169627 __tmp169626 __tmp169625)) + (__foldl1 __tmp169901 __tmp169900 __tmp169899)) (gxc#!procedure::return-type - _%self160257%_ - _%ctx160251%_ - _%stx160252%_ - _%args160253%_))))) + _%self160531%_ + _%ctx160525%_ + _%stx160526%_ + _%args160527%_))))) (let () (declare (not safe)) (__bind-method!__% @@ -11741,135 +11741,135 @@ gxc#!case-lambda::apply-return-type '#f)) (define gxc#!kw-lambda::return-type - (lambda (_%self152708160053%_ _%ctx160055%_ _%stx160056%_ _%args160057%_) - (let* ((_%self160059%_ _%self152708160053%_) - (_%self160061%_ _%self160059%_) - (_%g160070160081%_ - (let ((__tmp169628 + (lambda (_%self152982160327%_ _%ctx160329%_ _%stx160330%_ _%args160331%_) + (let* ((_%self160333%_ _%self152982160327%_) + (_%self160335%_ _%self160333%_) + (_%g160344160355%_ + (let ((__tmp169902 (let () (declare (not safe)) (##unchecked-structure-ref - _%self160061%_ + _%self160335%_ '4 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp169628))) - (_%E160073160085%_ + (gxc#optimizer-lookup-type __tmp169902))) + (_%E160347160359%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g160070160081%_ + _%g160344160355%_ '((!kw-lambda-primary _ _ keys main)) '((? !procedure? proc)))) '#!void))) - (let ((_%K160075160108%_ - (lambda (_%main160099%_ _%keys160100%_) - (let ((_%main-type160101160103%_ + (let ((_%K160349160382%_ + (lambda (_%main160373%_ _%keys160374%_) + (let ((_%main-type160375160377%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%main160099%_)))) - (if _%main-type160101160103%_ - (let* ((_%main-type160106%_ _%main-type160101160103%_) - (__method169434 + (gxc#optimizer-lookup-type _%main160373%_)))) + (if _%main-type160375160377%_ + (let* ((_%main-type160380%_ _%main-type160375160377%_) + (__method169708 (let () (declare (not safe)) (__method-ref - _%main-type160106%_ + _%main-type160380%_ 'return-type)))) - (if __method169434 - (let ((__tmp169629 + (if __method169708 + (let ((__tmp169903 (gxc#extract-keyword-args - _%args160057%_))) + _%args160331%_))) (declare (not safe)) - (__method169434 - _%main-type160106%_ - _%ctx160055%_ - _%stx160056%_ - __tmp169629)) + (__method169708 + _%main-type160380%_ + _%ctx160329%_ + _%stx160330%_ + __tmp169903)) (begin (let () (declare (not safe)) (error '"Missing method" - _%main-type160106%_ + _%main-type160380%_ 'return-type)) '#!void))) '#f)))) - (_%K160074160091%_ - (lambda (_%proc160089%_) - (let ((__method169435 + (_%K160348160365%_ + (lambda (_%proc160363%_) + (let ((__method169709 (let () (declare (not safe)) - (__method-ref _%proc160089%_ 'return-type)))) - (if __method169435 - (let ((__tmp169630 - (gxc#extract-keyword-args _%args160057%_))) + (__method-ref _%proc160363%_ 'return-type)))) + (if __method169709 + (let ((__tmp169904 + (gxc#extract-keyword-args _%args160331%_))) (declare (not safe)) - (__method169435 - _%proc160089%_ - _%proc160089%_ - _%ctx160055%_ - _%stx160056%_ - __tmp169630)) + (__method169709 + _%proc160363%_ + _%proc160363%_ + _%ctx160329%_ + _%stx160330%_ + __tmp169904)) (begin (let () (declare (not safe)) (error '"Missing method" - _%proc160089%_ + _%proc160363%_ 'return-type)) '#!void)))))) - (let ((_%try-match160072160096%_ + (let ((_%try-match160346160370%_ (lambda () (if (let () (declare (not safe)) (##structure-instance-of? - _%g160070160081%_ + _%g160344160355%_ 'gxc#!procedure::t)) - (let ((_%proc160094%_ _%g160070160081%_)) - (_%K160074160091%_ _%proc160094%_)) - (_%E160073160085%_))))) + (let ((_%proc160368%_ _%g160344160355%_)) + (_%K160348160365%_ _%proc160368%_)) + (_%E160347160359%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g160070160081%_ + _%g160344160355%_ 'gxc#!kw-lambda-primary::t)) - (let* ((_%e160076160111%_ + (let* ((_%e160350160385%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g160070160081%_ + _%g160344160355%_ '1 '#f '#f))) - (_%e160077160114%_ + (_%e160351160388%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g160070160081%_ + _%g160344160355%_ '2 '#f '#f))) - (_%e160078160117%_ + (_%e160352160391%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g160070160081%_ + _%g160344160355%_ '3 '#f '#f))) - (_%e160079160122%_ + (_%e160353160396%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g160070160081%_ + _%g160344160355%_ '4 '#f '#f)))) - (let ((_%keys160120%_ _%e160078160117%_) - (_%main160125%_ _%e160079160122%_)) - (_%K160075160108%_ _%main160125%_ _%keys160120%_))) - (_%try-match160072160096%_))))))) + (let ((_%keys160394%_ _%e160352160391%_) + (_%main160399%_ _%e160353160396%_)) + (_%K160349160382%_ _%main160399%_ _%keys160394%_))) + (_%try-match160346160370%_))))))) (let () (declare (not safe)) (__bind-method!__% @@ -11878,135 +11878,135 @@ gxc#!kw-lambda::return-type '#f)) (define gxc#!kw-lambda::apply-return-type - (lambda (_%self152709159857%_ _%ctx159859%_ _%stx159860%_ _%args159861%_) - (let* ((_%self159863%_ _%self152709159857%_) - (_%self159865%_ _%self159863%_) - (_%g159874159885%_ - (let ((__tmp169631 + (lambda (_%self152983160131%_ _%ctx160133%_ _%stx160134%_ _%args160135%_) + (let* ((_%self160137%_ _%self152983160131%_) + (_%self160139%_ _%self160137%_) + (_%g160148160159%_ + (let ((__tmp169905 (let () (declare (not safe)) (##unchecked-structure-ref - _%self159865%_ + _%self160139%_ '4 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp169631))) - (_%E159877159889%_ + (gxc#optimizer-lookup-type __tmp169905))) + (_%E160151160163%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g159874159885%_ + _%g160148160159%_ '((!kw-lambda-primary _ _ keys main)) '((? !procedure? proc)))) '#!void))) - (let ((_%K159879159912%_ - (lambda (_%main159903%_ _%keys159904%_) - (let ((_%main-type159905159907%_ + (let ((_%K160153160186%_ + (lambda (_%main160177%_ _%keys160178%_) + (let ((_%main-type160179160181%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%main159903%_)))) - (if _%main-type159905159907%_ - (let* ((_%main-type159910%_ _%main-type159905159907%_) - (__method169436 + (gxc#optimizer-lookup-type _%main160177%_)))) + (if _%main-type160179160181%_ + (let* ((_%main-type160184%_ _%main-type160179160181%_) + (__method169710 (let () (declare (not safe)) (__method-ref - _%main-type159910%_ + _%main-type160184%_ 'apply-return-type)))) - (if __method169436 - (let ((__tmp169632 + (if __method169710 + (let ((__tmp169906 (gxc#extract-keyword-args - _%args159861%_))) + _%args160135%_))) (declare (not safe)) - (__method169436 - _%main-type159910%_ - _%ctx159859%_ - _%stx159860%_ - __tmp169632)) + (__method169710 + _%main-type160184%_ + _%ctx160133%_ + _%stx160134%_ + __tmp169906)) (begin (let () (declare (not safe)) (error '"Missing method" - _%main-type159910%_ + _%main-type160184%_ 'apply-return-type)) '#!void))) '#f)))) - (_%K159878159895%_ - (lambda (_%proc159893%_) - (let ((__method169437 + (_%K160152160169%_ + (lambda (_%proc160167%_) + (let ((__method169711 (let () (declare (not safe)) - (__method-ref _%proc159893%_ 'apply-return-type)))) - (if __method169437 - (let ((__tmp169633 - (gxc#extract-keyword-args _%args159861%_))) + (__method-ref _%proc160167%_ 'apply-return-type)))) + (if __method169711 + (let ((__tmp169907 + (gxc#extract-keyword-args _%args160135%_))) (declare (not safe)) - (__method169437 - _%proc159893%_ - _%proc159893%_ - _%ctx159859%_ - _%stx159860%_ - __tmp169633)) + (__method169711 + _%proc160167%_ + _%proc160167%_ + _%ctx160133%_ + _%stx160134%_ + __tmp169907)) (begin (let () (declare (not safe)) (error '"Missing method" - _%proc159893%_ + _%proc160167%_ 'apply-return-type)) '#!void)))))) - (let ((_%try-match159876159900%_ + (let ((_%try-match160150160174%_ (lambda () (if (let () (declare (not safe)) (##structure-instance-of? - _%g159874159885%_ + _%g160148160159%_ 'gxc#!procedure::t)) - (let ((_%proc159898%_ _%g159874159885%_)) - (_%K159878159895%_ _%proc159898%_)) - (_%E159877159889%_))))) + (let ((_%proc160172%_ _%g160148160159%_)) + (_%K160152160169%_ _%proc160172%_)) + (_%E160151160163%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g159874159885%_ + _%g160148160159%_ 'gxc#!kw-lambda-primary::t)) - (let* ((_%e159880159915%_ + (let* ((_%e160154160189%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g159874159885%_ + _%g160148160159%_ '1 '#f '#f))) - (_%e159881159918%_ + (_%e160155160192%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g159874159885%_ + _%g160148160159%_ '2 '#f '#f))) - (_%e159882159921%_ + (_%e160156160195%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g159874159885%_ + _%g160148160159%_ '3 '#f '#f))) - (_%e159883159926%_ + (_%e160157160200%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g159874159885%_ + _%g160148160159%_ '4 '#f '#f)))) - (let ((_%keys159924%_ _%e159882159921%_) - (_%main159929%_ _%e159883159926%_)) - (_%K159879159912%_ _%main159929%_ _%keys159924%_))) - (_%try-match159876159900%_))))))) + (let ((_%keys160198%_ _%e160156160195%_) + (_%main160203%_ _%e160157160200%_)) + (_%K160153160186%_ _%main160203%_ _%keys160198%_))) + (_%try-match160150160174%_))))))) (let () (declare (not safe)) (__bind-method!__% @@ -12015,796 +12015,796 @@ gxc#!kw-lambda::apply-return-type '#f)) (define gxc#extract-keyword-args - (lambda (_%args159606%_) - (let _%loop159608%_ ((_%rest159610%_ _%args159606%_) - (_%result159611%_ '())) - (let* ((_%__stx167676167677%_ _%rest159610%_) - (_%g159615159641%_ + (lambda (_%args159880%_) + (let _%loop159882%_ ((_%rest159884%_ _%args159880%_) + (_%result159885%_ '())) + (let* ((_%__stx167950167951%_ _%rest159884%_) + (_%g159889159915%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167676167677%_))))) - (let ((_%__kont167678167679%_ - (lambda (_%L159713%_ _%L159714%_ _%L159715%_) - (_%loop159608%_ - _%L159713%_ - (cons _%L159714%_ _%result159611%_)))) - (_%__kont167680167681%_ - (lambda (_%L159661%_ _%L159662%_) - (_%loop159608%_ - _%L159661%_ - (cons _%L159662%_ _%result159611%_)))) - (_%__kont167682167683%_ - (lambda () (reverse! _%result159611%_)))) - (let ((_%__match167713167714%_ - (lambda (_%e159620159681%_ - _%hd159621159684%_ - _%tl159622159686%_ - _%e159623159689%_ - _%hd159624159692%_ - _%tl159625159694%_ - _%e159626159697%_ - _%hd159627159700%_ - _%tl159628159702%_ - _%e159629159705%_ - _%hd159630159708%_ - _%tl159631159710%_) - (let ((_%L159713%_ _%tl159631159710%_) - (_%L159714%_ _%hd159630159708%_) - (_%L159715%_ _%hd159627159700%_)) + _%__stx167950167951%_))))) + (let ((_%__kont167952167953%_ + (lambda (_%L159987%_ _%L159988%_ _%L159989%_) + (_%loop159882%_ + _%L159987%_ + (cons _%L159988%_ _%result159885%_)))) + (_%__kont167954167955%_ + (lambda (_%L159935%_ _%L159936%_) + (_%loop159882%_ + _%L159935%_ + (cons _%L159936%_ _%result159885%_)))) + (_%__kont167956167957%_ + (lambda () (reverse! _%result159885%_)))) + (let ((_%__match167987167988%_ + (lambda (_%e159894159955%_ + _%hd159895159958%_ + _%tl159896159960%_ + _%e159897159963%_ + _%hd159898159966%_ + _%tl159899159968%_ + _%e159900159971%_ + _%hd159901159974%_ + _%tl159902159976%_ + _%e159903159979%_ + _%hd159904159982%_ + _%tl159905159984%_) + (let ((_%L159987%_ _%tl159905159984%_) + (_%L159988%_ _%hd159904159982%_) + (_%L159989%_ _%hd159901159974%_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _%L159715%_)) - (_%__kont167678167679%_ - _%L159713%_ - _%L159714%_ - _%L159715%_) - (_%__kont167680167681%_ - _%tl159622159686%_ - _%hd159621159684%_)))))) + (gx#stx-keyword? _%L159989%_)) + (_%__kont167952167953%_ + _%L159987%_ + _%L159988%_ + _%L159989%_) + (_%__kont167954167955%_ + _%tl159896159960%_ + _%hd159895159958%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167676167677%_)) - (let ((_%e159620159681%_ + (gx#stx-pair? _%__stx167950167951%_)) + (let ((_%e159894159955%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167676167677%_)))) - (let ((_%tl159622159686%_ + (gx#stx-e _%__stx167950167951%_)))) + (let ((_%tl159896159960%_ (let () (declare (not safe)) - (##cdr _%e159620159681%_))) - (_%hd159621159684%_ + (##cdr _%e159894159955%_))) + (_%hd159895159958%_ (let () (declare (not safe)) - (##car _%e159620159681%_)))) + (##car _%e159894159955%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159621159684%_)) - (let ((_%e159623159689%_ + (gx#stx-pair? _%hd159895159958%_)) + (let ((_%e159897159963%_ (let () (declare (not safe)) - (gx#stx-e _%hd159621159684%_)))) - (let ((_%tl159625159694%_ + (gx#stx-e _%hd159895159958%_)))) + (let ((_%tl159899159968%_ (let () (declare (not safe)) - (##cdr _%e159623159689%_))) - (_%hd159624159692%_ + (##cdr _%e159897159963%_))) + (_%hd159898159966%_ (let () (declare (not safe)) - (##car _%e159623159689%_)))) + (##car _%e159897159963%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159624159692%_)) + (gx#identifier? _%hd159898159966%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd159624159692%_)) + _%hd159898159966%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159625159694%_)) - (let ((_%e159626159697%_ + _%tl159899159968%_)) + (let ((_%e159900159971%_ (let () (declare (not safe)) (gx#stx-e - _%tl159625159694%_)))) - (let ((_%tl159628159702%_ + _%tl159899159968%_)))) + (let ((_%tl159902159976%_ (let () (declare (not safe)) - (##cdr _%e159626159697%_))) - (_%hd159627159700%_ + (##cdr _%e159900159971%_))) + (_%hd159901159974%_ (let () (declare (not safe)) - (##car _%e159626159697%_)))) + (##car _%e159900159971%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159628159702%_)) + _%tl159902159976%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159622159686%_)) - (let ((_%e159629159705%_ + _%tl159896159960%_)) + (let ((_%e159903159979%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl159622159686%_)))) - (let ((_%tl159631159710%_ + (gx#stx-e _%tl159896159960%_)))) + (let ((_%tl159905159984%_ (let () (declare (not safe)) - (##cdr _%e159629159705%_))) - (_%hd159630159708%_ + (##cdr _%e159903159979%_))) + (_%hd159904159982%_ (let () (declare (not safe)) - (##car _%e159629159705%_)))) - (_%__match167713167714%_ - _%e159620159681%_ - _%hd159621159684%_ - _%tl159622159686%_ - _%e159623159689%_ - _%hd159624159692%_ - _%tl159625159694%_ - _%e159626159697%_ - _%hd159627159700%_ - _%tl159628159702%_ - _%e159629159705%_ - _%hd159630159708%_ - _%tl159631159710%_))) - (_%__kont167680167681%_ _%tl159622159686%_ _%hd159621159684%_)) + (##car _%e159903159979%_)))) + (_%__match167987167988%_ + _%e159894159955%_ + _%hd159895159958%_ + _%tl159896159960%_ + _%e159897159963%_ + _%hd159898159966%_ + _%tl159899159968%_ + _%e159900159971%_ + _%hd159901159974%_ + _%tl159902159976%_ + _%e159903159979%_ + _%hd159904159982%_ + _%tl159905159984%_))) + (_%__kont167954167955%_ _%tl159896159960%_ _%hd159895159958%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont167680167681%_ - _%tl159622159686%_ - _%hd159621159684%_)))) - (_%__kont167680167681%_ - _%tl159622159686%_ - _%hd159621159684%_)) - (_%__kont167680167681%_ - _%tl159622159686%_ - _%hd159621159684%_)) - (_%__kont167680167681%_ - _%tl159622159686%_ - _%hd159621159684%_)))) - (_%__kont167680167681%_ - _%tl159622159686%_ - _%hd159621159684%_)))) - (_%__kont167682167683%_)))))))) + (_%__kont167954167955%_ + _%tl159896159960%_ + _%hd159895159958%_)))) + (_%__kont167954167955%_ + _%tl159896159960%_ + _%hd159895159958%_)) + (_%__kont167954167955%_ + _%tl159896159960%_ + _%hd159895159958%_)) + (_%__kont167954167955%_ + _%tl159896159960%_ + _%hd159895159958%_)))) + (_%__kont167954167955%_ + _%tl159896159960%_ + _%hd159895159958%_)))) + (_%__kont167956167957%_)))))))) (define gxc#!lambda-arity-match? - (lambda (_%self159538%_ _%args159539%_) - (let* ((_%self159540159548%_ _%self159538%_) - (_%E159542159552%_ + (lambda (_%self159812%_ _%args159813%_) + (let* ((_%self159814159822%_ _%self159812%_) + (_%E159816159826%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self159540159548%_ + _%self159814159822%_ '((!lambda _ _ arity)))) '#!void)) - (_%K159543159592%_ - (lambda (_%arity159555%_) - (let* ((_%arity159556159565%_ _%arity159555%_) - (_%E159559159569%_ + (_%K159817159866%_ + (lambda (_%arity159829%_) + (let* ((_%arity159830159839%_ _%arity159829%_) + (_%E159833159843%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%arity159556159565%_ + _%arity159830159839%_ '((? fixnum?)) '([arity]))) '#!void))) - (let ((_%K159563159589%_ + (let ((_%K159837159863%_ (lambda () - (fx= (length _%args159539%_) _%arity159555%_))) - (_%K159560159575%_ - (lambda (_%arity159573%_) - (fx>= (length _%args159539%_) _%arity159573%_)))) - (let* ((_%__match167732167733%_ - (lambda (_%hd159561159578%_ _%tl159562159580%_) - (let ((_%arity159583%_ _%hd159561159578%_)) - (_%E159559159569%_)))) - (_%try-match159558159585%_ + (fx= (length _%args159813%_) _%arity159829%_))) + (_%K159834159849%_ + (lambda (_%arity159847%_) + (fx>= (length _%args159813%_) _%arity159847%_)))) + (let* ((_%__match168006168007%_ + (lambda (_%hd159835159852%_ _%tl159836159854%_) + (let ((_%arity159857%_ _%hd159835159852%_)) + (_%E159833159843%_)))) + (_%try-match159832159859%_ (lambda () (if (let () (declare (not safe)) - (##pair? _%arity159556159565%_)) - (let ((_%tl159562159580%_ + (##pair? _%arity159830159839%_)) + (let ((_%tl159836159854%_ (let () (declare (not safe)) - (##cdr _%arity159556159565%_))) - (_%hd159561159578%_ + (##cdr _%arity159830159839%_))) + (_%hd159835159852%_ (let () (declare (not safe)) - (##car _%arity159556159565%_)))) + (##car _%arity159830159839%_)))) (if (let () (declare (not safe)) - (##null? _%tl159562159580%_)) - (let ((_%arity159583%_ - _%hd159561159578%_)) - (_%K159560159575%_ - _%arity159583%_)) - (_%__match167732167733%_ - _%hd159561159578%_ - _%tl159562159580%_))) - (_%E159559159569%_))))) - (if (fixnum? _%arity159556159565%_) - (_%K159563159589%_) - (_%try-match159558159585%_)))))))) + (##null? _%tl159836159854%_)) + (let ((_%arity159857%_ + _%hd159835159852%_)) + (_%K159834159849%_ + _%arity159857%_)) + (_%__match168006168007%_ + _%hd159835159852%_ + _%tl159836159854%_))) + (_%E159833159843%_))))) + (if (fixnum? _%arity159830159839%_) + (_%K159837159863%_) + (_%try-match159832159859%_)))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%self159540159548%_ + _%self159814159822%_ 'gxc#!lambda::t)) - (let* ((_%e159544159595%_ + (let* ((_%e159818159869%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self159540159548%_ + _%self159814159822%_ '1 '#f '#f))) - (_%e159545159598%_ + (_%e159819159872%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self159540159548%_ + _%self159814159822%_ '2 '#f '#f))) - (_%e159546159601%_ + (_%e159820159875%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self159540159548%_ + _%self159814159822%_ '3 '#f '#f))) - (_%arity159604%_ _%e159546159601%_)) - (_%K159543159592%_ _%arity159604%_)) - (_%E159542159552%_))))) + (_%arity159878%_ _%e159820159875%_)) + (_%K159817159866%_ _%arity159878%_)) + (_%E159816159826%_))))) (define gxc#!lambda-arity-match-apply? - (lambda (_%self159470%_ _%args159471%_) - (let* ((_%self159472159480%_ _%self159470%_) - (_%E159474159484%_ + (lambda (_%self159744%_ _%args159745%_) + (let* ((_%self159746159754%_ _%self159744%_) + (_%E159748159758%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self159472159480%_ + _%self159746159754%_ '((!lambda _ _ arity)))) '#!void)) - (_%K159475159524%_ - (lambda (_%arity159487%_) - (let* ((_%arity159488159497%_ _%arity159487%_) - (_%E159491159501%_ + (_%K159749159798%_ + (lambda (_%arity159761%_) + (let* ((_%arity159762159771%_ _%arity159761%_) + (_%E159765159775%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%arity159488159497%_ + _%arity159762159771%_ '((? fixnum?)) '([arity]))) '#!void))) - (let ((_%K159495159521%_ + (let ((_%K159769159795%_ (lambda () - (let ((__tmp169634 (length _%args159471%_))) + (let ((__tmp169908 (length _%args159745%_))) (declare (not safe)) - (##fx>= _%arity159487%_ __tmp169634)))) - (_%K159492159507%_ (lambda (_%arity159505%_) '#t))) - (let* ((_%__match167745167746%_ - (lambda (_%hd159493159510%_ _%tl159494159512%_) - (let ((_%arity159515%_ _%hd159493159510%_)) - (_%E159491159501%_)))) - (_%try-match159490159517%_ + (##fx>= _%arity159761%_ __tmp169908)))) + (_%K159766159781%_ (lambda (_%arity159779%_) '#t))) + (let* ((_%__match168019168020%_ + (lambda (_%hd159767159784%_ _%tl159768159786%_) + (let ((_%arity159789%_ _%hd159767159784%_)) + (_%E159765159775%_)))) + (_%try-match159764159791%_ (lambda () (if (let () (declare (not safe)) - (##pair? _%arity159488159497%_)) - (let ((_%tl159494159512%_ + (##pair? _%arity159762159771%_)) + (let ((_%tl159768159786%_ (let () (declare (not safe)) - (##cdr _%arity159488159497%_))) - (_%hd159493159510%_ + (##cdr _%arity159762159771%_))) + (_%hd159767159784%_ (let () (declare (not safe)) - (##car _%arity159488159497%_)))) + (##car _%arity159762159771%_)))) (if (let () (declare (not safe)) - (##null? _%tl159494159512%_)) - (let ((_%arity159515%_ - _%hd159493159510%_)) - (_%K159492159507%_ - _%arity159515%_)) - (_%__match167745167746%_ - _%hd159493159510%_ - _%tl159494159512%_))) - (_%E159491159501%_))))) - (if (fixnum? _%arity159488159497%_) - (_%K159495159521%_) - (_%try-match159490159517%_)))))))) + (##null? _%tl159768159786%_)) + (let ((_%arity159789%_ + _%hd159767159784%_)) + (_%K159766159781%_ + _%arity159789%_)) + (_%__match168019168020%_ + _%hd159767159784%_ + _%tl159768159786%_))) + (_%E159765159775%_))))) + (if (fixnum? _%arity159762159771%_) + (_%K159769159795%_) + (_%try-match159764159791%_)))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%self159472159480%_ + _%self159746159754%_ 'gxc#!lambda::t)) - (let* ((_%e159476159527%_ + (let* ((_%e159750159801%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self159472159480%_ + _%self159746159754%_ '1 '#f '#f))) - (_%e159477159530%_ + (_%e159751159804%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self159472159480%_ + _%self159746159754%_ '2 '#f '#f))) - (_%e159478159533%_ + (_%e159752159807%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self159472159480%_ + _%self159746159754%_ '3 '#f '#f))) - (_%arity159536%_ _%e159478159533%_)) - (_%K159475159524%_ _%arity159536%_)) - (_%E159474159484%_))))) + (_%arity159810%_ _%e159752159807%_)) + (_%K159749159798%_ _%arity159810%_)) + (_%E159748159758%_))))) (define gxc#basic-expression-type-special-cast - (lambda (_%ctx159357%_ _%stx159358%_) - (let* ((_%g159360159386%_ - (lambda (_%g159361159383%_) + (lambda (_%ctx159631%_ _%stx159632%_) + (let* ((_%g159634159660%_ + (lambda (_%g159635159657%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g159361159383%_)))) - (_%g159359159467%_ - (lambda (_%g159361159389%_) + _%g159635159657%_)))) + (_%g159633159741%_ + (lambda (_%g159635159663%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g159361159389%_)) - (let ((_%e159364159391%_ + (gx#stx-pair? _%g159635159663%_)) + (let ((_%e159638159665%_ (let () (declare (not safe)) - (gx#stx-e _%g159361159389%_)))) - (let ((_%hd159365159394%_ + (gx#stx-e _%g159635159663%_)))) + (let ((_%hd159639159668%_ (let () (declare (not safe)) - (##car _%e159364159391%_))) - (_%tl159366159396%_ + (##car _%e159638159665%_))) + (_%tl159640159670%_ (let () (declare (not safe)) - (##cdr _%e159364159391%_)))) + (##cdr _%e159638159665%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159366159396%_)) - (let ((_%e159367159399%_ + (gx#stx-pair? _%tl159640159670%_)) + (let ((_%e159641159673%_ (let () (declare (not safe)) - (gx#stx-e _%tl159366159396%_)))) - (let ((_%hd159368159402%_ + (gx#stx-e _%tl159640159670%_)))) + (let ((_%hd159642159676%_ (let () (declare (not safe)) - (##car _%e159367159399%_))) - (_%tl159369159404%_ + (##car _%e159641159673%_))) + (_%tl159643159678%_ (let () (declare (not safe)) - (##cdr _%e159367159399%_)))) + (##cdr _%e159641159673%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159369159404%_)) - (let ((_%e159370159407%_ + (gx#stx-pair? _%tl159643159678%_)) + (let ((_%e159644159681%_ (let () (declare (not safe)) - (gx#stx-e _%tl159369159404%_)))) - (let ((_%hd159371159410%_ + (gx#stx-e _%tl159643159678%_)))) + (let ((_%hd159645159684%_ (let () (declare (not safe)) - (##car _%e159370159407%_))) - (_%tl159372159412%_ + (##car _%e159644159681%_))) + (_%tl159646159686%_ (let () (declare (not safe)) - (##cdr _%e159370159407%_)))) + (##cdr _%e159644159681%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159371159410%_)) - (let ((_%e159373159415%_ + _%hd159645159684%_)) + (let ((_%e159647159689%_ (let () (declare (not safe)) (gx#stx-e - _%hd159371159410%_)))) - (let ((_%hd159374159418%_ + _%hd159645159684%_)))) + (let ((_%hd159648159692%_ (let () (declare (not safe)) - (##car _%e159373159415%_))) - (_%tl159375159420%_ + (##car _%e159647159689%_))) + (_%tl159649159694%_ (let () (declare (not safe)) - (##cdr _%e159373159415%_)))) + (##cdr _%e159647159689%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159374159418%_)) + _%hd159648159692%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159374159418%_)) + _%hd159648159692%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl159375159420%_)) - (let ((_%e159376159423%_ + (gx#stx-pair? _%tl159649159694%_)) + (let ((_%e159650159697%_ (let () (declare (not safe)) - (gx#stx-e _%tl159375159420%_)))) - (let ((_%hd159377159426%_ + (gx#stx-e _%tl159649159694%_)))) + (let ((_%hd159651159700%_ (let () (declare (not safe)) - (##car _%e159376159423%_))) - (_%tl159378159428%_ + (##car _%e159650159697%_))) + (_%tl159652159702%_ (let () (declare (not safe)) - (##cdr _%e159376159423%_)))) + (##cdr _%e159650159697%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159378159428%_)) + (gx#stx-null? _%tl159652159702%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159372159412%_)) - (let ((_%e159379159431%_ + (gx#stx-pair? _%tl159646159686%_)) + (let ((_%e159653159705%_ (let () (declare (not safe)) - (gx#stx-e _%tl159372159412%_)))) - (let ((_%hd159380159434%_ + (gx#stx-e _%tl159646159686%_)))) + (let ((_%hd159654159708%_ (let () (declare (not safe)) - (##car _%e159379159431%_))) - (_%tl159381159436%_ + (##car _%e159653159705%_))) + (_%tl159655159710%_ (let () (declare (not safe)) - (##cdr _%e159379159431%_)))) + (##cdr _%e159653159705%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159381159436%_)) - ((lambda (_%L159439%_ _%L159440%_) - (let ((_%interface-type159460159462%_ - (let ((__tmp169635 + (gx#stx-null? _%tl159655159710%_)) + ((lambda (_%L159713%_ _%L159714%_) + (let ((_%interface-type159734159736%_ + (let ((__tmp169909 (let () (declare (not safe)) (gxc#identifier-symbol - _%L159440%_)))) + _%L159714%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp169635)))) - (if _%interface-type159460159462%_ - (let ((_%interface-type159465%_ - _%interface-type159460159462%_)) + __tmp169909)))) + (if _%interface-type159734159736%_ + (let ((_%interface-type159739%_ + _%interface-type159734159736%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%interface-type159465%_ + _%interface-type159739%_ 'gxc#!interface::t)) - (let ((__tmp169636 + (let ((__tmp169910 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%interface-type159465%_ + _%interface-type159739%_ '1 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _%stx159358%_ __tmp169636)) + (gxc#optimizer-resolve-class _%stx159632%_ __tmp169910)) (let () (declare (not safe)) (gxc#raise-compile-error '"cast to non interface" - _%stx159358%_ - _%L159440%_ - _%interface-type159465%_)))) + _%stx159632%_ + _%L159714%_ + _%interface-type159739%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#f))) - _%hd159380159434%_ - _%hd159377159426%_) - (_%g159360159386%_ - _%g159361159389%_)))) - (_%g159360159386%_ _%g159361159389%_)) - (_%g159360159386%_ _%g159361159389%_)))) - (_%g159360159386%_ _%g159361159389%_)) - (_%g159360159386%_ _%g159361159389%_)) - (_%g159360159386%_ _%g159361159389%_)))) + _%hd159654159708%_ + _%hd159651159700%_) + (_%g159634159660%_ + _%g159635159663%_)))) + (_%g159634159660%_ _%g159635159663%_)) + (_%g159634159660%_ _%g159635159663%_)))) + (_%g159634159660%_ _%g159635159663%_)) + (_%g159634159660%_ _%g159635159663%_)) + (_%g159634159660%_ _%g159635159663%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g159360159386%_ - _%g159361159389%_)))) - (_%g159360159386%_ _%g159361159389%_)))) - (_%g159360159386%_ _%g159361159389%_)))) - (_%g159360159386%_ _%g159361159389%_))))) - (_%g159359159467%_ _%stx159358%_)))) + (_%g159634159660%_ + _%g159635159663%_)))) + (_%g159634159660%_ _%g159635159663%_)))) + (_%g159634159660%_ _%g159635159663%_)))) + (_%g159634159660%_ _%g159635159663%_))))) + (_%g159633159741%_ _%stx159632%_)))) (define gxc#basic-expression-type-special-apply - (lambda (_%ctx159147%_ _%stx159148%_) - (letrec ((_%type-e159150%_ - (lambda (_%rator159353%_ _%rator-type159354%_ _%args159355%_) + (lambda (_%ctx159421%_ _%stx159422%_) + (letrec ((_%type-e159424%_ + (lambda (_%rator159627%_ _%rator-type159628%_ _%args159629%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type159354%_ + _%rator-type159628%_ 'gxc#!procedure::t)) - (let ((__method169438 + (let ((__method169712 (let () (declare (not safe)) (__method-ref - _%rator-type159354%_ + _%rator-type159628%_ 'apply-return-type)))) - (if __method169438 + (if __method169712 (let () (declare (not safe)) - (__method169438 - _%rator-type159354%_ - _%ctx159147%_ - _%stx159148%_ - _%args159355%_)) + (__method169712 + _%rator-type159628%_ + _%ctx159421%_ + _%stx159422%_ + _%args159629%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%rator-type159354%_ + _%rator-type159628%_ 'apply-return-type)) '#!void))) '#f)))) - (let* ((_%__stx167748167749%_ _%stx159148%_) - (_%g159154159196%_ + (let* ((_%__stx168022168023%_ _%stx159422%_) + (_%g159428159470%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167748167749%_))))) - (let ((_%__kont167750167751%_ - (lambda (_%L159317%_ _%L159318%_ _%L159319%_ _%L159320%_) - (let ((_%rator-type159343159345%_ - (gxc#apply-basic-expression-type _%L159318%_))) - (if _%rator-type159343159345%_ - (let ((_%rator-type159348%_ - _%rator-type159343159345%_)) - (_%type-e159150%_ - _%L159318%_ - _%rator-type159348%_ - (cons _%L159319%_ _%L159317%_))) + _%__stx168022168023%_))))) + (let ((_%__kont168024168025%_ + (lambda (_%L159591%_ _%L159592%_ _%L159593%_ _%L159594%_) + (let ((_%rator-type159617159619%_ + (gxc#apply-basic-expression-type _%L159592%_))) + (if _%rator-type159617159619%_ + (let ((_%rator-type159622%_ + _%rator-type159617159619%_)) + (_%type-e159424%_ + _%L159592%_ + _%rator-type159622%_ + (cons _%L159593%_ _%L159591%_))) '#f)))) - (_%__kont167752167753%_ - (lambda (_%L159232%_ _%L159233%_) - (let ((_%rator-type159249159251%_ - (gxc#apply-basic-expression-type _%L159233%_))) - (if _%rator-type159249159251%_ - (let ((_%rator-type159254%_ - _%rator-type159249159251%_)) - (_%type-e159150%_ - _%L159233%_ - _%rator-type159254%_ - _%L159232%_)) + (_%__kont168026168027%_ + (lambda (_%L159506%_ _%L159507%_) + (let ((_%rator-type159523159525%_ + (gxc#apply-basic-expression-type _%L159507%_))) + (if _%rator-type159523159525%_ + (let ((_%rator-type159528%_ + _%rator-type159523159525%_)) + (_%type-e159424%_ + _%L159507%_ + _%rator-type159528%_ + _%L159506%_)) '#f)))) - (_%__kont167754167755%_ (lambda () '#f))) - (let ((_%__match167803167804%_ - (lambda (_%e159160159261%_ - _%hd159161159264%_ - _%tl159162159266%_ - _%e159163159269%_ - _%hd159164159272%_ - _%tl159165159274%_ - _%e159166159277%_ - _%hd159167159280%_ - _%tl159168159282%_ - _%e159169159285%_ - _%hd159170159288%_ - _%tl159171159290%_ - _%e159172159293%_ - _%hd159173159296%_ - _%tl159174159298%_ - _%e159175159301%_ - _%hd159176159304%_ - _%tl159177159306%_ - _%e159178159309%_ - _%hd159179159312%_ - _%tl159180159314%_) - (let ((_%L159317%_ _%tl159180159314%_) - (_%L159318%_ _%hd159179159312%_) - (_%L159319%_ _%hd159176159304%_) - (_%L159320%_ _%hd159173159296%_)) + (_%__kont168028168029%_ (lambda () '#f))) + (let ((_%__match168077168078%_ + (lambda (_%e159434159535%_ + _%hd159435159538%_ + _%tl159436159540%_ + _%e159437159543%_ + _%hd159438159546%_ + _%tl159439159548%_ + _%e159440159551%_ + _%hd159441159554%_ + _%tl159442159556%_ + _%e159443159559%_ + _%hd159444159562%_ + _%tl159445159564%_ + _%e159446159567%_ + _%hd159447159570%_ + _%tl159448159572%_ + _%e159449159575%_ + _%hd159450159578%_ + _%tl159451159580%_ + _%e159452159583%_ + _%hd159453159586%_ + _%tl159454159588%_) + (let ((_%L159591%_ _%tl159454159588%_) + (_%L159592%_ _%hd159453159586%_) + (_%L159593%_ _%hd159450159578%_) + (_%L159594%_ _%hd159447159570%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L159320%_ + _%L159594%_ 'keyword-dispatch)) - (_%__kont167750167751%_ - _%L159317%_ - _%L159318%_ - _%L159319%_ - _%L159320%_) - (_%__kont167752167753%_ - _%tl159168159282%_ - _%hd159167159280%_)))))) + (_%__kont168024168025%_ + _%L159591%_ + _%L159592%_ + _%L159593%_ + _%L159594%_) + (_%__kont168026168027%_ + _%tl159442159556%_ + _%hd159441159554%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167748167749%_)) - (let ((_%e159160159261%_ + (gx#stx-pair? _%__stx168022168023%_)) + (let ((_%e159434159535%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167748167749%_)))) - (let ((_%tl159162159266%_ + (gx#stx-e _%__stx168022168023%_)))) + (let ((_%tl159436159540%_ (let () (declare (not safe)) - (##cdr _%e159160159261%_))) - (_%hd159161159264%_ + (##cdr _%e159434159535%_))) + (_%hd159435159538%_ (let () (declare (not safe)) - (##car _%e159160159261%_)))) + (##car _%e159434159535%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159162159266%_)) - (let ((_%e159163159269%_ + (gx#stx-pair? _%tl159436159540%_)) + (let ((_%e159437159543%_ (let () (declare (not safe)) - (gx#stx-e _%tl159162159266%_)))) - (let ((_%tl159165159274%_ + (gx#stx-e _%tl159436159540%_)))) + (let ((_%tl159439159548%_ (let () (declare (not safe)) - (##cdr _%e159163159269%_))) - (_%hd159164159272%_ + (##cdr _%e159437159543%_))) + (_%hd159438159546%_ (let () (declare (not safe)) - (##car _%e159163159269%_)))) + (##car _%e159437159543%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159165159274%_)) - (let ((_%e159166159277%_ + (gx#stx-pair? _%tl159439159548%_)) + (let ((_%e159440159551%_ (let () (declare (not safe)) - (gx#stx-e _%tl159165159274%_)))) - (let ((_%tl159168159282%_ + (gx#stx-e _%tl159439159548%_)))) + (let ((_%tl159442159556%_ (let () (declare (not safe)) - (##cdr _%e159166159277%_))) - (_%hd159167159280%_ + (##cdr _%e159440159551%_))) + (_%hd159441159554%_ (let () (declare (not safe)) - (##car _%e159166159277%_)))) + (##car _%e159440159551%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159167159280%_)) - (let ((_%e159169159285%_ + _%hd159441159554%_)) + (let ((_%e159443159559%_ (let () (declare (not safe)) (gx#stx-e - _%hd159167159280%_)))) - (let ((_%tl159171159290%_ + _%hd159441159554%_)))) + (let ((_%tl159445159564%_ (let () (declare (not safe)) - (##cdr _%e159169159285%_))) - (_%hd159170159288%_ + (##cdr _%e159443159559%_))) + (_%hd159444159562%_ (let () (declare (not safe)) - (##car _%e159169159285%_)))) + (##car _%e159443159559%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159170159288%_)) + _%hd159444159562%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159170159288%_)) + _%hd159444159562%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159171159290%_)) - (let ((_%e159172159293%_ + _%tl159445159564%_)) + (let ((_%e159446159567%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl159171159290%_)))) - (let ((_%tl159174159298%_ + (gx#stx-e _%tl159445159564%_)))) + (let ((_%tl159448159572%_ (let () (declare (not safe)) - (##cdr _%e159172159293%_))) - (_%hd159173159296%_ + (##cdr _%e159446159567%_))) + (_%hd159447159570%_ (let () (declare (not safe)) - (##car _%e159172159293%_)))) + (##car _%e159446159567%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159174159298%_)) + (gx#stx-null? _%tl159448159572%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159168159282%_)) - (let ((_%e159175159301%_ + (gx#stx-pair? _%tl159442159556%_)) + (let ((_%e159449159575%_ (let () (declare (not safe)) - (gx#stx-e _%tl159168159282%_)))) - (let ((_%tl159177159306%_ + (gx#stx-e _%tl159442159556%_)))) + (let ((_%tl159451159580%_ (let () (declare (not safe)) - (##cdr _%e159175159301%_))) - (_%hd159176159304%_ + (##cdr _%e159449159575%_))) + (_%hd159450159578%_ (let () (declare (not safe)) - (##car _%e159175159301%_)))) + (##car _%e159449159575%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159177159306%_)) - (let ((_%e159178159309%_ + (gx#stx-pair? _%tl159451159580%_)) + (let ((_%e159452159583%_ (let () (declare (not safe)) (gx#stx-e - _%tl159177159306%_)))) - (let ((_%tl159180159314%_ + _%tl159451159580%_)))) + (let ((_%tl159454159588%_ (let () (declare (not safe)) - (##cdr _%e159178159309%_))) - (_%hd159179159312%_ + (##cdr _%e159452159583%_))) + (_%hd159453159586%_ (let () (declare (not safe)) - (##car _%e159178159309%_)))) - (_%__match167803167804%_ - _%e159160159261%_ - _%hd159161159264%_ - _%tl159162159266%_ - _%e159163159269%_ - _%hd159164159272%_ - _%tl159165159274%_ - _%e159166159277%_ - _%hd159167159280%_ - _%tl159168159282%_ - _%e159169159285%_ - _%hd159170159288%_ - _%tl159171159290%_ - _%e159172159293%_ - _%hd159173159296%_ - _%tl159174159298%_ - _%e159175159301%_ - _%hd159176159304%_ - _%tl159177159306%_ - _%e159178159309%_ - _%hd159179159312%_ - _%tl159180159314%_))) - (_%__kont167752167753%_ - _%tl159168159282%_ - _%hd159167159280%_)))) - (_%__kont167752167753%_ - _%tl159168159282%_ - _%hd159167159280%_)) - (_%__kont167752167753%_ - _%tl159168159282%_ - _%hd159167159280%_)))) - (_%__kont167752167753%_ - _%tl159168159282%_ - _%hd159167159280%_)) - (_%__kont167752167753%_ _%tl159168159282%_ _%hd159167159280%_)) + (##car _%e159452159583%_)))) + (_%__match168077168078%_ + _%e159434159535%_ + _%hd159435159538%_ + _%tl159436159540%_ + _%e159437159543%_ + _%hd159438159546%_ + _%tl159439159548%_ + _%e159440159551%_ + _%hd159441159554%_ + _%tl159442159556%_ + _%e159443159559%_ + _%hd159444159562%_ + _%tl159445159564%_ + _%e159446159567%_ + _%hd159447159570%_ + _%tl159448159572%_ + _%e159449159575%_ + _%hd159450159578%_ + _%tl159451159580%_ + _%e159452159583%_ + _%hd159453159586%_ + _%tl159454159588%_))) + (_%__kont168026168027%_ + _%tl159442159556%_ + _%hd159441159554%_)))) + (_%__kont168026168027%_ + _%tl159442159556%_ + _%hd159441159554%_)) + (_%__kont168026168027%_ + _%tl159442159556%_ + _%hd159441159554%_)))) + (_%__kont168026168027%_ + _%tl159442159556%_ + _%hd159441159554%_)) + (_%__kont168026168027%_ _%tl159442159556%_ _%hd159441159554%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont167752167753%_ - _%tl159168159282%_ - _%hd159167159280%_)))) - (_%__kont167752167753%_ - _%tl159168159282%_ - _%hd159167159280%_)))) - (_%__kont167754167755%_)))) - (_%__kont167754167755%_)))) - (_%__kont167754167755%_)))))))) + (_%__kont168026168027%_ + _%tl159442159556%_ + _%hd159441159554%_)))) + (_%__kont168026168027%_ + _%tl159442159556%_ + _%hd159441159554%_)))) + (_%__kont168028168029%_)))) + (_%__kont168028168029%_)))) + (_%__kont168028168029%_)))))))) (let () (declare (not safe)) (__hash-put! @@ -12824,1764 +12824,1764 @@ '##apply gxc#basic-expression-type-special-apply)) (define gxc#basic-expression-type-ref% - (lambda (_%self159095%_ _%stx159096%_) - (let* ((_%g159098159111%_ - (lambda (_%g159099159108%_) + (lambda (_%self159369%_ _%stx159370%_) + (let* ((_%g159372159385%_ + (lambda (_%g159373159382%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g159099159108%_)))) - (_%g159097159144%_ - (lambda (_%g159099159114%_) + _%g159373159382%_)))) + (_%g159371159418%_ + (lambda (_%g159373159388%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g159099159114%_)) - (let ((_%e159101159116%_ + (gx#stx-pair? _%g159373159388%_)) + (let ((_%e159375159390%_ (let () (declare (not safe)) - (gx#stx-e _%g159099159114%_)))) - (let ((_%hd159102159119%_ + (gx#stx-e _%g159373159388%_)))) + (let ((_%hd159376159393%_ (let () (declare (not safe)) - (##car _%e159101159116%_))) - (_%tl159103159121%_ + (##car _%e159375159390%_))) + (_%tl159377159395%_ (let () (declare (not safe)) - (##cdr _%e159101159116%_)))) + (##cdr _%e159375159390%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159103159121%_)) - (let ((_%e159104159124%_ + (gx#stx-pair? _%tl159377159395%_)) + (let ((_%e159378159398%_ (let () (declare (not safe)) - (gx#stx-e _%tl159103159121%_)))) - (let ((_%hd159105159127%_ + (gx#stx-e _%tl159377159395%_)))) + (let ((_%hd159379159401%_ (let () (declare (not safe)) - (##car _%e159104159124%_))) - (_%tl159106159129%_ + (##car _%e159378159398%_))) + (_%tl159380159403%_ (let () (declare (not safe)) - (##cdr _%e159104159124%_)))) + (##cdr _%e159378159398%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159106159129%_)) - ((lambda (_%L159132%_) - (let ((__tmp169637 + (gx#stx-null? _%tl159380159403%_)) + ((lambda (_%L159406%_) + (let ((__tmp169911 (let () (declare (not safe)) (gxc#identifier-symbol - _%L159132%_)))) + _%L159406%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp169637))) - _%hd159105159127%_) - (_%g159098159111%_ _%g159099159114%_)))) - (_%g159098159111%_ _%g159099159114%_)))) - (_%g159098159111%_ _%g159099159114%_))))) - (_%g159097159144%_ _%stx159096%_)))) + __tmp169911))) + _%hd159379159401%_) + (_%g159372159385%_ _%g159373159388%_)))) + (_%g159372159385%_ _%g159373159388%_)))) + (_%g159372159385%_ _%g159373159388%_))))) + (_%g159371159418%_ _%stx159370%_)))) (define gxc#basic-expression-type-if% - (lambda (_%self158674%_ _%stx158675%_) - (letrec ((_%type-e158677%_ - (lambda (_%type-K159089%_ _%type-E159090%_) + (lambda (_%self158948%_ _%stx158949%_) + (letrec ((_%type-e158951%_ + (lambda (_%type-K159363%_ _%type-E159364%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%type-E159090%_ + _%type-E159364%_ 'gxc#!abort::t)) - _%type-K159089%_ + _%type-K159363%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%type-K159089%_ + _%type-K159363%_ 'gxc#!abort::t)) - _%type-E159090%_ + _%type-E159364%_ (gxc#greatest-common-type - _%stx158675%_ - _%type-K159089%_ - _%type-E159090%_))))) - (_%basic-type-e158678%_ - (lambda (_%K159083%_ _%E159084%_) - (let ((_%type-K159086%_ - (gxc#apply-basic-expression-type _%K159083%_)) - (_%type-E159087%_ - (gxc#apply-basic-expression-type _%E159084%_))) - (_%type-e158677%_ _%type-K159086%_ _%type-E159087%_))))) - (let* ((_%__stx167824167825%_ _%stx158675%_) - (_%g158682158771%_ + _%stx158949%_ + _%type-K159363%_ + _%type-E159364%_))))) + (_%basic-type-e158952%_ + (lambda (_%K159357%_ _%E159358%_) + (let ((_%type-K159360%_ + (gxc#apply-basic-expression-type _%K159357%_)) + (_%type-E159361%_ + (gxc#apply-basic-expression-type _%E159358%_))) + (_%type-e158951%_ _%type-K159360%_ _%type-E159361%_))))) + (let* ((_%__stx168098168099%_ _%stx158949%_) + (_%g158956159045%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167824167825%_))))) - (let ((_%__kont167826167827%_ - (lambda (_%L159030%_ _%L159031%_ _%L159032%_ _%L159033%_) - (let ((_%$e159065%_ - (let ((__tmp169638 + _%__stx168098168099%_))))) + (let ((_%__kont168100168101%_ + (lambda (_%L159304%_ _%L159305%_ _%L159306%_ _%L159307%_) + (let ((_%$e159339%_ + (let ((__tmp169912 (let () (declare (not safe)) - (gxc#identifier-symbol _%L159033%_)))) + (gxc#identifier-symbol _%L159307%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp169638)))) - (if _%$e159065%_ - ((lambda (_%pred-type159068%_) + (gxc#optimizer-lookup-type __tmp169912)))) + (if _%$e159339%_ + ((lambda (_%pred-type159342%_) (if (or (let () (declare (not safe)) (##structure-instance-of? - _%pred-type159068%_ + _%pred-type159342%_ 'gxc#!predicate::t)) (let () (declare (not safe)) (##structure-instance-of? - _%pred-type159068%_ + _%pred-type159342%_ 'gxc#!primitive-predicate::t))) - (let* ((_%type-K159074%_ - (let ((__tmp169641 + (let* ((_%type-K159348%_ + (let ((__tmp169915 (lambda () (gxc#apply-basic-expression-type - _%L159031%_))) - (__tmp169639 + _%L159305%_))) + (__tmp169913 (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#identifier-symbol _%L159032%_)) - (let ((__tmp169640 + (gxc#identifier-symbol _%L159306%_)) + (let ((__tmp169914 (##structure-ref - _%pred-type159068%_ + _%pred-type159342%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158675%_ - __tmp169640))) + _%stx158949%_ + __tmp169914))) (let () (declare (not safe)) (gxc#current-compile-path-type))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp169641 + __tmp169915 gxc#current-compile-path-type - __tmp169639))) - (_%type-E159076%_ + __tmp169913))) + (_%type-E159350%_ (gxc#apply-basic-expression-type - _%L159030%_))) - (_%type-e158677%_ - _%type-K159074%_ - _%type-E159076%_)) - (_%basic-type-e158678%_ - _%L159031%_ - _%L159030%_))) - _%$e159065%_) - (_%basic-type-e158678%_ _%L159031%_ _%L159030%_))))) - (_%__kont167828167829%_ - (lambda (_%L158906%_ _%L158907%_ _%L158908%_ _%L158909%_) + _%L159304%_))) + (_%type-e158951%_ + _%type-K159348%_ + _%type-E159350%_)) + (_%basic-type-e158952%_ + _%L159305%_ + _%L159304%_))) + _%$e159339%_) + (_%basic-type-e158952%_ _%L159305%_ _%L159304%_))))) + (_%__kont168102168103%_ + (lambda (_%L159180%_ _%L159181%_ _%L159182%_ _%L159183%_) (gxc#basic-expression-type-if% - _%self158674%_ - (let ((__tmp169642 + _%self158948%_ + (let ((__tmp169916 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#if)) - (cons _%L158908%_ - (cons _%L158906%_ - (cons _%L158907%_ '())))))) + (cons _%L159182%_ + (cons _%L159180%_ + (cons _%L159181%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp169642 _%stx158675%_))))) - (_%__kont167830167831%_ - (lambda (_%L158808%_ _%L158809%_ _%L158810%_) - (_%basic-type-e158678%_ _%L158809%_ _%L158808%_)))) - (let ((_%__match167985167986%_ - (lambda (_%e158725158834%_ - _%hd158726158837%_ - _%tl158727158839%_ - _%e158728158842%_ - _%hd158729158845%_ - _%tl158730158847%_ - _%e158731158850%_ - _%hd158732158853%_ - _%tl158733158855%_ - _%e158734158858%_ - _%hd158735158861%_ - _%tl158736158863%_ - _%e158737158866%_ - _%hd158738158869%_ - _%tl158739158871%_ - _%e158740158874%_ - _%hd158741158877%_ - _%tl158742158879%_ - _%e158743158882%_ - _%hd158744158885%_ - _%tl158745158887%_ - _%e158746158890%_ - _%hd158747158893%_ - _%tl158748158895%_ - _%e158749158898%_ - _%hd158750158901%_ - _%tl158751158903%_) - (let ((_%L158906%_ _%hd158750158901%_) - (_%L158907%_ _%hd158747158893%_) - (_%L158908%_ _%hd158744158885%_) - (_%L158909%_ _%hd158741158877%_)) + (gxc#xform-wrap-source __tmp169916 _%stx158949%_))))) + (_%__kont168104168105%_ + (lambda (_%L159082%_ _%L159083%_ _%L159084%_) + (_%basic-type-e158952%_ _%L159083%_ _%L159082%_)))) + (let ((_%__match168259168260%_ + (lambda (_%e158999159108%_ + _%hd159000159111%_ + _%tl159001159113%_ + _%e159002159116%_ + _%hd159003159119%_ + _%tl159004159121%_ + _%e159005159124%_ + _%hd159006159127%_ + _%tl159007159129%_ + _%e159008159132%_ + _%hd159009159135%_ + _%tl159010159137%_ + _%e159011159140%_ + _%hd159012159143%_ + _%tl159013159145%_ + _%e159014159148%_ + _%hd159015159151%_ + _%tl159016159153%_ + _%e159017159156%_ + _%hd159018159159%_ + _%tl159019159161%_ + _%e159020159164%_ + _%hd159021159167%_ + _%tl159022159169%_ + _%e159023159172%_ + _%hd159024159175%_ + _%tl159025159177%_) + (let ((_%L159180%_ _%hd159024159175%_) + (_%L159181%_ _%hd159021159167%_) + (_%L159182%_ _%hd159018159159%_) + (_%L159183%_ _%hd159015159151%_)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L158909%_ 'not)) - (_%__kont167828167829%_ - _%L158906%_ - _%L158907%_ - _%L158908%_ - _%L158909%_) - (_%__kont167830167831%_ - _%hd158750158901%_ - _%hd158747158893%_ - _%hd158729158845%_)))))) + (gxc#runtime-identifier=? _%L159183%_ 'not)) + (_%__kont168102168103%_ + _%L159180%_ + _%L159181%_ + _%L159182%_ + _%L159183%_) + (_%__kont168104168105%_ + _%hd159024159175%_ + _%hd159021159167%_ + _%hd159003159119%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167824167825%_)) - (let ((_%e158688158942%_ + (gx#stx-pair? _%__stx168098168099%_)) + (let ((_%e158962159216%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167824167825%_)))) - (let ((_%tl158690158947%_ + (gx#stx-e _%__stx168098168099%_)))) + (let ((_%tl158964159221%_ (let () (declare (not safe)) - (##cdr _%e158688158942%_))) - (_%hd158689158945%_ + (##cdr _%e158962159216%_))) + (_%hd158963159219%_ (let () (declare (not safe)) - (##car _%e158688158942%_)))) + (##car _%e158962159216%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158690158947%_)) - (let ((_%e158691158950%_ + (gx#stx-pair? _%tl158964159221%_)) + (let ((_%e158965159224%_ (let () (declare (not safe)) - (gx#stx-e _%tl158690158947%_)))) - (let ((_%tl158693158955%_ + (gx#stx-e _%tl158964159221%_)))) + (let ((_%tl158967159229%_ (let () (declare (not safe)) - (##cdr _%e158691158950%_))) - (_%hd158692158953%_ + (##cdr _%e158965159224%_))) + (_%hd158966159227%_ (let () (declare (not safe)) - (##car _%e158691158950%_)))) + (##car _%e158965159224%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158692158953%_)) - (let ((_%e158694158958%_ + (gx#stx-pair? _%hd158966159227%_)) + (let ((_%e158968159232%_ (let () (declare (not safe)) - (gx#stx-e _%hd158692158953%_)))) - (let ((_%tl158696158963%_ + (gx#stx-e _%hd158966159227%_)))) + (let ((_%tl158970159237%_ (let () (declare (not safe)) - (##cdr _%e158694158958%_))) - (_%hd158695158961%_ + (##cdr _%e158968159232%_))) + (_%hd158969159235%_ (let () (declare (not safe)) - (##car _%e158694158958%_)))) + (##car _%e158968159232%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd158695158961%_)) + _%hd158969159235%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd158695158961%_)) + _%hd158969159235%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158696158963%_)) - (let ((_%e158697158966%_ + _%tl158970159237%_)) + (let ((_%e158971159240%_ (let () (declare (not safe)) (gx#stx-e - _%tl158696158963%_)))) - (let ((_%tl158699158971%_ + _%tl158970159237%_)))) + (let ((_%tl158973159245%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e158697158966%_))) - (_%hd158698158969%_ - (let () (declare (not safe)) (##car _%e158697158966%_)))) + (##cdr _%e158971159240%_))) + (_%hd158972159243%_ + (let () (declare (not safe)) (##car _%e158971159240%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158698158969%_)) - (let ((_%e158700158974%_ + (gx#stx-pair? _%hd158972159243%_)) + (let ((_%e158974159248%_ (let () (declare (not safe)) - (gx#stx-e _%hd158698158969%_)))) - (let ((_%tl158702158979%_ + (gx#stx-e _%hd158972159243%_)))) + (let ((_%tl158976159253%_ (let () (declare (not safe)) - (##cdr _%e158700158974%_))) - (_%hd158701158977%_ + (##cdr _%e158974159248%_))) + (_%hd158975159251%_ (let () (declare (not safe)) - (##car _%e158700158974%_)))) + (##car _%e158974159248%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158701158977%_)) + (gx#identifier? _%hd158975159251%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd158701158977%_)) + (gx#stx-eq? '%#ref _%hd158975159251%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158702158979%_)) - (let ((_%e158703158982%_ + (gx#stx-pair? _%tl158976159253%_)) + (let ((_%e158977159256%_ (let () (declare (not safe)) - (gx#stx-e _%tl158702158979%_)))) - (let ((_%tl158705158987%_ + (gx#stx-e _%tl158976159253%_)))) + (let ((_%tl158979159261%_ (let () (declare (not safe)) - (##cdr _%e158703158982%_))) - (_%hd158704158985%_ + (##cdr _%e158977159256%_))) + (_%hd158978159259%_ (let () (declare (not safe)) - (##car _%e158703158982%_)))) + (##car _%e158977159256%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158705158987%_)) + _%tl158979159261%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158699158971%_)) - (let ((_%e158706158990%_ + _%tl158973159245%_)) + (let ((_%e158980159264%_ (let () (declare (not safe)) (gx#stx-e - _%tl158699158971%_)))) - (let ((_%tl158708158995%_ + _%tl158973159245%_)))) + (let ((_%tl158982159269%_ (let () (declare (not safe)) - (##cdr _%e158706158990%_))) - (_%hd158707158993%_ + (##cdr _%e158980159264%_))) + (_%hd158981159267%_ (let () (declare (not safe)) - (##car _%e158706158990%_)))) + (##car _%e158980159264%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158707158993%_)) - (let ((_%e158709158998%_ + _%hd158981159267%_)) + (let ((_%e158983159272%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd158707158993%_)))) - (let ((_%tl158711159003%_ + (gx#stx-e _%hd158981159267%_)))) + (let ((_%tl158985159277%_ (let () (declare (not safe)) - (##cdr _%e158709158998%_))) - (_%hd158710159001%_ + (##cdr _%e158983159272%_))) + (_%hd158984159275%_ (let () (declare (not safe)) - (##car _%e158709158998%_)))) + (##car _%e158983159272%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158710159001%_)) + (gx#identifier? _%hd158984159275%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd158710159001%_)) + (gx#stx-eq? '%#ref _%hd158984159275%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158711159003%_)) - (let ((_%e158712159006%_ + (gx#stx-pair? _%tl158985159277%_)) + (let ((_%e158986159280%_ (let () (declare (not safe)) - (gx#stx-e _%tl158711159003%_)))) - (let ((_%tl158714159011%_ + (gx#stx-e _%tl158985159277%_)))) + (let ((_%tl158988159285%_ (let () (declare (not safe)) - (##cdr _%e158712159006%_))) - (_%hd158713159009%_ + (##cdr _%e158986159280%_))) + (_%hd158987159283%_ (let () (declare (not safe)) - (##car _%e158712159006%_)))) + (##car _%e158986159280%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158714159011%_)) + (gx#stx-null? _%tl158988159285%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158708158995%_)) + _%tl158982159269%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158693158955%_)) - (let ((_%e158715159014%_ + _%tl158967159229%_)) + (let ((_%e158989159288%_ (let () (declare (not safe)) (gx#stx-e - _%tl158693158955%_)))) - (let ((_%tl158717159019%_ + _%tl158967159229%_)))) + (let ((_%tl158991159293%_ (let () (declare (not safe)) - (##cdr _%e158715159014%_))) - (_%hd158716159017%_ + (##cdr _%e158989159288%_))) + (_%hd158990159291%_ (let () (declare (not safe)) - (##car _%e158715159014%_)))) + (##car _%e158989159288%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158717159019%_)) - (let ((_%e158718159022%_ + _%tl158991159293%_)) + (let ((_%e158992159296%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl158717159019%_)))) - (let ((_%tl158720159027%_ + (gx#stx-e _%tl158991159293%_)))) + (let ((_%tl158994159301%_ (let () (declare (not safe)) - (##cdr _%e158718159022%_))) - (_%hd158719159025%_ + (##cdr _%e158992159296%_))) + (_%hd158993159299%_ (let () (declare (not safe)) - (##car _%e158718159022%_)))) + (##car _%e158992159296%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158720159027%_)) - (_%__kont167826167827%_ - _%hd158719159025%_ - _%hd158716159017%_ - _%hd158713159009%_ - _%hd158704158985%_) - (let () (declare (not safe)) (_%g158682158771%_))))) - (let () (declare (not safe)) (_%g158682158771%_))))) + (gx#stx-null? _%tl158994159301%_)) + (_%__kont168100168101%_ + _%hd158993159299%_ + _%hd158990159291%_ + _%hd158987159283%_ + _%hd158978159259%_) + (let () (declare (not safe)) (_%g158956159045%_))))) + (let () (declare (not safe)) (_%g158956159045%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158682158771%_))) + (_%g158956159045%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158693158955%_)) - (let ((_%e158761158792%_ + _%tl158967159229%_)) + (let ((_%e159035159066%_ (let () (declare (not safe)) (gx#stx-e - _%tl158693158955%_)))) - (let ((_%tl158763158797%_ + _%tl158967159229%_)))) + (let ((_%tl159037159071%_ (let () (declare (not safe)) - (##cdr _%e158761158792%_))) - (_%hd158762158795%_ + (##cdr _%e159035159066%_))) + (_%hd159036159069%_ (let () (declare (not safe)) - (##car _%e158761158792%_)))) + (##car _%e159035159066%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158763158797%_)) - (let ((_%e158764158800%_ + _%tl159037159071%_)) + (let ((_%e159038159074%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl158763158797%_)))) - (let ((_%tl158766158805%_ + (gx#stx-e _%tl159037159071%_)))) + (let ((_%tl159040159079%_ (let () (declare (not safe)) - (##cdr _%e158764158800%_))) - (_%hd158765158803%_ + (##cdr _%e159038159074%_))) + (_%hd159039159077%_ (let () (declare (not safe)) - (##car _%e158764158800%_)))) + (##car _%e159038159074%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158766158805%_)) - (_%__kont167830167831%_ - _%hd158765158803%_ - _%hd158762158795%_ - _%hd158692158953%_) - (let () (declare (not safe)) (_%g158682158771%_))))) - (let () (declare (not safe)) (_%g158682158771%_))))) + (gx#stx-null? _%tl159040159079%_)) + (_%__kont168104168105%_ + _%hd159039159077%_ + _%hd159036159069%_ + _%hd158966159227%_) + (let () (declare (not safe)) (_%g158956159045%_))))) + (let () (declare (not safe)) (_%g158956159045%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158682158771%_)))) + (_%g158956159045%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158708158995%_)) + _%tl158982159269%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158693158955%_)) - (let ((_%e158746158890%_ + _%tl158967159229%_)) + (let ((_%e159020159164%_ (let () (declare (not safe)) (gx#stx-e - _%tl158693158955%_)))) - (let ((_%tl158748158895%_ + _%tl158967159229%_)))) + (let ((_%tl159022159169%_ (let () (declare (not safe)) - (##cdr _%e158746158890%_))) - (_%hd158747158893%_ + (##cdr _%e159020159164%_))) + (_%hd159021159167%_ (let () (declare (not safe)) - (##car _%e158746158890%_)))) + (##car _%e159020159164%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158748158895%_)) - (let ((_%e158749158898%_ + _%tl159022159169%_)) + (let ((_%e159023159172%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl158748158895%_)))) - (let ((_%tl158751158903%_ + (gx#stx-e _%tl159022159169%_)))) + (let ((_%tl159025159177%_ (let () (declare (not safe)) - (##cdr _%e158749158898%_))) - (_%hd158750158901%_ + (##cdr _%e159023159172%_))) + (_%hd159024159175%_ (let () (declare (not safe)) - (##car _%e158749158898%_)))) + (##car _%e159023159172%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158751158903%_)) - (_%__match167985167986%_ - _%e158688158942%_ - _%hd158689158945%_ - _%tl158690158947%_ - _%e158691158950%_ - _%hd158692158953%_ - _%tl158693158955%_ - _%e158694158958%_ - _%hd158695158961%_ - _%tl158696158963%_ - _%e158697158966%_ - _%hd158698158969%_ - _%tl158699158971%_ - _%e158700158974%_ - _%hd158701158977%_ - _%tl158702158979%_ - _%e158703158982%_ - _%hd158704158985%_ - _%tl158705158987%_ - _%e158706158990%_ - _%hd158707158993%_ - _%tl158708158995%_ - _%e158746158890%_ - _%hd158747158893%_ - _%tl158748158895%_ - _%e158749158898%_ - _%hd158750158901%_ - _%tl158751158903%_) - (let () (declare (not safe)) (_%g158682158771%_))))) - (let () (declare (not safe)) (_%g158682158771%_))))) + (gx#stx-null? _%tl159025159177%_)) + (_%__match168259168260%_ + _%e158962159216%_ + _%hd158963159219%_ + _%tl158964159221%_ + _%e158965159224%_ + _%hd158966159227%_ + _%tl158967159229%_ + _%e158968159232%_ + _%hd158969159235%_ + _%tl158970159237%_ + _%e158971159240%_ + _%hd158972159243%_ + _%tl158973159245%_ + _%e158974159248%_ + _%hd158975159251%_ + _%tl158976159253%_ + _%e158977159256%_ + _%hd158978159259%_ + _%tl158979159261%_ + _%e158980159264%_ + _%hd158981159267%_ + _%tl158982159269%_ + _%e159020159164%_ + _%hd159021159167%_ + _%tl159022159169%_ + _%e159023159172%_ + _%hd159024159175%_ + _%tl159025159177%_) + (let () (declare (not safe)) (_%g158956159045%_))))) + (let () (declare (not safe)) (_%g158956159045%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158682158771%_))) + (_%g158956159045%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158693158955%_)) - (let ((_%e158761158792%_ + _%tl158967159229%_)) + (let ((_%e159035159066%_ (let () (declare (not safe)) (gx#stx-e - _%tl158693158955%_)))) - (let ((_%tl158763158797%_ + _%tl158967159229%_)))) + (let ((_%tl159037159071%_ (let () (declare (not safe)) - (##cdr _%e158761158792%_))) - (_%hd158762158795%_ + (##cdr _%e159035159066%_))) + (_%hd159036159069%_ (let () (declare (not safe)) - (##car _%e158761158792%_)))) + (##car _%e159035159066%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158763158797%_)) - (let ((_%e158764158800%_ + _%tl159037159071%_)) + (let ((_%e159038159074%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl158763158797%_)))) - (let ((_%tl158766158805%_ + (gx#stx-e _%tl159037159071%_)))) + (let ((_%tl159040159079%_ (let () (declare (not safe)) - (##cdr _%e158764158800%_))) - (_%hd158765158803%_ + (##cdr _%e159038159074%_))) + (_%hd159039159077%_ (let () (declare (not safe)) - (##car _%e158764158800%_)))) + (##car _%e159038159074%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158766158805%_)) - (_%__kont167830167831%_ - _%hd158765158803%_ - _%hd158762158795%_ - _%hd158692158953%_) - (let () (declare (not safe)) (_%g158682158771%_))))) - (let () (declare (not safe)) (_%g158682158771%_))))) + (gx#stx-null? _%tl159040159079%_)) + (_%__kont168104168105%_ + _%hd159039159077%_ + _%hd159036159069%_ + _%hd158966159227%_) + (let () (declare (not safe)) (_%g158956159045%_))))) + (let () (declare (not safe)) (_%g158956159045%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158682158771%_))))))) + (_%g158956159045%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158708158995%_)) + (gx#stx-null? _%tl158982159269%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158693158955%_)) - (let ((_%e158746158890%_ + (gx#stx-pair? _%tl158967159229%_)) + (let ((_%e159020159164%_ (let () (declare (not safe)) (gx#stx-e - _%tl158693158955%_)))) - (let ((_%tl158748158895%_ + _%tl158967159229%_)))) + (let ((_%tl159022159169%_ (let () (declare (not safe)) - (##cdr _%e158746158890%_))) - (_%hd158747158893%_ + (##cdr _%e159020159164%_))) + (_%hd159021159167%_ (let () (declare (not safe)) - (##car _%e158746158890%_)))) + (##car _%e159020159164%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158748158895%_)) - (let ((_%e158749158898%_ + _%tl159022159169%_)) + (let ((_%e159023159172%_ (let () (declare (not safe)) (gx#stx-e - _%tl158748158895%_)))) - (let ((_%tl158751158903%_ + _%tl159022159169%_)))) + (let ((_%tl159025159177%_ (let () (declare (not safe)) - (##cdr _%e158749158898%_))) - (_%hd158750158901%_ + (##cdr _%e159023159172%_))) + (_%hd159024159175%_ (let () (declare (not safe)) - (##car _%e158749158898%_)))) + (##car _%e159023159172%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158751158903%_)) - (_%__match167985167986%_ - _%e158688158942%_ - _%hd158689158945%_ - _%tl158690158947%_ - _%e158691158950%_ - _%hd158692158953%_ - _%tl158693158955%_ - _%e158694158958%_ - _%hd158695158961%_ - _%tl158696158963%_ - _%e158697158966%_ - _%hd158698158969%_ - _%tl158699158971%_ - _%e158700158974%_ - _%hd158701158977%_ - _%tl158702158979%_ - _%e158703158982%_ - _%hd158704158985%_ - _%tl158705158987%_ - _%e158706158990%_ - _%hd158707158993%_ - _%tl158708158995%_ - _%e158746158890%_ - _%hd158747158893%_ - _%tl158748158895%_ - _%e158749158898%_ - _%hd158750158901%_ - _%tl158751158903%_) + _%tl159025159177%_)) + (_%__match168259168260%_ + _%e158962159216%_ + _%hd158963159219%_ + _%tl158964159221%_ + _%e158965159224%_ + _%hd158966159227%_ + _%tl158967159229%_ + _%e158968159232%_ + _%hd158969159235%_ + _%tl158970159237%_ + _%e158971159240%_ + _%hd158972159243%_ + _%tl158973159245%_ + _%e158974159248%_ + _%hd158975159251%_ + _%tl158976159253%_ + _%e158977159256%_ + _%hd158978159259%_ + _%tl158979159261%_ + _%e158980159264%_ + _%hd158981159267%_ + _%tl158982159269%_ + _%e159020159164%_ + _%hd159021159167%_ + _%tl159022159169%_ + _%e159023159172%_ + _%hd159024159175%_ + _%tl159025159177%_) (let () (declare (not safe)) - (_%g158682158771%_))))) + (_%g158956159045%_))))) (let () (declare (not safe)) - (_%g158682158771%_))))) + (_%g158956159045%_))))) (let () (declare (not safe)) - (_%g158682158771%_))) + (_%g158956159045%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158693158955%_)) - (let ((_%e158761158792%_ + (gx#stx-pair? _%tl158967159229%_)) + (let ((_%e159035159066%_ (let () (declare (not safe)) (gx#stx-e - _%tl158693158955%_)))) - (let ((_%tl158763158797%_ + _%tl158967159229%_)))) + (let ((_%tl159037159071%_ (let () (declare (not safe)) - (##cdr _%e158761158792%_))) - (_%hd158762158795%_ + (##cdr _%e159035159066%_))) + (_%hd159036159069%_ (let () (declare (not safe)) - (##car _%e158761158792%_)))) + (##car _%e159035159066%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158763158797%_)) - (let ((_%e158764158800%_ + _%tl159037159071%_)) + (let ((_%e159038159074%_ (let () (declare (not safe)) (gx#stx-e - _%tl158763158797%_)))) - (let ((_%tl158766158805%_ + _%tl159037159071%_)))) + (let ((_%tl159040159079%_ (let () (declare (not safe)) - (##cdr _%e158764158800%_))) - (_%hd158765158803%_ + (##cdr _%e159038159074%_))) + (_%hd159039159077%_ (let () (declare (not safe)) - (##car _%e158764158800%_)))) + (##car _%e159038159074%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158766158805%_)) - (_%__kont167830167831%_ - _%hd158765158803%_ - _%hd158762158795%_ - _%hd158692158953%_) + _%tl159040159079%_)) + (_%__kont168104168105%_ + _%hd159039159077%_ + _%hd159036159069%_ + _%hd158966159227%_) (let () (declare (not safe)) - (_%g158682158771%_))))) + (_%g158956159045%_))))) (let () (declare (not safe)) - (_%g158682158771%_))))) + (_%g158956159045%_))))) (let () (declare (not safe)) - (_%g158682158771%_))))) + (_%g158956159045%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158708158995%_)) + (gx#stx-null? _%tl158982159269%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158693158955%_)) - (let ((_%e158746158890%_ + (gx#stx-pair? _%tl158967159229%_)) + (let ((_%e159020159164%_ (let () (declare (not safe)) - (gx#stx-e _%tl158693158955%_)))) - (let ((_%tl158748158895%_ + (gx#stx-e _%tl158967159229%_)))) + (let ((_%tl159022159169%_ (let () (declare (not safe)) - (##cdr _%e158746158890%_))) - (_%hd158747158893%_ + (##cdr _%e159020159164%_))) + (_%hd159021159167%_ (let () (declare (not safe)) - (##car _%e158746158890%_)))) + (##car _%e159020159164%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158748158895%_)) - (let ((_%e158749158898%_ + _%tl159022159169%_)) + (let ((_%e159023159172%_ (let () (declare (not safe)) (gx#stx-e - _%tl158748158895%_)))) - (let ((_%tl158751158903%_ + _%tl159022159169%_)))) + (let ((_%tl159025159177%_ (let () (declare (not safe)) - (##cdr _%e158749158898%_))) - (_%hd158750158901%_ + (##cdr _%e159023159172%_))) + (_%hd159024159175%_ (let () (declare (not safe)) - (##car _%e158749158898%_)))) + (##car _%e159023159172%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158751158903%_)) - (_%__match167985167986%_ - _%e158688158942%_ - _%hd158689158945%_ - _%tl158690158947%_ - _%e158691158950%_ - _%hd158692158953%_ - _%tl158693158955%_ - _%e158694158958%_ - _%hd158695158961%_ - _%tl158696158963%_ - _%e158697158966%_ - _%hd158698158969%_ - _%tl158699158971%_ - _%e158700158974%_ - _%hd158701158977%_ - _%tl158702158979%_ - _%e158703158982%_ - _%hd158704158985%_ - _%tl158705158987%_ - _%e158706158990%_ - _%hd158707158993%_ - _%tl158708158995%_ - _%e158746158890%_ - _%hd158747158893%_ - _%tl158748158895%_ - _%e158749158898%_ - _%hd158750158901%_ - _%tl158751158903%_) + _%tl159025159177%_)) + (_%__match168259168260%_ + _%e158962159216%_ + _%hd158963159219%_ + _%tl158964159221%_ + _%e158965159224%_ + _%hd158966159227%_ + _%tl158967159229%_ + _%e158968159232%_ + _%hd158969159235%_ + _%tl158970159237%_ + _%e158971159240%_ + _%hd158972159243%_ + _%tl158973159245%_ + _%e158974159248%_ + _%hd158975159251%_ + _%tl158976159253%_ + _%e158977159256%_ + _%hd158978159259%_ + _%tl158979159261%_ + _%e158980159264%_ + _%hd158981159267%_ + _%tl158982159269%_ + _%e159020159164%_ + _%hd159021159167%_ + _%tl159022159169%_ + _%e159023159172%_ + _%hd159024159175%_ + _%tl159025159177%_) (let () (declare (not safe)) - (_%g158682158771%_))))) + (_%g158956159045%_))))) (let () (declare (not safe)) - (_%g158682158771%_))))) + (_%g158956159045%_))))) (let () (declare (not safe)) - (_%g158682158771%_))) + (_%g158956159045%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158693158955%_)) - (let ((_%e158761158792%_ + (gx#stx-pair? _%tl158967159229%_)) + (let ((_%e159035159066%_ (let () (declare (not safe)) - (gx#stx-e _%tl158693158955%_)))) - (let ((_%tl158763158797%_ + (gx#stx-e _%tl158967159229%_)))) + (let ((_%tl159037159071%_ (let () (declare (not safe)) - (##cdr _%e158761158792%_))) - (_%hd158762158795%_ + (##cdr _%e159035159066%_))) + (_%hd159036159069%_ (let () (declare (not safe)) - (##car _%e158761158792%_)))) + (##car _%e159035159066%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158763158797%_)) - (let ((_%e158764158800%_ + _%tl159037159071%_)) + (let ((_%e159038159074%_ (let () (declare (not safe)) (gx#stx-e - _%tl158763158797%_)))) - (let ((_%tl158766158805%_ + _%tl159037159071%_)))) + (let ((_%tl159040159079%_ (let () (declare (not safe)) - (##cdr _%e158764158800%_))) - (_%hd158765158803%_ + (##cdr _%e159038159074%_))) + (_%hd159039159077%_ (let () (declare (not safe)) - (##car _%e158764158800%_)))) + (##car _%e159038159074%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158766158805%_)) - (_%__kont167830167831%_ - _%hd158765158803%_ - _%hd158762158795%_ - _%hd158692158953%_) + _%tl159040159079%_)) + (_%__kont168104168105%_ + _%hd159039159077%_ + _%hd159036159069%_ + _%hd158966159227%_) (let () (declare (not safe)) - (_%g158682158771%_))))) + (_%g158956159045%_))))) (let () (declare (not safe)) - (_%g158682158771%_))))) + (_%g158956159045%_))))) (let () (declare (not safe)) - (_%g158682158771%_))))) + (_%g158956159045%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158708158995%_)) + (gx#stx-null? _%tl158982159269%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158693158955%_)) - (let ((_%e158746158890%_ + (gx#stx-pair? _%tl158967159229%_)) + (let ((_%e159020159164%_ (let () (declare (not safe)) - (gx#stx-e _%tl158693158955%_)))) - (let ((_%tl158748158895%_ + (gx#stx-e _%tl158967159229%_)))) + (let ((_%tl159022159169%_ (let () (declare (not safe)) - (##cdr _%e158746158890%_))) - (_%hd158747158893%_ + (##cdr _%e159020159164%_))) + (_%hd159021159167%_ (let () (declare (not safe)) - (##car _%e158746158890%_)))) + (##car _%e159020159164%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158748158895%_)) - (let ((_%e158749158898%_ + (gx#stx-pair? _%tl159022159169%_)) + (let ((_%e159023159172%_ (let () (declare (not safe)) (gx#stx-e - _%tl158748158895%_)))) - (let ((_%tl158751158903%_ + _%tl159022159169%_)))) + (let ((_%tl159025159177%_ (let () (declare (not safe)) - (##cdr _%e158749158898%_))) - (_%hd158750158901%_ + (##cdr _%e159023159172%_))) + (_%hd159024159175%_ (let () (declare (not safe)) - (##car _%e158749158898%_)))) + (##car _%e159023159172%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158751158903%_)) - (_%__match167985167986%_ - _%e158688158942%_ - _%hd158689158945%_ - _%tl158690158947%_ - _%e158691158950%_ - _%hd158692158953%_ - _%tl158693158955%_ - _%e158694158958%_ - _%hd158695158961%_ - _%tl158696158963%_ - _%e158697158966%_ - _%hd158698158969%_ - _%tl158699158971%_ - _%e158700158974%_ - _%hd158701158977%_ - _%tl158702158979%_ - _%e158703158982%_ - _%hd158704158985%_ - _%tl158705158987%_ - _%e158706158990%_ - _%hd158707158993%_ - _%tl158708158995%_ - _%e158746158890%_ - _%hd158747158893%_ - _%tl158748158895%_ - _%e158749158898%_ - _%hd158750158901%_ - _%tl158751158903%_) + _%tl159025159177%_)) + (_%__match168259168260%_ + _%e158962159216%_ + _%hd158963159219%_ + _%tl158964159221%_ + _%e158965159224%_ + _%hd158966159227%_ + _%tl158967159229%_ + _%e158968159232%_ + _%hd158969159235%_ + _%tl158970159237%_ + _%e158971159240%_ + _%hd158972159243%_ + _%tl158973159245%_ + _%e158974159248%_ + _%hd158975159251%_ + _%tl158976159253%_ + _%e158977159256%_ + _%hd158978159259%_ + _%tl158979159261%_ + _%e158980159264%_ + _%hd158981159267%_ + _%tl158982159269%_ + _%e159020159164%_ + _%hd159021159167%_ + _%tl159022159169%_ + _%e159023159172%_ + _%hd159024159175%_ + _%tl159025159177%_) (let () (declare (not safe)) - (_%g158682158771%_))))) + (_%g158956159045%_))))) (let () (declare (not safe)) - (_%g158682158771%_))))) + (_%g158956159045%_))))) (let () (declare (not safe)) - (_%g158682158771%_))) + (_%g158956159045%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158693158955%_)) - (let ((_%e158761158792%_ + (gx#stx-pair? _%tl158967159229%_)) + (let ((_%e159035159066%_ (let () (declare (not safe)) - (gx#stx-e _%tl158693158955%_)))) - (let ((_%tl158763158797%_ + (gx#stx-e _%tl158967159229%_)))) + (let ((_%tl159037159071%_ (let () (declare (not safe)) - (##cdr _%e158761158792%_))) - (_%hd158762158795%_ + (##cdr _%e159035159066%_))) + (_%hd159036159069%_ (let () (declare (not safe)) - (##car _%e158761158792%_)))) + (##car _%e159035159066%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158763158797%_)) - (let ((_%e158764158800%_ + (gx#stx-pair? _%tl159037159071%_)) + (let ((_%e159038159074%_ (let () (declare (not safe)) (gx#stx-e - _%tl158763158797%_)))) - (let ((_%tl158766158805%_ + _%tl159037159071%_)))) + (let ((_%tl159040159079%_ (let () (declare (not safe)) - (##cdr _%e158764158800%_))) - (_%hd158765158803%_ + (##cdr _%e159038159074%_))) + (_%hd159039159077%_ (let () (declare (not safe)) - (##car _%e158764158800%_)))) + (##car _%e159038159074%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158766158805%_)) - (_%__kont167830167831%_ - _%hd158765158803%_ - _%hd158762158795%_ - _%hd158692158953%_) + _%tl159040159079%_)) + (_%__kont168104168105%_ + _%hd159039159077%_ + _%hd159036159069%_ + _%hd158966159227%_) (let () (declare (not safe)) - (_%g158682158771%_))))) + (_%g158956159045%_))))) (let () (declare (not safe)) - (_%g158682158771%_))))) + (_%g158956159045%_))))) (let () (declare (not safe)) - (_%g158682158771%_))))))) + (_%g158956159045%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158708158995%_)) + (gx#stx-null? _%tl158982159269%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158693158955%_)) - (let ((_%e158746158890%_ + (gx#stx-pair? _%tl158967159229%_)) + (let ((_%e159020159164%_ (let () (declare (not safe)) - (gx#stx-e _%tl158693158955%_)))) - (let ((_%tl158748158895%_ + (gx#stx-e _%tl158967159229%_)))) + (let ((_%tl159022159169%_ (let () (declare (not safe)) - (##cdr _%e158746158890%_))) - (_%hd158747158893%_ + (##cdr _%e159020159164%_))) + (_%hd159021159167%_ (let () (declare (not safe)) - (##car _%e158746158890%_)))) + (##car _%e159020159164%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158748158895%_)) - (let ((_%e158749158898%_ + (gx#stx-pair? _%tl159022159169%_)) + (let ((_%e159023159172%_ (let () (declare (not safe)) - (gx#stx-e _%tl158748158895%_)))) - (let ((_%tl158751158903%_ + (gx#stx-e _%tl159022159169%_)))) + (let ((_%tl159025159177%_ (let () (declare (not safe)) - (##cdr _%e158749158898%_))) - (_%hd158750158901%_ + (##cdr _%e159023159172%_))) + (_%hd159024159175%_ (let () (declare (not safe)) - (##car _%e158749158898%_)))) + (##car _%e159023159172%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158751158903%_)) - (_%__match167985167986%_ - _%e158688158942%_ - _%hd158689158945%_ - _%tl158690158947%_ - _%e158691158950%_ - _%hd158692158953%_ - _%tl158693158955%_ - _%e158694158958%_ - _%hd158695158961%_ - _%tl158696158963%_ - _%e158697158966%_ - _%hd158698158969%_ - _%tl158699158971%_ - _%e158700158974%_ - _%hd158701158977%_ - _%tl158702158979%_ - _%e158703158982%_ - _%hd158704158985%_ - _%tl158705158987%_ - _%e158706158990%_ - _%hd158707158993%_ - _%tl158708158995%_ - _%e158746158890%_ - _%hd158747158893%_ - _%tl158748158895%_ - _%e158749158898%_ - _%hd158750158901%_ - _%tl158751158903%_) + (gx#stx-null? _%tl159025159177%_)) + (_%__match168259168260%_ + _%e158962159216%_ + _%hd158963159219%_ + _%tl158964159221%_ + _%e158965159224%_ + _%hd158966159227%_ + _%tl158967159229%_ + _%e158968159232%_ + _%hd158969159235%_ + _%tl158970159237%_ + _%e158971159240%_ + _%hd158972159243%_ + _%tl158973159245%_ + _%e158974159248%_ + _%hd158975159251%_ + _%tl158976159253%_ + _%e158977159256%_ + _%hd158978159259%_ + _%tl158979159261%_ + _%e158980159264%_ + _%hd158981159267%_ + _%tl158982159269%_ + _%e159020159164%_ + _%hd159021159167%_ + _%tl159022159169%_ + _%e159023159172%_ + _%hd159024159175%_ + _%tl159025159177%_) (let () (declare (not safe)) - (_%g158682158771%_))))) + (_%g158956159045%_))))) (let () (declare (not safe)) - (_%g158682158771%_))))) - (let () (declare (not safe)) (_%g158682158771%_))) + (_%g158956159045%_))))) + (let () (declare (not safe)) (_%g158956159045%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158693158955%_)) - (let ((_%e158761158792%_ + (gx#stx-pair? _%tl158967159229%_)) + (let ((_%e159035159066%_ (let () (declare (not safe)) - (gx#stx-e _%tl158693158955%_)))) - (let ((_%tl158763158797%_ + (gx#stx-e _%tl158967159229%_)))) + (let ((_%tl159037159071%_ (let () (declare (not safe)) - (##cdr _%e158761158792%_))) - (_%hd158762158795%_ + (##cdr _%e159035159066%_))) + (_%hd159036159069%_ (let () (declare (not safe)) - (##car _%e158761158792%_)))) + (##car _%e159035159066%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158763158797%_)) - (let ((_%e158764158800%_ + (gx#stx-pair? _%tl159037159071%_)) + (let ((_%e159038159074%_ (let () (declare (not safe)) - (gx#stx-e _%tl158763158797%_)))) - (let ((_%tl158766158805%_ + (gx#stx-e _%tl159037159071%_)))) + (let ((_%tl159040159079%_ (let () (declare (not safe)) - (##cdr _%e158764158800%_))) - (_%hd158765158803%_ + (##cdr _%e159038159074%_))) + (_%hd159039159077%_ (let () (declare (not safe)) - (##car _%e158764158800%_)))) + (##car _%e159038159074%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158766158805%_)) - (_%__kont167830167831%_ - _%hd158765158803%_ - _%hd158762158795%_ - _%hd158692158953%_) + (gx#stx-null? _%tl159040159079%_)) + (_%__kont168104168105%_ + _%hd159039159077%_ + _%hd159036159069%_ + _%hd158966159227%_) (let () (declare (not safe)) - (_%g158682158771%_))))) + (_%g158956159045%_))))) (let () (declare (not safe)) - (_%g158682158771%_))))) - (let () (declare (not safe)) (_%g158682158771%_))))))) + (_%g158956159045%_))))) + (let () (declare (not safe)) (_%g158956159045%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158693158955%_)) - (let ((_%e158761158792%_ + _%tl158967159229%_)) + (let ((_%e159035159066%_ (let () (declare (not safe)) (gx#stx-e - _%tl158693158955%_)))) - (let ((_%tl158763158797%_ + _%tl158967159229%_)))) + (let ((_%tl159037159071%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e158761158792%_))) - (_%hd158762158795%_ - (let () (declare (not safe)) (##car _%e158761158792%_)))) + (##cdr _%e159035159066%_))) + (_%hd159036159069%_ + (let () (declare (not safe)) (##car _%e159035159066%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158763158797%_)) - (let ((_%e158764158800%_ + (gx#stx-pair? _%tl159037159071%_)) + (let ((_%e159038159074%_ (let () (declare (not safe)) - (gx#stx-e _%tl158763158797%_)))) - (let ((_%tl158766158805%_ + (gx#stx-e _%tl159037159071%_)))) + (let ((_%tl159040159079%_ (let () (declare (not safe)) - (##cdr _%e158764158800%_))) - (_%hd158765158803%_ + (##cdr _%e159038159074%_))) + (_%hd159039159077%_ (let () (declare (not safe)) - (##car _%e158764158800%_)))) + (##car _%e159038159074%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158766158805%_)) - (_%__kont167830167831%_ - _%hd158765158803%_ - _%hd158762158795%_ - _%hd158692158953%_) + (gx#stx-null? _%tl159040159079%_)) + (_%__kont168104168105%_ + _%hd159039159077%_ + _%hd159036159069%_ + _%hd158966159227%_) (let () (declare (not safe)) - (_%g158682158771%_))))) - (let () (declare (not safe)) (_%g158682158771%_))))) + (_%g158956159045%_))))) + (let () (declare (not safe)) (_%g158956159045%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158682158771%_)))) + (_%g158956159045%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158693158955%_)) - (let ((_%e158761158792%_ + _%tl158967159229%_)) + (let ((_%e159035159066%_ (let () (declare (not safe)) (gx#stx-e - _%tl158693158955%_)))) - (let ((_%tl158763158797%_ + _%tl158967159229%_)))) + (let ((_%tl159037159071%_ (let () (declare (not safe)) - (##cdr _%e158761158792%_))) - (_%hd158762158795%_ + (##cdr _%e159035159066%_))) + (_%hd159036159069%_ (let () (declare (not safe)) - (##car _%e158761158792%_)))) + (##car _%e159035159066%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158763158797%_)) - (let ((_%e158764158800%_ + _%tl159037159071%_)) + (let ((_%e159038159074%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl158763158797%_)))) - (let ((_%tl158766158805%_ + (gx#stx-e _%tl159037159071%_)))) + (let ((_%tl159040159079%_ (let () (declare (not safe)) - (##cdr _%e158764158800%_))) - (_%hd158765158803%_ + (##cdr _%e159038159074%_))) + (_%hd159039159077%_ (let () (declare (not safe)) - (##car _%e158764158800%_)))) + (##car _%e159038159074%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158766158805%_)) - (_%__kont167830167831%_ - _%hd158765158803%_ - _%hd158762158795%_ - _%hd158692158953%_) - (let () (declare (not safe)) (_%g158682158771%_))))) - (let () (declare (not safe)) (_%g158682158771%_))))) + (gx#stx-null? _%tl159040159079%_)) + (_%__kont168104168105%_ + _%hd159039159077%_ + _%hd159036159069%_ + _%hd158966159227%_) + (let () (declare (not safe)) (_%g158956159045%_))))) + (let () (declare (not safe)) (_%g158956159045%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158682158771%_)))))) + (_%g158956159045%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158693158955%_)) - (let ((_%e158761158792%_ + (gx#stx-pair? _%tl158967159229%_)) + (let ((_%e159035159066%_ (let () (declare (not safe)) (gx#stx-e - _%tl158693158955%_)))) - (let ((_%tl158763158797%_ + _%tl158967159229%_)))) + (let ((_%tl159037159071%_ (let () (declare (not safe)) - (##cdr _%e158761158792%_))) - (_%hd158762158795%_ + (##cdr _%e159035159066%_))) + (_%hd159036159069%_ (let () (declare (not safe)) - (##car _%e158761158792%_)))) + (##car _%e159035159066%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158763158797%_)) - (let ((_%e158764158800%_ + _%tl159037159071%_)) + (let ((_%e159038159074%_ (let () (declare (not safe)) (gx#stx-e - _%tl158763158797%_)))) - (let ((_%tl158766158805%_ + _%tl159037159071%_)))) + (let ((_%tl159040159079%_ (let () (declare (not safe)) - (##cdr _%e158764158800%_))) - (_%hd158765158803%_ + (##cdr _%e159038159074%_))) + (_%hd159039159077%_ (let () (declare (not safe)) - (##car _%e158764158800%_)))) + (##car _%e159038159074%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158766158805%_)) - (_%__kont167830167831%_ - _%hd158765158803%_ - _%hd158762158795%_ - _%hd158692158953%_) + _%tl159040159079%_)) + (_%__kont168104168105%_ + _%hd159039159077%_ + _%hd159036159069%_ + _%hd158966159227%_) (let () (declare (not safe)) - (_%g158682158771%_))))) + (_%g158956159045%_))))) (let () (declare (not safe)) - (_%g158682158771%_))))) + (_%g158956159045%_))))) (let () (declare (not safe)) - (_%g158682158771%_)))) + (_%g158956159045%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158693158955%_)) - (let ((_%e158761158792%_ + (gx#stx-pair? _%tl158967159229%_)) + (let ((_%e159035159066%_ (let () (declare (not safe)) - (gx#stx-e _%tl158693158955%_)))) - (let ((_%tl158763158797%_ + (gx#stx-e _%tl158967159229%_)))) + (let ((_%tl159037159071%_ (let () (declare (not safe)) - (##cdr _%e158761158792%_))) - (_%hd158762158795%_ + (##cdr _%e159035159066%_))) + (_%hd159036159069%_ (let () (declare (not safe)) - (##car _%e158761158792%_)))) + (##car _%e159035159066%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158763158797%_)) - (let ((_%e158764158800%_ + _%tl159037159071%_)) + (let ((_%e159038159074%_ (let () (declare (not safe)) (gx#stx-e - _%tl158763158797%_)))) - (let ((_%tl158766158805%_ + _%tl159037159071%_)))) + (let ((_%tl159040159079%_ (let () (declare (not safe)) - (##cdr _%e158764158800%_))) - (_%hd158765158803%_ + (##cdr _%e159038159074%_))) + (_%hd159039159077%_ (let () (declare (not safe)) - (##car _%e158764158800%_)))) + (##car _%e159038159074%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158766158805%_)) - (_%__kont167830167831%_ - _%hd158765158803%_ - _%hd158762158795%_ - _%hd158692158953%_) + _%tl159040159079%_)) + (_%__kont168104168105%_ + _%hd159039159077%_ + _%hd159036159069%_ + _%hd158966159227%_) (let () (declare (not safe)) - (_%g158682158771%_))))) + (_%g158956159045%_))))) (let () (declare (not safe)) - (_%g158682158771%_))))) + (_%g158956159045%_))))) (let () (declare (not safe)) - (_%g158682158771%_)))) + (_%g158956159045%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158693158955%_)) - (let ((_%e158761158792%_ + (gx#stx-pair? _%tl158967159229%_)) + (let ((_%e159035159066%_ (let () (declare (not safe)) - (gx#stx-e _%tl158693158955%_)))) - (let ((_%tl158763158797%_ + (gx#stx-e _%tl158967159229%_)))) + (let ((_%tl159037159071%_ (let () (declare (not safe)) - (##cdr _%e158761158792%_))) - (_%hd158762158795%_ + (##cdr _%e159035159066%_))) + (_%hd159036159069%_ (let () (declare (not safe)) - (##car _%e158761158792%_)))) + (##car _%e159035159066%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158763158797%_)) - (let ((_%e158764158800%_ + (gx#stx-pair? _%tl159037159071%_)) + (let ((_%e159038159074%_ (let () (declare (not safe)) (gx#stx-e - _%tl158763158797%_)))) - (let ((_%tl158766158805%_ + _%tl159037159071%_)))) + (let ((_%tl159040159079%_ (let () (declare (not safe)) - (##cdr _%e158764158800%_))) - (_%hd158765158803%_ + (##cdr _%e159038159074%_))) + (_%hd159039159077%_ (let () (declare (not safe)) - (##car _%e158764158800%_)))) + (##car _%e159038159074%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158766158805%_)) - (_%__kont167830167831%_ - _%hd158765158803%_ - _%hd158762158795%_ - _%hd158692158953%_) + _%tl159040159079%_)) + (_%__kont168104168105%_ + _%hd159039159077%_ + _%hd159036159069%_ + _%hd158966159227%_) (let () (declare (not safe)) - (_%g158682158771%_))))) + (_%g158956159045%_))))) (let () (declare (not safe)) - (_%g158682158771%_))))) + (_%g158956159045%_))))) (let () (declare (not safe)) - (_%g158682158771%_)))))) + (_%g158956159045%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158693158955%_)) - (let ((_%e158761158792%_ + (gx#stx-pair? _%tl158967159229%_)) + (let ((_%e159035159066%_ (let () (declare (not safe)) - (gx#stx-e _%tl158693158955%_)))) - (let ((_%tl158763158797%_ + (gx#stx-e _%tl158967159229%_)))) + (let ((_%tl159037159071%_ (let () (declare (not safe)) - (##cdr _%e158761158792%_))) - (_%hd158762158795%_ + (##cdr _%e159035159066%_))) + (_%hd159036159069%_ (let () (declare (not safe)) - (##car _%e158761158792%_)))) + (##car _%e159035159066%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158763158797%_)) - (let ((_%e158764158800%_ + (gx#stx-pair? _%tl159037159071%_)) + (let ((_%e159038159074%_ (let () (declare (not safe)) - (gx#stx-e _%tl158763158797%_)))) - (let ((_%tl158766158805%_ + (gx#stx-e _%tl159037159071%_)))) + (let ((_%tl159040159079%_ (let () (declare (not safe)) - (##cdr _%e158764158800%_))) - (_%hd158765158803%_ + (##cdr _%e159038159074%_))) + (_%hd159039159077%_ (let () (declare (not safe)) - (##car _%e158764158800%_)))) + (##car _%e159038159074%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158766158805%_)) - (_%__kont167830167831%_ - _%hd158765158803%_ - _%hd158762158795%_ - _%hd158692158953%_) + (gx#stx-null? _%tl159040159079%_)) + (_%__kont168104168105%_ + _%hd159039159077%_ + _%hd159036159069%_ + _%hd158966159227%_) (let () (declare (not safe)) - (_%g158682158771%_))))) + (_%g158956159045%_))))) (let () (declare (not safe)) - (_%g158682158771%_))))) - (let () (declare (not safe)) (_%g158682158771%_)))))) + (_%g158956159045%_))))) + (let () (declare (not safe)) (_%g158956159045%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158693158955%_)) - (let ((_%e158761158792%_ + _%tl158967159229%_)) + (let ((_%e159035159066%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl158693158955%_)))) - (let ((_%tl158763158797%_ + (gx#stx-e _%tl158967159229%_)))) + (let ((_%tl159037159071%_ (let () (declare (not safe)) - (##cdr _%e158761158792%_))) - (_%hd158762158795%_ + (##cdr _%e159035159066%_))) + (_%hd159036159069%_ (let () (declare (not safe)) - (##car _%e158761158792%_)))) + (##car _%e159035159066%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158763158797%_)) - (let ((_%e158764158800%_ + (gx#stx-pair? _%tl159037159071%_)) + (let ((_%e159038159074%_ (let () (declare (not safe)) - (gx#stx-e _%tl158763158797%_)))) - (let ((_%tl158766158805%_ + (gx#stx-e _%tl159037159071%_)))) + (let ((_%tl159040159079%_ (let () (declare (not safe)) - (##cdr _%e158764158800%_))) - (_%hd158765158803%_ + (##cdr _%e159038159074%_))) + (_%hd159039159077%_ (let () (declare (not safe)) - (##car _%e158764158800%_)))) + (##car _%e159038159074%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158766158805%_)) - (_%__kont167830167831%_ - _%hd158765158803%_ - _%hd158762158795%_ - _%hd158692158953%_) + (gx#stx-null? _%tl159040159079%_)) + (_%__kont168104168105%_ + _%hd159039159077%_ + _%hd159036159069%_ + _%hd158966159227%_) (let () (declare (not safe)) - (_%g158682158771%_))))) - (let () (declare (not safe)) (_%g158682158771%_))))) - (let () (declare (not safe)) (_%g158682158771%_)))) + (_%g158956159045%_))))) + (let () (declare (not safe)) (_%g158956159045%_))))) + (let () (declare (not safe)) (_%g158956159045%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158693158955%_)) - (let ((_%e158761158792%_ + _%tl158967159229%_)) + (let ((_%e159035159066%_ (let () (declare (not safe)) (gx#stx-e - _%tl158693158955%_)))) - (let ((_%tl158763158797%_ + _%tl158967159229%_)))) + (let ((_%tl159037159071%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e158761158792%_))) - (_%hd158762158795%_ - (let () (declare (not safe)) (##car _%e158761158792%_)))) + (##cdr _%e159035159066%_))) + (_%hd159036159069%_ + (let () (declare (not safe)) (##car _%e159035159066%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158763158797%_)) - (let ((_%e158764158800%_ + (gx#stx-pair? _%tl159037159071%_)) + (let ((_%e159038159074%_ (let () (declare (not safe)) - (gx#stx-e _%tl158763158797%_)))) - (let ((_%tl158766158805%_ + (gx#stx-e _%tl159037159071%_)))) + (let ((_%tl159040159079%_ (let () (declare (not safe)) - (##cdr _%e158764158800%_))) - (_%hd158765158803%_ + (##cdr _%e159038159074%_))) + (_%hd159039159077%_ (let () (declare (not safe)) - (##car _%e158764158800%_)))) + (##car _%e159038159074%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158766158805%_)) - (_%__kont167830167831%_ - _%hd158765158803%_ - _%hd158762158795%_ - _%hd158692158953%_) + (gx#stx-null? _%tl159040159079%_)) + (_%__kont168104168105%_ + _%hd159039159077%_ + _%hd159036159069%_ + _%hd158966159227%_) (let () (declare (not safe)) - (_%g158682158771%_))))) - (let () (declare (not safe)) (_%g158682158771%_))))) + (_%g158956159045%_))))) + (let () (declare (not safe)) (_%g158956159045%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158682158771%_)))) + (_%g158956159045%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158693158955%_)) - (let ((_%e158761158792%_ + _%tl158967159229%_)) + (let ((_%e159035159066%_ (let () (declare (not safe)) (gx#stx-e - _%tl158693158955%_)))) - (let ((_%tl158763158797%_ + _%tl158967159229%_)))) + (let ((_%tl159037159071%_ (let () (declare (not safe)) - (##cdr _%e158761158792%_))) - (_%hd158762158795%_ + (##cdr _%e159035159066%_))) + (_%hd159036159069%_ (let () (declare (not safe)) - (##car _%e158761158792%_)))) + (##car _%e159035159066%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158763158797%_)) - (let ((_%e158764158800%_ + _%tl159037159071%_)) + (let ((_%e159038159074%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl158763158797%_)))) - (let ((_%tl158766158805%_ + (gx#stx-e _%tl159037159071%_)))) + (let ((_%tl159040159079%_ (let () (declare (not safe)) - (##cdr _%e158764158800%_))) - (_%hd158765158803%_ + (##cdr _%e159038159074%_))) + (_%hd159039159077%_ (let () (declare (not safe)) - (##car _%e158764158800%_)))) + (##car _%e159038159074%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158766158805%_)) - (_%__kont167830167831%_ - _%hd158765158803%_ - _%hd158762158795%_ - _%hd158692158953%_) - (let () (declare (not safe)) (_%g158682158771%_))))) - (let () (declare (not safe)) (_%g158682158771%_))))) + (gx#stx-null? _%tl159040159079%_)) + (_%__kont168104168105%_ + _%hd159039159077%_ + _%hd159036159069%_ + _%hd158966159227%_) + (let () (declare (not safe)) (_%g158956159045%_))))) + (let () (declare (not safe)) (_%g158956159045%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158682158771%_)))))) + (_%g158956159045%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158693158955%_)) - (let ((_%e158761158792%_ + (gx#stx-pair? _%tl158967159229%_)) + (let ((_%e159035159066%_ (let () (declare (not safe)) (gx#stx-e - _%tl158693158955%_)))) - (let ((_%tl158763158797%_ + _%tl158967159229%_)))) + (let ((_%tl159037159071%_ (let () (declare (not safe)) - (##cdr _%e158761158792%_))) - (_%hd158762158795%_ + (##cdr _%e159035159066%_))) + (_%hd159036159069%_ (let () (declare (not safe)) - (##car _%e158761158792%_)))) + (##car _%e159035159066%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158763158797%_)) - (let ((_%e158764158800%_ + _%tl159037159071%_)) + (let ((_%e159038159074%_ (let () (declare (not safe)) (gx#stx-e - _%tl158763158797%_)))) - (let ((_%tl158766158805%_ + _%tl159037159071%_)))) + (let ((_%tl159040159079%_ (let () (declare (not safe)) - (##cdr _%e158764158800%_))) - (_%hd158765158803%_ + (##cdr _%e159038159074%_))) + (_%hd159039159077%_ (let () (declare (not safe)) - (##car _%e158764158800%_)))) + (##car _%e159038159074%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158766158805%_)) - (_%__kont167830167831%_ - _%hd158765158803%_ - _%hd158762158795%_ - _%hd158692158953%_) + _%tl159040159079%_)) + (_%__kont168104168105%_ + _%hd159039159077%_ + _%hd159036159069%_ + _%hd158966159227%_) (let () (declare (not safe)) - (_%g158682158771%_))))) + (_%g158956159045%_))))) (let () (declare (not safe)) - (_%g158682158771%_))))) + (_%g158956159045%_))))) (let () (declare (not safe)) - (_%g158682158771%_)))))) + (_%g158956159045%_)))))) (let () (declare (not safe)) - (_%g158682158771%_))))) - (let () (declare (not safe)) (_%g158682158771%_))))))))) + (_%g158956159045%_))))) + (let () (declare (not safe)) (_%g158956159045%_))))))))) (define gxc#greatest-common-type - (lambda (_%stx158530%_ _%type-a158531%_ _%type-b158532%_) - (letrec ((_%common-e158534%_ - (lambda (_%left158634%_ _%right158635%_) - (let _%loop158637%_ ((_%rest158639%_ _%left158634%_)) - (let* ((_%rest158640158648%_ _%rest158639%_) - (_%else158642158656%_ + (lambda (_%stx158804%_ _%type-a158805%_ _%type-b158806%_) + (letrec ((_%common-e158808%_ + (lambda (_%left158908%_ _%right158909%_) + (let _%loop158911%_ ((_%rest158913%_ _%left158908%_)) + (let* ((_%rest158914158922%_ _%rest158913%_) + (_%else158916158930%_ (lambda () (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158530%_ + _%stx158804%_ 't::t)))) - (_%K158644158662%_ - (lambda (_%rest158659%_ _%klass-name158660%_) - (if (memq _%klass-name158660%_ _%right158635%_) + (_%K158918158936%_ + (lambda (_%rest158933%_ _%klass-name158934%_) + (if (memq _%klass-name158934%_ _%right158909%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158530%_ - _%klass-name158660%_)) - (_%loop158637%_ _%rest158659%_))))) + _%stx158804%_ + _%klass-name158934%_)) + (_%loop158911%_ _%rest158933%_))))) (if (let () (declare (not safe)) - (##pair? _%rest158640158648%_)) - (let ((_%hd158645158665%_ + (##pair? _%rest158914158922%_)) + (let ((_%hd158919158939%_ (let () (declare (not safe)) - (##car _%rest158640158648%_))) - (_%tl158646158667%_ + (##car _%rest158914158922%_))) + (_%tl158920158941%_ (let () (declare (not safe)) - (##cdr _%rest158640158648%_)))) - (let* ((_%klass-name158670%_ _%hd158645158665%_) - (_%rest158672%_ _%tl158646158667%_)) - (_%K158644158662%_ - _%rest158672%_ - _%klass-name158670%_))) - (_%else158642158656%_)))))) - (_%common-tail158535%_ - (lambda (_%precedence-list-a158554%_ - _%precedence-list-b158555%_) - (let* ((_%rev-precedence-list-a158557%_ - (reverse _%precedence-list-a158554%_)) - (_%rev-precedence-list-b158559%_ - (reverse _%precedence-list-b158555%_))) - (let _%loop158562%_ ((_%rest-a158564%_ - _%rev-precedence-list-a158557%_) - (_%rest-b158565%_ - _%rev-precedence-list-b158559%_) - (_%result158566%_ '#f)) - (let* ((_%rest-a158567158575%_ _%rest-a158564%_) - (_%else158569158583%_ + (##cdr _%rest158914158922%_)))) + (let* ((_%klass-name158944%_ _%hd158919158939%_) + (_%rest158946%_ _%tl158920158941%_)) + (_%K158918158936%_ + _%rest158946%_ + _%klass-name158944%_))) + (_%else158916158930%_)))))) + (_%common-tail158809%_ + (lambda (_%precedence-list-a158828%_ + _%precedence-list-b158829%_) + (let* ((_%rev-precedence-list-a158831%_ + (reverse _%precedence-list-a158828%_)) + (_%rev-precedence-list-b158833%_ + (reverse _%precedence-list-b158829%_))) + (let _%loop158836%_ ((_%rest-a158838%_ + _%rev-precedence-list-a158831%_) + (_%rest-b158839%_ + _%rev-precedence-list-b158833%_) + (_%result158840%_ '#f)) + (let* ((_%rest-a158841158849%_ _%rest-a158838%_) + (_%else158843158857%_ (lambda () - (if _%result158566%_ + (if _%result158840%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158530%_ - _%result158566%_)) + _%stx158804%_ + _%result158840%_)) '#f))) - (_%K158571158622%_ - (lambda (_%rest-a158586%_ _%super-a158587%_) - (let* ((_%rest-b158588158596%_ - _%rest-b158565%_) - (_%else158590158604%_ + (_%K158845158896%_ + (lambda (_%rest-a158860%_ _%super-a158861%_) + (let* ((_%rest-b158862158870%_ + _%rest-b158839%_) + (_%else158864158878%_ (lambda () - (if _%result158566%_ + (if _%result158840%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158530%_ - _%result158566%_)) + _%stx158804%_ + _%result158840%_)) '#f))) - (_%K158592158610%_ - (lambda (_%rest-b158607%_ - _%super-b158608%_) - (if (eq? _%super-a158587%_ - _%super-b158608%_) - (_%loop158562%_ - _%rest-a158586%_ - _%rest-b158607%_ - _%super-a158587%_) - (if _%result158566%_ + (_%K158866158884%_ + (lambda (_%rest-b158881%_ + _%super-b158882%_) + (if (eq? _%super-a158861%_ + _%super-b158882%_) + (_%loop158836%_ + _%rest-a158860%_ + _%rest-b158881%_ + _%super-a158861%_) + (if _%result158840%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158530%_ - _%result158566%_)) + _%stx158804%_ + _%result158840%_)) '#f))))) (if (let () (declare (not safe)) - (##pair? _%rest-b158588158596%_)) - (let ((_%hd158593158613%_ + (##pair? _%rest-b158862158870%_)) + (let ((_%hd158867158887%_ (let () (declare (not safe)) - (##car _%rest-b158588158596%_))) - (_%tl158594158615%_ + (##car _%rest-b158862158870%_))) + (_%tl158868158889%_ (let () (declare (not safe)) - (##cdr _%rest-b158588158596%_)))) - (let* ((_%super-b158618%_ - _%hd158593158613%_) - (_%rest-b158620%_ - _%tl158594158615%_)) - (_%K158592158610%_ - _%rest-b158620%_ - _%super-b158618%_))) - (_%else158590158604%_)))))) + (##cdr _%rest-b158862158870%_)))) + (let* ((_%super-b158892%_ + _%hd158867158887%_) + (_%rest-b158894%_ + _%tl158868158889%_)) + (_%K158866158884%_ + _%rest-b158894%_ + _%super-b158892%_))) + (_%else158864158878%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest-a158567158575%_)) - (let ((_%hd158572158625%_ + (##pair? _%rest-a158841158849%_)) + (let ((_%hd158846158899%_ (let () (declare (not safe)) - (##car _%rest-a158567158575%_))) - (_%tl158573158627%_ + (##car _%rest-a158841158849%_))) + (_%tl158847158901%_ (let () (declare (not safe)) - (##cdr _%rest-a158567158575%_)))) - (let* ((_%super-a158630%_ _%hd158572158625%_) - (_%rest-a158632%_ _%tl158573158627%_)) - (_%K158571158622%_ - _%rest-a158632%_ - _%super-a158630%_))) - (_%else158569158583%_)))))))) - (if (or (not _%type-a158531%_) (not _%type-b158532%_)) + (##cdr _%rest-a158841158849%_)))) + (let* ((_%super-a158904%_ _%hd158846158899%_) + (_%rest-a158906%_ _%tl158847158901%_)) + (_%K158845158896%_ + _%rest-a158906%_ + _%super-a158904%_))) + (_%else158843158857%_)))))))) + (if (or (not _%type-a158805%_) (not _%type-b158806%_)) (let () (declare (not safe)) - (gxc#optimizer-resolve-class _%stx158530%_ 't::t)) + (gxc#optimizer-resolve-class _%stx158804%_ 't::t)) (if (let () (declare (not safe)) - (gxc#!type-subtype? _%type-a158531%_ _%type-b158532%_)) - _%type-b158532%_ + (gxc#!type-subtype? _%type-a158805%_ _%type-b158806%_)) + _%type-b158806%_ (if (let () (declare (not safe)) - (gxc#!type-subtype? _%type-b158532%_ _%type-a158531%_)) - _%type-a158531%_ + (gxc#!type-subtype? _%type-b158806%_ _%type-a158805%_)) + _%type-a158805%_ (if (and (let () (declare (not safe)) (##structure-instance-of? - _%type-a158531%_ + _%type-a158805%_ 'gxc#!class::t)) (let () (declare (not safe)) (##structure-instance-of? - _%type-b158532%_ + _%type-b158806%_ 'gxc#!class::t))) - (let* ((_%precedence-list-a158544%_ + (let* ((_%precedence-list-a158818%_ (##structure-ref - _%type-a158531%_ + _%type-a158805%_ '3 gxc#!class::t '#f)) - (_%precedence-list-b158546%_ + (_%precedence-list-b158820%_ (##structure-ref - _%type-b158532%_ + _%type-b158806%_ '3 gxc#!class::t '#f))) - (if (> (length _%precedence-list-a158544%_) - (length _%precedence-list-b158546%_)) - (_%common-e158534%_ - _%precedence-list-b158546%_ - _%precedence-list-a158544%_) - (if (< (length _%precedence-list-a158544%_) - (length _%precedence-list-b158546%_)) - (_%common-e158534%_ - _%precedence-list-a158544%_ - _%precedence-list-b158546%_) - (_%common-tail158535%_ - _%precedence-list-a158544%_ - _%precedence-list-b158546%_)))) + (if (> (length _%precedence-list-a158818%_) + (length _%precedence-list-b158820%_)) + (_%common-e158808%_ + _%precedence-list-b158820%_ + _%precedence-list-a158818%_) + (if (< (length _%precedence-list-a158818%_) + (length _%precedence-list-b158820%_)) + (_%common-e158808%_ + _%precedence-list-a158818%_ + _%precedence-list-b158820%_) + (_%common-tail158809%_ + _%precedence-list-a158818%_ + _%precedence-list-b158820%_)))) (if (and (eq? (##structure-ref - _%type-a158531%_ + _%type-a158805%_ '1 gxc#!type::t '#f) 'procedure) (eq? (##structure-ref - _%type-b158532%_ + _%type-b158806%_ '1 gxc#!type::t '#f) @@ -14589,3419 +14589,3419 @@ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158530%_ + _%stx158804%_ 'procedure::t)) '#f)))))))) (define gxc#basic-expression-type-quote% - (lambda (_%self158442%_ _%stx158443%_) - (let* ((_%g158445158458%_ - (lambda (_%g158446158455%_) + (lambda (_%self158716%_ _%stx158717%_) + (let* ((_%g158719158732%_ + (lambda (_%g158720158729%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g158446158455%_)))) - (_%g158444158527%_ - (lambda (_%g158446158461%_) + _%g158720158729%_)))) + (_%g158718158801%_ + (lambda (_%g158720158735%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g158446158461%_)) - (let ((_%e158448158463%_ + (gx#stx-pair? _%g158720158735%_)) + (let ((_%e158722158737%_ (let () (declare (not safe)) - (gx#stx-e _%g158446158461%_)))) - (let ((_%hd158449158466%_ + (gx#stx-e _%g158720158735%_)))) + (let ((_%hd158723158740%_ (let () (declare (not safe)) - (##car _%e158448158463%_))) - (_%tl158450158468%_ + (##car _%e158722158737%_))) + (_%tl158724158742%_ (let () (declare (not safe)) - (##cdr _%e158448158463%_)))) + (##cdr _%e158722158737%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158450158468%_)) - (let ((_%e158451158471%_ + (gx#stx-pair? _%tl158724158742%_)) + (let ((_%e158725158745%_ (let () (declare (not safe)) - (gx#stx-e _%tl158450158468%_)))) - (let ((_%hd158452158474%_ + (gx#stx-e _%tl158724158742%_)))) + (let ((_%hd158726158748%_ (let () (declare (not safe)) - (##car _%e158451158471%_))) - (_%tl158453158476%_ + (##car _%e158725158745%_))) + (_%tl158727158750%_ (let () (declare (not safe)) - (##cdr _%e158451158471%_)))) + (##cdr _%e158725158745%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158453158476%_)) - ((lambda (_%L158479%_) - (let ((_%obj158491%_ + (gx#stx-null? _%tl158727158750%_)) + ((lambda (_%L158753%_) + (let ((_%obj158765%_ (let () (declare (not safe)) - (gx#stx-e _%L158479%_)))) + (gx#stx-e _%L158753%_)))) (if (let () (declare (not safe)) - (immediate? _%obj158491%_)) - (if (char? _%obj158491%_) + (immediate? _%obj158765%_)) + (if (char? _%obj158765%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158443%_ + _%stx158717%_ 'char::t)) - (if (eq? _%obj158491%_ '#t) + (if (eq? _%obj158765%_ '#t) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158443%_ + _%stx158717%_ 'true::t)) - (if (not _%obj158491%_) + (if (not _%obj158765%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158443%_ + _%stx158717%_ 'false::t)) - (if (eq? _%obj158491%_ + (if (eq? _%obj158765%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!void) (let () (declare (not safe)) - (gxc#optimizer-resolve-class _%stx158443%_ 'void::t)) - (if (eof-object? _%obj158491%_) + (gxc#optimizer-resolve-class _%stx158717%_ 'void::t)) + (if (eof-object? _%obj158765%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158443%_ + _%stx158717%_ 'eof::t)) - (if (fixnum? _%obj158491%_) + (if (fixnum? _%obj158765%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158443%_ + _%stx158717%_ 'fixnum::t)) - (if (null? _%obj158491%_) + (if (null? _%obj158765%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158443%_ + _%stx158717%_ 'null::t)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158443%_ + _%stx158717%_ 'special::t))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (number? _%obj158491%_) - (if (flonum? _%obj158491%_) + (if (number? _%obj158765%_) + (if (flonum? _%obj158765%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158443%_ + _%stx158717%_ 'flonum::t)) (if (let () (declare (not safe)) (##bignum? - _%obj158491%_)) + _%obj158765%_)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158443%_ + _%stx158717%_ 'bignum::t)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##ratnum? _%obj158491%_)) + (##ratnum? _%obj158765%_)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158443%_ + _%stx158717%_ 'ratnum::t)) (if (let () (declare (not safe)) - (##cpxnum? _%obj158491%_)) + (##cpxnum? _%obj158765%_)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158443%_ + _%stx158717%_ 'cpxnum::t)) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (symbol? _%obj158491%_) + (if (symbol? _%obj158765%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158443%_ + _%stx158717%_ 'symbol::t)) (if (keyword? - _%obj158491%_) + _%obj158765%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158443%_ + _%stx158717%_ 'keyword::t)) - (if (pair? _%obj158491%_) + (if (pair? _%obj158765%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#optimizer-resolve-class _%stx158443%_ 'pair::t)) - (if (sequence? _%obj158491%_) - (if (vector? _%obj158491%_) + (gxc#optimizer-resolve-class _%stx158717%_ 'pair::t)) + (if (sequence? _%obj158765%_) + (if (vector? _%obj158765%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158443%_ + _%stx158717%_ 'vector::t)) - (if (string? _%obj158491%_) + (if (string? _%obj158765%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158443%_ + _%stx158717%_ 'string::t)) - (if (u8vector? _%obj158491%_) + (if (u8vector? _%obj158765%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158443%_ + _%stx158717%_ 'u8vector::t)) - (if (s8vector? _%obj158491%_) + (if (s8vector? _%obj158765%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158443%_ + _%stx158717%_ 's8vector::t)) - (if (u16vector? _%obj158491%_) + (if (u16vector? _%obj158765%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158443%_ + _%stx158717%_ 'u16vector::t)) - (if (s16vector? _%obj158491%_) + (if (s16vector? _%obj158765%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158443%_ + _%stx158717%_ 's16vector::t)) (if (u32vector? - _%obj158491%_) + _%obj158765%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158443%_ + _%stx158717%_ 'u32vector::t)) (if (s32vector? - _%obj158491%_) + _%obj158765%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158443%_ + _%stx158717%_ 's32vector::t)) (if (u64vector? - _%obj158491%_) + _%obj158765%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158443%_ + _%stx158717%_ 'u64vector::t)) - (if (s64vector? _%obj158491%_) + (if (s64vector? _%obj158765%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158443%_ + _%stx158717%_ 's64vector::t)) - (if (f32vector? _%obj158491%_) + (if (f32vector? _%obj158765%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158443%_ + _%stx158717%_ 'f32vector::t)) - (if (f64vector? _%obj158491%_) + (if (f64vector? _%obj158765%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158443%_ + _%stx158717%_ 'f64vector::t)) '#f)))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (box? _%obj158491%_) + (if (box? _%obj158765%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx158443%_ + _%stx158717%_ 'box::t)) '#f))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd158452158474%_) - (_%g158445158458%_ _%g158446158461%_)))) - (_%g158445158458%_ _%g158446158461%_)))) - (_%g158445158458%_ _%g158446158461%_))))) - (_%g158444158527%_ _%stx158443%_)))) + _%hd158726158748%_) + (_%g158719158732%_ _%g158720158735%_)))) + (_%g158719158732%_ _%g158720158735%_)))) + (_%g158719158732%_ _%g158720158735%_))))) + (_%g158718158801%_ _%stx158717%_)))) (define gxc#dispatch-lambda-form? - (lambda (_%form157676%_) - (let* ((_%__stx168014168015%_ _%form157676%_) - (_%g157681157838%_ + (lambda (_%form157950%_) + (let* ((_%__stx168288168289%_ _%form157950%_) + (_%g157955158112%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168014168015%_))))) - (let ((_%__kont168016168017%_ - (lambda (_%L158362%_ _%L158363%_ _%L158364%_) '#t)) - (_%__kont168022168023%_ - (lambda (_%L158150%_ - _%L158151%_ - _%L158152%_ - _%L158153%_ - _%L158154%_ - _%L158155%_) + _%__stx168288168289%_))))) + (let ((_%__kont168290168291%_ + (lambda (_%L158636%_ _%L158637%_ _%L158638%_) '#t)) + (_%__kont168296168297%_ + (lambda (_%L158424%_ + _%L158425%_ + _%L158426%_ + _%L158427%_ + _%L158428%_ + _%L158429%_) '#t)) - (_%__kont168028168029%_ - (lambda (_%L157946%_ _%L157947%_ _%L157948%_ _%L157949%_) + (_%__kont168302168303%_ + (lambda (_%L158220%_ _%L158221%_ _%L158222%_ _%L158223%_) '#t)) - (_%__kont168030168031%_ (lambda () '#f))) - (let* ((_%__match168155168156%_ - (lambda (_%e157798157850%_ - _%hd157799157853%_ - _%tl157800157855%_ - _%e157801157858%_ - _%hd157802157861%_ - _%tl157803157863%_ - _%e157804157866%_ - _%hd157805157869%_ - _%tl157806157871%_ - _%e157807157874%_ - _%hd157808157877%_ - _%tl157809157879%_ - _%e157810157882%_ - _%hd157811157885%_ - _%tl157812157887%_ - _%e157813157890%_ - _%hd157814157893%_ - _%tl157815157895%_ - _%e157816157898%_ - _%hd157817157901%_ - _%tl157818157903%_ - _%e157819157906%_ - _%hd157820157909%_ - _%tl157821157911%_ - _%e157822157914%_ - _%hd157823157917%_ - _%tl157824157919%_ - _%e157825157922%_ - _%hd157826157925%_ - _%tl157827157927%_ - _%e157828157930%_ - _%hd157829157933%_ - _%tl157830157935%_ - _%e157831157938%_ - _%hd157832157941%_ - _%tl157833157943%_) - (let ((_%L157946%_ _%hd157832157941%_) - (_%L157947%_ _%hd157823157917%_) - (_%L157948%_ _%hd157814157893%_) - (_%L157949%_ _%hd157799157853%_)) + (_%__kont168304168305%_ (lambda () '#f))) + (let* ((_%__match168429168430%_ + (lambda (_%e158072158124%_ + _%hd158073158127%_ + _%tl158074158129%_ + _%e158075158132%_ + _%hd158076158135%_ + _%tl158077158137%_ + _%e158078158140%_ + _%hd158079158143%_ + _%tl158080158145%_ + _%e158081158148%_ + _%hd158082158151%_ + _%tl158083158153%_ + _%e158084158156%_ + _%hd158085158159%_ + _%tl158086158161%_ + _%e158087158164%_ + _%hd158088158167%_ + _%tl158089158169%_ + _%e158090158172%_ + _%hd158091158175%_ + _%tl158092158177%_ + _%e158093158180%_ + _%hd158094158183%_ + _%tl158095158185%_ + _%e158096158188%_ + _%hd158097158191%_ + _%tl158098158193%_ + _%e158099158196%_ + _%hd158100158199%_ + _%tl158101158201%_ + _%e158102158204%_ + _%hd158103158207%_ + _%tl158104158209%_ + _%e158105158212%_ + _%hd158106158215%_ + _%tl158107158217%_) + (let ((_%L158220%_ _%hd158106158215%_) + (_%L158221%_ _%hd158097158191%_) + (_%L158222%_ _%hd158088158167%_) + (_%L158223%_ _%hd158073158127%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L157949%_)) + (gx#identifier? _%L158223%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L157948%_ + _%L158222%_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _%L157949%_ - _%L157946%_)) + _%L158223%_ + _%L158220%_)) (not (let () (declare (not safe)) (gx#free-identifier=? - _%L157947%_ - _%L157949%_)))) - (_%__kont168028168029%_ - _%L157946%_ - _%L157947%_ - _%L157948%_ - _%L157949%_) - (_%__kont168030168031%_))))) - (_%__match168127168128%_ - (lambda (_%e157798157850%_ - _%hd157799157853%_ - _%tl157800157855%_ - _%e157801157858%_ - _%hd157802157861%_ - _%tl157803157863%_ - _%e157804157866%_ - _%hd157805157869%_ - _%tl157806157871%_ - _%e157807157874%_ - _%hd157808157877%_ - _%tl157809157879%_ - _%e157810157882%_ - _%hd157811157885%_ - _%tl157812157887%_ - _%e157813157890%_ - _%hd157814157893%_ - _%tl157815157895%_ - _%e157816157898%_ - _%hd157817157901%_ - _%tl157818157903%_ - _%e157819157906%_ - _%hd157820157909%_ - _%tl157821157911%_ - _%e157822157914%_ - _%hd157823157917%_ - _%tl157824157919%_) + _%L158221%_ + _%L158223%_)))) + (_%__kont168302168303%_ + _%L158220%_ + _%L158221%_ + _%L158222%_ + _%L158223%_) + (_%__kont168304168305%_))))) + (_%__match168401168402%_ + (lambda (_%e158072158124%_ + _%hd158073158127%_ + _%tl158074158129%_ + _%e158075158132%_ + _%hd158076158135%_ + _%tl158077158137%_ + _%e158078158140%_ + _%hd158079158143%_ + _%tl158080158145%_ + _%e158081158148%_ + _%hd158082158151%_ + _%tl158083158153%_ + _%e158084158156%_ + _%hd158085158159%_ + _%tl158086158161%_ + _%e158087158164%_ + _%hd158088158167%_ + _%tl158089158169%_ + _%e158090158172%_ + _%hd158091158175%_ + _%tl158092158177%_ + _%e158093158180%_ + _%hd158094158183%_ + _%tl158095158185%_ + _%e158096158188%_ + _%hd158097158191%_ + _%tl158098158193%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157818157903%_)) - (let ((_%e157825157922%_ + (gx#stx-pair? _%tl158092158177%_)) + (let ((_%e158099158196%_ (let () (declare (not safe)) - (gx#stx-e _%tl157818157903%_)))) - (let ((_%tl157827157927%_ + (gx#stx-e _%tl158092158177%_)))) + (let ((_%tl158101158201%_ (let () (declare (not safe)) - (##cdr _%e157825157922%_))) - (_%hd157826157925%_ + (##cdr _%e158099158196%_))) + (_%hd158100158199%_ (let () (declare (not safe)) - (##car _%e157825157922%_)))) + (##car _%e158099158196%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157826157925%_)) - (let ((_%e157828157930%_ + (gx#stx-pair? _%hd158100158199%_)) + (let ((_%e158102158204%_ (let () (declare (not safe)) - (gx#stx-e _%hd157826157925%_)))) - (let ((_%tl157830157935%_ + (gx#stx-e _%hd158100158199%_)))) + (let ((_%tl158104158209%_ (let () (declare (not safe)) - (##cdr _%e157828157930%_))) - (_%hd157829157933%_ + (##cdr _%e158102158204%_))) + (_%hd158103158207%_ (let () (declare (not safe)) - (##car _%e157828157930%_)))) + (##car _%e158102158204%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157829157933%_)) + _%hd158103158207%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157829157933%_)) + _%hd158103158207%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157830157935%_)) - (let ((_%e157831157938%_ + _%tl158104158209%_)) + (let ((_%e158105158212%_ (let () (declare (not safe)) (gx#stx-e - _%tl157830157935%_)))) - (let ((_%tl157833157943%_ + _%tl158104158209%_)))) + (let ((_%tl158107158217%_ (let () (declare (not safe)) - (##cdr _%e157831157938%_))) - (_%hd157832157941%_ + (##cdr _%e158105158212%_))) + (_%hd158106158215%_ (let () (declare (not safe)) - (##car _%e157831157938%_)))) + (##car _%e158105158212%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157833157943%_)) + _%tl158107158217%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl157827157927%_)) + (gx#stx-null? _%tl158101158201%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157803157863%_)) - (_%__match168155168156%_ - _%e157798157850%_ - _%hd157799157853%_ - _%tl157800157855%_ - _%e157801157858%_ - _%hd157802157861%_ - _%tl157803157863%_ - _%e157804157866%_ - _%hd157805157869%_ - _%tl157806157871%_ - _%e157807157874%_ - _%hd157808157877%_ - _%tl157809157879%_ - _%e157810157882%_ - _%hd157811157885%_ - _%tl157812157887%_ - _%e157813157890%_ - _%hd157814157893%_ - _%tl157815157895%_ - _%e157816157898%_ - _%hd157817157901%_ - _%tl157818157903%_ - _%e157819157906%_ - _%hd157820157909%_ - _%tl157821157911%_ - _%e157822157914%_ - _%hd157823157917%_ - _%tl157824157919%_ - _%e157825157922%_ - _%hd157826157925%_ - _%tl157827157927%_ - _%e157828157930%_ - _%hd157829157933%_ - _%tl157830157935%_ - _%e157831157938%_ - _%hd157832157941%_ - _%tl157833157943%_) - (_%__kont168030168031%_)) - (_%__kont168030168031%_)) - (_%__kont168030168031%_)))) + (gx#stx-null? _%tl158077158137%_)) + (_%__match168429168430%_ + _%e158072158124%_ + _%hd158073158127%_ + _%tl158074158129%_ + _%e158075158132%_ + _%hd158076158135%_ + _%tl158077158137%_ + _%e158078158140%_ + _%hd158079158143%_ + _%tl158080158145%_ + _%e158081158148%_ + _%hd158082158151%_ + _%tl158083158153%_ + _%e158084158156%_ + _%hd158085158159%_ + _%tl158086158161%_ + _%e158087158164%_ + _%hd158088158167%_ + _%tl158089158169%_ + _%e158090158172%_ + _%hd158091158175%_ + _%tl158092158177%_ + _%e158093158180%_ + _%hd158094158183%_ + _%tl158095158185%_ + _%e158096158188%_ + _%hd158097158191%_ + _%tl158098158193%_ + _%e158099158196%_ + _%hd158100158199%_ + _%tl158101158201%_ + _%e158102158204%_ + _%hd158103158207%_ + _%tl158104158209%_ + _%e158105158212%_ + _%hd158106158215%_ + _%tl158107158217%_) + (_%__kont168304168305%_)) + (_%__kont168304168305%_)) + (_%__kont168304168305%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168030168031%_)) - (_%__kont168030168031%_)) - (_%__kont168030168031%_)))) - (_%__kont168030168031%_)))) - (_%__kont168030168031%_)))) - (_%__match168057168058%_ - (lambda (_%e157734157990%_ - _%hd157735157993%_ - _%tl157736157995%_ - _%__splice168024168025%_ - _%target157737157998%_ - _%tl157739158000%_) - (letrec ((_%loop157740158003%_ - (lambda (_%hd157738158006%_ - _%arg157744158008%_) + (_%__kont168304168305%_)) + (_%__kont168304168305%_)) + (_%__kont168304168305%_)))) + (_%__kont168304168305%_)))) + (_%__kont168304168305%_)))) + (_%__match168331168332%_ + (lambda (_%e158008158264%_ + _%hd158009158267%_ + _%tl158010158269%_ + _%__splice168298168299%_ + _%target158011158272%_ + _%tl158013158274%_) + (letrec ((_%loop158014158277%_ + (lambda (_%hd158012158280%_ + _%arg158018158282%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157738158006%_)) - (let ((_%e157741158011%_ + (gx#stx-pair? _%hd158012158280%_)) + (let ((_%e158015158285%_ (let () (declare (not safe)) - (gx#stx-e _%hd157738158006%_)))) - (let ((_%lp-tl157743158016%_ + (gx#stx-e _%hd158012158280%_)))) + (let ((_%lp-tl158017158290%_ (let () (declare (not safe)) - (##cdr _%e157741158011%_))) - (_%lp-hd157742158014%_ + (##cdr _%e158015158285%_))) + (_%lp-hd158016158288%_ (let () (declare (not safe)) - (##car _%e157741158011%_)))) - (_%loop157740158003%_ - _%lp-tl157743158016%_ - (cons _%lp-hd157742158014%_ - _%arg157744158008%_)))) - (let ((_%arg157745158019%_ - (reverse _%arg157744158008%_))) + (##car _%e158015158285%_)))) + (_%loop158014158277%_ + _%lp-tl158017158290%_ + (cons _%lp-hd158016158288%_ + _%arg158018158282%_)))) + (let ((_%arg158019158293%_ + (reverse _%arg158018158282%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157736157995%_)) - (let ((_%e157746158022%_ + _%tl158010158269%_)) + (let ((_%e158020158296%_ (let () (declare (not safe)) (gx#stx-e - _%tl157736157995%_)))) - (let ((_%tl157748158027%_ + _%tl158010158269%_)))) + (let ((_%tl158022158301%_ (let () (declare (not safe)) - (##cdr _%e157746158022%_))) - (_%hd157747158025%_ + (##cdr _%e158020158296%_))) + (_%hd158021158299%_ (let () (declare (not safe)) - (##car _%e157746158022%_)))) + (##car _%e158020158296%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157747158025%_)) - (let ((_%e157749158030%_ + _%hd158021158299%_)) + (let ((_%e158023158304%_ (let () (declare (not safe)) (gx#stx-e - _%hd157747158025%_)))) - (let ((_%tl157751158035%_ + _%hd158021158299%_)))) + (let ((_%tl158025158309%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157749158030%_))) - (_%hd157750158033%_ - (let () (declare (not safe)) (##car _%e157749158030%_)))) + (##cdr _%e158023158304%_))) + (_%hd158024158307%_ + (let () (declare (not safe)) (##car _%e158023158304%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157750158033%_)) + (gx#identifier? _%hd158024158307%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd157750158033%_)) + (gx#stx-eq? '%#call _%hd158024158307%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157751158035%_)) - (let ((_%e157752158038%_ + (gx#stx-pair? _%tl158025158309%_)) + (let ((_%e158026158312%_ (let () (declare (not safe)) - (gx#stx-e _%tl157751158035%_)))) - (let ((_%tl157754158043%_ + (gx#stx-e _%tl158025158309%_)))) + (let ((_%tl158028158317%_ (let () (declare (not safe)) - (##cdr _%e157752158038%_))) - (_%hd157753158041%_ + (##cdr _%e158026158312%_))) + (_%hd158027158315%_ (let () (declare (not safe)) - (##car _%e157752158038%_)))) + (##car _%e158026158312%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157753158041%_)) - (let ((_%e157755158046%_ + (gx#stx-pair? _%hd158027158315%_)) + (let ((_%e158029158320%_ (let () (declare (not safe)) - (gx#stx-e _%hd157753158041%_)))) - (let ((_%tl157757158051%_ + (gx#stx-e _%hd158027158315%_)))) + (let ((_%tl158031158325%_ (let () (declare (not safe)) - (##cdr _%e157755158046%_))) - (_%hd157756158049%_ + (##cdr _%e158029158320%_))) + (_%hd158030158323%_ (let () (declare (not safe)) - (##car _%e157755158046%_)))) + (##car _%e158029158320%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157756158049%_)) + _%hd158030158323%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157756158049%_)) + _%hd158030158323%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157757158051%_)) - (let ((_%e157758158054%_ + _%tl158031158325%_)) + (let ((_%e158032158328%_ (let () (declare (not safe)) (gx#stx-e - _%tl157757158051%_)))) - (let ((_%tl157760158059%_ + _%tl158031158325%_)))) + (let ((_%tl158034158333%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157758158054%_))) - (_%hd157759158057%_ - (let () (declare (not safe)) (##car _%e157758158054%_)))) + (##cdr _%e158032158328%_))) + (_%hd158033158331%_ + (let () (declare (not safe)) (##car _%e158032158328%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157760158059%_)) + (gx#stx-null? _%tl158034158333%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157754158043%_)) - (let ((_%e157761158062%_ + (gx#stx-pair? _%tl158028158317%_)) + (let ((_%e158035158336%_ (let () (declare (not safe)) - (gx#stx-e _%tl157754158043%_)))) - (let ((_%tl157763158067%_ + (gx#stx-e _%tl158028158317%_)))) + (let ((_%tl158037158341%_ (let () (declare (not safe)) - (##cdr _%e157761158062%_))) - (_%hd157762158065%_ + (##cdr _%e158035158336%_))) + (_%hd158036158339%_ (let () (declare (not safe)) - (##car _%e157761158062%_)))) + (##car _%e158035158336%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157762158065%_)) - (let ((_%e157764158070%_ + (gx#stx-pair? _%hd158036158339%_)) + (let ((_%e158038158344%_ (let () (declare (not safe)) - (gx#stx-e _%hd157762158065%_)))) - (let ((_%tl157766158075%_ + (gx#stx-e _%hd158036158339%_)))) + (let ((_%tl158040158349%_ (let () (declare (not safe)) - (##cdr _%e157764158070%_))) - (_%hd157765158073%_ + (##cdr _%e158038158344%_))) + (_%hd158039158347%_ (let () (declare (not safe)) - (##car _%e157764158070%_)))) + (##car _%e158038158344%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157765158073%_)) + (gx#identifier? _%hd158039158347%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157765158073%_)) + _%hd158039158347%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157766158075%_)) - (let ((_%e157767158078%_ + _%tl158040158349%_)) + (let ((_%e158041158352%_ (let () (declare (not safe)) (gx#stx-e - _%tl157766158075%_)))) - (let ((_%tl157769158083%_ + _%tl158040158349%_)))) + (let ((_%tl158043158357%_ (let () (declare (not safe)) - (##cdr _%e157767158078%_))) - (_%hd157768158081%_ + (##cdr _%e158041158352%_))) + (_%hd158042158355%_ (let () (declare (not safe)) - (##car _%e157767158078%_)))) + (##car _%e158041158352%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157769158083%_)) + _%tl158043158357%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl157763158067%_)) - (if (let ((__tmp169643 + _%tl158037158341%_)) + (if (let ((__tmp169917 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-length _%tl157763158067%_)))) + (gx#stx-length _%tl158037158341%_)))) (declare (not safe)) - (##fx>= __tmp169643 '1)) - (let ((_%__splice168026168027%_ + (##fx>= __tmp169917 '1)) + (let ((_%__splice168300168301%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl157763158067%_ + _%tl158037158341%_ '1)))) - (let ((_%tl157772158088%_ + (let ((_%tl158046158362%_ (let () (declare (not safe)) - (##vector-ref _%__splice168026168027%_ '1))) - (_%target157770158086%_ + (##vector-ref _%__splice168300168301%_ '1))) + (_%target158044158360%_ (let () (declare (not safe)) (##vector-ref - _%__splice168026168027%_ + _%__splice168300168301%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157772158088%_)) - (let ((_%e157779158091%_ + (gx#stx-pair? _%tl158046158362%_)) + (let ((_%e158053158365%_ (let () (declare (not safe)) - (gx#stx-e _%tl157772158088%_)))) - (let ((_%tl157781158096%_ + (gx#stx-e _%tl158046158362%_)))) + (let ((_%tl158055158370%_ (let () (declare (not safe)) - (##cdr _%e157779158091%_))) - (_%hd157780158094%_ + (##cdr _%e158053158365%_))) + (_%hd158054158368%_ (let () (declare (not safe)) - (##car _%e157779158091%_)))) + (##car _%e158053158365%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157780158094%_)) - (let ((_%e157782158099%_ + (gx#stx-pair? _%hd158054158368%_)) + (let ((_%e158056158373%_ (let () (declare (not safe)) (gx#stx-e - _%hd157780158094%_)))) - (let ((_%tl157784158104%_ + _%hd158054158368%_)))) + (let ((_%tl158058158378%_ (let () (declare (not safe)) - (##cdr _%e157782158099%_))) - (_%hd157783158102%_ + (##cdr _%e158056158373%_))) + (_%hd158057158376%_ (let () (declare (not safe)) - (##car _%e157782158099%_)))) + (##car _%e158056158373%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157783158102%_)) + _%hd158057158376%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157783158102%_)) + _%hd158057158376%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157784158104%_)) - (let ((_%e157785158107%_ + _%tl158058158378%_)) + (let ((_%e158059158381%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl157784158104%_)))) - (let ((_%tl157787158112%_ + (gx#stx-e _%tl158058158378%_)))) + (let ((_%tl158061158386%_ (let () (declare (not safe)) - (##cdr _%e157785158107%_))) - (_%hd157786158110%_ + (##cdr _%e158059158381%_))) + (_%hd158060158384%_ (let () (declare (not safe)) - (##car _%e157785158107%_)))) + (##car _%e158059158381%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157787158112%_)) + (gx#stx-null? _%tl158061158386%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157781158096%_)) - (letrec ((_%loop157773158115%_ - (lambda (_%hd157771158118%_ - _%xarg157777158120%_) + (gx#stx-null? _%tl158055158370%_)) + (letrec ((_%loop158047158389%_ + (lambda (_%hd158045158392%_ + _%xarg158051158394%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157771158118%_)) - (let ((_%e157774158123%_ + _%hd158045158392%_)) + (let ((_%e158048158397%_ (let () (declare (not safe)) (gx#stx-e - _%hd157771158118%_)))) - (let ((_%lp-tl157776158128%_ + _%hd158045158392%_)))) + (let ((_%lp-tl158050158402%_ (let () (declare (not safe)) - (##cdr _%e157774158123%_))) - (_%lp-hd157775158126%_ + (##cdr _%e158048158397%_))) + (_%lp-hd158049158400%_ (let () (declare (not safe)) - (##car _%e157774158123%_)))) + (##car _%e158048158397%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd157775158126%_)) - (let ((_%e157788158131%_ + _%lp-hd158049158400%_)) + (let ((_%e158062158405%_ (let () (declare (not safe)) (gx#stx-e - _%lp-hd157775158126%_)))) - (let ((_%tl157790158136%_ + _%lp-hd158049158400%_)))) + (let ((_%tl158064158410%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157788158131%_))) - (_%hd157789158134%_ - (let () (declare (not safe)) (##car _%e157788158131%_)))) + (##cdr _%e158062158405%_))) + (_%hd158063158408%_ + (let () (declare (not safe)) (##car _%e158062158405%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157789158134%_)) + (gx#identifier? _%hd158063158408%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157789158134%_)) + (gx#stx-eq? '%#ref _%hd158063158408%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157790158136%_)) - (let ((_%e157791158139%_ + (gx#stx-pair? _%tl158064158410%_)) + (let ((_%e158065158413%_ (let () (declare (not safe)) - (gx#stx-e _%tl157790158136%_)))) - (let ((_%tl157793158144%_ + (gx#stx-e _%tl158064158410%_)))) + (let ((_%tl158067158418%_ (let () (declare (not safe)) - (##cdr _%e157791158139%_))) - (_%hd157792158142%_ + (##cdr _%e158065158413%_))) + (_%hd158066158416%_ (let () (declare (not safe)) - (##car _%e157791158139%_)))) + (##car _%e158065158413%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157793158144%_)) - (_%loop157773158115%_ - _%lp-tl157776158128%_ - (cons _%hd157792158142%_ - _%xarg157777158120%_)) - (_%__match168127168128%_ - _%e157734157990%_ - _%hd157735157993%_ - _%tl157736157995%_ - _%e157746158022%_ - _%hd157747158025%_ - _%tl157748158027%_ - _%e157749158030%_ - _%hd157750158033%_ - _%tl157751158035%_ - _%e157752158038%_ - _%hd157753158041%_ - _%tl157754158043%_ - _%e157755158046%_ - _%hd157756158049%_ - _%tl157757158051%_ - _%e157758158054%_ - _%hd157759158057%_ - _%tl157760158059%_ - _%e157761158062%_ - _%hd157762158065%_ - _%tl157763158067%_ - _%e157764158070%_ - _%hd157765158073%_ - _%tl157766158075%_ - _%e157767158078%_ - _%hd157768158081%_ - _%tl157769158083%_)))) - (_%__match168127168128%_ - _%e157734157990%_ - _%hd157735157993%_ - _%tl157736157995%_ - _%e157746158022%_ - _%hd157747158025%_ - _%tl157748158027%_ - _%e157749158030%_ - _%hd157750158033%_ - _%tl157751158035%_ - _%e157752158038%_ - _%hd157753158041%_ - _%tl157754158043%_ - _%e157755158046%_ - _%hd157756158049%_ - _%tl157757158051%_ - _%e157758158054%_ - _%hd157759158057%_ - _%tl157760158059%_ - _%e157761158062%_ - _%hd157762158065%_ - _%tl157763158067%_ - _%e157764158070%_ - _%hd157765158073%_ - _%tl157766158075%_ - _%e157767158078%_ - _%hd157768158081%_ - _%tl157769158083%_)) - (_%__match168127168128%_ - _%e157734157990%_ - _%hd157735157993%_ - _%tl157736157995%_ - _%e157746158022%_ - _%hd157747158025%_ - _%tl157748158027%_ - _%e157749158030%_ - _%hd157750158033%_ - _%tl157751158035%_ - _%e157752158038%_ - _%hd157753158041%_ - _%tl157754158043%_ - _%e157755158046%_ - _%hd157756158049%_ - _%tl157757158051%_ - _%e157758158054%_ - _%hd157759158057%_ - _%tl157760158059%_ - _%e157761158062%_ - _%hd157762158065%_ - _%tl157763158067%_ - _%e157764158070%_ - _%hd157765158073%_ - _%tl157766158075%_ - _%e157767158078%_ - _%hd157768158081%_ - _%tl157769158083%_)) - (_%__match168127168128%_ - _%e157734157990%_ - _%hd157735157993%_ - _%tl157736157995%_ - _%e157746158022%_ - _%hd157747158025%_ - _%tl157748158027%_ - _%e157749158030%_ - _%hd157750158033%_ - _%tl157751158035%_ - _%e157752158038%_ - _%hd157753158041%_ - _%tl157754158043%_ - _%e157755158046%_ - _%hd157756158049%_ - _%tl157757158051%_ - _%e157758158054%_ - _%hd157759158057%_ - _%tl157760158059%_ - _%e157761158062%_ - _%hd157762158065%_ - _%tl157763158067%_ - _%e157764158070%_ - _%hd157765158073%_ - _%tl157766158075%_ - _%e157767158078%_ - _%hd157768158081%_ - _%tl157769158083%_)))) + (gx#stx-null? _%tl158067158418%_)) + (_%loop158047158389%_ + _%lp-tl158050158402%_ + (cons _%hd158066158416%_ + _%xarg158051158394%_)) + (_%__match168401168402%_ + _%e158008158264%_ + _%hd158009158267%_ + _%tl158010158269%_ + _%e158020158296%_ + _%hd158021158299%_ + _%tl158022158301%_ + _%e158023158304%_ + _%hd158024158307%_ + _%tl158025158309%_ + _%e158026158312%_ + _%hd158027158315%_ + _%tl158028158317%_ + _%e158029158320%_ + _%hd158030158323%_ + _%tl158031158325%_ + _%e158032158328%_ + _%hd158033158331%_ + _%tl158034158333%_ + _%e158035158336%_ + _%hd158036158339%_ + _%tl158037158341%_ + _%e158038158344%_ + _%hd158039158347%_ + _%tl158040158349%_ + _%e158041158352%_ + _%hd158042158355%_ + _%tl158043158357%_)))) + (_%__match168401168402%_ + _%e158008158264%_ + _%hd158009158267%_ + _%tl158010158269%_ + _%e158020158296%_ + _%hd158021158299%_ + _%tl158022158301%_ + _%e158023158304%_ + _%hd158024158307%_ + _%tl158025158309%_ + _%e158026158312%_ + _%hd158027158315%_ + _%tl158028158317%_ + _%e158029158320%_ + _%hd158030158323%_ + _%tl158031158325%_ + _%e158032158328%_ + _%hd158033158331%_ + _%tl158034158333%_ + _%e158035158336%_ + _%hd158036158339%_ + _%tl158037158341%_ + _%e158038158344%_ + _%hd158039158347%_ + _%tl158040158349%_ + _%e158041158352%_ + _%hd158042158355%_ + _%tl158043158357%_)) + (_%__match168401168402%_ + _%e158008158264%_ + _%hd158009158267%_ + _%tl158010158269%_ + _%e158020158296%_ + _%hd158021158299%_ + _%tl158022158301%_ + _%e158023158304%_ + _%hd158024158307%_ + _%tl158025158309%_ + _%e158026158312%_ + _%hd158027158315%_ + _%tl158028158317%_ + _%e158029158320%_ + _%hd158030158323%_ + _%tl158031158325%_ + _%e158032158328%_ + _%hd158033158331%_ + _%tl158034158333%_ + _%e158035158336%_ + _%hd158036158339%_ + _%tl158037158341%_ + _%e158038158344%_ + _%hd158039158347%_ + _%tl158040158349%_ + _%e158041158352%_ + _%hd158042158355%_ + _%tl158043158357%_)) + (_%__match168401168402%_ + _%e158008158264%_ + _%hd158009158267%_ + _%tl158010158269%_ + _%e158020158296%_ + _%hd158021158299%_ + _%tl158022158301%_ + _%e158023158304%_ + _%hd158024158307%_ + _%tl158025158309%_ + _%e158026158312%_ + _%hd158027158315%_ + _%tl158028158317%_ + _%e158029158320%_ + _%hd158030158323%_ + _%tl158031158325%_ + _%e158032158328%_ + _%hd158033158331%_ + _%tl158034158333%_ + _%e158035158336%_ + _%hd158036158339%_ + _%tl158037158341%_ + _%e158038158344%_ + _%hd158039158347%_ + _%tl158040158349%_ + _%e158041158352%_ + _%hd158042158355%_ + _%tl158043158357%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168127168128%_ - _%e157734157990%_ - _%hd157735157993%_ - _%tl157736157995%_ - _%e157746158022%_ - _%hd157747158025%_ - _%tl157748158027%_ - _%e157749158030%_ - _%hd157750158033%_ - _%tl157751158035%_ - _%e157752158038%_ - _%hd157753158041%_ - _%tl157754158043%_ - _%e157755158046%_ - _%hd157756158049%_ - _%tl157757158051%_ - _%e157758158054%_ - _%hd157759158057%_ - _%tl157760158059%_ - _%e157761158062%_ - _%hd157762158065%_ - _%tl157763158067%_ - _%e157764158070%_ - _%hd157765158073%_ - _%tl157766158075%_ - _%e157767158078%_ - _%hd157768158081%_ - _%tl157769158083%_)))) - (let ((_%xarg157778158147%_ - (reverse _%xarg157777158120%_))) + (_%__match168401168402%_ + _%e158008158264%_ + _%hd158009158267%_ + _%tl158010158269%_ + _%e158020158296%_ + _%hd158021158299%_ + _%tl158022158301%_ + _%e158023158304%_ + _%hd158024158307%_ + _%tl158025158309%_ + _%e158026158312%_ + _%hd158027158315%_ + _%tl158028158317%_ + _%e158029158320%_ + _%hd158030158323%_ + _%tl158031158325%_ + _%e158032158328%_ + _%hd158033158331%_ + _%tl158034158333%_ + _%e158035158336%_ + _%hd158036158339%_ + _%tl158037158341%_ + _%e158038158344%_ + _%hd158039158347%_ + _%tl158040158349%_ + _%e158041158352%_ + _%hd158042158355%_ + _%tl158043158357%_)))) + (let ((_%xarg158052158421%_ + (reverse _%xarg158051158394%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157748158027%_)) - (let ((_%L158150%_ - _%hd157786158110%_) - (_%L158151%_ - _%xarg157778158147%_) - (_%L158152%_ - _%hd157768158081%_) - (_%L158153%_ - _%hd157759158057%_) - (_%L158154%_ - _%tl157739158000%_) - (_%L158155%_ - _%arg157745158019%_)) - (if (and (let ((__tmp169644 + _%tl158022158301%_)) + (let ((_%L158424%_ + _%hd158060158384%_) + (_%L158425%_ + _%xarg158052158421%_) + (_%L158426%_ + _%hd158042158355%_) + (_%L158427%_ + _%hd158033158331%_) + (_%L158428%_ + _%tl158013158274%_) + (_%L158429%_ + _%arg158019158293%_)) + (if (and (let ((__tmp169918 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp169645 - (lambda (_%g158198158201%_ - _%g158199158203%_) - (cons _%g158198158201%_ - _%g158199158203%_)))) + (let ((__tmp169919 + (lambda (_%g158472158475%_ + _%g158473158477%_) + (cons _%g158472158475%_ + _%g158473158477%_)))) (declare (not safe)) - (__foldr1 __tmp169645 '() _%L158155%_)))) + (__foldr1 __tmp169919 '() _%L158429%_)))) (declare (not safe)) - (gx#identifier-list? __tmp169644)) - (let () (declare (not safe)) (gx#identifier? _%L158154%_)) + (gx#identifier-list? __tmp169918)) + (let () (declare (not safe)) (gx#identifier? _%L158428%_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L158153%_ 'apply)) - (let ((__tmp169648 - (length (let ((__tmp169649 - (lambda (_%g158205158208%_ - _%g158206158210%_) - (cons _%g158205158208%_ - _%g158206158210%_)))) + (gxc#runtime-identifier=? _%L158427%_ 'apply)) + (let ((__tmp169922 + (length (let ((__tmp169923 + (lambda (_%g158479158482%_ + _%g158480158484%_) + (cons _%g158479158482%_ + _%g158480158484%_)))) (declare (not safe)) - (__foldr1 __tmp169649 '() _%L158155%_)))) - (__tmp169646 - (length (let ((__tmp169647 - (lambda (_%g158212158215%_ - _%g158213158217%_) - (cons _%g158212158215%_ - _%g158213158217%_)))) + (__foldr1 __tmp169923 '() _%L158429%_)))) + (__tmp169920 + (length (let ((__tmp169921 + (lambda (_%g158486158489%_ + _%g158487158491%_) + (cons _%g158486158489%_ + _%g158487158491%_)))) (declare (not safe)) (__foldr1 - __tmp169647 + __tmp169921 '() - _%L158151%_))))) + _%L158425%_))))) (declare (not safe)) - (##fx= __tmp169648 __tmp169646)) - (let ((__tmp169652 - (let ((__tmp169653 - (lambda (_%g158219158222%_ - _%g158220158224%_) - (cons _%g158219158222%_ - _%g158220158224%_)))) + (##fx= __tmp169922 __tmp169920)) + (let ((__tmp169926 + (let ((__tmp169927 + (lambda (_%g158493158496%_ + _%g158494158498%_) + (cons _%g158493158496%_ + _%g158494158498%_)))) (declare (not safe)) - (__foldr1 __tmp169653 '() _%L158155%_))) - (__tmp169650 - (let ((__tmp169651 - (lambda (_%g158226158229%_ - _%g158227158231%_) - (cons _%g158226158229%_ - _%g158227158231%_)))) + (__foldr1 __tmp169927 '() _%L158429%_))) + (__tmp169924 + (let ((__tmp169925 + (lambda (_%g158500158503%_ + _%g158501158505%_) + (cons _%g158500158503%_ + _%g158501158505%_)))) (declare (not safe)) - (__foldr1 __tmp169651 '() _%L158151%_)))) + (__foldr1 __tmp169925 '() _%L158425%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp169652 - __tmp169650)) + __tmp169926 + __tmp169924)) (let () (declare (not safe)) - (gx#free-identifier=? _%L158154%_ _%L158150%_)) - (not (let ((__tmp169657 - (lambda (_%g158233158235%_) + (gx#free-identifier=? _%L158428%_ _%L158424%_)) + (not (let ((__tmp169931 + (lambda (_%g158507158509%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g158233158235%_ - _%L158152%_)))) - (__tmp169654 - (let ((__tmp169656 - (lambda (_%g158237158240%_ - _%g158238158242%_) - (cons _%g158237158240%_ - _%g158238158242%_))) - (__tmp169655 (cons _%L158154%_ '()))) + _%g158507158509%_ + _%L158426%_)))) + (__tmp169928 + (let ((__tmp169930 + (lambda (_%g158511158514%_ + _%g158512158516%_) + (cons _%g158511158514%_ + _%g158512158516%_))) + (__tmp169929 (cons _%L158428%_ '()))) (declare (not safe)) (__foldr1 - __tmp169656 - __tmp169655 - _%L158155%_)))) + __tmp169930 + __tmp169929 + _%L158429%_)))) (declare (not safe)) - (__find __tmp169657 __tmp169654)))) - (_%__kont168022168023%_ - _%L158150%_ - _%L158151%_ - _%L158152%_ - _%L158153%_ - _%L158154%_ - _%L158155%_) - (_%__match168127168128%_ - _%e157734157990%_ - _%hd157735157993%_ - _%tl157736157995%_ - _%e157746158022%_ - _%hd157747158025%_ - _%tl157748158027%_ - _%e157749158030%_ - _%hd157750158033%_ - _%tl157751158035%_ - _%e157752158038%_ - _%hd157753158041%_ - _%tl157754158043%_ - _%e157755158046%_ - _%hd157756158049%_ - _%tl157757158051%_ - _%e157758158054%_ - _%hd157759158057%_ - _%tl157760158059%_ - _%e157761158062%_ - _%hd157762158065%_ - _%tl157763158067%_ - _%e157764158070%_ - _%hd157765158073%_ - _%tl157766158075%_ - _%e157767158078%_ - _%hd157768158081%_ - _%tl157769158083%_))) + (__find __tmp169931 __tmp169928)))) + (_%__kont168296168297%_ + _%L158424%_ + _%L158425%_ + _%L158426%_ + _%L158427%_ + _%L158428%_ + _%L158429%_) + (_%__match168401168402%_ + _%e158008158264%_ + _%hd158009158267%_ + _%tl158010158269%_ + _%e158020158296%_ + _%hd158021158299%_ + _%tl158022158301%_ + _%e158023158304%_ + _%hd158024158307%_ + _%tl158025158309%_ + _%e158026158312%_ + _%hd158027158315%_ + _%tl158028158317%_ + _%e158029158320%_ + _%hd158030158323%_ + _%tl158031158325%_ + _%e158032158328%_ + _%hd158033158331%_ + _%tl158034158333%_ + _%e158035158336%_ + _%hd158036158339%_ + _%tl158037158341%_ + _%e158038158344%_ + _%hd158039158347%_ + _%tl158040158349%_ + _%e158041158352%_ + _%hd158042158355%_ + _%tl158043158357%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168127168128%_ - _%e157734157990%_ - _%hd157735157993%_ - _%tl157736157995%_ - _%e157746158022%_ - _%hd157747158025%_ - _%tl157748158027%_ - _%e157749158030%_ - _%hd157750158033%_ - _%tl157751158035%_ - _%e157752158038%_ - _%hd157753158041%_ - _%tl157754158043%_ - _%e157755158046%_ - _%hd157756158049%_ - _%tl157757158051%_ - _%e157758158054%_ - _%hd157759158057%_ - _%tl157760158059%_ - _%e157761158062%_ - _%hd157762158065%_ - _%tl157763158067%_ - _%e157764158070%_ - _%hd157765158073%_ - _%tl157766158075%_ - _%e157767158078%_ - _%hd157768158081%_ - _%tl157769158083%_))))))) - (_%loop157773158115%_ - _%target157770158086%_ + (_%__match168401168402%_ + _%e158008158264%_ + _%hd158009158267%_ + _%tl158010158269%_ + _%e158020158296%_ + _%hd158021158299%_ + _%tl158022158301%_ + _%e158023158304%_ + _%hd158024158307%_ + _%tl158025158309%_ + _%e158026158312%_ + _%hd158027158315%_ + _%tl158028158317%_ + _%e158029158320%_ + _%hd158030158323%_ + _%tl158031158325%_ + _%e158032158328%_ + _%hd158033158331%_ + _%tl158034158333%_ + _%e158035158336%_ + _%hd158036158339%_ + _%tl158037158341%_ + _%e158038158344%_ + _%hd158039158347%_ + _%tl158040158349%_ + _%e158041158352%_ + _%hd158042158355%_ + _%tl158043158357%_))))))) + (_%loop158047158389%_ + _%target158044158360%_ '())) - (_%__match168127168128%_ - _%e157734157990%_ - _%hd157735157993%_ - _%tl157736157995%_ - _%e157746158022%_ - _%hd157747158025%_ - _%tl157748158027%_ - _%e157749158030%_ - _%hd157750158033%_ - _%tl157751158035%_ - _%e157752158038%_ - _%hd157753158041%_ - _%tl157754158043%_ - _%e157755158046%_ - _%hd157756158049%_ - _%tl157757158051%_ - _%e157758158054%_ - _%hd157759158057%_ - _%tl157760158059%_ - _%e157761158062%_ - _%hd157762158065%_ - _%tl157763158067%_ - _%e157764158070%_ - _%hd157765158073%_ - _%tl157766158075%_ - _%e157767158078%_ - _%hd157768158081%_ - _%tl157769158083%_)) - (_%__match168127168128%_ - _%e157734157990%_ - _%hd157735157993%_ - _%tl157736157995%_ - _%e157746158022%_ - _%hd157747158025%_ - _%tl157748158027%_ - _%e157749158030%_ - _%hd157750158033%_ - _%tl157751158035%_ - _%e157752158038%_ - _%hd157753158041%_ - _%tl157754158043%_ - _%e157755158046%_ - _%hd157756158049%_ - _%tl157757158051%_ - _%e157758158054%_ - _%hd157759158057%_ - _%tl157760158059%_ - _%e157761158062%_ - _%hd157762158065%_ - _%tl157763158067%_ - _%e157764158070%_ - _%hd157765158073%_ - _%tl157766158075%_ - _%e157767158078%_ - _%hd157768158081%_ - _%tl157769158083%_)))) - (_%__match168127168128%_ - _%e157734157990%_ - _%hd157735157993%_ - _%tl157736157995%_ - _%e157746158022%_ - _%hd157747158025%_ - _%tl157748158027%_ - _%e157749158030%_ - _%hd157750158033%_ - _%tl157751158035%_ - _%e157752158038%_ - _%hd157753158041%_ - _%tl157754158043%_ - _%e157755158046%_ - _%hd157756158049%_ - _%tl157757158051%_ - _%e157758158054%_ - _%hd157759158057%_ - _%tl157760158059%_ - _%e157761158062%_ - _%hd157762158065%_ - _%tl157763158067%_ - _%e157764158070%_ - _%hd157765158073%_ - _%tl157766158075%_ - _%e157767158078%_ - _%hd157768158081%_ - _%tl157769158083%_)) + (_%__match168401168402%_ + _%e158008158264%_ + _%hd158009158267%_ + _%tl158010158269%_ + _%e158020158296%_ + _%hd158021158299%_ + _%tl158022158301%_ + _%e158023158304%_ + _%hd158024158307%_ + _%tl158025158309%_ + _%e158026158312%_ + _%hd158027158315%_ + _%tl158028158317%_ + _%e158029158320%_ + _%hd158030158323%_ + _%tl158031158325%_ + _%e158032158328%_ + _%hd158033158331%_ + _%tl158034158333%_ + _%e158035158336%_ + _%hd158036158339%_ + _%tl158037158341%_ + _%e158038158344%_ + _%hd158039158347%_ + _%tl158040158349%_ + _%e158041158352%_ + _%hd158042158355%_ + _%tl158043158357%_)) + (_%__match168401168402%_ + _%e158008158264%_ + _%hd158009158267%_ + _%tl158010158269%_ + _%e158020158296%_ + _%hd158021158299%_ + _%tl158022158301%_ + _%e158023158304%_ + _%hd158024158307%_ + _%tl158025158309%_ + _%e158026158312%_ + _%hd158027158315%_ + _%tl158028158317%_ + _%e158029158320%_ + _%hd158030158323%_ + _%tl158031158325%_ + _%e158032158328%_ + _%hd158033158331%_ + _%tl158034158333%_ + _%e158035158336%_ + _%hd158036158339%_ + _%tl158037158341%_ + _%e158038158344%_ + _%hd158039158347%_ + _%tl158040158349%_ + _%e158041158352%_ + _%hd158042158355%_ + _%tl158043158357%_)))) + (_%__match168401168402%_ + _%e158008158264%_ + _%hd158009158267%_ + _%tl158010158269%_ + _%e158020158296%_ + _%hd158021158299%_ + _%tl158022158301%_ + _%e158023158304%_ + _%hd158024158307%_ + _%tl158025158309%_ + _%e158026158312%_ + _%hd158027158315%_ + _%tl158028158317%_ + _%e158029158320%_ + _%hd158030158323%_ + _%tl158031158325%_ + _%e158032158328%_ + _%hd158033158331%_ + _%tl158034158333%_ + _%e158035158336%_ + _%hd158036158339%_ + _%tl158037158341%_ + _%e158038158344%_ + _%hd158039158347%_ + _%tl158040158349%_ + _%e158041158352%_ + _%hd158042158355%_ + _%tl158043158357%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168127168128%_ - _%e157734157990%_ - _%hd157735157993%_ - _%tl157736157995%_ - _%e157746158022%_ - _%hd157747158025%_ - _%tl157748158027%_ - _%e157749158030%_ - _%hd157750158033%_ - _%tl157751158035%_ - _%e157752158038%_ - _%hd157753158041%_ - _%tl157754158043%_ - _%e157755158046%_ - _%hd157756158049%_ - _%tl157757158051%_ - _%e157758158054%_ - _%hd157759158057%_ - _%tl157760158059%_ - _%e157761158062%_ - _%hd157762158065%_ - _%tl157763158067%_ - _%e157764158070%_ - _%hd157765158073%_ - _%tl157766158075%_ - _%e157767158078%_ - _%hd157768158081%_ - _%tl157769158083%_)) - (_%__match168127168128%_ - _%e157734157990%_ - _%hd157735157993%_ - _%tl157736157995%_ - _%e157746158022%_ - _%hd157747158025%_ - _%tl157748158027%_ - _%e157749158030%_ - _%hd157750158033%_ - _%tl157751158035%_ - _%e157752158038%_ - _%hd157753158041%_ - _%tl157754158043%_ - _%e157755158046%_ - _%hd157756158049%_ - _%tl157757158051%_ - _%e157758158054%_ - _%hd157759158057%_ - _%tl157760158059%_ - _%e157761158062%_ - _%hd157762158065%_ - _%tl157763158067%_ - _%e157764158070%_ - _%hd157765158073%_ - _%tl157766158075%_ - _%e157767158078%_ - _%hd157768158081%_ - _%tl157769158083%_)))) - (_%__match168127168128%_ - _%e157734157990%_ - _%hd157735157993%_ - _%tl157736157995%_ - _%e157746158022%_ - _%hd157747158025%_ - _%tl157748158027%_ - _%e157749158030%_ - _%hd157750158033%_ - _%tl157751158035%_ - _%e157752158038%_ - _%hd157753158041%_ - _%tl157754158043%_ - _%e157755158046%_ - _%hd157756158049%_ - _%tl157757158051%_ - _%e157758158054%_ - _%hd157759158057%_ - _%tl157760158059%_ - _%e157761158062%_ - _%hd157762158065%_ - _%tl157763158067%_ - _%e157764158070%_ - _%hd157765158073%_ - _%tl157766158075%_ - _%e157767158078%_ - _%hd157768158081%_ - _%tl157769158083%_)))) - (_%__match168127168128%_ - _%e157734157990%_ - _%hd157735157993%_ - _%tl157736157995%_ - _%e157746158022%_ - _%hd157747158025%_ - _%tl157748158027%_ - _%e157749158030%_ - _%hd157750158033%_ - _%tl157751158035%_ - _%e157752158038%_ - _%hd157753158041%_ - _%tl157754158043%_ - _%e157755158046%_ - _%hd157756158049%_ - _%tl157757158051%_ - _%e157758158054%_ - _%hd157759158057%_ - _%tl157760158059%_ - _%e157761158062%_ - _%hd157762158065%_ - _%tl157763158067%_ - _%e157764158070%_ - _%hd157765158073%_ - _%tl157766158075%_ - _%e157767158078%_ - _%hd157768158081%_ - _%tl157769158083%_)))) - (_%__match168127168128%_ - _%e157734157990%_ - _%hd157735157993%_ - _%tl157736157995%_ - _%e157746158022%_ - _%hd157747158025%_ - _%tl157748158027%_ - _%e157749158030%_ - _%hd157750158033%_ - _%tl157751158035%_ - _%e157752158038%_ - _%hd157753158041%_ - _%tl157754158043%_ - _%e157755158046%_ - _%hd157756158049%_ - _%tl157757158051%_ - _%e157758158054%_ - _%hd157759158057%_ - _%tl157760158059%_ - _%e157761158062%_ - _%hd157762158065%_ - _%tl157763158067%_ - _%e157764158070%_ - _%hd157765158073%_ - _%tl157766158075%_ - _%e157767158078%_ - _%hd157768158081%_ - _%tl157769158083%_)) - (_%__match168127168128%_ - _%e157734157990%_ - _%hd157735157993%_ - _%tl157736157995%_ - _%e157746158022%_ - _%hd157747158025%_ - _%tl157748158027%_ - _%e157749158030%_ - _%hd157750158033%_ - _%tl157751158035%_ - _%e157752158038%_ - _%hd157753158041%_ - _%tl157754158043%_ - _%e157755158046%_ - _%hd157756158049%_ - _%tl157757158051%_ - _%e157758158054%_ - _%hd157759158057%_ - _%tl157760158059%_ - _%e157761158062%_ - _%hd157762158065%_ - _%tl157763158067%_ - _%e157764158070%_ - _%hd157765158073%_ - _%tl157766158075%_ - _%e157767158078%_ - _%hd157768158081%_ - _%tl157769158083%_)) - (_%__kont168030168031%_)))) + (_%__match168401168402%_ + _%e158008158264%_ + _%hd158009158267%_ + _%tl158010158269%_ + _%e158020158296%_ + _%hd158021158299%_ + _%tl158022158301%_ + _%e158023158304%_ + _%hd158024158307%_ + _%tl158025158309%_ + _%e158026158312%_ + _%hd158027158315%_ + _%tl158028158317%_ + _%e158029158320%_ + _%hd158030158323%_ + _%tl158031158325%_ + _%e158032158328%_ + _%hd158033158331%_ + _%tl158034158333%_ + _%e158035158336%_ + _%hd158036158339%_ + _%tl158037158341%_ + _%e158038158344%_ + _%hd158039158347%_ + _%tl158040158349%_ + _%e158041158352%_ + _%hd158042158355%_ + _%tl158043158357%_)) + (_%__match168401168402%_ + _%e158008158264%_ + _%hd158009158267%_ + _%tl158010158269%_ + _%e158020158296%_ + _%hd158021158299%_ + _%tl158022158301%_ + _%e158023158304%_ + _%hd158024158307%_ + _%tl158025158309%_ + _%e158026158312%_ + _%hd158027158315%_ + _%tl158028158317%_ + _%e158029158320%_ + _%hd158030158323%_ + _%tl158031158325%_ + _%e158032158328%_ + _%hd158033158331%_ + _%tl158034158333%_ + _%e158035158336%_ + _%hd158036158339%_ + _%tl158037158341%_ + _%e158038158344%_ + _%hd158039158347%_ + _%tl158040158349%_ + _%e158041158352%_ + _%hd158042158355%_ + _%tl158043158357%_)))) + (_%__match168401168402%_ + _%e158008158264%_ + _%hd158009158267%_ + _%tl158010158269%_ + _%e158020158296%_ + _%hd158021158299%_ + _%tl158022158301%_ + _%e158023158304%_ + _%hd158024158307%_ + _%tl158025158309%_ + _%e158026158312%_ + _%hd158027158315%_ + _%tl158028158317%_ + _%e158029158320%_ + _%hd158030158323%_ + _%tl158031158325%_ + _%e158032158328%_ + _%hd158033158331%_ + _%tl158034158333%_ + _%e158035158336%_ + _%hd158036158339%_ + _%tl158037158341%_ + _%e158038158344%_ + _%hd158039158347%_ + _%tl158040158349%_ + _%e158041158352%_ + _%hd158042158355%_ + _%tl158043158357%_)))) + (_%__match168401168402%_ + _%e158008158264%_ + _%hd158009158267%_ + _%tl158010158269%_ + _%e158020158296%_ + _%hd158021158299%_ + _%tl158022158301%_ + _%e158023158304%_ + _%hd158024158307%_ + _%tl158025158309%_ + _%e158026158312%_ + _%hd158027158315%_ + _%tl158028158317%_ + _%e158029158320%_ + _%hd158030158323%_ + _%tl158031158325%_ + _%e158032158328%_ + _%hd158033158331%_ + _%tl158034158333%_ + _%e158035158336%_ + _%hd158036158339%_ + _%tl158037158341%_ + _%e158038158344%_ + _%hd158039158347%_ + _%tl158040158349%_ + _%e158041158352%_ + _%hd158042158355%_ + _%tl158043158357%_)))) + (_%__match168401168402%_ + _%e158008158264%_ + _%hd158009158267%_ + _%tl158010158269%_ + _%e158020158296%_ + _%hd158021158299%_ + _%tl158022158301%_ + _%e158023158304%_ + _%hd158024158307%_ + _%tl158025158309%_ + _%e158026158312%_ + _%hd158027158315%_ + _%tl158028158317%_ + _%e158029158320%_ + _%hd158030158323%_ + _%tl158031158325%_ + _%e158032158328%_ + _%hd158033158331%_ + _%tl158034158333%_ + _%e158035158336%_ + _%hd158036158339%_ + _%tl158037158341%_ + _%e158038158344%_ + _%hd158039158347%_ + _%tl158040158349%_ + _%e158041158352%_ + _%hd158042158355%_ + _%tl158043158357%_)) + (_%__match168401168402%_ + _%e158008158264%_ + _%hd158009158267%_ + _%tl158010158269%_ + _%e158020158296%_ + _%hd158021158299%_ + _%tl158022158301%_ + _%e158023158304%_ + _%hd158024158307%_ + _%tl158025158309%_ + _%e158026158312%_ + _%hd158027158315%_ + _%tl158028158317%_ + _%e158029158320%_ + _%hd158030158323%_ + _%tl158031158325%_ + _%e158032158328%_ + _%hd158033158331%_ + _%tl158034158333%_ + _%e158035158336%_ + _%hd158036158339%_ + _%tl158037158341%_ + _%e158038158344%_ + _%hd158039158347%_ + _%tl158040158349%_ + _%e158041158352%_ + _%hd158042158355%_ + _%tl158043158357%_)) + (_%__kont168304168305%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168030168031%_)) - (_%__kont168030168031%_)) - (_%__kont168030168031%_)))) - (_%__kont168030168031%_)))) - (_%__kont168030168031%_)) - (_%__kont168030168031%_)))) + (_%__kont168304168305%_)) + (_%__kont168304168305%_)) + (_%__kont168304168305%_)))) + (_%__kont168304168305%_)))) + (_%__kont168304168305%_)) + (_%__kont168304168305%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168030168031%_)) - (_%__kont168030168031%_)) - (_%__kont168030168031%_)))) - (_%__kont168030168031%_)))) - (_%__kont168030168031%_)) - (_%__kont168030168031%_)) - (_%__kont168030168031%_)))) + (_%__kont168304168305%_)) + (_%__kont168304168305%_)) + (_%__kont168304168305%_)))) + (_%__kont168304168305%_)))) + (_%__kont168304168305%_)) + (_%__kont168304168305%_)) + (_%__kont168304168305%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168030168031%_)))) - (_%__kont168030168031%_))))))) - (_%loop157740158003%_ _%target157737157998%_ '())))) - (_%__match168045168046%_ - (lambda (_%e157686158250%_ - _%hd157687158253%_ - _%tl157688158255%_ - _%__splice168018168019%_ - _%target157689158258%_ - _%tl157691158260%_) - (letrec ((_%loop157692158263%_ - (lambda (_%hd157690158266%_ - _%arg157696158268%_) + (_%__kont168304168305%_)))) + (_%__kont168304168305%_))))))) + (_%loop158014158277%_ _%target158011158272%_ '())))) + (_%__match168319168320%_ + (lambda (_%e157960158524%_ + _%hd157961158527%_ + _%tl157962158529%_ + _%__splice168292168293%_ + _%target157963158532%_ + _%tl157965158534%_) + (letrec ((_%loop157966158537%_ + (lambda (_%hd157964158540%_ + _%arg157970158542%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157690158266%_)) - (let ((_%e157693158271%_ + (gx#stx-pair? _%hd157964158540%_)) + (let ((_%e157967158545%_ (let () (declare (not safe)) - (gx#stx-e _%hd157690158266%_)))) - (let ((_%lp-tl157695158276%_ + (gx#stx-e _%hd157964158540%_)))) + (let ((_%lp-tl157969158550%_ (let () (declare (not safe)) - (##cdr _%e157693158271%_))) - (_%lp-hd157694158274%_ + (##cdr _%e157967158545%_))) + (_%lp-hd157968158548%_ (let () (declare (not safe)) - (##car _%e157693158271%_)))) - (_%loop157692158263%_ - _%lp-tl157695158276%_ - (cons _%lp-hd157694158274%_ - _%arg157696158268%_)))) - (let ((_%arg157697158279%_ - (reverse _%arg157696158268%_))) + (##car _%e157967158545%_)))) + (_%loop157966158537%_ + _%lp-tl157969158550%_ + (cons _%lp-hd157968158548%_ + _%arg157970158542%_)))) + (let ((_%arg157971158553%_ + (reverse _%arg157970158542%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157688158255%_)) - (let ((_%e157698158282%_ + _%tl157962158529%_)) + (let ((_%e157972158556%_ (let () (declare (not safe)) (gx#stx-e - _%tl157688158255%_)))) - (let ((_%tl157700158287%_ + _%tl157962158529%_)))) + (let ((_%tl157974158561%_ (let () (declare (not safe)) - (##cdr _%e157698158282%_))) - (_%hd157699158285%_ + (##cdr _%e157972158556%_))) + (_%hd157973158559%_ (let () (declare (not safe)) - (##car _%e157698158282%_)))) + (##car _%e157972158556%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157699158285%_)) - (let ((_%e157701158290%_ + _%hd157973158559%_)) + (let ((_%e157975158564%_ (let () (declare (not safe)) (gx#stx-e - _%hd157699158285%_)))) - (let ((_%tl157703158295%_ + _%hd157973158559%_)))) + (let ((_%tl157977158569%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157701158290%_))) - (_%hd157702158293%_ - (let () (declare (not safe)) (##car _%e157701158290%_)))) + (##cdr _%e157975158564%_))) + (_%hd157976158567%_ + (let () (declare (not safe)) (##car _%e157975158564%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157702158293%_)) + (gx#identifier? _%hd157976158567%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd157702158293%_)) + (gx#stx-eq? '%#call _%hd157976158567%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157703158295%_)) - (let ((_%e157704158298%_ + (gx#stx-pair? _%tl157977158569%_)) + (let ((_%e157978158572%_ (let () (declare (not safe)) - (gx#stx-e _%tl157703158295%_)))) - (let ((_%tl157706158303%_ + (gx#stx-e _%tl157977158569%_)))) + (let ((_%tl157980158577%_ (let () (declare (not safe)) - (##cdr _%e157704158298%_))) - (_%hd157705158301%_ + (##cdr _%e157978158572%_))) + (_%hd157979158575%_ (let () (declare (not safe)) - (##car _%e157704158298%_)))) + (##car _%e157978158572%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157705158301%_)) - (let ((_%e157707158306%_ + (gx#stx-pair? _%hd157979158575%_)) + (let ((_%e157981158580%_ (let () (declare (not safe)) - (gx#stx-e _%hd157705158301%_)))) - (let ((_%tl157709158311%_ + (gx#stx-e _%hd157979158575%_)))) + (let ((_%tl157983158585%_ (let () (declare (not safe)) - (##cdr _%e157707158306%_))) - (_%hd157708158309%_ + (##cdr _%e157981158580%_))) + (_%hd157982158583%_ (let () (declare (not safe)) - (##car _%e157707158306%_)))) + (##car _%e157981158580%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157708158309%_)) + _%hd157982158583%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157708158309%_)) + _%hd157982158583%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157709158311%_)) - (let ((_%e157710158314%_ + _%tl157983158585%_)) + (let ((_%e157984158588%_ (let () (declare (not safe)) (gx#stx-e - _%tl157709158311%_)))) - (let ((_%tl157712158319%_ + _%tl157983158585%_)))) + (let ((_%tl157986158593%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157710158314%_))) - (_%hd157711158317%_ - (let () (declare (not safe)) (##car _%e157710158314%_)))) + (##cdr _%e157984158588%_))) + (_%hd157985158591%_ + (let () (declare (not safe)) (##car _%e157984158588%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157712158319%_)) + (gx#stx-null? _%tl157986158593%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl157706158303%_)) - (let ((_%__splice168020168021%_ + (gx#stx-pair/null? _%tl157980158577%_)) + (let ((_%__splice168294168295%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl157706158303%_ + _%tl157980158577%_ '0)))) - (let ((_%tl157715158324%_ + (let ((_%tl157989158598%_ (let () (declare (not safe)) - (##vector-ref _%__splice168020168021%_ '1))) - (_%target157713158322%_ + (##vector-ref _%__splice168294168295%_ '1))) + (_%target157987158596%_ (let () (declare (not safe)) (##vector-ref - _%__splice168020168021%_ + _%__splice168294168295%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157715158324%_)) - (letrec ((_%loop157716158327%_ - (lambda (_%hd157714158330%_ - _%xarg157720158332%_) + (gx#stx-null? _%tl157989158598%_)) + (letrec ((_%loop157990158601%_ + (lambda (_%hd157988158604%_ + _%xarg157994158606%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157714158330%_)) - (let ((_%e157717158335%_ + _%hd157988158604%_)) + (let ((_%e157991158609%_ (let () (declare (not safe)) (gx#stx-e - _%hd157714158330%_)))) - (let ((_%lp-tl157719158340%_ + _%hd157988158604%_)))) + (let ((_%lp-tl157993158614%_ (let () (declare (not safe)) - (##cdr _%e157717158335%_))) - (_%lp-hd157718158338%_ + (##cdr _%e157991158609%_))) + (_%lp-hd157992158612%_ (let () (declare (not safe)) - (##car _%e157717158335%_)))) + (##car _%e157991158609%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd157718158338%_)) - (let ((_%e157722158343%_ + _%lp-hd157992158612%_)) + (let ((_%e157996158617%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%lp-hd157718158338%_)))) - (let ((_%tl157724158348%_ + (gx#stx-e _%lp-hd157992158612%_)))) + (let ((_%tl157998158622%_ (let () (declare (not safe)) - (##cdr _%e157722158343%_))) - (_%hd157723158346%_ + (##cdr _%e157996158617%_))) + (_%hd157997158620%_ (let () (declare (not safe)) - (##car _%e157722158343%_)))) + (##car _%e157996158617%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157723158346%_)) + (gx#identifier? _%hd157997158620%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157723158346%_)) + (gx#stx-eq? '%#ref _%hd157997158620%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157724158348%_)) - (let ((_%e157725158351%_ + (gx#stx-pair? _%tl157998158622%_)) + (let ((_%e157999158625%_ (let () (declare (not safe)) - (gx#stx-e _%tl157724158348%_)))) - (let ((_%tl157727158356%_ + (gx#stx-e _%tl157998158622%_)))) + (let ((_%tl158001158630%_ (let () (declare (not safe)) - (##cdr _%e157725158351%_))) - (_%hd157726158354%_ + (##cdr _%e157999158625%_))) + (_%hd158000158628%_ (let () (declare (not safe)) - (##car _%e157725158351%_)))) + (##car _%e157999158625%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157727158356%_)) - (_%loop157716158327%_ - _%lp-tl157719158340%_ - (cons _%hd157726158354%_ - _%xarg157720158332%_)) - (_%__match168057168058%_ - _%e157686158250%_ - _%hd157687158253%_ - _%tl157688158255%_ - _%__splice168018168019%_ - _%target157689158258%_ - _%tl157691158260%_)))) - (_%__match168057168058%_ - _%e157686158250%_ - _%hd157687158253%_ - _%tl157688158255%_ - _%__splice168018168019%_ - _%target157689158258%_ - _%tl157691158260%_)) - (_%__match168057168058%_ - _%e157686158250%_ - _%hd157687158253%_ - _%tl157688158255%_ - _%__splice168018168019%_ - _%target157689158258%_ - _%tl157691158260%_)) - (_%__match168057168058%_ - _%e157686158250%_ - _%hd157687158253%_ - _%tl157688158255%_ - _%__splice168018168019%_ - _%target157689158258%_ - _%tl157691158260%_)))) - (_%__match168057168058%_ - _%e157686158250%_ - _%hd157687158253%_ - _%tl157688158255%_ - _%__splice168018168019%_ - _%target157689158258%_ - _%tl157691158260%_)))) + (gx#stx-null? _%tl158001158630%_)) + (_%loop157990158601%_ + _%lp-tl157993158614%_ + (cons _%hd158000158628%_ + _%xarg157994158606%_)) + (_%__match168331168332%_ + _%e157960158524%_ + _%hd157961158527%_ + _%tl157962158529%_ + _%__splice168292168293%_ + _%target157963158532%_ + _%tl157965158534%_)))) + (_%__match168331168332%_ + _%e157960158524%_ + _%hd157961158527%_ + _%tl157962158529%_ + _%__splice168292168293%_ + _%target157963158532%_ + _%tl157965158534%_)) + (_%__match168331168332%_ + _%e157960158524%_ + _%hd157961158527%_ + _%tl157962158529%_ + _%__splice168292168293%_ + _%target157963158532%_ + _%tl157965158534%_)) + (_%__match168331168332%_ + _%e157960158524%_ + _%hd157961158527%_ + _%tl157962158529%_ + _%__splice168292168293%_ + _%target157963158532%_ + _%tl157965158534%_)))) + (_%__match168331168332%_ + _%e157960158524%_ + _%hd157961158527%_ + _%tl157962158529%_ + _%__splice168292168293%_ + _%target157963158532%_ + _%tl157965158534%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%xarg157721158359%_ - (reverse _%xarg157720158332%_))) + (let ((_%xarg157995158633%_ + (reverse _%xarg157994158606%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157700158287%_)) - (let ((_%L158362%_ - _%xarg157721158359%_) - (_%L158363%_ - _%hd157711158317%_) - (_%L158364%_ - _%arg157697158279%_)) - (if (and (let ((__tmp169658 + _%tl157974158561%_)) + (let ((_%L158636%_ + _%xarg157995158633%_) + (_%L158637%_ + _%hd157985158591%_) + (_%L158638%_ + _%arg157971158553%_)) + (if (and (let ((__tmp169932 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp169659 - (lambda (_%g158392158395%_ - _%g158393158397%_) - (cons _%g158392158395%_ - _%g158393158397%_)))) + (let ((__tmp169933 + (lambda (_%g158666158669%_ + _%g158667158671%_) + (cons _%g158666158669%_ + _%g158667158671%_)))) (declare (not safe)) - (__foldr1 __tmp169659 '() _%L158364%_)))) + (__foldr1 __tmp169933 '() _%L158638%_)))) (declare (not safe)) - (gx#identifier-list? __tmp169658)) - (let ((__tmp169662 - (length (let ((__tmp169663 - (lambda (_%g158399158402%_ - _%g158400158404%_) - (cons _%g158399158402%_ - _%g158400158404%_)))) + (gx#identifier-list? __tmp169932)) + (let ((__tmp169936 + (length (let ((__tmp169937 + (lambda (_%g158673158676%_ + _%g158674158678%_) + (cons _%g158673158676%_ + _%g158674158678%_)))) (declare (not safe)) (__foldr1 - __tmp169663 + __tmp169937 '() - _%L158364%_)))) - (__tmp169660 - (length (let ((__tmp169661 - (lambda (_%g158406158409%_ - _%g158407158411%_) - (cons _%g158406158409%_ - _%g158407158411%_)))) + _%L158638%_)))) + (__tmp169934 + (length (let ((__tmp169935 + (lambda (_%g158680158683%_ + _%g158681158685%_) + (cons _%g158680158683%_ + _%g158681158685%_)))) (declare (not safe)) (__foldr1 - __tmp169661 + __tmp169935 '() - _%L158362%_))))) + _%L158636%_))))) (declare (not safe)) - (##fx= __tmp169662 __tmp169660)) - (let ((__tmp169666 - (let ((__tmp169667 - (lambda (_%g158413158416%_ - _%g158414158418%_) - (cons _%g158413158416%_ - _%g158414158418%_)))) + (##fx= __tmp169936 __tmp169934)) + (let ((__tmp169940 + (let ((__tmp169941 + (lambda (_%g158687158690%_ + _%g158688158692%_) + (cons _%g158687158690%_ + _%g158688158692%_)))) (declare (not safe)) - (__foldr1 __tmp169667 '() _%L158364%_))) - (__tmp169664 - (let ((__tmp169665 - (lambda (_%g158420158423%_ - _%g158421158425%_) - (cons _%g158420158423%_ - _%g158421158425%_)))) + (__foldr1 __tmp169941 '() _%L158638%_))) + (__tmp169938 + (let ((__tmp169939 + (lambda (_%g158694158697%_ + _%g158695158699%_) + (cons _%g158694158697%_ + _%g158695158699%_)))) (declare (not safe)) - (__foldr1 __tmp169665 '() _%L158362%_)))) + (__foldr1 __tmp169939 '() _%L158636%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp169666 - __tmp169664)) - (not (let ((__tmp169670 - (lambda (_%g158427158429%_) + __tmp169940 + __tmp169938)) + (not (let ((__tmp169944 + (lambda (_%g158701158703%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g158427158429%_ - _%L158363%_)))) - (__tmp169668 - (let ((__tmp169669 - (lambda (_%g158431158434%_ - _%g158432158436%_) - (cons _%g158431158434%_ - _%g158432158436%_)))) + _%g158701158703%_ + _%L158637%_)))) + (__tmp169942 + (let ((__tmp169943 + (lambda (_%g158705158708%_ + _%g158706158710%_) + (cons _%g158705158708%_ + _%g158706158710%_)))) (declare (not safe)) (__foldr1 - __tmp169669 + __tmp169943 '() - _%L158364%_)))) + _%L158638%_)))) (declare (not safe)) - (__find __tmp169670 __tmp169668)))) - (_%__kont168016168017%_ - _%L158362%_ - _%L158363%_ - _%L158364%_) - (_%__match168057168058%_ - _%e157686158250%_ - _%hd157687158253%_ - _%tl157688158255%_ - _%__splice168018168019%_ - _%target157689158258%_ - _%tl157691158260%_))) - (_%__match168057168058%_ - _%e157686158250%_ - _%hd157687158253%_ - _%tl157688158255%_ - _%__splice168018168019%_ - _%target157689158258%_ - _%tl157691158260%_))))))) + (__find __tmp169944 __tmp169942)))) + (_%__kont168290168291%_ + _%L158636%_ + _%L158637%_ + _%L158638%_) + (_%__match168331168332%_ + _%e157960158524%_ + _%hd157961158527%_ + _%tl157962158529%_ + _%__splice168292168293%_ + _%target157963158532%_ + _%tl157965158534%_))) + (_%__match168331168332%_ + _%e157960158524%_ + _%hd157961158527%_ + _%tl157962158529%_ + _%__splice168292168293%_ + _%target157963158532%_ + _%tl157965158534%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop157716158327%_ - _%target157713158322%_ + (_%loop157990158601%_ + _%target157987158596%_ '())) - (_%__match168057168058%_ - _%e157686158250%_ - _%hd157687158253%_ - _%tl157688158255%_ - _%__splice168018168019%_ - _%target157689158258%_ - _%tl157691158260%_)))) - (_%__match168057168058%_ - _%e157686158250%_ - _%hd157687158253%_ - _%tl157688158255%_ - _%__splice168018168019%_ - _%target157689158258%_ - _%tl157691158260%_)) - (_%__match168057168058%_ - _%e157686158250%_ - _%hd157687158253%_ - _%tl157688158255%_ - _%__splice168018168019%_ - _%target157689158258%_ - _%tl157691158260%_)))) + (_%__match168331168332%_ + _%e157960158524%_ + _%hd157961158527%_ + _%tl157962158529%_ + _%__splice168292168293%_ + _%target157963158532%_ + _%tl157965158534%_)))) + (_%__match168331168332%_ + _%e157960158524%_ + _%hd157961158527%_ + _%tl157962158529%_ + _%__splice168292168293%_ + _%target157963158532%_ + _%tl157965158534%_)) + (_%__match168331168332%_ + _%e157960158524%_ + _%hd157961158527%_ + _%tl157962158529%_ + _%__splice168292168293%_ + _%target157963158532%_ + _%tl157965158534%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168057168058%_ - _%e157686158250%_ - _%hd157687158253%_ - _%tl157688158255%_ - _%__splice168018168019%_ - _%target157689158258%_ - _%tl157691158260%_)) - (_%__match168057168058%_ - _%e157686158250%_ - _%hd157687158253%_ - _%tl157688158255%_ - _%__splice168018168019%_ - _%target157689158258%_ - _%tl157691158260%_)) - (_%__match168057168058%_ - _%e157686158250%_ - _%hd157687158253%_ - _%tl157688158255%_ - _%__splice168018168019%_ - _%target157689158258%_ - _%tl157691158260%_)))) - (_%__match168057168058%_ - _%e157686158250%_ - _%hd157687158253%_ - _%tl157688158255%_ - _%__splice168018168019%_ - _%target157689158258%_ - _%tl157691158260%_)))) - (_%__match168057168058%_ - _%e157686158250%_ - _%hd157687158253%_ - _%tl157688158255%_ - _%__splice168018168019%_ - _%target157689158258%_ - _%tl157691158260%_)) - (_%__match168057168058%_ - _%e157686158250%_ - _%hd157687158253%_ - _%tl157688158255%_ - _%__splice168018168019%_ - _%target157689158258%_ - _%tl157691158260%_)) - (_%__match168057168058%_ - _%e157686158250%_ - _%hd157687158253%_ - _%tl157688158255%_ - _%__splice168018168019%_ - _%target157689158258%_ - _%tl157691158260%_)))) + (_%__match168331168332%_ + _%e157960158524%_ + _%hd157961158527%_ + _%tl157962158529%_ + _%__splice168292168293%_ + _%target157963158532%_ + _%tl157965158534%_)) + (_%__match168331168332%_ + _%e157960158524%_ + _%hd157961158527%_ + _%tl157962158529%_ + _%__splice168292168293%_ + _%target157963158532%_ + _%tl157965158534%_)) + (_%__match168331168332%_ + _%e157960158524%_ + _%hd157961158527%_ + _%tl157962158529%_ + _%__splice168292168293%_ + _%target157963158532%_ + _%tl157965158534%_)))) + (_%__match168331168332%_ + _%e157960158524%_ + _%hd157961158527%_ + _%tl157962158529%_ + _%__splice168292168293%_ + _%target157963158532%_ + _%tl157965158534%_)))) + (_%__match168331168332%_ + _%e157960158524%_ + _%hd157961158527%_ + _%tl157962158529%_ + _%__splice168292168293%_ + _%target157963158532%_ + _%tl157965158534%_)) + (_%__match168331168332%_ + _%e157960158524%_ + _%hd157961158527%_ + _%tl157962158529%_ + _%__splice168292168293%_ + _%target157963158532%_ + _%tl157965158534%_)) + (_%__match168331168332%_ + _%e157960158524%_ + _%hd157961158527%_ + _%tl157962158529%_ + _%__splice168292168293%_ + _%target157963158532%_ + _%tl157965158534%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168057168058%_ - _%e157686158250%_ - _%hd157687158253%_ - _%tl157688158255%_ - _%__splice168018168019%_ - _%target157689158258%_ - _%tl157691158260%_)))) - (_%__match168057168058%_ - _%e157686158250%_ - _%hd157687158253%_ - _%tl157688158255%_ - _%__splice168018168019%_ - _%target157689158258%_ - _%tl157691158260%_))))))) - (_%loop157692158263%_ _%target157689158258%_ '()))))) + (_%__match168331168332%_ + _%e157960158524%_ + _%hd157961158527%_ + _%tl157962158529%_ + _%__splice168292168293%_ + _%target157963158532%_ + _%tl157965158534%_)))) + (_%__match168331168332%_ + _%e157960158524%_ + _%hd157961158527%_ + _%tl157962158529%_ + _%__splice168292168293%_ + _%target157963158532%_ + _%tl157965158534%_))))))) + (_%loop157966158537%_ _%target157963158532%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168014168015%_)) - (let ((_%e157686158250%_ + (gx#stx-pair? _%__stx168288168289%_)) + (let ((_%e157960158524%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168014168015%_)))) - (let ((_%tl157688158255%_ + (gx#stx-e _%__stx168288168289%_)))) + (let ((_%tl157962158529%_ (let () (declare (not safe)) - (##cdr _%e157686158250%_))) - (_%hd157687158253%_ + (##cdr _%e157960158524%_))) + (_%hd157961158527%_ (let () (declare (not safe)) - (##car _%e157686158250%_)))) + (##car _%e157960158524%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd157687158253%_)) - (let ((_%__splice168018168019%_ + (gx#stx-pair/null? _%hd157961158527%_)) + (let ((_%__splice168292168293%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd157687158253%_ + _%hd157961158527%_ '0)))) - (let ((_%tl157691158260%_ + (let ((_%tl157965158534%_ (let () (declare (not safe)) (##vector-ref - _%__splice168018168019%_ + _%__splice168292168293%_ '1))) - (_%target157689158258%_ + (_%target157963158532%_ (let () (declare (not safe)) (##vector-ref - _%__splice168018168019%_ + _%__splice168292168293%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157691158260%_)) - (_%__match168045168046%_ - _%e157686158250%_ - _%hd157687158253%_ - _%tl157688158255%_ - _%__splice168018168019%_ - _%target157689158258%_ - _%tl157691158260%_) - (_%__match168057168058%_ - _%e157686158250%_ - _%hd157687158253%_ - _%tl157688158255%_ - _%__splice168018168019%_ - _%target157689158258%_ - _%tl157691158260%_)))) + (gx#stx-null? _%tl157965158534%_)) + (_%__match168319168320%_ + _%e157960158524%_ + _%hd157961158527%_ + _%tl157962158529%_ + _%__splice168292168293%_ + _%target157963158532%_ + _%tl157965158534%_) + (_%__match168331168332%_ + _%e157960158524%_ + _%hd157961158527%_ + _%tl157962158529%_ + _%__splice168292168293%_ + _%target157963158532%_ + _%tl157965158534%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157688158255%_)) - (let ((_%e157801157858%_ + (gx#stx-pair? _%tl157962158529%_)) + (let ((_%e158075158132%_ (let () (declare (not safe)) - (gx#stx-e _%tl157688158255%_)))) - (let ((_%tl157803157863%_ + (gx#stx-e _%tl157962158529%_)))) + (let ((_%tl158077158137%_ (let () (declare (not safe)) - (##cdr _%e157801157858%_))) - (_%hd157802157861%_ + (##cdr _%e158075158132%_))) + (_%hd158076158135%_ (let () (declare (not safe)) - (##car _%e157801157858%_)))) + (##car _%e158075158132%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157802157861%_)) - (let ((_%e157804157866%_ + (gx#stx-pair? _%hd158076158135%_)) + (let ((_%e158078158140%_ (let () (declare (not safe)) - (gx#stx-e _%hd157802157861%_)))) - (let ((_%tl157806157871%_ + (gx#stx-e _%hd158076158135%_)))) + (let ((_%tl158080158145%_ (let () (declare (not safe)) - (##cdr _%e157804157866%_))) - (_%hd157805157869%_ + (##cdr _%e158078158140%_))) + (_%hd158079158143%_ (let () (declare (not safe)) - (##car _%e157804157866%_)))) + (##car _%e158078158140%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157805157869%_)) + _%hd158079158143%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd157805157869%_)) + _%hd158079158143%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157806157871%_)) - (let ((_%e157807157874%_ + _%tl158080158145%_)) + (let ((_%e158081158148%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl157806157871%_)))) - (let ((_%tl157809157879%_ - (let () (declare (not safe)) (##cdr _%e157807157874%_))) - (_%hd157808157877%_ + (gx#stx-e _%tl158080158145%_)))) + (let ((_%tl158083158153%_ + (let () (declare (not safe)) (##cdr _%e158081158148%_))) + (_%hd158082158151%_ (let () (declare (not safe)) - (##car _%e157807157874%_)))) + (##car _%e158081158148%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157808157877%_)) - (let ((_%e157810157882%_ + (gx#stx-pair? _%hd158082158151%_)) + (let ((_%e158084158156%_ (let () (declare (not safe)) - (gx#stx-e _%hd157808157877%_)))) - (let ((_%tl157812157887%_ + (gx#stx-e _%hd158082158151%_)))) + (let ((_%tl158086158161%_ (let () (declare (not safe)) - (##cdr _%e157810157882%_))) - (_%hd157811157885%_ + (##cdr _%e158084158156%_))) + (_%hd158085158159%_ (let () (declare (not safe)) - (##car _%e157810157882%_)))) + (##car _%e158084158156%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157811157885%_)) + (gx#identifier? _%hd158085158159%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157811157885%_)) + (gx#stx-eq? '%#ref _%hd158085158159%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157812157887%_)) - (let ((_%e157813157890%_ + (gx#stx-pair? _%tl158086158161%_)) + (let ((_%e158087158164%_ (let () (declare (not safe)) - (gx#stx-e _%tl157812157887%_)))) - (let ((_%tl157815157895%_ + (gx#stx-e _%tl158086158161%_)))) + (let ((_%tl158089158169%_ (let () (declare (not safe)) - (##cdr _%e157813157890%_))) - (_%hd157814157893%_ + (##cdr _%e158087158164%_))) + (_%hd158088158167%_ (let () (declare (not safe)) - (##car _%e157813157890%_)))) + (##car _%e158087158164%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157815157895%_)) + _%tl158089158169%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157809157879%_)) - (let ((_%e157816157898%_ + _%tl158083158153%_)) + (let ((_%e158090158172%_ (let () (declare (not safe)) (gx#stx-e - _%tl157809157879%_)))) - (let ((_%tl157818157903%_ + _%tl158083158153%_)))) + (let ((_%tl158092158177%_ (let () (declare (not safe)) - (##cdr _%e157816157898%_))) - (_%hd157817157901%_ + (##cdr _%e158090158172%_))) + (_%hd158091158175%_ (let () (declare (not safe)) - (##car _%e157816157898%_)))) + (##car _%e158090158172%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157817157901%_)) - (let ((_%e157819157906%_ + _%hd158091158175%_)) + (let ((_%e158093158180%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd157817157901%_)))) - (let ((_%tl157821157911%_ + (gx#stx-e _%hd158091158175%_)))) + (let ((_%tl158095158185%_ (let () (declare (not safe)) - (##cdr _%e157819157906%_))) - (_%hd157820157909%_ + (##cdr _%e158093158180%_))) + (_%hd158094158183%_ (let () (declare (not safe)) - (##car _%e157819157906%_)))) + (##car _%e158093158180%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157820157909%_)) + (gx#identifier? _%hd158094158183%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157820157909%_)) + (gx#stx-eq? '%#ref _%hd158094158183%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157821157911%_)) - (let ((_%e157822157914%_ + (gx#stx-pair? _%tl158095158185%_)) + (let ((_%e158096158188%_ (let () (declare (not safe)) - (gx#stx-e _%tl157821157911%_)))) - (let ((_%tl157824157919%_ + (gx#stx-e _%tl158095158185%_)))) + (let ((_%tl158098158193%_ (let () (declare (not safe)) - (##cdr _%e157822157914%_))) - (_%hd157823157917%_ + (##cdr _%e158096158188%_))) + (_%hd158097158191%_ (let () (declare (not safe)) - (##car _%e157822157914%_)))) + (##car _%e158096158188%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157824157919%_)) + (gx#stx-null? _%tl158098158193%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157818157903%_)) - (let ((_%e157825157922%_ + _%tl158092158177%_)) + (let ((_%e158099158196%_ (let () (declare (not safe)) (gx#stx-e - _%tl157818157903%_)))) - (let ((_%tl157827157927%_ + _%tl158092158177%_)))) + (let ((_%tl158101158201%_ (let () (declare (not safe)) - (##cdr _%e157825157922%_))) - (_%hd157826157925%_ + (##cdr _%e158099158196%_))) + (_%hd158100158199%_ (let () (declare (not safe)) - (##car _%e157825157922%_)))) + (##car _%e158099158196%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157826157925%_)) - (let ((_%e157828157930%_ + _%hd158100158199%_)) + (let ((_%e158102158204%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd157826157925%_)))) - (let ((_%tl157830157935%_ - (let () (declare (not safe)) (##cdr _%e157828157930%_))) - (_%hd157829157933%_ + (gx#stx-e _%hd158100158199%_)))) + (let ((_%tl158104158209%_ + (let () (declare (not safe)) (##cdr _%e158102158204%_))) + (_%hd158103158207%_ (let () (declare (not safe)) - (##car _%e157828157930%_)))) + (##car _%e158102158204%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157829157933%_)) + (gx#identifier? _%hd158103158207%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157829157933%_)) + (gx#stx-eq? '%#ref _%hd158103158207%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157830157935%_)) - (let ((_%e157831157938%_ + (gx#stx-pair? _%tl158104158209%_)) + (let ((_%e158105158212%_ (let () (declare (not safe)) - (gx#stx-e _%tl157830157935%_)))) - (let ((_%tl157833157943%_ + (gx#stx-e _%tl158104158209%_)))) + (let ((_%tl158107158217%_ (let () (declare (not safe)) - (##cdr _%e157831157938%_))) - (_%hd157832157941%_ + (##cdr _%e158105158212%_))) + (_%hd158106158215%_ (let () (declare (not safe)) - (##car _%e157831157938%_)))) + (##car _%e158105158212%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157833157943%_)) + (gx#stx-null? _%tl158107158217%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157827157927%_)) + (gx#stx-null? _%tl158101158201%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157803157863%_)) - (_%__match168155168156%_ - _%e157686158250%_ - _%hd157687158253%_ - _%tl157688158255%_ - _%e157801157858%_ - _%hd157802157861%_ - _%tl157803157863%_ - _%e157804157866%_ - _%hd157805157869%_ - _%tl157806157871%_ - _%e157807157874%_ - _%hd157808157877%_ - _%tl157809157879%_ - _%e157810157882%_ - _%hd157811157885%_ - _%tl157812157887%_ - _%e157813157890%_ - _%hd157814157893%_ - _%tl157815157895%_ - _%e157816157898%_ - _%hd157817157901%_ - _%tl157818157903%_ - _%e157819157906%_ - _%hd157820157909%_ - _%tl157821157911%_ - _%e157822157914%_ - _%hd157823157917%_ - _%tl157824157919%_ - _%e157825157922%_ - _%hd157826157925%_ - _%tl157827157927%_ - _%e157828157930%_ - _%hd157829157933%_ - _%tl157830157935%_ - _%e157831157938%_ - _%hd157832157941%_ - _%tl157833157943%_) - (_%__kont168030168031%_)) - (_%__kont168030168031%_)) - (_%__kont168030168031%_)))) - (_%__kont168030168031%_)) - (_%__kont168030168031%_)) - (_%__kont168030168031%_)))) - (_%__kont168030168031%_)))) + _%tl158077158137%_)) + (_%__match168429168430%_ + _%e157960158524%_ + _%hd157961158527%_ + _%tl157962158529%_ + _%e158075158132%_ + _%hd158076158135%_ + _%tl158077158137%_ + _%e158078158140%_ + _%hd158079158143%_ + _%tl158080158145%_ + _%e158081158148%_ + _%hd158082158151%_ + _%tl158083158153%_ + _%e158084158156%_ + _%hd158085158159%_ + _%tl158086158161%_ + _%e158087158164%_ + _%hd158088158167%_ + _%tl158089158169%_ + _%e158090158172%_ + _%hd158091158175%_ + _%tl158092158177%_ + _%e158093158180%_ + _%hd158094158183%_ + _%tl158095158185%_ + _%e158096158188%_ + _%hd158097158191%_ + _%tl158098158193%_ + _%e158099158196%_ + _%hd158100158199%_ + _%tl158101158201%_ + _%e158102158204%_ + _%hd158103158207%_ + _%tl158104158209%_ + _%e158105158212%_ + _%hd158106158215%_ + _%tl158107158217%_) + (_%__kont168304168305%_)) + (_%__kont168304168305%_)) + (_%__kont168304168305%_)))) + (_%__kont168304168305%_)) + (_%__kont168304168305%_)) + (_%__kont168304168305%_)))) + (_%__kont168304168305%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168030168031%_)) - (_%__kont168030168031%_)))) - (_%__kont168030168031%_)) - (_%__kont168030168031%_)) - (_%__kont168030168031%_)))) - (_%__kont168030168031%_)))) + (_%__kont168304168305%_)) + (_%__kont168304168305%_)))) + (_%__kont168304168305%_)) + (_%__kont168304168305%_)) + (_%__kont168304168305%_)))) + (_%__kont168304168305%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168030168031%_)) - (_%__kont168030168031%_)))) - (_%__kont168030168031%_)) - (_%__kont168030168031%_)) - (_%__kont168030168031%_)))) - (_%__kont168030168031%_)))) - (_%__kont168030168031%_)) + (_%__kont168304168305%_)) + (_%__kont168304168305%_)))) + (_%__kont168304168305%_)) + (_%__kont168304168305%_)) + (_%__kont168304168305%_)))) + (_%__kont168304168305%_)))) + (_%__kont168304168305%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168030168031%_)) - (_%__kont168030168031%_)))) - (_%__kont168030168031%_)))) - (_%__kont168030168031%_))))) - (_%__kont168030168031%_))))))) + (_%__kont168304168305%_)) + (_%__kont168304168305%_)))) + (_%__kont168304168305%_)))) + (_%__kont168304168305%_))))) + (_%__kont168304168305%_))))))) (define gxc#dispatch-lambda-form-delegate - (lambda (_%form157144%_) - (let* ((_%__stx168158168159%_ _%form157144%_) - (_%g157148157272%_ + (lambda (_%form157418%_) + (let* ((_%__stx168432168433%_ _%form157418%_) + (_%g157422157546%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168158168159%_))))) - (let ((_%__kont168160168161%_ - (lambda (_%L157642%_ _%L157643%_ _%L157644%_) + _%__stx168432168433%_))))) + (let ((_%__kont168434168435%_ + (lambda (_%L157916%_ _%L157917%_ _%L157918%_) (let () (declare (not safe)) - (gxc#identifier-symbol _%L157643%_)))) - (_%__kont168166168167%_ - (lambda (_%L157490%_ _%L157491%_ _%L157492%_ _%L157493%_) + (gxc#identifier-symbol _%L157917%_)))) + (_%__kont168440168441%_ + (lambda (_%L157764%_ _%L157765%_ _%L157766%_ _%L157767%_) (let () (declare (not safe)) - (gxc#identifier-symbol _%L157490%_)))) - (_%__kont168170168171%_ - (lambda (_%L157357%_ _%L157358%_ _%L157359%_) + (gxc#identifier-symbol _%L157764%_)))) + (_%__kont168444168445%_ + (lambda (_%L157631%_ _%L157632%_ _%L157633%_) (let () (declare (not safe)) - (gxc#identifier-symbol _%L157357%_))))) - (let* ((_%__match168267168268%_ - (lambda (_%e157238157277%_ - _%hd157239157280%_ - _%tl157240157282%_ - _%e157241157285%_ - _%hd157242157288%_ - _%tl157243157290%_ - _%e157244157293%_ - _%hd157245157296%_ - _%tl157246157298%_ - _%e157247157301%_ - _%hd157248157304%_ - _%tl157249157306%_ - _%e157250157309%_ - _%hd157251157312%_ - _%tl157252157314%_ - _%e157253157317%_ - _%hd157254157320%_ - _%tl157255157322%_ - _%e157256157325%_ - _%hd157257157328%_ - _%tl157258157330%_ - _%e157259157333%_ - _%hd157260157336%_ - _%tl157261157338%_ - _%e157262157341%_ - _%hd157263157344%_ - _%tl157264157346%_) + (gxc#identifier-symbol _%L157631%_))))) + (let* ((_%__match168541168542%_ + (lambda (_%e157512157551%_ + _%hd157513157554%_ + _%tl157514157556%_ + _%e157515157559%_ + _%hd157516157562%_ + _%tl157517157564%_ + _%e157518157567%_ + _%hd157519157570%_ + _%tl157520157572%_ + _%e157521157575%_ + _%hd157522157578%_ + _%tl157523157580%_ + _%e157524157583%_ + _%hd157525157586%_ + _%tl157526157588%_ + _%e157527157591%_ + _%hd157528157594%_ + _%tl157529157596%_ + _%e157530157599%_ + _%hd157531157602%_ + _%tl157532157604%_ + _%e157533157607%_ + _%hd157534157610%_ + _%tl157535157612%_ + _%e157536157615%_ + _%hd157537157618%_ + _%tl157538157620%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157258157330%_)) - (let ((_%e157265157349%_ + (gx#stx-pair? _%tl157532157604%_)) + (let ((_%e157539157623%_ (let () (declare (not safe)) - (gx#stx-e _%tl157258157330%_)))) - (let ((_%tl157267157354%_ + (gx#stx-e _%tl157532157604%_)))) + (let ((_%tl157541157628%_ (let () (declare (not safe)) - (##cdr _%e157265157349%_))) - (_%hd157266157352%_ + (##cdr _%e157539157623%_))) + (_%hd157540157626%_ (let () (declare (not safe)) - (##car _%e157265157349%_)))) + (##car _%e157539157623%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157267157354%_)) + (gx#stx-null? _%tl157541157628%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157243157290%_)) - (_%__kont168170168171%_ - _%hd157263157344%_ - _%hd157254157320%_ - _%hd157239157280%_) + (gx#stx-null? _%tl157517157564%_)) + (_%__kont168444168445%_ + _%hd157537157618%_ + _%hd157528157594%_ + _%hd157513157554%_) (let () (declare (not safe)) - (_%g157148157272%_))) + (_%g157422157546%_))) (let () (declare (not safe)) - (_%g157148157272%_))))) - (let () (declare (not safe)) (_%g157148157272%_))))) - (_%__match168197168198%_ - (lambda (_%e157199157394%_ - _%hd157200157397%_ - _%tl157201157399%_ - _%__splice168168168169%_ - _%target157202157402%_ - _%tl157204157404%_) - (letrec ((_%loop157205157407%_ - (lambda (_%hd157203157410%_ - _%arg157209157412%_) + (_%g157422157546%_))))) + (let () (declare (not safe)) (_%g157422157546%_))))) + (_%__match168471168472%_ + (lambda (_%e157473157668%_ + _%hd157474157671%_ + _%tl157475157673%_ + _%__splice168442168443%_ + _%target157476157676%_ + _%tl157478157678%_) + (letrec ((_%loop157479157681%_ + (lambda (_%hd157477157684%_ + _%arg157483157686%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157203157410%_)) - (let ((_%e157206157415%_ + (gx#stx-pair? _%hd157477157684%_)) + (let ((_%e157480157689%_ (let () (declare (not safe)) - (gx#stx-e _%hd157203157410%_)))) - (let ((_%lp-tl157208157420%_ + (gx#stx-e _%hd157477157684%_)))) + (let ((_%lp-tl157482157694%_ (let () (declare (not safe)) - (##cdr _%e157206157415%_))) - (_%lp-hd157207157418%_ + (##cdr _%e157480157689%_))) + (_%lp-hd157481157692%_ (let () (declare (not safe)) - (##car _%e157206157415%_)))) - (_%loop157205157407%_ - _%lp-tl157208157420%_ - (cons _%lp-hd157207157418%_ - _%arg157209157412%_)))) - (let ((_%arg157210157423%_ - (reverse _%arg157209157412%_))) + (##car _%e157480157689%_)))) + (_%loop157479157681%_ + _%lp-tl157482157694%_ + (cons _%lp-hd157481157692%_ + _%arg157483157686%_)))) + (let ((_%arg157484157697%_ + (reverse _%arg157483157686%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157201157399%_)) - (let ((_%e157211157426%_ + _%tl157475157673%_)) + (let ((_%e157485157700%_ (let () (declare (not safe)) (gx#stx-e - _%tl157201157399%_)))) - (let ((_%tl157213157431%_ + _%tl157475157673%_)))) + (let ((_%tl157487157705%_ (let () (declare (not safe)) - (##cdr _%e157211157426%_))) - (_%hd157212157429%_ + (##cdr _%e157485157700%_))) + (_%hd157486157703%_ (let () (declare (not safe)) - (##car _%e157211157426%_)))) + (##car _%e157485157700%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157212157429%_)) - (let ((_%e157214157434%_ + _%hd157486157703%_)) + (let ((_%e157488157708%_ (let () (declare (not safe)) (gx#stx-e - _%hd157212157429%_)))) - (let ((_%tl157216157439%_ + _%hd157486157703%_)))) + (let ((_%tl157490157713%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157214157434%_))) - (_%hd157215157437%_ - (let () (declare (not safe)) (##car _%e157214157434%_)))) + (##cdr _%e157488157708%_))) + (_%hd157489157711%_ + (let () (declare (not safe)) (##car _%e157488157708%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157215157437%_)) + (gx#identifier? _%hd157489157711%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd157215157437%_)) + (gx#stx-eq? '%#call _%hd157489157711%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157216157439%_)) - (let ((_%e157217157442%_ + (gx#stx-pair? _%tl157490157713%_)) + (let ((_%e157491157716%_ (let () (declare (not safe)) - (gx#stx-e _%tl157216157439%_)))) - (let ((_%tl157219157447%_ + (gx#stx-e _%tl157490157713%_)))) + (let ((_%tl157493157721%_ (let () (declare (not safe)) - (##cdr _%e157217157442%_))) - (_%hd157218157445%_ + (##cdr _%e157491157716%_))) + (_%hd157492157719%_ (let () (declare (not safe)) - (##car _%e157217157442%_)))) + (##car _%e157491157716%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157218157445%_)) - (let ((_%e157220157450%_ + (gx#stx-pair? _%hd157492157719%_)) + (let ((_%e157494157724%_ (let () (declare (not safe)) - (gx#stx-e _%hd157218157445%_)))) - (let ((_%tl157222157455%_ + (gx#stx-e _%hd157492157719%_)))) + (let ((_%tl157496157729%_ (let () (declare (not safe)) - (##cdr _%e157220157450%_))) - (_%hd157221157453%_ + (##cdr _%e157494157724%_))) + (_%hd157495157727%_ (let () (declare (not safe)) - (##car _%e157220157450%_)))) + (##car _%e157494157724%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157221157453%_)) + _%hd157495157727%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157221157453%_)) + _%hd157495157727%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157222157455%_)) - (let ((_%e157223157458%_ + _%tl157496157729%_)) + (let ((_%e157497157732%_ (let () (declare (not safe)) (gx#stx-e - _%tl157222157455%_)))) - (let ((_%tl157225157463%_ + _%tl157496157729%_)))) + (let ((_%tl157499157737%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157223157458%_))) - (_%hd157224157461%_ - (let () (declare (not safe)) (##car _%e157223157458%_)))) + (##cdr _%e157497157732%_))) + (_%hd157498157735%_ + (let () (declare (not safe)) (##car _%e157497157732%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157225157463%_)) + (gx#stx-null? _%tl157499157737%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157219157447%_)) - (let ((_%e157226157466%_ + (gx#stx-pair? _%tl157493157721%_)) + (let ((_%e157500157740%_ (let () (declare (not safe)) - (gx#stx-e _%tl157219157447%_)))) - (let ((_%tl157228157471%_ + (gx#stx-e _%tl157493157721%_)))) + (let ((_%tl157502157745%_ (let () (declare (not safe)) - (##cdr _%e157226157466%_))) - (_%hd157227157469%_ + (##cdr _%e157500157740%_))) + (_%hd157501157743%_ (let () (declare (not safe)) - (##car _%e157226157466%_)))) + (##car _%e157500157740%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157227157469%_)) - (let ((_%e157229157474%_ + (gx#stx-pair? _%hd157501157743%_)) + (let ((_%e157503157748%_ (let () (declare (not safe)) - (gx#stx-e _%hd157227157469%_)))) - (let ((_%tl157231157479%_ + (gx#stx-e _%hd157501157743%_)))) + (let ((_%tl157505157753%_ (let () (declare (not safe)) - (##cdr _%e157229157474%_))) - (_%hd157230157477%_ + (##cdr _%e157503157748%_))) + (_%hd157504157751%_ (let () (declare (not safe)) - (##car _%e157229157474%_)))) + (##car _%e157503157748%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157230157477%_)) + (gx#identifier? _%hd157504157751%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157230157477%_)) + _%hd157504157751%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157231157479%_)) - (let ((_%e157232157482%_ + _%tl157505157753%_)) + (let ((_%e157506157756%_ (let () (declare (not safe)) (gx#stx-e - _%tl157231157479%_)))) - (let ((_%tl157234157487%_ + _%tl157505157753%_)))) + (let ((_%tl157508157761%_ (let () (declare (not safe)) - (##cdr _%e157232157482%_))) - (_%hd157233157485%_ + (##cdr _%e157506157756%_))) + (_%hd157507157759%_ (let () (declare (not safe)) - (##car _%e157232157482%_)))) + (##car _%e157506157756%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157234157487%_)) + _%tl157508157761%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157213157431%_)) - (_%__kont168166168167%_ - _%hd157233157485%_ - _%hd157224157461%_ - _%tl157204157404%_ - _%arg157210157423%_) - (_%__match168267168268%_ - _%e157199157394%_ - _%hd157200157397%_ - _%tl157201157399%_ - _%e157211157426%_ - _%hd157212157429%_ - _%tl157213157431%_ - _%e157214157434%_ - _%hd157215157437%_ - _%tl157216157439%_ - _%e157217157442%_ - _%hd157218157445%_ - _%tl157219157447%_ - _%e157220157450%_ - _%hd157221157453%_ - _%tl157222157455%_ - _%e157223157458%_ - _%hd157224157461%_ - _%tl157225157463%_ - _%e157226157466%_ - _%hd157227157469%_ - _%tl157228157471%_ - _%e157229157474%_ - _%hd157230157477%_ - _%tl157231157479%_ - _%e157232157482%_ - _%hd157233157485%_ - _%tl157234157487%_)) + _%tl157487157705%_)) + (_%__kont168440168441%_ + _%hd157507157759%_ + _%hd157498157735%_ + _%tl157478157678%_ + _%arg157484157697%_) + (_%__match168541168542%_ + _%e157473157668%_ + _%hd157474157671%_ + _%tl157475157673%_ + _%e157485157700%_ + _%hd157486157703%_ + _%tl157487157705%_ + _%e157488157708%_ + _%hd157489157711%_ + _%tl157490157713%_ + _%e157491157716%_ + _%hd157492157719%_ + _%tl157493157721%_ + _%e157494157724%_ + _%hd157495157727%_ + _%tl157496157729%_ + _%e157497157732%_ + _%hd157498157735%_ + _%tl157499157737%_ + _%e157500157740%_ + _%hd157501157743%_ + _%tl157502157745%_ + _%e157503157748%_ + _%hd157504157751%_ + _%tl157505157753%_ + _%e157506157756%_ + _%hd157507157759%_ + _%tl157508157761%_)) (let () (declare (not safe)) - (_%g157148157272%_))))) + (_%g157422157546%_))))) (let () (declare (not safe)) - (_%g157148157272%_))) + (_%g157422157546%_))) (let () (declare (not safe)) - (_%g157148157272%_))) + (_%g157422157546%_))) (let () (declare (not safe)) - (_%g157148157272%_))))) + (_%g157422157546%_))))) (let () (declare (not safe)) - (_%g157148157272%_))))) - (let () (declare (not safe)) (_%g157148157272%_))) - (let () (declare (not safe)) (_%g157148157272%_))))) + (_%g157422157546%_))))) + (let () (declare (not safe)) (_%g157422157546%_))) + (let () (declare (not safe)) (_%g157422157546%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g157148157272%_))) + (_%g157422157546%_))) (let () (declare (not safe)) - (_%g157148157272%_))) + (_%g157422157546%_))) (let () (declare (not safe)) - (_%g157148157272%_))))) + (_%g157422157546%_))))) (let () (declare (not safe)) - (_%g157148157272%_))))) - (let () (declare (not safe)) (_%g157148157272%_))) - (let () (declare (not safe)) (_%g157148157272%_))) - (let () (declare (not safe)) (_%g157148157272%_))))) + (_%g157422157546%_))))) + (let () (declare (not safe)) (_%g157422157546%_))) + (let () (declare (not safe)) (_%g157422157546%_))) + (let () (declare (not safe)) (_%g157422157546%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g157148157272%_))))) + (_%g157422157546%_))))) (let () (declare (not safe)) - (_%g157148157272%_)))))))) - (_%loop157205157407%_ _%target157202157402%_ '())))) - (_%__match168185168186%_ - (lambda (_%e157153157530%_ - _%hd157154157533%_ - _%tl157155157535%_ - _%__splice168162168163%_ - _%target157156157538%_ - _%tl157158157540%_) - (letrec ((_%loop157159157543%_ - (lambda (_%hd157157157546%_ - _%arg157163157548%_) + (_%g157422157546%_)))))))) + (_%loop157479157681%_ _%target157476157676%_ '())))) + (_%__match168459168460%_ + (lambda (_%e157427157804%_ + _%hd157428157807%_ + _%tl157429157809%_ + _%__splice168436168437%_ + _%target157430157812%_ + _%tl157432157814%_) + (letrec ((_%loop157433157817%_ + (lambda (_%hd157431157820%_ + _%arg157437157822%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157157157546%_)) - (let ((_%e157160157551%_ + (gx#stx-pair? _%hd157431157820%_)) + (let ((_%e157434157825%_ (let () (declare (not safe)) - (gx#stx-e _%hd157157157546%_)))) - (let ((_%lp-tl157162157556%_ + (gx#stx-e _%hd157431157820%_)))) + (let ((_%lp-tl157436157830%_ (let () (declare (not safe)) - (##cdr _%e157160157551%_))) - (_%lp-hd157161157554%_ + (##cdr _%e157434157825%_))) + (_%lp-hd157435157828%_ (let () (declare (not safe)) - (##car _%e157160157551%_)))) - (_%loop157159157543%_ - _%lp-tl157162157556%_ - (cons _%lp-hd157161157554%_ - _%arg157163157548%_)))) - (let ((_%arg157164157559%_ - (reverse _%arg157163157548%_))) + (##car _%e157434157825%_)))) + (_%loop157433157817%_ + _%lp-tl157436157830%_ + (cons _%lp-hd157435157828%_ + _%arg157437157822%_)))) + (let ((_%arg157438157833%_ + (reverse _%arg157437157822%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157155157535%_)) - (let ((_%e157165157562%_ + _%tl157429157809%_)) + (let ((_%e157439157836%_ (let () (declare (not safe)) (gx#stx-e - _%tl157155157535%_)))) - (let ((_%tl157167157567%_ + _%tl157429157809%_)))) + (let ((_%tl157441157841%_ (let () (declare (not safe)) - (##cdr _%e157165157562%_))) - (_%hd157166157565%_ + (##cdr _%e157439157836%_))) + (_%hd157440157839%_ (let () (declare (not safe)) - (##car _%e157165157562%_)))) + (##car _%e157439157836%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157166157565%_)) - (let ((_%e157168157570%_ + _%hd157440157839%_)) + (let ((_%e157442157844%_ (let () (declare (not safe)) (gx#stx-e - _%hd157166157565%_)))) - (let ((_%tl157170157575%_ + _%hd157440157839%_)))) + (let ((_%tl157444157849%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157168157570%_))) - (_%hd157169157573%_ - (let () (declare (not safe)) (##car _%e157168157570%_)))) + (##cdr _%e157442157844%_))) + (_%hd157443157847%_ + (let () (declare (not safe)) (##car _%e157442157844%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157169157573%_)) + (gx#identifier? _%hd157443157847%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd157169157573%_)) + (gx#stx-eq? '%#call _%hd157443157847%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157170157575%_)) - (let ((_%e157171157578%_ + (gx#stx-pair? _%tl157444157849%_)) + (let ((_%e157445157852%_ (let () (declare (not safe)) - (gx#stx-e _%tl157170157575%_)))) - (let ((_%tl157173157583%_ + (gx#stx-e _%tl157444157849%_)))) + (let ((_%tl157447157857%_ (let () (declare (not safe)) - (##cdr _%e157171157578%_))) - (_%hd157172157581%_ + (##cdr _%e157445157852%_))) + (_%hd157446157855%_ (let () (declare (not safe)) - (##car _%e157171157578%_)))) + (##car _%e157445157852%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157172157581%_)) - (let ((_%e157174157586%_ + (gx#stx-pair? _%hd157446157855%_)) + (let ((_%e157448157860%_ (let () (declare (not safe)) - (gx#stx-e _%hd157172157581%_)))) - (let ((_%tl157176157591%_ + (gx#stx-e _%hd157446157855%_)))) + (let ((_%tl157450157865%_ (let () (declare (not safe)) - (##cdr _%e157174157586%_))) - (_%hd157175157589%_ + (##cdr _%e157448157860%_))) + (_%hd157449157863%_ (let () (declare (not safe)) - (##car _%e157174157586%_)))) + (##car _%e157448157860%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157175157589%_)) + _%hd157449157863%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157175157589%_)) + _%hd157449157863%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157176157591%_)) - (let ((_%e157177157594%_ + _%tl157450157865%_)) + (let ((_%e157451157868%_ (let () (declare (not safe)) (gx#stx-e - _%tl157176157591%_)))) - (let ((_%tl157179157599%_ + _%tl157450157865%_)))) + (let ((_%tl157453157873%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157177157594%_))) - (_%hd157178157597%_ - (let () (declare (not safe)) (##car _%e157177157594%_)))) + (##cdr _%e157451157868%_))) + (_%hd157452157871%_ + (let () (declare (not safe)) (##car _%e157451157868%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157179157599%_)) + (gx#stx-null? _%tl157453157873%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl157173157583%_)) - (let ((_%__splice168164168165%_ + (gx#stx-pair/null? _%tl157447157857%_)) + (let ((_%__splice168438168439%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl157173157583%_ + _%tl157447157857%_ '0)))) - (let ((_%tl157182157604%_ + (let ((_%tl157456157878%_ (let () (declare (not safe)) - (##vector-ref _%__splice168164168165%_ '1))) - (_%target157180157602%_ + (##vector-ref _%__splice168438168439%_ '1))) + (_%target157454157876%_ (let () (declare (not safe)) (##vector-ref - _%__splice168164168165%_ + _%__splice168438168439%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157182157604%_)) - (letrec ((_%loop157183157607%_ - (lambda (_%hd157181157610%_ - _%xarg157187157612%_) + (gx#stx-null? _%tl157456157878%_)) + (letrec ((_%loop157457157881%_ + (lambda (_%hd157455157884%_ + _%xarg157461157886%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157181157610%_)) - (let ((_%e157184157615%_ + _%hd157455157884%_)) + (let ((_%e157458157889%_ (let () (declare (not safe)) (gx#stx-e - _%hd157181157610%_)))) - (let ((_%lp-tl157186157620%_ + _%hd157455157884%_)))) + (let ((_%lp-tl157460157894%_ (let () (declare (not safe)) - (##cdr _%e157184157615%_))) - (_%lp-hd157185157618%_ + (##cdr _%e157458157889%_))) + (_%lp-hd157459157892%_ (let () (declare (not safe)) - (##car _%e157184157615%_)))) + (##car _%e157458157889%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd157185157618%_)) - (let ((_%e157189157623%_ + _%lp-hd157459157892%_)) + (let ((_%e157463157897%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%lp-hd157185157618%_)))) - (let ((_%tl157191157628%_ + (gx#stx-e _%lp-hd157459157892%_)))) + (let ((_%tl157465157902%_ (let () (declare (not safe)) - (##cdr _%e157189157623%_))) - (_%hd157190157626%_ + (##cdr _%e157463157897%_))) + (_%hd157464157900%_ (let () (declare (not safe)) - (##car _%e157189157623%_)))) + (##car _%e157463157897%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157190157626%_)) + (gx#identifier? _%hd157464157900%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157190157626%_)) + (gx#stx-eq? '%#ref _%hd157464157900%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157191157628%_)) - (let ((_%e157192157631%_ + (gx#stx-pair? _%tl157465157902%_)) + (let ((_%e157466157905%_ (let () (declare (not safe)) - (gx#stx-e _%tl157191157628%_)))) - (let ((_%tl157194157636%_ + (gx#stx-e _%tl157465157902%_)))) + (let ((_%tl157468157910%_ (let () (declare (not safe)) - (##cdr _%e157192157631%_))) - (_%hd157193157634%_ + (##cdr _%e157466157905%_))) + (_%hd157467157908%_ (let () (declare (not safe)) - (##car _%e157192157631%_)))) + (##car _%e157466157905%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157194157636%_)) - (_%loop157183157607%_ - _%lp-tl157186157620%_ - (cons _%hd157193157634%_ - _%xarg157187157612%_)) - (_%__match168197168198%_ - _%e157153157530%_ - _%hd157154157533%_ - _%tl157155157535%_ - _%__splice168162168163%_ - _%target157156157538%_ - _%tl157158157540%_)))) - (_%__match168197168198%_ - _%e157153157530%_ - _%hd157154157533%_ - _%tl157155157535%_ - _%__splice168162168163%_ - _%target157156157538%_ - _%tl157158157540%_)) - (_%__match168197168198%_ - _%e157153157530%_ - _%hd157154157533%_ - _%tl157155157535%_ - _%__splice168162168163%_ - _%target157156157538%_ - _%tl157158157540%_)) - (_%__match168197168198%_ - _%e157153157530%_ - _%hd157154157533%_ - _%tl157155157535%_ - _%__splice168162168163%_ - _%target157156157538%_ - _%tl157158157540%_)))) - (_%__match168197168198%_ - _%e157153157530%_ - _%hd157154157533%_ - _%tl157155157535%_ - _%__splice168162168163%_ - _%target157156157538%_ - _%tl157158157540%_)))) + (gx#stx-null? _%tl157468157910%_)) + (_%loop157457157881%_ + _%lp-tl157460157894%_ + (cons _%hd157467157908%_ + _%xarg157461157886%_)) + (_%__match168471168472%_ + _%e157427157804%_ + _%hd157428157807%_ + _%tl157429157809%_ + _%__splice168436168437%_ + _%target157430157812%_ + _%tl157432157814%_)))) + (_%__match168471168472%_ + _%e157427157804%_ + _%hd157428157807%_ + _%tl157429157809%_ + _%__splice168436168437%_ + _%target157430157812%_ + _%tl157432157814%_)) + (_%__match168471168472%_ + _%e157427157804%_ + _%hd157428157807%_ + _%tl157429157809%_ + _%__splice168436168437%_ + _%target157430157812%_ + _%tl157432157814%_)) + (_%__match168471168472%_ + _%e157427157804%_ + _%hd157428157807%_ + _%tl157429157809%_ + _%__splice168436168437%_ + _%target157430157812%_ + _%tl157432157814%_)))) + (_%__match168471168472%_ + _%e157427157804%_ + _%hd157428157807%_ + _%tl157429157809%_ + _%__splice168436168437%_ + _%target157430157812%_ + _%tl157432157814%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%xarg157188157639%_ - (reverse _%xarg157187157612%_))) + (let ((_%xarg157462157913%_ + (reverse _%xarg157461157886%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157167157567%_)) - (_%__kont168160168161%_ - _%xarg157188157639%_ - _%hd157178157597%_ - _%arg157164157559%_) - (_%__match168197168198%_ - _%e157153157530%_ - _%hd157154157533%_ - _%tl157155157535%_ - _%__splice168162168163%_ - _%target157156157538%_ - _%tl157158157540%_))))))) - (_%loop157183157607%_ - _%target157180157602%_ + _%tl157441157841%_)) + (_%__kont168434168435%_ + _%xarg157462157913%_ + _%hd157452157871%_ + _%arg157438157833%_) + (_%__match168471168472%_ + _%e157427157804%_ + _%hd157428157807%_ + _%tl157429157809%_ + _%__splice168436168437%_ + _%target157430157812%_ + _%tl157432157814%_))))))) + (_%loop157457157881%_ + _%target157454157876%_ '())) - (_%__match168197168198%_ - _%e157153157530%_ - _%hd157154157533%_ - _%tl157155157535%_ - _%__splice168162168163%_ - _%target157156157538%_ - _%tl157158157540%_)))) - (_%__match168197168198%_ - _%e157153157530%_ - _%hd157154157533%_ - _%tl157155157535%_ - _%__splice168162168163%_ - _%target157156157538%_ - _%tl157158157540%_)) - (_%__match168197168198%_ - _%e157153157530%_ - _%hd157154157533%_ - _%tl157155157535%_ - _%__splice168162168163%_ - _%target157156157538%_ - _%tl157158157540%_)))) + (_%__match168471168472%_ + _%e157427157804%_ + _%hd157428157807%_ + _%tl157429157809%_ + _%__splice168436168437%_ + _%target157430157812%_ + _%tl157432157814%_)))) + (_%__match168471168472%_ + _%e157427157804%_ + _%hd157428157807%_ + _%tl157429157809%_ + _%__splice168436168437%_ + _%target157430157812%_ + _%tl157432157814%_)) + (_%__match168471168472%_ + _%e157427157804%_ + _%hd157428157807%_ + _%tl157429157809%_ + _%__splice168436168437%_ + _%target157430157812%_ + _%tl157432157814%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168197168198%_ - _%e157153157530%_ - _%hd157154157533%_ - _%tl157155157535%_ - _%__splice168162168163%_ - _%target157156157538%_ - _%tl157158157540%_)) - (_%__match168197168198%_ - _%e157153157530%_ - _%hd157154157533%_ - _%tl157155157535%_ - _%__splice168162168163%_ - _%target157156157538%_ - _%tl157158157540%_)) - (_%__match168197168198%_ - _%e157153157530%_ - _%hd157154157533%_ - _%tl157155157535%_ - _%__splice168162168163%_ - _%target157156157538%_ - _%tl157158157540%_)))) - (_%__match168197168198%_ - _%e157153157530%_ - _%hd157154157533%_ - _%tl157155157535%_ - _%__splice168162168163%_ - _%target157156157538%_ - _%tl157158157540%_)))) - (_%__match168197168198%_ - _%e157153157530%_ - _%hd157154157533%_ - _%tl157155157535%_ - _%__splice168162168163%_ - _%target157156157538%_ - _%tl157158157540%_)) - (_%__match168197168198%_ - _%e157153157530%_ - _%hd157154157533%_ - _%tl157155157535%_ - _%__splice168162168163%_ - _%target157156157538%_ - _%tl157158157540%_)) - (_%__match168197168198%_ - _%e157153157530%_ - _%hd157154157533%_ - _%tl157155157535%_ - _%__splice168162168163%_ - _%target157156157538%_ - _%tl157158157540%_)))) + (_%__match168471168472%_ + _%e157427157804%_ + _%hd157428157807%_ + _%tl157429157809%_ + _%__splice168436168437%_ + _%target157430157812%_ + _%tl157432157814%_)) + (_%__match168471168472%_ + _%e157427157804%_ + _%hd157428157807%_ + _%tl157429157809%_ + _%__splice168436168437%_ + _%target157430157812%_ + _%tl157432157814%_)) + (_%__match168471168472%_ + _%e157427157804%_ + _%hd157428157807%_ + _%tl157429157809%_ + _%__splice168436168437%_ + _%target157430157812%_ + _%tl157432157814%_)))) + (_%__match168471168472%_ + _%e157427157804%_ + _%hd157428157807%_ + _%tl157429157809%_ + _%__splice168436168437%_ + _%target157430157812%_ + _%tl157432157814%_)))) + (_%__match168471168472%_ + _%e157427157804%_ + _%hd157428157807%_ + _%tl157429157809%_ + _%__splice168436168437%_ + _%target157430157812%_ + _%tl157432157814%_)) + (_%__match168471168472%_ + _%e157427157804%_ + _%hd157428157807%_ + _%tl157429157809%_ + _%__splice168436168437%_ + _%target157430157812%_ + _%tl157432157814%_)) + (_%__match168471168472%_ + _%e157427157804%_ + _%hd157428157807%_ + _%tl157429157809%_ + _%__splice168436168437%_ + _%target157430157812%_ + _%tl157432157814%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168197168198%_ - _%e157153157530%_ - _%hd157154157533%_ - _%tl157155157535%_ - _%__splice168162168163%_ - _%target157156157538%_ - _%tl157158157540%_)))) - (_%__match168197168198%_ - _%e157153157530%_ - _%hd157154157533%_ - _%tl157155157535%_ - _%__splice168162168163%_ - _%target157156157538%_ - _%tl157158157540%_))))))) - (_%loop157159157543%_ _%target157156157538%_ '()))))) + (_%__match168471168472%_ + _%e157427157804%_ + _%hd157428157807%_ + _%tl157429157809%_ + _%__splice168436168437%_ + _%target157430157812%_ + _%tl157432157814%_)))) + (_%__match168471168472%_ + _%e157427157804%_ + _%hd157428157807%_ + _%tl157429157809%_ + _%__splice168436168437%_ + _%target157430157812%_ + _%tl157432157814%_))))))) + (_%loop157433157817%_ _%target157430157812%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168158168159%_)) - (let ((_%e157153157530%_ + (gx#stx-pair? _%__stx168432168433%_)) + (let ((_%e157427157804%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168158168159%_)))) - (let ((_%tl157155157535%_ + (gx#stx-e _%__stx168432168433%_)))) + (let ((_%tl157429157809%_ (let () (declare (not safe)) - (##cdr _%e157153157530%_))) - (_%hd157154157533%_ + (##cdr _%e157427157804%_))) + (_%hd157428157807%_ (let () (declare (not safe)) - (##car _%e157153157530%_)))) + (##car _%e157427157804%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd157154157533%_)) - (let ((_%__splice168162168163%_ + (gx#stx-pair/null? _%hd157428157807%_)) + (let ((_%__splice168436168437%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd157154157533%_ + _%hd157428157807%_ '0)))) - (let ((_%tl157158157540%_ + (let ((_%tl157432157814%_ (let () (declare (not safe)) (##vector-ref - _%__splice168162168163%_ + _%__splice168436168437%_ '1))) - (_%target157156157538%_ + (_%target157430157812%_ (let () (declare (not safe)) (##vector-ref - _%__splice168162168163%_ + _%__splice168436168437%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157158157540%_)) - (_%__match168185168186%_ - _%e157153157530%_ - _%hd157154157533%_ - _%tl157155157535%_ - _%__splice168162168163%_ - _%target157156157538%_ - _%tl157158157540%_) - (_%__match168197168198%_ - _%e157153157530%_ - _%hd157154157533%_ - _%tl157155157535%_ - _%__splice168162168163%_ - _%target157156157538%_ - _%tl157158157540%_)))) + (gx#stx-null? _%tl157432157814%_)) + (_%__match168459168460%_ + _%e157427157804%_ + _%hd157428157807%_ + _%tl157429157809%_ + _%__splice168436168437%_ + _%target157430157812%_ + _%tl157432157814%_) + (_%__match168471168472%_ + _%e157427157804%_ + _%hd157428157807%_ + _%tl157429157809%_ + _%__splice168436168437%_ + _%target157430157812%_ + _%tl157432157814%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157155157535%_)) - (let ((_%e157241157285%_ + (gx#stx-pair? _%tl157429157809%_)) + (let ((_%e157515157559%_ (let () (declare (not safe)) - (gx#stx-e _%tl157155157535%_)))) - (let ((_%tl157243157290%_ + (gx#stx-e _%tl157429157809%_)))) + (let ((_%tl157517157564%_ (let () (declare (not safe)) - (##cdr _%e157241157285%_))) - (_%hd157242157288%_ + (##cdr _%e157515157559%_))) + (_%hd157516157562%_ (let () (declare (not safe)) - (##car _%e157241157285%_)))) + (##car _%e157515157559%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157242157288%_)) - (let ((_%e157244157293%_ + (gx#stx-pair? _%hd157516157562%_)) + (let ((_%e157518157567%_ (let () (declare (not safe)) - (gx#stx-e _%hd157242157288%_)))) - (let ((_%tl157246157298%_ + (gx#stx-e _%hd157516157562%_)))) + (let ((_%tl157520157572%_ (let () (declare (not safe)) - (##cdr _%e157244157293%_))) - (_%hd157245157296%_ + (##cdr _%e157518157567%_))) + (_%hd157519157570%_ (let () (declare (not safe)) - (##car _%e157244157293%_)))) + (##car _%e157518157567%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157245157296%_)) + _%hd157519157570%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd157245157296%_)) + _%hd157519157570%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157246157298%_)) - (let ((_%e157247157301%_ + _%tl157520157572%_)) + (let ((_%e157521157575%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl157246157298%_)))) - (let ((_%tl157249157306%_ - (let () (declare (not safe)) (##cdr _%e157247157301%_))) - (_%hd157248157304%_ + (gx#stx-e _%tl157520157572%_)))) + (let ((_%tl157523157580%_ + (let () (declare (not safe)) (##cdr _%e157521157575%_))) + (_%hd157522157578%_ (let () (declare (not safe)) - (##car _%e157247157301%_)))) + (##car _%e157521157575%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157248157304%_)) - (let ((_%e157250157309%_ + (gx#stx-pair? _%hd157522157578%_)) + (let ((_%e157524157583%_ (let () (declare (not safe)) - (gx#stx-e _%hd157248157304%_)))) - (let ((_%tl157252157314%_ + (gx#stx-e _%hd157522157578%_)))) + (let ((_%tl157526157588%_ (let () (declare (not safe)) - (##cdr _%e157250157309%_))) - (_%hd157251157312%_ + (##cdr _%e157524157583%_))) + (_%hd157525157586%_ (let () (declare (not safe)) - (##car _%e157250157309%_)))) + (##car _%e157524157583%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157251157312%_)) + (gx#identifier? _%hd157525157586%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157251157312%_)) + (gx#stx-eq? '%#ref _%hd157525157586%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157252157314%_)) - (let ((_%e157253157317%_ + (gx#stx-pair? _%tl157526157588%_)) + (let ((_%e157527157591%_ (let () (declare (not safe)) - (gx#stx-e _%tl157252157314%_)))) - (let ((_%tl157255157322%_ + (gx#stx-e _%tl157526157588%_)))) + (let ((_%tl157529157596%_ (let () (declare (not safe)) - (##cdr _%e157253157317%_))) - (_%hd157254157320%_ + (##cdr _%e157527157591%_))) + (_%hd157528157594%_ (let () (declare (not safe)) - (##car _%e157253157317%_)))) + (##car _%e157527157591%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157255157322%_)) + _%tl157529157596%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157249157306%_)) - (let ((_%e157256157325%_ + _%tl157523157580%_)) + (let ((_%e157530157599%_ (let () (declare (not safe)) (gx#stx-e - _%tl157249157306%_)))) - (let ((_%tl157258157330%_ + _%tl157523157580%_)))) + (let ((_%tl157532157604%_ (let () (declare (not safe)) - (##cdr _%e157256157325%_))) - (_%hd157257157328%_ + (##cdr _%e157530157599%_))) + (_%hd157531157602%_ (let () (declare (not safe)) - (##car _%e157256157325%_)))) + (##car _%e157530157599%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157257157328%_)) - (let ((_%e157259157333%_ + _%hd157531157602%_)) + (let ((_%e157533157607%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd157257157328%_)))) - (let ((_%tl157261157338%_ + (gx#stx-e _%hd157531157602%_)))) + (let ((_%tl157535157612%_ (let () (declare (not safe)) - (##cdr _%e157259157333%_))) - (_%hd157260157336%_ + (##cdr _%e157533157607%_))) + (_%hd157534157610%_ (let () (declare (not safe)) - (##car _%e157259157333%_)))) + (##car _%e157533157607%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157260157336%_)) + (gx#identifier? _%hd157534157610%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157260157336%_)) + (gx#stx-eq? '%#ref _%hd157534157610%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157261157338%_)) - (let ((_%e157262157341%_ + (gx#stx-pair? _%tl157535157612%_)) + (let ((_%e157536157615%_ (let () (declare (not safe)) - (gx#stx-e _%tl157261157338%_)))) - (let ((_%tl157264157346%_ + (gx#stx-e _%tl157535157612%_)))) + (let ((_%tl157538157620%_ (let () (declare (not safe)) - (##cdr _%e157262157341%_))) - (_%hd157263157344%_ + (##cdr _%e157536157615%_))) + (_%hd157537157618%_ (let () (declare (not safe)) - (##car _%e157262157341%_)))) + (##car _%e157536157615%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157264157346%_)) + (gx#stx-null? _%tl157538157620%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157258157330%_)) - (let ((_%e157265157349%_ + _%tl157532157604%_)) + (let ((_%e157539157623%_ (let () (declare (not safe)) (gx#stx-e - _%tl157258157330%_)))) - (let ((_%tl157267157354%_ + _%tl157532157604%_)))) + (let ((_%tl157541157628%_ (let () (declare (not safe)) - (##cdr _%e157265157349%_))) - (_%hd157266157352%_ + (##cdr _%e157539157623%_))) + (_%hd157540157626%_ (let () (declare (not safe)) - (##car _%e157265157349%_)))) + (##car _%e157539157623%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157267157354%_)) + _%tl157541157628%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157243157290%_)) - (_%__kont168170168171%_ - _%hd157263157344%_ - _%hd157254157320%_ - _%hd157154157533%_) + _%tl157517157564%_)) + (_%__kont168444168445%_ + _%hd157537157618%_ + _%hd157528157594%_ + _%hd157428157807%_) (let () (declare (not safe)) - (_%g157148157272%_))) + (_%g157422157546%_))) (let () (declare (not safe)) - (_%g157148157272%_))))) + (_%g157422157546%_))))) (let () (declare (not safe)) - (_%g157148157272%_))) + (_%g157422157546%_))) (let () (declare (not safe)) - (_%g157148157272%_))))) + (_%g157422157546%_))))) (let () (declare (not safe)) - (_%g157148157272%_))) + (_%g157422157546%_))) (let () (declare (not safe)) - (_%g157148157272%_))) - (let () (declare (not safe)) (_%g157148157272%_))))) - (let () (declare (not safe)) (_%g157148157272%_))))) + (_%g157422157546%_))) + (let () (declare (not safe)) (_%g157422157546%_))))) + (let () (declare (not safe)) (_%g157422157546%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g157148157272%_))) + (_%g157422157546%_))) (let () (declare (not safe)) - (_%g157148157272%_))))) + (_%g157422157546%_))))) (let () (declare (not safe)) - (_%g157148157272%_))) + (_%g157422157546%_))) (let () (declare (not safe)) - (_%g157148157272%_))) + (_%g157422157546%_))) (let () (declare (not safe)) - (_%g157148157272%_))))) - (let () (declare (not safe)) (_%g157148157272%_))))) - (let () (declare (not safe)) (_%g157148157272%_))) + (_%g157422157546%_))))) + (let () (declare (not safe)) (_%g157422157546%_))))) + (let () (declare (not safe)) (_%g157422157546%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g157148157272%_))) + (_%g157422157546%_))) (let () (declare (not safe)) - (_%g157148157272%_))))) + (_%g157422157546%_))))) (let () (declare (not safe)) - (_%g157148157272%_))))) + (_%g157422157546%_))))) (let () (declare (not safe)) - (_%g157148157272%_)))))) - (let () (declare (not safe)) (_%g157148157272%_)))))))) + (_%g157422157546%_)))))) + (let () (declare (not safe)) (_%g157422157546%_)))))))) (define gxc#lambda-form-arity - (lambda (_%form156948%_) - (let* ((_%g156950156964%_ - (lambda (_%g156951156961%_) + (lambda (_%form157222%_) + (let* ((_%g157224157238%_ + (lambda (_%g157225157235%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g156951156961%_)))) - (_%g156949157141%_ - (lambda (_%g156951156967%_) + _%g157225157235%_)))) + (_%g157223157415%_ + (lambda (_%g157225157241%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g156951156967%_)) - (let ((_%e156954156969%_ + (gx#stx-pair? _%g157225157241%_)) + (let ((_%e157228157243%_ (let () (declare (not safe)) - (gx#stx-e _%g156951156967%_)))) - (let ((_%hd156955156972%_ + (gx#stx-e _%g157225157241%_)))) + (let ((_%hd157229157246%_ (let () (declare (not safe)) - (##car _%e156954156969%_))) - (_%tl156956156974%_ + (##car _%e157228157243%_))) + (_%tl157230157248%_ (let () (declare (not safe)) - (##cdr _%e156954156969%_)))) + (##cdr _%e157228157243%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156956156974%_)) - (let ((_%e156957156977%_ + (gx#stx-pair? _%tl157230157248%_)) + (let ((_%e157231157251%_ (let () (declare (not safe)) - (gx#stx-e _%tl156956156974%_)))) - (let ((_%hd156958156980%_ + (gx#stx-e _%tl157230157248%_)))) + (let ((_%hd157232157254%_ (let () (declare (not safe)) - (##car _%e156957156977%_))) - (_%tl156959156982%_ + (##car _%e157231157251%_))) + (_%tl157233157256%_ (let () (declare (not safe)) - (##cdr _%e156957156977%_)))) + (##cdr _%e157231157251%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156959156982%_)) - ((lambda (_%L156985%_ _%L156986%_) - (let* ((_%__stx168280168281%_ - _%L156986%_) - (_%g157001157029%_ + (gx#stx-null? _%tl157233157256%_)) + ((lambda (_%L157259%_ _%L157260%_) + (let* ((_%__stx168554168555%_ + _%L157260%_) + (_%g157275157303%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168280168281%_))))) - (let ((_%__kont168282168283%_ - (lambda (_%L157120%_) - (length (let ((__tmp169671 + _%__stx168554168555%_))))) + (let ((_%__kont168556168557%_ + (lambda (_%L157394%_) + (length (let ((__tmp169945 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g157130157133%_ _%g157131157135%_) - (cons _%g157130157133%_ _%g157131157135%_)))) + (lambda (_%g157404157407%_ _%g157405157409%_) + (cons _%g157404157407%_ _%g157405157409%_)))) (declare (not safe)) - (__foldr1 __tmp169671 '() _%L157120%_))))) + (__foldr1 __tmp169945 '() _%L157394%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168286168287%_ - (lambda (_%L157071%_ - _%L157072%_) - (cons (length (let ((__tmp169672 + (_%__kont168560168561%_ + (lambda (_%L157345%_ + _%L157346%_) + (cons (length (let ((__tmp169946 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g157083157086%_ _%g157084157088%_) - (cons _%g157083157086%_ - _%g157084157088%_)))) + (lambda (_%g157357157360%_ _%g157358157362%_) + (cons _%g157357157360%_ + _%g157358157362%_)))) (declare (not safe)) - (__foldr1 __tmp169672 '() _%L157072%_))) + (__foldr1 __tmp169946 '() _%L157346%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168290168291%_ - (lambda (_%L157034%_) + (_%__kont168564168565%_ + (lambda (_%L157308%_) (cons '0 '())))) - (let* ((_%__match168305168306%_ - (lambda (_%__splice168288168289%_ - _%target157015157047%_ - _%tl157017157049%_) - (letrec ((_%loop157018157052%_ + (let* ((_%__match168579168580%_ + (lambda (_%__splice168562168563%_ + _%target157289157321%_ + _%tl157291157323%_) + (letrec ((_%loop157292157326%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd157016157055%_ _%arg157022157057%_) + (lambda (_%hd157290157329%_ _%arg157296157331%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157016157055%_)) - (let ((_%e157019157060%_ + (gx#stx-pair? _%hd157290157329%_)) + (let ((_%e157293157334%_ (let () (declare (not safe)) - (gx#stx-e _%hd157016157055%_)))) - (let ((_%lp-tl157021157065%_ + (gx#stx-e _%hd157290157329%_)))) + (let ((_%lp-tl157295157339%_ (let () (declare (not safe)) - (##cdr _%e157019157060%_))) - (_%lp-hd157020157063%_ + (##cdr _%e157293157334%_))) + (_%lp-hd157294157337%_ (let () (declare (not safe)) - (##car _%e157019157060%_)))) - (_%loop157018157052%_ - _%lp-tl157021157065%_ - (cons _%lp-hd157020157063%_ - _%arg157022157057%_)))) - (let ((_%arg157023157068%_ - (reverse _%arg157022157057%_))) - (_%__kont168286168287%_ - _%tl157017157049%_ - _%arg157023157068%_)))))) - (_%loop157018157052%_ _%target157015157047%_ '())))) + (##car _%e157293157334%_)))) + (_%loop157292157326%_ + _%lp-tl157295157339%_ + (cons _%lp-hd157294157337%_ + _%arg157296157331%_)))) + (let ((_%arg157297157342%_ + (reverse _%arg157296157331%_))) + (_%__kont168560168561%_ + _%tl157291157323%_ + _%arg157297157342%_)))))) + (_%loop157292157326%_ _%target157289157321%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168299168300%_ - (lambda (_%__splice168284168285%_ - _%target157004157096%_ - _%tl157006157098%_) - (letrec ((_%loop157007157101%_ + (_%__match168573168574%_ + (lambda (_%__splice168558168559%_ + _%target157278157370%_ + _%tl157280157372%_) + (letrec ((_%loop157281157375%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd157005157104%_ _%arg157011157106%_) + (lambda (_%hd157279157378%_ _%arg157285157380%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157005157104%_)) - (let ((_%e157008157109%_ + (gx#stx-pair? _%hd157279157378%_)) + (let ((_%e157282157383%_ (let () (declare (not safe)) - (gx#stx-e _%hd157005157104%_)))) - (let ((_%lp-tl157010157114%_ + (gx#stx-e _%hd157279157378%_)))) + (let ((_%lp-tl157284157388%_ (let () (declare (not safe)) - (##cdr _%e157008157109%_))) - (_%lp-hd157009157112%_ + (##cdr _%e157282157383%_))) + (_%lp-hd157283157386%_ (let () (declare (not safe)) - (##car _%e157008157109%_)))) - (_%loop157007157101%_ - _%lp-tl157010157114%_ - (cons _%lp-hd157009157112%_ - _%arg157011157106%_)))) - (let ((_%arg157012157117%_ - (reverse _%arg157011157106%_))) - (_%__kont168282168283%_ - _%arg157012157117%_)))))) - (_%loop157007157101%_ _%target157004157096%_ '()))))) + (##car _%e157282157383%_)))) + (_%loop157281157375%_ + _%lp-tl157284157388%_ + (cons _%lp-hd157283157386%_ + _%arg157285157380%_)))) + (let ((_%arg157286157391%_ + (reverse _%arg157285157380%_))) + (_%__kont168556168557%_ + _%arg157286157391%_)))))) + (_%loop157281157375%_ _%target157278157370%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%__stx168280168281%_)) - (let ((_%__splice168284168285%_ + _%__stx168554168555%_)) + (let ((_%__splice168558168559%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%__stx168280168281%_ + _%__stx168554168555%_ '0)))) - (let ((_%tl157006157098%_ + (let ((_%tl157280157372%_ (let () (declare (not safe)) (##vector-ref - _%__splice168284168285%_ + _%__splice168558168559%_ '1))) - (_%target157004157096%_ + (_%target157278157370%_ (let () (declare (not safe)) (##vector-ref - _%__splice168284168285%_ + _%__splice168558168559%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157006157098%_)) - (_%__match168299168300%_ - _%__splice168284168285%_ - _%target157004157096%_ - _%tl157006157098%_) - (_%__match168305168306%_ - _%__splice168284168285%_ - _%target157004157096%_ - _%tl157006157098%_)))) - (_%__kont168290168291%_ - _%__stx168280168281%_)))))) - _%hd156958156980%_ - _%hd156955156972%_) - (_%g156950156964%_ _%g156951156967%_)))) - (_%g156950156964%_ _%g156951156967%_)))) - (_%g156950156964%_ _%g156951156967%_))))) - (_%g156949157141%_ _%form156948%_)))) + _%tl157280157372%_)) + (_%__match168573168574%_ + _%__splice168558168559%_ + _%target157278157370%_ + _%tl157280157372%_) + (_%__match168579168580%_ + _%__splice168558168559%_ + _%target157278157370%_ + _%tl157280157372%_)))) + (_%__kont168564168565%_ + _%__stx168554168555%_)))))) + _%hd157232157254%_ + _%hd157229157246%_) + (_%g157224157238%_ _%g157225157241%_)))) + (_%g157224157238%_ _%g157225157241%_)))) + (_%g157224157238%_ _%g157225157241%_))))) + (_%g157223157415%_ _%form157222%_)))) (define gxc#lambda-form-infer-signature - (lambda (_%form156874%_) - (letrec ((_%default-signature156876%_ + (lambda (_%form157148%_) + (letrec ((_%default-signature157150%_ (lambda () - (let ((__obj169439 + (let ((__obj169713 (let () (declare (not safe)) (##structure @@ -18014,12 +18014,12 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169439 + __obj169713 't::t '1 '#f '#f)) - (let ((__tmp169673 + (let ((__tmp169947 (##structure-ref (let () (declare (not safe)) @@ -18029,74 +18029,74 @@ '#f))) (declare (not safe)) (##unchecked-structure-set! - __obj169439 - __tmp169673 + __obj169713 + __tmp169947 '5 '#f '#f)) - __obj169439)))) - (let* ((_%g156878156892%_ - (lambda (_%g156879156889%_) + __obj169713)))) + (let* ((_%g157152157166%_ + (lambda (_%g157153157163%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g156879156889%_)))) - (_%g156877156944%_ - (lambda (_%g156879156895%_) + _%g157153157163%_)))) + (_%g157151157218%_ + (lambda (_%g157153157169%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g156879156895%_)) - (let ((_%e156882156897%_ + (gx#stx-pair? _%g157153157169%_)) + (let ((_%e157156157171%_ (let () (declare (not safe)) - (gx#stx-e _%g156879156895%_)))) - (let ((_%hd156883156900%_ + (gx#stx-e _%g157153157169%_)))) + (let ((_%hd157157157174%_ (let () (declare (not safe)) - (##car _%e156882156897%_))) - (_%tl156884156902%_ + (##car _%e157156157171%_))) + (_%tl157158157176%_ (let () (declare (not safe)) - (##cdr _%e156882156897%_)))) + (##cdr _%e157156157171%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156884156902%_)) - (let ((_%e156885156905%_ + (gx#stx-pair? _%tl157158157176%_)) + (let ((_%e157159157179%_ (let () (declare (not safe)) - (gx#stx-e _%tl156884156902%_)))) - (let ((_%hd156886156908%_ + (gx#stx-e _%tl157158157176%_)))) + (let ((_%hd157160157182%_ (let () (declare (not safe)) - (##car _%e156885156905%_))) - (_%tl156887156910%_ + (##car _%e157159157179%_))) + (_%tl157161157184%_ (let () (declare (not safe)) - (##cdr _%e156885156905%_)))) + (##cdr _%e157159157179%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156887156910%_)) - ((lambda (_%L156913%_ _%L156914%_) - (let ((_%$e156928%_ + (gx#stx-null? _%tl157161157184%_)) + ((lambda (_%L157187%_ _%L157188%_) + (let ((_%$e157202%_ (gxc#apply-extract-lambda-signature - _%L156913%_))) - (if _%$e156928%_ - _%$e156928%_ - (let ((_%$e156931%_ + _%L157187%_))) + (if _%$e157202%_ + _%$e157202%_ + (let ((_%$e157205%_ (gxc#apply-basic-expression-type - _%L156913%_))) - (if _%$e156931%_ - ((lambda (_%return-type156934%_) + _%L157187%_))) + (if _%$e157205%_ + ((lambda (_%return-type157208%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-instance-of? - _%return-type156934%_ + _%return-type157208%_ 'gxc#!procedure::t)) - (let ((__obj169441 + (let ((__obj169715 (let () (declare (not safe)) (##structure @@ -18109,12 +18109,12 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169441 + __obj169715 'procedure::t '1 '#f '#f)) - (let ((__tmp169674 + (let ((__tmp169948 (##structure-ref (let () (declare (not safe)) @@ -18124,20 +18124,20 @@ '#f))) (declare (not safe)) (##unchecked-structure-set! - __obj169441 - __tmp169674 + __obj169715 + __tmp169948 '5 '#f '#f)) - __obj169441) - (let ((_%$e156937%_ + __obj169715) + (let ((_%$e157211%_ (let () (declare (not safe)) (gxc#optimizer-lookup-class-name - _%return-type156934%_)))) - (if _%$e156937%_ - ((lambda (_%return-type-name156940%_) - (let ((__obj169440 + _%return-type157208%_)))) + (if _%$e157211%_ + ((lambda (_%return-type-name157214%_) + (let ((__obj169714 (let () (declare (not safe)) (##structure @@ -18150,12 +18150,12 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169440 - _%return-type-name156940%_ + __obj169714 + _%return-type-name157214%_ '1 '#f '#f)) - (let ((__tmp169675 + (let ((__tmp169949 (##structure-ref (let () (declare (not safe)) @@ -18165,124 +18165,124 @@ '#f))) (declare (not safe)) (##unchecked-structure-set! - __obj169440 - __tmp169675 + __obj169714 + __tmp169949 '5 '#f '#f)) - __obj169440)) - _%$e156937%_) - (_%default-signature156876%_))))) - _%$e156931%_) - (_%default-signature156876%_)))))) + __obj169714)) + _%$e157211%_) + (_%default-signature157150%_))))) + _%$e157205%_) + (_%default-signature157150%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd156886156908%_ - _%hd156883156900%_) - (_%g156878156892%_ - _%g156879156895%_)))) - (_%g156878156892%_ _%g156879156895%_)))) - (_%g156878156892%_ _%g156879156895%_))))) - (_%g156877156944%_ _%form156874%_))))) + _%hd157160157182%_ + _%hd157157157174%_) + (_%g157152157166%_ + _%g157153157169%_)))) + (_%g157152157166%_ _%g157153157169%_)))) + (_%g157152157166%_ _%g157153157169%_))))) + (_%g157151157218%_ _%form157148%_))))) (define gxc#extract-lambda-signature-begin-annotation% - (lambda (_%self156613%_ _%stx156614%_) - (let* ((_%__stx168321168322%_ _%stx156614%_) - (_%g156617156657%_ + (lambda (_%self156887%_ _%stx156888%_) + (let* ((_%__stx168595168596%_ _%stx156888%_) + (_%g156891156931%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168321168322%_))))) - (let ((_%__kont168323168324%_ - (lambda (_%L156763%_ _%L156764%_) - (let _%loop156784%_ ((_%rest156786%_ - (let ((__tmp169680 - (lambda (_%g156863156866%_ - _%g156864156868%_) - (cons _%g156863156866%_ - _%g156864156868%_)))) + _%__stx168595168596%_))))) + (let ((_%__kont168597168598%_ + (lambda (_%L157037%_ _%L157038%_) + (let _%loop157058%_ ((_%rest157060%_ + (let ((__tmp169954 + (lambda (_%g157137157140%_ + _%g157138157142%_) + (cons _%g157137157140%_ + _%g157138157142%_)))) (declare (not safe)) (__foldr1 - __tmp169680 + __tmp169954 '() - _%L156764%_))) - (_%result156787%_ '())) - (let* ((_%rest156788156801%_ _%rest156786%_) - (_%E156792156805%_ + _%L157038%_))) + (_%result157061%_ '())) + (let* ((_%rest157062157075%_ _%rest157060%_) + (_%E157066157079%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest156788156801%_ + _%rest157062157075%_ '([(? stx-keyword? key) arg . rest]) '([]) '(_))) '#!void))) - (let ((_%K156795156845%_ - (lambda (_%rest156831%_ - _%arg156832%_ - _%key156833%_) - (let ((_%$e156835%_ + (let ((_%K157069157119%_ + (lambda (_%rest157105%_ + _%arg157106%_ + _%key157107%_) + (let ((_%$e157109%_ (let () (declare (not safe)) - (gx#stx-e _%key156833%_)))) - (if (eq? 'return: _%$e156835%_) - (_%loop156784%_ - _%rest156831%_ + (gx#stx-e _%key157107%_)))) + (if (eq? 'return: _%$e157109%_) + (_%loop157058%_ + _%rest157105%_ (cons 'return: (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%arg156832%_)) - _%result156787%_))) - (if (eq? 'effect: _%$e156835%_) - (_%loop156784%_ - _%rest156831%_ + _%arg157106%_)) + _%result157061%_))) + (if (eq? 'effect: _%$e157109%_) + (_%loop157058%_ + _%rest157105%_ (cons 'effect: - (cons (if _%arg156832%_ + (cons (if _%arg157106%_ (map gx#stx-e - _%arg156832%_) + _%arg157106%_) '#f) - _%result156787%_))) - (if (eq? 'arguments: _%$e156835%_) - (_%loop156784%_ - _%rest156831%_ + _%result157061%_))) + (if (eq? 'arguments: _%$e157109%_) + (_%loop157058%_ + _%rest157105%_ (cons 'arguments: (cons (let () (declare (not safe)) (gxc#map* gxc#identifier-symbol - _%arg156832%_)) - _%result156787%_))) + _%arg157106%_)) + _%result157061%_))) (if (eq? 'unchecked: - _%$e156835%_) - (_%loop156784%_ - _%rest156831%_ + _%$e157109%_) + (_%loop157058%_ + _%rest157105%_ (cons 'unchecked: (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _%arg156832%_)) - _%result156787%_))) + (gxc#identifier-symbol _%arg157106%_)) + _%result157061%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp169676 - (let ((__tmp169677 - (lambda (_%g156837156840%_ + (let ((__tmp169950 + (let ((__tmp169951 + (lambda (_%g157111157114%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g156838156842%_) - (cons _%g156837156840%_ _%g156838156842%_)))) + _%g157112157116%_) + (cons _%g157111157114%_ _%g157112157116%_)))) (declare (not safe)) - (__foldr1 __tmp169677 '() _%L156764%_)))) + (__foldr1 __tmp169951 '() _%L157038%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"bad lambda signature" - _%stx156614%_ - __tmp169676 - _%key156833%_))))))))) - (_%K156794156825%_ + _%stx156888%_ + __tmp169950 + _%key157107%_))))))))) + (_%K157068157099%_ (lambda () (apply gxc#make-!signature 'origin: @@ -18293,1830 +18293,1830 @@ '1 gx#expander-context::t '#f) - _%result156787%_))) - (_%K156793156817%_ + _%result157061%_))) + (_%K157067157091%_ (lambda () - (let ((__tmp169678 - (let ((__tmp169679 - (lambda (_%g156809156812%_ - _%g156810156814%_) - (cons _%g156809156812%_ - _%g156810156814%_)))) + (let ((__tmp169952 + (let ((__tmp169953 + (lambda (_%g157083157086%_ + _%g157084157088%_) + (cons _%g157083157086%_ + _%g157084157088%_)))) (declare (not safe)) (__foldr1 - __tmp169679 + __tmp169953 '() - _%L156764%_)))) + _%L157038%_)))) (declare (not safe)) (gxc#raise-compile-error '"bad lambda signature" - _%stx156614%_ - __tmp169678))))) - (let ((_%try-match156790156828%_ + _%stx156888%_ + __tmp169952))))) + (let ((_%try-match157064157102%_ (lambda () (if (let () (declare (not safe)) - (##null? _%rest156788156801%_)) - (_%K156794156825%_) - (_%K156793156817%_))))) + (##null? _%rest157062157075%_)) + (_%K157068157099%_) + (_%K157067157091%_))))) (if (let () (declare (not safe)) - (##pair? _%rest156788156801%_)) - (let ((_%tl156797156850%_ + (##pair? _%rest157062157075%_)) + (let ((_%tl157071157124%_ (let () (declare (not safe)) - (##cdr _%rest156788156801%_))) - (_%hd156796156848%_ + (##cdr _%rest157062157075%_))) + (_%hd157070157122%_ (let () (declare (not safe)) - (##car _%rest156788156801%_)))) + (##car _%rest157062157075%_)))) (if (let () (declare (not safe)) - (gx#stx-keyword? _%hd156796156848%_)) + (gx#stx-keyword? _%hd157070157122%_)) (if (let () (declare (not safe)) - (##pair? _%tl156797156850%_)) - (let ((_%tl156799156857%_ + (##pair? _%tl157071157124%_)) + (let ((_%tl157073157131%_ (let () (declare (not safe)) - (##cdr _%tl156797156850%_))) - (_%hd156798156855%_ + (##cdr _%tl157071157124%_))) + (_%hd157072157129%_ (let () (declare (not safe)) - (##car _%tl156797156850%_)))) - (let ((_%key156853%_ - _%hd156796156848%_) - (_%arg156860%_ - _%hd156798156855%_) - (_%rest156862%_ - _%tl156799156857%_)) - (_%K156795156845%_ - _%rest156862%_ - _%arg156860%_ - _%key156853%_))) - (_%K156793156817%_)) - (_%K156793156817%_))) - (_%try-match156790156828%_)))))))) - (_%__kont168327168328%_ - (lambda (_%L156686%_ _%L156687%_) + (##car _%tl157071157124%_)))) + (let ((_%key157127%_ + _%hd157070157122%_) + (_%arg157134%_ + _%hd157072157129%_) + (_%rest157136%_ + _%tl157073157131%_)) + (_%K157069157119%_ + _%rest157136%_ + _%arg157134%_ + _%key157127%_))) + (_%K157067157091%_)) + (_%K157067157091%_))) + (_%try-match157064157102%_)))))))) + (_%__kont168601168602%_ + (lambda (_%L156960%_ _%L156961%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self156613%_ _%L156686%_))))) - (let ((_%__match168358168359%_ - (lambda (_%e156621156707%_ - _%hd156622156710%_ - _%tl156623156712%_ - _%e156624156715%_ - _%hd156625156718%_ - _%tl156626156720%_ - _%e156627156723%_ - _%hd156628156726%_ - _%tl156629156728%_ - _%__splice168325168326%_ - _%target156630156731%_ - _%tl156632156733%_) - (letrec ((_%loop156633156736%_ - (lambda (_%hd156631156739%_ - _%signature156637156741%_) + (gxc#compile-e__1 _%self156887%_ _%L156960%_))))) + (let ((_%__match168632168633%_ + (lambda (_%e156895156981%_ + _%hd156896156984%_ + _%tl156897156986%_ + _%e156898156989%_ + _%hd156899156992%_ + _%tl156900156994%_ + _%e156901156997%_ + _%hd156902157000%_ + _%tl156903157002%_ + _%__splice168599168600%_ + _%target156904157005%_ + _%tl156906157007%_) + (letrec ((_%loop156907157010%_ + (lambda (_%hd156905157013%_ + _%signature156911157015%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156631156739%_)) - (let ((_%e156634156744%_ + (gx#stx-pair? _%hd156905157013%_)) + (let ((_%e156908157018%_ (let () (declare (not safe)) - (gx#stx-e _%hd156631156739%_)))) - (let ((_%lp-tl156636156749%_ + (gx#stx-e _%hd156905157013%_)))) + (let ((_%lp-tl156910157023%_ (let () (declare (not safe)) - (##cdr _%e156634156744%_))) - (_%lp-hd156635156747%_ + (##cdr _%e156908157018%_))) + (_%lp-hd156909157021%_ (let () (declare (not safe)) - (##car _%e156634156744%_)))) - (_%loop156633156736%_ - _%lp-tl156636156749%_ - (cons _%lp-hd156635156747%_ - _%signature156637156741%_)))) - (let ((_%signature156638156752%_ - (reverse _%signature156637156741%_))) + (##car _%e156908157018%_)))) + (_%loop156907157010%_ + _%lp-tl156910157023%_ + (cons _%lp-hd156909157021%_ + _%signature156911157015%_)))) + (let ((_%signature156912157026%_ + (reverse _%signature156911157015%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156626156720%_)) - (let ((_%e156639156755%_ + (gx#stx-pair? _%tl156900156994%_)) + (let ((_%e156913157029%_ (let () (declare (not safe)) (gx#stx-e - _%tl156626156720%_)))) - (let ((_%tl156641156760%_ + _%tl156900156994%_)))) + (let ((_%tl156915157034%_ (let () (declare (not safe)) - (##cdr _%e156639156755%_))) - (_%hd156640156758%_ + (##cdr _%e156913157029%_))) + (_%hd156914157032%_ (let () (declare (not safe)) - (##car _%e156639156755%_)))) + (##car _%e156913157029%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156641156760%_)) - (_%__kont168323168324%_ - _%hd156640156758%_ - _%signature156638156752%_) + _%tl156915157034%_)) + (_%__kont168597168598%_ + _%hd156914157032%_ + _%signature156912157026%_) (let () (declare (not safe)) - (_%g156617156657%_))))) + (_%g156891156931%_))))) (let () (declare (not safe)) - (_%g156617156657%_)))))))) - (_%loop156633156736%_ _%target156630156731%_ '()))))) + (_%g156891156931%_)))))))) + (_%loop156907157010%_ _%target156904157005%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168321168322%_)) - (let ((_%e156621156707%_ + (gx#stx-pair? _%__stx168595168596%_)) + (let ((_%e156895156981%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168321168322%_)))) - (let ((_%tl156623156712%_ + (gx#stx-e _%__stx168595168596%_)))) + (let ((_%tl156897156986%_ (let () (declare (not safe)) - (##cdr _%e156621156707%_))) - (_%hd156622156710%_ + (##cdr _%e156895156981%_))) + (_%hd156896156984%_ (let () (declare (not safe)) - (##car _%e156621156707%_)))) + (##car _%e156895156981%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156623156712%_)) - (let ((_%e156624156715%_ + (gx#stx-pair? _%tl156897156986%_)) + (let ((_%e156898156989%_ (let () (declare (not safe)) - (gx#stx-e _%tl156623156712%_)))) - (let ((_%tl156626156720%_ + (gx#stx-e _%tl156897156986%_)))) + (let ((_%tl156900156994%_ (let () (declare (not safe)) - (##cdr _%e156624156715%_))) - (_%hd156625156718%_ + (##cdr _%e156898156989%_))) + (_%hd156899156992%_ (let () (declare (not safe)) - (##car _%e156624156715%_)))) + (##car _%e156898156989%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156625156718%_)) - (let ((_%e156627156723%_ + (gx#stx-pair? _%hd156899156992%_)) + (let ((_%e156901156997%_ (let () (declare (not safe)) - (gx#stx-e _%hd156625156718%_)))) - (let ((_%tl156629156728%_ + (gx#stx-e _%hd156899156992%_)))) + (let ((_%tl156903157002%_ (let () (declare (not safe)) - (##cdr _%e156627156723%_))) - (_%hd156628156726%_ + (##cdr _%e156901156997%_))) + (_%hd156902157000%_ (let () (declare (not safe)) - (##car _%e156627156723%_)))) + (##car _%e156901156997%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd156628156726%_)) + _%hd156902157000%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@type.signature - _%hd156628156726%_)) + _%hd156902157000%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl156629156728%_)) - (let ((_%__splice168325168326%_ + _%tl156903157002%_)) + (let ((_%__splice168599168600%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl156629156728%_ + _%tl156903157002%_ '0)))) - (let ((_%tl156632156733%_ + (let ((_%tl156906157007%_ (let () (declare (not safe)) (##vector-ref - _%__splice168325168326%_ + _%__splice168599168600%_ '1))) - (_%target156630156731%_ + (_%target156904157005%_ (let () (declare (not safe)) (##vector-ref - _%__splice168325168326%_ + _%__splice168599168600%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156632156733%_)) - (_%__match168358168359%_ - _%e156621156707%_ - _%hd156622156710%_ - _%tl156623156712%_ - _%e156624156715%_ - _%hd156625156718%_ - _%tl156626156720%_ - _%e156627156723%_ - _%hd156628156726%_ - _%tl156629156728%_ - _%__splice168325168326%_ - _%target156630156731%_ - _%tl156632156733%_) + _%tl156906157007%_)) + (_%__match168632168633%_ + _%e156895156981%_ + _%hd156896156984%_ + _%tl156897156986%_ + _%e156898156989%_ + _%hd156899156992%_ + _%tl156900156994%_ + _%e156901156997%_ + _%hd156902157000%_ + _%tl156903157002%_ + _%__splice168599168600%_ + _%target156904157005%_ + _%tl156906157007%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl156626156720%_)) - (let ((_%e156650156678%_ + (gx#stx-pair? _%tl156900156994%_)) + (let ((_%e156924156952%_ (let () (declare (not safe)) - (gx#stx-e _%tl156626156720%_)))) - (let ((_%tl156652156683%_ + (gx#stx-e _%tl156900156994%_)))) + (let ((_%tl156926156957%_ (let () (declare (not safe)) - (##cdr _%e156650156678%_))) - (_%hd156651156681%_ + (##cdr _%e156924156952%_))) + (_%hd156925156955%_ (let () (declare (not safe)) - (##car _%e156650156678%_)))) + (##car _%e156924156952%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156652156683%_)) - (_%__kont168327168328%_ - _%hd156651156681%_ - _%hd156625156718%_) + (gx#stx-null? _%tl156926156957%_)) + (_%__kont168601168602%_ + _%hd156925156955%_ + _%hd156899156992%_) (let () (declare (not safe)) - (_%g156617156657%_))))) - (let () (declare (not safe)) (_%g156617156657%_)))))) + (_%g156891156931%_))))) + (let () (declare (not safe)) (_%g156891156931%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156626156720%_)) - (let ((_%e156650156678%_ + _%tl156900156994%_)) + (let ((_%e156924156952%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl156626156720%_)))) - (let ((_%tl156652156683%_ - (let () (declare (not safe)) (##cdr _%e156650156678%_))) - (_%hd156651156681%_ + (gx#stx-e _%tl156900156994%_)))) + (let ((_%tl156926156957%_ + (let () (declare (not safe)) (##cdr _%e156924156952%_))) + (_%hd156925156955%_ (let () (declare (not safe)) - (##car _%e156650156678%_)))) + (##car _%e156924156952%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156652156683%_)) - (_%__kont168327168328%_ - _%hd156651156681%_ - _%hd156625156718%_) - (let () (declare (not safe)) (_%g156617156657%_))))) - (let () (declare (not safe)) (_%g156617156657%_)))) + (gx#stx-null? _%tl156926156957%_)) + (_%__kont168601168602%_ + _%hd156925156955%_ + _%hd156899156992%_) + (let () (declare (not safe)) (_%g156891156931%_))))) + (let () (declare (not safe)) (_%g156891156931%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156626156720%_)) - (let ((_%e156650156678%_ + _%tl156900156994%_)) + (let ((_%e156924156952%_ (let () (declare (not safe)) (gx#stx-e - _%tl156626156720%_)))) - (let ((_%tl156652156683%_ + _%tl156900156994%_)))) + (let ((_%tl156926156957%_ (let () (declare (not safe)) - (##cdr _%e156650156678%_))) - (_%hd156651156681%_ + (##cdr _%e156924156952%_))) + (_%hd156925156955%_ (let () (declare (not safe)) - (##car _%e156650156678%_)))) + (##car _%e156924156952%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156652156683%_)) - (_%__kont168327168328%_ - _%hd156651156681%_ - _%hd156625156718%_) + _%tl156926156957%_)) + (_%__kont168601168602%_ + _%hd156925156955%_ + _%hd156899156992%_) (let () (declare (not safe)) - (_%g156617156657%_))))) + (_%g156891156931%_))))) (let () (declare (not safe)) - (_%g156617156657%_)))) + (_%g156891156931%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156626156720%_)) - (let ((_%e156650156678%_ + _%tl156900156994%_)) + (let ((_%e156924156952%_ (let () (declare (not safe)) (gx#stx-e - _%tl156626156720%_)))) - (let ((_%tl156652156683%_ + _%tl156900156994%_)))) + (let ((_%tl156926156957%_ (let () (declare (not safe)) - (##cdr _%e156650156678%_))) - (_%hd156651156681%_ + (##cdr _%e156924156952%_))) + (_%hd156925156955%_ (let () (declare (not safe)) - (##car _%e156650156678%_)))) + (##car _%e156924156952%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156652156683%_)) - (_%__kont168327168328%_ - _%hd156651156681%_ - _%hd156625156718%_) + _%tl156926156957%_)) + (_%__kont168601168602%_ + _%hd156925156955%_ + _%hd156899156992%_) (let () (declare (not safe)) - (_%g156617156657%_))))) + (_%g156891156931%_))))) (let () (declare (not safe)) - (_%g156617156657%_)))))) + (_%g156891156931%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156626156720%_)) - (let ((_%e156650156678%_ + (gx#stx-pair? _%tl156900156994%_)) + (let ((_%e156924156952%_ (let () (declare (not safe)) - (gx#stx-e _%tl156626156720%_)))) - (let ((_%tl156652156683%_ + (gx#stx-e _%tl156900156994%_)))) + (let ((_%tl156926156957%_ (let () (declare (not safe)) - (##cdr _%e156650156678%_))) - (_%hd156651156681%_ + (##cdr _%e156924156952%_))) + (_%hd156925156955%_ (let () (declare (not safe)) - (##car _%e156650156678%_)))) + (##car _%e156924156952%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156652156683%_)) - (_%__kont168327168328%_ - _%hd156651156681%_ - _%hd156625156718%_) + _%tl156926156957%_)) + (_%__kont168601168602%_ + _%hd156925156955%_ + _%hd156899156992%_) (let () (declare (not safe)) - (_%g156617156657%_))))) + (_%g156891156931%_))))) (let () (declare (not safe)) - (_%g156617156657%_)))))) - (let () (declare (not safe)) (_%g156617156657%_))))) - (let () (declare (not safe)) (_%g156617156657%_)))))))) + (_%g156891156931%_)))))) + (let () (declare (not safe)) (_%g156891156931%_))))) + (let () (declare (not safe)) (_%g156891156931%_)))))))) (define gxc#lambda-expr? - (lambda (_%expr156566%_) - (let* ((_%__stx168381168382%_ _%expr156566%_) - (_%g156569156579%_ + (lambda (_%expr156840%_) + (let* ((_%__stx168655168656%_ _%expr156840%_) + (_%g156843156853%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168381168382%_))))) - (let ((_%__kont168383168384%_ (lambda (_%L156599%_) '#t)) - (_%__kont168385168386%_ (lambda () '#f))) + _%__stx168655168656%_))))) + (let ((_%__kont168657168658%_ (lambda (_%L156873%_) '#t)) + (_%__kont168659168660%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168381168382%_)) - (let ((_%e156572156591%_ + (gx#stx-pair? _%__stx168655168656%_)) + (let ((_%e156846156865%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168381168382%_)))) - (let ((_%tl156574156596%_ + (gx#stx-e _%__stx168655168656%_)))) + (let ((_%tl156848156870%_ (let () (declare (not safe)) - (##cdr _%e156572156591%_))) - (_%hd156573156594%_ + (##cdr _%e156846156865%_))) + (_%hd156847156868%_ (let () (declare (not safe)) - (##car _%e156572156591%_)))) + (##car _%e156846156865%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd156573156594%_)) + (gx#identifier? _%hd156847156868%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd156573156594%_)) - (_%__kont168383168384%_ _%tl156574156596%_) - (_%__kont168385168386%_)) - (_%__kont168385168386%_)))) - (_%__kont168385168386%_)))))) + (gx#stx-eq? '%#lambda _%hd156847156868%_)) + (_%__kont168657168658%_ _%tl156848156870%_) + (_%__kont168659168660%_)) + (_%__kont168659168660%_)))) + (_%__kont168659168660%_)))))) (define gxc#case-lambda-expr? - (lambda (_%expr156519%_) - (let* ((_%__stx168399168400%_ _%expr156519%_) - (_%g156522156532%_ + (lambda (_%expr156793%_) + (let* ((_%__stx168673168674%_ _%expr156793%_) + (_%g156796156806%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168399168400%_))))) - (let ((_%__kont168401168402%_ (lambda (_%L156552%_) '#t)) - (_%__kont168403168404%_ (lambda () '#f))) + _%__stx168673168674%_))))) + (let ((_%__kont168675168676%_ (lambda (_%L156826%_) '#t)) + (_%__kont168677168678%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168399168400%_)) - (let ((_%e156525156544%_ + (gx#stx-pair? _%__stx168673168674%_)) + (let ((_%e156799156818%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168399168400%_)))) - (let ((_%tl156527156549%_ + (gx#stx-e _%__stx168673168674%_)))) + (let ((_%tl156801156823%_ (let () (declare (not safe)) - (##cdr _%e156525156544%_))) - (_%hd156526156547%_ + (##cdr _%e156799156818%_))) + (_%hd156800156821%_ (let () (declare (not safe)) - (##car _%e156525156544%_)))) + (##car _%e156799156818%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd156526156547%_)) + (gx#identifier? _%hd156800156821%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#case-lambda _%hd156526156547%_)) - (_%__kont168401168402%_ _%tl156527156549%_) - (_%__kont168403168404%_)) - (_%__kont168403168404%_)))) - (_%__kont168403168404%_)))))) + (gx#stx-eq? '%#case-lambda _%hd156800156821%_)) + (_%__kont168675168676%_ _%tl156801156823%_) + (_%__kont168677168678%_)) + (_%__kont168677168678%_)))) + (_%__kont168677168678%_)))))) (define gxc#opt-lambda-expr? - (lambda (_%expr156388%_) - (let* ((_%__stx168417168418%_ _%expr156388%_) - (_%g156391156421%_ + (lambda (_%expr156662%_) + (let* ((_%__stx168691168692%_ _%expr156662%_) + (_%g156665156695%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168417168418%_))))) - (let ((_%__kont168419168420%_ - (lambda (_%L156489%_ _%L156490%_ _%L156491%_) + _%__stx168691168692%_))))) + (let ((_%__kont168693168694%_ + (lambda (_%L156763%_ _%L156764%_ _%L156765%_) (if (let () (declare (not safe)) - (gx#identifier? _%L156491%_)) - (if (gxc#lambda-expr? _%L156490%_) - (gxc#case-lambda-expr? _%L156489%_) + (gx#identifier? _%L156765%_)) + (if (gxc#lambda-expr? _%L156764%_) + (gxc#case-lambda-expr? _%L156763%_) '#f) '#f))) - (_%__kont168421168422%_ (lambda () '#f))) + (_%__kont168695168696%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168417168418%_)) - (let ((_%e156396156433%_ + (gx#stx-pair? _%__stx168691168692%_)) + (let ((_%e156670156707%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168417168418%_)))) - (let ((_%tl156398156438%_ + (gx#stx-e _%__stx168691168692%_)))) + (let ((_%tl156672156712%_ (let () (declare (not safe)) - (##cdr _%e156396156433%_))) - (_%hd156397156436%_ + (##cdr _%e156670156707%_))) + (_%hd156671156710%_ (let () (declare (not safe)) - (##car _%e156396156433%_)))) + (##car _%e156670156707%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd156397156436%_)) + (gx#identifier? _%hd156671156710%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd156397156436%_)) + (gx#stx-eq? '%#let-values _%hd156671156710%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156398156438%_)) - (let ((_%e156399156441%_ + (gx#stx-pair? _%tl156672156712%_)) + (let ((_%e156673156715%_ (let () (declare (not safe)) - (gx#stx-e _%tl156398156438%_)))) - (let ((_%tl156401156446%_ + (gx#stx-e _%tl156672156712%_)))) + (let ((_%tl156675156720%_ (let () (declare (not safe)) - (##cdr _%e156399156441%_))) - (_%hd156400156444%_ + (##cdr _%e156673156715%_))) + (_%hd156674156718%_ (let () (declare (not safe)) - (##car _%e156399156441%_)))) + (##car _%e156673156715%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156400156444%_)) - (let ((_%e156402156449%_ + (gx#stx-pair? _%hd156674156718%_)) + (let ((_%e156676156723%_ (let () (declare (not safe)) (gx#stx-e - _%hd156400156444%_)))) - (let ((_%tl156404156454%_ + _%hd156674156718%_)))) + (let ((_%tl156678156728%_ (let () (declare (not safe)) - (##cdr _%e156402156449%_))) - (_%hd156403156452%_ + (##cdr _%e156676156723%_))) + (_%hd156677156726%_ (let () (declare (not safe)) - (##car _%e156402156449%_)))) + (##car _%e156676156723%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156403156452%_)) - (let ((_%e156405156457%_ + _%hd156677156726%_)) + (let ((_%e156679156731%_ (let () (declare (not safe)) (gx#stx-e - _%hd156403156452%_)))) - (let ((_%tl156407156462%_ + _%hd156677156726%_)))) + (let ((_%tl156681156736%_ (let () (declare (not safe)) - (##cdr _%e156405156457%_))) - (_%hd156406156460%_ + (##cdr _%e156679156731%_))) + (_%hd156680156734%_ (let () (declare (not safe)) - (##car _%e156405156457%_)))) + (##car _%e156679156731%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156406156460%_)) - (let ((_%e156408156465%_ + _%hd156680156734%_)) + (let ((_%e156682156739%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd156406156460%_)))) - (let ((_%tl156410156470%_ + (gx#stx-e _%hd156680156734%_)))) + (let ((_%tl156684156744%_ (let () (declare (not safe)) - (##cdr _%e156408156465%_))) - (_%hd156409156468%_ + (##cdr _%e156682156739%_))) + (_%hd156683156742%_ (let () (declare (not safe)) - (##car _%e156408156465%_)))) + (##car _%e156682156739%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156410156470%_)) + (gx#stx-null? _%tl156684156744%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156407156462%_)) - (let ((_%e156411156473%_ + (gx#stx-pair? _%tl156681156736%_)) + (let ((_%e156685156747%_ (let () (declare (not safe)) - (gx#stx-e _%tl156407156462%_)))) - (let ((_%tl156413156478%_ + (gx#stx-e _%tl156681156736%_)))) + (let ((_%tl156687156752%_ (let () (declare (not safe)) - (##cdr _%e156411156473%_))) - (_%hd156412156476%_ + (##cdr _%e156685156747%_))) + (_%hd156686156750%_ (let () (declare (not safe)) - (##car _%e156411156473%_)))) + (##car _%e156685156747%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156413156478%_)) + (gx#stx-null? _%tl156687156752%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156404156454%_)) + (gx#stx-null? _%tl156678156728%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156401156446%_)) - (let ((_%e156414156481%_ + _%tl156675156720%_)) + (let ((_%e156688156755%_ (let () (declare (not safe)) (gx#stx-e - _%tl156401156446%_)))) - (let ((_%tl156416156486%_ + _%tl156675156720%_)))) + (let ((_%tl156690156760%_ (let () (declare (not safe)) - (##cdr _%e156414156481%_))) - (_%hd156415156484%_ + (##cdr _%e156688156755%_))) + (_%hd156689156758%_ (let () (declare (not safe)) - (##car _%e156414156481%_)))) + (##car _%e156688156755%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156416156486%_)) - (_%__kont168419168420%_ - _%hd156415156484%_ - _%hd156412156476%_ - _%hd156409156468%_) - (_%__kont168421168422%_)))) - (_%__kont168421168422%_)) - (_%__kont168421168422%_)) - (_%__kont168421168422%_)))) - (_%__kont168421168422%_)) - (_%__kont168421168422%_)))) - (_%__kont168421168422%_)))) + _%tl156690156760%_)) + (_%__kont168693168694%_ + _%hd156689156758%_ + _%hd156686156750%_ + _%hd156683156742%_) + (_%__kont168695168696%_)))) + (_%__kont168695168696%_)) + (_%__kont168695168696%_)) + (_%__kont168695168696%_)))) + (_%__kont168695168696%_)) + (_%__kont168695168696%_)))) + (_%__kont168695168696%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168421168422%_)))) - (_%__kont168421168422%_)))) - (_%__kont168421168422%_)) - (_%__kont168421168422%_)) - (_%__kont168421168422%_)))) - (_%__kont168421168422%_)))))) + (_%__kont168695168696%_)))) + (_%__kont168695168696%_)))) + (_%__kont168695168696%_)) + (_%__kont168695168696%_)) + (_%__kont168695168696%_)))) + (_%__kont168695168696%_)))))) (define gxc#kw-lambda-expr? - (lambda (_%expr155713%_) - (let* ((_%__stx168479168480%_ _%expr155713%_) - (_%g155716155874%_ + (lambda (_%expr155987%_) + (let* ((_%__stx168753168754%_ _%expr155987%_) + (_%g155990156148%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168479168480%_))))) - (let ((_%__kont168481168482%_ - (lambda (_%L156262%_ - _%L156263%_ - _%L156264%_ - _%L156265%_ - _%L156266%_ - _%L156267%_ - _%L156268%_ - _%L156269%_ - _%L156270%_ - _%L156271%_ - _%L156272%_) + _%__stx168753168754%_))))) + (let ((_%__kont168755168756%_ + (lambda (_%L156536%_ + _%L156537%_ + _%L156538%_ + _%L156539%_ + _%L156540%_ + _%L156541%_ + _%L156542%_ + _%L156543%_ + _%L156544%_ + _%L156545%_ + _%L156546%_) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L156269%_ 'apply)) + (gxc#runtime-identifier=? _%L156543%_ 'apply)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L156265%_ 'apply)) + (gxc#runtime-identifier=? _%L156539%_ 'apply)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L156264%_ + _%L156538%_ 'keyword-dispatch)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L156272%_ - _%L156263%_)) + _%L156546%_ + _%L156537%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L156271%_ - _%L156268%_)) + _%L156545%_ + _%L156542%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L156266%_ - _%L156262%_)) + _%L156540%_ + _%L156536%_)) (let () (declare (not safe)) (gx#free-identifier=? - _%L156270%_ - _%L156267%_)) + _%L156544%_ + _%L156541%_)) '#f) '#f) '#f) '#f) '#f) '#f))) - (_%__kont168483168484%_ (lambda () '#f))) + (_%__kont168757168758%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168479168480%_)) - (let ((_%e155729155886%_ + (gx#stx-pair? _%__stx168753168754%_)) + (let ((_%e156003156160%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168479168480%_)))) - (let ((_%tl155731155891%_ + (gx#stx-e _%__stx168753168754%_)))) + (let ((_%tl156005156165%_ (let () (declare (not safe)) - (##cdr _%e155729155886%_))) - (_%hd155730155889%_ + (##cdr _%e156003156160%_))) + (_%hd156004156163%_ (let () (declare (not safe)) - (##car _%e155729155886%_)))) + (##car _%e156003156160%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd155730155889%_)) + (gx#identifier? _%hd156004156163%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd155730155889%_)) + (gx#stx-eq? '%#let-values _%hd156004156163%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155731155891%_)) - (let ((_%e155732155894%_ + (gx#stx-pair? _%tl156005156165%_)) + (let ((_%e156006156168%_ (let () (declare (not safe)) - (gx#stx-e _%tl155731155891%_)))) - (let ((_%tl155734155899%_ + (gx#stx-e _%tl156005156165%_)))) + (let ((_%tl156008156173%_ (let () (declare (not safe)) - (##cdr _%e155732155894%_))) - (_%hd155733155897%_ + (##cdr _%e156006156168%_))) + (_%hd156007156171%_ (let () (declare (not safe)) - (##car _%e155732155894%_)))) + (##car _%e156006156168%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155733155897%_)) - (let ((_%e155735155902%_ + (gx#stx-pair? _%hd156007156171%_)) + (let ((_%e156009156176%_ (let () (declare (not safe)) (gx#stx-e - _%hd155733155897%_)))) - (let ((_%tl155737155907%_ + _%hd156007156171%_)))) + (let ((_%tl156011156181%_ (let () (declare (not safe)) - (##cdr _%e155735155902%_))) - (_%hd155736155905%_ + (##cdr _%e156009156176%_))) + (_%hd156010156179%_ (let () (declare (not safe)) - (##car _%e155735155902%_)))) + (##car _%e156009156176%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155736155905%_)) - (let ((_%e155738155910%_ + _%hd156010156179%_)) + (let ((_%e156012156184%_ (let () (declare (not safe)) (gx#stx-e - _%hd155736155905%_)))) - (let ((_%tl155740155915%_ + _%hd156010156179%_)))) + (let ((_%tl156014156189%_ (let () (declare (not safe)) - (##cdr _%e155738155910%_))) - (_%hd155739155913%_ + (##cdr _%e156012156184%_))) + (_%hd156013156187%_ (let () (declare (not safe)) - (##car _%e155738155910%_)))) + (##car _%e156012156184%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155739155913%_)) - (let ((_%e155741155918%_ + _%hd156013156187%_)) + (let ((_%e156015156192%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd155739155913%_)))) - (let ((_%tl155743155923%_ + (gx#stx-e _%hd156013156187%_)))) + (let ((_%tl156017156197%_ (let () (declare (not safe)) - (##cdr _%e155741155918%_))) - (_%hd155742155921%_ + (##cdr _%e156015156192%_))) + (_%hd156016156195%_ (let () (declare (not safe)) - (##car _%e155741155918%_)))) + (##car _%e156015156192%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155743155923%_)) + (gx#stx-null? _%tl156017156197%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155740155915%_)) - (let ((_%e155744155926%_ + (gx#stx-pair? _%tl156014156189%_)) + (let ((_%e156018156200%_ (let () (declare (not safe)) - (gx#stx-e _%tl155740155915%_)))) - (let ((_%tl155746155931%_ + (gx#stx-e _%tl156014156189%_)))) + (let ((_%tl156020156205%_ (let () (declare (not safe)) - (##cdr _%e155744155926%_))) - (_%hd155745155929%_ + (##cdr _%e156018156200%_))) + (_%hd156019156203%_ (let () (declare (not safe)) - (##car _%e155744155926%_)))) + (##car _%e156018156200%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155745155929%_)) - (let ((_%e155747155934%_ + (gx#stx-pair? _%hd156019156203%_)) + (let ((_%e156021156208%_ (let () (declare (not safe)) - (gx#stx-e _%hd155745155929%_)))) - (let ((_%tl155749155939%_ + (gx#stx-e _%hd156019156203%_)))) + (let ((_%tl156023156213%_ (let () (declare (not safe)) - (##cdr _%e155747155934%_))) - (_%hd155748155937%_ + (##cdr _%e156021156208%_))) + (_%hd156022156211%_ (let () (declare (not safe)) - (##car _%e155747155934%_)))) + (##car _%e156021156208%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd155748155937%_)) + _%hd156022156211%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd155748155937%_)) + _%hd156022156211%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155749155939%_)) - (let ((_%e155750155942%_ + _%tl156023156213%_)) + (let ((_%e156024156216%_ (let () (declare (not safe)) (gx#stx-e - _%tl155749155939%_)))) - (let ((_%tl155752155947%_ + _%tl156023156213%_)))) + (let ((_%tl156026156221%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e155750155942%_))) - (_%hd155751155945%_ - (let () (declare (not safe)) (##car _%e155750155942%_)))) + (##cdr _%e156024156216%_))) + (_%hd156025156219%_ + (let () (declare (not safe)) (##car _%e156024156216%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155751155945%_)) - (let ((_%e155753155950%_ + (gx#stx-pair? _%hd156025156219%_)) + (let ((_%e156027156224%_ (let () (declare (not safe)) - (gx#stx-e _%hd155751155945%_)))) - (let ((_%tl155755155955%_ + (gx#stx-e _%hd156025156219%_)))) + (let ((_%tl156029156229%_ (let () (declare (not safe)) - (##cdr _%e155753155950%_))) - (_%hd155754155953%_ + (##cdr _%e156027156224%_))) + (_%hd156028156227%_ (let () (declare (not safe)) - (##car _%e155753155950%_)))) + (##car _%e156027156224%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155754155953%_)) - (let ((_%e155756155958%_ + (gx#stx-pair? _%hd156028156227%_)) + (let ((_%e156030156232%_ (let () (declare (not safe)) - (gx#stx-e _%hd155754155953%_)))) - (let ((_%tl155758155963%_ + (gx#stx-e _%hd156028156227%_)))) + (let ((_%tl156032156237%_ (let () (declare (not safe)) - (##cdr _%e155756155958%_))) - (_%hd155757155961%_ + (##cdr _%e156030156232%_))) + (_%hd156031156235%_ (let () (declare (not safe)) - (##car _%e155756155958%_)))) + (##car _%e156030156232%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155757155961%_)) - (let ((_%e155759155966%_ + (gx#stx-pair? _%hd156031156235%_)) + (let ((_%e156033156240%_ (let () (declare (not safe)) - (gx#stx-e _%hd155757155961%_)))) - (let ((_%tl155761155971%_ + (gx#stx-e _%hd156031156235%_)))) + (let ((_%tl156035156245%_ (let () (declare (not safe)) - (##cdr _%e155759155966%_))) - (_%hd155760155969%_ + (##cdr _%e156033156240%_))) + (_%hd156034156243%_ (let () (declare (not safe)) - (##car _%e155759155966%_)))) + (##car _%e156033156240%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155761155971%_)) + _%tl156035156245%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155758155963%_)) - (let ((_%e155762155974%_ + _%tl156032156237%_)) + (let ((_%e156036156248%_ (let () (declare (not safe)) (gx#stx-e - _%tl155758155963%_)))) - (let ((_%tl155764155979%_ + _%tl156032156237%_)))) + (let ((_%tl156038156253%_ (let () (declare (not safe)) - (##cdr _%e155762155974%_))) - (_%hd155763155977%_ + (##cdr _%e156036156248%_))) + (_%hd156037156251%_ (let () (declare (not safe)) - (##car _%e155762155974%_)))) + (##car _%e156036156248%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155764155979%_)) + _%tl156038156253%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155755155955%_)) + _%tl156029156229%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl155752155947%_)) - (let ((_%e155765155982%_ + (gx#stx-pair? _%tl156026156221%_)) + (let ((_%e156039156256%_ (let () (declare (not safe)) - (gx#stx-e _%tl155752155947%_)))) - (let ((_%tl155767155987%_ + (gx#stx-e _%tl156026156221%_)))) + (let ((_%tl156041156261%_ (let () (declare (not safe)) - (##cdr _%e155765155982%_))) - (_%hd155766155985%_ + (##cdr _%e156039156256%_))) + (_%hd156040156259%_ (let () (declare (not safe)) - (##car _%e155765155982%_)))) + (##car _%e156039156256%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155766155985%_)) - (let ((_%e155768155990%_ + (gx#stx-pair? _%hd156040156259%_)) + (let ((_%e156042156264%_ (let () (declare (not safe)) - (gx#stx-e _%hd155766155985%_)))) - (let ((_%tl155770155995%_ + (gx#stx-e _%hd156040156259%_)))) + (let ((_%tl156044156269%_ (let () (declare (not safe)) - (##cdr _%e155768155990%_))) - (_%hd155769155993%_ + (##cdr _%e156042156264%_))) + (_%hd156043156267%_ (let () (declare (not safe)) - (##car _%e155768155990%_)))) + (##car _%e156042156264%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd155769155993%_)) + (gx#identifier? _%hd156043156267%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd155769155993%_)) + _%hd156043156267%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155770155995%_)) - (let ((_%e155771155998%_ + _%tl156044156269%_)) + (let ((_%e156045156272%_ (let () (declare (not safe)) (gx#stx-e - _%tl155770155995%_)))) - (let ((_%tl155773156003%_ + _%tl156044156269%_)))) + (let ((_%tl156047156277%_ (let () (declare (not safe)) - (##cdr _%e155771155998%_))) - (_%hd155772156001%_ + (##cdr _%e156045156272%_))) + (_%hd156046156275%_ (let () (declare (not safe)) - (##car _%e155771155998%_)))) + (##car _%e156045156272%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155772156001%_)) - (let ((_%e155774156006%_ + _%hd156046156275%_)) + (let ((_%e156048156280%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd155772156001%_)))) - (let ((_%tl155776156011%_ + (gx#stx-e _%hd156046156275%_)))) + (let ((_%tl156050156285%_ (let () (declare (not safe)) - (##cdr _%e155774156006%_))) - (_%hd155775156009%_ + (##cdr _%e156048156280%_))) + (_%hd156049156283%_ (let () (declare (not safe)) - (##car _%e155774156006%_)))) + (##car _%e156048156280%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155773156003%_)) - (let ((_%e155777156014%_ + (gx#stx-pair? _%tl156047156277%_)) + (let ((_%e156051156288%_ (let () (declare (not safe)) - (gx#stx-e _%tl155773156003%_)))) - (let ((_%tl155779156019%_ + (gx#stx-e _%tl156047156277%_)))) + (let ((_%tl156053156293%_ (let () (declare (not safe)) - (##cdr _%e155777156014%_))) - (_%hd155778156017%_ + (##cdr _%e156051156288%_))) + (_%hd156052156291%_ (let () (declare (not safe)) - (##car _%e155777156014%_)))) + (##car _%e156051156288%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155778156017%_)) - (let ((_%e155780156022%_ + (gx#stx-pair? _%hd156052156291%_)) + (let ((_%e156054156296%_ (let () (declare (not safe)) - (gx#stx-e _%hd155778156017%_)))) - (let ((_%tl155782156027%_ + (gx#stx-e _%hd156052156291%_)))) + (let ((_%tl156056156301%_ (let () (declare (not safe)) - (##cdr _%e155780156022%_))) - (_%hd155781156025%_ + (##cdr _%e156054156296%_))) + (_%hd156055156299%_ (let () (declare (not safe)) - (##car _%e155780156022%_)))) + (##car _%e156054156296%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd155781156025%_)) + (gx#identifier? _%hd156055156299%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd155781156025%_)) + _%hd156055156299%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155782156027%_)) - (let ((_%e155783156030%_ + _%tl156056156301%_)) + (let ((_%e156057156304%_ (let () (declare (not safe)) (gx#stx-e - _%tl155782156027%_)))) - (let ((_%tl155785156035%_ + _%tl156056156301%_)))) + (let ((_%tl156059156309%_ (let () (declare (not safe)) - (##cdr _%e155783156030%_))) - (_%hd155784156033%_ + (##cdr _%e156057156304%_))) + (_%hd156058156307%_ (let () (declare (not safe)) - (##car _%e155783156030%_)))) + (##car _%e156057156304%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155784156033%_)) - (let ((_%e155786156038%_ + _%hd156058156307%_)) + (let ((_%e156060156312%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd155784156033%_)))) - (let ((_%tl155788156043%_ + (gx#stx-e _%hd156058156307%_)))) + (let ((_%tl156062156317%_ (let () (declare (not safe)) - (##cdr _%e155786156038%_))) - (_%hd155787156041%_ + (##cdr _%e156060156312%_))) + (_%hd156061156315%_ (let () (declare (not safe)) - (##car _%e155786156038%_)))) + (##car _%e156060156312%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd155787156041%_)) + (gx#identifier? _%hd156061156315%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd155787156041%_)) + (gx#stx-eq? '%#ref _%hd156061156315%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155788156043%_)) - (let ((_%e155789156046%_ + (gx#stx-pair? _%tl156062156317%_)) + (let ((_%e156063156320%_ (let () (declare (not safe)) - (gx#stx-e _%tl155788156043%_)))) - (let ((_%tl155791156051%_ + (gx#stx-e _%tl156062156317%_)))) + (let ((_%tl156065156325%_ (let () (declare (not safe)) - (##cdr _%e155789156046%_))) - (_%hd155790156049%_ + (##cdr _%e156063156320%_))) + (_%hd156064156323%_ (let () (declare (not safe)) - (##car _%e155789156046%_)))) + (##car _%e156063156320%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155791156051%_)) + (gx#stx-null? _%tl156065156325%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155785156035%_)) - (let ((_%e155792156054%_ + _%tl156059156309%_)) + (let ((_%e156066156328%_ (let () (declare (not safe)) (gx#stx-e - _%tl155785156035%_)))) - (let ((_%tl155794156059%_ + _%tl156059156309%_)))) + (let ((_%tl156068156333%_ (let () (declare (not safe)) - (##cdr _%e155792156054%_))) - (_%hd155793156057%_ + (##cdr _%e156066156328%_))) + (_%hd156067156331%_ (let () (declare (not safe)) - (##car _%e155792156054%_)))) + (##car _%e156066156328%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155793156057%_)) - (let ((_%e155795156062%_ + _%hd156067156331%_)) + (let ((_%e156069156336%_ (let () (declare (not safe)) (gx#stx-e - _%hd155793156057%_)))) - (let ((_%tl155797156067%_ + _%hd156067156331%_)))) + (let ((_%tl156071156341%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e155795156062%_))) - (_%hd155796156065%_ - (let () (declare (not safe)) (##car _%e155795156062%_)))) + (##cdr _%e156069156336%_))) + (_%hd156070156339%_ + (let () (declare (not safe)) (##car _%e156069156336%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd155796156065%_)) + (gx#identifier? _%hd156070156339%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd155796156065%_)) + (gx#stx-eq? '%#ref _%hd156070156339%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155797156067%_)) - (let ((_%e155798156070%_ + (gx#stx-pair? _%tl156071156341%_)) + (let ((_%e156072156344%_ (let () (declare (not safe)) - (gx#stx-e _%tl155797156067%_)))) - (let ((_%tl155800156075%_ + (gx#stx-e _%tl156071156341%_)))) + (let ((_%tl156074156349%_ (let () (declare (not safe)) - (##cdr _%e155798156070%_))) - (_%hd155799156073%_ + (##cdr _%e156072156344%_))) + (_%hd156073156347%_ (let () (declare (not safe)) - (##car _%e155798156070%_)))) + (##car _%e156072156344%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155800156075%_)) + (gx#stx-null? _%tl156074156349%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155794156059%_)) - (let ((_%e155801156078%_ + (gx#stx-pair? _%tl156068156333%_)) + (let ((_%e156075156352%_ (let () (declare (not safe)) (gx#stx-e - _%tl155794156059%_)))) - (let ((_%tl155803156083%_ + _%tl156068156333%_)))) + (let ((_%tl156077156357%_ (let () (declare (not safe)) - (##cdr _%e155801156078%_))) - (_%hd155802156081%_ + (##cdr _%e156075156352%_))) + (_%hd156076156355%_ (let () (declare (not safe)) - (##car _%e155801156078%_)))) + (##car _%e156075156352%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155802156081%_)) - (let ((_%e155804156086%_ + _%hd156076156355%_)) + (let ((_%e156078156360%_ (let () (declare (not safe)) (gx#stx-e - _%hd155802156081%_)))) - (let ((_%tl155806156091%_ + _%hd156076156355%_)))) + (let ((_%tl156080156365%_ (let () (declare (not safe)) - (##cdr _%e155804156086%_))) - (_%hd155805156089%_ + (##cdr _%e156078156360%_))) + (_%hd156079156363%_ (let () (declare (not safe)) - (##car _%e155804156086%_)))) + (##car _%e156078156360%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd155805156089%_)) + _%hd156079156363%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd155805156089%_)) + _%hd156079156363%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl155806156091%_)) - (let ((_%e155807156094%_ + (gx#stx-pair? _%tl156080156365%_)) + (let ((_%e156081156368%_ (let () (declare (not safe)) - (gx#stx-e _%tl155806156091%_)))) - (let ((_%tl155809156099%_ + (gx#stx-e _%tl156080156365%_)))) + (let ((_%tl156083156373%_ (let () (declare (not safe)) - (##cdr _%e155807156094%_))) - (_%hd155808156097%_ + (##cdr _%e156081156368%_))) + (_%hd156082156371%_ (let () (declare (not safe)) - (##car _%e155807156094%_)))) + (##car _%e156081156368%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155809156099%_)) + (gx#stx-null? _%tl156083156373%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155779156019%_)) + (gx#stx-null? _%tl156053156293%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155767155987%_)) + (gx#stx-null? _%tl156041156261%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155746155931%_)) + _%tl156020156205%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155737155907%_)) + _%tl156011156181%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155734155899%_)) - (let ((_%e155810156102%_ + _%tl156008156173%_)) + (let ((_%e156084156376%_ (let () (declare (not safe)) (gx#stx-e - _%tl155734155899%_)))) - (let ((_%tl155812156107%_ + _%tl156008156173%_)))) + (let ((_%tl156086156381%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e155810156102%_))) - (_%hd155811156105%_ - (let () (declare (not safe)) (##car _%e155810156102%_)))) + (##cdr _%e156084156376%_))) + (_%hd156085156379%_ + (let () (declare (not safe)) (##car _%e156084156376%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155811156105%_)) - (let ((_%e155813156110%_ + (gx#stx-pair? _%hd156085156379%_)) + (let ((_%e156087156384%_ (let () (declare (not safe)) - (gx#stx-e _%hd155811156105%_)))) - (let ((_%tl155815156115%_ + (gx#stx-e _%hd156085156379%_)))) + (let ((_%tl156089156389%_ (let () (declare (not safe)) - (##cdr _%e155813156110%_))) - (_%hd155814156113%_ + (##cdr _%e156087156384%_))) + (_%hd156088156387%_ (let () (declare (not safe)) - (##car _%e155813156110%_)))) + (##car _%e156087156384%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd155814156113%_)) + (gx#identifier? _%hd156088156387%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd155814156113%_)) + (gx#stx-eq? '%#lambda _%hd156088156387%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155815156115%_)) - (let ((_%e155816156118%_ + (gx#stx-pair? _%tl156089156389%_)) + (let ((_%e156090156392%_ (let () (declare (not safe)) - (gx#stx-e _%tl155815156115%_)))) - (let ((_%tl155818156123%_ + (gx#stx-e _%tl156089156389%_)))) + (let ((_%tl156092156397%_ (let () (declare (not safe)) - (##cdr _%e155816156118%_))) - (_%hd155817156121%_ + (##cdr _%e156090156392%_))) + (_%hd156091156395%_ (let () (declare (not safe)) - (##car _%e155816156118%_)))) + (##car _%e156090156392%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155818156123%_)) - (let ((_%e155819156126%_ + _%tl156092156397%_)) + (let ((_%e156093156400%_ (let () (declare (not safe)) (gx#stx-e - _%tl155818156123%_)))) - (let ((_%tl155821156131%_ + _%tl156092156397%_)))) + (let ((_%tl156095156405%_ (let () (declare (not safe)) - (##cdr _%e155819156126%_))) - (_%hd155820156129%_ + (##cdr _%e156093156400%_))) + (_%hd156094156403%_ (let () (declare (not safe)) - (##car _%e155819156126%_)))) + (##car _%e156093156400%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155820156129%_)) - (let ((_%e155822156134%_ + _%hd156094156403%_)) + (let ((_%e156096156408%_ (let () (declare (not safe)) (gx#stx-e - _%hd155820156129%_)))) - (let ((_%tl155824156139%_ + _%hd156094156403%_)))) + (let ((_%tl156098156413%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e155822156134%_))) - (_%hd155823156137%_ - (let () (declare (not safe)) (##car _%e155822156134%_)))) + (##cdr _%e156096156408%_))) + (_%hd156097156411%_ + (let () (declare (not safe)) (##car _%e156096156408%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd155823156137%_)) + (gx#identifier? _%hd156097156411%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd155823156137%_)) + (gx#stx-eq? '%#call _%hd156097156411%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155824156139%_)) - (let ((_%e155825156142%_ + (gx#stx-pair? _%tl156098156413%_)) + (let ((_%e156099156416%_ (let () (declare (not safe)) - (gx#stx-e _%tl155824156139%_)))) - (let ((_%tl155827156147%_ + (gx#stx-e _%tl156098156413%_)))) + (let ((_%tl156101156421%_ (let () (declare (not safe)) - (##cdr _%e155825156142%_))) - (_%hd155826156145%_ + (##cdr _%e156099156416%_))) + (_%hd156100156419%_ (let () (declare (not safe)) - (##car _%e155825156142%_)))) + (##car _%e156099156416%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155826156145%_)) - (let ((_%e155828156150%_ + (gx#stx-pair? _%hd156100156419%_)) + (let ((_%e156102156424%_ (let () (declare (not safe)) - (gx#stx-e _%hd155826156145%_)))) - (let ((_%tl155830156155%_ + (gx#stx-e _%hd156100156419%_)))) + (let ((_%tl156104156429%_ (let () (declare (not safe)) - (##cdr _%e155828156150%_))) - (_%hd155829156153%_ + (##cdr _%e156102156424%_))) + (_%hd156103156427%_ (let () (declare (not safe)) - (##car _%e155828156150%_)))) + (##car _%e156102156424%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd155829156153%_)) + _%hd156103156427%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd155829156153%_)) + _%hd156103156427%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155830156155%_)) - (let ((_%e155831156158%_ + _%tl156104156429%_)) + (let ((_%e156105156432%_ (let () (declare (not safe)) (gx#stx-e - _%tl155830156155%_)))) - (let ((_%tl155833156163%_ + _%tl156104156429%_)))) + (let ((_%tl156107156437%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e155831156158%_))) - (_%hd155832156161%_ - (let () (declare (not safe)) (##car _%e155831156158%_)))) + (##cdr _%e156105156432%_))) + (_%hd156106156435%_ + (let () (declare (not safe)) (##car _%e156105156432%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155833156163%_)) + (gx#stx-null? _%tl156107156437%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155827156147%_)) - (let ((_%e155834156166%_ + (gx#stx-pair? _%tl156101156421%_)) + (let ((_%e156108156440%_ (let () (declare (not safe)) - (gx#stx-e _%tl155827156147%_)))) - (let ((_%tl155836156171%_ + (gx#stx-e _%tl156101156421%_)))) + (let ((_%tl156110156445%_ (let () (declare (not safe)) - (##cdr _%e155834156166%_))) - (_%hd155835156169%_ + (##cdr _%e156108156440%_))) + (_%hd156109156443%_ (let () (declare (not safe)) - (##car _%e155834156166%_)))) + (##car _%e156108156440%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155835156169%_)) - (let ((_%e155837156174%_ + (gx#stx-pair? _%hd156109156443%_)) + (let ((_%e156111156448%_ (let () (declare (not safe)) - (gx#stx-e _%hd155835156169%_)))) - (let ((_%tl155839156179%_ + (gx#stx-e _%hd156109156443%_)))) + (let ((_%tl156113156453%_ (let () (declare (not safe)) - (##cdr _%e155837156174%_))) - (_%hd155838156177%_ + (##cdr _%e156111156448%_))) + (_%hd156112156451%_ (let () (declare (not safe)) - (##car _%e155837156174%_)))) + (##car _%e156111156448%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd155838156177%_)) + (gx#identifier? _%hd156112156451%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd155838156177%_)) + _%hd156112156451%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155839156179%_)) - (let ((_%e155840156182%_ + _%tl156113156453%_)) + (let ((_%e156114156456%_ (let () (declare (not safe)) (gx#stx-e - _%tl155839156179%_)))) - (let ((_%tl155842156187%_ + _%tl156113156453%_)))) + (let ((_%tl156116156461%_ (let () (declare (not safe)) - (##cdr _%e155840156182%_))) - (_%hd155841156185%_ + (##cdr _%e156114156456%_))) + (_%hd156115156459%_ (let () (declare (not safe)) - (##car _%e155840156182%_)))) + (##car _%e156114156456%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155842156187%_)) + _%tl156116156461%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155836156171%_)) - (let ((_%e155843156190%_ + _%tl156110156445%_)) + (let ((_%e156117156464%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl155836156171%_)))) - (let ((_%tl155845156195%_ + (gx#stx-e _%tl156110156445%_)))) + (let ((_%tl156119156469%_ (let () (declare (not safe)) - (##cdr _%e155843156190%_))) - (_%hd155844156193%_ + (##cdr _%e156117156464%_))) + (_%hd156118156467%_ (let () (declare (not safe)) - (##car _%e155843156190%_)))) + (##car _%e156117156464%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155844156193%_)) - (let ((_%e155846156198%_ + (gx#stx-pair? _%hd156118156467%_)) + (let ((_%e156120156472%_ (let () (declare (not safe)) - (gx#stx-e _%hd155844156193%_)))) - (let ((_%tl155848156203%_ + (gx#stx-e _%hd156118156467%_)))) + (let ((_%tl156122156477%_ (let () (declare (not safe)) - (##cdr _%e155846156198%_))) - (_%hd155847156201%_ + (##cdr _%e156120156472%_))) + (_%hd156121156475%_ (let () (declare (not safe)) - (##car _%e155846156198%_)))) + (##car _%e156120156472%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd155847156201%_)) + (gx#identifier? _%hd156121156475%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd155847156201%_)) + _%hd156121156475%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155848156203%_)) - (let ((_%e155849156206%_ + _%tl156122156477%_)) + (let ((_%e156123156480%_ (let () (declare (not safe)) (gx#stx-e - _%tl155848156203%_)))) - (let ((_%tl155851156211%_ + _%tl156122156477%_)))) + (let ((_%tl156125156485%_ (let () (declare (not safe)) - (##cdr _%e155849156206%_))) - (_%hd155850156209%_ + (##cdr _%e156123156480%_))) + (_%hd156124156483%_ (let () (declare (not safe)) - (##car _%e155849156206%_)))) + (##car _%e156123156480%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155851156211%_)) + _%tl156125156485%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155845156195%_)) - (let ((_%e155852156214%_ + _%tl156119156469%_)) + (let ((_%e156126156488%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl155845156195%_)))) - (let ((_%tl155854156219%_ + (gx#stx-e _%tl156119156469%_)))) + (let ((_%tl156128156493%_ (let () (declare (not safe)) - (##cdr _%e155852156214%_))) - (_%hd155853156217%_ + (##cdr _%e156126156488%_))) + (_%hd156127156491%_ (let () (declare (not safe)) - (##car _%e155852156214%_)))) + (##car _%e156126156488%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155853156217%_)) - (let ((_%e155855156222%_ + (gx#stx-pair? _%hd156127156491%_)) + (let ((_%e156129156496%_ (let () (declare (not safe)) - (gx#stx-e _%hd155853156217%_)))) - (let ((_%tl155857156227%_ + (gx#stx-e _%hd156127156491%_)))) + (let ((_%tl156131156501%_ (let () (declare (not safe)) - (##cdr _%e155855156222%_))) - (_%hd155856156225%_ + (##cdr _%e156129156496%_))) + (_%hd156130156499%_ (let () (declare (not safe)) - (##car _%e155855156222%_)))) + (##car _%e156129156496%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd155856156225%_)) + (gx#identifier? _%hd156130156499%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd155856156225%_)) + (gx#stx-eq? '%#ref _%hd156130156499%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155857156227%_)) - (let ((_%e155858156230%_ + (gx#stx-pair? _%tl156131156501%_)) + (let ((_%e156132156504%_ (let () (declare (not safe)) (gx#stx-e - _%tl155857156227%_)))) - (let ((_%tl155860156235%_ + _%tl156131156501%_)))) + (let ((_%tl156134156509%_ (let () (declare (not safe)) - (##cdr _%e155858156230%_))) - (_%hd155859156233%_ + (##cdr _%e156132156504%_))) + (_%hd156133156507%_ (let () (declare (not safe)) - (##car _%e155858156230%_)))) + (##car _%e156132156504%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155860156235%_)) + _%tl156134156509%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155854156219%_)) - (let ((_%e155861156238%_ + _%tl156128156493%_)) + (let ((_%e156135156512%_ (let () (declare (not safe)) (gx#stx-e - _%tl155854156219%_)))) - (let ((_%tl155863156243%_ + _%tl156128156493%_)))) + (let ((_%tl156137156517%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e155861156238%_))) - (_%hd155862156241%_ - (let () (declare (not safe)) (##car _%e155861156238%_)))) + (##cdr _%e156135156512%_))) + (_%hd156136156515%_ + (let () (declare (not safe)) (##car _%e156135156512%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155862156241%_)) - (let ((_%e155864156246%_ + (gx#stx-pair? _%hd156136156515%_)) + (let ((_%e156138156520%_ (let () (declare (not safe)) - (gx#stx-e _%hd155862156241%_)))) - (let ((_%tl155866156251%_ + (gx#stx-e _%hd156136156515%_)))) + (let ((_%tl156140156525%_ (let () (declare (not safe)) - (##cdr _%e155864156246%_))) - (_%hd155865156249%_ + (##cdr _%e156138156520%_))) + (_%hd156139156523%_ (let () (declare (not safe)) - (##car _%e155864156246%_)))) + (##car _%e156138156520%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd155865156249%_)) + (gx#identifier? _%hd156139156523%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd155865156249%_)) + (gx#stx-eq? '%#ref _%hd156139156523%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155866156251%_)) - (let ((_%e155867156254%_ + (gx#stx-pair? _%tl156140156525%_)) + (let ((_%e156141156528%_ (let () (declare (not safe)) - (gx#stx-e _%tl155866156251%_)))) - (let ((_%tl155869156259%_ + (gx#stx-e _%tl156140156525%_)))) + (let ((_%tl156143156533%_ (let () (declare (not safe)) - (##cdr _%e155867156254%_))) - (_%hd155868156257%_ + (##cdr _%e156141156528%_))) + (_%hd156142156531%_ (let () (declare (not safe)) - (##car _%e155867156254%_)))) + (##car _%e156141156528%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155869156259%_)) + _%tl156143156533%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155863156243%_)) + _%tl156137156517%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155821156131%_)) + _%tl156095156405%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155812156107%_)) - (_%__kont168481168482%_ - _%hd155868156257%_ - _%hd155859156233%_ - _%hd155841156185%_ - _%hd155832156161%_ - _%hd155817156121%_ - _%hd155808156097%_ - _%hd155799156073%_ - _%hd155790156049%_ - _%hd155775156009%_ - _%hd155760155969%_ - _%hd155742155921%_) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)))) + _%tl156086156381%_)) + (_%__kont168755168756%_ + _%hd156142156531%_ + _%hd156133156507%_ + _%hd156115156459%_ + _%hd156106156435%_ + _%hd156091156395%_ + _%hd156082156371%_ + _%hd156073156347%_ + _%hd156064156323%_ + _%hd156049156283%_ + _%hd156034156243%_ + _%hd156016156195%_) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168483168484%_)) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)))) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168483168484%_)) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)))) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168483168484%_)) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)))) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)))) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168483168484%_)) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)))) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)))) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)))) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168483168484%_)) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)))) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168483168484%_)) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)))) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168483168484%_)) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)))) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168483168484%_)) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)))) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)) - (_%__kont168483168484%_)))) - (_%__kont168483168484%_)))))) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)) + (_%__kont168757168758%_)))) + (_%__kont168757168758%_)))))) (define gxc#lift-case-lambda-clauses__% - (lambda (_%stx155455%_ _%id155456%_ _%clauses155457%_ _%gensym?155458%_) - (let _%lp155460%_ ((_%rest155462%_ _%clauses155457%_) - (_%ids155463%_ '()) - (_%impls155464%_ '()) - (_%clauses155465%_ '())) - (let* ((_%rest155466155474%_ _%rest155462%_) - (_%else155468155482%_ + (lambda (_%stx155729%_ _%id155730%_ _%clauses155731%_ _%gensym?155732%_) + (let _%lp155734%_ ((_%rest155736%_ _%clauses155731%_) + (_%ids155737%_ '()) + (_%impls155738%_ '()) + (_%clauses155739%_ '())) + (let* ((_%rest155740155748%_ _%rest155736%_) + (_%else155742155756%_ (lambda () - (values (reverse _%ids155463%_) - (reverse _%impls155464%_) - (reverse _%clauses155465%_)))) - (_%K155470155687%_ - (lambda (_%rest155485%_ _%clause155486%_) - (if (gxc#dispatch-lambda-form? _%clause155486%_) - (_%lp155460%_ - _%rest155485%_ - _%ids155463%_ - _%impls155464%_ - (cons _%clause155486%_ _%clauses155465%_)) - (let* ((_%g155488155499%_ - (lambda (_%g155489155496%_) + (values (reverse _%ids155737%_) + (reverse _%impls155738%_) + (reverse _%clauses155739%_)))) + (_%K155744155961%_ + (lambda (_%rest155759%_ _%clause155760%_) + (if (gxc#dispatch-lambda-form? _%clause155760%_) + (_%lp155734%_ + _%rest155759%_ + _%ids155737%_ + _%impls155738%_ + (cons _%clause155760%_ _%clauses155739%_)) + (let* ((_%g155762155773%_ + (lambda (_%g155763155770%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g155489155496%_)))) - (_%g155487155684%_ - (lambda (_%g155489155502%_) + _%g155763155770%_)))) + (_%g155761155958%_ + (lambda (_%g155763155776%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g155489155502%_)) - (let ((_%e155492155504%_ + (gx#stx-pair? _%g155763155776%_)) + (let ((_%e155766155778%_ (let () (declare (not safe)) - (gx#stx-e _%g155489155502%_)))) - (let ((_%hd155493155507%_ + (gx#stx-e _%g155763155776%_)))) + (let ((_%hd155767155781%_ (let () (declare (not safe)) - (##car _%e155492155504%_))) - (_%tl155494155509%_ + (##car _%e155766155778%_))) + (_%tl155768155783%_ (let () (declare (not safe)) - (##cdr _%e155492155504%_)))) - ((lambda (_%L155512%_ _%L155513%_) - (let* ((_%id155530%_ - (let ((__tmp169683 + (##cdr _%e155766155778%_)))) + ((lambda (_%L155786%_ _%L155787%_) + (let* ((_%id155804%_ + (let ((__tmp169957 (let () (declare (not safe)) (gx#stx-e - _%id155456%_))) - (__tmp169682 - (length _%clauses155465%_)) - (__tmp169681 - (if _%gensym?155458%_ + _%id155730%_))) + (__tmp169956 + (length _%clauses155739%_)) + (__tmp169955 + (if _%gensym?155732%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##gensym '__)) '""))) (declare (not safe)) - (make-symbol__1 __tmp169683 '"__" __tmp169682 __tmp169681))) + (make-symbol__1 __tmp169957 '"__" __tmp169956 __tmp169955))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%id155532%_ - (let ((__tmp169684 + (_%id155806%_ + (let ((__tmp169958 (let () (declare (not safe)) (gx#stx-source - _%stx155455%_)))) + _%stx155729%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id155530%_ - __tmp169684))) - (_%impl155534%_ - (let ((__tmp169685 + _%id155804%_ + __tmp169958))) + (_%impl155808%_ + (let ((__tmp169959 (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons _%L155513%_ _%L155512%_)))) + (cons _%L155787%_ _%L155786%_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp169685 _%stx155455%_))) + (gxc#xform-wrap-source __tmp169959 _%stx155729%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%clause155681%_ - (let* ((_%__stx168863168864%_ - _%L155513%_) - (_%g155538155566%_ + (_%clause155955%_ + (let* ((_%__stx169137169138%_ + _%L155787%_) + (_%g155812155840%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -20124,353 +20124,353 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168863168864%_))))) - (let ((_%__kont168865168866%_ - (lambda (_%L155660%_) - (cons _%L155513%_ - (cons (let ((__tmp169686 + _%__stx169137169138%_))))) + (let ((_%__kont169139169140%_ + (lambda (_%L155934%_) + (cons _%L155787%_ + (cons (let ((__tmp169960 (cons '%#call (cons (cons '%#ref - (cons _%id155532%_ + (cons _%id155806%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (let ((__tmp169687 - (lambda (_%g155670155673%_ _%g155671155675%_) + (let ((__tmp169961 + (lambda (_%g155944155947%_ _%g155945155949%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g155670155673%_ '())) - _%g155671155675%_)))) + (cons _%g155944155947%_ '())) + _%g155945155949%_)))) (declare (not safe)) - (__foldr1 __tmp169687 '() _%L155660%_)))))) + (__foldr1 __tmp169961 '() _%L155934%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp169686 - _%stx155455%_)) + __tmp169960 + _%stx155729%_)) '())))) - (_%__kont168869168870%_ - (lambda (_%L155611%_ _%L155612%_) - (cons _%L155513%_ - (cons (let ((__tmp169688 + (_%__kont169143169144%_ + (lambda (_%L155885%_ _%L155886%_) + (cons _%L155787%_ + (cons (let ((__tmp169962 (cons '%#call (cons (cons '%#ref (cons 'apply '())) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id155532%_ '())) - (let ((__tmp169691 + (cons _%id155806%_ '())) + (let ((__tmp169965 (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L155611%_ '())) + (cons _%L155885%_ '())) '())) - (__tmp169689 - (let ((__tmp169690 - (lambda (_%g155623155626%_ - _%g155624155628%_) + (__tmp169963 + (let ((__tmp169964 + (lambda (_%g155897155900%_ + _%g155898155902%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g155623155626%_ '())) - _%g155624155628%_)))) + (cons _%g155897155900%_ '())) + _%g155898155902%_)))) (declare (not safe)) - (__foldr1 __tmp169690 '() _%L155612%_)))) + (__foldr1 __tmp169964 '() _%L155886%_)))) (declare (not safe)) - (__foldr1 cons __tmp169691 __tmp169689))))))) + (__foldr1 cons __tmp169965 __tmp169963))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp169688 - _%stx155455%_)) + __tmp169962 + _%stx155729%_)) '())))) - (_%__kont168873168874%_ - (lambda (_%L155571%_) - (cons _%L155513%_ - (cons (let ((__tmp169692 + (_%__kont169147169148%_ + (lambda (_%L155845%_) + (cons _%L155787%_ + (cons (let ((__tmp169966 (cons '%#call (cons (cons '%#ref (cons 'apply '())) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id155532%_ '())) + (cons _%id155806%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L155571%_ '())) + (cons _%L155845%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp169692 - _%stx155455%_)) + __tmp169966 + _%stx155729%_)) '()))))) - (let* ((_%__match168888168889%_ - (lambda (_%__splice168871168872%_ - _%target155552155587%_ - _%tl155554155589%_) - (letrec ((_%loop155555155592%_ - (lambda (_%hd155553155595%_ - _%arg155559155597%_) + (let* ((_%__match169162169163%_ + (lambda (_%__splice169145169146%_ + _%target155826155861%_ + _%tl155828155863%_) + (letrec ((_%loop155829155866%_ + (lambda (_%hd155827155869%_ + _%arg155833155871%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155553155595%_)) - (let ((_%e155556155600%_ + (gx#stx-pair? _%hd155827155869%_)) + (let ((_%e155830155874%_ (let () (declare (not safe)) (gx#stx-e - _%hd155553155595%_)))) - (let ((_%lp-tl155558155605%_ + _%hd155827155869%_)))) + (let ((_%lp-tl155832155879%_ (let () (declare (not safe)) - (##cdr _%e155556155600%_))) - (_%lp-hd155557155603%_ + (##cdr _%e155830155874%_))) + (_%lp-hd155831155877%_ (let () (declare (not safe)) - (##car _%e155556155600%_)))) - (_%loop155555155592%_ - _%lp-tl155558155605%_ - (cons _%lp-hd155557155603%_ - _%arg155559155597%_)))) - (let ((_%arg155560155608%_ - (reverse _%arg155559155597%_))) - (_%__kont168869168870%_ - _%tl155554155589%_ - _%arg155560155608%_)))))) - (_%loop155555155592%_ - _%target155552155587%_ + (##car _%e155830155874%_)))) + (_%loop155829155866%_ + _%lp-tl155832155879%_ + (cons _%lp-hd155831155877%_ + _%arg155833155871%_)))) + (let ((_%arg155834155882%_ + (reverse _%arg155833155871%_))) + (_%__kont169143169144%_ + _%tl155828155863%_ + _%arg155834155882%_)))))) + (_%loop155829155866%_ + _%target155826155861%_ '())))) - (_%__match168882168883%_ - (lambda (_%__splice168867168868%_ - _%target155541155636%_ - _%tl155543155638%_) - (letrec ((_%loop155544155641%_ - (lambda (_%hd155542155644%_ - _%arg155548155646%_) + (_%__match169156169157%_ + (lambda (_%__splice169141169142%_ + _%target155815155910%_ + _%tl155817155912%_) + (letrec ((_%loop155818155915%_ + (lambda (_%hd155816155918%_ + _%arg155822155920%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155542155644%_)) - (let ((_%e155545155649%_ + (gx#stx-pair? _%hd155816155918%_)) + (let ((_%e155819155923%_ (let () (declare (not safe)) (gx#stx-e - _%hd155542155644%_)))) - (let ((_%lp-tl155547155654%_ + _%hd155816155918%_)))) + (let ((_%lp-tl155821155928%_ (let () (declare (not safe)) - (##cdr _%e155545155649%_))) - (_%lp-hd155546155652%_ + (##cdr _%e155819155923%_))) + (_%lp-hd155820155926%_ (let () (declare (not safe)) - (##car _%e155545155649%_)))) - (_%loop155544155641%_ - _%lp-tl155547155654%_ - (cons _%lp-hd155546155652%_ - _%arg155548155646%_)))) - (let ((_%arg155549155657%_ - (reverse _%arg155548155646%_))) - (_%__kont168865168866%_ - _%arg155549155657%_)))))) - (_%loop155544155641%_ - _%target155541155636%_ + (##car _%e155819155923%_)))) + (_%loop155818155915%_ + _%lp-tl155821155928%_ + (cons _%lp-hd155820155926%_ + _%arg155822155920%_)))) + (let ((_%arg155823155931%_ + (reverse _%arg155822155920%_))) + (_%__kont169139169140%_ + _%arg155823155931%_)))))) + (_%loop155818155915%_ + _%target155815155910%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%__stx168863168864%_)) - (let ((_%__splice168867168868%_ + (gx#stx-pair/null? _%__stx169137169138%_)) + (let ((_%__splice169141169142%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%__stx168863168864%_ + _%__stx169137169138%_ '0)))) - (let ((_%tl155543155638%_ + (let ((_%tl155817155912%_ (let () (declare (not safe)) - (##vector-ref _%__splice168867168868%_ '1))) - (_%target155541155636%_ + (##vector-ref _%__splice169141169142%_ '1))) + (_%target155815155910%_ (let () (declare (not safe)) - (##vector-ref _%__splice168867168868%_ '0)))) + (##vector-ref _%__splice169141169142%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155543155638%_)) - (_%__match168882168883%_ - _%__splice168867168868%_ - _%target155541155636%_ - _%tl155543155638%_) - (_%__match168888168889%_ - _%__splice168867168868%_ - _%target155541155636%_ - _%tl155543155638%_)))) - (_%__kont168873168874%_ _%__stx168863168864%_))))))) + (gx#stx-null? _%tl155817155912%_)) + (_%__match169156169157%_ + _%__splice169141169142%_ + _%target155815155910%_ + _%tl155817155912%_) + (_%__match169162169163%_ + _%__splice169141169142%_ + _%target155815155910%_ + _%tl155817155912%_)))) + (_%__kont169147169148%_ _%__stx169137169138%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp155460%_ - _%rest155485%_ - (cons _%id155532%_ - _%ids155463%_) - (cons _%impl155534%_ - _%impls155464%_) - (cons _%clause155681%_ - _%clauses155465%_)))) - _%tl155494155509%_ - _%hd155493155507%_))) - (_%g155488155499%_ _%g155489155502%_))))) - (_%g155487155684%_ _%clause155486%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest155466155474%_)) - (let ((_%hd155471155690%_ + (_%lp155734%_ + _%rest155759%_ + (cons _%id155806%_ + _%ids155737%_) + (cons _%impl155808%_ + _%impls155738%_) + (cons _%clause155955%_ + _%clauses155739%_)))) + _%tl155768155783%_ + _%hd155767155781%_))) + (_%g155762155773%_ _%g155763155776%_))))) + (_%g155761155958%_ _%clause155760%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest155740155748%_)) + (let ((_%hd155745155964%_ (let () (declare (not safe)) - (##car _%rest155466155474%_))) - (_%tl155472155692%_ + (##car _%rest155740155748%_))) + (_%tl155746155966%_ (let () (declare (not safe)) - (##cdr _%rest155466155474%_)))) - (let* ((_%clause155695%_ _%hd155471155690%_) - (_%rest155697%_ _%tl155472155692%_)) - (_%K155470155687%_ _%rest155697%_ _%clause155695%_))) - (_%else155468155482%_)))))) + (##cdr _%rest155740155748%_)))) + (let* ((_%clause155969%_ _%hd155745155964%_) + (_%rest155971%_ _%tl155746155966%_)) + (_%K155744155961%_ _%rest155971%_ _%clause155969%_))) + (_%else155742155756%_)))))) (define gxc#lift-case-lambda-clauses__0 - (lambda (_%stx155702%_ _%id155703%_ _%clauses155704%_) - (let ((_%gensym?155706%_ '#f)) + (lambda (_%stx155976%_ _%id155977%_ _%clauses155978%_) + (let ((_%gensym?155980%_ '#f)) (gxc#lift-case-lambda-clauses__% - _%stx155702%_ - _%id155703%_ - _%clauses155704%_ - _%gensym?155706%_)))) + _%stx155976%_ + _%id155977%_ + _%clauses155978%_ + _%gensym?155980%_)))) (define gxc#lift-case-lambda-clauses - (lambda _g169694_ - (let ((_g169693_ (let () (declare (not safe)) (##length _g169694_)))) - (cond ((let () (declare (not safe)) (##fx= _g169693_ 3)) - (apply gxc#lift-case-lambda-clauses__0 _g169694_)) - ((let () (declare (not safe)) (##fx= _g169693_ 4)) - (apply gxc#lift-case-lambda-clauses__% _g169694_)) + (lambda _g169968_ + (let ((_g169967_ (let () (declare (not safe)) (##length _g169968_)))) + (cond ((let () (declare (not safe)) (##fx= _g169967_ 3)) + (apply gxc#lift-case-lambda-clauses__0 _g169968_)) + ((let () (declare (not safe)) (##fx= _g169967_ 4)) + (apply gxc#lift-case-lambda-clauses__% _g169968_)) (else (##raise-wrong-number-of-arguments-exception gxc#lift-case-lambda-clauses - _g169694_)))))) + _g169968_)))))) (define gxc#lift-top-lambda-define-values% - (lambda (_%self154727%_ _%stx154728%_) - (letrec ((_%case-lambda-clause-def154730%_ - (lambda (_%id155451%_ _%impl155452%_) - (let ((__tmp169695 + (lambda (_%self155001%_ _%stx155002%_) + (letrec ((_%case-lambda-clause-def155004%_ + (lambda (_%id155725%_ _%impl155726%_) + (let ((__tmp169969 (cons '%#define-values - (cons (cons _%id155451%_ '()) + (cons (cons _%id155725%_ '()) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self154727%_ - _%impl155452%_)) + _%self155001%_ + _%impl155726%_)) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp169695 _%stx154728%_)))) - (_%opt-lambda-dispatch-name154731%_ - (lambda (_%id155447%_) - (if (uninterned-symbol? _%id155447%_) - (let ((_%str155449%_ (symbol->string _%id155447%_))) + (gxc#xform-wrap-source __tmp169969 _%stx155002%_)))) + (_%opt-lambda-dispatch-name155005%_ + (lambda (_%id155721%_) + (if (uninterned-symbol? _%id155721%_) + (let ((_%str155723%_ (symbol->string _%id155721%_))) (if (let () (declare (not safe)) - (##string-prefix? '"opt-lambda" _%str155449%_)) + (##string-prefix? '"opt-lambda" _%str155723%_)) '"%" - _%id155447%_)) - _%id155447%_))) - (_%kw-lambda-dispatch-name154732%_ - (lambda (_%id155442%_ _%name155443%_) - (if (uninterned-symbol? _%id155442%_) - (let ((_%str155445%_ (symbol->string _%id155442%_))) + _%id155721%_)) + _%id155721%_))) + (_%kw-lambda-dispatch-name155006%_ + (lambda (_%id155716%_ _%name155717%_) + (if (uninterned-symbol? _%id155716%_) + (let ((_%str155719%_ (symbol->string _%id155716%_))) (if (let () (declare (not safe)) - (##string-prefix? '"kw-lambda" _%str155445%_)) - _%name155443%_ - _%id155442%_)) - _%id155442%_)))) - (let* ((_%__stx168911168912%_ _%stx154728%_) - (_%g154737154796%_ + (##string-prefix? '"kw-lambda" _%str155719%_)) + _%name155717%_ + _%id155716%_)) + _%id155716%_)))) + (let* ((_%__stx169185169186%_ _%stx155002%_) + (_%g155011155070%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168911168912%_))))) - (let ((_%__kont168913168914%_ - (lambda (_%L155350%_ _%L155351%_) - (let* ((_%__stx168891168892%_ _%L155350%_) - (_%g155368155382%_ + _%__stx169185169186%_))))) + (let ((_%__kont169187169188%_ + (lambda (_%L155624%_ _%L155625%_) + (let* ((_%__stx169165169166%_ _%L155624%_) + (_%g155642155656%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168891168892%_))))) - (let ((_%__kont168893168894%_ - (lambda (_%L155427%_) _%stx154728%_)) - (_%__kont168895168896%_ - (lambda (_%L155395%_) - (let ((_g169696_ + _%__stx169165169166%_))))) + (let ((_%__kont169167169168%_ + (lambda (_%L155701%_) _%stx155002%_)) + (_%__kont169169169170%_ + (lambda (_%L155669%_) + (let ((_g169970_ (gxc#lift-case-lambda-clauses__0 - _%stx154728%_ - _%L155351%_ - _%L155395%_))) + _%stx155002%_ + _%L155625%_ + _%L155669%_))) (begin - (let ((_g169697_ + (let ((_g169971_ (let () (declare (not safe)) - (if (##values? _g169696_) - (##vector-length _g169696_) + (if (##values? _g169970_) + (##vector-length _g169970_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g169697_ 3))) + (##fx= _g169971_ 3))) (error "Context expects 3 values" - _g169697_))) - (let ((_%ids155405%_ + _g169971_))) + (let ((_%ids155679%_ (let () (declare (not safe)) - (##vector-ref _g169696_ 0))) - (_%impls155406%_ + (##vector-ref _g169970_ 0))) + (_%impls155680%_ (let () (declare (not safe)) - (##vector-ref _g169696_ 1))) - (_%clauses155407%_ + (##vector-ref _g169970_ 1))) + (_%clauses155681%_ (let () (declare (not safe)) - (##vector-ref _g169696_ 2)))) - (let* ((_%_155409%_ + (##vector-ref _g169970_ 2)))) + (let* ((_%_155683%_ (for-each gx#core-bind-runtime! - _%ids155405%_)) - (_%defs155411%_ - (map _%case-lambda-clause-def154730%_ - _%ids155405%_ - _%impls155406%_))) - (let ((__tmp169699 + _%ids155679%_)) + (_%defs155685%_ + (map _%case-lambda-clause-def155004%_ + _%ids155679%_ + _%impls155680%_))) + (let ((__tmp169973 (let () (declare (not safe)) (gxc#identifier-symbol - _%L155351%_))) - (__tmp169698 + _%L155625%_))) + (__tmp169972 (map gxc#identifier-symbol - _%ids155405%_))) + _%ids155679%_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp169699 + __tmp169973 '" => " - __tmp169698)) - (let ((__tmp169700 + __tmp169972)) + (let ((__tmp169974 (cons '%#begin - (let ((__tmp169701 - (cons (let ((__tmp169702 + (let ((__tmp169975 + (cons (let ((__tmp169976 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#define-values - (cons (cons _%L155351%_ '()) - (cons (let ((__tmp169704 + (cons (cons _%L155625%_ '()) + (cons (let ((__tmp169978 (cons '%#case-lambda - _%clauses155407%_)) - (__tmp169703 + _%clauses155681%_)) + (__tmp169977 (let () (declare (not safe)) @@ -20479,1128 +20479,1128 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp169704 - __tmp169703)) + __tmp169978 + __tmp169977)) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp169702 _%stx154728%_)) + (gxc#xform-wrap-source __tmp169976 _%stx155002%_)) '()))) (declare (not safe)) - (__foldr1 cons __tmp169701 _%defs155411%_))))) + (__foldr1 cons __tmp169975 _%defs155685%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp169700 - _%stx154728%_))))))))) - (let ((_%__match168902168903%_ - (lambda (_%e155371155419%_ - _%hd155372155422%_ - _%tl155373155424%_) - (let ((_%L155427%_ _%tl155373155424%_)) + __tmp169974 + _%stx155002%_))))))))) + (let ((_%__match169176169177%_ + (lambda (_%e155645155693%_ + _%hd155646155696%_ + _%tl155647155698%_) + (let ((_%L155701%_ _%tl155647155698%_)) (if (let () (declare (not safe)) (__andmap1 gxc#dispatch-lambda-form? - _%L155427%_)) - (_%__kont168893168894%_ _%L155427%_) - (_%__kont168895168896%_ - _%tl155373155424%_)))))) + _%L155701%_)) + (_%__kont169167169168%_ _%L155701%_) + (_%__kont169169169170%_ + _%tl155647155698%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168891168892%_)) - (let ((_%e155371155419%_ + (gx#stx-pair? _%__stx169165169166%_)) + (let ((_%e155645155693%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168891168892%_)))) - (let ((_%tl155373155424%_ + (gx#stx-e _%__stx169165169166%_)))) + (let ((_%tl155647155698%_ (let () (declare (not safe)) - (##cdr _%e155371155419%_))) - (_%hd155372155422%_ + (##cdr _%e155645155693%_))) + (_%hd155646155696%_ (let () (declare (not safe)) - (##car _%e155371155419%_)))) - (_%__match168902168903%_ - _%e155371155419%_ - _%hd155372155422%_ - _%tl155373155424%_))) + (##car _%e155645155693%_)))) + (_%__match169176169177%_ + _%e155645155693%_ + _%hd155646155696%_ + _%tl155647155698%_))) (let () (declare (not safe)) - (_%g155368155382%_)))))))) - (_%__kont168915168916%_ - (lambda (_%L155167%_ _%L155168%_) - (let* ((_%g155184155214%_ - (lambda (_%g155185155211%_) + (_%g155642155656%_)))))))) + (_%__kont169189169190%_ + (lambda (_%L155441%_ _%L155442%_) + (let* ((_%g155458155488%_ + (lambda (_%g155459155485%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g155185155211%_)))) - (_%g155183155310%_ - (lambda (_%g155185155217%_) + _%g155459155485%_)))) + (_%g155457155584%_ + (lambda (_%g155459155491%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g155185155217%_)) - (let ((_%e155189155219%_ + (gx#stx-pair? _%g155459155491%_)) + (let ((_%e155463155493%_ (let () (declare (not safe)) - (gx#stx-e _%g155185155217%_)))) - (let ((_%hd155190155222%_ + (gx#stx-e _%g155459155491%_)))) + (let ((_%hd155464155496%_ (let () (declare (not safe)) - (##car _%e155189155219%_))) - (_%tl155191155224%_ + (##car _%e155463155493%_))) + (_%tl155465155498%_ (let () (declare (not safe)) - (##cdr _%e155189155219%_)))) + (##cdr _%e155463155493%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155191155224%_)) - (let ((_%e155192155227%_ + (gx#stx-pair? _%tl155465155498%_)) + (let ((_%e155466155501%_ (let () (declare (not safe)) (gx#stx-e - _%tl155191155224%_)))) - (let ((_%hd155193155230%_ + _%tl155465155498%_)))) + (let ((_%hd155467155504%_ (let () (declare (not safe)) - (##car _%e155192155227%_))) - (_%tl155194155232%_ + (##car _%e155466155501%_))) + (_%tl155468155506%_ (let () (declare (not safe)) - (##cdr _%e155192155227%_)))) + (##cdr _%e155466155501%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155193155230%_)) - (let ((_%e155195155235%_ + _%hd155467155504%_)) + (let ((_%e155469155509%_ (let () (declare (not safe)) (gx#stx-e - _%hd155193155230%_)))) - (let ((_%hd155196155238%_ + _%hd155467155504%_)))) + (let ((_%hd155470155512%_ (let () (declare (not safe)) - (##car _%e155195155235%_))) - (_%tl155197155240%_ + (##car _%e155469155509%_))) + (_%tl155471155514%_ (let () (declare (not safe)) - (##cdr _%e155195155235%_)))) + (##cdr _%e155469155509%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155196155238%_)) - (let ((_%e155198155243%_ + _%hd155470155512%_)) + (let ((_%e155472155517%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd155196155238%_)))) - (let ((_%hd155199155246%_ + (gx#stx-e _%hd155470155512%_)))) + (let ((_%hd155473155520%_ (let () (declare (not safe)) - (##car _%e155198155243%_))) - (_%tl155200155248%_ + (##car _%e155472155517%_))) + (_%tl155474155522%_ (let () (declare (not safe)) - (##cdr _%e155198155243%_)))) + (##cdr _%e155472155517%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155199155246%_)) - (let ((_%e155201155251%_ + (gx#stx-pair? _%hd155473155520%_)) + (let ((_%e155475155525%_ (let () (declare (not safe)) - (gx#stx-e _%hd155199155246%_)))) - (let ((_%hd155202155254%_ + (gx#stx-e _%hd155473155520%_)))) + (let ((_%hd155476155528%_ (let () (declare (not safe)) - (##car _%e155201155251%_))) - (_%tl155203155256%_ + (##car _%e155475155525%_))) + (_%tl155477155530%_ (let () (declare (not safe)) - (##cdr _%e155201155251%_)))) + (##cdr _%e155475155525%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155203155256%_)) + (gx#stx-null? _%tl155477155530%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155200155248%_)) - (let ((_%e155204155259%_ + (gx#stx-pair? _%tl155474155522%_)) + (let ((_%e155478155533%_ (let () (declare (not safe)) (gx#stx-e - _%tl155200155248%_)))) - (let ((_%hd155205155262%_ + _%tl155474155522%_)))) + (let ((_%hd155479155536%_ (let () (declare (not safe)) - (##car _%e155204155259%_))) - (_%tl155206155264%_ + (##car _%e155478155533%_))) + (_%tl155480155538%_ (let () (declare (not safe)) - (##cdr _%e155204155259%_)))) + (##cdr _%e155478155533%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155206155264%_)) + _%tl155480155538%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155197155240%_)) + _%tl155471155514%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155194155232%_)) - (let ((_%e155207155267%_ + _%tl155468155506%_)) + (let ((_%e155481155541%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl155194155232%_)))) - (let ((_%hd155208155270%_ + (gx#stx-e _%tl155468155506%_)))) + (let ((_%hd155482155544%_ (let () (declare (not safe)) - (##car _%e155207155267%_))) - (_%tl155209155272%_ + (##car _%e155481155541%_))) + (_%tl155483155546%_ (let () (declare (not safe)) - (##cdr _%e155207155267%_)))) + (##cdr _%e155481155541%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155209155272%_)) - ((lambda (_%L155275%_ _%L155276%_ _%L155277%_) - (let* ((_%lambda-id155301%_ - (let ((__tmp169706 + (gx#stx-null? _%tl155483155546%_)) + ((lambda (_%L155549%_ _%L155550%_ _%L155551%_) + (let* ((_%lambda-id155575%_ + (let ((__tmp169980 (let () (declare (not safe)) - (gx#stx-e _%L155168%_))) - (__tmp169705 - (_%opt-lambda-dispatch-name154731%_ + (gx#stx-e _%L155442%_))) + (__tmp169979 + (_%opt-lambda-dispatch-name155005%_ (let () (declare (not safe)) - (gx#stx-e _%L155277%_))))) + (gx#stx-e _%L155551%_))))) (declare (not safe)) (make-symbol__1 - __tmp169706 + __tmp169980 '"__" - __tmp169705))) - (_%lambda-id155303%_ - (let ((__tmp169707 + __tmp169979))) + (_%lambda-id155577%_ + (let ((__tmp169981 (let () (declare (not safe)) - (gx#stx-source _%stx154728%_)))) + (gx#stx-source _%stx155002%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%lambda-id155301%_ - __tmp169707))) - (_%_155305%_ + _%lambda-id155575%_ + __tmp169981))) + (_%_155579%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%lambda-id155303%_))) - (_%new-case-lambda-expr155307%_ + _%lambda-id155577%_))) + (_%new-case-lambda-expr155581%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L155277%_ - _%lambda-id155303%_ - _%L155275%_)))) - (let ((__tmp169709 + _%L155551%_ + _%lambda-id155577%_ + _%L155549%_)))) + (let ((__tmp169983 (let () (declare (not safe)) - (gxc#identifier-symbol _%L155168%_))) - (__tmp169708 + (gxc#identifier-symbol _%L155442%_))) + (__tmp169982 (let () (declare (not safe)) (gxc#identifier-symbol - _%lambda-id155303%_)))) + _%lambda-id155577%_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp169709 + __tmp169983 '" => " - __tmp169708)) - (let ((__tmp169710 + __tmp169982)) + (let ((__tmp169984 (cons '%#begin - (cons (let ((__tmp169711 + (cons (let ((__tmp169985 (cons '%#define-values - (cons (cons _%lambda-id155303%_ + (cons (cons _%lambda-id155577%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self154727%_ - _%L155276%_)) + _%self155001%_ + _%L155550%_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp169711 - _%stx154728%_)) + __tmp169985 + _%stx155002%_)) (cons (gxc#lift-top-lambda-define-values% - _%self154727%_ - (let ((__tmp169712 + _%self155001%_ + (let ((__tmp169986 (cons '%#define-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L155168%_ '()) - (cons _%new-case-lambda-expr155307%_ '()))))) + (cons (cons _%L155442%_ '()) + (cons _%new-case-lambda-expr155581%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp169712 _%stx154728%_))) + (gxc#xform-wrap-source __tmp169986 _%stx155002%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp169710 - _%stx154728%_)))) - _%hd155208155270%_ - _%hd155205155262%_ - _%hd155202155254%_) - (_%g155184155214%_ _%g155185155217%_)))) - (_%g155184155214%_ _%g155185155217%_)) + __tmp169984 + _%stx155002%_)))) + _%hd155482155544%_ + _%hd155479155536%_ + _%hd155476155528%_) + (_%g155458155488%_ _%g155459155491%_)))) + (_%g155458155488%_ _%g155459155491%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155184155214%_ - _%g155185155217%_)) - (_%g155184155214%_ - _%g155185155217%_)))) - (_%g155184155214%_ _%g155185155217%_)) - (_%g155184155214%_ _%g155185155217%_)))) - (_%g155184155214%_ _%g155185155217%_)))) - (_%g155184155214%_ _%g155185155217%_)))) + (_%g155458155488%_ + _%g155459155491%_)) + (_%g155458155488%_ + _%g155459155491%_)))) + (_%g155458155488%_ _%g155459155491%_)) + (_%g155458155488%_ _%g155459155491%_)))) + (_%g155458155488%_ _%g155459155491%_)))) + (_%g155458155488%_ _%g155459155491%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155184155214%_ - _%g155185155217%_)))) - (_%g155184155214%_ - _%g155185155217%_)))) - (_%g155184155214%_ _%g155185155217%_))))) - (_%g155183155310%_ _%L155167%_)))) - (_%__kont168917168918%_ - (lambda (_%L154879%_ _%L154880%_) - (let* ((_%g154896154949%_ - (lambda (_%g154897154946%_) + (_%g155458155488%_ + _%g155459155491%_)))) + (_%g155458155488%_ + _%g155459155491%_)))) + (_%g155458155488%_ _%g155459155491%_))))) + (_%g155457155584%_ _%L155441%_)))) + (_%__kont169191169192%_ + (lambda (_%L155153%_ _%L155154%_) + (let* ((_%g155170155223%_ + (lambda (_%g155171155220%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g154897154946%_)))) - (_%g154895155127%_ - (lambda (_%g154897154952%_) + _%g155171155220%_)))) + (_%g155169155401%_ + (lambda (_%g155171155226%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g154897154952%_)) - (let ((_%e154903154954%_ + (gx#stx-pair? _%g155171155226%_)) + (let ((_%e155177155228%_ (let () (declare (not safe)) - (gx#stx-e _%g154897154952%_)))) - (let ((_%hd154904154957%_ + (gx#stx-e _%g155171155226%_)))) + (let ((_%hd155178155231%_ (let () (declare (not safe)) - (##car _%e154903154954%_))) - (_%tl154905154959%_ + (##car _%e155177155228%_))) + (_%tl155179155233%_ (let () (declare (not safe)) - (##cdr _%e154903154954%_)))) + (##cdr _%e155177155228%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154905154959%_)) - (let ((_%e154906154962%_ + (gx#stx-pair? _%tl155179155233%_)) + (let ((_%e155180155236%_ (let () (declare (not safe)) (gx#stx-e - _%tl154905154959%_)))) - (let ((_%hd154907154965%_ + _%tl155179155233%_)))) + (let ((_%hd155181155239%_ (let () (declare (not safe)) - (##car _%e154906154962%_))) - (_%tl154908154967%_ + (##car _%e155180155236%_))) + (_%tl155182155241%_ (let () (declare (not safe)) - (##cdr _%e154906154962%_)))) + (##cdr _%e155180155236%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154907154965%_)) - (let ((_%e154909154970%_ + _%hd155181155239%_)) + (let ((_%e155183155244%_ (let () (declare (not safe)) (gx#stx-e - _%hd154907154965%_)))) - (let ((_%hd154910154973%_ + _%hd155181155239%_)))) + (let ((_%hd155184155247%_ (let () (declare (not safe)) - (##car _%e154909154970%_))) - (_%tl154911154975%_ + (##car _%e155183155244%_))) + (_%tl155185155249%_ (let () (declare (not safe)) - (##cdr _%e154909154970%_)))) + (##cdr _%e155183155244%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154910154973%_)) - (let ((_%e154912154978%_ + _%hd155184155247%_)) + (let ((_%e155186155252%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd154910154973%_)))) - (let ((_%hd154913154981%_ + (gx#stx-e _%hd155184155247%_)))) + (let ((_%hd155187155255%_ (let () (declare (not safe)) - (##car _%e154912154978%_))) - (_%tl154914154983%_ + (##car _%e155186155252%_))) + (_%tl155188155257%_ (let () (declare (not safe)) - (##cdr _%e154912154978%_)))) + (##cdr _%e155186155252%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154913154981%_)) - (let ((_%e154915154986%_ + (gx#stx-pair? _%hd155187155255%_)) + (let ((_%e155189155260%_ (let () (declare (not safe)) - (gx#stx-e _%hd154913154981%_)))) - (let ((_%hd154916154989%_ + (gx#stx-e _%hd155187155255%_)))) + (let ((_%hd155190155263%_ (let () (declare (not safe)) - (##car _%e154915154986%_))) - (_%tl154917154991%_ + (##car _%e155189155260%_))) + (_%tl155191155265%_ (let () (declare (not safe)) - (##cdr _%e154915154986%_)))) + (##cdr _%e155189155260%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154917154991%_)) + (gx#stx-null? _%tl155191155265%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154914154983%_)) - (let ((_%e154918154994%_ + (gx#stx-pair? _%tl155188155257%_)) + (let ((_%e155192155268%_ (let () (declare (not safe)) (gx#stx-e - _%tl154914154983%_)))) - (let ((_%hd154919154997%_ + _%tl155188155257%_)))) + (let ((_%hd155193155271%_ (let () (declare (not safe)) - (##car _%e154918154994%_))) - (_%tl154920154999%_ + (##car _%e155192155268%_))) + (_%tl155194155273%_ (let () (declare (not safe)) - (##cdr _%e154918154994%_)))) + (##cdr _%e155192155268%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154919154997%_)) - (let ((_%e154921155002%_ + _%hd155193155271%_)) + (let ((_%e155195155276%_ (let () (declare (not safe)) (gx#stx-e - _%hd154919154997%_)))) - (let ((_%hd154922155005%_ + _%hd155193155271%_)))) + (let ((_%hd155196155279%_ (let () (declare (not safe)) - (##car _%e154921155002%_))) - (_%tl154923155007%_ + (##car _%e155195155276%_))) + (_%tl155197155281%_ (let () (declare (not safe)) - (##cdr _%e154921155002%_)))) + (##cdr _%e155195155276%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154923155007%_)) - (let ((_%e154924155010%_ + _%tl155197155281%_)) + (let ((_%e155198155284%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl154923155007%_)))) - (let ((_%hd154925155013%_ + (gx#stx-e _%tl155197155281%_)))) + (let ((_%hd155199155287%_ (let () (declare (not safe)) - (##car _%e154924155010%_))) - (_%tl154926155015%_ + (##car _%e155198155284%_))) + (_%tl155200155289%_ (let () (declare (not safe)) - (##cdr _%e154924155010%_)))) + (##cdr _%e155198155284%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154925155013%_)) - (let ((_%e154927155018%_ + (gx#stx-pair? _%hd155199155287%_)) + (let ((_%e155201155292%_ (let () (declare (not safe)) - (gx#stx-e _%hd154925155013%_)))) - (let ((_%hd154928155021%_ + (gx#stx-e _%hd155199155287%_)))) + (let ((_%hd155202155295%_ (let () (declare (not safe)) - (##car _%e154927155018%_))) - (_%tl154929155023%_ + (##car _%e155201155292%_))) + (_%tl155203155297%_ (let () (declare (not safe)) - (##cdr _%e154927155018%_)))) + (##cdr _%e155201155292%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154928155021%_)) - (let ((_%e154930155026%_ + (gx#stx-pair? _%hd155202155295%_)) + (let ((_%e155204155300%_ (let () (declare (not safe)) - (gx#stx-e _%hd154928155021%_)))) - (let ((_%hd154931155029%_ + (gx#stx-e _%hd155202155295%_)))) + (let ((_%hd155205155303%_ (let () (declare (not safe)) - (##car _%e154930155026%_))) - (_%tl154932155031%_ + (##car _%e155204155300%_))) + (_%tl155206155305%_ (let () (declare (not safe)) - (##cdr _%e154930155026%_)))) + (##cdr _%e155204155300%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154931155029%_)) - (let ((_%e154933155034%_ + (gx#stx-pair? _%hd155205155303%_)) + (let ((_%e155207155308%_ (let () (declare (not safe)) (gx#stx-e - _%hd154931155029%_)))) - (let ((_%hd154934155037%_ + _%hd155205155303%_)))) + (let ((_%hd155208155311%_ (let () (declare (not safe)) - (##car _%e154933155034%_))) - (_%tl154935155039%_ + (##car _%e155207155308%_))) + (_%tl155209155313%_ (let () (declare (not safe)) - (##cdr _%e154933155034%_)))) + (##cdr _%e155207155308%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154935155039%_)) + _%tl155209155313%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154932155031%_)) - (let ((_%e154936155042%_ + _%tl155206155305%_)) + (let ((_%e155210155316%_ (let () (declare (not safe)) (gx#stx-e - _%tl154932155031%_)))) - (let ((_%hd154937155045%_ + _%tl155206155305%_)))) + (let ((_%hd155211155319%_ (let () (declare (not safe)) - (##car _%e154936155042%_))) - (_%tl154938155047%_ + (##car _%e155210155316%_))) + (_%tl155212155321%_ (let () (declare (not safe)) - (##cdr _%e154936155042%_)))) + (##cdr _%e155210155316%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154938155047%_)) + _%tl155212155321%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-null? _%tl154929155023%_)) + (gx#stx-null? _%tl155203155297%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154926155015%_)) - (let ((_%e154939155050%_ + (gx#stx-pair? _%tl155200155289%_)) + (let ((_%e155213155324%_ (let () (declare (not safe)) - (gx#stx-e _%tl154926155015%_)))) - (let ((_%hd154940155053%_ + (gx#stx-e _%tl155200155289%_)))) + (let ((_%hd155214155327%_ (let () (declare (not safe)) - (##car _%e154939155050%_))) - (_%tl154941155055%_ + (##car _%e155213155324%_))) + (_%tl155215155329%_ (let () (declare (not safe)) - (##cdr _%e154939155050%_)))) + (##cdr _%e155213155324%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154941155055%_)) + (gx#stx-null? _%tl155215155329%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154920154999%_)) + (gx#stx-null? _%tl155194155273%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154911154975%_)) + (gx#stx-null? _%tl155185155249%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154908154967%_)) - (let ((_%e154942155058%_ + _%tl155182155241%_)) + (let ((_%e155216155332%_ (let () (declare (not safe)) (gx#stx-e - _%tl154908154967%_)))) - (let ((_%hd154943155061%_ + _%tl155182155241%_)))) + (let ((_%hd155217155335%_ (let () (declare (not safe)) - (##car _%e154942155058%_))) - (_%tl154944155063%_ + (##car _%e155216155332%_))) + (_%tl155218155337%_ (let () (declare (not safe)) - (##cdr _%e154942155058%_)))) + (##cdr _%e155216155332%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154944155063%_)) - ((lambda (_%L155066%_ + _%tl155218155337%_)) + ((lambda (_%L155340%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L155067%_ - _%L155068%_ - _%L155069%_ - _%L155070%_) - (let* ((_%get-kws-id155110%_ - (let ((__tmp169714 + _%L155341%_ + _%L155342%_ + _%L155343%_ + _%L155344%_) + (let* ((_%get-kws-id155384%_ + (let ((__tmp169988 (let () (declare (not safe)) - (gx#stx-e _%L154880%_))) - (__tmp169713 - (_%kw-lambda-dispatch-name154732%_ + (gx#stx-e _%L155154%_))) + (__tmp169987 + (_%kw-lambda-dispatch-name155006%_ (let () (declare (not safe)) - (gx#stx-e _%L155070%_)) + (gx#stx-e _%L155344%_)) '"@"))) (declare (not safe)) - (make-symbol__1 __tmp169714 '"__" __tmp169713))) - (_%get-kws-id155112%_ - (let ((__tmp169715 + (make-symbol__1 __tmp169988 '"__" __tmp169987))) + (_%get-kws-id155386%_ + (let ((__tmp169989 (let () (declare (not safe)) - (gx#stx-source _%stx154728%_)))) + (gx#stx-source _%stx155002%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%get-kws-id155110%_ - __tmp169715))) - (_%main-id155114%_ - (let ((__tmp169717 + _%get-kws-id155384%_ + __tmp169989))) + (_%main-id155388%_ + (let ((__tmp169991 (let () (declare (not safe)) - (gx#stx-e _%L154880%_))) - (__tmp169716 - (_%kw-lambda-dispatch-name154732%_ + (gx#stx-e _%L155154%_))) + (__tmp169990 + (_%kw-lambda-dispatch-name155006%_ (let () (declare (not safe)) - (gx#stx-e _%L155069%_)) + (gx#stx-e _%L155343%_)) '"%"))) (declare (not safe)) - (make-symbol__1 __tmp169717 '"__" __tmp169716))) - (_%main-id155116%_ - (let ((__tmp169718 + (make-symbol__1 __tmp169991 '"__" __tmp169990))) + (_%main-id155390%_ + (let ((__tmp169992 (let () (declare (not safe)) - (gx#stx-source _%stx154728%_)))) + (gx#stx-source _%stx155002%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%main-id155114%_ - __tmp169718))) - (_%_155118%_ + _%main-id155388%_ + __tmp169992))) + (_%_155392%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%get-kws-id155112%_))) - (_%_155120%_ + (gx#core-bind-runtime!__0 _%get-kws-id155386%_))) + (_%_155394%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%main-id155116%_))) - (_%new-kw-dispatch155122%_ + (gx#core-bind-runtime!__0 _%main-id155390%_))) + (_%new-kw-dispatch155396%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L155070%_ - _%get-kws-id155112%_ - _%L155066%_))) - (_%new-get-kws155124%_ + _%L155344%_ + _%get-kws-id155386%_ + _%L155340%_))) + (_%new-get-kws155398%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L155069%_ - _%main-id155116%_ - _%L155067%_)))) - (let ((__tmp169721 + _%L155343%_ + _%main-id155390%_ + _%L155341%_)))) + (let ((__tmp169995 (let () (declare (not safe)) - (gxc#identifier-symbol _%L154880%_))) - (__tmp169720 + (gxc#identifier-symbol _%L155154%_))) + (__tmp169994 (let () (declare (not safe)) - (gxc#identifier-symbol _%get-kws-id155112%_))) - (__tmp169719 + (gxc#identifier-symbol _%get-kws-id155386%_))) + (__tmp169993 (let () (declare (not safe)) - (gxc#identifier-symbol _%main-id155116%_)))) + (gxc#identifier-symbol _%main-id155390%_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp169721 + __tmp169995 '" => " - __tmp169720 + __tmp169994 '" => " - __tmp169719)) - (let ((__tmp169722 + __tmp169993)) + (let ((__tmp169996 (cons '%#begin (cons (gxc#lift-top-lambda-define-values% - _%self154727%_ - (let ((__tmp169723 + _%self155001%_ + (let ((__tmp169997 (cons '%#define-values - (cons (cons _%main-id155116%_ + (cons (cons _%main-id155390%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%L155068%_ '()))))) + (cons _%L155342%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp169723 - _%stx154728%_))) - (cons (let ((__tmp169724 + __tmp169997 + _%stx155002%_))) + (cons (let ((__tmp169998 (cons '%#define-values - (cons (cons _%get-kws-id155112%_ + (cons (cons _%get-kws-id155386%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%new-get-kws155124%_ '()))))) + (cons _%new-get-kws155398%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp169724 - _%stx154728%_)) - (cons (let ((__tmp169725 + __tmp169998 + _%stx155002%_)) + (cons (let ((__tmp169999 (cons '%#define-values - (cons (cons _%L154880%_ + (cons (cons _%L155154%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%new-kw-dispatch155122%_ '()))))) + (cons _%new-kw-dispatch155396%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp169725 - _%stx154728%_)) + __tmp169999 + _%stx155002%_)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp169722 _%stx154728%_)))) - _%hd154943155061%_ - _%hd154940155053%_ - _%hd154937155045%_ - _%hd154934155037%_ - _%hd154916154989%_) - (_%g154896154949%_ _%g154897154952%_)))) + (gxc#xform-wrap-source __tmp169996 _%stx155002%_)))) + _%hd155217155335%_ + _%hd155214155327%_ + _%hd155211155319%_ + _%hd155208155311%_ + _%hd155190155263%_) + (_%g155170155223%_ _%g155171155226%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154896154949%_ - _%g154897154952%_)) - (_%g154896154949%_ - _%g154897154952%_)) - (_%g154896154949%_ _%g154897154952%_)) - (_%g154896154949%_ _%g154897154952%_)))) - (_%g154896154949%_ _%g154897154952%_)) - (_%g154896154949%_ _%g154897154952%_)) - (_%g154896154949%_ _%g154897154952%_)))) + (_%g155170155223%_ + _%g155171155226%_)) + (_%g155170155223%_ + _%g155171155226%_)) + (_%g155170155223%_ _%g155171155226%_)) + (_%g155170155223%_ _%g155171155226%_)))) + (_%g155170155223%_ _%g155171155226%_)) + (_%g155170155223%_ _%g155171155226%_)) + (_%g155170155223%_ _%g155171155226%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154896154949%_ - _%g154897154952%_)) - (_%g154896154949%_ - _%g154897154952%_)))) - (_%g154896154949%_ _%g154897154952%_)))) - (_%g154896154949%_ _%g154897154952%_)))) - (_%g154896154949%_ _%g154897154952%_)))) - (_%g154896154949%_ _%g154897154952%_)))) + (_%g155170155223%_ + _%g155171155226%_)) + (_%g155170155223%_ + _%g155171155226%_)))) + (_%g155170155223%_ _%g155171155226%_)))) + (_%g155170155223%_ _%g155171155226%_)))) + (_%g155170155223%_ _%g155171155226%_)))) + (_%g155170155223%_ _%g155171155226%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154896154949%_ - _%g154897154952%_)))) - (_%g154896154949%_ _%g154897154952%_)) - (_%g154896154949%_ _%g154897154952%_)))) - (_%g154896154949%_ _%g154897154952%_)))) - (_%g154896154949%_ _%g154897154952%_)))) + (_%g155170155223%_ + _%g155171155226%_)))) + (_%g155170155223%_ _%g155171155226%_)) + (_%g155170155223%_ _%g155171155226%_)))) + (_%g155170155223%_ _%g155171155226%_)))) + (_%g155170155223%_ _%g155171155226%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154896154949%_ - _%g154897154952%_)))) - (_%g154896154949%_ - _%g154897154952%_)))) - (_%g154896154949%_ _%g154897154952%_))))) - (_%g154895155127%_ _%L154879%_)))) - (_%__kont168919168920%_ - (lambda (_%L154825%_ _%L154826%_) - (let ((__tmp169726 + (_%g155170155223%_ + _%g155171155226%_)))) + (_%g155170155223%_ + _%g155171155226%_)))) + (_%g155170155223%_ _%g155171155226%_))))) + (_%g155169155401%_ _%L155153%_)))) + (_%__kont169193169194%_ + (lambda (_%L155099%_ _%L155100%_) + (let ((__tmp170000 (cons '%#define-values - (cons _%L154826%_ + (cons _%L155100%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self154727%_ - _%L154825%_)) + _%self155001%_ + _%L155099%_)) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp169726 _%stx154728%_))))) - (let* ((_%__match169004169005%_ - (lambda (_%e154769154847%_ - _%hd154770154850%_ - _%tl154771154852%_ - _%e154772154855%_ - _%hd154773154858%_ - _%tl154774154860%_ - _%e154775154863%_ - _%hd154776154866%_ - _%tl154777154868%_ - _%e154778154871%_ - _%hd154779154874%_ - _%tl154780154876%_) - (let ((_%L154879%_ _%hd154779154874%_) - (_%L154880%_ _%hd154776154866%_)) + (gxc#xform-wrap-source __tmp170000 _%stx155002%_))))) + (let* ((_%__match169278169279%_ + (lambda (_%e155043155121%_ + _%hd155044155124%_ + _%tl155045155126%_ + _%e155046155129%_ + _%hd155047155132%_ + _%tl155048155134%_ + _%e155049155137%_ + _%hd155050155140%_ + _%tl155051155142%_ + _%e155052155145%_ + _%hd155053155148%_ + _%tl155054155150%_) + (let ((_%L155153%_ _%hd155053155148%_) + (_%L155154%_ _%hd155050155140%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L154880%_)) - (gxc#kw-lambda-expr? _%L154879%_)) - (_%__kont168917168918%_ _%L154879%_ _%L154880%_) - (_%__kont168919168920%_ - _%hd154779154874%_ - _%hd154773154858%_))))) - (_%__match168976168977%_ - (lambda (_%e154755155135%_ - _%hd154756155138%_ - _%tl154757155140%_ - _%e154758155143%_ - _%hd154759155146%_ - _%tl154760155148%_ - _%e154761155151%_ - _%hd154762155154%_ - _%tl154763155156%_ - _%e154764155159%_ - _%hd154765155162%_ - _%tl154766155164%_) - (let ((_%L155167%_ _%hd154765155162%_) - (_%L155168%_ _%hd154762155154%_)) + (gx#identifier? _%L155154%_)) + (gxc#kw-lambda-expr? _%L155153%_)) + (_%__kont169191169192%_ _%L155153%_ _%L155154%_) + (_%__kont169193169194%_ + _%hd155053155148%_ + _%hd155047155132%_))))) + (_%__match169250169251%_ + (lambda (_%e155029155409%_ + _%hd155030155412%_ + _%tl155031155414%_ + _%e155032155417%_ + _%hd155033155420%_ + _%tl155034155422%_ + _%e155035155425%_ + _%hd155036155428%_ + _%tl155037155430%_ + _%e155038155433%_ + _%hd155039155436%_ + _%tl155040155438%_) + (let ((_%L155441%_ _%hd155039155436%_) + (_%L155442%_ _%hd155036155428%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L155168%_)) - (gxc#opt-lambda-expr? _%L155167%_)) - (_%__kont168915168916%_ _%L155167%_ _%L155168%_) - (_%__match169004169005%_ - _%e154755155135%_ - _%hd154756155138%_ - _%tl154757155140%_ - _%e154758155143%_ - _%hd154759155146%_ - _%tl154760155148%_ - _%e154761155151%_ - _%hd154762155154%_ - _%tl154763155156%_ - _%e154764155159%_ - _%hd154765155162%_ - _%tl154766155164%_))))) - (_%__match168948168949%_ - (lambda (_%e154741155318%_ - _%hd154742155321%_ - _%tl154743155323%_ - _%e154744155326%_ - _%hd154745155329%_ - _%tl154746155331%_ - _%e154747155334%_ - _%hd154748155337%_ - _%tl154749155339%_ - _%e154750155342%_ - _%hd154751155345%_ - _%tl154752155347%_) - (let ((_%L155350%_ _%hd154751155345%_) - (_%L155351%_ _%hd154748155337%_)) + (gx#identifier? _%L155442%_)) + (gxc#opt-lambda-expr? _%L155441%_)) + (_%__kont169189169190%_ _%L155441%_ _%L155442%_) + (_%__match169278169279%_ + _%e155029155409%_ + _%hd155030155412%_ + _%tl155031155414%_ + _%e155032155417%_ + _%hd155033155420%_ + _%tl155034155422%_ + _%e155035155425%_ + _%hd155036155428%_ + _%tl155037155430%_ + _%e155038155433%_ + _%hd155039155436%_ + _%tl155040155438%_))))) + (_%__match169222169223%_ + (lambda (_%e155015155592%_ + _%hd155016155595%_ + _%tl155017155597%_ + _%e155018155600%_ + _%hd155019155603%_ + _%tl155020155605%_ + _%e155021155608%_ + _%hd155022155611%_ + _%tl155023155613%_ + _%e155024155616%_ + _%hd155025155619%_ + _%tl155026155621%_) + (let ((_%L155624%_ _%hd155025155619%_) + (_%L155625%_ _%hd155022155611%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L155351%_)) - (gxc#case-lambda-expr? _%L155350%_)) - (_%__kont168913168914%_ _%L155350%_ _%L155351%_) - (_%__match168976168977%_ - _%e154741155318%_ - _%hd154742155321%_ - _%tl154743155323%_ - _%e154744155326%_ - _%hd154745155329%_ - _%tl154746155331%_ - _%e154747155334%_ - _%hd154748155337%_ - _%tl154749155339%_ - _%e154750155342%_ - _%hd154751155345%_ - _%tl154752155347%_)))))) + (gx#identifier? _%L155625%_)) + (gxc#case-lambda-expr? _%L155624%_)) + (_%__kont169187169188%_ _%L155624%_ _%L155625%_) + (_%__match169250169251%_ + _%e155015155592%_ + _%hd155016155595%_ + _%tl155017155597%_ + _%e155018155600%_ + _%hd155019155603%_ + _%tl155020155605%_ + _%e155021155608%_ + _%hd155022155611%_ + _%tl155023155613%_ + _%e155024155616%_ + _%hd155025155619%_ + _%tl155026155621%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168911168912%_)) - (let ((_%e154741155318%_ + (gx#stx-pair? _%__stx169185169186%_)) + (let ((_%e155015155592%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168911168912%_)))) - (let ((_%tl154743155323%_ + (gx#stx-e _%__stx169185169186%_)))) + (let ((_%tl155017155597%_ (let () (declare (not safe)) - (##cdr _%e154741155318%_))) - (_%hd154742155321%_ + (##cdr _%e155015155592%_))) + (_%hd155016155595%_ (let () (declare (not safe)) - (##car _%e154741155318%_)))) + (##car _%e155015155592%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154743155323%_)) - (let ((_%e154744155326%_ + (gx#stx-pair? _%tl155017155597%_)) + (let ((_%e155018155600%_ (let () (declare (not safe)) - (gx#stx-e _%tl154743155323%_)))) - (let ((_%tl154746155331%_ + (gx#stx-e _%tl155017155597%_)))) + (let ((_%tl155020155605%_ (let () (declare (not safe)) - (##cdr _%e154744155326%_))) - (_%hd154745155329%_ + (##cdr _%e155018155600%_))) + (_%hd155019155603%_ (let () (declare (not safe)) - (##car _%e154744155326%_)))) + (##car _%e155018155600%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154745155329%_)) - (let ((_%e154747155334%_ + (gx#stx-pair? _%hd155019155603%_)) + (let ((_%e155021155608%_ (let () (declare (not safe)) - (gx#stx-e _%hd154745155329%_)))) - (let ((_%tl154749155339%_ + (gx#stx-e _%hd155019155603%_)))) + (let ((_%tl155023155613%_ (let () (declare (not safe)) - (##cdr _%e154747155334%_))) - (_%hd154748155337%_ + (##cdr _%e155021155608%_))) + (_%hd155022155611%_ (let () (declare (not safe)) - (##car _%e154747155334%_)))) + (##car _%e155021155608%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154749155339%_)) + _%tl155023155613%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154746155331%_)) - (let ((_%e154750155342%_ + _%tl155020155605%_)) + (let ((_%e155024155616%_ (let () (declare (not safe)) (gx#stx-e - _%tl154746155331%_)))) - (let ((_%tl154752155347%_ + _%tl155020155605%_)))) + (let ((_%tl155026155621%_ (let () (declare (not safe)) - (##cdr _%e154750155342%_))) - (_%hd154751155345%_ + (##cdr _%e155024155616%_))) + (_%hd155025155619%_ (let () (declare (not safe)) - (##car _%e154750155342%_)))) + (##car _%e155024155616%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154752155347%_)) - (_%__match168948168949%_ - _%e154741155318%_ - _%hd154742155321%_ - _%tl154743155323%_ - _%e154744155326%_ - _%hd154745155329%_ - _%tl154746155331%_ - _%e154747155334%_ - _%hd154748155337%_ - _%tl154749155339%_ - _%e154750155342%_ - _%hd154751155345%_ - _%tl154752155347%_) + _%tl155026155621%_)) + (_%__match169222169223%_ + _%e155015155592%_ + _%hd155016155595%_ + _%tl155017155597%_ + _%e155018155600%_ + _%hd155019155603%_ + _%tl155020155605%_ + _%e155021155608%_ + _%hd155022155611%_ + _%tl155023155613%_ + _%e155024155616%_ + _%hd155025155619%_ + _%tl155026155621%_) (let () (declare (not safe)) - (_%g154737154796%_))))) + (_%g155011155070%_))))) (let () (declare (not safe)) - (_%g154737154796%_))) + (_%g155011155070%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154746155331%_)) - (let ((_%e154789154817%_ + _%tl155020155605%_)) + (let ((_%e155063155091%_ (let () (declare (not safe)) (gx#stx-e - _%tl154746155331%_)))) - (let ((_%tl154791154822%_ + _%tl155020155605%_)))) + (let ((_%tl155065155096%_ (let () (declare (not safe)) - (##cdr _%e154789154817%_))) - (_%hd154790154820%_ + (##cdr _%e155063155091%_))) + (_%hd155064155094%_ (let () (declare (not safe)) - (##car _%e154789154817%_)))) + (##car _%e155063155091%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154791154822%_)) - (_%__kont168919168920%_ - _%hd154790154820%_ - _%hd154745155329%_) + _%tl155065155096%_)) + (_%__kont169193169194%_ + _%hd155064155094%_ + _%hd155019155603%_) (let () (declare (not safe)) - (_%g154737154796%_))))) + (_%g155011155070%_))))) (let () (declare (not safe)) - (_%g154737154796%_)))))) + (_%g155011155070%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154746155331%_)) - (let ((_%e154789154817%_ + (gx#stx-pair? _%tl155020155605%_)) + (let ((_%e155063155091%_ (let () (declare (not safe)) (gx#stx-e - _%tl154746155331%_)))) - (let ((_%tl154791154822%_ + _%tl155020155605%_)))) + (let ((_%tl155065155096%_ (let () (declare (not safe)) - (##cdr _%e154789154817%_))) - (_%hd154790154820%_ + (##cdr _%e155063155091%_))) + (_%hd155064155094%_ (let () (declare (not safe)) - (##car _%e154789154817%_)))) + (##car _%e155063155091%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154791154822%_)) - (_%__kont168919168920%_ - _%hd154790154820%_ - _%hd154745155329%_) + _%tl155065155096%_)) + (_%__kont169193169194%_ + _%hd155064155094%_ + _%hd155019155603%_) (let () (declare (not safe)) - (_%g154737154796%_))))) + (_%g155011155070%_))))) (let () (declare (not safe)) - (_%g154737154796%_)))))) + (_%g155011155070%_)))))) (let () (declare (not safe)) - (_%g154737154796%_))))) - (let () (declare (not safe)) (_%g154737154796%_))))))))) + (_%g155011155070%_))))) + (let () (declare (not safe)) (_%g155011155070%_))))))))) (define gxc#lift-top-lambda-let-values% - (lambda (_%self153654%_ _%stx153655%_) - (letrec* ((_%bind-e__166390166391%_ - (lambda (_%id154711%_ _%expr154712%_ _%compile?154713%_) - (cons (cons _%id154711%_ '()) - (cons (if _%compile?154713%_ + (lambda (_%self153928%_ _%stx153929%_) + (letrec* ((_%bind-e__166664166665%_ + (lambda (_%id154985%_ _%expr154986%_ _%compile?154987%_) + (cons (cons _%id154985%_ '()) + (cons (if _%compile?154987%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self153654%_ - _%expr154712%_)) - _%expr154712%_) + _%self153928%_ + _%expr154986%_)) + _%expr154986%_) '())))) - (_%bind-e__0__166392166393%_ - (lambda (_%id154718%_ _%expr154719%_) - (let ((_%compile?154721%_ '#t)) - (_%bind-e__166390166391%_ - _%id154718%_ - _%expr154719%_ - _%compile?154721%_)))) - (_%bind-e153657%_ - (lambda _g169728_ - (let ((_g169727_ + (_%bind-e__0__166666166667%_ + (lambda (_%id154992%_ _%expr154993%_) + (let ((_%compile?154995%_ '#t)) + (_%bind-e__166664166665%_ + _%id154992%_ + _%expr154993%_ + _%compile?154995%_)))) + (_%bind-e153931%_ + (lambda _g170002_ + (let ((_g170001_ (let () (declare (not safe)) - (##length _g169728_)))) - (cond ((let () (declare (not safe)) (##fx= _g169727_ 2)) - (apply _%bind-e__0__166392166393%_ _g169728_)) - ((let () (declare (not safe)) (##fx= _g169727_ 3)) - (apply _%bind-e__166390166391%_ _g169728_)) + (##length _g170002_)))) + (cond ((let () (declare (not safe)) (##fx= _g170001_ 2)) + (apply _%bind-e__0__166666166667%_ _g170002_)) + ((let () (declare (not safe)) (##fx= _g170001_ 3)) + (apply _%bind-e__166664166665%_ _g170002_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g169728_)))))) - (_%compile-bindings153658%_ - (lambda (_%bindings154293%_) - (let _%lp154295%_ ((_%rest154297%_ _%bindings154293%_) - (_%lift1154298%_ '()) - (_%lift2154299%_ '()) - (_%bind154300%_ '())) - (let* ((_%rest154301154309%_ _%rest154297%_) - (_%else154303154317%_ + _g170002_)))))) + (_%compile-bindings153932%_ + (lambda (_%bindings154567%_) + (let _%lp154569%_ ((_%rest154571%_ _%bindings154567%_) + (_%lift1154572%_ '()) + (_%lift2154573%_ '()) + (_%bind154574%_ '())) + (let* ((_%rest154575154583%_ _%rest154571%_) + (_%else154577154591%_ (lambda () - (values (reverse _%lift1154298%_) - (reverse _%lift2154299%_) - (reverse _%bind154300%_)))) - (_%K154305154698%_ - (lambda (_%rest154320%_ _%hd154321%_) - (let* ((_%__stx169047169048%_ _%hd154321%_) - (_%g154325154361%_ + (values (reverse _%lift1154572%_) + (reverse _%lift2154573%_) + (reverse _%bind154574%_)))) + (_%K154579154972%_ + (lambda (_%rest154594%_ _%hd154595%_) + (let* ((_%__stx169321169322%_ _%hd154595%_) + (_%g154599154635%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169047169048%_))))) - (let ((_%__kont169049169050%_ - (lambda (_%L154604%_ _%L154605%_) - (let* ((_%__stx169027169028%_ - _%L154604%_) - (_%g154620154634%_ + _%__stx169321169322%_))))) + (let ((_%__kont169323169324%_ + (lambda (_%L154878%_ _%L154879%_) + (let* ((_%__stx169301169302%_ + _%L154878%_) + (_%g154894154908%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169027169028%_))))) - (let ((_%__kont169029169030%_ - (lambda (_%L154683%_) - (_%lp154295%_ - _%rest154320%_ - _%lift1154298%_ - _%lift2154299%_ - (cons (_%bind-e__166390166391%_ - _%L154605%_ - _%L154604%_ + _%__stx169301169302%_))))) + (let ((_%__kont169303169304%_ + (lambda (_%L154957%_) + (_%lp154569%_ + _%rest154594%_ + _%lift1154572%_ + _%lift2154573%_ + (cons (_%bind-e__166664166665%_ + _%L154879%_ + _%L154878%_ '#f) - _%bind154300%_)))) - (_%__kont169031169032%_ - (lambda (_%L154647%_) - (let ((_g169729_ + _%bind154574%_)))) + (_%__kont169305169306%_ + (lambda (_%L154921%_) + (let ((_g170003_ (gxc#lift-case-lambda-clauses__% - _%stx153655%_ - _%L154605%_ - _%L154647%_ + _%stx153929%_ + _%L154879%_ + _%L154921%_ '#t))) (begin - (let ((_g169730_ + (let ((_g170004_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g169729_) - (##vector-length _g169729_) + (if (##values? _g170003_) + (##vector-length _g170003_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g169730_ 3))) - (error "Context expects 3 values" _g169730_))) - (let ((_%ids154657%_ + (##fx= _g170004_ 3))) + (error "Context expects 3 values" _g170004_))) + (let ((_%ids154931%_ (let () (declare (not safe)) - (##vector-ref _g169729_ 0))) - (_%impls154658%_ + (##vector-ref _g170003_ 0))) + (_%impls154932%_ (let () (declare (not safe)) - (##vector-ref _g169729_ 1))) - (_%clauses154659%_ + (##vector-ref _g170003_ 1))) + (_%clauses154933%_ (let () (declare (not safe)) - (##vector-ref _g169729_ 2)))) - (let* ((_%_154661%_ - (for-each gx#core-bind-runtime! _%ids154657%_)) - (_%xbind154663%_ - (map _%bind-e153657%_ - _%ids154657%_ - _%impls154658%_)) - (_%expr*154665%_ - (let ((__tmp169732 - (cons '%#case-lambda _%clauses154659%_)) - (__tmp169731 + (##vector-ref _g170003_ 2)))) + (let* ((_%_154935%_ + (for-each gx#core-bind-runtime! _%ids154931%_)) + (_%xbind154937%_ + (map _%bind-e153931%_ + _%ids154931%_ + _%impls154932%_)) + (_%expr*154939%_ + (let ((__tmp170006 + (cons '%#case-lambda _%clauses154933%_)) + (__tmp170005 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -21608,1412 +21608,1412 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp169732 - __tmp169731))) - (_%bind*154667%_ - (_%bind-e__166390166391%_ - _%L154605%_ - _%expr*154665%_ + __tmp170006 + __tmp170005))) + (_%bind*154941%_ + (_%bind-e__166664166665%_ + _%L154879%_ + _%expr*154939%_ '#f))) - (let ((__tmp169734 + (let ((__tmp170008 (let () (declare (not safe)) - (gxc#identifier-symbol _%L154605%_))) - (__tmp169733 - (map gxc#identifier-symbol _%ids154657%_))) + (gxc#identifier-symbol _%L154879%_))) + (__tmp170007 + (map gxc#identifier-symbol _%ids154931%_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp169734 + __tmp170008 '" => " - __tmp169733)) - (_%lp154295%_ - _%rest154320%_ - _%lift1154298%_ + __tmp170007)) + (_%lp154569%_ + _%rest154594%_ + _%lift1154572%_ (let () (declare (not safe)) - (__foldl1 cons _%lift2154299%_ _%xbind154663%_)) - (cons _%bind*154667%_ _%bind154300%_))))))))) + (__foldl1 cons _%lift2154573%_ _%xbind154937%_)) + (cons _%bind*154941%_ _%bind154574%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match169038169039%_ - (lambda (_%e154623154675%_ - _%hd154624154678%_ - _%tl154625154680%_) - (let ((_%L154683%_ - _%tl154625154680%_)) + (let ((_%__match169312169313%_ + (lambda (_%e154897154949%_ + _%hd154898154952%_ + _%tl154899154954%_) + (let ((_%L154957%_ + _%tl154899154954%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__andmap1 gxc#dispatch-lambda-form? _%L154683%_)) - (_%__kont169029169030%_ _%L154683%_) - (_%__kont169031169032%_ _%tl154625154680%_)))))) + (__andmap1 gxc#dispatch-lambda-form? _%L154957%_)) + (_%__kont169303169304%_ _%L154957%_) + (_%__kont169305169306%_ _%tl154899154954%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx169027169028%_)) - (let ((_%e154623154675%_ + _%__stx169301169302%_)) + (let ((_%e154897154949%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%__stx169027169028%_)))) - (let ((_%tl154625154680%_ - (let () (declare (not safe)) (##cdr _%e154623154675%_))) - (_%hd154624154678%_ + (gx#stx-e _%__stx169301169302%_)))) + (let ((_%tl154899154954%_ + (let () (declare (not safe)) (##cdr _%e154897154949%_))) + (_%hd154898154952%_ (let () (declare (not safe)) - (##car _%e154623154675%_)))) - (_%__match169038169039%_ - _%e154623154675%_ - _%hd154624154678%_ - _%tl154625154680%_))) - (let () (declare (not safe)) (_%g154620154634%_)))))))) + (##car _%e154897154949%_)))) + (_%__match169312169313%_ + _%e154897154949%_ + _%hd154898154952%_ + _%tl154899154954%_))) + (let () (declare (not safe)) (_%g154894154908%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169051169052%_ - (lambda (_%L154431%_ _%L154432%_) - (let* ((_%g154446154476%_ - (lambda (_%g154447154473%_) + (_%__kont169325169326%_ + (lambda (_%L154705%_ _%L154706%_) + (let* ((_%g154720154750%_ + (lambda (_%g154721154747%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g154447154473%_)))) - (_%g154445154572%_ - (lambda (_%g154447154479%_) + _%g154721154747%_)))) + (_%g154719154846%_ + (lambda (_%g154721154753%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g154447154479%_)) - (let ((_%e154451154481%_ + _%g154721154753%_)) + (let ((_%e154725154755%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g154447154479%_)))) - (let ((_%hd154452154484%_ + (gx#stx-e _%g154721154753%_)))) + (let ((_%hd154726154758%_ (let () (declare (not safe)) - (##car _%e154451154481%_))) - (_%tl154453154486%_ + (##car _%e154725154755%_))) + (_%tl154727154760%_ (let () (declare (not safe)) - (##cdr _%e154451154481%_)))) + (##cdr _%e154725154755%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154453154486%_)) - (let ((_%e154454154489%_ + (gx#stx-pair? _%tl154727154760%_)) + (let ((_%e154728154763%_ (let () (declare (not safe)) - (gx#stx-e _%tl154453154486%_)))) - (let ((_%hd154455154492%_ + (gx#stx-e _%tl154727154760%_)))) + (let ((_%hd154729154766%_ (let () (declare (not safe)) - (##car _%e154454154489%_))) - (_%tl154456154494%_ + (##car _%e154728154763%_))) + (_%tl154730154768%_ (let () (declare (not safe)) - (##cdr _%e154454154489%_)))) + (##cdr _%e154728154763%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154455154492%_)) - (let ((_%e154457154497%_ + (gx#stx-pair? _%hd154729154766%_)) + (let ((_%e154731154771%_ (let () (declare (not safe)) - (gx#stx-e _%hd154455154492%_)))) - (let ((_%hd154458154500%_ + (gx#stx-e _%hd154729154766%_)))) + (let ((_%hd154732154774%_ (let () (declare (not safe)) - (##car _%e154457154497%_))) - (_%tl154459154502%_ + (##car _%e154731154771%_))) + (_%tl154733154776%_ (let () (declare (not safe)) - (##cdr _%e154457154497%_)))) + (##cdr _%e154731154771%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154458154500%_)) - (let ((_%e154460154505%_ + (gx#stx-pair? _%hd154732154774%_)) + (let ((_%e154734154779%_ (let () (declare (not safe)) (gx#stx-e - _%hd154458154500%_)))) - (let ((_%hd154461154508%_ + _%hd154732154774%_)))) + (let ((_%hd154735154782%_ (let () (declare (not safe)) - (##car _%e154460154505%_))) - (_%tl154462154510%_ + (##car _%e154734154779%_))) + (_%tl154736154784%_ (let () (declare (not safe)) - (##cdr _%e154460154505%_)))) + (##cdr _%e154734154779%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154461154508%_)) - (let ((_%e154463154513%_ + _%hd154735154782%_)) + (let ((_%e154737154787%_ (let () (declare (not safe)) (gx#stx-e - _%hd154461154508%_)))) - (let ((_%hd154464154516%_ + _%hd154735154782%_)))) + (let ((_%hd154738154790%_ (let () (declare (not safe)) - (##car _%e154463154513%_))) - (_%tl154465154518%_ + (##car _%e154737154787%_))) + (_%tl154739154792%_ (let () (declare (not safe)) - (##cdr _%e154463154513%_)))) + (##cdr _%e154737154787%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154465154518%_)) + _%tl154739154792%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl154462154510%_)) - (let ((_%e154466154521%_ + (gx#stx-pair? _%tl154736154784%_)) + (let ((_%e154740154795%_ (let () (declare (not safe)) - (gx#stx-e _%tl154462154510%_)))) - (let ((_%hd154467154524%_ + (gx#stx-e _%tl154736154784%_)))) + (let ((_%hd154741154798%_ (let () (declare (not safe)) - (##car _%e154466154521%_))) - (_%tl154468154526%_ + (##car _%e154740154795%_))) + (_%tl154742154800%_ (let () (declare (not safe)) - (##cdr _%e154466154521%_)))) + (##cdr _%e154740154795%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154468154526%_)) + (gx#stx-null? _%tl154742154800%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154459154502%_)) + (gx#stx-null? _%tl154733154776%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154456154494%_)) - (let ((_%e154469154529%_ + (gx#stx-pair? _%tl154730154768%_)) + (let ((_%e154743154803%_ (let () (declare (not safe)) - (gx#stx-e _%tl154456154494%_)))) - (let ((_%hd154470154532%_ + (gx#stx-e _%tl154730154768%_)))) + (let ((_%hd154744154806%_ (let () (declare (not safe)) - (##car _%e154469154529%_))) - (_%tl154471154534%_ + (##car _%e154743154803%_))) + (_%tl154745154808%_ (let () (declare (not safe)) - (##cdr _%e154469154529%_)))) + (##cdr _%e154743154803%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154471154534%_)) - ((lambda (_%L154537%_ - _%L154538%_ - _%L154539%_) - (let* ((_%lambda-id154563%_ - (let ((__tmp169736 + _%tl154745154808%_)) + ((lambda (_%L154811%_ + _%L154812%_ + _%L154813%_) + (let* ((_%lambda-id154837%_ + (let ((__tmp170010 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%L154432%_))) - (__tmp169735 + (gx#stx-e _%L154706%_))) + (__tmp170009 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) - (make-symbol__1 __tmp169736 __tmp169735))) - (_%lambda-id154565%_ - (let ((__tmp169737 + (make-symbol__1 __tmp170010 __tmp170009))) + (_%lambda-id154839%_ + (let ((__tmp170011 (let () (declare (not safe)) - (gx#stx-source _%stx153655%_)))) + (gx#stx-source _%stx153929%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%lambda-id154563%_ __tmp169737))) - (_%_154567%_ + (gx#core-quote-syntax__1 _%lambda-id154837%_ __tmp170011))) + (_%_154841%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%lambda-id154565%_))) - (_%new-case-lambda-expr154569%_ + (gx#core-bind-runtime!__0 _%lambda-id154839%_))) + (_%new-case-lambda-expr154843%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L154539%_ - _%lambda-id154565%_ - _%L154537%_)))) + _%L154813%_ + _%lambda-id154839%_ + _%L154811%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp169739 + (let ((__tmp170013 (let () (declare (not safe)) (gxc#identifier-symbol - _%L154432%_))) - (__tmp169738 + _%L154706%_))) + (__tmp170012 (let () (declare (not safe)) (gxc#identifier-symbol - _%lambda-id154565%_)))) + _%lambda-id154839%_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp169739 + __tmp170013 '" => " - __tmp169738)) - (_%lp154295%_ - (cons (_%bind-e__166390166391%_ - _%L154432%_ - _%new-case-lambda-expr154569%_ + __tmp170012)) + (_%lp154569%_ + (cons (_%bind-e__166664166665%_ + _%L154706%_ + _%new-case-lambda-expr154843%_ '#f) - _%rest154320%_) - (cons (_%bind-e__0__166392166393%_ - _%lambda-id154565%_ - _%L154538%_) - _%lift1154298%_) - _%lift2154299%_ - _%bind154300%_))) - _%hd154470154532%_ - _%hd154467154524%_ - _%hd154464154516%_) - (_%g154446154476%_ - _%g154447154479%_)))) - (_%g154446154476%_ _%g154447154479%_)) - (_%g154446154476%_ _%g154447154479%_)) - (_%g154446154476%_ _%g154447154479%_)))) - (_%g154446154476%_ _%g154447154479%_)) - (_%g154446154476%_ _%g154447154479%_)))) + _%rest154594%_) + (cons (_%bind-e__0__166666166667%_ + _%lambda-id154839%_ + _%L154812%_) + _%lift1154572%_) + _%lift2154573%_ + _%bind154574%_))) + _%hd154744154806%_ + _%hd154741154798%_ + _%hd154738154790%_) + (_%g154720154750%_ + _%g154721154753%_)))) + (_%g154720154750%_ _%g154721154753%_)) + (_%g154720154750%_ _%g154721154753%_)) + (_%g154720154750%_ _%g154721154753%_)))) + (_%g154720154750%_ _%g154721154753%_)) + (_%g154720154750%_ _%g154721154753%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154446154476%_ - _%g154447154479%_)))) - (_%g154446154476%_ - _%g154447154479%_)))) - (_%g154446154476%_ _%g154447154479%_)))) - (_%g154446154476%_ _%g154447154479%_)))) - (_%g154446154476%_ _%g154447154479%_))))) + (_%g154720154750%_ + _%g154721154753%_)))) + (_%g154720154750%_ + _%g154721154753%_)))) + (_%g154720154750%_ _%g154721154753%_)))) + (_%g154720154750%_ _%g154721154753%_)))) + (_%g154720154750%_ _%g154721154753%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154445154572%_ - _%L154431%_)))) - (_%__kont169053169054%_ - (lambda (_%L154382%_ _%L154383%_) - (_%lp154295%_ - _%rest154320%_ - _%lift1154298%_ - _%lift2154299%_ - (cons (cons _%L154383%_ + (_%g154719154846%_ + _%L154705%_)))) + (_%__kont169327169328%_ + (lambda (_%L154656%_ _%L154657%_) + (_%lp154569%_ + _%rest154594%_ + _%lift1154572%_ + _%lift2154573%_ + (cons (cons _%L154657%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self153654%_ _%L154382%_)) + (gxc#compile-e__1 _%self153928%_ _%L154656%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind154300%_))))) - (let* ((_%__match169098169099%_ - (lambda (_%e154340154407%_ - _%hd154341154410%_ - _%tl154342154412%_ - _%e154343154415%_ - _%hd154344154418%_ - _%tl154345154420%_ - _%e154346154423%_ - _%hd154347154426%_ - _%tl154348154428%_) - (let ((_%L154431%_ - _%hd154347154426%_) - (_%L154432%_ - _%hd154344154418%_)) + _%bind154574%_))))) + (let* ((_%__match169372169373%_ + (lambda (_%e154614154681%_ + _%hd154615154684%_ + _%tl154616154686%_ + _%e154617154689%_ + _%hd154618154692%_ + _%tl154619154694%_ + _%e154620154697%_ + _%hd154621154700%_ + _%tl154622154702%_) + (let ((_%L154705%_ + _%hd154621154700%_) + (_%L154706%_ + _%hd154618154692%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L154432%_)) + _%L154706%_)) (gxc#opt-lambda-expr? - _%L154431%_)) - (_%__kont169051169052%_ - _%L154431%_ - _%L154432%_) - (_%__kont169053169054%_ - _%hd154347154426%_ - _%hd154341154410%_))))) - (_%__match169076169077%_ - (lambda (_%e154329154580%_ - _%hd154330154583%_ - _%tl154331154585%_ - _%e154332154588%_ - _%hd154333154591%_ - _%tl154334154593%_ - _%e154335154596%_ - _%hd154336154599%_ - _%tl154337154601%_) - (let ((_%L154604%_ - _%hd154336154599%_) - (_%L154605%_ - _%hd154333154591%_)) + _%L154705%_)) + (_%__kont169325169326%_ + _%L154705%_ + _%L154706%_) + (_%__kont169327169328%_ + _%hd154621154700%_ + _%hd154615154684%_))))) + (_%__match169350169351%_ + (lambda (_%e154603154854%_ + _%hd154604154857%_ + _%tl154605154859%_ + _%e154606154862%_ + _%hd154607154865%_ + _%tl154608154867%_ + _%e154609154870%_ + _%hd154610154873%_ + _%tl154611154875%_) + (let ((_%L154878%_ + _%hd154610154873%_) + (_%L154879%_ + _%hd154607154865%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L154605%_)) + _%L154879%_)) (gxc#case-lambda-expr? - _%L154604%_)) - (_%__kont169049169050%_ - _%L154604%_ - _%L154605%_) - (_%__match169098169099%_ - _%e154329154580%_ - _%hd154330154583%_ - _%tl154331154585%_ - _%e154332154588%_ - _%hd154333154591%_ - _%tl154334154593%_ - _%e154335154596%_ - _%hd154336154599%_ - _%tl154337154601%_)))))) + _%L154878%_)) + (_%__kont169323169324%_ + _%L154878%_ + _%L154879%_) + (_%__match169372169373%_ + _%e154603154854%_ + _%hd154604154857%_ + _%tl154605154859%_ + _%e154606154862%_ + _%hd154607154865%_ + _%tl154608154867%_ + _%e154609154870%_ + _%hd154610154873%_ + _%tl154611154875%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx169047169048%_)) - (let ((_%e154329154580%_ + _%__stx169321169322%_)) + (let ((_%e154603154854%_ (let () (declare (not safe)) (gx#stx-e - _%__stx169047169048%_)))) - (let ((_%tl154331154585%_ + _%__stx169321169322%_)))) + (let ((_%tl154605154859%_ (let () (declare (not safe)) - (##cdr _%e154329154580%_))) - (_%hd154330154583%_ + (##cdr _%e154603154854%_))) + (_%hd154604154857%_ (let () (declare (not safe)) - (##car _%e154329154580%_)))) + (##car _%e154603154854%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154330154583%_)) - (let ((_%e154332154588%_ + _%hd154604154857%_)) + (let ((_%e154606154862%_ (let () (declare (not safe)) (gx#stx-e - _%hd154330154583%_)))) - (let ((_%tl154334154593%_ + _%hd154604154857%_)))) + (let ((_%tl154608154867%_ (let () (declare (not safe)) - (##cdr _%e154332154588%_))) - (_%hd154333154591%_ + (##cdr _%e154606154862%_))) + (_%hd154607154865%_ (let () (declare (not safe)) - (##car _%e154332154588%_)))) + (##car _%e154606154862%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154334154593%_)) + _%tl154608154867%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl154331154585%_)) - (let ((_%e154335154596%_ + (gx#stx-pair? _%tl154605154859%_)) + (let ((_%e154609154870%_ (let () (declare (not safe)) - (gx#stx-e _%tl154331154585%_)))) - (let ((_%tl154337154601%_ + (gx#stx-e _%tl154605154859%_)))) + (let ((_%tl154611154875%_ (let () (declare (not safe)) - (##cdr _%e154335154596%_))) - (_%hd154336154599%_ + (##cdr _%e154609154870%_))) + (_%hd154610154873%_ (let () (declare (not safe)) - (##car _%e154335154596%_)))) + (##car _%e154609154870%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154337154601%_)) - (_%__match169076169077%_ - _%e154329154580%_ - _%hd154330154583%_ - _%tl154331154585%_ - _%e154332154588%_ - _%hd154333154591%_ - _%tl154334154593%_ - _%e154335154596%_ - _%hd154336154599%_ - _%tl154337154601%_) + (gx#stx-null? _%tl154611154875%_)) + (_%__match169350169351%_ + _%e154603154854%_ + _%hd154604154857%_ + _%tl154605154859%_ + _%e154606154862%_ + _%hd154607154865%_ + _%tl154608154867%_ + _%e154609154870%_ + _%hd154610154873%_ + _%tl154611154875%_) (let () (declare (not safe)) - (_%g154325154361%_))))) - (let () (declare (not safe)) (_%g154325154361%_))) + (_%g154599154635%_))))) + (let () (declare (not safe)) (_%g154599154635%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154331154585%_)) - (let ((_%e154354154374%_ + (gx#stx-pair? _%tl154605154859%_)) + (let ((_%e154628154648%_ (let () (declare (not safe)) - (gx#stx-e _%tl154331154585%_)))) - (let ((_%tl154356154379%_ + (gx#stx-e _%tl154605154859%_)))) + (let ((_%tl154630154653%_ (let () (declare (not safe)) - (##cdr _%e154354154374%_))) - (_%hd154355154377%_ + (##cdr _%e154628154648%_))) + (_%hd154629154651%_ (let () (declare (not safe)) - (##car _%e154354154374%_)))) + (##car _%e154628154648%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154356154379%_)) - (_%__kont169053169054%_ - _%hd154355154377%_ - _%hd154330154583%_) + (gx#stx-null? _%tl154630154653%_)) + (_%__kont169327169328%_ + _%hd154629154651%_ + _%hd154604154857%_) (let () (declare (not safe)) - (_%g154325154361%_))))) - (let () (declare (not safe)) (_%g154325154361%_)))))) + (_%g154599154635%_))))) + (let () (declare (not safe)) (_%g154599154635%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154331154585%_)) - (let ((_%e154354154374%_ + _%tl154605154859%_)) + (let ((_%e154628154648%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl154331154585%_)))) - (let ((_%tl154356154379%_ + (gx#stx-e _%tl154605154859%_)))) + (let ((_%tl154630154653%_ (let () (declare (not safe)) - (##cdr _%e154354154374%_))) - (_%hd154355154377%_ + (##cdr _%e154628154648%_))) + (_%hd154629154651%_ (let () (declare (not safe)) - (##car _%e154354154374%_)))) + (##car _%e154628154648%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154356154379%_)) - (_%__kont169053169054%_ - _%hd154355154377%_ - _%hd154330154583%_) - (let () (declare (not safe)) (_%g154325154361%_))))) - (let () (declare (not safe)) (_%g154325154361%_)))))) + (gx#stx-null? _%tl154630154653%_)) + (_%__kont169327169328%_ + _%hd154629154651%_ + _%hd154604154857%_) + (let () (declare (not safe)) (_%g154599154635%_))))) + (let () (declare (not safe)) (_%g154599154635%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g154325154361%_))))))))) + (_%g154599154635%_))))))))) (if (let () (declare (not safe)) - (##pair? _%rest154301154309%_)) - (let ((_%hd154306154701%_ + (##pair? _%rest154575154583%_)) + (let ((_%hd154580154975%_ (let () (declare (not safe)) - (##car _%rest154301154309%_))) - (_%tl154307154703%_ + (##car _%rest154575154583%_))) + (_%tl154581154977%_ (let () (declare (not safe)) - (##cdr _%rest154301154309%_)))) - (let* ((_%hd154706%_ _%hd154306154701%_) - (_%rest154708%_ _%tl154307154703%_)) - (_%K154305154698%_ - _%rest154708%_ - _%hd154706%_))) - (_%else154303154317%_)))))) - (_%lift-kw-lambda?153659%_ - (lambda (_%bind154217%_) - (let* ((_%__stx169115169116%_ _%bind154217%_) - (_%g154220154237%_ + (##cdr _%rest154575154583%_)))) + (let* ((_%hd154980%_ _%hd154580154975%_) + (_%rest154982%_ _%tl154581154977%_)) + (_%K154579154972%_ + _%rest154982%_ + _%hd154980%_))) + (_%else154577154591%_)))))) + (_%lift-kw-lambda?153933%_ + (lambda (_%bind154491%_) + (let* ((_%__stx169389169390%_ _%bind154491%_) + (_%g154494154511%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169115169116%_))))) - (let ((_%__kont169117169118%_ - (lambda (_%L154273%_ _%L154274%_) + _%__stx169389169390%_))))) + (let ((_%__kont169391169392%_ + (lambda (_%L154547%_ _%L154548%_) (if (let () (declare (not safe)) - (gx#identifier? _%L154274%_)) - (gxc#kw-lambda-expr? _%L154273%_) + (gx#identifier? _%L154548%_)) + (gxc#kw-lambda-expr? _%L154547%_) '#f))) - (_%__kont169119169120%_ (lambda () '#f))) + (_%__kont169393169394%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169115169116%_)) - (let ((_%e154224154249%_ + (gx#stx-pair? _%__stx169389169390%_)) + (let ((_%e154498154523%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169115169116%_)))) - (let ((_%tl154226154254%_ + (gx#stx-e _%__stx169389169390%_)))) + (let ((_%tl154500154528%_ (let () (declare (not safe)) - (##cdr _%e154224154249%_))) - (_%hd154225154252%_ + (##cdr _%e154498154523%_))) + (_%hd154499154526%_ (let () (declare (not safe)) - (##car _%e154224154249%_)))) + (##car _%e154498154523%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154225154252%_)) - (let ((_%e154227154257%_ + (gx#stx-pair? _%hd154499154526%_)) + (let ((_%e154501154531%_ (let () (declare (not safe)) - (gx#stx-e _%hd154225154252%_)))) - (let ((_%tl154229154262%_ + (gx#stx-e _%hd154499154526%_)))) + (let ((_%tl154503154536%_ (let () (declare (not safe)) - (##cdr _%e154227154257%_))) - (_%hd154228154260%_ + (##cdr _%e154501154531%_))) + (_%hd154502154534%_ (let () (declare (not safe)) - (##car _%e154227154257%_)))) + (##car _%e154501154531%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154229154262%_)) + _%tl154503154536%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154226154254%_)) - (let ((_%e154230154265%_ + _%tl154500154528%_)) + (let ((_%e154504154539%_ (let () (declare (not safe)) (gx#stx-e - _%tl154226154254%_)))) - (let ((_%tl154232154270%_ + _%tl154500154528%_)))) + (let ((_%tl154506154544%_ (let () (declare (not safe)) - (##cdr _%e154230154265%_))) - (_%hd154231154268%_ + (##cdr _%e154504154539%_))) + (_%hd154505154542%_ (let () (declare (not safe)) - (##car _%e154230154265%_)))) + (##car _%e154504154539%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154232154270%_)) - (_%__kont169117169118%_ - _%hd154231154268%_ - _%hd154228154260%_) - (_%__kont169119169120%_)))) - (_%__kont169119169120%_)) - (_%__kont169119169120%_)))) - (_%__kont169119169120%_)))) - (_%__kont169119169120%_)))))) - (_%lift-kw-lambda-bindings153660%_ - (lambda (_%bindings153827%_) - (let _%lp153829%_ ((_%rest153831%_ _%bindings153827%_) - (_%lift1153832%_ '()) - (_%lift2153833%_ '()) - (_%bind153834%_ '())) - (let* ((_%rest153835153843%_ _%rest153831%_) - (_%else153837153851%_ + _%tl154506154544%_)) + (_%__kont169391169392%_ + _%hd154505154542%_ + _%hd154502154534%_) + (_%__kont169393169394%_)))) + (_%__kont169393169394%_)) + (_%__kont169393169394%_)))) + (_%__kont169393169394%_)))) + (_%__kont169393169394%_)))))) + (_%lift-kw-lambda-bindings153934%_ + (lambda (_%bindings154101%_) + (let _%lp154103%_ ((_%rest154105%_ _%bindings154101%_) + (_%lift1154106%_ '()) + (_%lift2154107%_ '()) + (_%bind154108%_ '())) + (let* ((_%rest154109154117%_ _%rest154105%_) + (_%else154111154125%_ (lambda () - (values (reverse _%lift1153832%_) - (reverse _%lift2153833%_) - (reverse _%bind153834%_)))) - (_%K153839154205%_ - (lambda (_%rest153854%_ _%hd153855%_) - (let* ((_%__stx169145169146%_ _%hd153855%_) - (_%g153858153883%_ + (values (reverse _%lift1154106%_) + (reverse _%lift2154107%_) + (reverse _%bind154108%_)))) + (_%K154113154479%_ + (lambda (_%rest154128%_ _%hd154129%_) + (let* ((_%__stx169419169420%_ _%hd154129%_) + (_%g154132154157%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169145169146%_))))) - (let ((_%__kont169147169148%_ - (lambda (_%L153953%_ _%L153954%_) - (let* ((_%g153968154021%_ - (lambda (_%g153969154018%_) + _%__stx169419169420%_))))) + (let ((_%__kont169421169422%_ + (lambda (_%L154227%_ _%L154228%_) + (let* ((_%g154242154295%_ + (lambda (_%g154243154292%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153969154018%_)))) - (_%g153967154199%_ - (lambda (_%g153969154024%_) + _%g154243154292%_)))) + (_%g154241154473%_ + (lambda (_%g154243154298%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g153969154024%_)) - (let ((_%e153975154026%_ + _%g154243154298%_)) + (let ((_%e154249154300%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g153969154024%_)))) - (let ((_%hd153976154029%_ + (gx#stx-e _%g154243154298%_)))) + (let ((_%hd154250154303%_ (let () (declare (not safe)) - (##car _%e153975154026%_))) - (_%tl153977154031%_ + (##car _%e154249154300%_))) + (_%tl154251154305%_ (let () (declare (not safe)) - (##cdr _%e153975154026%_)))) + (##cdr _%e154249154300%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153977154031%_)) - (let ((_%e153978154034%_ + (gx#stx-pair? _%tl154251154305%_)) + (let ((_%e154252154308%_ (let () (declare (not safe)) - (gx#stx-e _%tl153977154031%_)))) - (let ((_%hd153979154037%_ + (gx#stx-e _%tl154251154305%_)))) + (let ((_%hd154253154311%_ (let () (declare (not safe)) - (##car _%e153978154034%_))) - (_%tl153980154039%_ + (##car _%e154252154308%_))) + (_%tl154254154313%_ (let () (declare (not safe)) - (##cdr _%e153978154034%_)))) + (##cdr _%e154252154308%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153979154037%_)) - (let ((_%e153981154042%_ + (gx#stx-pair? _%hd154253154311%_)) + (let ((_%e154255154316%_ (let () (declare (not safe)) - (gx#stx-e _%hd153979154037%_)))) - (let ((_%hd153982154045%_ + (gx#stx-e _%hd154253154311%_)))) + (let ((_%hd154256154319%_ (let () (declare (not safe)) - (##car _%e153981154042%_))) - (_%tl153983154047%_ + (##car _%e154255154316%_))) + (_%tl154257154321%_ (let () (declare (not safe)) - (##cdr _%e153981154042%_)))) + (##cdr _%e154255154316%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153982154045%_)) - (let ((_%e153984154050%_ + (gx#stx-pair? _%hd154256154319%_)) + (let ((_%e154258154324%_ (let () (declare (not safe)) (gx#stx-e - _%hd153982154045%_)))) - (let ((_%hd153985154053%_ + _%hd154256154319%_)))) + (let ((_%hd154259154327%_ (let () (declare (not safe)) - (##car _%e153984154050%_))) - (_%tl153986154055%_ + (##car _%e154258154324%_))) + (_%tl154260154329%_ (let () (declare (not safe)) - (##cdr _%e153984154050%_)))) + (##cdr _%e154258154324%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153985154053%_)) - (let ((_%e153987154058%_ + _%hd154259154327%_)) + (let ((_%e154261154332%_ (let () (declare (not safe)) (gx#stx-e - _%hd153985154053%_)))) - (let ((_%hd153988154061%_ + _%hd154259154327%_)))) + (let ((_%hd154262154335%_ (let () (declare (not safe)) - (##car _%e153987154058%_))) - (_%tl153989154063%_ + (##car _%e154261154332%_))) + (_%tl154263154337%_ (let () (declare (not safe)) - (##cdr _%e153987154058%_)))) + (##cdr _%e154261154332%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153989154063%_)) + _%tl154263154337%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl153986154055%_)) - (let ((_%e153990154066%_ + (gx#stx-pair? _%tl154260154329%_)) + (let ((_%e154264154340%_ (let () (declare (not safe)) - (gx#stx-e _%tl153986154055%_)))) - (let ((_%hd153991154069%_ + (gx#stx-e _%tl154260154329%_)))) + (let ((_%hd154265154343%_ (let () (declare (not safe)) - (##car _%e153990154066%_))) - (_%tl153992154071%_ + (##car _%e154264154340%_))) + (_%tl154266154345%_ (let () (declare (not safe)) - (##cdr _%e153990154066%_)))) + (##cdr _%e154264154340%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153991154069%_)) - (let ((_%e153993154074%_ + (gx#stx-pair? _%hd154265154343%_)) + (let ((_%e154267154348%_ (let () (declare (not safe)) - (gx#stx-e _%hd153991154069%_)))) - (let ((_%hd153994154077%_ + (gx#stx-e _%hd154265154343%_)))) + (let ((_%hd154268154351%_ (let () (declare (not safe)) - (##car _%e153993154074%_))) - (_%tl153995154079%_ + (##car _%e154267154348%_))) + (_%tl154269154353%_ (let () (declare (not safe)) - (##cdr _%e153993154074%_)))) + (##cdr _%e154267154348%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153995154079%_)) - (let ((_%e153996154082%_ + (gx#stx-pair? _%tl154269154353%_)) + (let ((_%e154270154356%_ (let () (declare (not safe)) - (gx#stx-e _%tl153995154079%_)))) - (let ((_%hd153997154085%_ + (gx#stx-e _%tl154269154353%_)))) + (let ((_%hd154271154359%_ (let () (declare (not safe)) - (##car _%e153996154082%_))) - (_%tl153998154087%_ + (##car _%e154270154356%_))) + (_%tl154272154361%_ (let () (declare (not safe)) - (##cdr _%e153996154082%_)))) + (##cdr _%e154270154356%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153997154085%_)) - (let ((_%e153999154090%_ + _%hd154271154359%_)) + (let ((_%e154273154364%_ (let () (declare (not safe)) (gx#stx-e - _%hd153997154085%_)))) - (let ((_%hd154000154093%_ + _%hd154271154359%_)))) + (let ((_%hd154274154367%_ (let () (declare (not safe)) - (##car _%e153999154090%_))) - (_%tl154001154095%_ + (##car _%e154273154364%_))) + (_%tl154275154369%_ (let () (declare (not safe)) - (##cdr _%e153999154090%_)))) + (##cdr _%e154273154364%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154000154093%_)) - (let ((_%e154002154098%_ + _%hd154274154367%_)) + (let ((_%e154276154372%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd154000154093%_)))) - (let ((_%hd154003154101%_ - (let () (declare (not safe)) (##car _%e154002154098%_))) - (_%tl154004154103%_ + (gx#stx-e _%hd154274154367%_)))) + (let ((_%hd154277154375%_ + (let () (declare (not safe)) (##car _%e154276154372%_))) + (_%tl154278154377%_ (let () (declare (not safe)) - (##cdr _%e154002154098%_)))) + (##cdr _%e154276154372%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154003154101%_)) - (let ((_%e154005154106%_ + (gx#stx-pair? _%hd154277154375%_)) + (let ((_%e154279154380%_ (let () (declare (not safe)) - (gx#stx-e _%hd154003154101%_)))) - (let ((_%hd154006154109%_ + (gx#stx-e _%hd154277154375%_)))) + (let ((_%hd154280154383%_ (let () (declare (not safe)) - (##car _%e154005154106%_))) - (_%tl154007154111%_ + (##car _%e154279154380%_))) + (_%tl154281154385%_ (let () (declare (not safe)) - (##cdr _%e154005154106%_)))) + (##cdr _%e154279154380%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154007154111%_)) + (gx#stx-null? _%tl154281154385%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154004154103%_)) - (let ((_%e154008154114%_ + (gx#stx-pair? _%tl154278154377%_)) + (let ((_%e154282154388%_ (let () (declare (not safe)) - (gx#stx-e _%tl154004154103%_)))) - (let ((_%hd154009154117%_ + (gx#stx-e _%tl154278154377%_)))) + (let ((_%hd154283154391%_ (let () (declare (not safe)) - (##car _%e154008154114%_))) - (_%tl154010154119%_ + (##car _%e154282154388%_))) + (_%tl154284154393%_ (let () (declare (not safe)) - (##cdr _%e154008154114%_)))) + (##cdr _%e154282154388%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154010154119%_)) + (gx#stx-null? _%tl154284154393%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154001154095%_)) + _%tl154275154369%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl153998154087%_)) - (let ((_%e154011154122%_ + _%tl154272154361%_)) + (let ((_%e154285154396%_ (let () (declare (not safe)) (gx#stx-e - _%tl153998154087%_)))) - (let ((_%hd154012154125%_ + _%tl154272154361%_)))) + (let ((_%hd154286154399%_ (let () (declare (not safe)) - (##car _%e154011154122%_))) - (_%tl154013154127%_ + (##car _%e154285154396%_))) + (_%tl154287154401%_ (let () (declare (not safe)) - (##cdr _%e154011154122%_)))) + (##cdr _%e154285154396%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154013154127%_)) + _%tl154287154401%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl153992154071%_)) + (gx#stx-null? _%tl154266154345%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153983154047%_)) + (gx#stx-null? _%tl154257154321%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153980154039%_)) - (let ((_%e154014154130%_ + (gx#stx-pair? _%tl154254154313%_)) + (let ((_%e154288154404%_ (let () (declare (not safe)) - (gx#stx-e _%tl153980154039%_)))) - (let ((_%hd154015154133%_ + (gx#stx-e _%tl154254154313%_)))) + (let ((_%hd154289154407%_ (let () (declare (not safe)) - (##car _%e154014154130%_))) - (_%tl154016154135%_ + (##car _%e154288154404%_))) + (_%tl154290154409%_ (let () (declare (not safe)) - (##cdr _%e154014154130%_)))) + (##cdr _%e154288154404%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154016154135%_)) - ((lambda (_%L154138%_ - _%L154139%_ - _%L154140%_ - _%L154141%_ - _%L154142%_) - (let* ((_%get-kws-id154182%_ - (let ((__tmp169741 + (gx#stx-null? _%tl154290154409%_)) + ((lambda (_%L154412%_ + _%L154413%_ + _%L154414%_ + _%L154415%_ + _%L154416%_) + (let* ((_%get-kws-id154456%_ + (let ((__tmp170015 (let () (declare (not safe)) (gx#stx-e - _%L153954%_))) - (__tmp169740 + _%L154228%_))) + (__tmp170014 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp169741 - __tmp169740))) - (_%get-kws-id154184%_ - (let ((__tmp169742 + __tmp170015 + __tmp170014))) + (_%get-kws-id154458%_ + (let ((__tmp170016 (let () (declare (not safe)) (gx#stx-source - _%stx153655%_)))) + _%stx153929%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%get-kws-id154182%_ - __tmp169742))) - (_%main-id154186%_ - (let ((__tmp169744 + _%get-kws-id154456%_ + __tmp170016))) + (_%main-id154460%_ + (let ((__tmp170018 (let () (declare (not safe)) (gx#stx-e - _%L153954%_))) - (__tmp169743 + _%L154228%_))) + (__tmp170017 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp169744 - __tmp169743))) - (_%main-id154188%_ - (let ((__tmp169745 + __tmp170018 + __tmp170017))) + (_%main-id154462%_ + (let ((__tmp170019 (let () (declare (not safe)) (gx#stx-source - _%stx153655%_)))) + _%stx153929%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%main-id154186%_ - __tmp169745))) - (_%_154190%_ + _%main-id154460%_ + __tmp170019))) + (_%_154464%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%get-kws-id154184%_))) - (_%_154192%_ + _%get-kws-id154458%_))) + (_%_154466%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%main-id154188%_))) - (_%new-kw-dispatch154194%_ + _%main-id154462%_))) + (_%new-kw-dispatch154468%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L154142%_ - _%get-kws-id154184%_ - _%L154138%_))) - (_%new-get-kws154196%_ + _%L154416%_ + _%get-kws-id154458%_ + _%L154412%_))) + (_%new-get-kws154470%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L154141%_ - _%main-id154188%_ - _%L154139%_)))) - (let ((__tmp169748 + _%L154415%_ + _%main-id154462%_ + _%L154413%_)))) + (let ((__tmp170022 (let () (declare (not safe)) (gxc#identifier-symbol - _%L153954%_))) - (__tmp169747 + _%L154228%_))) + (__tmp170021 (let () (declare (not safe)) (gxc#identifier-symbol - _%get-kws-id154184%_))) - (__tmp169746 + _%get-kws-id154458%_))) + (__tmp170020 (let () (declare (not safe)) (gxc#identifier-symbol - _%main-id154188%_)))) + _%main-id154462%_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp169748 + __tmp170022 '" => " - __tmp169747 + __tmp170021 '" => " - __tmp169746)) - (_%lp153829%_ - _%rest153854%_ - (cons (_%bind-e__166390166391%_ - _%main-id154188%_ - _%L154140%_ + __tmp170020)) + (_%lp154103%_ + _%rest154128%_ + (cons (_%bind-e__166664166665%_ + _%main-id154462%_ + _%L154414%_ '#f) - _%lift1153832%_) - (cons (_%bind-e__166390166391%_ - _%get-kws-id154184%_ - _%new-get-kws154196%_ + _%lift1154106%_) + (cons (_%bind-e__166664166665%_ + _%get-kws-id154458%_ + _%new-get-kws154470%_ '#f) - _%lift2153833%_) - (cons (_%bind-e__166390166391%_ - _%L153954%_ - _%new-kw-dispatch154194%_ + _%lift2154107%_) + (cons (_%bind-e__166664166665%_ + _%L154228%_ + _%new-kw-dispatch154468%_ '#f) - _%bind153834%_)))) - _%hd154015154133%_ - _%hd154012154125%_ - _%hd154009154117%_ - _%hd154006154109%_ - _%hd153988154061%_) - (_%g153968154021%_ _%g153969154024%_)))) - (_%g153968154021%_ _%g153969154024%_)) - (_%g153968154021%_ _%g153969154024%_)) - (_%g153968154021%_ _%g153969154024%_)) - (_%g153968154021%_ _%g153969154024%_)))) + _%bind154108%_)))) + _%hd154289154407%_ + _%hd154286154399%_ + _%hd154283154391%_ + _%hd154280154383%_ + _%hd154262154335%_) + (_%g154242154295%_ _%g154243154298%_)))) + (_%g154242154295%_ _%g154243154298%_)) + (_%g154242154295%_ _%g154243154298%_)) + (_%g154242154295%_ _%g154243154298%_)) + (_%g154242154295%_ _%g154243154298%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g153968154021%_ - _%g153969154024%_)) - (_%g153968154021%_ - _%g153969154024%_)) - (_%g153968154021%_ - _%g153969154024%_)))) - (_%g153968154021%_ _%g153969154024%_)) - (_%g153968154021%_ _%g153969154024%_)))) - (_%g153968154021%_ _%g153969154024%_)))) - (_%g153968154021%_ _%g153969154024%_)))) + (_%g154242154295%_ + _%g154243154298%_)) + (_%g154242154295%_ + _%g154243154298%_)) + (_%g154242154295%_ + _%g154243154298%_)))) + (_%g154242154295%_ _%g154243154298%_)) + (_%g154242154295%_ _%g154243154298%_)))) + (_%g154242154295%_ _%g154243154298%_)))) + (_%g154242154295%_ _%g154243154298%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g153968154021%_ - _%g153969154024%_)))) - (_%g153968154021%_ _%g153969154024%_)))) - (_%g153968154021%_ _%g153969154024%_)))) - (_%g153968154021%_ _%g153969154024%_)) - (_%g153968154021%_ _%g153969154024%_)))) + (_%g154242154295%_ + _%g154243154298%_)))) + (_%g154242154295%_ _%g154243154298%_)))) + (_%g154242154295%_ _%g154243154298%_)))) + (_%g154242154295%_ _%g154243154298%_)) + (_%g154242154295%_ _%g154243154298%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g153968154021%_ - _%g153969154024%_)))) - (_%g153968154021%_ - _%g153969154024%_)))) - (_%g153968154021%_ _%g153969154024%_)))) - (_%g153968154021%_ _%g153969154024%_)))) - (_%g153968154021%_ _%g153969154024%_))))) + (_%g154242154295%_ + _%g154243154298%_)))) + (_%g154242154295%_ + _%g154243154298%_)))) + (_%g154242154295%_ _%g154243154298%_)))) + (_%g154242154295%_ _%g154243154298%_)))) + (_%g154242154295%_ _%g154243154298%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g153967154199%_ - _%L153953%_)))) - (_%__kont169149169150%_ - (lambda (_%L153904%_ _%L153905%_) - (_%lp153829%_ - _%rest153854%_ - _%lift1153832%_ - _%lift2153833%_ - (cons (cons _%L153905%_ - (cons _%L153904%_ + (_%g154241154473%_ + _%L154227%_)))) + (_%__kont169423169424%_ + (lambda (_%L154178%_ _%L154179%_) + (_%lp154103%_ + _%rest154128%_ + _%lift1154106%_ + _%lift2154107%_ + (cons (cons _%L154179%_ + (cons _%L154178%_ '())) - _%bind153834%_))))) - (let ((_%__match169172169173%_ - (lambda (_%e153862153929%_ - _%hd153863153932%_ - _%tl153864153934%_ - _%e153865153937%_ - _%hd153866153940%_ - _%tl153867153942%_ - _%e153868153945%_ - _%hd153869153948%_ - _%tl153870153950%_) - (let ((_%L153953%_ - _%hd153869153948%_) - (_%L153954%_ - _%hd153866153940%_)) + _%bind154108%_))))) + (let ((_%__match169446169447%_ + (lambda (_%e154136154203%_ + _%hd154137154206%_ + _%tl154138154208%_ + _%e154139154211%_ + _%hd154140154214%_ + _%tl154141154216%_ + _%e154142154219%_ + _%hd154143154222%_ + _%tl154144154224%_) + (let ((_%L154227%_ + _%hd154143154222%_) + (_%L154228%_ + _%hd154140154214%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L153954%_)) + _%L154228%_)) (gxc#kw-lambda-expr? - _%L153953%_)) - (_%__kont169147169148%_ - _%L153953%_ - _%L153954%_) - (_%__kont169149169150%_ - _%hd153869153948%_ - _%hd153863153932%_)))))) + _%L154227%_)) + (_%__kont169421169422%_ + _%L154227%_ + _%L154228%_) + (_%__kont169423169424%_ + _%hd154143154222%_ + _%hd154137154206%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx169145169146%_)) - (let ((_%e153862153929%_ + _%__stx169419169420%_)) + (let ((_%e154136154203%_ (let () (declare (not safe)) (gx#stx-e - _%__stx169145169146%_)))) - (let ((_%tl153864153934%_ + _%__stx169419169420%_)))) + (let ((_%tl154138154208%_ (let () (declare (not safe)) - (##cdr _%e153862153929%_))) - (_%hd153863153932%_ + (##cdr _%e154136154203%_))) + (_%hd154137154206%_ (let () (declare (not safe)) - (##car _%e153862153929%_)))) + (##car _%e154136154203%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153863153932%_)) - (let ((_%e153865153937%_ + _%hd154137154206%_)) + (let ((_%e154139154211%_ (let () (declare (not safe)) (gx#stx-e - _%hd153863153932%_)))) - (let ((_%tl153867153942%_ + _%hd154137154206%_)))) + (let ((_%tl154141154216%_ (let () (declare (not safe)) - (##cdr _%e153865153937%_))) - (_%hd153866153940%_ + (##cdr _%e154139154211%_))) + (_%hd154140154214%_ (let () (declare (not safe)) - (##car _%e153865153937%_)))) + (##car _%e154139154211%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153867153942%_)) + _%tl154141154216%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl153864153934%_)) - (let ((_%e153868153945%_ + (gx#stx-pair? _%tl154138154208%_)) + (let ((_%e154142154219%_ (let () (declare (not safe)) - (gx#stx-e _%tl153864153934%_)))) - (let ((_%tl153870153950%_ + (gx#stx-e _%tl154138154208%_)))) + (let ((_%tl154144154224%_ (let () (declare (not safe)) - (##cdr _%e153868153945%_))) - (_%hd153869153948%_ + (##cdr _%e154142154219%_))) + (_%hd154143154222%_ (let () (declare (not safe)) - (##car _%e153868153945%_)))) + (##car _%e154142154219%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153870153950%_)) - (_%__match169172169173%_ - _%e153862153929%_ - _%hd153863153932%_ - _%tl153864153934%_ - _%e153865153937%_ - _%hd153866153940%_ - _%tl153867153942%_ - _%e153868153945%_ - _%hd153869153948%_ - _%tl153870153950%_) + (gx#stx-null? _%tl154144154224%_)) + (_%__match169446169447%_ + _%e154136154203%_ + _%hd154137154206%_ + _%tl154138154208%_ + _%e154139154211%_ + _%hd154140154214%_ + _%tl154141154216%_ + _%e154142154219%_ + _%hd154143154222%_ + _%tl154144154224%_) (let () (declare (not safe)) - (_%g153858153883%_))))) - (let () (declare (not safe)) (_%g153858153883%_))) + (_%g154132154157%_))))) + (let () (declare (not safe)) (_%g154132154157%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153864153934%_)) - (let ((_%e153876153896%_ + (gx#stx-pair? _%tl154138154208%_)) + (let ((_%e154150154170%_ (let () (declare (not safe)) - (gx#stx-e _%tl153864153934%_)))) - (let ((_%tl153878153901%_ + (gx#stx-e _%tl154138154208%_)))) + (let ((_%tl154152154175%_ (let () (declare (not safe)) - (##cdr _%e153876153896%_))) - (_%hd153877153899%_ + (##cdr _%e154150154170%_))) + (_%hd154151154173%_ (let () (declare (not safe)) - (##car _%e153876153896%_)))) + (##car _%e154150154170%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153878153901%_)) - (_%__kont169149169150%_ - _%hd153877153899%_ - _%hd153863153932%_) + (gx#stx-null? _%tl154152154175%_)) + (_%__kont169423169424%_ + _%hd154151154173%_ + _%hd154137154206%_) (let () (declare (not safe)) - (_%g153858153883%_))))) - (let () (declare (not safe)) (_%g153858153883%_)))))) + (_%g154132154157%_))))) + (let () (declare (not safe)) (_%g154132154157%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl153864153934%_)) - (let ((_%e153876153896%_ + _%tl154138154208%_)) + (let ((_%e154150154170%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl153864153934%_)))) - (let ((_%tl153878153901%_ + (gx#stx-e _%tl154138154208%_)))) + (let ((_%tl154152154175%_ (let () (declare (not safe)) - (##cdr _%e153876153896%_))) - (_%hd153877153899%_ + (##cdr _%e154150154170%_))) + (_%hd154151154173%_ (let () (declare (not safe)) - (##car _%e153876153896%_)))) + (##car _%e154150154170%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153878153901%_)) - (_%__kont169149169150%_ - _%hd153877153899%_ - _%hd153863153932%_) - (let () (declare (not safe)) (_%g153858153883%_))))) - (let () (declare (not safe)) (_%g153858153883%_)))))) + (gx#stx-null? _%tl154152154175%_)) + (_%__kont169423169424%_ + _%hd154151154173%_ + _%hd154137154206%_) + (let () (declare (not safe)) (_%g154132154157%_))))) + (let () (declare (not safe)) (_%g154132154157%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g153858153883%_))))))))) + (_%g154132154157%_))))))))) (if (let () (declare (not safe)) - (##pair? _%rest153835153843%_)) - (let ((_%hd153840154208%_ + (##pair? _%rest154109154117%_)) + (let ((_%hd154114154482%_ (let () (declare (not safe)) - (##car _%rest153835153843%_))) - (_%tl153841154210%_ + (##car _%rest154109154117%_))) + (_%tl154115154484%_ (let () (declare (not safe)) - (##cdr _%rest153835153843%_)))) - (let* ((_%hd154213%_ _%hd153840154208%_) - (_%rest154215%_ _%tl153841154210%_)) - (_%K153839154205%_ - _%rest154215%_ - _%hd154213%_))) - (_%else153837153851%_))))))) - (let* ((_%__stx169189169190%_ _%stx153655%_) - (_%g153663153689%_ + (##cdr _%rest154109154117%_)))) + (let* ((_%hd154487%_ _%hd154114154482%_) + (_%rest154489%_ _%tl154115154484%_)) + (_%K154113154479%_ + _%rest154489%_ + _%hd154487%_))) + (_%else154111154125%_))))))) + (let* ((_%__stx169463169464%_ _%stx153929%_) + (_%g153937153963%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169189169190%_))))) - (let ((_%__kont169191169192%_ - (lambda (_%L153749%_ _%L153750%_) - (let ((__tmp169750 + _%__stx169463169464%_))))) + (let ((_%__kont169465169466%_ + (lambda (_%L154023%_ _%L154024%_) + (let ((__tmp170024 (lambda () - (if (let ((__tmp169751 - (let ((__tmp169752 - (lambda (_%g153778153781%_ - _%g153779153783%_) - (cons _%g153778153781%_ - _%g153779153783%_)))) + (if (let ((__tmp170025 + (let ((__tmp170026 + (lambda (_%g154052154055%_ + _%g154053154057%_) + (cons _%g154052154055%_ + _%g154053154057%_)))) (declare (not safe)) (__foldr1 - __tmp169752 + __tmp170026 '() - _%L153750%_)))) + _%L154024%_)))) (declare (not safe)) (__ormap1 - _%lift-kw-lambda?153659%_ - __tmp169751)) - (let ((_g169753_ - (_%lift-kw-lambda-bindings153660%_ - (let ((__tmp169755 - (lambda (_%g153785153788%_ - _%g153786153790%_) - (cons _%g153785153788%_ - _%g153786153790%_)))) + _%lift-kw-lambda?153933%_ + __tmp170025)) + (let ((_g170027_ + (_%lift-kw-lambda-bindings153934%_ + (let ((__tmp170029 + (lambda (_%g154059154062%_ + _%g154060154064%_) + (cons _%g154059154062%_ + _%g154060154064%_)))) (declare (not safe)) (__foldr1 - __tmp169755 + __tmp170029 '() - _%L153750%_))))) + _%L154024%_))))) (begin - (let ((_g169754_ + (let ((_g170028_ (let () (declare (not safe)) - (if (##values? _g169753_) - (##vector-length _g169753_) + (if (##values? _g170027_) + (##vector-length _g170027_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g169754_ 3))) + (##fx= _g170028_ 3))) (error "Context expects 3 values" - _g169754_))) - (let ((_%lift1153793%_ + _g170028_))) + (let ((_%lift1154067%_ (let () (declare (not safe)) - (##vector-ref _g169753_ 0))) - (_%lift2153794%_ + (##vector-ref _g170027_ 0))) + (_%lift2154068%_ (let () (declare (not safe)) - (##vector-ref _g169753_ 1))) - (_%hd153795%_ + (##vector-ref _g170027_ 1))) + (_%hd154069%_ (let () (declare (not safe)) - (##vector-ref _g169753_ 2)))) - (let* ((_%expr153797%_ - (let ((__tmp169756 + (##vector-ref _g170027_ 2)))) + (let* ((_%expr154071%_ + (let ((__tmp170030 (cons '%#let-values - (cons _%hd153795%_ + (cons _%hd154069%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L153749%_ '()))))) + (cons _%L154023%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp169756 - _%stx153655%_))) - (_%expr153799%_ - (let ((__tmp169757 + __tmp170030 + _%stx153929%_))) + (_%expr154073%_ + (let ((__tmp170031 (cons '%#let-values - (cons _%lift2153794%_ + (cons _%lift2154068%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr153797%_ '()))))) + (cons _%expr154071%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp169757 - _%stx153655%_))) - (_%expr153801%_ - (let ((__tmp169758 + __tmp170031 + _%stx153929%_))) + (_%expr154075%_ + (let ((__tmp170032 (cons '%#let-values - (cons _%lift1153793%_ + (cons _%lift1154067%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr153799%_ '()))))) + (cons _%expr154073%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp169758 - _%stx153655%_)))) + __tmp170032 + _%stx153929%_)))) (gxc#lift-top-lambda-let-values% - _%self153654%_ - _%expr153801%_))))) - (let ((_g169759_ - (_%compile-bindings153658%_ - (let ((__tmp169761 - (lambda (_%g153803153806%_ - _%g153804153808%_) - (cons _%g153803153806%_ - _%g153804153808%_)))) + _%self153928%_ + _%expr154075%_))))) + (let ((_g170033_ + (_%compile-bindings153932%_ + (let ((__tmp170035 + (lambda (_%g154077154080%_ + _%g154078154082%_) + (cons _%g154077154080%_ + _%g154078154082%_)))) (declare (not safe)) (__foldr1 - __tmp169761 + __tmp170035 '() - _%L153750%_))))) + _%L154024%_))))) (begin - (let ((_g169760_ + (let ((_g170034_ (let () (declare (not safe)) - (if (##values? _g169759_) - (##vector-length _g169759_) + (if (##values? _g170033_) + (##vector-length _g170033_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g169760_ 3))) + (##fx= _g170034_ 3))) (error "Context expects 3 values" - _g169760_))) - (let ((_%lift1153811%_ + _g170034_))) + (let ((_%lift1154085%_ (let () (declare (not safe)) - (##vector-ref _g169759_ 0))) - (_%lift2153812%_ + (##vector-ref _g170033_ 0))) + (_%lift2154086%_ (let () (declare (not safe)) - (##vector-ref _g169759_ 1))) - (_%hd153813%_ + (##vector-ref _g170033_ 1))) + (_%hd154087%_ (let () (declare (not safe)) - (##vector-ref _g169759_ 2)))) - (let* ((_%body153815%_ + (##vector-ref _g170033_ 2)))) + (let* ((_%body154089%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self153654%_ - _%L153749%_))) - (_%expr153817%_ - (let ((__tmp169762 + _%self153928%_ + _%L154023%_))) + (_%expr154091%_ + (let ((__tmp170036 (cons '%#let-values - (cons _%hd153813%_ + (cons _%hd154087%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%body153815%_ '()))))) + (cons _%body154089%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp169762 - _%stx153655%_))) - (_%expr153819%_ - (if (null? _%lift2153812%_) - _%expr153817%_ - (let ((__tmp169763 + __tmp170036 + _%stx153929%_))) + (_%expr154093%_ + (if (null? _%lift2154086%_) + _%expr154091%_ + (let ((__tmp170037 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%lift2153812%_ (cons _%expr153817%_ '()))))) + (cons _%lift2154086%_ (cons _%expr154091%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp169763 _%stx153655%_)))) + (gxc#xform-wrap-source __tmp170037 _%stx153929%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%expr153821%_ - (if (null? _%lift1153811%_) - _%expr153819%_ - (let ((__tmp169764 + (_%expr154095%_ + (if (null? _%lift1154085%_) + _%expr154093%_ + (let ((__tmp170038 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%lift1153811%_ (cons _%expr153819%_ '()))))) + (cons _%lift1154085%_ (cons _%expr154093%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp169764 _%stx153655%_))))) + (gxc#xform-wrap-source __tmp170038 _%stx153929%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%expr153821%_))))))) - (__tmp169749 - (let ((__obj169442 + _%expr154095%_))))))) + (__tmp170023 + (let ((__obj169716 (let () (declare (not safe)) (##structure @@ -23025,278 +23025,278 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj169442)) - __obj169442))) + (gx#local-context:::init!__0 __obj169716)) + __obj169716))) (declare (not safe)) (__call-with-parameters - __tmp169750 + __tmp170024 gx#current-expander-context - __tmp169749)))) - (_%__kont169195169196%_ + __tmp170023)))) + (_%__kont169469169470%_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _%self153654%_ _%stx153655%_))))) - (let ((_%__match169216169217%_ - (lambda (_%e153667153701%_ - _%hd153668153704%_ - _%tl153669153706%_ - _%e153670153709%_ - _%hd153671153712%_ - _%tl153672153714%_ - _%__splice169193169194%_ - _%target153673153717%_ - _%tl153675153719%_) - (letrec ((_%loop153676153722%_ - (lambda (_%hd153674153725%_ - _%bind153680153727%_) + (gxc#xform-let-values% _%self153928%_ _%stx153929%_))))) + (let ((_%__match169490169491%_ + (lambda (_%e153941153975%_ + _%hd153942153978%_ + _%tl153943153980%_ + _%e153944153983%_ + _%hd153945153986%_ + _%tl153946153988%_ + _%__splice169467169468%_ + _%target153947153991%_ + _%tl153949153993%_) + (letrec ((_%loop153950153996%_ + (lambda (_%hd153948153999%_ + _%bind153954154001%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153674153725%_)) - (let ((_%e153677153730%_ + (gx#stx-pair? _%hd153948153999%_)) + (let ((_%e153951154004%_ (let () (declare (not safe)) (gx#stx-e - _%hd153674153725%_)))) - (let ((_%lp-tl153679153735%_ + _%hd153948153999%_)))) + (let ((_%lp-tl153953154009%_ (let () (declare (not safe)) - (##cdr _%e153677153730%_))) - (_%lp-hd153678153733%_ + (##cdr _%e153951154004%_))) + (_%lp-hd153952154007%_ (let () (declare (not safe)) - (##car _%e153677153730%_)))) - (_%loop153676153722%_ - _%lp-tl153679153735%_ - (cons _%lp-hd153678153733%_ - _%bind153680153727%_)))) - (let ((_%bind153681153738%_ - (reverse _%bind153680153727%_))) + (##car _%e153951154004%_)))) + (_%loop153950153996%_ + _%lp-tl153953154009%_ + (cons _%lp-hd153952154007%_ + _%bind153954154001%_)))) + (let ((_%bind153955154012%_ + (reverse _%bind153954154001%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl153672153714%_)) - (let ((_%e153682153741%_ + _%tl153946153988%_)) + (let ((_%e153956154015%_ (let () (declare (not safe)) (gx#stx-e - _%tl153672153714%_)))) - (let ((_%tl153684153746%_ + _%tl153946153988%_)))) + (let ((_%tl153958154020%_ (let () (declare (not safe)) - (##cdr _%e153682153741%_))) - (_%hd153683153744%_ + (##cdr _%e153956154015%_))) + (_%hd153957154018%_ (let () (declare (not safe)) - (##car _%e153682153741%_)))) + (##car _%e153956154015%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153684153746%_)) - (let ((_%L153749%_ - _%hd153683153744%_) - (_%L153750%_ - _%bind153681153738%_)) - (if (let ((__tmp169765 + _%tl153958154020%_)) + (let ((_%L154023%_ + _%hd153957154018%_) + (_%L154024%_ + _%bind153955154012%_)) + (if (let ((__tmp170039 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp169766 - (lambda (_%g153770153773%_ _%g153771153775%_) - (cons _%g153770153773%_ - _%g153771153775%_)))) + (let ((__tmp170040 + (lambda (_%g154044154047%_ _%g154045154049%_) + (cons _%g154044154047%_ + _%g154045154049%_)))) (declare (not safe)) - (__foldr1 __tmp169766 '() _%L153750%_)))) + (__foldr1 __tmp170040 '() _%L154024%_)))) (declare (not safe)) - (__ormap1 gxc#lift-top-lambda-binding? __tmp169765)) - (_%__kont169191169192%_ _%L153749%_ _%L153750%_) - (_%__kont169195169196%_))) + (__ormap1 gxc#lift-top-lambda-binding? __tmp170039)) + (_%__kont169465169466%_ _%L154023%_ _%L154024%_) + (_%__kont169469169470%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169195169196%_)))) - (_%__kont169195169196%_))))))) - (_%loop153676153722%_ _%target153673153717%_ '()))))) + (_%__kont169469169470%_)))) + (_%__kont169469169470%_))))))) + (_%loop153950153996%_ _%target153947153991%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169189169190%_)) - (let ((_%e153667153701%_ + (gx#stx-pair? _%__stx169463169464%_)) + (let ((_%e153941153975%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169189169190%_)))) - (let ((_%tl153669153706%_ + (gx#stx-e _%__stx169463169464%_)))) + (let ((_%tl153943153980%_ (let () (declare (not safe)) - (##cdr _%e153667153701%_))) - (_%hd153668153704%_ + (##cdr _%e153941153975%_))) + (_%hd153942153978%_ (let () (declare (not safe)) - (##car _%e153667153701%_)))) + (##car _%e153941153975%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153669153706%_)) - (let ((_%e153670153709%_ + (gx#stx-pair? _%tl153943153980%_)) + (let ((_%e153944153983%_ (let () (declare (not safe)) - (gx#stx-e _%tl153669153706%_)))) - (let ((_%tl153672153714%_ + (gx#stx-e _%tl153943153980%_)))) + (let ((_%tl153946153988%_ (let () (declare (not safe)) - (##cdr _%e153670153709%_))) - (_%hd153671153712%_ + (##cdr _%e153944153983%_))) + (_%hd153945153986%_ (let () (declare (not safe)) - (##car _%e153670153709%_)))) + (##car _%e153944153983%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd153671153712%_)) - (let ((_%__splice169193169194%_ + (gx#stx-pair/null? _%hd153945153986%_)) + (let ((_%__splice169467169468%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd153671153712%_ + _%hd153945153986%_ '0)))) - (let ((_%tl153675153719%_ + (let ((_%tl153949153993%_ (let () (declare (not safe)) (##vector-ref - _%__splice169193169194%_ + _%__splice169467169468%_ '1))) - (_%target153673153717%_ + (_%target153947153991%_ (let () (declare (not safe)) (##vector-ref - _%__splice169193169194%_ + _%__splice169467169468%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153675153719%_)) - (_%__match169216169217%_ - _%e153667153701%_ - _%hd153668153704%_ - _%tl153669153706%_ - _%e153670153709%_ - _%hd153671153712%_ - _%tl153672153714%_ - _%__splice169193169194%_ - _%target153673153717%_ - _%tl153675153719%_) - (_%__kont169195169196%_)))) - (_%__kont169195169196%_)))) - (_%__kont169195169196%_)))) - (_%__kont169195169196%_)))))))) + _%tl153949153993%_)) + (_%__match169490169491%_ + _%e153941153975%_ + _%hd153942153978%_ + _%tl153943153980%_ + _%e153944153983%_ + _%hd153945153986%_ + _%tl153946153988%_ + _%__splice169467169468%_ + _%target153947153991%_ + _%tl153949153993%_) + (_%__kont169469169470%_)))) + (_%__kont169469169470%_)))) + (_%__kont169469169470%_)))) + (_%__kont169469169470%_)))))))) (define gxc#lift-top-lambda-letrec-values% - (lambda (_%self152793%_ _%stx152794%_) - (letrec* ((_%bind-e__166395166396%_ - (lambda (_%id153638%_ _%expr153639%_ _%compile?153640%_) - (cons (cons _%id153638%_ '()) - (cons (if _%compile?153640%_ + (lambda (_%self153067%_ _%stx153068%_) + (letrec* ((_%bind-e__166669166670%_ + (lambda (_%id153912%_ _%expr153913%_ _%compile?153914%_) + (cons (cons _%id153912%_ '()) + (cons (if _%compile?153914%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self152793%_ - _%expr153639%_)) - _%expr153639%_) + _%self153067%_ + _%expr153913%_)) + _%expr153913%_) '())))) - (_%bind-e__0__166397166398%_ - (lambda (_%id153645%_ _%expr153646%_) - (let ((_%compile?153648%_ '#t)) - (_%bind-e__166395166396%_ - _%id153645%_ - _%expr153646%_ - _%compile?153648%_)))) - (_%bind-e152796%_ - (lambda _g169768_ - (let ((_g169767_ + (_%bind-e__0__166671166672%_ + (lambda (_%id153919%_ _%expr153920%_) + (let ((_%compile?153922%_ '#t)) + (_%bind-e__166669166670%_ + _%id153919%_ + _%expr153920%_ + _%compile?153922%_)))) + (_%bind-e153070%_ + (lambda _g170042_ + (let ((_g170041_ (let () (declare (not safe)) - (##length _g169768_)))) - (cond ((let () (declare (not safe)) (##fx= _g169767_ 2)) - (apply _%bind-e__0__166397166398%_ _g169768_)) - ((let () (declare (not safe)) (##fx= _g169767_ 3)) - (apply _%bind-e__166395166396%_ _g169768_)) + (##length _g170042_)))) + (cond ((let () (declare (not safe)) (##fx= _g170041_ 2)) + (apply _%bind-e__0__166671166672%_ _g170042_)) + ((let () (declare (not safe)) (##fx= _g170041_ 3)) + (apply _%bind-e__166669166670%_ _g170042_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g169768_)))))) - (_%compile-bindings152797%_ - (lambda (_%rest152932%_) - (let _%lp152934%_ ((_%rest152936%_ _%rest152932%_) - (_%bind152937%_ '())) - (let* ((_%rest152938152946%_ _%rest152936%_) - (_%else152940152954%_ - (lambda () (reverse _%bind152937%_))) - (_%K152942153625%_ - (lambda (_%rest152957%_ _%hd152958%_) - (let* ((_%__stx169239169240%_ _%hd152958%_) - (_%g152963153010%_ + _g170042_)))))) + (_%compile-bindings153071%_ + (lambda (_%rest153206%_) + (let _%lp153208%_ ((_%rest153210%_ _%rest153206%_) + (_%bind153211%_ '())) + (let* ((_%rest153212153220%_ _%rest153210%_) + (_%else153214153228%_ + (lambda () (reverse _%bind153211%_))) + (_%K153216153899%_ + (lambda (_%rest153231%_ _%hd153232%_) + (let* ((_%__stx169513169514%_ _%hd153232%_) + (_%g153237153284%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169239169240%_))))) - (let ((_%__kont169241169242%_ - (lambda (_%L153531%_ _%L153532%_) - (let* ((_%__stx169219169220%_ - _%L153531%_) - (_%g153547153561%_ + _%__stx169513169514%_))))) + (let ((_%__kont169515169516%_ + (lambda (_%L153805%_ _%L153806%_) + (let* ((_%__stx169493169494%_ + _%L153805%_) + (_%g153821153835%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169219169220%_))))) - (let ((_%__kont169221169222%_ - (lambda (_%L153610%_) - (_%lp152934%_ - _%rest152957%_ - (cons (_%bind-e__166395166396%_ - _%L153532%_ - _%L153531%_ + _%__stx169493169494%_))))) + (let ((_%__kont169495169496%_ + (lambda (_%L153884%_) + (_%lp153208%_ + _%rest153231%_ + (cons (_%bind-e__166669166670%_ + _%L153806%_ + _%L153805%_ '#f) - _%bind152937%_)))) - (_%__kont169223169224%_ - (lambda (_%L153574%_) - (let ((_g169769_ + _%bind153211%_)))) + (_%__kont169497169498%_ + (lambda (_%L153848%_) + (let ((_g170043_ (gxc#lift-case-lambda-clauses__% - _%stx152794%_ - _%L153532%_ - _%L153574%_ + _%stx153068%_ + _%L153806%_ + _%L153848%_ '#t))) (begin - (let ((_g169770_ + (let ((_g170044_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g169769_) - (##vector-length _g169769_) + (if (##values? _g170043_) + (##vector-length _g170043_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g169770_ 3))) - (error "Context expects 3 values" _g169770_))) - (let ((_%ids153584%_ + (##fx= _g170044_ 3))) + (error "Context expects 3 values" _g170044_))) + (let ((_%ids153858%_ (let () (declare (not safe)) - (##vector-ref _g169769_ 0))) - (_%impls153585%_ + (##vector-ref _g170043_ 0))) + (_%impls153859%_ (let () (declare (not safe)) - (##vector-ref _g169769_ 1))) - (_%clauses153586%_ + (##vector-ref _g170043_ 1))) + (_%clauses153860%_ (let () (declare (not safe)) - (##vector-ref _g169769_ 2)))) - (let* ((_%_153588%_ - (for-each gx#core-bind-runtime! _%ids153584%_)) - (_%xbind153590%_ - (map _%bind-e152796%_ - _%ids153584%_ - _%impls153585%_)) - (_%expr*153592%_ - (let ((__tmp169772 - (cons '%#case-lambda _%clauses153586%_)) - (__tmp169771 + (##vector-ref _g170043_ 2)))) + (let* ((_%_153862%_ + (for-each gx#core-bind-runtime! _%ids153858%_)) + (_%xbind153864%_ + (map _%bind-e153070%_ + _%ids153858%_ + _%impls153859%_)) + (_%expr*153866%_ + (let ((__tmp170046 + (cons '%#case-lambda _%clauses153860%_)) + (__tmp170045 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -23304,1017 +23304,1017 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp169772 - __tmp169771))) - (_%bind*153594%_ - (_%bind-e__166395166396%_ - _%L153532%_ - _%expr*153592%_ + __tmp170046 + __tmp170045))) + (_%bind*153868%_ + (_%bind-e__166669166670%_ + _%L153806%_ + _%expr*153866%_ '#f))) - (let ((__tmp169774 + (let ((__tmp170048 (let () (declare (not safe)) - (gxc#identifier-symbol _%L153532%_))) - (__tmp169773 - (map gxc#identifier-symbol _%ids153584%_))) + (gxc#identifier-symbol _%L153806%_))) + (__tmp170047 + (map gxc#identifier-symbol _%ids153858%_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp169774 + __tmp170048 '" => " - __tmp169773)) - (_%lp152934%_ - _%rest152957%_ - (cons _%bind*153594%_ + __tmp170047)) + (_%lp153208%_ + _%rest153231%_ + (cons _%bind*153868%_ (let () (declare (not safe)) (__foldl1 cons - _%bind152937%_ - _%xbind153590%_))))))))))) + _%bind153211%_ + _%xbind153864%_))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match169230169231%_ - (lambda (_%e153550153602%_ - _%hd153551153605%_ - _%tl153552153607%_) - (let ((_%L153610%_ - _%tl153552153607%_)) + (let ((_%__match169504169505%_ + (lambda (_%e153824153876%_ + _%hd153825153879%_ + _%tl153826153881%_) + (let ((_%L153884%_ + _%tl153826153881%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__andmap1 gxc#dispatch-lambda-form? _%L153610%_)) - (_%__kont169221169222%_ _%L153610%_) - (_%__kont169223169224%_ _%tl153552153607%_)))))) + (__andmap1 gxc#dispatch-lambda-form? _%L153884%_)) + (_%__kont169495169496%_ _%L153884%_) + (_%__kont169497169498%_ _%tl153826153881%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx169219169220%_)) - (let ((_%e153550153602%_ + _%__stx169493169494%_)) + (let ((_%e153824153876%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%__stx169219169220%_)))) - (let ((_%tl153552153607%_ - (let () (declare (not safe)) (##cdr _%e153550153602%_))) - (_%hd153551153605%_ + (gx#stx-e _%__stx169493169494%_)))) + (let ((_%tl153826153881%_ + (let () (declare (not safe)) (##cdr _%e153824153876%_))) + (_%hd153825153879%_ (let () (declare (not safe)) - (##car _%e153550153602%_)))) - (_%__match169230169231%_ - _%e153550153602%_ - _%hd153551153605%_ - _%tl153552153607%_))) - (let () (declare (not safe)) (_%g153547153561%_)))))))) + (##car _%e153824153876%_)))) + (_%__match169504169505%_ + _%e153824153876%_ + _%hd153825153879%_ + _%tl153826153881%_))) + (let () (declare (not safe)) (_%g153821153835%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169243169244%_ - (lambda (_%L153358%_ _%L153359%_) - (let* ((_%g153373153403%_ - (lambda (_%g153374153400%_) + (_%__kont169517169518%_ + (lambda (_%L153632%_ _%L153633%_) + (let* ((_%g153647153677%_ + (lambda (_%g153648153674%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153374153400%_)))) - (_%g153372153499%_ - (lambda (_%g153374153406%_) + _%g153648153674%_)))) + (_%g153646153773%_ + (lambda (_%g153648153680%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g153374153406%_)) - (let ((_%e153378153408%_ + _%g153648153680%_)) + (let ((_%e153652153682%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g153374153406%_)))) - (let ((_%hd153379153411%_ + (gx#stx-e _%g153648153680%_)))) + (let ((_%hd153653153685%_ (let () (declare (not safe)) - (##car _%e153378153408%_))) - (_%tl153380153413%_ + (##car _%e153652153682%_))) + (_%tl153654153687%_ (let () (declare (not safe)) - (##cdr _%e153378153408%_)))) + (##cdr _%e153652153682%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153380153413%_)) - (let ((_%e153381153416%_ + (gx#stx-pair? _%tl153654153687%_)) + (let ((_%e153655153690%_ (let () (declare (not safe)) - (gx#stx-e _%tl153380153413%_)))) - (let ((_%hd153382153419%_ + (gx#stx-e _%tl153654153687%_)))) + (let ((_%hd153656153693%_ (let () (declare (not safe)) - (##car _%e153381153416%_))) - (_%tl153383153421%_ + (##car _%e153655153690%_))) + (_%tl153657153695%_ (let () (declare (not safe)) - (##cdr _%e153381153416%_)))) + (##cdr _%e153655153690%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153382153419%_)) - (let ((_%e153384153424%_ + (gx#stx-pair? _%hd153656153693%_)) + (let ((_%e153658153698%_ (let () (declare (not safe)) - (gx#stx-e _%hd153382153419%_)))) - (let ((_%hd153385153427%_ + (gx#stx-e _%hd153656153693%_)))) + (let ((_%hd153659153701%_ (let () (declare (not safe)) - (##car _%e153384153424%_))) - (_%tl153386153429%_ + (##car _%e153658153698%_))) + (_%tl153660153703%_ (let () (declare (not safe)) - (##cdr _%e153384153424%_)))) + (##cdr _%e153658153698%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153385153427%_)) - (let ((_%e153387153432%_ + (gx#stx-pair? _%hd153659153701%_)) + (let ((_%e153661153706%_ (let () (declare (not safe)) (gx#stx-e - _%hd153385153427%_)))) - (let ((_%hd153388153435%_ + _%hd153659153701%_)))) + (let ((_%hd153662153709%_ (let () (declare (not safe)) - (##car _%e153387153432%_))) - (_%tl153389153437%_ + (##car _%e153661153706%_))) + (_%tl153663153711%_ (let () (declare (not safe)) - (##cdr _%e153387153432%_)))) + (##cdr _%e153661153706%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153388153435%_)) - (let ((_%e153390153440%_ + _%hd153662153709%_)) + (let ((_%e153664153714%_ (let () (declare (not safe)) (gx#stx-e - _%hd153388153435%_)))) - (let ((_%hd153391153443%_ + _%hd153662153709%_)))) + (let ((_%hd153665153717%_ (let () (declare (not safe)) - (##car _%e153390153440%_))) - (_%tl153392153445%_ + (##car _%e153664153714%_))) + (_%tl153666153719%_ (let () (declare (not safe)) - (##cdr _%e153390153440%_)))) + (##cdr _%e153664153714%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153392153445%_)) + _%tl153666153719%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl153389153437%_)) - (let ((_%e153393153448%_ + (gx#stx-pair? _%tl153663153711%_)) + (let ((_%e153667153722%_ (let () (declare (not safe)) - (gx#stx-e _%tl153389153437%_)))) - (let ((_%hd153394153451%_ + (gx#stx-e _%tl153663153711%_)))) + (let ((_%hd153668153725%_ (let () (declare (not safe)) - (##car _%e153393153448%_))) - (_%tl153395153453%_ + (##car _%e153667153722%_))) + (_%tl153669153727%_ (let () (declare (not safe)) - (##cdr _%e153393153448%_)))) + (##cdr _%e153667153722%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153395153453%_)) + (gx#stx-null? _%tl153669153727%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153386153429%_)) + (gx#stx-null? _%tl153660153703%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153383153421%_)) - (let ((_%e153396153456%_ + (gx#stx-pair? _%tl153657153695%_)) + (let ((_%e153670153730%_ (let () (declare (not safe)) - (gx#stx-e _%tl153383153421%_)))) - (let ((_%hd153397153459%_ + (gx#stx-e _%tl153657153695%_)))) + (let ((_%hd153671153733%_ (let () (declare (not safe)) - (##car _%e153396153456%_))) - (_%tl153398153461%_ + (##car _%e153670153730%_))) + (_%tl153672153735%_ (let () (declare (not safe)) - (##cdr _%e153396153456%_)))) + (##cdr _%e153670153730%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153398153461%_)) - ((lambda (_%L153464%_ - _%L153465%_ - _%L153466%_) - (let* ((_%lambda-id153490%_ - (let ((__tmp169776 + _%tl153672153735%_)) + ((lambda (_%L153738%_ + _%L153739%_ + _%L153740%_) + (let* ((_%lambda-id153764%_ + (let ((__tmp170050 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%L153359%_))) - (__tmp169775 + (gx#stx-e _%L153633%_))) + (__tmp170049 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) - (make-symbol__1 __tmp169776 __tmp169775))) - (_%lambda-id153492%_ - (let ((__tmp169777 + (make-symbol__1 __tmp170050 __tmp170049))) + (_%lambda-id153766%_ + (let ((__tmp170051 (let () (declare (not safe)) - (gx#stx-source _%stx152794%_)))) + (gx#stx-source _%stx153068%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%lambda-id153490%_ __tmp169777))) - (_%_153494%_ + (gx#core-quote-syntax__1 _%lambda-id153764%_ __tmp170051))) + (_%_153768%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%lambda-id153492%_))) - (_%new-case-lambda-expr153496%_ + (gx#core-bind-runtime!__0 _%lambda-id153766%_))) + (_%new-case-lambda-expr153770%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L153466%_ - _%lambda-id153492%_ - _%L153464%_)))) + _%L153740%_ + _%lambda-id153766%_ + _%L153738%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp169779 + (let ((__tmp170053 (let () (declare (not safe)) (gxc#identifier-symbol - _%L153359%_))) - (__tmp169778 + _%L153633%_))) + (__tmp170052 (let () (declare (not safe)) (gxc#identifier-symbol - _%lambda-id153492%_)))) + _%lambda-id153766%_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp169779 + __tmp170053 '" => " - __tmp169778)) - (_%lp152934%_ - (cons (_%bind-e__166395166396%_ - _%L153359%_ - _%new-case-lambda-expr153496%_ + __tmp170052)) + (_%lp153208%_ + (cons (_%bind-e__166669166670%_ + _%L153633%_ + _%new-case-lambda-expr153770%_ '#f) - _%rest152957%_) - (cons (_%bind-e__0__166397166398%_ - _%lambda-id153492%_ - _%L153465%_) - _%bind152937%_)))) - _%hd153397153459%_ - _%hd153394153451%_ - _%hd153391153443%_) - (_%g153373153403%_ - _%g153374153406%_)))) - (_%g153373153403%_ _%g153374153406%_)) - (_%g153373153403%_ _%g153374153406%_)) - (_%g153373153403%_ _%g153374153406%_)))) - (_%g153373153403%_ _%g153374153406%_)) - (_%g153373153403%_ _%g153374153406%_)))) + _%rest153231%_) + (cons (_%bind-e__0__166671166672%_ + _%lambda-id153766%_ + _%L153739%_) + _%bind153211%_)))) + _%hd153671153733%_ + _%hd153668153725%_ + _%hd153665153717%_) + (_%g153647153677%_ + _%g153648153680%_)))) + (_%g153647153677%_ _%g153648153680%_)) + (_%g153647153677%_ _%g153648153680%_)) + (_%g153647153677%_ _%g153648153680%_)))) + (_%g153647153677%_ _%g153648153680%_)) + (_%g153647153677%_ _%g153648153680%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g153373153403%_ - _%g153374153406%_)))) - (_%g153373153403%_ - _%g153374153406%_)))) - (_%g153373153403%_ _%g153374153406%_)))) - (_%g153373153403%_ _%g153374153406%_)))) - (_%g153373153403%_ _%g153374153406%_))))) + (_%g153647153677%_ + _%g153648153680%_)))) + (_%g153647153677%_ + _%g153648153680%_)))) + (_%g153647153677%_ _%g153648153680%_)))) + (_%g153647153677%_ _%g153648153680%_)))) + (_%g153647153677%_ _%g153648153680%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g153372153499%_ - _%L153358%_)))) - (_%__kont169245169246%_ - (lambda (_%L153080%_ _%L153081%_) - (let* ((_%g153095153148%_ - (lambda (_%g153096153145%_) + (_%g153646153773%_ + _%L153632%_)))) + (_%__kont169519169520%_ + (lambda (_%L153354%_ _%L153355%_) + (let* ((_%g153369153422%_ + (lambda (_%g153370153419%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153096153145%_)))) - (_%g153094153326%_ - (lambda (_%g153096153151%_) + _%g153370153419%_)))) + (_%g153368153600%_ + (lambda (_%g153370153425%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g153096153151%_)) - (let ((_%e153102153153%_ + _%g153370153425%_)) + (let ((_%e153376153427%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g153096153151%_)))) - (let ((_%hd153103153156%_ + (gx#stx-e _%g153370153425%_)))) + (let ((_%hd153377153430%_ (let () (declare (not safe)) - (##car _%e153102153153%_))) - (_%tl153104153158%_ + (##car _%e153376153427%_))) + (_%tl153378153432%_ (let () (declare (not safe)) - (##cdr _%e153102153153%_)))) + (##cdr _%e153376153427%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153104153158%_)) - (let ((_%e153105153161%_ + (gx#stx-pair? _%tl153378153432%_)) + (let ((_%e153379153435%_ (let () (declare (not safe)) - (gx#stx-e _%tl153104153158%_)))) - (let ((_%hd153106153164%_ + (gx#stx-e _%tl153378153432%_)))) + (let ((_%hd153380153438%_ (let () (declare (not safe)) - (##car _%e153105153161%_))) - (_%tl153107153166%_ + (##car _%e153379153435%_))) + (_%tl153381153440%_ (let () (declare (not safe)) - (##cdr _%e153105153161%_)))) + (##cdr _%e153379153435%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153106153164%_)) - (let ((_%e153108153169%_ + (gx#stx-pair? _%hd153380153438%_)) + (let ((_%e153382153443%_ (let () (declare (not safe)) - (gx#stx-e _%hd153106153164%_)))) - (let ((_%hd153109153172%_ + (gx#stx-e _%hd153380153438%_)))) + (let ((_%hd153383153446%_ (let () (declare (not safe)) - (##car _%e153108153169%_))) - (_%tl153110153174%_ + (##car _%e153382153443%_))) + (_%tl153384153448%_ (let () (declare (not safe)) - (##cdr _%e153108153169%_)))) + (##cdr _%e153382153443%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153109153172%_)) - (let ((_%e153111153177%_ + (gx#stx-pair? _%hd153383153446%_)) + (let ((_%e153385153451%_ (let () (declare (not safe)) (gx#stx-e - _%hd153109153172%_)))) - (let ((_%hd153112153180%_ + _%hd153383153446%_)))) + (let ((_%hd153386153454%_ (let () (declare (not safe)) - (##car _%e153111153177%_))) - (_%tl153113153182%_ + (##car _%e153385153451%_))) + (_%tl153387153456%_ (let () (declare (not safe)) - (##cdr _%e153111153177%_)))) + (##cdr _%e153385153451%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153112153180%_)) - (let ((_%e153114153185%_ + _%hd153386153454%_)) + (let ((_%e153388153459%_ (let () (declare (not safe)) (gx#stx-e - _%hd153112153180%_)))) - (let ((_%hd153115153188%_ + _%hd153386153454%_)))) + (let ((_%hd153389153462%_ (let () (declare (not safe)) - (##car _%e153114153185%_))) - (_%tl153116153190%_ + (##car _%e153388153459%_))) + (_%tl153390153464%_ (let () (declare (not safe)) - (##cdr _%e153114153185%_)))) + (##cdr _%e153388153459%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153116153190%_)) + _%tl153390153464%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl153113153182%_)) - (let ((_%e153117153193%_ + (gx#stx-pair? _%tl153387153456%_)) + (let ((_%e153391153467%_ (let () (declare (not safe)) - (gx#stx-e _%tl153113153182%_)))) - (let ((_%hd153118153196%_ + (gx#stx-e _%tl153387153456%_)))) + (let ((_%hd153392153470%_ (let () (declare (not safe)) - (##car _%e153117153193%_))) - (_%tl153119153198%_ + (##car _%e153391153467%_))) + (_%tl153393153472%_ (let () (declare (not safe)) - (##cdr _%e153117153193%_)))) + (##cdr _%e153391153467%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153118153196%_)) - (let ((_%e153120153201%_ + (gx#stx-pair? _%hd153392153470%_)) + (let ((_%e153394153475%_ (let () (declare (not safe)) - (gx#stx-e _%hd153118153196%_)))) - (let ((_%hd153121153204%_ + (gx#stx-e _%hd153392153470%_)))) + (let ((_%hd153395153478%_ (let () (declare (not safe)) - (##car _%e153120153201%_))) - (_%tl153122153206%_ + (##car _%e153394153475%_))) + (_%tl153396153480%_ (let () (declare (not safe)) - (##cdr _%e153120153201%_)))) + (##cdr _%e153394153475%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153122153206%_)) - (let ((_%e153123153209%_ + (gx#stx-pair? _%tl153396153480%_)) + (let ((_%e153397153483%_ (let () (declare (not safe)) - (gx#stx-e _%tl153122153206%_)))) - (let ((_%hd153124153212%_ + (gx#stx-e _%tl153396153480%_)))) + (let ((_%hd153398153486%_ (let () (declare (not safe)) - (##car _%e153123153209%_))) - (_%tl153125153214%_ + (##car _%e153397153483%_))) + (_%tl153399153488%_ (let () (declare (not safe)) - (##cdr _%e153123153209%_)))) + (##cdr _%e153397153483%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153124153212%_)) - (let ((_%e153126153217%_ + _%hd153398153486%_)) + (let ((_%e153400153491%_ (let () (declare (not safe)) (gx#stx-e - _%hd153124153212%_)))) - (let ((_%hd153127153220%_ + _%hd153398153486%_)))) + (let ((_%hd153401153494%_ (let () (declare (not safe)) - (##car _%e153126153217%_))) - (_%tl153128153222%_ + (##car _%e153400153491%_))) + (_%tl153402153496%_ (let () (declare (not safe)) - (##cdr _%e153126153217%_)))) + (##cdr _%e153400153491%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153127153220%_)) - (let ((_%e153129153225%_ + _%hd153401153494%_)) + (let ((_%e153403153499%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd153127153220%_)))) - (let ((_%hd153130153228%_ - (let () (declare (not safe)) (##car _%e153129153225%_))) - (_%tl153131153230%_ + (gx#stx-e _%hd153401153494%_)))) + (let ((_%hd153404153502%_ + (let () (declare (not safe)) (##car _%e153403153499%_))) + (_%tl153405153504%_ (let () (declare (not safe)) - (##cdr _%e153129153225%_)))) + (##cdr _%e153403153499%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153130153228%_)) - (let ((_%e153132153233%_ + (gx#stx-pair? _%hd153404153502%_)) + (let ((_%e153406153507%_ (let () (declare (not safe)) - (gx#stx-e _%hd153130153228%_)))) - (let ((_%hd153133153236%_ + (gx#stx-e _%hd153404153502%_)))) + (let ((_%hd153407153510%_ (let () (declare (not safe)) - (##car _%e153132153233%_))) - (_%tl153134153238%_ + (##car _%e153406153507%_))) + (_%tl153408153512%_ (let () (declare (not safe)) - (##cdr _%e153132153233%_)))) + (##cdr _%e153406153507%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153134153238%_)) + (gx#stx-null? _%tl153408153512%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153131153230%_)) - (let ((_%e153135153241%_ + (gx#stx-pair? _%tl153405153504%_)) + (let ((_%e153409153515%_ (let () (declare (not safe)) - (gx#stx-e _%tl153131153230%_)))) - (let ((_%hd153136153244%_ + (gx#stx-e _%tl153405153504%_)))) + (let ((_%hd153410153518%_ (let () (declare (not safe)) - (##car _%e153135153241%_))) - (_%tl153137153246%_ + (##car _%e153409153515%_))) + (_%tl153411153520%_ (let () (declare (not safe)) - (##cdr _%e153135153241%_)))) + (##cdr _%e153409153515%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153137153246%_)) + (gx#stx-null? _%tl153411153520%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153128153222%_)) + _%tl153402153496%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl153125153214%_)) - (let ((_%e153138153249%_ + _%tl153399153488%_)) + (let ((_%e153412153523%_ (let () (declare (not safe)) (gx#stx-e - _%tl153125153214%_)))) - (let ((_%hd153139153252%_ + _%tl153399153488%_)))) + (let ((_%hd153413153526%_ (let () (declare (not safe)) - (##car _%e153138153249%_))) - (_%tl153140153254%_ + (##car _%e153412153523%_))) + (_%tl153414153528%_ (let () (declare (not safe)) - (##cdr _%e153138153249%_)))) + (##cdr _%e153412153523%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153140153254%_)) + _%tl153414153528%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl153119153198%_)) + (gx#stx-null? _%tl153393153472%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153110153174%_)) + (gx#stx-null? _%tl153384153448%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153107153166%_)) - (let ((_%e153141153257%_ + (gx#stx-pair? _%tl153381153440%_)) + (let ((_%e153415153531%_ (let () (declare (not safe)) - (gx#stx-e _%tl153107153166%_)))) - (let ((_%hd153142153260%_ + (gx#stx-e _%tl153381153440%_)))) + (let ((_%hd153416153534%_ (let () (declare (not safe)) - (##car _%e153141153257%_))) - (_%tl153143153262%_ + (##car _%e153415153531%_))) + (_%tl153417153536%_ (let () (declare (not safe)) - (##cdr _%e153141153257%_)))) + (##cdr _%e153415153531%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153143153262%_)) - ((lambda (_%L153265%_ - _%L153266%_ - _%L153267%_ - _%L153268%_ - _%L153269%_) - (let* ((_%get-kws-id153309%_ - (let ((__tmp169781 + (gx#stx-null? _%tl153417153536%_)) + ((lambda (_%L153539%_ + _%L153540%_ + _%L153541%_ + _%L153542%_ + _%L153543%_) + (let* ((_%get-kws-id153583%_ + (let ((__tmp170055 (let () (declare (not safe)) (gx#stx-e - _%L153081%_))) - (__tmp169780 + _%L153355%_))) + (__tmp170054 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp169781 - __tmp169780))) - (_%get-kws-id153311%_ - (let ((__tmp169782 + __tmp170055 + __tmp170054))) + (_%get-kws-id153585%_ + (let ((__tmp170056 (let () (declare (not safe)) (gx#stx-source - _%stx152794%_)))) + _%stx153068%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%get-kws-id153309%_ - __tmp169782))) - (_%main-id153313%_ - (let ((__tmp169784 + _%get-kws-id153583%_ + __tmp170056))) + (_%main-id153587%_ + (let ((__tmp170058 (let () (declare (not safe)) (gx#stx-e - _%L153081%_))) - (__tmp169783 + _%L153355%_))) + (__tmp170057 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp169784 - __tmp169783))) - (_%main-id153315%_ - (let ((__tmp169785 + __tmp170058 + __tmp170057))) + (_%main-id153589%_ + (let ((__tmp170059 (let () (declare (not safe)) (gx#stx-source - _%stx152794%_)))) + _%stx153068%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%main-id153313%_ - __tmp169785))) - (_%_153317%_ + _%main-id153587%_ + __tmp170059))) + (_%_153591%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%get-kws-id153311%_))) - (_%_153319%_ + _%get-kws-id153585%_))) + (_%_153593%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%main-id153315%_))) - (_%new-kw-dispatch153321%_ + _%main-id153589%_))) + (_%new-kw-dispatch153595%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L153269%_ - _%get-kws-id153311%_ - _%L153265%_))) - (_%new-get-kws153323%_ + _%L153543%_ + _%get-kws-id153585%_ + _%L153539%_))) + (_%new-get-kws153597%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L153268%_ - _%main-id153315%_ - _%L153266%_)))) - (let ((__tmp169788 + _%L153542%_ + _%main-id153589%_ + _%L153540%_)))) + (let ((__tmp170062 (let () (declare (not safe)) (gxc#identifier-symbol - _%L153081%_))) - (__tmp169787 + _%L153355%_))) + (__tmp170061 (let () (declare (not safe)) (gxc#identifier-symbol - _%get-kws-id153311%_))) - (__tmp169786 + _%get-kws-id153585%_))) + (__tmp170060 (let () (declare (not safe)) (gxc#identifier-symbol - _%main-id153315%_)))) + _%main-id153589%_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp169788 + __tmp170062 '" => " - __tmp169787 + __tmp170061 '" => " - __tmp169786)) - (_%lp152934%_ - (cons (_%bind-e__166395166396%_ - _%main-id153315%_ - _%L153267%_ + __tmp170060)) + (_%lp153208%_ + (cons (_%bind-e__166669166670%_ + _%main-id153589%_ + _%L153541%_ '#f) - (cons (_%bind-e__166395166396%_ - _%get-kws-id153311%_ - _%new-get-kws153323%_ + (cons (_%bind-e__166669166670%_ + _%get-kws-id153585%_ + _%new-get-kws153597%_ '#f) - (cons (_%bind-e__166395166396%_ - _%L153081%_ - _%new-kw-dispatch153321%_ + (cons (_%bind-e__166669166670%_ + _%L153355%_ + _%new-kw-dispatch153595%_ '#f) - _%rest152957%_))) - _%bind152937%_))) - _%hd153142153260%_ - _%hd153139153252%_ - _%hd153136153244%_ - _%hd153133153236%_ - _%hd153115153188%_) - (_%g153095153148%_ _%g153096153151%_)))) - (_%g153095153148%_ _%g153096153151%_)) - (_%g153095153148%_ _%g153096153151%_)) - (_%g153095153148%_ _%g153096153151%_)) - (_%g153095153148%_ _%g153096153151%_)))) + _%rest153231%_))) + _%bind153211%_))) + _%hd153416153534%_ + _%hd153413153526%_ + _%hd153410153518%_ + _%hd153407153510%_ + _%hd153389153462%_) + (_%g153369153422%_ _%g153370153425%_)))) + (_%g153369153422%_ _%g153370153425%_)) + (_%g153369153422%_ _%g153370153425%_)) + (_%g153369153422%_ _%g153370153425%_)) + (_%g153369153422%_ _%g153370153425%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g153095153148%_ - _%g153096153151%_)) - (_%g153095153148%_ - _%g153096153151%_)) - (_%g153095153148%_ - _%g153096153151%_)))) - (_%g153095153148%_ _%g153096153151%_)) - (_%g153095153148%_ _%g153096153151%_)))) - (_%g153095153148%_ _%g153096153151%_)))) - (_%g153095153148%_ _%g153096153151%_)))) + (_%g153369153422%_ + _%g153370153425%_)) + (_%g153369153422%_ + _%g153370153425%_)) + (_%g153369153422%_ + _%g153370153425%_)))) + (_%g153369153422%_ _%g153370153425%_)) + (_%g153369153422%_ _%g153370153425%_)))) + (_%g153369153422%_ _%g153370153425%_)))) + (_%g153369153422%_ _%g153370153425%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g153095153148%_ - _%g153096153151%_)))) - (_%g153095153148%_ _%g153096153151%_)))) - (_%g153095153148%_ _%g153096153151%_)))) - (_%g153095153148%_ _%g153096153151%_)) - (_%g153095153148%_ _%g153096153151%_)))) + (_%g153369153422%_ + _%g153370153425%_)))) + (_%g153369153422%_ _%g153370153425%_)))) + (_%g153369153422%_ _%g153370153425%_)))) + (_%g153369153422%_ _%g153370153425%_)) + (_%g153369153422%_ _%g153370153425%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g153095153148%_ - _%g153096153151%_)))) - (_%g153095153148%_ - _%g153096153151%_)))) - (_%g153095153148%_ _%g153096153151%_)))) - (_%g153095153148%_ _%g153096153151%_)))) - (_%g153095153148%_ _%g153096153151%_))))) + (_%g153369153422%_ + _%g153370153425%_)))) + (_%g153369153422%_ + _%g153370153425%_)))) + (_%g153369153422%_ _%g153370153425%_)))) + (_%g153369153422%_ _%g153370153425%_)))) + (_%g153369153422%_ _%g153370153425%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g153094153326%_ - _%L153080%_)))) - (_%__kont169247169248%_ - (lambda (_%L153031%_ _%L153032%_) - (_%lp152934%_ - _%rest152957%_ - (cons (cons _%L153032%_ + (_%g153368153600%_ + _%L153354%_)))) + (_%__kont169521169522%_ + (lambda (_%L153305%_ _%L153306%_) + (_%lp153208%_ + _%rest153231%_ + (cons (cons _%L153306%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self152793%_ _%L153031%_)) + (gxc#compile-e__1 _%self153067%_ _%L153305%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind152937%_))))) - (let* ((_%__match169314169315%_ - (lambda (_%e152989153056%_ - _%hd152990153059%_ - _%tl152991153061%_ - _%e152992153064%_ - _%hd152993153067%_ - _%tl152994153069%_ - _%e152995153072%_ - _%hd152996153075%_ - _%tl152997153077%_) - (let ((_%L153080%_ - _%hd152996153075%_) - (_%L153081%_ - _%hd152993153067%_)) + _%bind153211%_))))) + (let* ((_%__match169588169589%_ + (lambda (_%e153263153330%_ + _%hd153264153333%_ + _%tl153265153335%_ + _%e153266153338%_ + _%hd153267153341%_ + _%tl153268153343%_ + _%e153269153346%_ + _%hd153270153349%_ + _%tl153271153351%_) + (let ((_%L153354%_ + _%hd153270153349%_) + (_%L153355%_ + _%hd153267153341%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L153081%_)) + _%L153355%_)) (gxc#kw-lambda-expr? - _%L153080%_)) - (_%__kont169245169246%_ - _%L153080%_ - _%L153081%_) - (_%__kont169247169248%_ - _%hd152996153075%_ - _%hd152990153059%_))))) - (_%__match169292169293%_ - (lambda (_%e152978153334%_ - _%hd152979153337%_ - _%tl152980153339%_ - _%e152981153342%_ - _%hd152982153345%_ - _%tl152983153347%_ - _%e152984153350%_ - _%hd152985153353%_ - _%tl152986153355%_) - (let ((_%L153358%_ - _%hd152985153353%_) - (_%L153359%_ - _%hd152982153345%_)) + _%L153354%_)) + (_%__kont169519169520%_ + _%L153354%_ + _%L153355%_) + (_%__kont169521169522%_ + _%hd153270153349%_ + _%hd153264153333%_))))) + (_%__match169566169567%_ + (lambda (_%e153252153608%_ + _%hd153253153611%_ + _%tl153254153613%_ + _%e153255153616%_ + _%hd153256153619%_ + _%tl153257153621%_ + _%e153258153624%_ + _%hd153259153627%_ + _%tl153260153629%_) + (let ((_%L153632%_ + _%hd153259153627%_) + (_%L153633%_ + _%hd153256153619%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L153359%_)) + _%L153633%_)) (gxc#opt-lambda-expr? - _%L153358%_)) - (_%__kont169243169244%_ - _%L153358%_ - _%L153359%_) - (_%__match169314169315%_ - _%e152978153334%_ - _%hd152979153337%_ - _%tl152980153339%_ - _%e152981153342%_ - _%hd152982153345%_ - _%tl152983153347%_ - _%e152984153350%_ - _%hd152985153353%_ - _%tl152986153355%_))))) - (_%__match169270169271%_ - (lambda (_%e152967153507%_ - _%hd152968153510%_ - _%tl152969153512%_ - _%e152970153515%_ - _%hd152971153518%_ - _%tl152972153520%_ - _%e152973153523%_ - _%hd152974153526%_ - _%tl152975153528%_) - (let ((_%L153531%_ - _%hd152974153526%_) - (_%L153532%_ - _%hd152971153518%_)) + _%L153632%_)) + (_%__kont169517169518%_ + _%L153632%_ + _%L153633%_) + (_%__match169588169589%_ + _%e153252153608%_ + _%hd153253153611%_ + _%tl153254153613%_ + _%e153255153616%_ + _%hd153256153619%_ + _%tl153257153621%_ + _%e153258153624%_ + _%hd153259153627%_ + _%tl153260153629%_))))) + (_%__match169544169545%_ + (lambda (_%e153241153781%_ + _%hd153242153784%_ + _%tl153243153786%_ + _%e153244153789%_ + _%hd153245153792%_ + _%tl153246153794%_ + _%e153247153797%_ + _%hd153248153800%_ + _%tl153249153802%_) + (let ((_%L153805%_ + _%hd153248153800%_) + (_%L153806%_ + _%hd153245153792%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L153532%_)) + _%L153806%_)) (gxc#case-lambda-expr? - _%L153531%_)) - (_%__kont169241169242%_ - _%L153531%_ - _%L153532%_) - (_%__match169292169293%_ - _%e152967153507%_ - _%hd152968153510%_ - _%tl152969153512%_ - _%e152970153515%_ - _%hd152971153518%_ - _%tl152972153520%_ - _%e152973153523%_ - _%hd152974153526%_ - _%tl152975153528%_)))))) + _%L153805%_)) + (_%__kont169515169516%_ + _%L153805%_ + _%L153806%_) + (_%__match169566169567%_ + _%e153241153781%_ + _%hd153242153784%_ + _%tl153243153786%_ + _%e153244153789%_ + _%hd153245153792%_ + _%tl153246153794%_ + _%e153247153797%_ + _%hd153248153800%_ + _%tl153249153802%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx169239169240%_)) - (let ((_%e152967153507%_ + _%__stx169513169514%_)) + (let ((_%e153241153781%_ (let () (declare (not safe)) (gx#stx-e - _%__stx169239169240%_)))) - (let ((_%tl152969153512%_ + _%__stx169513169514%_)))) + (let ((_%tl153243153786%_ (let () (declare (not safe)) - (##cdr _%e152967153507%_))) - (_%hd152968153510%_ + (##cdr _%e153241153781%_))) + (_%hd153242153784%_ (let () (declare (not safe)) - (##car _%e152967153507%_)))) + (##car _%e153241153781%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd152968153510%_)) - (let ((_%e152970153515%_ + _%hd153242153784%_)) + (let ((_%e153244153789%_ (let () (declare (not safe)) (gx#stx-e - _%hd152968153510%_)))) - (let ((_%tl152972153520%_ + _%hd153242153784%_)))) + (let ((_%tl153246153794%_ (let () (declare (not safe)) - (##cdr _%e152970153515%_))) - (_%hd152971153518%_ + (##cdr _%e153244153789%_))) + (_%hd153245153792%_ (let () (declare (not safe)) - (##car _%e152970153515%_)))) + (##car _%e153244153789%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152972153520%_)) + _%tl153246153794%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl152969153512%_)) - (let ((_%e152973153523%_ + (gx#stx-pair? _%tl153243153786%_)) + (let ((_%e153247153797%_ (let () (declare (not safe)) - (gx#stx-e _%tl152969153512%_)))) - (let ((_%tl152975153528%_ + (gx#stx-e _%tl153243153786%_)))) + (let ((_%tl153249153802%_ (let () (declare (not safe)) - (##cdr _%e152973153523%_))) - (_%hd152974153526%_ + (##cdr _%e153247153797%_))) + (_%hd153248153800%_ (let () (declare (not safe)) - (##car _%e152973153523%_)))) + (##car _%e153247153797%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152975153528%_)) - (_%__match169270169271%_ - _%e152967153507%_ - _%hd152968153510%_ - _%tl152969153512%_ - _%e152970153515%_ - _%hd152971153518%_ - _%tl152972153520%_ - _%e152973153523%_ - _%hd152974153526%_ - _%tl152975153528%_) + (gx#stx-null? _%tl153249153802%_)) + (_%__match169544169545%_ + _%e153241153781%_ + _%hd153242153784%_ + _%tl153243153786%_ + _%e153244153789%_ + _%hd153245153792%_ + _%tl153246153794%_ + _%e153247153797%_ + _%hd153248153800%_ + _%tl153249153802%_) (let () (declare (not safe)) - (_%g152963153010%_))))) - (let () (declare (not safe)) (_%g152963153010%_))) + (_%g153237153284%_))))) + (let () (declare (not safe)) (_%g153237153284%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152969153512%_)) - (let ((_%e153003153023%_ + (gx#stx-pair? _%tl153243153786%_)) + (let ((_%e153277153297%_ (let () (declare (not safe)) - (gx#stx-e _%tl152969153512%_)))) - (let ((_%tl153005153028%_ + (gx#stx-e _%tl153243153786%_)))) + (let ((_%tl153279153302%_ (let () (declare (not safe)) - (##cdr _%e153003153023%_))) - (_%hd153004153026%_ + (##cdr _%e153277153297%_))) + (_%hd153278153300%_ (let () (declare (not safe)) - (##car _%e153003153023%_)))) + (##car _%e153277153297%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153005153028%_)) - (_%__kont169247169248%_ - _%hd153004153026%_ - _%hd152968153510%_) + (gx#stx-null? _%tl153279153302%_)) + (_%__kont169521169522%_ + _%hd153278153300%_ + _%hd153242153784%_) (let () (declare (not safe)) - (_%g152963153010%_))))) - (let () (declare (not safe)) (_%g152963153010%_)))))) + (_%g153237153284%_))))) + (let () (declare (not safe)) (_%g153237153284%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl152969153512%_)) - (let ((_%e153003153023%_ + _%tl153243153786%_)) + (let ((_%e153277153297%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl152969153512%_)))) - (let ((_%tl153005153028%_ + (gx#stx-e _%tl153243153786%_)))) + (let ((_%tl153279153302%_ (let () (declare (not safe)) - (##cdr _%e153003153023%_))) - (_%hd153004153026%_ + (##cdr _%e153277153297%_))) + (_%hd153278153300%_ (let () (declare (not safe)) - (##car _%e153003153023%_)))) + (##car _%e153277153297%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153005153028%_)) - (_%__kont169247169248%_ - _%hd153004153026%_ - _%hd152968153510%_) - (let () (declare (not safe)) (_%g152963153010%_))))) - (let () (declare (not safe)) (_%g152963153010%_)))))) + (gx#stx-null? _%tl153279153302%_)) + (_%__kont169521169522%_ + _%hd153278153300%_ + _%hd153242153784%_) + (let () (declare (not safe)) (_%g153237153284%_))))) + (let () (declare (not safe)) (_%g153237153284%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g152963153010%_))))))))) + (_%g153237153284%_))))))))) (if (let () (declare (not safe)) - (##pair? _%rest152938152946%_)) - (let ((_%hd152943153628%_ + (##pair? _%rest153212153220%_)) + (let ((_%hd153217153902%_ (let () (declare (not safe)) - (##car _%rest152938152946%_))) - (_%tl152944153630%_ + (##car _%rest153212153220%_))) + (_%tl153218153904%_ (let () (declare (not safe)) - (##cdr _%rest152938152946%_)))) - (let* ((_%hd153633%_ _%hd152943153628%_) - (_%rest153635%_ _%tl152944153630%_)) - (_%K152942153625%_ - _%rest153635%_ - _%hd153633%_))) - (_%else152940152954%_))))))) - (let* ((_%__stx169331169332%_ _%stx152794%_) - (_%g152800152827%_ + (##cdr _%rest153212153220%_)))) + (let* ((_%hd153907%_ _%hd153217153902%_) + (_%rest153909%_ _%tl153218153904%_)) + (_%K153216153899%_ + _%rest153909%_ + _%hd153907%_))) + (_%else153214153228%_))))))) + (let* ((_%__stx169605169606%_ _%stx153068%_) + (_%g153074153101%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169331169332%_))))) - (let ((_%__kont169333169334%_ - (lambda (_%L152887%_ _%L152888%_ _%L152889%_) - (let ((__tmp169790 + _%__stx169605169606%_))))) + (let ((_%__kont169607169608%_ + (lambda (_%L153161%_ _%L153162%_ _%L153163%_) + (let ((__tmp170064 (lambda () - (let ((_%hd152926%_ - (_%compile-bindings152797%_ - (let ((__tmp169791 - (lambda (_%g152918152921%_ - _%g152919152923%_) - (cons _%g152918152921%_ - _%g152919152923%_)))) + (let ((_%hd153200%_ + (_%compile-bindings153071%_ + (let ((__tmp170065 + (lambda (_%g153192153195%_ + _%g153193153197%_) + (cons _%g153192153195%_ + _%g153193153197%_)))) (declare (not safe)) (__foldr1 - __tmp169791 + __tmp170065 '() - _%L152888%_)))) - (_%body152927%_ + _%L153162%_)))) + (_%body153201%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self152793%_ - _%L152887%_)))) - (let ((__tmp169792 - (cons _%L152889%_ - (cons _%hd152926%_ - (cons _%body152927%_ + _%self153067%_ + _%L153161%_)))) + (let ((__tmp170066 + (cons _%L153163%_ + (cons _%hd153200%_ + (cons _%body153201%_ '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp169792 - _%stx152794%_))))) - (__tmp169789 - (let ((__obj169443 + __tmp170066 + _%stx153068%_))))) + (__tmp170063 + (let ((__obj169717 (let () (declare (not safe)) (##structure @@ -24326,249 +24326,249 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj169443)) - __obj169443))) + (gx#local-context:::init!__0 __obj169717)) + __obj169717))) (declare (not safe)) (__call-with-parameters - __tmp169790 + __tmp170064 gx#current-expander-context - __tmp169789)))) - (_%__kont169337169338%_ + __tmp170063)))) + (_%__kont169611169612%_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _%self152793%_ _%stx152794%_))))) - (let ((_%__match169358169359%_ - (lambda (_%e152805152839%_ - _%hd152806152842%_ - _%tl152807152844%_ - _%e152808152847%_ - _%hd152809152850%_ - _%tl152810152852%_ - _%__splice169335169336%_ - _%target152811152855%_ - _%tl152813152857%_) - (letrec ((_%loop152814152860%_ - (lambda (_%hd152812152863%_ - _%bind152818152865%_) + (gxc#xform-let-values% _%self153067%_ _%stx153068%_))))) + (let ((_%__match169632169633%_ + (lambda (_%e153079153113%_ + _%hd153080153116%_ + _%tl153081153118%_ + _%e153082153121%_ + _%hd153083153124%_ + _%tl153084153126%_ + _%__splice169609169610%_ + _%target153085153129%_ + _%tl153087153131%_) + (letrec ((_%loop153088153134%_ + (lambda (_%hd153086153137%_ + _%bind153092153139%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd152812152863%_)) - (let ((_%e152815152868%_ + (gx#stx-pair? _%hd153086153137%_)) + (let ((_%e153089153142%_ (let () (declare (not safe)) (gx#stx-e - _%hd152812152863%_)))) - (let ((_%lp-tl152817152873%_ + _%hd153086153137%_)))) + (let ((_%lp-tl153091153147%_ (let () (declare (not safe)) - (##cdr _%e152815152868%_))) - (_%lp-hd152816152871%_ + (##cdr _%e153089153142%_))) + (_%lp-hd153090153145%_ (let () (declare (not safe)) - (##car _%e152815152868%_)))) - (_%loop152814152860%_ - _%lp-tl152817152873%_ - (cons _%lp-hd152816152871%_ - _%bind152818152865%_)))) - (let ((_%bind152819152876%_ - (reverse _%bind152818152865%_))) + (##car _%e153089153142%_)))) + (_%loop153088153134%_ + _%lp-tl153091153147%_ + (cons _%lp-hd153090153145%_ + _%bind153092153139%_)))) + (let ((_%bind153093153150%_ + (reverse _%bind153092153139%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl152810152852%_)) - (let ((_%e152820152879%_ + _%tl153084153126%_)) + (let ((_%e153094153153%_ (let () (declare (not safe)) (gx#stx-e - _%tl152810152852%_)))) - (let ((_%tl152822152884%_ + _%tl153084153126%_)))) + (let ((_%tl153096153158%_ (let () (declare (not safe)) - (##cdr _%e152820152879%_))) - (_%hd152821152882%_ + (##cdr _%e153094153153%_))) + (_%hd153095153156%_ (let () (declare (not safe)) - (##car _%e152820152879%_)))) + (##car _%e153094153153%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152822152884%_)) - (let ((_%L152887%_ - _%hd152821152882%_) - (_%L152888%_ - _%bind152819152876%_) - (_%L152889%_ - _%hd152806152842%_)) - (if (let ((__tmp169793 + _%tl153096153158%_)) + (let ((_%L153161%_ + _%hd153095153156%_) + (_%L153162%_ + _%bind153093153150%_) + (_%L153163%_ + _%hd153080153116%_)) + (if (let ((__tmp170067 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp169794 - (lambda (_%g152910152913%_ _%g152911152915%_) - (cons _%g152910152913%_ - _%g152911152915%_)))) + (let ((__tmp170068 + (lambda (_%g153184153187%_ _%g153185153189%_) + (cons _%g153184153187%_ + _%g153185153189%_)))) (declare (not safe)) - (__foldr1 __tmp169794 '() _%L152888%_)))) + (__foldr1 __tmp170068 '() _%L153162%_)))) (declare (not safe)) - (__ormap1 gxc#lift-top-lambda-binding? __tmp169793)) - (_%__kont169333169334%_ _%L152887%_ _%L152888%_ _%L152889%_) - (_%__kont169337169338%_))) + (__ormap1 gxc#lift-top-lambda-binding? __tmp170067)) + (_%__kont169607169608%_ _%L153161%_ _%L153162%_ _%L153163%_) + (_%__kont169611169612%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169337169338%_)))) - (_%__kont169337169338%_))))))) - (_%loop152814152860%_ _%target152811152855%_ '()))))) + (_%__kont169611169612%_)))) + (_%__kont169611169612%_))))))) + (_%loop153088153134%_ _%target153085153129%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169331169332%_)) - (let ((_%e152805152839%_ + (gx#stx-pair? _%__stx169605169606%_)) + (let ((_%e153079153113%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169331169332%_)))) - (let ((_%tl152807152844%_ + (gx#stx-e _%__stx169605169606%_)))) + (let ((_%tl153081153118%_ (let () (declare (not safe)) - (##cdr _%e152805152839%_))) - (_%hd152806152842%_ + (##cdr _%e153079153113%_))) + (_%hd153080153116%_ (let () (declare (not safe)) - (##car _%e152805152839%_)))) + (##car _%e153079153113%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152807152844%_)) - (let ((_%e152808152847%_ + (gx#stx-pair? _%tl153081153118%_)) + (let ((_%e153082153121%_ (let () (declare (not safe)) - (gx#stx-e _%tl152807152844%_)))) - (let ((_%tl152810152852%_ + (gx#stx-e _%tl153081153118%_)))) + (let ((_%tl153084153126%_ (let () (declare (not safe)) - (##cdr _%e152808152847%_))) - (_%hd152809152850%_ + (##cdr _%e153082153121%_))) + (_%hd153083153124%_ (let () (declare (not safe)) - (##car _%e152808152847%_)))) + (##car _%e153082153121%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd152809152850%_)) - (let ((_%__splice169335169336%_ + (gx#stx-pair/null? _%hd153083153124%_)) + (let ((_%__splice169609169610%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd152809152850%_ + _%hd153083153124%_ '0)))) - (let ((_%tl152813152857%_ + (let ((_%tl153087153131%_ (let () (declare (not safe)) (##vector-ref - _%__splice169335169336%_ + _%__splice169609169610%_ '1))) - (_%target152811152855%_ + (_%target153085153129%_ (let () (declare (not safe)) (##vector-ref - _%__splice169335169336%_ + _%__splice169609169610%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152813152857%_)) - (_%__match169358169359%_ - _%e152805152839%_ - _%hd152806152842%_ - _%tl152807152844%_ - _%e152808152847%_ - _%hd152809152850%_ - _%tl152810152852%_ - _%__splice169335169336%_ - _%target152811152855%_ - _%tl152813152857%_) - (_%__kont169337169338%_)))) - (_%__kont169337169338%_)))) - (_%__kont169337169338%_)))) - (_%__kont169337169338%_)))))))) + _%tl153087153131%_)) + (_%__match169632169633%_ + _%e153079153113%_ + _%hd153080153116%_ + _%tl153081153118%_ + _%e153082153121%_ + _%hd153083153124%_ + _%tl153084153126%_ + _%__splice169609169610%_ + _%target153085153129%_ + _%tl153087153131%_) + (_%__kont169611169612%_)))) + (_%__kont169611169612%_)))) + (_%__kont169611169612%_)))) + (_%__kont169611169612%_)))))))) (define gxc#lift-top-lambda-binding? - (lambda (_%bind152711%_) - (let* ((_%__stx169361169362%_ _%bind152711%_) - (_%g152714152731%_ + (lambda (_%bind152985%_) + (let* ((_%__stx169635169636%_ _%bind152985%_) + (_%g152988153005%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169361169362%_))))) - (let ((_%__kont169363169364%_ - (lambda (_%L152767%_ _%L152768%_) + _%__stx169635169636%_))))) + (let ((_%__kont169637169638%_ + (lambda (_%L153041%_ _%L153042%_) (if (let () (declare (not safe)) - (gx#identifier? _%L152768%_)) - (let ((_%$e152784%_ - (gxc#case-lambda-expr? _%L152767%_))) - (if _%$e152784%_ - _%$e152784%_ - (let ((_%$e152787%_ - (gxc#opt-lambda-expr? _%L152767%_))) - (if _%$e152787%_ - _%$e152787%_ - (gxc#kw-lambda-expr? _%L152767%_))))) + (gx#identifier? _%L153042%_)) + (let ((_%$e153058%_ + (gxc#case-lambda-expr? _%L153041%_))) + (if _%$e153058%_ + _%$e153058%_ + (let ((_%$e153061%_ + (gxc#opt-lambda-expr? _%L153041%_))) + (if _%$e153061%_ + _%$e153061%_ + (gxc#kw-lambda-expr? _%L153041%_))))) '#f))) - (_%__kont169365169366%_ (lambda () '#f))) + (_%__kont169639169640%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169361169362%_)) - (let ((_%e152718152743%_ + (gx#stx-pair? _%__stx169635169636%_)) + (let ((_%e152992153017%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169361169362%_)))) - (let ((_%tl152720152748%_ + (gx#stx-e _%__stx169635169636%_)))) + (let ((_%tl152994153022%_ (let () (declare (not safe)) - (##cdr _%e152718152743%_))) - (_%hd152719152746%_ + (##cdr _%e152992153017%_))) + (_%hd152993153020%_ (let () (declare (not safe)) - (##car _%e152718152743%_)))) + (##car _%e152992153017%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd152719152746%_)) - (let ((_%e152721152751%_ + (gx#stx-pair? _%hd152993153020%_)) + (let ((_%e152995153025%_ (let () (declare (not safe)) - (gx#stx-e _%hd152719152746%_)))) - (let ((_%tl152723152756%_ + (gx#stx-e _%hd152993153020%_)))) + (let ((_%tl152997153030%_ (let () (declare (not safe)) - (##cdr _%e152721152751%_))) - (_%hd152722152754%_ + (##cdr _%e152995153025%_))) + (_%hd152996153028%_ (let () (declare (not safe)) - (##car _%e152721152751%_)))) + (##car _%e152995153025%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152723152756%_)) + (gx#stx-null? _%tl152997153030%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152720152748%_)) - (let ((_%e152724152759%_ + (gx#stx-pair? _%tl152994153022%_)) + (let ((_%e152998153033%_ (let () (declare (not safe)) - (gx#stx-e _%tl152720152748%_)))) - (let ((_%tl152726152764%_ + (gx#stx-e _%tl152994153022%_)))) + (let ((_%tl153000153038%_ (let () (declare (not safe)) - (##cdr _%e152724152759%_))) - (_%hd152725152762%_ + (##cdr _%e152998153033%_))) + (_%hd152999153036%_ (let () (declare (not safe)) - (##car _%e152724152759%_)))) + (##car _%e152998153033%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152726152764%_)) - (_%__kont169363169364%_ - _%hd152725152762%_ - _%hd152722152754%_) - (_%__kont169365169366%_)))) - (_%__kont169365169366%_)) - (_%__kont169365169366%_)))) - (_%__kont169365169366%_)))) - (_%__kont169365169366%_)))))))) + _%tl153000153038%_)) + (_%__kont169637169638%_ + _%hd152999153036%_ + _%hd152996153028%_) + (_%__kont169639169640%_)))) + (_%__kont169639169640%_)) + (_%__kont169639169640%_)))) + (_%__kont169639169640%_)))) + (_%__kont169639169640%_)))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top~1.scm b/src/bootstrap/gerbil/compiler/optimize-top~1.scm index fd22d15c6..e41aa5cc5 100644 --- a/src/bootstrap/gerbil/compiler/optimize-top~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-top~1.scm @@ -1,237 +1,237 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g169796_| + (define |gxc[1]#_g170070_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169798_| + (define |gxc[1]#_g170072_| (##structure gx#syntax-quote::t '::collect-top-level-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169800_| + (define |gxc[1]#_g170074_| (##structure gx#syntax-quote::t 'make-::collect-top-level-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169802_| + (define |gxc[1]#_g170076_| (##structure gx#syntax-quote::t '::collect-top-level-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169805_| + (define |gxc[1]#_g170079_| (##structure gx#syntax-quote::t '::collect-top-level-declarations::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169807_| + (define |gxc[1]#_g170081_| (##structure gx#syntax-quote::t 'make-::collect-top-level-declarations #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169809_| + (define |gxc[1]#_g170083_| (##structure gx#syntax-quote::t '::collect-top-level-declarations? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169811_| + (define |gxc[1]#_g170085_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169813_| + (define |gxc[1]#_g170087_| (##structure gx#syntax-quote::t '::basic-expression-top-level-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169815_| + (define |gxc[1]#_g170089_| (##structure gx#syntax-quote::t 'make-::basic-expression-top-level-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169817_| + (define |gxc[1]#_g170091_| (##structure gx#syntax-quote::t '::basic-expression-top-level-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169820_| + (define |gxc[1]#_g170094_| (##structure gx#syntax-quote::t '::collect-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169822_| + (define |gxc[1]#_g170096_| (##structure gx#syntax-quote::t 'make-::collect-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169824_| + (define |gxc[1]#_g170098_| (##structure gx#syntax-quote::t '::collect-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169827_| + (define |gxc[1]#_g170101_| (##structure gx#syntax-quote::t '::collect-mutable-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169829_| + (define |gxc[1]#_g170103_| (##structure gx#syntax-quote::t 'make-::collect-mutable-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169831_| + (define |gxc[1]#_g170105_| (##structure gx#syntax-quote::t '::collect-mutable-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169834_| + (define |gxc[1]#_g170108_| (##structure gx#syntax-quote::t '::refine-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169836_| + (define |gxc[1]#_g170110_| (##structure gx#syntax-quote::t 'make-::refine-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169838_| + (define |gxc[1]#_g170112_| (##structure gx#syntax-quote::t '::refine-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169841_| + (define |gxc[1]#_g170115_| (##structure gx#syntax-quote::t '::raw-expression-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169843_| + (define |gxc[1]#_g170117_| (##structure gx#syntax-quote::t 'make-::raw-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169845_| + (define |gxc[1]#_g170119_| (##structure gx#syntax-quote::t '::raw-expression-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169847_| + (define |gxc[1]#_g170121_| (##structure gx#syntax-quote::t '::raw-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169849_| + (define |gxc[1]#_g170123_| (##structure gx#syntax-quote::t '::basic-expression-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169851_| + (define |gxc[1]#_g170125_| (##structure gx#syntax-quote::t 'make-::basic-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169853_| + (define |gxc[1]#_g170127_| (##structure gx#syntax-quote::t '::basic-expression-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169855_| + (define |gxc[1]#_g170129_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169857_| + (define |gxc[1]#_g170131_| (##structure gx#syntax-quote::t '::lift-top-lambdas::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169859_| + (define |gxc[1]#_g170133_| (##structure gx#syntax-quote::t 'make-::lift-top-lambdas #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169861_| + (define |gxc[1]#_g170135_| (##structure gx#syntax-quote::t '::lift-top-lambdas? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169864_| + (define |gxc[1]#_g170138_| (##structure gx#syntax-quote::t '::extract-lambda-signature::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169866_| + (define |gxc[1]#_g170140_| (##structure gx#syntax-quote::t 'make-::extract-lambda-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g169868_| + (define |gxc[1]#_g170142_| (##structure gx#syntax-quote::t '::extract-lambda-signature? @@ -240,7 +240,7 @@ '())) (begin (define |gxc[:0:]#::collect-top-level-type-info| - (let ((__obj169390 + (let ((__obj169664 (let () (declare (not safe)) (##structure @@ -269,7 +269,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169390 + __obj169664 'gxc#::collect-top-level-type-info::t '1 '#f @@ -277,65 +277,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169390 + __obj169664 '::collect-top-level-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169390 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj169664 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169390 '() '6 '#f '#f)) - (let ((__tmp169795 (cons |gxc[1]#_g169796_| '()))) + (##unchecked-structure-set! __obj169664 '() '6 '#f '#f)) + (let ((__tmp170069 (cons |gxc[1]#_g170070_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj169390 __tmp169795 '3 '#f '#f)) + (##unchecked-structure-set! __obj169664 __tmp170069 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169390 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj169664 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169390 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj169664 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169390 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj169664 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169390 '#f '11 '#f '#f)) - (let ((__tmp169797 |gxc[1]#_g169798_|)) + (##unchecked-structure-set! __obj169664 '#f '11 '#f '#f)) + (let ((__tmp170071 |gxc[1]#_g170072_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169390 __tmp169797 '12 '#f '#f)) - (let ((__tmp169799 |gxc[1]#_g169800_|)) + (##unchecked-structure-set! __obj169664 __tmp170071 '12 '#f '#f)) + (let ((__tmp170073 |gxc[1]#_g170074_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169390 __tmp169799 '13 '#f '#f)) - (let ((__tmp169801 |gxc[1]#_g169802_|)) + (##unchecked-structure-set! __obj169664 __tmp170073 '13 '#f '#f)) + (let ((__tmp170075 |gxc[1]#_g170076_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169390 __tmp169801 '14 '#f '#f)) + (##unchecked-structure-set! __obj169664 __tmp170075 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169390 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj169664 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169390 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj169664 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169390 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj169664 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169390 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj169664 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169390 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj169664 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169390 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj169664 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169390 '() '20 '#f '#f)) - __obj169390)) + (##unchecked-structure-set! __obj169664 '() '20 '#f '#f)) + __obj169664)) (define |gxc[:0:]#::collect-top-level-declarations| - (let ((__obj169392 + (let ((__obj169666 (let () (declare (not safe)) (##structure @@ -364,7 +364,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169392 + __obj169666 'gxc#::collect-top-level-declarations::t '1 '#f @@ -372,65 +372,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169392 + __obj169666 '::collect-top-level-declarations '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169392 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj169666 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169392 '() '6 '#f '#f)) - (let ((__tmp169803 (cons |gxc[1]#_g169796_| '()))) + (##unchecked-structure-set! __obj169666 '() '6 '#f '#f)) + (let ((__tmp170077 (cons |gxc[1]#_g170070_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj169392 __tmp169803 '3 '#f '#f)) + (##unchecked-structure-set! __obj169666 __tmp170077 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169392 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj169666 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169392 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj169666 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169392 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj169666 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169392 '#f '11 '#f '#f)) - (let ((__tmp169804 |gxc[1]#_g169805_|)) + (##unchecked-structure-set! __obj169666 '#f '11 '#f '#f)) + (let ((__tmp170078 |gxc[1]#_g170079_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169392 __tmp169804 '12 '#f '#f)) - (let ((__tmp169806 |gxc[1]#_g169807_|)) + (##unchecked-structure-set! __obj169666 __tmp170078 '12 '#f '#f)) + (let ((__tmp170080 |gxc[1]#_g170081_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169392 __tmp169806 '13 '#f '#f)) - (let ((__tmp169808 |gxc[1]#_g169809_|)) + (##unchecked-structure-set! __obj169666 __tmp170080 '13 '#f '#f)) + (let ((__tmp170082 |gxc[1]#_g170083_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169392 __tmp169808 '14 '#f '#f)) + (##unchecked-structure-set! __obj169666 __tmp170082 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169392 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj169666 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169392 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj169666 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169392 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj169666 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169392 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj169666 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169392 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj169666 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169392 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj169666 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169392 '() '20 '#f '#f)) - __obj169392)) + (##unchecked-structure-set! __obj169666 '() '20 '#f '#f)) + __obj169666)) (define |gxc[:0:]#::basic-expression-top-level-type| - (let ((__obj169394 + (let ((__obj169668 (let () (declare (not safe)) (##structure @@ -459,7 +459,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169394 + __obj169668 'gxc#::basic-expression-top-level-type::t '1 '#f @@ -467,65 +467,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169394 + __obj169668 '::basic-expression-top-level-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169394 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj169668 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169394 '() '6 '#f '#f)) - (let ((__tmp169810 (cons |gxc[1]#_g169811_| '()))) + (##unchecked-structure-set! __obj169668 '() '6 '#f '#f)) + (let ((__tmp170084 (cons |gxc[1]#_g170085_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj169394 __tmp169810 '3 '#f '#f)) + (##unchecked-structure-set! __obj169668 __tmp170084 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169394 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj169668 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169394 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj169668 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169394 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj169668 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169394 '#f '11 '#f '#f)) - (let ((__tmp169812 |gxc[1]#_g169813_|)) + (##unchecked-structure-set! __obj169668 '#f '11 '#f '#f)) + (let ((__tmp170086 |gxc[1]#_g170087_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169394 __tmp169812 '12 '#f '#f)) - (let ((__tmp169814 |gxc[1]#_g169815_|)) + (##unchecked-structure-set! __obj169668 __tmp170086 '12 '#f '#f)) + (let ((__tmp170088 |gxc[1]#_g170089_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169394 __tmp169814 '13 '#f '#f)) - (let ((__tmp169816 |gxc[1]#_g169817_|)) + (##unchecked-structure-set! __obj169668 __tmp170088 '13 '#f '#f)) + (let ((__tmp170090 |gxc[1]#_g170091_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169394 __tmp169816 '14 '#f '#f)) + (##unchecked-structure-set! __obj169668 __tmp170090 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169394 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj169668 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169394 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj169668 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169394 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj169668 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169394 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj169668 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169394 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj169668 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169394 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj169668 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169394 '() '20 '#f '#f)) - __obj169394)) + (##unchecked-structure-set! __obj169668 '() '20 '#f '#f)) + __obj169668)) (define |gxc[:0:]#::collect-type-info| - (let ((__obj169396 + (let ((__obj169670 (let () (declare (not safe)) (##structure @@ -554,7 +554,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169396 + __obj169670 'gxc#::collect-type-info::t '1 '#f @@ -562,65 +562,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169396 + __obj169670 '::collect-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169396 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj169670 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169396 '() '6 '#f '#f)) - (let ((__tmp169818 (cons |gxc[1]#_g169796_| '()))) + (##unchecked-structure-set! __obj169670 '() '6 '#f '#f)) + (let ((__tmp170092 (cons |gxc[1]#_g170070_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj169396 __tmp169818 '3 '#f '#f)) + (##unchecked-structure-set! __obj169670 __tmp170092 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169396 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj169670 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169396 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj169670 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169396 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj169670 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169396 '#f '11 '#f '#f)) - (let ((__tmp169819 |gxc[1]#_g169820_|)) + (##unchecked-structure-set! __obj169670 '#f '11 '#f '#f)) + (let ((__tmp170093 |gxc[1]#_g170094_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169396 __tmp169819 '12 '#f '#f)) - (let ((__tmp169821 |gxc[1]#_g169822_|)) + (##unchecked-structure-set! __obj169670 __tmp170093 '12 '#f '#f)) + (let ((__tmp170095 |gxc[1]#_g170096_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169396 __tmp169821 '13 '#f '#f)) - (let ((__tmp169823 |gxc[1]#_g169824_|)) + (##unchecked-structure-set! __obj169670 __tmp170095 '13 '#f '#f)) + (let ((__tmp170097 |gxc[1]#_g170098_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169396 __tmp169823 '14 '#f '#f)) + (##unchecked-structure-set! __obj169670 __tmp170097 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169396 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj169670 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169396 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj169670 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169396 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj169670 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169396 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj169670 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169396 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj169670 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169396 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj169670 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169396 '() '20 '#f '#f)) - __obj169396)) + (##unchecked-structure-set! __obj169670 '() '20 '#f '#f)) + __obj169670)) (define |gxc[:0:]#::collect-mutable-type-info| - (let ((__obj169398 + (let ((__obj169672 (let () (declare (not safe)) (##structure @@ -649,7 +649,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169398 + __obj169672 'gxc#::collect-mutable-type-info::t '1 '#f @@ -657,65 +657,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169398 + __obj169672 '::collect-mutable-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169398 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj169672 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169398 '() '6 '#f '#f)) - (let ((__tmp169825 (cons |gxc[1]#_g169796_| '()))) + (##unchecked-structure-set! __obj169672 '() '6 '#f '#f)) + (let ((__tmp170099 (cons |gxc[1]#_g170070_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj169398 __tmp169825 '3 '#f '#f)) + (##unchecked-structure-set! __obj169672 __tmp170099 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169398 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj169672 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169398 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj169672 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169398 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj169672 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169398 '#f '11 '#f '#f)) - (let ((__tmp169826 |gxc[1]#_g169827_|)) + (##unchecked-structure-set! __obj169672 '#f '11 '#f '#f)) + (let ((__tmp170100 |gxc[1]#_g170101_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169398 __tmp169826 '12 '#f '#f)) - (let ((__tmp169828 |gxc[1]#_g169829_|)) + (##unchecked-structure-set! __obj169672 __tmp170100 '12 '#f '#f)) + (let ((__tmp170102 |gxc[1]#_g170103_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169398 __tmp169828 '13 '#f '#f)) - (let ((__tmp169830 |gxc[1]#_g169831_|)) + (##unchecked-structure-set! __obj169672 __tmp170102 '13 '#f '#f)) + (let ((__tmp170104 |gxc[1]#_g170105_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169398 __tmp169830 '14 '#f '#f)) + (##unchecked-structure-set! __obj169672 __tmp170104 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169398 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj169672 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169398 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj169672 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169398 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj169672 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169398 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj169672 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169398 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj169672 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169398 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj169672 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169398 '() '20 '#f '#f)) - __obj169398)) + (##unchecked-structure-set! __obj169672 '() '20 '#f '#f)) + __obj169672)) (define |gxc[:0:]#::refine-type-info| - (let ((__obj169400 + (let ((__obj169674 (let () (declare (not safe)) (##structure @@ -744,7 +744,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169400 + __obj169674 'gxc#::refine-type-info::t '1 '#f @@ -752,65 +752,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169400 + __obj169674 '::refine-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169400 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj169674 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169400 '() '6 '#f '#f)) - (let ((__tmp169832 (cons |gxc[1]#_g169796_| '()))) + (##unchecked-structure-set! __obj169674 '() '6 '#f '#f)) + (let ((__tmp170106 (cons |gxc[1]#_g170070_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj169400 __tmp169832 '3 '#f '#f)) + (##unchecked-structure-set! __obj169674 __tmp170106 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169400 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj169674 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169400 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj169674 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169400 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj169674 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169400 '#f '11 '#f '#f)) - (let ((__tmp169833 |gxc[1]#_g169834_|)) + (##unchecked-structure-set! __obj169674 '#f '11 '#f '#f)) + (let ((__tmp170107 |gxc[1]#_g170108_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169400 __tmp169833 '12 '#f '#f)) - (let ((__tmp169835 |gxc[1]#_g169836_|)) + (##unchecked-structure-set! __obj169674 __tmp170107 '12 '#f '#f)) + (let ((__tmp170109 |gxc[1]#_g170110_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169400 __tmp169835 '13 '#f '#f)) - (let ((__tmp169837 |gxc[1]#_g169838_|)) + (##unchecked-structure-set! __obj169674 __tmp170109 '13 '#f '#f)) + (let ((__tmp170111 |gxc[1]#_g170112_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169400 __tmp169837 '14 '#f '#f)) + (##unchecked-structure-set! __obj169674 __tmp170111 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169400 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj169674 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169400 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj169674 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169400 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj169674 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169400 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj169674 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169400 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj169674 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169400 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj169674 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169400 '() '20 '#f '#f)) - __obj169400)) + (##unchecked-structure-set! __obj169674 '() '20 '#f '#f)) + __obj169674)) (define |gxc[:0:]#::raw-expression-type| - (let ((__obj169402 + (let ((__obj169676 (let () (declare (not safe)) (##structure @@ -839,7 +839,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169402 + __obj169676 'gxc#::raw-expression-type::t '1 '#f @@ -847,65 +847,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169402 + __obj169676 '::raw-expression-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169402 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj169676 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169402 '() '6 '#f '#f)) - (let ((__tmp169839 (cons |gxc[1]#_g169811_| '()))) + (##unchecked-structure-set! __obj169676 '() '6 '#f '#f)) + (let ((__tmp170113 (cons |gxc[1]#_g170085_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj169402 __tmp169839 '3 '#f '#f)) + (##unchecked-structure-set! __obj169676 __tmp170113 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169402 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj169676 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169402 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj169676 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169402 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj169676 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169402 '#f '11 '#f '#f)) - (let ((__tmp169840 |gxc[1]#_g169841_|)) + (##unchecked-structure-set! __obj169676 '#f '11 '#f '#f)) + (let ((__tmp170114 |gxc[1]#_g170115_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169402 __tmp169840 '12 '#f '#f)) - (let ((__tmp169842 |gxc[1]#_g169843_|)) + (##unchecked-structure-set! __obj169676 __tmp170114 '12 '#f '#f)) + (let ((__tmp170116 |gxc[1]#_g170117_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169402 __tmp169842 '13 '#f '#f)) - (let ((__tmp169844 |gxc[1]#_g169845_|)) + (##unchecked-structure-set! __obj169676 __tmp170116 '13 '#f '#f)) + (let ((__tmp170118 |gxc[1]#_g170119_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169402 __tmp169844 '14 '#f '#f)) + (##unchecked-structure-set! __obj169676 __tmp170118 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169402 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj169676 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169402 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj169676 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169402 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj169676 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169402 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj169676 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169402 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj169676 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169402 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj169676 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169402 '() '20 '#f '#f)) - __obj169402)) + (##unchecked-structure-set! __obj169676 '() '20 '#f '#f)) + __obj169676)) (define |gxc[:0:]#::basic-expression-type| - (let ((__obj169404 + (let ((__obj169678 (let () (declare (not safe)) (##structure @@ -934,7 +934,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169404 + __obj169678 'gxc#::basic-expression-type::t '1 '#f @@ -942,66 +942,66 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169404 + __obj169678 '::basic-expression-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169404 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj169678 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169404 '() '6 '#f '#f)) - (let ((__tmp169846 - (cons |gxc[1]#_g169847_| (cons |gxc[1]#_g169811_| '())))) + (##unchecked-structure-set! __obj169678 '() '6 '#f '#f)) + (let ((__tmp170120 + (cons |gxc[1]#_g170121_| (cons |gxc[1]#_g170085_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj169404 __tmp169846 '3 '#f '#f)) + (##unchecked-structure-set! __obj169678 __tmp170120 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169404 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj169678 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169404 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj169678 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169404 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj169678 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169404 '#f '11 '#f '#f)) - (let ((__tmp169848 |gxc[1]#_g169849_|)) + (##unchecked-structure-set! __obj169678 '#f '11 '#f '#f)) + (let ((__tmp170122 |gxc[1]#_g170123_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169404 __tmp169848 '12 '#f '#f)) - (let ((__tmp169850 |gxc[1]#_g169851_|)) + (##unchecked-structure-set! __obj169678 __tmp170122 '12 '#f '#f)) + (let ((__tmp170124 |gxc[1]#_g170125_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169404 __tmp169850 '13 '#f '#f)) - (let ((__tmp169852 |gxc[1]#_g169853_|)) + (##unchecked-structure-set! __obj169678 __tmp170124 '13 '#f '#f)) + (let ((__tmp170126 |gxc[1]#_g170127_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169404 __tmp169852 '14 '#f '#f)) + (##unchecked-structure-set! __obj169678 __tmp170126 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169404 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj169678 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169404 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj169678 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169404 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj169678 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169404 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj169678 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169404 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj169678 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169404 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj169678 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169404 '() '20 '#f '#f)) - __obj169404)) + (##unchecked-structure-set! __obj169678 '() '20 '#f '#f)) + __obj169678)) (define |gxc[:0:]#::lift-top-lambdas| - (let ((__obj169406 + (let ((__obj169680 (let () (declare (not safe)) (##structure @@ -1030,7 +1030,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169406 + __obj169680 'gxc#::lift-top-lambdas::t '1 '#f @@ -1038,65 +1038,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169406 + __obj169680 '::lift-top-lambdas '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169406 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj169680 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169406 '() '6 '#f '#f)) - (let ((__tmp169854 (cons |gxc[1]#_g169855_| '()))) + (##unchecked-structure-set! __obj169680 '() '6 '#f '#f)) + (let ((__tmp170128 (cons |gxc[1]#_g170129_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj169406 __tmp169854 '3 '#f '#f)) + (##unchecked-structure-set! __obj169680 __tmp170128 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169406 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj169680 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169406 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj169680 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169406 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj169680 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169406 '#f '11 '#f '#f)) - (let ((__tmp169856 |gxc[1]#_g169857_|)) + (##unchecked-structure-set! __obj169680 '#f '11 '#f '#f)) + (let ((__tmp170130 |gxc[1]#_g170131_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169406 __tmp169856 '12 '#f '#f)) - (let ((__tmp169858 |gxc[1]#_g169859_|)) + (##unchecked-structure-set! __obj169680 __tmp170130 '12 '#f '#f)) + (let ((__tmp170132 |gxc[1]#_g170133_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169406 __tmp169858 '13 '#f '#f)) - (let ((__tmp169860 |gxc[1]#_g169861_|)) + (##unchecked-structure-set! __obj169680 __tmp170132 '13 '#f '#f)) + (let ((__tmp170134 |gxc[1]#_g170135_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169406 __tmp169860 '14 '#f '#f)) + (##unchecked-structure-set! __obj169680 __tmp170134 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169406 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj169680 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169406 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj169680 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169406 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj169680 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169406 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj169680 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169406 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj169680 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169406 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj169680 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169406 '() '20 '#f '#f)) - __obj169406)) + (##unchecked-structure-set! __obj169680 '() '20 '#f '#f)) + __obj169680)) (define |gxc[:0:]#::extract-lambda-signature| - (let ((__obj169408 + (let ((__obj169682 (let () (declare (not safe)) (##structure @@ -1125,7 +1125,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169408 + __obj169682 'gxc#::extract-lambda-signature::t '1 '#f @@ -1133,189 +1133,189 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj169408 + __obj169682 '::extract-lambda-signature '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169408 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj169682 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169408 '() '6 '#f '#f)) - (let ((__tmp169862 (cons |gxc[1]#_g169811_| '()))) + (##unchecked-structure-set! __obj169682 '() '6 '#f '#f)) + (let ((__tmp170136 (cons |gxc[1]#_g170085_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj169408 __tmp169862 '3 '#f '#f)) + (##unchecked-structure-set! __obj169682 __tmp170136 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169408 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj169682 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169408 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj169682 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169408 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj169682 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169408 '#f '11 '#f '#f)) - (let ((__tmp169863 |gxc[1]#_g169864_|)) + (##unchecked-structure-set! __obj169682 '#f '11 '#f '#f)) + (let ((__tmp170137 |gxc[1]#_g170138_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169408 __tmp169863 '12 '#f '#f)) - (let ((__tmp169865 |gxc[1]#_g169866_|)) + (##unchecked-structure-set! __obj169682 __tmp170137 '12 '#f '#f)) + (let ((__tmp170139 |gxc[1]#_g170140_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169408 __tmp169865 '13 '#f '#f)) - (let ((__tmp169867 |gxc[1]#_g169868_|)) + (##unchecked-structure-set! __obj169682 __tmp170139 '13 '#f '#f)) + (let ((__tmp170141 |gxc[1]#_g170142_|)) (declare (not safe)) - (##unchecked-structure-set! __obj169408 __tmp169867 '14 '#f '#f)) + (##unchecked-structure-set! __obj169682 __tmp170141 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169408 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj169682 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169408 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj169682 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169408 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj169682 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169408 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj169682 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169408 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj169682 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169408 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj169682 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj169408 '() '20 '#f '#f)) - __obj169408)) + (##unchecked-structure-set! __obj169682 '() '20 '#f '#f)) + __obj169682)) (define |gxc[:0:]#defbasic-expression-type-annotations| - (lambda (_%$stx152428%_) - (let* ((_%g152432152461%_ - (lambda (_%g152433152457%_) + (lambda (_%$stx152702%_) + (let* ((_%g152706152735%_ + (lambda (_%g152707152731%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152433152457%_)))) - (_%g152431152562%_ - (lambda (_%g152433152465%_) + _%g152707152731%_)))) + (_%g152705152836%_ + (lambda (_%g152707152739%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g152433152465%_)) - (let ((_%e152436152468%_ + (gx#stx-pair? _%g152707152739%_)) + (let ((_%e152710152742%_ (let () (declare (not safe)) - (gx#syntax-e _%g152433152465%_)))) - (let ((_%hd152437152472%_ + (gx#syntax-e _%g152707152739%_)))) + (let ((_%hd152711152746%_ (let () (declare (not safe)) - (##car _%e152436152468%_))) - (_%tl152438152475%_ + (##car _%e152710152742%_))) + (_%tl152712152749%_ (let () (declare (not safe)) - (##cdr _%e152436152468%_)))) + (##cdr _%e152710152742%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl152438152475%_)) - (let ((_g169869_ + (gx#stx-pair/null? _%tl152712152749%_)) + (let ((_g170143_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl152438152475%_ + _%tl152712152749%_ '0)))) (begin - (let ((_g169870_ + (let ((_g170144_ (let () (declare (not safe)) - (if (##values? _g169869_) - (##vector-length _g169869_) + (if (##values? _g170143_) + (##vector-length _g170143_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g169870_ 2))) + (##fx= _g170144_ 2))) (error "Context expects 2 values" - _g169870_))) - (let ((_%target152439152478%_ + _g170144_))) + (let ((_%target152713152752%_ (let () (declare (not safe)) - (##vector-ref _g169869_ 0))) - (_%tl152441152481%_ + (##vector-ref _g170143_ 0))) + (_%tl152715152755%_ (let () (declare (not safe)) - (##vector-ref _g169869_ 1)))) + (##vector-ref _g170143_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152441152481%_)) - (letrec ((_%loop152442152484%_ - (lambda (_%hd152440152488%_ - _%type-e152446152491%_ - _%id152447152493%_) + (gx#stx-null? _%tl152715152755%_)) + (letrec ((_%loop152716152758%_ + (lambda (_%hd152714152762%_ + _%type-e152720152765%_ + _%id152721152767%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd152440152488%_)) - (let ((_%e152443152496%_ + _%hd152714152762%_)) + (let ((_%e152717152770%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd152440152488%_)))) - (let ((_%lp-hd152444152500%_ + (gx#syntax-e _%hd152714152762%_)))) + (let ((_%lp-hd152718152774%_ (let () (declare (not safe)) - (##car _%e152443152496%_))) - (_%lp-tl152445152503%_ + (##car _%e152717152770%_))) + (_%lp-tl152719152777%_ (let () (declare (not safe)) - (##cdr _%e152443152496%_)))) + (##cdr _%e152717152770%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd152444152500%_)) - (let ((_%e152450152506%_ + (gx#stx-pair? _%lp-hd152718152774%_)) + (let ((_%e152724152780%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd152444152500%_)))) - (let ((_%hd152451152510%_ + (gx#syntax-e _%lp-hd152718152774%_)))) + (let ((_%hd152725152784%_ (let () (declare (not safe)) - (##car _%e152450152506%_))) - (_%tl152452152513%_ + (##car _%e152724152780%_))) + (_%tl152726152787%_ (let () (declare (not safe)) - (##cdr _%e152450152506%_)))) + (##cdr _%e152724152780%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152452152513%_)) - (let ((_%e152453152516%_ + (gx#stx-pair? _%tl152726152787%_)) + (let ((_%e152727152790%_ (let () (declare (not safe)) - (gx#syntax-e _%tl152452152513%_)))) - (let ((_%hd152454152520%_ + (gx#syntax-e _%tl152726152787%_)))) + (let ((_%hd152728152794%_ (let () (declare (not safe)) - (##car _%e152453152516%_))) - (_%tl152455152523%_ + (##car _%e152727152790%_))) + (_%tl152729152797%_ (let () (declare (not safe)) - (##cdr _%e152453152516%_)))) + (##cdr _%e152727152790%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152455152523%_)) - (_%loop152442152484%_ - _%lp-tl152445152503%_ - (cons _%hd152454152520%_ - _%type-e152446152491%_) - (cons _%hd152451152510%_ - _%id152447152493%_)) - (_%g152432152461%_ - _%g152433152465%_)))) - (_%g152432152461%_ _%g152433152465%_)))) - (_%g152432152461%_ _%g152433152465%_)))) - (let ((_%type-e152448152526%_ (reverse _%type-e152446152491%_)) - (_%id152449152529%_ (reverse _%id152447152493%_))) - ((lambda (_%L152532%_ _%L152534%_) + (gx#stx-null? _%tl152729152797%_)) + (_%loop152716152758%_ + _%lp-tl152719152777%_ + (cons _%hd152728152794%_ + _%type-e152720152765%_) + (cons _%hd152725152784%_ + _%id152721152767%_)) + (_%g152706152735%_ + _%g152707152739%_)))) + (_%g152706152735%_ _%g152707152739%_)))) + (_%g152706152735%_ _%g152707152739%_)))) + (let ((_%type-e152722152800%_ (reverse _%type-e152720152765%_)) + (_%id152723152803%_ (reverse _%id152721152767%_))) + ((lambda (_%L152806%_ _%L152808%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -1323,12 +1323,12 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L152532%_ - _%L152534%_)) - (let ((__tmp169871 - (lambda (_%g152550152554%_ - _%g152551152557%_ - _%g152552152559%_) + _%L152806%_ + _%L152808%_)) + (let ((__tmp170145 + (lambda (_%g152824152828%_ + _%g152825152831%_ + _%g152826152833%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1343,154 +1343,154 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g152551152557%_ '())) - (cons _%g152550152554%_ '())))) + (cons _%g152825152831%_ '())) + (cons _%g152824152828%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g152552152559%_)))) + _%g152826152833%_)))) (declare (not safe)) (__foldr2 - __tmp169871 + __tmp170145 '() - _%L152532%_ - _%L152534%_))))) - _%type-e152448152526%_ - _%id152449152529%_)))))) + _%L152806%_ + _%L152808%_))))) + _%type-e152722152800%_ + _%id152723152803%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop152442152484%_ - _%target152439152478%_ + (_%loop152716152758%_ + _%target152713152752%_ '() '())) - (_%g152432152461%_ - _%g152433152465%_))))) - (_%g152432152461%_ _%g152433152465%_)))) - (_%g152432152461%_ _%g152433152465%_))))) - (_%g152431152562%_ _%$stx152428%_)))) + (_%g152706152735%_ + _%g152707152739%_))))) + (_%g152706152735%_ _%g152707152739%_)))) + (_%g152706152735%_ _%g152707152739%_))))) + (_%g152705152836%_ _%$stx152702%_)))) (define |gxc[:0:]#defbasic-expression-type-special| - (lambda (_%$stx152567%_) - (let* ((_%g152571152600%_ - (lambda (_%g152572152596%_) + (lambda (_%$stx152841%_) + (let* ((_%g152845152874%_ + (lambda (_%g152846152870%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152572152596%_)))) - (_%g152570152700%_ - (lambda (_%g152572152604%_) + _%g152846152870%_)))) + (_%g152844152974%_ + (lambda (_%g152846152878%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g152572152604%_)) - (let ((_%e152575152607%_ + (gx#stx-pair? _%g152846152878%_)) + (let ((_%e152849152881%_ (let () (declare (not safe)) - (gx#syntax-e _%g152572152604%_)))) - (let ((_%hd152576152611%_ + (gx#syntax-e _%g152846152878%_)))) + (let ((_%hd152850152885%_ (let () (declare (not safe)) - (##car _%e152575152607%_))) - (_%tl152577152614%_ + (##car _%e152849152881%_))) + (_%tl152851152888%_ (let () (declare (not safe)) - (##cdr _%e152575152607%_)))) + (##cdr _%e152849152881%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl152577152614%_)) - (let ((_g169872_ + (gx#stx-pair/null? _%tl152851152888%_)) + (let ((_g170146_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl152577152614%_ + _%tl152851152888%_ '0)))) (begin - (let ((_g169873_ + (let ((_g170147_ (let () (declare (not safe)) - (if (##values? _g169872_) - (##vector-length _g169872_) + (if (##values? _g170146_) + (##vector-length _g170146_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g169873_ 2))) + (##fx= _g170147_ 2))) (error "Context expects 2 values" - _g169873_))) - (let ((_%target152578152617%_ + _g170147_))) + (let ((_%target152852152891%_ (let () (declare (not safe)) - (##vector-ref _g169872_ 0))) - (_%tl152580152620%_ + (##vector-ref _g170146_ 0))) + (_%tl152854152894%_ (let () (declare (not safe)) - (##vector-ref _g169872_ 1)))) + (##vector-ref _g170146_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152580152620%_)) - (letrec ((_%loop152581152623%_ - (lambda (_%hd152579152627%_ - _%type-e152585152630%_ - _%id152586152632%_) + (gx#stx-null? _%tl152854152894%_)) + (letrec ((_%loop152855152897%_ + (lambda (_%hd152853152901%_ + _%type-e152859152904%_ + _%id152860152906%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd152579152627%_)) - (let ((_%e152582152635%_ + _%hd152853152901%_)) + (let ((_%e152856152909%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd152579152627%_)))) - (let ((_%lp-hd152583152639%_ + (gx#syntax-e _%hd152853152901%_)))) + (let ((_%lp-hd152857152913%_ (let () (declare (not safe)) - (##car _%e152582152635%_))) - (_%lp-tl152584152642%_ + (##car _%e152856152909%_))) + (_%lp-tl152858152916%_ (let () (declare (not safe)) - (##cdr _%e152582152635%_)))) + (##cdr _%e152856152909%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd152583152639%_)) - (let ((_%e152589152645%_ + (gx#stx-pair? _%lp-hd152857152913%_)) + (let ((_%e152863152919%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd152583152639%_)))) - (let ((_%hd152590152649%_ + (gx#syntax-e _%lp-hd152857152913%_)))) + (let ((_%hd152864152923%_ (let () (declare (not safe)) - (##car _%e152589152645%_))) - (_%tl152591152652%_ + (##car _%e152863152919%_))) + (_%tl152865152926%_ (let () (declare (not safe)) - (##cdr _%e152589152645%_)))) + (##cdr _%e152863152919%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152591152652%_)) - (let ((_%e152592152655%_ + (gx#stx-pair? _%tl152865152926%_)) + (let ((_%e152866152929%_ (let () (declare (not safe)) - (gx#syntax-e _%tl152591152652%_)))) - (let ((_%hd152593152659%_ + (gx#syntax-e _%tl152865152926%_)))) + (let ((_%hd152867152933%_ (let () (declare (not safe)) - (##car _%e152592152655%_))) - (_%tl152594152662%_ + (##car _%e152866152929%_))) + (_%tl152868152936%_ (let () (declare (not safe)) - (##cdr _%e152592152655%_)))) + (##cdr _%e152866152929%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152594152662%_)) - (_%loop152581152623%_ - _%lp-tl152584152642%_ - (cons _%hd152593152659%_ - _%type-e152585152630%_) - (cons _%hd152590152649%_ - _%id152586152632%_)) - (_%g152571152600%_ - _%g152572152604%_)))) - (_%g152571152600%_ _%g152572152604%_)))) - (_%g152571152600%_ _%g152572152604%_)))) - (let ((_%type-e152587152665%_ (reverse _%type-e152585152630%_)) - (_%id152588152668%_ (reverse _%id152586152632%_))) - ((lambda (_%L152671%_ _%L152673%_) + (gx#stx-null? _%tl152868152936%_)) + (_%loop152855152897%_ + _%lp-tl152858152916%_ + (cons _%hd152867152933%_ + _%type-e152859152904%_) + (cons _%hd152864152923%_ + _%id152860152906%_)) + (_%g152845152874%_ + _%g152846152878%_)))) + (_%g152845152874%_ _%g152846152878%_)))) + (_%g152845152874%_ _%g152846152878%_)))) + (let ((_%type-e152861152939%_ (reverse _%type-e152859152904%_)) + (_%id152862152942%_ (reverse _%id152860152906%_))) + ((lambda (_%L152945%_ _%L152947%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -1498,12 +1498,12 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L152671%_ - _%L152673%_)) - (let ((__tmp169874 - (lambda (_%g152688152692%_ - _%g152689152695%_ - _%g152690152697%_) + _%L152945%_ + _%L152947%_)) + (let ((__tmp170148 + (lambda (_%g152962152966%_ + _%g152963152969%_ + _%g152964152971%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1518,25 +1518,25 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g152689152695%_ '())) - (cons _%g152688152692%_ '())))) + (cons _%g152963152969%_ '())) + (cons _%g152962152966%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g152690152697%_)))) + _%g152964152971%_)))) (declare (not safe)) (__foldr2 - __tmp169874 + __tmp170148 '() - _%L152671%_ - _%L152673%_))))) - _%type-e152587152665%_ - _%id152588152668%_)))))) + _%L152945%_ + _%L152947%_))))) + _%type-e152861152939%_ + _%id152862152942%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop152581152623%_ - _%target152578152617%_ + (_%loop152855152897%_ + _%target152852152891%_ '() '())) - (_%g152571152600%_ - _%g152572152604%_))))) - (_%g152571152600%_ _%g152572152604%_)))) - (_%g152571152600%_ _%g152572152604%_))))) - (_%g152570152700%_ _%$stx152567%_)))))) + (_%g152845152874%_ + _%g152846152878%_))))) + (_%g152845152874%_ _%g152846152878%_)))) + (_%g152845152874%_ _%g152846152878%_))))) + (_%g152844152974%_ _%$stx152841%_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform~0.scm b/src/bootstrap/gerbil/compiler/optimize-xform~0.scm index af43a954b..6096d9300 100644 --- a/src/bootstrap/gerbil/compiler/optimize-xform~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-xform~0.scm @@ -1,27 +1,27 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-xform::timestamp 1713044318) + (define gerbil/compiler/optimize-xform::timestamp 1713454412) (begin (define gxc#::collect-mutators::t - (let ((__tmp152293 (list gxc#::void::t)) - (__tmp152292 (cons (cons 'final: '#t) '()))) + (let ((__tmp152567 (list gxc#::void::t)) + (__tmp152566 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-mutators::t '::collect-mutators - __tmp152293 + __tmp152567 '() - __tmp152292 + __tmp152566 '#f))) (define gxc#::collect-mutators? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-mutators::t))) (define gxc#make-::collect-mutators - (lambda _%$args152279%_ - (apply make-instance gxc#::collect-mutators::t _%$args152279%_))) + (lambda _%$args152553%_ + (apply make-instance gxc#::collect-mutators::t _%$args152553%_))) (define gxc#::collect-mutators-bind-methods! - (let ((__tmp152294 + (let ((__tmp152568 (lambda () (force gxc#::void-bind-methods!) (let () @@ -166,44 +166,44 @@ (declare (not safe)) (__seal-class! gxc#::collect-mutators::t))))) (declare (not safe)) - (__make-promise __tmp152294))) + (__make-promise __tmp152568))) (define gxc#apply-collect-mutators - (lambda (_%stx152271%_) + (lambda (_%stx152545%_) (force gxc#::collect-mutators-bind-methods!) - (let* ((_%self152274%_ - (let ((__obj152282 + (let* ((_%self152548%_ + (let ((__obj152556 (let () (declare (not safe)) (##structure gxc#::collect-mutators::t)))) - __obj152282)) - (__tmp152295 + __obj152556)) + (__tmp152569 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self152274%_ _%stx152271%_))))) + (gxc#compile-e__1 _%self152548%_ _%stx152545%_))))) (declare (not safe)) (__call-with-parameters - __tmp152295 + __tmp152569 gxc#current-compile-method - _%self152274%_)))) + _%self152548%_)))) (define gxc#::expression-subst::t - (let ((__tmp152297 (list gxc#::basic-xform-expression::t)) - (__tmp152296 (cons (cons 'final: '#t) '()))) + (let ((__tmp152571 (list gxc#::basic-xform-expression::t)) + (__tmp152570 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::expression-subst::t '::expression-subst - __tmp152297 + __tmp152571 '(id new-id) - __tmp152296 + __tmp152570 '#f))) (define gxc#::expression-subst? (let () (declare (not safe)) (__make-class-predicate gxc#::expression-subst::t))) (define gxc#make-::expression-subst - (lambda _%$args152268%_ - (apply make-instance gxc#::expression-subst::t _%$args152268%_))) + (lambda _%$args152542%_ + (apply make-instance gxc#::expression-subst::t _%$args152542%_))) (define gxc#::expression-subst-id (let () (declare (not safe)) @@ -241,7 +241,7 @@ gxc#::expression-subst::t 'new-id))) (define gxc#::expression-subst-bind-methods! - (let ((__tmp152298 + (let ((__tmp152572 (lambda () (force gxc#::basic-xform-expression-bind-methods!) (let () @@ -266,95 +266,95 @@ (declare (not safe)) (__seal-class! gxc#::expression-subst::t))))) (declare (not safe)) - (__make-promise __tmp152298))) + (__make-promise __tmp152572))) (define gxc#apply-expression-subst__% - (lambda (_%@@keywords152238%_ - _%id152234152239%_ - _%new-id152235152241%_ - _%stx152243%_) - (let* ((_%id152246%_ - (if (eq? _%id152234152239%_ absent-value) + (lambda (_%@@keywords152512%_ + _%id152508152513%_ + _%new-id152509152515%_ + _%stx152517%_) + (let* ((_%id152520%_ + (if (eq? _%id152508152513%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'id:)) - _%id152234152239%_)) - (_%new-id152248%_ - (if (eq? _%new-id152235152241%_ absent-value) + _%id152508152513%_)) + (_%new-id152522%_ + (if (eq? _%new-id152509152515%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'new-id:)) - _%new-id152235152241%_))) + _%new-id152509152515%_))) (force gxc#::expression-subst-bind-methods!) - (let* ((_%self152250%_ - (let ((__obj152284 + (let* ((_%self152524%_ + (let ((__obj152558 (let () (declare (not safe)) (##structure gxc#::expression-subst::t '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152284 - _%id152246%_ + __obj152558 + _%id152520%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152284 - _%new-id152248%_ + __obj152558 + _%new-id152522%_ '2 '#f '#f)) - __obj152284)) - (__tmp152299 + __obj152558)) + (__tmp152573 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self152250%_ _%stx152243%_))))) + (gxc#compile-e__1 _%self152524%_ _%stx152517%_))))) (declare (not safe)) (__call-with-parameters - __tmp152299 + __tmp152573 gxc#current-compile-method - _%self152250%_))))) + _%self152524%_))))) (define gxc#apply-expression-subst__@ - (lambda (_%@@keywords152257%_ . _%args152258%_) + (lambda (_%@@keywords152531%_ . _%args152532%_) (apply gxc#apply-expression-subst__% - _%@@keywords152257%_ + _%@@keywords152531%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords152257%_ 'id: absent-value)) + (symbolic-table-ref _%@@keywords152531%_ 'id: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords152257%_ + _%@@keywords152531%_ 'new-id: absent-value)) - _%args152258%_))) + _%args152532%_))) (define gxc#apply-expression-subst - (lambda _%args152236152264%_ + (lambda _%args152510152538%_ (apply keyword-dispatch '#(id: new-id:) gxc#apply-expression-subst__@ - _%args152236152264%_))) + _%args152510152538%_))) (define gxc#::expression-subst*::t - (let ((__tmp152301 (list gxc#::basic-xform-expression::t)) - (__tmp152300 (cons (cons 'final: '#t) '()))) + (let ((__tmp152575 (list gxc#::basic-xform-expression::t)) + (__tmp152574 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::expression-subst*::t '::expression-subst* - __tmp152301 + __tmp152575 '(subst) - __tmp152300 + __tmp152574 '#f))) (define gxc#::expression-subst*? (let () (declare (not safe)) (__make-class-predicate gxc#::expression-subst*::t))) (define gxc#make-::expression-subst* - (lambda _%$args152230%_ - (apply make-instance gxc#::expression-subst*::t _%$args152230%_))) + (lambda _%$args152504%_ + (apply make-instance gxc#::expression-subst*::t _%$args152504%_))) (define gxc#::expression-subst*-subst (let () (declare (not safe)) @@ -376,7 +376,7 @@ gxc#::expression-subst*::t 'subst))) (define gxc#::expression-subst*-bind-methods! - (let ((__tmp152302 + (let ((__tmp152576 (lambda () (force gxc#::basic-xform-expression-bind-methods!) (let () @@ -401,64 +401,64 @@ (declare (not safe)) (__seal-class! gxc#::expression-subst*::t))))) (declare (not safe)) - (__make-promise __tmp152302))) + (__make-promise __tmp152576))) (define gxc#apply-expression-subst*__% - (lambda (_%@@keywords152204%_ _%subst152201152205%_ _%stx152207%_) - (let ((_%subst152210%_ - (if (eq? _%subst152201152205%_ absent-value) + (lambda (_%@@keywords152478%_ _%subst152475152479%_ _%stx152481%_) + (let ((_%subst152484%_ + (if (eq? _%subst152475152479%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'subst:)) - _%subst152201152205%_))) + _%subst152475152479%_))) (force gxc#::expression-subst*-bind-methods!) - (let* ((_%self152212%_ - (let ((__obj152286 + (let* ((_%self152486%_ + (let ((__obj152560 (let () (declare (not safe)) (##structure gxc#::expression-subst*::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152286 - _%subst152210%_ + __obj152560 + _%subst152484%_ '1 '#f '#f)) - __obj152286)) - (__tmp152303 + __obj152560)) + (__tmp152577 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self152212%_ _%stx152207%_))))) + (gxc#compile-e__1 _%self152486%_ _%stx152481%_))))) (declare (not safe)) (__call-with-parameters - __tmp152303 + __tmp152577 gxc#current-compile-method - _%self152212%_))))) + _%self152486%_))))) (define gxc#apply-expression-subst*__@ - (lambda (_%@@keywords152219%_ . _%args152220%_) + (lambda (_%@@keywords152493%_ . _%args152494%_) (apply gxc#apply-expression-subst*__% - _%@@keywords152219%_ + _%@@keywords152493%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords152219%_ + _%@@keywords152493%_ 'subst: absent-value)) - _%args152220%_))) + _%args152494%_))) (define gxc#apply-expression-subst* - (lambda _%args152202152226%_ + (lambda _%args152476152500%_ (apply keyword-dispatch '#(subst:) gxc#apply-expression-subst*__@ - _%args152202152226%_))) + _%args152476152500%_))) (define gxc#::find-expression::t - (let ((__tmp152304 (list gxc#::false-expression::t))) + (let ((__tmp152578 (list gxc#::false-expression::t))) (declare (not safe)) (__make-class-type 'gxc#::find-expression::t '::find-expression - __tmp152304 + __tmp152578 '() '() '#f))) @@ -467,10 +467,10 @@ (declare (not safe)) (__make-class-predicate gxc#::find-expression::t))) (define gxc#make-::find-expression - (lambda _%$args152197%_ - (apply make-instance gxc#::find-expression::t _%$args152197%_))) + (lambda _%$args152471%_ + (apply make-instance gxc#::find-expression::t _%$args152471%_))) (define gxc#::find-expression-bind-methods! - (let ((__tmp152305 + (let ((__tmp152579 (lambda () (force gxc#::false-expression-bind-methods!) (let () @@ -588,25 +588,25 @@ '%#struct-unchecked-set! gxc#find-body%))))) (declare (not safe)) - (__make-promise __tmp152305))) + (__make-promise __tmp152579))) (define gxc#::find-var-refs::t - (let ((__tmp152307 (list gxc#::find-expression::t)) - (__tmp152306 (cons (cons 'final: '#t) '()))) + (let ((__tmp152581 (list gxc#::find-expression::t)) + (__tmp152580 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::find-var-refs::t '::find-var-refs - __tmp152307 + __tmp152581 '(ids) - __tmp152306 + __tmp152580 '#f))) (define gxc#::find-var-refs? (let () (declare (not safe)) (__make-class-predicate gxc#::find-var-refs::t))) (define gxc#make-::find-var-refs - (lambda _%$args152193%_ - (apply make-instance gxc#::find-var-refs::t _%$args152193%_))) + (lambda _%$args152467%_ + (apply make-instance gxc#::find-var-refs::t _%$args152467%_))) (define gxc#::find-var-refs-ids (let () (declare (not safe)) @@ -624,7 +624,7 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#::find-var-refs::t 'ids))) (define gxc#::find-var-refs-bind-methods! - (let ((__tmp152308 + (let ((__tmp152582 (lambda () (force gxc#::find-expression-bind-methods!) (let () @@ -643,72 +643,72 @@ (declare (not safe)) (__seal-class! gxc#::find-var-refs::t))))) (declare (not safe)) - (__make-promise __tmp152308))) + (__make-promise __tmp152582))) (define gxc#apply-find-var-refs__% - (lambda (_%@@keywords152167%_ _%ids152164152168%_ _%stx152170%_) - (let ((_%ids152173%_ - (if (eq? _%ids152164152168%_ absent-value) + (lambda (_%@@keywords152441%_ _%ids152438152442%_ _%stx152444%_) + (let ((_%ids152447%_ + (if (eq? _%ids152438152442%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'ids:)) - _%ids152164152168%_))) + _%ids152438152442%_))) (force gxc#::find-var-refs-bind-methods!) - (let* ((_%self152175%_ - (let ((__obj152289 + (let* ((_%self152449%_ + (let ((__obj152563 (let () (declare (not safe)) (##structure gxc#::find-var-refs::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152289 - _%ids152173%_ + __obj152563 + _%ids152447%_ '1 '#f '#f)) - __obj152289)) - (__tmp152309 + __obj152563)) + (__tmp152583 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self152175%_ _%stx152170%_))))) + (gxc#compile-e__1 _%self152449%_ _%stx152444%_))))) (declare (not safe)) (__call-with-parameters - __tmp152309 + __tmp152583 gxc#current-compile-method - _%self152175%_))))) + _%self152449%_))))) (define gxc#apply-find-var-refs__@ - (lambda (_%@@keywords152182%_ . _%args152183%_) + (lambda (_%@@keywords152456%_ . _%args152457%_) (apply gxc#apply-find-var-refs__% - _%@@keywords152182%_ + _%@@keywords152456%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords152182%_ 'ids: absent-value)) - _%args152183%_))) + (symbolic-table-ref _%@@keywords152456%_ 'ids: absent-value)) + _%args152457%_))) (define gxc#apply-find-var-refs - (lambda _%args152165152189%_ + (lambda _%args152439152463%_ (apply keyword-dispatch '#(ids:) gxc#apply-find-var-refs__@ - _%args152165152189%_))) + _%args152439152463%_))) (define gxc#::collect-runtime-refs::t - (let ((__tmp152311 (list gxc#::collect-expression-refs::t)) - (__tmp152310 (cons (cons 'final: '#t) '()))) + (let ((__tmp152585 (list gxc#::collect-expression-refs::t)) + (__tmp152584 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-runtime-refs::t '::collect-runtime-refs - __tmp152311 + __tmp152585 '() - __tmp152310 + __tmp152584 '#f))) (define gxc#::collect-runtime-refs? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-runtime-refs::t))) (define gxc#make-::collect-runtime-refs - (lambda _%$args152160%_ - (apply make-instance gxc#::collect-runtime-refs::t _%$args152160%_))) + (lambda _%$args152434%_ + (apply make-instance gxc#::collect-runtime-refs::t _%$args152434%_))) (define gxc#::collect-runtime-refs-table (let () (declare (not safe)) @@ -730,7 +730,7 @@ gxc#::collect-runtime-refs::t 'table))) (define gxc#::collect-runtime-refs-bind-methods! - (let ((__tmp152312 + (let ((__tmp152586 (lambda () (force gxc#::collect-expression-refs-bind-methods!) (let () @@ -749,1158 +749,1158 @@ (declare (not safe)) (__seal-class! gxc#::collect-runtime-refs::t))))) (declare (not safe)) - (__make-promise __tmp152312))) + (__make-promise __tmp152586))) (define gxc#apply-collect-runtime-refs__% - (lambda (_%@@keywords152134%_ _%table152131152135%_ _%stx152137%_) - (let ((_%table152140%_ - (if (eq? _%table152131152135%_ absent-value) + (lambda (_%@@keywords152408%_ _%table152405152409%_ _%stx152411%_) + (let ((_%table152414%_ + (if (eq? _%table152405152409%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'table:)) - _%table152131152135%_))) + _%table152405152409%_))) (force gxc#::collect-runtime-refs-bind-methods!) - (let* ((_%self152142%_ - (let ((__obj152291 + (let* ((_%self152416%_ + (let ((__obj152565 (let () (declare (not safe)) (##structure gxc#::collect-runtime-refs::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152291 - _%table152140%_ + __obj152565 + _%table152414%_ '1 '#f '#f)) - __obj152291)) - (__tmp152313 + __obj152565)) + (__tmp152587 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self152142%_ _%stx152137%_))))) + (gxc#compile-e__1 _%self152416%_ _%stx152411%_))))) (declare (not safe)) (__call-with-parameters - __tmp152313 + __tmp152587 gxc#current-compile-method - _%self152142%_))))) + _%self152416%_))))) (define gxc#apply-collect-runtime-refs__@ - (lambda (_%@@keywords152149%_ . _%args152150%_) + (lambda (_%@@keywords152423%_ . _%args152424%_) (apply gxc#apply-collect-runtime-refs__% - _%@@keywords152149%_ + _%@@keywords152423%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords152149%_ + _%@@keywords152423%_ 'table: absent-value)) - _%args152150%_))) + _%args152424%_))) (define gxc#apply-collect-runtime-refs - (lambda _%args152132152156%_ + (lambda _%args152406152430%_ (apply keyword-dispatch '#(table:) gxc#apply-collect-runtime-refs__@ - _%args152132152156%_))) + _%args152406152430%_))) (define gxc#collect-mutators-setq% - (lambda (_%self152060%_ _%stx152061%_) - (let* ((_%g152063152080%_ - (lambda (_%g152064152077%_) + (lambda (_%self152334%_ _%stx152335%_) + (let* ((_%g152337152354%_ + (lambda (_%g152338152351%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152064152077%_)))) - (_%g152062152127%_ - (lambda (_%g152064152083%_) + _%g152338152351%_)))) + (_%g152336152401%_ + (lambda (_%g152338152357%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g152064152083%_)) - (let ((_%e152067152085%_ + (gx#stx-pair? _%g152338152357%_)) + (let ((_%e152341152359%_ (let () (declare (not safe)) - (gx#stx-e _%g152064152083%_)))) - (let ((_%hd152068152088%_ + (gx#stx-e _%g152338152357%_)))) + (let ((_%hd152342152362%_ (let () (declare (not safe)) - (##car _%e152067152085%_))) - (_%tl152069152090%_ + (##car _%e152341152359%_))) + (_%tl152343152364%_ (let () (declare (not safe)) - (##cdr _%e152067152085%_)))) + (##cdr _%e152341152359%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152069152090%_)) - (let ((_%e152070152093%_ + (gx#stx-pair? _%tl152343152364%_)) + (let ((_%e152344152367%_ (let () (declare (not safe)) - (gx#stx-e _%tl152069152090%_)))) - (let ((_%hd152071152096%_ + (gx#stx-e _%tl152343152364%_)))) + (let ((_%hd152345152370%_ (let () (declare (not safe)) - (##car _%e152070152093%_))) - (_%tl152072152098%_ + (##car _%e152344152367%_))) + (_%tl152346152372%_ (let () (declare (not safe)) - (##cdr _%e152070152093%_)))) + (##cdr _%e152344152367%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152072152098%_)) - (let ((_%e152073152101%_ + (gx#stx-pair? _%tl152346152372%_)) + (let ((_%e152347152375%_ (let () (declare (not safe)) - (gx#stx-e _%tl152072152098%_)))) - (let ((_%hd152074152104%_ + (gx#stx-e _%tl152346152372%_)))) + (let ((_%hd152348152378%_ (let () (declare (not safe)) - (##car _%e152073152101%_))) - (_%tl152075152106%_ + (##car _%e152347152375%_))) + (_%tl152349152380%_ (let () (declare (not safe)) - (##cdr _%e152073152101%_)))) + (##cdr _%e152347152375%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152075152106%_)) - ((lambda (_%L152109%_ - _%L152110%_) - (let ((_%sym152125%_ + _%tl152349152380%_)) + ((lambda (_%L152383%_ + _%L152384%_) + (let ((_%sym152399%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L152110%_)))) + _%L152384%_)))) (let () (declare (not safe)) (gxc#verbose '"collect mutator " - _%sym152125%_)) - (let ((__tmp152314 + _%sym152399%_)) + (let ((__tmp152588 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) (hash-put! - __tmp152314 - _%sym152125%_ + __tmp152588 + _%sym152399%_ '#t)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self152060%_ - _%L152109%_)))) - _%hd152074152104%_ - _%hd152071152096%_) - (_%g152063152080%_ - _%g152064152083%_)))) - (_%g152063152080%_ _%g152064152083%_)))) - (_%g152063152080%_ _%g152064152083%_)))) - (_%g152063152080%_ _%g152064152083%_))))) - (_%g152062152127%_ _%stx152061%_)))) + _%self152334%_ + _%L152383%_)))) + _%hd152348152378%_ + _%hd152345152370%_) + (_%g152337152354%_ + _%g152338152357%_)))) + (_%g152337152354%_ _%g152338152357%_)))) + (_%g152337152354%_ _%g152338152357%_)))) + (_%g152337152354%_ _%g152338152357%_))))) + (_%g152336152401%_ _%stx152335%_)))) (define gxc#expression-subst-ref% - (lambda (_%self152008%_ _%stx152009%_) - (let* ((_%g152011152024%_ - (lambda (_%g152012152021%_) + (lambda (_%self152282%_ _%stx152283%_) + (let* ((_%g152285152298%_ + (lambda (_%g152286152295%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152012152021%_)))) - (_%g152010152057%_ - (lambda (_%g152012152027%_) + _%g152286152295%_)))) + (_%g152284152331%_ + (lambda (_%g152286152301%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g152012152027%_)) - (let ((_%e152014152029%_ + (gx#stx-pair? _%g152286152301%_)) + (let ((_%e152288152303%_ (let () (declare (not safe)) - (gx#stx-e _%g152012152027%_)))) - (let ((_%hd152015152032%_ + (gx#stx-e _%g152286152301%_)))) + (let ((_%hd152289152306%_ (let () (declare (not safe)) - (##car _%e152014152029%_))) - (_%tl152016152034%_ + (##car _%e152288152303%_))) + (_%tl152290152308%_ (let () (declare (not safe)) - (##cdr _%e152014152029%_)))) + (##cdr _%e152288152303%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152016152034%_)) - (let ((_%e152017152037%_ + (gx#stx-pair? _%tl152290152308%_)) + (let ((_%e152291152311%_ (let () (declare (not safe)) - (gx#stx-e _%tl152016152034%_)))) - (let ((_%hd152018152040%_ + (gx#stx-e _%tl152290152308%_)))) + (let ((_%hd152292152314%_ (let () (declare (not safe)) - (##car _%e152017152037%_))) - (_%tl152019152042%_ + (##car _%e152291152311%_))) + (_%tl152293152316%_ (let () (declare (not safe)) - (##cdr _%e152017152037%_)))) + (##cdr _%e152291152311%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152019152042%_)) - ((lambda (_%L152045%_) - (if (let ((__tmp152315 + (gx#stx-null? _%tl152293152316%_)) + ((lambda (_%L152319%_) + (if (let ((__tmp152589 (let () (declare (not safe)) (slot-ref__0 - _%self152008%_ + _%self152282%_ 'id)))) (declare (not safe)) (gx#free-identifier=? - _%L152045%_ - __tmp152315)) - (let ((__tmp152316 + _%L152319%_ + __tmp152589)) + (let ((__tmp152590 (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self152008%_ 'new-id)) + (slot-ref__0 _%self152282%_ 'new-id)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp152316 - _%stx152009%_)) - _%stx152009%_)) - _%hd152018152040%_) - (_%g152011152024%_ _%g152012152027%_)))) - (_%g152011152024%_ _%g152012152027%_)))) - (_%g152011152024%_ _%g152012152027%_))))) - (_%g152010152057%_ _%stx152009%_)))) + __tmp152590 + _%stx152283%_)) + _%stx152283%_)) + _%hd152292152314%_) + (_%g152285152298%_ _%g152286152301%_)))) + (_%g152285152298%_ _%g152286152301%_)))) + (_%g152285152298%_ _%g152286152301%_))))) + (_%g152284152331%_ _%stx152283%_)))) (define gxc#expression-subst*-ref% - (lambda (_%self151948%_ _%stx151949%_) - (let* ((_%g151951151964%_ - (lambda (_%g151952151961%_) + (lambda (_%self152222%_ _%stx152223%_) + (let* ((_%g152225152238%_ + (lambda (_%g152226152235%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g151952151961%_)))) - (_%g151950152005%_ - (lambda (_%g151952151967%_) + _%g152226152235%_)))) + (_%g152224152279%_ + (lambda (_%g152226152241%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g151952151967%_)) - (let ((_%e151954151969%_ + (gx#stx-pair? _%g152226152241%_)) + (let ((_%e152228152243%_ (let () (declare (not safe)) - (gx#stx-e _%g151952151967%_)))) - (let ((_%hd151955151972%_ + (gx#stx-e _%g152226152241%_)))) + (let ((_%hd152229152246%_ (let () (declare (not safe)) - (##car _%e151954151969%_))) - (_%tl151956151974%_ + (##car _%e152228152243%_))) + (_%tl152230152248%_ (let () (declare (not safe)) - (##cdr _%e151954151969%_)))) + (##cdr _%e152228152243%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151956151974%_)) - (let ((_%e151957151977%_ + (gx#stx-pair? _%tl152230152248%_)) + (let ((_%e152231152251%_ (let () (declare (not safe)) - (gx#stx-e _%tl151956151974%_)))) - (let ((_%hd151958151980%_ + (gx#stx-e _%tl152230152248%_)))) + (let ((_%hd152232152254%_ (let () (declare (not safe)) - (##car _%e151957151977%_))) - (_%tl151959151982%_ + (##car _%e152231152251%_))) + (_%tl152233152256%_ (let () (declare (not safe)) - (##cdr _%e151957151977%_)))) + (##cdr _%e152231152251%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151959151982%_)) - ((lambda (_%L151985%_) - (let ((_%$e151999%_ - (let ((__tmp152318 - (lambda (_%sub151997%_) - (let ((__tmp152319 - (car _%sub151997%_))) + (gx#stx-null? _%tl152233152256%_)) + ((lambda (_%L152259%_) + (let ((_%$e152273%_ + (let ((__tmp152592 + (lambda (_%sub152271%_) + (let ((__tmp152593 + (car _%sub152271%_))) (declare (not safe)) (gx#free-identifier=? - _%L151985%_ - __tmp152319)))) - (__tmp152317 + _%L152259%_ + __tmp152593)))) + (__tmp152591 (let () (declare (not safe)) (slot-ref__0 - _%self151948%_ + _%self152222%_ 'subst)))) (declare (not safe)) - (__find __tmp152318 - __tmp152317)))) - (if _%$e151999%_ - ((lambda (_%sub152002%_) - (let ((__tmp152320 + (__find __tmp152592 + __tmp152591)))) + (if _%$e152273%_ + ((lambda (_%sub152276%_) + (let ((__tmp152594 (cons '%#ref - (cons (cdr _%sub152002%_) + (cons (cdr _%sub152276%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp152320 - _%stx151949%_))) - _%$e151999%_) - _%stx151949%_))) - _%hd151958151980%_) - (_%g151951151964%_ _%g151952151967%_)))) - (_%g151951151964%_ _%g151952151967%_)))) - (_%g151951151964%_ _%g151952151967%_))))) - (_%g151950152005%_ _%stx151949%_)))) + __tmp152594 + _%stx152223%_))) + _%$e152273%_) + _%stx152223%_))) + _%hd152232152254%_) + (_%g152225152238%_ _%g152226152241%_)))) + (_%g152225152238%_ _%g152226152241%_)))) + (_%g152225152238%_ _%g152226152241%_))))) + (_%g152224152279%_ _%stx152223%_)))) (define gxc#expression-subst-setq% - (lambda (_%self151877%_ _%stx151878%_) - (let* ((_%g151880151897%_ - (lambda (_%g151881151894%_) + (lambda (_%self152151%_ _%stx152152%_) + (let* ((_%g152154152171%_ + (lambda (_%g152155152168%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g151881151894%_)))) - (_%g151879151945%_ - (lambda (_%g151881151900%_) + _%g152155152168%_)))) + (_%g152153152219%_ + (lambda (_%g152155152174%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g151881151900%_)) - (let ((_%e151884151902%_ + (gx#stx-pair? _%g152155152174%_)) + (let ((_%e152158152176%_ (let () (declare (not safe)) - (gx#stx-e _%g151881151900%_)))) - (let ((_%hd151885151905%_ + (gx#stx-e _%g152155152174%_)))) + (let ((_%hd152159152179%_ (let () (declare (not safe)) - (##car _%e151884151902%_))) - (_%tl151886151907%_ + (##car _%e152158152176%_))) + (_%tl152160152181%_ (let () (declare (not safe)) - (##cdr _%e151884151902%_)))) + (##cdr _%e152158152176%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151886151907%_)) - (let ((_%e151887151910%_ + (gx#stx-pair? _%tl152160152181%_)) + (let ((_%e152161152184%_ (let () (declare (not safe)) - (gx#stx-e _%tl151886151907%_)))) - (let ((_%hd151888151913%_ + (gx#stx-e _%tl152160152181%_)))) + (let ((_%hd152162152187%_ (let () (declare (not safe)) - (##car _%e151887151910%_))) - (_%tl151889151915%_ + (##car _%e152161152184%_))) + (_%tl152163152189%_ (let () (declare (not safe)) - (##cdr _%e151887151910%_)))) + (##cdr _%e152161152184%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151889151915%_)) - (let ((_%e151890151918%_ + (gx#stx-pair? _%tl152163152189%_)) + (let ((_%e152164152192%_ (let () (declare (not safe)) - (gx#stx-e _%tl151889151915%_)))) - (let ((_%hd151891151921%_ + (gx#stx-e _%tl152163152189%_)))) + (let ((_%hd152165152195%_ (let () (declare (not safe)) - (##car _%e151890151918%_))) - (_%tl151892151923%_ + (##car _%e152164152192%_))) + (_%tl152166152197%_ (let () (declare (not safe)) - (##cdr _%e151890151918%_)))) + (##cdr _%e152164152192%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl151892151923%_)) - ((lambda (_%L151926%_ - _%L151927%_) - (let ((_%new-expr151942%_ + _%tl152166152197%_)) + ((lambda (_%L152200%_ + _%L152201%_) + (let ((_%new-expr152216%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self151877%_ - _%L151926%_))) - (_%new-xid151943%_ - (if (let ((__tmp152321 + _%self152151%_ + _%L152200%_))) + (_%new-xid152217%_ + (if (let ((__tmp152595 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (slot-ref__0 _%self151877%_ 'id)))) + (slot-ref__0 _%self152151%_ 'id)))) (declare (not safe)) - (gx#free-identifier=? _%L151927%_ __tmp152321)) + (gx#free-identifier=? _%L152201%_ __tmp152595)) (let () (declare (not safe)) - (slot-ref__0 _%self151877%_ 'new-id)) - _%L151927%_))) + (slot-ref__0 _%self152151%_ 'new-id)) + _%L152201%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp152322 + (let ((__tmp152596 (cons '%#set! - (cons _%new-xid151943%_ + (cons _%new-xid152217%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%new-expr151942%_ '()))))) + (cons _%new-expr152216%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp152322 - _%stx151878%_)))) - _%hd151891151921%_ - _%hd151888151913%_) - (_%g151880151897%_ - _%g151881151900%_)))) - (_%g151880151897%_ _%g151881151900%_)))) - (_%g151880151897%_ _%g151881151900%_)))) - (_%g151880151897%_ _%g151881151900%_))))) - (_%g151879151945%_ _%stx151878%_)))) + __tmp152596 + _%stx152152%_)))) + _%hd152165152195%_ + _%hd152162152187%_) + (_%g152154152171%_ + _%g152155152174%_)))) + (_%g152154152171%_ _%g152155152174%_)))) + (_%g152154152171%_ _%g152155152174%_)))) + (_%g152154152171%_ _%g152155152174%_))))) + (_%g152153152219%_ _%stx152152%_)))) (define gxc#expression-subst*-setq% - (lambda (_%self151800%_ _%stx151801%_) - (let* ((_%g151803151820%_ - (lambda (_%g151804151817%_) + (lambda (_%self152074%_ _%stx152075%_) + (let* ((_%g152077152094%_ + (lambda (_%g152078152091%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g151804151817%_)))) - (_%g151802151874%_ - (lambda (_%g151804151823%_) + _%g152078152091%_)))) + (_%g152076152148%_ + (lambda (_%g152078152097%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g151804151823%_)) - (let ((_%e151807151825%_ + (gx#stx-pair? _%g152078152097%_)) + (let ((_%e152081152099%_ (let () (declare (not safe)) - (gx#stx-e _%g151804151823%_)))) - (let ((_%hd151808151828%_ + (gx#stx-e _%g152078152097%_)))) + (let ((_%hd152082152102%_ (let () (declare (not safe)) - (##car _%e151807151825%_))) - (_%tl151809151830%_ + (##car _%e152081152099%_))) + (_%tl152083152104%_ (let () (declare (not safe)) - (##cdr _%e151807151825%_)))) + (##cdr _%e152081152099%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151809151830%_)) - (let ((_%e151810151833%_ + (gx#stx-pair? _%tl152083152104%_)) + (let ((_%e152084152107%_ (let () (declare (not safe)) - (gx#stx-e _%tl151809151830%_)))) - (let ((_%hd151811151836%_ + (gx#stx-e _%tl152083152104%_)))) + (let ((_%hd152085152110%_ (let () (declare (not safe)) - (##car _%e151810151833%_))) - (_%tl151812151838%_ + (##car _%e152084152107%_))) + (_%tl152086152112%_ (let () (declare (not safe)) - (##cdr _%e151810151833%_)))) + (##cdr _%e152084152107%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151812151838%_)) - (let ((_%e151813151841%_ + (gx#stx-pair? _%tl152086152112%_)) + (let ((_%e152087152115%_ (let () (declare (not safe)) - (gx#stx-e _%tl151812151838%_)))) - (let ((_%hd151814151844%_ + (gx#stx-e _%tl152086152112%_)))) + (let ((_%hd152088152118%_ (let () (declare (not safe)) - (##car _%e151813151841%_))) - (_%tl151815151846%_ + (##car _%e152087152115%_))) + (_%tl152089152120%_ (let () (declare (not safe)) - (##cdr _%e151813151841%_)))) + (##cdr _%e152087152115%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl151815151846%_)) - ((lambda (_%L151849%_ - _%L151850%_) - (let ((_%new-expr151871%_ + _%tl152089152120%_)) + ((lambda (_%L152123%_ + _%L152124%_) + (let ((_%new-expr152145%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self151800%_ - _%L151849%_))) - (_%new-xid151872%_ - (let ((_%$e151867%_ - (let ((__tmp152324 + _%self152074%_ + _%L152123%_))) + (_%new-xid152146%_ + (let ((_%$e152141%_ + (let ((__tmp152598 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%sub151865%_) - (let ((__tmp152325 (car _%sub151865%_))) + (lambda (_%sub152139%_) + (let ((__tmp152599 (car _%sub152139%_))) (declare (not safe)) (gx#free-identifier=? - _%L151850%_ - __tmp152325)))) - (__tmp152323 + _%L152124%_ + __tmp152599)))) + (__tmp152597 (let () (declare (not safe)) - (slot-ref__0 _%self151800%_ 'subst)))) + (slot-ref__0 _%self152074%_ 'subst)))) (declare (not safe)) - (__find __tmp152324 __tmp152323)))) - (if _%$e151867%_ (cdr _%$e151867%_) _%L151850%_)))) + (__find __tmp152598 __tmp152597)))) + (if _%$e152141%_ (cdr _%$e152141%_) _%L152124%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp152326 + (let ((__tmp152600 (cons '%#set! - (cons _%new-xid151872%_ + (cons _%new-xid152146%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%new-expr151871%_ '()))))) + (cons _%new-expr152145%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp152326 - _%stx151801%_)))) - _%hd151814151844%_ - _%hd151811151836%_) - (_%g151803151820%_ - _%g151804151823%_)))) - (_%g151803151820%_ _%g151804151823%_)))) - (_%g151803151820%_ _%g151804151823%_)))) - (_%g151803151820%_ _%g151804151823%_))))) - (_%g151802151874%_ _%stx151801%_)))) + __tmp152600 + _%stx152075%_)))) + _%hd152088152118%_ + _%hd152085152110%_) + (_%g152077152094%_ + _%g152078152097%_)))) + (_%g152077152094%_ _%g152078152097%_)))) + (_%g152077152094%_ _%g152078152097%_)))) + (_%g152077152094%_ _%g152078152097%_))))) + (_%g152076152148%_ _%stx152075%_)))) (define gxc#collect-runtime-refs-ref% - (lambda (_%self151746%_ _%stx151747%_) - (let* ((_%g151749151762%_ - (lambda (_%g151750151759%_) + (lambda (_%self152020%_ _%stx152021%_) + (let* ((_%g152023152036%_ + (lambda (_%g152024152033%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g151750151759%_)))) - (_%g151748151797%_ - (lambda (_%g151750151765%_) + _%g152024152033%_)))) + (_%g152022152071%_ + (lambda (_%g152024152039%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g151750151765%_)) - (let ((_%e151752151767%_ + (gx#stx-pair? _%g152024152039%_)) + (let ((_%e152026152041%_ (let () (declare (not safe)) - (gx#stx-e _%g151750151765%_)))) - (let ((_%hd151753151770%_ + (gx#stx-e _%g152024152039%_)))) + (let ((_%hd152027152044%_ (let () (declare (not safe)) - (##car _%e151752151767%_))) - (_%tl151754151772%_ + (##car _%e152026152041%_))) + (_%tl152028152046%_ (let () (declare (not safe)) - (##cdr _%e151752151767%_)))) + (##cdr _%e152026152041%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151754151772%_)) - (let ((_%e151755151775%_ + (gx#stx-pair? _%tl152028152046%_)) + (let ((_%e152029152049%_ (let () (declare (not safe)) - (gx#stx-e _%tl151754151772%_)))) - (let ((_%hd151756151778%_ + (gx#stx-e _%tl152028152046%_)))) + (let ((_%hd152030152052%_ (let () (declare (not safe)) - (##car _%e151755151775%_))) - (_%tl151757151780%_ + (##car _%e152029152049%_))) + (_%tl152031152054%_ (let () (declare (not safe)) - (##cdr _%e151755151775%_)))) + (##cdr _%e152029152049%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151757151780%_)) - ((lambda (_%L151783%_) - (let* ((_%eid151795%_ + (gx#stx-null? _%tl152031152054%_)) + ((lambda (_%L152057%_) + (let* ((_%eid152069%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L151783%_))) - (__tmp152327 + _%L152057%_))) + (__tmp152601 (let () (declare (not safe)) (slot-ref__0 - _%self151746%_ + _%self152020%_ 'table)))) (declare (not safe)) (hash-update!__% - __tmp152327 - _%eid151795%_ + __tmp152601 + _%eid152069%_ 1+ '0))) - _%hd151756151778%_) - (_%g151749151762%_ _%g151750151765%_)))) - (_%g151749151762%_ _%g151750151765%_)))) - (_%g151749151762%_ _%g151750151765%_))))) - (_%g151748151797%_ _%stx151747%_)))) + _%hd152030152052%_) + (_%g152023152036%_ _%g152024152039%_)))) + (_%g152023152036%_ _%g152024152039%_)))) + (_%g152023152036%_ _%g152024152039%_))))) + (_%g152022152071%_ _%stx152021%_)))) (define gxc#collect-runtime-refs-setq% - (lambda (_%self151676%_ _%stx151677%_) - (let* ((_%g151679151696%_ - (lambda (_%g151680151693%_) + (lambda (_%self151950%_ _%stx151951%_) + (let* ((_%g151953151970%_ + (lambda (_%g151954151967%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g151680151693%_)))) - (_%g151678151743%_ - (lambda (_%g151680151699%_) + _%g151954151967%_)))) + (_%g151952152017%_ + (lambda (_%g151954151973%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g151680151699%_)) - (let ((_%e151683151701%_ + (gx#stx-pair? _%g151954151973%_)) + (let ((_%e151957151975%_ (let () (declare (not safe)) - (gx#stx-e _%g151680151699%_)))) - (let ((_%hd151684151704%_ + (gx#stx-e _%g151954151973%_)))) + (let ((_%hd151958151978%_ (let () (declare (not safe)) - (##car _%e151683151701%_))) - (_%tl151685151706%_ + (##car _%e151957151975%_))) + (_%tl151959151980%_ (let () (declare (not safe)) - (##cdr _%e151683151701%_)))) + (##cdr _%e151957151975%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151685151706%_)) - (let ((_%e151686151709%_ + (gx#stx-pair? _%tl151959151980%_)) + (let ((_%e151960151983%_ (let () (declare (not safe)) - (gx#stx-e _%tl151685151706%_)))) - (let ((_%hd151687151712%_ + (gx#stx-e _%tl151959151980%_)))) + (let ((_%hd151961151986%_ (let () (declare (not safe)) - (##car _%e151686151709%_))) - (_%tl151688151714%_ + (##car _%e151960151983%_))) + (_%tl151962151988%_ (let () (declare (not safe)) - (##cdr _%e151686151709%_)))) + (##cdr _%e151960151983%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151688151714%_)) - (let ((_%e151689151717%_ + (gx#stx-pair? _%tl151962151988%_)) + (let ((_%e151963151991%_ (let () (declare (not safe)) - (gx#stx-e _%tl151688151714%_)))) - (let ((_%hd151690151720%_ + (gx#stx-e _%tl151962151988%_)))) + (let ((_%hd151964151994%_ (let () (declare (not safe)) - (##car _%e151689151717%_))) - (_%tl151691151722%_ + (##car _%e151963151991%_))) + (_%tl151965151996%_ (let () (declare (not safe)) - (##cdr _%e151689151717%_)))) + (##cdr _%e151963151991%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl151691151722%_)) - ((lambda (_%L151725%_ - _%L151726%_) - (let ((_%eid151741%_ + _%tl151965151996%_)) + ((lambda (_%L151999%_ + _%L152000%_) + (let ((_%eid152015%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L151726%_)))) - (let ((__tmp152328 + _%L152000%_)))) + (let ((__tmp152602 (let () (declare (not safe)) (slot-ref__0 - _%self151676%_ + _%self151950%_ 'table)))) (declare (not safe)) (hash-update!__% - __tmp152328 - _%eid151741%_ + __tmp152602 + _%eid152015%_ 1+ '0)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self151676%_ - _%L151725%_)))) - _%hd151690151720%_ - _%hd151687151712%_) - (_%g151679151696%_ - _%g151680151699%_)))) - (_%g151679151696%_ _%g151680151699%_)))) - (_%g151679151696%_ _%g151680151699%_)))) - (_%g151679151696%_ _%g151680151699%_))))) - (_%g151678151743%_ _%stx151677%_)))) + _%self151950%_ + _%L151999%_)))) + _%hd151964151994%_ + _%hd151961151986%_) + (_%g151953151970%_ + _%g151954151973%_)))) + (_%g151953151970%_ _%g151954151973%_)))) + (_%g151953151970%_ _%g151954151973%_)))) + (_%g151953151970%_ _%g151954151973%_))))) + (_%g151952152017%_ _%stx151951%_)))) (define gxc#find-body% - (lambda (_%self151589%_ _%stx151590%_) - (let* ((_%g151592151611%_ - (lambda (_%g151593151608%_) + (lambda (_%self151863%_ _%stx151864%_) + (let* ((_%g151866151885%_ + (lambda (_%g151867151882%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g151593151608%_)))) - (_%g151591151673%_ - (lambda (_%g151593151614%_) + _%g151867151882%_)))) + (_%g151865151947%_ + (lambda (_%g151867151888%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g151593151614%_)) - (let ((_%e151595151616%_ + (gx#stx-pair? _%g151867151888%_)) + (let ((_%e151869151890%_ (let () (declare (not safe)) - (gx#stx-e _%g151593151614%_)))) - (let ((_%hd151596151619%_ + (gx#stx-e _%g151867151888%_)))) + (let ((_%hd151870151893%_ (let () (declare (not safe)) - (##car _%e151595151616%_))) - (_%tl151597151621%_ + (##car _%e151869151890%_))) + (_%tl151871151895%_ (let () (declare (not safe)) - (##cdr _%e151595151616%_)))) + (##cdr _%e151869151890%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl151597151621%_)) - (let ((_g152329_ + (gx#stx-pair/null? _%tl151871151895%_)) + (let ((_g152603_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl151597151621%_ + _%tl151871151895%_ '0)))) (begin - (let ((_g152330_ + (let ((_g152604_ (let () (declare (not safe)) - (if (##values? _g152329_) - (##vector-length _g152329_) + (if (##values? _g152603_) + (##vector-length _g152603_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g152330_ 2))) + (##fx= _g152604_ 2))) (error "Context expects 2 values" - _g152330_))) - (let ((_%target151598151624%_ + _g152604_))) + (let ((_%target151872151898%_ (let () (declare (not safe)) - (##vector-ref _g152329_ 0))) - (_%tl151600151626%_ + (##vector-ref _g152603_ 0))) + (_%tl151874151900%_ (let () (declare (not safe)) - (##vector-ref _g152329_ 1)))) + (##vector-ref _g152603_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151600151626%_)) - (letrec ((_%loop151601151629%_ - (lambda (_%hd151599151632%_ - _%expr151605151634%_) + (gx#stx-null? _%tl151874151900%_)) + (letrec ((_%loop151875151903%_ + (lambda (_%hd151873151906%_ + _%expr151879151908%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd151599151632%_)) - (let ((_%e151602151637%_ + _%hd151873151906%_)) + (let ((_%e151876151911%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd151599151632%_)))) - (let ((_%lp-hd151603151640%_ + (gx#stx-e _%hd151873151906%_)))) + (let ((_%lp-hd151877151914%_ (let () (declare (not safe)) - (##car _%e151602151637%_))) - (_%lp-tl151604151642%_ + (##car _%e151876151911%_))) + (_%lp-tl151878151916%_ (let () (declare (not safe)) - (##cdr _%e151602151637%_)))) - (_%loop151601151629%_ - _%lp-tl151604151642%_ - (cons _%lp-hd151603151640%_ _%expr151605151634%_)))) - (let ((_%expr151606151645%_ (reverse _%expr151605151634%_))) - ((lambda (_%L151648%_) - (let ((__tmp152333 - (lambda (_%g151661151663%_) + (##cdr _%e151876151911%_)))) + (_%loop151875151903%_ + _%lp-tl151878151916%_ + (cons _%lp-hd151877151914%_ _%expr151879151908%_)))) + (let ((_%expr151880151919%_ (reverse _%expr151879151908%_))) + ((lambda (_%L151922%_) + (let ((__tmp152607 + (lambda (_%g151935151937%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self151589%_ - _%g151661151663%_)))) - (__tmp152331 - (let ((__tmp152332 - (lambda (_%g151665151668%_ - _%g151666151670%_) - (cons _%g151665151668%_ - _%g151666151670%_)))) + _%self151863%_ + _%g151935151937%_)))) + (__tmp152605 + (let ((__tmp152606 + (lambda (_%g151939151942%_ + _%g151940151944%_) + (cons _%g151939151942%_ + _%g151940151944%_)))) (declare (not safe)) - (__foldr1 __tmp152332 '() _%L151648%_)))) + (__foldr1 __tmp152606 '() _%L151922%_)))) (declare (not safe)) - (__ormap1 __tmp152333 __tmp152331))) - _%expr151606151645%_)))))) + (__ormap1 __tmp152607 __tmp152605))) + _%expr151880151919%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop151601151629%_ - _%target151598151624%_ + (_%loop151875151903%_ + _%target151872151898%_ '())) - (_%g151592151611%_ - _%g151593151614%_))))) - (_%g151592151611%_ _%g151593151614%_)))) - (_%g151592151611%_ _%g151593151614%_))))) - (_%g151591151673%_ _%stx151590%_)))) + (_%g151866151885%_ + _%g151867151888%_))))) + (_%g151866151885%_ _%g151867151888%_)))) + (_%g151866151885%_ _%g151867151888%_))))) + (_%g151865151947%_ _%stx151864%_)))) (define gxc#find-let-values% - (lambda (_%self151439%_ _%stx151440%_) - (let* ((_%g151442151477%_ - (lambda (_%g151443151474%_) + (lambda (_%self151713%_ _%stx151714%_) + (let* ((_%g151716151751%_ + (lambda (_%g151717151748%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g151443151474%_)))) - (_%g151441151586%_ - (lambda (_%g151443151480%_) + _%g151717151748%_)))) + (_%g151715151860%_ + (lambda (_%g151717151754%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g151443151480%_)) - (let ((_%e151447151482%_ + (gx#stx-pair? _%g151717151754%_)) + (let ((_%e151721151756%_ (let () (declare (not safe)) - (gx#stx-e _%g151443151480%_)))) - (let ((_%hd151448151485%_ + (gx#stx-e _%g151717151754%_)))) + (let ((_%hd151722151759%_ (let () (declare (not safe)) - (##car _%e151447151482%_))) - (_%tl151449151487%_ + (##car _%e151721151756%_))) + (_%tl151723151761%_ (let () (declare (not safe)) - (##cdr _%e151447151482%_)))) + (##cdr _%e151721151756%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151449151487%_)) - (let ((_%e151450151490%_ + (gx#stx-pair? _%tl151723151761%_)) + (let ((_%e151724151764%_ (let () (declare (not safe)) - (gx#stx-e _%tl151449151487%_)))) - (let ((_%hd151451151493%_ + (gx#stx-e _%tl151723151761%_)))) + (let ((_%hd151725151767%_ (let () (declare (not safe)) - (##car _%e151450151490%_))) - (_%tl151452151495%_ + (##car _%e151724151764%_))) + (_%tl151726151769%_ (let () (declare (not safe)) - (##cdr _%e151450151490%_)))) + (##cdr _%e151724151764%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd151451151493%_)) - (let ((_g152334_ + (gx#stx-pair/null? _%hd151725151767%_)) + (let ((_g152608_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd151451151493%_ + _%hd151725151767%_ '0)))) (begin - (let ((_g152335_ + (let ((_g152609_ (let () (declare (not safe)) - (if (##values? _g152334_) + (if (##values? _g152608_) (##vector-length - _g152334_) + _g152608_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g152335_ 2))) + (##fx= _g152609_ 2))) (error "Context expects 2 values" - _g152335_))) - (let ((_%target151453151498%_ + _g152609_))) + (let ((_%target151727151772%_ (let () (declare (not safe)) - (##vector-ref _g152334_ 0))) - (_%tl151455151500%_ + (##vector-ref _g152608_ 0))) + (_%tl151729151774%_ (let () (declare (not safe)) (##vector-ref - _g152334_ + _g152608_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl151455151500%_)) - (letrec ((_%loop151456151503%_ - (lambda (_%hd151454151506%_ + _%tl151729151774%_)) + (letrec ((_%loop151730151777%_ + (lambda (_%hd151728151780%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr151460151508%_ - _%bind151461151510%_) + _%expr151734151782%_ + _%bind151735151784%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd151454151506%_)) - (let ((_%e151457151513%_ + (gx#stx-pair? _%hd151728151780%_)) + (let ((_%e151731151787%_ (let () (declare (not safe)) - (gx#stx-e _%hd151454151506%_)))) - (let ((_%lp-hd151458151516%_ + (gx#stx-e _%hd151728151780%_)))) + (let ((_%lp-hd151732151790%_ (let () (declare (not safe)) - (##car _%e151457151513%_))) - (_%lp-tl151459151518%_ + (##car _%e151731151787%_))) + (_%lp-tl151733151792%_ (let () (declare (not safe)) - (##cdr _%e151457151513%_)))) + (##cdr _%e151731151787%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd151458151516%_)) - (let ((_%e151467151521%_ + (gx#stx-pair? _%lp-hd151732151790%_)) + (let ((_%e151741151795%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd151458151516%_)))) - (let ((_%hd151468151524%_ + (gx#stx-e _%lp-hd151732151790%_)))) + (let ((_%hd151742151798%_ (let () (declare (not safe)) - (##car _%e151467151521%_))) - (_%tl151469151526%_ + (##car _%e151741151795%_))) + (_%tl151743151800%_ (let () (declare (not safe)) - (##cdr _%e151467151521%_)))) + (##cdr _%e151741151795%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151469151526%_)) - (let ((_%e151470151529%_ + (gx#stx-pair? _%tl151743151800%_)) + (let ((_%e151744151803%_ (let () (declare (not safe)) (gx#stx-e - _%tl151469151526%_)))) - (let ((_%hd151471151532%_ + _%tl151743151800%_)))) + (let ((_%hd151745151806%_ (let () (declare (not safe)) - (##car _%e151470151529%_))) - (_%tl151472151534%_ + (##car _%e151744151803%_))) + (_%tl151746151808%_ (let () (declare (not safe)) - (##cdr _%e151470151529%_)))) + (##cdr _%e151744151803%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl151472151534%_)) - (_%loop151456151503%_ - _%lp-tl151459151518%_ - (cons _%hd151471151532%_ - _%expr151460151508%_) - (cons _%hd151468151524%_ - _%bind151461151510%_)) - (_%g151442151477%_ - _%g151443151480%_)))) - (_%g151442151477%_ - _%g151443151480%_)))) - (_%g151442151477%_ _%g151443151480%_)))) - (let ((_%expr151462151537%_ - (reverse _%expr151460151508%_)) - (_%bind151463151539%_ - (reverse _%bind151461151510%_))) + _%tl151746151808%_)) + (_%loop151730151777%_ + _%lp-tl151733151792%_ + (cons _%hd151745151806%_ + _%expr151734151782%_) + (cons _%hd151742151798%_ + _%bind151735151784%_)) + (_%g151716151751%_ + _%g151717151754%_)))) + (_%g151716151751%_ + _%g151717151754%_)))) + (_%g151716151751%_ _%g151717151754%_)))) + (let ((_%expr151736151811%_ + (reverse _%expr151734151782%_)) + (_%bind151737151813%_ + (reverse _%bind151735151784%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151452151495%_)) - (let ((_%e151464151542%_ + (gx#stx-pair? _%tl151726151769%_)) + (let ((_%e151738151816%_ (let () (declare (not safe)) - (gx#stx-e _%tl151452151495%_)))) - (let ((_%hd151465151545%_ + (gx#stx-e _%tl151726151769%_)))) + (let ((_%hd151739151819%_ (let () (declare (not safe)) - (##car _%e151464151542%_))) - (_%tl151466151547%_ + (##car _%e151738151816%_))) + (_%tl151740151821%_ (let () (declare (not safe)) - (##cdr _%e151464151542%_)))) + (##cdr _%e151738151816%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151466151547%_)) - ((lambda (_%L151550%_ - _%L151551%_ - _%L151552%_) - (let ((_%$e151583%_ - (let ((__tmp152338 - (lambda (_%g151571151573%_) + (gx#stx-null? _%tl151740151821%_)) + ((lambda (_%L151824%_ + _%L151825%_ + _%L151826%_) + (let ((_%$e151857%_ + (let ((__tmp152612 + (lambda (_%g151845151847%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self151439%_ - _%g151571151573%_)))) - (__tmp152336 - (let ((__tmp152337 - (lambda (_%g151575151578%_ + _%self151713%_ + _%g151845151847%_)))) + (__tmp152610 + (let ((__tmp152611 + (lambda (_%g151849151852%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g151576151580%_) - (cons _%g151575151578%_ _%g151576151580%_)))) + _%g151850151854%_) + (cons _%g151849151852%_ _%g151850151854%_)))) (declare (not safe)) - (__foldr1 __tmp152337 '() _%L151551%_)))) + (__foldr1 __tmp152611 '() _%L151825%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__ormap1 - __tmp152338 - __tmp152336)))) - (if _%$e151583%_ - _%$e151583%_ + __tmp152612 + __tmp152610)))) + (if _%$e151857%_ + _%$e151857%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self151439%_ - _%L151550%_))))) - _%hd151465151545%_ - _%expr151462151537%_ - _%bind151463151539%_) - (_%g151442151477%_ _%g151443151480%_)))) - (_%g151442151477%_ _%g151443151480%_))))))) + _%self151713%_ + _%L151824%_))))) + _%hd151739151819%_ + _%expr151736151811%_ + _%bind151737151813%_) + (_%g151716151751%_ _%g151717151754%_)))) + (_%g151716151751%_ _%g151717151754%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop151456151503%_ - _%target151453151498%_ + (_%loop151730151777%_ + _%target151727151772%_ '() '())) - (_%g151442151477%_ - _%g151443151480%_))))) - (_%g151442151477%_ _%g151443151480%_)))) - (_%g151442151477%_ _%g151443151480%_)))) - (_%g151442151477%_ _%g151443151480%_))))) - (_%g151441151586%_ _%stx151440%_)))) + (_%g151716151751%_ + _%g151717151754%_))))) + (_%g151716151751%_ _%g151717151754%_)))) + (_%g151716151751%_ _%g151717151754%_)))) + (_%g151716151751%_ _%g151717151754%_))))) + (_%g151715151860%_ _%stx151714%_)))) (define gxc#find-var-refs-ref% - (lambda (_%self151383%_ _%stx151384%_) - (let* ((_%g151386151399%_ - (lambda (_%g151387151396%_) + (lambda (_%self151657%_ _%stx151658%_) + (let* ((_%g151660151673%_ + (lambda (_%g151661151670%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g151387151396%_)))) - (_%g151385151436%_ - (lambda (_%g151387151402%_) + _%g151661151670%_)))) + (_%g151659151710%_ + (lambda (_%g151661151676%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g151387151402%_)) - (let ((_%e151389151404%_ + (gx#stx-pair? _%g151661151676%_)) + (let ((_%e151663151678%_ (let () (declare (not safe)) - (gx#stx-e _%g151387151402%_)))) - (let ((_%hd151390151407%_ + (gx#stx-e _%g151661151676%_)))) + (let ((_%hd151664151681%_ (let () (declare (not safe)) - (##car _%e151389151404%_))) - (_%tl151391151409%_ + (##car _%e151663151678%_))) + (_%tl151665151683%_ (let () (declare (not safe)) - (##cdr _%e151389151404%_)))) + (##cdr _%e151663151678%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151391151409%_)) - (let ((_%e151392151412%_ + (gx#stx-pair? _%tl151665151683%_)) + (let ((_%e151666151686%_ (let () (declare (not safe)) - (gx#stx-e _%tl151391151409%_)))) - (let ((_%hd151393151415%_ + (gx#stx-e _%tl151665151683%_)))) + (let ((_%hd151667151689%_ (let () (declare (not safe)) - (##car _%e151392151412%_))) - (_%tl151394151417%_ + (##car _%e151666151686%_))) + (_%tl151668151691%_ (let () (declare (not safe)) - (##cdr _%e151392151412%_)))) + (##cdr _%e151666151686%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151394151417%_)) - ((lambda (_%L151420%_) - (let ((__tmp152340 - (lambda (_%g151431151433%_) + (gx#stx-null? _%tl151668151691%_)) + ((lambda (_%L151694%_) + (let ((__tmp152614 + (lambda (_%g151705151707%_) (let () (declare (not safe)) (gx#free-identifier=? - _%L151420%_ - _%g151431151433%_)))) - (__tmp152339 + _%L151694%_ + _%g151705151707%_)))) + (__tmp152613 (let () (declare (not safe)) (slot-ref__0 - _%self151383%_ + _%self151657%_ 'ids)))) (declare (not safe)) - (__find __tmp152340 __tmp152339))) - _%hd151393151415%_) - (_%g151386151399%_ _%g151387151402%_)))) - (_%g151386151399%_ _%g151387151402%_)))) - (_%g151386151399%_ _%g151387151402%_))))) - (_%g151385151436%_ _%stx151384%_)))) + (__find __tmp152614 __tmp152613))) + _%hd151667151689%_) + (_%g151660151673%_ _%g151661151676%_)))) + (_%g151660151673%_ _%g151661151676%_)))) + (_%g151660151673%_ _%g151661151676%_))))) + (_%g151659151710%_ _%stx151658%_)))) (define gxc#find-var-refs-setq% - (lambda (_%self151308%_ _%stx151309%_) - (let* ((_%g151311151328%_ - (lambda (_%g151312151325%_) + (lambda (_%self151582%_ _%stx151583%_) + (let* ((_%g151585151602%_ + (lambda (_%g151586151599%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g151312151325%_)))) - (_%g151310151380%_ - (lambda (_%g151312151331%_) + _%g151586151599%_)))) + (_%g151584151654%_ + (lambda (_%g151586151605%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g151312151331%_)) - (let ((_%e151315151333%_ + (gx#stx-pair? _%g151586151605%_)) + (let ((_%e151589151607%_ (let () (declare (not safe)) - (gx#stx-e _%g151312151331%_)))) - (let ((_%hd151316151336%_ + (gx#stx-e _%g151586151605%_)))) + (let ((_%hd151590151610%_ (let () (declare (not safe)) - (##car _%e151315151333%_))) - (_%tl151317151338%_ + (##car _%e151589151607%_))) + (_%tl151591151612%_ (let () (declare (not safe)) - (##cdr _%e151315151333%_)))) + (##cdr _%e151589151607%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151317151338%_)) - (let ((_%e151318151341%_ + (gx#stx-pair? _%tl151591151612%_)) + (let ((_%e151592151615%_ (let () (declare (not safe)) - (gx#stx-e _%tl151317151338%_)))) - (let ((_%hd151319151344%_ + (gx#stx-e _%tl151591151612%_)))) + (let ((_%hd151593151618%_ (let () (declare (not safe)) - (##car _%e151318151341%_))) - (_%tl151320151346%_ + (##car _%e151592151615%_))) + (_%tl151594151620%_ (let () (declare (not safe)) - (##cdr _%e151318151341%_)))) + (##cdr _%e151592151615%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151320151346%_)) - (let ((_%e151321151349%_ + (gx#stx-pair? _%tl151594151620%_)) + (let ((_%e151595151623%_ (let () (declare (not safe)) - (gx#stx-e _%tl151320151346%_)))) - (let ((_%hd151322151352%_ + (gx#stx-e _%tl151594151620%_)))) + (let ((_%hd151596151626%_ (let () (declare (not safe)) - (##car _%e151321151349%_))) - (_%tl151323151354%_ + (##car _%e151595151623%_))) + (_%tl151597151628%_ (let () (declare (not safe)) - (##cdr _%e151321151349%_)))) + (##cdr _%e151595151623%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl151323151354%_)) - ((lambda (_%L151357%_ - _%L151358%_) - (let ((_%$e151377%_ - (let ((__tmp152342 - (lambda (_%g151372151374%_) + _%tl151597151628%_)) + ((lambda (_%L151631%_ + _%L151632%_) + (let ((_%$e151651%_ + (let ((__tmp152616 + (lambda (_%g151646151648%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#free-identifier=? - _%L151358%_ - _%g151372151374%_)))) - (__tmp152341 + _%L151632%_ + _%g151646151648%_)))) + (__tmp152615 (let () (declare (not safe)) - (slot-ref__0 _%self151308%_ 'ids)))) + (slot-ref__0 _%self151582%_ 'ids)))) (declare (not safe)) - (__find __tmp152342 __tmp152341)))) + (__find __tmp152616 __tmp152615)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e151377%_ - _%$e151377%_ + (if _%$e151651%_ + _%$e151651%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self151308%_ - _%L151357%_))))) - _%hd151322151352%_ - _%hd151319151344%_) - (_%g151311151328%_ - _%g151312151331%_)))) - (_%g151311151328%_ _%g151312151331%_)))) - (_%g151311151328%_ _%g151312151331%_)))) - (_%g151311151328%_ _%g151312151331%_))))) - (_%g151310151380%_ _%stx151309%_)))))) + _%self151582%_ + _%L151631%_))))) + _%hd151596151626%_ + _%hd151593151618%_) + (_%g151585151602%_ + _%g151586151605%_)))) + (_%g151585151602%_ _%g151586151605%_)))) + (_%g151585151602%_ _%g151586151605%_)))) + (_%g151585151602%_ _%g151586151605%_))))) + (_%g151584151654%_ _%stx151583%_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform~1.scm b/src/bootstrap/gerbil/compiler/optimize-xform~1.scm index 58b8c0a07..4852be042 100644 --- a/src/bootstrap/gerbil/compiler/optimize-xform~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-xform~1.scm @@ -1,300 +1,300 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g152344_| + (define |gxc[1]#_g152618_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152346_| + (define |gxc[1]#_g152620_| (##structure gx#syntax-quote::t '::collect-mutators::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152348_| + (define |gxc[1]#_g152622_| (##structure gx#syntax-quote::t 'make-::collect-mutators #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152350_| + (define |gxc[1]#_g152624_| (##structure gx#syntax-quote::t '::collect-mutators? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152352_| + (define |gxc[1]#_g152626_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152354_| + (define |gxc[1]#_g152628_| (##structure gx#syntax-quote::t '::expression-subst::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152356_| + (define |gxc[1]#_g152630_| (##structure gx#syntax-quote::t 'make-::expression-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152358_| + (define |gxc[1]#_g152632_| (##structure gx#syntax-quote::t '::expression-subst? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152360_| + (define |gxc[1]#_g152634_| (##structure gx#syntax-quote::t '::expression-subst-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152361_| + (define |gxc[1]#_g152635_| (##structure gx#syntax-quote::t '::expression-subst-new-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152363_| + (define |gxc[1]#_g152637_| (##structure gx#syntax-quote::t '::expression-subst-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152364_| + (define |gxc[1]#_g152638_| (##structure gx#syntax-quote::t '::expression-subst-new-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152366_| + (define |gxc[1]#_g152640_| (##structure gx#syntax-quote::t '&::expression-subst-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152367_| + (define |gxc[1]#_g152641_| (##structure gx#syntax-quote::t '&::expression-subst-new-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152369_| + (define |gxc[1]#_g152643_| (##structure gx#syntax-quote::t '&::expression-subst-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152370_| + (define |gxc[1]#_g152644_| (##structure gx#syntax-quote::t '&::expression-subst-new-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152373_| + (define |gxc[1]#_g152647_| (##structure gx#syntax-quote::t '::expression-subst*::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152375_| + (define |gxc[1]#_g152649_| (##structure gx#syntax-quote::t 'make-::expression-subst* #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152377_| + (define |gxc[1]#_g152651_| (##structure gx#syntax-quote::t '::expression-subst*? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152379_| + (define |gxc[1]#_g152653_| (##structure gx#syntax-quote::t '::expression-subst*-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152381_| + (define |gxc[1]#_g152655_| (##structure gx#syntax-quote::t '::expression-subst*-subst-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152383_| + (define |gxc[1]#_g152657_| (##structure gx#syntax-quote::t '&::expression-subst*-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152385_| + (define |gxc[1]#_g152659_| (##structure gx#syntax-quote::t '&::expression-subst*-subst-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152387_| + (define |gxc[1]#_g152661_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152389_| + (define |gxc[1]#_g152663_| (##structure gx#syntax-quote::t '::find-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152391_| + (define |gxc[1]#_g152665_| (##structure gx#syntax-quote::t 'make-::find-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152393_| + (define |gxc[1]#_g152667_| (##structure gx#syntax-quote::t '::find-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152395_| + (define |gxc[1]#_g152669_| (##structure gx#syntax-quote::t '::find-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152397_| + (define |gxc[1]#_g152671_| (##structure gx#syntax-quote::t '::find-var-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152399_| + (define |gxc[1]#_g152673_| (##structure gx#syntax-quote::t 'make-::find-var-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152401_| + (define |gxc[1]#_g152675_| (##structure gx#syntax-quote::t '::find-var-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152403_| + (define |gxc[1]#_g152677_| (##structure gx#syntax-quote::t '::find-var-refs-ids #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152405_| + (define |gxc[1]#_g152679_| (##structure gx#syntax-quote::t '::find-var-refs-ids-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152407_| + (define |gxc[1]#_g152681_| (##structure gx#syntax-quote::t '&::find-var-refs-ids #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152409_| + (define |gxc[1]#_g152683_| (##structure gx#syntax-quote::t '&::find-var-refs-ids-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152411_| + (define |gxc[1]#_g152685_| (##structure gx#syntax-quote::t '::collect-expression-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152413_| + (define |gxc[1]#_g152687_| (##structure gx#syntax-quote::t '::collect-runtime-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152415_| + (define |gxc[1]#_g152689_| (##structure gx#syntax-quote::t 'make-::collect-runtime-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152417_| + (define |gxc[1]#_g152691_| (##structure gx#syntax-quote::t '::collect-runtime-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152419_| + (define |gxc[1]#_g152693_| (##structure gx#syntax-quote::t '::collect-runtime-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152421_| + (define |gxc[1]#_g152695_| (##structure gx#syntax-quote::t '::collect-runtime-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152423_| + (define |gxc[1]#_g152697_| (##structure gx#syntax-quote::t '&::collect-runtime-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152425_| + (define |gxc[1]#_g152699_| (##structure gx#syntax-quote::t '&::collect-runtime-refs-table-set! @@ -303,7 +303,7 @@ '())) (begin (define |gxc[:0:]#::collect-mutators| - (let ((__obj152281 + (let ((__obj152555 (let () (declare (not safe)) (##structure @@ -332,7 +332,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152281 + __obj152555 'gxc#::collect-mutators::t '1 '#f @@ -340,65 +340,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152281 + __obj152555 '::collect-mutators '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152281 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj152555 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152281 '() '6 '#f '#f)) - (let ((__tmp152343 (cons |gxc[1]#_g152344_| '()))) + (##unchecked-structure-set! __obj152555 '() '6 '#f '#f)) + (let ((__tmp152617 (cons |gxc[1]#_g152618_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152281 __tmp152343 '3 '#f '#f)) + (##unchecked-structure-set! __obj152555 __tmp152617 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152281 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj152555 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152281 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj152555 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152281 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152555 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152281 '#f '11 '#f '#f)) - (let ((__tmp152345 |gxc[1]#_g152346_|)) + (##unchecked-structure-set! __obj152555 '#f '11 '#f '#f)) + (let ((__tmp152619 |gxc[1]#_g152620_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152281 __tmp152345 '12 '#f '#f)) - (let ((__tmp152347 |gxc[1]#_g152348_|)) + (##unchecked-structure-set! __obj152555 __tmp152619 '12 '#f '#f)) + (let ((__tmp152621 |gxc[1]#_g152622_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152281 __tmp152347 '13 '#f '#f)) - (let ((__tmp152349 |gxc[1]#_g152350_|)) + (##unchecked-structure-set! __obj152555 __tmp152621 '13 '#f '#f)) + (let ((__tmp152623 |gxc[1]#_g152624_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152281 __tmp152349 '14 '#f '#f)) + (##unchecked-structure-set! __obj152555 __tmp152623 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152281 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj152555 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152281 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj152555 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152281 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj152555 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152281 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj152555 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152281 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj152555 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152281 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152555 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152281 '() '20 '#f '#f)) - __obj152281)) + (##unchecked-structure-set! __obj152555 '() '20 '#f '#f)) + __obj152555)) (define |gxc[:0:]#::expression-subst| - (let ((__obj152283 + (let ((__obj152557 (let () (declare (not safe)) (##structure @@ -427,7 +427,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152283 + __obj152557 'gxc#::expression-subst::t '1 '#f @@ -435,73 +435,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152283 + __obj152557 '::expression-subst '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152283 '(id new-id) '4 '#f '#f)) + (##unchecked-structure-set! __obj152557 '(id new-id) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152283 '(id new-id) '6 '#f '#f)) - (let ((__tmp152351 (cons |gxc[1]#_g152352_| '()))) + (##unchecked-structure-set! __obj152557 '(id new-id) '6 '#f '#f)) + (let ((__tmp152625 (cons |gxc[1]#_g152626_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152283 __tmp152351 '3 '#f '#f)) + (##unchecked-structure-set! __obj152557 __tmp152625 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152283 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj152557 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152283 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj152557 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152283 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152557 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152283 '#f '11 '#f '#f)) - (let ((__tmp152353 |gxc[1]#_g152354_|)) + (##unchecked-structure-set! __obj152557 '#f '11 '#f '#f)) + (let ((__tmp152627 |gxc[1]#_g152628_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152283 __tmp152353 '12 '#f '#f)) - (let ((__tmp152355 |gxc[1]#_g152356_|)) + (##unchecked-structure-set! __obj152557 __tmp152627 '12 '#f '#f)) + (let ((__tmp152629 |gxc[1]#_g152630_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152283 __tmp152355 '13 '#f '#f)) - (let ((__tmp152357 |gxc[1]#_g152358_|)) + (##unchecked-structure-set! __obj152557 __tmp152629 '13 '#f '#f)) + (let ((__tmp152631 |gxc[1]#_g152632_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152283 __tmp152357 '14 '#f '#f)) - (let ((__tmp152359 - (cons (cons 'id |gxc[1]#_g152360_|) - (cons (cons 'new-id |gxc[1]#_g152361_|) '())))) + (##unchecked-structure-set! __obj152557 __tmp152631 '14 '#f '#f)) + (let ((__tmp152633 + (cons (cons 'id |gxc[1]#_g152634_|) + (cons (cons 'new-id |gxc[1]#_g152635_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152283 __tmp152359 '15 '#f '#f)) - (let ((__tmp152362 - (cons (cons 'id |gxc[1]#_g152363_|) - (cons (cons 'new-id |gxc[1]#_g152364_|) '())))) + (##unchecked-structure-set! __obj152557 __tmp152633 '15 '#f '#f)) + (let ((__tmp152636 + (cons (cons 'id |gxc[1]#_g152637_|) + (cons (cons 'new-id |gxc[1]#_g152638_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152283 __tmp152362 '16 '#f '#f)) - (let ((__tmp152365 - (cons (cons 'id |gxc[1]#_g152366_|) - (cons (cons 'new-id |gxc[1]#_g152367_|) '())))) + (##unchecked-structure-set! __obj152557 __tmp152636 '16 '#f '#f)) + (let ((__tmp152639 + (cons (cons 'id |gxc[1]#_g152640_|) + (cons (cons 'new-id |gxc[1]#_g152641_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152283 __tmp152365 '17 '#f '#f)) - (let ((__tmp152368 - (cons (cons 'id |gxc[1]#_g152369_|) - (cons (cons 'new-id |gxc[1]#_g152370_|) '())))) + (##unchecked-structure-set! __obj152557 __tmp152639 '17 '#f '#f)) + (let ((__tmp152642 + (cons (cons 'id |gxc[1]#_g152643_|) + (cons (cons 'new-id |gxc[1]#_g152644_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152283 __tmp152368 '18 '#f '#f)) + (##unchecked-structure-set! __obj152557 __tmp152642 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152283 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj152557 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152283 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152557 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152283 '() '20 '#f '#f)) - __obj152283)) + (##unchecked-structure-set! __obj152557 '() '20 '#f '#f)) + __obj152557)) (define |gxc[:0:]#::expression-subst*| - (let ((__obj152285 + (let ((__obj152559 (let () (declare (not safe)) (##structure @@ -530,7 +530,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152285 + __obj152559 'gxc#::expression-subst*::t '1 '#f @@ -538,65 +538,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152285 + __obj152559 '::expression-subst* '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152285 '(subst) '4 '#f '#f)) + (##unchecked-structure-set! __obj152559 '(subst) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152285 '(subst) '6 '#f '#f)) - (let ((__tmp152371 (cons |gxc[1]#_g152352_| '()))) + (##unchecked-structure-set! __obj152559 '(subst) '6 '#f '#f)) + (let ((__tmp152645 (cons |gxc[1]#_g152626_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152285 __tmp152371 '3 '#f '#f)) + (##unchecked-structure-set! __obj152559 __tmp152645 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152285 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj152559 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152285 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj152559 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152285 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152559 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152285 '#f '11 '#f '#f)) - (let ((__tmp152372 |gxc[1]#_g152373_|)) + (##unchecked-structure-set! __obj152559 '#f '11 '#f '#f)) + (let ((__tmp152646 |gxc[1]#_g152647_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152285 __tmp152372 '12 '#f '#f)) - (let ((__tmp152374 |gxc[1]#_g152375_|)) + (##unchecked-structure-set! __obj152559 __tmp152646 '12 '#f '#f)) + (let ((__tmp152648 |gxc[1]#_g152649_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152285 __tmp152374 '13 '#f '#f)) - (let ((__tmp152376 |gxc[1]#_g152377_|)) + (##unchecked-structure-set! __obj152559 __tmp152648 '13 '#f '#f)) + (let ((__tmp152650 |gxc[1]#_g152651_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152285 __tmp152376 '14 '#f '#f)) - (let ((__tmp152378 (cons (cons 'subst |gxc[1]#_g152379_|) '()))) + (##unchecked-structure-set! __obj152559 __tmp152650 '14 '#f '#f)) + (let ((__tmp152652 (cons (cons 'subst |gxc[1]#_g152653_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152285 __tmp152378 '15 '#f '#f)) - (let ((__tmp152380 (cons (cons 'subst |gxc[1]#_g152381_|) '()))) + (##unchecked-structure-set! __obj152559 __tmp152652 '15 '#f '#f)) + (let ((__tmp152654 (cons (cons 'subst |gxc[1]#_g152655_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152285 __tmp152380 '16 '#f '#f)) - (let ((__tmp152382 (cons (cons 'subst |gxc[1]#_g152383_|) '()))) + (##unchecked-structure-set! __obj152559 __tmp152654 '16 '#f '#f)) + (let ((__tmp152656 (cons (cons 'subst |gxc[1]#_g152657_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152285 __tmp152382 '17 '#f '#f)) - (let ((__tmp152384 (cons (cons 'subst |gxc[1]#_g152385_|) '()))) + (##unchecked-structure-set! __obj152559 __tmp152656 '17 '#f '#f)) + (let ((__tmp152658 (cons (cons 'subst |gxc[1]#_g152659_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152285 __tmp152384 '18 '#f '#f)) + (##unchecked-structure-set! __obj152559 __tmp152658 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152285 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj152559 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152285 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152559 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152285 '() '20 '#f '#f)) - __obj152285)) + (##unchecked-structure-set! __obj152559 '() '20 '#f '#f)) + __obj152559)) (define |gxc[:0:]#::find-expression| - (let ((__obj152287 + (let ((__obj152561 (let () (declare (not safe)) (##structure @@ -625,7 +625,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152287 + __obj152561 'gxc#::find-expression::t '1 '#f @@ -633,65 +633,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152287 + __obj152561 '::find-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152287 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj152561 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152287 '() '6 '#f '#f)) - (let ((__tmp152386 (cons |gxc[1]#_g152387_| '()))) + (##unchecked-structure-set! __obj152561 '() '6 '#f '#f)) + (let ((__tmp152660 (cons |gxc[1]#_g152661_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152287 __tmp152386 '3 '#f '#f)) + (##unchecked-structure-set! __obj152561 __tmp152660 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152287 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj152561 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152287 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152561 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152287 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152561 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152287 '#f '11 '#f '#f)) - (let ((__tmp152388 |gxc[1]#_g152389_|)) + (##unchecked-structure-set! __obj152561 '#f '11 '#f '#f)) + (let ((__tmp152662 |gxc[1]#_g152663_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152287 __tmp152388 '12 '#f '#f)) - (let ((__tmp152390 |gxc[1]#_g152391_|)) + (##unchecked-structure-set! __obj152561 __tmp152662 '12 '#f '#f)) + (let ((__tmp152664 |gxc[1]#_g152665_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152287 __tmp152390 '13 '#f '#f)) - (let ((__tmp152392 |gxc[1]#_g152393_|)) + (##unchecked-structure-set! __obj152561 __tmp152664 '13 '#f '#f)) + (let ((__tmp152666 |gxc[1]#_g152667_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152287 __tmp152392 '14 '#f '#f)) + (##unchecked-structure-set! __obj152561 __tmp152666 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152287 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj152561 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152287 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj152561 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152287 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj152561 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152287 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj152561 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152287 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj152561 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152287 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152561 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152287 '() '20 '#f '#f)) - __obj152287)) + (##unchecked-structure-set! __obj152561 '() '20 '#f '#f)) + __obj152561)) (define |gxc[:0:]#::find-var-refs| - (let ((__obj152288 + (let ((__obj152562 (let () (declare (not safe)) (##structure @@ -720,68 +720,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152288 + __obj152562 'gxc#::find-var-refs::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152288 '::find-var-refs '2 '#f '#f)) + (##unchecked-structure-set! __obj152562 '::find-var-refs '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152288 '(ids) '4 '#f '#f)) + (##unchecked-structure-set! __obj152562 '(ids) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152288 '(ids) '6 '#f '#f)) - (let ((__tmp152394 (cons |gxc[1]#_g152395_| '()))) + (##unchecked-structure-set! __obj152562 '(ids) '6 '#f '#f)) + (let ((__tmp152668 (cons |gxc[1]#_g152669_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152288 __tmp152394 '3 '#f '#f)) + (##unchecked-structure-set! __obj152562 __tmp152668 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152288 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj152562 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152288 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj152562 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152288 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152562 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152288 '#f '11 '#f '#f)) - (let ((__tmp152396 |gxc[1]#_g152397_|)) + (##unchecked-structure-set! __obj152562 '#f '11 '#f '#f)) + (let ((__tmp152670 |gxc[1]#_g152671_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152288 __tmp152396 '12 '#f '#f)) - (let ((__tmp152398 |gxc[1]#_g152399_|)) + (##unchecked-structure-set! __obj152562 __tmp152670 '12 '#f '#f)) + (let ((__tmp152672 |gxc[1]#_g152673_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152288 __tmp152398 '13 '#f '#f)) - (let ((__tmp152400 |gxc[1]#_g152401_|)) + (##unchecked-structure-set! __obj152562 __tmp152672 '13 '#f '#f)) + (let ((__tmp152674 |gxc[1]#_g152675_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152288 __tmp152400 '14 '#f '#f)) - (let ((__tmp152402 (cons (cons 'ids |gxc[1]#_g152403_|) '()))) + (##unchecked-structure-set! __obj152562 __tmp152674 '14 '#f '#f)) + (let ((__tmp152676 (cons (cons 'ids |gxc[1]#_g152677_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152288 __tmp152402 '15 '#f '#f)) - (let ((__tmp152404 (cons (cons 'ids |gxc[1]#_g152405_|) '()))) + (##unchecked-structure-set! __obj152562 __tmp152676 '15 '#f '#f)) + (let ((__tmp152678 (cons (cons 'ids |gxc[1]#_g152679_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152288 __tmp152404 '16 '#f '#f)) - (let ((__tmp152406 (cons (cons 'ids |gxc[1]#_g152407_|) '()))) + (##unchecked-structure-set! __obj152562 __tmp152678 '16 '#f '#f)) + (let ((__tmp152680 (cons (cons 'ids |gxc[1]#_g152681_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152288 __tmp152406 '17 '#f '#f)) - (let ((__tmp152408 (cons (cons 'ids |gxc[1]#_g152409_|) '()))) + (##unchecked-structure-set! __obj152562 __tmp152680 '17 '#f '#f)) + (let ((__tmp152682 (cons (cons 'ids |gxc[1]#_g152683_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152288 __tmp152408 '18 '#f '#f)) + (##unchecked-structure-set! __obj152562 __tmp152682 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152288 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj152562 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152288 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152562 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152288 '() '20 '#f '#f)) - __obj152288)) + (##unchecked-structure-set! __obj152562 '() '20 '#f '#f)) + __obj152562)) (define |gxc[:0:]#::collect-runtime-refs| - (let ((__obj152290 + (let ((__obj152564 (let () (declare (not safe)) (##structure @@ -810,7 +810,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152290 + __obj152564 'gxc#::collect-runtime-refs::t '1 '#f @@ -818,60 +818,60 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152290 + __obj152564 '::collect-runtime-refs '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152290 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj152564 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152290 '(table) '6 '#f '#f)) - (let ((__tmp152410 (cons |gxc[1]#_g152411_| '()))) + (##unchecked-structure-set! __obj152564 '(table) '6 '#f '#f)) + (let ((__tmp152684 (cons |gxc[1]#_g152685_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152290 __tmp152410 '3 '#f '#f)) + (##unchecked-structure-set! __obj152564 __tmp152684 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152290 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj152564 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152290 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj152564 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152290 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152564 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152290 '#f '11 '#f '#f)) - (let ((__tmp152412 |gxc[1]#_g152413_|)) + (##unchecked-structure-set! __obj152564 '#f '11 '#f '#f)) + (let ((__tmp152686 |gxc[1]#_g152687_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152290 __tmp152412 '12 '#f '#f)) - (let ((__tmp152414 |gxc[1]#_g152415_|)) + (##unchecked-structure-set! __obj152564 __tmp152686 '12 '#f '#f)) + (let ((__tmp152688 |gxc[1]#_g152689_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152290 __tmp152414 '13 '#f '#f)) - (let ((__tmp152416 |gxc[1]#_g152417_|)) + (##unchecked-structure-set! __obj152564 __tmp152688 '13 '#f '#f)) + (let ((__tmp152690 |gxc[1]#_g152691_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152290 __tmp152416 '14 '#f '#f)) - (let ((__tmp152418 (cons (cons 'table |gxc[1]#_g152419_|) '()))) + (##unchecked-structure-set! __obj152564 __tmp152690 '14 '#f '#f)) + (let ((__tmp152692 (cons (cons 'table |gxc[1]#_g152693_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152290 __tmp152418 '15 '#f '#f)) - (let ((__tmp152420 (cons (cons 'table |gxc[1]#_g152421_|) '()))) + (##unchecked-structure-set! __obj152564 __tmp152692 '15 '#f '#f)) + (let ((__tmp152694 (cons (cons 'table |gxc[1]#_g152695_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152290 __tmp152420 '16 '#f '#f)) - (let ((__tmp152422 (cons (cons 'table |gxc[1]#_g152423_|) '()))) + (##unchecked-structure-set! __obj152564 __tmp152694 '16 '#f '#f)) + (let ((__tmp152696 (cons (cons 'table |gxc[1]#_g152697_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152290 __tmp152422 '17 '#f '#f)) - (let ((__tmp152424 (cons (cons 'table |gxc[1]#_g152425_|) '()))) + (##unchecked-structure-set! __obj152564 __tmp152696 '17 '#f '#f)) + (let ((__tmp152698 (cons (cons 'table |gxc[1]#_g152699_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152290 __tmp152424 '18 '#f '#f)) + (##unchecked-structure-set! __obj152564 __tmp152698 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152290 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj152564 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152290 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152564 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152290 '() '20 '#f '#f)) - __obj152290)))) + (##unchecked-structure-set! __obj152564 '() '20 '#f '#f)) + __obj152564)))) diff --git a/src/bootstrap/gerbil/compiler/optimize~0.scm b/src/bootstrap/gerbil/compiler/optimize~0.scm index 72bc9d453..4b36dc55f 100644 --- a/src/bootstrap/gerbil/compiler/optimize~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize~0.scm @@ -1,13 +1,13 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize::timestamp 1713044323) + (define gerbil/compiler/optimize::timestamp 1713454418) (begin (define gxc#optimizer-info-init! (lambda () (if (let () (declare (not safe)) (gxc#current-compile-optimizer-info)) '#!void - (let ((__tmp199146 - (let ((__obj199140 + (let ((__tmp199420 + (let ((__obj199414 (let () (declare (not safe)) (##structure @@ -18,17 +18,17 @@ '#f)))) (let () (declare (not safe)) - (gxc#optimizer-info:::init! __obj199140)) - __obj199140))) + (gxc#optimizer-info:::init! __obj199414)) + __obj199414))) (declare (not safe)) - (gxc#current-compile-optimizer-info __tmp199146))))) + (gxc#current-compile-optimizer-info __tmp199420))))) (define gxc#optimize! - (lambda (_%ctx198749%_) - (let ((__tmp199149 + (lambda (_%ctx199023%_) + (let ((__tmp199423 (lambda () - (gxc#optimizer-load-builtin-ssxi _%ctx198749%_) - (gxc#optimizer-load-ssxi-deps _%ctx198749%_) - (let ((__tmp199151 + (gxc#optimizer-load-builtin-ssxi _%ctx199023%_) + (gxc#optimizer-load-ssxi-deps _%ctx199023%_) + (let ((__tmp199425 (##structure-ref (let () (declare (not safe)) @@ -36,41 +36,41 @@ '3 gxc#optimizer-info::t '#f)) - (__tmp199150 + (__tmp199424 (##structure-ref - _%ctx198749%_ + _%ctx199023%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (hash-put! __tmp199151 __tmp199150 '#t)) - (let ((_%code198752%_ + (hash-put! __tmp199425 __tmp199424 '#t)) + (let ((_%code199026%_ (gxc#optimize-source (##structure-ref - _%ctx198749%_ + _%ctx199023%_ '11 gx#module-context::t '#f)))) (##structure-set! - _%ctx198749%_ - _%code198752%_ + _%ctx199023%_ + _%code199026%_ '11 gx#module-context::t '#f)))) - (__tmp199148 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp199147 (let () (declare (not safe)) (make-hash-table-eq)))) + (__tmp199422 (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp199421 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (__call-with-parameters - __tmp199149 + __tmp199423 gxc#current-compile-mutators - __tmp199148 + __tmp199422 gxc#current-compile-local-type - __tmp199147)))) + __tmp199421)))) (define gxc#optimizer-load-builtin-ssxi - (lambda (_%ctx198735%_) - (letrec ((_%load-it!198737%_ - (lambda (_%id198747%_) - (if (let ((__tmp199152 + (lambda (_%ctx199009%_) + (letrec ((_%load-it!199011%_ + (lambda (_%id199021%_) + (if (let ((__tmp199426 (##structure-ref (let () (declare (not safe)) @@ -79,11 +79,11 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp199152 _%id198747%_)) + (hash-get __tmp199426 _%id199021%_)) '#!void (begin - (gxc#optimizer-import-ssxi-by-id _%id198747%_) - (let ((__tmp199153 + (gxc#optimizer-import-ssxi-by-id _%id199021%_) + (let ((__tmp199427 (##structure-ref (let () (declare (not safe)) @@ -92,29 +92,29 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-put! __tmp199153 _%id198747%_ '#t))))))) - (let* ((_%modid198739%_ + (hash-put! __tmp199427 _%id199021%_ '#t))))))) + (let* ((_%modid199013%_ (##structure-ref - _%ctx198735%_ + _%ctx199009%_ '1 gx#expander-context::t '#f)) - (_%modid-str198741%_ (symbol->string _%modid198739%_))) + (_%modid-str199015%_ (symbol->string _%modid199013%_))) (if (or (let () (declare (not safe)) - (##string-prefix? '"gerbil/runtime" _%modid-str198741%_)) + (##string-prefix? '"gerbil/runtime" _%modid-str199015%_)) (let () (declare (not safe)) - (##string-prefix? '"gerbil/core" _%modid-str198741%_))) + (##string-prefix? '"gerbil/core" _%modid-str199015%_))) (let () (declare (not safe)) (##for-each - _%load-it!198737%_ + _%load-it!199011%_ '(gerbil/builtin gerbil/builtin-inline-rules))) (let () (declare (not safe)) (##for-each - _%load-it!198737%_ + _%load-it!199011%_ '(gerbil/builtin gerbil/builtin-inline-rules gerbil/runtime/gambit @@ -136,35 +136,35 @@ gerbil/runtime/init gerbil/runtime)))))))) (define gxc#optimizer-load-ssxi-deps - (lambda (_%ctx198672%_) - (letrec* ((_%deps198674%_ - (let* ((_%imports198725%_ + (lambda (_%ctx198946%_) + (letrec* ((_%deps198948%_ + (let* ((_%imports198999%_ (##structure-ref - _%ctx198672%_ + _%ctx198946%_ '8 gx#module-context::t '#f)) - (_%$e198727%_ + (_%$e199001%_ (let () (declare (not safe)) - (gx#core-context-prelude__% _%ctx198672%_)))) - (if _%$e198727%_ - ((lambda (_%g198729198731%_) - (cons _%g198729198731%_ _%imports198725%_)) - _%$e198727%_) - _%imports198725%_)))) - (let _%lp198676%_ ((_%rest198678%_ _%deps198674%_)) - (let* ((_%rest198679198687%_ _%rest198678%_) - (_%else198681198695%_ (lambda () '#!void)) - (_%K198683198713%_ - (lambda (_%rest198698%_ _%hd198699%_) + (gx#core-context-prelude__% _%ctx198946%_)))) + (if _%$e199001%_ + ((lambda (_%g199003199005%_) + (cons _%g199003199005%_ _%imports198999%_)) + _%$e199001%_) + _%imports198999%_)))) + (let _%lp198950%_ ((_%rest198952%_ _%deps198948%_)) + (let* ((_%rest198953198961%_ _%rest198952%_) + (_%else198955198969%_ (lambda () '#!void)) + (_%K198957198987%_ + (lambda (_%rest198972%_ _%hd198973%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd198699%_ + _%hd198973%_ 'gx#module-context::t)) (let () - (if (let ((__tmp199155 + (if (let ((__tmp199429 (##structure-ref (let () (declare (not safe)) @@ -172,52 +172,52 @@ '3 gxc#optimizer-info::t '#f)) - (__tmp199154 + (__tmp199428 (let () (declare (not safe)) (##unchecked-structure-ref - _%hd198699%_ + _%hd198973%_ '1 '#f '#f)))) (declare (not safe)) - (hash-get __tmp199155 __tmp199154)) + (hash-get __tmp199429 __tmp199428)) '#!void (begin - (let ((_%$e198702%_ + (let ((_%$e198976%_ (let () (declare (not safe)) (gx#core-context-prelude__% - _%hd198699%_)))) - (if _%$e198702%_ - ((lambda (_%pre198705%_) - (_%lp198676%_ - (cons _%pre198705%_ + _%hd198973%_)))) + (if _%$e198976%_ + ((lambda (_%pre198979%_) + (_%lp198950%_ + (cons _%pre198979%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd198699%_ + _%hd198973%_ '8 '#f '#f))))) - _%$e198702%_) - (_%lp198676%_ + _%$e198976%_) + (_%lp198950%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd198699%_ + _%hd198973%_ '8 '#f '#f))))) - (gxc#optimizer-load-ssxi _%hd198699%_))) - (_%lp198676%_ _%rest198698%_)) + (gxc#optimizer-load-ssxi _%hd198973%_))) + (_%lp198950%_ _%rest198972%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd198699%_ + _%hd198973%_ 'gx#prelude-context::t)) (let () - (if (let ((__tmp199157 + (if (let ((__tmp199431 (##structure-ref (let () (declare (not safe)) @@ -225,103 +225,103 @@ '3 gxc#optimizer-info::t '#f)) - (__tmp199156 + (__tmp199430 (let () (declare (not safe)) (##unchecked-structure-ref - _%hd198699%_ + _%hd198973%_ '1 '#f '#f)))) (declare (not safe)) - (hash-get __tmp199157 __tmp199156)) + (hash-get __tmp199431 __tmp199430)) '#!void (begin - (_%lp198676%_ + (_%lp198950%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd198699%_ + _%hd198973%_ '7 '#f '#f))) - (gxc#optimizer-load-ssxi _%hd198699%_))) - (_%lp198676%_ _%rest198698%_)) + (gxc#optimizer-load-ssxi _%hd198973%_))) + (_%lp198950%_ _%rest198972%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd198699%_ + _%hd198973%_ 'gx#module-import::t)) - (_%lp198676%_ + (_%lp198950%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd198699%_ + _%hd198973%_ '1 '#f '#f)) - _%rest198698%_)) + _%rest198972%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd198699%_ + _%hd198973%_ 'gx#module-export::t)) - (_%lp198676%_ + (_%lp198950%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd198699%_ + _%hd198973%_ '1 '#f '#f)) - _%rest198698%_)) + _%rest198972%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd198699%_ + _%hd198973%_ 'gx#import-set::t)) - (_%lp198676%_ + (_%lp198950%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd198699%_ + _%hd198973%_ '1 '#f '#f)) - _%rest198698%_)) + _%rest198972%_)) (let () (declare (not safe)) (error '"Unexpected module import" - _%hd198699%_)))))))))) - (if (let () (declare (not safe)) (##pair? _%rest198679198687%_)) - (let ((_%hd198684198716%_ + _%hd198973%_)))))))))) + (if (let () (declare (not safe)) (##pair? _%rest198953198961%_)) + (let ((_%hd198958198990%_ (let () (declare (not safe)) - (##car _%rest198679198687%_))) - (_%tl198685198718%_ + (##car _%rest198953198961%_))) + (_%tl198959198992%_ (let () (declare (not safe)) - (##cdr _%rest198679198687%_)))) - (let* ((_%hd198721%_ _%hd198684198716%_) - (_%rest198723%_ _%tl198685198718%_)) - (_%K198683198713%_ _%rest198723%_ _%hd198721%_))) + (##cdr _%rest198953198961%_)))) + (let* ((_%hd198995%_ _%hd198958198990%_) + (_%rest198997%_ _%tl198959198992%_)) + (_%K198957198987%_ _%rest198997%_ _%hd198995%_))) '#!void)))))) (define gxc#optimizer-load-ssxi - (lambda (_%ctx198652%_) + (lambda (_%ctx198926%_) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%ctx198652%_ + _%ctx198926%_ 'gx#module-context::t)) (list? (let () (declare (not safe)) (##unchecked-structure-ref - _%ctx198652%_ + _%ctx198926%_ '7 '#f '#f)))) '#!void - (let* ((_%ht198654%_ + (let* ((_%ht198928%_ (##structure-ref (let () (declare (not safe)) @@ -329,172 +329,172 @@ '3 gxc#optimizer-info::t '#f)) - (_%id198656%_ + (_%id198930%_ (##structure-ref - _%ctx198652%_ + _%ctx198926%_ '1 gx#expander-context::t '#f)) - (_%mod198658%_ + (_%mod198932%_ (let () (declare (not safe)) - (hash-get _%ht198654%_ _%id198656%_))) - (_%$e198661%_ _%mod198658%_)) - (if _%$e198661%_ - _%$e198661%_ - (let* ((_%mod198664%_ - (gxc#optimizer-import-ssxi _%ctx198652%_)) - (_%val198669%_ - (let ((_%$e198666%_ _%mod198664%_)) - (if _%$e198666%_ _%$e198666%_ '#!void)))) + (hash-get _%ht198928%_ _%id198930%_))) + (_%$e198935%_ _%mod198932%_)) + (if _%$e198935%_ + _%$e198935%_ + (let* ((_%mod198938%_ + (gxc#optimizer-import-ssxi _%ctx198926%_)) + (_%val198943%_ + (let ((_%$e198940%_ _%mod198938%_)) + (if _%$e198940%_ _%$e198940%_ '#!void)))) (let () (declare (not safe)) - (hash-put! _%ht198654%_ _%id198656%_ _%val198669%_)) - _%val198669%_)))))) + (hash-put! _%ht198928%_ _%id198930%_ _%val198943%_)) + _%val198943%_)))))) (define gxc#optimizer-import-ssxi - (lambda (_%ctx198650%_) - (if (##structure-ref _%ctx198650%_ '1 gx#expander-context::t '#f) + (lambda (_%ctx198924%_) + (if (##structure-ref _%ctx198924%_ '1 gx#expander-context::t '#f) (gxc#optimizer-import-ssxi-by-id - (##structure-ref _%ctx198650%_ '1 gx#expander-context::t '#f)) + (##structure-ref _%ctx198924%_ '1 gx#expander-context::t '#f)) '#f))) (define gxc#optimizer-import-ssxi-by-id - (lambda (_%id198627%_) - (letrec ((_%catch-e198629%_ - (lambda (_%exn198648%_) + (lambda (_%id198901%_) + (letrec ((_%catch-e198903%_ + (lambda (_%exn198922%_) (if (equal? (let () (declare (not safe)) - (error-message _%exn198648%_)) + (error-message _%exn198922%_)) '"cannot find library module") '#!void (begin (let () (declare (not safe)) - (display-exception__0 _%exn198648%_)) + (display-exception__0 _%exn198922%_)) (let () (declare (not safe)) (displayln '"*** WARNING Failed to load ssxi module for " - _%id198627%_)))) + _%id198901%_)))) '#f)) - (_%import-e198630%_ + (_%import-e198904%_ (lambda () - (let* ((_%str-id198633%_ - (let ((__tmp199158 + (let* ((_%str-id198907%_ + (let ((__tmp199432 (let () (declare (not safe)) (gxc#module-id->path-string - _%id198627%_)))) + _%id198901%_)))) (declare (not safe)) - (##string-append __tmp199158 '".ssxi"))) - (_%artefact-path198641%_ - (let ((_%odir198634198636%_ + (##string-append __tmp199432 '".ssxi"))) + (_%artefact-path198915%_ + (let ((_%odir198908198910%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%odir198634198636%_ - (let ((_%odir198639%_ _%odir198634198636%_)) + (if _%odir198908198910%_ + (let ((_%odir198913%_ _%odir198908198910%_)) (path-expand (let () (declare (not safe)) (##string-append - _%str-id198633%_ + _%str-id198907%_ '".ss")) - _%odir198639%_)) + _%odir198913%_)) '#f))) - (_%library-path198643%_ - (let ((__tmp199159 + (_%library-path198917%_ + (let ((__tmp199433 (let () (declare (not safe)) (##string-append '":" - _%str-id198633%_ + _%str-id198907%_ '".ss")))) (declare (not safe)) - (##string->symbol __tmp199159))) - (_%ssxi-path198645%_ - (if (and _%artefact-path198641%_ - (file-exists? _%artefact-path198641%_)) - _%artefact-path198641%_ - _%library-path198643%_))) + (##string->symbol __tmp199433))) + (_%ssxi-path198919%_ + (if (and _%artefact-path198915%_ + (file-exists? _%artefact-path198915%_)) + _%artefact-path198915%_ + _%library-path198917%_))) (let () (declare (not safe)) (gxc#verbose '"Loading ssxi module " - _%ssxi-path198645%_)) + _%ssxi-path198919%_)) (let () (declare (not safe)) - (gx#import-module__% _%ssxi-path198645%_ '#t '#t)))))) + (gx#import-module__% _%ssxi-path198919%_ '#t '#t)))))) (let () (declare (not safe)) - (__with-catch _%catch-e198629%_ _%import-e198630%_))))) + (__with-catch _%catch-e198903%_ _%import-e198904%_))))) (define gxc#optimize-source - (lambda (_%stx198612%_) + (lambda (_%stx198886%_) (let () (declare (not safe)) - (gxc#apply-collect-mutators _%stx198612%_)) + (gxc#apply-collect-mutators _%stx198886%_)) (let () (declare (not safe)) - (gxc#apply-collect-top-level-type-info _%stx198612%_)) - (let* ((_%stx198614%_ + (gxc#apply-collect-top-level-type-info _%stx198886%_)) + (let* ((_%stx198888%_ (let () (declare (not safe)) - (gxc#apply-generate-method-specializers _%stx198612%_))) - (_%stx198616%_ + (gxc#apply-generate-method-specializers _%stx198886%_))) + (_%stx198890%_ (let () (declare (not safe)) - (gxc#apply-lift-top-lambdas _%stx198614%_)))) + (gxc#apply-lift-top-lambdas _%stx198888%_)))) (let () (declare (not safe)) - (gxc#apply-collect-type-info _%stx198616%_)) + (gxc#apply-collect-type-info _%stx198890%_)) (let () (declare (not safe)) - (gxc#apply-collect-mutable-type-info _%stx198616%_)) - (let _%fixpoint198619%_ ((_%current198621%_ + (gxc#apply-collect-mutable-type-info _%stx198890%_)) + (let _%fixpoint198893%_ ((_%current198895%_ (let () (declare (not safe)) (gxc#optimizer-current-types)))) (let () (declare (not safe)) - (gxc#apply-refine-type-info _%stx198616%_)) - (let ((_%refined198623%_ + (gxc#apply-refine-type-info _%stx198890%_)) + (let ((_%refined198897%_ (let () (declare (not safe)) (gxc#optimizer-current-types)))) - (if (equal? _%current198621%_ _%refined198623%_) + (if (equal? _%current198895%_ _%refined198897%_) '#!void - (_%fixpoint198619%_ _%refined198623%_)))) + (_%fixpoint198893%_ _%refined198897%_)))) (let () (declare (not safe)) - (gxc#apply-check-return-type _%stx198616%_)) + (gxc#apply-check-return-type _%stx198890%_)) (let () (declare (not safe)) - (gxc#apply-collect-top-level-declarations _%stx198616%_)) - (let ((_%stx198625%_ + (gxc#apply-collect-top-level-declarations _%stx198890%_)) + (let ((_%stx198899%_ (let () (declare (not safe)) - (gxc#apply-optimize-annotated _%stx198616%_)))) + (gxc#apply-optimize-annotated _%stx198890%_)))) (declare (not safe)) - (gxc#apply-optimize-call _%stx198625%_))))) + (gxc#apply-optimize-call _%stx198899%_))))) (define gxc#::generate-ssxi::t - (let ((__tmp199161 (list gxc#::generate-runtime-empty::t)) - (__tmp199160 (cons (cons 'final: '#t) '()))) + (let ((__tmp199435 (list gxc#::generate-runtime-empty::t)) + (__tmp199434 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-ssxi::t '::generate-ssxi - __tmp199161 + __tmp199435 '() - __tmp199160 + __tmp199434 '#f))) (define gxc#::generate-ssxi? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-ssxi::t))) (define gxc#make-::generate-ssxi - (lambda _%$args198609%_ - (apply make-instance gxc#::generate-ssxi::t _%$args198609%_))) + (lambda _%$args198883%_ + (apply make-instance gxc#::generate-ssxi::t _%$args198883%_))) (define gxc#::generate-ssxi-bind-methods! - (let ((__tmp199162 + (let ((__tmp199436 (lambda () (force gxc#::generate-runtime-empty-bind-methods!) (let () @@ -537,201 +537,201 @@ (declare (not safe)) (__seal-class! gxc#::generate-ssxi::t))))) (declare (not safe)) - (__make-promise __tmp199162))) + (__make-promise __tmp199436))) (define gxc#apply-generate-ssxi - (lambda (_%stx198601%_) + (lambda (_%stx198875%_) (force gxc#::generate-ssxi-bind-methods!) - (let* ((_%self198604%_ - (let ((__obj199142 + (let* ((_%self198878%_ + (let ((__obj199416 (let () (declare (not safe)) (##structure gxc#::generate-ssxi::t)))) - __obj199142)) - (__tmp199163 + __obj199416)) + (__tmp199437 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self198604%_ _%stx198601%_))))) + (gxc#compile-e__1 _%self198878%_ _%stx198875%_))))) (declare (not safe)) (__call-with-parameters - __tmp199163 + __tmp199437 gxc#current-compile-method - _%self198604%_)))) + _%self198878%_)))) (define gxc#generate-ssxi-begin-syntax% - (lambda (_%self198561%_ _%stx198562%_) - (let* ((_%g198564198574%_ - (lambda (_%g198565198571%_) + (lambda (_%self198835%_ _%stx198836%_) + (let* ((_%g198838198848%_ + (lambda (_%g198839198845%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g198565198571%_)))) - (_%g198563198598%_ - (lambda (_%g198565198577%_) + _%g198839198845%_)))) + (_%g198837198872%_ + (lambda (_%g198839198851%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g198565198577%_)) - (let ((_%e198567198579%_ + (gx#stx-pair? _%g198839198851%_)) + (let ((_%e198841198853%_ (let () (declare (not safe)) - (gx#stx-e _%g198565198577%_)))) - (let ((_%hd198568198582%_ + (gx#stx-e _%g198839198851%_)))) + (let ((_%hd198842198856%_ (let () (declare (not safe)) - (##car _%e198567198579%_))) - (_%tl198569198584%_ + (##car _%e198841198853%_))) + (_%tl198843198858%_ (let () (declare (not safe)) - (##cdr _%e198567198579%_)))) - ((lambda (_%L198587%_) - (let ((__tmp199166 + (##cdr _%e198841198853%_)))) + ((lambda (_%L198861%_) + (let ((__tmp199440 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-begin% - _%self198561%_ - _%stx198562%_)))) - (__tmp199164 - (let ((__tmp199165 + _%self198835%_ + _%stx198836%_)))) + (__tmp199438 + (let ((__tmp199439 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp199165 '1)))) + (##fx+ __tmp199439 '1)))) (declare (not safe)) (__call-with-parameters - __tmp199166 + __tmp199440 gx#current-expander-phi - __tmp199164))) - _%tl198569198584%_))) - (_%g198564198574%_ _%g198565198577%_))))) - (_%g198563198598%_ _%stx198562%_)))) + __tmp199438))) + _%tl198843198858%_))) + (_%g198838198848%_ _%g198839198851%_))))) + (_%g198837198872%_ _%stx198836%_)))) (define gxc#generate-ssxi-module% - (lambda (_%self198500%_ _%stx198501%_) - (let* ((_%g198503198517%_ - (lambda (_%g198504198514%_) + (lambda (_%self198774%_ _%stx198775%_) + (let* ((_%g198777198791%_ + (lambda (_%g198778198788%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g198504198514%_)))) - (_%g198502198558%_ - (lambda (_%g198504198520%_) + _%g198778198788%_)))) + (_%g198776198832%_ + (lambda (_%g198778198794%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g198504198520%_)) - (let ((_%e198507198522%_ + (gx#stx-pair? _%g198778198794%_)) + (let ((_%e198781198796%_ (let () (declare (not safe)) - (gx#stx-e _%g198504198520%_)))) - (let ((_%hd198508198525%_ + (gx#stx-e _%g198778198794%_)))) + (let ((_%hd198782198799%_ (let () (declare (not safe)) - (##car _%e198507198522%_))) - (_%tl198509198527%_ + (##car _%e198781198796%_))) + (_%tl198783198801%_ (let () (declare (not safe)) - (##cdr _%e198507198522%_)))) + (##cdr _%e198781198796%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl198509198527%_)) - (let ((_%e198510198530%_ + (gx#stx-pair? _%tl198783198801%_)) + (let ((_%e198784198804%_ (let () (declare (not safe)) - (gx#stx-e _%tl198509198527%_)))) - (let ((_%hd198511198533%_ + (gx#stx-e _%tl198783198801%_)))) + (let ((_%hd198785198807%_ (let () (declare (not safe)) - (##car _%e198510198530%_))) - (_%tl198512198535%_ + (##car _%e198784198804%_))) + (_%tl198786198809%_ (let () (declare (not safe)) - (##cdr _%e198510198530%_)))) - ((lambda (_%L198538%_ _%L198539%_) - (let* ((_%ctx198552%_ + (##cdr _%e198784198804%_)))) + ((lambda (_%L198812%_ _%L198813%_) + (let* ((_%ctx198826%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L198539%_))) - (_%code198554%_ + _%L198813%_))) + (_%code198828%_ (##structure-ref - _%ctx198552%_ + _%ctx198826%_ '11 gx#module-context::t '#f)) - (__tmp199167 + (__tmp199441 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self198500%_ - _%code198554%_))))) + _%self198774%_ + _%code198828%_))))) (declare (not safe)) (__call-with-parameters - __tmp199167 + __tmp199441 gx#current-expander-context - _%ctx198552%_))) - _%tl198512198535%_ - _%hd198511198533%_))) - (_%g198503198517%_ _%g198504198520%_)))) - (_%g198503198517%_ _%g198504198520%_))))) - (_%g198502198558%_ _%stx198501%_)))) + _%ctx198826%_))) + _%tl198786198809%_ + _%hd198785198807%_))) + (_%g198777198791%_ _%g198778198794%_)))) + (_%g198777198791%_ _%g198778198794%_))))) + (_%g198776198832%_ _%stx198775%_)))) (define gxc#generate-ssxi-define-values% - (lambda (_%self198305%_ _%stx198306%_) - (letrec ((_%generate-e198308%_ - (lambda (_%id198485%_) - (let* ((_%sym198487%_ - (if (let ((__tmp199168 + (lambda (_%self198579%_ _%stx198580%_) + (letrec ((_%generate-e198582%_ + (lambda (_%id198759%_) + (let* ((_%sym198761%_ + (if (let ((__tmp199442 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'id)))) (declare (not safe)) - (gx#identifier? __tmp199168)) + (gx#identifier? __tmp199442)) (let () (declare (not safe)) - (gxc#identifier-symbol _%id198485%_)) + (gxc#identifier-symbol _%id198759%_)) '#f)) - (_%$e198489%_ + (_%$e198763%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-class _%sym198487%_)))) - (if _%$e198489%_ - ((lambda (_%klass198492%_) + (gxc#optimizer-lookup-class _%sym198761%_)))) + (if _%$e198763%_ + ((lambda (_%klass198766%_) (let () (declare (not safe)) (gxc#verbose '"generate class decl" - _%sym198487%_)) + _%sym198761%_)) (cons 'begin (cons (cons 'declare-class - (cons _%sym198487%_ - (cons (let ((__method199143 + (cons _%sym198761%_ + (cons (let ((__method199417 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__method-ref _%klass198492%_ 'typedecl)))) - (if __method199143 + (__method-ref _%klass198766%_ 'typedecl)))) + (if __method199417 (let () (declare (not safe)) - (__method199143 _%klass198492%_)) + (__method199417 _%klass198766%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%klass198492%_ + _%klass198766%_ 'typedecl)) '#!void))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons 'declare-type - (cons _%sym198487%_ + (cons _%sym198761%_ (cons (cons 'optimizer-resolve-class ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'quote (cons (cons 'typedecl - (cons _%sym198487%_ + (cons _%sym198761%_ '())) '())) (cons (cons 'quote (cons 'class::t '())) @@ -739,1309 +739,1309 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%$e198489%_) - (let ((_%$e198494%_ + _%$e198763%_) + (let ((_%$e198768%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%sym198487%_)))) - (if _%$e198494%_ - ((lambda (_%type198497%_) + (gxc#optimizer-lookup-type _%sym198761%_)))) + (if _%$e198768%_ + ((lambda (_%type198771%_) (let () (declare (not safe)) (gxc#verbose '"generate typedecl " - _%sym198487%_ + _%sym198761%_ '" " - _%type198497%_)) + _%type198771%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type198497%_ + _%type198771%_ 'gxc#!class::t)) (cons 'declare-type - (cons _%sym198487%_ + (cons _%sym198761%_ (cons (cons 'optimizer-resolve-class (cons (cons 'quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'typedecl - (cons _%sym198487%_ '())) + (cons _%sym198761%_ '())) '())) (cons (cons 'quote (cons (let () (declare (not safe)) (gxc#optimizer-lookup-class-name - _%type198497%_)) + _%type198771%_)) '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons 'declare-type - (cons _%sym198487%_ - (cons (let ((__method199144 + (cons _%sym198761%_ + (cons (let ((__method199418 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__method-ref _%type198497%_ 'typedecl)))) - (if __method199144 + (__method-ref _%type198771%_ 'typedecl)))) + (if __method199418 (let () (declare (not safe)) - (__method199144 _%type198497%_)) + (__method199418 _%type198771%_)) (begin (let () (declare (not safe)) - (error '"Missing method" _%type198497%_ 'typedecl)) + (error '"Missing method" _%type198771%_ 'typedecl)) '#!void))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e198494%_) + _%$e198768%_) '(begin)))))))) - (let* ((_%__stx198755198756%_ _%stx198306%_) - (_%g198311198349%_ + (let* ((_%__stx199029199030%_ _%stx198580%_) + (_%g198585198623%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx198755198756%_))))) - (let ((_%__kont198757198758%_ - (lambda (_%L198467%_) (_%generate-e198308%_ _%L198467%_))) - (_%__kont198759198760%_ - (lambda (_%L198402%_) - (let ((_%types198428%_ - (map _%generate-e198308%_ - (let ((__tmp199169 - (lambda (_%g198420198423%_ - _%g198421198425%_) - (cons _%g198420198423%_ - _%g198421198425%_)))) + _%__stx199029199030%_))))) + (let ((_%__kont199031199032%_ + (lambda (_%L198741%_) (_%generate-e198582%_ _%L198741%_))) + (_%__kont199033199034%_ + (lambda (_%L198676%_) + (let ((_%types198702%_ + (map _%generate-e198582%_ + (let ((__tmp199443 + (lambda (_%g198694198697%_ + _%g198695198699%_) + (cons _%g198694198697%_ + _%g198695198699%_)))) (declare (not safe)) - (__foldr1 __tmp199169 '() _%L198402%_))))) - (cons 'begin _%types198428%_))))) - (let ((_%__match198810198811%_ - (lambda (_%e198327198354%_ - _%hd198328198357%_ - _%tl198329198359%_ - _%e198330198362%_ - _%hd198331198365%_ - _%tl198332198367%_ - _%__splice198761198762%_ - _%target198333198370%_ - _%tl198335198372%_) - (letrec ((_%loop198336198375%_ - (lambda (_%hd198334198378%_ - _%id198340198380%_) + (__foldr1 __tmp199443 '() _%L198676%_))))) + (cons 'begin _%types198702%_))))) + (let ((_%__match199084199085%_ + (lambda (_%e198601198628%_ + _%hd198602198631%_ + _%tl198603198633%_ + _%e198604198636%_ + _%hd198605198639%_ + _%tl198606198641%_ + _%__splice199035199036%_ + _%target198607198644%_ + _%tl198609198646%_) + (letrec ((_%loop198610198649%_ + (lambda (_%hd198608198652%_ + _%id198614198654%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd198334198378%_)) - (let ((_%e198337198383%_ + (gx#stx-pair? _%hd198608198652%_)) + (let ((_%e198611198657%_ (let () (declare (not safe)) (gx#stx-e - _%hd198334198378%_)))) - (let ((_%lp-tl198339198388%_ + _%hd198608198652%_)))) + (let ((_%lp-tl198613198662%_ (let () (declare (not safe)) - (##cdr _%e198337198383%_))) - (_%lp-hd198338198386%_ + (##cdr _%e198611198657%_))) + (_%lp-hd198612198660%_ (let () (declare (not safe)) - (##car _%e198337198383%_)))) - (_%loop198336198375%_ - _%lp-tl198339198388%_ - (cons _%lp-hd198338198386%_ - _%id198340198380%_)))) - (let ((_%id198341198391%_ - (reverse _%id198340198380%_))) + (##car _%e198611198657%_)))) + (_%loop198610198649%_ + _%lp-tl198613198662%_ + (cons _%lp-hd198612198660%_ + _%id198614198654%_)))) + (let ((_%id198615198665%_ + (reverse _%id198614198654%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl198332198367%_)) - (let ((_%e198342198394%_ + _%tl198606198641%_)) + (let ((_%e198616198668%_ (let () (declare (not safe)) (gx#stx-e - _%tl198332198367%_)))) - (let ((_%tl198344198399%_ + _%tl198606198641%_)))) + (let ((_%tl198618198673%_ (let () (declare (not safe)) - (##cdr _%e198342198394%_))) - (_%hd198343198397%_ + (##cdr _%e198616198668%_))) + (_%hd198617198671%_ (let () (declare (not safe)) - (##car _%e198342198394%_)))) + (##car _%e198616198668%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl198344198399%_)) - (_%__kont198759198760%_ - _%id198341198391%_) + _%tl198618198673%_)) + (_%__kont199033199034%_ + _%id198615198665%_) (let () (declare (not safe)) - (_%g198311198349%_))))) + (_%g198585198623%_))))) (let () (declare (not safe)) - (_%g198311198349%_)))))))) - (_%loop198336198375%_ _%target198333198370%_ '()))))) + (_%g198585198623%_)))))))) + (_%loop198610198649%_ _%target198607198644%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx198755198756%_)) - (let ((_%e198314198435%_ + (gx#stx-pair? _%__stx199029199030%_)) + (let ((_%e198588198709%_ (let () (declare (not safe)) - (gx#stx-e _%__stx198755198756%_)))) - (let ((_%tl198316198440%_ + (gx#stx-e _%__stx199029199030%_)))) + (let ((_%tl198590198714%_ (let () (declare (not safe)) - (##cdr _%e198314198435%_))) - (_%hd198315198438%_ + (##cdr _%e198588198709%_))) + (_%hd198589198712%_ (let () (declare (not safe)) - (##car _%e198314198435%_)))) + (##car _%e198588198709%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl198316198440%_)) - (let ((_%e198317198443%_ + (gx#stx-pair? _%tl198590198714%_)) + (let ((_%e198591198717%_ (let () (declare (not safe)) - (gx#stx-e _%tl198316198440%_)))) - (let ((_%tl198319198448%_ + (gx#stx-e _%tl198590198714%_)))) + (let ((_%tl198593198722%_ (let () (declare (not safe)) - (##cdr _%e198317198443%_))) - (_%hd198318198446%_ + (##cdr _%e198591198717%_))) + (_%hd198592198720%_ (let () (declare (not safe)) - (##car _%e198317198443%_)))) + (##car _%e198591198717%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd198318198446%_)) - (let ((_%e198320198451%_ + (gx#stx-pair? _%hd198592198720%_)) + (let ((_%e198594198725%_ (let () (declare (not safe)) - (gx#stx-e _%hd198318198446%_)))) - (let ((_%tl198322198456%_ + (gx#stx-e _%hd198592198720%_)))) + (let ((_%tl198596198730%_ (let () (declare (not safe)) - (##cdr _%e198320198451%_))) - (_%hd198321198454%_ + (##cdr _%e198594198725%_))) + (_%hd198595198728%_ (let () (declare (not safe)) - (##car _%e198320198451%_)))) + (##car _%e198594198725%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl198322198456%_)) + _%tl198596198730%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl198319198448%_)) - (let ((_%e198323198459%_ + _%tl198593198722%_)) + (let ((_%e198597198733%_ (let () (declare (not safe)) (gx#stx-e - _%tl198319198448%_)))) - (let ((_%tl198325198464%_ + _%tl198593198722%_)))) + (let ((_%tl198599198738%_ (let () (declare (not safe)) - (##cdr _%e198323198459%_))) - (_%hd198324198462%_ + (##cdr _%e198597198733%_))) + (_%hd198598198736%_ (let () (declare (not safe)) - (##car _%e198323198459%_)))) + (##car _%e198597198733%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl198325198464%_)) - (_%__kont198757198758%_ - _%hd198321198454%_) + _%tl198599198738%_)) + (_%__kont199031199032%_ + _%hd198595198728%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd198318198446%_)) - (let ((_%__splice198761198762%_ + _%hd198592198720%_)) + (let ((_%__splice199035199036%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd198318198446%_ '0)))) - (let ((_%tl198335198372%_ + (gx#syntax-split-splice _%hd198592198720%_ '0)))) + (let ((_%tl198609198646%_ (let () (declare (not safe)) - (##vector-ref _%__splice198761198762%_ '1))) - (_%target198333198370%_ + (##vector-ref _%__splice199035199036%_ '1))) + (_%target198607198644%_ (let () (declare (not safe)) - (##vector-ref _%__splice198761198762%_ '0)))) + (##vector-ref _%__splice199035199036%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl198335198372%_)) - (_%__match198810198811%_ - _%e198314198435%_ - _%hd198315198438%_ - _%tl198316198440%_ - _%e198317198443%_ - _%hd198318198446%_ - _%tl198319198448%_ - _%__splice198761198762%_ - _%target198333198370%_ - _%tl198335198372%_) + (gx#stx-null? _%tl198609198646%_)) + (_%__match199084199085%_ + _%e198588198709%_ + _%hd198589198712%_ + _%tl198590198714%_ + _%e198591198717%_ + _%hd198592198720%_ + _%tl198593198722%_ + _%__splice199035199036%_ + _%target198607198644%_ + _%tl198609198646%_) (let () (declare (not safe)) - (_%g198311198349%_))))) - (let () (declare (not safe)) (_%g198311198349%_)))))) + (_%g198585198623%_))))) + (let () (declare (not safe)) (_%g198585198623%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd198318198446%_)) - (let ((_%__splice198761198762%_ + _%hd198592198720%_)) + (let ((_%__splice199035199036%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd198318198446%_ + _%hd198592198720%_ '0)))) - (let ((_%tl198335198372%_ + (let ((_%tl198609198646%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice198761198762%_ '1))) - (_%target198333198370%_ + (##vector-ref _%__splice199035199036%_ '1))) + (_%target198607198644%_ (let () (declare (not safe)) - (##vector-ref _%__splice198761198762%_ '0)))) + (##vector-ref _%__splice199035199036%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl198335198372%_)) - (_%__match198810198811%_ - _%e198314198435%_ - _%hd198315198438%_ - _%tl198316198440%_ - _%e198317198443%_ - _%hd198318198446%_ - _%tl198319198448%_ - _%__splice198761198762%_ - _%target198333198370%_ - _%tl198335198372%_) - (let () (declare (not safe)) (_%g198311198349%_))))) + (gx#stx-null? _%tl198609198646%_)) + (_%__match199084199085%_ + _%e198588198709%_ + _%hd198589198712%_ + _%tl198590198714%_ + _%e198591198717%_ + _%hd198592198720%_ + _%tl198593198722%_ + _%__splice199035199036%_ + _%target198607198644%_ + _%tl198609198646%_) + (let () (declare (not safe)) (_%g198585198623%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g198311198349%_)))) + (_%g198585198623%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd198318198446%_)) - (let ((_%__splice198761198762%_ + _%hd198592198720%_)) + (let ((_%__splice199035199036%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd198318198446%_ + _%hd198592198720%_ '0)))) - (let ((_%tl198335198372%_ + (let ((_%tl198609198646%_ (let () (declare (not safe)) (##vector-ref - _%__splice198761198762%_ + _%__splice199035199036%_ '1))) - (_%target198333198370%_ + (_%target198607198644%_ (let () (declare (not safe)) (##vector-ref - _%__splice198761198762%_ + _%__splice199035199036%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl198335198372%_)) - (_%__match198810198811%_ - _%e198314198435%_ - _%hd198315198438%_ - _%tl198316198440%_ - _%e198317198443%_ - _%hd198318198446%_ - _%tl198319198448%_ - _%__splice198761198762%_ - _%target198333198370%_ - _%tl198335198372%_) + _%tl198609198646%_)) + (_%__match199084199085%_ + _%e198588198709%_ + _%hd198589198712%_ + _%tl198590198714%_ + _%e198591198717%_ + _%hd198592198720%_ + _%tl198593198722%_ + _%__splice199035199036%_ + _%target198607198644%_ + _%tl198609198646%_) (let () (declare (not safe)) - (_%g198311198349%_))))) + (_%g198585198623%_))))) (let () (declare (not safe)) - (_%g198311198349%_)))))) + (_%g198585198623%_)))))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd198318198446%_)) - (let ((_%__splice198761198762%_ + _%hd198592198720%_)) + (let ((_%__splice199035199036%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd198318198446%_ + _%hd198592198720%_ '0)))) - (let ((_%tl198335198372%_ + (let ((_%tl198609198646%_ (let () (declare (not safe)) (##vector-ref - _%__splice198761198762%_ + _%__splice199035199036%_ '1))) - (_%target198333198370%_ + (_%target198607198644%_ (let () (declare (not safe)) (##vector-ref - _%__splice198761198762%_ + _%__splice199035199036%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl198335198372%_)) - (_%__match198810198811%_ - _%e198314198435%_ - _%hd198315198438%_ - _%tl198316198440%_ - _%e198317198443%_ - _%hd198318198446%_ - _%tl198319198448%_ - _%__splice198761198762%_ - _%target198333198370%_ - _%tl198335198372%_) + _%tl198609198646%_)) + (_%__match199084199085%_ + _%e198588198709%_ + _%hd198589198712%_ + _%tl198590198714%_ + _%e198591198717%_ + _%hd198592198720%_ + _%tl198593198722%_ + _%__splice199035199036%_ + _%target198607198644%_ + _%tl198609198646%_) (let () (declare (not safe)) - (_%g198311198349%_))))) + (_%g198585198623%_))))) (let () (declare (not safe)) - (_%g198311198349%_)))))) + (_%g198585198623%_)))))) (let () (declare (not safe)) - (_%g198311198349%_))))) - (let () (declare (not safe)) (_%g198311198349%_))))))))) + (_%g198585198623%_))))) + (let () (declare (not safe)) (_%g198585198623%_))))))))) (define gxc#generate-ssxi-call% - (lambda (_%self197858%_ _%stx197859%_) - (let* ((_%__stx198813198814%_ _%stx197859%_) - (_%g197863197965%_ + (lambda (_%self198132%_ _%stx198133%_) + (let* ((_%__stx199087199088%_ _%stx198133%_) + (_%g198137198239%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx198813198814%_))))) - (let ((_%__kont198815198816%_ - (lambda (_%L198255%_ - _%L198256%_ - _%L198257%_ - _%L198258%_ - _%L198259%_) + _%__stx199087199088%_))))) + (let ((_%__kont199089199090%_ + (lambda (_%L198529%_ + _%L198530%_ + _%L198531%_ + _%L198532%_ + _%L198533%_) (cons 'declare-method (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%L198258%_)) + (gxc#identifier-symbol _%L198532%_)) (cons (let () (declare (not safe)) - (gx#stx-e _%L198257%_)) + (gx#stx-e _%L198531%_)) (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%L198256%_)) + _%L198530%_)) (cons (let () (declare (not safe)) - (gx#stx-e _%L198255%_)) + (gx#stx-e _%L198529%_)) '()))))))) - (_%__kont198817198818%_ - (lambda (_%L198081%_ _%L198082%_ _%L198083%_ _%L198084%_) + (_%__kont199091199092%_ + (lambda (_%L198355%_ _%L198356%_ _%L198357%_ _%L198358%_) (cons 'declare-method (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%L198083%_)) + (gxc#identifier-symbol _%L198357%_)) (cons (let () (declare (not safe)) - (gx#stx-e _%L198082%_)) + (gx#stx-e _%L198356%_)) (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%L198081%_)) + _%L198355%_)) (cons '#f '()))))))) - (_%__kont198819198820%_ (lambda () '(begin)))) - (let ((_%__match198948198949%_ - (lambda (_%e197870198127%_ - _%hd197871198130%_ - _%tl197872198132%_ - _%e197873198135%_ - _%hd197874198138%_ - _%tl197875198140%_ - _%e197876198143%_ - _%hd197877198146%_ - _%tl197878198148%_ - _%e197879198151%_ - _%hd197880198154%_ - _%tl197881198156%_ - _%e197882198159%_ - _%hd197883198162%_ - _%tl197884198164%_ - _%e197885198167%_ - _%hd197886198170%_ - _%tl197887198172%_ - _%e197888198175%_ - _%hd197889198178%_ - _%tl197890198180%_ - _%e197891198183%_ - _%hd197892198186%_ - _%tl197893198188%_ - _%e197894198191%_ - _%hd197895198194%_ - _%tl197896198196%_ - _%e197897198199%_ - _%hd197898198202%_ - _%tl197899198204%_ - _%e197900198207%_ - _%hd197901198210%_ - _%tl197902198212%_ - _%e197903198215%_ - _%hd197904198218%_ - _%tl197905198220%_ - _%e197906198223%_ - _%hd197907198226%_ - _%tl197908198228%_ - _%e197909198231%_ - _%hd197910198234%_ - _%tl197911198236%_ - _%e197912198239%_ - _%hd197913198242%_ - _%tl197914198244%_ - _%e197915198247%_ - _%hd197916198250%_ - _%tl197917198252%_) - (let ((_%L198255%_ _%hd197916198250%_) - (_%L198256%_ _%hd197907198226%_) - (_%L198257%_ _%hd197898198202%_) - (_%L198258%_ _%hd197889198178%_) - (_%L198259%_ _%hd197880198154%_)) + (_%__kont199093199094%_ (lambda () '(begin)))) + (let ((_%__match199222199223%_ + (lambda (_%e198144198401%_ + _%hd198145198404%_ + _%tl198146198406%_ + _%e198147198409%_ + _%hd198148198412%_ + _%tl198149198414%_ + _%e198150198417%_ + _%hd198151198420%_ + _%tl198152198422%_ + _%e198153198425%_ + _%hd198154198428%_ + _%tl198155198430%_ + _%e198156198433%_ + _%hd198157198436%_ + _%tl198158198438%_ + _%e198159198441%_ + _%hd198160198444%_ + _%tl198161198446%_ + _%e198162198449%_ + _%hd198163198452%_ + _%tl198164198454%_ + _%e198165198457%_ + _%hd198166198460%_ + _%tl198167198462%_ + _%e198168198465%_ + _%hd198169198468%_ + _%tl198170198470%_ + _%e198171198473%_ + _%hd198172198476%_ + _%tl198173198478%_ + _%e198174198481%_ + _%hd198175198484%_ + _%tl198176198486%_ + _%e198177198489%_ + _%hd198178198492%_ + _%tl198179198494%_ + _%e198180198497%_ + _%hd198181198500%_ + _%tl198182198502%_ + _%e198183198505%_ + _%hd198184198508%_ + _%tl198185198510%_ + _%e198186198513%_ + _%hd198187198516%_ + _%tl198188198518%_ + _%e198189198521%_ + _%hd198190198524%_ + _%tl198191198526%_) + (let ((_%L198529%_ _%hd198190198524%_) + (_%L198530%_ _%hd198181198500%_) + (_%L198531%_ _%hd198172198476%_) + (_%L198532%_ _%hd198163198452%_) + (_%L198533%_ _%hd198154198428%_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L198259%_ + _%L198533%_ 'bind-method!)) - (_%__kont198815198816%_ - _%L198255%_ - _%L198256%_ - _%L198257%_ - _%L198258%_ - _%L198259%_) - (_%__kont198819198820%_)))))) + (_%__kont199089199090%_ + _%L198529%_ + _%L198530%_ + _%L198531%_ + _%L198532%_ + _%L198533%_) + (_%__kont199093199094%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx198813198814%_)) - (let ((_%e197870198127%_ + (gx#stx-pair? _%__stx199087199088%_)) + (let ((_%e198144198401%_ (let () (declare (not safe)) - (gx#stx-e _%__stx198813198814%_)))) - (let ((_%tl197872198132%_ + (gx#stx-e _%__stx199087199088%_)))) + (let ((_%tl198146198406%_ (let () (declare (not safe)) - (##cdr _%e197870198127%_))) - (_%hd197871198130%_ + (##cdr _%e198144198401%_))) + (_%hd198145198404%_ (let () (declare (not safe)) - (##car _%e197870198127%_)))) + (##car _%e198144198401%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197872198132%_)) - (let ((_%e197873198135%_ + (gx#stx-pair? _%tl198146198406%_)) + (let ((_%e198147198409%_ (let () (declare (not safe)) - (gx#stx-e _%tl197872198132%_)))) - (let ((_%tl197875198140%_ + (gx#stx-e _%tl198146198406%_)))) + (let ((_%tl198149198414%_ (let () (declare (not safe)) - (##cdr _%e197873198135%_))) - (_%hd197874198138%_ + (##cdr _%e198147198409%_))) + (_%hd198148198412%_ (let () (declare (not safe)) - (##car _%e197873198135%_)))) + (##car _%e198147198409%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd197874198138%_)) - (let ((_%e197876198143%_ + (gx#stx-pair? _%hd198148198412%_)) + (let ((_%e198150198417%_ (let () (declare (not safe)) - (gx#stx-e _%hd197874198138%_)))) - (let ((_%tl197878198148%_ + (gx#stx-e _%hd198148198412%_)))) + (let ((_%tl198152198422%_ (let () (declare (not safe)) - (##cdr _%e197876198143%_))) - (_%hd197877198146%_ + (##cdr _%e198150198417%_))) + (_%hd198151198420%_ (let () (declare (not safe)) - (##car _%e197876198143%_)))) + (##car _%e198150198417%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd197877198146%_)) + _%hd198151198420%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd197877198146%_)) + _%hd198151198420%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197878198148%_)) - (let ((_%e197879198151%_ + _%tl198152198422%_)) + (let ((_%e198153198425%_ (let () (declare (not safe)) (gx#stx-e - _%tl197878198148%_)))) - (let ((_%tl197881198156%_ + _%tl198152198422%_)))) + (let ((_%tl198155198430%_ (let () (declare (not safe)) - (##cdr _%e197879198151%_))) - (_%hd197880198154%_ + (##cdr _%e198153198425%_))) + (_%hd198154198428%_ (let () (declare (not safe)) - (##car _%e197879198151%_)))) + (##car _%e198153198425%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197881198156%_)) + _%tl198155198430%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl197875198140%_)) - (let ((_%e197882198159%_ + (gx#stx-pair? _%tl198149198414%_)) + (let ((_%e198156198433%_ (let () (declare (not safe)) - (gx#stx-e _%tl197875198140%_)))) - (let ((_%tl197884198164%_ + (gx#stx-e _%tl198149198414%_)))) + (let ((_%tl198158198438%_ (let () (declare (not safe)) - (##cdr _%e197882198159%_))) - (_%hd197883198162%_ + (##cdr _%e198156198433%_))) + (_%hd198157198436%_ (let () (declare (not safe)) - (##car _%e197882198159%_)))) + (##car _%e198156198433%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd197883198162%_)) - (let ((_%e197885198167%_ + (gx#stx-pair? _%hd198157198436%_)) + (let ((_%e198159198441%_ (let () (declare (not safe)) - (gx#stx-e _%hd197883198162%_)))) - (let ((_%tl197887198172%_ + (gx#stx-e _%hd198157198436%_)))) + (let ((_%tl198161198446%_ (let () (declare (not safe)) - (##cdr _%e197885198167%_))) - (_%hd197886198170%_ + (##cdr _%e198159198441%_))) + (_%hd198160198444%_ (let () (declare (not safe)) - (##car _%e197885198167%_)))) + (##car _%e198159198441%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd197886198170%_)) + (gx#identifier? _%hd198160198444%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd197886198170%_)) + _%hd198160198444%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197887198172%_)) - (let ((_%e197888198175%_ + _%tl198161198446%_)) + (let ((_%e198162198449%_ (let () (declare (not safe)) (gx#stx-e - _%tl197887198172%_)))) - (let ((_%tl197890198180%_ + _%tl198161198446%_)))) + (let ((_%tl198164198454%_ (let () (declare (not safe)) - (##cdr _%e197888198175%_))) - (_%hd197889198178%_ + (##cdr _%e198162198449%_))) + (_%hd198163198452%_ (let () (declare (not safe)) - (##car _%e197888198175%_)))) + (##car _%e198162198449%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197890198180%_)) + _%tl198164198454%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197884198164%_)) - (let ((_%e197891198183%_ + _%tl198158198438%_)) + (let ((_%e198165198457%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl197884198164%_)))) - (let ((_%tl197893198188%_ + (gx#stx-e _%tl198158198438%_)))) + (let ((_%tl198167198462%_ (let () (declare (not safe)) - (##cdr _%e197891198183%_))) - (_%hd197892198186%_ + (##cdr _%e198165198457%_))) + (_%hd198166198460%_ (let () (declare (not safe)) - (##car _%e197891198183%_)))) + (##car _%e198165198457%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd197892198186%_)) - (let ((_%e197894198191%_ + (gx#stx-pair? _%hd198166198460%_)) + (let ((_%e198168198465%_ (let () (declare (not safe)) - (gx#stx-e _%hd197892198186%_)))) - (let ((_%tl197896198196%_ + (gx#stx-e _%hd198166198460%_)))) + (let ((_%tl198170198470%_ (let () (declare (not safe)) - (##cdr _%e197894198191%_))) - (_%hd197895198194%_ + (##cdr _%e198168198465%_))) + (_%hd198169198468%_ (let () (declare (not safe)) - (##car _%e197894198191%_)))) + (##car _%e198168198465%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd197895198194%_)) + (gx#identifier? _%hd198169198468%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd197895198194%_)) + _%hd198169198468%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197896198196%_)) - (let ((_%e197897198199%_ + (gx#stx-pair? _%tl198170198470%_)) + (let ((_%e198171198473%_ (let () (declare (not safe)) (gx#stx-e - _%tl197896198196%_)))) - (let ((_%tl197899198204%_ + _%tl198170198470%_)))) + (let ((_%tl198173198478%_ (let () (declare (not safe)) - (##cdr _%e197897198199%_))) - (_%hd197898198202%_ + (##cdr _%e198171198473%_))) + (_%hd198172198476%_ (let () (declare (not safe)) - (##car _%e197897198199%_)))) + (##car _%e198171198473%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197899198204%_)) + _%tl198173198478%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197893198188%_)) - (let ((_%e197900198207%_ + _%tl198167198462%_)) + (let ((_%e198174198481%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl197893198188%_)))) - (let ((_%tl197902198212%_ - (let () (declare (not safe)) (##cdr _%e197900198207%_))) - (_%hd197901198210%_ + (gx#stx-e _%tl198167198462%_)))) + (let ((_%tl198176198486%_ + (let () (declare (not safe)) (##cdr _%e198174198481%_))) + (_%hd198175198484%_ (let () (declare (not safe)) - (##car _%e197900198207%_)))) + (##car _%e198174198481%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd197901198210%_)) - (let ((_%e197903198215%_ + (gx#stx-pair? _%hd198175198484%_)) + (let ((_%e198177198489%_ (let () (declare (not safe)) - (gx#stx-e _%hd197901198210%_)))) - (let ((_%tl197905198220%_ + (gx#stx-e _%hd198175198484%_)))) + (let ((_%tl198179198494%_ (let () (declare (not safe)) - (##cdr _%e197903198215%_))) - (_%hd197904198218%_ + (##cdr _%e198177198489%_))) + (_%hd198178198492%_ (let () (declare (not safe)) - (##car _%e197903198215%_)))) + (##car _%e198177198489%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd197904198218%_)) + (gx#identifier? _%hd198178198492%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd197904198218%_)) + (gx#stx-eq? '%#ref _%hd198178198492%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197905198220%_)) - (let ((_%e197906198223%_ + (gx#stx-pair? _%tl198179198494%_)) + (let ((_%e198180198497%_ (let () (declare (not safe)) - (gx#stx-e _%tl197905198220%_)))) - (let ((_%tl197908198228%_ + (gx#stx-e _%tl198179198494%_)))) + (let ((_%tl198182198502%_ (let () (declare (not safe)) - (##cdr _%e197906198223%_))) - (_%hd197907198226%_ + (##cdr _%e198180198497%_))) + (_%hd198181198500%_ (let () (declare (not safe)) - (##car _%e197906198223%_)))) + (##car _%e198180198497%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197908198228%_)) + _%tl198182198502%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197902198212%_)) - (let ((_%e197909198231%_ + _%tl198176198486%_)) + (let ((_%e198183198505%_ (let () (declare (not safe)) (gx#stx-e - _%tl197902198212%_)))) - (let ((_%tl197911198236%_ + _%tl198176198486%_)))) + (let ((_%tl198185198510%_ (let () (declare (not safe)) - (##cdr _%e197909198231%_))) - (_%hd197910198234%_ + (##cdr _%e198183198505%_))) + (_%hd198184198508%_ (let () (declare (not safe)) - (##car _%e197909198231%_)))) + (##car _%e198183198505%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd197910198234%_)) - (let ((_%e197912198239%_ + _%hd198184198508%_)) + (let ((_%e198186198513%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd197910198234%_)))) - (let ((_%tl197914198244%_ + (gx#stx-e _%hd198184198508%_)))) + (let ((_%tl198188198518%_ (let () (declare (not safe)) - (##cdr _%e197912198239%_))) - (_%hd197913198242%_ + (##cdr _%e198186198513%_))) + (_%hd198187198516%_ (let () (declare (not safe)) - (##car _%e197912198239%_)))) + (##car _%e198186198513%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd197913198242%_)) + (gx#identifier? _%hd198187198516%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd197913198242%_)) + (gx#stx-eq? '%#quote _%hd198187198516%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197914198244%_)) - (let ((_%e197915198247%_ + (gx#stx-pair? _%tl198188198518%_)) + (let ((_%e198189198521%_ (let () (declare (not safe)) - (gx#stx-e _%tl197914198244%_)))) - (let ((_%tl197917198252%_ + (gx#stx-e _%tl198188198518%_)))) + (let ((_%tl198191198526%_ (let () (declare (not safe)) - (##cdr _%e197915198247%_))) - (_%hd197916198250%_ + (##cdr _%e198189198521%_))) + (_%hd198190198524%_ (let () (declare (not safe)) - (##car _%e197915198247%_)))) + (##car _%e198189198521%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197917198252%_)) + (gx#stx-null? _%tl198191198526%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197911198236%_)) - (_%__match198948198949%_ - _%e197870198127%_ - _%hd197871198130%_ - _%tl197872198132%_ - _%e197873198135%_ - _%hd197874198138%_ - _%tl197875198140%_ - _%e197876198143%_ - _%hd197877198146%_ - _%tl197878198148%_ - _%e197879198151%_ - _%hd197880198154%_ - _%tl197881198156%_ - _%e197882198159%_ - _%hd197883198162%_ - _%tl197884198164%_ - _%e197885198167%_ - _%hd197886198170%_ - _%tl197887198172%_ - _%e197888198175%_ - _%hd197889198178%_ - _%tl197890198180%_ - _%e197891198183%_ - _%hd197892198186%_ - _%tl197893198188%_ - _%e197894198191%_ - _%hd197895198194%_ - _%tl197896198196%_ - _%e197897198199%_ - _%hd197898198202%_ - _%tl197899198204%_ - _%e197900198207%_ - _%hd197901198210%_ - _%tl197902198212%_ - _%e197903198215%_ - _%hd197904198218%_ - _%tl197905198220%_ - _%e197906198223%_ - _%hd197907198226%_ - _%tl197908198228%_ - _%e197909198231%_ - _%hd197910198234%_ - _%tl197911198236%_ - _%e197912198239%_ - _%hd197913198242%_ - _%tl197914198244%_ - _%e197915198247%_ - _%hd197916198250%_ - _%tl197917198252%_) - (_%__kont198819198820%_)) - (_%__kont198819198820%_)))) - (_%__kont198819198820%_)) - (_%__kont198819198820%_)) - (_%__kont198819198820%_)))) - (_%__kont198819198820%_)))) + _%tl198185198510%_)) + (_%__match199222199223%_ + _%e198144198401%_ + _%hd198145198404%_ + _%tl198146198406%_ + _%e198147198409%_ + _%hd198148198412%_ + _%tl198149198414%_ + _%e198150198417%_ + _%hd198151198420%_ + _%tl198152198422%_ + _%e198153198425%_ + _%hd198154198428%_ + _%tl198155198430%_ + _%e198156198433%_ + _%hd198157198436%_ + _%tl198158198438%_ + _%e198159198441%_ + _%hd198160198444%_ + _%tl198161198446%_ + _%e198162198449%_ + _%hd198163198452%_ + _%tl198164198454%_ + _%e198165198457%_ + _%hd198166198460%_ + _%tl198167198462%_ + _%e198168198465%_ + _%hd198169198468%_ + _%tl198170198470%_ + _%e198171198473%_ + _%hd198172198476%_ + _%tl198173198478%_ + _%e198174198481%_ + _%hd198175198484%_ + _%tl198176198486%_ + _%e198177198489%_ + _%hd198178198492%_ + _%tl198179198494%_ + _%e198180198497%_ + _%hd198181198500%_ + _%tl198182198502%_ + _%e198183198505%_ + _%hd198184198508%_ + _%tl198185198510%_ + _%e198186198513%_ + _%hd198187198516%_ + _%tl198188198518%_ + _%e198189198521%_ + _%hd198190198524%_ + _%tl198191198526%_) + (_%__kont199093199094%_)) + (_%__kont199093199094%_)))) + (_%__kont199093199094%_)) + (_%__kont199093199094%_)) + (_%__kont199093199094%_)))) + (_%__kont199093199094%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _%tl197902198212%_)) - (if (let ((__tmp199170 + _%tl198176198486%_)) + (if (let ((__tmp199444 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp199170 'bind-method!)) - (let ((_%L198081%_ _%hd197907198226%_) - (_%L198082%_ _%hd197898198202%_) - (_%L198083%_ _%hd197889198178%_) - (_%L198084%_ _%hd197880198154%_)) - (_%__kont198817198818%_ - _%L198081%_ - _%L198082%_ - _%L198083%_ - _%L198084%_)) - (_%__kont198819198820%_)) - (_%__kont198819198820%_))) + (gxc#runtime-identifier=? __tmp199444 'bind-method!)) + (let ((_%L198355%_ _%hd198181198500%_) + (_%L198356%_ _%hd198172198476%_) + (_%L198357%_ _%hd198163198452%_) + (_%L198358%_ _%hd198154198428%_)) + (_%__kont199091199092%_ + _%L198355%_ + _%L198356%_ + _%L198357%_ + _%L198358%_)) + (_%__kont199093199094%_)) + (_%__kont199093199094%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont198819198820%_)))) - (_%__kont198819198820%_)) - (_%__kont198819198820%_)) - (_%__kont198819198820%_)))) - (_%__kont198819198820%_)))) - (_%__kont198819198820%_)) + (_%__kont199093199094%_)))) + (_%__kont199093199094%_)) + (_%__kont199093199094%_)) + (_%__kont199093199094%_)))) + (_%__kont199093199094%_)))) + (_%__kont199093199094%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont198819198820%_)))) - (_%__kont198819198820%_)) - (_%__kont198819198820%_)) - (_%__kont198819198820%_)))) - (_%__kont198819198820%_)))) - (_%__kont198819198820%_)) - (_%__kont198819198820%_)))) + (_%__kont199093199094%_)))) + (_%__kont199093199094%_)) + (_%__kont199093199094%_)) + (_%__kont199093199094%_)))) + (_%__kont199093199094%_)))) + (_%__kont199093199094%_)) + (_%__kont199093199094%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont198819198820%_)) - (_%__kont198819198820%_)) - (_%__kont198819198820%_)))) - (_%__kont198819198820%_)))) - (_%__kont198819198820%_)) - (_%__kont198819198820%_)))) + (_%__kont199093199094%_)) + (_%__kont199093199094%_)) + (_%__kont199093199094%_)))) + (_%__kont199093199094%_)))) + (_%__kont199093199094%_)) + (_%__kont199093199094%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont198819198820%_)) - (_%__kont198819198820%_)) - (_%__kont198819198820%_)))) - (_%__kont198819198820%_)))) - (_%__kont198819198820%_)))) - (_%__kont198819198820%_))))))) + (_%__kont199093199094%_)) + (_%__kont199093199094%_)) + (_%__kont199093199094%_)))) + (_%__kont199093199094%_)))) + (_%__kont199093199094%_)))) + (_%__kont199093199094%_))))))) (define gxc#generate-ssxi-begin-annotation% - (lambda (_%self197682%_ _%stx197683%_) - (let* ((_%__stx199057199058%_ _%stx197683%_) - (_%g197686197726%_ + (lambda (_%self197956%_ _%stx197957%_) + (let* ((_%__stx199331199332%_ _%stx197957%_) + (_%g197960198000%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx199057199058%_))))) - (let ((_%__kont199059199060%_ - (lambda (_%L197832%_ _%L197833%_) + _%__stx199331199332%_))))) + (let ((_%__kont199333199334%_ + (lambda (_%L198106%_ _%L198107%_) (cons 'declare-inline-rule! (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%L197833%_)) - (cons _%L197832%_ '()))))) - (_%__kont199061199062%_ - (lambda (_%L197755%_ _%L197756%_) '(begin)))) + (gxc#identifier-symbol _%L198107%_)) + (cons _%L198106%_ '()))))) + (_%__kont199335199336%_ + (lambda (_%L198029%_ _%L198030%_) '(begin)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx199057199058%_)) - (let ((_%e197690197776%_ + (gx#stx-pair? _%__stx199331199332%_)) + (let ((_%e197964198050%_ (let () (declare (not safe)) - (gx#stx-e _%__stx199057199058%_)))) - (let ((_%tl197692197781%_ + (gx#stx-e _%__stx199331199332%_)))) + (let ((_%tl197966198055%_ (let () (declare (not safe)) - (##cdr _%e197690197776%_))) - (_%hd197691197779%_ + (##cdr _%e197964198050%_))) + (_%hd197965198053%_ (let () (declare (not safe)) - (##car _%e197690197776%_)))) + (##car _%e197964198050%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197692197781%_)) - (let ((_%e197693197784%_ + (gx#stx-pair? _%tl197966198055%_)) + (let ((_%e197967198058%_ (let () (declare (not safe)) - (gx#stx-e _%tl197692197781%_)))) - (let ((_%tl197695197789%_ + (gx#stx-e _%tl197966198055%_)))) + (let ((_%tl197969198063%_ (let () (declare (not safe)) - (##cdr _%e197693197784%_))) - (_%hd197694197787%_ + (##cdr _%e197967198058%_))) + (_%hd197968198061%_ (let () (declare (not safe)) - (##car _%e197693197784%_)))) + (##car _%e197967198058%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd197694197787%_)) - (let ((_%e197696197792%_ + (gx#stx-pair? _%hd197968198061%_)) + (let ((_%e197970198066%_ (let () (declare (not safe)) - (gx#stx-e _%hd197694197787%_)))) - (let ((_%tl197698197797%_ + (gx#stx-e _%hd197968198061%_)))) + (let ((_%tl197972198071%_ (let () (declare (not safe)) - (##cdr _%e197696197792%_))) - (_%hd197697197795%_ + (##cdr _%e197970198066%_))) + (_%hd197971198069%_ (let () (declare (not safe)) - (##car _%e197696197792%_)))) + (##car _%e197970198066%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd197697197795%_)) + (gx#identifier? _%hd197971198069%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@inline - _%hd197697197795%_)) + _%hd197971198069%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197698197797%_)) - (let ((_%e197699197800%_ + _%tl197972198071%_)) + (let ((_%e197973198074%_ (let () (declare (not safe)) (gx#stx-e - _%tl197698197797%_)))) - (let ((_%tl197701197805%_ + _%tl197972198071%_)))) + (let ((_%tl197975198079%_ (let () (declare (not safe)) - (##cdr _%e197699197800%_))) - (_%hd197700197803%_ + (##cdr _%e197973198074%_))) + (_%hd197974198077%_ (let () (declare (not safe)) - (##car _%e197699197800%_)))) + (##car _%e197973198074%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197701197805%_)) + _%tl197975198079%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197695197789%_)) - (let ((_%e197702197808%_ + _%tl197969198063%_)) + (let ((_%e197976198082%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl197695197789%_)))) - (let ((_%tl197704197813%_ + (gx#stx-e _%tl197969198063%_)))) + (let ((_%tl197978198087%_ (let () (declare (not safe)) - (##cdr _%e197702197808%_))) - (_%hd197703197811%_ + (##cdr _%e197976198082%_))) + (_%hd197977198085%_ (let () (declare (not safe)) - (##car _%e197702197808%_)))) + (##car _%e197976198082%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd197703197811%_)) - (let ((_%e197705197816%_ + (gx#stx-pair? _%hd197977198085%_)) + (let ((_%e197979198090%_ (let () (declare (not safe)) - (gx#stx-e _%hd197703197811%_)))) - (let ((_%tl197707197821%_ + (gx#stx-e _%hd197977198085%_)))) + (let ((_%tl197981198095%_ (let () (declare (not safe)) - (##cdr _%e197705197816%_))) - (_%hd197706197819%_ + (##cdr _%e197979198090%_))) + (_%hd197980198093%_ (let () (declare (not safe)) - (##car _%e197705197816%_)))) + (##car _%e197979198090%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd197706197819%_)) + (gx#identifier? _%hd197980198093%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd197706197819%_)) + _%hd197980198093%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197707197821%_)) - (let ((_%e197708197824%_ + _%tl197981198095%_)) + (let ((_%e197982198098%_ (let () (declare (not safe)) (gx#stx-e - _%tl197707197821%_)))) - (let ((_%tl197710197829%_ + _%tl197981198095%_)))) + (let ((_%tl197984198103%_ (let () (declare (not safe)) - (##cdr _%e197708197824%_))) - (_%hd197709197827%_ + (##cdr _%e197982198098%_))) + (_%hd197983198101%_ (let () (declare (not safe)) - (##car _%e197708197824%_)))) + (##car _%e197982198098%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197710197829%_)) + _%tl197984198103%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197704197813%_)) - (_%__kont199059199060%_ - _%hd197709197827%_ - _%hd197700197803%_) + _%tl197978198087%_)) + (_%__kont199333199334%_ + _%hd197983198101%_ + _%hd197974198077%_) (let () (declare (not safe)) - (_%g197686197726%_))) + (_%g197960198000%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197704197813%_)) - (_%__kont199061199062%_ - _%hd197703197811%_ - _%hd197694197787%_) + _%tl197978198087%_)) + (_%__kont199335199336%_ + _%hd197977198085%_ + _%hd197968198061%_) (let () (declare (not safe)) - (_%g197686197726%_)))))) + (_%g197960198000%_)))))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197704197813%_)) - (_%__kont199061199062%_ - _%hd197703197811%_ - _%hd197694197787%_) + _%tl197978198087%_)) + (_%__kont199335199336%_ + _%hd197977198085%_ + _%hd197968198061%_) (let () (declare (not safe)) - (_%g197686197726%_)))) + (_%g197960198000%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197704197813%_)) - (_%__kont199061199062%_ - _%hd197703197811%_ - _%hd197694197787%_) + _%tl197978198087%_)) + (_%__kont199335199336%_ + _%hd197977198085%_ + _%hd197968198061%_) (let () (declare (not safe)) - (_%g197686197726%_)))) + (_%g197960198000%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197704197813%_)) - (_%__kont199061199062%_ - _%hd197703197811%_ - _%hd197694197787%_) + (gx#stx-null? _%tl197978198087%_)) + (_%__kont199335199336%_ + _%hd197977198085%_ + _%hd197968198061%_) (let () (declare (not safe)) - (_%g197686197726%_)))))) + (_%g197960198000%_)))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197704197813%_)) - (_%__kont199061199062%_ - _%hd197703197811%_ - _%hd197694197787%_) + (gx#stx-null? _%tl197978198087%_)) + (_%__kont199335199336%_ + _%hd197977198085%_ + _%hd197968198061%_) (let () (declare (not safe)) - (_%g197686197726%_)))))) - (let () (declare (not safe)) (_%g197686197726%_))) + (_%g197960198000%_)))))) + (let () (declare (not safe)) (_%g197960198000%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197695197789%_)) - (let ((_%e197719197747%_ + (gx#stx-pair? _%tl197969198063%_)) + (let ((_%e197993198021%_ (let () (declare (not safe)) - (gx#stx-e _%tl197695197789%_)))) - (let ((_%tl197721197752%_ + (gx#stx-e _%tl197969198063%_)))) + (let ((_%tl197995198026%_ (let () (declare (not safe)) - (##cdr _%e197719197747%_))) - (_%hd197720197750%_ + (##cdr _%e197993198021%_))) + (_%hd197994198024%_ (let () (declare (not safe)) - (##car _%e197719197747%_)))) + (##car _%e197993198021%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197721197752%_)) - (_%__kont199061199062%_ - _%hd197720197750%_ - _%hd197694197787%_) + (gx#stx-null? _%tl197995198026%_)) + (_%__kont199335199336%_ + _%hd197994198024%_ + _%hd197968198061%_) (let () (declare (not safe)) - (_%g197686197726%_))))) - (let () (declare (not safe)) (_%g197686197726%_)))))) + (_%g197960198000%_))))) + (let () (declare (not safe)) (_%g197960198000%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197695197789%_)) - (let ((_%e197719197747%_ + _%tl197969198063%_)) + (let ((_%e197993198021%_ (let () (declare (not safe)) (gx#stx-e - _%tl197695197789%_)))) - (let ((_%tl197721197752%_ + _%tl197969198063%_)))) + (let ((_%tl197995198026%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e197719197747%_))) - (_%hd197720197750%_ - (let () (declare (not safe)) (##car _%e197719197747%_)))) + (##cdr _%e197993198021%_))) + (_%hd197994198024%_ + (let () (declare (not safe)) (##car _%e197993198021%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197721197752%_)) - (_%__kont199061199062%_ - _%hd197720197750%_ - _%hd197694197787%_) - (let () (declare (not safe)) (_%g197686197726%_))))) + (gx#stx-null? _%tl197995198026%_)) + (_%__kont199335199336%_ + _%hd197994198024%_ + _%hd197968198061%_) + (let () (declare (not safe)) (_%g197960198000%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g197686197726%_)))) + (_%g197960198000%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197695197789%_)) - (let ((_%e197719197747%_ + _%tl197969198063%_)) + (let ((_%e197993198021%_ (let () (declare (not safe)) (gx#stx-e - _%tl197695197789%_)))) - (let ((_%tl197721197752%_ + _%tl197969198063%_)))) + (let ((_%tl197995198026%_ (let () (declare (not safe)) - (##cdr _%e197719197747%_))) - (_%hd197720197750%_ + (##cdr _%e197993198021%_))) + (_%hd197994198024%_ (let () (declare (not safe)) - (##car _%e197719197747%_)))) + (##car _%e197993198021%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197721197752%_)) - (_%__kont199061199062%_ - _%hd197720197750%_ - _%hd197694197787%_) + _%tl197995198026%_)) + (_%__kont199335199336%_ + _%hd197994198024%_ + _%hd197968198061%_) (let () (declare (not safe)) - (_%g197686197726%_))))) + (_%g197960198000%_))))) (let () (declare (not safe)) - (_%g197686197726%_)))) + (_%g197960198000%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197695197789%_)) - (let ((_%e197719197747%_ + _%tl197969198063%_)) + (let ((_%e197993198021%_ (let () (declare (not safe)) (gx#stx-e - _%tl197695197789%_)))) - (let ((_%tl197721197752%_ + _%tl197969198063%_)))) + (let ((_%tl197995198026%_ (let () (declare (not safe)) - (##cdr _%e197719197747%_))) - (_%hd197720197750%_ + (##cdr _%e197993198021%_))) + (_%hd197994198024%_ (let () (declare (not safe)) - (##car _%e197719197747%_)))) + (##car _%e197993198021%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197721197752%_)) - (_%__kont199061199062%_ - _%hd197720197750%_ - _%hd197694197787%_) + _%tl197995198026%_)) + (_%__kont199335199336%_ + _%hd197994198024%_ + _%hd197968198061%_) (let () (declare (not safe)) - (_%g197686197726%_))))) + (_%g197960198000%_))))) (let () (declare (not safe)) - (_%g197686197726%_)))))) + (_%g197960198000%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197695197789%_)) - (let ((_%e197719197747%_ + (gx#stx-pair? _%tl197969198063%_)) + (let ((_%e197993198021%_ (let () (declare (not safe)) - (gx#stx-e _%tl197695197789%_)))) - (let ((_%tl197721197752%_ + (gx#stx-e _%tl197969198063%_)))) + (let ((_%tl197995198026%_ (let () (declare (not safe)) - (##cdr _%e197719197747%_))) - (_%hd197720197750%_ + (##cdr _%e197993198021%_))) + (_%hd197994198024%_ (let () (declare (not safe)) - (##car _%e197719197747%_)))) + (##car _%e197993198021%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197721197752%_)) - (_%__kont199061199062%_ - _%hd197720197750%_ - _%hd197694197787%_) + _%tl197995198026%_)) + (_%__kont199335199336%_ + _%hd197994198024%_ + _%hd197968198061%_) (let () (declare (not safe)) - (_%g197686197726%_))))) + (_%g197960198000%_))))) (let () (declare (not safe)) - (_%g197686197726%_)))))) - (let () (declare (not safe)) (_%g197686197726%_))))) - (let () (declare (not safe)) (_%g197686197726%_))))))) + (_%g197960198000%_)))))) + (let () (declare (not safe)) (_%g197960198000%_))))) + (let () (declare (not safe)) (_%g197960198000%_))))))) (define gxc#!alias::typedecl - (lambda (_%self195876197667%_) - (let* ((_%self197670%_ _%self195876197667%_) - (_%self197672%_ _%self197670%_)) + (lambda (_%self196150197941%_) + (let* ((_%self197944%_ _%self196150197941%_) + (_%self197946%_ _%self197944%_)) (cons '@alias (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self197672%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self197946%_ '1 '#f '#f)) '()))))) (let () (declare (not safe)) (__bind-method!__% gxc#!alias::t 'typedecl gxc#!alias::typedecl '#f)) (define gxc#!class::typedecl - (lambda (_%self195877197438%_) - (let* ((_%self197441%_ _%self195877197438%_) - (_%self197443%_ _%self197441%_) - (_%self197452197468%_ _%self197443%_) - (_%E197454197472%_ + (lambda (_%self196151197712%_) + (let* ((_%self197715%_ _%self196151197712%_) + (_%self197717%_ _%self197715%_) + (_%self197726197742%_ _%self197717%_) + (_%E197728197746%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self197452197468%_ + _%self197726197742%_ '((!class id super precendence-list @@ -2054,124 +2054,124 @@ metaclass methods)))) '#!void)) - (_%K197455197487%_ - (lambda (_%methods197475%_ - _%metaclass197476%_ - _%system?197477%_ - _%final?197478%_ - _%struct?197479%_ - _%constructor197480%_ - _%fields197481%_ - _%slots197482%_ - _%precendence-list197483%_ - _%super197484%_ - _%id197485%_) + (_%K197729197761%_ + (lambda (_%methods197749%_ + _%metaclass197750%_ + _%system?197751%_ + _%final?197752%_ + _%struct?197753%_ + _%constructor197754%_ + _%fields197755%_ + _%slots197756%_ + _%precendence-list197757%_ + _%super197758%_ + _%id197759%_) (cons '@class - (cons _%id197485%_ - (cons _%super197484%_ - (cons _%precendence-list197483%_ - (cons _%slots197482%_ - (cons _%fields197481%_ - (cons _%constructor197480%_ - (cons _%struct?197479%_ + (cons _%id197759%_ + (cons _%super197758%_ + (cons _%precendence-list197757%_ + (cons _%slots197756%_ + (cons _%fields197755%_ + (cons _%constructor197754%_ + (cons _%struct?197753%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%final?197478%_ - (cons _%system?197477%_ - (cons _%metaclass197476%_ - (cons (if _%methods197475%_ + (cons _%final?197752%_ + (cons _%system?197751%_ + (cons _%metaclass197750%_ + (cons (if _%methods197749%_ (let () (declare (not safe)) (hash->list - _%methods197475%_)) + _%methods197749%_)) '#f) '())))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%e197456197490%_ + (_%e197730197764%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self197452197468%_ '1 '#f '#f))) - (_%id197493%_ _%e197456197490%_) - (_%e197457197495%_ + (##unchecked-structure-ref _%self197726197742%_ '1 '#f '#f))) + (_%id197767%_ _%e197730197764%_) + (_%e197731197769%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self197452197468%_ '2 '#f '#f))) - (_%super197498%_ _%e197457197495%_) - (_%e197458197500%_ + (##unchecked-structure-ref _%self197726197742%_ '2 '#f '#f))) + (_%super197772%_ _%e197731197769%_) + (_%e197732197774%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self197452197468%_ '3 '#f '#f))) - (_%precendence-list197503%_ _%e197458197500%_) - (_%e197459197505%_ + (##unchecked-structure-ref _%self197726197742%_ '3 '#f '#f))) + (_%precendence-list197777%_ _%e197732197774%_) + (_%e197733197779%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self197452197468%_ '4 '#f '#f))) - (_%slots197508%_ _%e197459197505%_) - (_%e197460197510%_ + (##unchecked-structure-ref _%self197726197742%_ '4 '#f '#f))) + (_%slots197782%_ _%e197733197779%_) + (_%e197734197784%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self197452197468%_ '5 '#f '#f))) - (_%fields197513%_ _%e197460197510%_) - (_%e197461197515%_ + (##unchecked-structure-ref _%self197726197742%_ '5 '#f '#f))) + (_%fields197787%_ _%e197734197784%_) + (_%e197735197789%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self197452197468%_ '6 '#f '#f))) - (_%constructor197518%_ _%e197461197515%_) - (_%e197462197520%_ + (##unchecked-structure-ref _%self197726197742%_ '6 '#f '#f))) + (_%constructor197792%_ _%e197735197789%_) + (_%e197736197794%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self197452197468%_ '7 '#f '#f))) - (_%struct?197523%_ _%e197462197520%_) - (_%e197463197525%_ + (##unchecked-structure-ref _%self197726197742%_ '7 '#f '#f))) + (_%struct?197797%_ _%e197736197794%_) + (_%e197737197799%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self197452197468%_ '8 '#f '#f))) - (_%final?197528%_ _%e197463197525%_) - (_%e197464197530%_ + (##unchecked-structure-ref _%self197726197742%_ '8 '#f '#f))) + (_%final?197802%_ _%e197737197799%_) + (_%e197738197804%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self197452197468%_ '9 '#f '#f))) - (_%system?197533%_ _%e197464197530%_) - (_%e197465197535%_ + (##unchecked-structure-ref _%self197726197742%_ '9 '#f '#f))) + (_%system?197807%_ _%e197738197804%_) + (_%e197739197809%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self197452197468%_ + _%self197726197742%_ '10 '#f '#f))) - (_%metaclass197538%_ _%e197465197535%_) - (_%e197466197540%_ + (_%metaclass197812%_ _%e197739197809%_) + (_%e197740197814%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self197452197468%_ + _%self197726197742%_ '11 '#f '#f))) - (_%methods197543%_ _%e197466197540%_)) - (_%K197455197487%_ - _%methods197543%_ - _%metaclass197538%_ - _%system?197533%_ - _%final?197528%_ - _%struct?197523%_ - _%constructor197518%_ - _%fields197513%_ - _%slots197508%_ - _%precendence-list197503%_ - _%super197498%_ - _%id197493%_)))) + (_%methods197817%_ _%e197740197814%_)) + (_%K197729197761%_ + _%methods197817%_ + _%metaclass197812%_ + _%system?197807%_ + _%final?197802%_ + _%struct?197797%_ + _%constructor197792%_ + _%fields197787%_ + _%slots197782%_ + _%precendence-list197777%_ + _%super197772%_ + _%id197767%_)))) (let () (declare (not safe)) (__bind-method!__% gxc#!class::t 'typedecl gxc#!class::typedecl '#f)) (define gxc#!predicate::typedecl - (lambda (_%self195878197301%_) - (let* ((_%self197304%_ _%self195878197301%_) - (_%self197306%_ _%self197304%_)) + (lambda (_%self196152197575%_) + (let* ((_%self197578%_ _%self196152197575%_) + (_%self197580%_ _%self197578%_)) (cons '@predicate (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self197306%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self197580%_ '1 '#f '#f)) '()))))) (let () (declare (not safe)) @@ -2181,13 +2181,13 @@ gxc#!predicate::typedecl '#f)) (define gxc#!constructor::typedecl - (lambda (_%self195879197164%_) - (let* ((_%self197167%_ _%self195879197164%_) - (_%self197169%_ _%self197167%_)) + (lambda (_%self196153197438%_) + (let* ((_%self197441%_ _%self196153197438%_) + (_%self197443%_ _%self197441%_)) (cons '@constructor (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self197169%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self197443%_ '1 '#f '#f)) '()))))) (let () (declare (not safe)) @@ -2197,24 +2197,24 @@ gxc#!constructor::typedecl '#f)) (define gxc#!accessor::typedecl - (lambda (_%self195880197027%_) - (let* ((_%self197030%_ _%self195880197027%_) - (_%self197032%_ _%self197030%_)) + (lambda (_%self196154197301%_) + (let* ((_%self197304%_ _%self196154197301%_) + (_%self197306%_ _%self197304%_)) (cons '@accessor (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self197032%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self197306%_ '1 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self197032%_ + _%self197306%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self197032%_ + _%self197306%_ '4 '#f '#f)) @@ -2227,24 +2227,24 @@ gxc#!accessor::typedecl '#f)) (define gxc#!mutator::typedecl - (lambda (_%self195881196890%_) - (let* ((_%self196893%_ _%self195881196890%_) - (_%self196895%_ _%self196893%_)) + (lambda (_%self196155197164%_) + (let* ((_%self197167%_ _%self196155197164%_) + (_%self197169%_ _%self197167%_)) (cons '@mutator (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self196895%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self197169%_ '1 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self196895%_ + _%self197169%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self196895%_ + _%self197169%_ '4 '#f '#f)) @@ -2253,17 +2253,17 @@ (declare (not safe)) (__bind-method!__% gxc#!mutator::t 'typedecl gxc#!mutator::typedecl '#f)) (define gxc#!interface::typedecl - (lambda (_%self195882196753%_) - (let* ((_%self196756%_ _%self195882196753%_) - (_%self196758%_ _%self196756%_)) + (lambda (_%self196156197027%_) + (let* ((_%self197030%_ _%self196156197027%_) + (_%self197032%_ _%self197030%_)) (cons '@interface (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self196758%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self197032%_ '1 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self196758%_ + _%self197032%_ '2 '#f '#f)) @@ -2276,34 +2276,34 @@ gxc#!interface::typedecl '#f)) (define gxc#!lambda::typedecl - (lambda (_%self195883196564%_) - (let* ((_%self196567%_ _%self195883196564%_) - (_%self196569%_ _%self196567%_) - (_%self196578196587%_ _%self196569%_) - (_%E196580196591%_ + (lambda (_%self196157196838%_) + (let* ((_%self196841%_ _%self196157196838%_) + (_%self196843%_ _%self196841%_) + (_%self196852196861%_ _%self196843%_) + (_%E196854196865%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self196578196587%_ + _%self196852196861%_ '((!lambda _ signature arity dispatch)))) '#!void)) - (_%K196581196610%_ - (lambda (_%dispatch196594%_ - _%arity196595%_ - _%signature196596%_) - (if _%signature196596%_ - (let ((_%signature196598%_ _%signature196596%_)) + (_%K196855196884%_ + (lambda (_%dispatch196868%_ + _%arity196869%_ + _%signature196870%_) + (if _%signature196870%_ + (let ((_%signature196872%_ _%signature196870%_)) (cons '@lambda - (cons _%arity196595%_ - (cons _%dispatch196594%_ + (cons _%arity196869%_ + (cons _%dispatch196868%_ (cons 'signature: (cons (cons 'return: (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%signature196598%_ + _%signature196872%_ '1 '#f '#f)) @@ -2311,7 +2311,7 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%signature196598%_ + _%signature196872%_ '2 '#f '#f)) @@ -2319,7 +2319,7 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%signature196598%_ + _%signature196872%_ '3 '#f '#f)) @@ -2329,7 +2329,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _%signature196598%_ + _%signature196872%_ '4 '#f '#f)) @@ -2337,7 +2337,7 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%signature196598%_ + _%signature196872%_ '5 '#f '#f)) @@ -2346,63 +2346,63 @@ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '@lambda - (cons _%arity196595%_ - (cons _%dispatch196594%_ '())))))) - (_%e196582196613%_ + (cons _%arity196869%_ + (cons _%dispatch196868%_ '())))))) + (_%e196856196887%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self196578196587%_ '1 '#f '#f))) - (_%e196583196616%_ + (##unchecked-structure-ref _%self196852196861%_ '1 '#f '#f))) + (_%e196857196890%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self196578196587%_ '2 '#f '#f))) - (_%signature196619%_ _%e196583196616%_) - (_%e196584196621%_ + (##unchecked-structure-ref _%self196852196861%_ '2 '#f '#f))) + (_%signature196893%_ _%e196857196890%_) + (_%e196858196895%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self196578196587%_ '3 '#f '#f))) - (_%arity196624%_ _%e196584196621%_) - (_%e196585196626%_ + (##unchecked-structure-ref _%self196852196861%_ '3 '#f '#f))) + (_%arity196898%_ _%e196858196895%_) + (_%e196859196900%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self196578196587%_ '4 '#f '#f))) - (_%dispatch196629%_ _%e196585196626%_)) - (_%K196581196610%_ - _%dispatch196629%_ - _%arity196624%_ - _%signature196619%_)))) + (##unchecked-structure-ref _%self196852196861%_ '4 '#f '#f))) + (_%dispatch196903%_ _%e196859196900%_)) + (_%K196855196884%_ + _%dispatch196903%_ + _%arity196898%_ + _%signature196893%_)))) (let () (declare (not safe)) (__bind-method!__% gxc#!lambda::t 'typedecl gxc#!lambda::typedecl '#f)) (define gxc#!case-lambda::typedecl - (lambda (_%self195884196423%_) - (let* ((_%self196426%_ _%self195884196423%_) - (_%self196428%_ _%self196426%_)) - (letrec ((_%clause-e196438%_ - (lambda (_%clause196440%_) - (cdr (let ((__method199145 + (lambda (_%self196158196697%_) + (let* ((_%self196700%_ _%self196158196697%_) + (_%self196702%_ _%self196700%_)) + (letrec ((_%clause-e196712%_ + (lambda (_%clause196714%_) + (cdr (let ((__method199419 (let () (declare (not safe)) (__method-ref - _%clause196440%_ + _%clause196714%_ 'typedecl)))) - (if __method199145 + (if __method199419 (let () (declare (not safe)) - (__method199145 _%clause196440%_)) + (__method199419 _%clause196714%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%clause196440%_ + _%clause196714%_ 'typedecl)) '#!void))))))) (cons '@case-lambda - (map _%clause-e196438%_ + (map _%clause-e196712%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self196428%_ + _%self196702%_ '3 '#f '#f)))))))) @@ -2414,17 +2414,17 @@ gxc#!case-lambda::typedecl '#f)) (define gxc#!kw-lambda::typedecl - (lambda (_%self195885196286%_) - (let* ((_%self196289%_ _%self195885196286%_) - (_%self196291%_ _%self196289%_)) + (lambda (_%self196159196560%_) + (let* ((_%self196563%_ _%self196159196560%_) + (_%self196565%_ _%self196563%_)) (cons '@kw-lambda (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self196291%_ '3 '#f '#f)) + (##unchecked-structure-ref _%self196565%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self196291%_ + _%self196565%_ '4 '#f '#f)) @@ -2437,17 +2437,17 @@ gxc#!kw-lambda::typedecl '#f)) (define gxc#!kw-lambda-primary::typedecl - (lambda (_%self195886196149%_) - (let* ((_%self196152%_ _%self195886196149%_) - (_%self196154%_ _%self196152%_)) + (lambda (_%self196160196423%_) + (let* ((_%self196426%_ _%self196160196423%_) + (_%self196428%_ _%self196426%_)) (cons '@kw-lambda-dispatch (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self196154%_ '3 '#f '#f)) + (##unchecked-structure-ref _%self196428%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self196154%_ + _%self196428%_ '4 '#f '#f)) @@ -2460,13 +2460,13 @@ gxc#!kw-lambda-primary::typedecl '#f)) (define gxc#!primitive-predicate::typedecl - (lambda (_%self195887196012%_) - (let* ((_%self196015%_ _%self195887196012%_) - (_%self196017%_ _%self196015%_)) + (lambda (_%self196161196286%_) + (let* ((_%self196289%_ _%self196161196286%_) + (_%self196291%_ _%self196289%_)) (cons '@primitive-predicate (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self196017%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self196291%_ '1 '#f '#f)) '()))))) (let () (declare (not safe)) diff --git a/src/bootstrap/gerbil/compiler/optimize~1.scm b/src/bootstrap/gerbil/compiler/optimize~1.scm index c794d5681..a5cb0b6d4 100644 --- a/src/bootstrap/gerbil/compiler/optimize~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize~1.scm @@ -1,27 +1,27 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g199172_| + (define |gxc[1]#_g199446_| (##structure gx#syntax-quote::t '::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g199174_| + (define |gxc[1]#_g199448_| (##structure gx#syntax-quote::t '::generate-ssxi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g199176_| + (define |gxc[1]#_g199450_| (##structure gx#syntax-quote::t 'make-::generate-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g199178_| + (define |gxc[1]#_g199452_| (##structure gx#syntax-quote::t '::generate-ssxi? @@ -29,7 +29,7 @@ (gx#current-expander-context) '())) (define |gxc[:0:]#::generate-ssxi| - (let ((__obj199141 + (let ((__obj199415 (let () (declare (not safe)) (##structure @@ -58,63 +58,63 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj199141 + __obj199415 'gxc#::generate-ssxi::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199141 '::generate-ssxi '2 '#f '#f)) + (##unchecked-structure-set! __obj199415 '::generate-ssxi '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199141 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj199415 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199141 '() '6 '#f '#f)) - (let ((__tmp199171 (cons |gxc[1]#_g199172_| '()))) + (##unchecked-structure-set! __obj199415 '() '6 '#f '#f)) + (let ((__tmp199445 (cons |gxc[1]#_g199446_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj199141 __tmp199171 '3 '#f '#f)) + (##unchecked-structure-set! __obj199415 __tmp199445 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199141 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj199415 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199141 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj199415 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199141 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj199415 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199141 '#f '11 '#f '#f)) - (let ((__tmp199173 |gxc[1]#_g199174_|)) + (##unchecked-structure-set! __obj199415 '#f '11 '#f '#f)) + (let ((__tmp199447 |gxc[1]#_g199448_|)) (declare (not safe)) - (##unchecked-structure-set! __obj199141 __tmp199173 '12 '#f '#f)) - (let ((__tmp199175 |gxc[1]#_g199176_|)) + (##unchecked-structure-set! __obj199415 __tmp199447 '12 '#f '#f)) + (let ((__tmp199449 |gxc[1]#_g199450_|)) (declare (not safe)) - (##unchecked-structure-set! __obj199141 __tmp199175 '13 '#f '#f)) - (let ((__tmp199177 |gxc[1]#_g199178_|)) + (##unchecked-structure-set! __obj199415 __tmp199449 '13 '#f '#f)) + (let ((__tmp199451 |gxc[1]#_g199452_|)) (declare (not safe)) - (##unchecked-structure-set! __obj199141 __tmp199177 '14 '#f '#f)) + (##unchecked-structure-set! __obj199415 __tmp199451 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199141 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj199415 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199141 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj199415 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199141 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj199415 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199141 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj199415 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199141 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj199415 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199141 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj199415 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj199141 '() '20 '#f '#f)) - __obj199141))) + (##unchecked-structure-set! __obj199415 '() '20 '#f '#f)) + __obj199415))) diff --git a/src/bootstrap/gerbil/compiler/ssxi~1.scm b/src/bootstrap/gerbil/compiler/ssxi~1.scm index bd521bcff..0d0e6f147 100644 --- a/src/bootstrap/gerbil/compiler/ssxi~1.scm +++ b/src/bootstrap/gerbil/compiler/ssxi~1.scm @@ -1,76 +1,76 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g207659_| + (define |gxc[1]#_g207933_| (##structure gx#syntax-quote::t '@list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g207666_| + (define |gxc[1]#_g207940_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g207668_| + (define |gxc[1]#_g207942_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g207670_| + (define |gxc[1]#_g207944_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g207672_| + (define |gxc[1]#_g207946_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g207674_| + (define |gxc[1]#_g207948_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g207686_| + (define |gxc[1]#_g207960_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g207688_| + (define |gxc[1]#_g207962_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g207690_| + (define |gxc[1]#_g207964_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g207692_| + (define |gxc[1]#_g207966_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g207694_| + (define |gxc[1]#_g207968_| (##structure gx#syntax-quote::t 'quote @@ -79,73 +79,73 @@ '())) (begin (define |gxc[:0:]#declare-type| - (lambda (_%$stx201077%_) - (let* ((_%g201081201099%_ - (lambda (_%g201082201095%_) + (lambda (_%$stx201351%_) + (let* ((_%g201355201373%_ + (lambda (_%g201356201369%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g201082201095%_)))) - (_%g201080201154%_ - (lambda (_%g201082201103%_) + _%g201356201369%_)))) + (_%g201354201428%_ + (lambda (_%g201356201377%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g201082201103%_)) - (let ((_%e201085201106%_ + (gx#stx-pair? _%g201356201377%_)) + (let ((_%e201359201380%_ (let () (declare (not safe)) - (gx#syntax-e _%g201082201103%_)))) - (let ((_%hd201086201110%_ + (gx#syntax-e _%g201356201377%_)))) + (let ((_%hd201360201384%_ (let () (declare (not safe)) - (##car _%e201085201106%_))) - (_%tl201087201113%_ + (##car _%e201359201380%_))) + (_%tl201361201387%_ (let () (declare (not safe)) - (##cdr _%e201085201106%_)))) + (##cdr _%e201359201380%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201087201113%_)) - (let ((_%e201088201116%_ + (gx#stx-pair? _%tl201361201387%_)) + (let ((_%e201362201390%_ (let () (declare (not safe)) - (gx#syntax-e _%tl201087201113%_)))) - (let ((_%hd201089201120%_ + (gx#syntax-e _%tl201361201387%_)))) + (let ((_%hd201363201394%_ (let () (declare (not safe)) - (##car _%e201088201116%_))) - (_%tl201090201123%_ + (##car _%e201362201390%_))) + (_%tl201364201397%_ (let () (declare (not safe)) - (##cdr _%e201088201116%_)))) + (##cdr _%e201362201390%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201090201123%_)) - (let ((_%e201091201126%_ + (gx#stx-pair? _%tl201364201397%_)) + (let ((_%e201365201400%_ (let () (declare (not safe)) (gx#syntax-e - _%tl201090201123%_)))) - (let ((_%hd201092201130%_ + _%tl201364201397%_)))) + (let ((_%hd201366201404%_ (let () (declare (not safe)) - (##car _%e201091201126%_))) - (_%tl201093201133%_ + (##car _%e201365201400%_))) + (_%tl201367201407%_ (let () (declare (not safe)) - (##cdr _%e201091201126%_)))) + (##cdr _%e201365201400%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201093201133%_)) - ((lambda (_%L201136%_ - _%L201138%_) + _%tl201367201407%_)) + ((lambda (_%L201410%_ + _%L201412%_) (if (let () (declare (not safe)) (gx#identifier? - _%L201138%_)) + _%L201412%_)) (cons (let () (declare (not safe)) @@ -156,87 +156,87 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L201138%_ '())) - (cons _%L201136%_ '()))) + (cons _%L201412%_ '())) + (cons _%L201410%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g201081201099%_ - _%g201082201103%_))) - _%hd201092201130%_ - _%hd201089201120%_) - (_%g201081201099%_ - _%g201082201103%_)))) - (_%g201081201099%_ _%g201082201103%_)))) - (_%g201081201099%_ _%g201082201103%_)))) - (_%g201081201099%_ _%g201082201103%_))))) - (_%g201080201154%_ _%$stx201077%_)))) + (_%g201355201373%_ + _%g201356201377%_))) + _%hd201366201404%_ + _%hd201363201394%_) + (_%g201355201373%_ + _%g201356201377%_)))) + (_%g201355201373%_ _%g201356201377%_)))) + (_%g201355201373%_ _%g201356201377%_)))) + (_%g201355201373%_ _%g201356201377%_))))) + (_%g201354201428%_ _%$stx201351%_)))) (define |gxc[:0:]#declare-class| - (lambda (_%$stx201158%_) - (let* ((_%g201162201180%_ - (lambda (_%g201163201176%_) + (lambda (_%$stx201432%_) + (let* ((_%g201436201454%_ + (lambda (_%g201437201450%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g201163201176%_)))) - (_%g201161201235%_ - (lambda (_%g201163201184%_) + _%g201437201450%_)))) + (_%g201435201509%_ + (lambda (_%g201437201458%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g201163201184%_)) - (let ((_%e201166201187%_ + (gx#stx-pair? _%g201437201458%_)) + (let ((_%e201440201461%_ (let () (declare (not safe)) - (gx#syntax-e _%g201163201184%_)))) - (let ((_%hd201167201191%_ + (gx#syntax-e _%g201437201458%_)))) + (let ((_%hd201441201465%_ (let () (declare (not safe)) - (##car _%e201166201187%_))) - (_%tl201168201194%_ + (##car _%e201440201461%_))) + (_%tl201442201468%_ (let () (declare (not safe)) - (##cdr _%e201166201187%_)))) + (##cdr _%e201440201461%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201168201194%_)) - (let ((_%e201169201197%_ + (gx#stx-pair? _%tl201442201468%_)) + (let ((_%e201443201471%_ (let () (declare (not safe)) - (gx#syntax-e _%tl201168201194%_)))) - (let ((_%hd201170201201%_ + (gx#syntax-e _%tl201442201468%_)))) + (let ((_%hd201444201475%_ (let () (declare (not safe)) - (##car _%e201169201197%_))) - (_%tl201171201204%_ + (##car _%e201443201471%_))) + (_%tl201445201478%_ (let () (declare (not safe)) - (##cdr _%e201169201197%_)))) + (##cdr _%e201443201471%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201171201204%_)) - (let ((_%e201172201207%_ + (gx#stx-pair? _%tl201445201478%_)) + (let ((_%e201446201481%_ (let () (declare (not safe)) (gx#syntax-e - _%tl201171201204%_)))) - (let ((_%hd201173201211%_ + _%tl201445201478%_)))) + (let ((_%hd201447201485%_ (let () (declare (not safe)) - (##car _%e201172201207%_))) - (_%tl201174201214%_ + (##car _%e201446201481%_))) + (_%tl201448201488%_ (let () (declare (not safe)) - (##cdr _%e201172201207%_)))) + (##cdr _%e201446201481%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201174201214%_)) - ((lambda (_%L201217%_ - _%L201219%_) + _%tl201448201488%_)) + ((lambda (_%L201491%_ + _%L201493%_) (if (let () (declare (not safe)) (gx#identifier? - _%L201219%_)) + _%L201493%_)) (cons (let () (declare (not safe)) @@ -247,146 +247,146 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L201219%_ '())) - (cons _%L201217%_ '()))) + (cons _%L201493%_ '())) + (cons _%L201491%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g201162201180%_ - _%g201163201184%_))) - _%hd201173201211%_ - _%hd201170201201%_) - (_%g201162201180%_ - _%g201163201184%_)))) - (_%g201162201180%_ _%g201163201184%_)))) - (_%g201162201180%_ _%g201163201184%_)))) - (_%g201162201180%_ _%g201163201184%_))))) - (_%g201161201235%_ _%$stx201158%_)))) + (_%g201436201454%_ + _%g201437201458%_))) + _%hd201447201485%_ + _%hd201444201475%_) + (_%g201436201454%_ + _%g201437201458%_)))) + (_%g201436201454%_ _%g201437201458%_)))) + (_%g201436201454%_ _%g201437201458%_)))) + (_%g201436201454%_ _%g201437201458%_))))) + (_%g201435201509%_ _%$stx201432%_)))) (define |gxc[:0:]#declare-type*| - (lambda (_%$stx201239%_) - (let* ((_%g201243201272%_ - (lambda (_%g201244201268%_) + (lambda (_%$stx201513%_) + (let* ((_%g201517201546%_ + (lambda (_%g201518201542%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g201244201268%_)))) - (_%g201242201372%_ - (lambda (_%g201244201276%_) + _%g201518201542%_)))) + (_%g201516201646%_ + (lambda (_%g201518201550%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g201244201276%_)) - (let ((_%e201247201279%_ + (gx#stx-pair? _%g201518201550%_)) + (let ((_%e201521201553%_ (let () (declare (not safe)) - (gx#syntax-e _%g201244201276%_)))) - (let ((_%hd201248201283%_ + (gx#syntax-e _%g201518201550%_)))) + (let ((_%hd201522201557%_ (let () (declare (not safe)) - (##car _%e201247201279%_))) - (_%tl201249201286%_ + (##car _%e201521201553%_))) + (_%tl201523201560%_ (let () (declare (not safe)) - (##cdr _%e201247201279%_)))) + (##cdr _%e201521201553%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl201249201286%_)) - (let ((_g207637_ + (gx#stx-pair/null? _%tl201523201560%_)) + (let ((_g207911_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl201249201286%_ + _%tl201523201560%_ '0)))) (begin - (let ((_g207638_ + (let ((_g207912_ (let () (declare (not safe)) - (if (##values? _g207637_) - (##vector-length _g207637_) + (if (##values? _g207911_) + (##vector-length _g207911_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g207638_ 2))) + (##fx= _g207912_ 2))) (error "Context expects 2 values" - _g207638_))) - (let ((_%target201250201289%_ + _g207912_))) + (let ((_%target201524201563%_ (let () (declare (not safe)) - (##vector-ref _g207637_ 0))) - (_%tl201252201292%_ + (##vector-ref _g207911_ 0))) + (_%tl201526201566%_ (let () (declare (not safe)) - (##vector-ref _g207637_ 1)))) + (##vector-ref _g207911_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201252201292%_)) - (letrec ((_%loop201253201295%_ - (lambda (_%hd201251201299%_ - _%type201257201302%_ - _%symbol201258201304%_) + (gx#stx-null? _%tl201526201566%_)) + (letrec ((_%loop201527201569%_ + (lambda (_%hd201525201573%_ + _%type201531201576%_ + _%symbol201532201578%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd201251201299%_)) - (let ((_%e201254201307%_ + _%hd201525201573%_)) + (let ((_%e201528201581%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd201251201299%_)))) - (let ((_%lp-hd201255201311%_ + (gx#syntax-e _%hd201525201573%_)))) + (let ((_%lp-hd201529201585%_ (let () (declare (not safe)) - (##car _%e201254201307%_))) - (_%lp-tl201256201314%_ + (##car _%e201528201581%_))) + (_%lp-tl201530201588%_ (let () (declare (not safe)) - (##cdr _%e201254201307%_)))) + (##cdr _%e201528201581%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd201255201311%_)) - (let ((_%e201261201317%_ + (gx#stx-pair? _%lp-hd201529201585%_)) + (let ((_%e201535201591%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd201255201311%_)))) - (let ((_%hd201262201321%_ + (gx#syntax-e _%lp-hd201529201585%_)))) + (let ((_%hd201536201595%_ (let () (declare (not safe)) - (##car _%e201261201317%_))) - (_%tl201263201324%_ + (##car _%e201535201591%_))) + (_%tl201537201598%_ (let () (declare (not safe)) - (##cdr _%e201261201317%_)))) + (##cdr _%e201535201591%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201263201324%_)) - (let ((_%e201264201327%_ + (gx#stx-pair? _%tl201537201598%_)) + (let ((_%e201538201601%_ (let () (declare (not safe)) - (gx#syntax-e _%tl201263201324%_)))) - (let ((_%hd201265201331%_ + (gx#syntax-e _%tl201537201598%_)))) + (let ((_%hd201539201605%_ (let () (declare (not safe)) - (##car _%e201264201327%_))) - (_%tl201266201334%_ + (##car _%e201538201601%_))) + (_%tl201540201608%_ (let () (declare (not safe)) - (##cdr _%e201264201327%_)))) + (##cdr _%e201538201601%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201266201334%_)) - (_%loop201253201295%_ - _%lp-tl201256201314%_ - (cons _%hd201265201331%_ - _%type201257201302%_) - (cons _%hd201262201321%_ - _%symbol201258201304%_)) - (_%g201243201272%_ - _%g201244201276%_)))) - (_%g201243201272%_ _%g201244201276%_)))) - (_%g201243201272%_ _%g201244201276%_)))) - (let ((_%type201259201337%_ (reverse _%type201257201302%_)) - (_%symbol201260201340%_ - (reverse _%symbol201258201304%_))) - ((lambda (_%L201343%_ _%L201345%_) + (gx#stx-null? _%tl201540201608%_)) + (_%loop201527201569%_ + _%lp-tl201530201588%_ + (cons _%hd201539201605%_ + _%type201531201576%_) + (cons _%hd201536201595%_ + _%symbol201532201578%_)) + (_%g201517201546%_ + _%g201518201550%_)))) + (_%g201517201546%_ _%g201518201550%_)))) + (_%g201517201546%_ _%g201518201550%_)))) + (let ((_%type201533201611%_ (reverse _%type201531201576%_)) + (_%symbol201534201614%_ + (reverse _%symbol201532201578%_))) + ((lambda (_%L201617%_ _%L201619%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -394,52 +394,52 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L201343%_ - _%L201345%_)) - (let ((__tmp207639 - (lambda (_%g201360201364%_ - _%g201361201367%_ - _%g201362201369%_) + _%L201617%_ + _%L201619%_)) + (let ((__tmp207913 + (lambda (_%g201634201638%_ + _%g201635201641%_ + _%g201636201643%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%g201361201367%_ - (cons _%g201360201364%_ + (cons _%g201635201641%_ + (cons _%g201634201638%_ '()))) - _%g201362201369%_)))) + _%g201636201643%_)))) (declare (not safe)) (__foldr2 - __tmp207639 + __tmp207913 '() - _%L201343%_ - _%L201345%_))))) - _%type201259201337%_ - _%symbol201260201340%_)))))) + _%L201617%_ + _%L201619%_))))) + _%type201533201611%_ + _%symbol201534201614%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop201253201295%_ - _%target201250201289%_ + (_%loop201527201569%_ + _%target201524201563%_ '() '())) - (_%g201243201272%_ - _%g201244201276%_))))) - (_%g201243201272%_ _%g201244201276%_)))) - (_%g201243201272%_ _%g201244201276%_))))) - (_%g201242201372%_ _%$stx201239%_)))) + (_%g201517201546%_ + _%g201518201550%_))))) + (_%g201517201546%_ _%g201518201550%_)))) + (_%g201517201546%_ _%g201518201550%_))))) + (_%g201516201646%_ _%$stx201513%_)))) (define |gxc[:0:]#declare-method| - (lambda (_%$stx201377%_) - (let* ((_%__stx206948206949%_ _%$stx201377%_) - (_%g201382201424%_ + (lambda (_%$stx201651%_) + (let* ((_%__stx207222207223%_ _%$stx201651%_) + (_%g201656201698%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx206948206949%_))))) - (let ((_%__kont206951206952%_ - (lambda (_%L201552%_ _%L201554%_ _%L201555%_ _%L201556%_) + _%__stx207222207223%_))))) + (let ((_%__kont207225207226%_ + (lambda (_%L201826%_ _%L201828%_ _%L201829%_ _%L201830%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -448,342 +448,342 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L201556%_ '())) + (cons _%L201830%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L201555%_ '())) + (cons _%L201829%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L201554%_ '())) - (cons _%L201552%_ '()))))))) - (_%__kont206953206954%_ - (lambda (_%L201471%_ _%L201473%_ _%L201474%_ _%L201475%_) - (cons _%L201475%_ - (cons _%L201474%_ - (cons _%L201473%_ - (cons _%L201471%_ + (cons _%L201828%_ '())) + (cons _%L201826%_ '()))))))) + (_%__kont207227207228%_ + (lambda (_%L201745%_ _%L201747%_ _%L201748%_ _%L201749%_) + (cons _%L201749%_ + (cons _%L201748%_ + (cons _%L201747%_ + (cons _%L201745%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rebind?)) '())))))))) - (let ((_%__match206987206988%_ - (lambda (_%e201388201502%_ - _%hd201389201506%_ - _%tl201390201509%_ - _%e201391201512%_ - _%hd201392201516%_ - _%tl201393201519%_ - _%e201394201522%_ - _%hd201395201526%_ - _%tl201396201529%_ - _%e201397201532%_ - _%hd201398201536%_ - _%tl201399201539%_ - _%e201400201542%_ - _%hd201401201546%_ - _%tl201402201549%_) - (let ((_%L201552%_ _%hd201401201546%_) - (_%L201554%_ _%hd201398201536%_) - (_%L201555%_ _%hd201395201526%_) - (_%L201556%_ _%hd201392201516%_)) + (let ((_%__match207261207262%_ + (lambda (_%e201662201776%_ + _%hd201663201780%_ + _%tl201664201783%_ + _%e201665201786%_ + _%hd201666201790%_ + _%tl201667201793%_ + _%e201668201796%_ + _%hd201669201800%_ + _%tl201670201803%_ + _%e201671201806%_ + _%hd201672201810%_ + _%tl201673201813%_ + _%e201674201816%_ + _%hd201675201820%_ + _%tl201676201823%_) + (let ((_%L201826%_ _%hd201675201820%_) + (_%L201828%_ _%hd201672201810%_) + (_%L201829%_ _%hd201669201800%_) + (_%L201830%_ _%hd201666201790%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L201556%_)) + (gx#identifier? _%L201830%_)) (let () (declare (not safe)) - (gx#identifier? _%L201555%_)) + (gx#identifier? _%L201829%_)) (let () (declare (not safe)) - (gx#identifier? _%L201554%_))) - (_%__kont206951206952%_ - _%L201552%_ - _%L201554%_ - _%L201555%_ - _%L201556%_) + (gx#identifier? _%L201828%_))) + (_%__kont207225207226%_ + _%L201826%_ + _%L201828%_ + _%L201829%_ + _%L201830%_) (let () (declare (not safe)) - (_%g201382201424%_))))))) + (_%g201656201698%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx206948206949%_)) - (let ((_%e201388201502%_ + (gx#stx-pair? _%__stx207222207223%_)) + (let ((_%e201662201776%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx206948206949%_)))) - (let ((_%tl201390201509%_ + (gx#syntax-e _%__stx207222207223%_)))) + (let ((_%tl201664201783%_ (let () (declare (not safe)) - (##cdr _%e201388201502%_))) - (_%hd201389201506%_ + (##cdr _%e201662201776%_))) + (_%hd201663201780%_ (let () (declare (not safe)) - (##car _%e201388201502%_)))) + (##car _%e201662201776%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201390201509%_)) - (let ((_%e201391201512%_ + (gx#stx-pair? _%tl201664201783%_)) + (let ((_%e201665201786%_ (let () (declare (not safe)) - (gx#syntax-e _%tl201390201509%_)))) - (let ((_%tl201393201519%_ + (gx#syntax-e _%tl201664201783%_)))) + (let ((_%tl201667201793%_ (let () (declare (not safe)) - (##cdr _%e201391201512%_))) - (_%hd201392201516%_ + (##cdr _%e201665201786%_))) + (_%hd201666201790%_ (let () (declare (not safe)) - (##car _%e201391201512%_)))) + (##car _%e201665201786%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201393201519%_)) - (let ((_%e201394201522%_ + (gx#stx-pair? _%tl201667201793%_)) + (let ((_%e201668201796%_ (let () (declare (not safe)) - (gx#syntax-e _%tl201393201519%_)))) - (let ((_%tl201396201529%_ + (gx#syntax-e _%tl201667201793%_)))) + (let ((_%tl201670201803%_ (let () (declare (not safe)) - (##cdr _%e201394201522%_))) - (_%hd201395201526%_ + (##cdr _%e201668201796%_))) + (_%hd201669201800%_ (let () (declare (not safe)) - (##car _%e201394201522%_)))) + (##car _%e201668201796%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201396201529%_)) - (let ((_%e201397201532%_ + (gx#stx-pair? _%tl201670201803%_)) + (let ((_%e201671201806%_ (let () (declare (not safe)) (gx#syntax-e - _%tl201396201529%_)))) - (let ((_%tl201399201539%_ + _%tl201670201803%_)))) + (let ((_%tl201673201813%_ (let () (declare (not safe)) - (##cdr _%e201397201532%_))) - (_%hd201398201536%_ + (##cdr _%e201671201806%_))) + (_%hd201672201810%_ (let () (declare (not safe)) - (##car _%e201397201532%_)))) + (##car _%e201671201806%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201399201539%_)) - (let ((_%e201400201542%_ + _%tl201673201813%_)) + (let ((_%e201674201816%_ (let () (declare (not safe)) (gx#syntax-e - _%tl201399201539%_)))) - (let ((_%tl201402201549%_ + _%tl201673201813%_)))) + (let ((_%tl201676201823%_ (let () (declare (not safe)) - (##cdr _%e201400201542%_))) - (_%hd201401201546%_ + (##cdr _%e201674201816%_))) + (_%hd201675201820%_ (let () (declare (not safe)) - (##car _%e201400201542%_)))) + (##car _%e201674201816%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201402201549%_)) - (_%__match206987206988%_ - _%e201388201502%_ - _%hd201389201506%_ - _%tl201390201509%_ - _%e201391201512%_ - _%hd201392201516%_ - _%tl201393201519%_ - _%e201394201522%_ - _%hd201395201526%_ - _%tl201396201529%_ - _%e201397201532%_ - _%hd201398201536%_ - _%tl201399201539%_ - _%e201400201542%_ - _%hd201401201546%_ - _%tl201402201549%_) + _%tl201676201823%_)) + (_%__match207261207262%_ + _%e201662201776%_ + _%hd201663201780%_ + _%tl201664201783%_ + _%e201665201786%_ + _%hd201666201790%_ + _%tl201667201793%_ + _%e201668201796%_ + _%hd201669201800%_ + _%tl201670201803%_ + _%e201671201806%_ + _%hd201672201810%_ + _%tl201673201813%_ + _%e201674201816%_ + _%hd201675201820%_ + _%tl201676201823%_) (let () (declare (not safe)) - (_%g201382201424%_))))) + (_%g201656201698%_))))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201399201539%_)) - (_%__kont206953206954%_ - _%hd201398201536%_ - _%hd201395201526%_ - _%hd201392201516%_ - _%hd201389201506%_) + _%tl201673201813%_)) + (_%__kont207227207228%_ + _%hd201672201810%_ + _%hd201669201800%_ + _%hd201666201790%_ + _%hd201663201780%_) (let () (declare (not safe)) - (_%g201382201424%_)))))) + (_%g201656201698%_)))))) (let () (declare (not safe)) - (_%g201382201424%_))))) + (_%g201656201698%_))))) (let () (declare (not safe)) - (_%g201382201424%_))))) - (let () (declare (not safe)) (_%g201382201424%_))))) - (let () (declare (not safe)) (_%g201382201424%_)))))))) + (_%g201656201698%_))))) + (let () (declare (not safe)) (_%g201656201698%_))))) + (let () (declare (not safe)) (_%g201656201698%_)))))))) (define |gxc[:0:]#declare-method*| - (lambda (_%$stx201581%_) - (let* ((_%g201585201620%_ - (lambda (_%g201586201616%_) + (lambda (_%$stx201855%_) + (let* ((_%g201859201894%_ + (lambda (_%g201860201890%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g201586201616%_)))) - (_%g201584201739%_ - (lambda (_%g201586201624%_) + _%g201860201890%_)))) + (_%g201858202013%_ + (lambda (_%g201860201898%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g201586201624%_)) - (let ((_%e201590201627%_ + (gx#stx-pair? _%g201860201898%_)) + (let ((_%e201864201901%_ (let () (declare (not safe)) - (gx#syntax-e _%g201586201624%_)))) - (let ((_%hd201591201631%_ + (gx#syntax-e _%g201860201898%_)))) + (let ((_%hd201865201905%_ (let () (declare (not safe)) - (##car _%e201590201627%_))) - (_%tl201592201634%_ + (##car _%e201864201901%_))) + (_%tl201866201908%_ (let () (declare (not safe)) - (##cdr _%e201590201627%_)))) + (##cdr _%e201864201901%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl201592201634%_)) - (let ((_g207640_ + (gx#stx-pair/null? _%tl201866201908%_)) + (let ((_g207914_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl201592201634%_ + _%tl201866201908%_ '0)))) (begin - (let ((_g207641_ + (let ((_g207915_ (let () (declare (not safe)) - (if (##values? _g207640_) - (##vector-length _g207640_) + (if (##values? _g207914_) + (##vector-length _g207914_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g207641_ 2))) + (##fx= _g207915_ 2))) (error "Context expects 2 values" - _g207641_))) - (let ((_%target201593201637%_ + _g207915_))) + (let ((_%target201867201911%_ (let () (declare (not safe)) - (##vector-ref _g207640_ 0))) - (_%tl201595201640%_ + (##vector-ref _g207914_ 0))) + (_%tl201869201914%_ (let () (declare (not safe)) - (##vector-ref _g207640_ 1)))) + (##vector-ref _g207914_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201595201640%_)) - (letrec ((_%loop201596201643%_ - (lambda (_%hd201594201647%_ - _%symbol201600201650%_ - _%method201601201652%_ - _%type-t201602201654%_) + (gx#stx-null? _%tl201869201914%_)) + (letrec ((_%loop201870201917%_ + (lambda (_%hd201868201921%_ + _%symbol201874201924%_ + _%method201875201926%_ + _%type-t201876201928%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd201594201647%_)) - (let ((_%e201597201657%_ + _%hd201868201921%_)) + (let ((_%e201871201931%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd201594201647%_)))) - (let ((_%lp-hd201598201661%_ + (gx#syntax-e _%hd201868201921%_)))) + (let ((_%lp-hd201872201935%_ (let () (declare (not safe)) - (##car _%e201597201657%_))) - (_%lp-tl201599201664%_ + (##car _%e201871201931%_))) + (_%lp-tl201873201938%_ (let () (declare (not safe)) - (##cdr _%e201597201657%_)))) + (##cdr _%e201871201931%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd201598201661%_)) - (let ((_%e201606201667%_ + (gx#stx-pair? _%lp-hd201872201935%_)) + (let ((_%e201880201941%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd201598201661%_)))) - (let ((_%hd201607201671%_ + (gx#syntax-e _%lp-hd201872201935%_)))) + (let ((_%hd201881201945%_ (let () (declare (not safe)) - (##car _%e201606201667%_))) - (_%tl201608201674%_ + (##car _%e201880201941%_))) + (_%tl201882201948%_ (let () (declare (not safe)) - (##cdr _%e201606201667%_)))) + (##cdr _%e201880201941%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201608201674%_)) - (let ((_%e201609201677%_ + (gx#stx-pair? _%tl201882201948%_)) + (let ((_%e201883201951%_ (let () (declare (not safe)) - (gx#syntax-e _%tl201608201674%_)))) - (let ((_%hd201610201681%_ + (gx#syntax-e _%tl201882201948%_)))) + (let ((_%hd201884201955%_ (let () (declare (not safe)) - (##car _%e201609201677%_))) - (_%tl201611201684%_ + (##car _%e201883201951%_))) + (_%tl201885201958%_ (let () (declare (not safe)) - (##cdr _%e201609201677%_)))) + (##cdr _%e201883201951%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201611201684%_)) - (let ((_%e201612201687%_ + (gx#stx-pair? _%tl201885201958%_)) + (let ((_%e201886201961%_ (let () (declare (not safe)) (gx#syntax-e - _%tl201611201684%_)))) - (let ((_%hd201613201691%_ + _%tl201885201958%_)))) + (let ((_%hd201887201965%_ (let () (declare (not safe)) - (##car _%e201612201687%_))) - (_%tl201614201694%_ + (##car _%e201886201961%_))) + (_%tl201888201968%_ (let () (declare (not safe)) - (##cdr _%e201612201687%_)))) + (##cdr _%e201886201961%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201614201694%_)) - (_%loop201596201643%_ - _%lp-tl201599201664%_ - (cons _%hd201613201691%_ - _%symbol201600201650%_) - (cons _%hd201610201681%_ - _%method201601201652%_) - (cons _%hd201607201671%_ - _%type-t201602201654%_)) - (_%g201585201620%_ - _%g201586201624%_)))) - (_%g201585201620%_ - _%g201586201624%_)))) - (_%g201585201620%_ _%g201586201624%_)))) - (_%g201585201620%_ _%g201586201624%_)))) - (let ((_%symbol201603201697%_ (reverse _%symbol201600201650%_)) - (_%method201604201700%_ (reverse _%method201601201652%_)) - (_%type-t201605201702%_ - (reverse _%type-t201602201654%_))) - ((lambda (_%L201705%_ _%L201707%_ _%L201708%_) + _%tl201888201968%_)) + (_%loop201870201917%_ + _%lp-tl201873201938%_ + (cons _%hd201887201965%_ + _%symbol201874201924%_) + (cons _%hd201884201955%_ + _%method201875201926%_) + (cons _%hd201881201945%_ + _%type-t201876201928%_)) + (_%g201859201894%_ + _%g201860201898%_)))) + (_%g201859201894%_ + _%g201860201898%_)))) + (_%g201859201894%_ _%g201860201898%_)))) + (_%g201859201894%_ _%g201860201898%_)))) + (let ((_%symbol201877201971%_ (reverse _%symbol201874201924%_)) + (_%method201878201974%_ (reverse _%method201875201926%_)) + (_%type-t201879201976%_ + (reverse _%type-t201876201928%_))) + ((lambda (_%L201979%_ _%L201981%_ _%L201982%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -791,196 +791,196 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L201705%_ - _%L201707%_ - _%L201708%_)) - (let ((__tmp207642 - (lambda (_%g201724201729%_ - _%g201725201732%_ - _%g201726201734%_ - _%g201727201736%_) + _%L201979%_ + _%L201981%_ + _%L201982%_)) + (let ((__tmp207916 + (lambda (_%g201998202003%_ + _%g201999202006%_ + _%g202000202008%_ + _%g202001202010%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method)) - (cons _%g201726201734%_ - (cons _%g201725201732%_ - (cons _%g201724201729%_ + (cons _%g202000202008%_ + (cons _%g201999202006%_ + (cons _%g201998202003%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g201727201736%_)))) + _%g202001202010%_)))) (declare (not safe)) (__foldr* - __tmp207642 + __tmp207916 '() - _%L201705%_ - _%L201707%_ - _%L201708%_))))) - _%symbol201603201697%_ - _%method201604201700%_ - _%type-t201605201702%_)))))) + _%L201979%_ + _%L201981%_ + _%L201982%_))))) + _%symbol201877201971%_ + _%method201878201974%_ + _%type-t201879201976%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop201596201643%_ - _%target201593201637%_ + (_%loop201870201917%_ + _%target201867201911%_ '() '() '())) - (_%g201585201620%_ - _%g201586201624%_))))) - (_%g201585201620%_ _%g201586201624%_)))) - (_%g201585201620%_ _%g201586201624%_))))) - (_%g201584201739%_ _%$stx201581%_)))) + (_%g201859201894%_ + _%g201860201898%_))))) + (_%g201859201894%_ _%g201860201898%_)))) + (_%g201859201894%_ _%g201860201898%_))))) + (_%g201858202013%_ _%$stx201855%_)))) (define |gxc[:0:]#declare-methods| - (lambda (_%$stx201744%_) - (let* ((_%g201748201781%_ - (lambda (_%g201749201777%_) + (lambda (_%$stx202018%_) + (let* ((_%g202022202055%_ + (lambda (_%g202023202051%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g201749201777%_)))) - (_%g201747201895%_ - (lambda (_%g201749201785%_) + _%g202023202051%_)))) + (_%g202021202169%_ + (lambda (_%g202023202059%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g201749201785%_)) - (let ((_%e201753201788%_ + (gx#stx-pair? _%g202023202059%_)) + (let ((_%e202027202062%_ (let () (declare (not safe)) - (gx#syntax-e _%g201749201785%_)))) - (let ((_%hd201754201792%_ + (gx#syntax-e _%g202023202059%_)))) + (let ((_%hd202028202066%_ (let () (declare (not safe)) - (##car _%e201753201788%_))) - (_%tl201755201795%_ + (##car _%e202027202062%_))) + (_%tl202029202069%_ (let () (declare (not safe)) - (##cdr _%e201753201788%_)))) + (##cdr _%e202027202062%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201755201795%_)) - (let ((_%e201756201798%_ + (gx#stx-pair? _%tl202029202069%_)) + (let ((_%e202030202072%_ (let () (declare (not safe)) - (gx#syntax-e _%tl201755201795%_)))) - (let ((_%hd201757201802%_ + (gx#syntax-e _%tl202029202069%_)))) + (let ((_%hd202031202076%_ (let () (declare (not safe)) - (##car _%e201756201798%_))) - (_%tl201758201805%_ + (##car _%e202030202072%_))) + (_%tl202032202079%_ (let () (declare (not safe)) - (##cdr _%e201756201798%_)))) + (##cdr _%e202030202072%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl201758201805%_)) - (let ((_g207643_ + (gx#stx-pair/null? _%tl202032202079%_)) + (let ((_g207917_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl201758201805%_ + _%tl202032202079%_ '0)))) (begin - (let ((_g207644_ + (let ((_g207918_ (let () (declare (not safe)) - (if (##values? _g207643_) + (if (##values? _g207917_) (##vector-length - _g207643_) + _g207917_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g207644_ 2))) + (##fx= _g207918_ 2))) (error "Context expects 2 values" - _g207644_))) - (let ((_%target201759201808%_ + _g207918_))) + (let ((_%target202033202082%_ (let () (declare (not safe)) - (##vector-ref _g207643_ 0))) - (_%tl201761201811%_ + (##vector-ref _g207917_ 0))) + (_%tl202035202085%_ (let () (declare (not safe)) (##vector-ref - _g207643_ + _g207917_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201761201811%_)) - (letrec ((_%loop201762201814%_ - (lambda (_%hd201760201818%_ + _%tl202035202085%_)) + (letrec ((_%loop202036202088%_ + (lambda (_%hd202034202092%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%symbol201766201821%_ - _%method201767201823%_) + _%symbol202040202095%_ + _%method202041202097%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd201760201818%_)) - (let ((_%e201763201826%_ + (gx#stx-pair? _%hd202034202092%_)) + (let ((_%e202037202100%_ (let () (declare (not safe)) - (gx#syntax-e _%hd201760201818%_)))) - (let ((_%lp-hd201764201830%_ + (gx#syntax-e _%hd202034202092%_)))) + (let ((_%lp-hd202038202104%_ (let () (declare (not safe)) - (##car _%e201763201826%_))) - (_%lp-tl201765201833%_ + (##car _%e202037202100%_))) + (_%lp-tl202039202107%_ (let () (declare (not safe)) - (##cdr _%e201763201826%_)))) + (##cdr _%e202037202100%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd201764201830%_)) - (let ((_%e201770201836%_ + (gx#stx-pair? _%lp-hd202038202104%_)) + (let ((_%e202044202110%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd201764201830%_)))) - (let ((_%hd201771201840%_ + (gx#syntax-e _%lp-hd202038202104%_)))) + (let ((_%hd202045202114%_ (let () (declare (not safe)) - (##car _%e201770201836%_))) - (_%tl201772201843%_ + (##car _%e202044202110%_))) + (_%tl202046202117%_ (let () (declare (not safe)) - (##cdr _%e201770201836%_)))) + (##cdr _%e202044202110%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201772201843%_)) - (let ((_%e201773201846%_ + (gx#stx-pair? _%tl202046202117%_)) + (let ((_%e202047202120%_ (let () (declare (not safe)) (gx#syntax-e - _%tl201772201843%_)))) - (let ((_%hd201774201850%_ + _%tl202046202117%_)))) + (let ((_%hd202048202124%_ (let () (declare (not safe)) - (##car _%e201773201846%_))) - (_%tl201775201853%_ + (##car _%e202047202120%_))) + (_%tl202049202127%_ (let () (declare (not safe)) - (##cdr _%e201773201846%_)))) + (##cdr _%e202047202120%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201775201853%_)) - (_%loop201762201814%_ - _%lp-tl201765201833%_ - (cons _%hd201774201850%_ - _%symbol201766201821%_) - (cons _%hd201771201840%_ - _%method201767201823%_)) - (_%g201748201781%_ - _%g201749201785%_)))) - (_%g201748201781%_ - _%g201749201785%_)))) - (_%g201748201781%_ _%g201749201785%_)))) - (let ((_%symbol201768201856%_ - (reverse _%symbol201766201821%_)) - (_%method201769201859%_ - (reverse _%method201767201823%_))) - ((lambda (_%L201862%_ _%L201864%_ _%L201865%_) + _%tl202049202127%_)) + (_%loop202036202088%_ + _%lp-tl202039202107%_ + (cons _%hd202048202124%_ + _%symbol202040202095%_) + (cons _%hd202045202114%_ + _%method202041202097%_)) + (_%g202022202055%_ + _%g202023202059%_)))) + (_%g202022202055%_ + _%g202023202059%_)))) + (_%g202022202055%_ _%g202023202059%_)))) + (let ((_%symbol202042202130%_ + (reverse _%symbol202040202095%_)) + (_%method202043202133%_ + (reverse _%method202041202097%_))) + ((lambda (_%L202136%_ _%L202138%_ _%L202139%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -988,90 +988,90 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L201862%_ - _%L201864%_)) - (let ((__tmp207645 - (lambda (_%g201883201887%_ - _%g201884201890%_ - _%g201885201892%_) + _%L202136%_ + _%L202138%_)) + (let ((__tmp207919 + (lambda (_%g202157202161%_ + _%g202158202164%_ + _%g202159202166%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method)) - (cons _%L201865%_ - (cons _%g201884201890%_ + (cons _%L202139%_ + (cons _%g202158202164%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%g201883201887%_ '())))) + (cons _%g202157202161%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g201885201892%_)))) + _%g202159202166%_)))) (declare (not safe)) (__foldr2 - __tmp207645 + __tmp207919 '() - _%L201862%_ - _%L201864%_))))) - _%symbol201768201856%_ - _%method201769201859%_ - _%hd201757201802%_)))))) + _%L202136%_ + _%L202138%_))))) + _%symbol202042202130%_ + _%method202043202133%_ + _%hd202031202076%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop201762201814%_ - _%target201759201808%_ + (_%loop202036202088%_ + _%target202033202082%_ '() '())) - (_%g201748201781%_ - _%g201749201785%_))))) - (_%g201748201781%_ _%g201749201785%_)))) - (_%g201748201781%_ _%g201749201785%_)))) - (_%g201748201781%_ _%g201749201785%_))))) - (_%g201747201895%_ _%$stx201744%_)))) + (_%g202022202055%_ + _%g202023202059%_))))) + (_%g202022202055%_ _%g202023202059%_)))) + (_%g202022202055%_ _%g202023202059%_)))) + (_%g202022202055%_ _%g202023202059%_))))) + (_%g202021202169%_ _%$stx202018%_)))) (define |gxc[:0:]#@alias| - (lambda (_%$stx201900%_) - (let* ((_%g201904201918%_ - (lambda (_%g201905201914%_) + (lambda (_%$stx202174%_) + (let* ((_%g202178202192%_ + (lambda (_%g202179202188%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g201905201914%_)))) - (_%g201903201959%_ - (lambda (_%g201905201922%_) + _%g202179202188%_)))) + (_%g202177202233%_ + (lambda (_%g202179202196%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g201905201922%_)) - (let ((_%e201907201925%_ + (gx#stx-pair? _%g202179202196%_)) + (let ((_%e202181202199%_ (let () (declare (not safe)) - (gx#syntax-e _%g201905201922%_)))) - (let ((_%hd201908201929%_ + (gx#syntax-e _%g202179202196%_)))) + (let ((_%hd202182202203%_ (let () (declare (not safe)) - (##car _%e201907201925%_))) - (_%tl201909201932%_ + (##car _%e202181202199%_))) + (_%tl202183202206%_ (let () (declare (not safe)) - (##cdr _%e201907201925%_)))) + (##cdr _%e202181202199%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201909201932%_)) - (let ((_%e201910201935%_ + (gx#stx-pair? _%tl202183202206%_)) + (let ((_%e202184202209%_ (let () (declare (not safe)) - (gx#syntax-e _%tl201909201932%_)))) - (let ((_%hd201911201939%_ + (gx#syntax-e _%tl202183202206%_)))) + (let ((_%hd202185202213%_ (let () (declare (not safe)) - (##car _%e201910201935%_))) - (_%tl201912201942%_ + (##car _%e202184202209%_))) + (_%tl202186202216%_ (let () (declare (not safe)) - (##cdr _%e201910201935%_)))) + (##cdr _%e202184202209%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201912201942%_)) - ((lambda (_%L201945%_) + (gx#stx-null? _%tl202186202216%_)) + ((lambda (_%L202219%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1083,230 +1083,230 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L201945%_ + (cons _%L202219%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd201911201939%_) - (_%g201904201918%_ _%g201905201922%_)))) - (_%g201904201918%_ _%g201905201922%_)))) - (_%g201904201918%_ _%g201905201922%_))))) - (_%g201903201959%_ _%$stx201900%_)))) + _%hd202185202213%_) + (_%g202178202192%_ _%g202179202196%_)))) + (_%g202178202192%_ _%g202179202196%_)))) + (_%g202178202192%_ _%g202179202196%_))))) + (_%g202177202233%_ _%$stx202174%_)))) (define |gxc[:0:]#@class| - (lambda (_%$stx201963%_) - (let* ((_%g201967202021%_ - (lambda (_%g201968202017%_) + (lambda (_%$stx202237%_) + (let* ((_%g202241202295%_ + (lambda (_%g202242202291%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g201968202017%_)))) - (_%g201966202202%_ - (lambda (_%g201968202025%_) + _%g202242202291%_)))) + (_%g202240202476%_ + (lambda (_%g202242202299%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g201968202025%_)) - (let ((_%e201980202028%_ + (gx#stx-pair? _%g202242202299%_)) + (let ((_%e202254202302%_ (let () (declare (not safe)) - (gx#syntax-e _%g201968202025%_)))) - (let ((_%hd201981202032%_ + (gx#syntax-e _%g202242202299%_)))) + (let ((_%hd202255202306%_ (let () (declare (not safe)) - (##car _%e201980202028%_))) - (_%tl201982202035%_ + (##car _%e202254202302%_))) + (_%tl202256202309%_ (let () (declare (not safe)) - (##cdr _%e201980202028%_)))) + (##cdr _%e202254202302%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201982202035%_)) - (let ((_%e201983202038%_ + (gx#stx-pair? _%tl202256202309%_)) + (let ((_%e202257202312%_ (let () (declare (not safe)) - (gx#syntax-e _%tl201982202035%_)))) - (let ((_%hd201984202042%_ + (gx#syntax-e _%tl202256202309%_)))) + (let ((_%hd202258202316%_ (let () (declare (not safe)) - (##car _%e201983202038%_))) - (_%tl201985202045%_ + (##car _%e202257202312%_))) + (_%tl202259202319%_ (let () (declare (not safe)) - (##cdr _%e201983202038%_)))) + (##cdr _%e202257202312%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201985202045%_)) - (let ((_%e201986202048%_ + (gx#stx-pair? _%tl202259202319%_)) + (let ((_%e202260202322%_ (let () (declare (not safe)) (gx#syntax-e - _%tl201985202045%_)))) - (let ((_%hd201987202052%_ + _%tl202259202319%_)))) + (let ((_%hd202261202326%_ (let () (declare (not safe)) - (##car _%e201986202048%_))) - (_%tl201988202055%_ + (##car _%e202260202322%_))) + (_%tl202262202329%_ (let () (declare (not safe)) - (##cdr _%e201986202048%_)))) + (##cdr _%e202260202322%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201988202055%_)) - (let ((_%e201989202058%_ + _%tl202262202329%_)) + (let ((_%e202263202332%_ (let () (declare (not safe)) (gx#syntax-e - _%tl201988202055%_)))) - (let ((_%hd201990202062%_ + _%tl202262202329%_)))) + (let ((_%hd202264202336%_ (let () (declare (not safe)) - (##car _%e201989202058%_))) - (_%tl201991202065%_ + (##car _%e202263202332%_))) + (_%tl202265202339%_ (let () (declare (not safe)) - (##cdr _%e201989202058%_)))) + (##cdr _%e202263202332%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201991202065%_)) - (let ((_%e201992202068%_ + _%tl202265202339%_)) + (let ((_%e202266202342%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl201991202065%_)))) - (let ((_%hd201993202072%_ - (let () (declare (not safe)) (##car _%e201992202068%_))) - (_%tl201994202075%_ + (gx#syntax-e _%tl202265202339%_)))) + (let ((_%hd202267202346%_ + (let () (declare (not safe)) (##car _%e202266202342%_))) + (_%tl202268202349%_ (let () (declare (not safe)) - (##cdr _%e201992202068%_)))) + (##cdr _%e202266202342%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201994202075%_)) - (let ((_%e201995202078%_ + (gx#stx-pair? _%tl202268202349%_)) + (let ((_%e202269202352%_ (let () (declare (not safe)) - (gx#syntax-e _%tl201994202075%_)))) - (let ((_%hd201996202082%_ + (gx#syntax-e _%tl202268202349%_)))) + (let ((_%hd202270202356%_ (let () (declare (not safe)) - (##car _%e201995202078%_))) - (_%tl201997202085%_ + (##car _%e202269202352%_))) + (_%tl202271202359%_ (let () (declare (not safe)) - (##cdr _%e201995202078%_)))) + (##cdr _%e202269202352%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201997202085%_)) - (let ((_%e201998202088%_ + (gx#stx-pair? _%tl202271202359%_)) + (let ((_%e202272202362%_ (let () (declare (not safe)) - (gx#syntax-e _%tl201997202085%_)))) - (let ((_%hd201999202092%_ + (gx#syntax-e _%tl202271202359%_)))) + (let ((_%hd202273202366%_ (let () (declare (not safe)) - (##car _%e201998202088%_))) - (_%tl202000202095%_ + (##car _%e202272202362%_))) + (_%tl202274202369%_ (let () (declare (not safe)) - (##cdr _%e201998202088%_)))) + (##cdr _%e202272202362%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202000202095%_)) - (let ((_%e202001202098%_ + (gx#stx-pair? _%tl202274202369%_)) + (let ((_%e202275202372%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202000202095%_)))) - (let ((_%hd202002202102%_ + _%tl202274202369%_)))) + (let ((_%hd202276202376%_ (let () (declare (not safe)) - (##car _%e202001202098%_))) - (_%tl202003202105%_ + (##car _%e202275202372%_))) + (_%tl202277202379%_ (let () (declare (not safe)) - (##cdr _%e202001202098%_)))) + (##cdr _%e202275202372%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl202003202105%_)) - (let ((_%e202004202108%_ + _%tl202277202379%_)) + (let ((_%e202278202382%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202003202105%_)))) - (let ((_%hd202005202112%_ + _%tl202277202379%_)))) + (let ((_%hd202279202386%_ (let () (declare (not safe)) - (##car _%e202004202108%_))) - (_%tl202006202115%_ + (##car _%e202278202382%_))) + (_%tl202280202389%_ (let () (declare (not safe)) - (##cdr _%e202004202108%_)))) + (##cdr _%e202278202382%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl202006202115%_)) - (let ((_%e202007202118%_ + _%tl202280202389%_)) + (let ((_%e202281202392%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl202006202115%_)))) - (let ((_%hd202008202122%_ - (let () (declare (not safe)) (##car _%e202007202118%_))) - (_%tl202009202125%_ + (gx#syntax-e _%tl202280202389%_)))) + (let ((_%hd202282202396%_ + (let () (declare (not safe)) (##car _%e202281202392%_))) + (_%tl202283202399%_ (let () (declare (not safe)) - (##cdr _%e202007202118%_)))) + (##cdr _%e202281202392%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202009202125%_)) - (let ((_%e202010202128%_ + (gx#stx-pair? _%tl202283202399%_)) + (let ((_%e202284202402%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202009202125%_)))) - (let ((_%hd202011202132%_ + (gx#syntax-e _%tl202283202399%_)))) + (let ((_%hd202285202406%_ (let () (declare (not safe)) - (##car _%e202010202128%_))) - (_%tl202012202135%_ + (##car _%e202284202402%_))) + (_%tl202286202409%_ (let () (declare (not safe)) - (##cdr _%e202010202128%_)))) + (##cdr _%e202284202402%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202012202135%_)) - (let ((_%e202013202138%_ + (gx#stx-pair? _%tl202286202409%_)) + (let ((_%e202287202412%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202012202135%_)))) - (let ((_%hd202014202142%_ + (gx#syntax-e _%tl202286202409%_)))) + (let ((_%hd202288202416%_ (let () (declare (not safe)) - (##car _%e202013202138%_))) - (_%tl202015202145%_ + (##car _%e202287202412%_))) + (_%tl202289202419%_ (let () (declare (not safe)) - (##cdr _%e202013202138%_)))) + (##cdr _%e202287202412%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202015202145%_)) - ((lambda (_%L202148%_ - _%L202150%_ - _%L202151%_ - _%L202152%_ - _%L202153%_ - _%L202154%_ - _%L202155%_ - _%L202156%_ - _%L202157%_ - _%L202158%_ - _%L202159%_) + (gx#stx-null? _%tl202289202419%_)) + ((lambda (_%L202422%_ + _%L202424%_ + _%L202425%_ + _%L202426%_ + _%L202427%_ + _%L202428%_ + _%L202429%_ + _%L202430%_ + _%L202431%_ + _%L202432%_ + _%L202433%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1318,7 +1318,7 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202159%_ + (cons _%L202433%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1326,115 +1326,115 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202158%_ '())) + (cons _%L202432%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202157%_ '())) + (cons _%L202431%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202156%_ '())) + (cons _%L202430%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202155%_ '())) + (cons _%L202429%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202154%_ '())) - (cons _%L202153%_ - (cons _%L202152%_ - (cons _%L202151%_ + (cons _%L202428%_ '())) + (cons _%L202427%_ + (cons _%L202426%_ + (cons _%L202425%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202150%_ '())) + (cons _%L202424%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202148%_ '())) + (cons _%L202422%_ '())) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd202014202142%_ - _%hd202011202132%_ - _%hd202008202122%_ - _%hd202005202112%_ - _%hd202002202102%_ - _%hd201999202092%_ - _%hd201996202082%_ - _%hd201993202072%_ - _%hd201990202062%_ - _%hd201987202052%_ - _%hd201984202042%_) - (_%g201967202021%_ _%g201968202025%_)))) - (_%g201967202021%_ _%g201968202025%_)))) - (_%g201967202021%_ _%g201968202025%_)))) - (_%g201967202021%_ _%g201968202025%_)))) + _%hd202288202416%_ + _%hd202285202406%_ + _%hd202282202396%_ + _%hd202279202386%_ + _%hd202276202376%_ + _%hd202273202366%_ + _%hd202270202356%_ + _%hd202267202346%_ + _%hd202264202336%_ + _%hd202261202326%_ + _%hd202258202316%_) + (_%g202241202295%_ _%g202242202299%_)))) + (_%g202241202295%_ _%g202242202299%_)))) + (_%g202241202295%_ _%g202242202299%_)))) + (_%g202241202295%_ _%g202242202299%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g201967202021%_ - _%g201968202025%_)))) - (_%g201967202021%_ _%g201968202025%_)))) - (_%g201967202021%_ _%g201968202025%_)))) - (_%g201967202021%_ _%g201968202025%_)))) - (_%g201967202021%_ _%g201968202025%_)))) + (_%g202241202295%_ + _%g202242202299%_)))) + (_%g202241202295%_ _%g202242202299%_)))) + (_%g202241202295%_ _%g202242202299%_)))) + (_%g202241202295%_ _%g202242202299%_)))) + (_%g202241202295%_ _%g202242202299%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g201967202021%_ - _%g201968202025%_)))) - (_%g201967202021%_ _%g201968202025%_)))) - (_%g201967202021%_ _%g201968202025%_)))) - (_%g201967202021%_ _%g201968202025%_))))) - (_%g201966202202%_ _%$stx201963%_)))) + (_%g202241202295%_ + _%g202242202299%_)))) + (_%g202241202295%_ _%g202242202299%_)))) + (_%g202241202295%_ _%g202242202299%_)))) + (_%g202241202295%_ _%g202242202299%_))))) + (_%g202240202476%_ _%$stx202237%_)))) (define |gxc[:0:]#@predicate| - (lambda (_%$stx202206%_) - (let* ((_%g202210202224%_ - (lambda (_%g202211202220%_) + (lambda (_%$stx202480%_) + (let* ((_%g202484202498%_ + (lambda (_%g202485202494%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202211202220%_)))) - (_%g202209202265%_ - (lambda (_%g202211202228%_) + _%g202485202494%_)))) + (_%g202483202539%_ + (lambda (_%g202485202502%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202211202228%_)) - (let ((_%e202213202231%_ + (gx#stx-pair? _%g202485202502%_)) + (let ((_%e202487202505%_ (let () (declare (not safe)) - (gx#syntax-e _%g202211202228%_)))) - (let ((_%hd202214202235%_ + (gx#syntax-e _%g202485202502%_)))) + (let ((_%hd202488202509%_ (let () (declare (not safe)) - (##car _%e202213202231%_))) - (_%tl202215202238%_ + (##car _%e202487202505%_))) + (_%tl202489202512%_ (let () (declare (not safe)) - (##cdr _%e202213202231%_)))) + (##cdr _%e202487202505%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202215202238%_)) - (let ((_%e202216202241%_ + (gx#stx-pair? _%tl202489202512%_)) + (let ((_%e202490202515%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202215202238%_)))) - (let ((_%hd202217202245%_ + (gx#syntax-e _%tl202489202512%_)))) + (let ((_%hd202491202519%_ (let () (declare (not safe)) - (##car _%e202216202241%_))) - (_%tl202218202248%_ + (##car _%e202490202515%_))) + (_%tl202492202522%_ (let () (declare (not safe)) - (##cdr _%e202216202241%_)))) + (##cdr _%e202490202515%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202218202248%_)) - ((lambda (_%L202251%_) + (gx#stx-null? _%tl202492202522%_)) + ((lambda (_%L202525%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1446,62 +1446,62 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202251%_ + (cons _%L202525%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd202217202245%_) - (_%g202210202224%_ _%g202211202228%_)))) - (_%g202210202224%_ _%g202211202228%_)))) - (_%g202210202224%_ _%g202211202228%_))))) - (_%g202209202265%_ _%$stx202206%_)))) + _%hd202491202519%_) + (_%g202484202498%_ _%g202485202502%_)))) + (_%g202484202498%_ _%g202485202502%_)))) + (_%g202484202498%_ _%g202485202502%_))))) + (_%g202483202539%_ _%$stx202480%_)))) (define |gxc[:0:]#@constructor| - (lambda (_%$stx202269%_) - (let* ((_%g202273202287%_ - (lambda (_%g202274202283%_) + (lambda (_%$stx202543%_) + (let* ((_%g202547202561%_ + (lambda (_%g202548202557%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202274202283%_)))) - (_%g202272202328%_ - (lambda (_%g202274202291%_) + _%g202548202557%_)))) + (_%g202546202602%_ + (lambda (_%g202548202565%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202274202291%_)) - (let ((_%e202276202294%_ + (gx#stx-pair? _%g202548202565%_)) + (let ((_%e202550202568%_ (let () (declare (not safe)) - (gx#syntax-e _%g202274202291%_)))) - (let ((_%hd202277202298%_ + (gx#syntax-e _%g202548202565%_)))) + (let ((_%hd202551202572%_ (let () (declare (not safe)) - (##car _%e202276202294%_))) - (_%tl202278202301%_ + (##car _%e202550202568%_))) + (_%tl202552202575%_ (let () (declare (not safe)) - (##cdr _%e202276202294%_)))) + (##cdr _%e202550202568%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202278202301%_)) - (let ((_%e202279202304%_ + (gx#stx-pair? _%tl202552202575%_)) + (let ((_%e202553202578%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202278202301%_)))) - (let ((_%hd202280202308%_ + (gx#syntax-e _%tl202552202575%_)))) + (let ((_%hd202554202582%_ (let () (declare (not safe)) - (##car _%e202279202304%_))) - (_%tl202281202311%_ + (##car _%e202553202578%_))) + (_%tl202555202585%_ (let () (declare (not safe)) - (##cdr _%e202279202304%_)))) + (##cdr _%e202553202578%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202281202311%_)) - ((lambda (_%L202314%_) + (gx#stx-null? _%tl202555202585%_)) + ((lambda (_%L202588%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1513,98 +1513,98 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202314%_ + (cons _%L202588%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd202280202308%_) - (_%g202273202287%_ _%g202274202291%_)))) - (_%g202273202287%_ _%g202274202291%_)))) - (_%g202273202287%_ _%g202274202291%_))))) - (_%g202272202328%_ _%$stx202269%_)))) + _%hd202554202582%_) + (_%g202547202561%_ _%g202548202565%_)))) + (_%g202547202561%_ _%g202548202565%_)))) + (_%g202547202561%_ _%g202548202565%_))))) + (_%g202546202602%_ _%$stx202543%_)))) (define |gxc[:0:]#@accessor| - (lambda (_%$stx202332%_) - (let* ((_%g202336202358%_ - (lambda (_%g202337202354%_) + (lambda (_%$stx202606%_) + (let* ((_%g202610202632%_ + (lambda (_%g202611202628%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202337202354%_)))) - (_%g202335202427%_ - (lambda (_%g202337202362%_) + _%g202611202628%_)))) + (_%g202609202701%_ + (lambda (_%g202611202636%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202337202362%_)) - (let ((_%e202341202365%_ + (gx#stx-pair? _%g202611202636%_)) + (let ((_%e202615202639%_ (let () (declare (not safe)) - (gx#syntax-e _%g202337202362%_)))) - (let ((_%hd202342202369%_ + (gx#syntax-e _%g202611202636%_)))) + (let ((_%hd202616202643%_ (let () (declare (not safe)) - (##car _%e202341202365%_))) - (_%tl202343202372%_ + (##car _%e202615202639%_))) + (_%tl202617202646%_ (let () (declare (not safe)) - (##cdr _%e202341202365%_)))) + (##cdr _%e202615202639%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202343202372%_)) - (let ((_%e202344202375%_ + (gx#stx-pair? _%tl202617202646%_)) + (let ((_%e202618202649%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202343202372%_)))) - (let ((_%hd202345202379%_ + (gx#syntax-e _%tl202617202646%_)))) + (let ((_%hd202619202653%_ (let () (declare (not safe)) - (##car _%e202344202375%_))) - (_%tl202346202382%_ + (##car _%e202618202649%_))) + (_%tl202620202656%_ (let () (declare (not safe)) - (##cdr _%e202344202375%_)))) + (##cdr _%e202618202649%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202346202382%_)) - (let ((_%e202347202385%_ + (gx#stx-pair? _%tl202620202656%_)) + (let ((_%e202621202659%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202346202382%_)))) - (let ((_%hd202348202389%_ + _%tl202620202656%_)))) + (let ((_%hd202622202663%_ (let () (declare (not safe)) - (##car _%e202347202385%_))) - (_%tl202349202392%_ + (##car _%e202621202659%_))) + (_%tl202623202666%_ (let () (declare (not safe)) - (##cdr _%e202347202385%_)))) + (##cdr _%e202621202659%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl202349202392%_)) - (let ((_%e202350202395%_ + _%tl202623202666%_)) + (let ((_%e202624202669%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202349202392%_)))) - (let ((_%hd202351202399%_ + _%tl202623202666%_)))) + (let ((_%hd202625202673%_ (let () (declare (not safe)) - (##car _%e202350202395%_))) - (_%tl202352202402%_ + (##car _%e202624202669%_))) + (_%tl202626202676%_ (let () (declare (not safe)) - (##cdr _%e202350202395%_)))) + (##cdr _%e202624202669%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl202352202402%_)) - ((lambda (_%L202405%_ - _%L202407%_ - _%L202408%_) + _%tl202626202676%_)) + ((lambda (_%L202679%_ + _%L202681%_ + _%L202682%_) (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1612,105 +1612,105 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202408%_ '())) + (cons _%L202682%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202407%_ '())) - (cons _%L202405%_ '()))))) - _%hd202351202399%_ - _%hd202348202389%_ - _%hd202345202379%_) - (_%g202336202358%_ _%g202337202362%_)))) + (cons _%L202681%_ '())) + (cons _%L202679%_ '()))))) + _%hd202625202673%_ + _%hd202622202663%_ + _%hd202619202653%_) + (_%g202610202632%_ _%g202611202636%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g202336202358%_ - _%g202337202362%_)))) - (_%g202336202358%_ _%g202337202362%_)))) - (_%g202336202358%_ _%g202337202362%_)))) - (_%g202336202358%_ _%g202337202362%_))))) - (_%g202335202427%_ _%$stx202332%_)))) + (_%g202610202632%_ + _%g202611202636%_)))) + (_%g202610202632%_ _%g202611202636%_)))) + (_%g202610202632%_ _%g202611202636%_)))) + (_%g202610202632%_ _%g202611202636%_))))) + (_%g202609202701%_ _%$stx202606%_)))) (define |gxc[:0:]#@mutator| - (lambda (_%$stx202431%_) - (let* ((_%g202435202457%_ - (lambda (_%g202436202453%_) + (lambda (_%$stx202705%_) + (let* ((_%g202709202731%_ + (lambda (_%g202710202727%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202436202453%_)))) - (_%g202434202526%_ - (lambda (_%g202436202461%_) + _%g202710202727%_)))) + (_%g202708202800%_ + (lambda (_%g202710202735%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202436202461%_)) - (let ((_%e202440202464%_ + (gx#stx-pair? _%g202710202735%_)) + (let ((_%e202714202738%_ (let () (declare (not safe)) - (gx#syntax-e _%g202436202461%_)))) - (let ((_%hd202441202468%_ + (gx#syntax-e _%g202710202735%_)))) + (let ((_%hd202715202742%_ (let () (declare (not safe)) - (##car _%e202440202464%_))) - (_%tl202442202471%_ + (##car _%e202714202738%_))) + (_%tl202716202745%_ (let () (declare (not safe)) - (##cdr _%e202440202464%_)))) + (##cdr _%e202714202738%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202442202471%_)) - (let ((_%e202443202474%_ + (gx#stx-pair? _%tl202716202745%_)) + (let ((_%e202717202748%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202442202471%_)))) - (let ((_%hd202444202478%_ + (gx#syntax-e _%tl202716202745%_)))) + (let ((_%hd202718202752%_ (let () (declare (not safe)) - (##car _%e202443202474%_))) - (_%tl202445202481%_ + (##car _%e202717202748%_))) + (_%tl202719202755%_ (let () (declare (not safe)) - (##cdr _%e202443202474%_)))) + (##cdr _%e202717202748%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202445202481%_)) - (let ((_%e202446202484%_ + (gx#stx-pair? _%tl202719202755%_)) + (let ((_%e202720202758%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202445202481%_)))) - (let ((_%hd202447202488%_ + _%tl202719202755%_)))) + (let ((_%hd202721202762%_ (let () (declare (not safe)) - (##car _%e202446202484%_))) - (_%tl202448202491%_ + (##car _%e202720202758%_))) + (_%tl202722202765%_ (let () (declare (not safe)) - (##cdr _%e202446202484%_)))) + (##cdr _%e202720202758%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl202448202491%_)) - (let ((_%e202449202494%_ + _%tl202722202765%_)) + (let ((_%e202723202768%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202448202491%_)))) - (let ((_%hd202450202498%_ + _%tl202722202765%_)))) + (let ((_%hd202724202772%_ (let () (declare (not safe)) - (##car _%e202449202494%_))) - (_%tl202451202501%_ + (##car _%e202723202768%_))) + (_%tl202725202775%_ (let () (declare (not safe)) - (##cdr _%e202449202494%_)))) + (##cdr _%e202723202768%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl202451202501%_)) - ((lambda (_%L202504%_ - _%L202506%_ - _%L202507%_) + _%tl202725202775%_)) + ((lambda (_%L202778%_ + _%L202780%_ + _%L202781%_) (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1718,69 +1718,69 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202507%_ '())) + (cons _%L202781%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202506%_ '())) - (cons _%L202504%_ '()))))) - _%hd202450202498%_ - _%hd202447202488%_ - _%hd202444202478%_) - (_%g202435202457%_ _%g202436202461%_)))) + (cons _%L202780%_ '())) + (cons _%L202778%_ '()))))) + _%hd202724202772%_ + _%hd202721202762%_ + _%hd202718202752%_) + (_%g202709202731%_ _%g202710202735%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g202435202457%_ - _%g202436202461%_)))) - (_%g202435202457%_ _%g202436202461%_)))) - (_%g202435202457%_ _%g202436202461%_)))) - (_%g202435202457%_ _%g202436202461%_))))) - (_%g202434202526%_ _%$stx202431%_)))) + (_%g202709202731%_ + _%g202710202735%_)))) + (_%g202709202731%_ _%g202710202735%_)))) + (_%g202709202731%_ _%g202710202735%_)))) + (_%g202709202731%_ _%g202710202735%_))))) + (_%g202708202800%_ _%$stx202705%_)))) (define |gxc[:0:]#@primitive-predicate| - (lambda (_%$stx202530%_) - (let* ((_%g202534202548%_ - (lambda (_%g202535202544%_) + (lambda (_%$stx202804%_) + (let* ((_%g202808202822%_ + (lambda (_%g202809202818%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202535202544%_)))) - (_%g202533202589%_ - (lambda (_%g202535202552%_) + _%g202809202818%_)))) + (_%g202807202863%_ + (lambda (_%g202809202826%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202535202552%_)) - (let ((_%e202537202555%_ + (gx#stx-pair? _%g202809202826%_)) + (let ((_%e202811202829%_ (let () (declare (not safe)) - (gx#syntax-e _%g202535202552%_)))) - (let ((_%hd202538202559%_ + (gx#syntax-e _%g202809202826%_)))) + (let ((_%hd202812202833%_ (let () (declare (not safe)) - (##car _%e202537202555%_))) - (_%tl202539202562%_ + (##car _%e202811202829%_))) + (_%tl202813202836%_ (let () (declare (not safe)) - (##cdr _%e202537202555%_)))) + (##cdr _%e202811202829%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202539202562%_)) - (let ((_%e202540202565%_ + (gx#stx-pair? _%tl202813202836%_)) + (let ((_%e202814202839%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202539202562%_)))) - (let ((_%hd202541202569%_ + (gx#syntax-e _%tl202813202836%_)))) + (let ((_%hd202815202843%_ (let () (declare (not safe)) - (##car _%e202540202565%_))) - (_%tl202542202572%_ + (##car _%e202814202839%_))) + (_%tl202816202846%_ (let () (declare (not safe)) - (##cdr _%e202540202565%_)))) + (##cdr _%e202814202839%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202542202572%_)) - ((lambda (_%L202575%_) + (gx#stx-null? _%tl202816202846%_)) + ((lambda (_%L202849%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1792,80 +1792,80 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202575%_ + (cons _%L202849%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd202541202569%_) - (_%g202534202548%_ _%g202535202552%_)))) - (_%g202534202548%_ _%g202535202552%_)))) - (_%g202534202548%_ _%g202535202552%_))))) - (_%g202533202589%_ _%$stx202530%_)))) + _%hd202815202843%_) + (_%g202808202822%_ _%g202809202826%_)))) + (_%g202808202822%_ _%g202809202826%_)))) + (_%g202808202822%_ _%g202809202826%_))))) + (_%g202807202863%_ _%$stx202804%_)))) (define |gxc[:0:]#@interface| - (lambda (_%$stx202593%_) - (let* ((_%g202597202615%_ - (lambda (_%g202598202611%_) + (lambda (_%$stx202867%_) + (let* ((_%g202871202889%_ + (lambda (_%g202872202885%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202598202611%_)))) - (_%g202596202670%_ - (lambda (_%g202598202619%_) + _%g202872202885%_)))) + (_%g202870202944%_ + (lambda (_%g202872202893%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202598202619%_)) - (let ((_%e202601202622%_ + (gx#stx-pair? _%g202872202893%_)) + (let ((_%e202875202896%_ (let () (declare (not safe)) - (gx#syntax-e _%g202598202619%_)))) - (let ((_%hd202602202626%_ + (gx#syntax-e _%g202872202893%_)))) + (let ((_%hd202876202900%_ (let () (declare (not safe)) - (##car _%e202601202622%_))) - (_%tl202603202629%_ + (##car _%e202875202896%_))) + (_%tl202877202903%_ (let () (declare (not safe)) - (##cdr _%e202601202622%_)))) + (##cdr _%e202875202896%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202603202629%_)) - (let ((_%e202604202632%_ + (gx#stx-pair? _%tl202877202903%_)) + (let ((_%e202878202906%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202603202629%_)))) - (let ((_%hd202605202636%_ + (gx#syntax-e _%tl202877202903%_)))) + (let ((_%hd202879202910%_ (let () (declare (not safe)) - (##car _%e202604202632%_))) - (_%tl202606202639%_ + (##car _%e202878202906%_))) + (_%tl202880202913%_ (let () (declare (not safe)) - (##cdr _%e202604202632%_)))) + (##cdr _%e202878202906%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202606202639%_)) - (let ((_%e202607202642%_ + (gx#stx-pair? _%tl202880202913%_)) + (let ((_%e202881202916%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202606202639%_)))) - (let ((_%hd202608202646%_ + _%tl202880202913%_)))) + (let ((_%hd202882202920%_ (let () (declare (not safe)) - (##car _%e202607202642%_))) - (_%tl202609202649%_ + (##car _%e202881202916%_))) + (_%tl202883202923%_ (let () (declare (not safe)) - (##cdr _%e202607202642%_)))) + (##cdr _%e202881202916%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl202609202649%_)) - ((lambda (_%L202652%_ - _%L202654%_) + _%tl202883202923%_)) + ((lambda (_%L202926%_ + _%L202928%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1875,59 +1875,59 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202654%_ '())) + (cons _%L202928%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202652%_ '())) + (cons _%L202926%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd202608202646%_ - _%hd202605202636%_) - (_%g202597202615%_ - _%g202598202619%_)))) - (_%g202597202615%_ _%g202598202619%_)))) - (_%g202597202615%_ _%g202598202619%_)))) - (_%g202597202615%_ _%g202598202619%_))))) - (_%g202596202670%_ _%$stx202593%_)))) + _%hd202882202920%_ + _%hd202879202910%_) + (_%g202871202889%_ + _%g202872202893%_)))) + (_%g202871202889%_ _%g202872202893%_)))) + (_%g202871202889%_ _%g202872202893%_)))) + (_%g202871202889%_ _%g202872202893%_))))) + (_%g202870202944%_ _%$stx202867%_)))) (define |gxc[:0:]#@lambda| - (lambda (_%$stx202674%_) - (let* ((_%__stx207016207017%_ _%$stx202674%_) - (_%g202681202742%_ + (lambda (_%$stx202948%_) + (let* ((_%__stx207290207291%_ _%$stx202948%_) + (_%g202955203016%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx207016207017%_))))) - (let ((_%__kont207019207020%_ - (lambda (_%L202980%_ _%L202982%_) + _%__stx207290207291%_))))) + (let ((_%__kont207293207294%_ + (lambda (_%L203254%_ _%L203256%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!lambda)) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202982%_ '())) + (cons _%L203256%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202980%_ '())) + (cons _%L203254%_ '())) '()))))) - (_%__kont207021207022%_ - (lambda (_%L202919%_ _%L202921%_ _%L202922%_) + (_%__kont207295207296%_ + (lambda (_%L203193%_ _%L203195%_ _%L203196%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!lambda)) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202922%_ '())) + (cons _%L203196%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202921%_ '())) + (cons _%L203195%_ '())) (cons 'signature: (cons (cons (let () (declare (not safe)) @@ -1942,478 +1942,478 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202919%_ '())) + (cons _%L203193%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (_%__kont207023207024%_ - (lambda (_%L202843%_ _%L202845%_) - (cons _%L202845%_ (cons _%L202843%_ (cons '#f '()))))) - (_%__kont207025207026%_ - (lambda (_%L202793%_ _%L202795%_ _%L202796%_) - (cons _%L202796%_ - (cons _%L202795%_ + (_%__kont207297207298%_ + (lambda (_%L203117%_ _%L203119%_) + (cons _%L203119%_ (cons _%L203117%_ (cons '#f '()))))) + (_%__kont207299207300%_ + (lambda (_%L203067%_ _%L203069%_ _%L203070%_) + (cons _%L203070%_ + (cons _%L203069%_ (cons '#f (cons 'signature: - (cons _%L202793%_ '())))))))) + (cons _%L203067%_ '())))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx207016207017%_)) - (let ((_%e202685202950%_ + (gx#stx-pair? _%__stx207290207291%_)) + (let ((_%e202959203224%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx207016207017%_)))) - (let ((_%tl202687202957%_ + (gx#syntax-e _%__stx207290207291%_)))) + (let ((_%tl202961203231%_ (let () (declare (not safe)) - (##cdr _%e202685202950%_))) - (_%hd202686202954%_ + (##cdr _%e202959203224%_))) + (_%hd202960203228%_ (let () (declare (not safe)) - (##car _%e202685202950%_)))) + (##car _%e202959203224%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202687202957%_)) - (let ((_%e202688202960%_ + (gx#stx-pair? _%tl202961203231%_)) + (let ((_%e202962203234%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202687202957%_)))) - (let ((_%tl202690202967%_ + (gx#syntax-e _%tl202961203231%_)))) + (let ((_%tl202964203241%_ (let () (declare (not safe)) - (##cdr _%e202688202960%_))) - (_%hd202689202964%_ + (##cdr _%e202962203234%_))) + (_%hd202963203238%_ (let () (declare (not safe)) - (##car _%e202688202960%_)))) + (##car _%e202962203234%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202690202967%_)) - (let ((_%e202691202970%_ + (gx#stx-pair? _%tl202964203241%_)) + (let ((_%e202965203244%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202690202967%_)))) - (let ((_%tl202693202977%_ + (gx#syntax-e _%tl202964203241%_)))) + (let ((_%tl202967203251%_ (let () (declare (not safe)) - (##cdr _%e202691202970%_))) - (_%hd202692202974%_ + (##cdr _%e202965203244%_))) + (_%hd202966203248%_ (let () (declare (not safe)) - (##car _%e202691202970%_)))) + (##car _%e202965203244%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202693202977%_)) - (_%__kont207019207020%_ - _%hd202692202974%_ - _%hd202689202964%_) + (gx#stx-null? _%tl202967203251%_)) + (_%__kont207293207294%_ + _%hd202966203248%_ + _%hd202963203238%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl202693202977%_)) - (let ((_%e202706202895%_ + _%tl202967203251%_)) + (let ((_%e202980203169%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202693202977%_)))) - (let ((_%tl202708202902%_ + _%tl202967203251%_)))) + (let ((_%tl202982203176%_ (let () (declare (not safe)) - (##cdr _%e202706202895%_))) - (_%hd202707202899%_ + (##cdr _%e202980203169%_))) + (_%hd202981203173%_ (let () (declare (not safe)) - (##car _%e202706202895%_)))) + (##car _%e202980203169%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd202707202899%_)) - (let ((_%e202709202905%_ + _%hd202981203173%_)) + (let ((_%e202983203179%_ (let () (declare (not safe)) (gx#stx-e - _%hd202707202899%_)))) - (if (equal? _%e202709202905%_ + _%hd202981203173%_)))) + (if (equal? _%e202983203179%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'signature:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202708202902%_)) - (let ((_%e202710202909%_ + (gx#stx-pair? _%tl202982203176%_)) + (let ((_%e202984203183%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202708202902%_)))) - (let ((_%tl202712202916%_ + (gx#syntax-e _%tl202982203176%_)))) + (let ((_%tl202986203190%_ (let () (declare (not safe)) - (##cdr _%e202710202909%_))) - (_%hd202711202913%_ + (##cdr _%e202984203183%_))) + (_%hd202985203187%_ (let () (declare (not safe)) - (##car _%e202710202909%_)))) + (##car _%e202984203183%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202712202916%_)) - (_%__kont207021207022%_ - _%hd202711202913%_ - _%hd202692202974%_ - _%hd202689202964%_) + (gx#stx-null? _%tl202986203190%_)) + (_%__kont207295207296%_ + _%hd202985203187%_ + _%hd202966203248%_ + _%hd202963203238%_) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd202692202974%_)) - (let ((_%e202733202779%_ + (gx#stx-datum? _%hd202966203248%_)) + (let ((_%e203007203053%_ (let () (declare (not safe)) - (gx#stx-e _%hd202692202974%_)))) + (gx#stx-e _%hd202966203248%_)))) (declare (not safe)) - (_%g202681202742%_)) + (_%g202955203016%_)) (let () (declare (not safe)) - (_%g202681202742%_)))))) + (_%g202955203016%_)))))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd202692202974%_)) - (let ((_%e202733202779%_ + (gx#stx-datum? _%hd202966203248%_)) + (let ((_%e203007203053%_ (let () (declare (not safe)) - (gx#stx-e _%hd202692202974%_)))) - (if (equal? _%e202733202779%_ 'signature:) + (gx#stx-e _%hd202966203248%_)))) + (if (equal? _%e203007203053%_ 'signature:) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202708202902%_)) - (_%__kont207025207026%_ - _%hd202707202899%_ - _%hd202689202964%_ - _%hd202686202954%_) + (gx#stx-null? _%tl202982203176%_)) + (_%__kont207299207300%_ + _%hd202981203173%_ + _%hd202963203238%_ + _%hd202960203228%_) (let () (declare (not safe)) - (_%g202681202742%_))) + (_%g202955203016%_))) (let () (declare (not safe)) - (_%g202681202742%_)))) - (let () (declare (not safe)) (_%g202681202742%_)))) + (_%g202955203016%_)))) + (let () (declare (not safe)) (_%g202955203016%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd202692202974%_)) - (let ((_%e202733202779%_ + (gx#stx-datum? _%hd202966203248%_)) + (let ((_%e203007203053%_ (let () (declare (not safe)) - (gx#stx-e _%hd202692202974%_)))) - (if (equal? _%e202733202779%_ 'signature:) + (gx#stx-e _%hd202966203248%_)))) + (if (equal? _%e203007203053%_ 'signature:) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202708202902%_)) - (_%__kont207025207026%_ - _%hd202707202899%_ - _%hd202689202964%_ - _%hd202686202954%_) + (gx#stx-null? _%tl202982203176%_)) + (_%__kont207299207300%_ + _%hd202981203173%_ + _%hd202963203238%_ + _%hd202960203228%_) (let () (declare (not safe)) - (_%g202681202742%_))) - (let () (declare (not safe)) (_%g202681202742%_)))) - (let () (declare (not safe)) (_%g202681202742%_))))) + (_%g202955203016%_))) + (let () (declare (not safe)) (_%g202955203016%_)))) + (let () (declare (not safe)) (_%g202955203016%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-datum? - _%hd202692202974%_)) - (let ((_%e202733202779%_ + _%hd202966203248%_)) + (let ((_%e203007203053%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd202692202974%_)))) - (if (equal? _%e202733202779%_ 'signature:) + (gx#stx-e _%hd202966203248%_)))) + (if (equal? _%e203007203053%_ 'signature:) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202708202902%_)) - (_%__kont207025207026%_ - _%hd202707202899%_ - _%hd202689202964%_ - _%hd202686202954%_) - (let () (declare (not safe)) (_%g202681202742%_))) - (let () (declare (not safe)) (_%g202681202742%_)))) - (let () (declare (not safe)) (_%g202681202742%_)))))) + (gx#stx-null? _%tl202982203176%_)) + (_%__kont207299207300%_ + _%hd202981203173%_ + _%hd202963203238%_ + _%hd202960203228%_) + (let () (declare (not safe)) (_%g202955203016%_))) + (let () (declare (not safe)) (_%g202955203016%_)))) + (let () (declare (not safe)) (_%g202955203016%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-datum? - _%hd202692202974%_)) - (let ((_%e202733202779%_ + _%hd202966203248%_)) + (let ((_%e203007203053%_ (let () (declare (not safe)) (gx#stx-e - _%hd202692202974%_)))) + _%hd202966203248%_)))) (declare (not safe)) - (_%g202681202742%_)) + (_%g202955203016%_)) (let () (declare (not safe)) - (_%g202681202742%_))))))) + (_%g202955203016%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202690202967%_)) - (_%__kont207023207024%_ - _%hd202689202964%_ - _%hd202686202954%_) + (gx#stx-null? _%tl202964203241%_)) + (_%__kont207297207298%_ + _%hd202963203238%_ + _%hd202960203228%_) (let () (declare (not safe)) - (_%g202681202742%_)))))) - (let () (declare (not safe)) (_%g202681202742%_))))) - (let () (declare (not safe)) (_%g202681202742%_))))))) + (_%g202955203016%_)))))) + (let () (declare (not safe)) (_%g202955203016%_))))) + (let () (declare (not safe)) (_%g202955203016%_))))))) (define |gxc[:0:]#@case-lambda| - (lambda (_%$stx203001%_) - (let* ((_%g203005203034%_ - (lambda (_%g203006203030%_) + (lambda (_%$stx203275%_) + (let* ((_%g203279203308%_ + (lambda (_%g203280203304%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203006203030%_)))) - (_%g203004203143%_ - (lambda (_%g203006203038%_) + _%g203280203304%_)))) + (_%g203278203417%_ + (lambda (_%g203280203312%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203006203038%_)) - (let ((_%e203008203041%_ + (gx#stx-pair? _%g203280203312%_)) + (let ((_%e203282203315%_ (let () (declare (not safe)) - (gx#syntax-e _%g203006203038%_)))) - (let ((_%hd203009203045%_ + (gx#syntax-e _%g203280203312%_)))) + (let ((_%hd203283203319%_ (let () (declare (not safe)) - (##car _%e203008203041%_))) - (_%tl203010203048%_ + (##car _%e203282203315%_))) + (_%tl203284203322%_ (let () (declare (not safe)) - (##cdr _%e203008203041%_)))) + (##cdr _%e203282203315%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl203010203048%_)) - (let ((_g207646_ + (gx#stx-pair/null? _%tl203284203322%_)) + (let ((_g207920_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl203010203048%_ + _%tl203284203322%_ '0)))) (begin - (let ((_g207647_ + (let ((_g207921_ (let () (declare (not safe)) - (if (##values? _g207646_) - (##vector-length _g207646_) + (if (##values? _g207920_) + (##vector-length _g207920_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g207647_ 2))) + (##fx= _g207921_ 2))) (error "Context expects 2 values" - _g207647_))) - (let ((_%target203011203051%_ + _g207921_))) + (let ((_%target203285203325%_ (let () (declare (not safe)) - (##vector-ref _g207646_ 0))) - (_%tl203013203054%_ + (##vector-ref _g207920_ 0))) + (_%tl203287203328%_ (let () (declare (not safe)) - (##vector-ref _g207646_ 1)))) + (##vector-ref _g207920_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203013203054%_)) - (letrec ((_%loop203014203057%_ - (lambda (_%hd203012203061%_ - _%clause203018203064%_) + (gx#stx-null? _%tl203287203328%_)) + (letrec ((_%loop203288203331%_ + (lambda (_%hd203286203335%_ + _%clause203292203338%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd203012203061%_)) - (let ((_%e203015203067%_ + _%hd203286203335%_)) + (let ((_%e203289203341%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd203012203061%_)))) - (let ((_%lp-hd203016203071%_ + (gx#syntax-e _%hd203286203335%_)))) + (let ((_%lp-hd203290203345%_ (let () (declare (not safe)) - (##car _%e203015203067%_))) - (_%lp-tl203017203074%_ + (##car _%e203289203341%_))) + (_%lp-tl203291203348%_ (let () (declare (not safe)) - (##cdr _%e203015203067%_)))) + (##cdr _%e203289203341%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%lp-hd203016203071%_)) - (let ((_g207648_ + (gx#stx-pair/null? _%lp-hd203290203345%_)) + (let ((_g207922_ (let () (declare (not safe)) (gx#syntax-split-splice - _%lp-hd203016203071%_ + _%lp-hd203290203345%_ '0)))) (begin - (let ((_g207649_ + (let ((_g207923_ (let () (declare (not safe)) - (if (##values? _g207648_) - (##vector-length _g207648_) + (if (##values? _g207922_) + (##vector-length _g207922_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g207649_ 2))) + (##fx= _g207923_ 2))) (error "Context expects 2 values" - _g207649_))) - (let ((_%target203020203077%_ + _g207923_))) + (let ((_%target203294203351%_ (let () (declare (not safe)) - (##vector-ref _g207648_ 0))) - (_%tl203022203080%_ + (##vector-ref _g207922_ 0))) + (_%tl203296203354%_ (let () (declare (not safe)) - (##vector-ref _g207648_ 1)))) + (##vector-ref _g207922_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203022203080%_)) - (letrec ((_%loop203023203083%_ - (lambda (_%hd203021203087%_ - _%clause203027203090%_) + (gx#stx-null? _%tl203296203354%_)) + (letrec ((_%loop203297203357%_ + (lambda (_%hd203295203361%_ + _%clause203301203364%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd203021203087%_)) - (let ((_%e203024203093%_ + _%hd203295203361%_)) + (let ((_%e203298203367%_ (let () (declare (not safe)) (gx#syntax-e - _%hd203021203087%_)))) - (let ((_%lp-hd203025203097%_ + _%hd203295203361%_)))) + (let ((_%lp-hd203299203371%_ (let () (declare (not safe)) - (##car _%e203024203093%_))) - (_%lp-tl203026203100%_ + (##car _%e203298203367%_))) + (_%lp-tl203300203374%_ (let () (declare (not safe)) - (##cdr _%e203024203093%_)))) - (_%loop203023203083%_ - _%lp-tl203026203100%_ - (cons _%lp-hd203025203097%_ - _%clause203027203090%_)))) - (let ((_%clause203028203103%_ - (reverse _%clause203027203090%_))) - (_%loop203014203057%_ - _%lp-tl203017203074%_ - (cons _%clause203028203103%_ - _%clause203018203064%_))))))) - (_%loop203023203083%_ - _%target203020203077%_ + (##cdr _%e203298203367%_)))) + (_%loop203297203357%_ + _%lp-tl203300203374%_ + (cons _%lp-hd203299203371%_ + _%clause203301203364%_)))) + (let ((_%clause203302203377%_ + (reverse _%clause203301203364%_))) + (_%loop203288203331%_ + _%lp-tl203291203348%_ + (cons _%clause203302203377%_ + _%clause203292203338%_))))))) + (_%loop203297203357%_ + _%target203294203351%_ '())) - (_%g203005203034%_ _%g203006203038%_))))) - (_%g203005203034%_ _%g203006203038%_)))) - (let ((_%clause203019203107%_ - (reverse _%clause203018203064%_))) - ((lambda (_%L203111%_) + (_%g203279203308%_ _%g203280203312%_))))) + (_%g203279203308%_ _%g203280203312%_)))) + (let ((_%clause203293203381%_ + (reverse _%clause203292203338%_))) + ((lambda (_%L203385%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!case-lambda)) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list)) - (let ((__tmp207650 - (lambda (_%g203126203131%_ - _%g203127203134%_) + (let ((__tmp207924 + (lambda (_%g203400203405%_ + _%g203401203408%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda)) - (let ((__tmp207651 + (let ((__tmp207925 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g203128203137%_ _%g203129203140%_) - (cons _%g203128203137%_ _%g203129203140%_)))) + (lambda (_%g203402203411%_ _%g203403203414%_) + (cons _%g203402203411%_ _%g203403203414%_)))) (declare (not safe)) - (__foldr1 __tmp207651 '() _%g203126203131%_))) - _%g203127203134%_)))) + (__foldr1 __tmp207925 '() _%g203400203405%_))) + _%g203401203408%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp207650 + __tmp207924 '() - _%L203111%_))) + _%L203385%_))) '()))) - _%clause203019203107%_)))))) + _%clause203293203381%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop203014203057%_ - _%target203011203051%_ + (_%loop203288203331%_ + _%target203285203325%_ '())) - (_%g203005203034%_ - _%g203006203038%_))))) - (_%g203005203034%_ _%g203006203038%_)))) - (_%g203005203034%_ _%g203006203038%_))))) - (_%g203004203143%_ _%$stx203001%_)))) + (_%g203279203308%_ + _%g203280203312%_))))) + (_%g203279203308%_ _%g203280203312%_)))) + (_%g203279203308%_ _%g203280203312%_))))) + (_%g203278203417%_ _%$stx203275%_)))) (define |gxc[:0:]#@kw-lambda| - (lambda (_%$stx203149%_) - (let* ((_%g203153203171%_ - (lambda (_%g203154203167%_) + (lambda (_%$stx203423%_) + (let* ((_%g203427203445%_ + (lambda (_%g203428203441%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203154203167%_)))) - (_%g203152203226%_ - (lambda (_%g203154203175%_) + _%g203428203441%_)))) + (_%g203426203500%_ + (lambda (_%g203428203449%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203154203175%_)) - (let ((_%e203157203178%_ + (gx#stx-pair? _%g203428203449%_)) + (let ((_%e203431203452%_ (let () (declare (not safe)) - (gx#syntax-e _%g203154203175%_)))) - (let ((_%hd203158203182%_ + (gx#syntax-e _%g203428203449%_)))) + (let ((_%hd203432203456%_ (let () (declare (not safe)) - (##car _%e203157203178%_))) - (_%tl203159203185%_ + (##car _%e203431203452%_))) + (_%tl203433203459%_ (let () (declare (not safe)) - (##cdr _%e203157203178%_)))) + (##cdr _%e203431203452%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203159203185%_)) - (let ((_%e203160203188%_ + (gx#stx-pair? _%tl203433203459%_)) + (let ((_%e203434203462%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203159203185%_)))) - (let ((_%hd203161203192%_ + (gx#syntax-e _%tl203433203459%_)))) + (let ((_%hd203435203466%_ (let () (declare (not safe)) - (##car _%e203160203188%_))) - (_%tl203162203195%_ + (##car _%e203434203462%_))) + (_%tl203436203469%_ (let () (declare (not safe)) - (##cdr _%e203160203188%_)))) + (##cdr _%e203434203462%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203162203195%_)) - (let ((_%e203163203198%_ + (gx#stx-pair? _%tl203436203469%_)) + (let ((_%e203437203472%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203162203195%_)))) - (let ((_%hd203164203202%_ + _%tl203436203469%_)))) + (let ((_%hd203438203476%_ (let () (declare (not safe)) - (##car _%e203163203198%_))) - (_%tl203165203205%_ + (##car _%e203437203472%_))) + (_%tl203439203479%_ (let () (declare (not safe)) - (##cdr _%e203163203198%_)))) + (##cdr _%e203437203472%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203165203205%_)) - ((lambda (_%L203208%_ - _%L203210%_) + _%tl203439203479%_)) + ((lambda (_%L203482%_ + _%L203484%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2423,85 +2423,85 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203210%_ '())) + (cons _%L203484%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203208%_ '())) + (cons _%L203482%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd203164203202%_ - _%hd203161203192%_) - (_%g203153203171%_ - _%g203154203175%_)))) - (_%g203153203171%_ _%g203154203175%_)))) - (_%g203153203171%_ _%g203154203175%_)))) - (_%g203153203171%_ _%g203154203175%_))))) - (_%g203152203226%_ _%$stx203149%_)))) + _%hd203438203476%_ + _%hd203435203466%_) + (_%g203427203445%_ + _%g203428203449%_)))) + (_%g203427203445%_ _%g203428203449%_)))) + (_%g203427203445%_ _%g203428203449%_)))) + (_%g203427203445%_ _%g203428203449%_))))) + (_%g203426203500%_ _%$stx203423%_)))) (define |gxc[:0:]#@kw-lambda-dispatch| - (lambda (_%$stx203230%_) - (let* ((_%g203234203252%_ - (lambda (_%g203235203248%_) + (lambda (_%$stx203504%_) + (let* ((_%g203508203526%_ + (lambda (_%g203509203522%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203235203248%_)))) - (_%g203233203307%_ - (lambda (_%g203235203256%_) + _%g203509203522%_)))) + (_%g203507203581%_ + (lambda (_%g203509203530%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203235203256%_)) - (let ((_%e203238203259%_ + (gx#stx-pair? _%g203509203530%_)) + (let ((_%e203512203533%_ (let () (declare (not safe)) - (gx#syntax-e _%g203235203256%_)))) - (let ((_%hd203239203263%_ + (gx#syntax-e _%g203509203530%_)))) + (let ((_%hd203513203537%_ (let () (declare (not safe)) - (##car _%e203238203259%_))) - (_%tl203240203266%_ + (##car _%e203512203533%_))) + (_%tl203514203540%_ (let () (declare (not safe)) - (##cdr _%e203238203259%_)))) + (##cdr _%e203512203533%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203240203266%_)) - (let ((_%e203241203269%_ + (gx#stx-pair? _%tl203514203540%_)) + (let ((_%e203515203543%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203240203266%_)))) - (let ((_%hd203242203273%_ + (gx#syntax-e _%tl203514203540%_)))) + (let ((_%hd203516203547%_ (let () (declare (not safe)) - (##car _%e203241203269%_))) - (_%tl203243203276%_ + (##car _%e203515203543%_))) + (_%tl203517203550%_ (let () (declare (not safe)) - (##cdr _%e203241203269%_)))) + (##cdr _%e203515203543%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203243203276%_)) - (let ((_%e203244203279%_ + (gx#stx-pair? _%tl203517203550%_)) + (let ((_%e203518203553%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203243203276%_)))) - (let ((_%hd203245203283%_ + _%tl203517203550%_)))) + (let ((_%hd203519203557%_ (let () (declare (not safe)) - (##car _%e203244203279%_))) - (_%tl203246203286%_ + (##car _%e203518203553%_))) + (_%tl203520203560%_ (let () (declare (not safe)) - (##cdr _%e203244203279%_)))) + (##cdr _%e203518203553%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203246203286%_)) - ((lambda (_%L203289%_ - _%L203291%_) + _%tl203520203560%_)) + ((lambda (_%L203563%_ + _%L203565%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2511,147 +2511,147 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203291%_ '())) + (cons _%L203565%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203289%_ '())) + (cons _%L203563%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd203245203283%_ - _%hd203242203273%_) - (_%g203234203252%_ - _%g203235203256%_)))) - (_%g203234203252%_ _%g203235203256%_)))) - (_%g203234203252%_ _%g203235203256%_)))) - (_%g203234203252%_ _%g203235203256%_))))) - (_%g203233203307%_ _%$stx203230%_)))) + _%hd203519203557%_ + _%hd203516203547%_) + (_%g203508203526%_ + _%g203509203530%_)))) + (_%g203508203526%_ _%g203509203530%_)))) + (_%g203508203526%_ _%g203509203530%_)))) + (_%g203508203526%_ _%g203509203530%_))))) + (_%g203507203581%_ _%$stx203504%_)))) (define |gxc[:0:]#declare-inline-rules!| - (lambda (_%$stx203311%_) - (let* ((_%g203315203344%_ - (lambda (_%g203316203340%_) + (lambda (_%$stx203585%_) + (let* ((_%g203589203618%_ + (lambda (_%g203590203614%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203316203340%_)))) - (_%g203314203444%_ - (lambda (_%g203316203348%_) + _%g203590203614%_)))) + (_%g203588203718%_ + (lambda (_%g203590203622%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203316203348%_)) - (let ((_%e203319203351%_ + (gx#stx-pair? _%g203590203622%_)) + (let ((_%e203593203625%_ (let () (declare (not safe)) - (gx#syntax-e _%g203316203348%_)))) - (let ((_%hd203320203355%_ + (gx#syntax-e _%g203590203622%_)))) + (let ((_%hd203594203629%_ (let () (declare (not safe)) - (##car _%e203319203351%_))) - (_%tl203321203358%_ + (##car _%e203593203625%_))) + (_%tl203595203632%_ (let () (declare (not safe)) - (##cdr _%e203319203351%_)))) + (##cdr _%e203593203625%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl203321203358%_)) - (let ((_g207652_ + (gx#stx-pair/null? _%tl203595203632%_)) + (let ((_g207926_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl203321203358%_ + _%tl203595203632%_ '0)))) (begin - (let ((_g207653_ + (let ((_g207927_ (let () (declare (not safe)) - (if (##values? _g207652_) - (##vector-length _g207652_) + (if (##values? _g207926_) + (##vector-length _g207926_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g207653_ 2))) + (##fx= _g207927_ 2))) (error "Context expects 2 values" - _g207653_))) - (let ((_%target203322203361%_ + _g207927_))) + (let ((_%target203596203635%_ (let () (declare (not safe)) - (##vector-ref _g207652_ 0))) - (_%tl203324203364%_ + (##vector-ref _g207926_ 0))) + (_%tl203598203638%_ (let () (declare (not safe)) - (##vector-ref _g207652_ 1)))) + (##vector-ref _g207926_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203324203364%_)) - (letrec ((_%loop203325203367%_ - (lambda (_%hd203323203371%_ - _%rule203329203374%_ - _%proc203330203376%_) + (gx#stx-null? _%tl203598203638%_)) + (letrec ((_%loop203599203641%_ + (lambda (_%hd203597203645%_ + _%rule203603203648%_ + _%proc203604203650%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd203323203371%_)) - (let ((_%e203326203379%_ + _%hd203597203645%_)) + (let ((_%e203600203653%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd203323203371%_)))) - (let ((_%lp-hd203327203383%_ + (gx#syntax-e _%hd203597203645%_)))) + (let ((_%lp-hd203601203657%_ (let () (declare (not safe)) - (##car _%e203326203379%_))) - (_%lp-tl203328203386%_ + (##car _%e203600203653%_))) + (_%lp-tl203602203660%_ (let () (declare (not safe)) - (##cdr _%e203326203379%_)))) + (##cdr _%e203600203653%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd203327203383%_)) - (let ((_%e203333203389%_ + (gx#stx-pair? _%lp-hd203601203657%_)) + (let ((_%e203607203663%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd203327203383%_)))) - (let ((_%hd203334203393%_ + (gx#syntax-e _%lp-hd203601203657%_)))) + (let ((_%hd203608203667%_ (let () (declare (not safe)) - (##car _%e203333203389%_))) - (_%tl203335203396%_ + (##car _%e203607203663%_))) + (_%tl203609203670%_ (let () (declare (not safe)) - (##cdr _%e203333203389%_)))) + (##cdr _%e203607203663%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203335203396%_)) - (let ((_%e203336203399%_ + (gx#stx-pair? _%tl203609203670%_)) + (let ((_%e203610203673%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203335203396%_)))) - (let ((_%hd203337203403%_ + (gx#syntax-e _%tl203609203670%_)))) + (let ((_%hd203611203677%_ (let () (declare (not safe)) - (##car _%e203336203399%_))) - (_%tl203338203406%_ + (##car _%e203610203673%_))) + (_%tl203612203680%_ (let () (declare (not safe)) - (##cdr _%e203336203399%_)))) + (##cdr _%e203610203673%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203338203406%_)) - (_%loop203325203367%_ - _%lp-tl203328203386%_ - (cons _%hd203337203403%_ - _%rule203329203374%_) - (cons _%hd203334203393%_ - _%proc203330203376%_)) - (_%g203315203344%_ - _%g203316203348%_)))) - (_%g203315203344%_ _%g203316203348%_)))) - (_%g203315203344%_ _%g203316203348%_)))) - (let ((_%rule203331203409%_ (reverse _%rule203329203374%_)) - (_%proc203332203412%_ (reverse _%proc203330203376%_))) - ((lambda (_%L203415%_ _%L203417%_) + (gx#stx-null? _%tl203612203680%_)) + (_%loop203599203641%_ + _%lp-tl203602203660%_ + (cons _%hd203611203677%_ + _%rule203603203648%_) + (cons _%hd203608203667%_ + _%proc203604203650%_)) + (_%g203589203618%_ + _%g203590203622%_)))) + (_%g203589203618%_ _%g203590203622%_)))) + (_%g203589203618%_ _%g203590203622%_)))) + (let ((_%rule203605203683%_ (reverse _%rule203603203648%_)) + (_%proc203606203686%_ (reverse _%proc203604203650%_))) + ((lambda (_%L203689%_ _%L203691%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -2659,103 +2659,103 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L203415%_ - _%L203417%_)) - (let ((__tmp207654 - (lambda (_%g203432203436%_ - _%g203433203439%_ - _%g203434203441%_) + _%L203689%_ + _%L203691%_)) + (let ((__tmp207928 + (lambda (_%g203706203710%_ + _%g203707203713%_ + _%g203708203715%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-inline-rule!)) - (cons _%g203433203439%_ - (cons _%g203432203436%_ + (cons _%g203707203713%_ + (cons _%g203706203710%_ '()))) - _%g203434203441%_)))) + _%g203708203715%_)))) (declare (not safe)) (__foldr2 - __tmp207654 + __tmp207928 '() - _%L203415%_ - _%L203417%_))))) - _%rule203331203409%_ - _%proc203332203412%_)))))) + _%L203689%_ + _%L203691%_))))) + _%rule203605203683%_ + _%proc203606203686%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop203325203367%_ - _%target203322203361%_ + (_%loop203599203641%_ + _%target203596203635%_ '() '())) - (_%g203315203344%_ - _%g203316203348%_))))) - (_%g203315203344%_ _%g203316203348%_)))) - (_%g203315203344%_ _%g203316203348%_))))) - (_%g203314203444%_ _%$stx203311%_)))) + (_%g203589203618%_ + _%g203590203622%_))))) + (_%g203589203618%_ _%g203590203622%_)))) + (_%g203589203618%_ _%g203590203622%_))))) + (_%g203588203718%_ _%$stx203585%_)))) (define |gxc[:0:]#declare-inline-rule!| - (lambda (_%$stx203449%_) - (let* ((_%g203453203471%_ - (lambda (_%g203454203467%_) + (lambda (_%$stx203723%_) + (let* ((_%g203727203745%_ + (lambda (_%g203728203741%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203454203467%_)))) - (_%g203452203526%_ - (lambda (_%g203454203475%_) + _%g203728203741%_)))) + (_%g203726203800%_ + (lambda (_%g203728203749%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203454203475%_)) - (let ((_%e203457203478%_ + (gx#stx-pair? _%g203728203749%_)) + (let ((_%e203731203752%_ (let () (declare (not safe)) - (gx#syntax-e _%g203454203475%_)))) - (let ((_%hd203458203482%_ + (gx#syntax-e _%g203728203749%_)))) + (let ((_%hd203732203756%_ (let () (declare (not safe)) - (##car _%e203457203478%_))) - (_%tl203459203485%_ + (##car _%e203731203752%_))) + (_%tl203733203759%_ (let () (declare (not safe)) - (##cdr _%e203457203478%_)))) + (##cdr _%e203731203752%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203459203485%_)) - (let ((_%e203460203488%_ + (gx#stx-pair? _%tl203733203759%_)) + (let ((_%e203734203762%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203459203485%_)))) - (let ((_%hd203461203492%_ + (gx#syntax-e _%tl203733203759%_)))) + (let ((_%hd203735203766%_ (let () (declare (not safe)) - (##car _%e203460203488%_))) - (_%tl203462203495%_ + (##car _%e203734203762%_))) + (_%tl203736203769%_ (let () (declare (not safe)) - (##cdr _%e203460203488%_)))) + (##cdr _%e203734203762%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203462203495%_)) - (let ((_%e203463203498%_ + (gx#stx-pair? _%tl203736203769%_)) + (let ((_%e203737203772%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203462203495%_)))) - (let ((_%hd203464203502%_ + _%tl203736203769%_)))) + (let ((_%hd203738203776%_ (let () (declare (not safe)) - (##car _%e203463203498%_))) - (_%tl203465203505%_ + (##car _%e203737203772%_))) + (_%tl203739203779%_ (let () (declare (not safe)) - (##cdr _%e203463203498%_)))) + (##cdr _%e203737203772%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203465203505%_)) - ((lambda (_%L203508%_ - _%L203510%_) + _%tl203739203779%_)) + ((lambda (_%L203782%_ + _%L203784%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2775,7 +2775,7 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203510%_ '())) + (cons _%L203784%_ '())) '())) '())) (cons (cons (let () @@ -2805,7 +2805,7 @@ (declare (not safe)) (gx#datum->syntax__0 '#f 'type)) '())) - (cons _%L203508%_ '()))) + (cons _%L203782%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () (declare (not safe)) @@ -2817,39 +2817,39 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203510%_ '())) + (cons _%L203784%_ '())) (cons '"; ignoring inline rule" '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd203464203502%_ - _%hd203461203492%_) - (_%g203453203471%_ - _%g203454203475%_)))) - (_%g203453203471%_ _%g203454203475%_)))) - (_%g203453203471%_ _%g203454203475%_)))) - (_%g203453203471%_ _%g203454203475%_))))) - (_%g203452203526%_ _%$stx203449%_)))) + _%hd203738203776%_ + _%hd203735203766%_) + (_%g203727203745%_ + _%g203728203749%_)))) + (_%g203727203745%_ _%g203728203749%_)))) + (_%g203727203745%_ _%g203728203749%_)))) + (_%g203727203745%_ _%g203728203749%_))))) + (_%g203726203800%_ _%$stx203723%_)))) (define |gxc[:0:]#declare-primitive-predicates| - (lambda (_%$stx203530%_) - (let* ((_%__stx207134207135%_ _%$stx203530%_) - (_%g203535203560%_ + (lambda (_%$stx203804%_) + (let* ((_%__stx207408207409%_ _%$stx203804%_) + (_%g203809203834%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx207134207135%_))))) - (let ((_%__kont207137207138%_ + _%__stx207408207409%_))))) + (let ((_%__kont207411207412%_ (lambda () (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) '()))) - (_%__kont207139207140%_ - (lambda (_%L203607%_ _%L203609%_ _%L203610%_) + (_%__kont207413207414%_ + (lambda (_%L203881%_ _%L203883%_ _%L203884%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -2858,121 +2858,121 @@ (gx#datum->syntax__0 '#f 'declare-primitive-predicate)) - (cons _%L203610%_ (cons _%L203609%_ '()))) + (cons _%L203884%_ (cons _%L203883%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-predicates)) - _%L203607%_) + _%L203881%_) '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx207134207135%_)) - (let ((_%e203537203636%_ + (gx#stx-pair? _%__stx207408207409%_)) + (let ((_%e203811203910%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx207134207135%_)))) - (let ((_%tl203539203643%_ + (gx#syntax-e _%__stx207408207409%_)))) + (let ((_%tl203813203917%_ (let () (declare (not safe)) - (##cdr _%e203537203636%_))) - (_%hd203538203640%_ + (##cdr _%e203811203910%_))) + (_%hd203812203914%_ (let () (declare (not safe)) - (##car _%e203537203636%_)))) + (##car _%e203811203910%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203539203643%_)) - (_%__kont207137207138%_) + (gx#stx-null? _%tl203813203917%_)) + (_%__kont207411207412%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203539203643%_)) - (let ((_%e203546203577%_ + (gx#stx-pair? _%tl203813203917%_)) + (let ((_%e203820203851%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203539203643%_)))) - (let ((_%tl203548203584%_ + (gx#syntax-e _%tl203813203917%_)))) + (let ((_%tl203822203858%_ (let () (declare (not safe)) - (##cdr _%e203546203577%_))) - (_%hd203547203581%_ + (##cdr _%e203820203851%_))) + (_%hd203821203855%_ (let () (declare (not safe)) - (##car _%e203546203577%_)))) + (##car _%e203820203851%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd203547203581%_)) - (let ((_%e203549203587%_ + (gx#stx-pair? _%hd203821203855%_)) + (let ((_%e203823203861%_ (let () (declare (not safe)) (gx#syntax-e - _%hd203547203581%_)))) - (let ((_%tl203551203594%_ + _%hd203821203855%_)))) + (let ((_%tl203825203868%_ (let () (declare (not safe)) - (##cdr _%e203549203587%_))) - (_%hd203550203591%_ + (##cdr _%e203823203861%_))) + (_%hd203824203865%_ (let () (declare (not safe)) - (##car _%e203549203587%_)))) + (##car _%e203823203861%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203551203594%_)) - (let ((_%e203552203597%_ + _%tl203825203868%_)) + (let ((_%e203826203871%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203551203594%_)))) - (let ((_%tl203554203604%_ + _%tl203825203868%_)))) + (let ((_%tl203828203878%_ (let () (declare (not safe)) - (##cdr _%e203552203597%_))) - (_%hd203553203601%_ + (##cdr _%e203826203871%_))) + (_%hd203827203875%_ (let () (declare (not safe)) - (##car _%e203552203597%_)))) + (##car _%e203826203871%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203554203604%_)) - (_%__kont207139207140%_ - _%tl203548203584%_ - _%hd203553203601%_ - _%hd203550203591%_) + _%tl203828203878%_)) + (_%__kont207413207414%_ + _%tl203822203858%_ + _%hd203827203875%_ + _%hd203824203865%_) (let () (declare (not safe)) - (_%g203535203560%_))))) + (_%g203809203834%_))))) (let () (declare (not safe)) - (_%g203535203560%_))))) + (_%g203809203834%_))))) (let () (declare (not safe)) - (_%g203535203560%_))))) + (_%g203809203834%_))))) (let () (declare (not safe)) - (_%g203535203560%_)))))) - (let () (declare (not safe)) (_%g203535203560%_))))))) + (_%g203809203834%_)))))) + (let () (declare (not safe)) (_%g203809203834%_))))))) (define |gxc[:0:]#declare-primitive-procedures| - (lambda (_%$stx203654%_) - (let* ((_%__stx207178207179%_ _%$stx203654%_) - (_%g203659203690%_ + (lambda (_%$stx203928%_) + (let* ((_%__stx207452207453%_ _%$stx203928%_) + (_%g203933203964%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx207178207179%_))))) - (let ((_%__kont207181207182%_ + _%__stx207452207453%_))))) + (let ((_%__kont207455207456%_ (lambda () (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) '()))) - (_%__kont207183207184%_ - (lambda (_%L203757%_ _%L203759%_ _%L203760%_) + (_%__kont207457207458%_ + (lambda (_%L204031%_ _%L204033%_ _%L204034%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -2981,887 +2981,887 @@ (gx#datum->syntax__0 '#f 'declare-primitive-procedure)) - (cons _%L203760%_ - (let ((__tmp207655 - (lambda (_%g203780203783%_ - _%g203781203786%_) - (cons _%g203780203783%_ - _%g203781203786%_)))) + (cons _%L204034%_ + (let ((__tmp207929 + (lambda (_%g204054204057%_ + _%g204055204060%_) + (cons _%g204054204057%_ + _%g204055204060%_)))) (declare (not safe)) (__foldr1 - __tmp207655 + __tmp207929 '() - _%L203759%_)))) + _%L204033%_)))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-procedures)) - _%L203757%_) + _%L204031%_) '())))))) - (let ((_%__match207221207222%_ - (lambda (_%e203667203697%_ - _%hd203668203701%_ - _%tl203669203704%_ - _%e203670203707%_ - _%hd203671203711%_ - _%tl203672203714%_ - _%e203673203717%_ - _%hd203674203721%_ - _%tl203675203724%_ - _%__splice207185207186%_ - _%target203676203727%_ - _%tl203678203730%_) - (letrec ((_%loop203679203733%_ - (lambda (_%hd203677203737%_ _%sig203683203740%_) + (let ((_%__match207495207496%_ + (lambda (_%e203941203971%_ + _%hd203942203975%_ + _%tl203943203978%_ + _%e203944203981%_ + _%hd203945203985%_ + _%tl203946203988%_ + _%e203947203991%_ + _%hd203948203995%_ + _%tl203949203998%_ + _%__splice207459207460%_ + _%target203950204001%_ + _%tl203952204004%_) + (letrec ((_%loop203953204007%_ + (lambda (_%hd203951204011%_ _%sig203957204014%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd203677203737%_)) - (let ((_%e203680203743%_ + (gx#stx-pair? _%hd203951204011%_)) + (let ((_%e203954204017%_ (let () (declare (not safe)) (gx#syntax-e - _%hd203677203737%_)))) - (let ((_%lp-tl203682203750%_ + _%hd203951204011%_)))) + (let ((_%lp-tl203956204024%_ (let () (declare (not safe)) - (##cdr _%e203680203743%_))) - (_%lp-hd203681203747%_ + (##cdr _%e203954204017%_))) + (_%lp-hd203955204021%_ (let () (declare (not safe)) - (##car _%e203680203743%_)))) - (_%loop203679203733%_ - _%lp-tl203682203750%_ - (cons _%lp-hd203681203747%_ - _%sig203683203740%_)))) - (let ((_%sig203684203753%_ - (reverse _%sig203683203740%_))) - (_%__kont207183207184%_ - _%tl203672203714%_ - _%sig203684203753%_ - _%hd203674203721%_)))))) - (_%loop203679203733%_ _%target203676203727%_ '()))))) + (##car _%e203954204017%_)))) + (_%loop203953204007%_ + _%lp-tl203956204024%_ + (cons _%lp-hd203955204021%_ + _%sig203957204014%_)))) + (let ((_%sig203958204027%_ + (reverse _%sig203957204014%_))) + (_%__kont207457207458%_ + _%tl203946203988%_ + _%sig203958204027%_ + _%hd203948203995%_)))))) + (_%loop203953204007%_ _%target203950204001%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx207178207179%_)) - (let ((_%e203661203796%_ + (gx#stx-pair? _%__stx207452207453%_)) + (let ((_%e203935204070%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx207178207179%_)))) - (let ((_%tl203663203803%_ + (gx#syntax-e _%__stx207452207453%_)))) + (let ((_%tl203937204077%_ (let () (declare (not safe)) - (##cdr _%e203661203796%_))) - (_%hd203662203800%_ + (##cdr _%e203935204070%_))) + (_%hd203936204074%_ (let () (declare (not safe)) - (##car _%e203661203796%_)))) + (##car _%e203935204070%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203663203803%_)) - (_%__kont207181207182%_) + (gx#stx-null? _%tl203937204077%_)) + (_%__kont207455207456%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203663203803%_)) - (let ((_%e203670203707%_ + (gx#stx-pair? _%tl203937204077%_)) + (let ((_%e203944203981%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203663203803%_)))) - (let ((_%tl203672203714%_ + (gx#syntax-e _%tl203937204077%_)))) + (let ((_%tl203946203988%_ (let () (declare (not safe)) - (##cdr _%e203670203707%_))) - (_%hd203671203711%_ + (##cdr _%e203944203981%_))) + (_%hd203945203985%_ (let () (declare (not safe)) - (##car _%e203670203707%_)))) + (##car _%e203944203981%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd203671203711%_)) - (let ((_%e203673203717%_ + (gx#stx-pair? _%hd203945203985%_)) + (let ((_%e203947203991%_ (let () (declare (not safe)) (gx#syntax-e - _%hd203671203711%_)))) - (let ((_%tl203675203724%_ + _%hd203945203985%_)))) + (let ((_%tl203949203998%_ (let () (declare (not safe)) - (##cdr _%e203673203717%_))) - (_%hd203674203721%_ + (##cdr _%e203947203991%_))) + (_%hd203948203995%_ (let () (declare (not safe)) - (##car _%e203673203717%_)))) + (##car _%e203947203991%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl203675203724%_)) - (let ((_%__splice207185207186%_ + _%tl203949203998%_)) + (let ((_%__splice207459207460%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl203675203724%_ + _%tl203949203998%_ '0)))) - (let ((_%tl203678203730%_ + (let ((_%tl203952204004%_ (let () (declare (not safe)) (##vector-ref - _%__splice207185207186%_ + _%__splice207459207460%_ '1))) - (_%target203676203727%_ + (_%target203950204001%_ (let () (declare (not safe)) (##vector-ref - _%__splice207185207186%_ + _%__splice207459207460%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203678203730%_)) - (_%__match207221207222%_ - _%e203661203796%_ - _%hd203662203800%_ - _%tl203663203803%_ - _%e203670203707%_ - _%hd203671203711%_ - _%tl203672203714%_ - _%e203673203717%_ - _%hd203674203721%_ - _%tl203675203724%_ - _%__splice207185207186%_ - _%target203676203727%_ - _%tl203678203730%_) + _%tl203952204004%_)) + (_%__match207495207496%_ + _%e203935204070%_ + _%hd203936204074%_ + _%tl203937204077%_ + _%e203944203981%_ + _%hd203945203985%_ + _%tl203946203988%_ + _%e203947203991%_ + _%hd203948203995%_ + _%tl203949203998%_ + _%__splice207459207460%_ + _%target203950204001%_ + _%tl203952204004%_) (let () (declare (not safe)) - (_%g203659203690%_))))) + (_%g203933203964%_))))) (let () (declare (not safe)) - (_%g203659203690%_))))) + (_%g203933203964%_))))) (let () (declare (not safe)) - (_%g203659203690%_))))) + (_%g203933203964%_))))) (let () (declare (not safe)) - (_%g203659203690%_)))))) - (let () (declare (not safe)) (_%g203659203690%_)))))))) + (_%g203933203964%_)))))) + (let () (declare (not safe)) (_%g203933203964%_)))))))) (define |gxc[:0:]#declare-primitive-procedure| - (lambda (_%$stx203815%_) - (let* ((_%__stx207224207225%_ _%$stx203815%_) - (_%g203820203867%_ + (lambda (_%$stx204089%_) + (let* ((_%__stx207498207499%_ _%$stx204089%_) + (_%g204094204141%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx207224207225%_))))) - (let ((_%__kont207227207228%_ - (lambda (_%L204029%_ _%L204031%_) + _%__stx207498207499%_))))) + (let ((_%__kont207501207502%_ + (lambda (_%L204303%_ _%L204305%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-case-lambda)) - (cons _%L204031%_ - (let ((__tmp207656 - (lambda (_%g204051204054%_ - _%g204052204057%_) - (cons _%g204051204054%_ - _%g204052204057%_)))) + (cons _%L204305%_ + (let ((__tmp207930 + (lambda (_%g204325204328%_ + _%g204326204331%_) + (cons _%g204325204328%_ + _%g204326204331%_)))) (declare (not safe)) - (__foldr1 __tmp207656 '() _%L204029%_)))))) - (_%__kont207231207232%_ - (lambda (_%L203924%_ _%L203926%_) + (__foldr1 __tmp207930 '() _%L204303%_)))))) + (_%__kont207505207506%_ + (lambda (_%L204198%_ _%L204200%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-lambda)) - (cons _%L203926%_ - (let ((__tmp207657 - (lambda (_%g203943203946%_ - _%g203944203949%_) - (cons _%g203943203946%_ - _%g203944203949%_)))) + (cons _%L204200%_ + (let ((__tmp207931 + (lambda (_%g204217204220%_ + _%g204218204223%_) + (cons _%g204217204220%_ + _%g204218204223%_)))) (declare (not safe)) - (__foldr1 __tmp207657 '() _%L203924%_))))))) - (let* ((_%__match207291207292%_ - (lambda (_%e203847203874%_ - _%hd203848203878%_ - _%tl203849203881%_ - _%e203850203884%_ - _%hd203851203888%_ - _%tl203852203891%_ - _%__splice207233207234%_ - _%target203853203894%_ - _%tl203855203897%_) - (letrec ((_%loop203856203900%_ - (lambda (_%hd203854203904%_ - _%sig203860203907%_) + (__foldr1 __tmp207931 '() _%L204198%_))))))) + (let* ((_%__match207565207566%_ + (lambda (_%e204121204148%_ + _%hd204122204152%_ + _%tl204123204155%_ + _%e204124204158%_ + _%hd204125204162%_ + _%tl204126204165%_ + _%__splice207507207508%_ + _%target204127204168%_ + _%tl204129204171%_) + (letrec ((_%loop204130204174%_ + (lambda (_%hd204128204178%_ + _%sig204134204181%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd203854203904%_)) - (let ((_%e203857203910%_ + (gx#stx-pair? _%hd204128204178%_)) + (let ((_%e204131204184%_ (let () (declare (not safe)) (gx#syntax-e - _%hd203854203904%_)))) - (let ((_%lp-tl203859203917%_ + _%hd204128204178%_)))) + (let ((_%lp-tl204133204191%_ (let () (declare (not safe)) - (##cdr _%e203857203910%_))) - (_%lp-hd203858203914%_ + (##cdr _%e204131204184%_))) + (_%lp-hd204132204188%_ (let () (declare (not safe)) - (##car _%e203857203910%_)))) - (_%loop203856203900%_ - _%lp-tl203859203917%_ - (cons _%lp-hd203858203914%_ - _%sig203860203907%_)))) - (let ((_%sig203861203920%_ - (reverse _%sig203860203907%_))) - (_%__kont207231207232%_ - _%sig203861203920%_ - _%hd203851203888%_)))))) - (_%loop203856203900%_ _%target203853203894%_ '())))) - (_%__match207283207284%_ - (lambda (_%e203847203874%_ - _%hd203848203878%_ - _%tl203849203881%_ - _%e203850203884%_ - _%hd203851203888%_ - _%tl203852203891%_) + (##car _%e204131204184%_)))) + (_%loop204130204174%_ + _%lp-tl204133204191%_ + (cons _%lp-hd204132204188%_ + _%sig204134204181%_)))) + (let ((_%sig204135204194%_ + (reverse _%sig204134204181%_))) + (_%__kont207505207506%_ + _%sig204135204194%_ + _%hd204125204162%_)))))) + (_%loop204130204174%_ _%target204127204168%_ '())))) + (_%__match207557207558%_ + (lambda (_%e204121204148%_ + _%hd204122204152%_ + _%tl204123204155%_ + _%e204124204158%_ + _%hd204125204162%_ + _%tl204126204165%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl203852203891%_)) - (let ((_%__splice207233207234%_ + (gx#stx-pair/null? _%tl204126204165%_)) + (let ((_%__splice207507207508%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl203852203891%_ + _%tl204126204165%_ '0)))) - (let ((_%tl203855203897%_ + (let ((_%tl204129204171%_ (let () (declare (not safe)) (##vector-ref - _%__splice207233207234%_ + _%__splice207507207508%_ '1))) - (_%target203853203894%_ + (_%target204127204168%_ (let () (declare (not safe)) (##vector-ref - _%__splice207233207234%_ + _%__splice207507207508%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203855203897%_)) - (_%__match207291207292%_ - _%e203847203874%_ - _%hd203848203878%_ - _%tl203849203881%_ - _%e203850203884%_ - _%hd203851203888%_ - _%tl203852203891%_ - _%__splice207233207234%_ - _%target203853203894%_ - _%tl203855203897%_) + (gx#stx-null? _%tl204129204171%_)) + (_%__match207565207566%_ + _%e204121204148%_ + _%hd204122204152%_ + _%tl204123204155%_ + _%e204124204158%_ + _%hd204125204162%_ + _%tl204126204165%_ + _%__splice207507207508%_ + _%target204127204168%_ + _%tl204129204171%_) (let () (declare (not safe)) - (_%g203820203867%_))))) - (let () (declare (not safe)) (_%g203820203867%_))))) - (_%__match207271207272%_ - (lambda (_%e203824203959%_ - _%hd203825203963%_ - _%tl203826203966%_ - _%e203827203969%_ - _%hd203828203973%_ - _%tl203829203976%_ - _%e203830203979%_ - _%hd203831203983%_ - _%tl203832203986%_ - _%e203833203989%_ - _%hd203834203993%_ - _%tl203835203996%_ - _%__splice207229207230%_ - _%target203836203999%_ - _%tl203838204002%_) - (letrec ((_%loop203839204005%_ - (lambda (_%hd203837204009%_ - _%sig203843204012%_) + (_%g204094204141%_))))) + (let () (declare (not safe)) (_%g204094204141%_))))) + (_%__match207545207546%_ + (lambda (_%e204098204233%_ + _%hd204099204237%_ + _%tl204100204240%_ + _%e204101204243%_ + _%hd204102204247%_ + _%tl204103204250%_ + _%e204104204253%_ + _%hd204105204257%_ + _%tl204106204260%_ + _%e204107204263%_ + _%hd204108204267%_ + _%tl204109204270%_ + _%__splice207503207504%_ + _%target204110204273%_ + _%tl204112204276%_) + (letrec ((_%loop204113204279%_ + (lambda (_%hd204111204283%_ + _%sig204117204286%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd203837204009%_)) - (let ((_%e203840204015%_ + (gx#stx-pair? _%hd204111204283%_)) + (let ((_%e204114204289%_ (let () (declare (not safe)) (gx#syntax-e - _%hd203837204009%_)))) - (let ((_%lp-tl203842204022%_ + _%hd204111204283%_)))) + (let ((_%lp-tl204116204296%_ (let () (declare (not safe)) - (##cdr _%e203840204015%_))) - (_%lp-hd203841204019%_ + (##cdr _%e204114204289%_))) + (_%lp-hd204115204293%_ (let () (declare (not safe)) - (##car _%e203840204015%_)))) - (_%loop203839204005%_ - _%lp-tl203842204022%_ - (cons _%lp-hd203841204019%_ - _%sig203843204012%_)))) - (let ((_%sig203844204025%_ - (reverse _%sig203843204012%_))) + (##car _%e204114204289%_)))) + (_%loop204113204279%_ + _%lp-tl204116204296%_ + (cons _%lp-hd204115204293%_ + _%sig204117204286%_)))) + (let ((_%sig204118204299%_ + (reverse _%sig204117204286%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203832203986%_)) - (_%__kont207227207228%_ - _%sig203844204025%_ - _%hd203828203973%_) - (_%__match207283207284%_ - _%e203824203959%_ - _%hd203825203963%_ - _%tl203826203966%_ - _%e203827203969%_ - _%hd203828203973%_ - _%tl203829203976%_))))))) - (_%loop203839204005%_ _%target203836203999%_ '()))))) + _%tl204106204260%_)) + (_%__kont207501207502%_ + _%sig204118204299%_ + _%hd204102204247%_) + (_%__match207557207558%_ + _%e204098204233%_ + _%hd204099204237%_ + _%tl204100204240%_ + _%e204101204243%_ + _%hd204102204247%_ + _%tl204103204250%_))))))) + (_%loop204113204279%_ _%target204110204273%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx207224207225%_)) - (let ((_%e203824203959%_ + (gx#stx-pair? _%__stx207498207499%_)) + (let ((_%e204098204233%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx207224207225%_)))) - (let ((_%tl203826203966%_ + (gx#syntax-e _%__stx207498207499%_)))) + (let ((_%tl204100204240%_ (let () (declare (not safe)) - (##cdr _%e203824203959%_))) - (_%hd203825203963%_ + (##cdr _%e204098204233%_))) + (_%hd204099204237%_ (let () (declare (not safe)) - (##car _%e203824203959%_)))) + (##car _%e204098204233%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203826203966%_)) - (let ((_%e203827203969%_ + (gx#stx-pair? _%tl204100204240%_)) + (let ((_%e204101204243%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203826203966%_)))) - (let ((_%tl203829203976%_ + (gx#syntax-e _%tl204100204240%_)))) + (let ((_%tl204103204250%_ (let () (declare (not safe)) - (##cdr _%e203827203969%_))) - (_%hd203828203973%_ + (##cdr _%e204101204243%_))) + (_%hd204102204247%_ (let () (declare (not safe)) - (##car _%e203827203969%_)))) + (##car _%e204101204243%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203829203976%_)) - (let ((_%e203830203979%_ + (gx#stx-pair? _%tl204103204250%_)) + (let ((_%e204104204253%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203829203976%_)))) - (let ((_%tl203832203986%_ + (gx#syntax-e _%tl204103204250%_)))) + (let ((_%tl204106204260%_ (let () (declare (not safe)) - (##cdr _%e203830203979%_))) - (_%hd203831203983%_ + (##cdr _%e204104204253%_))) + (_%hd204105204257%_ (let () (declare (not safe)) - (##car _%e203830203979%_)))) + (##car _%e204104204253%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd203831203983%_)) - (let ((_%e203833203989%_ + (gx#stx-pair? _%hd204105204257%_)) + (let ((_%e204107204263%_ (let () (declare (not safe)) (gx#syntax-e - _%hd203831203983%_)))) - (let ((_%tl203835203996%_ + _%hd204105204257%_)))) + (let ((_%tl204109204270%_ (let () (declare (not safe)) - (##cdr _%e203833203989%_))) - (_%hd203834203993%_ + (##cdr _%e204107204263%_))) + (_%hd204108204267%_ (let () (declare (not safe)) - (##car _%e203833203989%_)))) + (##car _%e204107204263%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd203834203993%_)) - (if (let ((__tmp207658 - |gxc[1]#_g207659_|)) + _%hd204108204267%_)) + (if (let ((__tmp207932 + |gxc[1]#_g207933_|)) (declare (not safe)) (gx#free-identifier=? - __tmp207658 - _%hd203834203993%_)) + __tmp207932 + _%hd204108204267%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl203835203996%_)) - (let ((_%__splice207229207230%_ + _%tl204109204270%_)) + (let ((_%__splice207503207504%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%tl203835203996%_ '0)))) - (let ((_%tl203838204002%_ + (gx#syntax-split-splice _%tl204109204270%_ '0)))) + (let ((_%tl204112204276%_ (let () (declare (not safe)) - (##vector-ref _%__splice207229207230%_ '1))) - (_%target203836203999%_ + (##vector-ref _%__splice207503207504%_ '1))) + (_%target204110204273%_ (let () (declare (not safe)) - (##vector-ref _%__splice207229207230%_ '0)))) + (##vector-ref _%__splice207503207504%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203838204002%_)) - (_%__match207271207272%_ - _%e203824203959%_ - _%hd203825203963%_ - _%tl203826203966%_ - _%e203827203969%_ - _%hd203828203973%_ - _%tl203829203976%_ - _%e203830203979%_ - _%hd203831203983%_ - _%tl203832203986%_ - _%e203833203989%_ - _%hd203834203993%_ - _%tl203835203996%_ - _%__splice207229207230%_ - _%target203836203999%_ - _%tl203838204002%_) + (gx#stx-null? _%tl204112204276%_)) + (_%__match207545207546%_ + _%e204098204233%_ + _%hd204099204237%_ + _%tl204100204240%_ + _%e204101204243%_ + _%hd204102204247%_ + _%tl204103204250%_ + _%e204104204253%_ + _%hd204105204257%_ + _%tl204106204260%_ + _%e204107204263%_ + _%hd204108204267%_ + _%tl204109204270%_ + _%__splice207503207504%_ + _%target204110204273%_ + _%tl204112204276%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl203829203976%_)) - (let ((_%__splice207233207234%_ + (gx#stx-pair/null? _%tl204103204250%_)) + (let ((_%__splice207507207508%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl203829203976%_ + _%tl204103204250%_ '0)))) - (let ((_%tl203855203897%_ + (let ((_%tl204129204171%_ (let () (declare (not safe)) (##vector-ref - _%__splice207233207234%_ + _%__splice207507207508%_ '1))) - (_%target203853203894%_ + (_%target204127204168%_ (let () (declare (not safe)) (##vector-ref - _%__splice207233207234%_ + _%__splice207507207508%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203855203897%_)) - (_%__match207291207292%_ - _%e203824203959%_ - _%hd203825203963%_ - _%tl203826203966%_ - _%e203827203969%_ - _%hd203828203973%_ - _%tl203829203976%_ - _%__splice207233207234%_ - _%target203853203894%_ - _%tl203855203897%_) + (gx#stx-null? _%tl204129204171%_)) + (_%__match207565207566%_ + _%e204098204233%_ + _%hd204099204237%_ + _%tl204100204240%_ + _%e204101204243%_ + _%hd204102204247%_ + _%tl204103204250%_ + _%__splice207507207508%_ + _%target204127204168%_ + _%tl204129204171%_) (let () (declare (not safe)) - (_%g203820203867%_))))) + (_%g204094204141%_))))) (let () (declare (not safe)) - (_%g203820203867%_)))))) + (_%g204094204141%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl203829203976%_)) - (let ((_%__splice207233207234%_ + (gx#stx-pair/null? _%tl204103204250%_)) + (let ((_%__splice207507207508%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl203829203976%_ + _%tl204103204250%_ '0)))) - (let ((_%tl203855203897%_ + (let ((_%tl204129204171%_ (let () (declare (not safe)) - (##vector-ref _%__splice207233207234%_ '1))) - (_%target203853203894%_ + (##vector-ref _%__splice207507207508%_ '1))) + (_%target204127204168%_ (let () (declare (not safe)) - (##vector-ref _%__splice207233207234%_ '0)))) + (##vector-ref _%__splice207507207508%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203855203897%_)) - (_%__match207291207292%_ - _%e203824203959%_ - _%hd203825203963%_ - _%tl203826203966%_ - _%e203827203969%_ - _%hd203828203973%_ - _%tl203829203976%_ - _%__splice207233207234%_ - _%target203853203894%_ - _%tl203855203897%_) + (gx#stx-null? _%tl204129204171%_)) + (_%__match207565207566%_ + _%e204098204233%_ + _%hd204099204237%_ + _%tl204100204240%_ + _%e204101204243%_ + _%hd204102204247%_ + _%tl204103204250%_ + _%__splice207507207508%_ + _%target204127204168%_ + _%tl204129204171%_) (let () (declare (not safe)) - (_%g203820203867%_))))) - (let () (declare (not safe)) (_%g203820203867%_)))) + (_%g204094204141%_))))) + (let () (declare (not safe)) (_%g204094204141%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl203829203976%_)) - (let ((_%__splice207233207234%_ + (gx#stx-pair/null? _%tl204103204250%_)) + (let ((_%__splice207507207508%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl203829203976%_ '0)))) - (let ((_%tl203855203897%_ + (gx#syntax-split-splice _%tl204103204250%_ '0)))) + (let ((_%tl204129204171%_ (let () (declare (not safe)) - (##vector-ref _%__splice207233207234%_ '1))) - (_%target203853203894%_ + (##vector-ref _%__splice207507207508%_ '1))) + (_%target204127204168%_ (let () (declare (not safe)) - (##vector-ref _%__splice207233207234%_ '0)))) + (##vector-ref _%__splice207507207508%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203855203897%_)) - (_%__match207291207292%_ - _%e203824203959%_ - _%hd203825203963%_ - _%tl203826203966%_ - _%e203827203969%_ - _%hd203828203973%_ - _%tl203829203976%_ - _%__splice207233207234%_ - _%target203853203894%_ - _%tl203855203897%_) - (let () (declare (not safe)) (_%g203820203867%_))))) - (let () (declare (not safe)) (_%g203820203867%_)))) + (gx#stx-null? _%tl204129204171%_)) + (_%__match207565207566%_ + _%e204098204233%_ + _%hd204099204237%_ + _%tl204100204240%_ + _%e204101204243%_ + _%hd204102204247%_ + _%tl204103204250%_ + _%__splice207507207508%_ + _%target204127204168%_ + _%tl204129204171%_) + (let () (declare (not safe)) (_%g204094204141%_))))) + (let () (declare (not safe)) (_%g204094204141%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl203829203976%_)) - (let ((_%__splice207233207234%_ + _%tl204103204250%_)) + (let ((_%__splice207507207508%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl203829203976%_ '0)))) - (let ((_%tl203855203897%_ + (gx#syntax-split-splice _%tl204103204250%_ '0)))) + (let ((_%tl204129204171%_ (let () (declare (not safe)) - (##vector-ref _%__splice207233207234%_ '1))) - (_%target203853203894%_ + (##vector-ref _%__splice207507207508%_ '1))) + (_%target204127204168%_ (let () (declare (not safe)) - (##vector-ref _%__splice207233207234%_ '0)))) + (##vector-ref _%__splice207507207508%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203855203897%_)) - (_%__match207291207292%_ - _%e203824203959%_ - _%hd203825203963%_ - _%tl203826203966%_ - _%e203827203969%_ - _%hd203828203973%_ - _%tl203829203976%_ - _%__splice207233207234%_ - _%target203853203894%_ - _%tl203855203897%_) - (let () (declare (not safe)) (_%g203820203867%_))))) - (let () (declare (not safe)) (_%g203820203867%_)))))) + (gx#stx-null? _%tl204129204171%_)) + (_%__match207565207566%_ + _%e204098204233%_ + _%hd204099204237%_ + _%tl204100204240%_ + _%e204101204243%_ + _%hd204102204247%_ + _%tl204103204250%_ + _%__splice207507207508%_ + _%target204127204168%_ + _%tl204129204171%_) + (let () (declare (not safe)) (_%g204094204141%_))))) + (let () (declare (not safe)) (_%g204094204141%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl203829203976%_)) - (let ((_%__splice207233207234%_ + _%tl204103204250%_)) + (let ((_%__splice207507207508%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl203829203976%_ + _%tl204103204250%_ '0)))) - (let ((_%tl203855203897%_ + (let ((_%tl204129204171%_ (let () (declare (not safe)) (##vector-ref - _%__splice207233207234%_ + _%__splice207507207508%_ '1))) - (_%target203853203894%_ + (_%target204127204168%_ (let () (declare (not safe)) (##vector-ref - _%__splice207233207234%_ + _%__splice207507207508%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203855203897%_)) - (_%__match207291207292%_ - _%e203824203959%_ - _%hd203825203963%_ - _%tl203826203966%_ - _%e203827203969%_ - _%hd203828203973%_ - _%tl203829203976%_ - _%__splice207233207234%_ - _%target203853203894%_ - _%tl203855203897%_) + _%tl204129204171%_)) + (_%__match207565207566%_ + _%e204098204233%_ + _%hd204099204237%_ + _%tl204100204240%_ + _%e204101204243%_ + _%hd204102204247%_ + _%tl204103204250%_ + _%__splice207507207508%_ + _%target204127204168%_ + _%tl204129204171%_) (let () (declare (not safe)) - (_%g203820203867%_))))) + (_%g204094204141%_))))) (let () (declare (not safe)) - (_%g203820203867%_)))))) + (_%g204094204141%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl203829203976%_)) - (let ((_%__splice207233207234%_ + (gx#stx-pair/null? _%tl204103204250%_)) + (let ((_%__splice207507207508%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl203829203976%_ + _%tl204103204250%_ '0)))) - (let ((_%tl203855203897%_ + (let ((_%tl204129204171%_ (let () (declare (not safe)) (##vector-ref - _%__splice207233207234%_ + _%__splice207507207508%_ '1))) - (_%target203853203894%_ + (_%target204127204168%_ (let () (declare (not safe)) (##vector-ref - _%__splice207233207234%_ + _%__splice207507207508%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203855203897%_)) - (_%__match207291207292%_ - _%e203824203959%_ - _%hd203825203963%_ - _%tl203826203966%_ - _%e203827203969%_ - _%hd203828203973%_ - _%tl203829203976%_ - _%__splice207233207234%_ - _%target203853203894%_ - _%tl203855203897%_) + _%tl204129204171%_)) + (_%__match207565207566%_ + _%e204098204233%_ + _%hd204099204237%_ + _%tl204100204240%_ + _%e204101204243%_ + _%hd204102204247%_ + _%tl204103204250%_ + _%__splice207507207508%_ + _%target204127204168%_ + _%tl204129204171%_) (let () (declare (not safe)) - (_%g203820203867%_))))) + (_%g204094204141%_))))) (let () (declare (not safe)) - (_%g203820203867%_)))))) - (let () (declare (not safe)) (_%g203820203867%_))))) - (let () (declare (not safe)) (_%g203820203867%_)))))))) + (_%g204094204141%_)))))) + (let () (declare (not safe)) (_%g204094204141%_))))) + (let () (declare (not safe)) (_%g204094204141%_)))))))) (define |gxc[1]#verify-procedure!| - (lambda (_%ctx205214%_ _%id205216%_) - (let ((_%proc205220%_ - (let ((__tmp207660 + (lambda (_%ctx205488%_ _%id205490%_) + (let ((_%proc205494%_ + (let ((__tmp207934 (lambda () (let () (declare (not safe)) - (gx#eval-syntax__0 _%id205216%_))))) + (gx#eval-syntax__0 _%id205490%_))))) (declare (not safe)) - (__with-catch false __tmp207660)))) - (if (procedure? _%proc205220%_) + (__with-catch false __tmp207934)))) + (if (procedure? _%proc205494%_) '#!void (let () (declare (not safe)) (gx#raise-syntax-error '#f '"unknown procedure" - _%ctx205214%_ - _%id205216%_)))))) + _%ctx205488%_ + _%id205490%_)))))) (define |gxc[1]#verify-class!| - (lambda (_%ctx205205%_ _%id205207%_) - (let ((_%klass205211%_ - (let ((__tmp207661 + (lambda (_%ctx205479%_ _%id205481%_) + (let ((_%klass205485%_ + (let ((__tmp207935 (lambda () (let () (declare (not safe)) - (gx#eval-syntax__0 _%id205207%_))))) + (gx#eval-syntax__0 _%id205481%_))))) (declare (not safe)) - (__with-catch false __tmp207661)))) + (__with-catch false __tmp207935)))) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass205211%_ 'class)) + (##structure-instance-of? _%klass205485%_ 'class)) '#!void (let () (declare (not safe)) (gx#raise-syntax-error '#f '"unknown class" - _%ctx205205%_ - _%id205207%_)))))) + _%ctx205479%_ + _%id205481%_)))))) (define |gxc[1]#parse-signature| - (lambda (_%ctx204455%_ _%proc204457%_ _%sig204458%_) - (letrec ((_%signature-arity204460%_ - (lambda (_%args205137%_) - (let _%loop205140%_ ((_%rest205143%_ _%args205137%_) - (_%count205145%_ '0)) - (let* ((_%rest205146205157%_ _%rest205143%_) - (_%E205150205163%_ + (lambda (_%ctx204729%_ _%proc204731%_ _%sig204732%_) + (letrec ((_%signature-arity204734%_ + (lambda (_%args205411%_) + (let _%loop205414%_ ((_%rest205417%_ _%args205411%_) + (_%count205419%_ '0)) + (let* ((_%rest205420205431%_ _%rest205417%_) + (_%E205424205437%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest205146205157%_ + _%rest205420205431%_ '([_ . rest]) '([]) '(_))) '#!void))) - (let ((_%K205153205194%_ - (lambda (_%rest205191%_) - (_%loop205140%_ - _%rest205191%_ + (let ((_%K205427205468%_ + (lambda (_%rest205465%_) + (_%loop205414%_ + _%rest205465%_ (let () (declare (not safe)) - (##fx+ _%count205145%_ '1))))) - (_%K205152205183%_ (lambda () _%count205145%_)) - (_%K205151205171%_ - (lambda () (cons _%count205145%_ '())))) - (let ((_%try-match205148205187%_ + (##fx+ _%count205419%_ '1))))) + (_%K205426205457%_ (lambda () _%count205419%_)) + (_%K205425205445%_ + (lambda () (cons _%count205419%_ '())))) + (let ((_%try-match205422205461%_ (lambda () (if (let () (declare (not safe)) - (##null? _%rest205146205157%_)) - (_%K205152205183%_) - (_%K205151205171%_))))) + (##null? _%rest205420205431%_)) + (_%K205426205457%_) + (_%K205425205445%_))))) (if (let () (declare (not safe)) - (##pair? _%rest205146205157%_)) - (let* ((_%tl205155205198%_ + (##pair? _%rest205420205431%_)) + (let* ((_%tl205429205472%_ (let () (declare (not safe)) - (##cdr _%rest205146205157%_))) - (_%rest205202%_ _%tl205155205198%_)) - (_%K205153205194%_ _%rest205202%_)) - (_%try-match205148205187%_)))))))) - (_%make-signature204462%_ - (lambda (_%args205019%_ - _%return205021%_ - _%effect205022%_ - _%unchecked205023%_) - (let ((__tmp207662 - (lambda (_%g205024205026%_) + (##cdr _%rest205420205431%_))) + (_%rest205476%_ _%tl205429205472%_)) + (_%K205427205468%_ _%rest205476%_)) + (_%try-match205422205461%_)))))))) + (_%make-signature204736%_ + (lambda (_%args205293%_ + _%return205295%_ + _%effect205296%_ + _%unchecked205297%_) + (let ((__tmp207936 + (lambda (_%g205298205300%_) (|gxc[1]#verify-class!| - _%ctx204455%_ - _%g205024205026%_)))) + _%ctx204729%_ + _%g205298205300%_)))) (declare (not safe)) - (gx#stx-for-each1 __tmp207662 _%args205019%_)) - (|gxc[1]#verify-class!| _%ctx204455%_ _%return205021%_) - (if _%unchecked205023%_ + (gx#stx-for-each1 __tmp207936 _%args205293%_)) + (|gxc[1]#verify-class!| _%ctx204729%_ _%return205295%_) + (if _%unchecked205297%_ (|gxc[1]#verify-procedure!| - _%ctx204455%_ - _%unchecked205023%_) + _%ctx204729%_ + _%unchecked205297%_) '#!void) - (let ((_%arity205030%_ - (_%signature-arity204460%_ + (let ((_%arity205304%_ + (_%signature-arity204734%_ (let () (declare (not safe)) - (gx#stx-map1 gx#stx-e _%args205019%_))))) - (if _%effect205022%_ - (let ((_%effect205033%_ + (gx#stx-map1 gx#stx-e _%args205293%_))))) + (if _%effect205296%_ + (let ((_%effect205307%_ (let () (declare (not safe)) - (gx#syntax->datum _%effect205022%_)))) - (if (and (list? _%effect205033%_) + (gx#syntax->datum _%effect205296%_)))) + (if (and (list? _%effect205307%_) (let () (declare (not safe)) - (__andmap1 symbol? _%effect205033%_))) + (__andmap1 symbol? _%effect205307%_))) '#!void (let () (declare (not safe)) (gx#raise-syntax-error '#f '"bad effect" - _%ctx204455%_ - _%proc204457%_ - _%effect205033%_)))) + _%ctx204729%_ + _%proc204731%_ + _%effect205307%_)))) '#!void) - (cons _%arity205030%_ - (cons (let* ((_%g205036205059%_ - (lambda (_%g205037205055%_) + (cons _%arity205304%_ + (cons (let* ((_%g205310205333%_ + (lambda (_%g205311205329%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205037205055%_)))) - (_%g205035205133%_ - (lambda (_%g205037205063%_) + _%g205311205329%_)))) + (_%g205309205407%_ + (lambda (_%g205311205337%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g205037205063%_)) - (let ((_%e205042205066%_ + _%g205311205337%_)) + (let ((_%e205316205340%_ (let () (declare (not safe)) (gx#syntax-e - _%g205037205063%_)))) - (let ((_%hd205043205070%_ + _%g205311205337%_)))) + (let ((_%hd205317205344%_ (let () (declare (not safe)) - (##car _%e205042205066%_))) - (_%tl205044205073%_ + (##car _%e205316205340%_))) + (_%tl205318205347%_ (let () (declare (not safe)) - (##cdr _%e205042205066%_)))) + (##cdr _%e205316205340%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205044205073%_)) - (let ((_%e205045205076%_ + _%tl205318205347%_)) + (let ((_%e205319205350%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%tl205044205073%_)))) - (let ((_%hd205046205080%_ + (gx#syntax-e _%tl205318205347%_)))) + (let ((_%hd205320205354%_ (let () (declare (not safe)) - (##car _%e205045205076%_))) - (_%tl205047205083%_ + (##car _%e205319205350%_))) + (_%tl205321205357%_ (let () (declare (not safe)) - (##cdr _%e205045205076%_)))) + (##cdr _%e205319205350%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205047205083%_)) - (let ((_%e205048205086%_ + (gx#stx-pair? _%tl205321205357%_)) + (let ((_%e205322205360%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205047205083%_)))) - (let ((_%hd205049205090%_ + (gx#syntax-e _%tl205321205357%_)))) + (let ((_%hd205323205364%_ (let () (declare (not safe)) - (##car _%e205048205086%_))) - (_%tl205050205093%_ + (##car _%e205322205360%_))) + (_%tl205324205367%_ (let () (declare (not safe)) - (##cdr _%e205048205086%_)))) + (##cdr _%e205322205360%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205050205093%_)) - (let ((_%e205051205096%_ + (gx#stx-pair? _%tl205324205367%_)) + (let ((_%e205325205370%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205050205093%_)))) - (let ((_%hd205052205100%_ + (gx#syntax-e _%tl205324205367%_)))) + (let ((_%hd205326205374%_ (let () (declare (not safe)) - (##car _%e205051205096%_))) - (_%tl205053205103%_ + (##car _%e205325205370%_))) + (_%tl205327205377%_ (let () (declare (not safe)) - (##cdr _%e205051205096%_)))) + (##cdr _%e205325205370%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205053205103%_)) - ((lambda (_%L205106%_ - _%L205108%_ - _%L205109%_ - _%L205110%_) + (gx#stx-null? _%tl205327205377%_)) + ((lambda (_%L205380%_ + _%L205382%_ + _%L205383%_ + _%L205384%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -3872,25 +3872,25 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205110%_ '())) + (cons _%L205384%_ '())) (cons 'return: (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205109%_ '())) + (cons _%L205383%_ '())) (cons 'effect: (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205108%_ '())) + (cons _%L205382%_ '())) (cons 'unchecked: (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205106%_ '())) + (cons _%L205380%_ '())) (cons 'origin: (cons (cons (let () (declare (not safe)) @@ -3902,779 +3902,779 @@ '())))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd205052205100%_ - _%hd205049205090%_ - _%hd205046205080%_ - _%hd205043205070%_) - (_%g205036205059%_ - _%g205037205063%_)))) - (_%g205036205059%_ _%g205037205063%_)))) - (_%g205036205059%_ _%g205037205063%_)))) - (_%g205036205059%_ _%g205037205063%_)))) + _%hd205326205374%_ + _%hd205323205364%_ + _%hd205320205354%_ + _%hd205317205344%_) + (_%g205310205333%_ + _%g205311205337%_)))) + (_%g205310205333%_ _%g205311205337%_)))) + (_%g205310205333%_ _%g205311205337%_)))) + (_%g205310205333%_ _%g205311205337%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205036205059%_ - _%g205037205063%_))))) - (_%g205035205133%_ - (list _%args205019%_ - _%return205021%_ - _%effect205022%_ - _%unchecked205023%_))) + (_%g205310205333%_ + _%g205311205337%_))))) + (_%g205309205407%_ + (list _%args205293%_ + _%return205295%_ + _%effect205296%_ + _%unchecked205297%_))) '())))))) - (|gxc[1]#verify-procedure!| _%ctx204455%_ _%proc204457%_) - (let* ((_%__stx207302207303%_ _%sig204458%_) - (_%g204469204572%_ + (|gxc[1]#verify-procedure!| _%ctx204729%_ _%proc204731%_) + (let* ((_%__stx207576207577%_ _%sig204732%_) + (_%g204743204846%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx207302207303%_))))) - (let ((_%__kont207305207306%_ - (lambda (_%L205000%_ _%L205002%_) - (_%make-signature204462%_ - _%L205002%_ - _%L205000%_ + _%__stx207576207577%_))))) + (let ((_%__kont207579207580%_ + (lambda (_%L205274%_ _%L205276%_) + (_%make-signature204736%_ + _%L205276%_ + _%L205274%_ '#f '#f))) - (_%__kont207307207308%_ - (lambda (_%L204951%_ _%L204953%_ _%L204954%_) - (_%make-signature204462%_ - _%L204954%_ - _%L204953%_ - _%L204951%_ + (_%__kont207581207582%_ + (lambda (_%L205225%_ _%L205227%_ _%L205228%_) + (_%make-signature204736%_ + _%L205228%_ + _%L205227%_ + _%L205225%_ '#f))) - (_%__kont207309207310%_ - (lambda (_%L204875%_ _%L204877%_ _%L204878%_) - (_%make-signature204462%_ - _%L204878%_ - _%L204877%_ - _%L204875%_ - (let ((__tmp207663 + (_%__kont207583207584%_ + (lambda (_%L205149%_ _%L205151%_ _%L205152%_) + (_%make-signature204736%_ + _%L205152%_ + _%L205151%_ + _%L205149%_ + (let ((__tmp207937 (let () (declare (not safe)) - (gx#stx-e _%proc204457%_)))) + (gx#stx-e _%proc204731%_)))) (declare (not safe)) - (make-symbol__1 '"##" __tmp207663))))) - (_%__kont207311207312%_ - (lambda (_%L204781%_ _%L204783%_ _%L204784%_ _%L204785%_) - (_%make-signature204462%_ - _%L204785%_ - _%L204784%_ + (make-symbol__1 '"##" __tmp207937))))) + (_%__kont207585207586%_ + (lambda (_%L205055%_ _%L205057%_ _%L205058%_ _%L205059%_) + (_%make-signature204736%_ + _%L205059%_ + _%L205058%_ '#f - (let () (declare (not safe)) (gx#stx-e _%L204781%_))))) - (_%__kont207313207314%_ - (lambda (_%L204688%_ _%L204690%_) - (_%make-signature204462%_ - _%L204690%_ - _%L204688%_ + (let () (declare (not safe)) (gx#stx-e _%L205055%_))))) + (_%__kont207587207588%_ + (lambda (_%L204962%_ _%L204964%_) + (_%make-signature204736%_ + _%L204964%_ + _%L204962%_ '#f - (let ((__tmp207664 + (let ((__tmp207938 (let () (declare (not safe)) - (gx#stx-e _%proc204457%_)))) + (gx#stx-e _%proc204731%_)))) (declare (not safe)) - (make-symbol__1 '"##" __tmp207664))))) - (_%__kont207315207316%_ - (lambda (_%L204623%_ _%L204625%_ _%L204626%_) - (_%make-signature204462%_ - _%L204626%_ - _%L204625%_ + (make-symbol__1 '"##" __tmp207938))))) + (_%__kont207589207590%_ + (lambda (_%L204897%_ _%L204899%_ _%L204900%_) + (_%make-signature204736%_ + _%L204900%_ + _%L204899%_ '#f - (let () (declare (not safe)) (gx#stx-e _%L204623%_)))))) + (let () (declare (not safe)) (gx#stx-e _%L204897%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx207302207303%_)) - (let ((_%e204473204980%_ + (gx#stx-pair? _%__stx207576207577%_)) + (let ((_%e204747205254%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx207302207303%_)))) - (let ((_%tl204475204987%_ + (gx#syntax-e _%__stx207576207577%_)))) + (let ((_%tl204749205261%_ (let () (declare (not safe)) - (##cdr _%e204473204980%_))) - (_%hd204474204984%_ + (##cdr _%e204747205254%_))) + (_%hd204748205258%_ (let () (declare (not safe)) - (##car _%e204473204980%_)))) + (##car _%e204747205254%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204475204987%_)) - (let ((_%e204476204990%_ + (gx#stx-pair? _%tl204749205261%_)) + (let ((_%e204750205264%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204475204987%_)))) - (let ((_%tl204478204997%_ + (gx#syntax-e _%tl204749205261%_)))) + (let ((_%tl204752205271%_ (let () (declare (not safe)) - (##cdr _%e204476204990%_))) - (_%hd204477204994%_ + (##cdr _%e204750205264%_))) + (_%hd204751205268%_ (let () (declare (not safe)) - (##car _%e204476204990%_)))) + (##car _%e204750205264%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204478204997%_)) - (_%__kont207305207306%_ - _%hd204477204994%_ - _%hd204474204984%_) + (gx#stx-null? _%tl204752205271%_)) + (_%__kont207579207580%_ + _%hd204751205268%_ + _%hd204748205258%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204478204997%_)) - (let ((_%e204488204927%_ + (gx#stx-pair? _%tl204752205271%_)) + (let ((_%e204762205201%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204478204997%_)))) - (let ((_%tl204490204934%_ + _%tl204752205271%_)))) + (let ((_%tl204764205208%_ (let () (declare (not safe)) - (##cdr _%e204488204927%_))) - (_%hd204489204931%_ + (##cdr _%e204762205201%_))) + (_%hd204763205205%_ (let () (declare (not safe)) - (##car _%e204488204927%_)))) + (##car _%e204762205201%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd204489204931%_)) - (let ((_%e204491204937%_ + _%hd204763205205%_)) + (let ((_%e204765205211%_ (let () (declare (not safe)) (gx#stx-e - _%hd204489204931%_)))) - (if (equal? _%e204491204937%_ + _%hd204763205205%_)))) + (if (equal? _%e204765205211%_ 'effect:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204490204934%_)) - (let ((_%e204492204941%_ + _%tl204764205208%_)) + (let ((_%e204766205215%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%tl204490204934%_)))) - (let ((_%tl204494204948%_ + (gx#syntax-e _%tl204764205208%_)))) + (let ((_%tl204768205222%_ (let () (declare (not safe)) - (##cdr _%e204492204941%_))) - (_%hd204493204945%_ + (##cdr _%e204766205215%_))) + (_%hd204767205219%_ (let () (declare (not safe)) - (##car _%e204492204941%_)))) + (##car _%e204766205215%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204494204948%_)) - (_%__kont207307207308%_ - _%hd204493204945%_ - _%hd204477204994%_ - _%hd204474204984%_) + (gx#stx-null? _%tl204768205222%_)) + (_%__kont207581207582%_ + _%hd204767205219%_ + _%hd204751205268%_ + _%hd204748205258%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204494204948%_)) - (let ((_%e204511204861%_ + (gx#stx-pair? _%tl204768205222%_)) + (let ((_%e204785205135%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204494204948%_)))) - (let ((_%tl204513204868%_ + (gx#syntax-e _%tl204768205222%_)))) + (let ((_%tl204787205142%_ (let () (declare (not safe)) - (##cdr _%e204511204861%_))) - (_%hd204512204865%_ + (##cdr _%e204785205135%_))) + (_%hd204786205139%_ (let () (declare (not safe)) - (##car _%e204511204861%_)))) + (##car _%e204785205135%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd204512204865%_)) - (let ((_%e204514204871%_ + (gx#stx-datum? _%hd204786205139%_)) + (let ((_%e204788205145%_ (let () (declare (not safe)) - (gx#stx-e _%hd204512204865%_)))) - (if (equal? _%e204514204871%_ + (gx#stx-e _%hd204786205139%_)))) + (if (equal? _%e204788205145%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204513204868%_)) - (_%__kont207309207310%_ - _%hd204493204945%_ - _%hd204477204994%_ - _%hd204474204984%_) + _%tl204787205142%_)) + (_%__kont207583207584%_ + _%hd204767205219%_ + _%hd204751205268%_ + _%hd204748205258%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204513204868%_)) - (let ((_%e204536204771%_ + _%tl204787205142%_)) + (let ((_%e204810205045%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204513204868%_)))) - (let ((_%tl204538204778%_ + _%tl204787205142%_)))) + (let ((_%tl204812205052%_ (let () (declare (not safe)) - (##cdr _%e204536204771%_))) - (_%hd204537204775%_ + (##cdr _%e204810205045%_))) + (_%hd204811205049%_ (let () (declare (not safe)) - (##car _%e204536204771%_)))) + (##car _%e204810205045%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204538204778%_)) - (_%__kont207311207312%_ - _%hd204537204775%_ - _%hd204493204945%_ - _%hd204477204994%_ - _%hd204474204984%_) + _%tl204812205052%_)) + (_%__kont207585207586%_ + _%hd204811205049%_ + _%hd204767205219%_ + _%hd204751205268%_ + _%hd204748205258%_) (let () (declare (not safe)) - (_%g204469204572%_))))) + (_%g204743204846%_))))) (let () (declare (not safe)) - (_%g204469204572%_)))) + (_%g204743204846%_)))) (let () (declare (not safe)) - (_%g204469204572%_)))) + (_%g204743204846%_)))) (let () (declare (not safe)) - (_%g204469204572%_))))) + (_%g204743204846%_))))) (let () (declare (not safe)) - (_%g204469204572%_)))))) - (let () (declare (not safe)) (_%g204469204572%_))) + (_%g204743204846%_)))))) + (let () (declare (not safe)) (_%g204743204846%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (equal? _%e204491204937%_ + (if (equal? _%e204765205211%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204490204934%_)) - (_%__kont207313207314%_ - _%hd204477204994%_ - _%hd204474204984%_) + _%tl204764205208%_)) + (_%__kont207587207588%_ + _%hd204751205268%_ + _%hd204748205258%_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl204490204934%_)) - (let ((_%e204564204613%_ + (gx#stx-pair? _%tl204764205208%_)) + (let ((_%e204838204887%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204490204934%_)))) - (let ((_%tl204566204620%_ + (gx#syntax-e _%tl204764205208%_)))) + (let ((_%tl204840204894%_ (let () (declare (not safe)) - (##cdr _%e204564204613%_))) - (_%hd204565204617%_ + (##cdr _%e204838204887%_))) + (_%hd204839204891%_ (let () (declare (not safe)) - (##car _%e204564204613%_)))) + (##car _%e204838204887%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204566204620%_)) - (_%__kont207315207316%_ - _%hd204565204617%_ - _%hd204477204994%_ - _%hd204474204984%_) + (gx#stx-null? _%tl204840204894%_)) + (_%__kont207589207590%_ + _%hd204839204891%_ + _%hd204751205268%_ + _%hd204748205258%_) (let () (declare (not safe)) - (_%g204469204572%_))))) - (let () (declare (not safe)) (_%g204469204572%_)))) - (let () (declare (not safe)) (_%g204469204572%_))))) + (_%g204743204846%_))))) + (let () (declare (not safe)) (_%g204743204846%_)))) + (let () (declare (not safe)) (_%g204743204846%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g204469204572%_))))) + (_%g204743204846%_))))) (let () (declare (not safe)) - (_%g204469204572%_)))))) - (let () (declare (not safe)) (_%g204469204572%_))))) - (let () (declare (not safe)) (_%g204469204572%_)))))))) + (_%g204743204846%_)))))) + (let () (declare (not safe)) (_%g204743204846%_))))) + (let () (declare (not safe)) (_%g204743204846%_)))))))) (define |gxc[1]#signature->unchecked-signature| - (lambda (_%sig204066%_) - (let* ((_%g204069204149%_ - (lambda (_%g204070204145%_) + (lambda (_%sig204340%_) + (let* ((_%g204343204423%_ + (lambda (_%g204344204419%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204070204145%_)))) - (_%g204068204451%_ - (lambda (_%g204070204153%_) + _%g204344204419%_)))) + (_%g204342204725%_ + (lambda (_%g204344204427%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204070204153%_)) - (let ((_%e204076204156%_ + (gx#stx-pair? _%g204344204427%_)) + (let ((_%e204350204430%_ (let () (declare (not safe)) - (gx#syntax-e _%g204070204153%_)))) - (let ((_%hd204077204160%_ + (gx#syntax-e _%g204344204427%_)))) + (let ((_%hd204351204434%_ (let () (declare (not safe)) - (##car _%e204076204156%_))) - (_%tl204078204163%_ + (##car _%e204350204430%_))) + (_%tl204352204437%_ (let () (declare (not safe)) - (##cdr _%e204076204156%_)))) + (##cdr _%e204350204430%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204078204163%_)) - (let ((_%e204079204166%_ + (gx#stx-pair? _%tl204352204437%_)) + (let ((_%e204353204440%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204078204163%_)))) - (let ((_%hd204080204170%_ + (gx#syntax-e _%tl204352204437%_)))) + (let ((_%hd204354204444%_ (let () (declare (not safe)) - (##car _%e204079204166%_))) - (_%tl204081204173%_ + (##car _%e204353204440%_))) + (_%tl204355204447%_ (let () (declare (not safe)) - (##cdr _%e204079204166%_)))) + (##cdr _%e204353204440%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd204080204170%_)) - (let ((_%e204082204176%_ + (gx#stx-datum? _%hd204354204444%_)) + (let ((_%e204356204450%_ (let () (declare (not safe)) - (gx#stx-e _%hd204080204170%_)))) - (if (equal? _%e204082204176%_ + (gx#stx-e _%hd204354204444%_)))) + (if (equal? _%e204356204450%_ 'arguments:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204081204173%_)) - (let ((_%e204083204180%_ + _%tl204355204447%_)) + (let ((_%e204357204454%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204081204173%_)))) - (let ((_%hd204084204184%_ + _%tl204355204447%_)))) + (let ((_%hd204358204458%_ (let () (declare (not safe)) - (##car _%e204083204180%_))) - (_%tl204085204187%_ + (##car _%e204357204454%_))) + (_%tl204359204461%_ (let () (declare (not safe)) - (##cdr _%e204083204180%_)))) + (##cdr _%e204357204454%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd204084204184%_)) - (let ((_%e204086204190%_ + _%hd204358204458%_)) + (let ((_%e204360204464%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd204084204184%_)))) - (let ((_%hd204087204194%_ + (gx#syntax-e _%hd204358204458%_)))) + (let ((_%hd204361204468%_ (let () (declare (not safe)) - (##car _%e204086204190%_))) - (_%tl204088204197%_ + (##car _%e204360204464%_))) + (_%tl204362204471%_ (let () (declare (not safe)) - (##cdr _%e204086204190%_)))) + (##cdr _%e204360204464%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd204087204194%_)) - (if (let ((__tmp207665 |gxc[1]#_g207666_|)) + (gx#identifier? _%hd204361204468%_)) + (if (let ((__tmp207939 |gxc[1]#_g207940_|)) (declare (not safe)) (gx#free-identifier=? - __tmp207665 - _%hd204087204194%_)) + __tmp207939 + _%hd204361204468%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204088204197%_)) - (let ((_%e204089204200%_ + (gx#stx-pair? _%tl204362204471%_)) + (let ((_%e204363204474%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204088204197%_)))) - (let ((_%hd204090204204%_ + (gx#syntax-e _%tl204362204471%_)))) + (let ((_%hd204364204478%_ (let () (declare (not safe)) - (##car _%e204089204200%_))) - (_%tl204091204207%_ + (##car _%e204363204474%_))) + (_%tl204365204481%_ (let () (declare (not safe)) - (##cdr _%e204089204200%_)))) + (##cdr _%e204363204474%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204091204207%_)) + (gx#stx-null? _%tl204365204481%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204085204187%_)) - (let ((_%e204092204210%_ + _%tl204359204461%_)) + (let ((_%e204366204484%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204085204187%_)))) - (let ((_%hd204093204214%_ + _%tl204359204461%_)))) + (let ((_%hd204367204488%_ (let () (declare (not safe)) - (##car _%e204092204210%_))) - (_%tl204094204217%_ + (##car _%e204366204484%_))) + (_%tl204368204491%_ (let () (declare (not safe)) - (##cdr _%e204092204210%_)))) + (##cdr _%e204366204484%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd204093204214%_)) - (let ((_%e204095204220%_ + _%hd204367204488%_)) + (let ((_%e204369204494%_ (let () (declare (not safe)) (gx#stx-e - _%hd204093204214%_)))) - (if (equal? _%e204095204220%_ + _%hd204367204488%_)))) + (if (equal? _%e204369204494%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'return:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204094204217%_)) - (let ((_%e204096204224%_ + (gx#stx-pair? _%tl204368204491%_)) + (let ((_%e204370204498%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204094204217%_)))) - (let ((_%hd204097204228%_ + (gx#syntax-e _%tl204368204491%_)))) + (let ((_%hd204371204502%_ (let () (declare (not safe)) - (##car _%e204096204224%_))) - (_%tl204098204231%_ + (##car _%e204370204498%_))) + (_%tl204372204505%_ (let () (declare (not safe)) - (##cdr _%e204096204224%_)))) + (##cdr _%e204370204498%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd204097204228%_)) - (let ((_%e204099204234%_ + (gx#stx-pair? _%hd204371204502%_)) + (let ((_%e204373204508%_ (let () (declare (not safe)) - (gx#syntax-e _%hd204097204228%_)))) - (let ((_%hd204100204238%_ + (gx#syntax-e _%hd204371204502%_)))) + (let ((_%hd204374204512%_ (let () (declare (not safe)) - (##car _%e204099204234%_))) - (_%tl204101204241%_ + (##car _%e204373204508%_))) + (_%tl204375204515%_ (let () (declare (not safe)) - (##cdr _%e204099204234%_)))) + (##cdr _%e204373204508%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd204100204238%_)) - (if (let ((__tmp207667 - |gxc[1]#_g207668_|)) + (gx#identifier? _%hd204374204512%_)) + (if (let ((__tmp207941 + |gxc[1]#_g207942_|)) (declare (not safe)) (gx#free-identifier=? - __tmp207667 - _%hd204100204238%_)) + __tmp207941 + _%hd204374204512%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204101204241%_)) - (let ((_%e204102204244%_ + _%tl204375204515%_)) + (let ((_%e204376204518%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204101204241%_)))) - (let ((_%hd204103204248%_ + _%tl204375204515%_)))) + (let ((_%hd204377204522%_ (let () (declare (not safe)) - (##car _%e204102204244%_))) - (_%tl204104204251%_ + (##car _%e204376204518%_))) + (_%tl204378204525%_ (let () (declare (not safe)) - (##cdr _%e204102204244%_)))) + (##cdr _%e204376204518%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204104204251%_)) + _%tl204378204525%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204098204231%_)) - (let ((_%e204105204254%_ + _%tl204372204505%_)) + (let ((_%e204379204528%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl204098204231%_)))) - (let ((_%hd204106204258%_ + (gx#syntax-e _%tl204372204505%_)))) + (let ((_%hd204380204532%_ (let () (declare (not safe)) - (##car _%e204105204254%_))) - (_%tl204107204261%_ + (##car _%e204379204528%_))) + (_%tl204381204535%_ (let () (declare (not safe)) - (##cdr _%e204105204254%_)))) + (##cdr _%e204379204528%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd204106204258%_)) - (let ((_%e204108204264%_ + (gx#stx-datum? _%hd204380204532%_)) + (let ((_%e204382204538%_ (let () (declare (not safe)) - (gx#stx-e _%hd204106204258%_)))) - (if (equal? _%e204108204264%_ 'effect:) + (gx#stx-e _%hd204380204532%_)))) + (if (equal? _%e204382204538%_ 'effect:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204107204261%_)) - (let ((_%e204109204268%_ + (gx#stx-pair? _%tl204381204535%_)) + (let ((_%e204383204542%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204107204261%_)))) - (let ((_%hd204110204272%_ + _%tl204381204535%_)))) + (let ((_%hd204384204546%_ (let () (declare (not safe)) - (##car _%e204109204268%_))) - (_%tl204111204275%_ + (##car _%e204383204542%_))) + (_%tl204385204549%_ (let () (declare (not safe)) - (##cdr _%e204109204268%_)))) + (##cdr _%e204383204542%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd204110204272%_)) - (let ((_%e204112204278%_ + _%hd204384204546%_)) + (let ((_%e204386204552%_ (let () (declare (not safe)) (gx#syntax-e - _%hd204110204272%_)))) - (let ((_%hd204113204282%_ + _%hd204384204546%_)))) + (let ((_%hd204387204556%_ (let () (declare (not safe)) - (##car _%e204112204278%_))) - (_%tl204114204285%_ + (##car _%e204386204552%_))) + (_%tl204388204559%_ (let () (declare (not safe)) - (##cdr _%e204112204278%_)))) + (##cdr _%e204386204552%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd204113204282%_)) - (if (let ((__tmp207669 - |gxc[1]#_g207670_|)) + _%hd204387204556%_)) + (if (let ((__tmp207943 + |gxc[1]#_g207944_|)) (declare (not safe)) (gx#free-identifier=? - __tmp207669 - _%hd204113204282%_)) + __tmp207943 + _%hd204387204556%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204114204285%_)) - (let ((_%e204115204288%_ + _%tl204388204559%_)) + (let ((_%e204389204562%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl204114204285%_)))) - (let ((_%hd204116204292%_ + (gx#syntax-e _%tl204388204559%_)))) + (let ((_%hd204390204566%_ (let () (declare (not safe)) - (##car _%e204115204288%_))) - (_%tl204117204295%_ + (##car _%e204389204562%_))) + (_%tl204391204569%_ (let () (declare (not safe)) - (##cdr _%e204115204288%_)))) + (##cdr _%e204389204562%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204117204295%_)) + (gx#stx-null? _%tl204391204569%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204111204275%_)) - (let ((_%e204118204298%_ + (gx#stx-pair? _%tl204385204549%_)) + (let ((_%e204392204572%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204111204275%_)))) - (let ((_%hd204119204302%_ + (gx#syntax-e _%tl204385204549%_)))) + (let ((_%hd204393204576%_ (let () (declare (not safe)) - (##car _%e204118204298%_))) - (_%tl204120204305%_ + (##car _%e204392204572%_))) + (_%tl204394204579%_ (let () (declare (not safe)) - (##cdr _%e204118204298%_)))) + (##cdr _%e204392204572%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd204119204302%_)) - (let ((_%e204121204308%_ + (gx#stx-datum? _%hd204393204576%_)) + (let ((_%e204395204582%_ (let () (declare (not safe)) (gx#stx-e - _%hd204119204302%_)))) - (if (equal? _%e204121204308%_ + _%hd204393204576%_)))) + (if (equal? _%e204395204582%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204120204305%_)) - (let ((_%e204122204312%_ + _%tl204394204579%_)) + (let ((_%e204396204586%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204120204305%_)))) - (let ((_%hd204123204316%_ + _%tl204394204579%_)))) + (let ((_%hd204397204590%_ (let () (declare (not safe)) - (##car _%e204122204312%_))) - (_%tl204124204319%_ + (##car _%e204396204586%_))) + (_%tl204398204593%_ (let () (declare (not safe)) - (##cdr _%e204122204312%_)))) + (##cdr _%e204396204586%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd204123204316%_)) - (let ((_%e204125204322%_ + _%hd204397204590%_)) + (let ((_%e204399204596%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%hd204123204316%_)))) - (let ((_%hd204126204326%_ + (gx#syntax-e _%hd204397204590%_)))) + (let ((_%hd204400204600%_ (let () (declare (not safe)) - (##car _%e204125204322%_))) - (_%tl204127204329%_ + (##car _%e204399204596%_))) + (_%tl204401204603%_ (let () (declare (not safe)) - (##cdr _%e204125204322%_)))) + (##cdr _%e204399204596%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd204126204326%_)) - (if (let ((__tmp207671 |gxc[1]#_g207672_|)) + (gx#identifier? _%hd204400204600%_)) + (if (let ((__tmp207945 |gxc[1]#_g207946_|)) (declare (not safe)) (gx#free-identifier=? - __tmp207671 - _%hd204126204326%_)) + __tmp207945 + _%hd204400204600%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204127204329%_)) - (let ((_%e204128204332%_ + (gx#stx-pair? _%tl204401204603%_)) + (let ((_%e204402204606%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204127204329%_)))) - (let ((_%hd204129204336%_ + (gx#syntax-e _%tl204401204603%_)))) + (let ((_%hd204403204610%_ (let () (declare (not safe)) - (##car _%e204128204332%_))) - (_%tl204130204339%_ + (##car _%e204402204606%_))) + (_%tl204404204613%_ (let () (declare (not safe)) - (##cdr _%e204128204332%_)))) + (##cdr _%e204402204606%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204130204339%_)) + (gx#stx-null? _%tl204404204613%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204124204319%_)) - (let ((_%e204131204342%_ + _%tl204398204593%_)) + (let ((_%e204405204616%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204124204319%_)))) - (let ((_%hd204132204346%_ + _%tl204398204593%_)))) + (let ((_%hd204406204620%_ (let () (declare (not safe)) - (##car _%e204131204342%_))) - (_%tl204133204349%_ + (##car _%e204405204616%_))) + (_%tl204407204623%_ (let () (declare (not safe)) - (##cdr _%e204131204342%_)))) + (##cdr _%e204405204616%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd204132204346%_)) - (let ((_%e204134204352%_ + _%hd204406204620%_)) + (let ((_%e204408204626%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd204132204346%_)))) - (if (equal? _%e204134204352%_ 'origin:) + (gx#stx-e _%hd204406204620%_)))) + (if (equal? _%e204408204626%_ 'origin:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204133204349%_)) - (let ((_%e204135204356%_ + (gx#stx-pair? _%tl204407204623%_)) + (let ((_%e204409204630%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204133204349%_)))) - (let ((_%hd204136204360%_ + (gx#syntax-e _%tl204407204623%_)))) + (let ((_%hd204410204634%_ (let () (declare (not safe)) - (##car _%e204135204356%_))) - (_%tl204137204363%_ + (##car _%e204409204630%_))) + (_%tl204411204637%_ (let () (declare (not safe)) - (##cdr _%e204135204356%_)))) + (##cdr _%e204409204630%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd204136204360%_)) - (let ((_%e204138204366%_ + (gx#stx-pair? _%hd204410204634%_)) + (let ((_%e204412204640%_ (let () (declare (not safe)) - (gx#syntax-e _%hd204136204360%_)))) - (let ((_%hd204139204370%_ + (gx#syntax-e _%hd204410204634%_)))) + (let ((_%hd204413204644%_ (let () (declare (not safe)) - (##car _%e204138204366%_))) - (_%tl204140204373%_ + (##car _%e204412204640%_))) + (_%tl204414204647%_ (let () (declare (not safe)) - (##cdr _%e204138204366%_)))) + (##cdr _%e204412204640%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd204139204370%_)) - (if (let ((__tmp207673 - |gxc[1]#_g207674_|)) + (gx#identifier? _%hd204413204644%_)) + (if (let ((__tmp207947 + |gxc[1]#_g207948_|)) (declare (not safe)) (gx#free-identifier=? - __tmp207673 - _%hd204139204370%_)) + __tmp207947 + _%hd204413204644%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204140204373%_)) - (let ((_%e204141204376%_ + _%tl204414204647%_)) + (let ((_%e204415204650%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204140204373%_)))) - (let ((_%hd204142204380%_ + _%tl204414204647%_)))) + (let ((_%hd204416204654%_ (let () (declare (not safe)) - (##car _%e204141204376%_))) - (_%tl204143204383%_ + (##car _%e204415204650%_))) + (_%tl204417204657%_ (let () (declare (not safe)) - (##cdr _%e204141204376%_)))) + (##cdr _%e204415204650%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204143204383%_)) + _%tl204417204657%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204137204363%_)) - ((lambda (_%L204386%_ + _%tl204411204637%_)) + ((lambda (_%L204660%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L204388%_ - _%L204389%_ - _%L204390%_ - _%L204391%_) - (if (let () (declare (not safe)) (gx#stx-e _%L204388%_)) - (cons _%L204388%_ + _%L204662%_ + _%L204663%_ + _%L204664%_ + _%L204665%_) + (if (let () (declare (not safe)) (gx#stx-e _%L204662%_)) + (cons _%L204662%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -4685,180 +4685,180 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204390%_ '())) + (cons _%L204664%_ '())) (cons 'origin: (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204386%_ '())) + (cons _%L204660%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '#f)) - _%hd204142204380%_ - _%hd204129204336%_ - _%hd204116204292%_ - _%hd204103204248%_ - _%hd204090204204%_) - (_%g204069204149%_ _%g204070204153%_)) - (_%g204069204149%_ _%g204070204153%_)))) + _%hd204416204654%_ + _%hd204403204610%_ + _%hd204390204566%_ + _%hd204377204522%_ + _%hd204364204478%_) + (_%g204343204423%_ _%g204344204427%_)) + (_%g204343204423%_ _%g204344204427%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g204069204149%_ - _%g204070204153%_)) - (_%g204069204149%_ - _%g204070204153%_)) - (_%g204069204149%_ - _%g204070204153%_)))) - (_%g204069204149%_ _%g204070204153%_)))) - (_%g204069204149%_ _%g204070204153%_)) - (_%g204069204149%_ _%g204070204153%_))) - (_%g204069204149%_ _%g204070204153%_)))) + (_%g204343204423%_ + _%g204344204427%_)) + (_%g204343204423%_ + _%g204344204427%_)) + (_%g204343204423%_ + _%g204344204427%_)))) + (_%g204343204423%_ _%g204344204427%_)))) + (_%g204343204423%_ _%g204344204427%_)) + (_%g204343204423%_ _%g204344204427%_))) + (_%g204343204423%_ _%g204344204427%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g204069204149%_ - _%g204070204153%_)) - (_%g204069204149%_ - _%g204070204153%_)))) - (_%g204069204149%_ _%g204070204153%_)) - (_%g204069204149%_ _%g204070204153%_)) - (_%g204069204149%_ _%g204070204153%_)))) - (_%g204069204149%_ _%g204070204153%_)))) + (_%g204343204423%_ + _%g204344204427%_)) + (_%g204343204423%_ + _%g204344204427%_)))) + (_%g204343204423%_ _%g204344204427%_)) + (_%g204343204423%_ _%g204344204427%_)) + (_%g204343204423%_ _%g204344204427%_)))) + (_%g204343204423%_ _%g204344204427%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g204069204149%_ - _%g204070204153%_)) - (_%g204069204149%_ - _%g204070204153%_))) - (_%g204069204149%_ - _%g204070204153%_)))) - (_%g204069204149%_ _%g204070204153%_)) - (_%g204069204149%_ _%g204070204153%_)))) - (_%g204069204149%_ _%g204070204153%_)) - (_%g204069204149%_ _%g204070204153%_)) + (_%g204343204423%_ + _%g204344204427%_)) + (_%g204343204423%_ + _%g204344204427%_))) + (_%g204343204423%_ + _%g204344204427%_)))) + (_%g204343204423%_ _%g204344204427%_)) + (_%g204343204423%_ _%g204344204427%_)))) + (_%g204343204423%_ _%g204344204427%_)) + (_%g204343204423%_ _%g204344204427%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g204069204149%_ - _%g204070204153%_)))) - (_%g204069204149%_ - _%g204070204153%_)))) - (_%g204069204149%_ _%g204070204153%_)) - (_%g204069204149%_ _%g204070204153%_))) - (_%g204069204149%_ _%g204070204153%_)))) - (_%g204069204149%_ _%g204070204153%_)) - (_%g204069204149%_ _%g204070204153%_)))) + (_%g204343204423%_ + _%g204344204427%_)))) + (_%g204343204423%_ + _%g204344204427%_)))) + (_%g204343204423%_ _%g204344204427%_)) + (_%g204343204423%_ _%g204344204427%_))) + (_%g204343204423%_ _%g204344204427%_)))) + (_%g204343204423%_ _%g204344204427%_)) + (_%g204343204423%_ _%g204344204427%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g204069204149%_ - _%g204070204153%_)) - (_%g204069204149%_ - _%g204070204153%_)) - (_%g204069204149%_ _%g204070204153%_)))) - (_%g204069204149%_ _%g204070204153%_)))) - (_%g204069204149%_ _%g204070204153%_)) - (_%g204069204149%_ _%g204070204153%_))) + (_%g204343204423%_ + _%g204344204427%_)) + (_%g204343204423%_ + _%g204344204427%_)) + (_%g204343204423%_ _%g204344204427%_)))) + (_%g204343204423%_ _%g204344204427%_)))) + (_%g204343204423%_ _%g204344204427%_)) + (_%g204343204423%_ _%g204344204427%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g204069204149%_ - _%g204070204153%_)))) - (_%g204069204149%_ - _%g204070204153%_)) - (_%g204069204149%_ - _%g204070204153%_)))) - (_%g204069204149%_ _%g204070204153%_)) - (_%g204069204149%_ _%g204070204153%_)) - (_%g204069204149%_ _%g204070204153%_)))) - (_%g204069204149%_ _%g204070204153%_)))) + (_%g204343204423%_ + _%g204344204427%_)))) + (_%g204343204423%_ + _%g204344204427%_)) + (_%g204343204423%_ + _%g204344204427%_)))) + (_%g204343204423%_ _%g204344204427%_)) + (_%g204343204423%_ _%g204344204427%_)) + (_%g204343204423%_ _%g204344204427%_)))) + (_%g204343204423%_ _%g204344204427%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g204069204149%_ - _%g204070204153%_)) - (_%g204069204149%_ - _%g204070204153%_))) - (_%g204069204149%_ _%g204070204153%_)))) - (_%g204069204149%_ _%g204070204153%_)))) - (_%g204069204149%_ _%g204070204153%_))))) - (_%g204068204451%_ _%sig204066%_)))) + (_%g204343204423%_ + _%g204344204427%_)) + (_%g204343204423%_ + _%g204344204427%_))) + (_%g204343204423%_ _%g204344204427%_)))) + (_%g204343204423%_ _%g204344204427%_)))) + (_%g204343204423%_ _%g204344204427%_))))) + (_%g204342204725%_ _%sig204340%_)))) (define |gxc[:0:]#declare-primitive-predicate| - (lambda (_%stx205223%_) - (let* ((_%g205226205244%_ - (lambda (_%g205227205240%_) + (lambda (_%stx205497%_) + (let* ((_%g205500205518%_ + (lambda (_%g205501205514%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205227205240%_)))) - (_%g205225205299%_ - (lambda (_%g205227205248%_) + _%g205501205514%_)))) + (_%g205499205573%_ + (lambda (_%g205501205522%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g205227205248%_)) - (let ((_%e205230205251%_ + (gx#stx-pair? _%g205501205522%_)) + (let ((_%e205504205525%_ (let () (declare (not safe)) - (gx#syntax-e _%g205227205248%_)))) - (let ((_%hd205231205255%_ + (gx#syntax-e _%g205501205522%_)))) + (let ((_%hd205505205529%_ (let () (declare (not safe)) - (##car _%e205230205251%_))) - (_%tl205232205258%_ + (##car _%e205504205525%_))) + (_%tl205506205532%_ (let () (declare (not safe)) - (##cdr _%e205230205251%_)))) + (##cdr _%e205504205525%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205232205258%_)) - (let ((_%e205233205261%_ + (gx#stx-pair? _%tl205506205532%_)) + (let ((_%e205507205535%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205232205258%_)))) - (let ((_%hd205234205265%_ + (gx#syntax-e _%tl205506205532%_)))) + (let ((_%hd205508205539%_ (let () (declare (not safe)) - (##car _%e205233205261%_))) - (_%tl205235205268%_ + (##car _%e205507205535%_))) + (_%tl205509205542%_ (let () (declare (not safe)) - (##cdr _%e205233205261%_)))) + (##cdr _%e205507205535%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205235205268%_)) - (let ((_%e205236205271%_ + (gx#stx-pair? _%tl205509205542%_)) + (let ((_%e205510205545%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205235205268%_)))) - (let ((_%hd205237205275%_ + _%tl205509205542%_)))) + (let ((_%hd205511205549%_ (let () (declare (not safe)) - (##car _%e205236205271%_))) - (_%tl205238205278%_ + (##car _%e205510205545%_))) + (_%tl205512205552%_ (let () (declare (not safe)) - (##cdr _%e205236205271%_)))) + (##cdr _%e205510205545%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205238205278%_)) - ((lambda (_%L205281%_ - _%L205283%_) + _%tl205512205552%_)) + ((lambda (_%L205555%_ + _%L205557%_) (if (and (let () (declare (not safe)) (gx#identifier? - _%L205283%_)) + _%L205557%_)) (let () (declare (not safe)) (gx#identifier? - _%L205281%_))) + _%L205555%_))) (begin (|gxc[1]#verify-procedure!| - _%stx205223%_ - _%L205283%_) + _%stx205497%_ + _%L205557%_) (|gxc[1]#verify-class!| - _%stx205223%_ - _%L205281%_) + _%stx205497%_ + _%L205555%_) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L205283%_ + (cons _%L205557%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -4869,268 +4869,268 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205281%_ '())) + (cons _%L205555%_ '())) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205226205244%_ - _%g205227205248%_))) - _%hd205237205275%_ - _%hd205234205265%_) - (_%g205226205244%_ - _%g205227205248%_)))) - (_%g205226205244%_ _%g205227205248%_)))) - (_%g205226205244%_ _%g205227205248%_)))) - (_%g205226205244%_ _%g205227205248%_))))) - (_%g205225205299%_ _%stx205223%_)))) + (_%g205500205518%_ + _%g205501205522%_))) + _%hd205511205549%_ + _%hd205508205539%_) + (_%g205500205518%_ + _%g205501205522%_)))) + (_%g205500205518%_ _%g205501205522%_)))) + (_%g205500205518%_ _%g205501205522%_)))) + (_%g205500205518%_ _%g205501205522%_))))) + (_%g205499205573%_ _%stx205497%_)))) (define |gxc[:0:]#declare-primitive-lambda| - (lambda (_%stx205303%_) - (let* ((_%g205306205330%_ - (lambda (_%g205307205326%_) + (lambda (_%stx205577%_) + (let* ((_%g205580205604%_ + (lambda (_%g205581205600%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205307205326%_)))) - (_%g205305205613%_ - (lambda (_%g205307205334%_) + _%g205581205600%_)))) + (_%g205579205887%_ + (lambda (_%g205581205608%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g205307205334%_)) - (let ((_%e205310205337%_ + (gx#stx-pair? _%g205581205608%_)) + (let ((_%e205584205611%_ (let () (declare (not safe)) - (gx#syntax-e _%g205307205334%_)))) - (let ((_%hd205311205341%_ + (gx#syntax-e _%g205581205608%_)))) + (let ((_%hd205585205615%_ (let () (declare (not safe)) - (##car _%e205310205337%_))) - (_%tl205312205344%_ + (##car _%e205584205611%_))) + (_%tl205586205618%_ (let () (declare (not safe)) - (##cdr _%e205310205337%_)))) + (##cdr _%e205584205611%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205312205344%_)) - (let ((_%e205313205347%_ + (gx#stx-pair? _%tl205586205618%_)) + (let ((_%e205587205621%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205312205344%_)))) - (let ((_%hd205314205351%_ + (gx#syntax-e _%tl205586205618%_)))) + (let ((_%hd205588205625%_ (let () (declare (not safe)) - (##car _%e205313205347%_))) - (_%tl205315205354%_ + (##car _%e205587205621%_))) + (_%tl205589205628%_ (let () (declare (not safe)) - (##cdr _%e205313205347%_)))) + (##cdr _%e205587205621%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205315205354%_)) - (let ((_g207675_ + (gx#stx-pair/null? _%tl205589205628%_)) + (let ((_g207949_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205315205354%_ + _%tl205589205628%_ '0)))) (begin - (let ((_g207676_ + (let ((_g207950_ (let () (declare (not safe)) - (if (##values? _g207675_) + (if (##values? _g207949_) (##vector-length - _g207675_) + _g207949_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g207676_ 2))) + (##fx= _g207950_ 2))) (error "Context expects 2 values" - _g207676_))) - (let ((_%target205316205357%_ + _g207950_))) + (let ((_%target205590205631%_ (let () (declare (not safe)) - (##vector-ref _g207675_ 0))) - (_%tl205318205360%_ + (##vector-ref _g207949_ 0))) + (_%tl205592205634%_ (let () (declare (not safe)) (##vector-ref - _g207675_ + _g207949_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205318205360%_)) - (letrec ((_%loop205319205363%_ - (lambda (_%hd205317205367%_ + _%tl205592205634%_)) + (letrec ((_%loop205593205637%_ + (lambda (_%hd205591205641%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%signature205323205370%_) + _%signature205597205644%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205317205367%_)) - (let ((_%e205320205373%_ + (gx#stx-pair? _%hd205591205641%_)) + (let ((_%e205594205647%_ (let () (declare (not safe)) - (gx#syntax-e _%hd205317205367%_)))) - (let ((_%lp-hd205321205377%_ + (gx#syntax-e _%hd205591205641%_)))) + (let ((_%lp-hd205595205651%_ (let () (declare (not safe)) - (##car _%e205320205373%_))) - (_%lp-tl205322205380%_ + (##car _%e205594205647%_))) + (_%lp-tl205596205654%_ (let () (declare (not safe)) - (##cdr _%e205320205373%_)))) - (_%loop205319205363%_ - _%lp-tl205322205380%_ - (cons _%lp-hd205321205377%_ - _%signature205323205370%_)))) - (let ((_%signature205324205383%_ - (reverse _%signature205323205370%_))) - ((lambda (_%L205387%_ _%L205389%_) + (##cdr _%e205594205647%_)))) + (_%loop205593205637%_ + _%lp-tl205596205654%_ + (cons _%lp-hd205595205651%_ + _%signature205597205644%_)))) + (let ((_%signature205598205657%_ + (reverse _%signature205597205644%_))) + ((lambda (_%L205661%_ _%L205663%_) (if (let () (declare (not safe)) - (gx#identifier? _%L205389%_)) - (let* ((_%g205407205422%_ - (lambda (_%g205408205418%_) + (gx#identifier? _%L205663%_)) + (let* ((_%g205681205696%_ + (lambda (_%g205682205692%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205408205418%_)))) - (_%g205406205601%_ - (lambda (_%g205408205426%_) + _%g205682205692%_)))) + (_%g205680205875%_ + (lambda (_%g205682205700%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g205408205426%_)) - (let ((_%e205411205429%_ + _%g205682205700%_)) + (let ((_%e205685205703%_ (let () (declare (not safe)) (gx#syntax-e - _%g205408205426%_)))) - (let ((_%hd205412205433%_ + _%g205682205700%_)))) + (let ((_%hd205686205707%_ (let () (declare (not safe)) - (##car _%e205411205429%_))) - (_%tl205413205436%_ + (##car _%e205685205703%_))) + (_%tl205687205710%_ (let () (declare (not safe)) - (##cdr _%e205411205429%_)))) + (##cdr _%e205685205703%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205413205436%_)) - (let ((_%e205414205439%_ + _%tl205687205710%_)) + (let ((_%e205688205713%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl205413205436%_)))) - (let ((_%hd205415205443%_ + (gx#syntax-e _%tl205687205710%_)))) + (let ((_%hd205689205717%_ (let () (declare (not safe)) - (##car _%e205414205439%_))) - (_%tl205416205446%_ + (##car _%e205688205713%_))) + (_%tl205690205720%_ (let () (declare (not safe)) - (##cdr _%e205414205439%_)))) + (##cdr _%e205688205713%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205416205446%_)) - ((lambda (_%L205449%_ _%L205451%_) - (let* ((_%g205467205475%_ - (lambda (_%g205468205471%_) + (gx#stx-null? _%tl205690205720%_)) + ((lambda (_%L205723%_ _%L205725%_) + (let* ((_%g205741205749%_ + (lambda (_%g205742205745%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205468205471%_)))) - (_%g205466205597%_ - (lambda (_%g205468205479%_) - ((lambda (_%L205482%_) - (let* ((_%unchecked205495%_ + _%g205742205745%_)))) + (_%g205740205871%_ + (lambda (_%g205742205753%_) + ((lambda (_%L205756%_) + (let* ((_%unchecked205769%_ (|gxc[1]#signature->unchecked-signature| - _%L205449%_)) - (_%g205498205506%_ - (lambda (_%g205499205502%_) + _%L205723%_)) + (_%g205772205780%_ + (lambda (_%g205773205776%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205499205502%_)))) - (_%g205497205529%_ - (lambda (_%g205499205510%_) - ((lambda (_%L205513%_) + _%g205773205776%_)))) + (_%g205771205803%_ + (lambda (_%g205773205784%_) + ((lambda (_%L205787%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (cons _%L205482%_ - (cons _%L205513%_ + (cons _%L205756%_ + (cons _%L205787%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g205499205510%_)))) - (_%g205497205529%_ - (if _%unchecked205495%_ - (let* ((_%g205533205548%_ - (lambda (_%g205534205544%_) + _%g205773205784%_)))) + (_%g205771205803%_ + (if _%unchecked205769%_ + (let* ((_%g205807205822%_ + (lambda (_%g205808205818%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205534205544%_)))) - (_%g205532205593%_ - (lambda (_%g205534205552%_) + _%g205808205818%_)))) + (_%g205806205867%_ + (lambda (_%g205808205826%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g205534205552%_)) - (let ((_%e205537205555%_ + _%g205808205826%_)) + (let ((_%e205811205829%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%g205534205552%_)))) - (let ((_%hd205538205559%_ + (gx#syntax-e _%g205808205826%_)))) + (let ((_%hd205812205833%_ (let () (declare (not safe)) - (##car _%e205537205555%_))) - (_%tl205539205562%_ + (##car _%e205811205829%_))) + (_%tl205813205836%_ (let () (declare (not safe)) - (##cdr _%e205537205555%_)))) + (##cdr _%e205811205829%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205539205562%_)) - (let ((_%e205540205565%_ + (gx#stx-pair? _%tl205813205836%_)) + (let ((_%e205814205839%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205539205562%_)))) - (let ((_%hd205541205569%_ + (gx#syntax-e _%tl205813205836%_)))) + (let ((_%hd205815205843%_ (let () (declare (not safe)) - (##car _%e205540205565%_))) - (_%tl205542205572%_ + (##car _%e205814205839%_))) + (_%tl205816205846%_ (let () (declare (not safe)) - (##cdr _%e205540205565%_)))) + (##cdr _%e205814205839%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205542205572%_)) - ((lambda (_%L205575%_ _%L205577%_) + (gx#stx-null? _%tl205816205846%_)) + ((lambda (_%L205849%_ _%L205851%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L205577%_ + (cons _%L205851%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -5138,26 +5138,26 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205451%_ '())) + (cons _%L205725%_ '())) (cons '#f - (cons 'signature: (cons _%L205575%_ '()))))) + (cons 'signature: (cons _%L205849%_ '()))))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd205541205569%_ - _%hd205538205559%_) - (_%g205533205548%_ _%g205534205552%_)))) - (_%g205533205548%_ _%g205534205552%_)))) - (_%g205533205548%_ _%g205534205552%_))))) + _%hd205815205843%_ + _%hd205812205833%_) + (_%g205807205822%_ _%g205808205826%_)))) + (_%g205807205822%_ _%g205808205826%_)))) + (_%g205807205822%_ _%g205808205826%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205532205593%_ - _%unchecked205495%_)) + (_%g205806205867%_ + _%unchecked205769%_)) '(begin))))) - _%g205468205479%_)))) - (_%g205466205597%_ + _%g205742205753%_)))) + (_%g205740205871%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L205389%_ + (cons _%L205663%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -5167,313 +5167,313 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205451%_ '())) - (cons '#f (cons 'signature: (cons _%L205449%_ '()))))) + (cons _%L205725%_ '())) + (cons '#f (cons 'signature: (cons _%L205723%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - _%hd205415205443%_ - _%hd205412205433%_) - (_%g205407205422%_ _%g205408205426%_)))) - (_%g205407205422%_ _%g205408205426%_)))) + _%hd205689205717%_ + _%hd205686205707%_) + (_%g205681205696%_ _%g205682205700%_)))) + (_%g205681205696%_ _%g205682205700%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205407205422%_ - _%g205408205426%_))))) - (_%g205406205601%_ + (_%g205681205696%_ + _%g205682205700%_))))) + (_%g205680205875%_ (|gxc[1]#parse-signature| - _%stx205303%_ - _%L205389%_ - (let ((__tmp207677 - (lambda (_%g205604205607%_ - _%g205605205610%_) - (cons _%g205604205607%_ - _%g205605205610%_)))) + _%stx205577%_ + _%L205663%_ + (let ((__tmp207951 + (lambda (_%g205878205881%_ + _%g205879205884%_) + (cons _%g205878205881%_ + _%g205879205884%_)))) (declare (not safe)) (__foldr1 - __tmp207677 + __tmp207951 '() - _%L205387%_))))) - (_%g205306205330%_ _%g205307205334%_))) - _%signature205324205383%_ - _%hd205314205351%_)))))) + _%L205661%_))))) + (_%g205580205604%_ _%g205581205608%_))) + _%signature205598205657%_ + _%hd205588205625%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop205319205363%_ - _%target205316205357%_ + (_%loop205593205637%_ + _%target205590205631%_ '())) - (_%g205306205330%_ - _%g205307205334%_))))) - (_%g205306205330%_ _%g205307205334%_)))) - (_%g205306205330%_ _%g205307205334%_)))) - (_%g205306205330%_ _%g205307205334%_))))) - (_%g205305205613%_ _%stx205303%_)))) + (_%g205580205604%_ + _%g205581205608%_))))) + (_%g205580205604%_ _%g205581205608%_)))) + (_%g205580205604%_ _%g205581205608%_)))) + (_%g205580205604%_ _%g205581205608%_))))) + (_%g205579205887%_ _%stx205577%_)))) (define |gxc[:0:]#declare-primitive-case-lambda| - (lambda (_%stx205618%_) - (let* ((_%g205621205645%_ - (lambda (_%g205622205641%_) + (lambda (_%stx205892%_) + (let* ((_%g205895205919%_ + (lambda (_%g205896205915%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205622205641%_)))) - (_%g205620206528%_ - (lambda (_%g205622205649%_) + _%g205896205915%_)))) + (_%g205894206802%_ + (lambda (_%g205896205923%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g205622205649%_)) - (let ((_%e205625205652%_ + (gx#stx-pair? _%g205896205923%_)) + (let ((_%e205899205926%_ (let () (declare (not safe)) - (gx#syntax-e _%g205622205649%_)))) - (let ((_%hd205626205656%_ + (gx#syntax-e _%g205896205923%_)))) + (let ((_%hd205900205930%_ (let () (declare (not safe)) - (##car _%e205625205652%_))) - (_%tl205627205659%_ + (##car _%e205899205926%_))) + (_%tl205901205933%_ (let () (declare (not safe)) - (##cdr _%e205625205652%_)))) + (##cdr _%e205899205926%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205627205659%_)) - (let ((_%e205628205662%_ + (gx#stx-pair? _%tl205901205933%_)) + (let ((_%e205902205936%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205627205659%_)))) - (let ((_%hd205629205666%_ + (gx#syntax-e _%tl205901205933%_)))) + (let ((_%hd205903205940%_ (let () (declare (not safe)) - (##car _%e205628205662%_))) - (_%tl205630205669%_ + (##car _%e205902205936%_))) + (_%tl205904205943%_ (let () (declare (not safe)) - (##cdr _%e205628205662%_)))) + (##cdr _%e205902205936%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205630205669%_)) - (let ((_g207678_ + (gx#stx-pair/null? _%tl205904205943%_)) + (let ((_g207952_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205630205669%_ + _%tl205904205943%_ '0)))) (begin - (let ((_g207679_ + (let ((_g207953_ (let () (declare (not safe)) - (if (##values? _g207678_) + (if (##values? _g207952_) (##vector-length - _g207678_) + _g207952_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g207679_ 2))) + (##fx= _g207953_ 2))) (error "Context expects 2 values" - _g207679_))) - (let ((_%target205631205672%_ + _g207953_))) + (let ((_%target205905205946%_ (let () (declare (not safe)) - (##vector-ref _g207678_ 0))) - (_%tl205633205675%_ + (##vector-ref _g207952_ 0))) + (_%tl205907205949%_ (let () (declare (not safe)) (##vector-ref - _g207678_ + _g207952_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205633205675%_)) - (letrec ((_%loop205634205678%_ - (lambda (_%hd205632205682%_ + _%tl205907205949%_)) + (letrec ((_%loop205908205952%_ + (lambda (_%hd205906205956%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%case-signature205638205685%_) + _%case-signature205912205959%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205632205682%_)) - (let ((_%e205635205688%_ + (gx#stx-pair? _%hd205906205956%_)) + (let ((_%e205909205962%_ (let () (declare (not safe)) - (gx#syntax-e _%hd205632205682%_)))) - (let ((_%lp-hd205636205692%_ + (gx#syntax-e _%hd205906205956%_)))) + (let ((_%lp-hd205910205966%_ (let () (declare (not safe)) - (##car _%e205635205688%_))) - (_%lp-tl205637205695%_ + (##car _%e205909205962%_))) + (_%lp-tl205911205969%_ (let () (declare (not safe)) - (##cdr _%e205635205688%_)))) - (_%loop205634205678%_ - _%lp-tl205637205695%_ - (cons _%lp-hd205636205692%_ - _%case-signature205638205685%_)))) - (let ((_%case-signature205639205698%_ - (reverse _%case-signature205638205685%_))) - ((lambda (_%L205702%_ _%L205704%_) + (##cdr _%e205909205962%_)))) + (_%loop205908205952%_ + _%lp-tl205911205969%_ + (cons _%lp-hd205910205966%_ + _%case-signature205912205959%_)))) + (let ((_%case-signature205913205972%_ + (reverse _%case-signature205912205959%_))) + ((lambda (_%L205976%_ _%L205978%_) (if (let () (declare (not safe)) - (gx#identifier? _%L205704%_)) - (let* ((_%signatures205735%_ - (map (lambda (_%g205721205723%_) + (gx#identifier? _%L205978%_)) + (let* ((_%signatures206009%_ + (map (lambda (_%g205995205997%_) (|gxc[1]#parse-signature| - _%stx205618%_ - _%L205704%_ - _%g205721205723%_)) - (let ((__tmp207680 - (lambda (_%g205726205729%_ - _%g205727205732%_) - (cons _%g205726205729%_ - _%g205727205732%_)))) + _%stx205892%_ + _%L205978%_ + _%g205995205997%_)) + (let ((__tmp207954 + (lambda (_%g206000206003%_ + _%g206001206006%_) + (cons _%g206000206003%_ + _%g206001206006%_)))) (declare (not safe)) (__foldr1 - __tmp207680 + __tmp207954 '() - _%L205702%_)))) - (_%g205738205764%_ - (lambda (_%g205739205760%_) + _%L205976%_)))) + (_%g206012206038%_ + (lambda (_%g206013206034%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205739205760%_)))) - (_%g205737206524%_ - (lambda (_%g205739205768%_) + _%g206013206034%_)))) + (_%g206011206798%_ + (lambda (_%g206013206042%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g205739205768%_)) - (let ((_g207681_ + _%g206013206042%_)) + (let ((_g207955_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g205739205768%_ + _%g206013206042%_ '0)))) (begin - (let ((_g207682_ + (let ((_g207956_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g207681_) - (##vector-length _g207681_) + _g207955_) + (##vector-length _g207955_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g207682_ 2))) - (error "Context expects 2 values" _g207682_))) + (##fx= _g207956_ 2))) + (error "Context expects 2 values" _g207956_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target205742205771%_ + (let ((_%target206016206045%_ (let () (declare (not safe)) (##vector-ref - _g207681_ + _g207955_ 0))) - (_%tl205744205774%_ + (_%tl206018206048%_ (let () (declare (not safe)) (##vector-ref - _g207681_ + _g207955_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205744205774%_)) - (letrec ((_%loop205745205777%_ + _%tl206018206048%_)) + (letrec ((_%loop206019206051%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd205743205781%_ - _%sig205749205784%_ - _%arity205750205786%_) + (lambda (_%hd206017206055%_ + _%sig206023206058%_ + _%arity206024206060%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205743205781%_)) - (let ((_%e205746205789%_ + (gx#stx-pair? _%hd206017206055%_)) + (let ((_%e206020206063%_ (let () (declare (not safe)) - (gx#syntax-e _%hd205743205781%_)))) - (let ((_%lp-hd205747205793%_ + (gx#syntax-e _%hd206017206055%_)))) + (let ((_%lp-hd206021206067%_ (let () (declare (not safe)) - (##car _%e205746205789%_))) - (_%lp-tl205748205796%_ + (##car _%e206020206063%_))) + (_%lp-tl206022206070%_ (let () (declare (not safe)) - (##cdr _%e205746205789%_)))) + (##cdr _%e206020206063%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd205747205793%_)) - (let ((_%e205753205799%_ + _%lp-hd206021206067%_)) + (let ((_%e206027206073%_ (let () (declare (not safe)) (gx#syntax-e - _%lp-hd205747205793%_)))) - (let ((_%hd205754205803%_ + _%lp-hd206021206067%_)))) + (let ((_%hd206028206077%_ (let () (declare (not safe)) - (##car _%e205753205799%_))) - (_%tl205755205806%_ + (##car _%e206027206073%_))) + (_%tl206029206080%_ (let () (declare (not safe)) - (##cdr _%e205753205799%_)))) + (##cdr _%e206027206073%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205755205806%_)) - (let ((_%e205756205809%_ + _%tl206029206080%_)) + (let ((_%e206030206083%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205755205806%_)))) - (let ((_%hd205757205813%_ + _%tl206029206080%_)))) + (let ((_%hd206031206087%_ (let () (declare (not safe)) - (##car _%e205756205809%_))) - (_%tl205758205816%_ + (##car _%e206030206083%_))) + (_%tl206032206090%_ (let () (declare (not safe)) - (##cdr _%e205756205809%_)))) + (##cdr _%e206030206083%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205758205816%_)) - (_%loop205745205777%_ - _%lp-tl205748205796%_ - (cons _%hd205757205813%_ - _%sig205749205784%_) - (cons _%hd205754205803%_ - _%arity205750205786%_)) - (_%g205738205764%_ - _%g205739205768%_)))) - (_%g205738205764%_ - _%g205739205768%_)))) - (_%g205738205764%_ - _%g205739205768%_)))) - (let ((_%sig205751205819%_ - (reverse _%sig205749205784%_)) - (_%arity205752205822%_ - (reverse _%arity205750205786%_))) - ((lambda (_%L205825%_ _%L205827%_) - (let* ((_%g205844205852%_ - (lambda (_%g205845205848%_) + _%tl206032206090%_)) + (_%loop206019206051%_ + _%lp-tl206022206070%_ + (cons _%hd206031206087%_ + _%sig206023206058%_) + (cons _%hd206028206077%_ + _%arity206024206060%_)) + (_%g206012206038%_ + _%g206013206042%_)))) + (_%g206012206038%_ + _%g206013206042%_)))) + (_%g206012206038%_ + _%g206013206042%_)))) + (let ((_%sig206025206093%_ + (reverse _%sig206023206058%_)) + (_%arity206026206096%_ + (reverse _%arity206024206060%_))) + ((lambda (_%L206099%_ _%L206101%_) + (let* ((_%g206118206126%_ + (lambda (_%g206119206122%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205845205848%_)))) - (_%g205843206509%_ - (lambda (_%g205845205856%_) - ((lambda (_%L205859%_) - (let* ((_%g205872205880%_ - (lambda (_%g205873205876%_) + _%g206119206122%_)))) + (_%g206117206783%_ + (lambda (_%g206119206130%_) + ((lambda (_%L206133%_) + (let* ((_%g206146206154%_ + (lambda (_%g206147206150%_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -5481,551 +5481,551 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205873205876%_)))) - (_%g205871205902%_ - (lambda (_%g205873205884%_) - ((lambda (_%L205887%_) + _%g206147206150%_)))) + (_%g206145206176%_ + (lambda (_%g206147206158%_) + ((lambda (_%L206161%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (cons _%L205859%_ (cons _%L205887%_ '())))) - _%g205873205884%_)))) + (cons _%L206133%_ (cons _%L206161%_ '())))) + _%g206147206158%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205871205902%_ - (let ((_g207683_ - (let _%loop205906%_ ((_%rest205909%_ + (_%g206145206176%_ + (let ((_g207957_ + (let _%loop206180%_ ((_%rest206183%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%signatures205735%_) - (_%unchecked-proc205911%_ '#f) - (_%unchecked-clauses205912%_ '())) - (let* ((_%rest205913205921%_ _%rest205909%_) - (_%else205915205933%_ + _%signatures206009%_) + (_%unchecked-proc206185%_ '#f) + (_%unchecked-clauses206186%_ '())) + (let* ((_%rest206187206195%_ _%rest206183%_) + (_%else206189206207%_ (lambda () - (values _%unchecked-proc205911%_ + (values _%unchecked-proc206185%_ (reverse! - _%unchecked-clauses205912%_)))) - (_%K205917206374%_ - (lambda (_%rest205937%_ _%hd205939%_) - (let* ((_%g205941206028%_ - (lambda (_%g205942206024%_) + _%unchecked-clauses206186%_)))) + (_%K206191206648%_ + (lambda (_%rest206211%_ _%hd206213%_) + (let* ((_%g206215206302%_ + (lambda (_%g206216206298%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205942206024%_)))) - (_%g205940206370%_ - (lambda (_%g205942206032%_) + _%g206216206298%_)))) + (_%g206214206644%_ + (lambda (_%g206216206306%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g205942206032%_)) - (let ((_%e205949206035%_ + _%g206216206306%_)) + (let ((_%e206223206309%_ (let () (declare (not safe)) (gx#syntax-e - _%g205942206032%_)))) - (let ((_%hd205950206039%_ + _%g206216206306%_)))) + (let ((_%hd206224206313%_ (let () (declare (not safe)) - (##car _%e205949206035%_))) - (_%tl205951206042%_ + (##car _%e206223206309%_))) + (_%tl206225206316%_ (let () (declare (not safe)) - (##cdr _%e205949206035%_)))) + (##cdr _%e206223206309%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205951206042%_)) - (let ((_%e205952206045%_ + _%tl206225206316%_)) + (let ((_%e206226206319%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl205951206042%_)))) - (let ((_%hd205953206049%_ + (gx#syntax-e _%tl206225206316%_)))) + (let ((_%hd206227206323%_ (let () (declare (not safe)) - (##car _%e205952206045%_))) - (_%tl205954206052%_ + (##car _%e206226206319%_))) + (_%tl206228206326%_ (let () (declare (not safe)) - (##cdr _%e205952206045%_)))) + (##cdr _%e206226206319%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205953206049%_)) - (let ((_%e205955206055%_ + (gx#stx-pair? _%hd206227206323%_)) + (let ((_%e206229206329%_ (let () (declare (not safe)) - (gx#syntax-e _%hd205953206049%_)))) - (let ((_%hd205956206059%_ + (gx#syntax-e _%hd206227206323%_)))) + (let ((_%hd206230206333%_ (let () (declare (not safe)) - (##car _%e205955206055%_))) - (_%tl205957206062%_ + (##car _%e206229206329%_))) + (_%tl206231206336%_ (let () (declare (not safe)) - (##cdr _%e205955206055%_)))) + (##cdr _%e206229206329%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205957206062%_)) - (let ((_%e205958206065%_ + (gx#stx-pair? _%tl206231206336%_)) + (let ((_%e206232206339%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205957206062%_)))) - (let ((_%hd205959206069%_ + (gx#syntax-e _%tl206231206336%_)))) + (let ((_%hd206233206343%_ (let () (declare (not safe)) - (##car _%e205958206065%_))) - (_%tl205960206072%_ + (##car _%e206232206339%_))) + (_%tl206234206346%_ (let () (declare (not safe)) - (##cdr _%e205958206065%_)))) + (##cdr _%e206232206339%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd205959206069%_)) - (let ((_%e205961206075%_ + (gx#stx-datum? _%hd206233206343%_)) + (let ((_%e206235206349%_ (let () (declare (not safe)) (gx#stx-e - _%hd205959206069%_)))) - (if (equal? _%e205961206075%_ + _%hd206233206343%_)))) + (if (equal? _%e206235206349%_ 'arguments:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205960206072%_)) - (let ((_%e205962206079%_ + _%tl206234206346%_)) + (let ((_%e206236206353%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205960206072%_)))) - (let ((_%hd205963206083%_ + _%tl206234206346%_)))) + (let ((_%hd206237206357%_ (let () (declare (not safe)) - (##car _%e205962206079%_))) - (_%tl205964206086%_ + (##car _%e206236206353%_))) + (_%tl206238206360%_ (let () (declare (not safe)) - (##cdr _%e205962206079%_)))) + (##cdr _%e206236206353%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd205963206083%_)) - (let ((_%e205965206089%_ + _%hd206237206357%_)) + (let ((_%e206239206363%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd205963206083%_)))) - (let ((_%hd205966206093%_ + (gx#syntax-e _%hd206237206357%_)))) + (let ((_%hd206240206367%_ (let () (declare (not safe)) - (##car _%e205965206089%_))) - (_%tl205967206096%_ + (##car _%e206239206363%_))) + (_%tl206241206370%_ (let () (declare (not safe)) - (##cdr _%e205965206089%_)))) + (##cdr _%e206239206363%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd205966206093%_)) - (if (let ((__tmp207685 |gxc[1]#_g207686_|)) + (gx#identifier? _%hd206240206367%_)) + (if (let ((__tmp207959 |gxc[1]#_g207960_|)) (declare (not safe)) (gx#free-identifier=? - __tmp207685 - _%hd205966206093%_)) + __tmp207959 + _%hd206240206367%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205967206096%_)) - (let ((_%e205968206099%_ + (gx#stx-pair? _%tl206241206370%_)) + (let ((_%e206242206373%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205967206096%_)))) - (let ((_%hd205969206103%_ + (gx#syntax-e _%tl206241206370%_)))) + (let ((_%hd206243206377%_ (let () (declare (not safe)) - (##car _%e205968206099%_))) - (_%tl205970206106%_ + (##car _%e206242206373%_))) + (_%tl206244206380%_ (let () (declare (not safe)) - (##cdr _%e205968206099%_)))) + (##cdr _%e206242206373%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205970206106%_)) + (gx#stx-null? _%tl206244206380%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205964206086%_)) - (let ((_%e205971206109%_ + _%tl206238206360%_)) + (let ((_%e206245206383%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205964206086%_)))) - (let ((_%hd205972206113%_ + _%tl206238206360%_)))) + (let ((_%hd206246206387%_ (let () (declare (not safe)) - (##car _%e205971206109%_))) - (_%tl205973206116%_ + (##car _%e206245206383%_))) + (_%tl206247206390%_ (let () (declare (not safe)) - (##cdr _%e205971206109%_)))) + (##cdr _%e206245206383%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd205972206113%_)) - (let ((_%e205974206119%_ + _%hd206246206387%_)) + (let ((_%e206248206393%_ (let () (declare (not safe)) (gx#stx-e - _%hd205972206113%_)))) - (if (equal? _%e205974206119%_ + _%hd206246206387%_)))) + (if (equal? _%e206248206393%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'return:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205973206116%_)) - (let ((_%e205975206123%_ + (gx#stx-pair? _%tl206247206390%_)) + (let ((_%e206249206397%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205973206116%_)))) - (let ((_%hd205976206127%_ + (gx#syntax-e _%tl206247206390%_)))) + (let ((_%hd206250206401%_ (let () (declare (not safe)) - (##car _%e205975206123%_))) - (_%tl205977206130%_ + (##car _%e206249206397%_))) + (_%tl206251206404%_ (let () (declare (not safe)) - (##cdr _%e205975206123%_)))) + (##cdr _%e206249206397%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205976206127%_)) - (let ((_%e205978206133%_ + (gx#stx-pair? _%hd206250206401%_)) + (let ((_%e206252206407%_ (let () (declare (not safe)) - (gx#syntax-e _%hd205976206127%_)))) - (let ((_%hd205979206137%_ + (gx#syntax-e _%hd206250206401%_)))) + (let ((_%hd206253206411%_ (let () (declare (not safe)) - (##car _%e205978206133%_))) - (_%tl205980206140%_ + (##car _%e206252206407%_))) + (_%tl206254206414%_ (let () (declare (not safe)) - (##cdr _%e205978206133%_)))) + (##cdr _%e206252206407%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd205979206137%_)) - (if (let ((__tmp207687 - |gxc[1]#_g207688_|)) + (gx#identifier? _%hd206253206411%_)) + (if (let ((__tmp207961 + |gxc[1]#_g207962_|)) (declare (not safe)) (gx#free-identifier=? - __tmp207687 - _%hd205979206137%_)) + __tmp207961 + _%hd206253206411%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205980206140%_)) - (let ((_%e205981206143%_ + _%tl206254206414%_)) + (let ((_%e206255206417%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205980206140%_)))) - (let ((_%hd205982206147%_ + _%tl206254206414%_)))) + (let ((_%hd206256206421%_ (let () (declare (not safe)) - (##car _%e205981206143%_))) - (_%tl205983206150%_ + (##car _%e206255206417%_))) + (_%tl206257206424%_ (let () (declare (not safe)) - (##cdr _%e205981206143%_)))) + (##cdr _%e206255206417%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205983206150%_)) + _%tl206257206424%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205977206130%_)) - (let ((_%e205984206153%_ + _%tl206251206404%_)) + (let ((_%e206258206427%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl205977206130%_)))) - (let ((_%hd205985206157%_ + (gx#syntax-e _%tl206251206404%_)))) + (let ((_%hd206259206431%_ (let () (declare (not safe)) - (##car _%e205984206153%_))) - (_%tl205986206160%_ + (##car _%e206258206427%_))) + (_%tl206260206434%_ (let () (declare (not safe)) - (##cdr _%e205984206153%_)))) + (##cdr _%e206258206427%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd205985206157%_)) - (let ((_%e205987206163%_ + (gx#stx-datum? _%hd206259206431%_)) + (let ((_%e206261206437%_ (let () (declare (not safe)) - (gx#stx-e _%hd205985206157%_)))) - (if (equal? _%e205987206163%_ 'effect:) + (gx#stx-e _%hd206259206431%_)))) + (if (equal? _%e206261206437%_ 'effect:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205986206160%_)) - (let ((_%e205988206167%_ + (gx#stx-pair? _%tl206260206434%_)) + (let ((_%e206262206441%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205986206160%_)))) - (let ((_%hd205989206171%_ + _%tl206260206434%_)))) + (let ((_%hd206263206445%_ (let () (declare (not safe)) - (##car _%e205988206167%_))) - (_%tl205990206174%_ + (##car _%e206262206441%_))) + (_%tl206264206448%_ (let () (declare (not safe)) - (##cdr _%e205988206167%_)))) + (##cdr _%e206262206441%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd205989206171%_)) - (let ((_%e205991206177%_ + _%hd206263206445%_)) + (let ((_%e206265206451%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205989206171%_)))) - (let ((_%hd205992206181%_ + _%hd206263206445%_)))) + (let ((_%hd206266206455%_ (let () (declare (not safe)) - (##car _%e205991206177%_))) - (_%tl205993206184%_ + (##car _%e206265206451%_))) + (_%tl206267206458%_ (let () (declare (not safe)) - (##cdr _%e205991206177%_)))) + (##cdr _%e206265206451%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd205992206181%_)) - (if (let ((__tmp207689 - |gxc[1]#_g207690_|)) + _%hd206266206455%_)) + (if (let ((__tmp207963 + |gxc[1]#_g207964_|)) (declare (not safe)) (gx#free-identifier=? - __tmp207689 - _%hd205992206181%_)) + __tmp207963 + _%hd206266206455%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl205993206184%_)) - (let ((_%e205994206187%_ + (gx#stx-pair? _%tl206267206458%_)) + (let ((_%e206268206461%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205993206184%_)))) - (let ((_%hd205995206191%_ + (gx#syntax-e _%tl206267206458%_)))) + (let ((_%hd206269206465%_ (let () (declare (not safe)) - (##car _%e205994206187%_))) - (_%tl205996206194%_ + (##car _%e206268206461%_))) + (_%tl206270206468%_ (let () (declare (not safe)) - (##cdr _%e205994206187%_)))) + (##cdr _%e206268206461%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205996206194%_)) + (gx#stx-null? _%tl206270206468%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205990206174%_)) - (let ((_%e205997206197%_ + (gx#stx-pair? _%tl206264206448%_)) + (let ((_%e206271206471%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205990206174%_)))) - (let ((_%hd205998206201%_ + (gx#syntax-e _%tl206264206448%_)))) + (let ((_%hd206272206475%_ (let () (declare (not safe)) - (##car _%e205997206197%_))) - (_%tl205999206204%_ + (##car _%e206271206471%_))) + (_%tl206273206478%_ (let () (declare (not safe)) - (##cdr _%e205997206197%_)))) + (##cdr _%e206271206471%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd205998206201%_)) - (let ((_%e206000206207%_ + (gx#stx-datum? _%hd206272206475%_)) + (let ((_%e206274206481%_ (let () (declare (not safe)) (gx#stx-e - _%hd205998206201%_)))) - (if (equal? _%e206000206207%_ + _%hd206272206475%_)))) + (if (equal? _%e206274206481%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205999206204%_)) - (let ((_%e206001206211%_ + _%tl206273206478%_)) + (let ((_%e206275206485%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205999206204%_)))) - (let ((_%hd206002206215%_ + _%tl206273206478%_)))) + (let ((_%hd206276206489%_ (let () (declare (not safe)) - (##car _%e206001206211%_))) - (_%tl206003206218%_ + (##car _%e206275206485%_))) + (_%tl206277206492%_ (let () (declare (not safe)) - (##cdr _%e206001206211%_)))) + (##cdr _%e206275206485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd206002206215%_)) - (let ((_%e206004206221%_ + _%hd206276206489%_)) + (let ((_%e206278206495%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%hd206002206215%_)))) - (let ((_%hd206005206225%_ + (gx#syntax-e _%hd206276206489%_)))) + (let ((_%hd206279206499%_ (let () (declare (not safe)) - (##car _%e206004206221%_))) - (_%tl206006206228%_ + (##car _%e206278206495%_))) + (_%tl206280206502%_ (let () (declare (not safe)) - (##cdr _%e206004206221%_)))) + (##cdr _%e206278206495%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd206005206225%_)) - (if (let ((__tmp207691 |gxc[1]#_g207692_|)) + (gx#identifier? _%hd206279206499%_)) + (if (let ((__tmp207965 |gxc[1]#_g207966_|)) (declare (not safe)) (gx#free-identifier=? - __tmp207691 - _%hd206005206225%_)) + __tmp207965 + _%hd206279206499%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206006206228%_)) - (let ((_%e206007206231%_ + (gx#stx-pair? _%tl206280206502%_)) + (let ((_%e206281206505%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206006206228%_)))) - (let ((_%hd206008206235%_ + (gx#syntax-e _%tl206280206502%_)))) + (let ((_%hd206282206509%_ (let () (declare (not safe)) - (##car _%e206007206231%_))) - (_%tl206009206238%_ + (##car _%e206281206505%_))) + (_%tl206283206512%_ (let () (declare (not safe)) - (##cdr _%e206007206231%_)))) + (##cdr _%e206281206505%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206009206238%_)) + (gx#stx-null? _%tl206283206512%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206003206218%_)) - (let ((_%e206010206241%_ + _%tl206277206492%_)) + (let ((_%e206284206515%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206003206218%_)))) - (let ((_%hd206011206245%_ + _%tl206277206492%_)))) + (let ((_%hd206285206519%_ (let () (declare (not safe)) - (##car _%e206010206241%_))) - (_%tl206012206248%_ + (##car _%e206284206515%_))) + (_%tl206286206522%_ (let () (declare (not safe)) - (##cdr _%e206010206241%_)))) + (##cdr _%e206284206515%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd206011206245%_)) - (let ((_%e206013206251%_ + _%hd206285206519%_)) + (let ((_%e206287206525%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd206011206245%_)))) - (if (equal? _%e206013206251%_ 'origin:) + (gx#stx-e _%hd206285206519%_)))) + (if (equal? _%e206287206525%_ 'origin:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206012206248%_)) - (let ((_%e206014206255%_ + (gx#stx-pair? _%tl206286206522%_)) + (let ((_%e206288206529%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206012206248%_)))) - (let ((_%hd206015206259%_ + (gx#syntax-e _%tl206286206522%_)))) + (let ((_%hd206289206533%_ (let () (declare (not safe)) - (##car _%e206014206255%_))) - (_%tl206016206262%_ + (##car _%e206288206529%_))) + (_%tl206290206536%_ (let () (declare (not safe)) - (##cdr _%e206014206255%_)))) + (##cdr _%e206288206529%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd206015206259%_)) - (let ((_%e206017206265%_ + (gx#stx-pair? _%hd206289206533%_)) + (let ((_%e206291206539%_ (let () (declare (not safe)) - (gx#syntax-e _%hd206015206259%_)))) - (let ((_%hd206018206269%_ + (gx#syntax-e _%hd206289206533%_)))) + (let ((_%hd206292206543%_ (let () (declare (not safe)) - (##car _%e206017206265%_))) - (_%tl206019206272%_ + (##car _%e206291206539%_))) + (_%tl206293206546%_ (let () (declare (not safe)) - (##cdr _%e206017206265%_)))) + (##cdr _%e206291206539%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd206018206269%_)) - (if (let ((__tmp207693 - |gxc[1]#_g207694_|)) + (gx#identifier? _%hd206292206543%_)) + (if (let ((__tmp207967 + |gxc[1]#_g207968_|)) (declare (not safe)) (gx#free-identifier=? - __tmp207693 - _%hd206018206269%_)) + __tmp207967 + _%hd206292206543%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206019206272%_)) - (let ((_%e206020206275%_ + _%tl206293206546%_)) + (let ((_%e206294206549%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206019206272%_)))) - (let ((_%hd206021206279%_ + _%tl206293206546%_)))) + (let ((_%hd206295206553%_ (let () (declare (not safe)) - (##car _%e206020206275%_))) - (_%tl206022206282%_ + (##car _%e206294206549%_))) + (_%tl206296206556%_ (let () (declare (not safe)) - (##cdr _%e206020206275%_)))) + (##cdr _%e206294206549%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl206022206282%_)) + _%tl206296206556%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl206016206262%_)) + (gx#stx-null? _%tl206290206536%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205954206052%_)) - ((lambda (_%L206285%_ - _%L206287%_ - _%L206288%_ - _%L206289%_ - _%L206290%_ - _%L206291%_) - (let ((_%clause206362%_ + (gx#stx-null? _%tl206228206326%_)) + ((lambda (_%L206559%_ + _%L206561%_ + _%L206562%_ + _%L206563%_ + _%L206564%_ + _%L206565%_) + (let ((_%clause206636%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6036,7 +6036,7 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206291%_ '())) + (cons _%L206565%_ '())) (cons '#f (cons 'signature: (cons (cons (let () @@ -6049,258 +6049,258 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206289%_ '())) + (cons _%L206563%_ '())) (cons 'origin: (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206285%_ '())) + (cons _%L206559%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%unchecked206364%_ + (_%unchecked206638%_ (let () (declare (not safe)) - (gx#stx-e _%L206287%_)))) - (_%loop205906%_ - _%rest205937%_ - (let ((_%$e206366%_ _%unchecked206364%_)) - (if _%$e206366%_ - _%$e206366%_ - _%unchecked-proc205911%_)) - (cons _%clause206362%_ - _%unchecked-clauses205912%_)))) - _%hd206021206279%_ - _%hd206008206235%_ - _%hd205995206191%_ - _%hd205982206147%_ - _%hd205969206103%_ - _%hd205950206039%_) - (_%g205941206028%_ _%g205942206032%_)) - (_%g205941206028%_ _%g205942206032%_)) - (_%g205941206028%_ _%g205942206032%_)))) + (gx#stx-e _%L206561%_)))) + (_%loop206180%_ + _%rest206211%_ + (let ((_%$e206640%_ _%unchecked206638%_)) + (if _%$e206640%_ + _%$e206640%_ + _%unchecked-proc206185%_)) + (cons _%clause206636%_ + _%unchecked-clauses206186%_)))) + _%hd206295206553%_ + _%hd206282206509%_ + _%hd206269206465%_ + _%hd206256206421%_ + _%hd206243206377%_ + _%hd206224206313%_) + (_%g206215206302%_ _%g206216206306%_)) + (_%g206215206302%_ _%g206216206306%_)) + (_%g206215206302%_ _%g206216206306%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205941206028%_ - _%g205942206032%_)) - (_%g205941206028%_ - _%g205942206032%_)) - (_%g205941206028%_ - _%g205942206032%_)))) - (_%g205941206028%_ _%g205942206032%_)))) - (_%g205941206028%_ _%g205942206032%_)) - (_%g205941206028%_ _%g205942206032%_))) - (_%g205941206028%_ _%g205942206032%_)))) + (_%g206215206302%_ + _%g206216206306%_)) + (_%g206215206302%_ + _%g206216206306%_)) + (_%g206215206302%_ + _%g206216206306%_)))) + (_%g206215206302%_ _%g206216206306%_)))) + (_%g206215206302%_ _%g206216206306%_)) + (_%g206215206302%_ _%g206216206306%_))) + (_%g206215206302%_ _%g206216206306%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205941206028%_ - _%g205942206032%_)) - (_%g205941206028%_ - _%g205942206032%_)))) - (_%g205941206028%_ _%g205942206032%_)) - (_%g205941206028%_ _%g205942206032%_)) - (_%g205941206028%_ _%g205942206032%_)))) - (_%g205941206028%_ _%g205942206032%_)))) + (_%g206215206302%_ + _%g206216206306%_)) + (_%g206215206302%_ + _%g206216206306%_)))) + (_%g206215206302%_ _%g206216206306%_)) + (_%g206215206302%_ _%g206216206306%_)) + (_%g206215206302%_ _%g206216206306%_)))) + (_%g206215206302%_ _%g206216206306%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205941206028%_ - _%g205942206032%_)) - (_%g205941206028%_ - _%g205942206032%_))) - (_%g205941206028%_ - _%g205942206032%_)))) - (_%g205941206028%_ _%g205942206032%_)) - (_%g205941206028%_ _%g205942206032%_)))) - (_%g205941206028%_ _%g205942206032%_)) - (_%g205941206028%_ _%g205942206032%_)) + (_%g206215206302%_ + _%g206216206306%_)) + (_%g206215206302%_ + _%g206216206306%_))) + (_%g206215206302%_ + _%g206216206306%_)))) + (_%g206215206302%_ _%g206216206306%_)) + (_%g206215206302%_ _%g206216206306%_)))) + (_%g206215206302%_ _%g206216206306%_)) + (_%g206215206302%_ _%g206216206306%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205941206028%_ - _%g205942206032%_)))) - (_%g205941206028%_ - _%g205942206032%_)))) - (_%g205941206028%_ _%g205942206032%_)) - (_%g205941206028%_ _%g205942206032%_))) - (_%g205941206028%_ _%g205942206032%_)))) - (_%g205941206028%_ _%g205942206032%_)) - (_%g205941206028%_ _%g205942206032%_)))) + (_%g206215206302%_ + _%g206216206306%_)))) + (_%g206215206302%_ + _%g206216206306%_)))) + (_%g206215206302%_ _%g206216206306%_)) + (_%g206215206302%_ _%g206216206306%_))) + (_%g206215206302%_ _%g206216206306%_)))) + (_%g206215206302%_ _%g206216206306%_)) + (_%g206215206302%_ _%g206216206306%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205941206028%_ - _%g205942206032%_)) - (_%g205941206028%_ - _%g205942206032%_)) - (_%g205941206028%_ _%g205942206032%_)))) - (_%g205941206028%_ _%g205942206032%_)))) - (_%g205941206028%_ _%g205942206032%_)) - (_%g205941206028%_ _%g205942206032%_))) + (_%g206215206302%_ + _%g206216206306%_)) + (_%g206215206302%_ + _%g206216206306%_)) + (_%g206215206302%_ _%g206216206306%_)))) + (_%g206215206302%_ _%g206216206306%_)))) + (_%g206215206302%_ _%g206216206306%_)) + (_%g206215206302%_ _%g206216206306%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205941206028%_ - _%g205942206032%_)))) - (_%g205941206028%_ - _%g205942206032%_)) - (_%g205941206028%_ - _%g205942206032%_)))) - (_%g205941206028%_ _%g205942206032%_)) - (_%g205941206028%_ _%g205942206032%_)) - (_%g205941206028%_ _%g205942206032%_)))) - (_%g205941206028%_ _%g205942206032%_)))) + (_%g206215206302%_ + _%g206216206306%_)))) + (_%g206215206302%_ + _%g206216206306%_)) + (_%g206215206302%_ + _%g206216206306%_)))) + (_%g206215206302%_ _%g206216206306%_)) + (_%g206215206302%_ _%g206216206306%_)) + (_%g206215206302%_ _%g206216206306%_)))) + (_%g206215206302%_ _%g206216206306%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205941206028%_ - _%g205942206032%_)) - (_%g205941206028%_ - _%g205942206032%_))) - (_%g205941206028%_ _%g205942206032%_)))) - (_%g205941206028%_ _%g205942206032%_)))) - (_%g205941206028%_ _%g205942206032%_)))) - (_%g205941206028%_ _%g205942206032%_)))) + (_%g206215206302%_ + _%g206216206306%_)) + (_%g206215206302%_ + _%g206216206306%_))) + (_%g206215206302%_ _%g206216206306%_)))) + (_%g206215206302%_ _%g206216206306%_)))) + (_%g206215206302%_ _%g206216206306%_)))) + (_%g206215206302%_ _%g206216206306%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205941206028%_ - _%g205942206032%_))))) - (_%g205940206370%_ _%hd205939%_))))) + (_%g206215206302%_ + _%g206216206306%_))))) + (_%g206214206644%_ _%hd206213%_))))) (if (let () (declare (not safe)) - (##pair? _%rest205913205921%_)) - (let ((_%hd205918206378%_ + (##pair? _%rest206187206195%_)) + (let ((_%hd206192206652%_ (let () (declare (not safe)) - (##car _%rest205913205921%_))) - (_%tl205919206381%_ + (##car _%rest206187206195%_))) + (_%tl206193206655%_ (let () (declare (not safe)) - (##cdr _%rest205913205921%_)))) - (let* ((_%hd206384%_ _%hd205918206378%_) - (_%rest206387%_ _%tl205919206381%_)) - (_%K205917206374%_ - _%rest206387%_ - _%hd206384%_))) - (_%else205915205933%_)))))) + (##cdr _%rest206187206195%_)))) + (let* ((_%hd206658%_ _%hd206192206652%_) + (_%rest206661%_ _%tl206193206655%_)) + (_%K206191206648%_ + _%rest206661%_ + _%hd206658%_))) + (_%else206189206207%_)))))) (begin - (let ((_g207684_ + (let ((_g207958_ (let () (declare (not safe)) - (if (##values? _g207683_) - (##vector-length _g207683_) + (if (##values? _g207957_) + (##vector-length _g207957_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g207684_ 2))) - (error "Context expects 2 values" _g207684_))) - (let ((_%unchecked-proc206390%_ + (if (not (let () (declare (not safe)) (##fx= _g207958_ 2))) + (error "Context expects 2 values" _g207958_))) + (let ((_%unchecked-proc206664%_ (let () (declare (not safe)) - (##vector-ref _g207683_ 0))) - (_%unchecked-clauses206392%_ + (##vector-ref _g207957_ 0))) + (_%unchecked-clauses206666%_ (let () (declare (not safe)) - (##vector-ref _g207683_ 1)))) - (if _%unchecked-proc206390%_ - (let* ((_%g206394206418%_ - (lambda (_%g206395206414%_) + (##vector-ref _g207957_ 1)))) + (if _%unchecked-proc206664%_ + (let* ((_%g206668206692%_ + (lambda (_%g206669206688%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206395206414%_)))) - (_%g206393206505%_ - (lambda (_%g206395206422%_) + _%g206669206688%_)))) + (_%g206667206779%_ + (lambda (_%g206669206696%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g206395206422%_)) - (let ((_%e206398206425%_ + (gx#stx-pair? _%g206669206696%_)) + (let ((_%e206672206699%_ (let () (declare (not safe)) (gx#syntax-e - _%g206395206422%_)))) - (let ((_%hd206399206429%_ + _%g206669206696%_)))) + (let ((_%hd206673206703%_ (let () (declare (not safe)) - (##car _%e206398206425%_))) - (_%tl206400206432%_ + (##car _%e206672206699%_))) + (_%tl206674206706%_ (let () (declare (not safe)) - (##cdr _%e206398206425%_)))) + (##cdr _%e206672206699%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206400206432%_)) - (let ((_%e206401206435%_ + _%tl206674206706%_)) + (let ((_%e206675206709%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206400206432%_)))) - (let ((_%hd206402206439%_ + _%tl206674206706%_)))) + (let ((_%hd206676206713%_ (let () (declare (not safe)) - (##car _%e206401206435%_))) - (_%tl206403206442%_ + (##car _%e206675206709%_))) + (_%tl206677206716%_ (let () (declare (not safe)) - (##cdr _%e206401206435%_)))) + (##cdr _%e206675206709%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd206402206439%_)) - (let ((_g207695_ + _%hd206676206713%_)) + (let ((_g207969_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%hd206402206439%_ '0)))) + (gx#syntax-split-splice _%hd206676206713%_ '0)))) (begin - (let ((_g207696_ + (let ((_g207970_ (let () (declare (not safe)) - (if (##values? _g207695_) - (##vector-length _g207695_) + (if (##values? _g207969_) + (##vector-length _g207969_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g207696_ 2))) - (error "Context expects 2 values" _g207696_))) - (let ((_%target206404206445%_ + (if (not (let () (declare (not safe)) (##fx= _g207970_ 2))) + (error "Context expects 2 values" _g207970_))) + (let ((_%target206678206719%_ (let () (declare (not safe)) - (##vector-ref _g207695_ 0))) - (_%tl206406206448%_ + (##vector-ref _g207969_ 0))) + (_%tl206680206722%_ (let () (declare (not safe)) - (##vector-ref _g207695_ 1)))) + (##vector-ref _g207969_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206406206448%_)) - (letrec ((_%loop206407206451%_ - (lambda (_%hd206405206455%_ - _%clause206411206458%_) + (gx#stx-null? _%tl206680206722%_)) + (letrec ((_%loop206681206725%_ + (lambda (_%hd206679206729%_ + _%clause206685206732%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd206405206455%_)) - (let ((_%e206408206461%_ + (gx#stx-pair? _%hd206679206729%_)) + (let ((_%e206682206735%_ (let () (declare (not safe)) (gx#syntax-e - _%hd206405206455%_)))) - (let ((_%lp-hd206409206465%_ + _%hd206679206729%_)))) + (let ((_%lp-hd206683206739%_ (let () (declare (not safe)) - (##car _%e206408206461%_))) - (_%lp-tl206410206468%_ + (##car _%e206682206735%_))) + (_%lp-tl206684206742%_ (let () (declare (not safe)) - (##cdr _%e206408206461%_)))) - (_%loop206407206451%_ - _%lp-tl206410206468%_ - (cons _%lp-hd206409206465%_ - _%clause206411206458%_)))) - (let ((_%clause206412206471%_ - (reverse _%clause206411206458%_))) + (##cdr _%e206682206735%_)))) + (_%loop206681206725%_ + _%lp-tl206684206742%_ + (cons _%lp-hd206683206739%_ + _%clause206685206732%_)))) + (let ((_%clause206686206745%_ + (reverse _%clause206685206732%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl206403206442%_)) - ((lambda (_%L206475%_ - _%L206477%_) + _%tl206677206716%_)) + ((lambda (_%L206749%_ + _%L206751%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L206477%_ + (cons _%L206751%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -6312,43 +6312,43 @@ (gx#datum->syntax__0 '#f '@list)) - (let ((__tmp207697 - (lambda (_%g206496206499%_ - _%g206497206502%_) - (cons _%g206496206499%_ - _%g206497206502%_)))) + (let ((__tmp207971 + (lambda (_%g206770206773%_ + _%g206771206776%_) + (cons _%g206770206773%_ + _%g206771206776%_)))) (declare (not safe)) (__foldr1 - __tmp207697 + __tmp207971 '() - _%L206475%_))) + _%L206749%_))) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause206412206471%_ - _%hd206399206429%_) - (_%g206394206418%_ - _%g206395206422%_))))))) - (_%loop206407206451%_ _%target206404206445%_ '())) - (_%g206394206418%_ _%g206395206422%_))))) - (_%g206394206418%_ _%g206395206422%_)))) + _%clause206686206745%_ + _%hd206673206703%_) + (_%g206668206692%_ + _%g206669206696%_))))))) + (_%loop206681206725%_ _%target206678206719%_ '())) + (_%g206668206692%_ _%g206669206696%_))))) + (_%g206668206692%_ _%g206669206696%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g206394206418%_ - _%g206395206422%_)))) - (_%g206394206418%_ _%g206395206422%_))))) - (_%g206393206505%_ - (list _%unchecked-proc206390%_ - _%unchecked-clauses206392%_))) + (_%g206668206692%_ + _%g206669206696%_)))) + (_%g206668206692%_ _%g206669206696%_))))) + (_%g206667206779%_ + (list _%unchecked-proc206664%_ + _%unchecked-clauses206666%_))) '(begin)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g205845205856%_)))) - (_%g205843206509%_ + _%g206119206130%_)))) + (_%g206117206783%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L205704%_ + (cons _%L205978%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -6362,12 +6362,12 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L205825%_ - _%L205827%_)) - (let ((__tmp207698 - (lambda (_%g206512206516%_ - _%g206513206519%_ - _%g206514206521%_) + _%L206099%_ + _%L206101%_)) + (let ((__tmp207972 + (lambda (_%g206786206790%_ + _%g206787206793%_ + _%g206788206795%_) (cons (cons (let () (declare (not safe)) @@ -6378,55 +6378,55 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g206513206519%_ '())) + (cons _%g206787206793%_ '())) (cons '#f (cons 'signature: - (cons _%g206512206516%_ '()))))) - _%g206514206521%_)))) + (cons _%g206786206790%_ '()))))) + _%g206788206795%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr2 - __tmp207698 + __tmp207972 '() - _%L205825%_ - _%L205827%_)))) + _%L206099%_ + _%L206101%_)))) '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%sig205751205819%_ - _%arity205752205822%_)))))) - (_%loop205745205777%_ _%target205742205771%_ '() '())) - (_%g205738205764%_ _%g205739205768%_))))) + _%sig206025206093%_ + _%arity206026206096%_)))))) + (_%loop206019206051%_ _%target206016206045%_ '() '())) + (_%g206012206038%_ _%g206013206042%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205738205764%_ - _%g205739205768%_))))) - (_%g205737206524%_ _%signatures205735%_)) - (_%g205621205645%_ _%g205622205649%_))) - _%case-signature205639205698%_ - _%hd205629205666%_)))))) + (_%g206012206038%_ + _%g206013206042%_))))) + (_%g206011206798%_ _%signatures206009%_)) + (_%g205895205919%_ _%g205896205923%_))) + _%case-signature205913205972%_ + _%hd205903205940%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop205634205678%_ - _%target205631205672%_ + (_%loop205908205952%_ + _%target205905205946%_ '())) - (_%g205621205645%_ - _%g205622205649%_))))) - (_%g205621205645%_ _%g205622205649%_)))) - (_%g205621205645%_ _%g205622205649%_)))) - (_%g205621205645%_ _%g205622205649%_))))) - (_%g205620206528%_ _%stx205618%_)))) + (_%g205895205919%_ + _%g205896205923%_))))) + (_%g205895205919%_ _%g205896205923%_)))) + (_%g205895205919%_ _%g205896205923%_)))) + (_%g205895205919%_ _%g205896205923%_))))) + (_%g205894206802%_ _%stx205892%_)))) (define |gxc[:0:]#declare-builtin-class| - (lambda (_%$stx206536%_) - (let* ((_%__stx207518207519%_ _%$stx206536%_) - (_%g206542206602%_ + (lambda (_%$stx206810%_) + (let* ((_%__stx207792207793%_ _%$stx206810%_) + (_%g206816206876%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx207518207519%_))))) - (let ((_%__kont207521207522%_ - (lambda (_%L206824%_ _%L206826%_) + _%__stx207792207793%_))))) + (let ((_%__kont207795207796%_ + (lambda (_%L207098%_ _%L207100%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6435,7 +6435,7 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206826%_ '())) + (cons _%L207100%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6446,13 +6446,13 @@ (gx#datum->syntax__0 '#f 'class-type-id)) - (cons _%L206826%_ '())) + (cons _%L207100%_ '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206824%_ '())) + (cons _%L207098%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list)) @@ -6461,8 +6461,8 @@ (cons '#f (cons '#f (cons '#t (cons '#f '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont207523207524%_ - (lambda (_%L206749%_ _%L206751%_ _%L206752%_) + (_%__kont207797207798%_ + (lambda (_%L207023%_ _%L207025%_ _%L207026%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6471,7 +6471,7 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206752%_ '())) + (cons _%L207026%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6482,23 +6482,23 @@ (gx#datum->syntax__0 '#f 'class-type-id)) - (cons _%L206752%_ '())) + (cons _%L207026%_ '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206751%_ '())) + (cons _%L207025%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206749%_ '())) + (cons _%L207023%_ '())) (cons '#f (cons '#f (cons '#f (cons '#f (cons '#f '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont207525207526%_ - (lambda (_%L206663%_ _%L206665%_ _%L206666%_) + (_%__kont207799207800%_ + (lambda (_%L206937%_ _%L206939%_ _%L206940%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6507,7 +6507,7 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206666%_ '())) + (cons _%L206940%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6518,360 +6518,360 @@ (gx#datum->syntax__0 '#f 'class-type-id)) - (cons _%L206666%_ '())) + (cons _%L206940%_ '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206665%_ '())) + (cons _%L206939%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206663%_ '())) + (cons _%L206937%_ '())) (cons '#f (cons '#t (cons '#f (cons '#f (cons '#f '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx207518207519%_)) - (let ((_%e206546206780%_ + (gx#stx-pair? _%__stx207792207793%_)) + (let ((_%e206820207054%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx207518207519%_)))) - (let ((_%tl206548206787%_ + (gx#syntax-e _%__stx207792207793%_)))) + (let ((_%tl206822207061%_ (let () (declare (not safe)) - (##cdr _%e206546206780%_))) - (_%hd206547206784%_ + (##cdr _%e206820207054%_))) + (_%hd206821207058%_ (let () (declare (not safe)) - (##car _%e206546206780%_)))) + (##car _%e206820207054%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206548206787%_)) - (let ((_%e206549206790%_ + (gx#stx-pair? _%tl206822207061%_)) + (let ((_%e206823207064%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206548206787%_)))) - (let ((_%tl206551206797%_ + (gx#syntax-e _%tl206822207061%_)))) + (let ((_%tl206825207071%_ (let () (declare (not safe)) - (##cdr _%e206549206790%_))) - (_%hd206550206794%_ + (##cdr _%e206823207064%_))) + (_%hd206824207068%_ (let () (declare (not safe)) - (##car _%e206549206790%_)))) + (##car _%e206823207064%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd206550206794%_)) - (let ((_%e206552206800%_ + (gx#stx-datum? _%hd206824207068%_)) + (let ((_%e206826207074%_ (let () (declare (not safe)) - (gx#stx-e _%hd206550206794%_)))) - (if (equal? _%e206552206800%_ 'system:) + (gx#stx-e _%hd206824207068%_)))) + (if (equal? _%e206826207074%_ 'system:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206551206797%_)) - (let ((_%e206553206804%_ + (gx#stx-pair? _%tl206825207071%_)) + (let ((_%e206827207078%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206551206797%_)))) - (let ((_%tl206555206811%_ + _%tl206825207071%_)))) + (let ((_%tl206829207085%_ (let () (declare (not safe)) - (##cdr _%e206553206804%_))) - (_%hd206554206808%_ + (##cdr _%e206827207078%_))) + (_%hd206828207082%_ (let () (declare (not safe)) - (##car _%e206553206804%_)))) + (##car _%e206827207078%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206555206811%_)) - (let ((_%e206556206814%_ + _%tl206829207085%_)) + (let ((_%e206830207088%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206555206811%_)))) - (let ((_%tl206558206821%_ + _%tl206829207085%_)))) + (let ((_%tl206832207095%_ (let () (declare (not safe)) - (##cdr _%e206556206814%_))) - (_%hd206557206818%_ + (##cdr _%e206830207088%_))) + (_%hd206831207092%_ (let () (declare (not safe)) - (##car _%e206556206814%_)))) + (##car _%e206830207088%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl206558206821%_)) - (_%__kont207521207522%_ - _%hd206557206818%_ - _%hd206554206808%_) + _%tl206832207095%_)) + (_%__kont207795207796%_ + _%hd206831207092%_ + _%hd206828207082%_) (let () (declare (not safe)) - (_%g206542206602%_))))) + (_%g206816206876%_))))) (let () (declare (not safe)) - (_%g206542206602%_))))) + (_%g206816206876%_))))) (let () (declare (not safe)) - (_%g206542206602%_))) - (if (equal? _%e206552206800%_ 'struct:) + (_%g206816206876%_))) + (if (equal? _%e206826207074%_ 'struct:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206551206797%_)) - (let ((_%e206569206719%_ + _%tl206825207071%_)) + (let ((_%e206843206993%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206551206797%_)))) - (let ((_%tl206571206726%_ + _%tl206825207071%_)))) + (let ((_%tl206845207000%_ (let () (declare (not safe)) - (##cdr _%e206569206719%_))) - (_%hd206570206723%_ + (##cdr _%e206843206993%_))) + (_%hd206844206997%_ (let () (declare (not safe)) - (##car _%e206569206719%_)))) + (##car _%e206843206993%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206571206726%_)) - (let ((_%e206572206729%_ + _%tl206845207000%_)) + (let ((_%e206846207003%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl206571206726%_)))) - (let ((_%tl206574206736%_ - (let () (declare (not safe)) (##cdr _%e206572206729%_))) - (_%hd206573206733%_ + (gx#syntax-e _%tl206845207000%_)))) + (let ((_%tl206848207010%_ + (let () (declare (not safe)) (##cdr _%e206846207003%_))) + (_%hd206847207007%_ (let () (declare (not safe)) - (##car _%e206572206729%_)))) + (##car _%e206846207003%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206574206736%_)) - (let ((_%e206575206739%_ + (gx#stx-pair? _%tl206848207010%_)) + (let ((_%e206849207013%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206574206736%_)))) - (let ((_%tl206577206746%_ + (gx#syntax-e _%tl206848207010%_)))) + (let ((_%tl206851207020%_ (let () (declare (not safe)) - (##cdr _%e206575206739%_))) - (_%hd206576206743%_ + (##cdr _%e206849207013%_))) + (_%hd206850207017%_ (let () (declare (not safe)) - (##car _%e206575206739%_)))) + (##car _%e206849207013%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206577206746%_)) - (_%__kont207523207524%_ - _%hd206576206743%_ - _%hd206573206733%_ - _%hd206570206723%_) + (gx#stx-null? _%tl206851207020%_)) + (_%__kont207797207798%_ + _%hd206850207017%_ + _%hd206847207007%_ + _%hd206844206997%_) (let () (declare (not safe)) - (_%g206542206602%_))))) - (let () (declare (not safe)) (_%g206542206602%_))))) - (let () (declare (not safe)) (_%g206542206602%_))))) + (_%g206816206876%_))))) + (let () (declare (not safe)) (_%g206816206876%_))))) + (let () (declare (not safe)) (_%g206816206876%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g206542206602%_))) - (if (equal? _%e206552206800%_ + (_%g206816206876%_))) + (if (equal? _%e206826207074%_ 'class:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206551206797%_)) - (let ((_%e206588206633%_ + _%tl206825207071%_)) + (let ((_%e206862206907%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206551206797%_)))) - (let ((_%tl206590206640%_ + _%tl206825207071%_)))) + (let ((_%tl206864206914%_ (let () (declare (not safe)) - (##cdr _%e206588206633%_))) - (_%hd206589206637%_ + (##cdr _%e206862206907%_))) + (_%hd206863206911%_ (let () (declare (not safe)) - (##car _%e206588206633%_)))) + (##car _%e206862206907%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206590206640%_)) - (let ((_%e206591206643%_ + _%tl206864206914%_)) + (let ((_%e206865206917%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl206590206640%_)))) - (let ((_%tl206593206650%_ + (gx#syntax-e _%tl206864206914%_)))) + (let ((_%tl206867206924%_ (let () (declare (not safe)) - (##cdr _%e206591206643%_))) - (_%hd206592206647%_ + (##cdr _%e206865206917%_))) + (_%hd206866206921%_ (let () (declare (not safe)) - (##car _%e206591206643%_)))) + (##car _%e206865206917%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206593206650%_)) - (let ((_%e206594206653%_ + (gx#stx-pair? _%tl206867206924%_)) + (let ((_%e206868206927%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206593206650%_)))) - (let ((_%tl206596206660%_ + (gx#syntax-e _%tl206867206924%_)))) + (let ((_%tl206870206934%_ (let () (declare (not safe)) - (##cdr _%e206594206653%_))) - (_%hd206595206657%_ + (##cdr _%e206868206927%_))) + (_%hd206869206931%_ (let () (declare (not safe)) - (##car _%e206594206653%_)))) + (##car _%e206868206927%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206596206660%_)) - (_%__kont207525207526%_ - _%hd206595206657%_ - _%hd206592206647%_ - _%hd206589206637%_) + (gx#stx-null? _%tl206870206934%_)) + (_%__kont207799207800%_ + _%hd206869206931%_ + _%hd206866206921%_ + _%hd206863206911%_) (let () (declare (not safe)) - (_%g206542206602%_))))) - (let () (declare (not safe)) (_%g206542206602%_))))) - (let () (declare (not safe)) (_%g206542206602%_))))) + (_%g206816206876%_))))) + (let () (declare (not safe)) (_%g206816206876%_))))) + (let () (declare (not safe)) (_%g206816206876%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g206542206602%_))) + (_%g206816206876%_))) (let () (declare (not safe)) - (_%g206542206602%_)))))) + (_%g206816206876%_)))))) (let () (declare (not safe)) - (_%g206542206602%_))))) - (let () (declare (not safe)) (_%g206542206602%_))))) - (let () (declare (not safe)) (_%g206542206602%_))))))) + (_%g206816206876%_))))) + (let () (declare (not safe)) (_%g206816206876%_))))) + (let () (declare (not safe)) (_%g206816206876%_))))))) (define |gxc[:0:]#declare-builtin-classes| - (lambda (_%$stx206848%_) - (let* ((_%g206852206872%_ - (lambda (_%g206853206868%_) + (lambda (_%$stx207122%_) + (let* ((_%g207126207146%_ + (lambda (_%g207127207142%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206853206868%_)))) - (_%g206851206943%_ - (lambda (_%g206853206876%_) + _%g207127207142%_)))) + (_%g207125207217%_ + (lambda (_%g207127207150%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g206853206876%_)) - (let ((_%e206855206879%_ + (gx#stx-pair? _%g207127207150%_)) + (let ((_%e207129207153%_ (let () (declare (not safe)) - (gx#syntax-e _%g206853206876%_)))) - (let ((_%hd206856206883%_ + (gx#syntax-e _%g207127207150%_)))) + (let ((_%hd207130207157%_ (let () (declare (not safe)) - (##car _%e206855206879%_))) - (_%tl206857206886%_ + (##car _%e207129207153%_))) + (_%tl207131207160%_ (let () (declare (not safe)) - (##cdr _%e206855206879%_)))) + (##cdr _%e207129207153%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl206857206886%_)) - (let ((_g207699_ + (gx#stx-pair/null? _%tl207131207160%_)) + (let ((_g207973_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl206857206886%_ + _%tl207131207160%_ '0)))) (begin - (let ((_g207700_ + (let ((_g207974_ (let () (declare (not safe)) - (if (##values? _g207699_) - (##vector-length _g207699_) + (if (##values? _g207973_) + (##vector-length _g207973_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g207700_ 2))) + (##fx= _g207974_ 2))) (error "Context expects 2 values" - _g207700_))) - (let ((_%target206858206889%_ + _g207974_))) + (let ((_%target207132207163%_ (let () (declare (not safe)) - (##vector-ref _g207699_ 0))) - (_%tl206860206892%_ + (##vector-ref _g207973_ 0))) + (_%tl207134207166%_ (let () (declare (not safe)) - (##vector-ref _g207699_ 1)))) + (##vector-ref _g207973_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206860206892%_)) - (letrec ((_%loop206861206895%_ - (lambda (_%hd206859206899%_ - _%decl206865206902%_) + (gx#stx-null? _%tl207134207166%_)) + (letrec ((_%loop207135207169%_ + (lambda (_%hd207133207173%_ + _%decl207139207176%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd206859206899%_)) - (let ((_%e206862206905%_ + _%hd207133207173%_)) + (let ((_%e207136207179%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd206859206899%_)))) - (let ((_%lp-hd206863206909%_ + (gx#syntax-e _%hd207133207173%_)))) + (let ((_%lp-hd207137207183%_ (let () (declare (not safe)) - (##car _%e206862206905%_))) - (_%lp-tl206864206912%_ + (##car _%e207136207179%_))) + (_%lp-tl207138207186%_ (let () (declare (not safe)) - (##cdr _%e206862206905%_)))) - (_%loop206861206895%_ - _%lp-tl206864206912%_ - (cons _%lp-hd206863206909%_ _%decl206865206902%_)))) - (let ((_%decl206866206915%_ (reverse _%decl206865206902%_))) - ((lambda (_%L206919%_) + (##cdr _%e207136207179%_)))) + (_%loop207135207169%_ + _%lp-tl207138207186%_ + (cons _%lp-hd207137207183%_ _%decl207139207176%_)))) + (let ((_%decl207140207189%_ (reverse _%decl207139207176%_))) + ((lambda (_%L207193%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp207701 - (lambda (_%g206934206937%_ _%g206935206940%_) + (let ((__tmp207975 + (lambda (_%g207208207211%_ _%g207209207214%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-builtin-class)) - _%g206934206937%_) - _%g206935206940%_)))) + _%g207208207211%_) + _%g207209207214%_)))) (declare (not safe)) - (__foldr1 __tmp207701 '() _%L206919%_)))) - _%decl206866206915%_)))))) + (__foldr1 __tmp207975 '() _%L207193%_)))) + _%decl207140207189%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop206861206895%_ - _%target206858206889%_ + (_%loop207135207169%_ + _%target207132207163%_ '())) - (_%g206852206872%_ - _%g206853206876%_))))) - (_%g206852206872%_ _%g206853206876%_)))) - (_%g206852206872%_ _%g206853206876%_))))) - (_%g206851206943%_ _%$stx206848%_)))))) + (_%g207126207146%_ + _%g207127207150%_))))) + (_%g207126207146%_ _%g207127207150%_)))) + (_%g207126207146%_ _%g207127207150%_))))) + (_%g207125207217%_ _%$stx207122%_)))))) diff --git a/src/bootstrap/gerbil/core.ssi b/src/bootstrap/gerbil/core.ssi index 5195a1afc..3f8348e80 100644 --- a/src/bootstrap/gerbil/core.ssi +++ b/src/bootstrap/gerbil/core.ssi @@ -8,328 +8,328 @@ namespace: gerbil/core :gerbil/core/sugar (spec: (:gerbil/core/mop) - (0 MOP-3 0 MOP-3) (0 MOP-2 0 MOP-2) - (0 MOP-1 0 MOP-1) (0 MOP-5 0 MOP-5) + (0 MOP-1 0 MOP-1) (0 MOP-4 0 MOP-4) + (0 MOP-3 0 MOP-3) (0 defclass-type 0 defclass-type) (0 defstruct-type 0 defstruct-type) (1 module-type-id 1 module-type-id) (1 make-class-type-id 1 make-class-type-id) + (0 defclass 0 defclass) (0 define-class 0 define-class) - (0 @ 0 @) - (0 defmethod 0 defmethod) (0 define-struct 0 define-struct) (0 defstruct 0 defstruct) (0 @-set! 0 @-set!) - (0 defclass 0 defclass) - (0 :directory-port 0 :directory-port) + (0 @ 0 @) + (0 defmethod 0 defmethod) + (0 :u64vector 0 :u64vector) (0 :s32vector 0 :s32vector) - (0 :s8vector 0 :s8vector) - (0 :symbol 0 :symbol) - (0 :number 0 :number) - (0 :thread-group 0 :thread-group) - (0 :writeenv 0 :writeenv) - (0 :ratnum 0 :ratnum) - (0 :object-port 0 :object-port) - (0 :device-port 0 :device-port) - (0 :byte-port 0 :byte-port) - (0 :vector 0 :vector) - (0 :time 0 :time) - (0 :false 0 :false) - (0 :string-port 0 :string-port) - (0 :promise 0 :promise) - (0 :file-info 0 :file-info) - (0 :address-info 0 :address-info) - (0 :vm 0 :vm) - (0 :frame 0 :frame) - (0 :table 0 :table) - (0 :event-queue-port 0 :event-queue-port) - (0 :tcp-server-port 0 :tcp-server-port) - (0 :port 0 :port) + (0 defsystem-class-info 0 defsystem-class-info) (0 :fixnum 0 :fixnum) + (0 :frame 0 :frame) + (0 :foreign 0 :foreign) (0 :real 0 :real) - (0 :procedure 0 :procedure) - (0 :special 0 :special) - (0 :void 0 :void) - (0 :values 0 :values) - (0 :f64vector 0 :f64vector) + (0 :pair 0 :pair) + (0 :u8vector-port 0 :u8vector-port) + (0 :boolean 0 :boolean) (0 :char 0 :char) - (0 :class 0 :class) - (0 :t 0 :t) - (0 :mutex 0 :mutex) - (0 defsystem-class-info 0 defsystem-class-info) - (0 :readenv 0 :readenv) (0 :integer 0 :integer) - (0 :raw-device-port 0 :raw-device-port) - (0 :u8vector 0 :u8vector) - (0 :u64vector 0 :u64vector) + (0 :procedure 0 :procedure) + (0 :cpxnum 0 :cpxnum) + (0 :address-info 0 :address-info) + (0 :table 0 :table) (0 :udp-port 0 :udp-port) - (0 :condvar 0 :condvar) - (0 :eof 0 :eof) - (0 :weak 0 :weak) - (0 :box 0 :box) - (0 :u16vector 0 :u16vector) + (0 :string-port 0 :string-port) + (0 :raw-device-port 0 :raw-device-port) + (0 :immediate 0 :immediate) (0 :symbolic 0 :symbolic) - (0 :bignum 0 :bignum) - (0 :atom 0 :atom) - (0 :u8vector-port 0 :u8vector-port) - (0 :continuation 0 :continuation) - (0 :sequence 0 :sequence) - (0 :processor 0 :processor) - (0 :hvector 0 :hvector) - (0 :socket-info 0 :socket-info) - (0 :character-port 0 :character-port) + (0 :s64vector 0 :s64vector) + (0 :mutex 0 :mutex) (0 :f32vector 0 :f32vector) - (0 :pair 0 :pair) - (0 :cpxnum 0 :cpxnum) + (0 :box 0 :box) + (0 :list 0 :list) + (0 :u32vector 0 :u32vector) + (0 :u16vector 0 :u16vector) (0 :keyword 0 :keyword) - (0 class 0 class) - (0 :flonum 0 :flonum) - (0 :true 0 :true) - (0 :vector-port 0 :vector-port) - (0 :foreign 0 :foreign) - (0 :s64vector 0 :s64vector) - (0 :object 0 :object) + (0 :tcp-server-port 0 :tcp-server-port) + (0 :bignum 0 :bignum) (0 :s16vector 0 :s16vector) + (0 class 0 class) + (0 :time 0 :time) + (0 :socket-info 0 :socket-info) + (0 :file-info 0 :file-info) + (0 :processor 0 :processor) + (0 :writeenv 0 :writeenv) + (0 :promise 0 :promise) + (0 :continuation 0 :continuation) + (0 :f64vector 0 :f64vector) + (0 :s8vector 0 :s8vector) + (0 :number 0 :number) + (0 :u8vector 0 :u8vector) (0 :null 0 :null) - (0 :immediate 0 :immediate) + (0 :true 0 :true) + (0 :t 0 :t) + (0 :atom 0 :atom) + (0 :directory-port 0 :directory-port) + (0 :byte-port 0 :byte-port) + (0 :character-port 0 :character-port) + (0 :port 0 :port) + (0 :void 0 :void) (0 :string 0 :string) - (0 :u32vector 0 :u32vector) - (0 :thread 0 :thread) - (0 :list 0 :list) - (0 :boolean 0 :boolean) + (0 :condvar 0 :condvar) + (0 :eof 0 :eof) + (0 :thread-group 0 :thread-group) + (0 :values 0 :values) + (0 :vector 0 :vector) + (0 :sequence 0 :sequence) + (0 :special 0 :special) + (0 :weak 0 :weak) (0 :readtable 0 :readtable) + (0 :object 0 :object) + (0 :vm 0 :vm) + (0 :readenv 0 :readenv) + (0 :event-queue-port 0 :event-queue-port) + (0 :vector-port 0 :vector-port) + (0 :device-port 0 :device-port) + (0 :object-port 0 :object-port) + (0 :thread 0 :thread) + (0 :ratnum 0 :ratnum) + (0 :flonum 0 :flonum) + (0 :class 0 :class) + (0 :false 0 :false) + (0 :symbol 0 :symbol) + (0 :hvector 0 :hvector) (1 defclass-type 1 defclass-type) (1 defstruct-type 1 defstruct-type) (2 module-type-id 2 module-type-id) (2 make-class-type-id 2 make-class-type-id) + (1 !class-type-system? 1 !class-type-system?) (1 - &!class-type-constructor-method-set! + !class-type-constructor-method-set! 1 - &!class-type-constructor-method-set!) - (1 &!class-type-slot-types 1 &!class-type-slot-types) - (1 &!class-type-predicate-set! 1 &!class-type-predicate-set!) - (1 &!class-type-slots-set! 1 &!class-type-slots-set!) - (1 &!class-type-slots 1 &!class-type-slots) - (1 !class-type-predicate 1 !class-type-predicate) - (1 !class-type-id-set! 1 !class-type-id-set!) - (1 &!class-type-slot-contracts 1 &!class-type-slot-contracts) - (1 !class-type-slot-defaults 1 !class-type-slot-defaults) - (1 &!class-type-descriptor 1 &!class-type-descriptor) - (1 &!class-type-slot-defaults 1 &!class-type-slot-defaults) + !class-type-constructor-method-set!) + (1 &!class-type-constructor 1 &!class-type-constructor) + (1 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) + (1 &!class-type-struct? 1 &!class-type-struct?) (1 - &!class-type-constructor-method + class-type-info::apply-macro-expander 1 - &!class-type-constructor-method) - (1 !class-type-id 1 !class-type-id) + class-type-info::apply-macro-expander) + (1 &!class-type-slot-contracts 1 &!class-type-slot-contracts) + (1 &!class-type-precedence-list 1 &!class-type-precedence-list) + (1 &!class-type-super 1 &!class-type-super) + (1 !class-type-name-set! 1 !class-type-name-set!) + (1 !class-type-slot-contracts 1 !class-type-slot-contracts) + (1 !class-type-constructor 1 !class-type-constructor) + (1 !class-type-descriptor 1 !class-type-descriptor) (1 !class-type-super 1 !class-type-super) - (1 !class-type-system?-set! 1 !class-type-system?-set!) - (1 !class-type-slots-set! 1 !class-type-slots-set!) - (1 class-type-info? 1 class-type-info?) - (1 !class-type-accessors-set! 1 !class-type-accessors-set!) + (1 &!class-type-slot-types 1 &!class-type-slot-types) + (1 syntax-local-class-type-info? 1 syntax-local-class-type-info?) + (1 &!class-type-super-set! 1 &!class-type-super-set!) + (1 &!class-type-constructor-set! 1 &!class-type-constructor-set!) (1 &!class-type-ordered-slots-set! 1 &!class-type-ordered-slots-set!) + (1 !class-type-accessors 1 !class-type-accessors) (1 !class-type-ordered-slots 1 !class-type-ordered-slots) (1 - class-type-info::apply-macro-expander - 1 - class-type-info::apply-macro-expander) - (1 !class-type-final?-set! 1 !class-type-final?-set!) - (1 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) - (1 &!class-type-struct? 1 &!class-type-struct?) - (1 &!class-type-mutators-set! 1 &!class-type-mutators-set!) - (1 &!class-type-super 1 &!class-type-super) - (1 &!class-type-final?-set! 1 &!class-type-final?-set!) - (1 !class-type-slots 1 !class-type-slots) - (1 - &!class-type-unchecked-mutators + !class-type-unchecked-accessors 1 - &!class-type-unchecked-mutators) - (1 !class-type-constructor 1 !class-type-constructor) - (1 !class-type-metaclass-set! 1 !class-type-metaclass-set!) + !class-type-unchecked-accessors) + (1 &!class-type-name-set! 1 &!class-type-name-set!) + (1 &!class-type-slots 1 &!class-type-slots) (1 &!class-type-unchecked-accessors 1 &!class-type-unchecked-accessors) - (1 &!class-type-accessors-set! 1 &!class-type-accessors-set!) - (1 &!class-type-constructor-set! 1 &!class-type-constructor-set!) - (1 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) - (1 &!class-type-struct?-set! 1 &!class-type-struct?-set!) + (1 &!class-type-descriptor 1 &!class-type-descriptor) (1 &!class-type-precedence-list-set! 1 &!class-type-precedence-list-set!) - (1 &!class-type-super-set! 1 &!class-type-super-set!) - (1 &!class-type-name 1 &!class-type-name) - (1 !class-type-name 1 !class-type-name) - (1 &!class-type-name-set! 1 &!class-type-name-set!) - (1 &!class-type-mutators 1 &!class-type-mutators) - (1 class-type-info::t 1 class-type-info::t) - (1 &!class-type-accessors 1 &!class-type-accessors) - (1 !class-type-final? 1 !class-type-final?) - (1 &!class-type-id-set! 1 &!class-type-id-set!) (1 - &!class-type-slot-contracts-set! + &!class-type-slot-defaults-set! 1 - &!class-type-slot-contracts-set!) - (1 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) + &!class-type-slot-defaults-set!) (1 - !class-type-unchecked-accessors-set! + &!class-type-unchecked-mutators-set! 1 - !class-type-unchecked-accessors-set!) - (1 !class-type-accessors 1 !class-type-accessors) - (1 !class-type-descriptor 1 !class-type-descriptor) + &!class-type-unchecked-mutators-set!) + (1 &!class-type-slot-defaults 1 &!class-type-slot-defaults) + (1 &!class-type-mutators 1 &!class-type-mutators) + (1 &!class-type-metaclass 1 &!class-type-metaclass) + (1 &!class-type-predicate-set! 1 &!class-type-predicate-set!) (1 - !class-type-slot-contracts-set! + !class-type-precedence-list-set! 1 - !class-type-slot-contracts-set!) + !class-type-precedence-list-set!) + (1 !class-type-slot-defaults 1 !class-type-slot-defaults) + (1 &!class-type-mutators-set! 1 &!class-type-mutators-set!) + (1 &!class-type-slots-set! 1 &!class-type-slots-set!) + (1 !class-type-slot-types 1 !class-type-slot-types) + (1 &!class-type-final? 1 &!class-type-final?) + (1 !class-type-struct?-set! 1 !class-type-struct?-set!) (1 - &!class-type-slot-defaults-set! + &!class-type-slot-contracts-set! 1 - &!class-type-slot-defaults-set!) + &!class-type-slot-contracts-set!) (1 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) - (1 &!class-type-descriptor-set! 1 &!class-type-descriptor-set!) (1 - !class-type-unchecked-mutators-set! + &!class-type-unchecked-accessors-set! 1 - !class-type-unchecked-mutators-set!) - (1 !class-type-name-set! 1 !class-type-name-set!) - (1 &!class-type-constructor 1 &!class-type-constructor) - (1 &!class-type-system? 1 &!class-type-system?) - (1 &!class-type-final? 1 &!class-type-final?) + &!class-type-unchecked-accessors-set!) (1 &!class-type-ordered-slots 1 &!class-type-ordered-slots) - (1 &!class-type-id 1 &!class-type-id) - (1 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) - (1 !class-type-precedence-list 1 !class-type-precedence-list) - (1 !class-type-mutators 1 !class-type-mutators) - (1 !class-type-struct?-set! 1 !class-type-struct?-set!) - (1 !class-type-predicate-set! 1 !class-type-predicate-set!) (1 - !class-type-constructor-method-set! + !class-type-unchecked-accessors-set! 1 - !class-type-constructor-method-set!) - (1 !class-type-slot-types 1 !class-type-slot-types) - (1 !class-type-constructor-method 1 !class-type-constructor-method) - (1 - !class-type-unchecked-accessors - 1 - !class-type-unchecked-accessors) - (1 !class-type-super-set! 1 !class-type-super-set!) - (1 !class-type-metaclass 1 !class-type-metaclass) - (1 make-class-type-info 1 make-class-type-info) + !class-type-unchecked-accessors-set!) + (1 !class-type-id-set! 1 !class-type-id-set!) + (1 !class-type-struct? 1 !class-type-struct?) + (1 !class-type-slots 1 !class-type-slots) + (1 &!class-type-accessors-set! 1 &!class-type-accessors-set!) (1 &!class-type-system?-set! 1 &!class-type-system?-set!) - (1 !class-type-system? 1 !class-type-system?) - (1 &!class-type-metaclass 1 &!class-type-metaclass) - (1 !class-type-descriptor-set! 1 !class-type-descriptor-set!) - (1 !class-type-mutators-set! 1 !class-type-mutators-set!) (1 - &!class-type-unchecked-accessors-set! + &!class-type-constructor-method 1 - &!class-type-unchecked-accessors-set!) + &!class-type-constructor-method) + (1 &!class-type-id 1 &!class-type-id) (1 - &!class-type-unchecked-mutators-set! + &!class-type-constructor-method-set! 1 - &!class-type-unchecked-mutators-set!) - (1 &!class-type-predicate 1 &!class-type-predicate) - (1 !class-type-slot-contracts 1 !class-type-slot-contracts) + &!class-type-constructor-method-set!) + (1 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) + (1 make-class-type-info 1 make-class-type-info) + (1 !class-type-metaclass-set! 1 !class-type-metaclass-set!) (1 !class-type-slot-types-set! 1 !class-type-slot-types-set!) + (1 &!class-type-final?-set! 1 &!class-type-final?-set!) + (1 &!class-type-struct?-set! 1 &!class-type-struct?-set!) + (1 !class-type-predicate 1 !class-type-predicate) + (1 &!class-type-predicate 1 &!class-type-predicate) + (1 + !class-type-unchecked-mutators-set! + 1 + !class-type-unchecked-mutators-set!) (1 !class-type-constructor-set! 1 !class-type-constructor-set!) - (1 &!class-type-precedence-list 1 &!class-type-precedence-list) + (1 !class-type-system?-set! 1 !class-type-system?-set!) + (1 !class-type-super-set! 1 !class-type-super-set!) + (1 !class-type-predicate-set! 1 !class-type-predicate-set!) + (1 !class-type-final?-set! 1 !class-type-final?-set!) + (1 !class-type-mutators 1 !class-type-mutators) + (1 !class-type-metaclass 1 !class-type-metaclass) + (1 !class-type-precedence-list 1 !class-type-precedence-list) + (1 &!class-type-name 1 &!class-type-name) + (1 !class-type-constructor-method 1 !class-type-constructor-method) (1 - !class-type-precedence-list-set! + &!class-type-unchecked-mutators 1 - !class-type-precedence-list-set!) - (1 syntax-local-class-type-info? 1 syntax-local-class-type-info?) - (1 !class-type-struct? 1 !class-type-struct?) + &!class-type-unchecked-mutators) + (1 !class-type-final? 1 !class-type-final?) + (1 !class-type-name 1 !class-type-name) + (1 &!class-type-id-set! 1 &!class-type-id-set!) + (1 !class-type-mutators-set! 1 !class-type-mutators-set!) + (1 + !class-type-slot-contracts-set! + 1 + !class-type-slot-contracts-set!) + (1 &!class-type-system? 1 &!class-type-system?) + (1 !class-type-accessors-set! 1 !class-type-accessors-set!) + (1 class-type-info? 1 class-type-info?) + (1 &!class-type-descriptor-set! 1 &!class-type-descriptor-set!) + (1 &!class-type-accessors 1 &!class-type-accessors) + (1 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) + (1 !class-type-id 1 !class-type-id) + (1 !class-type-descriptor-set! 1 !class-type-descriptor-set!) + (1 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) + (1 !class-type-slots-set! 1 !class-type-slots-set!) + (1 class-type-info::t 1 class-type-info::t) (1 class-type-info 1 class-type-info) + (1 defclass 1 defclass) (1 define-class 1 define-class) - (1 @ 1 @) - (1 defmethod 1 defmethod) (1 define-struct 1 define-struct) (1 defstruct 1 defstruct) (1 @-set! 1 @-set!) - (1 defclass 1 defclass) - (1 :directory-port 1 :directory-port) + (1 @ 1 @) + (1 defmethod 1 defmethod) + (1 :u64vector 1 :u64vector) (1 :s32vector 1 :s32vector) - (1 :s8vector 1 :s8vector) - (1 :symbol 1 :symbol) - (1 :number 1 :number) - (1 :thread-group 1 :thread-group) - (1 :writeenv 1 :writeenv) - (1 :ratnum 1 :ratnum) - (1 :object-port 1 :object-port) - (1 :device-port 1 :device-port) - (1 :byte-port 1 :byte-port) - (1 :vector 1 :vector) - (1 :time 1 :time) - (1 :false 1 :false) - (1 :string-port 1 :string-port) - (1 :promise 1 :promise) - (1 :file-info 1 :file-info) - (1 :address-info 1 :address-info) - (1 :vm 1 :vm) - (1 :frame 1 :frame) - (1 :table 1 :table) - (1 :event-queue-port 1 :event-queue-port) - (1 :tcp-server-port 1 :tcp-server-port) - (1 :port 1 :port) + (1 defsystem-class-info 1 defsystem-class-info) (1 :fixnum 1 :fixnum) + (1 :frame 1 :frame) + (1 :foreign 1 :foreign) (1 :real 1 :real) - (1 :procedure 1 :procedure) - (1 :special 1 :special) - (1 :void 1 :void) - (1 :values 1 :values) - (1 :f64vector 1 :f64vector) + (1 :pair 1 :pair) + (1 :u8vector-port 1 :u8vector-port) + (1 :boolean 1 :boolean) (1 :char 1 :char) - (1 :class 1 :class) - (1 :t 1 :t) - (1 :mutex 1 :mutex) - (1 defsystem-class-info 1 defsystem-class-info) - (1 :readenv 1 :readenv) (1 :integer 1 :integer) - (1 :raw-device-port 1 :raw-device-port) - (1 :u8vector 1 :u8vector) - (1 :u64vector 1 :u64vector) + (1 :procedure 1 :procedure) + (1 :cpxnum 1 :cpxnum) + (1 :address-info 1 :address-info) + (1 :table 1 :table) (1 :udp-port 1 :udp-port) - (1 :condvar 1 :condvar) - (1 :eof 1 :eof) - (1 :weak 1 :weak) - (1 :box 1 :box) - (1 :u16vector 1 :u16vector) + (1 :string-port 1 :string-port) + (1 :raw-device-port 1 :raw-device-port) + (1 :immediate 1 :immediate) (1 :symbolic 1 :symbolic) - (1 :bignum 1 :bignum) - (1 :atom 1 :atom) - (1 :u8vector-port 1 :u8vector-port) - (1 :continuation 1 :continuation) - (1 :sequence 1 :sequence) - (1 :processor 1 :processor) - (1 :hvector 1 :hvector) - (1 :socket-info 1 :socket-info) - (1 :character-port 1 :character-port) + (1 :s64vector 1 :s64vector) + (1 :mutex 1 :mutex) (1 :f32vector 1 :f32vector) - (1 :pair 1 :pair) - (1 :cpxnum 1 :cpxnum) + (1 :box 1 :box) + (1 :list 1 :list) + (1 :u32vector 1 :u32vector) + (1 :u16vector 1 :u16vector) (1 :keyword 1 :keyword) - (1 class 1 class) - (1 :flonum 1 :flonum) - (1 :true 1 :true) - (1 :vector-port 1 :vector-port) - (1 :foreign 1 :foreign) - (1 :s64vector 1 :s64vector) - (1 :object 1 :object) + (1 :tcp-server-port 1 :tcp-server-port) + (1 :bignum 1 :bignum) (1 :s16vector 1 :s16vector) + (1 class 1 class) + (1 :time 1 :time) + (1 :socket-info 1 :socket-info) + (1 :file-info 1 :file-info) + (1 :processor 1 :processor) + (1 :writeenv 1 :writeenv) + (1 :promise 1 :promise) + (1 :continuation 1 :continuation) + (1 :f64vector 1 :f64vector) + (1 :s8vector 1 :s8vector) + (1 :number 1 :number) + (1 :u8vector 1 :u8vector) (1 :null 1 :null) - (1 :immediate 1 :immediate) + (1 :true 1 :true) + (1 :t 1 :t) + (1 :atom 1 :atom) + (1 :directory-port 1 :directory-port) + (1 :byte-port 1 :byte-port) + (1 :character-port 1 :character-port) + (1 :port 1 :port) + (1 :void 1 :void) (1 :string 1 :string) - (1 :u32vector 1 :u32vector) + (1 :condvar 1 :condvar) + (1 :eof 1 :eof) + (1 :thread-group 1 :thread-group) + (1 :values 1 :values) + (1 :vector 1 :vector) + (1 :sequence 1 :sequence) + (1 :special 1 :special) + (1 :weak 1 :weak) + (1 :readtable 1 :readtable) + (1 :object 1 :object) + (1 :vm 1 :vm) + (1 :readenv 1 :readenv) + (1 :event-queue-port 1 :event-queue-port) + (1 :vector-port 1 :vector-port) + (1 :device-port 1 :device-port) + (1 :object-port 1 :object-port) (1 :thread 1 :thread) - (1 :list 1 :list) - (1 :boolean 1 :boolean) - (1 :readtable 1 :readtable)) + (1 :ratnum 1 :ratnum) + (1 :flonum 1 :flonum) + (1 :class 1 :class) + (1 :false 1 :false) + (1 :symbol 1 :symbol) + (1 :hvector 1 :hvector)) :gerbil/core/match :gerbil/core/more-sugar :gerbil/core/contract @@ -337,328 +337,328 @@ namespace: gerbil/core (phi: 1 :gerbil/core/sugar) (spec: (:gerbil/core/mop) - (1 MOP-3 0 MOP-3) (1 MOP-2 0 MOP-2) - (1 MOP-1 0 MOP-1) (1 MOP-5 0 MOP-5) + (1 MOP-1 0 MOP-1) (1 MOP-4 0 MOP-4) + (1 MOP-3 0 MOP-3) (1 defclass-type 0 defclass-type) (1 defstruct-type 0 defstruct-type) (2 module-type-id 1 module-type-id) (2 make-class-type-id 1 make-class-type-id) + (1 defclass 0 defclass) (1 define-class 0 define-class) - (1 @ 0 @) - (1 defmethod 0 defmethod) (1 define-struct 0 define-struct) (1 defstruct 0 defstruct) (1 @-set! 0 @-set!) - (1 defclass 0 defclass) - (1 :directory-port 0 :directory-port) + (1 @ 0 @) + (1 defmethod 0 defmethod) + (1 :u64vector 0 :u64vector) (1 :s32vector 0 :s32vector) - (1 :s8vector 0 :s8vector) - (1 :symbol 0 :symbol) - (1 :number 0 :number) - (1 :thread-group 0 :thread-group) - (1 :writeenv 0 :writeenv) - (1 :ratnum 0 :ratnum) - (1 :object-port 0 :object-port) - (1 :device-port 0 :device-port) - (1 :byte-port 0 :byte-port) - (1 :vector 0 :vector) - (1 :time 0 :time) - (1 :false 0 :false) - (1 :string-port 0 :string-port) - (1 :promise 0 :promise) - (1 :file-info 0 :file-info) - (1 :address-info 0 :address-info) - (1 :vm 0 :vm) - (1 :frame 0 :frame) - (1 :table 0 :table) - (1 :event-queue-port 0 :event-queue-port) - (1 :tcp-server-port 0 :tcp-server-port) - (1 :port 0 :port) + (1 defsystem-class-info 0 defsystem-class-info) (1 :fixnum 0 :fixnum) + (1 :frame 0 :frame) + (1 :foreign 0 :foreign) (1 :real 0 :real) - (1 :procedure 0 :procedure) - (1 :special 0 :special) - (1 :void 0 :void) - (1 :values 0 :values) - (1 :f64vector 0 :f64vector) + (1 :pair 0 :pair) + (1 :u8vector-port 0 :u8vector-port) + (1 :boolean 0 :boolean) (1 :char 0 :char) - (1 :class 0 :class) - (1 :t 0 :t) - (1 :mutex 0 :mutex) - (1 defsystem-class-info 0 defsystem-class-info) - (1 :readenv 0 :readenv) (1 :integer 0 :integer) - (1 :raw-device-port 0 :raw-device-port) - (1 :u8vector 0 :u8vector) - (1 :u64vector 0 :u64vector) + (1 :procedure 0 :procedure) + (1 :cpxnum 0 :cpxnum) + (1 :address-info 0 :address-info) + (1 :table 0 :table) (1 :udp-port 0 :udp-port) - (1 :condvar 0 :condvar) - (1 :eof 0 :eof) - (1 :weak 0 :weak) - (1 :box 0 :box) - (1 :u16vector 0 :u16vector) + (1 :string-port 0 :string-port) + (1 :raw-device-port 0 :raw-device-port) + (1 :immediate 0 :immediate) (1 :symbolic 0 :symbolic) - (1 :bignum 0 :bignum) - (1 :atom 0 :atom) - (1 :u8vector-port 0 :u8vector-port) - (1 :continuation 0 :continuation) - (1 :sequence 0 :sequence) - (1 :processor 0 :processor) - (1 :hvector 0 :hvector) - (1 :socket-info 0 :socket-info) - (1 :character-port 0 :character-port) + (1 :s64vector 0 :s64vector) + (1 :mutex 0 :mutex) (1 :f32vector 0 :f32vector) - (1 :pair 0 :pair) - (1 :cpxnum 0 :cpxnum) + (1 :box 0 :box) + (1 :list 0 :list) + (1 :u32vector 0 :u32vector) + (1 :u16vector 0 :u16vector) (1 :keyword 0 :keyword) - (1 class 0 class) - (1 :flonum 0 :flonum) - (1 :true 0 :true) - (1 :vector-port 0 :vector-port) - (1 :foreign 0 :foreign) - (1 :s64vector 0 :s64vector) - (1 :object 0 :object) + (1 :tcp-server-port 0 :tcp-server-port) + (1 :bignum 0 :bignum) (1 :s16vector 0 :s16vector) + (1 class 0 class) + (1 :time 0 :time) + (1 :socket-info 0 :socket-info) + (1 :file-info 0 :file-info) + (1 :processor 0 :processor) + (1 :writeenv 0 :writeenv) + (1 :promise 0 :promise) + (1 :continuation 0 :continuation) + (1 :f64vector 0 :f64vector) + (1 :s8vector 0 :s8vector) + (1 :number 0 :number) + (1 :u8vector 0 :u8vector) (1 :null 0 :null) - (1 :immediate 0 :immediate) + (1 :true 0 :true) + (1 :t 0 :t) + (1 :atom 0 :atom) + (1 :directory-port 0 :directory-port) + (1 :byte-port 0 :byte-port) + (1 :character-port 0 :character-port) + (1 :port 0 :port) + (1 :void 0 :void) (1 :string 0 :string) - (1 :u32vector 0 :u32vector) - (1 :thread 0 :thread) - (1 :list 0 :list) - (1 :boolean 0 :boolean) + (1 :condvar 0 :condvar) + (1 :eof 0 :eof) + (1 :thread-group 0 :thread-group) + (1 :values 0 :values) + (1 :vector 0 :vector) + (1 :sequence 0 :sequence) + (1 :special 0 :special) + (1 :weak 0 :weak) (1 :readtable 0 :readtable) + (1 :object 0 :object) + (1 :vm 0 :vm) + (1 :readenv 0 :readenv) + (1 :event-queue-port 0 :event-queue-port) + (1 :vector-port 0 :vector-port) + (1 :device-port 0 :device-port) + (1 :object-port 0 :object-port) + (1 :thread 0 :thread) + (1 :ratnum 0 :ratnum) + (1 :flonum 0 :flonum) + (1 :class 0 :class) + (1 :false 0 :false) + (1 :symbol 0 :symbol) + (1 :hvector 0 :hvector) (2 defclass-type 1 defclass-type) (2 defstruct-type 1 defstruct-type) (3 module-type-id 2 module-type-id) (3 make-class-type-id 2 make-class-type-id) + (2 !class-type-system? 1 !class-type-system?) (2 - &!class-type-constructor-method-set! + !class-type-constructor-method-set! 1 - &!class-type-constructor-method-set!) - (2 &!class-type-slot-types 1 &!class-type-slot-types) - (2 &!class-type-predicate-set! 1 &!class-type-predicate-set!) - (2 &!class-type-slots-set! 1 &!class-type-slots-set!) - (2 &!class-type-slots 1 &!class-type-slots) - (2 !class-type-predicate 1 !class-type-predicate) - (2 !class-type-id-set! 1 !class-type-id-set!) - (2 &!class-type-slot-contracts 1 &!class-type-slot-contracts) - (2 !class-type-slot-defaults 1 !class-type-slot-defaults) - (2 &!class-type-descriptor 1 &!class-type-descriptor) - (2 &!class-type-slot-defaults 1 &!class-type-slot-defaults) + !class-type-constructor-method-set!) + (2 &!class-type-constructor 1 &!class-type-constructor) + (2 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) + (2 &!class-type-struct? 1 &!class-type-struct?) (2 - &!class-type-constructor-method + class-type-info::apply-macro-expander 1 - &!class-type-constructor-method) - (2 !class-type-id 1 !class-type-id) + class-type-info::apply-macro-expander) + (2 &!class-type-slot-contracts 1 &!class-type-slot-contracts) + (2 &!class-type-precedence-list 1 &!class-type-precedence-list) + (2 &!class-type-super 1 &!class-type-super) + (2 !class-type-name-set! 1 !class-type-name-set!) + (2 !class-type-slot-contracts 1 !class-type-slot-contracts) + (2 !class-type-constructor 1 !class-type-constructor) + (2 !class-type-descriptor 1 !class-type-descriptor) (2 !class-type-super 1 !class-type-super) - (2 !class-type-system?-set! 1 !class-type-system?-set!) - (2 !class-type-slots-set! 1 !class-type-slots-set!) - (2 class-type-info? 1 class-type-info?) - (2 !class-type-accessors-set! 1 !class-type-accessors-set!) + (2 &!class-type-slot-types 1 &!class-type-slot-types) + (2 syntax-local-class-type-info? 1 syntax-local-class-type-info?) + (2 &!class-type-super-set! 1 &!class-type-super-set!) + (2 &!class-type-constructor-set! 1 &!class-type-constructor-set!) (2 &!class-type-ordered-slots-set! 1 &!class-type-ordered-slots-set!) + (2 !class-type-accessors 1 !class-type-accessors) (2 !class-type-ordered-slots 1 !class-type-ordered-slots) (2 - class-type-info::apply-macro-expander - 1 - class-type-info::apply-macro-expander) - (2 !class-type-final?-set! 1 !class-type-final?-set!) - (2 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) - (2 &!class-type-struct? 1 &!class-type-struct?) - (2 &!class-type-mutators-set! 1 &!class-type-mutators-set!) - (2 &!class-type-super 1 &!class-type-super) - (2 &!class-type-final?-set! 1 &!class-type-final?-set!) - (2 !class-type-slots 1 !class-type-slots) - (2 - &!class-type-unchecked-mutators + !class-type-unchecked-accessors 1 - &!class-type-unchecked-mutators) - (2 !class-type-constructor 1 !class-type-constructor) - (2 !class-type-metaclass-set! 1 !class-type-metaclass-set!) + !class-type-unchecked-accessors) + (2 &!class-type-name-set! 1 &!class-type-name-set!) + (2 &!class-type-slots 1 &!class-type-slots) (2 &!class-type-unchecked-accessors 1 &!class-type-unchecked-accessors) - (2 &!class-type-accessors-set! 1 &!class-type-accessors-set!) - (2 &!class-type-constructor-set! 1 &!class-type-constructor-set!) - (2 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) - (2 &!class-type-struct?-set! 1 &!class-type-struct?-set!) + (2 &!class-type-descriptor 1 &!class-type-descriptor) (2 &!class-type-precedence-list-set! 1 &!class-type-precedence-list-set!) - (2 &!class-type-super-set! 1 &!class-type-super-set!) - (2 &!class-type-name 1 &!class-type-name) - (2 !class-type-name 1 !class-type-name) - (2 &!class-type-name-set! 1 &!class-type-name-set!) + (2 + &!class-type-slot-defaults-set! + 1 + &!class-type-slot-defaults-set!) + (2 + &!class-type-unchecked-mutators-set! + 1 + &!class-type-unchecked-mutators-set!) + (2 &!class-type-slot-defaults 1 &!class-type-slot-defaults) (2 &!class-type-mutators 1 &!class-type-mutators) - (2 class-type-info::t 1 class-type-info::t) - (2 &!class-type-accessors 1 &!class-type-accessors) - (2 !class-type-final? 1 !class-type-final?) - (2 &!class-type-id-set! 1 &!class-type-id-set!) + (2 &!class-type-metaclass 1 &!class-type-metaclass) + (2 &!class-type-predicate-set! 1 &!class-type-predicate-set!) + (2 + !class-type-precedence-list-set! + 1 + !class-type-precedence-list-set!) + (2 !class-type-slot-defaults 1 !class-type-slot-defaults) + (2 &!class-type-mutators-set! 1 &!class-type-mutators-set!) + (2 &!class-type-slots-set! 1 &!class-type-slots-set!) + (2 !class-type-slot-types 1 !class-type-slot-types) + (2 &!class-type-final? 1 &!class-type-final?) + (2 !class-type-struct?-set! 1 !class-type-struct?-set!) (2 &!class-type-slot-contracts-set! 1 &!class-type-slot-contracts-set!) - (2 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) + (2 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) + (2 + &!class-type-unchecked-accessors-set! + 1 + &!class-type-unchecked-accessors-set!) + (2 &!class-type-ordered-slots 1 &!class-type-ordered-slots) (2 !class-type-unchecked-accessors-set! 1 !class-type-unchecked-accessors-set!) - (2 !class-type-accessors 1 !class-type-accessors) - (2 !class-type-descriptor 1 !class-type-descriptor) + (2 !class-type-id-set! 1 !class-type-id-set!) + (2 !class-type-struct? 1 !class-type-struct?) + (2 !class-type-slots 1 !class-type-slots) + (2 &!class-type-accessors-set! 1 &!class-type-accessors-set!) + (2 &!class-type-system?-set! 1 &!class-type-system?-set!) (2 - !class-type-slot-contracts-set! + &!class-type-constructor-method 1 - !class-type-slot-contracts-set!) + &!class-type-constructor-method) + (2 &!class-type-id 1 &!class-type-id) (2 - &!class-type-slot-defaults-set! + &!class-type-constructor-method-set! 1 - &!class-type-slot-defaults-set!) - (2 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) - (2 &!class-type-descriptor-set! 1 &!class-type-descriptor-set!) + &!class-type-constructor-method-set!) + (2 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) + (2 make-class-type-info 1 make-class-type-info) + (2 !class-type-metaclass-set! 1 !class-type-metaclass-set!) + (2 !class-type-slot-types-set! 1 !class-type-slot-types-set!) + (2 &!class-type-final?-set! 1 &!class-type-final?-set!) + (2 &!class-type-struct?-set! 1 &!class-type-struct?-set!) + (2 !class-type-predicate 1 !class-type-predicate) + (2 &!class-type-predicate 1 &!class-type-predicate) (2 !class-type-unchecked-mutators-set! 1 !class-type-unchecked-mutators-set!) - (2 !class-type-name-set! 1 !class-type-name-set!) - (2 &!class-type-constructor 1 &!class-type-constructor) - (2 &!class-type-system? 1 &!class-type-system?) - (2 &!class-type-final? 1 &!class-type-final?) - (2 &!class-type-ordered-slots 1 &!class-type-ordered-slots) - (2 &!class-type-id 1 &!class-type-id) - (2 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) - (2 !class-type-precedence-list 1 !class-type-precedence-list) - (2 !class-type-mutators 1 !class-type-mutators) - (2 !class-type-struct?-set! 1 !class-type-struct?-set!) + (2 !class-type-constructor-set! 1 !class-type-constructor-set!) + (2 !class-type-system?-set! 1 !class-type-system?-set!) + (2 !class-type-super-set! 1 !class-type-super-set!) (2 !class-type-predicate-set! 1 !class-type-predicate-set!) - (2 - !class-type-constructor-method-set! - 1 - !class-type-constructor-method-set!) - (2 !class-type-slot-types 1 !class-type-slot-types) + (2 !class-type-final?-set! 1 !class-type-final?-set!) + (2 !class-type-mutators 1 !class-type-mutators) + (2 !class-type-metaclass 1 !class-type-metaclass) + (2 !class-type-precedence-list 1 !class-type-precedence-list) + (2 &!class-type-name 1 &!class-type-name) (2 !class-type-constructor-method 1 !class-type-constructor-method) (2 - !class-type-unchecked-accessors + &!class-type-unchecked-mutators 1 - !class-type-unchecked-accessors) - (2 !class-type-super-set! 1 !class-type-super-set!) - (2 !class-type-metaclass 1 !class-type-metaclass) - (2 make-class-type-info 1 make-class-type-info) - (2 &!class-type-system?-set! 1 &!class-type-system?-set!) - (2 !class-type-system? 1 !class-type-system?) - (2 &!class-type-metaclass 1 &!class-type-metaclass) - (2 !class-type-descriptor-set! 1 !class-type-descriptor-set!) + &!class-type-unchecked-mutators) + (2 !class-type-final? 1 !class-type-final?) + (2 !class-type-name 1 !class-type-name) + (2 &!class-type-id-set! 1 &!class-type-id-set!) (2 !class-type-mutators-set! 1 !class-type-mutators-set!) (2 - &!class-type-unchecked-accessors-set! - 1 - &!class-type-unchecked-accessors-set!) - (2 - &!class-type-unchecked-mutators-set! + !class-type-slot-contracts-set! 1 - &!class-type-unchecked-mutators-set!) - (2 &!class-type-predicate 1 &!class-type-predicate) - (2 !class-type-slot-contracts 1 !class-type-slot-contracts) - (2 !class-type-slot-types-set! 1 !class-type-slot-types-set!) - (2 !class-type-constructor-set! 1 !class-type-constructor-set!) - (2 &!class-type-precedence-list 1 &!class-type-precedence-list) - (2 - !class-type-precedence-list-set! - 1 - !class-type-precedence-list-set!) - (2 syntax-local-class-type-info? 1 syntax-local-class-type-info?) - (2 !class-type-struct? 1 !class-type-struct?) + !class-type-slot-contracts-set!) + (2 &!class-type-system? 1 &!class-type-system?) + (2 !class-type-accessors-set! 1 !class-type-accessors-set!) + (2 class-type-info? 1 class-type-info?) + (2 &!class-type-descriptor-set! 1 &!class-type-descriptor-set!) + (2 &!class-type-accessors 1 &!class-type-accessors) + (2 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) + (2 !class-type-id 1 !class-type-id) + (2 !class-type-descriptor-set! 1 !class-type-descriptor-set!) + (2 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) + (2 !class-type-slots-set! 1 !class-type-slots-set!) + (2 class-type-info::t 1 class-type-info::t) (2 class-type-info 1 class-type-info) + (2 defclass 1 defclass) (2 define-class 1 define-class) - (2 @ 1 @) - (2 defmethod 1 defmethod) (2 define-struct 1 define-struct) (2 defstruct 1 defstruct) (2 @-set! 1 @-set!) - (2 defclass 1 defclass) - (2 :directory-port 1 :directory-port) + (2 @ 1 @) + (2 defmethod 1 defmethod) + (2 :u64vector 1 :u64vector) (2 :s32vector 1 :s32vector) - (2 :s8vector 1 :s8vector) - (2 :symbol 1 :symbol) - (2 :number 1 :number) - (2 :thread-group 1 :thread-group) - (2 :writeenv 1 :writeenv) - (2 :ratnum 1 :ratnum) - (2 :object-port 1 :object-port) - (2 :device-port 1 :device-port) - (2 :byte-port 1 :byte-port) - (2 :vector 1 :vector) - (2 :time 1 :time) - (2 :false 1 :false) - (2 :string-port 1 :string-port) - (2 :promise 1 :promise) - (2 :file-info 1 :file-info) - (2 :address-info 1 :address-info) - (2 :vm 1 :vm) - (2 :frame 1 :frame) - (2 :table 1 :table) - (2 :event-queue-port 1 :event-queue-port) - (2 :tcp-server-port 1 :tcp-server-port) - (2 :port 1 :port) + (2 defsystem-class-info 1 defsystem-class-info) (2 :fixnum 1 :fixnum) + (2 :frame 1 :frame) + (2 :foreign 1 :foreign) (2 :real 1 :real) - (2 :procedure 1 :procedure) - (2 :special 1 :special) - (2 :void 1 :void) - (2 :values 1 :values) - (2 :f64vector 1 :f64vector) + (2 :pair 1 :pair) + (2 :u8vector-port 1 :u8vector-port) + (2 :boolean 1 :boolean) (2 :char 1 :char) - (2 :class 1 :class) - (2 :t 1 :t) - (2 :mutex 1 :mutex) - (2 defsystem-class-info 1 defsystem-class-info) - (2 :readenv 1 :readenv) (2 :integer 1 :integer) - (2 :raw-device-port 1 :raw-device-port) - (2 :u8vector 1 :u8vector) - (2 :u64vector 1 :u64vector) + (2 :procedure 1 :procedure) + (2 :cpxnum 1 :cpxnum) + (2 :address-info 1 :address-info) + (2 :table 1 :table) (2 :udp-port 1 :udp-port) - (2 :condvar 1 :condvar) - (2 :eof 1 :eof) - (2 :weak 1 :weak) - (2 :box 1 :box) - (2 :u16vector 1 :u16vector) + (2 :string-port 1 :string-port) + (2 :raw-device-port 1 :raw-device-port) + (2 :immediate 1 :immediate) (2 :symbolic 1 :symbolic) - (2 :bignum 1 :bignum) - (2 :atom 1 :atom) - (2 :u8vector-port 1 :u8vector-port) - (2 :continuation 1 :continuation) - (2 :sequence 1 :sequence) - (2 :processor 1 :processor) - (2 :hvector 1 :hvector) - (2 :socket-info 1 :socket-info) - (2 :character-port 1 :character-port) + (2 :s64vector 1 :s64vector) + (2 :mutex 1 :mutex) (2 :f32vector 1 :f32vector) - (2 :pair 1 :pair) - (2 :cpxnum 1 :cpxnum) + (2 :box 1 :box) + (2 :list 1 :list) + (2 :u32vector 1 :u32vector) + (2 :u16vector 1 :u16vector) (2 :keyword 1 :keyword) - (2 class 1 class) - (2 :flonum 1 :flonum) - (2 :true 1 :true) - (2 :vector-port 1 :vector-port) - (2 :foreign 1 :foreign) - (2 :s64vector 1 :s64vector) - (2 :object 1 :object) + (2 :tcp-server-port 1 :tcp-server-port) + (2 :bignum 1 :bignum) (2 :s16vector 1 :s16vector) + (2 class 1 class) + (2 :time 1 :time) + (2 :socket-info 1 :socket-info) + (2 :file-info 1 :file-info) + (2 :processor 1 :processor) + (2 :writeenv 1 :writeenv) + (2 :promise 1 :promise) + (2 :continuation 1 :continuation) + (2 :f64vector 1 :f64vector) + (2 :s8vector 1 :s8vector) + (2 :number 1 :number) + (2 :u8vector 1 :u8vector) (2 :null 1 :null) - (2 :immediate 1 :immediate) + (2 :true 1 :true) + (2 :t 1 :t) + (2 :atom 1 :atom) + (2 :directory-port 1 :directory-port) + (2 :byte-port 1 :byte-port) + (2 :character-port 1 :character-port) + (2 :port 1 :port) + (2 :void 1 :void) (2 :string 1 :string) - (2 :u32vector 1 :u32vector) + (2 :condvar 1 :condvar) + (2 :eof 1 :eof) + (2 :thread-group 1 :thread-group) + (2 :values 1 :values) + (2 :vector 1 :vector) + (2 :sequence 1 :sequence) + (2 :special 1 :special) + (2 :weak 1 :weak) + (2 :readtable 1 :readtable) + (2 :object 1 :object) + (2 :vm 1 :vm) + (2 :readenv 1 :readenv) + (2 :event-queue-port 1 :event-queue-port) + (2 :vector-port 1 :vector-port) + (2 :device-port 1 :device-port) + (2 :object-port 1 :object-port) (2 :thread 1 :thread) - (2 :list 1 :list) - (2 :boolean 1 :boolean) - (2 :readtable 1 :readtable)) + (2 :ratnum 1 :ratnum) + (2 :flonum 1 :flonum) + (2 :class 1 :class) + (2 :false 1 :false) + (2 :symbol 1 :symbol) + (2 :hvector 1 :hvector)) (phi: 1 :gerbil/core/match) (phi: 1 :gerbil/core/more-sugar) (phi: 1 :gerbil/core/contract) @@ -670,2661 +670,2663 @@ namespace: gerbil/core (%#export (spec: 1 !class-precedence-list !class-precedence-list) (spec: 1 type-env-type type-env-type) - (spec: 1 current-type-env current-type-env) - (spec: 1 type-env-super type-env-super) + (spec: 1 type-env-var-set! type-env-var-set!) + (spec: 1 &type-env-type &type-env-type) + (spec: 1 type-env::t type-env::t) + (spec: 1 type-env-checked? type-env-checked?) + (spec: 1 type-env type-env) + (spec: 1 &type-env-type-set! &type-env-type-set!) (spec: 1 type-env? type-env?) - (spec: 1 &type-env-super-set! &type-env-super-set!) + (spec: 1 type-env-super type-env-super) (spec: 1 &type-env-super &type-env-super) (spec: 1 &type-env-checked? &type-env-checked?) - (spec: 1 type-env::t type-env::t) - (spec: 1 type-env-checked?-set! type-env-checked?-set!) - (spec: 1 &type-env-var-set! &type-env-var-set!) + (spec: 1 make-type-env make-type-env) (spec: 1 type-env-type-set! type-env-type-set!) - (spec: 1 type-env-var-set! type-env-var-set!) - (spec: 1 type-env type-env) - (spec: 1 type-env-checked? type-env-checked?) + (spec: 1 type-env-checked?-set! type-env-checked?-set!) (spec: 1 &type-env-checked?-set! &type-env-checked?-set!) - (spec: 1 type-env-var type-env-var) - (spec: 1 type-env-lookup type-env-lookup) (spec: 1 type-env-super-set! type-env-super-set!) - (spec: 1 &type-env-type-set! &type-env-type-set!) - (spec: 1 &type-env-type &type-env-type) - (spec: 1 make-type-env make-type-env) (spec: 1 &type-env-var &type-env-var) + (spec: 1 current-type-env current-type-env) + (spec: 1 type-env-var type-env-var) + (spec: 1 &type-env-super-set! &type-env-super-set!) + (spec: 1 &type-env-var-set! &type-env-var-set!) + (spec: 1 type-env-lookup type-env-lookup) (spec: 1 - interface-info::apply-macro-expander - interface-info::apply-macro-expander) + interface-info-interface-mixin-set! + interface-info-interface-mixin-set!) (spec: 1 - interface-info-instance-satisfies-predicate - interface-info-instance-satisfies-predicate) + &interface-info-interface-methods + &interface-info-interface-methods) + (spec: 1 &interface-info-instance-type &interface-info-instance-type) (spec: 1 - interface-info-instance-try-constructor-set! - interface-info-instance-try-constructor-set!) + &interface-info-instance-satisfies-predicate + &interface-info-instance-satisfies-predicate) + (spec: 1 &interface-info-name-set! &interface-info-name-set!) (spec: 1 - interface-info-interface-methods - interface-info-interface-methods) + interface-info-instance-satisfies-predicate-set! + interface-info-instance-satisfies-predicate-set!) + (spec: 1 syntax-local-interface-info? syntax-local-interface-info?) (spec: 1 &interface-info-interface-descriptor-set! &interface-info-interface-descriptor-set!) - (spec: 1 interface-info::t interface-info::t) - (spec: - 1 - &interface-info-implementation-methods-set! - &interface-info-implementation-methods-set!) + (spec: 1 interface-info-name-set! interface-info-name-set!) + (spec: 1 make-interface-info make-interface-info) (spec: 1 - &interface-info-instance-try-constructor - &interface-info-instance-try-constructor) - (spec: 1 interface-info-name-set! interface-info-name-set!) + interface-info-interface-mixin + interface-info-interface-mixin) (spec: 1 - &interface-info-unchecked-implementation-methods - &interface-info-unchecked-implementation-methods) - (spec: 1 interface-info-flatten-mixin interface-info-flatten-mixin) - (spec: 1 &interface-info-instance-type &interface-info-instance-type) + &interface-info-instance-predicate + &interface-info-instance-predicate) (spec: 1 - &interface-info-interface-descriptor - &interface-info-interface-descriptor) + interface-info-unchecked-implementation-methods + interface-info-unchecked-implementation-methods) (spec: 1 - &interface-info-instance-constructor-set! - &interface-info-instance-constructor-set!) + &interface-info-interface-mixin-set! + &interface-info-interface-mixin-set!) (spec: 1 - interface-info-unchecked-implementation-methods - interface-info-unchecked-implementation-methods) + interface-info::apply-macro-expander + interface-info::apply-macro-expander) (spec: 1 interface-info-instance-predicate-set! interface-info-instance-predicate-set!) - (spec: 1 interface-info-name interface-info-name) (spec: 1 - interface-info-instance-try-constructor - interface-info-instance-try-constructor) + interface-info-implementation-methods + interface-info-implementation-methods) (spec: 1 - &interface-info-instance-constructor - &interface-info-instance-constructor) + interface-info-interface-descriptor-set! + interface-info-interface-descriptor-set!) (spec: 1 - interface-info-instance-constructor-set! - interface-info-instance-constructor-set!) + interface-info-unchecked-implementation-methods-set! + interface-info-unchecked-implementation-methods-set!) + (spec: 1 &interface-info-name &interface-info-name) (spec: 1 - &interface-info-instance-predicate - &interface-info-instance-predicate) - (spec: 1 interface-info interface-info) + &interface-info-unchecked-implementation-methods + &interface-info-unchecked-implementation-methods) (spec: 1 - interface-info-interface-methods-set! - interface-info-interface-methods-set!) - (spec: - 1 - interface-info-instance-type-set! - interface-info-instance-type-set!) + &interface-info-interface-methods-set! + &interface-info-interface-methods-set!) (spec: 1 interface-info-instance-constructor interface-info-instance-constructor) - (spec: 1 syntax-local-interface-info? syntax-local-interface-info?) (spec: 1 - interface-info-instance-satisfies-predicate-set! - interface-info-instance-satisfies-predicate-set!) + &interface-info-instance-predicate-set! + &interface-info-instance-predicate-set!) (spec: 1 - interface-info-interface-descriptor-set! - interface-info-interface-descriptor-set!) - (spec: 1 make-interface-info make-interface-info) + &interface-info-instance-try-constructor + &interface-info-instance-try-constructor) + (spec: 1 interface-info interface-info) (spec: 1 - interface-info-unchecked-implementation-methods-set! - interface-info-unchecked-implementation-methods-set!) + interface-info-implementation-methods-set! + interface-info-implementation-methods-set!) (spec: 1 - interface-info-instance-predicate - interface-info-instance-predicate) + &interface-info-instance-constructor + &interface-info-instance-constructor) + (spec: + 1 + &interface-info-instance-try-constructor-set! + &interface-info-instance-try-constructor-set!) + (spec: + 1 + interface-info-instance-try-constructor-set! + interface-info-instance-try-constructor-set!) (spec: 1 &interface-info-implementation-methods &interface-info-implementation-methods) + (spec: 1 interface-info-name interface-info-name) + (spec: 1 interface-info::t interface-info::t) + (spec: + 1 + interface-info-instance-type-set! + interface-info-instance-type-set!) (spec: 1 &interface-info-unchecked-implementation-methods-set! &interface-info-unchecked-implementation-methods-set!) + (spec: 1 interface-info? interface-info?) (spec: 1 - interface-info-interface-descriptor - interface-info-interface-descriptor) + interface-info-instance-satisfies-predicate + interface-info-instance-satisfies-predicate) (spec: 1 - interface-info-interface-mixin-set! - interface-info-interface-mixin-set!) - (spec: 1 interface-info? interface-info?) + interface-info-interface-methods-set! + interface-info-interface-methods-set!) (spec: 1 - &interface-info-interface-methods-set! - &interface-info-interface-methods-set!) + interface-info-instance-try-constructor + interface-info-instance-try-constructor) (spec: 1 - interface-info-implementation-methods-set! - interface-info-implementation-methods-set!) + interface-info-interface-descriptor + interface-info-interface-descriptor) (spec: 1 - &interface-info-instance-satisfies-predicate-set! - &interface-info-instance-satisfies-predicate-set!) + &interface-info-instance-type-set! + &interface-info-instance-type-set!) (spec: 1 interface-info-instance-type interface-info-instance-type) (spec: 1 - interface-info-implementation-methods - interface-info-implementation-methods) - (spec: - 1 - &interface-info-interface-mixin - &interface-info-interface-mixin) + interface-info-instance-predicate + interface-info-instance-predicate) (spec: 1 - &interface-info-instance-satisfies-predicate - &interface-info-instance-satisfies-predicate) + &interface-info-instance-satisfies-predicate-set! + &interface-info-instance-satisfies-predicate-set!) (spec: 1 - &interface-info-instance-predicate-set! - &interface-info-instance-predicate-set!) - (spec: 1 &interface-info-name &interface-info-name) + &interface-info-interface-descriptor + &interface-info-interface-descriptor) (spec: 1 - &interface-info-instance-try-constructor-set! - &interface-info-instance-try-constructor-set!) + interface-info-interface-methods + interface-info-interface-methods) (spec: 1 - interface-info-interface-mixin - interface-info-interface-mixin) + &interface-info-implementation-methods-set! + &interface-info-implementation-methods-set!) (spec: 1 - &interface-info-interface-methods - &interface-info-interface-methods) - (spec: 1 &interface-info-name-set! &interface-info-name-set!) + &interface-info-instance-constructor-set! + &interface-info-instance-constructor-set!) (spec: 1 - &interface-info-instance-type-set! - &interface-info-instance-type-set!) + &interface-info-interface-mixin + &interface-info-interface-mixin) + (spec: 1 interface-info-flatten-mixin interface-info-flatten-mixin) (spec: 1 - &interface-info-interface-mixin-set! - &interface-info-interface-mixin-set!) + interface-info-instance-constructor-set! + interface-info-instance-constructor-set!) (spec: 1 is-signature? is-signature?) - (spec: 0 with-procedure-signature with-procedure-signature) - (spec: 0 @method @method) - (spec: 0 defmethod/c defmethod/c) - (spec: 0 lambda/c lambda/c) - (spec: 0 defstruct/c defstruct/c) - (spec: 0 def*/c def*/c) - (spec: 0 def/c def/c) - (spec: 0 let/c let/c) - (spec: 0 defmutable defmutable) - (spec: 0 case-lambda/c case-lambda/c) (spec: 0 with-procedure-contract with-procedure-contract) + (spec: 0 with-receiver with-receiver) (spec: 0 with-procedure-unchecked-contract with-procedure-unchecked-contract) - (spec: 0 with-receiver with-receiver) + (spec: 0 defmethod/c defmethod/c) + (spec: 0 case-lambda/c case-lambda/c) + (spec: 0 @method @method) (spec: 0 defclass/c defclass/c) - (spec: 1 contract-type-subtype? contract-type-subtype?) - (spec: 1 check-valid-type! check-valid-type!) - (spec: 1 signature-arguments-out signature-arguments-out) - (spec: - 1 - make-interface-method-lambda-signature - make-interface-method-lambda-signature) + (spec: 0 defstruct/c defstruct/c) + (spec: 0 def*/c def*/c) + (spec: 0 defmutable defmutable) + (spec: 0 def/c def/c) + (spec: 0 lambda/c lambda/c) + (spec: 0 let/c let/c) + (spec: 0 defmutable* defmutable*) + (spec: 0 with-procedure-signature with-procedure-signature) (spec: 1 signature-has-keywords? signature-has-keywords?) - (spec: 1 signature-keywords signature-keywords) - (spec: 1 signature-arguments-in signature-arguments-in) + (spec: 1 check-valid-type! check-valid-type!) (spec: 1 check-signature-contract-types! check-signature-contract-types!) (spec: 1 compatible-signatures? compatible-signatures?) - (spec: 1 check-signature! check-signature!) + (spec: 1 signature-arity signature-arity) (spec: 1 make-interface-method-contract make-interface-method-contract) + (spec: 1 check-signature-spec! check-signature-spec!) + (spec: 1 make-procedure-contract make-procedure-contract) (spec: 1 compatible-type-contract? compatible-type-contract?) + (spec: 1 contract-type-subtype? contract-type-subtype?) + (spec: 1 signature-contract? signature-contract?) (spec: 1 make-procedure-lambda-signature make-procedure-lambda-signature) + (spec: 1 symboltype-descriptor resolve-type->type-descriptor) + (spec: 0 ::- ::-) + (spec: 0 :- :-) + (spec: 1 resolve-type resolve-type) + (spec: 1 &type-reference-identifier &type-reference-identifier) (spec: 1 type-reference-identifier-set! type-reference-identifier-set!) - (spec: 1 &type-reference-identifier &type-reference-identifier) - (spec: 1 type-reference::t type-reference::t) (spec: 1 &type-reference-identifier-set! &type-reference-identifier-set!) - (spec: 1 type-identifier? type-identifier?) - (spec: 1 resolve-type resolve-type) + (spec: 1 type-reference::t type-reference::t) + (spec: 1 resolve-type->type-descriptor resolve-type->type-descriptor) + (spec: 1 make-type-reference make-type-reference) (spec: 1 resolve-type->identifier resolve-type->identifier) + (spec: 1 type-reference-identifier type-reference-identifier) (spec: 1 type-reference? type-reference?) - (spec: 1 make-type-reference make-type-reference) + (spec: 1 type-identifier? type-identifier?) + (spec: 1 type-reference type-reference) (spec: 0 deftype deftype) - (spec: 0 Using Using) - (spec: 0 TypeEnv TypeEnv) (spec: 0 TypedDefinitions TypedDefinitions) + (spec: 0 TypeCast TypeCast) (spec: 0 Interface Interface) + (spec: 0 Using Using) + (spec: 0 ContractRules ContractRules) + (spec: 0 TypeReference TypeReference) (spec: 0 InterfaceInfo InterfaceInfo) + (spec: 0 TypeEnv TypeEnv) (spec: 0 ClassMeta ClassMeta) - (spec: 0 TypeReference TypeReference) - (spec: 0 ContractRules ContractRules) - (spec: 0 TypeCast TypeCast) - (spec: 0 rename-in rename-in) (spec: 0 except-in except-in) - (spec: 0 defsyntax-for-export defsyntax-for-export) + (spec: 0 defsyntax-for-import defsyntax-for-import) + (spec: 0 rename-out rename-out) (spec: 0 require require) - (spec: 0 prefix-out prefix-out) + (spec: 0 struct-out struct-out) + (spec: 0 group-in group-in) (spec: 0 except-out except-out) + (spec: 0 for-template for-template) (spec: 0 for-syntax for-syntax) + (spec: 0 rename-in rename-in) + (spec: 0 defsyntax-for-import-export defsyntax-for-import-export) + (spec: 0 defsyntax-for-export defsyntax-for-export) (spec: 0 only-in only-in) - (spec: 0 for-template for-template) - (spec: 0 group-in group-in) (spec: 0 prefix-in prefix-in) - (spec: 0 struct-out struct-out) - (spec: 0 defsyntax-for-import-export defsyntax-for-import-export) - (spec: 0 rename-out rename-out) - (spec: 0 defsyntax-for-import defsyntax-for-import) + (spec: 0 prefix-out prefix-out) (spec: 1 setf-macro-macro setf-macro-macro) - (spec: 1 &setf-macro-macro-set! &setf-macro-macro-set!) - (spec: 1 &setq-macro-macro-set! &setq-macro-macro-set!) - (spec: 1 syntax-local-setq-macro? syntax-local-setq-macro?) - (spec: 1 setq-macro? setq-macro?) - (spec: 1 setq-macro setq-macro) + (spec: 1 setq-macro-macro-set! setq-macro-macro-set!) + (spec: 1 setf-macro-macro-set! setf-macro-macro-set!) + (spec: 1 setq-macro-macro setq-macro-macro) + (spec: 1 make-setf-macro make-setf-macro) (spec: 1 expand-set! expand-set!) + (spec: 1 make-setq-macro make-setq-macro) + (spec: 1 setq-macro? setq-macro?) + (spec: 1 setf-macro::t setf-macro::t) + (spec: 1 &setf-macro-macro &setf-macro-macro) + (spec: 1 &setq-macro-macro-set! &setq-macro-macro-set!) + (spec: 1 setq-macro::t setq-macro::t) (spec: 1 setf-macro? setf-macro?) + (spec: 1 &setf-macro-macro-set! &setf-macro-macro-set!) + (spec: 1 syntax-local-setq-macro? syntax-local-setq-macro?) + (spec: 1 syntax-local-setf-macro? syntax-local-setf-macro?) (spec: 1 &setq-macro-macro &setq-macro-macro) - (spec: 1 make-setf-macro make-setf-macro) + (spec: 1 setq-macro setq-macro) (spec: 1 setf-macro setf-macro) - (spec: 1 syntax-local-setf-macro? syntax-local-setf-macro?) - (spec: 1 setq-macro::t setq-macro::t) - (spec: 1 &setf-macro-macro &setf-macro-macro) - (spec: 1 setf-macro::t setf-macro::t) - (spec: 1 setq-macro-macro setq-macro-macro) - (spec: 1 setf-macro-macro-set! setf-macro-macro-set!) - (spec: 1 setq-macro-macro-set! setq-macro-macro-set!) - (spec: 1 make-setq-macro make-setq-macro) (spec: 0 values-set! values-set!) - (spec: 0 parameterize parameterize) + (spec: 0 eval-when-compile eval-when-compile) (spec: 0 let/cc let/cc) - (spec: 0 unwind-protect unwind-protect) (spec: 0 @bytes @bytes) - (spec: 0 eval-when-compile eval-when-compile) + (spec: 0 unwind-protect unwind-protect) + (spec: 0 parameterize parameterize) (spec: 1 match-pattern? match-pattern?) (spec: 1 syntax-local-match-macro? syntax-local-match-macro?) (spec: 1 match-macro? match-macro?) (spec: 1 make-match-macro make-match-macro) (spec: 1 match-macro::t match-macro::t) (spec: 1 match-macro match-macro) - (spec: 0 defsyntax-for-match defsyntax-for-match) - (spec: 0 match* match*) - (spec: 0 defrules-for-match defrules-for-match) - (spec: 0 ? ?) (spec: 0 with* with*) - (spec: 0 match match) + (spec: 0 match* match*) (spec: 0 with with) - (spec: 0 :readtable :readtable) - (spec: 0 :boolean :boolean) - (spec: 0 :list :list) + (spec: 0 match match) + (spec: 0 ? ?) + (spec: 0 defsyntax-for-match defsyntax-for-match) + (spec: 0 defrules-for-match defrules-for-match) + (spec: 0 :hvector :hvector) + (spec: 0 :symbol :symbol) + (spec: 0 :false :false) + (spec: 0 :class :class) + (spec: 0 :flonum :flonum) + (spec: 0 :ratnum :ratnum) (spec: 0 :thread :thread) - (spec: 0 :u32vector :u32vector) - (spec: 0 :string :string) - (spec: 0 :immediate :immediate) - (spec: 0 :null :null) - (spec: 0 :s16vector :s16vector) - (spec: 0 :object :object) - (spec: 0 :s64vector :s64vector) - (spec: 0 :foreign :foreign) + (spec: 0 :object-port :object-port) + (spec: 0 :device-port :device-port) (spec: 0 :vector-port :vector-port) - (spec: 0 :true :true) - (spec: 0 :flonum :flonum) - (spec: 0 class class) - (spec: 0 :keyword :keyword) - (spec: 0 :cpxnum :cpxnum) - (spec: 0 :pair :pair) - (spec: 0 :f32vector :f32vector) - (spec: 0 :character-port :character-port) - (spec: 0 :socket-info :socket-info) - (spec: 0 :hvector :hvector) - (spec: 0 :processor :processor) + (spec: 0 :event-queue-port :event-queue-port) + (spec: 0 :readenv :readenv) + (spec: 0 :vm :vm) + (spec: 0 :object :object) + (spec: 0 :readtable :readtable) + (spec: 0 :weak :weak) + (spec: 0 :special :special) (spec: 0 :sequence :sequence) - (spec: 0 :continuation :continuation) - (spec: 0 :u8vector-port :u8vector-port) + (spec: 0 :vector :vector) + (spec: 0 :values :values) + (spec: 0 :thread-group :thread-group) + (spec: 0 :eof :eof) + (spec: 0 :condvar :condvar) + (spec: 0 :string :string) + (spec: 0 :void :void) + (spec: 0 :port :port) + (spec: 0 :character-port :character-port) + (spec: 0 :byte-port :byte-port) + (spec: 0 :directory-port :directory-port) (spec: 0 :atom :atom) + (spec: 0 :t :t) + (spec: 0 :true :true) + (spec: 0 :null :null) + (spec: 0 :u8vector :u8vector) + (spec: 0 :number :number) + (spec: 0 :s8vector :s8vector) + (spec: 0 :f64vector :f64vector) + (spec: 0 :continuation :continuation) + (spec: 0 :promise :promise) + (spec: 0 :writeenv :writeenv) + (spec: 0 :processor :processor) + (spec: 0 :file-info :file-info) + (spec: 0 :socket-info :socket-info) + (spec: 0 :time :time) + (spec: 0 class class) + (spec: 0 :s16vector :s16vector) (spec: 0 :bignum :bignum) - (spec: 0 :symbolic :symbolic) + (spec: 0 :tcp-server-port :tcp-server-port) + (spec: 0 :keyword :keyword) (spec: 0 :u16vector :u16vector) + (spec: 0 :u32vector :u32vector) + (spec: 0 :list :list) (spec: 0 :box :box) - (spec: 0 :weak :weak) - (spec: 0 :eof :eof) - (spec: 0 :condvar :condvar) - (spec: 0 :udp-port :udp-port) - (spec: 0 :u64vector :u64vector) - (spec: 0 :u8vector :u8vector) + (spec: 0 :f32vector :f32vector) + (spec: 0 :mutex :mutex) + (spec: 0 :s64vector :s64vector) + (spec: 0 :symbolic :symbolic) + (spec: 0 :immediate :immediate) (spec: 0 :raw-device-port :raw-device-port) + (spec: 0 :string-port :string-port) + (spec: 0 :udp-port :udp-port) + (spec: 0 :table :table) + (spec: 0 :address-info :address-info) + (spec: 0 :cpxnum :cpxnum) + (spec: 0 :procedure :procedure) (spec: 0 :integer :integer) - (spec: 0 :readenv :readenv) - (spec: 0 defsystem-class-info defsystem-class-info) - (spec: 0 :mutex :mutex) - (spec: 0 :t :t) - (spec: 0 :class :class) (spec: 0 :char :char) - (spec: 0 :f64vector :f64vector) - (spec: 0 :values :values) - (spec: 0 :void :void) - (spec: 0 :special :special) - (spec: 0 :procedure :procedure) + (spec: 0 :boolean :boolean) + (spec: 0 :u8vector-port :u8vector-port) + (spec: 0 :pair :pair) (spec: 0 :real :real) - (spec: 0 :fixnum :fixnum) - (spec: 0 :port :port) - (spec: 0 :tcp-server-port :tcp-server-port) - (spec: 0 :event-queue-port :event-queue-port) - (spec: 0 :table :table) + (spec: 0 :foreign :foreign) (spec: 0 :frame :frame) - (spec: 0 :vm :vm) - (spec: 0 :address-info :address-info) - (spec: 0 :file-info :file-info) - (spec: 0 :promise :promise) - (spec: 0 :string-port :string-port) - (spec: 0 :false :false) - (spec: 0 :time :time) - (spec: 0 :vector :vector) - (spec: 0 :byte-port :byte-port) - (spec: 0 :device-port :device-port) - (spec: 0 :object-port :object-port) - (spec: 0 :ratnum :ratnum) - (spec: 0 :writeenv :writeenv) - (spec: 0 :thread-group :thread-group) - (spec: 0 :number :number) - (spec: 0 :symbol :symbol) - (spec: 0 :s8vector :s8vector) + (spec: 0 :fixnum :fixnum) + (spec: 0 defsystem-class-info defsystem-class-info) (spec: 0 :s32vector :s32vector) - (spec: 0 :directory-port :directory-port) + (spec: 0 :u64vector :u64vector) + (spec: 0 @ @) (spec: 0 @-set! @-set!) (spec: 0 define-struct define-struct) - (spec: 0 @ @) (spec: 0 define-class define-class) (spec: 0 defstruct-type defstruct-type) (spec: 0 defclass-type defclass-type) + (spec: 0 MOP-3 MOP-3) (spec: 0 MOP-4 MOP-4) - (spec: 0 MOP-5 MOP-5) (spec: 0 MOP-1 MOP-1) + (spec: 0 MOP-5 MOP-5) (spec: 0 MOP-2 MOP-2) - (spec: 0 MOP-3 MOP-3) - (spec: 0 defconst defconst) (spec: 0 defsyntax defsyntax) (spec: 0 definline definline) - (spec: 0 quasiquote quasiquote) + (spec: 0 defconst defconst) + (spec: 0 defvalues defvalues) + (spec: 0 case case) + (spec: 0 do do) + (spec: 0 do-while do-while) + (spec: 0 and-let* and-let*) + (spec: 0 begin0 begin0) + (spec: 0 alet* alet*) + (spec: 0 cut cut) + (spec: 0 <...> <...>) (spec: 0 ~case-test ~case-test) + (spec: 0 ~case ~case) (spec: 0 ~case-dispatch* ~case-dispatch*) + (spec: 0 ~case-dispatch-bsearch ~case-dispatch-bsearch) + (spec: 0 rec rec) (spec: 0 alet alet) + (spec: 0 quasiquote quasiquote) (spec: 0 <> <>) + (spec: 0 @list @list) (spec: 0 ~case-dispatch ~case-dispatch) - (spec: 0 do do) - (spec: 0 begin0 begin0) - (spec: 0 and-let* and-let*) - (spec: 0 do-while do-while) - (spec: 0 rec rec) - (spec: 0 case case) - (spec: 0 defvalues defvalues) - (spec: 0 ~case-dispatch-bsearch ~case-dispatch-bsearch) (spec: 0 delay delay) - (spec: 0 ~case ~case) - (spec: 0 alet* alet*) - (spec: 0 <...> <...>) - (spec: 0 cut cut) - (spec: 0 @list @list) - (spec: 0 defrules defrules) - (spec: 0 let*-values let*-values) + (spec: 0 unless unless) + (spec: 0 syntax-error syntax-error) (spec: 0 defalias defalias) - (spec: 0 let* let*) - (spec: 0 cond cond) - (spec: 0 ~let ~let) (spec: 0 letrec* letrec*) - (spec: 0 syntax-error syntax-error) + (spec: 0 ~let ~let) (spec: 0 letrec letrec) - (spec: 0 unless unless) - (spec: 0 defsyntax% defsyntax%) (spec: 0 defrule defrule) + (spec: 0 cond cond) + (spec: 0 let*-values let*-values) + (spec: 0 defrules defrules) + (spec: 0 let* let*) (spec: 0 define-rules define-rules) + (spec: 0 define define) + (spec: 0 when when) (spec: 0 and and) + (spec: 0 defsyntax% defsyntax%) (spec: 0 or or) - (spec: 0 when when) - (spec: 0 define define) + (spec: 0 random-bytes random-bytes) (spec: 0 string-ref-set! string-ref-set!) - (spec: 0 s32vector-ref-set! s32vector-ref-set!) + (spec: 0 random-source-make-bytes random-source-make-bytes) (spec: 0 cdr-set! cdr-set!) - (spec: 0 u8vector-ref-set! u8vector-ref-set!) + (spec: 0 u64vector-ref-set! u64vector-ref-set!) + (spec: 0 u16vector-ref-set! u16vector-ref-set!) (spec: 0 f32vector-ref-set! f32vector-ref-set!) - (spec: 0 s8vector-ref-set! s8vector-ref-set!) + (spec: 0 s32vector-ref-set! s32vector-ref-set!) + (spec: 0 u32vector-ref-set! u32vector-ref-set!) + (spec: 0 car-set! car-set!) + (spec: 0 call/parameters call/parameters) (spec: 0 box-set! box-set!) (spec: 0 s64vector-ref-set! s64vector-ref-set!) - (spec: 0 u16vector-ref-set! u16vector-ref-set!) - (spec: 0 random-bytes random-bytes) + (spec: 0 u8vector-ref-set! u8vector-ref-set!) (spec: 0 vector-ref-set! vector-ref-set!) - (spec: 0 f64vector-ref-set! f64vector-ref-set!) - (spec: 0 random-source-make-bytes random-source-make-bytes) - (spec: 0 s16vector-ref-set! s16vector-ref-set!) - (spec: 0 call/parameters call/parameters) - (spec: 0 u32vector-ref-set! u32vector-ref-set!) - (spec: 0 car-set! car-set!) - (spec: 0 u64vector-ref-set! u64vector-ref-set!) + (spec: 0 s8vector-ref-set! s8vector-ref-set!) (spec: 0 call/values call/values) - (spec: 0 make-instance make-instance) - (spec: 0 symblic-hash symblic-hash) - (spec: 0 string-port? string-port?) - (spec: 0 thread-local-ref thread-local-ref) - (spec: 0 class-type-field-count class-type-field-count) - (spec: 0 read-syntax read-syntax) - (spec: 0 error-object? error-object?) - (spec: 0 object-port::t object-port::t) - (spec: 0 hash-keys hash-keys) - (spec: 0 make-class-type make-class-type) - (spec: 0 add-load-path! add-load-path!) - (spec: 0 procedure-hash procedure-hash) - (spec: 0 u8vector-port::t u8vector-port::t) - (spec: 0 values->list values->list) - (spec: 0 string-rindex string-rindex) - (spec: 0 make-symbolic-table make-symbolic-table) - (spec: 0 eof::t eof::t) - (spec: 0 error-message error-message) - (spec: 0 class-type-name class-type-name) - (spec: 0 &class-type-properties &class-type-properties) - (spec: 0 class-type-system? class-type-system?) - (spec: 0 atom::t atom::t) - (spec: 0 return::t return::t) - (spec: 0 true? true?) - (spec: 0 &interface-instance-object &interface-instance-object) - (spec: 0 make-hash-table make-hash-table) - (spec: 0 string-port::t string-port::t) - (spec: 0 plist->hash-table plist->hash-table) - (spec: 0 checked-method-ref checked-method-ref) - (spec: 0 hash-values hash-values) - (spec: 0 thread-local-get thread-local-get) - (spec: 0 symbol->keyword symbol->keyword) - (spec: 0 f64vector::t f64vector::t) - (spec: 0 object-fill! object-fill!) - (spec: 0 flonum::t flonum::t) - (spec: 0 with-exception-stack-trace with-exception-stack-trace) - (spec: 0 spawn spawn) - (spec: 0 immediate::t immediate::t) - (spec: 0 udp-port::t udp-port::t) - (spec: 0 interface-cast-error? interface-cast-error?) - (spec: 0 call-with-parameters call-with-parameters) - (spec: 0 string-split string-split) - (spec: 0 gerbil-path gerbil-path) - (spec: 0 eof-object eof-object) - (spec: 0 values::t values::t) - (spec: 0 event-queue-port::t event-queue-port::t) - (spec: 0 remf remf) - (spec: 0 class::t class::t) - (spec: 0 fx1- fx1-) - (spec: 0 bind-method! bind-method!) - (spec: 0 make-promise make-promise) - (spec: 0 try-cast try-cast) - (spec: 0 make-keyword make-keyword) - (spec: 0 hash-merge hash-merge) - (spec: 0 interned-symbol? interned-symbol?) - (spec: 0 class->list class->list) - (spec: 0 with-dynamic-lock with-dynamic-lock) - (spec: 0 aget aget) - (spec: 0 substruct? substruct?) - (spec: 0 f32vector::t f32vector::t) - (spec: 0 fixnum::t fixnum::t) - (spec: 0 actor-thread? actor-thread?) - (spec: 0 create-directory* create-directory*) - (spec: 0 slot-ref slot-ref) - (spec: 0 build-manifest/layer build-manifest/layer) - (spec: 0 integer::t integer::t) - (spec: 0 values-ref values-ref) - (spec: 0 u8vector::t u8vector::t) - (spec: 0 processor::t processor::t) - (spec: 0 &class-type-slot-table &class-type-slot-table) - (spec: 0 class-type-precedence-list class-type-precedence-list) - (spec: 0 class-type? class-type?) - (spec: 0 object-type object-type) - (spec: 0 fx1+ fx1+) - (spec: 0 bind-specializer! bind-specializer!) - (spec: 0 pair::t pair::t) - (spec: 0 error? error?) - (spec: 0 cast cast) - (spec: 0 make-hash-table-eqv make-hash-table-eqv) + (spec: 0 s16vector-ref-set! s16vector-ref-set!) + (spec: 0 f64vector-ref-set! f64vector-ref-set!) + (spec: 0 error error) + (spec: 0 readenv::t readenv::t) + (spec: 0 exception? exception?) + (spec: 0 boolean::t boolean::t) + (spec: 0 keyword->symbol keyword->symbol) + (spec: 0 interface-instance-object interface-instance-object) + (spec: 0 hash-table? hash-table?) + (spec: 0 directory-port::t directory-port::t) + (spec: 0 special::t special::t) + (spec: 0 &class-type-id &class-type-id) + (spec: 0 list->hash-table-symbolic list->hash-table-symbolic) (spec: 0 - raise-contract-violation-error - raise-contract-violation-error) - (spec: 0 plist->hash-table-eq plist->hash-table-eq) - (spec: 0 &class-type-constructor &class-type-constructor) - (spec: 0 class-type-fields class-type-fields) - (spec: 0 address-info::t address-info::t) - (spec: 0 mutex::t mutex::t) - (spec: 0 list->hash-table list->hash-table) - (spec: 0 hash->list hash->list) - (spec: 0 cpxnum::t cpxnum::t) - (spec: 0 hash-map hash-map) - (spec: 0 build-manifest/head build-manifest/head) - (spec: 0 gerbil-runtime-smp? gerbil-runtime-smp?) - (spec: 0 cons* cons*) - (spec: 0 fx<=0? fx<=0?) - (spec: 0 procedure::t procedure::t) - (spec: 0 vector-port::t vector-port::t) - (spec: 0 interface-descriptor-methods interface-descriptor-methods) - (spec: 0 read-u8vector read-u8vector) - (spec: 0 unbound-key-error? unbound-key-error?) - (spec: 0 remove1 remove1) - (spec: 0 object-port? object-port?) - (spec: 0 hash-put! hash-put!) - (spec: 0 hvector? hvector?) - (spec: 0 make-hash-table-eq make-hash-table-eq) - (spec: 0 syntax-error? syntax-error?) - (spec: 0 displayln displayln) - (spec: 0 string->bytes string->bytes) - (spec: 0 class-instance? class-instance?) - (spec: 0 make-AST make-AST) - (spec: 0 AST-e AST-e) - (spec: 0 foldl foldl) - (spec: 0 read-syntax-from-file read-syntax-from-file) - (spec: 0 new-instance new-instance) - (spec: 0 s16vector::t s16vector::t) - (spec: 0 condvar::t condvar::t) - (spec: 0 false::t false::t) - (spec: 0 immediate? immediate?) - (spec: 0 udp-port? udp-port?) - (spec: 0 fx<0? fx<0?) - (spec: 0 character-port::t character-port::t) - (spec: 0 event-queue-port? event-queue-port?) - (spec: 0 plist->hash-table-immediate plist->hash-table-immediate) - (spec: 0 make-syntax-error make-syntax-error) - (spec: 0 class-type-properties class-type-properties) + make-class-slot-unchecked-mutator + make-class-slot-unchecked-mutator) + (spec: 0 dssl-rest-object? dssl-rest-object?) + (spec: 0 seal-class! seal-class!) + (spec: 0 symbolic-table-ref symbolic-table-ref) + (spec: 0 hash-fold hash-fold) + (spec: 0 memf memf) + (spec: 0 struct-instance-init! struct-instance-init!) + (spec: + 0 + datum-parsing-exception-filepos + datum-parsing-exception-filepos) + (spec: 0 tcp-server-port::t tcp-server-port::t) + (spec: + 0 + unhandled-actor-exception-hook-set! + unhandled-actor-exception-hook-set!) + (spec: 0 immediate-hash immediate-hash) + (spec: 0 false false) + (spec: 0 void::t void::t) + (spec: 0 class-type-slot-table class-type-slot-table) + (spec: 0 pgetq pgetq) + (spec: 0 list->hash-table-string list->hash-table-string) + (spec: 0 replx replx) + (spec: 0 make-object make-object) + (spec: 0 direct-method-ref direct-method-ref) + (spec: 0 class-type-flags class-type-flags) + (spec: 0 satisfies? satisfies?) + (spec: 0 symblic-hash symblic-hash) + (spec: 0 string-hash string-hash) + (spec: 0 dssl-optional-object? dssl-optional-object?) + (spec: 0 agetv agetv) + (spec: 0 symbolic-table-delete! symbolic-table-delete!) + (spec: + 0 + make-class-slot-unchecked-accessor + make-class-slot-unchecked-accessor) + (spec: 0 constructor-init! constructor-init!) + (spec: 0 struct-copy struct-copy) + (spec: 0 as-string as-string) + (spec: 0 interface-descriptor? interface-descriptor?) + (spec: 0 unchecked-slot-set! unchecked-slot-set!) + (spec: 0 gerbil-version-string gerbil-version-string) + (spec: 0 vm? vm?) + (spec: 0 class-type-slot-list class-type-slot-list) + (spec: 0 &class-type-super &class-type-super) + (spec: 0 &class-type-flags &class-type-flags) + (spec: 0 raw-device-port? raw-device-port?) + (spec: 0 direct-instance? direct-instance?) + (spec: 0 list->hash-table-immediate list->hash-table-immediate) + (spec: 0 make-class-slot-mutator make-class-slot-mutator) + (spec: 0 s8vector::t s8vector::t) + (spec: 0 string-empty? string-empty?) + (spec: 0 dssl-object? dssl-object?) + (spec: 0 filter-map filter-map) + (spec: 0 current-thread-group current-thread-group) + (spec: 0 nonnegative-fixnum? nonnegative-fixnum?) + (spec: 0 struct->list struct->list) + (spec: 0 vm::t vm::t) + (spec: 0 bytes->string bytes->string) + (spec: 0 max-char-code max-char-code) + (spec: 0 unchecked-slot-ref unchecked-slot-ref) + (spec: 0 fxshift fxshift) + (spec: 0 with-exception-handler with-exception-handler) + (spec: 0 gerbil-system-version-string gerbil-system-version-string) + (spec: 0 checked-bound-method-ref checked-bound-method-ref) + (spec: 0 class-type-sealed? class-type-sealed?) + (spec: 0 hash-remove! hash-remove!) + (spec: 0 raw-device-port::t raw-device-port::t) + (spec: 0 hash-find hash-find) + (spec: 0 dssl-key-object? dssl-key-object?) + (spec: 0 device-port? device-port?) + (spec: 0 make-hash-table-symbolic make-hash-table-symbolic) + (spec: 0 make-class-slot-accessor make-class-slot-accessor) + (spec: 0 s64vector::t s64vector::t) + (spec: 0 list->hash-table-eqv list->hash-table-eqv) + (spec: 0 table::t table::t) + (spec: 0 spawn/name spawn/name) + (spec: 0 file-newer? file-newer?) + (spec: 0 absent-value absent-value) + (spec: 0 AST? AST?) + (spec: 0 eqv-hash eqv-hash) + (spec: 0 foldr foldr) + (spec: 0 string::t string::t) + (spec: 0 with-exception-catcher with-exception-catcher) + (spec: 0 plist->hash-table-symbolic plist->hash-table-symbolic) + (spec: 0 hash-copy hash-copy) + (spec: 0 fx>=0? fx>=0?) + (spec: 0 time::t time::t) + (spec: 0 gerbil-system-manifest gerbil-system-manifest) (spec: 0 &class-type-slot-vector &class-type-slot-vector) - (spec: 0 set-load-path! set-load-path!) - (spec: 0 object? object?) - (spec: 0 hash-merge! hash-merge!) + (spec: 0 class-type-seal! class-type-seal!) (spec: 0 pget pget) - (spec: 0 hvector::t hvector::t) - (spec: 0 make-hash-table-string make-hash-table-string) - (spec: 0 thread-local-set! thread-local-set!) - (spec: 0 reload-module! reload-module!) (spec: 0 with-unwind-protect with-unwind-protect) - (spec: 0 class-instance-init! class-instance-init!) - (spec: 0 class-type-final? class-type-final?) + (spec: 0 class-of class-of) + (spec: 0 ratnum::t ratnum::t) + (spec: 0 is-hash-table? is-hash-table?) + (spec: 0 make-hash-table-string make-hash-table-string) (spec: 0 &class-type-fields &class-type-fields) + (spec: 0 1- 1-) + (spec: 0 make-class-predicate make-class-predicate) + (spec: 0 s32vector::t s32vector::t) + (spec: 0 device-port::t device-port::t) (spec: 0 symbol::t symbol::t) + (spec: 0 agetq agetq) + (spec: 0 remq remq) + (spec: 0 absent-obj absent-obj) + (spec: 0 slot-set! slot-set!) + (spec: 0 next-method next-method) (spec: 0 t::t t::t) - (spec: 0 make-class-predicate make-class-predicate) - (spec: 0 1- 1-) (spec: 0 file-info::t file-info::t) - (spec: 0 with-exception-catcher with-exception-catcher) + (spec: 0 byte-port::t byte-port::t) + (spec: 0 thread::t thread::t) + (spec: 0 character-port? character-port?) + (spec: 0 fx>0? fx>0?) (spec: 0 gerbil-system gerbil-system) - (spec: 0 promise::t promise::t) - (spec: 0 char::t char::t) + (spec: 0 read-u8vector read-u8vector) (spec: 0 vector::t vector::t) + (spec: 0 hvector? hvector?) + (spec: 0 class-instance? class-instance?) (spec: 0 interface-descriptor-type interface-descriptor-type) - (spec: 0 raise-unbound-key-error raise-unbound-key-error) - (spec: 0 is-hash-table? is-hash-table?) + (spec: 0 remove1 remove1) (spec: 0 list->hash-table-eq list->hash-table-eq) - (spec: 0 plist->hash-table-eqv plist->hash-table-eqv) - (spec: 0 fx>0? fx>0?) - (spec: 0 object::t object::t) - (spec: 0 class-type-sealed? class-type-sealed?) - (spec: 0 thread::t thread::t) - (spec: 0 dssl-key-object? dssl-key-object?) (spec: 0 make-hash-table-immediate make-hash-table-immediate) + (spec: 0 plist->hash-table-string plist->hash-table-string) (spec: 0 hash-clear! hash-clear!) - (spec: 0 raw-device-port::t raw-device-port::t) - (spec: 0 spawn/name spawn/name) - (spec: 0 device-port? device-port?) + (spec: 0 1+ 1+) + (spec: 0 displayln displayln) + (spec: 0 string->bytes string->bytes) + (spec: 0 s16vector::t s16vector::t) + (spec: 0 condvar::t condvar::t) + (spec: 0 spawn/group spawn/group) (spec: 0 with-lock with-lock) - (spec: 0 AST? AST?) + (spec: 0 new-instance new-instance) (spec: 0 hash->plist hash->plist) - (spec: 0 s64vector::t s64vector::t) - (spec: 0 1+ 1+) - (spec: 0 remq remq) - (spec: 0 AST-source AST-source) - (spec: 0 plist->hash-table-symbolic plist->hash-table-symbolic) - (spec: 0 gerbil-load-expander! gerbil-load-expander!) - (spec: 0 vector-port? vector-port?) - (spec: 0 absent-value absent-value) - (spec: 0 class-of class-of) + (spec: 0 plist->hash-table-immediate plist->hash-table-immediate) + (spec: 0 make-syntax-error make-syntax-error) + (spec: 0 object? object?) (spec: 0 fx=0? fx=0?) + (spec: 0 cons* cons*) + (spec: 0 class-type-properties class-type-properties) + (spec: 0 &class-type-slot-table &class-type-slot-table) + (spec: 0 bind-specializer! bind-specializer!) + (spec: 0 class-instance-init! class-instance-init!) + (spec: 0 pair::t pair::t) + (spec: 0 hvector::t hvector::t) + (spec: 0 character-port::t character-port::t) + (spec: 0 vector-port? vector-port?) + (spec: 0 class-type-final? class-type-final?) + (spec: 0 &class-type-constructor &class-type-constructor) + (spec: 0 raise-unbound-key-error raise-unbound-key-error) + (spec: 0 make-hash-table-eqv make-hash-table-eqv) + (spec: 0 list->hash-table list->hash-table) (spec: 0 hash-ref hash-ref) - (spec: 0 &class-type-super &class-type-super) - (spec: 0 class-type-seal! class-type-seal!) - (spec: 0 spawn/group spawn/group) - (spec: 0 &class-type-flags &class-type-flags) - (spec: 0 ratnum::t ratnum::t) - (spec: 0 filter-map filter-map) - (spec: 0 device-port::t device-port::t) - (spec: 0 list->hash-table-immediate list->hash-table-immediate) - (spec: 0 struct->list struct->list) - (spec: 0 next-method next-method) - (spec: 0 make-class-slot-mutator make-class-slot-mutator) - (spec: 0 slot-set! slot-set!) - (spec: 0 agetq agetq) - (spec: 0 s32vector::t s32vector::t) - (spec: 0 gerbil-system-version-string gerbil-system-version-string) - (spec: 0 vm::t vm::t) - (spec: 0 character-port? character-port?) - (spec: 0 absent-obj absent-obj) - (spec: 0 unchecked-slot-ref unchecked-slot-ref) - (spec: 0 class-type-slot-table class-type-slot-table) - (spec: 0 byte-port::t byte-port::t) - (spec: 0 plist->hash-table-string plist->hash-table-string) - (spec: 0 fxshift fxshift) - (spec: 0 hash-remove! hash-remove!) - (spec: 0 hash-find hash-find) - (spec: 0 direct-method-ref direct-method-ref) - (spec: 0 make-hash-table-symbolic make-hash-table-symbolic) - (spec: 0 dssl-optional-object? dssl-optional-object?) - (spec: 0 string-hash string-hash) - (spec: 0 replx replx) - (spec: 0 class-type-flags class-type-flags) - (spec: 0 list->hash-table-eqv list->hash-table-eqv) - (spec: 0 file-newer? file-newer?) - (spec: 0 foldr foldr) - (spec: 0 agetv agetv) - (spec: 0 as-string as-string) - (spec: 0 make-class-slot-accessor make-class-slot-accessor) - (spec: 0 constructor-init! constructor-init!) - (spec: 0 string::t string::t) - (spec: 0 table::t table::t) - (spec: 0 false false) - (spec: 0 gerbil-system-manifest gerbil-system-manifest) - (spec: 0 eqv-hash eqv-hash) - (spec: 0 time::t time::t) - (spec: 0 satisfies? satisfies?) - (spec: 0 class-type-slot-list class-type-slot-list) + (spec: 0 AST-source AST-source) + (spec: 0 hash->list hash->list) + (spec: 0 gerbil-runtime-smp? gerbil-runtime-smp?) + (spec: 0 unbound-key-error? unbound-key-error?) + (spec: 0 plist->hash-table-eqv plist->hash-table-eqv) (spec: 0 writenv? writenv?) - (spec: 0 hash-copy hash-copy) - (spec: 0 keyword->symbol keyword->symbol) - (spec: 0 fx>=0? fx>=0?) - (spec: 0 boolean::t boolean::t) - (spec: 0 with-exception-handler with-exception-handler) - (spec: 0 direct-instance? direct-instance?) - (spec: 0 dssl-object? dssl-object?) - (spec: 0 string-empty? string-empty?) - (spec: - 0 - make-class-slot-unchecked-mutator - make-class-slot-unchecked-mutator) - (spec: 0 &class-type-id &class-type-id) - (spec: 0 raw-device-port? raw-device-port?) - (spec: 0 symbolic-table-ref symbolic-table-ref) - (spec: 0 HashTableLock::interface HashTableLock::interface) - (spec: 0 tcp-server-port::t tcp-server-port::t) - (spec: 0 nonnegative-fixnum? nonnegative-fixnum?) - (spec: 0 s8vector::t s8vector::t) - (spec: 0 display-exception display-exception) - (spec: 0 list->hash-table-symbolic list->hash-table-symbolic) - (spec: 0 bytes->string bytes->string) - (spec: 0 checked-bound-method-ref checked-bound-method-ref) - (spec: 0 void::t void::t) - (spec: 0 struct-instance-init! struct-instance-init!) - (spec: 0 current-thread-group current-thread-group) - (spec: 0 max-char-code max-char-code) - (spec: 0 class-type-slot-vector class-type-slot-vector) - (spec: 0 immediate-hash immediate-hash) - (spec: 0 pgetq pgetq) - (spec: 0 directory-port? directory-port?) - (spec: 0 make-object make-object) - (spec: - 0 - make-class-slot-unchecked-accessor - make-class-slot-unchecked-accessor) - (spec: 0 readenv? readenv?) - (spec: 0 class-type-id class-type-id) - (spec: 0 list->hash-table-string list->hash-table-string) - (spec: 0 symbolic-table-delete! symbolic-table-delete!) - (spec: 0 special? special?) - (spec: 0 dump-stack-trace! dump-stack-trace!) - (spec: 0 continuation::t continuation::t) - (spec: 0 c4-linearize c4-linearize) - (spec: 0 unchecked-slot-set! unchecked-slot-set!) - (spec: 0 gerbil-version-string gerbil-version-string) - (spec: 0 struct-copy struct-copy) - (spec: 0 vm? vm?) - (spec: 0 interface-descriptor? interface-descriptor?) - (spec: 0 port::t port::t) - (spec: 0 bignum::t bignum::t) - (spec: 0 pgetv pgetv) - (spec: 0 box::t box::t) - (spec: 0 directory-port::t directory-port::t) - (spec: 0 dssl-rest-object? dssl-rest-object?) - (spec: 0 seal-class! seal-class!) - (spec: 0 keyword-rest keyword-rest) - (spec: 0 readenv::t readenv::t) - (spec: 0 raise raise) - (spec: 0 special::t special::t) - (spec: 0 HashTableLock::t HashTableLock::t) - (spec: 0 hash-for-each hash-for-each) - (spec: 0 load-module load-module) - (spec: - 0 - datum-parsing-exception-filepos - datum-parsing-exception-filepos) - (spec: 0 gerbil-greeting gerbil-greeting) - (spec: 0 memf memf) - (spec: 0 error error) - (spec: 0 class-type-struct? class-type-struct?) - (spec: 0 foreign::t foreign::t) - (spec: 0 bound-method-ref bound-method-ref) - (spec: 0 u16vector::t u16vector::t) - (spec: 0 display* display*) - (spec: 0 exception? exception?) - (spec: 0 hash-update! hash-update!) - (spec: 0 write-u8vector write-u8vector) - (spec: 0 keyword-dispatch keyword-dispatch) - (spec: 0 class-type-metaclass? class-type-metaclass?) - (spec: 0 symbolic-table-set! symbolic-table-set!) - (spec: 0 list::t list::t) - (spec: 0 null::t null::t) - (spec: 0 assget assget) - (spec: 0 tcp-server-port? tcp-server-port?) - (spec: 0 hash-fold hash-fold) - (spec: 0 source-location-path source-location-path) + (spec: 0 object::t object::t) + (spec: 0 fx<=0? fx<=0?) + (spec: 0 char::t char::t) + (spec: 0 promise::t promise::t) + (spec: 0 vector-port::t vector-port::t) + (spec: 0 interface-descriptor-methods interface-descriptor-methods) + (spec: 0 try-cast try-cast) + (spec: 0 class->list class->list) + (spec: 0 class::t class::t) + (spec: 0 remf remf) + (spec: 0 make-hash-table-eq make-hash-table-eq) + (spec: 0 hash-put! hash-put!) + (spec: 0 foldl foldl) + (spec: 0 aget aget) + (spec: 0 create-directory* create-directory*) + (spec: 0 slot-ref slot-ref) + (spec: 0 false::t false::t) + (spec: 0 event-queue-port? event-queue-port?) + (spec: 0 immediate? immediate?) + (spec: 0 build-manifest/layer build-manifest/layer) + (spec: 0 udp-port? udp-port?) + (spec: 0 plist->hash-table-eq plist->hash-table-eq) + (spec: 0 object-type object-type) + (spec: 0 fx<0? fx<0?) + (spec: 0 processor::t processor::t) + (spec: 0 class-type-precedence-list class-type-precedence-list) + (spec: 0 make-promise make-promise) + (spec: 0 &class-type-properties &class-type-properties) (spec: 0 - unhandled-actor-exception-hook-set! - unhandled-actor-exception-hook-set!) - (spec: 0 void? void?) - (spec: 0 make-symbol make-symbol) - (spec: 0 struct-instance? struct-instance?) - (spec: 0 subclass? subclass?) - (spec: 0 dump-stack-trace? dump-stack-trace?) - (spec: 0 readtable::t readtable::t) - (spec: 0 interface-instance-object interface-instance-object) - (spec: 0 ormap ormap) - (spec: 0 hash-table? hash-table?) - (spec: 0 build-manifest build-manifest) - (spec: 0 string-index string-index) - (spec: 0 &class-type-name &class-type-name) - (spec: 0 symbolic? symbolic?) - (spec: 0 hash-key? hash-key?) - (spec: 0 find-method find-method) - (spec: 0 thread-local-delete! thread-local-delete!) - (spec: 0 socket-info::t socket-info::t) - (spec: 0 weak? weak?) - (spec: 0 gerbil-home gerbil-home) - (spec: 0 interface-instance? interface-instance?) - (spec: 0 substring->bytes substring->bytes) - (spec: 0 error-irritants error-irritants) - (spec: 0 true::t true::t) - (spec: 0 u64vector::t u64vector::t) - (spec: 0 string-join string-join) - (spec: 0 display-build-manifest display-build-manifest) - (spec: 0 keyword::t keyword::t) - (spec: 0 class-type-constructor class-type-constructor) - (spec: 0 load-path load-path) - (spec: 0 symbolic::t symbolic::t) - (spec: 0 hash-get hash-get) - (spec: 0 find find) - (spec: 0 thread-group::t thread-group::t) - (spec: 0 sequence? sequence?) + raise-contract-violation-error + raise-contract-violation-error) + (spec: 0 class-type? class-type?) + (spec: 0 &interface-instance-object &interface-instance-object) + (spec: 0 cast cast) + (spec: 0 make-hash-table make-hash-table) + (spec: 0 class-type-fields class-type-fields) + (spec: 0 plist->hash-table plist->hash-table) + (spec: 0 hash-merge! hash-merge!) + (spec: 0 thread-local-set! thread-local-set!) + (spec: 0 f64vector::t f64vector::t) + (spec: 0 symbol->keyword symbol->keyword) + (spec: 0 cpxnum::t cpxnum::t) + (spec: 0 address-info::t address-info::t) + (spec: 0 string-split string-split) + (spec: 0 flonum::t flonum::t) + (spec: 0 mutex::t mutex::t) + (spec: 0 build-manifest/head build-manifest/head) + (spec: 0 immediate::t immediate::t) + (spec: 0 udp-port::t udp-port::t) + (spec: 0 fx1- fx1-) + (spec: 0 event-queue-port::t event-queue-port::t) + (spec: 0 gerbil-path gerbil-path) + (spec: 0 values::t values::t) + (spec: 0 procedure::t procedure::t) + (spec: 0 object-port? object-port?) + (spec: 0 bind-method! bind-method!) + (spec: 0 interned-symbol? interned-symbol?) (spec: 0 byte-port? byte-port?) - (spec: 0 source-location? source-location?) - (spec: 0 build-manifest-string build-manifest-string) - (spec: 0 call-next-method call-next-method) - (spec: 0 gerbil-greeting-set! gerbil-greeting-set!) - (spec: 0 weak::t weak::t) - (spec: 0 interface-instance::t interface-instance::t) - (spec: 0 class-type-methods class-type-methods) - (spec: 0 &class-type-precedence-list &class-type-precedence-list) - (spec: 0 class-type-super class-type-super) - (spec: 0 assgetv assgetv) - (spec: 0 true true) - (spec: 0 immediate-instance-of? immediate-instance-of?) - (spec: 0 real::t real::t) - (spec: 0 u32vector::t u32vector::t) - (spec: 0 frame::t frame::t) - (spec: 0 display-as-string display-as-string) - (spec: 0 with-catch with-catch) - (spec: 0 make-interface-descriptor make-interface-descriptor) - (spec: 0 writeenv::t writeenv::t) - (spec: 0 HashTable::t HashTable::t) - (spec: 0 andmap andmap) - (spec: 0 remv remv) - (spec: 0 number::t number::t) - (spec: 0 sequence::t sequence::t) - (spec: 0 hash-length hash-length) - (spec: 0 build-manifest-set! build-manifest-set!) - (spec: 0 u8vector-port? u8vector-port?) - (spec: 0 call-method call-method) - (spec: 0 interned-keyword? interned-keyword?) - (spec: 0 method-ref method-ref) - (spec: 0 eq-hash eq-hash) - (spec: 0 values-count values-count) - (spec: 0 error-trace error-trace) - (spec: 0 source-location-path? source-location-path?) (spec: 0 class-type=? class-type=?) - (spec: 0 assgetq assgetq) - (spec: 0 fx/ fx/) - (spec: 0 HashTable::interface HashTable::interface) - (spec: 0 write-file-string-list write-file-string-list) - (spec: 0 keyword->string keyword->string) - (spec: 0 open-event-queue open-event-queue) - (spec: - 0 - repl-result-history-max-length-set! - repl-result-history-max-length-set!) - (spec: 0 user-info-gid user-info-gid) - (spec: - 0 - cfun-conversion-exception-procedure - cfun-conversion-exception-procedure) - (spec: 0 open-string open-string) - (spec: 0 fold fold) - (spec: 0 take take) - (spec: 0 uninterned-keyword? uninterned-keyword?) - (spec: 0 bitwise-for-each bitwise-for-each) - (spec: 0 module-search-order-add! module-search-order-add!) - (spec: 0 copy-bit-field copy-bit-field) - (spec: 0 file-attributes file-attributes) - (spec: 0 random-real random-real) - (spec: 0 u8vector-set! u8vector-set!) - (spec: 0 mutex? mutex?) - (spec: 0 file-info-last-access-time file-info-last-access-time) - (spec: 0 range-exception-arguments range-exception-arguments) - (spec: 0 thread-base-priority thread-base-priority) - (spec: 0 char-set-intersection! char-set-intersection!) - (spec: 0 partition partition) - (spec: 0 fxnegative? fxnegative?) - (spec: 0 s64vector-set s64vector-set) - (spec: 0 fxwraplogical-shift-right fxwraplogical-shift-right) - (spec: 0 flacosh flacosh) - (spec: 0 tenth tenth) - (spec: 0 readtable-sharing-allowed? readtable-sharing-allowed?) - (spec: - 0 - number-of-arguments-limit-exception? - number-of-arguments-limit-exception?) - (spec: 0 flhypot flhypot) - (spec: 0 s32vector-set! s32vector-set!) - (spec: 0 vector-swap! vector-swap!) - (spec: 0 u32vector-copy! u32vector-copy!) - (spec: 0 f32vector-length f32vector-length) - (spec: 0 host-info? host-info?) - (spec: 0 make-u8vector make-u8vector) - (spec: 0 subf32vector-fill! subf32vector-fill!) - (spec: 0 u64vector-copy u64vector-copy) - (spec: 0 f64vector-length f64vector-length) - (spec: 0 bit-field-replace-same bit-field-replace-same) - (spec: 0 s8vector-ref s8vector-ref) - (spec: 0 subs8vector-move! subs8vector-move!) - (spec: 0 thread-state thread-state) - (spec: 0 with-output-to-port with-output-to-port) - (spec: 0 os-exception-message os-exception-message) - (spec: 0 s16vector-swap! s16vector-swap!) - (spec: 0 thread-state-waiting-timeout thread-state-waiting-timeout) - (spec: 0 char-set-count char-set-count) - (spec: 0 fxandc2 fxandc2) - (spec: 0 list->bits list->bits) - (spec: 0 set-box! set-box!) - (spec: - 0 - wrong-number-of-values-exception-code - wrong-number-of-values-exception-code) - (spec: 0 datum-parsing-exception-kind datum-parsing-exception-kind) - (spec: 0 file-number-of-links file-number-of-links) - (spec: 0 network-info-number network-info-number) - (spec: - 0 - readtable-case-conversion?-set - readtable-case-conversion?-set) - (spec: - 0 - noncontinuable-exception-reason - noncontinuable-exception-reason) - (spec: 0 random-source-make-integers random-source-make-integers) - (spec: 0 any-bit-set? any-bit-set?) - (spec: 0 write-file-string write-file-string) - (spec: 0 main main) - (spec: 0 u16vector-fill! u16vector-fill!) - (spec: 0 circular-list? circular-list?) - (spec: - 0 - expression-parsing-exception-kind - expression-parsing-exception-kind) - (spec: 0 print print) - (spec: 0 make-random-source make-random-source) - (spec: 0 string-shrink! string-shrink!) - (spec: 0 udp-write-subu8vector udp-write-subu8vector) - (spec: 0 divide-by-zero-exception? divide-by-zero-exception?) - (spec: 0 flonum? flonum?) - (spec: - 0 - keyword-expected-exception-procedure - keyword-expected-exception-procedure) - (spec: 0 open-dummy open-dummy) - (spec: - 0 - cfun-conversion-exception-message - cfun-conversion-exception-message) - (spec: 0 open-process open-process) - (spec: 0 flzero? flzero?) - (spec: 0 last-pair last-pair) - (spec: 0 readtable-start-syntax-set readtable-start-syntax-set) - (spec: 0 thread-join! thread-join!) - (spec: 0 bitwise-fold bitwise-fold) - (spec: 0 cosh cosh) - (spec: 0 fifth fifth) - (spec: 0 sinh sinh) - (spec: 0 u8vector-set u8vector-set) - (spec: 0 user-info user-info) - (spec: 0 current-exception-handler current-exception-handler) - (spec: 0 file-info-inode file-info-inode) - (spec: 0 mutex-unlock! mutex-unlock!) - (spec: 0 fxodd? fxodd?) - (spec: 0 char-set-size char-set-size) - (spec: 0 path-directory path-directory) - (spec: 0 s64vector-ref s64vector-ref) - (spec: 0 fxxor fxxor) - (spec: 0 acosh acosh) - (spec: 0 flacos flacos) - (spec: - 0 - invalid-hash-number-exception-procedure - invalid-hash-number-exception-procedure) - (spec: - 0 - terminated-thread-exception-procedure - terminated-thread-exception-procedure) - (spec: - 0 - number-of-arguments-limit-exception-procedure - number-of-arguments-limit-exception-procedure) - (spec: 0 flfloor flfloor) - (spec: 0 s32vector-set s32vector-set) - (spec: 0 step-level-set! step-level-set!) - (spec: 0 u32vector-copy u32vector-copy) - (spec: - 0 - wrong-number-of-values-exception? - wrong-number-of-values-exception?) - (spec: 0 f32vector-fill! f32vector-fill!) - (spec: 0 concatenate concatenate) - (spec: 0 make-u64vector make-u64vector) - (spec: 0 substring-move! substring-move!) - (spec: 0 u64vector-concatenate u64vector-concatenate) - (spec: 0 f64vector-fill! f64vector-fill!) - (spec: 0 conjugate conjugate) - (spec: 0 bit-field-replace bit-field-replace) - (spec: 0 thread-start! thread-start!) - (spec: 0 s16vector-shrink! s16vector-shrink!) - (spec: 0 length-mismatch-exception? length-mismatch-exception?) - (spec: 0 thread-state-waiting-for thread-state-waiting-for) - (spec: 0 fxarithmetic-shift-right fxarithmetic-shift-right) - (spec: 0 char-set-delete char-set-delete) - (spec: 0 subf64vector-fill! subf64vector-fill!) - (spec: 0 file-size file-size) - (spec: 0 readtable-case-conversion? readtable-case-conversion?) - (spec: - 0 - unbound-serial-number-exception? - unbound-serial-number-exception?) - (spec: 0 fixnum-overflow-exception? fixnum-overflow-exception?) - (spec: 0 random-source-make-f64vectors random-source-make-f64vectors) - (spec: 0 with-output-to-u8vector with-output-to-u8vector) - (spec: 0 any any) - (spec: - 0 - mailbox-receive-timeout-exception? - mailbox-receive-timeout-exception?) - (spec: 0 port-settings-set! port-settings-set!) - (spec: 0 script-file script-file) - (spec: 0 string-suffix-length-ci string-suffix-length-ci) - (spec: 0 u16vector-copy! u16vector-copy!) - (spec: - 0 - divide-by-zero-exception-procedure - divide-by-zero-exception-procedure) + (spec: 0 error-object? error-object?) + (spec: 0 interface-cast-error? interface-cast-error?) + (spec: 0 class-type-field-count class-type-field-count) + (spec: 0 HashTableLock::interface HashTableLock::interface) + (spec: 0 hash-merge hash-merge) + (spec: 0 with-dynamic-lock with-dynamic-lock) + (spec: 0 make-keyword make-keyword) + (spec: 0 substruct? substruct?) + (spec: 0 f32vector::t f32vector::t) + (spec: 0 remv remv) + (spec: 0 string-port? string-port?) + (spec: 0 make-symbolic-table make-symbolic-table) + (spec: 0 fixnum::t fixnum::t) + (spec: 0 object-port::t object-port::t) + (spec: 0 procedure-hash procedure-hash) + (spec: 0 eof-object eof-object) + (spec: 0 fx1+ fx1+) + (spec: 0 atom::t atom::t) + (spec: 0 values-ref values-ref) + (spec: 0 class-type-name class-type-name) + (spec: 0 &class-type-precedence-list &class-type-precedence-list) + (spec: 0 true? true?) + (spec: 0 checked-method-ref checked-method-ref) + (spec: 0 integer::t integer::t) + (spec: 0 class-type-system? class-type-system?) + (spec: 0 u8vector::t u8vector::t) + (spec: 0 return::t return::t) + (spec: 0 writeenv::t writeenv::t) + (spec: 0 with-catch with-catch) + (spec: 0 error? error?) + (spec: 0 make-interface-descriptor make-interface-descriptor) + (spec: 0 string-port::t string-port::t) + (spec: 0 HashTable::t HashTable::t) + (spec: 0 hash-map hash-map) + (spec: 0 spawn spawn) + (spec: 0 eq-hash eq-hash) + (spec: 0 with-exception-stack-trace with-exception-stack-trace) + (spec: 0 hash-length hash-length) + (spec: 0 object-fill! object-fill!) + (spec: 0 u8vector-port? u8vector-port?) + (spec: 0 error-trace error-trace) + (spec: 0 actor-thread? actor-thread?) + (spec: 0 fx/ fx/) + (spec: 0 thread-local-ref thread-local-ref) + (spec: 0 values-count values-count) + (spec: 0 interned-keyword? interned-keyword?) + (spec: 0 call-with-parameters call-with-parameters) + (spec: 0 u64vector::t u64vector::t) + (spec: 0 HashTable::interface HashTable::interface) + (spec: 0 syntax-error? syntax-error?) + (spec: 0 make-AST make-AST) + (spec: 0 AST-e AST-e) + (spec: 0 make-instance make-instance) + (spec: 0 read-syntax read-syntax) + (spec: 0 class-type-constructor class-type-constructor) + (spec: 0 read-syntax-from-file read-syntax-from-file) + (spec: 0 make-class-type make-class-type) + (spec: 0 display-build-manifest display-build-manifest) + (spec: 0 string-join string-join) + (spec: 0 sequence? sequence?) + (spec: 0 add-load-path! add-load-path!) + (spec: 0 source-location? source-location?) + (spec: 0 string-rindex string-rindex) + (spec: 0 eof::t eof::t) + (spec: 0 hash-keys hash-keys) + (spec: 0 build-manifest-string build-manifest-string) + (spec: 0 u8vector-port::t u8vector-port::t) + (spec: 0 error-message error-message) + (spec: 0 assgetv assgetv) + (spec: 0 hash-values hash-values) + (spec: 0 values->list values->list) + (spec: 0 call-next-method call-next-method) + (spec: 0 class-type-methods class-type-methods) + (spec: 0 build-manifest build-manifest) + (spec: 0 immediate-instance-of? immediate-instance-of?) + (spec: 0 real::t real::t) + (spec: 0 u32vector::t u32vector::t) + (spec: 0 class-type-super class-type-super) + (spec: 0 thread-local-get thread-local-get) + (spec: 0 set-load-path! set-load-path!) + (spec: 0 &class-type-name &class-type-name) + (spec: 0 reload-module! reload-module!) + (spec: 0 sequence::t sequence::t) + (spec: 0 display-as-string display-as-string) + (spec: 0 gerbil-load-expander! gerbil-load-expander!) + (spec: 0 symbolic? symbolic?) + (spec: 0 HashTableLock::t HashTableLock::t) + (spec: 0 source-location-path? source-location-path?) + (spec: 0 find-method find-method) + (spec: 0 andmap andmap) + (spec: 0 build-manifest-set! build-manifest-set!) + (spec: 0 number::t number::t) + (spec: 0 substring->bytes substring->bytes) + (spec: 0 method-ref method-ref) + (spec: 0 assgetq assgetq) + (spec: 0 gerbil-home gerbil-home) + (spec: 0 call-method call-method) + (spec: 0 class-type-struct? class-type-struct?) + (spec: 0 true::t true::t) + (spec: 0 u16vector::t u16vector::t) + (spec: 0 weak? weak?) + (spec: 0 keyword::t keyword::t) + (spec: 0 raise raise) + (spec: 0 error-irritants error-irritants) + (spec: 0 display* display*) + (spec: 0 class-type-metaclass? class-type-metaclass?) + (spec: 0 interface-instance? interface-instance?) + (spec: 0 hash-key? hash-key?) + (spec: 0 thread-local-delete! thread-local-delete!) + (spec: 0 load-path load-path) + (spec: 0 symbolic::t symbolic::t) + (spec: 0 source-location-path source-location-path) + (spec: 0 make-symbol make-symbol) + (spec: 0 assget assget) + (spec: 0 find find) + (spec: 0 null::t null::t) + (spec: 0 thread-group::t thread-group::t) + (spec: 0 hash-get hash-get) + (spec: 0 true true) + (spec: 0 ormap ormap) + (spec: 0 gerbil-greeting-set! gerbil-greeting-set!) + (spec: 0 frame::t frame::t) + (spec: 0 weak::t weak::t) + (spec: 0 box::t box::t) + (spec: 0 readtable::t readtable::t) + (spec: 0 keyword-rest keyword-rest) + (spec: 0 interface-instance::t interface-instance::t) + (spec: 0 load-module load-module) + (spec: 0 string-index string-index) + (spec: 0 socket-info::t socket-info::t) + (spec: 0 hash-for-each hash-for-each) + (spec: 0 foreign::t foreign::t) + (spec: 0 hash-update! hash-update!) + (spec: 0 gerbil-greeting gerbil-greeting) + (spec: 0 class-type-slot-vector class-type-slot-vector) + (spec: 0 bound-method-ref bound-method-ref) + (spec: 0 readenv? readenv?) + (spec: 0 write-u8vector write-u8vector) + (spec: 0 keyword-dispatch keyword-dispatch) + (spec: 0 directory-port? directory-port?) + (spec: 0 special? special?) + (spec: 0 class-type-id class-type-id) + (spec: 0 list::t list::t) + (spec: 0 continuation::t continuation::t) + (spec: 0 dump-stack-trace! dump-stack-trace!) + (spec: 0 symbolic-table-set! symbolic-table-set!) + (spec: 0 display-exception display-exception) + (spec: 0 struct-instance? struct-instance?) + (spec: 0 dump-stack-trace? dump-stack-trace?) + (spec: 0 tcp-server-port? tcp-server-port?) + (spec: 0 c4-linearize c4-linearize) + (spec: 0 port::t port::t) + (spec: 0 subclass? subclass?) + (spec: 0 pgetv pgetv) + (spec: 0 bignum::t bignum::t) + (spec: 0 void? void?) + (spec: 0 input-port-line input-port-line) + (spec: 0 filter! filter!) + (spec: 0 make-s8vector make-s8vector) + (spec: 0 process-times process-times) + (spec: 0 r7rs-raise r7rs-raise) + (spec: 0 subu64vector-move! subu64vector-move!) + (spec: 0 create-directory create-directory) + (spec: 0 bitwise-orc2 bitwise-orc2) + (spec: 0 u64vector-set u64vector-set) (spec: 0 - keyword-expected-exception-arguments - keyword-expected-exception-arguments) - (spec: 0 thread-interrupt! thread-interrupt!) - (spec: 0 user-info-name user-info-name) - (spec: 0 readtable-start-syntax readtable-start-syntax) - (spec: 0 open-tcp-client open-tcp-client) - (spec: 0 u8vector->object u8vector->object) - (spec: 0 bitwise-ior bitwise-ior) - (spec: 0 file-device file-device) - (spec: 0 module-whitelist-add! module-whitelist-add!) - (spec: 0 range-exception? range-exception?) - (spec: 0 u8vector-swap! u8vector-swap!) + unbound-key-exception-arguments + unbound-key-exception-arguments) + (spec: 0 read-file-u8vector read-file-u8vector) (spec: 0 - file-info-last-modification-time - file-info-last-modification-time) - (spec: 0 replace-bit-field replace-bit-field) - (spec: 0 s32vector-swap! s32vector-swap!) - (spec: 0 vector-unfold-right vector-unfold-right) - (spec: 0 fxnot fxnot) - (spec: 0 char-set-ref char-set-ref) - (spec: 0 s64vector-shrink! s64vector-shrink!) - (spec: 0 address-info-family address-info-family) - (spec: 0 fxwrapsquare fxwrapsquare) - (spec: 0 take-right take-right) - (spec: 0 flasin flasin) + nonprocedure-operator-exception-arguments + nonprocedure-operator-exception-arguments) + (spec: 0 fl/ fl/) + (spec: 0 open-output-bytevector open-output-bytevector) + (spec: 0 drop-right drop-right) + (spec: 0 flsinh flsinh) + (spec: 0 random-source-state-set! random-source-state-set!) + (spec: 0 current-thread current-thread) + (spec: 0 break break) + (spec: 0 file-info? file-info?) + (spec: 0 initial-current-directory initial-current-directory) + (spec: 0 readtable-max-unescaped-char readtable-max-unescaped-char) + (spec: 0 table-merge! table-merge!) + (spec: 0 flcosh flcosh) + (spec: 0 call-with-input-u8vector call-with-input-u8vector) + (spec: 0 uncaught-exception-reason uncaught-exception-reason) + (spec: 0 thread-group-resume! thread-group-resume!) + (spec: 0 open-vector-pipe open-vector-pipe) + (spec: 0 foreign-address foreign-address) + (spec: 0 s32vector-concatenate s32vector-concatenate) + (spec: 0 list-tabulate list-tabulate) + (spec: 0 fxwrap* fxwrap*) + (spec: 0 path-strip-extension path-strip-extension) (spec: 0 - invalid-hash-number-exception-arguments - invalid-hash-number-exception-arguments) + display-continuation-environment + display-continuation-environment) + (spec: 0 flmin flmin) + (spec: 0 join-timeout-exception? join-timeout-exception?) + (spec: 0 thread-quantum-set! thread-quantum-set!) (spec: 0 - not-in-compilation-context-exception-procedure - not-in-compilation-context-exception-procedure) + rpc-remote-error-exception-arguments + rpc-remote-error-exception-arguments) + (spec: 0 fx= fx=) + (spec: 0 char-set-adjoin! char-set-adjoin!) + (spec: 0 s64vector-append s64vector-append) + (spec: 0 u16vector? u16vector?) + (spec: 0 string=?-hash string=?-hash) + (spec: 0 protocol-info? protocol-info?) + (spec: 0 condition-variable-signal! condition-variable-signal!) (spec: 0 - terminated-thread-exception-arguments - terminated-thread-exception-arguments) - (spec: 0 flinfinite? flinfinite?) - (spec: 0 directory-files directory-files) - (spec: 0 step step) - (spec: 0 u32vector-length u32vector-length) + thread-state-normally-terminated? + thread-state-normally-terminated?) + (spec: 0 s16vector-copy! s16vector-copy!) + (spec: 0 err-code->string err-code->string) + (spec: 0 char-set-filter char-set-filter) + (spec: 0 fxior fxior) + (spec: 0 list->s8vector list->s8vector) + (spec: 0 s8vector->list s8vector->list) + (spec: 0 make-f64vector make-f64vector) + (spec: 0 pretty-print pretty-print) + (spec: 0 tty-history-set! tty-history-set!) + (spec: 0 vector-cas! vector-cas!) + (spec: 0 u32vector-swap! u32vector-swap!) + (spec: 0 seventh seventh) + (spec: 0 subs32vector-move! subs32vector-move!) + (spec: 0 bits->vector bits->vector) + (spec: 0 with-input-from-port with-input-from-port) + (spec: 0 udp-destination-set! udp-destination-set!) + (spec: 0 read-file-string-list read-file-string-list) + (spec: 0 input-port-column input-port-column) + (spec: 0 deadlock-exception? deadlock-exception?) + (spec: 0 filter filter) + (spec: 0 make-s64vector make-s64vector) + (spec: 0 asinh asinh) + (spec: 0 extract-bit-field extract-bit-field) + (spec: 0 process-status process-status) + (spec: 0 subu64vector-fill! subu64vector-fill!) + (spec: 0 random-source-state-ref random-source-state-ref) + (spec: 0 multiple-c-return-exception? multiple-c-return-exception?) + (spec: 0 bitwise-orc1 bitwise-orc1) + (spec: 0 file-exists-exception? file-exists-exception?) + (spec: 0 u64vector-ref u64vector-ref) (spec: 0 - unterminated-process-exception-procedure - unterminated-process-exception-procedure) + readtable-keywords-allowed?-set + readtable-keywords-allowed?-set) + (spec: 0 fl- fl-) + (spec: 0 sixth sixth) + (spec: 0 drop drop) + (spec: 0 flsin flsin) + (spec: 0 open-input-vector open-input-vector) + (spec: 0 u8vector-fill! u8vector-fill!) + (spec: 0 file-info-type file-info-type) + (spec: 0 table-merge table-merge) + (spec: 0 uncaught-exception-procedure uncaught-exception-procedure) + (spec: 0 call-with-input-string call-with-input-string) + (spec: 0 flcos flcos) + (spec: 0 thread-group-parent thread-group-parent) + (spec: 0 open-vector open-vector) + (spec: 0 s32vector-append s32vector-append) + (spec: 0 list-sort! list-sort!) + (spec: 0 fxsquare fxsquare) + (spec: 0 char-set-xor! char-set-xor!) + (spec: 0 compile-file-to-target compile-file-to-target) + (spec: 0 path-strip-directory path-strip-directory) + (spec: 0 tcp-client-self-socket-info tcp-client-self-socket-info) (spec: 0 - wrong-number-of-values-exception-vals - wrong-number-of-values-exception-vals) - (spec: 0 substring-fill! substring-fill!) - (spec: 0 f32vector-ref f32vector-ref) - (spec: 0 proper-list? proper-list?) - (spec: 0 u64vector-fill! u64vector-fill!) - (spec: 0 bit-field-rotate bit-field-rotate) - (spec: 0 f64vector-ref f64vector-ref) + join-timeout-exception-procedure + join-timeout-exception-procedure) (spec: 0 - thread-state-abnormally-terminated-reason - thread-state-abnormally-terminated-reason) - (spec: 0 list->char-set! list->char-set!) - (spec: 0 os-exception? os-exception?) - (spec: 0 thread-suspend! thread-suspend!) - (spec: 0 vector-fold-right vector-fold-right) - (spec: 0 fxarithmetic-shift-left fxarithmetic-shift-left) - (spec: 0 char-set-cursor-next char-set-cursor-next) - (spec: 0 subf64vector subf64vector) + display-continuation-dynamic-environment + display-continuation-dynamic-environment) + (spec: 0 flmax flmax) + (spec: 0 object->u8vector object->u8vector) + (spec: 0 thread-quantum thread-quantum) + (spec: 0 output-port-line output-port-line) + (spec: 0 fx<= fx<=) + (spec: 0 char-set-adjoin char-set-adjoin) + (spec: 0 top top) + (spec: 0 s64vector->list s64vector->list) + (spec: 0 string-contains-ci string-contains-ci) + (spec: 0 address-infos address-infos) + (spec: 0 gc-report-set! gc-report-set!) + (spec: 0 u16vector-swap! u16vector-swap!) + (spec: 0 subs32vector-fill! subs32vector-fill!) + (spec: 0 f32vector? f32vector?) + (spec: 0 condition-variable-name condition-variable-name) + (spec: 0 protocol-info-number protocol-info-number) (spec: 0 - datum-parsing-exception-readenv - datum-parsing-exception-readenv) - (spec: 0 readtable-comment-handler-set readtable-comment-handler-set) - (spec: 0 table->list table->list) + thread-state-normally-terminated-result + thread-state-normally-terminated-result) + (spec: 0 s16vector-copy s16vector-copy) + (spec: 0 list->s64vector list->s64vector) + (spec: 0 eqv?-hash eqv?-hash) + (spec: 0 char-set-every char-set-every) + (spec: 0 fxif fxif) + (spec: 0 s8vector s8vector) + (spec: 0 make-f32vector make-f32vector) + (spec: 0 started-thread-exception? started-thread-exception?) + (spec: 0 apropos apropos) + (spec: 0 string-prefix-ci? string-prefix-ci?) + (spec: 0 tty-history-max-length-set! tty-history-max-length-set!) + (spec: 0 subu32vector-move! subu32vector-move!) + (spec: 0 f64vector? f64vector?) + (spec: 0 bits->list bits->list) + (spec: 0 u32vector-shrink! u32vector-shrink!) + (spec: 0 xcons xcons) + (spec: 0 read-file-string read-file-string) (spec: 0 - unbound-serial-number-exception-procedure - unbound-serial-number-exception-procedure) + input-port-characters-buffered + input-port-characters-buffered) + (spec: 0 ninth ninth) + (spec: 0 unbound-global-exception? unbound-global-exception?) + (spec: 0 type-exception? type-exception?) + (spec: 0 make-s32vector make-s32vector) + (spec: 0 help-browser help-browser) + (spec: 0 bitwise-not bitwise-not) + (spec: 0 serial-number->object serial-number->object) + (spec: 0 subu64vector subu64vector) + (spec: 0 u8vector-copy! u8vector-copy!) + (spec: 0 write-substring write-substring) (spec: 0 - fixnum-overflow-exception-procedure - fixnum-overflow-exception-procedure) + file-exists-exception-procedure + file-exists-exception-procedure) + (spec: 0 uncaught-exception-arguments uncaught-exception-arguments) + (spec: 0 readtable-keywords-allowed? readtable-keywords-allowed?) + (spec: 0 integer-sqrt integer-sqrt) + (spec: 0 fl+* fl+*) + (spec: 0 open-input-u8vector open-input-u8vector) + (spec: 0 dotted-list? dotted-list?) + (spec: 0 flscalbn flscalbn) + (spec: 0 current-readtable current-readtable) + (spec: 0 call-with-input-process call-with-input-process) + (spec: 0 file-info-size file-info-size) + (spec: 0 table-length table-length) + (spec: 0 readtable? readtable?) (spec: 0 - inactive-thread-exception-arguments - inactive-thread-exception-arguments) - (spec: 0 type-exception-arguments type-exception-arguments) - (spec: 0 s8vector-set! s8vector-set!) - (spec: 0 with-output-to-string with-output-to-string) - (spec: 0 string-suffix-length string-suffix-length) - (spec: 0 seconds->time seconds->time) - (spec: 0 write-file-u8vector write-file-u8vector) - (spec: 0 input-port-byte-position input-port-byte-position) + unknown-keyword-argument-exception? + unknown-keyword-argument-exception?) + (spec: 0 flceiling flceiling) + (spec: 0 thread-group-name thread-group-name) + (spec: 0 user-name user-name) + (spec: 0 eighth eighth) + (spec: 0 open-udp open-udp) + (spec: 0 thread? thread?) + (spec: 0 s64vector s64vector) + (spec: 0 list-sort list-sort) + (spec: 0 char-set-xor char-set-xor) + (spec: 0 fxremainder fxremainder) + (spec: 0 string->keyword string->keyword) + (spec: 0 thread-priority thread-priority) (spec: 0 - expression-parsing-exception-source - expression-parsing-exception-source) + join-timeout-exception-arguments + join-timeout-exception-arguments) (spec: 0 - thread-group->thread-group-vector - thread-group->thread-group-vector) - (spec: 0 open-file open-file) - (spec: 0 thread-mailbox-next thread-mailbox-next) - (spec: 0 user-info-home user-info-home) - (spec: 0 cfun-conversion-exception? cfun-conversion-exception?) - (spec: 0 fold-right fold-right) - (spec: 0 open-string-pipe open-string-pipe) - (spec: 0 random-source-make-u8vectors random-source-make-u8vectors) - (spec: 0 u8vector->list u8vector->list) - (spec: 0 file-creation-time file-creation-time) - (spec: 0 bitwise-if bitwise-if) - (spec: 0 module-search-order-reset! module-search-order-reset!) - (spec: 0 u8vector-shrink! u8vector-shrink!) - (spec: 0 file-info-last-change-time file-info-last-change-time) - (spec: 0 keyword-hash keyword-hash) - (spec: 0 void void) - (spec: 0 s32vector-shrink! s32vector-shrink!) - (spec: 0 char-set-unfold! char-set-unfold!) - (spec: 0 fxorc2 fxorc2) - (spec: 0 will-testator will-testator) - (spec: 0 s64vector-set! s64vector-set!) + display-continuation-backtrace + display-continuation-backtrace) + (spec: 0 char-set-difference! char-set-difference!) + (spec: 0 fllog1p fllog1p) + (spec: 0 object->string object->string) + (spec: 0 repl-backtrace-detail-level repl-backtrace-detail-level) + (spec: 0 output-port-column output-port-column) + (spec: 0 char-set->string char-set->string) + (spec: 0 fx< fx<) + (spec: 0 s16vector-concatenate s16vector-concatenate) + (spec: 0 thread-priority-boost-set! thread-priority-boost-set!) + (spec: 0 permission-denied-exception? permission-denied-exception?) + (spec: 0 address-info? address-info?) + (spec: 0 string-contains string-contains) + (spec: 0 u16vector-shrink! u16vector-shrink!) + (spec: 0 setenv setenv) + (spec: 0 f32vector-swap! f32vector-swap!) + (spec: 0 condition-variable-broadcast! condition-variable-broadcast!) + (spec: 0 protocol-info-name protocol-info-name) + (spec: 0 subs32vector subs32vector) + (spec: 0 s32vector->list s32vector->list) + (spec: 0 list->s32vector list->s32vector) + (spec: 0 fxfirst-set-bit fxfirst-set-bit) (spec: 0 - readtable-write-cdr-read-macros?-set - readtable-write-cdr-read-macros?-set) - (spec: 0 uninterned-symbol? uninterned-symbol?) + started-thread-exception-procedure + started-thread-exception-procedure) + (spec: 0 vector-any vector-any) + (spec: 0 tty-history tty-history) + (spec: 0 with-exception-handler with-exception-handler) + (spec: 0 write-subu8vector write-subu8vector) + (spec: 0 u32vector-set! u32vector-set!) + (spec: 0 subu32vector-fill! subu32vector-fill!) + (spec: 0 f64vector-swap! f64vector-swap!) + (spec: 0 bits bits) + (spec: 0 fl+ fl+) (spec: 0 - not-in-compilation-context-exception-arguments - not-in-compilation-context-exception-arguments) - (spec: 0 remove! remove!) + unbound-global-exception-variable + unbound-global-exception-variable) + (spec: 0 input-port-char-position input-port-char-position) + (spec: 0 dead-end dead-end) + (spec: 0 u16vector-set u16vector-set) + (spec: 0 make-s16vector make-s16vector) + (spec: 0 file-info-owner file-info-owner) + (spec: 0 bitwise-nor bitwise-nor) + (spec: 0 process-pid process-pid) + (spec: 0 symbol-hash symbol-hash) + (spec: 0 inactive-thread-exception? inactive-thread-exception?) (spec: 0 - unterminated-process-exception-arguments - unterminated-process-exception-arguments) - (spec: 0 call/cc call/cc) - (spec: 0 flilogb flilogb) - (spec: 0 path-expand path-expand) - (spec: 0 subs16vector subs16vector) - (spec: 0 u32vector-fill! u32vector-fill!) + file-exists-exception-arguments + file-exists-exception-arguments) + (spec: 0 random-source-randomize! random-source-randomize!) + (spec: 0 u8vector-copy u8vector-copy) + (spec: 0 table-for-each table-for-each) + (spec: 0 readtable-eval-allowed?-set readtable-eval-allowed?-set) + (spec: 0 integer-nth-root integer-nth-root) + (spec: 0 force-output force-output) (spec: 0 - wrong-processor-c-return-exception? - wrong-processor-c-return-exception?) - (spec: 0 subu16vector-fill! subu16vector-fill!) - (spec: 0 u64vector-copy! u64vector-copy!) - (spec: 0 cons* cons*) - (spec: 0 bit-field-reverse bit-field-reverse) - (spec: 0 vector->bits vector->bits) - (spec: 0 list->char-set list->char-set) - (spec: 0 fx* fx*) - (spec: 0 thread-state-waiting? thread-state-waiting?) - (spec: 0 s16vector? s16vector?) - (spec: 0 char-set-diff+intersection char-set-diff+intersection) - (spec: 0 fxbit-set? fxbit-set?) - (spec: 0 unbound-global-exception-rte unbound-global-exception-rte) + nonempty-input-port-character-buffer-exception? + nonempty-input-port-character-buffer-exception?) + (spec: 0 thread-group->thread-vector thread-group->thread-vector) + (spec: 0 flround flround) + (spec: 0 box? box?) + (spec: 0 ucs-range->char-set! ucs-range->char-set!) + (spec: 0 current-processor current-processor) + (spec: 0 fllog fllog) + (spec: 0 tcp-client-peer-socket-info tcp-client-peer-socket-info) (spec: 0 - nonempty-input-port-character-buffer-exception-procedure - nonempty-input-port-character-buffer-exception-procedure) + readtable-write-extended-read-macros?-set + readtable-write-extended-read-macros?-set) + (spec: 0 flatanh flatanh) + (spec: 0 not-pair? not-pair?) (spec: 0 - datum-parsing-exception-parameters - datum-parsing-exception-parameters) - (spec: 0 unbreak unbreak) - (spec: 0 readtable-comment-handler readtable-comment-handler) - (spec: 0 fl* fl*) - (spec: 0 type-exception-arg-id type-exception-arg-id) - (spec: 0 s8vector-set s8vector-set) - (spec: 0 any-bits-set? any-bits-set?) - (spec: 0 get-output-u8vector get-output-u8vector) - (spec: 0 string-swap! string-swap!) - (spec: 0 second second) - (spec: 0 u16vector-length u16vector-length) - (spec: 0 heap-overflow-exception? heap-overflow-exception?) + unknown-keyword-argument-exception-procedure + unknown-keyword-argument-exception-procedure) + (spec: 0 thread-name thread-name) + (spec: 0 split-at! split-at!) + (spec: 0 open-u8vector-pipe open-u8vector-pipe) + (spec: 0 address-info-socket-type address-info-socket-type) + (spec: 0 char-set-union! char-set-union!) + (spec: 0 user-info? user-info?) + (spec: 0 thread-yield! thread-yield!) + (spec: 0 path-normalize path-normalize) + (spec: 0 fxquotient fxquotient) + (spec: 0 string->char-set! string->char-set!) + (spec: 0 rename-file rename-file) + (spec: 0 object->serial-number object->serial-number) + (spec: 0 char-set->list char-set->list) + (spec: 0 s16vector-append s16vector-append) + (spec: 0 output-port-char-position output-port-char-position) + (spec: 0 fx- fx-) + (spec: 0 thread-priority-boost thread-priority-boost) + (spec: 0 with-exception-catcher with-exception-catcher) + (spec: 0 string-concatenate string-concatenate) (spec: 0 - expression-parsing-exception-parameters - expression-parsing-exception-parameters) + permission-denied-exception-procedure + permission-denied-exception-procedure) + (spec: 0 bit-swap bit-swap) + (spec: 0 u16vector-set! u16vector-set!) + (spec: 0 protocol-info-aliases protocol-info-aliases) + (spec: 0 f32vector-shrink! f32vector-shrink!) + (spec: 0 char-set-difference char-set-difference) + (spec: 0 subs16vector-move! subs16vector-move!) + (spec: 0 thread-state-initialized? thread-state-initialized?) + (spec: 0 s32vector s32vector) + (spec: 0 equal?-hash equal?-hash) + (spec: 0 fxeven? fxeven?) + (spec: 0 list->s16vector list->s16vector) (spec: 0 - thread-group->thread-group-list - thread-group->thread-group-list) - (spec: 0 open-u8vector open-u8vector) - (spec: 0 flpositive? flpositive?) - (spec: 0 split-at split-at) + started-thread-exception-arguments + started-thread-exception-arguments) + (spec: 0 s8vector? s8vector?) + (spec: 0 make-condition-variable make-condition-variable) + (spec: 0 getenv getenv) + (spec: 0 append-reverse! append-reverse!) + (spec: 0 console-port console-port) + (spec: 0 pp pp) + (spec: 0 subu32vector subu32vector) + (spec: 0 f64vector-shrink! f64vector-shrink!) + (spec: 0 u32vector-set u32vector-set) + (spec: 0 unbound-global-exception-rte unbound-global-exception-rte) + (spec: 0 datum-parsing-exception? datum-parsing-exception?) + (spec: 0 arithmetic-shift arithmetic-shift) + (spec: 0 heap-overflow-exception? heap-overflow-exception?) + (spec: 0 input-port-bytes-buffered input-port-bytes-buffered) + (spec: 0 u16vector-ref u16vector-ref) + (spec: 0 make-root-thread make-root-thread) + (spec: 0 string-swap! string-swap!) + (spec: 0 bitwise-nand bitwise-nand) (spec: 0 - thread-mailbox-extract-and-rewind - thread-mailbox-extract-and-rewind) - (spec: 0 user-info-uid user-info-uid) + random-source-pseudo-randomize! + random-source-pseudo-randomize!) (spec: 0 - invalid-hash-number-exception? - invalid-hash-number-exception?) + inactive-thread-exception-procedure + inactive-thread-exception-procedure) + (spec: 0 cpu-time cpu-time) + (spec: 0 fl* fl*) (spec: 0 u8vector-concatenate u8vector-concatenate) - (spec: 0 random-source-make-reals random-source-make-reals) - (spec: 0 bitwise-nand bitwise-nand) - (spec: 0 ucs-range->char-set ucs-range->char-set) - (spec: 0 box box) + (spec: 0 readtable-eval-allowed? readtable-eval-allowed?) + (spec: 0 integer-length integer-length) + (spec: 0 flpositive? flpositive?) + (spec: + 0 + nonempty-input-port-character-buffer-exception-procedure + nonempty-input-port-character-buffer-exception-procedure) + (spec: 0 table-copy table-copy) + (spec: 0 thread-group->thread-list thread-group->thread-list) + (spec: 0 unbreak unbreak) + (spec: 0 keyword? keyword?) (spec: 0 file-info-number-of-links file-info-number-of-links) - (spec: 0 keyword-expected-exception? keyword-expected-exception?) - (spec: 0 list-set list-set) + (spec: 0 box box) (spec: 0 open-input-process open-input-process) - (spec: 0 char-set-unfold char-set-unfold) - (spec: 0 fxorc1 fxorc1) - (spec: 0 s64vector? s64vector?) - (spec: 0 string-ci=?-hash string-ci=?-hash) - (spec: 0 will-execute! will-execute!) - (spec: 0 address-info-socket-info address-info-socket-info) - (spec: 0 fxzero? fxzero?) + (spec: 0 ucs-range->char-set ucs-range->char-set) + (spec: 0 flatan flatan) + (spec: 0 tcp-client-local-socket-info tcp-client-local-socket-info) (spec: 0 - readtable-write-cdr-read-macros? - readtable-write-cdr-read-macros?) - (spec: 0 tanh tanh) + readtable-write-extended-read-macros? + readtable-write-extended-read-macros?) (spec: 0 unknown-keyword-argument-exception-arguments unknown-keyword-argument-exception-arguments) - (spec: 0 flatan flatan) - (spec: 0 terminated-thread-exception? terminated-thread-exception?) - (spec: 0 remove remove) + (spec: 0 thread-mailbox-rewind thread-mailbox-rewind) + (spec: 0 split-at split-at) + (spec: 0 open-u8vector open-u8vector) + (spec: 0 char-set-union char-set-union) + (spec: 0 user-info-uid user-info-uid) + (spec: 0 string->char-set string->char-set) + (spec: 0 fxpositive? fxpositive?) (spec: 0 car+cdr car+cdr) + (spec: 0 list-set list-set) + (spec: 0 path-extension path-extension) + (spec: 0 remq remq) + (spec: 0 test-bit-field? test-bit-field?) + (spec: 0 fxeqv fxeqv) + (spec: 0 char-set char-set) (spec: 0 untrace untrace) - (spec: 0 subf64vector-move! subf64vector-move!) - (spec: 0 u32vector-ref u32vector-ref) - (spec: 0 concatenate! concatenate!) - (spec: 0 f64vector-set! f64vector-set!) - (spec: 0 subu16vector subu16vector) - (spec: 0 bit-set? bit-set?) (spec: 0 s16vector->list s16vector->list) - (spec: 0 list->f64vector list->f64vector) - (spec: 0 vector-inc! vector-inc!) - (spec: 0 thread-thread-group thread-thread-group) - (spec: 0 char-set-delete! char-set-delete!) + (spec: 0 output-port-byte-position output-port-byte-position) + (spec: 0 fx+ fx+) + (spec: 0 address-info-socket-info address-info-socket-info) + (spec: 0 s64vector? s64vector?) + (spec: + 0 + permission-denied-exception-arguments + permission-denied-exception-arguments) + (spec: 0 will? will?) + (spec: 0 u32vector-ref u32vector-ref) + (spec: 0 subs16vector-fill! subs16vector-fill!) (spec: 0 f32vector-set! f32vector-set!) - (spec: 0 fxbit-count fxbit-count) - (spec: 0 input-port-char-position input-port-char-position) - (spec: 0 unbound-global-exception-code unbound-global-exception-code) + (spec: 0 char-set-diff+intersection! char-set-diff+intersection!) + (spec: 0 identity identity) + (spec: 0 protocol-info protocol-info) + (spec: 0 thread-thread-group thread-thread-group) + (spec: 0 list->f64vector list->f64vector) + (spec: 0 append-reverse append-reverse) + (spec: 0 help help) + (spec: 0 type-exception-type-id type-exception-type-id) + (spec: 0 s8vector-swap! s8vector-swap!) + (spec: 0 get-output-vector get-output-vector) + (spec: 0 bit-set? bit-set?) + (spec: 0 subu16vector-move! subu16vector-move!) + (spec: 0 f64vector-set! f64vector-set!) + (spec: + 0 + datum-parsing-exception-readenv + datum-parsing-exception-readenv) (spec: 0 file-type file-type) - (spec: 0 integer-nth-root integer-nth-root) (spec: 0 nonempty-input-port-character-buffer-exception-arguments nonempty-input-port-character-buffer-exception-arguments) - (spec: 0 readtable-eval-allowed?-set readtable-eval-allowed?-set) - (spec: 0 table-for-each table-for-each) - (spec: 0 module-whitelist-reset! module-whitelist-reset!) - (spec: 0 fixnum? fixnum?) - (spec: 0 s8vector-swap! s8vector-swap!) - (spec: 0 type-exception-type-id type-exception-type-id) - (spec: 0 unbox unbox) - (spec: 0 with-output-to-vector with-output-to-vector) - (spec: 0 append-reverse append-reverse) - (spec: 0 make-s16vector make-s16vector) - (spec: 0 string-suffix? string-suffix?) - (spec: 0 u16vector-set u16vector-set) - (spec: 0 dead-end dead-end) - (spec: 0 thread-group->thread-vector thread-group->thread-vector) - (spec: 0 open-tcp-server open-tcp-server) - (spec: 0 user-info-shell user-info-shell) - (spec: 0 thread-name thread-name) + (spec: 0 unbound-global-exception-code unbound-global-exception-code) + (spec: 0 input-port-byte-position input-port-byte-position) (spec: 0 - not-in-compilation-context-exception? - not-in-compilation-context-exception?) - (spec: 0 random-source-randomize! random-source-randomize!) - (spec: 0 inactive-thread-exception? inactive-thread-exception?) - (spec: 0 symbol-hash symbol-hash) + expression-parsing-exception-source + expression-parsing-exception-source) + (spec: 0 seconds->time seconds->time) + (spec: 0 string-suffix? string-suffix?) (spec: 0 bitwise-merge bitwise-merge) - (spec: 0 current-processor current-processor) - (spec: 0 u8vector-append u8vector-append) - (spec: 0 u8vector? u8vector?) - (spec: 0 file-info-mode file-info-mode) - (spec: 0 path-normalize path-normalize) - (spec: 0 s32vector? s32vector?) - (spec: 0 string->char-set! string->char-set!) - (spec: 0 char-set-union! char-set-union!) + (spec: 0 random-source-make-u8vectors random-source-make-u8vectors) (spec: 0 - permission-denied-exception-procedure - permission-denied-exception-procedure) - (spec: 0 s64vector-swap! s64vector-swap!) - (spec: 0 string-concatenate string-concatenate) - (spec: 0 with-exception-catcher with-exception-catcher) - (spec: 0 fx- fx-) - (spec: 0 address-info-protocol address-info-protocol) + inactive-thread-exception-arguments + inactive-thread-exception-arguments) + (spec: 0 fixnum? fixnum?) + (spec: 0 module-whitelist-reset! module-whitelist-reset!) + (spec: 0 u8vector-append u8vector-append) + (spec: 0 table->list table->list) + (spec: 0 readtable-comment-handler-set readtable-comment-handler-set) + (spec: 0 open-tcp-server open-tcp-server) + (spec: 0 unbox unbox) (spec: 0 - readtable-write-extended-read-macros?-set - readtable-write-extended-read-macros?-set) - (spec: 0 tcp-client-peer-socket-info tcp-client-peer-socket-info) + thread-group->thread-group-vector + thread-group->thread-group-vector) + (spec: 0 keyword-hash keyword-hash) + (spec: 0 file-info-mode file-info-mode) + (spec: 0 u8vector? u8vector?) (spec: 0 flasinh flasinh) - (spec: 0 rename-file rename-file) (spec: 0 - unterminated-process-exception? - unterminated-process-exception?) - (spec: 0 fxquotient fxquotient) + readtable-write-cdr-read-macros?-set + readtable-write-cdr-read-macros?-set) + (spec: + 0 + not-in-compilation-context-exception? + not-in-compilation-context-exception?) + (spec: 0 thread-mailbox-next thread-mailbox-next) + (spec: 0 user-info-shell user-info-shell) + (spec: 0 fxorc2 fxorc2) + (spec: 0 char-set-unfold! char-set-unfold!) + (spec: 0 s32vector? s32vector?) + (spec: 0 path-expand path-expand) (spec: 0 flinteger? flinteger?) - (spec: 0 make-will make-will) - (spec: 0 protocol-info-aliases protocol-info-aliases) - (spec: 0 subs16vector-move! subs16vector-move!) - (spec: 0 f64vector-set f64vector-set) - (spec: 0 subu32vector subu32vector) - (spec: 0 u64vector-length u64vector-length) - (spec: 0 getenv getenv) - (spec: 0 bit-field-set bit-field-set) - (spec: 0 console-port console-port) - (spec: 0 output-port-char-position output-port-char-position) - (spec: 0 s16vector s16vector) - (spec: 0 fxeven? fxeven?) - (spec: 0 char-set->list char-set->list) + (spec: 0 void void) + (spec: 0 remove! remove!) (spec: 0 eq?-hash eq?-hash) - (spec: 0 list->f32vector list->f32vector) + (spec: 0 fx* fx*) (spec: 0 - started-thread-exception-arguments - started-thread-exception-arguments) + unterminated-process-exception? + unterminated-process-exception?) (spec: 0 thread-state-abnormally-terminated? thread-state-abnormally-terminated?) - (spec: 0 char-set-difference char-set-difference) + (spec: 0 s16vector s16vector) + (spec: 0 vector->bits vector->bits) + (spec: 0 address-info-protocol address-info-protocol) + (spec: 0 will-testator will-testator) + (spec: 0 s64vector-swap! s64vector-swap!) + (spec: 0 f64vector-set f64vector-set) + (spec: 0 subs16vector subs16vector) + (spec: 0 make-will make-will) (spec: 0 f32vector-set f32vector-set) - (spec: 0 input-port-bytes-buffered input-port-bytes-buffered) - (spec: 0 ninth ninth) + (spec: 0 char-set-diff+intersection char-set-diff+intersection) + (spec: 0 fxbit-set? fxbit-set?) (spec: 0 thread-terminate! thread-terminate!) - (spec: 0 fl+* fl+*) - (spec: 0 unbound-global-exception? unbound-global-exception?) - (spec: 0 readtable-eval-allowed? readtable-eval-allowed?) - (spec: 0 integer-length integer-length) - (spec: 0 table-copy table-copy) - (spec: 0 uncaught-exception-arguments uncaught-exception-arguments) - (spec: - 0 - file-exists-exception-procedure - file-exists-exception-procedure) - (spec: 0 cpu-time cpu-time) - (spec: 0 make-bitwise-generator make-bitwise-generator) - (spec: 0 pp pp) - (spec: 0 s8vector-shrink! s8vector-shrink!) - (spec: 0 help-browser help-browser) - (spec: 0 append! append!) + (spec: 0 list->f32vector list->f32vector) (spec: 0 expression-parsing-exception? expression-parsing-exception?) - (spec: 0 make-root-thread make-root-thread) + (spec: 0 append! append!) + (spec: 0 get-output-u8vector get-output-u8vector) (spec: 0 type-exception-procedure type-exception-procedure) - (spec: 0 u16vector-ref u16vector-ref) - (spec: 0 datum-parsing-exception? datum-parsing-exception?) - (spec: 0 arithmetic-shift arithmetic-shift) - (spec: 0 keyword? keyword?) - (spec: 0 open-input-u8vector open-input-u8vector) - (spec: 0 thread-group->thread-list thread-group->thread-list) - (spec: 0 write-substring write-substring) - (spec: 0 open-udp open-udp) - (spec: 0 thread-mailbox-rewind thread-mailbox-rewind) - (spec: 0 user-name user-name) - (spec: 0 flceiling flceiling) - (spec: - 0 - random-source-pseudo-randomize! - random-source-pseudo-randomize!) - (spec: - 0 - inactive-thread-exception-procedure - inactive-thread-exception-procedure) - (spec: 0 u8vector-copy! u8vector-copy!) - (spec: 0 file-info-size file-info-size) - (spec: 0 bitwise-not bitwise-not) - (spec: 0 flscalbn flscalbn) - (spec: 0 list-sort list-sort) - (spec: 0 path-extension path-extension) - (spec: 0 s64vector s64vector) - (spec: 0 link-flat link-flat) - (spec: 0 address-info? address-info?) - (spec: 0 char-set-union char-set-union) - (spec: 0 string->char-set string->char-set) - (spec: - 0 - permission-denied-exception-arguments - permission-denied-exception-arguments) - (spec: 0 thread? thread?) - (spec: 0 will? will?) - (spec: 0 fx+ fx+) + (spec: 0 s8vector-shrink! s8vector-shrink!) + (spec: 0 make-bitwise-generator make-bitwise-generator) + (spec: 0 bit-field-set bit-field-set) + (spec: 0 cons* cons*) (spec: 0 - readtable-write-extended-read-macros? - readtable-write-extended-read-macros?) + wrong-processor-c-return-exception? + wrong-processor-c-return-exception?) + (spec: 0 u64vector-length u64vector-length) + (spec: 0 subu16vector-fill! subu16vector-fill!) (spec: 0 - unknown-keyword-argument-exception? - unknown-keyword-argument-exception?) - (spec: 0 tcp-client-local-socket-info tcp-client-local-socket-info) - (spec: 0 fllog1p fllog1p) - (spec: 0 call-with-input-process call-with-input-process) - (spec: 0 object->string object->string) - (spec: 0 remq remq) - (spec: 0 test-bit-field? test-bit-field?) - (spec: 0 fxpositive? fxpositive?) - (spec: 0 f32vector-swap! f32vector-swap!) - (spec: 0 protocol-info protocol-info) - (spec: 0 setenv setenv) - (spec: 0 bits bits) - (spec: 0 subs16vector-fill! subs16vector-fill!) - (spec: 0 f64vector-swap! f64vector-swap!) - (spec: 0 subu16vector-move! subu16vector-move!) - (spec: 0 u16vector-shrink! u16vector-shrink!) - (spec: 0 u32vector-set! u32vector-set!) - (spec: 0 get-output-vector get-output-vector) - (spec: 0 thread-priority-set! thread-priority-set!) - (spec: 0 output-port-byte-position output-port-byte-position) - (spec: 0 s16vector-concatenate s16vector-concatenate) - (spec: 0 thread-priority-boost-set! thread-priority-boost-set!) - (spec: 0 fxeqv fxeqv) - (spec: 0 char-set char-set) - (spec: 0 list->s32vector list->s32vector) - (spec: 0 s32vector->list s32vector->list) - (spec: 0 identity identity) - (spec: 0 char-set-diff+intersection! char-set-diff+intersection!) - (spec: 0 deadlock-exception? deadlock-exception?) - (spec: 0 input-port-column input-port-column) - (spec: 0 read-file-string-list read-file-string-list) + datum-parsing-exception-parameters + datum-parsing-exception-parameters) + (spec: 0 file-size file-size) (spec: 0 - unbound-global-exception-variable - unbound-global-exception-variable) - (spec: 0 fl+ fl+) + expression-parsing-exception-parameters + expression-parsing-exception-parameters) + (spec: 0 second second) + (spec: 0 module-whitelist-add! module-whitelist-add!) + (spec: 0 file-device file-device) + (spec: 0 bitwise-ior bitwise-ior) + (spec: 0 string-suffix-length-ci string-suffix-length-ci) + (spec: 0 u16vector-length u16vector-length) + (spec: 0 random-source-make-reals random-source-make-reals) + (spec: 0 u8vector->object u8vector->object) + (spec: 0 fixnum-overflow-exception? fixnum-overflow-exception?) + (spec: 0 readtable-comment-handler readtable-comment-handler) (spec: 0 - nonempty-input-port-character-buffer-exception? - nonempty-input-port-character-buffer-exception?) + unbound-serial-number-exception? + unbound-serial-number-exception?) (spec: 0 - readtable-keywords-allowed?-set - readtable-keywords-allowed?-set) + thread-group->thread-group-list + thread-group->thread-group-list) + (spec: 0 keyword-expected-exception? keyword-expected-exception?) (spec: 0 - file-exists-exception-arguments - file-exists-exception-arguments) - (spec: 0 tty-history tty-history) - (spec: 0 asinh asinh) - (spec: 0 help help) - (spec: 0 extract-bit-field extract-bit-field) - (spec: 0 make-s64vector make-s64vector) - (spec: 0 process-pid process-pid) - (spec: 0 drop drop) - (spec: 0 force-output force-output) - (spec: 0 split-at! split-at!) - (spec: 0 open-u8vector-pipe open-u8vector-pipe) - (spec: 0 thread-group-parent thread-group-parent) - (spec: 0 user-info? user-info?) - (spec: 0 flatanh flatanh) - (spec: 0 subu64vector-fill! subu64vector-fill!) - (spec: 0 random-source-state-ref random-source-state-ref) - (spec: 0 u8vector-copy u8vector-copy) - (spec: 0 file-info-owner file-info-owner) - (spec: 0 bitwise-nor bitwise-nor) - (spec: 0 ucs-range->char-set! ucs-range->char-set!) - (spec: 0 flround flround) - (spec: 0 box? box?) - (spec: 0 fxsquare fxsquare) - (spec: 0 path-strip-directory path-strip-directory) - (spec: 0 thread-yield! thread-yield!) - (spec: 0 address-info-socket-type address-info-socket-type) - (spec: 0 gc-report-set! gc-report-set!) - (spec: 0 string-contains-ci string-contains-ci) - (spec: 0 char-set-adjoin char-set-adjoin) - (spec: 0 not-pair? not-pair?) - (spec: 0 table-merge table-merge) + file-info-last-modification-time + file-info-last-modification-time) + (spec: 0 u8vector-swap! u8vector-swap!) (spec: 0 - unknown-keyword-argument-exception-procedure - unknown-keyword-argument-exception-procedure) - (spec: 0 fllog fllog) + not-in-compilation-context-exception-procedure + not-in-compilation-context-exception-procedure) + (spec: 0 flasin flasin) + (spec: 0 tanh tanh) (spec: 0 - join-timeout-exception-procedure - join-timeout-exception-procedure) + readtable-write-cdr-read-macros? + readtable-write-cdr-read-macros?) (spec: 0 - display-continuation-dynamic-environment - display-continuation-dynamic-environment) - (spec: 0 object->serial-number object->serial-number) - (spec: 0 tcp-client-self-socket-info tcp-client-self-socket-info) - (spec: 0 char-set-xor! char-set-xor!) - (spec: 0 protocol-info-number protocol-info-number) - (spec: 0 f32vector-shrink! f32vector-shrink!) - (spec: 0 subs32vector-fill! subs32vector-fill!) - (spec: 0 u16vector-set! u16vector-set!) - (spec: 0 bit-swap bit-swap) - (spec: 0 f64vector-shrink! f64vector-shrink!) - (spec: 0 subu32vector-move! subu32vector-move!) - (spec: 0 u32vector-set u32vector-set) - (spec: 0 append-reverse! append-reverse!) - (spec: 0 output-port-line output-port-line) - (spec: 0 fx<= fx<=) - (spec: 0 thread-priority-boost thread-priority-boost) - (spec: 0 s16vector-append s16vector-append) - (spec: 0 char-set-every char-set-every) - (spec: 0 xcons xcons) - (spec: 0 fxif fxif) - (spec: 0 equal?-hash equal?-hash) - (spec: 0 list->s16vector list->s16vector) - (spec: 0 s32vector s32vector) - (spec: 0 condition-variable-name condition-variable-name) - (spec: 0 started-thread-exception? started-thread-exception?) + invalid-hash-number-exception? + invalid-hash-number-exception?) + (spec: 0 open-tcp-client open-tcp-client) (spec: 0 - input-port-characters-buffered - input-port-characters-buffered) - (spec: 0 filter! filter!) - (spec: 0 read-file-string read-file-string) - (spec: 0 thread-state-initialized? thread-state-initialized?) - (spec: 0 fl/ fl/) - (spec: 0 integer-sqrt integer-sqrt) + thread-mailbox-extract-and-rewind + thread-mailbox-extract-and-rewind) + (spec: 0 user-info-name user-info-name) + (spec: 0 fxorc1 fxorc1) + (spec: 0 char-set-unfold char-set-unfold) + (spec: 0 s32vector-swap! s32vector-swap!) + (spec: 0 flinfinite? flinfinite?) + (spec: 0 remove remove) + (spec: 0 terminated-thread-exception? terminated-thread-exception?) (spec: 0 - nonprocedure-operator-exception-arguments - nonprocedure-operator-exception-arguments) - (spec: 0 readtable-keywords-allowed? readtable-keywords-allowed?) - (spec: 0 bitwise-orc2 bitwise-orc2) + unterminated-process-exception-procedure + unterminated-process-exception-procedure) (spec: 0 - unbound-key-exception-arguments - unbound-key-exception-arguments) - (spec: 0 make-condition-variable make-condition-variable) - (spec: 0 string-prefix-ci? string-prefix-ci?) - (spec: 0 s8vector? s8vector?) - (spec: 0 process-times process-times) - (spec: 0 make-s32vector make-s32vector) - (spec: 0 serial-number->object serial-number->object) - (spec: 0 type-exception? type-exception?) - (spec: 0 open-output-bytevector open-output-bytevector) - (spec: 0 flsinh flsinh) - (spec: 0 dotted-list? dotted-list?) - (spec: 0 foreign-address foreign-address) - (spec: 0 eighth eighth) - (spec: 0 open-vector-pipe open-vector-pipe) - (spec: 0 thread-group-name thread-group-name) - (spec: 0 call-with-input-u8vector call-with-input-u8vector) - (spec: 0 subu64vector subu64vector) - (spec: 0 u64vector-set u64vector-set) - (spec: 0 break break) - (spec: 0 file-info? file-info?) - (spec: 0 current-readtable current-readtable) - (spec: 0 fxremainder fxremainder) - (spec: 0 list-tabulate list-tabulate) - (spec: 0 s32vector-concatenate s32vector-concatenate) - (spec: 0 string->keyword string->keyword) - (spec: 0 permission-denied-exception? permission-denied-exception?) - (spec: 0 s64vector-append s64vector-append) - (spec: 0 string-contains string-contains) - (spec: 0 char-set->string char-set->string) - (spec: 0 flcosh flcosh) - (spec: 0 table-length table-length) - (spec: 0 readtable? readtable?) - (spec: 0 uncaught-exception-reason uncaught-exception-reason) - (spec: 0 flmin flmin) + thread-state-abnormally-terminated-reason + thread-state-abnormally-terminated-reason) + (spec: 0 fxzero? fxzero?) + (spec: 0 address-info-family address-info-family) + (spec: 0 s64vector-shrink! s64vector-shrink!) + (spec: 0 f32vector-ref f32vector-ref) + (spec: 0 concatenate! concatenate!) + (spec: 0 string-ci=?-hash string-ci=?-hash) + (spec: 0 will-execute! will-execute!) + (spec: 0 u32vector-length u32vector-length) + (spec: 0 subf64vector-move! subf64vector-move!) + (spec: 0 fxbit-count fxbit-count) + (spec: 0 char-set-delete! char-set-delete!) + (spec: 0 thread-suspend! thread-suspend!) + (spec: 0 vector-inc! vector-inc!) + (spec: 0 list->char-set! list->char-set!) + (spec: 0 s8vector-set! s8vector-set!) + (spec: 0 type-exception-arguments type-exception-arguments) + (spec: 0 f64vector-ref f64vector-ref) + (spec: 0 bit-field-rotate bit-field-rotate) + (spec: 0 with-output-to-vector with-output-to-vector) + (spec: 0 u64vector-fill! u64vector-fill!) + (spec: 0 subu16vector subu16vector) + (spec: 0 datum-parsing-exception-kind datum-parsing-exception-kind) + (spec: 0 make-random-source make-random-source) (spec: 0 - display-continuation-backtrace - display-continuation-backtrace) + expression-parsing-exception-kind + expression-parsing-exception-kind) + (spec: 0 u16vector-fill! u16vector-fill!) + (spec: 0 write-file-u8vector write-file-u8vector) + (spec: 0 cosh cosh) + (spec: 0 bitwise-if bitwise-if) + (spec: 0 file-creation-time file-creation-time) + (spec: 0 module-search-order-reset! module-search-order-reset!) + (spec: 0 random-source-make-integers random-source-make-integers) + (spec: 0 u8vector->list u8vector->list) (spec: 0 - join-timeout-exception-arguments - join-timeout-exception-arguments) - (spec: 0 repl-backtrace-detail-level repl-backtrace-detail-level) - (spec: 0 char-set-xor char-set-xor) - (spec: 0 protocol-info-name protocol-info-name) - (spec: 0 write-subu8vector write-subu8vector) - (spec: 0 subs32vector subs32vector) - (spec: 0 u16vector? u16vector?) - (spec: 0 bits->vector bits->vector) - (spec: 0 seventh seventh) - (spec: 0 subu32vector-fill! subu32vector-fill!) - (spec: 0 thread-priority thread-priority) - (spec: 0 u32vector-swap! u32vector-swap!) - (spec: 0 output-port-column output-port-column) - (spec: 0 fx< fx<) + fixnum-overflow-exception-procedure + fixnum-overflow-exception-procedure) (spec: 0 - rpc-remote-error-exception-arguments - rpc-remote-error-exception-arguments) - (spec: 0 thread-quantum-set! thread-quantum-set!) - (spec: 0 char-set-difference! char-set-difference!) - (spec: 0 err-code->string err-code->string) - (spec: 0 fxfirst-set-bit fxfirst-set-bit) - (spec: 0 list->s8vector list->s8vector) - (spec: 0 s16vector-copy! s16vector-copy!) - (spec: 0 condition-variable-broadcast! condition-variable-broadcast!) + unbound-serial-number-exception-procedure + unbound-serial-number-exception-procedure) (spec: 0 - started-thread-exception-procedure - started-thread-exception-procedure) - (spec: 0 filter filter) + readtable-case-conversion?-set + readtable-case-conversion?-set) + (spec: 0 divide-by-zero-exception? divide-by-zero-exception?) (spec: 0 - thread-state-normally-terminated? - thread-state-normally-terminated?) - (spec: 0 udp-destination-set! udp-destination-set!) - (spec: 0 vector-any vector-any) - (spec: 0 fl- fl-) - (spec: 0 bitwise-orc1 bitwise-orc1) - (spec: 0 make-f64vector make-f64vector) - (spec: 0 s8vector->list s8vector->list) - (spec: 0 tty-history-set! tty-history-set!) - (spec: 0 with-exception-handler with-exception-handler) - (spec: 0 process-status process-status) - (spec: 0 scheduler-exception-reason scheduler-exception-reason) - (spec: 0 drop-right! drop-right!) - (spec: 0 flsin flsin) - (spec: 0 open-input-vector open-input-vector) - (spec: 0 sixth sixth) - (spec: 0 open-vector open-vector) - (spec: 0 thread-group-specific thread-group-specific) - (spec: 0 call-with-input-string call-with-input-string) - (spec: 0 create-fifo create-fifo) - (spec: 0 file-exists-exception? file-exists-exception?) - (spec: 0 multiple-c-return-exception? multiple-c-return-exception?) - (spec: 0 r7rs-raise-continuable r7rs-raise-continuable) - (spec: 0 subu8vector subu8vector) - (spec: 0 u64vector-ref u64vector-ref) - (spec: 0 current-time current-time) - (spec: 0 file-info-type file-info-type) - (spec: 0 random-source? random-source?) - (spec: 0 u8vector-fill! u8vector-fill!) - (spec: 0 fxwrap+ fxwrap+) + keyword-expected-exception-procedure + keyword-expected-exception-procedure) + (spec: 0 open-file open-file) + (spec: 0 current-exception-handler current-exception-handler) + (spec: 0 file-info-last-change-time file-info-last-change-time) + (spec: 0 u8vector-shrink! u8vector-shrink!) (spec: 0 - path-strip-trailing-directory-separator - path-strip-trailing-directory-separator) - (spec: 0 list-sort! list-sort!) - (spec: 0 s32vector-append s32vector-append) - (spec: 0 address-infos address-infos) - (spec: 0 s64vector->list s64vector->list) - (spec: 0 top top) - (spec: 0 flcos flcos) + invalid-hash-number-exception-procedure + invalid-hash-number-exception-procedure) (spec: 0 - readtable-max-unescaped-char-set - readtable-max-unescaped-char-set) - (spec: 0 uncaught-exception-procedure uncaught-exception-procedure) - (spec: 0 table-ref table-ref) - (spec: 0 display-exception display-exception) - (spec: 0 flmax flmax) - (spec: 0 object->u8vector object->u8vector) - (spec: 0 real-time real-time) - (spec: 0 f32vector? f32vector?) - (spec: 0 condition-variable-specific condition-variable-specific) - (spec: 0 u16vector-swap! u16vector-swap!) - (spec: 0 f64vector? f64vector?) - (spec: 0 bits->list bits->list) - (spec: 0 continuation-capture continuation-capture) - (spec: 0 subs64vector subs64vector) - (spec: 0 u32vector-shrink! u32vector-shrink!) - (spec: 0 fx> fx>) - (spec: 0 char-set-any char-set-any) - (spec: 0 output-port-readtable output-port-readtable) - (spec: 0 thread-quantum thread-quantum) - (spec: 0 eqv?-hash eqv?-hash) - (spec: 0 char-set-filter! char-set-filter!) - (spec: 0 fxlength fxlength) - (spec: 0 list->s64vector list->s64vector) - (spec: 0 s16vector-copy s16vector-copy) + not-in-compilation-context-exception-arguments + not-in-compilation-context-exception-arguments) + (spec: 0 readtable-start-syntax-set readtable-start-syntax-set) + (spec: 0 last-pair last-pair) + (spec: 0 fold-right fold-right) + (spec: 0 cfun-conversion-exception? cfun-conversion-exception?) + (spec: 0 open-string-pipe open-string-pipe) + (spec: 0 thread-join! thread-join!) + (spec: 0 path-directory path-directory) + (spec: 0 fxodd? fxodd?) + (spec: 0 char-set-size char-set-size) + (spec: 0 uninterned-symbol? uninterned-symbol?) + (spec: 0 user-info-home user-info-home) + (spec: 0 s32vector-shrink! s32vector-shrink!) + (spec: 0 step-level-set! step-level-set!) + (spec: 0 flilogb flilogb) + (spec: 0 call/cc call/cc) (spec: 0 - thread-state-normally-terminated-result - thread-state-normally-terminated-result) - (spec: 0 vector-concatenate vector-concatenate) - (spec: 0 input-port-line input-port-line) - (spec: 0 fl<= fl<=) + terminated-thread-exception-procedure + terminated-thread-exception-procedure) + (spec: 0 list->char-set list->char-set) (spec: 0 - nonprocedure-operator-exception-operator - nonprocedure-operator-exception-operator) - (spec: 0 read-file-u8vector read-file-u8vector) - (spec: 0 unbound-key-exception? unbound-key-exception?) - (spec: 0 group-info group-info) - (spec: 0 apropos apropos) - (spec: 0 s8vector s8vector) - (spec: 0 make-f32vector make-f32vector) - (spec: 0 ->char-set ->char-set) - (spec: 0 tty-history-max-length-set! tty-history-max-length-set!) - (spec: 0 with-input-from-process with-input-from-process) - (spec: 0 string-prefix-length-ci string-prefix-length-ci) - (spec: 0 make-s8vector make-s8vector) - (spec: 0 flsquare flsquare) - (spec: 0 drop-right drop-right) - (spec: 0 open-output-process open-output-process) - (spec: 0 foreign-released? foreign-released?) - (spec: 0 thread-group-resume! thread-group-resume!) - (spec: 0 file-info file-info) - (spec: 0 create-directory create-directory) - (spec: 0 bitwise-xor bitwise-xor) - (spec: 0 mutex-lock! mutex-lock!) - (spec: 0 r7rs-raise r7rs-raise) - (spec: 0 shell-command shell-command) + unterminated-process-exception-arguments + unterminated-process-exception-arguments) + (spec: 0 fxxor fxxor) + (spec: 0 s64vector-set! s64vector-set!) + (spec: 0 concatenate concatenate) + (spec: 0 u32vector-fill! u32vector-fill!) + (spec: 0 subf64vector-fill! subf64vector-fill!) + (spec: + 0 + wrong-number-of-values-exception? + wrong-number-of-values-exception?) + (spec: 0 fxarithmetic-shift-right fxarithmetic-shift-right) + (spec: 0 char-set-delete char-set-delete) + (spec: 0 s16vector? s16vector?) + (spec: 0 port-settings-set! port-settings-set!) + (spec: 0 any-bits-set? any-bits-set?) + (spec: 0 thread-state-waiting? thread-state-waiting?) + (spec: 0 type-exception-arg-id type-exception-arg-id) + (spec: 0 s8vector-set s8vector-set) + (spec: 0 with-output-to-u8vector with-output-to-u8vector) + (spec: 0 bit-field-reverse bit-field-reverse) + (spec: 0 conjugate conjugate) + (spec: 0 u64vector-copy! u64vector-copy!) + (spec: 0 readtable-case-conversion? readtable-case-conversion?) + (spec: 0 network-info? network-info?) + (spec: 0 file-owner file-owner) + (spec: 0 substring-move! substring-move!) + (spec: 0 udp-write-u8vector udp-write-u8vector) + (spec: 0 string-suffix-ci? string-suffix-ci?) + (spec: 0 println println) + (spec: 0 clear-bit-field clear-bit-field) + (spec: 0 u16vector-copy! u16vector-copy!) + (spec: 0 range-exception? range-exception?) + (spec: 0 module-search-order-add! module-search-order-add!) + (spec: 0 file-attributes file-attributes) + (spec: 0 bitwise-for-each bitwise-for-each) + (spec: 0 write-file-string-list write-file-string-list) + (spec: 0 u8vector u8vector) + (spec: 0 random-source-make-f64vectors random-source-make-f64vectors) + (spec: 0 noncontinuable-exception? noncontinuable-exception?) (spec: 0 - file-last-access-and-modification-times-set! - file-last-access-and-modification-times-set!) - (spec: 0 current-thread current-thread) - (spec: 0 initial-current-directory initial-current-directory) - (spec: 0 random-source-state-set! random-source-state-set!) - (spec: 0 subu64vector-move! subu64vector-move!) - (spec: 0 abort abort) - (spec: 0 fxwrap* fxwrap*) - (spec: 0 list->table list->table) - (spec: 0 path-strip-extension path-strip-extension) - (spec: 0 s32vector-copy! s32vector-copy!) - (spec: 0 u64vector-shrink! u64vector-shrink!) - (spec: 0 s64vector-copy s64vector-copy) - (spec: 0 fleven? fleven?) - (spec: 0 readtable-max-unescaped-char readtable-max-unescaped-char) - (spec: 0 table-merge! table-merge!) + fixnum-overflow-exception-arguments + fixnum-overflow-exception-arguments) (spec: 0 - display-continuation-environment - display-continuation-environment) - (spec: 0 flnegative? flnegative?) - (spec: 0 join-timeout-exception? join-timeout-exception?) - (spec: 0 bit-count bit-count) - (spec: 0 condition-variable-signal! condition-variable-signal!) - (spec: 0 make-thread make-thread) - (spec: 0 f64vector->list f64vector->list) - (spec: 0 protocol-info? protocol-info?) - (spec: 0 service-info-aliases service-info-aliases) - (spec: 0 bitwise-andc1 bitwise-andc1) - (spec: 0 string=?-hash string=?-hash) - (spec: 0 subs32vector-move! subs32vector-move!) + unbound-serial-number-exception-arguments + unbound-serial-number-exception-arguments) (spec: 0 - sfun-conversion-exception-arguments - sfun-conversion-exception-arguments) - (spec: 0 fx= fx=) - (spec: 0 char-set-adjoin! char-set-adjoin!) - (spec: 0 end-of-char-set? end-of-char-set?) - (spec: 0 length+ length+) + keyword-expected-exception-arguments + keyword-expected-exception-arguments) (spec: 0 - rpc-remote-error-exception-procedure - rpc-remote-error-exception-procedure) - (spec: 0 fxior fxior) - (spec: 0 char-set-filter char-set-filter) - (spec: 0 thread-resume! thread-resume!) - (spec: 0 s16vector-length s16vector-length) + divide-by-zero-exception-procedure + divide-by-zero-exception-procedure) + (spec: 0 open-event-queue open-event-queue) + (spec: 0 link-incremental link-incremental) + (spec: 0 replace-bit-field replace-bit-field) + (spec: 0 file-info-last-access-time file-info-last-access-time) + (spec: 0 mutex? mutex?) + (spec: 0 u8vector-set! u8vector-set!) (spec: 0 - thread-state-running-processor - thread-state-running-processor) - (spec: 0 vector-cas! vector-cas!) + invalid-hash-number-exception-arguments + invalid-hash-number-exception-arguments) + (spec: 0 flacosh flacosh) + (spec: 0 take-right take-right) + (spec: 0 readtable-start-syntax readtable-start-syntax) + (spec: 0 open-string open-string) + (spec: 0 fold fold) (spec: 0 - initialized-thread-exception-procedure - initialized-thread-exception-procedure) - (spec: 0 default-random-source default-random-source) - (spec: 0 udp-local-socket-info udp-local-socket-info) - (spec: 0 fl< fl<) - (spec: 0 input-port-readtable-set! input-port-readtable-set!) - (spec: 0 delete delete) + cfun-conversion-exception-procedure + cfun-conversion-exception-procedure) + (spec: 0 thread-interrupt! thread-interrupt!) + (spec: 0 uninterned-keyword? uninterned-keyword?) + (spec: 0 user-info-gid user-info-gid) + (spec: 0 fxnot fxnot) + (spec: 0 char-set-ref char-set-ref) + (spec: 0 s32vector-set! s32vector-set!) + (spec: 0 step step) + (spec: 0 directory-files directory-files) + (spec: 0 flhypot flhypot) (spec: 0 - nonprocedure-operator-exception-code - nonprocedure-operator-exception-code) - (spec: 0 read-substring read-substring) - (spec: 0 system-type system-type) + number-of-arguments-limit-exception? + number-of-arguments-limit-exception?) (spec: 0 - unbound-key-exception-procedure - unbound-key-exception-procedure) - (spec: 0 pretty-print pretty-print) - (spec: 0 s8vector-concatenate s8vector-concatenate) + terminated-thread-exception-arguments + terminated-thread-exception-arguments) + (spec: 0 vector-unfold-right vector-unfold-right) + (spec: 0 os-exception? os-exception?) + (spec: 0 thread-state thread-state) + (spec: 0 fxwrapsquare fxwrapsquare) + (spec: 0 s64vector-set s64vector-set) + (spec: 0 make-u8vector make-u8vector) + (spec: 0 f32vector-length f32vector-length) + (spec: 0 proper-list? proper-list?) + (spec: 0 substring-fill! substring-fill!) + (spec: 0 set-box! set-box!) + (spec: 0 list->bits list->bits) + (spec: 0 fxarithmetic-shift-left fxarithmetic-shift-left) + (spec: 0 char-set-cursor-next char-set-cursor-next) + (spec: 0 subf64vector subf64vector) + (spec: 0 thread-state-waiting-timeout thread-state-waiting-timeout) + (spec: 0 s16vector-swap! s16vector-swap!) + (spec: 0 main main) + (spec: 0 any-bit-set? any-bit-set?) + (spec: 0 string-suffix-length string-suffix-length) + (spec: 0 u32vector-copy! u32vector-copy!) + (spec: 0 s8vector-ref s8vector-ref) + (spec: 0 vector-fold-right vector-fold-right) + (spec: 0 f64vector-length f64vector-length) + (spec: 0 bit-field-replace-same bit-field-replace-same) + (spec: 0 with-output-to-string with-output-to-string) + (spec: 0 u64vector-copy u64vector-copy) (spec: 0 - tty-paren-balance-duration-set! - tty-paren-balance-duration-set!) - (spec: 0 with-input-from-port with-input-from-port) - (spec: 0 f32vector->list f32vector->list) - (spec: 0 string-prefix-length string-prefix-length) - (spec: 0 u16vector u16vector) - (spec: 0 flsqrt flsqrt) - (spec: 0 third third) - (spec: 0 repl-highlight-source-level repl-highlight-source-level) - (spec: 0 foreign-release! foreign-release!) - (spec: 0 thread-group-suspend! thread-group-suspend!) - (spec: 0 file-group file-group) - (spec: 0 bitwise-unfold bitwise-unfold) - (spec: 0 create-symbolic-link create-symbolic-link) - (spec: 0 raise raise) - (spec: 0 subu8vector-move! subu8vector-move!) - (spec: 0 file-inode file-inode) - (spec: 0 u64vector-set! u64vector-set!) - (spec: 0 u8vector-length u8vector-length) - (spec: 0 abandoned-mutex-exception? abandoned-mutex-exception?) - (spec: 0 fxwrapabs fxwrapabs) - (spec: 0 s32vector-copy s32vector-copy) - (spec: 0 vector-set vector-set) - (spec: 0 char-set= char-set=) - (spec: 0 path-volume path-volume) - (spec: 0 string->uninterned-symbol string->uninterned-symbol) - (spec: 0 s64vector-concatenate s64vector-concatenate) - (spec: 0 fldenominator fldenominator) - (spec: 0 call-with-input-vector call-with-input-vector) - (spec: 0 link-incremental link-incremental) - (spec: 0 null-list? null-list?) + wrong-number-of-values-exception-vals + wrong-number-of-values-exception-vals) + (spec: 0 network-info-number network-info-number) + (spec: 0 file-number-of-links file-number-of-links) + (spec: 0 script-directory script-directory) + (spec: 0 print print) + (spec: 0 circular-list? circular-list?) + (spec: 0 string-shrink! string-shrink!) + (spec: 0 udp-write-subu8vector udp-write-subu8vector) + (spec: 0 u16vector-copy u16vector-copy) + (spec: 0 sinh sinh) + (spec: 0 copy-file copy-file) + (spec: 0 bitwise-fold bitwise-fold) + (spec: 0 fifth fifth) + (spec: 0 u8vector-set u8vector-set) (spec: 0 - readtable-max-write-length-set - readtable-max-write-length-set) - (spec: 0 flnan? flnan?) + noncontinuable-exception-reason + noncontinuable-exception-reason) + (spec: 0 repl-result-history-ref repl-result-history-ref) + (spec: 0 user-info user-info) (spec: 0 - invalid-utf8-encoding-exception-arguments - invalid-utf8-encoding-exception-arguments) - (spec: 0 table-set! table-set!) - (spec: 0 uncaught-exception? uncaught-exception?) - (spec: 0 condition-variable? condition-variable?) - (spec: 0 make-table make-table) - (spec: 0 f64vector f64vector) - (spec: 0 processor-id processor-id) - (spec: 0 service-info service-info) - (spec: 0 continuation-return continuation-return) - (spec: 0 bitwise-and bitwise-and) + divide-by-zero-exception-arguments + divide-by-zero-exception-arguments) + (spec: 0 flonum? flonum?) + (spec: 0 open-dummy open-dummy) + (spec: 0 thread-base-priority-set! thread-base-priority-set!) + (spec: 0 range-exception-procedure range-exception-procedure) + (spec: 0 mutex-unlock! mutex-unlock!) + (spec: 0 current-directory current-directory) + (spec: 0 file-info-inode file-info-inode) (spec: 0 - wrong-number-of-arguments-exception-procedure - wrong-number-of-arguments-exception-procedure) - (spec: 0 subs64vector-move! subs64vector-move!) - (spec: 0 u32vector? u32vector?) - (spec: 0 char-set-complement! char-set-complement!) - (spec: 0 fxabs fxabs) + readtable-sharing-allowed?-set + readtable-sharing-allowed?-set) + (spec: 0 delete-file-or-directory delete-file-or-directory) + (spec: 0 flacos flacos) + (spec: 0 take! take!) + (spec: 0 open-process open-process) + (spec: 0 flzero? flzero?) + (spec: + 0 + cfun-conversion-exception-message + cfun-conversion-exception-message) + (spec: 0 s64vector-ref s64vector-ref) + (spec: 0 partition! partition!) + (spec: 0 fxnor fxnor) + (spec: 0 char-set-map char-set-map) + (spec: 0 thread-init! thread-init!) + (spec: 0 vector-unfold vector-unfold) + (spec: 0 s32vector-set s32vector-set) + (spec: 0 iota iota) + (spec: 0 flfloor flfloor) + (spec: + 0 + number-of-arguments-limit-exception-procedure + number-of-arguments-limit-exception-procedure) + (spec: 0 s16vector-shrink! s16vector-shrink!) + (spec: 0 length-mismatch-exception? length-mismatch-exception?) + (spec: 0 os-exception-procedure os-exception-procedure) + (spec: 0 thread-start! thread-start!) + (spec: 0 fxwrapquotient fxwrapquotient) + (spec: 0 acosh acosh) + (spec: 0 make-u64vector make-u64vector) + (spec: 0 f32vector-fill! f32vector-fill!) + (spec: 0 compilation-target compilation-target) + (spec: 0 host-name host-name) + (spec: 0 subf32vector-move! subf32vector-move!) + (spec: 0 stack-overflow-exception? stack-overflow-exception?) + (spec: 0 fxarithmetic-shift fxarithmetic-shift) + (spec: 0 char-set-cursor char-set-cursor) + (spec: 0 u32vector-copy u32vector-copy) + (spec: 0 thread-state-waiting-for thread-state-waiting-for) + (spec: 0 script-file script-file) (spec: 0 - rpc-remote-error-exception-message - rpc-remote-error-exception-message) - (spec: 0 thread-receive thread-receive) - (spec: 0 char-set-for-each char-set-for-each) - (spec: 0 output-port-timeout-set! output-port-timeout-set!) - (spec: 0 fxmin fxmin) - (spec: 0 error error) - (spec: 0 s16vector-fill! s16vector-fill!) + mailbox-receive-timeout-exception? + mailbox-receive-timeout-exception?) + (spec: 0 any any) (spec: 0 - initialized-thread-exception-arguments - initialized-thread-exception-arguments) - (spec: 0 first-set-bit first-set-bit) - (spec: 0 network-info network-info) - (spec: 0 udp-read-subu8vector udp-read-subu8vector) + port-io-exception-handler-set! + port-io-exception-handler-set!) + (spec: 0 vector-fold vector-fold) + (spec: 0 with-output-to-process with-output-to-process) (spec: 0 - no-such-file-or-directory-exception-procedure - no-such-file-or-directory-exception-procedure) - (spec: 0 compile-file compile-file) - (spec: 0 fl> fl>) - (spec: 0 input-port-readtable input-port-readtable) - (spec: 0 system-stamp system-stamp) + wrong-number-of-values-exception-rte + wrong-number-of-values-exception-rte) + (spec: 0 bit-field-replace bit-field-replace) + (spec: 0 configure-command-string configure-command-string) + (spec: 0 f64vector-fill! f64vector-fill!) + (spec: 0 system-version-string system-version-string) + (spec: 0 u64vector-concatenate u64vector-concatenate) + (spec: 0 network-info-name network-info-name) + (spec: 0 file-mode file-mode) + (spec: 0 udp-source-socket-info udp-source-socket-info) + (spec: 0 primordial-exception-handler primordial-exception-handler) + (spec: 0 group-info? group-info?) + (spec: 0 random-real random-real) + (spec: 0 copy-bit-field copy-bit-field) + (spec: 0 module-not-found-exception? module-not-found-exception?) + (spec: 0 subvector-move! subvector-move!) (spec: 0 - unbound-os-environment-variable-exception-arguments - unbound-os-environment-variable-exception-arguments) - (spec: 0 group-info-members group-info-members) - (spec: 0 s8vector-append s8vector-append) - (spec: 0 tty-mode-set! tty-mode-set!) - (spec: 0 with-input-from-u8vector with-input-from-u8vector) - (spec: 0 f32vector f32vector) - (spec: 0 host-info-addresses host-info-addresses) - (spec: 0 scheduler-exception? scheduler-exception?) - (spec: 0 fltanh fltanh) - (spec: 0 repl-error-port repl-error-port) - (spec: 0 open-output-u8vector open-output-u8vector) - (spec: 0 socket-info-family socket-info-family) - (spec: 0 thread-group-specific-set! thread-group-specific-set!) + unbound-os-environment-variable-exception? + unbound-os-environment-variable-exception?) + (spec: 0 fixnum->flonum fixnum->flonum) (spec: 0 - module-not-found-exception-arguments - module-not-found-exception-arguments) - (spec: 0 create-link create-link) - (spec: 0 file-info-creation-time file-info-creation-time) - (spec: 0 r7rs-with-exception-handler r7rs-with-exception-handler) - (spec: 0 subu8vector-fill! subu8vector-fill!) - (spec: 0 mutex-specific mutex-specific) + repl-result-history-max-length-set! + repl-result-history-max-length-set!) + (spec: 0 keyword->string keyword->string) (spec: 0 - current-user-interrupt-handler - current-user-interrupt-handler) - (spec: 0 file-last-change-time file-last-change-time) - (spec: 0 random-u8vector random-u8vector) - (spec: 0 u64vector? u64vector?) - (spec: 0 error-exception-parameters error-exception-parameters) - (spec: 0 fxwrap- fxwrap-) - (spec: 0 list->u32vector list->u32vector) - (spec: 0 s32vector-length s32vector-length) - (spec: 0 char-set<= char-set<=) - (spec: 0 time? time?) - (spec: 0 path-strip-volume path-strip-volume) - (spec: 0 s64vector-fill! s64vector-fill!) - (spec: 0 string->uninterned-keyword string->uninterned-keyword) - (spec: 0 call-with-output-string call-with-output-string) + cfun-conversion-exception-code + cfun-conversion-exception-code) + (spec: 0 open-directory open-directory) + (spec: 0 thread-priority-set! thread-priority-set!) + (spec: 0 range-exception-arguments range-exception-arguments) + (spec: 0 mutex-state mutex-state) + (spec: 0 file-info-group file-info-group) + (spec: 0 thread-base-priority thread-base-priority) + (spec: 0 u8vector-ref u8vector-ref) + (spec: 0 tenth tenth) + (spec: 0 readtable-sharing-allowed? readtable-sharing-allowed?) (spec: 0 - nonprocedure-operator-exception? - nonprocedure-operator-exception?) - (spec: 0 flexpm1 flexpm1) - (spec: 0 readtable-max-write-length readtable-max-write-length) - (spec: 0 table-search table-search) + uninitialized-thread-exception? + uninitialized-thread-exception?) + (spec: 0 flabs flabs) + (spec: 0 call-with-output-vector call-with-output-vector) + (spec: 0 take take) + (spec: 0 socket-info? socket-info?) + (spec: 0 s32vector-ref s32vector-ref) + (spec: 0 list->u8vector list->u8vector) + (spec: 0 char-set-intersection! char-set-intersection!) + (spec: 0 fxnegative? fxnegative?) + (spec: 0 partition partition) + (spec: 0 timeout->time timeout->time) (spec: 0 - uninitialized-thread-exception-arguments - uninitialized-thread-exception-arguments) - (spec: 0 display-exception-in-context display-exception-in-context) - (spec: 0 tcp-server-socket-info tcp-server-socket-info) + number-of-arguments-limit-exception-arguments + number-of-arguments-limit-exception-arguments) + (spec: 0 flfinite? flfinite?) + (spec: 0 vector-swap! vector-swap!) (spec: 0 - condition-variable-specific-set! - condition-variable-specific-set!) - (spec: 0 f32vector-concatenate f32vector-concatenate) - (spec: 0 bit-field-any? bit-field-any?) - (spec: 0 make-tls-context make-tls-context) - (spec: 0 service-info-port-number service-info-port-number) - (spec: 0 continuation-graft continuation-graft) - (spec: 0 f64vector-concatenate f64vector-concatenate) - (spec: 0 bitwise-eqv bitwise-eqv) + length-mismatch-exception-procedure + length-mismatch-exception-procedure) + (spec: 0 os-exception-message os-exception-message) + (spec: 0 thread-specific-set! thread-specific-set!) + (spec: 0 every-bit-set? every-bit-set?) + (spec: 0 fxwraplogical-shift-right fxwraplogical-shift-right) + (spec: 0 trace trace) + (spec: 0 service-info? service-info?) + (spec: 0 f32vector-copy! f32vector-copy!) + (spec: 0 host-info? host-info?) + (spec: 0 make-u32vector make-u32vector) + (spec: 0 subf32vector-fill! subf32vector-fill!) + (spec: 0 s16vector-set! s16vector-set!) + (spec: 0 u32vector-concatenate u32vector-concatenate) + (spec: 0 fxandc2 fxandc2) + (spec: 0 char-set-count char-set-count) (spec: 0 - sfun-conversion-exception-message - sfun-conversion-exception-message) - (spec: 0 subs64vector-fill! subs64vector-fill!) - (spec: 0 u32vector->list u32vector->list) - (spec: 0 char-set-complement char-set-complement) - (spec: 0 u64vector u64vector) - (spec: 0 fx>= fx>=) + wrong-number-of-values-exception-code + wrong-number-of-values-exception-code) + (spec: 0 write-file-string write-file-string) + (spec: 0 s8vector-length s8vector-length) (spec: 0 - length-mismatch-exception-arg-id - length-mismatch-exception-arg-id) - (spec: 0 thread-sleep! thread-sleep!) - (spec: 0 char-set-fold char-set-fold) + mailbox-receive-timeout-exception-procedure + mailbox-receive-timeout-exception-procedure) + (spec: 0 tty? tty?) + (spec: 0 sfun-conversion-exception? sfun-conversion-exception?) + (spec: 0 subs8vector-move! subs8vector-move!) + (spec: 0 f64vector-copy! f64vector-copy!) + (spec: 0 bit-field-every? bit-field-every?) + (spec: 0 with-output-to-port with-output-to-port) + (spec: 0 u64vector-append u64vector-append) + (spec: 0 read-all read-all) + (spec: 0 network-info-aliases network-info-aliases) + (spec: 0 file-last-modification-time file-last-modification-time) + (spec: 0 udp-read-u8vector udp-read-u8vector) + (spec: 0 u16vector-append u16vector-append) + (spec: 0 string-set string-set) + (spec: 0 make-mutex make-mutex) + (spec: 0 group-info-name group-info-name) + (spec: 0 command-name command-name) + (spec: 0 random-integer random-integer) (spec: 0 - wrong-number-of-arguments-exception-arguments - wrong-number-of-arguments-exception-arguments) - (spec: 0 fxmax fxmax) - (spec: 0 output-port-readtable-set! output-port-readtable-set!) - (spec: 0 s16vector-ref s16vector-ref) - (spec: 0 first first) - (spec: 0 read-all read-all) + module-not-found-exception-procedure + module-not-found-exception-procedure) + (spec: 0 copy-bit copy-bit) + (spec: 0 subvector-fill! subvector-fill!) + (spec: 0 system-version system-version) + (spec: + 0 + unbound-os-environment-variable-exception-procedure + unbound-os-environment-variable-exception-procedure) (spec: 0 defer-user-interrupts defer-user-interrupts) - (spec: 0 fl= fl=) (spec: 0 - no-such-file-or-directory-exception-arguments - no-such-file-or-directory-exception-arguments) - (spec: 0 system-version system-version) - (spec: 0 group-info-gid group-info-gid) - (spec: 0 s8vector-copy! s8vector-copy!) - (spec: 0 tty-text-attributes-set! tty-text-attributes-set!) - (spec: 0 command-args command-args) - (spec: 0 with-input-from-string with-input-from-string) - (spec: 0 host-info host-info) - (spec: 0 make-mutex make-mutex) - (spec: 0 string-prefix? string-prefix?) - (spec: 0 u16vector-append u16vector-append) - (spec: 0 display-procedure-environment display-procedure-environment) - (spec: 0 fltan fltan) + no-such-file-or-directory-exception? + no-such-file-or-directory-exception?) (spec: 0 repl-output-port repl-output-port) (spec: 0 thread thread) - (spec: 0 foreign-tags foreign-tags) - (spec: 0 reverse! reverse!) - (spec: 0 socket-info-address socket-info-address) - (spec: 0 thread-group? thread-group?) - (spec: 0 copy-bit copy-bit) - (spec: 0 file-info-attributes file-info-attributes) - (spec: 0 random-integer random-integer) - (spec: 0 subvector-fill! subvector-fill!) - (spec: 0 u64vector-swap! u64vector-swap!) - (spec: 0 mutex-name mutex-name) - (spec: 0 file-last-access-time file-last-access-time) - (spec: 0 range-exception-arg-id range-exception-arg-id) - (spec: 0 fxnand fxnand) - (spec: 0 error-exception-message error-exception-message) - (spec: 0 list->u16vector list->u16vector) - (spec: 0 s32vector-fill! s32vector-fill!) - (spec: 0 time->seconds time->seconds) - (spec: 0 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) - (spec: 0 all-bits-set? all-bits-set?) - (spec: 0 s64vector-copy! s64vector-copy!) - (spec: 0 list= list=) - (spec: 0 vector-shrink! vector-shrink!) - (spec: 0 call-with-output-process call-with-output-process) - (spec: 0 delete-directory delete-directory) - (spec: 0 flexp flexp) + (spec: 0 display-procedure-environment display-procedure-environment) (spec: 0 - nonprocedure-operator-exception-rte - nonprocedure-operator-exception-rte) + cfun-conversion-exception-arguments + cfun-conversion-exception-arguments) + (spec: 0 flodd? flodd?) + (spec: 0 range-exception-arg-id range-exception-arg-id) + (spec: 0 mutex-specific-set! mutex-specific-set!) + (spec: 0 file-info-device file-info-device) (spec: 0 readtable-max-write-level-set readtable-max-write-level-set) - (spec: 0 flnumerator flnumerator) + (spec: + 0 + uninitialized-thread-exception-procedure + uninitialized-thread-exception-procedure) + (spec: 0 delete-directory delete-directory) + (spec: 0 call-with-output-u8vector call-with-output-u8vector) + (spec: 0 fl>= fl>=) + (spec: 0 thread-group? thread-group?) + (spec: 0 reverse! reverse!) + (spec: 0 open-output-vector open-output-vector) + (spec: 0 fltruncate fltruncate) + (spec: 0 socket-info-port-number socket-info-port-number) + (spec: 0 touch touch) + (spec: 0 vector-shrink! vector-shrink!) + (spec: 0 error-exception? error-exception?) + (spec: 0 fxnand fxnand) + (spec: 0 list->u64vector list->u64vector) + (spec: 0 tcp-service-unregister! tcp-service-unregister!) (spec: 0 invalid-utf8-encoding-exception? invalid-utf8-encoding-exception?) - (spec: 0 tcp-service-unregister! tcp-service-unregister!) - (spec: 0 f32vector-append f32vector-append) - (spec: 0 bit-field bit-field) - (spec: 0 host-info-name host-info-name) - (spec: 0 make-thread-group make-thread-group) - (spec: 0 service-info-name service-info-name) - (spec: 0 subf32vector subf32vector) - (spec: 0 bitwise-andc2 bitwise-andc2) - (spec: 0 f64vector-append f64vector-append) + (spec: 0 flexpt flexpt) + (spec: 0 thread-state-uninitialized? thread-state-uninitialized?) (spec: 0 - sfun-conversion-exception-code - sfun-conversion-exception-code) - (spec: 0 subs8vector-fill! subs8vector-fill!) - (spec: 0 u32vector u32vector) + length-mismatch-exception-arguments + length-mismatch-exception-arguments) (spec: 0 fourth fourth) (spec: 0 char-set-copy char-set-copy) (spec: 0 os-exception-code os-exception-code) - (spec: 0 rpc-remote-error-exception? rpc-remote-error-exception?) - (spec: 0 thread-send thread-send) - (spec: 0 char-set-intersection char-set-intersection) + (spec: 0 s64vector-length s64vector-length) + (spec: 0 thread-specific thread-specific) + (spec: 0 every every) + (spec: 0 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) + (spec: 0 u64vector->list u64vector->list) + (spec: 0 service-info-protocol service-info-protocol) + (spec: 0 f32vector-copy f32vector-copy) + (spec: 0 atanh atanh) + (spec: 0 host-info-name host-info-name) + (spec: 0 make-u16vector make-u16vector) + (spec: 0 s16vector-set s16vector-set) + (spec: 0 subf32vector subf32vector) (spec: 0 fxandc1 fxandc1) - (spec: 0 thread-state-running? thread-state-running?) - (spec: 0 vector-every vector-every) - (spec: 0 file-mode file-mode) - (spec: 0 initialized-thread-exception? initialized-thread-exception?) - (spec: 0 network-info-name network-info-name) - (spec: 0 udp-source-socket-info udp-source-socket-info) - (spec: 0 fixnum->flonum fixnum->flonum) + (spec: 0 char-set-intersection char-set-intersection) + (spec: 0 u32vector-append u32vector-append) + (spec: 0 u16vector-concatenate u16vector-concatenate) + (spec: 0 s8vector-fill! s8vector-fill!) (spec: 0 - default-user-interrupt-handler - default-user-interrupt-handler) - (spec: 0 input-port-timeout-set! input-port-timeout-set!) - (spec: 0 read-subu8vector read-subu8vector) - (spec: 0 system-type-string system-type-string) + mailbox-receive-timeout-exception-arguments + mailbox-receive-timeout-exception-arguments) (spec: 0 gensym gensym) (spec: 0 circular-list circular-list) (spec: 0 poll-point poll-point) - (spec: 0 s8vector-copy s8vector-copy) (spec: 0 - unbound-os-environment-variable-exception? - unbound-os-environment-variable-exception?) - (spec: 0 executable-path executable-path) - (spec: 0 group-info? group-info?) - (spec: 0 primordial-exception-handler primordial-exception-handler) + sfun-conversion-exception-procedure + sfun-conversion-exception-procedure) + (spec: 0 subs8vector-fill! subs8vector-fill!) + (spec: 0 f64vector-copy f64vector-copy) + (spec: 0 bit-field-clear bit-field-clear) + (spec: 0 tty-type-set! tty-type-set!) + (spec: 0 vector-every vector-every) + (spec: 0 udp-read-subu8vector udp-read-subu8vector) + (spec: 0 initialized-thread-exception? initialized-thread-exception?) + (spec: 0 first-set-bit first-set-bit) + (spec: 0 network-info network-info) (spec: 0 u16vector->list u16vector->list) + (spec: 0 executable-path executable-path) + (spec: 0 host-info-addresses host-info-addresses) + (spec: 0 subvector subvector) + (spec: 0 random-f64vector random-f64vector) (spec: 0 - cfun-conversion-exception-code - cfun-conversion-exception-code) - (spec: 0 open-directory open-directory) + module-not-found-exception-arguments + module-not-found-exception-arguments) + (spec: 0 file-info-creation-time file-info-creation-time) + (spec: 0 u64vector? u64vector?) + (spec: 0 read-subu8vector read-subu8vector) + (spec: 0 input-port-timeout-set! input-port-timeout-set!) + (spec: + 0 + default-user-interrupt-handler + default-user-interrupt-handler) + (spec: 0 fl> fl>) + (spec: + 0 + no-such-file-or-directory-exception-procedure + no-such-file-or-directory-exception-procedure) + (spec: 0 system-type-string system-type-string) (spec: 0 repl-input-port repl-input-port) - (spec: 0 socket-info? socket-info?) - (spec: 0 last last) - (spec: 0 thread-group-terminate! thread-group-terminate!) - (spec: 0 module-not-found-exception? module-not-found-exception?) - (spec: 0 random-f64vector random-f64vector) - (spec: 0 subvector subvector) + (spec: 0 fltanh fltanh) + (spec: + 0 + unbound-os-environment-variable-exception-arguments + unbound-os-environment-variable-exception-arguments) + (spec: 0 mutex-specific mutex-specific) (spec: 0 create-temporary-directory create-temporary-directory) - (spec: 0 file-info-group file-info-group) - (spec: 0 mutex-state mutex-state) - (spec: 0 compile-file-to-target compile-file-to-target) - (spec: 0 u8vector-ref u8vector-ref) - (spec: 0 fxmodulo fxmodulo) - (spec: 0 list->u8vector list->u8vector) - (spec: 0 s32vector-ref s32vector-ref) - (spec: 0 trace trace) - (spec: 0 fxwraparithmetic-shift fxwraparithmetic-shift) - (spec: 0 char-set? char-set?) - (spec: 0 every-bit-set? every-bit-set?) - (spec: 0 thread-specific-set! thread-specific-set!) - (spec: 0 flabs flabs) - (spec: 0 call-with-output-vector call-with-output-vector) - (spec: 0 delete! delete!) - (spec: 0 readtable-max-write-level readtable-max-write-level) + (spec: 0 file-last-change-time file-last-change-time) (spec: 0 table? table?) + (spec: 0 readtable-max-write-level readtable-max-write-level) + (spec: 0 delete! delete!) + (spec: 0 call-with-output-string call-with-output-string) + (spec: 0 flexpm1 flexpm1) (spec: 0 - uninitialized-thread-exception? - uninitialized-thread-exception?) - (spec: 0 flfinite? flfinite?) + nonprocedure-operator-exception? + nonprocedure-operator-exception?) + (spec: 0 thread-group-terminate! thread-group-terminate!) + (spec: 0 last last) + (spec: 0 open-output-u8vector open-output-u8vector) + (spec: 0 socket-info-family socket-info-family) + (spec: + 0 + uninitialized-thread-exception-arguments + uninitialized-thread-exception-arguments) + (spec: 0 s32vector-length s32vector-length) + (spec: 0 list->u32vector list->u32vector) + (spec: 0 error-exception-parameters error-exception-parameters) + (spec: 0 fxmodulo fxmodulo) + (spec: 0 time? time?) + (spec: 0 tcp-service-register! tcp-service-register!) (spec: 0 invalid-utf8-encoding-exception-procedure invalid-utf8-encoding-exception-procedure) + (spec: 0 thread-sleep! thread-sleep!) (spec: 0 - number-of-arguments-limit-exception-arguments - number-of-arguments-limit-exception-arguments) - (spec: 0 tcp-service-register! tcp-service-register!) - (spec: 0 host-info-aliases host-info-aliases) - (spec: 0 make-u32vector make-u32vector) - (spec: 0 f32vector-copy! f32vector-copy!) - (spec: 0 processor? processor?) - (spec: 0 service-info? service-info?) - (spec: 0 timeout->time timeout->time) - (spec: 0 bit-field-every? bit-field-every?) - (spec: 0 continuation? continuation?) - (spec: 0 f64vector-copy! f64vector-copy!) - (spec: 0 sfun-conversion-exception? sfun-conversion-exception?) - (spec: 0 subs8vector subs8vector) + length-mismatch-exception-arg-id + length-mismatch-exception-arg-id) (spec: 0 foreign? foreign?) (spec: 0 char-set-contains? char-set-contains?) - (spec: - 0 - length-mismatch-exception-procedure - length-mismatch-exception-procedure) (spec: 0 os-exception-arguments os-exception-arguments) - (spec: 0 tty? tty?) - (spec: 0 u64vector-append u64vector-append) - (spec: 0 fxand fxand) - (spec: 0 char-set-hash char-set-hash) + (spec: 0 s64vector-fill! s64vector-fill!) + (spec: 0 fxwraparithmetic-shift fxwraparithmetic-shift) + (spec: 0 char-set? char-set?) + (spec: 0 service-info-port-number service-info-port-number) + (spec: 0 make-tls-context make-tls-context) + (spec: 0 f32vector-concatenate f32vector-concatenate) + (spec: 0 bit-field-any? bit-field-any?) + (spec: 0 host-info-aliases host-info-aliases) + (spec: 0 processor? processor?) + (spec: 0 s16vector-ref s16vector-ref) (spec: 0 output-port-width output-port-width) - (spec: 0 s16vector-set! s16vector-set!) - (spec: 0 u32vector-concatenate u32vector-concatenate) - (spec: 0 file-last-modification-time file-last-modification-time) + (spec: 0 char-set-hash char-set-hash) + (spec: 0 fxand fxand) + (spec: 0 u32vector->list u32vector->list) + (spec: 0 s8vector-copy! s8vector-copy!) + (spec: 0 tty-text-attributes-set! tty-text-attributes-set!) + (spec: 0 generate-proper-tail-calls generate-proper-tail-calls) (spec: 0 vector-cumulate vector-cumulate) - (spec: 0 network-info-aliases network-info-aliases) + (spec: 0 with-input-from-vector with-input-from-vector) + (spec: 0 u64vector u64vector) + (spec: + 0 + sfun-conversion-exception-message + sfun-conversion-exception-message) + (spec: 0 f64vector-concatenate f64vector-concatenate) + (spec: 0 bitwise-eqv bitwise-eqv) + (spec: 0 continuation? continuation?) + (spec: 0 subs8vector subs8vector) (spec: 0 wrong-number-of-arguments-exception? wrong-number-of-arguments-exception?) - (spec: 0 udp-read-u8vector udp-read-u8vector) (spec: 0 - no-such-file-or-directory-exception? - no-such-file-or-directory-exception?) + initialized-thread-exception-procedure + initialized-thread-exception-procedure) + (spec: 0 default-random-source default-random-source) + (spec: 0 first first) + (spec: 0 u16vector u16vector) + (spec: 0 string-prefix? string-prefix?) + (spec: 0 f32vector->list f32vector->list) + (spec: 0 command-args command-args) + (spec: 0 host-info host-info) + (spec: 0 subu8vector-move! subu8vector-move!) + (spec: 0 raise raise) + (spec: 0 u64vector-swap! u64vector-swap!) + (spec: 0 create-symbolic-link create-symbolic-link) + (spec: 0 file-info-attributes file-info-attributes) + (spec: 0 system-type system-type) + (spec: 0 input-port-readtable-set! input-port-readtable-set!) + (spec: 0 compile-file compile-file) + (spec: 0 delete delete) + (spec: 0 fl= fl=) (spec: 0 - unbound-os-environment-variable-exception-procedure - unbound-os-environment-variable-exception-procedure) - (spec: 0 generate-proper-tail-calls generate-proper-tail-calls) + no-such-file-or-directory-exception-arguments + no-such-file-or-directory-exception-arguments) + (spec: 0 read-substring read-substring) + (spec: 0 repl-highlight-source-level repl-highlight-source-level) + (spec: 0 fltan fltan) + (spec: 0 third third) + (spec: 0 mutex-name mutex-name) + (spec: 0 file-last-access-time file-last-access-time) + (spec: 0 table-set! table-set!) (spec: 0 - mailbox-receive-timeout-exception-procedure - mailbox-receive-timeout-exception-procedure) - (spec: 0 u16vector-copy u16vector-copy) - (spec: 0 s8vector-length s8vector-length) - (spec: 0 with-input-from-vector with-input-from-vector) - (spec: 0 group-info-name group-info-name) - (spec: 0 command-name command-name) - (spec: 0 string-set string-set) - (spec: 0 script-directory script-directory) - (spec: 0 flodd? flodd?) + readtable-max-write-length-set + readtable-max-write-length-set) + (spec: + 0 + nonprocedure-operator-exception-rte + nonprocedure-operator-exception-rte) + (spec: 0 flexp flexp) + (spec: 0 call-with-output-process call-with-output-process) + (spec: 0 thread-group-suspend! thread-group-suspend!) + (spec: 0 socket-info-address socket-info-address) + (spec: 0 foreign-tags foreign-tags) + (spec: 0 time->seconds time->seconds) + (spec: 0 s32vector-fill! s32vector-fill!) + (spec: 0 list->u16vector list->u16vector) + (spec: 0 fxwrapabs fxwrapabs) + (spec: 0 error-exception-message error-exception-message) + (spec: 0 vector-set vector-set) (spec: 0 - cfun-conversion-exception-arguments - cfun-conversion-exception-arguments) + invalid-utf8-encoding-exception-arguments + invalid-utf8-encoding-exception-arguments) + (spec: 0 flnumerator flnumerator) + (spec: 0 thread-send thread-send) + (spec: 0 rpc-remote-error-exception? rpc-remote-error-exception?) + (spec: 0 fxabs fxabs) + (spec: 0 char-set-complement! char-set-complement!) + (spec: 0 s64vector-copy! s64vector-copy!) + (spec: 0 list= list=) + (spec: 0 all-bits-set? all-bits-set?) + (spec: 0 char-set= char-set=) + (spec: 0 path-volume path-volume) + (spec: 0 string->uninterned-symbol string->uninterned-symbol) + (spec: 0 service-info-name service-info-name) + (spec: 0 f32vector-append f32vector-append) + (spec: 0 bit-field bit-field) + (spec: 0 condition-variable? condition-variable?) + (spec: 0 make-thread-group make-thread-group) + (spec: 0 processor-id processor-id) + (spec: 0 output-port-timeout-set! output-port-timeout-set!) + (spec: 0 fxmin fxmin) + (spec: 0 char-set-for-each char-set-for-each) + (spec: 0 thread-state-running? thread-state-running?) + (spec: 0 u32vector u32vector) + (spec: 0 s8vector-copy s8vector-copy) + (spec: 0 with-input-from-u8vector with-input-from-u8vector) + (spec: 0 group-info-members group-info-members) (spec: 0 - divide-by-zero-exception-arguments - divide-by-zero-exception-arguments) - (spec: 0 thread-init! thread-init!) - (spec: 0 repl-result-history-ref repl-result-history-ref) - (spec: 0 fltruncate fltruncate) - (spec: 0 socket-info-port-number socket-info-port-number) - (spec: 0 open-output-vector open-output-vector) - (spec: 0 take! take!) - (spec: 0 copy-file copy-file) + wrong-number-of-arguments-exception-procedure + wrong-number-of-arguments-exception-procedure) (spec: 0 - module-not-found-exception-procedure - module-not-found-exception-procedure) - (spec: 0 file-info-device file-info-device) - (spec: 0 current-directory current-directory) - (spec: 0 mutex-specific-set! mutex-specific-set!) - (spec: 0 range-exception-procedure range-exception-procedure) - (spec: 0 char-set-map char-set-map) - (spec: 0 partition! partition!) - (spec: 0 fxnor fxnor) - (spec: 0 error-exception? error-exception?) - (spec: 0 list->u64vector list->u64vector) - (spec: 0 thread-base-priority-set! thread-base-priority-set!) - (spec: 0 touch touch) - (spec: 0 fxwrapquotient fxwrapquotient) - (spec: 0 every every) - (spec: 0 s64vector-length s64vector-length) - (spec: 0 fl>= fl>=) - (spec: 0 call-with-output-u8vector call-with-output-u8vector) - (spec: 0 delete-file-or-directory delete-file-or-directory) - (spec: 0 thread-specific thread-specific) + sfun-conversion-exception-code + sfun-conversion-exception-code) + (spec: 0 subs64vector-move! subs64vector-move!) + (spec: 0 f64vector-append f64vector-append) + (spec: 0 bitwise-andc2 bitwise-andc2) + (spec: 0 continuation-return continuation-return) + (spec: 0 link-flat link-flat) (spec: 0 - readtable-sharing-allowed?-set - readtable-sharing-allowed?-set) + initialized-thread-exception-arguments + initialized-thread-exception-arguments) + (spec: 0 scheduler-exception? scheduler-exception?) + (spec: 0 f32vector f32vector) + (spec: 0 string-prefix-length-ci string-prefix-length-ci) + (spec: 0 ->char-set ->char-set) + (spec: 0 subu8vector-fill! subu8vector-fill!) + (spec: 0 r7rs-with-exception-handler r7rs-with-exception-handler) + (spec: 0 mutex-lock! mutex-lock!) + (spec: 0 create-link create-link) + (spec: 0 bitwise-xor bitwise-xor) + (spec: 0 file-info file-info) + (spec: 0 shell-command shell-command) + (spec: 0 input-port-readtable input-port-readtable) + (spec: 0 fl<= fl<=) (spec: 0 - uninitialized-thread-exception-procedure - uninitialized-thread-exception-procedure) - (spec: 0 flexpt flexpt) - (spec: 0 iota iota) - (spec: 0 vector-unfold vector-unfold) - (spec: 0 compilation-target compilation-target) - (spec: 0 atanh atanh) - (spec: 0 host-name host-name) - (spec: 0 f32vector-copy f32vector-copy) - (spec: 0 make-u16vector make-u16vector) - (spec: 0 service-info-protocol service-info-protocol) - (spec: 0 bit-field-clear bit-field-clear) - (spec: 0 configure-command-string configure-command-string) - (spec: 0 f64vector-copy f64vector-copy) + nonprocedure-operator-exception-operator + nonprocedure-operator-exception-operator) + (spec: 0 system-stamp system-stamp) + (spec: 0 u64vector-shrink! u64vector-shrink!) + (spec: 0 repl-error-port repl-error-port) + (spec: 0 flsquare flsquare) + (spec: 0 open-output-process open-output-process) + (spec: 0 unbound-key-exception? unbound-key-exception?) + (spec: 0 random-u8vector random-u8vector) (spec: 0 - sfun-conversion-exception-procedure - sfun-conversion-exception-procedure) - (spec: 0 subf32vector-move! subf32vector-move!) - (spec: 0 tty-type-set! tty-type-set!) - (spec: 0 u64vector->list u64vector->list) - (spec: 0 os-exception-procedure os-exception-procedure) + current-user-interrupt-handler + current-user-interrupt-handler) (spec: 0 - length-mismatch-exception-arguments - length-mismatch-exception-arguments) - (spec: 0 thread-state-uninitialized? thread-state-uninitialized?) - (spec: 0 vector-fold vector-fold) - (spec: 0 char-set-cursor char-set-cursor) - (spec: 0 with-output-to-process with-output-to-process) - (spec: 0 fxarithmetic-shift fxarithmetic-shift) - (spec: 0 s16vector-set s16vector-set) - (spec: 0 stack-overflow-exception? stack-overflow-exception?) - (spec: 0 u32vector-append u32vector-append) + file-last-access-and-modification-times-set! + file-last-access-and-modification-times-set!) + (spec: 0 table-search table-search) + (spec: 0 readtable-max-write-length readtable-max-write-length) + (spec: 0 fleven? fleven?) + (spec: 0 thread-group-specific-set! thread-group-specific-set!) + (spec: 0 foreign-released? foreign-released?) + (spec: 0 time time) + (spec: 0 list->table list->table) + (spec: 0 fxwrap- fxwrap-) + (spec: 0 abort abort) + (spec: 0 s32vector-copy! s32vector-copy!) + (spec: 0 tcp-server-socket-info tcp-server-socket-info) + (spec: 0 display-exception-in-context display-exception-in-context) + (spec: 0 flnegative? flnegative?) (spec: 0 - wrong-number-of-values-exception-rte - wrong-number-of-values-exception-rte) - (spec: 0 network-info? network-info?) - (spec: 0 file-owner file-owner) - (spec: 0 system-version-string system-version-string) + rpc-remote-error-exception-procedure + rpc-remote-error-exception-procedure) + (spec: 0 length+ length+) + (spec: 0 end-of-char-set? end-of-char-set?) + (spec: 0 char-set-complement char-set-complement) + (spec: 0 fx>= fx>=) + (spec: 0 thread-resume! thread-resume!) + (spec: 0 s64vector-copy s64vector-copy) + (spec: 0 path-strip-volume path-strip-volume) + (spec: 0 char-set<= char-set<=) + (spec: 0 string->uninterned-keyword string->uninterned-keyword) + (spec: 0 service-info-aliases service-info-aliases) + (spec: 0 make-thread make-thread) + (spec: 0 f64vector->list f64vector->list) + (spec: 0 bit-count bit-count) (spec: 0 - unbound-serial-number-exception-arguments - unbound-serial-number-exception-arguments) - (spec: 0 noncontinuable-exception? noncontinuable-exception?) + condition-variable-specific-set! + condition-variable-specific-set!) (spec: 0 - fixnum-overflow-exception-arguments - fixnum-overflow-exception-arguments) - (spec: 0 subvector-move! subvector-move!) - (spec: 0 u8vector u8vector) + thread-state-running-processor + thread-state-running-processor) + (spec: 0 s16vector-length s16vector-length) + (spec: 0 fxmax fxmax) + (spec: 0 char-set-fold char-set-fold) + (spec: 0 output-port-readtable-set! output-port-readtable-set!) (spec: 0 - mailbox-receive-timeout-exception-arguments - mailbox-receive-timeout-exception-arguments) + wrong-number-of-arguments-exception-arguments + wrong-number-of-arguments-exception-arguments) + (spec: 0 s8vector-concatenate s8vector-concatenate) (spec: 0 - port-io-exception-handler-set! - port-io-exception-handler-set!) - (spec: 0 s8vector-fill! s8vector-fill!) - (spec: 0 u16vector-concatenate u16vector-concatenate) - (spec: 0 clear-bit-field clear-bit-field) - (spec: 0 println println) - (spec: 0 udp-write-u8vector udp-write-u8vector) - (spec: 0 string-suffix-ci? string-suffix-ci?) - (spec: 0 make-parameter make-parameter) - (spec: 0 boolean=? boolean=?) - (spec: 0 error-object? error-object?) - (spec: 0 delete-file delete-file) - (spec: 0 inexact inexact) - (spec: 0 char-foldcase char-foldcase) - (spec: 0 bytevector? bytevector?) - (spec: 0 get-environment-variable get-environment-variable) - (spec: 0 list-copy list-copy) - (spec: 0 promise? promise?) - (spec: 0 error-object-message error-object-message) - (spec: 0 call-with-port call-with-port) - (spec: 0 exact exact) - (spec: 0 eof-object eof-object) - (spec: 0 get-environment-variables get-environment-variables) - (spec: 0 get-output-bytevector get-output-bytevector) - (spec: 0 floor-remainder floor-remainder) - (spec: 0 current-error-port current-error-port) - (spec: 0 make-promise make-promise) - (spec: 0 open-input-bytevector open-input-bytevector) - (spec: 0 balanced-quotient balanced-quotient) - (spec: 0 peek-u8 peek-u8) - (spec: 0 string-map string-map) - (spec: 0 floor-quotient floor-quotient) - (spec: 0 current-jiffy current-jiffy) - (spec: 0 truncate-quotient truncate-quotient) - (spec: 0 vector-for-each vector-for-each) - (spec: 0 write-simple write-simple) - (spec: 0 truncate/ truncate/) - (spec: 0 euclidean-quotient euclidean-quotient) - (spec: 0 balanced/ balanced/) - (spec: 0 port? port?) - (spec: 0 make-bytevector make-bytevector) - (spec: 0 get-output-string get-output-string) - (spec: 0 floor/ floor/) - (spec: 0 file-error? file-error?) - (spec: 0 round-remainder round-remainder) - (spec: 0 truncate-remainder truncate-remainder) - (spec: 0 balanced-remainder balanced-remainder) - (spec: 0 read-error? read-error?) - (spec: 0 vector->string vector->string) - (spec: 0 write-shared write-shared) - (spec: 0 round-quotient round-quotient) - (spec: 0 euclidean/ euclidean/) - (spec: 0 exact-integer? exact-integer?) - (spec: 0 infinite? infinite?) - (spec: 0 jiffies-per-second jiffies-per-second) - (spec: 0 open-input-string open-input-string) - (spec: 0 string-upcase string-upcase) - (spec: 0 current-second current-second) - (spec: 0 euclidean-remainder euclidean-remainder) - (spec: 0 exact-integer-sqrt exact-integer-sqrt) - (spec: 0 list-set! list-set!) - (spec: 0 utf8->string utf8->string) - (spec: 0 close-port close-port) + tty-paren-balance-duration-set! + tty-paren-balance-duration-set!) + (spec: 0 group-info-gid group-info-gid) + (spec: 0 with-input-from-string with-input-from-string) + (spec: + 0 + sfun-conversion-exception-arguments + sfun-conversion-exception-arguments) + (spec: 0 subs64vector-fill! subs64vector-fill!) + (spec: 0 bitwise-andc1 bitwise-andc1) + (spec: 0 continuation-graft continuation-graft) + (spec: 0 udp-local-socket-info udp-local-socket-info) + (spec: 0 scheduler-exception-reason scheduler-exception-reason) + (spec: 0 string-prefix-length string-prefix-length) + (spec: 0 subu8vector subu8vector) + (spec: 0 r7rs-raise-continuable r7rs-raise-continuable) + (spec: 0 create-fifo create-fifo) + (spec: 0 bitwise-unfold bitwise-unfold) + (spec: 0 file-group file-group) + (spec: 0 u64vector-set! u64vector-set!) + (spec: + 0 + unbound-key-exception-procedure + unbound-key-exception-procedure) + (spec: 0 fl< fl<) + (spec: + 0 + nonprocedure-operator-exception-code + nonprocedure-operator-exception-code) + (spec: 0 drop-right! drop-right!) + (spec: 0 flsqrt flsqrt) + (spec: 0 random-source? random-source?) + (spec: 0 u8vector-length u8vector-length) + (spec: 0 current-time current-time) + (spec: 0 file-inode file-inode) + (spec: 0 table-ref table-ref) + (spec: + 0 + readtable-max-unescaped-char-set + readtable-max-unescaped-char-set) + (spec: 0 null-list? null-list?) + (spec: 0 fldenominator fldenominator) + (spec: 0 call-with-input-vector call-with-input-vector) + (spec: 0 uncaught-exception? uncaught-exception?) + (spec: 0 thread-group-specific thread-group-specific) + (spec: 0 foreign-release! foreign-release!) + (spec: 0 s32vector-copy s32vector-copy) + (spec: + 0 + path-strip-trailing-directory-separator + path-strip-trailing-directory-separator) + (spec: 0 fxwrap+ fxwrap+) + (spec: 0 abandoned-mutex-exception? abandoned-mutex-exception?) + (spec: 0 real-time real-time) + (spec: 0 display-exception display-exception) + (spec: 0 flnan? flnan?) + (spec: 0 thread-receive thread-receive) + (spec: + 0 + rpc-remote-error-exception-message + rpc-remote-error-exception-message) + (spec: 0 output-port-readtable output-port-readtable) + (spec: 0 fx> fx>) + (spec: 0 char-set-any char-set-any) + (spec: 0 s64vector-concatenate s64vector-concatenate) + (spec: 0 make-table make-table) + (spec: 0 f64vector f64vector) + (spec: 0 condition-variable-specific condition-variable-specific) + (spec: 0 service-info service-info) + (spec: 0 s16vector-fill! s16vector-fill!) + (spec: 0 vector-concatenate vector-concatenate) + (spec: 0 error error) + (spec: 0 char-set-filter! char-set-filter!) + (spec: 0 fxlength fxlength) + (spec: 0 tty-mode-set! tty-mode-set!) + (spec: 0 s8vector-append s8vector-append) + (spec: 0 group-info group-info) + (spec: 0 with-input-from-process with-input-from-process) + (spec: 0 u32vector? u32vector?) + (spec: 0 subs64vector subs64vector) + (spec: 0 bitwise-and bitwise-and) + (spec: 0 continuation-capture continuation-capture) (spec: 0 bytevector bytevector) + (spec: 0 close-port close-port) (spec: 0 file-exists? file-exists?) (spec: 0 open-output-bytevector open-output-bytevector) - (spec: 0 round/ round/) - (spec: 0 symbol=? symbol=?) - (spec: 0 textual-port? textual-port?) - (spec: 0 input-port-open? input-port-open?) - (spec: 0 read-line read-line) - (spec: 0 vector-append vector-append) + (spec: 0 output-port-open? output-port-open?) + (spec: 0 current-second current-second) (spec: 0 nan? nan?) (spec: 0 square square) + (spec: 0 utf8->string utf8->string) + (spec: 0 vector-append vector-append) + (spec: 0 write-u8 write-u8) + (spec: 0 symbol=? symbol=?) + (spec: 0 round/ round/) + (spec: 0 euclidean/ euclidean/) + (spec: 0 exact-integer? exact-integer?) + (spec: 0 textual-port? textual-port?) (spec: 0 vector-map vector-map) + (spec: 0 string-upcase string-upcase) (spec: 0 write-string write-string) - (spec: 0 write-u8 write-u8) - (spec: 0 bytevector-copy bytevector-copy) - (spec: 0 finite? finite?) - (spec: 0 ceiling-remainder ceiling-remainder) - (spec: 0 string-copy! string-copy!) - (spec: 0 write-bytevector write-bytevector) - (spec: 0 features features) - (spec: 0 bytevector-append bytevector-append) - (spec: 0 output-port-open? output-port-open?) - (spec: 0 ceiling-quotient ceiling-quotient) - (spec: 0 binary-port? binary-port?) + (spec: 0 open-input-string open-input-string) + (spec: 0 round-remainder round-remainder) + (spec: 0 euclidean-remainder euclidean-remainder) + (spec: 0 exact-integer-sqrt exact-integer-sqrt) + (spec: 0 list-set! list-set!) + (spec: 0 vector->string vector->string) + (spec: 0 read-error? read-error?) + (spec: 0 write-simple write-simple) + (spec: 0 infinite? infinite?) + (spec: 0 round-quotient round-quotient) + (spec: 0 euclidean-quotient euclidean-quotient) + (spec: 0 balanced/ balanced/) + (spec: 0 jiffies-per-second jiffies-per-second) + (spec: 0 make-bytevector make-bytevector) + (spec: 0 file-error? file-error?) + (spec: 0 floor/ floor/) + (spec: 0 current-jiffy current-jiffy) + (spec: 0 truncate/ truncate/) + (spec: 0 write-shared write-shared) + (spec: 0 balanced-remainder balanced-remainder) + (spec: 0 truncate-remainder truncate-remainder) + (spec: 0 floor-remainder floor-remainder) + (spec: 0 open-input-bytevector open-input-bytevector) + (spec: 0 balanced-quotient balanced-quotient) + (spec: 0 get-output-string get-output-string) + (spec: 0 port? port?) + (spec: 0 truncate-quotient truncate-quotient) + (spec: 0 floor-quotient floor-quotient) + (spec: 0 get-output-bytevector get-output-bytevector) + (spec: 0 string-map string-map) + (spec: 0 make-promise make-promise) + (spec: 0 vector-for-each vector-for-each) + (spec: 0 current-error-port current-error-port) + (spec: 0 error-object? error-object?) + (spec: 0 boolean=? boolean=?) + (spec: 0 list-copy list-copy) + (spec: 0 peek-u8 peek-u8) + (spec: 0 read-bytevector! read-bytevector!) + (spec: 0 bytevector? bytevector?) + (spec: 0 error-object-message error-object-message) + (spec: 0 call-with-port call-with-port) + (spec: 0 exact exact) + (spec: 0 get-environment-variables get-environment-variables) + (spec: 0 bytevector-u8-set! bytevector-u8-set!) + (spec: 0 inexact inexact) + (spec: 0 delete-file delete-file) + (spec: 0 flush-output-port flush-output-port) + (spec: 0 error-object-irritants error-object-irritants) + (spec: 0 char-foldcase char-foldcase) + (spec: 0 get-environment-variable get-environment-variable) + (spec: 0 bytevector-u8-ref bytevector-u8-ref) + (spec: 0 read-u8 read-u8) + (spec: 0 eof-object eof-object) + (spec: 0 exit exit) + (spec: 0 make-parameter make-parameter) + (spec: 0 open-binary-output-file open-binary-output-file) + (spec: 0 promise? promise?) + (spec: 0 read-bytevector read-bytevector) (spec: 0 bytevector-length bytevector-length) (spec: 0 command-line command-line) - (spec: 0 emergency-exit emergency-exit) + (spec: 0 make-list make-list) (spec: 0 open-binary-input-file open-binary-input-file) - (spec: 0 read-string read-string) - (spec: 0 vector-copy! vector-copy!) + (spec: 0 digit-value digit-value) + (spec: 0 string->utf8 string->utf8) + (spec: 0 string->vector string->vector) + (spec: 0 string-foldcase string-foldcase) (spec: 0 bytevector-copy! bytevector-copy!) - (spec: 0 read-u8 read-u8) + (spec: 0 string-for-each string-for-each) (spec: 0 ceiling/ ceiling/) (spec: 0 open-output-string open-output-string) - (spec: 0 string->vector string->vector) - (spec: 0 string-downcase string-downcase) - (spec: 0 vector-copy vector-copy) - (spec: 0 bytevector-u8-set! bytevector-u8-set!) - (spec: 0 make-list make-list) - (spec: 0 flush-output-port flush-output-port) - (spec: 0 string-for-each string-for-each) - (spec: 0 error-object-irritants error-object-irritants) - (spec: 0 digit-value digit-value) - (spec: 0 string->utf8 string->utf8) (spec: 0 u8-ready? u8-ready?) - (spec: 0 bytevector-u8-ref bytevector-u8-ref) - (spec: 0 read-bytevector! read-bytevector!) - (spec: 0 open-binary-output-file open-binary-output-file) - (spec: 0 string-foldcase string-foldcase) - (spec: 0 read-bytevector read-bytevector) - (spec: 0 exit exit) - (spec: 0 cddaar cddaar) - (spec: 0 floor floor) - (spec: 0 imag-part imag-part) - (spec: 0 char-upper-case? char-upper-case?) - (spec: 0 angle angle) - (spec: 0 transcript-on transcript-on) - (spec: 0 exact->inexact exact->inexact) - (spec: 0 caddar caddar) - (spec: 0 peek-char peek-char) - (spec: 0 string-append string-append) - (spec: 0 call-with-values call-with-values) - (spec: 0 memv memv) - (spec: 0 vector-fill! vector-fill!) - (spec: 0 eof-object? eof-object?) - (spec: 0 char-upcase char-upcase) - (spec: 0 cdar cdar) - (spec: 0 string-ci=? string-ci=?) - (spec: 0 list->vector list->vector) - (spec: 0 cadar cadar) - (spec: 0 remainder remainder) - (spec: 0 <= <=) - (spec: 0 tan tan) - (spec: 0 memq memq) - (spec: 0 char-lower-case? char-lower-case?) - (spec: 0 transcript-off transcript-off) - (spec: 0 list list) - (spec: 0 vector? vector?) - (spec: 0 char-whitespace? char-whitespace?) - (spec: 0 read-char read-char) - (spec: 0 cddar cddar) - (spec: 0 cos cos) - (spec: 0 string-cichar integer->char) - (spec: 0 make-vector make-vector) - (spec: 0 append append) - (spec: 0 make-rectangular make-rectangular) - (spec: 0 cddadr cddadr) - (spec: 0 round round) - (spec: 0 set-cdr! set-cdr!) - (spec: 0 inexact? inexact?) - (spec: 0 boolean? boolean?) - (spec: 0 rationalize rationalize) - (spec: 0 string string) - (spec: 0 cadddr cadddr) - (spec: 0 string-ci>=? string-ci>=?) - (spec: 0 set-car! set-car!) - (spec: 0 truncate truncate) - (spec: 0 dynamic-wind dynamic-wind) - (spec: 0 char-ready? char-ready?) + (spec: 0 vector-copy! vector-copy!) + (spec: 0 bytevector-copy bytevector-copy) + (spec: 0 read-string read-string) + (spec: 0 ceiling-remainder ceiling-remainder) + (spec: 0 emergency-exit emergency-exit) + (spec: 0 finite? finite?) + (spec: 0 write-bytevector write-bytevector) + (spec: 0 vector-copy vector-copy) + (spec: 0 features features) + (spec: 0 bytevector-append bytevector-append) + (spec: 0 read-line read-line) + (spec: 0 ceiling-quotient ceiling-quotient) + (spec: 0 input-port-open? input-port-open?) + (spec: 0 string-downcase string-downcase) + (spec: 0 binary-port? binary-port?) + (spec: 0 string-copy! string-copy!) + (spec: 0 + +) + (spec: 0 string=? string=?) + (spec: 0 caaar caaar) + (spec: 0 ceiling ceiling) + (spec: 0 interaction-environment interaction-environment) + (spec: 0 null-environment null-environment) + (spec: 0 char-ci=? char-ci=?) + (spec: 0 real-part real-part) + (spec: 0 string->number string->number) + (spec: 0 max max) + (spec: 0 - -) + (spec: 0 string-copy string-copy) + (spec: 0 caaadr caaadr) + (spec: 0 * *) + (spec: 0 stringlist string->list) + (spec: 0 eval eval) + (spec: 0 with-input-from-file with-input-from-file) + (spec: 0 exact? exact?) + (spec: 0 char? char?) + (spec: 0 close-output-port close-output-port) + (spec: 0 string<=? string<=?) + (spec: 0 caaaar caaaar) + (spec: 0 cddr cddr) + (spec: 0 char-ci<=? char-ci<=?) + (spec: 0 sqrt sqrt) + (spec: 0 eqv? eqv?) + (spec: 0 apply apply) + (spec: 0 char>? char>?) + (spec: 0 newline newline) + (spec: 0 close-input-port close-input-port) + (spec: 0 expt expt) + (spec: 0 cdddr cdddr) + (spec: 0 call-with-input-file call-with-input-file) + (spec: 0 char-alphabetic? char-alphabetic?) + (spec: 0 >= >=) + (spec: 0 asin asin) + (spec: 0 char>=? char>=?) + (spec: 0 pair? pair?) + (spec: 0 current-output-port current-output-port) (spec: 0 modulo modulo) - (spec: 0 charstring symbol->string) (spec: 0 cddddr cddddr) - (spec: 0 char->integer char->integer) - (spec: 0 force force) - (spec: 0 current-input-port current-input-port) - (spec: 0 rational? rational?) - (spec: 0 log log) (spec: 0 call-with-current-continuation call-with-current-continuation) + (spec: 0 char->integer char->integer) + (spec: 0 display display) + (spec: 0 force force) + (spec: 0 lcm lcm) + (spec: 0 vector->list vector->list) + (spec: 0 log log) + (spec: 0 > >) (spec: 0 map map) - (spec: 0 = =) - (spec: 0 cons cons) - (spec: 0 char-numeric? char-numeric?) + (spec: 0 char=? char=?) (spec: 0 equal? equal?) - (spec: 0 vector vector) - (spec: 0 char<=? char<=?) - (spec: 0 expt expt) - (spec: 0 procedure? procedure?) + (spec: 0 positive? positive?) + (spec: 0 quotient quotient) + (spec: 0 make-rectangular make-rectangular) + (spec: 0 string-ci>? string-ci>?) + (spec: 0 vector-length vector-length) (spec: 0 cdddar cdddar) + (spec: 0 integer->char integer->char) + (spec: 0 cadr cadr) (spec: 0 for-each for-each) - (spec: 0 open-input-file open-input-file) + (spec: 0 inexact? inexact?) (spec: 0 list-ref list-ref) - (spec: 0 cadr cadr) (spec: 0 car car) - (spec: 0 >= >=) - (spec: 0 min min) + (spec: 0 char-ready? char-ready?) (spec: 0 numerator numerator) - (spec: 0 pair? pair?) - (spec: 0 caaaar caaaar) - (spec: 0 char>=? char>=?) - (spec: 0 close-output-port close-output-port) - (spec: 0 cddr cddr) - (spec: 0 lcm lcm) - (spec: 0 char-ci<=? char-ci<=?) - (spec: 0 current-output-port current-output-port) - (spec: 0 sqrt sqrt) - (spec: 0 string-ci>? string-ci>?) - (spec: 0 string<=? string<=?) - (spec: 0 display display) - (spec: 0 symbol->string symbol->string) - (spec: 0 > >) - (spec: 0 quotient quotient) - (spec: 0 apply apply) - (spec: 0 eqv? eqv?) - (spec: 0 newline newline) - (spec: 0 integer? integer?) - (spec: 0 vector->list vector->list) - (spec: 0 positive? positive?) - (spec: 0 char=? char=?) - (spec: 0 close-input-port close-input-port) - (spec: 0 cdddr cdddr) - (spec: 0 char-alphabetic? char-alphabetic?) - (spec: 0 symbol? symbol?) - (spec: 0 vector-length vector-length) - (spec: 0 string->list string->list) - (spec: 0 call-with-input-file call-with-input-file) - (spec: 0 char? char?) - (spec: 0 caaar caaar) - (spec: 0 with-input-from-file with-input-from-file) - (spec: 0 asin asin) - (spec: 0 + +) - (spec: 0 char-ci=? char-ci=?) - (spec: 0 string=? string=?) - (spec: 0 ceiling ceiling) - (spec: 0 null-environment null-environment) - (spec: 0 max max) - (spec: 0 char>? char>?) - (spec: 0 caaadr caaadr) - (spec: 0 assoc assoc) - (spec: 0 * *) - (spec: 0 char-cisymbol string->symbol) - (spec: 0 eval eval) - (spec: 0 string>=? string>=?) - (spec: 0 caaddr caaddr) - (spec: 0 exact? exact?) - (spec: 0 interaction-environment interaction-environment) - (spec: 0 char-ci>? char-ci>?) - (spec: 0 negative? negative?) - (spec: 0 string->number string->number) - (spec: 0 call-with-output-file call-with-output-file) - (spec: 0 cdaadr cdaadr) - (spec: 0 null? null?) - (spec: 0 real-part real-part) - (spec: 0 caadar caadar) - (spec: 0 magnitude magnitude) - (spec: 0 - -) - (spec: 0 assv assv) - (spec: 0 char-ci>=? char-ci>=?) - (spec: 0 open-output-file open-output-file) - (spec: 0 string-copy string-copy) - (spec: 0 write write) - (spec: 0 even? even?) - (spec: 0 list->string list->string) - (spec: 0 list-tail list-tail) - (spec: 0 cdaaar cdaaar) - (spec: 0 scheme-report-environment scheme-report-environment) - (spec: 0 string? string?) - (spec: 0 zero? zero?) - (spec: 0 length length) - (spec: 0 caar caar) - (spec: 0 assq assq) - (spec: 0 string-fill! string-fill!) - (spec: 0 char-downcase char-downcase) + (spec: 0 open-input-file open-input-file) + (spec: 0 rationalize rationalize) + (spec: 0 char=? string-ci>=?) + (spec: 0 dynamic-wind dynamic-wind) + (spec: 0 cddar cddar) + (spec: 0 current-input-port current-input-port) + (spec: 0 rational? rational?) + (spec: 0 caddr caddr) + (spec: 0 number? number?) + (spec: 0 char-numeric? char-numeric?) + (spec: 0 vector vector) + (spec: 0 = =) + (spec: 0 eq? eq?) + (spec: 0 append append) + (spec: 0 char<=? char<=?) + (spec: 0 cons cons) + (spec: 0 make-vector make-vector) + (spec: 0 procedure? procedure?) + (spec: 0 set-cdr! set-cdr!) + (spec: 0 cddadr cddadr) + (spec: 0 boolean? boolean?) + (spec: 0 cadddr cadddr) + (spec: 0 tan tan) + (spec: 0 vector? vector?) + (spec: 0 remainder remainder) + (spec: 0 char-lower-case? char-lower-case?) + (spec: 0 string-ci=? string-ci=?) + (spec: 0 <= <=) + (spec: 0 set-car! set-car!) + (spec: 0 char-whitespace? char-whitespace?) + (spec: 0 truncate truncate) + (spec: 0 read-char read-char) + (spec: 0 / /) + (spec: 0 cos cos) + (spec: 0 cddaar cddaar) + (spec: 0 floor floor) + (spec: 0 caddar caddar) + (spec: 0 denominator denominator) + (spec: 0 string-ciinexact exact->inexact) + (spec: 0 < <) + (spec: 0 complex? complex?) + (spec: 0 eof-object? eof-object?) + (spec: 0 memv memv) + (spec: 0 transcript-on transcript-on) + (spec: 0 exp exp) + (spec: 0 make-polar make-polar) + (spec: 0 cdar cdar) + (spec: 0 inexact->exact inexact->exact) + (spec: 0 cadar cadar) + (spec: 0 list->vector list->vector) + (spec: 0 string-ci<=? string-ci<=?) + (spec: 0 transcript-off transcript-off) + (spec: 0 list list) + (spec: 0 string-length string-length) + (spec: 0 char-upper-case? char-upper-case?) + (spec: 0 memq memq) + (spec: 0 string-set! string-set!) + (spec: 0 imag-part imag-part) + (spec: 0 sin sin) + (spec: 0 cadadr cadadr) + (spec: 0 substring substring) + (spec: 0 cdadr cdadr) + (spec: 0 string-append string-append) + (spec: 0 acos acos) + (spec: 0 peek-char peek-char) + (spec: 0 vector-fill! vector-fill!) + (spec: 0 char-upcase char-upcase) + (spec: 0 atan atan) + (spec: 0 input-port? input-port?) + (spec: 0 cadaar cadaar) + (spec: 0 not not) + (spec: 0 cdaddr cdaddr) + (spec: 0 load load) + (spec: 0 output-port? output-port?) + (spec: 0 with-output-to-file with-output-to-file) + (spec: 0 angle angle) + (spec: 0 member member) + (spec: 0 read read) (spec: 0 string-ref string-ref) (spec: 0 write-char write-char) - (spec: 0 vector-ref vector-ref) - (spec: 0 gcd gcd) + (spec: 0 caar caar) + (spec: 0 reverse reverse) + (spec: 0 char-downcase char-downcase) (spec: 0 cdadar cdadar) - (spec: 0 list? list?) (spec: 0 number->string number->string) - (spec: 0 real? real?) - (spec: 0 string>? string>?) + (spec: 0 list? list?) + (spec: 0 vector-set! vector-set!) + (spec: 0 values values) + (spec: 0 scheme-report-environment scheme-report-environment) + (spec: 0 assv assv) (spec: 0 caadr caadr) - (spec: 0 input-port? input-port?) - (spec: 0 atan atan) (spec: 0 odd? odd?) (spec: 0 abs abs) (spec: 0 cdaar cdaar) - (spec: 0 output-port? output-port?) - (spec: 0 read read) - (spec: 0 cadadr cadadr) - (spec: 0 string-set! string-set!) - (spec: 0 with-output-to-file with-output-to-file) - (spec: 0 reverse reverse) - (spec: 0 sin sin) - (spec: 0 acos acos) - (spec: 0 vector-set! vector-set!) - (spec: 0 cdadr cdadr) - (spec: 0 values values) - (spec: 0 cadaar cadaar) - (spec: 0 exp exp) - (spec: 0 make-polar make-polar) - (spec: 0 inexact->exact inexact->exact) - (spec: 0 load load) - (spec: 0 not not) - (spec: 0 cdaddr cdaddr) - (spec: 0 string-ci<=? string-ci<=?) - (spec: 0 member member) - (spec: 0 substring substring) - (spec: 0 string-length string-length) - (spec: 0 / /) - (spec: 0 RuntimeAliases RuntimeAliases) + (spec: 0 string? string?) + (spec: 0 string-fill! string-fill!) + (spec: 0 zero? zero?) + (spec: 0 assq assq) + (spec: 0 caaddr caaddr) + (spec: 0 negative? negative?) + (spec: 0 null? null?) + (spec: 0 call-with-output-file call-with-output-file) + (spec: 0 char-ci>? char-ci>?) + (spec: 0 vector-ref vector-ref) + (spec: 0 cdaadr cdaadr) + (spec: 0 real? real?) + (spec: 0 gcd gcd) + (spec: 0 string>? string>?) + (spec: 0 magnitude magnitude) + (spec: 0 assoc assoc) + (spec: 0 make-string make-string) + (spec: 0 write write) + (spec: 0 caadar caadar) + (spec: 0 open-output-file open-output-file) + (spec: 0 char-ci>=? char-ci>=?) + (spec: 0 even? even?) + (spec: 0 list->string list->string) + (spec: 0 cdaaar cdaaar) + (spec: 0 list-tail list-tail) + (spec: 0 length length) + (spec: 0 string->symbol string->symbol) + (spec: 0 string>=? string>=?) (spec: 0 R5RSRuntime R5RSRuntime) (spec: 0 GerbilRuntime GerbilRuntime) (spec: 0 GambitRuntime GambitRuntime) (spec: 0 Runtime Runtime) + (spec: 0 RuntimeAliases RuntimeAliases) (spec: 0 R7RSRuntime R7RSRuntime) (spec: 0 %%app-dotted %%app) (spec: 0 %%ref-dotted %%ref) @@ -3337,3063 +3339,3065 @@ namespace: gerbil/core (spec: 0 defmethod/c defmethod) (spec: 0 defclass/c defclass) (spec: 0 defstruct/c defstruct) - (spec: 1 quasisyntax quasisyntax) (spec: 1 identifier-rules identifier-rules) - (spec: 1 make-macro-object make-macro-object) + (spec: 1 quasisyntax quasisyntax) (spec: 1 macro-object macro-object) - (spec: 1 macro-object-macro-set! macro-object-macro-set!) - (spec: 1 macro-object? macro-object?) - (spec: 1 ¯o-object-macro ¯o-object-macro) - (spec: 1 macro-object::t macro-object::t) (spec: 1 ¯o-object-macro-set! ¯o-object-macro-set!) + (spec: 1 macro-object? macro-object?) + (spec: 1 macro-object-macro-set! macro-object-macro-set!) (spec: 1 macro-object-macro macro-object-macro) + (spec: 1 make-macro-object make-macro-object) + (spec: 1 ¯o-object-macro ¯o-object-macro) (spec: 1 macro-object::apply-macro-expander macro-object::apply-macro-expander) - (spec: 1 with-syntax with-syntax) + (spec: 1 macro-object::t macro-object::t) (spec: 1 syntax-rules syntax-rules) + (spec: 1 with-syntax with-syntax) (spec: 1 syntax/loc syntax/loc) (spec: 1 with-syntax* with-syntax*) - (spec: 1 syntax syntax) (spec: 1 syntax-case syntax-case) + (spec: 1 syntax syntax) + (spec: 1 module-import-phi module-import-phi) + (spec: 1 core-resolve-identifier core-resolve-identifier) + (spec: 1 import-export-expander? import-export-expander?) + (spec: 1 export-set-source export-set-source) + (spec: 1 syntax-binding? syntax-binding?) + (spec: 1 binding-id binding-id) + (spec: 1 alias-binding? alias-binding?) + (spec: 1 stx-vector? stx-vector?) + (spec: 1 make-module-import make-module-import) + (spec: 1 binding? binding?) + (spec: 1 eval-module eval-module) + (spec: 1 import-binding-e import-binding-e) (spec: 1 stx-last-pair stx-last-pair) - (spec: 1 make-local-context make-local-context) - (spec: 1 core-quote-syntax core-quote-syntax) - (spec: 1 stx-for-each stx-for-each) + (spec: 1 module-import-name module-import-name) (spec: 1 stx-boolean? stx-boolean?) - (spec: 1 syntax-binding? syntax-binding?) - (spec: 1 user-expander? user-expander?) - (spec: 1 core-expand core-expand) - (spec: 1 free-identifier=? free-identifier=?) - (spec: 1 current-expander-marks current-expander-marks) - (spec: 1 core-apply-expander core-apply-expander) - (spec: 1 gentemps gentemps) - (spec: 1 core-identifier-key core-identifier-key) - (spec: 1 core-module-export->import core-module-export->import) - (spec: 1 syntax-error? syntax-error?) - (spec: 1 export-expander? export-expander?) - (spec: 1 expander-context-id expander-context-id) - (spec: 1 stx-eq? stx-eq?) + (spec: 1 macro-expand-syntax-case macro-expand-syntax-case) (spec: 1 current-module-reader-args current-module-reader-args) - (spec: 1 stx-map stx-map) - (spec: 1 raise-syntax-error raise-syntax-error) + (spec: 1 module-context-import module-context-import) + (spec: 1 stx-car stx-car) + (spec: 1 top-context? top-context?) + (spec: 1 module-import-source module-import-source) + (spec: 1 syntax-local-rewrap syntax-local-rewrap) + (spec: 1 make-module-export make-module-export) + (spec: 1 module-export-context module-export-context) + (spec: 1 core-context-top core-context-top) + (spec: 1 stx-pair? stx-pair?) + (spec: 1 make-export-expander make-export-expander) + (spec: 1 stx-ormap stx-ormap) + (spec: 1 stx-for-each stx-for-each) + (spec: 1 identifier? identifier?) + (spec: 1 stx-last stx-last) + (spec: 1 current-expander-compiling? current-expander-compiling?) + (spec: 1 eval-syntax eval-syntax) + (spec: 1 module-export? module-export?) (spec: 1 stx-string? stx-string?) - (spec: 1 syntax-e syntax-e) - (spec: 1 core-resolve-module-path core-resolve-module-path) - (spec: 1 syntax-binding-e syntax-binding-e) - (spec: 1 syntax->datum syntax->datum) - (spec: 1 stx-e stx-e) - (spec: 1 local-context? local-context?) - (spec: 1 stx-number? stx-number?) - (spec: 1 core-resolve-identifier core-resolve-identifier) - (spec: 1 alias-binding? alias-binding?) - (spec: 1 module-context-ns module-context-ns) - (spec: 1 syntax-split-splice syntax-split-splice) - (spec: 1 stx-source stx-source) - (spec: 1 module-import-phi module-import-phi) - (spec: 1 check-duplicate-identifiers check-duplicate-identifiers) - (spec: 1 binding-id binding-id) - (spec: 1 stx-cdr stx-cdr) + (spec: 1 export-set-phi export-set-phi) + (spec: 1 stx-pair/null? stx-pair/null?) + (spec: 1 core-resolve-module-export core-resolve-module-export) + (spec: 1 current-module-reader-path current-module-reader-path) + (spec: 1 syntax->list syntax->list) + (spec: 1 stx-map stx-map) (spec: 1 syntax-pattern-depth syntax-pattern-depth) - (spec: 1 extern-binding? extern-binding?) - (spec: 1 current-expander-compiling? current-expander-compiling?) - (spec: 1 import-binding? import-binding?) + (spec: 1 stx-number? stx-number?) + (spec: 1 current-expander-phi current-expander-phi) (spec: 1 syntax-local-pattern? syntax-local-pattern?) + (spec: 1 module-context-code module-context-code) (spec: 1 prelude-context? prelude-context?) - (spec: 1 stx-getq stx-getq) - (spec: 1 import-module import-module) - (spec: 1 module-binding? module-binding?) - (spec: 1 module-export-name module-export-name) - (spec: 1 module-export-weak? module-export-weak?) - (spec: 1 stx-length stx-length) - (spec: 1 stx-list-ref stx-list-ref) - (spec: 1 underscore? underscore?) - (spec: 1 import-set-imports import-set-imports) - (spec: 1 stx-list-tail stx-list-tail) - (spec: 1 export-set-phi export-set-phi) - (spec: 1 module-import-weak? module-import-weak?) - (spec: 1 core-expand-import-source core-expand-import-source) - (spec: 1 module-context? module-context?) - (spec: 1 user-expander-context user-expander-context) - (spec: 1 stx-plist? stx-plist?) - (spec: 1 syntax->list syntax->list) - (spec: 1 make-module-import make-module-import) - (spec: 1 identifier? identifier?) + (spec: 1 core-expand-expression+1 core-expand-expression+1) + (spec: 1 make-syntax-pattern make-syntax-pattern) + (spec: 1 local-context? local-context?) + (spec: 1 module-context-ns module-context-ns) + (spec: 1 syntax->datum syntax->datum) + (spec: 1 expander-context-id expander-context-id) + (spec: 1 bound-identifier=? bound-identifier=?) + (spec: 1 check-duplicate-identifiers check-duplicate-identifiers) + (spec: 1 core-resolve-module-path core-resolve-module-path) + (spec: 1 stx-source stx-source) + (spec: 1 syntax-local-introduce syntax-local-introduce) (spec: 1 expander? expander?) - (spec: 1 current-module-reader-path current-module-reader-path) - (spec: 1 make-import-expander make-import-expander) - (spec: 1 stx-fixnum? stx-fixnum?) + (spec: 1 stx-identifier stx-identifier) (spec: 1 stx-null? stx-null?) - (spec: 1 make-module-export make-module-export) - (spec: 1 current-expander-phi current-expander-phi) - (spec: 1 module-context-code module-context-code) (spec: 1 syntax-pattern? syntax-pattern?) - (spec: 1 module-import-name module-import-name) - (spec: 1 stx-pair? stx-pair?) - (spec: 1 make-syntax-pattern make-syntax-pattern) - (spec: 1 syntax-local-e syntax-local-e) - (spec: 1 import-expander? import-expander?) - (spec: 1 stx-ormap stx-ormap) - (spec: 1 module-export? module-export?) - (spec: 1 syntax-local-unwrap syntax-local-unwrap) - (spec: 1 expander-binding-e expander-binding-e) - (spec: 1 export-set-exports export-set-exports) + (spec: 1 feature-expander? feature-expander?) + (spec: 1 module-import-weak? module-import-weak?) + (spec: 1 core-expand-import-source core-expand-import-source) (spec: 1 stx-foldl stx-foldl) + (spec: 1 syntax-pattern-id syntax-pattern-id) (spec: 1 core-expand-head core-expand-head) - (spec: 1 core-library-module-path? core-library-module-path?) - (spec: 1 stx-pair/null? stx-pair/null?) - (spec: 1 stx-reverse stx-reverse) - (spec: 1 syntax-local-introduce syntax-local-introduce) - (spec: 1 import-binding-e import-binding-e) + (spec: 1 syntax-local-unwrap syntax-local-unwrap) + (spec: 1 extern-binding? extern-binding?) + (spec: 1 syntax-split-splice syntax-split-splice) (spec: 1 stx-false? stx-false?) - (spec: 1 eval-module eval-module) - (spec: 1 make-import-export-expander make-import-export-expander) - (spec: 1 top-context? top-context?) + (spec: 1 macro-expand-syntax macro-expand-syntax) + (spec: 1 raise-syntax-error raise-syntax-error) + (spec: 1 module-context-export module-context-export) + (spec: 1 user-expander-context user-expander-context) + (spec: 1 import-set-imports import-set-imports) (spec: 1 current-expander-path current-expander-path) - (spec: 1 make-user-expander make-user-expander) - (spec: 1 import-set-source import-set-source) - (spec: 1 import-export-expander? import-export-expander?) + (spec: 1 current-expander-context current-expander-context) + (spec: 1 export-set-exports export-set-exports) + (spec: 1 stx-length stx-length) (spec: 1 stx-foldr stx-foldr) - (spec: 1 stx-vector? stx-vector?) - (spec: 1 core-expand-export-source core-expand-export-source) - (spec: 1 core-expand-expression+1 core-expand-expression+1) - (spec: 1 import-set-phi import-set-phi) - (spec: 1 macro-expand-syntax-case macro-expand-syntax-case) - (spec: 1 syntax-local-rewrap syntax-local-rewrap) - (spec: 1 core-resolve-module-export core-resolve-module-export) - (spec: 1 module-import? module-import?) - (spec: 1 core-context-top core-context-top) - (spec: 1 stx-last stx-last) + (spec: 1 stx-reverse stx-reverse) + (spec: 1 syntax-local-e syntax-local-e) + (spec: 1 make-local-context make-local-context) (spec: 1 stx-keyword? stx-keyword?) - (spec: 1 module-context-export module-context-export) - (spec: 1 feature-expander? feature-expander?) - (spec: 1 binding? binding?) - (spec: 1 stx-list? stx-list?) - (spec: 1 identifier-list? identifier-list?) - (spec: 1 alias-binding-e alias-binding-e) + (spec: 1 ellipsis? ellipsis?) (spec: 1 stx-wrap-source stx-wrap-source) - (spec: 1 stx-equal? stx-equal?) - (spec: 1 module-export-context module-export-context) - (spec: 1 stx-andmap stx-andmap) + (spec: 1 core-library-module-path? core-library-module-path?) + (spec: 1 resolve-identifier resolve-identifier) + (spec: 1 current-expander-marks current-expander-marks) + (spec: 1 syntax-error? syntax-error?) + (spec: 1 stx-eq? stx-eq?) + (spec: 1 module-binding? module-binding?) + (spec: 1 stx-list-ref stx-list-ref) (spec: 1 expander-e expander-e) + (spec: 1 stx-fixnum? stx-fixnum?) + (spec: 1 make-user-expander make-user-expander) + (spec: 1 module-export-name module-export-name) + (spec: 1 core-quote-syntax core-quote-syntax) (spec: 1 export-set? export-set?) - (spec: 1 macro-expand-syntax macro-expand-syntax) - (spec: 1 stx-char? stx-char?) + (spec: 1 gentemps gentemps) + (spec: 1 import-module import-module) + (spec: 1 syntax-e syntax-e) + (spec: 1 stx-e stx-e) + (spec: 1 make-import-export-expander make-import-export-expander) + (spec: 1 stx-plist? stx-plist?) + (spec: 1 syntax-check-splice-targets syntax-check-splice-targets) + (spec: 1 import-binding? import-binding?) + (spec: 1 stx-datum? stx-datum?) + (spec: 1 export-expander? export-expander?) (spec: 1 datum->syntax datum->syntax) - (spec: 1 user-expander-phi user-expander-phi) - (spec: 1 eval-syntax eval-syntax) (spec: 1 module-export-phi module-export-phi) - (spec: 1 import-set? import-set?) - (spec: 1 top-binding? top-binding?) - (spec: 1 stx-eqv? stx-eqv?) - (spec: 1 bound-identifier=? bound-identifier=?) - (spec: 1 stx-car stx-car) + (spec: 1 user-expander? user-expander?) + (spec: 1 import-set-source import-set-source) (spec: 1 genident genident) - (spec: 1 stx-identifier stx-identifier) - (spec: 1 stx-box? stx-box?) - (spec: 1 ellipsis? ellipsis?) - (spec: 1 syntax-pattern-id syntax-pattern-id) - (spec: 1 module-context-import module-context-import) - (spec: 1 syntax-local-value syntax-local-value) - (spec: 1 expander-binding? expander-binding?) - (spec: 1 module-import-source module-import-source) - (spec: 1 export-set-source export-set-source) - (spec: 1 runtime-binding? runtime-binding?) - (spec: 1 core-identifier=? core-identifier=?) + (spec: 1 module-import? module-import?) + (spec: 1 stx-cdr stx-cdr) + (spec: 1 alias-binding-e alias-binding-e) (spec: 1 core-resolve-library-module-path core-resolve-library-module-path) - (spec: 1 make-export-expander make-export-expander) + (spec: 1 free-identifier=? free-identifier=?) + (spec: 1 import-set? import-set?) + (spec: 1 import-expander? import-expander?) + (spec: 1 stx-list? stx-list?) + (spec: 1 core-identifier=? core-identifier=?) + (spec: 1 runtime-binding? runtime-binding?) + (spec: 1 stx-char? stx-char?) + (spec: 1 stx-box? stx-box?) + (spec: 1 module-export-weak? module-export-weak?) + (spec: 1 syntax-local-value syntax-local-value) + (spec: 1 stx-equal? stx-equal?) + (spec: 1 module-context? module-context?) + (spec: 1 top-binding? top-binding?) + (spec: 1 core-expand-export-source core-expand-export-source) + (spec: 1 underscore? underscore?) + (spec: 1 stx-andmap stx-andmap) + (spec: 1 expander-binding-e expander-binding-e) + (spec: 1 user-expander-phi user-expander-phi) + (spec: 1 stx-list-tail stx-list-tail) + (spec: 1 core-identifier-key core-identifier-key) + (spec: 1 import-set-phi import-set-phi) + (spec: 1 identifier-list? identifier-list?) + (spec: 1 core-apply-expander core-apply-expander) + (spec: 1 core-expand core-expand) + (spec: 1 stx-getq stx-getq) + (spec: 1 stx-eqv? stx-eqv?) + (spec: 1 core-module-export->import core-module-export->import) + (spec: 1 syntax-binding-e syntax-binding-e) (spec: 1 module-export-key module-export-key) - (spec: 1 syntax-check-splice-targets syntax-check-splice-targets) - (spec: 1 resolve-identifier resolve-identifier) - (spec: 1 stx-datum? stx-datum?) - (spec: 1 current-expander-context current-expander-context) - (spec: 1 ExpanderRuntime ExpanderRuntime) + (spec: 1 expander-binding? expander-binding?) + (spec: 1 make-import-expander make-import-expander) (spec: 1 SyntaxCase SyntaxCase) (spec: 1 SyntaxSugar SyntaxSugar) + (spec: 1 ExpanderRuntime ExpanderRuntime) (spec: 2 !class-precedence-list !class-precedence-list) (spec: 2 type-env-type type-env-type) - (spec: 2 current-type-env current-type-env) - (spec: 2 type-env-super type-env-super) + (spec: 2 type-env-var-set! type-env-var-set!) + (spec: 2 &type-env-type &type-env-type) + (spec: 2 type-env::t type-env::t) + (spec: 2 type-env-checked? type-env-checked?) + (spec: 2 type-env type-env) + (spec: 2 &type-env-type-set! &type-env-type-set!) (spec: 2 type-env? type-env?) - (spec: 2 &type-env-super-set! &type-env-super-set!) + (spec: 2 type-env-super type-env-super) (spec: 2 &type-env-super &type-env-super) (spec: 2 &type-env-checked? &type-env-checked?) - (spec: 2 type-env::t type-env::t) - (spec: 2 type-env-checked?-set! type-env-checked?-set!) - (spec: 2 &type-env-var-set! &type-env-var-set!) + (spec: 2 make-type-env make-type-env) (spec: 2 type-env-type-set! type-env-type-set!) - (spec: 2 type-env-var-set! type-env-var-set!) - (spec: 2 type-env type-env) - (spec: 2 type-env-checked? type-env-checked?) + (spec: 2 type-env-checked?-set! type-env-checked?-set!) (spec: 2 &type-env-checked?-set! &type-env-checked?-set!) - (spec: 2 type-env-var type-env-var) - (spec: 2 type-env-lookup type-env-lookup) (spec: 2 type-env-super-set! type-env-super-set!) - (spec: 2 &type-env-type-set! &type-env-type-set!) - (spec: 2 &type-env-type &type-env-type) - (spec: 2 make-type-env make-type-env) (spec: 2 &type-env-var &type-env-var) + (spec: 2 current-type-env current-type-env) + (spec: 2 type-env-var type-env-var) + (spec: 2 &type-env-super-set! &type-env-super-set!) + (spec: 2 &type-env-var-set! &type-env-var-set!) + (spec: 2 type-env-lookup type-env-lookup) (spec: 2 - interface-info::apply-macro-expander - interface-info::apply-macro-expander) + interface-info-interface-mixin-set! + interface-info-interface-mixin-set!) (spec: 2 - interface-info-instance-satisfies-predicate - interface-info-instance-satisfies-predicate) + &interface-info-interface-methods + &interface-info-interface-methods) + (spec: 2 &interface-info-instance-type &interface-info-instance-type) (spec: 2 - interface-info-instance-try-constructor-set! - interface-info-instance-try-constructor-set!) + &interface-info-instance-satisfies-predicate + &interface-info-instance-satisfies-predicate) + (spec: 2 &interface-info-name-set! &interface-info-name-set!) (spec: 2 - interface-info-interface-methods - interface-info-interface-methods) + interface-info-instance-satisfies-predicate-set! + interface-info-instance-satisfies-predicate-set!) + (spec: 2 syntax-local-interface-info? syntax-local-interface-info?) (spec: 2 &interface-info-interface-descriptor-set! &interface-info-interface-descriptor-set!) - (spec: 2 interface-info::t interface-info::t) - (spec: - 2 - &interface-info-implementation-methods-set! - &interface-info-implementation-methods-set!) + (spec: 2 interface-info-name-set! interface-info-name-set!) + (spec: 2 make-interface-info make-interface-info) (spec: 2 - &interface-info-instance-try-constructor - &interface-info-instance-try-constructor) - (spec: 2 interface-info-name-set! interface-info-name-set!) + interface-info-interface-mixin + interface-info-interface-mixin) (spec: 2 - &interface-info-unchecked-implementation-methods - &interface-info-unchecked-implementation-methods) - (spec: 2 interface-info-flatten-mixin interface-info-flatten-mixin) - (spec: 2 &interface-info-instance-type &interface-info-instance-type) + &interface-info-instance-predicate + &interface-info-instance-predicate) (spec: 2 - &interface-info-interface-descriptor - &interface-info-interface-descriptor) + interface-info-unchecked-implementation-methods + interface-info-unchecked-implementation-methods) (spec: 2 - &interface-info-instance-constructor-set! - &interface-info-instance-constructor-set!) + &interface-info-interface-mixin-set! + &interface-info-interface-mixin-set!) (spec: 2 - interface-info-unchecked-implementation-methods - interface-info-unchecked-implementation-methods) + interface-info::apply-macro-expander + interface-info::apply-macro-expander) (spec: 2 interface-info-instance-predicate-set! interface-info-instance-predicate-set!) - (spec: 2 interface-info-name interface-info-name) - (spec: - 2 - interface-info-instance-try-constructor - interface-info-instance-try-constructor) (spec: 2 - &interface-info-instance-constructor - &interface-info-instance-constructor) + interface-info-implementation-methods + interface-info-implementation-methods) (spec: 2 - interface-info-instance-constructor-set! - interface-info-instance-constructor-set!) + interface-info-interface-descriptor-set! + interface-info-interface-descriptor-set!) (spec: 2 - &interface-info-instance-predicate - &interface-info-instance-predicate) - (spec: 2 interface-info interface-info) + interface-info-unchecked-implementation-methods-set! + interface-info-unchecked-implementation-methods-set!) + (spec: 2 &interface-info-name &interface-info-name) (spec: 2 - interface-info-interface-methods-set! - interface-info-interface-methods-set!) + &interface-info-unchecked-implementation-methods + &interface-info-unchecked-implementation-methods) (spec: 2 - interface-info-instance-type-set! - interface-info-instance-type-set!) + &interface-info-interface-methods-set! + &interface-info-interface-methods-set!) (spec: 2 interface-info-instance-constructor interface-info-instance-constructor) - (spec: 2 syntax-local-interface-info? syntax-local-interface-info?) (spec: 2 - interface-info-instance-satisfies-predicate-set! - interface-info-instance-satisfies-predicate-set!) + &interface-info-instance-predicate-set! + &interface-info-instance-predicate-set!) (spec: 2 - interface-info-interface-descriptor-set! - interface-info-interface-descriptor-set!) - (spec: 2 make-interface-info make-interface-info) + &interface-info-instance-try-constructor + &interface-info-instance-try-constructor) + (spec: 2 interface-info interface-info) (spec: 2 - interface-info-unchecked-implementation-methods-set! - interface-info-unchecked-implementation-methods-set!) + interface-info-implementation-methods-set! + interface-info-implementation-methods-set!) (spec: 2 - interface-info-instance-predicate - interface-info-instance-predicate) + &interface-info-instance-constructor + &interface-info-instance-constructor) (spec: 2 - &interface-info-implementation-methods - &interface-info-implementation-methods) + &interface-info-instance-try-constructor-set! + &interface-info-instance-try-constructor-set!) (spec: 2 - &interface-info-unchecked-implementation-methods-set! - &interface-info-unchecked-implementation-methods-set!) + interface-info-instance-try-constructor-set! + interface-info-instance-try-constructor-set!) (spec: 2 - interface-info-interface-descriptor - interface-info-interface-descriptor) + &interface-info-implementation-methods + &interface-info-implementation-methods) + (spec: 2 interface-info-name interface-info-name) + (spec: 2 interface-info::t interface-info::t) (spec: 2 - interface-info-interface-mixin-set! - interface-info-interface-mixin-set!) + interface-info-instance-type-set! + interface-info-instance-type-set!) + (spec: + 2 + &interface-info-unchecked-implementation-methods-set! + &interface-info-unchecked-implementation-methods-set!) (spec: 2 interface-info? interface-info?) (spec: 2 - &interface-info-interface-methods-set! - &interface-info-interface-methods-set!) + interface-info-instance-satisfies-predicate + interface-info-instance-satisfies-predicate) (spec: 2 - interface-info-implementation-methods-set! - interface-info-implementation-methods-set!) + interface-info-interface-methods-set! + interface-info-interface-methods-set!) (spec: 2 - &interface-info-instance-satisfies-predicate-set! - &interface-info-instance-satisfies-predicate-set!) - (spec: 2 interface-info-instance-type interface-info-instance-type) + interface-info-instance-try-constructor + interface-info-instance-try-constructor) (spec: 2 - interface-info-implementation-methods - interface-info-implementation-methods) + interface-info-interface-descriptor + interface-info-interface-descriptor) (spec: 2 - &interface-info-interface-mixin - &interface-info-interface-mixin) + &interface-info-instance-type-set! + &interface-info-instance-type-set!) + (spec: 2 interface-info-instance-type interface-info-instance-type) (spec: 2 - &interface-info-instance-satisfies-predicate - &interface-info-instance-satisfies-predicate) + interface-info-instance-predicate + interface-info-instance-predicate) (spec: 2 - &interface-info-instance-predicate-set! - &interface-info-instance-predicate-set!) - (spec: 2 &interface-info-name &interface-info-name) + &interface-info-instance-satisfies-predicate-set! + &interface-info-instance-satisfies-predicate-set!) (spec: 2 - &interface-info-instance-try-constructor-set! - &interface-info-instance-try-constructor-set!) + &interface-info-interface-descriptor + &interface-info-interface-descriptor) (spec: 2 - interface-info-interface-mixin - interface-info-interface-mixin) + interface-info-interface-methods + interface-info-interface-methods) (spec: 2 - &interface-info-interface-methods - &interface-info-interface-methods) - (spec: 2 &interface-info-name-set! &interface-info-name-set!) + &interface-info-implementation-methods-set! + &interface-info-implementation-methods-set!) (spec: 2 - &interface-info-instance-type-set! - &interface-info-instance-type-set!) + &interface-info-instance-constructor-set! + &interface-info-instance-constructor-set!) (spec: 2 - &interface-info-interface-mixin-set! - &interface-info-interface-mixin-set!) + &interface-info-interface-mixin + &interface-info-interface-mixin) + (spec: 2 interface-info-flatten-mixin interface-info-flatten-mixin) + (spec: + 2 + interface-info-instance-constructor-set! + interface-info-instance-constructor-set!) (spec: 2 is-signature? is-signature?) - (spec: 1 with-procedure-signature with-procedure-signature) - (spec: 1 @method @method) - (spec: 1 defmethod/c defmethod/c) - (spec: 1 lambda/c lambda/c) - (spec: 1 defstruct/c defstruct/c) - (spec: 1 def*/c def*/c) - (spec: 1 def/c def/c) - (spec: 1 let/c let/c) - (spec: 1 defmutable defmutable) - (spec: 1 case-lambda/c case-lambda/c) (spec: 1 with-procedure-contract with-procedure-contract) + (spec: 1 with-receiver with-receiver) (spec: 1 with-procedure-unchecked-contract with-procedure-unchecked-contract) - (spec: 1 with-receiver with-receiver) + (spec: 1 defmethod/c defmethod/c) + (spec: 1 case-lambda/c case-lambda/c) + (spec: 1 @method @method) (spec: 1 defclass/c defclass/c) - (spec: 2 contract-type-subtype? contract-type-subtype?) - (spec: 2 check-valid-type! check-valid-type!) - (spec: 2 signature-arguments-out signature-arguments-out) - (spec: - 2 - make-interface-method-lambda-signature - make-interface-method-lambda-signature) + (spec: 1 defstruct/c defstruct/c) + (spec: 1 def*/c def*/c) + (spec: 1 defmutable defmutable) + (spec: 1 def/c def/c) + (spec: 1 lambda/c lambda/c) + (spec: 1 let/c let/c) + (spec: 1 defmutable* defmutable*) + (spec: 1 with-procedure-signature with-procedure-signature) (spec: 2 signature-has-keywords? signature-has-keywords?) - (spec: 2 signature-keywords signature-keywords) - (spec: 2 signature-arguments-in signature-arguments-in) + (spec: 2 check-valid-type! check-valid-type!) (spec: 2 check-signature-contract-types! check-signature-contract-types!) (spec: 2 compatible-signatures? compatible-signatures?) - (spec: 2 check-signature! check-signature!) + (spec: 2 signature-arity signature-arity) (spec: 2 make-interface-method-contract make-interface-method-contract) + (spec: 2 check-signature-spec! check-signature-spec!) + (spec: 2 make-procedure-contract make-procedure-contract) (spec: 2 compatible-type-contract? compatible-type-contract?) + (spec: 2 contract-type-subtype? contract-type-subtype?) + (spec: 2 signature-contract? signature-contract?) (spec: 2 make-procedure-lambda-signature make-procedure-lambda-signature) + (spec: 2 symboltype-descriptor resolve-type->type-descriptor) + (spec: 1 ::- ::-) + (spec: 1 :- :-) + (spec: 2 resolve-type resolve-type) + (spec: 2 &type-reference-identifier &type-reference-identifier) (spec: 2 type-reference-identifier-set! type-reference-identifier-set!) - (spec: 2 &type-reference-identifier &type-reference-identifier) - (spec: 2 type-reference::t type-reference::t) (spec: 2 &type-reference-identifier-set! &type-reference-identifier-set!) - (spec: 2 type-identifier? type-identifier?) - (spec: 2 resolve-type resolve-type) + (spec: 2 type-reference::t type-reference::t) + (spec: 2 resolve-type->type-descriptor resolve-type->type-descriptor) + (spec: 2 make-type-reference make-type-reference) (spec: 2 resolve-type->identifier resolve-type->identifier) + (spec: 2 type-reference-identifier type-reference-identifier) (spec: 2 type-reference? type-reference?) - (spec: 2 make-type-reference make-type-reference) + (spec: 2 type-identifier? type-identifier?) + (spec: 2 type-reference type-reference) (spec: 1 deftype deftype) - (spec: 1 Using Using) - (spec: 1 TypeEnv TypeEnv) (spec: 1 TypedDefinitions TypedDefinitions) + (spec: 1 TypeCast TypeCast) (spec: 1 Interface Interface) + (spec: 1 Using Using) + (spec: 1 ContractRules ContractRules) + (spec: 1 TypeReference TypeReference) (spec: 1 InterfaceInfo InterfaceInfo) + (spec: 1 TypeEnv TypeEnv) (spec: 1 ClassMeta ClassMeta) - (spec: 1 TypeReference TypeReference) - (spec: 1 ContractRules ContractRules) - (spec: 1 TypeCast TypeCast) (spec: 2 setf-macro-macro setf-macro-macro) - (spec: 2 &setf-macro-macro-set! &setf-macro-macro-set!) - (spec: 2 &setq-macro-macro-set! &setq-macro-macro-set!) - (spec: 2 syntax-local-setq-macro? syntax-local-setq-macro?) - (spec: 2 setq-macro? setq-macro?) - (spec: 2 setq-macro setq-macro) + (spec: 2 setq-macro-macro-set! setq-macro-macro-set!) + (spec: 2 setf-macro-macro-set! setf-macro-macro-set!) + (spec: 2 setq-macro-macro setq-macro-macro) + (spec: 2 make-setf-macro make-setf-macro) (spec: 2 expand-set! expand-set!) + (spec: 2 make-setq-macro make-setq-macro) + (spec: 2 setq-macro? setq-macro?) + (spec: 2 setf-macro::t setf-macro::t) + (spec: 2 &setf-macro-macro &setf-macro-macro) + (spec: 2 &setq-macro-macro-set! &setq-macro-macro-set!) + (spec: 2 setq-macro::t setq-macro::t) (spec: 2 setf-macro? setf-macro?) + (spec: 2 &setf-macro-macro-set! &setf-macro-macro-set!) + (spec: 2 syntax-local-setq-macro? syntax-local-setq-macro?) + (spec: 2 syntax-local-setf-macro? syntax-local-setf-macro?) (spec: 2 &setq-macro-macro &setq-macro-macro) - (spec: 2 make-setf-macro make-setf-macro) + (spec: 2 setq-macro setq-macro) (spec: 2 setf-macro setf-macro) - (spec: 2 syntax-local-setf-macro? syntax-local-setf-macro?) - (spec: 2 setq-macro::t setq-macro::t) - (spec: 2 &setf-macro-macro &setf-macro-macro) - (spec: 2 setf-macro::t setf-macro::t) - (spec: 2 setq-macro-macro setq-macro-macro) - (spec: 2 setf-macro-macro-set! setf-macro-macro-set!) - (spec: 2 setq-macro-macro-set! setq-macro-macro-set!) - (spec: 2 make-setq-macro make-setq-macro) (spec: 1 values-set! values-set!) - (spec: 1 parameterize parameterize) + (spec: 1 eval-when-compile eval-when-compile) (spec: 1 let/cc let/cc) - (spec: 1 unwind-protect unwind-protect) (spec: 1 @bytes @bytes) - (spec: 1 eval-when-compile eval-when-compile) + (spec: 1 unwind-protect unwind-protect) + (spec: 1 parameterize parameterize) (spec: 2 match-pattern? match-pattern?) (spec: 2 syntax-local-match-macro? syntax-local-match-macro?) (spec: 2 match-macro? match-macro?) (spec: 2 make-match-macro make-match-macro) (spec: 2 match-macro::t match-macro::t) (spec: 2 match-macro match-macro) - (spec: 1 defsyntax-for-match defsyntax-for-match) - (spec: 1 match* match*) - (spec: 1 defrules-for-match defrules-for-match) - (spec: 1 ? ?) (spec: 1 with* with*) - (spec: 1 match match) + (spec: 1 match* match*) (spec: 1 with with) - (spec: 1 :readtable :readtable) - (spec: 1 :boolean :boolean) - (spec: 1 :list :list) + (spec: 1 match match) + (spec: 1 ? ?) + (spec: 1 defsyntax-for-match defsyntax-for-match) + (spec: 1 defrules-for-match defrules-for-match) + (spec: 1 :hvector :hvector) + (spec: 1 :symbol :symbol) + (spec: 1 :false :false) + (spec: 1 :class :class) + (spec: 1 :flonum :flonum) + (spec: 1 :ratnum :ratnum) (spec: 1 :thread :thread) - (spec: 1 :u32vector :u32vector) - (spec: 1 :string :string) - (spec: 1 :immediate :immediate) - (spec: 1 :null :null) - (spec: 1 :s16vector :s16vector) - (spec: 1 :object :object) - (spec: 1 :s64vector :s64vector) - (spec: 1 :foreign :foreign) + (spec: 1 :object-port :object-port) + (spec: 1 :device-port :device-port) (spec: 1 :vector-port :vector-port) + (spec: 1 :event-queue-port :event-queue-port) + (spec: 1 :readenv :readenv) + (spec: 1 :vm :vm) + (spec: 1 :object :object) + (spec: 1 :readtable :readtable) + (spec: 1 :weak :weak) + (spec: 1 :special :special) + (spec: 1 :sequence :sequence) + (spec: 1 :vector :vector) + (spec: 1 :values :values) + (spec: 1 :thread-group :thread-group) + (spec: 1 :eof :eof) + (spec: 1 :condvar :condvar) + (spec: 1 :string :string) + (spec: 1 :void :void) + (spec: 1 :port :port) + (spec: 1 :character-port :character-port) + (spec: 1 :byte-port :byte-port) + (spec: 1 :directory-port :directory-port) + (spec: 1 :atom :atom) + (spec: 1 :t :t) (spec: 1 :true :true) - (spec: 1 :flonum :flonum) + (spec: 1 :null :null) + (spec: 1 :u8vector :u8vector) + (spec: 1 :number :number) + (spec: 1 :s8vector :s8vector) + (spec: 1 :f64vector :f64vector) + (spec: 1 :continuation :continuation) + (spec: 1 :promise :promise) + (spec: 1 :writeenv :writeenv) + (spec: 1 :processor :processor) + (spec: 1 :file-info :file-info) + (spec: 1 :socket-info :socket-info) + (spec: 1 :time :time) (spec: 1 class class) + (spec: 1 :s16vector :s16vector) + (spec: 1 :bignum :bignum) + (spec: 1 :tcp-server-port :tcp-server-port) (spec: 1 :keyword :keyword) - (spec: 1 :cpxnum :cpxnum) - (spec: 1 :pair :pair) + (spec: 1 :u16vector :u16vector) + (spec: 1 :u32vector :u32vector) + (spec: 1 :list :list) + (spec: 1 :box :box) (spec: 1 :f32vector :f32vector) - (spec: 1 :character-port :character-port) - (spec: 1 :socket-info :socket-info) - (spec: 1 :hvector :hvector) - (spec: 1 :processor :processor) - (spec: 1 :sequence :sequence) - (spec: 1 :continuation :continuation) - (spec: 1 :u8vector-port :u8vector-port) - (spec: 1 :atom :atom) - (spec: 1 :bignum :bignum) + (spec: 1 :mutex :mutex) + (spec: 1 :s64vector :s64vector) (spec: 1 :symbolic :symbolic) - (spec: 1 :u16vector :u16vector) - (spec: 1 :box :box) - (spec: 1 :weak :weak) - (spec: 1 :eof :eof) - (spec: 1 :condvar :condvar) - (spec: 1 :udp-port :udp-port) - (spec: 1 :u64vector :u64vector) - (spec: 1 :u8vector :u8vector) + (spec: 1 :immediate :immediate) (spec: 1 :raw-device-port :raw-device-port) + (spec: 1 :string-port :string-port) + (spec: 1 :udp-port :udp-port) + (spec: 1 :table :table) + (spec: 1 :address-info :address-info) + (spec: 1 :cpxnum :cpxnum) + (spec: 1 :procedure :procedure) (spec: 1 :integer :integer) - (spec: 1 :readenv :readenv) - (spec: 1 defsystem-class-info defsystem-class-info) - (spec: 1 :mutex :mutex) - (spec: 1 :t :t) - (spec: 1 :class :class) (spec: 1 :char :char) - (spec: 1 :f64vector :f64vector) - (spec: 1 :values :values) - (spec: 1 :void :void) - (spec: 1 :special :special) - (spec: 1 :procedure :procedure) + (spec: 1 :boolean :boolean) + (spec: 1 :u8vector-port :u8vector-port) + (spec: 1 :pair :pair) (spec: 1 :real :real) - (spec: 1 :fixnum :fixnum) - (spec: 1 :port :port) - (spec: 1 :tcp-server-port :tcp-server-port) - (spec: 1 :event-queue-port :event-queue-port) - (spec: 1 :table :table) + (spec: 1 :foreign :foreign) (spec: 1 :frame :frame) - (spec: 1 :vm :vm) - (spec: 1 :address-info :address-info) - (spec: 1 :file-info :file-info) - (spec: 1 :promise :promise) - (spec: 1 :string-port :string-port) - (spec: 1 :false :false) - (spec: 1 :time :time) - (spec: 1 :vector :vector) - (spec: 1 :byte-port :byte-port) - (spec: 1 :device-port :device-port) - (spec: 1 :object-port :object-port) - (spec: 1 :ratnum :ratnum) - (spec: 1 :writeenv :writeenv) - (spec: 1 :thread-group :thread-group) - (spec: 1 :number :number) - (spec: 1 :symbol :symbol) - (spec: 1 :s8vector :s8vector) + (spec: 1 :fixnum :fixnum) + (spec: 1 defsystem-class-info defsystem-class-info) (spec: 1 :s32vector :s32vector) - (spec: 1 :directory-port :directory-port) + (spec: 1 :u64vector :u64vector) + (spec: 1 @ @) (spec: 1 @-set! @-set!) (spec: 1 define-struct define-struct) - (spec: 1 @ @) (spec: 1 define-class define-class) (spec: 1 defstruct-type defstruct-type) (spec: 1 defclass-type defclass-type) + (spec: 1 MOP-3 MOP-3) (spec: 1 MOP-4 MOP-4) - (spec: 1 MOP-5 MOP-5) (spec: 1 MOP-1 MOP-1) + (spec: 1 MOP-5 MOP-5) (spec: 1 MOP-2 MOP-2) - (spec: 1 MOP-3 MOP-3) - (spec: 1 :readtable :readtable) - (spec: 1 :boolean :boolean) - (spec: 1 :list :list) + (spec: 1 :hvector :hvector) + (spec: 1 :symbol :symbol) + (spec: 1 :false :false) + (spec: 1 :class :class) + (spec: 1 :flonum :flonum) + (spec: 1 :ratnum :ratnum) (spec: 1 :thread :thread) - (spec: 1 :u32vector :u32vector) - (spec: 1 :string :string) - (spec: 1 :immediate :immediate) - (spec: 1 :null :null) - (spec: 1 :s16vector :s16vector) - (spec: 1 :object :object) - (spec: 1 :s64vector :s64vector) - (spec: 1 :foreign :foreign) + (spec: 1 :object-port :object-port) + (spec: 1 :device-port :device-port) (spec: 1 :vector-port :vector-port) - (spec: 1 :true :true) - (spec: 1 :flonum :flonum) - (spec: 1 class class) - (spec: 1 :keyword :keyword) - (spec: 1 :cpxnum :cpxnum) - (spec: 1 :pair :pair) - (spec: 1 :f32vector :f32vector) - (spec: 1 :character-port :character-port) - (spec: 1 :socket-info :socket-info) - (spec: 1 :hvector :hvector) - (spec: 1 :processor :processor) + (spec: 1 :event-queue-port :event-queue-port) + (spec: 1 :readenv :readenv) + (spec: 1 :vm :vm) + (spec: 1 :object :object) + (spec: 1 :readtable :readtable) + (spec: 1 :weak :weak) + (spec: 1 :special :special) (spec: 1 :sequence :sequence) - (spec: 1 :continuation :continuation) - (spec: 1 :u8vector-port :u8vector-port) + (spec: 1 :vector :vector) + (spec: 1 :values :values) + (spec: 1 :thread-group :thread-group) + (spec: 1 :eof :eof) + (spec: 1 :condvar :condvar) + (spec: 1 :string :string) + (spec: 1 :void :void) + (spec: 1 :port :port) + (spec: 1 :character-port :character-port) + (spec: 1 :byte-port :byte-port) + (spec: 1 :directory-port :directory-port) (spec: 1 :atom :atom) + (spec: 1 :t :t) + (spec: 1 :true :true) + (spec: 1 :null :null) + (spec: 1 :u8vector :u8vector) + (spec: 1 :number :number) + (spec: 1 :s8vector :s8vector) + (spec: 1 :f64vector :f64vector) + (spec: 1 :continuation :continuation) + (spec: 1 :promise :promise) + (spec: 1 :writeenv :writeenv) + (spec: 1 :processor :processor) + (spec: 1 :file-info :file-info) + (spec: 1 :socket-info :socket-info) + (spec: 1 :time :time) + (spec: 1 class class) + (spec: 1 :s16vector :s16vector) (spec: 1 :bignum :bignum) - (spec: 1 :symbolic :symbolic) + (spec: 1 :tcp-server-port :tcp-server-port) + (spec: 1 :keyword :keyword) (spec: 1 :u16vector :u16vector) + (spec: 1 :u32vector :u32vector) + (spec: 1 :list :list) (spec: 1 :box :box) - (spec: 1 :weak :weak) - (spec: 1 :eof :eof) - (spec: 1 :condvar :condvar) - (spec: 1 :udp-port :udp-port) - (spec: 1 :u64vector :u64vector) - (spec: 1 :u8vector :u8vector) + (spec: 1 :f32vector :f32vector) + (spec: 1 :mutex :mutex) + (spec: 1 :s64vector :s64vector) + (spec: 1 :symbolic :symbolic) + (spec: 1 :immediate :immediate) (spec: 1 :raw-device-port :raw-device-port) + (spec: 1 :string-port :string-port) + (spec: 1 :udp-port :udp-port) + (spec: 1 :table :table) + (spec: 1 :address-info :address-info) + (spec: 1 :cpxnum :cpxnum) + (spec: 1 :procedure :procedure) (spec: 1 :integer :integer) - (spec: 1 :readenv :readenv) - (spec: 1 defsystem-class-info defsystem-class-info) - (spec: 1 :mutex :mutex) - (spec: 1 :t :t) - (spec: 1 :class :class) (spec: 1 :char :char) - (spec: 1 :f64vector :f64vector) - (spec: 1 :values :values) - (spec: 1 :void :void) - (spec: 1 :special :special) - (spec: 1 :procedure :procedure) + (spec: 1 :boolean :boolean) + (spec: 1 :u8vector-port :u8vector-port) + (spec: 1 :pair :pair) (spec: 1 :real :real) - (spec: 1 :fixnum :fixnum) - (spec: 1 :port :port) - (spec: 1 :tcp-server-port :tcp-server-port) - (spec: 1 :event-queue-port :event-queue-port) - (spec: 1 :table :table) + (spec: 1 :foreign :foreign) (spec: 1 :frame :frame) - (spec: 1 :vm :vm) - (spec: 1 :address-info :address-info) - (spec: 1 :file-info :file-info) - (spec: 1 :promise :promise) - (spec: 1 :string-port :string-port) - (spec: 1 :false :false) - (spec: 1 :time :time) - (spec: 1 :vector :vector) - (spec: 1 :byte-port :byte-port) - (spec: 1 :device-port :device-port) - (spec: 1 :object-port :object-port) - (spec: 1 :ratnum :ratnum) - (spec: 1 :writeenv :writeenv) - (spec: 1 :thread-group :thread-group) - (spec: 1 :number :number) - (spec: 1 :symbol :symbol) - (spec: 1 :s8vector :s8vector) + (spec: 1 :fixnum :fixnum) + (spec: 1 defsystem-class-info defsystem-class-info) (spec: 1 :s32vector :s32vector) - (spec: 1 :directory-port :directory-port) + (spec: 1 :u64vector :u64vector) + (spec: 1 @ @) (spec: 1 @-set! @-set!) (spec: 1 define-struct define-struct) - (spec: 1 @ @) (spec: 1 define-class define-class) (spec: 1 class-type-info class-type-info) - (spec: 1 !class-type-struct? !class-type-struct?) - (spec: 1 syntax-local-class-type-info? syntax-local-class-type-info?) - (spec: - 1 - !class-type-precedence-list-set! - !class-type-precedence-list-set!) - (spec: 1 &!class-type-precedence-list &!class-type-precedence-list) - (spec: 1 !class-type-constructor-set! !class-type-constructor-set!) - (spec: 1 !class-type-slot-types-set! !class-type-slot-types-set!) - (spec: 1 !class-type-slot-contracts !class-type-slot-contracts) - (spec: 1 &!class-type-predicate &!class-type-predicate) - (spec: - 1 - &!class-type-unchecked-mutators-set! - &!class-type-unchecked-mutators-set!) + (spec: 1 class-type-info::t class-type-info::t) + (spec: 1 !class-type-slots-set! !class-type-slots-set!) (spec: 1 - &!class-type-unchecked-accessors-set! - &!class-type-unchecked-accessors-set!) - (spec: 1 !class-type-mutators-set! !class-type-mutators-set!) + !class-type-unchecked-mutators + !class-type-unchecked-mutators) (spec: 1 !class-type-descriptor-set! !class-type-descriptor-set!) - (spec: 1 &!class-type-metaclass &!class-type-metaclass) - (spec: 1 !class-type-system? !class-type-system?) - (spec: 1 &!class-type-system?-set! &!class-type-system?-set!) - (spec: 1 make-class-type-info make-class-type-info) - (spec: 1 !class-type-metaclass !class-type-metaclass) - (spec: 1 !class-type-super-set! !class-type-super-set!) - (spec: - 1 - !class-type-unchecked-accessors - !class-type-unchecked-accessors) + (spec: 1 !class-type-id !class-type-id) (spec: 1 - !class-type-constructor-method - !class-type-constructor-method) - (spec: 1 !class-type-slot-types !class-type-slot-types) + !class-type-slot-defaults-set! + !class-type-slot-defaults-set!) + (spec: 1 &!class-type-accessors &!class-type-accessors) + (spec: 1 &!class-type-descriptor-set! &!class-type-descriptor-set!) + (spec: 1 class-type-info? class-type-info?) + (spec: 1 !class-type-accessors-set! !class-type-accessors-set!) + (spec: 1 &!class-type-system? &!class-type-system?) (spec: 1 - !class-type-constructor-method-set! - !class-type-constructor-method-set!) - (spec: 1 !class-type-predicate-set! !class-type-predicate-set!) - (spec: 1 !class-type-struct?-set! !class-type-struct?-set!) - (spec: 1 !class-type-mutators !class-type-mutators) - (spec: 1 !class-type-precedence-list !class-type-precedence-list) + !class-type-slot-contracts-set! + !class-type-slot-contracts-set!) + (spec: 1 !class-type-mutators-set! !class-type-mutators-set!) + (spec: 1 &!class-type-id-set! &!class-type-id-set!) + (spec: 1 !class-type-name !class-type-name) + (spec: 1 !class-type-final? !class-type-final?) (spec: 1 - !class-type-unchecked-mutators - !class-type-unchecked-mutators) - (spec: 1 &!class-type-id &!class-type-id) - (spec: 1 &!class-type-ordered-slots &!class-type-ordered-slots) - (spec: 1 &!class-type-final? &!class-type-final?) - (spec: 1 &!class-type-system? &!class-type-system?) - (spec: 1 &!class-type-constructor &!class-type-constructor) - (spec: 1 !class-type-name-set! !class-type-name-set!) + &!class-type-unchecked-mutators + &!class-type-unchecked-mutators) + (spec: + 1 + !class-type-constructor-method + !class-type-constructor-method) + (spec: 1 &!class-type-name &!class-type-name) + (spec: 1 !class-type-precedence-list !class-type-precedence-list) + (spec: 1 !class-type-metaclass !class-type-metaclass) + (spec: 1 !class-type-mutators !class-type-mutators) + (spec: 1 !class-type-final?-set! !class-type-final?-set!) + (spec: 1 !class-type-predicate-set! !class-type-predicate-set!) + (spec: 1 !class-type-super-set! !class-type-super-set!) + (spec: 1 !class-type-system?-set! !class-type-system?-set!) + (spec: 1 !class-type-constructor-set! !class-type-constructor-set!) (spec: 1 !class-type-unchecked-mutators-set! !class-type-unchecked-mutators-set!) - (spec: 1 &!class-type-descriptor-set! &!class-type-descriptor-set!) - (spec: 1 &!class-type-slot-types-set! &!class-type-slot-types-set!) + (spec: 1 &!class-type-predicate &!class-type-predicate) + (spec: 1 !class-type-predicate !class-type-predicate) + (spec: 1 &!class-type-struct?-set! &!class-type-struct?-set!) + (spec: 1 &!class-type-final?-set! &!class-type-final?-set!) + (spec: 1 !class-type-slot-types-set! !class-type-slot-types-set!) + (spec: 1 !class-type-metaclass-set! !class-type-metaclass-set!) + (spec: 1 make-class-type-info make-class-type-info) + (spec: 1 &!class-type-metaclass-set! &!class-type-metaclass-set!) (spec: 1 - &!class-type-slot-defaults-set! - &!class-type-slot-defaults-set!) + &!class-type-constructor-method-set! + &!class-type-constructor-method-set!) + (spec: 1 &!class-type-id &!class-type-id) (spec: 1 - !class-type-slot-contracts-set! - !class-type-slot-contracts-set!) - (spec: 1 !class-type-descriptor !class-type-descriptor) - (spec: 1 !class-type-accessors !class-type-accessors) + &!class-type-constructor-method + &!class-type-constructor-method) + (spec: 1 &!class-type-system?-set! &!class-type-system?-set!) + (spec: 1 &!class-type-accessors-set! &!class-type-accessors-set!) + (spec: 1 !class-type-slots !class-type-slots) + (spec: 1 !class-type-struct? !class-type-struct?) + (spec: 1 !class-type-id-set! !class-type-id-set!) (spec: 1 !class-type-unchecked-accessors-set! !class-type-unchecked-accessors-set!) + (spec: 1 &!class-type-ordered-slots &!class-type-ordered-slots) (spec: 1 - !class-type-slot-defaults-set! - !class-type-slot-defaults-set!) + &!class-type-unchecked-accessors-set! + &!class-type-unchecked-accessors-set!) + (spec: 1 &!class-type-slot-types-set! &!class-type-slot-types-set!) (spec: 1 &!class-type-slot-contracts-set! &!class-type-slot-contracts-set!) - (spec: 1 &!class-type-id-set! &!class-type-id-set!) - (spec: 1 !class-type-final? !class-type-final?) - (spec: 1 &!class-type-accessors &!class-type-accessors) - (spec: 1 class-type-info::t class-type-info::t) + (spec: 1 !class-type-struct?-set! !class-type-struct?-set!) + (spec: 1 &!class-type-final? &!class-type-final?) + (spec: 1 !class-type-slot-types !class-type-slot-types) + (spec: 1 &!class-type-slots-set! &!class-type-slots-set!) + (spec: 1 &!class-type-mutators-set! &!class-type-mutators-set!) + (spec: 1 !class-type-slot-defaults !class-type-slot-defaults) + (spec: + 1 + !class-type-precedence-list-set! + !class-type-precedence-list-set!) + (spec: 1 &!class-type-predicate-set! &!class-type-predicate-set!) + (spec: 1 &!class-type-metaclass &!class-type-metaclass) (spec: 1 &!class-type-mutators &!class-type-mutators) - (spec: 1 &!class-type-name-set! &!class-type-name-set!) - (spec: 1 !class-type-name !class-type-name) - (spec: 1 &!class-type-name &!class-type-name) - (spec: 1 &!class-type-super-set! &!class-type-super-set!) + (spec: 1 &!class-type-slot-defaults &!class-type-slot-defaults) (spec: 1 - &!class-type-precedence-list-set! - &!class-type-precedence-list-set!) - (spec: 1 &!class-type-struct?-set! &!class-type-struct?-set!) - (spec: 1 &!class-type-metaclass-set! &!class-type-metaclass-set!) - (spec: 1 &!class-type-constructor-set! &!class-type-constructor-set!) - (spec: 1 &!class-type-accessors-set! &!class-type-accessors-set!) + &!class-type-unchecked-mutators-set! + &!class-type-unchecked-mutators-set!) (spec: 1 - &!class-type-unchecked-accessors - &!class-type-unchecked-accessors) - (spec: 1 !class-type-metaclass-set! !class-type-metaclass-set!) - (spec: 1 !class-type-constructor !class-type-constructor) + &!class-type-slot-defaults-set! + &!class-type-slot-defaults-set!) (spec: 1 - &!class-type-unchecked-mutators - &!class-type-unchecked-mutators) - (spec: 1 !class-type-slots !class-type-slots) - (spec: 1 &!class-type-final?-set! &!class-type-final?-set!) - (spec: 1 &!class-type-super &!class-type-super) - (spec: 1 &!class-type-mutators-set! &!class-type-mutators-set!) - (spec: 1 &!class-type-struct? &!class-type-struct?) + &!class-type-precedence-list-set! + &!class-type-precedence-list-set!) + (spec: 1 &!class-type-descriptor &!class-type-descriptor) (spec: 1 - !class-type-ordered-slots-set! - !class-type-ordered-slots-set!) - (spec: 1 !class-type-final?-set! !class-type-final?-set!) + &!class-type-unchecked-accessors + &!class-type-unchecked-accessors) + (spec: 1 &!class-type-slots &!class-type-slots) + (spec: 1 &!class-type-name-set! &!class-type-name-set!) (spec: 1 - class-type-info::apply-macro-expander - class-type-info::apply-macro-expander) + !class-type-unchecked-accessors + !class-type-unchecked-accessors) (spec: 1 !class-type-ordered-slots !class-type-ordered-slots) + (spec: 1 !class-type-accessors !class-type-accessors) (spec: 1 &!class-type-ordered-slots-set! &!class-type-ordered-slots-set!) - (spec: 1 !class-type-accessors-set! !class-type-accessors-set!) - (spec: 1 class-type-info? class-type-info?) - (spec: 1 !class-type-slots-set! !class-type-slots-set!) - (spec: 1 !class-type-system?-set! !class-type-system?-set!) + (spec: 1 &!class-type-constructor-set! &!class-type-constructor-set!) + (spec: 1 &!class-type-super-set! &!class-type-super-set!) + (spec: 1 syntax-local-class-type-info? syntax-local-class-type-info?) + (spec: 1 &!class-type-slot-types &!class-type-slot-types) (spec: 1 !class-type-super !class-type-super) - (spec: 1 !class-type-id !class-type-id) + (spec: 1 !class-type-descriptor !class-type-descriptor) + (spec: 1 !class-type-constructor !class-type-constructor) + (spec: 1 !class-type-slot-contracts !class-type-slot-contracts) + (spec: 1 !class-type-name-set! !class-type-name-set!) + (spec: 1 &!class-type-super &!class-type-super) + (spec: 1 &!class-type-precedence-list &!class-type-precedence-list) + (spec: 1 &!class-type-slot-contracts &!class-type-slot-contracts) (spec: 1 - &!class-type-constructor-method - &!class-type-constructor-method) - (spec: 1 &!class-type-slot-defaults &!class-type-slot-defaults) - (spec: 1 &!class-type-descriptor &!class-type-descriptor) - (spec: 1 !class-type-slot-defaults !class-type-slot-defaults) - (spec: 1 &!class-type-slot-contracts &!class-type-slot-contracts) - (spec: 1 !class-type-id-set! !class-type-id-set!) - (spec: 1 !class-type-predicate !class-type-predicate) - (spec: 1 &!class-type-slots &!class-type-slots) - (spec: 1 &!class-type-slots-set! &!class-type-slots-set!) - (spec: 1 &!class-type-predicate-set! &!class-type-predicate-set!) - (spec: 1 &!class-type-slot-types &!class-type-slot-types) + class-type-info::apply-macro-expander + class-type-info::apply-macro-expander) + (spec: 1 &!class-type-struct? &!class-type-struct?) (spec: 1 - &!class-type-constructor-method-set! - &!class-type-constructor-method-set!) + !class-type-ordered-slots-set! + !class-type-ordered-slots-set!) + (spec: 1 &!class-type-constructor &!class-type-constructor) + (spec: + 1 + !class-type-constructor-method-set! + !class-type-constructor-method-set!) + (spec: 1 !class-type-system? !class-type-system?) (spec: 1 defstruct-type defstruct-type) (spec: 1 defclass-type defclass-type) (spec: 1 make-class-type-id make-class-type-id) (spec: 1 module-type-id module-type-id) - (spec: 1 defconst defconst) (spec: 1 defsyntax defsyntax) (spec: 1 definline definline) - (spec: 1 quasiquote quasiquote) + (spec: 1 defconst defconst) + (spec: 1 defvalues defvalues) + (spec: 1 case case) + (spec: 1 do do) + (spec: 1 do-while do-while) + (spec: 1 and-let* and-let*) + (spec: 1 begin0 begin0) + (spec: 1 alet* alet*) + (spec: 1 cut cut) + (spec: 1 <...> <...>) (spec: 1 ~case-test ~case-test) + (spec: 1 ~case ~case) (spec: 1 ~case-dispatch* ~case-dispatch*) + (spec: 1 ~case-dispatch-bsearch ~case-dispatch-bsearch) + (spec: 1 rec rec) (spec: 1 alet alet) + (spec: 1 quasiquote quasiquote) (spec: 1 <> <>) + (spec: 1 @list @list) (spec: 1 ~case-dispatch ~case-dispatch) - (spec: 1 do do) - (spec: 1 begin0 begin0) - (spec: 1 and-let* and-let*) - (spec: 1 do-while do-while) - (spec: 1 rec rec) - (spec: 1 case case) - (spec: 1 defvalues defvalues) - (spec: 1 ~case-dispatch-bsearch ~case-dispatch-bsearch) (spec: 1 delay delay) - (spec: 1 ~case ~case) - (spec: 1 alet* alet*) - (spec: 1 <...> <...>) - (spec: 1 cut cut) - (spec: 1 @list @list) - (spec: 1 defrules defrules) - (spec: 1 let*-values let*-values) + (spec: 1 unless unless) + (spec: 1 syntax-error syntax-error) (spec: 1 defalias defalias) - (spec: 1 let* let*) - (spec: 1 cond cond) - (spec: 1 ~let ~let) (spec: 1 letrec* letrec*) - (spec: 1 syntax-error syntax-error) + (spec: 1 ~let ~let) (spec: 1 letrec letrec) - (spec: 1 unless unless) - (spec: 1 defsyntax% defsyntax%) (spec: 1 defrule defrule) + (spec: 1 cond cond) + (spec: 1 let*-values let*-values) + (spec: 1 defrules defrules) + (spec: 1 let* let*) (spec: 1 define-rules define-rules) + (spec: 1 define define) + (spec: 1 when when) (spec: 1 and and) + (spec: 1 defsyntax% defsyntax%) (spec: 1 or or) - (spec: 1 when when) - (spec: 1 define define) + (spec: 1 random-bytes random-bytes) (spec: 1 string-ref-set! string-ref-set!) - (spec: 1 s32vector-ref-set! s32vector-ref-set!) + (spec: 1 random-source-make-bytes random-source-make-bytes) (spec: 1 cdr-set! cdr-set!) - (spec: 1 u8vector-ref-set! u8vector-ref-set!) + (spec: 1 u64vector-ref-set! u64vector-ref-set!) + (spec: 1 u16vector-ref-set! u16vector-ref-set!) (spec: 1 f32vector-ref-set! f32vector-ref-set!) - (spec: 1 s8vector-ref-set! s8vector-ref-set!) + (spec: 1 s32vector-ref-set! s32vector-ref-set!) + (spec: 1 u32vector-ref-set! u32vector-ref-set!) + (spec: 1 car-set! car-set!) + (spec: 1 call/parameters call/parameters) (spec: 1 box-set! box-set!) (spec: 1 s64vector-ref-set! s64vector-ref-set!) - (spec: 1 u16vector-ref-set! u16vector-ref-set!) - (spec: 1 random-bytes random-bytes) + (spec: 1 u8vector-ref-set! u8vector-ref-set!) (spec: 1 vector-ref-set! vector-ref-set!) - (spec: 1 f64vector-ref-set! f64vector-ref-set!) - (spec: 1 random-source-make-bytes random-source-make-bytes) - (spec: 1 s16vector-ref-set! s16vector-ref-set!) - (spec: 1 call/parameters call/parameters) - (spec: 1 u32vector-ref-set! u32vector-ref-set!) - (spec: 1 car-set! car-set!) - (spec: 1 u64vector-ref-set! u64vector-ref-set!) + (spec: 1 s8vector-ref-set! s8vector-ref-set!) (spec: 1 call/values call/values) - (spec: 1 make-instance make-instance) + (spec: 1 s16vector-ref-set! s16vector-ref-set!) + (spec: 1 f64vector-ref-set! f64vector-ref-set!) + (spec: 1 error error) + (spec: 1 readenv::t readenv::t) + (spec: 1 exception? exception?) + (spec: 1 boolean::t boolean::t) + (spec: 1 keyword->symbol keyword->symbol) + (spec: 1 interface-instance-object interface-instance-object) + (spec: 1 hash-table? hash-table?) + (spec: 1 directory-port::t directory-port::t) + (spec: 1 special::t special::t) + (spec: 1 &class-type-id &class-type-id) + (spec: 1 list->hash-table-symbolic list->hash-table-symbolic) + (spec: + 1 + make-class-slot-unchecked-mutator + make-class-slot-unchecked-mutator) + (spec: 1 dssl-rest-object? dssl-rest-object?) + (spec: 1 seal-class! seal-class!) + (spec: 1 symbolic-table-ref symbolic-table-ref) + (spec: 1 hash-fold hash-fold) + (spec: 1 memf memf) + (spec: 1 struct-instance-init! struct-instance-init!) + (spec: + 1 + datum-parsing-exception-filepos + datum-parsing-exception-filepos) + (spec: 1 tcp-server-port::t tcp-server-port::t) + (spec: + 1 + unhandled-actor-exception-hook-set! + unhandled-actor-exception-hook-set!) + (spec: 1 immediate-hash immediate-hash) + (spec: 1 false false) + (spec: 1 void::t void::t) + (spec: 1 class-type-slot-table class-type-slot-table) + (spec: 1 pgetq pgetq) + (spec: 1 list->hash-table-string list->hash-table-string) + (spec: 1 replx replx) + (spec: 1 make-object make-object) + (spec: 1 direct-method-ref direct-method-ref) + (spec: 1 class-type-flags class-type-flags) + (spec: 1 satisfies? satisfies?) (spec: 1 symblic-hash symblic-hash) - (spec: 1 string-port? string-port?) - (spec: 1 thread-local-ref thread-local-ref) - (spec: 1 class-type-field-count class-type-field-count) - (spec: 1 read-syntax read-syntax) - (spec: 1 error-object? error-object?) - (spec: 1 object-port::t object-port::t) - (spec: 1 hash-keys hash-keys) - (spec: 1 make-class-type make-class-type) - (spec: 1 add-load-path! add-load-path!) - (spec: 1 procedure-hash procedure-hash) - (spec: 1 u8vector-port::t u8vector-port::t) - (spec: 1 values->list values->list) - (spec: 1 string-rindex string-rindex) - (spec: 1 make-symbolic-table make-symbolic-table) - (spec: 1 eof::t eof::t) - (spec: 1 error-message error-message) - (spec: 1 class-type-name class-type-name) - (spec: 1 &class-type-properties &class-type-properties) - (spec: 1 class-type-system? class-type-system?) - (spec: 1 atom::t atom::t) - (spec: 1 return::t return::t) - (spec: 1 true? true?) - (spec: 1 &interface-instance-object &interface-instance-object) - (spec: 1 make-hash-table make-hash-table) - (spec: 1 string-port::t string-port::t) - (spec: 1 plist->hash-table plist->hash-table) - (spec: 1 checked-method-ref checked-method-ref) - (spec: 1 hash-values hash-values) - (spec: 1 thread-local-get thread-local-get) - (spec: 1 symbol->keyword symbol->keyword) - (spec: 1 f64vector::t f64vector::t) - (spec: 1 object-fill! object-fill!) - (spec: 1 flonum::t flonum::t) - (spec: 1 with-exception-stack-trace with-exception-stack-trace) - (spec: 1 spawn spawn) - (spec: 1 immediate::t immediate::t) - (spec: 1 udp-port::t udp-port::t) - (spec: 1 interface-cast-error? interface-cast-error?) - (spec: 1 call-with-parameters call-with-parameters) - (spec: 1 string-split string-split) - (spec: 1 gerbil-path gerbil-path) - (spec: 1 eof-object eof-object) - (spec: 1 values::t values::t) - (spec: 1 event-queue-port::t event-queue-port::t) - (spec: 1 remf remf) - (spec: 1 class::t class::t) - (spec: 1 fx1- fx1-) - (spec: 1 bind-method! bind-method!) - (spec: 1 make-promise make-promise) - (spec: 1 try-cast try-cast) - (spec: 1 make-keyword make-keyword) - (spec: 1 hash-merge hash-merge) - (spec: 1 interned-symbol? interned-symbol?) - (spec: 1 class->list class->list) - (spec: 1 with-dynamic-lock with-dynamic-lock) - (spec: 1 aget aget) - (spec: 1 substruct? substruct?) - (spec: 1 f32vector::t f32vector::t) - (spec: 1 fixnum::t fixnum::t) - (spec: 1 actor-thread? actor-thread?) - (spec: 1 create-directory* create-directory*) - (spec: 1 slot-ref slot-ref) - (spec: 1 build-manifest/layer build-manifest/layer) - (spec: 1 integer::t integer::t) - (spec: 1 values-ref values-ref) - (spec: 1 u8vector::t u8vector::t) - (spec: 1 processor::t processor::t) - (spec: 1 &class-type-slot-table &class-type-slot-table) - (spec: 1 class-type-precedence-list class-type-precedence-list) - (spec: 1 class-type? class-type?) - (spec: 1 object-type object-type) - (spec: 1 fx1+ fx1+) - (spec: 1 bind-specializer! bind-specializer!) - (spec: 1 pair::t pair::t) - (spec: 1 error? error?) - (spec: 1 cast cast) - (spec: 1 make-hash-table-eqv make-hash-table-eqv) + (spec: 1 string-hash string-hash) + (spec: 1 dssl-optional-object? dssl-optional-object?) + (spec: 1 agetv agetv) + (spec: 1 symbolic-table-delete! symbolic-table-delete!) (spec: 1 - raise-contract-violation-error - raise-contract-violation-error) - (spec: 1 plist->hash-table-eq plist->hash-table-eq) - (spec: 1 &class-type-constructor &class-type-constructor) - (spec: 1 class-type-fields class-type-fields) - (spec: 1 address-info::t address-info::t) - (spec: 1 mutex::t mutex::t) - (spec: 1 list->hash-table list->hash-table) - (spec: 1 hash->list hash->list) - (spec: 1 cpxnum::t cpxnum::t) - (spec: 1 hash-map hash-map) - (spec: 1 build-manifest/head build-manifest/head) - (spec: 1 gerbil-runtime-smp? gerbil-runtime-smp?) - (spec: 1 cons* cons*) - (spec: 1 fx<=0? fx<=0?) - (spec: 1 procedure::t procedure::t) - (spec: 1 vector-port::t vector-port::t) - (spec: 1 interface-descriptor-methods interface-descriptor-methods) - (spec: 1 read-u8vector read-u8vector) - (spec: 1 unbound-key-error? unbound-key-error?) - (spec: 1 remove1 remove1) - (spec: 1 object-port? object-port?) - (spec: 1 hash-put! hash-put!) - (spec: 1 hvector? hvector?) - (spec: 1 make-hash-table-eq make-hash-table-eq) - (spec: 1 syntax-error? syntax-error?) - (spec: 1 displayln displayln) - (spec: 1 string->bytes string->bytes) - (spec: 1 class-instance? class-instance?) - (spec: 1 make-AST make-AST) - (spec: 1 AST-e AST-e) - (spec: 1 foldl foldl) - (spec: 1 read-syntax-from-file read-syntax-from-file) - (spec: 1 new-instance new-instance) - (spec: 1 s16vector::t s16vector::t) - (spec: 1 condvar::t condvar::t) - (spec: 1 false::t false::t) - (spec: 1 immediate? immediate?) - (spec: 1 udp-port? udp-port?) - (spec: 1 fx<0? fx<0?) - (spec: 1 character-port::t character-port::t) - (spec: 1 event-queue-port? event-queue-port?) - (spec: 1 plist->hash-table-immediate plist->hash-table-immediate) - (spec: 1 make-syntax-error make-syntax-error) - (spec: 1 class-type-properties class-type-properties) + make-class-slot-unchecked-accessor + make-class-slot-unchecked-accessor) + (spec: 1 constructor-init! constructor-init!) + (spec: 1 struct-copy struct-copy) + (spec: 1 as-string as-string) + (spec: 1 interface-descriptor? interface-descriptor?) + (spec: 1 unchecked-slot-set! unchecked-slot-set!) + (spec: 1 gerbil-version-string gerbil-version-string) + (spec: 1 vm? vm?) + (spec: 1 class-type-slot-list class-type-slot-list) + (spec: 1 &class-type-super &class-type-super) + (spec: 1 &class-type-flags &class-type-flags) + (spec: 1 raw-device-port? raw-device-port?) + (spec: 1 direct-instance? direct-instance?) + (spec: 1 list->hash-table-immediate list->hash-table-immediate) + (spec: 1 make-class-slot-mutator make-class-slot-mutator) + (spec: 1 s8vector::t s8vector::t) + (spec: 1 string-empty? string-empty?) + (spec: 1 dssl-object? dssl-object?) + (spec: 1 filter-map filter-map) + (spec: 1 current-thread-group current-thread-group) + (spec: 1 nonnegative-fixnum? nonnegative-fixnum?) + (spec: 1 struct->list struct->list) + (spec: 1 vm::t vm::t) + (spec: 1 bytes->string bytes->string) + (spec: 1 max-char-code max-char-code) + (spec: 1 unchecked-slot-ref unchecked-slot-ref) + (spec: 1 fxshift fxshift) + (spec: 1 with-exception-handler with-exception-handler) + (spec: 1 gerbil-system-version-string gerbil-system-version-string) + (spec: 1 checked-bound-method-ref checked-bound-method-ref) + (spec: 1 class-type-sealed? class-type-sealed?) + (spec: 1 hash-remove! hash-remove!) + (spec: 1 raw-device-port::t raw-device-port::t) + (spec: 1 hash-find hash-find) + (spec: 1 dssl-key-object? dssl-key-object?) + (spec: 1 device-port? device-port?) + (spec: 1 make-hash-table-symbolic make-hash-table-symbolic) + (spec: 1 make-class-slot-accessor make-class-slot-accessor) + (spec: 1 s64vector::t s64vector::t) + (spec: 1 list->hash-table-eqv list->hash-table-eqv) + (spec: 1 table::t table::t) + (spec: 1 spawn/name spawn/name) + (spec: 1 file-newer? file-newer?) + (spec: 1 absent-value absent-value) + (spec: 1 AST? AST?) + (spec: 1 eqv-hash eqv-hash) + (spec: 1 foldr foldr) + (spec: 1 string::t string::t) + (spec: 1 with-exception-catcher with-exception-catcher) + (spec: 1 plist->hash-table-symbolic plist->hash-table-symbolic) + (spec: 1 hash-copy hash-copy) + (spec: 1 fx>=0? fx>=0?) + (spec: 1 time::t time::t) + (spec: 1 gerbil-system-manifest gerbil-system-manifest) (spec: 1 &class-type-slot-vector &class-type-slot-vector) - (spec: 1 set-load-path! set-load-path!) - (spec: 1 object? object?) - (spec: 1 hash-merge! hash-merge!) + (spec: 1 class-type-seal! class-type-seal!) (spec: 1 pget pget) - (spec: 1 hvector::t hvector::t) - (spec: 1 make-hash-table-string make-hash-table-string) - (spec: 1 thread-local-set! thread-local-set!) - (spec: 1 reload-module! reload-module!) (spec: 1 with-unwind-protect with-unwind-protect) - (spec: 1 class-instance-init! class-instance-init!) - (spec: 1 class-type-final? class-type-final?) + (spec: 1 class-of class-of) + (spec: 1 ratnum::t ratnum::t) + (spec: 1 is-hash-table? is-hash-table?) + (spec: 1 make-hash-table-string make-hash-table-string) (spec: 1 &class-type-fields &class-type-fields) + (spec: 1 1- 1-) + (spec: 1 make-class-predicate make-class-predicate) + (spec: 1 s32vector::t s32vector::t) + (spec: 1 device-port::t device-port::t) (spec: 1 symbol::t symbol::t) + (spec: 1 agetq agetq) + (spec: 1 remq remq) + (spec: 1 absent-obj absent-obj) + (spec: 1 slot-set! slot-set!) + (spec: 1 next-method next-method) (spec: 1 t::t t::t) - (spec: 1 make-class-predicate make-class-predicate) - (spec: 1 1- 1-) (spec: 1 file-info::t file-info::t) - (spec: 1 with-exception-catcher with-exception-catcher) + (spec: 1 byte-port::t byte-port::t) + (spec: 1 thread::t thread::t) + (spec: 1 character-port? character-port?) + (spec: 1 fx>0? fx>0?) (spec: 1 gerbil-system gerbil-system) - (spec: 1 promise::t promise::t) - (spec: 1 char::t char::t) + (spec: 1 read-u8vector read-u8vector) (spec: 1 vector::t vector::t) + (spec: 1 hvector? hvector?) + (spec: 1 class-instance? class-instance?) (spec: 1 interface-descriptor-type interface-descriptor-type) - (spec: 1 raise-unbound-key-error raise-unbound-key-error) - (spec: 1 is-hash-table? is-hash-table?) + (spec: 1 remove1 remove1) (spec: 1 list->hash-table-eq list->hash-table-eq) - (spec: 1 plist->hash-table-eqv plist->hash-table-eqv) - (spec: 1 fx>0? fx>0?) - (spec: 1 object::t object::t) - (spec: 1 class-type-sealed? class-type-sealed?) - (spec: 1 thread::t thread::t) - (spec: 1 dssl-key-object? dssl-key-object?) (spec: 1 make-hash-table-immediate make-hash-table-immediate) + (spec: 1 plist->hash-table-string plist->hash-table-string) (spec: 1 hash-clear! hash-clear!) - (spec: 1 raw-device-port::t raw-device-port::t) - (spec: 1 spawn/name spawn/name) - (spec: 1 device-port? device-port?) + (spec: 1 1+ 1+) + (spec: 1 displayln displayln) + (spec: 1 string->bytes string->bytes) + (spec: 1 s16vector::t s16vector::t) + (spec: 1 condvar::t condvar::t) + (spec: 1 spawn/group spawn/group) (spec: 1 with-lock with-lock) - (spec: 1 AST? AST?) + (spec: 1 new-instance new-instance) (spec: 1 hash->plist hash->plist) - (spec: 1 s64vector::t s64vector::t) - (spec: 1 1+ 1+) - (spec: 1 remq remq) - (spec: 1 AST-source AST-source) - (spec: 1 plist->hash-table-symbolic plist->hash-table-symbolic) - (spec: 1 gerbil-load-expander! gerbil-load-expander!) + (spec: 1 plist->hash-table-immediate plist->hash-table-immediate) + (spec: 1 make-syntax-error make-syntax-error) + (spec: 1 object? object?) + (spec: 1 fx=0? fx=0?) + (spec: 1 cons* cons*) + (spec: 1 class-type-properties class-type-properties) + (spec: 1 &class-type-slot-table &class-type-slot-table) + (spec: 1 bind-specializer! bind-specializer!) + (spec: 1 class-instance-init! class-instance-init!) + (spec: 1 pair::t pair::t) + (spec: 1 hvector::t hvector::t) + (spec: 1 character-port::t character-port::t) (spec: 1 vector-port? vector-port?) - (spec: 1 absent-value absent-value) - (spec: 1 class-of class-of) - (spec: 1 fx=0? fx=0?) + (spec: 1 class-type-final? class-type-final?) + (spec: 1 &class-type-constructor &class-type-constructor) + (spec: 1 raise-unbound-key-error raise-unbound-key-error) + (spec: 1 make-hash-table-eqv make-hash-table-eqv) + (spec: 1 list->hash-table list->hash-table) (spec: 1 hash-ref hash-ref) - (spec: 1 &class-type-super &class-type-super) - (spec: 1 class-type-seal! class-type-seal!) - (spec: 1 spawn/group spawn/group) - (spec: 1 &class-type-flags &class-type-flags) - (spec: 1 ratnum::t ratnum::t) - (spec: 1 filter-map filter-map) - (spec: 1 device-port::t device-port::t) - (spec: 1 list->hash-table-immediate list->hash-table-immediate) - (spec: 1 struct->list struct->list) - (spec: 1 next-method next-method) - (spec: 1 make-class-slot-mutator make-class-slot-mutator) - (spec: 1 slot-set! slot-set!) - (spec: 1 agetq agetq) - (spec: 1 s32vector::t s32vector::t) - (spec: 1 gerbil-system-version-string gerbil-system-version-string) - (spec: 1 vm::t vm::t) - (spec: 1 character-port? character-port?) - (spec: 1 absent-obj absent-obj) - (spec: 1 unchecked-slot-ref unchecked-slot-ref) - (spec: 1 class-type-slot-table class-type-slot-table) - (spec: 1 byte-port::t byte-port::t) - (spec: 1 plist->hash-table-string plist->hash-table-string) - (spec: 1 fxshift fxshift) - (spec: 1 hash-remove! hash-remove!) - (spec: 1 hash-find hash-find) - (spec: 1 direct-method-ref direct-method-ref) - (spec: 1 make-hash-table-symbolic make-hash-table-symbolic) - (spec: 1 dssl-optional-object? dssl-optional-object?) - (spec: 1 string-hash string-hash) - (spec: 1 replx replx) - (spec: 1 class-type-flags class-type-flags) - (spec: 1 list->hash-table-eqv list->hash-table-eqv) - (spec: 1 file-newer? file-newer?) - (spec: 1 foldr foldr) - (spec: 1 agetv agetv) - (spec: 1 as-string as-string) - (spec: 1 make-class-slot-accessor make-class-slot-accessor) - (spec: 1 constructor-init! constructor-init!) - (spec: 1 string::t string::t) - (spec: 1 table::t table::t) - (spec: 1 false false) - (spec: 1 gerbil-system-manifest gerbil-system-manifest) - (spec: 1 eqv-hash eqv-hash) - (spec: 1 time::t time::t) - (spec: 1 satisfies? satisfies?) - (spec: 1 class-type-slot-list class-type-slot-list) + (spec: 1 AST-source AST-source) + (spec: 1 hash->list hash->list) + (spec: 1 gerbil-runtime-smp? gerbil-runtime-smp?) + (spec: 1 unbound-key-error? unbound-key-error?) + (spec: 1 plist->hash-table-eqv plist->hash-table-eqv) (spec: 1 writenv? writenv?) - (spec: 1 hash-copy hash-copy) - (spec: 1 keyword->symbol keyword->symbol) - (spec: 1 fx>=0? fx>=0?) - (spec: 1 boolean::t boolean::t) - (spec: 1 with-exception-handler with-exception-handler) - (spec: 1 direct-instance? direct-instance?) - (spec: 1 dssl-object? dssl-object?) - (spec: 1 string-empty? string-empty?) + (spec: 1 object::t object::t) + (spec: 1 fx<=0? fx<=0?) + (spec: 1 char::t char::t) + (spec: 1 promise::t promise::t) + (spec: 1 vector-port::t vector-port::t) + (spec: 1 interface-descriptor-methods interface-descriptor-methods) + (spec: 1 try-cast try-cast) + (spec: 1 class->list class->list) + (spec: 1 class::t class::t) + (spec: 1 remf remf) + (spec: 1 make-hash-table-eq make-hash-table-eq) + (spec: 1 hash-put! hash-put!) + (spec: 1 foldl foldl) + (spec: 1 aget aget) + (spec: 1 create-directory* create-directory*) + (spec: 1 slot-ref slot-ref) + (spec: 1 false::t false::t) + (spec: 1 event-queue-port? event-queue-port?) + (spec: 1 immediate? immediate?) + (spec: 1 build-manifest/layer build-manifest/layer) + (spec: 1 udp-port? udp-port?) + (spec: 1 plist->hash-table-eq plist->hash-table-eq) + (spec: 1 object-type object-type) + (spec: 1 fx<0? fx<0?) + (spec: 1 processor::t processor::t) + (spec: 1 class-type-precedence-list class-type-precedence-list) + (spec: 1 make-promise make-promise) + (spec: 1 &class-type-properties &class-type-properties) (spec: 1 - make-class-slot-unchecked-mutator - make-class-slot-unchecked-mutator) - (spec: 1 &class-type-id &class-type-id) - (spec: 1 raw-device-port? raw-device-port?) - (spec: 1 symbolic-table-ref symbolic-table-ref) + raise-contract-violation-error + raise-contract-violation-error) + (spec: 1 class-type? class-type?) + (spec: 1 &interface-instance-object &interface-instance-object) + (spec: 1 cast cast) + (spec: 1 make-hash-table make-hash-table) + (spec: 1 class-type-fields class-type-fields) + (spec: 1 plist->hash-table plist->hash-table) + (spec: 1 hash-merge! hash-merge!) + (spec: 1 thread-local-set! thread-local-set!) + (spec: 1 f64vector::t f64vector::t) + (spec: 1 symbol->keyword symbol->keyword) + (spec: 1 cpxnum::t cpxnum::t) + (spec: 1 address-info::t address-info::t) + (spec: 1 string-split string-split) + (spec: 1 flonum::t flonum::t) + (spec: 1 mutex::t mutex::t) + (spec: 1 build-manifest/head build-manifest/head) + (spec: 1 immediate::t immediate::t) + (spec: 1 udp-port::t udp-port::t) + (spec: 1 fx1- fx1-) + (spec: 1 event-queue-port::t event-queue-port::t) + (spec: 1 gerbil-path gerbil-path) + (spec: 1 values::t values::t) + (spec: 1 procedure::t procedure::t) + (spec: 1 object-port? object-port?) + (spec: 1 bind-method! bind-method!) + (spec: 1 interned-symbol? interned-symbol?) + (spec: 1 byte-port? byte-port?) + (spec: 1 class-type=? class-type=?) + (spec: 1 error-object? error-object?) + (spec: 1 interface-cast-error? interface-cast-error?) + (spec: 1 class-type-field-count class-type-field-count) (spec: 1 HashTableLock::interface HashTableLock::interface) - (spec: 1 tcp-server-port::t tcp-server-port::t) - (spec: 1 nonnegative-fixnum? nonnegative-fixnum?) - (spec: 1 s8vector::t s8vector::t) - (spec: 1 display-exception display-exception) - (spec: 1 list->hash-table-symbolic list->hash-table-symbolic) - (spec: 1 bytes->string bytes->string) - (spec: 1 checked-bound-method-ref checked-bound-method-ref) - (spec: 1 void::t void::t) - (spec: 1 struct-instance-init! struct-instance-init!) - (spec: 1 current-thread-group current-thread-group) - (spec: 1 max-char-code max-char-code) - (spec: 1 class-type-slot-vector class-type-slot-vector) - (spec: 1 immediate-hash immediate-hash) - (spec: 1 pgetq pgetq) - (spec: 1 directory-port? directory-port?) - (spec: 1 make-object make-object) - (spec: - 1 - make-class-slot-unchecked-accessor - make-class-slot-unchecked-accessor) - (spec: 1 readenv? readenv?) - (spec: 1 class-type-id class-type-id) - (spec: 1 list->hash-table-string list->hash-table-string) - (spec: 1 symbolic-table-delete! symbolic-table-delete!) - (spec: 1 special? special?) - (spec: 1 dump-stack-trace! dump-stack-trace!) - (spec: 1 continuation::t continuation::t) - (spec: 1 c4-linearize c4-linearize) - (spec: 1 unchecked-slot-set! unchecked-slot-set!) - (spec: 1 gerbil-version-string gerbil-version-string) - (spec: 1 struct-copy struct-copy) - (spec: 1 vm? vm?) - (spec: 1 interface-descriptor? interface-descriptor?) - (spec: 1 port::t port::t) - (spec: 1 bignum::t bignum::t) - (spec: 1 pgetv pgetv) - (spec: 1 box::t box::t) - (spec: 1 directory-port::t directory-port::t) - (spec: 1 dssl-rest-object? dssl-rest-object?) - (spec: 1 seal-class! seal-class!) - (spec: 1 keyword-rest keyword-rest) - (spec: 1 readenv::t readenv::t) - (spec: 1 raise raise) - (spec: 1 special::t special::t) - (spec: 1 HashTableLock::t HashTableLock::t) - (spec: 1 hash-for-each hash-for-each) - (spec: 1 load-module load-module) - (spec: - 1 - datum-parsing-exception-filepos - datum-parsing-exception-filepos) - (spec: 1 gerbil-greeting gerbil-greeting) - (spec: 1 memf memf) - (spec: 1 error error) - (spec: 1 class-type-struct? class-type-struct?) - (spec: 1 foreign::t foreign::t) - (spec: 1 bound-method-ref bound-method-ref) - (spec: 1 u16vector::t u16vector::t) - (spec: 1 display* display*) - (spec: 1 exception? exception?) - (spec: 1 hash-update! hash-update!) - (spec: 1 write-u8vector write-u8vector) - (spec: 1 keyword-dispatch keyword-dispatch) - (spec: 1 class-type-metaclass? class-type-metaclass?) - (spec: 1 symbolic-table-set! symbolic-table-set!) - (spec: 1 list::t list::t) - (spec: 1 null::t null::t) - (spec: 1 assget assget) - (spec: 1 tcp-server-port? tcp-server-port?) - (spec: 1 hash-fold hash-fold) - (spec: 1 source-location-path source-location-path) - (spec: - 1 - unhandled-actor-exception-hook-set! - unhandled-actor-exception-hook-set!) - (spec: 1 void? void?) - (spec: 1 make-symbol make-symbol) - (spec: 1 struct-instance? struct-instance?) - (spec: 1 subclass? subclass?) - (spec: 1 dump-stack-trace? dump-stack-trace?) - (spec: 1 readtable::t readtable::t) - (spec: 1 interface-instance-object interface-instance-object) - (spec: 1 ormap ormap) - (spec: 1 hash-table? hash-table?) - (spec: 1 build-manifest build-manifest) - (spec: 1 string-index string-index) - (spec: 1 &class-type-name &class-type-name) - (spec: 1 symbolic? symbolic?) - (spec: 1 hash-key? hash-key?) - (spec: 1 find-method find-method) - (spec: 1 thread-local-delete! thread-local-delete!) - (spec: 1 socket-info::t socket-info::t) - (spec: 1 weak? weak?) - (spec: 1 gerbil-home gerbil-home) - (spec: 1 interface-instance? interface-instance?) - (spec: 1 substring->bytes substring->bytes) - (spec: 1 error-irritants error-irritants) - (spec: 1 true::t true::t) + (spec: 1 hash-merge hash-merge) + (spec: 1 with-dynamic-lock with-dynamic-lock) + (spec: 1 make-keyword make-keyword) + (spec: 1 substruct? substruct?) + (spec: 1 f32vector::t f32vector::t) + (spec: 1 remv remv) + (spec: 1 string-port? string-port?) + (spec: 1 make-symbolic-table make-symbolic-table) + (spec: 1 fixnum::t fixnum::t) + (spec: 1 object-port::t object-port::t) + (spec: 1 procedure-hash procedure-hash) + (spec: 1 eof-object eof-object) + (spec: 1 fx1+ fx1+) + (spec: 1 atom::t atom::t) + (spec: 1 values-ref values-ref) + (spec: 1 class-type-name class-type-name) + (spec: 1 &class-type-precedence-list &class-type-precedence-list) + (spec: 1 true? true?) + (spec: 1 checked-method-ref checked-method-ref) + (spec: 1 integer::t integer::t) + (spec: 1 class-type-system? class-type-system?) + (spec: 1 u8vector::t u8vector::t) + (spec: 1 return::t return::t) + (spec: 1 writeenv::t writeenv::t) + (spec: 1 with-catch with-catch) + (spec: 1 error? error?) + (spec: 1 make-interface-descriptor make-interface-descriptor) + (spec: 1 string-port::t string-port::t) + (spec: 1 HashTable::t HashTable::t) + (spec: 1 hash-map hash-map) + (spec: 1 spawn spawn) + (spec: 1 eq-hash eq-hash) + (spec: 1 with-exception-stack-trace with-exception-stack-trace) + (spec: 1 hash-length hash-length) + (spec: 1 object-fill! object-fill!) + (spec: 1 u8vector-port? u8vector-port?) + (spec: 1 error-trace error-trace) + (spec: 1 actor-thread? actor-thread?) + (spec: 1 fx/ fx/) + (spec: 1 thread-local-ref thread-local-ref) + (spec: 1 values-count values-count) + (spec: 1 interned-keyword? interned-keyword?) + (spec: 1 call-with-parameters call-with-parameters) (spec: 1 u64vector::t u64vector::t) - (spec: 1 string-join string-join) - (spec: 1 display-build-manifest display-build-manifest) - (spec: 1 keyword::t keyword::t) + (spec: 1 HashTable::interface HashTable::interface) + (spec: 1 syntax-error? syntax-error?) + (spec: 1 make-AST make-AST) + (spec: 1 AST-e AST-e) + (spec: 1 make-instance make-instance) + (spec: 1 read-syntax read-syntax) (spec: 1 class-type-constructor class-type-constructor) - (spec: 1 load-path load-path) - (spec: 1 symbolic::t symbolic::t) - (spec: 1 hash-get hash-get) - (spec: 1 find find) - (spec: 1 thread-group::t thread-group::t) + (spec: 1 read-syntax-from-file read-syntax-from-file) + (spec: 1 make-class-type make-class-type) + (spec: 1 display-build-manifest display-build-manifest) + (spec: 1 string-join string-join) (spec: 1 sequence? sequence?) - (spec: 1 byte-port? byte-port?) + (spec: 1 add-load-path! add-load-path!) (spec: 1 source-location? source-location?) + (spec: 1 string-rindex string-rindex) + (spec: 1 eof::t eof::t) + (spec: 1 hash-keys hash-keys) (spec: 1 build-manifest-string build-manifest-string) + (spec: 1 u8vector-port::t u8vector-port::t) + (spec: 1 error-message error-message) + (spec: 1 assgetv assgetv) + (spec: 1 hash-values hash-values) + (spec: 1 values->list values->list) (spec: 1 call-next-method call-next-method) - (spec: 1 gerbil-greeting-set! gerbil-greeting-set!) - (spec: 1 weak::t weak::t) - (spec: 1 interface-instance::t interface-instance::t) (spec: 1 class-type-methods class-type-methods) - (spec: 1 &class-type-precedence-list &class-type-precedence-list) - (spec: 1 class-type-super class-type-super) - (spec: 1 assgetv assgetv) - (spec: 1 true true) + (spec: 1 build-manifest build-manifest) (spec: 1 immediate-instance-of? immediate-instance-of?) (spec: 1 real::t real::t) (spec: 1 u32vector::t u32vector::t) - (spec: 1 frame::t frame::t) + (spec: 1 class-type-super class-type-super) + (spec: 1 thread-local-get thread-local-get) + (spec: 1 set-load-path! set-load-path!) + (spec: 1 &class-type-name &class-type-name) + (spec: 1 reload-module! reload-module!) + (spec: 1 sequence::t sequence::t) (spec: 1 display-as-string display-as-string) - (spec: 1 with-catch with-catch) - (spec: 1 make-interface-descriptor make-interface-descriptor) - (spec: 1 writeenv::t writeenv::t) - (spec: 1 HashTable::t HashTable::t) + (spec: 1 gerbil-load-expander! gerbil-load-expander!) + (spec: 1 symbolic? symbolic?) + (spec: 1 HashTableLock::t HashTableLock::t) + (spec: 1 source-location-path? source-location-path?) + (spec: 1 find-method find-method) (spec: 1 andmap andmap) - (spec: 1 remv remv) - (spec: 1 number::t number::t) - (spec: 1 sequence::t sequence::t) - (spec: 1 hash-length hash-length) (spec: 1 build-manifest-set! build-manifest-set!) - (spec: 1 u8vector-port? u8vector-port?) - (spec: 1 call-method call-method) - (spec: 1 interned-keyword? interned-keyword?) + (spec: 1 number::t number::t) + (spec: 1 substring->bytes substring->bytes) (spec: 1 method-ref method-ref) - (spec: 1 eq-hash eq-hash) - (spec: 1 values-count values-count) - (spec: 1 error-trace error-trace) - (spec: 1 source-location-path? source-location-path?) - (spec: 1 class-type=? class-type=?) - (spec: 1 assgetq assgetq) - (spec: 1 fx/ fx/) - (spec: 1 HashTable::interface HashTable::interface) - (spec: 1 write-file-string-list write-file-string-list) - (spec: 1 keyword->string keyword->string) - (spec: 1 open-event-queue open-event-queue) - (spec: - 1 - repl-result-history-max-length-set! - repl-result-history-max-length-set!) - (spec: 1 user-info-gid user-info-gid) - (spec: - 1 - cfun-conversion-exception-procedure - cfun-conversion-exception-procedure) - (spec: 1 open-string open-string) - (spec: 1 fold fold) - (spec: 1 take take) - (spec: 1 uninterned-keyword? uninterned-keyword?) - (spec: 1 bitwise-for-each bitwise-for-each) - (spec: 1 module-search-order-add! module-search-order-add!) - (spec: 1 copy-bit-field copy-bit-field) - (spec: 1 file-attributes file-attributes) - (spec: 1 random-real random-real) - (spec: 1 u8vector-set! u8vector-set!) - (spec: 1 mutex? mutex?) - (spec: 1 file-info-last-access-time file-info-last-access-time) - (spec: 1 range-exception-arguments range-exception-arguments) - (spec: 1 thread-base-priority thread-base-priority) - (spec: 1 char-set-intersection! char-set-intersection!) - (spec: 1 partition partition) - (spec: 1 fxnegative? fxnegative?) - (spec: 1 s64vector-set s64vector-set) - (spec: 1 fxwraplogical-shift-right fxwraplogical-shift-right) - (spec: 1 flacosh flacosh) - (spec: 1 tenth tenth) - (spec: 1 readtable-sharing-allowed? readtable-sharing-allowed?) - (spec: - 1 - number-of-arguments-limit-exception? - number-of-arguments-limit-exception?) - (spec: 1 flhypot flhypot) - (spec: 1 s32vector-set! s32vector-set!) - (spec: 1 vector-swap! vector-swap!) - (spec: 1 u32vector-copy! u32vector-copy!) - (spec: 1 f32vector-length f32vector-length) - (spec: 1 host-info? host-info?) - (spec: 1 make-u8vector make-u8vector) - (spec: 1 subf32vector-fill! subf32vector-fill!) - (spec: 1 u64vector-copy u64vector-copy) - (spec: 1 f64vector-length f64vector-length) - (spec: 1 bit-field-replace-same bit-field-replace-same) - (spec: 1 s8vector-ref s8vector-ref) - (spec: 1 subs8vector-move! subs8vector-move!) - (spec: 1 thread-state thread-state) - (spec: 1 with-output-to-port with-output-to-port) - (spec: 1 os-exception-message os-exception-message) - (spec: 1 s16vector-swap! s16vector-swap!) - (spec: 1 thread-state-waiting-timeout thread-state-waiting-timeout) - (spec: 1 char-set-count char-set-count) - (spec: 1 fxandc2 fxandc2) - (spec: 1 list->bits list->bits) - (spec: 1 set-box! set-box!) - (spec: - 1 - wrong-number-of-values-exception-code - wrong-number-of-values-exception-code) - (spec: 1 datum-parsing-exception-kind datum-parsing-exception-kind) - (spec: 1 file-number-of-links file-number-of-links) - (spec: 1 network-info-number network-info-number) - (spec: - 1 - readtable-case-conversion?-set - readtable-case-conversion?-set) - (spec: - 1 - noncontinuable-exception-reason - noncontinuable-exception-reason) - (spec: 1 random-source-make-integers random-source-make-integers) - (spec: 1 any-bit-set? any-bit-set?) - (spec: 1 write-file-string write-file-string) - (spec: 1 main main) - (spec: 1 u16vector-fill! u16vector-fill!) - (spec: 1 circular-list? circular-list?) - (spec: - 1 - expression-parsing-exception-kind - expression-parsing-exception-kind) - (spec: 1 print print) - (spec: 1 make-random-source make-random-source) - (spec: 1 string-shrink! string-shrink!) - (spec: 1 udp-write-subu8vector udp-write-subu8vector) - (spec: 1 divide-by-zero-exception? divide-by-zero-exception?) - (spec: 1 flonum? flonum?) - (spec: - 1 - keyword-expected-exception-procedure - keyword-expected-exception-procedure) - (spec: 1 open-dummy open-dummy) - (spec: - 1 - cfun-conversion-exception-message - cfun-conversion-exception-message) - (spec: 1 open-process open-process) - (spec: 1 flzero? flzero?) - (spec: 1 last-pair last-pair) - (spec: 1 readtable-start-syntax-set readtable-start-syntax-set) - (spec: 1 thread-join! thread-join!) - (spec: 1 bitwise-fold bitwise-fold) - (spec: 1 cosh cosh) - (spec: 1 fifth fifth) - (spec: 1 sinh sinh) - (spec: 1 u8vector-set u8vector-set) - (spec: 1 user-info user-info) - (spec: 1 current-exception-handler current-exception-handler) - (spec: 1 file-info-inode file-info-inode) - (spec: 1 mutex-unlock! mutex-unlock!) - (spec: 1 fxodd? fxodd?) - (spec: 1 char-set-size char-set-size) - (spec: 1 path-directory path-directory) - (spec: 1 s64vector-ref s64vector-ref) - (spec: 1 fxxor fxxor) - (spec: 1 acosh acosh) - (spec: 1 flacos flacos) - (spec: - 1 - invalid-hash-number-exception-procedure - invalid-hash-number-exception-procedure) - (spec: - 1 - terminated-thread-exception-procedure - terminated-thread-exception-procedure) - (spec: - 1 - number-of-arguments-limit-exception-procedure - number-of-arguments-limit-exception-procedure) - (spec: 1 flfloor flfloor) - (spec: 1 s32vector-set s32vector-set) - (spec: 1 step-level-set! step-level-set!) - (spec: 1 u32vector-copy u32vector-copy) - (spec: - 1 - wrong-number-of-values-exception? - wrong-number-of-values-exception?) - (spec: 1 f32vector-fill! f32vector-fill!) - (spec: 1 concatenate concatenate) - (spec: 1 make-u64vector make-u64vector) - (spec: 1 substring-move! substring-move!) - (spec: 1 u64vector-concatenate u64vector-concatenate) - (spec: 1 f64vector-fill! f64vector-fill!) - (spec: 1 conjugate conjugate) - (spec: 1 bit-field-replace bit-field-replace) - (spec: 1 thread-start! thread-start!) - (spec: 1 s16vector-shrink! s16vector-shrink!) - (spec: 1 length-mismatch-exception? length-mismatch-exception?) - (spec: 1 thread-state-waiting-for thread-state-waiting-for) - (spec: 1 fxarithmetic-shift-right fxarithmetic-shift-right) - (spec: 1 char-set-delete char-set-delete) - (spec: 1 subf64vector-fill! subf64vector-fill!) - (spec: 1 file-size file-size) - (spec: 1 readtable-case-conversion? readtable-case-conversion?) - (spec: - 1 - unbound-serial-number-exception? - unbound-serial-number-exception?) - (spec: 1 fixnum-overflow-exception? fixnum-overflow-exception?) - (spec: 1 random-source-make-f64vectors random-source-make-f64vectors) - (spec: 1 with-output-to-u8vector with-output-to-u8vector) - (spec: 1 any any) + (spec: 1 assgetq assgetq) + (spec: 1 gerbil-home gerbil-home) + (spec: 1 call-method call-method) + (spec: 1 class-type-struct? class-type-struct?) + (spec: 1 true::t true::t) + (spec: 1 u16vector::t u16vector::t) + (spec: 1 weak? weak?) + (spec: 1 keyword::t keyword::t) + (spec: 1 raise raise) + (spec: 1 error-irritants error-irritants) + (spec: 1 display* display*) + (spec: 1 class-type-metaclass? class-type-metaclass?) + (spec: 1 interface-instance? interface-instance?) + (spec: 1 hash-key? hash-key?) + (spec: 1 thread-local-delete! thread-local-delete!) + (spec: 1 load-path load-path) + (spec: 1 symbolic::t symbolic::t) + (spec: 1 source-location-path source-location-path) + (spec: 1 make-symbol make-symbol) + (spec: 1 assget assget) + (spec: 1 find find) + (spec: 1 null::t null::t) + (spec: 1 thread-group::t thread-group::t) + (spec: 1 hash-get hash-get) + (spec: 1 true true) + (spec: 1 ormap ormap) + (spec: 1 gerbil-greeting-set! gerbil-greeting-set!) + (spec: 1 frame::t frame::t) + (spec: 1 weak::t weak::t) + (spec: 1 box::t box::t) + (spec: 1 readtable::t readtable::t) + (spec: 1 keyword-rest keyword-rest) + (spec: 1 interface-instance::t interface-instance::t) + (spec: 1 load-module load-module) + (spec: 1 string-index string-index) + (spec: 1 socket-info::t socket-info::t) + (spec: 1 hash-for-each hash-for-each) + (spec: 1 foreign::t foreign::t) + (spec: 1 hash-update! hash-update!) + (spec: 1 gerbil-greeting gerbil-greeting) + (spec: 1 class-type-slot-vector class-type-slot-vector) + (spec: 1 bound-method-ref bound-method-ref) + (spec: 1 readenv? readenv?) + (spec: 1 write-u8vector write-u8vector) + (spec: 1 keyword-dispatch keyword-dispatch) + (spec: 1 directory-port? directory-port?) + (spec: 1 special? special?) + (spec: 1 class-type-id class-type-id) + (spec: 1 list::t list::t) + (spec: 1 continuation::t continuation::t) + (spec: 1 dump-stack-trace! dump-stack-trace!) + (spec: 1 symbolic-table-set! symbolic-table-set!) + (spec: 1 display-exception display-exception) + (spec: 1 struct-instance? struct-instance?) + (spec: 1 dump-stack-trace? dump-stack-trace?) + (spec: 1 tcp-server-port? tcp-server-port?) + (spec: 1 c4-linearize c4-linearize) + (spec: 1 port::t port::t) + (spec: 1 subclass? subclass?) + (spec: 1 pgetv pgetv) + (spec: 1 bignum::t bignum::t) + (spec: 1 void? void?) + (spec: 1 input-port-line input-port-line) + (spec: 1 filter! filter!) + (spec: 1 make-s8vector make-s8vector) + (spec: 1 process-times process-times) + (spec: 1 r7rs-raise r7rs-raise) + (spec: 1 subu64vector-move! subu64vector-move!) + (spec: 1 create-directory create-directory) + (spec: 1 bitwise-orc2 bitwise-orc2) + (spec: 1 u64vector-set u64vector-set) (spec: 1 - mailbox-receive-timeout-exception? - mailbox-receive-timeout-exception?) - (spec: 1 port-settings-set! port-settings-set!) - (spec: 1 script-file script-file) - (spec: 1 string-suffix-length-ci string-suffix-length-ci) - (spec: 1 u16vector-copy! u16vector-copy!) + unbound-key-exception-arguments + unbound-key-exception-arguments) + (spec: 1 read-file-u8vector read-file-u8vector) (spec: 1 - divide-by-zero-exception-procedure - divide-by-zero-exception-procedure) + nonprocedure-operator-exception-arguments + nonprocedure-operator-exception-arguments) + (spec: 1 fl/ fl/) + (spec: 1 open-output-bytevector open-output-bytevector) + (spec: 1 drop-right drop-right) + (spec: 1 flsinh flsinh) + (spec: 1 random-source-state-set! random-source-state-set!) + (spec: 1 current-thread current-thread) + (spec: 1 break break) + (spec: 1 file-info? file-info?) + (spec: 1 initial-current-directory initial-current-directory) + (spec: 1 readtable-max-unescaped-char readtable-max-unescaped-char) + (spec: 1 table-merge! table-merge!) + (spec: 1 flcosh flcosh) + (spec: 1 call-with-input-u8vector call-with-input-u8vector) + (spec: 1 uncaught-exception-reason uncaught-exception-reason) + (spec: 1 thread-group-resume! thread-group-resume!) + (spec: 1 open-vector-pipe open-vector-pipe) + (spec: 1 foreign-address foreign-address) + (spec: 1 s32vector-concatenate s32vector-concatenate) + (spec: 1 list-tabulate list-tabulate) + (spec: 1 fxwrap* fxwrap*) + (spec: 1 path-strip-extension path-strip-extension) (spec: 1 - keyword-expected-exception-arguments - keyword-expected-exception-arguments) - (spec: 1 thread-interrupt! thread-interrupt!) - (spec: 1 user-info-name user-info-name) - (spec: 1 readtable-start-syntax readtable-start-syntax) - (spec: 1 open-tcp-client open-tcp-client) - (spec: 1 u8vector->object u8vector->object) - (spec: 1 bitwise-ior bitwise-ior) - (spec: 1 file-device file-device) - (spec: 1 module-whitelist-add! module-whitelist-add!) - (spec: 1 range-exception? range-exception?) - (spec: 1 u8vector-swap! u8vector-swap!) + display-continuation-environment + display-continuation-environment) + (spec: 1 flmin flmin) + (spec: 1 join-timeout-exception? join-timeout-exception?) + (spec: 1 thread-quantum-set! thread-quantum-set!) (spec: 1 - file-info-last-modification-time - file-info-last-modification-time) - (spec: 1 replace-bit-field replace-bit-field) - (spec: 1 s32vector-swap! s32vector-swap!) - (spec: 1 vector-unfold-right vector-unfold-right) - (spec: 1 fxnot fxnot) - (spec: 1 char-set-ref char-set-ref) - (spec: 1 s64vector-shrink! s64vector-shrink!) - (spec: 1 address-info-family address-info-family) - (spec: 1 fxwrapsquare fxwrapsquare) - (spec: 1 take-right take-right) - (spec: 1 flasin flasin) + rpc-remote-error-exception-arguments + rpc-remote-error-exception-arguments) + (spec: 1 fx= fx=) + (spec: 1 char-set-adjoin! char-set-adjoin!) + (spec: 1 s64vector-append s64vector-append) + (spec: 1 u16vector? u16vector?) + (spec: 1 string=?-hash string=?-hash) + (spec: 1 protocol-info? protocol-info?) + (spec: 1 condition-variable-signal! condition-variable-signal!) (spec: 1 - invalid-hash-number-exception-arguments - invalid-hash-number-exception-arguments) + thread-state-normally-terminated? + thread-state-normally-terminated?) + (spec: 1 s16vector-copy! s16vector-copy!) + (spec: 1 err-code->string err-code->string) + (spec: 1 char-set-filter char-set-filter) + (spec: 1 fxior fxior) + (spec: 1 list->s8vector list->s8vector) + (spec: 1 s8vector->list s8vector->list) + (spec: 1 make-f64vector make-f64vector) + (spec: 1 pretty-print pretty-print) + (spec: 1 tty-history-set! tty-history-set!) + (spec: 1 vector-cas! vector-cas!) + (spec: 1 u32vector-swap! u32vector-swap!) + (spec: 1 seventh seventh) + (spec: 1 subs32vector-move! subs32vector-move!) + (spec: 1 bits->vector bits->vector) + (spec: 1 with-input-from-port with-input-from-port) + (spec: 1 udp-destination-set! udp-destination-set!) + (spec: 1 read-file-string-list read-file-string-list) + (spec: 1 input-port-column input-port-column) + (spec: 1 deadlock-exception? deadlock-exception?) + (spec: 1 filter filter) + (spec: 1 make-s64vector make-s64vector) + (spec: 1 asinh asinh) + (spec: 1 extract-bit-field extract-bit-field) + (spec: 1 process-status process-status) + (spec: 1 subu64vector-fill! subu64vector-fill!) + (spec: 1 random-source-state-ref random-source-state-ref) + (spec: 1 multiple-c-return-exception? multiple-c-return-exception?) + (spec: 1 bitwise-orc1 bitwise-orc1) + (spec: 1 file-exists-exception? file-exists-exception?) + (spec: 1 u64vector-ref u64vector-ref) (spec: 1 - not-in-compilation-context-exception-procedure - not-in-compilation-context-exception-procedure) + readtable-keywords-allowed?-set + readtable-keywords-allowed?-set) + (spec: 1 fl- fl-) + (spec: 1 sixth sixth) + (spec: 1 drop drop) + (spec: 1 flsin flsin) + (spec: 1 open-input-vector open-input-vector) + (spec: 1 u8vector-fill! u8vector-fill!) + (spec: 1 file-info-type file-info-type) + (spec: 1 table-merge table-merge) + (spec: 1 uncaught-exception-procedure uncaught-exception-procedure) + (spec: 1 call-with-input-string call-with-input-string) + (spec: 1 flcos flcos) + (spec: 1 thread-group-parent thread-group-parent) + (spec: 1 open-vector open-vector) + (spec: 1 s32vector-append s32vector-append) + (spec: 1 list-sort! list-sort!) + (spec: 1 fxsquare fxsquare) + (spec: 1 char-set-xor! char-set-xor!) + (spec: 1 compile-file-to-target compile-file-to-target) + (spec: 1 path-strip-directory path-strip-directory) + (spec: 1 tcp-client-self-socket-info tcp-client-self-socket-info) (spec: 1 - terminated-thread-exception-arguments - terminated-thread-exception-arguments) - (spec: 1 flinfinite? flinfinite?) - (spec: 1 directory-files directory-files) - (spec: 1 step step) - (spec: 1 u32vector-length u32vector-length) + join-timeout-exception-procedure + join-timeout-exception-procedure) (spec: 1 - unterminated-process-exception-procedure - unterminated-process-exception-procedure) + display-continuation-dynamic-environment + display-continuation-dynamic-environment) + (spec: 1 flmax flmax) + (spec: 1 object->u8vector object->u8vector) + (spec: 1 thread-quantum thread-quantum) + (spec: 1 output-port-line output-port-line) + (spec: 1 fx<= fx<=) + (spec: 1 char-set-adjoin char-set-adjoin) + (spec: 1 top top) + (spec: 1 s64vector->list s64vector->list) + (spec: 1 string-contains-ci string-contains-ci) + (spec: 1 address-infos address-infos) + (spec: 1 gc-report-set! gc-report-set!) + (spec: 1 u16vector-swap! u16vector-swap!) + (spec: 1 subs32vector-fill! subs32vector-fill!) + (spec: 1 f32vector? f32vector?) + (spec: 1 condition-variable-name condition-variable-name) + (spec: 1 protocol-info-number protocol-info-number) (spec: 1 - wrong-number-of-values-exception-vals - wrong-number-of-values-exception-vals) - (spec: 1 substring-fill! substring-fill!) - (spec: 1 f32vector-ref f32vector-ref) - (spec: 1 proper-list? proper-list?) - (spec: 1 u64vector-fill! u64vector-fill!) - (spec: 1 bit-field-rotate bit-field-rotate) - (spec: 1 f64vector-ref f64vector-ref) + thread-state-normally-terminated-result + thread-state-normally-terminated-result) + (spec: 1 s16vector-copy s16vector-copy) + (spec: 1 list->s64vector list->s64vector) + (spec: 1 eqv?-hash eqv?-hash) + (spec: 1 char-set-every char-set-every) + (spec: 1 fxif fxif) + (spec: 1 s8vector s8vector) + (spec: 1 make-f32vector make-f32vector) + (spec: 1 started-thread-exception? started-thread-exception?) + (spec: 1 apropos apropos) + (spec: 1 string-prefix-ci? string-prefix-ci?) + (spec: 1 tty-history-max-length-set! tty-history-max-length-set!) + (spec: 1 subu32vector-move! subu32vector-move!) + (spec: 1 f64vector? f64vector?) + (spec: 1 bits->list bits->list) + (spec: 1 u32vector-shrink! u32vector-shrink!) + (spec: 1 xcons xcons) + (spec: 1 read-file-string read-file-string) (spec: 1 - thread-state-abnormally-terminated-reason - thread-state-abnormally-terminated-reason) - (spec: 1 list->char-set! list->char-set!) - (spec: 1 os-exception? os-exception?) - (spec: 1 thread-suspend! thread-suspend!) - (spec: 1 vector-fold-right vector-fold-right) - (spec: 1 fxarithmetic-shift-left fxarithmetic-shift-left) - (spec: 1 char-set-cursor-next char-set-cursor-next) - (spec: 1 subf64vector subf64vector) + input-port-characters-buffered + input-port-characters-buffered) + (spec: 1 ninth ninth) + (spec: 1 unbound-global-exception? unbound-global-exception?) + (spec: 1 type-exception? type-exception?) + (spec: 1 make-s32vector make-s32vector) + (spec: 1 help-browser help-browser) + (spec: 1 bitwise-not bitwise-not) + (spec: 1 serial-number->object serial-number->object) + (spec: 1 subu64vector subu64vector) + (spec: 1 u8vector-copy! u8vector-copy!) + (spec: 1 write-substring write-substring) (spec: 1 - datum-parsing-exception-readenv - datum-parsing-exception-readenv) - (spec: 1 readtable-comment-handler-set readtable-comment-handler-set) - (spec: 1 table->list table->list) + file-exists-exception-procedure + file-exists-exception-procedure) + (spec: 1 uncaught-exception-arguments uncaught-exception-arguments) + (spec: 1 readtable-keywords-allowed? readtable-keywords-allowed?) + (spec: 1 integer-sqrt integer-sqrt) + (spec: 1 fl+* fl+*) + (spec: 1 open-input-u8vector open-input-u8vector) + (spec: 1 dotted-list? dotted-list?) + (spec: 1 flscalbn flscalbn) + (spec: 1 current-readtable current-readtable) + (spec: 1 call-with-input-process call-with-input-process) + (spec: 1 file-info-size file-info-size) + (spec: 1 table-length table-length) + (spec: 1 readtable? readtable?) (spec: 1 - unbound-serial-number-exception-procedure - unbound-serial-number-exception-procedure) + unknown-keyword-argument-exception? + unknown-keyword-argument-exception?) + (spec: 1 flceiling flceiling) + (spec: 1 thread-group-name thread-group-name) + (spec: 1 user-name user-name) + (spec: 1 eighth eighth) + (spec: 1 open-udp open-udp) + (spec: 1 thread? thread?) + (spec: 1 s64vector s64vector) + (spec: 1 list-sort list-sort) + (spec: 1 char-set-xor char-set-xor) + (spec: 1 fxremainder fxremainder) + (spec: 1 string->keyword string->keyword) + (spec: 1 thread-priority thread-priority) (spec: 1 - fixnum-overflow-exception-procedure - fixnum-overflow-exception-procedure) + join-timeout-exception-arguments + join-timeout-exception-arguments) (spec: 1 - inactive-thread-exception-arguments - inactive-thread-exception-arguments) - (spec: 1 type-exception-arguments type-exception-arguments) - (spec: 1 s8vector-set! s8vector-set!) - (spec: 1 with-output-to-string with-output-to-string) - (spec: 1 string-suffix-length string-suffix-length) - (spec: 1 seconds->time seconds->time) - (spec: 1 write-file-u8vector write-file-u8vector) - (spec: 1 input-port-byte-position input-port-byte-position) + display-continuation-backtrace + display-continuation-backtrace) + (spec: 1 char-set-difference! char-set-difference!) + (spec: 1 fllog1p fllog1p) + (spec: 1 object->string object->string) + (spec: 1 repl-backtrace-detail-level repl-backtrace-detail-level) + (spec: 1 output-port-column output-port-column) + (spec: 1 char-set->string char-set->string) + (spec: 1 fx< fx<) + (spec: 1 s16vector-concatenate s16vector-concatenate) + (spec: 1 thread-priority-boost-set! thread-priority-boost-set!) + (spec: 1 permission-denied-exception? permission-denied-exception?) + (spec: 1 address-info? address-info?) + (spec: 1 string-contains string-contains) + (spec: 1 u16vector-shrink! u16vector-shrink!) + (spec: 1 setenv setenv) + (spec: 1 f32vector-swap! f32vector-swap!) + (spec: 1 condition-variable-broadcast! condition-variable-broadcast!) + (spec: 1 protocol-info-name protocol-info-name) + (spec: 1 subs32vector subs32vector) + (spec: 1 s32vector->list s32vector->list) + (spec: 1 list->s32vector list->s32vector) + (spec: 1 fxfirst-set-bit fxfirst-set-bit) (spec: 1 - expression-parsing-exception-source - expression-parsing-exception-source) + started-thread-exception-procedure + started-thread-exception-procedure) + (spec: 1 vector-any vector-any) + (spec: 1 tty-history tty-history) + (spec: 1 with-exception-handler with-exception-handler) + (spec: 1 write-subu8vector write-subu8vector) + (spec: 1 u32vector-set! u32vector-set!) + (spec: 1 subu32vector-fill! subu32vector-fill!) + (spec: 1 f64vector-swap! f64vector-swap!) + (spec: 1 bits bits) + (spec: 1 fl+ fl+) (spec: 1 - thread-group->thread-group-vector - thread-group->thread-group-vector) - (spec: 1 open-file open-file) - (spec: 1 thread-mailbox-next thread-mailbox-next) - (spec: 1 user-info-home user-info-home) - (spec: 1 cfun-conversion-exception? cfun-conversion-exception?) - (spec: 1 fold-right fold-right) - (spec: 1 open-string-pipe open-string-pipe) - (spec: 1 random-source-make-u8vectors random-source-make-u8vectors) - (spec: 1 u8vector->list u8vector->list) - (spec: 1 file-creation-time file-creation-time) - (spec: 1 bitwise-if bitwise-if) - (spec: 1 module-search-order-reset! module-search-order-reset!) - (spec: 1 u8vector-shrink! u8vector-shrink!) - (spec: 1 file-info-last-change-time file-info-last-change-time) - (spec: 1 keyword-hash keyword-hash) - (spec: 1 void void) - (spec: 1 s32vector-shrink! s32vector-shrink!) - (spec: 1 char-set-unfold! char-set-unfold!) - (spec: 1 fxorc2 fxorc2) - (spec: 1 will-testator will-testator) - (spec: 1 s64vector-set! s64vector-set!) + unbound-global-exception-variable + unbound-global-exception-variable) + (spec: 1 input-port-char-position input-port-char-position) + (spec: 1 dead-end dead-end) + (spec: 1 u16vector-set u16vector-set) + (spec: 1 make-s16vector make-s16vector) + (spec: 1 file-info-owner file-info-owner) + (spec: 1 bitwise-nor bitwise-nor) + (spec: 1 process-pid process-pid) + (spec: 1 symbol-hash symbol-hash) + (spec: 1 inactive-thread-exception? inactive-thread-exception?) (spec: 1 - readtable-write-cdr-read-macros?-set - readtable-write-cdr-read-macros?-set) - (spec: 1 uninterned-symbol? uninterned-symbol?) + file-exists-exception-arguments + file-exists-exception-arguments) + (spec: 1 random-source-randomize! random-source-randomize!) + (spec: 1 u8vector-copy u8vector-copy) + (spec: 1 table-for-each table-for-each) + (spec: 1 readtable-eval-allowed?-set readtable-eval-allowed?-set) + (spec: 1 integer-nth-root integer-nth-root) + (spec: 1 force-output force-output) (spec: 1 - not-in-compilation-context-exception-arguments - not-in-compilation-context-exception-arguments) - (spec: 1 remove! remove!) + nonempty-input-port-character-buffer-exception? + nonempty-input-port-character-buffer-exception?) + (spec: 1 thread-group->thread-vector thread-group->thread-vector) + (spec: 1 flround flround) + (spec: 1 box? box?) + (spec: 1 ucs-range->char-set! ucs-range->char-set!) + (spec: 1 current-processor current-processor) + (spec: 1 fllog fllog) + (spec: 1 tcp-client-peer-socket-info tcp-client-peer-socket-info) (spec: 1 - unterminated-process-exception-arguments - unterminated-process-exception-arguments) - (spec: 1 call/cc call/cc) - (spec: 1 flilogb flilogb) - (spec: 1 path-expand path-expand) - (spec: 1 subs16vector subs16vector) - (spec: 1 u32vector-fill! u32vector-fill!) + readtable-write-extended-read-macros?-set + readtable-write-extended-read-macros?-set) + (spec: 1 flatanh flatanh) + (spec: 1 not-pair? not-pair?) (spec: 1 - wrong-processor-c-return-exception? - wrong-processor-c-return-exception?) - (spec: 1 subu16vector-fill! subu16vector-fill!) - (spec: 1 u64vector-copy! u64vector-copy!) - (spec: 1 cons* cons*) - (spec: 1 bit-field-reverse bit-field-reverse) - (spec: 1 vector->bits vector->bits) - (spec: 1 list->char-set list->char-set) - (spec: 1 fx* fx*) - (spec: 1 thread-state-waiting? thread-state-waiting?) - (spec: 1 s16vector? s16vector?) - (spec: 1 char-set-diff+intersection char-set-diff+intersection) - (spec: 1 fxbit-set? fxbit-set?) - (spec: 1 unbound-global-exception-rte unbound-global-exception-rte) + unknown-keyword-argument-exception-procedure + unknown-keyword-argument-exception-procedure) + (spec: 1 thread-name thread-name) + (spec: 1 split-at! split-at!) + (spec: 1 open-u8vector-pipe open-u8vector-pipe) + (spec: 1 address-info-socket-type address-info-socket-type) + (spec: 1 char-set-union! char-set-union!) + (spec: 1 user-info? user-info?) + (spec: 1 thread-yield! thread-yield!) + (spec: 1 path-normalize path-normalize) + (spec: 1 fxquotient fxquotient) + (spec: 1 string->char-set! string->char-set!) + (spec: 1 rename-file rename-file) + (spec: 1 object->serial-number object->serial-number) + (spec: 1 char-set->list char-set->list) + (spec: 1 s16vector-append s16vector-append) + (spec: 1 output-port-char-position output-port-char-position) + (spec: 1 fx- fx-) + (spec: 1 thread-priority-boost thread-priority-boost) + (spec: 1 with-exception-catcher with-exception-catcher) + (spec: 1 string-concatenate string-concatenate) (spec: 1 - nonempty-input-port-character-buffer-exception-procedure - nonempty-input-port-character-buffer-exception-procedure) + permission-denied-exception-procedure + permission-denied-exception-procedure) + (spec: 1 bit-swap bit-swap) + (spec: 1 u16vector-set! u16vector-set!) + (spec: 1 protocol-info-aliases protocol-info-aliases) + (spec: 1 f32vector-shrink! f32vector-shrink!) + (spec: 1 char-set-difference char-set-difference) + (spec: 1 subs16vector-move! subs16vector-move!) + (spec: 1 thread-state-initialized? thread-state-initialized?) + (spec: 1 s32vector s32vector) + (spec: 1 equal?-hash equal?-hash) + (spec: 1 fxeven? fxeven?) + (spec: 1 list->s16vector list->s16vector) (spec: 1 - datum-parsing-exception-parameters - datum-parsing-exception-parameters) - (spec: 1 unbreak unbreak) - (spec: 1 readtable-comment-handler readtable-comment-handler) - (spec: 1 fl* fl*) - (spec: 1 type-exception-arg-id type-exception-arg-id) - (spec: 1 s8vector-set s8vector-set) - (spec: 1 any-bits-set? any-bits-set?) - (spec: 1 get-output-u8vector get-output-u8vector) - (spec: 1 string-swap! string-swap!) - (spec: 1 second second) - (spec: 1 u16vector-length u16vector-length) + started-thread-exception-arguments + started-thread-exception-arguments) + (spec: 1 s8vector? s8vector?) + (spec: 1 make-condition-variable make-condition-variable) + (spec: 1 getenv getenv) + (spec: 1 append-reverse! append-reverse!) + (spec: 1 console-port console-port) + (spec: 1 pp pp) + (spec: 1 subu32vector subu32vector) + (spec: 1 f64vector-shrink! f64vector-shrink!) + (spec: 1 u32vector-set u32vector-set) + (spec: 1 unbound-global-exception-rte unbound-global-exception-rte) + (spec: 1 datum-parsing-exception? datum-parsing-exception?) + (spec: 1 arithmetic-shift arithmetic-shift) (spec: 1 heap-overflow-exception? heap-overflow-exception?) + (spec: 1 input-port-bytes-buffered input-port-bytes-buffered) + (spec: 1 u16vector-ref u16vector-ref) + (spec: 1 make-root-thread make-root-thread) + (spec: 1 string-swap! string-swap!) + (spec: 1 bitwise-nand bitwise-nand) (spec: 1 - expression-parsing-exception-parameters - expression-parsing-exception-parameters) - (spec: - 1 - thread-group->thread-group-list - thread-group->thread-group-list) - (spec: 1 open-u8vector open-u8vector) - (spec: 1 flpositive? flpositive?) - (spec: 1 split-at split-at) + random-source-pseudo-randomize! + random-source-pseudo-randomize!) (spec: 1 - thread-mailbox-extract-and-rewind - thread-mailbox-extract-and-rewind) - (spec: 1 user-info-uid user-info-uid) + inactive-thread-exception-procedure + inactive-thread-exception-procedure) + (spec: 1 cpu-time cpu-time) + (spec: 1 fl* fl*) + (spec: 1 u8vector-concatenate u8vector-concatenate) + (spec: 1 readtable-eval-allowed? readtable-eval-allowed?) + (spec: 1 integer-length integer-length) + (spec: 1 flpositive? flpositive?) (spec: 1 - invalid-hash-number-exception? - invalid-hash-number-exception?) - (spec: 1 u8vector-concatenate u8vector-concatenate) - (spec: 1 random-source-make-reals random-source-make-reals) - (spec: 1 bitwise-nand bitwise-nand) - (spec: 1 ucs-range->char-set ucs-range->char-set) - (spec: 1 box box) + nonempty-input-port-character-buffer-exception-procedure + nonempty-input-port-character-buffer-exception-procedure) + (spec: 1 table-copy table-copy) + (spec: 1 thread-group->thread-list thread-group->thread-list) + (spec: 1 unbreak unbreak) + (spec: 1 keyword? keyword?) (spec: 1 file-info-number-of-links file-info-number-of-links) - (spec: 1 keyword-expected-exception? keyword-expected-exception?) - (spec: 1 list-set list-set) + (spec: 1 box box) (spec: 1 open-input-process open-input-process) - (spec: 1 char-set-unfold char-set-unfold) - (spec: 1 fxorc1 fxorc1) - (spec: 1 s64vector? s64vector?) - (spec: 1 string-ci=?-hash string-ci=?-hash) - (spec: 1 will-execute! will-execute!) - (spec: 1 address-info-socket-info address-info-socket-info) - (spec: 1 fxzero? fxzero?) + (spec: 1 ucs-range->char-set ucs-range->char-set) + (spec: 1 flatan flatan) + (spec: 1 tcp-client-local-socket-info tcp-client-local-socket-info) (spec: 1 - readtable-write-cdr-read-macros? - readtable-write-cdr-read-macros?) - (spec: 1 tanh tanh) + readtable-write-extended-read-macros? + readtable-write-extended-read-macros?) (spec: 1 unknown-keyword-argument-exception-arguments unknown-keyword-argument-exception-arguments) - (spec: 1 flatan flatan) - (spec: 1 terminated-thread-exception? terminated-thread-exception?) - (spec: 1 remove remove) + (spec: 1 thread-mailbox-rewind thread-mailbox-rewind) + (spec: 1 split-at split-at) + (spec: 1 open-u8vector open-u8vector) + (spec: 1 char-set-union char-set-union) + (spec: 1 user-info-uid user-info-uid) + (spec: 1 string->char-set string->char-set) + (spec: 1 fxpositive? fxpositive?) (spec: 1 car+cdr car+cdr) + (spec: 1 list-set list-set) + (spec: 1 path-extension path-extension) + (spec: 1 remq remq) + (spec: 1 test-bit-field? test-bit-field?) + (spec: 1 fxeqv fxeqv) + (spec: 1 char-set char-set) (spec: 1 untrace untrace) - (spec: 1 subf64vector-move! subf64vector-move!) - (spec: 1 u32vector-ref u32vector-ref) - (spec: 1 concatenate! concatenate!) - (spec: 1 f64vector-set! f64vector-set!) - (spec: 1 subu16vector subu16vector) - (spec: 1 bit-set? bit-set?) (spec: 1 s16vector->list s16vector->list) - (spec: 1 list->f64vector list->f64vector) - (spec: 1 vector-inc! vector-inc!) - (spec: 1 thread-thread-group thread-thread-group) - (spec: 1 char-set-delete! char-set-delete!) + (spec: 1 output-port-byte-position output-port-byte-position) + (spec: 1 fx+ fx+) + (spec: 1 address-info-socket-info address-info-socket-info) + (spec: 1 s64vector? s64vector?) + (spec: + 1 + permission-denied-exception-arguments + permission-denied-exception-arguments) + (spec: 1 will? will?) + (spec: 1 u32vector-ref u32vector-ref) + (spec: 1 subs16vector-fill! subs16vector-fill!) (spec: 1 f32vector-set! f32vector-set!) - (spec: 1 fxbit-count fxbit-count) - (spec: 1 input-port-char-position input-port-char-position) - (spec: 1 unbound-global-exception-code unbound-global-exception-code) + (spec: 1 char-set-diff+intersection! char-set-diff+intersection!) + (spec: 1 identity identity) + (spec: 1 protocol-info protocol-info) + (spec: 1 thread-thread-group thread-thread-group) + (spec: 1 list->f64vector list->f64vector) + (spec: 1 append-reverse append-reverse) + (spec: 1 help help) + (spec: 1 type-exception-type-id type-exception-type-id) + (spec: 1 s8vector-swap! s8vector-swap!) + (spec: 1 get-output-vector get-output-vector) + (spec: 1 bit-set? bit-set?) + (spec: 1 subu16vector-move! subu16vector-move!) + (spec: 1 f64vector-set! f64vector-set!) + (spec: + 1 + datum-parsing-exception-readenv + datum-parsing-exception-readenv) (spec: 1 file-type file-type) - (spec: 1 integer-nth-root integer-nth-root) (spec: 1 nonempty-input-port-character-buffer-exception-arguments nonempty-input-port-character-buffer-exception-arguments) - (spec: 1 readtable-eval-allowed?-set readtable-eval-allowed?-set) - (spec: 1 table-for-each table-for-each) - (spec: 1 module-whitelist-reset! module-whitelist-reset!) - (spec: 1 fixnum? fixnum?) - (spec: 1 s8vector-swap! s8vector-swap!) - (spec: 1 type-exception-type-id type-exception-type-id) - (spec: 1 unbox unbox) - (spec: 1 with-output-to-vector with-output-to-vector) - (spec: 1 append-reverse append-reverse) - (spec: 1 make-s16vector make-s16vector) - (spec: 1 string-suffix? string-suffix?) - (spec: 1 u16vector-set u16vector-set) - (spec: 1 dead-end dead-end) - (spec: 1 thread-group->thread-vector thread-group->thread-vector) - (spec: 1 open-tcp-server open-tcp-server) - (spec: 1 user-info-shell user-info-shell) - (spec: 1 thread-name thread-name) + (spec: 1 unbound-global-exception-code unbound-global-exception-code) + (spec: 1 input-port-byte-position input-port-byte-position) (spec: 1 - not-in-compilation-context-exception? - not-in-compilation-context-exception?) - (spec: 1 random-source-randomize! random-source-randomize!) - (spec: 1 inactive-thread-exception? inactive-thread-exception?) - (spec: 1 symbol-hash symbol-hash) + expression-parsing-exception-source + expression-parsing-exception-source) + (spec: 1 seconds->time seconds->time) + (spec: 1 string-suffix? string-suffix?) (spec: 1 bitwise-merge bitwise-merge) - (spec: 1 current-processor current-processor) - (spec: 1 u8vector-append u8vector-append) - (spec: 1 u8vector? u8vector?) - (spec: 1 file-info-mode file-info-mode) - (spec: 1 path-normalize path-normalize) - (spec: 1 s32vector? s32vector?) - (spec: 1 string->char-set! string->char-set!) - (spec: 1 char-set-union! char-set-union!) + (spec: 1 random-source-make-u8vectors random-source-make-u8vectors) (spec: 1 - permission-denied-exception-procedure - permission-denied-exception-procedure) - (spec: 1 s64vector-swap! s64vector-swap!) - (spec: 1 string-concatenate string-concatenate) - (spec: 1 with-exception-catcher with-exception-catcher) - (spec: 1 fx- fx-) - (spec: 1 address-info-protocol address-info-protocol) + inactive-thread-exception-arguments + inactive-thread-exception-arguments) + (spec: 1 fixnum? fixnum?) + (spec: 1 module-whitelist-reset! module-whitelist-reset!) + (spec: 1 u8vector-append u8vector-append) + (spec: 1 table->list table->list) + (spec: 1 readtable-comment-handler-set readtable-comment-handler-set) + (spec: 1 open-tcp-server open-tcp-server) + (spec: 1 unbox unbox) (spec: 1 - readtable-write-extended-read-macros?-set - readtable-write-extended-read-macros?-set) - (spec: 1 tcp-client-peer-socket-info tcp-client-peer-socket-info) + thread-group->thread-group-vector + thread-group->thread-group-vector) + (spec: 1 keyword-hash keyword-hash) + (spec: 1 file-info-mode file-info-mode) + (spec: 1 u8vector? u8vector?) (spec: 1 flasinh flasinh) - (spec: 1 rename-file rename-file) - (spec: - 1 - unterminated-process-exception? - unterminated-process-exception?) - (spec: 1 fxquotient fxquotient) - (spec: 1 flinteger? flinteger?) - (spec: 1 make-will make-will) - (spec: 1 protocol-info-aliases protocol-info-aliases) - (spec: 1 subs16vector-move! subs16vector-move!) - (spec: 1 f64vector-set f64vector-set) - (spec: 1 subu32vector subu32vector) - (spec: 1 u64vector-length u64vector-length) - (spec: 1 getenv getenv) - (spec: 1 bit-field-set bit-field-set) - (spec: 1 console-port console-port) - (spec: 1 output-port-char-position output-port-char-position) - (spec: 1 s16vector s16vector) - (spec: 1 fxeven? fxeven?) - (spec: 1 char-set->list char-set->list) - (spec: 1 eq?-hash eq?-hash) - (spec: 1 list->f32vector list->f32vector) - (spec: - 1 - started-thread-exception-arguments - started-thread-exception-arguments) - (spec: - 1 - thread-state-abnormally-terminated? - thread-state-abnormally-terminated?) - (spec: 1 char-set-difference char-set-difference) - (spec: 1 f32vector-set f32vector-set) - (spec: 1 input-port-bytes-buffered input-port-bytes-buffered) - (spec: 1 ninth ninth) - (spec: 1 thread-terminate! thread-terminate!) - (spec: 1 fl+* fl+*) - (spec: 1 unbound-global-exception? unbound-global-exception?) - (spec: 1 readtable-eval-allowed? readtable-eval-allowed?) - (spec: 1 integer-length integer-length) - (spec: 1 table-copy table-copy) - (spec: 1 uncaught-exception-arguments uncaught-exception-arguments) - (spec: - 1 - file-exists-exception-procedure - file-exists-exception-procedure) - (spec: 1 cpu-time cpu-time) - (spec: 1 make-bitwise-generator make-bitwise-generator) - (spec: 1 pp pp) - (spec: 1 s8vector-shrink! s8vector-shrink!) - (spec: 1 help-browser help-browser) - (spec: 1 append! append!) - (spec: 1 expression-parsing-exception? expression-parsing-exception?) - (spec: 1 make-root-thread make-root-thread) - (spec: 1 type-exception-procedure type-exception-procedure) - (spec: 1 u16vector-ref u16vector-ref) - (spec: 1 datum-parsing-exception? datum-parsing-exception?) - (spec: 1 arithmetic-shift arithmetic-shift) - (spec: 1 keyword? keyword?) - (spec: 1 open-input-u8vector open-input-u8vector) - (spec: 1 thread-group->thread-list thread-group->thread-list) - (spec: 1 write-substring write-substring) - (spec: 1 open-udp open-udp) - (spec: 1 thread-mailbox-rewind thread-mailbox-rewind) - (spec: 1 user-name user-name) - (spec: 1 flceiling flceiling) (spec: 1 - random-source-pseudo-randomize! - random-source-pseudo-randomize!) + readtable-write-cdr-read-macros?-set + readtable-write-cdr-read-macros?-set) (spec: 1 - inactive-thread-exception-procedure - inactive-thread-exception-procedure) - (spec: 1 u8vector-copy! u8vector-copy!) - (spec: 1 file-info-size file-info-size) - (spec: 1 bitwise-not bitwise-not) - (spec: 1 flscalbn flscalbn) - (spec: 1 list-sort list-sort) - (spec: 1 path-extension path-extension) - (spec: 1 s64vector s64vector) - (spec: 1 link-flat link-flat) - (spec: 1 address-info? address-info?) - (spec: 1 char-set-union char-set-union) - (spec: 1 string->char-set string->char-set) + not-in-compilation-context-exception? + not-in-compilation-context-exception?) + (spec: 1 thread-mailbox-next thread-mailbox-next) + (spec: 1 user-info-shell user-info-shell) + (spec: 1 fxorc2 fxorc2) + (spec: 1 char-set-unfold! char-set-unfold!) + (spec: 1 s32vector? s32vector?) + (spec: 1 path-expand path-expand) + (spec: 1 flinteger? flinteger?) + (spec: 1 void void) + (spec: 1 remove! remove!) + (spec: 1 eq?-hash eq?-hash) + (spec: 1 fx* fx*) (spec: 1 - permission-denied-exception-arguments - permission-denied-exception-arguments) - (spec: 1 thread? thread?) - (spec: 1 will? will?) - (spec: 1 fx+ fx+) + unterminated-process-exception? + unterminated-process-exception?) (spec: 1 - readtable-write-extended-read-macros? - readtable-write-extended-read-macros?) + thread-state-abnormally-terminated? + thread-state-abnormally-terminated?) + (spec: 1 s16vector s16vector) + (spec: 1 vector->bits vector->bits) + (spec: 1 address-info-protocol address-info-protocol) + (spec: 1 will-testator will-testator) + (spec: 1 s64vector-swap! s64vector-swap!) + (spec: 1 f64vector-set f64vector-set) + (spec: 1 subs16vector subs16vector) + (spec: 1 make-will make-will) + (spec: 1 f32vector-set f32vector-set) + (spec: 1 char-set-diff+intersection char-set-diff+intersection) + (spec: 1 fxbit-set? fxbit-set?) + (spec: 1 thread-terminate! thread-terminate!) + (spec: 1 list->f32vector list->f32vector) + (spec: 1 expression-parsing-exception? expression-parsing-exception?) + (spec: 1 append! append!) + (spec: 1 get-output-u8vector get-output-u8vector) + (spec: 1 type-exception-procedure type-exception-procedure) + (spec: 1 s8vector-shrink! s8vector-shrink!) + (spec: 1 make-bitwise-generator make-bitwise-generator) + (spec: 1 bit-field-set bit-field-set) + (spec: 1 cons* cons*) (spec: 1 - unknown-keyword-argument-exception? - unknown-keyword-argument-exception?) - (spec: 1 tcp-client-local-socket-info tcp-client-local-socket-info) - (spec: 1 fllog1p fllog1p) - (spec: 1 call-with-input-process call-with-input-process) - (spec: 1 object->string object->string) - (spec: 1 remq remq) - (spec: 1 test-bit-field? test-bit-field?) - (spec: 1 fxpositive? fxpositive?) - (spec: 1 f32vector-swap! f32vector-swap!) - (spec: 1 protocol-info protocol-info) - (spec: 1 setenv setenv) - (spec: 1 bits bits) - (spec: 1 subs16vector-fill! subs16vector-fill!) - (spec: 1 f64vector-swap! f64vector-swap!) - (spec: 1 subu16vector-move! subu16vector-move!) - (spec: 1 u16vector-shrink! u16vector-shrink!) - (spec: 1 u32vector-set! u32vector-set!) - (spec: 1 get-output-vector get-output-vector) - (spec: 1 thread-priority-set! thread-priority-set!) - (spec: 1 output-port-byte-position output-port-byte-position) - (spec: 1 s16vector-concatenate s16vector-concatenate) - (spec: 1 thread-priority-boost-set! thread-priority-boost-set!) - (spec: 1 fxeqv fxeqv) - (spec: 1 char-set char-set) - (spec: 1 list->s32vector list->s32vector) - (spec: 1 s32vector->list s32vector->list) - (spec: 1 identity identity) - (spec: 1 char-set-diff+intersection! char-set-diff+intersection!) - (spec: 1 deadlock-exception? deadlock-exception?) - (spec: 1 input-port-column input-port-column) - (spec: 1 read-file-string-list read-file-string-list) + wrong-processor-c-return-exception? + wrong-processor-c-return-exception?) + (spec: 1 u64vector-length u64vector-length) + (spec: 1 subu16vector-fill! subu16vector-fill!) (spec: 1 - unbound-global-exception-variable - unbound-global-exception-variable) - (spec: 1 fl+ fl+) + datum-parsing-exception-parameters + datum-parsing-exception-parameters) + (spec: 1 file-size file-size) (spec: 1 - nonempty-input-port-character-buffer-exception? - nonempty-input-port-character-buffer-exception?) + expression-parsing-exception-parameters + expression-parsing-exception-parameters) + (spec: 1 second second) + (spec: 1 module-whitelist-add! module-whitelist-add!) + (spec: 1 file-device file-device) + (spec: 1 bitwise-ior bitwise-ior) + (spec: 1 string-suffix-length-ci string-suffix-length-ci) + (spec: 1 u16vector-length u16vector-length) + (spec: 1 random-source-make-reals random-source-make-reals) + (spec: 1 u8vector->object u8vector->object) + (spec: 1 fixnum-overflow-exception? fixnum-overflow-exception?) + (spec: 1 readtable-comment-handler readtable-comment-handler) (spec: 1 - readtable-keywords-allowed?-set - readtable-keywords-allowed?-set) + unbound-serial-number-exception? + unbound-serial-number-exception?) (spec: 1 - file-exists-exception-arguments - file-exists-exception-arguments) - (spec: 1 tty-history tty-history) - (spec: 1 asinh asinh) - (spec: 1 help help) - (spec: 1 extract-bit-field extract-bit-field) - (spec: 1 make-s64vector make-s64vector) - (spec: 1 process-pid process-pid) - (spec: 1 drop drop) - (spec: 1 force-output force-output) - (spec: 1 split-at! split-at!) - (spec: 1 open-u8vector-pipe open-u8vector-pipe) - (spec: 1 thread-group-parent thread-group-parent) - (spec: 1 user-info? user-info?) - (spec: 1 flatanh flatanh) - (spec: 1 subu64vector-fill! subu64vector-fill!) - (spec: 1 random-source-state-ref random-source-state-ref) - (spec: 1 u8vector-copy u8vector-copy) - (spec: 1 file-info-owner file-info-owner) - (spec: 1 bitwise-nor bitwise-nor) - (spec: 1 ucs-range->char-set! ucs-range->char-set!) - (spec: 1 flround flround) - (spec: 1 box? box?) - (spec: 1 fxsquare fxsquare) - (spec: 1 path-strip-directory path-strip-directory) - (spec: 1 thread-yield! thread-yield!) - (spec: 1 address-info-socket-type address-info-socket-type) - (spec: 1 gc-report-set! gc-report-set!) - (spec: 1 string-contains-ci string-contains-ci) - (spec: 1 char-set-adjoin char-set-adjoin) - (spec: 1 not-pair? not-pair?) - (spec: 1 table-merge table-merge) + thread-group->thread-group-list + thread-group->thread-group-list) + (spec: 1 keyword-expected-exception? keyword-expected-exception?) (spec: 1 - unknown-keyword-argument-exception-procedure - unknown-keyword-argument-exception-procedure) - (spec: 1 fllog fllog) + file-info-last-modification-time + file-info-last-modification-time) + (spec: 1 u8vector-swap! u8vector-swap!) (spec: 1 - join-timeout-exception-procedure - join-timeout-exception-procedure) + not-in-compilation-context-exception-procedure + not-in-compilation-context-exception-procedure) + (spec: 1 flasin flasin) + (spec: 1 tanh tanh) (spec: 1 - display-continuation-dynamic-environment - display-continuation-dynamic-environment) - (spec: 1 object->serial-number object->serial-number) - (spec: 1 tcp-client-self-socket-info tcp-client-self-socket-info) - (spec: 1 char-set-xor! char-set-xor!) - (spec: 1 protocol-info-number protocol-info-number) - (spec: 1 f32vector-shrink! f32vector-shrink!) - (spec: 1 subs32vector-fill! subs32vector-fill!) - (spec: 1 u16vector-set! u16vector-set!) - (spec: 1 bit-swap bit-swap) - (spec: 1 f64vector-shrink! f64vector-shrink!) - (spec: 1 subu32vector-move! subu32vector-move!) - (spec: 1 u32vector-set u32vector-set) - (spec: 1 append-reverse! append-reverse!) - (spec: 1 output-port-line output-port-line) - (spec: 1 fx<= fx<=) - (spec: 1 thread-priority-boost thread-priority-boost) - (spec: 1 s16vector-append s16vector-append) - (spec: 1 char-set-every char-set-every) - (spec: 1 xcons xcons) - (spec: 1 fxif fxif) - (spec: 1 equal?-hash equal?-hash) - (spec: 1 list->s16vector list->s16vector) - (spec: 1 s32vector s32vector) - (spec: 1 condition-variable-name condition-variable-name) - (spec: 1 started-thread-exception? started-thread-exception?) + readtable-write-cdr-read-macros? + readtable-write-cdr-read-macros?) (spec: 1 - input-port-characters-buffered - input-port-characters-buffered) - (spec: 1 filter! filter!) - (spec: 1 read-file-string read-file-string) - (spec: 1 thread-state-initialized? thread-state-initialized?) - (spec: 1 fl/ fl/) - (spec: 1 integer-sqrt integer-sqrt) + invalid-hash-number-exception? + invalid-hash-number-exception?) + (spec: 1 open-tcp-client open-tcp-client) (spec: 1 - nonprocedure-operator-exception-arguments - nonprocedure-operator-exception-arguments) - (spec: 1 readtable-keywords-allowed? readtable-keywords-allowed?) - (spec: 1 bitwise-orc2 bitwise-orc2) + thread-mailbox-extract-and-rewind + thread-mailbox-extract-and-rewind) + (spec: 1 user-info-name user-info-name) + (spec: 1 fxorc1 fxorc1) + (spec: 1 char-set-unfold char-set-unfold) + (spec: 1 s32vector-swap! s32vector-swap!) + (spec: 1 flinfinite? flinfinite?) + (spec: 1 remove remove) + (spec: 1 terminated-thread-exception? terminated-thread-exception?) (spec: 1 - unbound-key-exception-arguments - unbound-key-exception-arguments) - (spec: 1 make-condition-variable make-condition-variable) - (spec: 1 string-prefix-ci? string-prefix-ci?) - (spec: 1 s8vector? s8vector?) - (spec: 1 process-times process-times) - (spec: 1 make-s32vector make-s32vector) - (spec: 1 serial-number->object serial-number->object) - (spec: 1 type-exception? type-exception?) - (spec: 1 open-output-bytevector open-output-bytevector) - (spec: 1 flsinh flsinh) - (spec: 1 dotted-list? dotted-list?) - (spec: 1 foreign-address foreign-address) - (spec: 1 eighth eighth) - (spec: 1 open-vector-pipe open-vector-pipe) - (spec: 1 thread-group-name thread-group-name) - (spec: 1 call-with-input-u8vector call-with-input-u8vector) - (spec: 1 subu64vector subu64vector) - (spec: 1 u64vector-set u64vector-set) - (spec: 1 break break) - (spec: 1 file-info? file-info?) - (spec: 1 current-readtable current-readtable) - (spec: 1 fxremainder fxremainder) - (spec: 1 list-tabulate list-tabulate) - (spec: 1 s32vector-concatenate s32vector-concatenate) - (spec: 1 string->keyword string->keyword) - (spec: 1 permission-denied-exception? permission-denied-exception?) - (spec: 1 s64vector-append s64vector-append) - (spec: 1 string-contains string-contains) - (spec: 1 char-set->string char-set->string) - (spec: 1 flcosh flcosh) - (spec: 1 table-length table-length) - (spec: 1 readtable? readtable?) - (spec: 1 uncaught-exception-reason uncaught-exception-reason) - (spec: 1 flmin flmin) + unterminated-process-exception-procedure + unterminated-process-exception-procedure) + (spec: + 1 + thread-state-abnormally-terminated-reason + thread-state-abnormally-terminated-reason) + (spec: 1 fxzero? fxzero?) + (spec: 1 address-info-family address-info-family) + (spec: 1 s64vector-shrink! s64vector-shrink!) + (spec: 1 f32vector-ref f32vector-ref) + (spec: 1 concatenate! concatenate!) + (spec: 1 string-ci=?-hash string-ci=?-hash) + (spec: 1 will-execute! will-execute!) + (spec: 1 u32vector-length u32vector-length) + (spec: 1 subf64vector-move! subf64vector-move!) + (spec: 1 fxbit-count fxbit-count) + (spec: 1 char-set-delete! char-set-delete!) + (spec: 1 thread-suspend! thread-suspend!) + (spec: 1 vector-inc! vector-inc!) + (spec: 1 list->char-set! list->char-set!) + (spec: 1 s8vector-set! s8vector-set!) + (spec: 1 type-exception-arguments type-exception-arguments) + (spec: 1 f64vector-ref f64vector-ref) + (spec: 1 bit-field-rotate bit-field-rotate) + (spec: 1 with-output-to-vector with-output-to-vector) + (spec: 1 u64vector-fill! u64vector-fill!) + (spec: 1 subu16vector subu16vector) + (spec: 1 datum-parsing-exception-kind datum-parsing-exception-kind) + (spec: 1 make-random-source make-random-source) (spec: 1 - display-continuation-backtrace - display-continuation-backtrace) + expression-parsing-exception-kind + expression-parsing-exception-kind) + (spec: 1 u16vector-fill! u16vector-fill!) + (spec: 1 write-file-u8vector write-file-u8vector) + (spec: 1 cosh cosh) + (spec: 1 bitwise-if bitwise-if) + (spec: 1 file-creation-time file-creation-time) + (spec: 1 module-search-order-reset! module-search-order-reset!) + (spec: 1 random-source-make-integers random-source-make-integers) + (spec: 1 u8vector->list u8vector->list) (spec: 1 - join-timeout-exception-arguments - join-timeout-exception-arguments) - (spec: 1 repl-backtrace-detail-level repl-backtrace-detail-level) - (spec: 1 char-set-xor char-set-xor) - (spec: 1 protocol-info-name protocol-info-name) - (spec: 1 write-subu8vector write-subu8vector) - (spec: 1 subs32vector subs32vector) - (spec: 1 u16vector? u16vector?) - (spec: 1 bits->vector bits->vector) - (spec: 1 seventh seventh) - (spec: 1 subu32vector-fill! subu32vector-fill!) - (spec: 1 thread-priority thread-priority) - (spec: 1 u32vector-swap! u32vector-swap!) - (spec: 1 output-port-column output-port-column) - (spec: 1 fx< fx<) + fixnum-overflow-exception-procedure + fixnum-overflow-exception-procedure) (spec: 1 - rpc-remote-error-exception-arguments - rpc-remote-error-exception-arguments) - (spec: 1 thread-quantum-set! thread-quantum-set!) - (spec: 1 char-set-difference! char-set-difference!) - (spec: 1 err-code->string err-code->string) - (spec: 1 fxfirst-set-bit fxfirst-set-bit) - (spec: 1 list->s8vector list->s8vector) - (spec: 1 s16vector-copy! s16vector-copy!) - (spec: 1 condition-variable-broadcast! condition-variable-broadcast!) + unbound-serial-number-exception-procedure + unbound-serial-number-exception-procedure) (spec: 1 - started-thread-exception-procedure - started-thread-exception-procedure) - (spec: 1 filter filter) + readtable-case-conversion?-set + readtable-case-conversion?-set) + (spec: 1 divide-by-zero-exception? divide-by-zero-exception?) (spec: 1 - thread-state-normally-terminated? - thread-state-normally-terminated?) - (spec: 1 udp-destination-set! udp-destination-set!) - (spec: 1 vector-any vector-any) - (spec: 1 fl- fl-) - (spec: 1 bitwise-orc1 bitwise-orc1) - (spec: 1 make-f64vector make-f64vector) - (spec: 1 s8vector->list s8vector->list) - (spec: 1 tty-history-set! tty-history-set!) - (spec: 1 with-exception-handler with-exception-handler) - (spec: 1 process-status process-status) - (spec: 1 scheduler-exception-reason scheduler-exception-reason) - (spec: 1 drop-right! drop-right!) - (spec: 1 flsin flsin) - (spec: 1 open-input-vector open-input-vector) - (spec: 1 sixth sixth) - (spec: 1 open-vector open-vector) - (spec: 1 thread-group-specific thread-group-specific) - (spec: 1 call-with-input-string call-with-input-string) - (spec: 1 create-fifo create-fifo) - (spec: 1 file-exists-exception? file-exists-exception?) - (spec: 1 multiple-c-return-exception? multiple-c-return-exception?) - (spec: 1 r7rs-raise-continuable r7rs-raise-continuable) - (spec: 1 subu8vector subu8vector) - (spec: 1 u64vector-ref u64vector-ref) - (spec: 1 current-time current-time) - (spec: 1 file-info-type file-info-type) - (spec: 1 random-source? random-source?) - (spec: 1 u8vector-fill! u8vector-fill!) - (spec: 1 fxwrap+ fxwrap+) + keyword-expected-exception-procedure + keyword-expected-exception-procedure) + (spec: 1 open-file open-file) + (spec: 1 current-exception-handler current-exception-handler) + (spec: 1 file-info-last-change-time file-info-last-change-time) + (spec: 1 u8vector-shrink! u8vector-shrink!) (spec: 1 - path-strip-trailing-directory-separator - path-strip-trailing-directory-separator) - (spec: 1 list-sort! list-sort!) - (spec: 1 s32vector-append s32vector-append) - (spec: 1 address-infos address-infos) - (spec: 1 s64vector->list s64vector->list) - (spec: 1 top top) - (spec: 1 flcos flcos) + invalid-hash-number-exception-procedure + invalid-hash-number-exception-procedure) (spec: 1 - readtable-max-unescaped-char-set - readtable-max-unescaped-char-set) - (spec: 1 uncaught-exception-procedure uncaught-exception-procedure) - (spec: 1 table-ref table-ref) - (spec: 1 display-exception display-exception) - (spec: 1 flmax flmax) - (spec: 1 object->u8vector object->u8vector) - (spec: 1 real-time real-time) - (spec: 1 f32vector? f32vector?) - (spec: 1 condition-variable-specific condition-variable-specific) - (spec: 1 u16vector-swap! u16vector-swap!) - (spec: 1 f64vector? f64vector?) - (spec: 1 bits->list bits->list) - (spec: 1 continuation-capture continuation-capture) - (spec: 1 subs64vector subs64vector) - (spec: 1 u32vector-shrink! u32vector-shrink!) - (spec: 1 fx> fx>) - (spec: 1 char-set-any char-set-any) - (spec: 1 output-port-readtable output-port-readtable) - (spec: 1 thread-quantum thread-quantum) - (spec: 1 eqv?-hash eqv?-hash) - (spec: 1 char-set-filter! char-set-filter!) - (spec: 1 fxlength fxlength) - (spec: 1 list->s64vector list->s64vector) - (spec: 1 s16vector-copy s16vector-copy) + not-in-compilation-context-exception-arguments + not-in-compilation-context-exception-arguments) + (spec: 1 readtable-start-syntax-set readtable-start-syntax-set) + (spec: 1 last-pair last-pair) + (spec: 1 fold-right fold-right) + (spec: 1 cfun-conversion-exception? cfun-conversion-exception?) + (spec: 1 open-string-pipe open-string-pipe) + (spec: 1 thread-join! thread-join!) + (spec: 1 path-directory path-directory) + (spec: 1 fxodd? fxodd?) + (spec: 1 char-set-size char-set-size) + (spec: 1 uninterned-symbol? uninterned-symbol?) + (spec: 1 user-info-home user-info-home) + (spec: 1 s32vector-shrink! s32vector-shrink!) + (spec: 1 step-level-set! step-level-set!) + (spec: 1 flilogb flilogb) + (spec: 1 call/cc call/cc) (spec: 1 - thread-state-normally-terminated-result - thread-state-normally-terminated-result) - (spec: 1 vector-concatenate vector-concatenate) - (spec: 1 input-port-line input-port-line) - (spec: 1 fl<= fl<=) + terminated-thread-exception-procedure + terminated-thread-exception-procedure) + (spec: 1 list->char-set list->char-set) (spec: 1 - nonprocedure-operator-exception-operator - nonprocedure-operator-exception-operator) - (spec: 1 read-file-u8vector read-file-u8vector) - (spec: 1 unbound-key-exception? unbound-key-exception?) - (spec: 1 group-info group-info) - (spec: 1 apropos apropos) - (spec: 1 s8vector s8vector) - (spec: 1 make-f32vector make-f32vector) - (spec: 1 ->char-set ->char-set) - (spec: 1 tty-history-max-length-set! tty-history-max-length-set!) - (spec: 1 with-input-from-process with-input-from-process) - (spec: 1 string-prefix-length-ci string-prefix-length-ci) - (spec: 1 make-s8vector make-s8vector) - (spec: 1 flsquare flsquare) - (spec: 1 drop-right drop-right) - (spec: 1 open-output-process open-output-process) - (spec: 1 foreign-released? foreign-released?) - (spec: 1 thread-group-resume! thread-group-resume!) - (spec: 1 file-info file-info) - (spec: 1 create-directory create-directory) - (spec: 1 bitwise-xor bitwise-xor) - (spec: 1 mutex-lock! mutex-lock!) - (spec: 1 r7rs-raise r7rs-raise) - (spec: 1 shell-command shell-command) + unterminated-process-exception-arguments + unterminated-process-exception-arguments) + (spec: 1 fxxor fxxor) + (spec: 1 s64vector-set! s64vector-set!) + (spec: 1 concatenate concatenate) + (spec: 1 u32vector-fill! u32vector-fill!) + (spec: 1 subf64vector-fill! subf64vector-fill!) (spec: 1 - file-last-access-and-modification-times-set! - file-last-access-and-modification-times-set!) - (spec: 1 current-thread current-thread) - (spec: 1 initial-current-directory initial-current-directory) - (spec: 1 random-source-state-set! random-source-state-set!) - (spec: 1 subu64vector-move! subu64vector-move!) - (spec: 1 abort abort) - (spec: 1 fxwrap* fxwrap*) - (spec: 1 list->table list->table) - (spec: 1 path-strip-extension path-strip-extension) - (spec: 1 s32vector-copy! s32vector-copy!) - (spec: 1 u64vector-shrink! u64vector-shrink!) - (spec: 1 s64vector-copy s64vector-copy) - (spec: 1 fleven? fleven?) - (spec: 1 readtable-max-unescaped-char readtable-max-unescaped-char) - (spec: 1 table-merge! table-merge!) + wrong-number-of-values-exception? + wrong-number-of-values-exception?) + (spec: 1 fxarithmetic-shift-right fxarithmetic-shift-right) + (spec: 1 char-set-delete char-set-delete) + (spec: 1 s16vector? s16vector?) + (spec: 1 port-settings-set! port-settings-set!) + (spec: 1 any-bits-set? any-bits-set?) + (spec: 1 thread-state-waiting? thread-state-waiting?) + (spec: 1 type-exception-arg-id type-exception-arg-id) + (spec: 1 s8vector-set s8vector-set) + (spec: 1 with-output-to-u8vector with-output-to-u8vector) + (spec: 1 bit-field-reverse bit-field-reverse) + (spec: 1 conjugate conjugate) + (spec: 1 u64vector-copy! u64vector-copy!) + (spec: 1 readtable-case-conversion? readtable-case-conversion?) + (spec: 1 network-info? network-info?) + (spec: 1 file-owner file-owner) + (spec: 1 substring-move! substring-move!) + (spec: 1 udp-write-u8vector udp-write-u8vector) + (spec: 1 string-suffix-ci? string-suffix-ci?) + (spec: 1 println println) + (spec: 1 clear-bit-field clear-bit-field) + (spec: 1 u16vector-copy! u16vector-copy!) + (spec: 1 range-exception? range-exception?) + (spec: 1 module-search-order-add! module-search-order-add!) + (spec: 1 file-attributes file-attributes) + (spec: 1 bitwise-for-each bitwise-for-each) + (spec: 1 write-file-string-list write-file-string-list) + (spec: 1 u8vector u8vector) + (spec: 1 random-source-make-f64vectors random-source-make-f64vectors) + (spec: 1 noncontinuable-exception? noncontinuable-exception?) (spec: 1 - display-continuation-environment - display-continuation-environment) - (spec: 1 flnegative? flnegative?) - (spec: 1 join-timeout-exception? join-timeout-exception?) - (spec: 1 bit-count bit-count) - (spec: 1 condition-variable-signal! condition-variable-signal!) - (spec: 1 make-thread make-thread) - (spec: 1 f64vector->list f64vector->list) - (spec: 1 protocol-info? protocol-info?) - (spec: 1 service-info-aliases service-info-aliases) - (spec: 1 bitwise-andc1 bitwise-andc1) - (spec: 1 string=?-hash string=?-hash) - (spec: 1 subs32vector-move! subs32vector-move!) + fixnum-overflow-exception-arguments + fixnum-overflow-exception-arguments) + (spec: + 1 + unbound-serial-number-exception-arguments + unbound-serial-number-exception-arguments) + (spec: + 1 + keyword-expected-exception-arguments + keyword-expected-exception-arguments) + (spec: + 1 + divide-by-zero-exception-procedure + divide-by-zero-exception-procedure) + (spec: 1 open-event-queue open-event-queue) + (spec: 1 link-incremental link-incremental) + (spec: 1 replace-bit-field replace-bit-field) + (spec: 1 file-info-last-access-time file-info-last-access-time) + (spec: 1 mutex? mutex?) + (spec: 1 u8vector-set! u8vector-set!) (spec: 1 - sfun-conversion-exception-arguments - sfun-conversion-exception-arguments) - (spec: 1 fx= fx=) - (spec: 1 char-set-adjoin! char-set-adjoin!) - (spec: 1 end-of-char-set? end-of-char-set?) - (spec: 1 length+ length+) + invalid-hash-number-exception-arguments + invalid-hash-number-exception-arguments) + (spec: 1 flacosh flacosh) + (spec: 1 take-right take-right) + (spec: 1 readtable-start-syntax readtable-start-syntax) + (spec: 1 open-string open-string) + (spec: 1 fold fold) (spec: 1 - rpc-remote-error-exception-procedure - rpc-remote-error-exception-procedure) - (spec: 1 fxior fxior) - (spec: 1 char-set-filter char-set-filter) - (spec: 1 thread-resume! thread-resume!) - (spec: 1 s16vector-length s16vector-length) + cfun-conversion-exception-procedure + cfun-conversion-exception-procedure) + (spec: 1 thread-interrupt! thread-interrupt!) + (spec: 1 uninterned-keyword? uninterned-keyword?) + (spec: 1 user-info-gid user-info-gid) + (spec: 1 fxnot fxnot) + (spec: 1 char-set-ref char-set-ref) + (spec: 1 s32vector-set! s32vector-set!) + (spec: 1 step step) + (spec: 1 directory-files directory-files) + (spec: 1 flhypot flhypot) (spec: 1 - thread-state-running-processor - thread-state-running-processor) - (spec: 1 vector-cas! vector-cas!) + number-of-arguments-limit-exception? + number-of-arguments-limit-exception?) (spec: 1 - initialized-thread-exception-procedure - initialized-thread-exception-procedure) - (spec: 1 default-random-source default-random-source) - (spec: 1 udp-local-socket-info udp-local-socket-info) - (spec: 1 fl< fl<) - (spec: 1 input-port-readtable-set! input-port-readtable-set!) - (spec: 1 delete delete) + terminated-thread-exception-arguments + terminated-thread-exception-arguments) + (spec: 1 vector-unfold-right vector-unfold-right) + (spec: 1 os-exception? os-exception?) + (spec: 1 thread-state thread-state) + (spec: 1 fxwrapsquare fxwrapsquare) + (spec: 1 s64vector-set s64vector-set) + (spec: 1 make-u8vector make-u8vector) + (spec: 1 f32vector-length f32vector-length) + (spec: 1 proper-list? proper-list?) + (spec: 1 substring-fill! substring-fill!) + (spec: 1 set-box! set-box!) + (spec: 1 list->bits list->bits) + (spec: 1 fxarithmetic-shift-left fxarithmetic-shift-left) + (spec: 1 char-set-cursor-next char-set-cursor-next) + (spec: 1 subf64vector subf64vector) + (spec: 1 thread-state-waiting-timeout thread-state-waiting-timeout) + (spec: 1 s16vector-swap! s16vector-swap!) + (spec: 1 main main) + (spec: 1 any-bit-set? any-bit-set?) + (spec: 1 string-suffix-length string-suffix-length) + (spec: 1 u32vector-copy! u32vector-copy!) + (spec: 1 s8vector-ref s8vector-ref) + (spec: 1 vector-fold-right vector-fold-right) + (spec: 1 f64vector-length f64vector-length) + (spec: 1 bit-field-replace-same bit-field-replace-same) + (spec: 1 with-output-to-string with-output-to-string) + (spec: 1 u64vector-copy u64vector-copy) (spec: 1 - nonprocedure-operator-exception-code - nonprocedure-operator-exception-code) - (spec: 1 read-substring read-substring) - (spec: 1 system-type system-type) + wrong-number-of-values-exception-vals + wrong-number-of-values-exception-vals) + (spec: 1 network-info-number network-info-number) + (spec: 1 file-number-of-links file-number-of-links) + (spec: 1 script-directory script-directory) + (spec: 1 print print) + (spec: 1 circular-list? circular-list?) + (spec: 1 string-shrink! string-shrink!) + (spec: 1 udp-write-subu8vector udp-write-subu8vector) + (spec: 1 u16vector-copy u16vector-copy) + (spec: 1 sinh sinh) + (spec: 1 copy-file copy-file) + (spec: 1 bitwise-fold bitwise-fold) + (spec: 1 fifth fifth) + (spec: 1 u8vector-set u8vector-set) (spec: 1 - unbound-key-exception-procedure - unbound-key-exception-procedure) - (spec: 1 pretty-print pretty-print) - (spec: 1 s8vector-concatenate s8vector-concatenate) + noncontinuable-exception-reason + noncontinuable-exception-reason) + (spec: 1 repl-result-history-ref repl-result-history-ref) + (spec: 1 user-info user-info) (spec: 1 - tty-paren-balance-duration-set! - tty-paren-balance-duration-set!) - (spec: 1 with-input-from-port with-input-from-port) - (spec: 1 f32vector->list f32vector->list) - (spec: 1 string-prefix-length string-prefix-length) - (spec: 1 u16vector u16vector) - (spec: 1 flsqrt flsqrt) - (spec: 1 third third) - (spec: 1 repl-highlight-source-level repl-highlight-source-level) - (spec: 1 foreign-release! foreign-release!) - (spec: 1 thread-group-suspend! thread-group-suspend!) - (spec: 1 file-group file-group) - (spec: 1 bitwise-unfold bitwise-unfold) - (spec: 1 create-symbolic-link create-symbolic-link) - (spec: 1 raise raise) - (spec: 1 subu8vector-move! subu8vector-move!) - (spec: 1 file-inode file-inode) - (spec: 1 u64vector-set! u64vector-set!) - (spec: 1 u8vector-length u8vector-length) - (spec: 1 abandoned-mutex-exception? abandoned-mutex-exception?) - (spec: 1 fxwrapabs fxwrapabs) - (spec: 1 s32vector-copy s32vector-copy) - (spec: 1 vector-set vector-set) - (spec: 1 char-set= char-set=) - (spec: 1 path-volume path-volume) - (spec: 1 string->uninterned-symbol string->uninterned-symbol) - (spec: 1 s64vector-concatenate s64vector-concatenate) - (spec: 1 fldenominator fldenominator) - (spec: 1 call-with-input-vector call-with-input-vector) - (spec: 1 link-incremental link-incremental) - (spec: 1 null-list? null-list?) + divide-by-zero-exception-arguments + divide-by-zero-exception-arguments) + (spec: 1 flonum? flonum?) + (spec: 1 open-dummy open-dummy) + (spec: 1 thread-base-priority-set! thread-base-priority-set!) + (spec: 1 range-exception-procedure range-exception-procedure) + (spec: 1 mutex-unlock! mutex-unlock!) + (spec: 1 current-directory current-directory) + (spec: 1 file-info-inode file-info-inode) (spec: 1 - readtable-max-write-length-set - readtable-max-write-length-set) - (spec: 1 flnan? flnan?) + readtable-sharing-allowed?-set + readtable-sharing-allowed?-set) + (spec: 1 delete-file-or-directory delete-file-or-directory) + (spec: 1 flacos flacos) + (spec: 1 take! take!) + (spec: 1 open-process open-process) + (spec: 1 flzero? flzero?) (spec: 1 - invalid-utf8-encoding-exception-arguments - invalid-utf8-encoding-exception-arguments) - (spec: 1 table-set! table-set!) - (spec: 1 uncaught-exception? uncaught-exception?) - (spec: 1 condition-variable? condition-variable?) - (spec: 1 make-table make-table) - (spec: 1 f64vector f64vector) - (spec: 1 processor-id processor-id) - (spec: 1 service-info service-info) - (spec: 1 continuation-return continuation-return) - (spec: 1 bitwise-and bitwise-and) + cfun-conversion-exception-message + cfun-conversion-exception-message) + (spec: 1 s64vector-ref s64vector-ref) + (spec: 1 partition! partition!) + (spec: 1 fxnor fxnor) + (spec: 1 char-set-map char-set-map) + (spec: 1 thread-init! thread-init!) + (spec: 1 vector-unfold vector-unfold) + (spec: 1 s32vector-set s32vector-set) + (spec: 1 iota iota) + (spec: 1 flfloor flfloor) (spec: 1 - wrong-number-of-arguments-exception-procedure - wrong-number-of-arguments-exception-procedure) - (spec: 1 subs64vector-move! subs64vector-move!) - (spec: 1 u32vector? u32vector?) - (spec: 1 char-set-complement! char-set-complement!) - (spec: 1 fxabs fxabs) + number-of-arguments-limit-exception-procedure + number-of-arguments-limit-exception-procedure) + (spec: 1 s16vector-shrink! s16vector-shrink!) + (spec: 1 length-mismatch-exception? length-mismatch-exception?) + (spec: 1 os-exception-procedure os-exception-procedure) + (spec: 1 thread-start! thread-start!) + (spec: 1 fxwrapquotient fxwrapquotient) + (spec: 1 acosh acosh) + (spec: 1 make-u64vector make-u64vector) + (spec: 1 f32vector-fill! f32vector-fill!) + (spec: 1 compilation-target compilation-target) + (spec: 1 host-name host-name) + (spec: 1 subf32vector-move! subf32vector-move!) + (spec: 1 stack-overflow-exception? stack-overflow-exception?) + (spec: 1 fxarithmetic-shift fxarithmetic-shift) + (spec: 1 char-set-cursor char-set-cursor) + (spec: 1 u32vector-copy u32vector-copy) + (spec: 1 thread-state-waiting-for thread-state-waiting-for) + (spec: 1 script-file script-file) (spec: 1 - rpc-remote-error-exception-message - rpc-remote-error-exception-message) - (spec: 1 thread-receive thread-receive) - (spec: 1 char-set-for-each char-set-for-each) - (spec: 1 output-port-timeout-set! output-port-timeout-set!) - (spec: 1 fxmin fxmin) - (spec: 1 error error) - (spec: 1 s16vector-fill! s16vector-fill!) + mailbox-receive-timeout-exception? + mailbox-receive-timeout-exception?) + (spec: 1 any any) (spec: 1 - initialized-thread-exception-arguments - initialized-thread-exception-arguments) - (spec: 1 first-set-bit first-set-bit) - (spec: 1 network-info network-info) - (spec: 1 udp-read-subu8vector udp-read-subu8vector) + port-io-exception-handler-set! + port-io-exception-handler-set!) + (spec: 1 vector-fold vector-fold) + (spec: 1 with-output-to-process with-output-to-process) (spec: 1 - no-such-file-or-directory-exception-procedure - no-such-file-or-directory-exception-procedure) - (spec: 1 compile-file compile-file) - (spec: 1 fl> fl>) - (spec: 1 input-port-readtable input-port-readtable) - (spec: 1 system-stamp system-stamp) + wrong-number-of-values-exception-rte + wrong-number-of-values-exception-rte) + (spec: 1 bit-field-replace bit-field-replace) + (spec: 1 configure-command-string configure-command-string) + (spec: 1 f64vector-fill! f64vector-fill!) + (spec: 1 system-version-string system-version-string) + (spec: 1 u64vector-concatenate u64vector-concatenate) + (spec: 1 network-info-name network-info-name) + (spec: 1 file-mode file-mode) + (spec: 1 udp-source-socket-info udp-source-socket-info) + (spec: 1 primordial-exception-handler primordial-exception-handler) + (spec: 1 group-info? group-info?) + (spec: 1 random-real random-real) + (spec: 1 copy-bit-field copy-bit-field) + (spec: 1 module-not-found-exception? module-not-found-exception?) + (spec: 1 subvector-move! subvector-move!) (spec: 1 - unbound-os-environment-variable-exception-arguments - unbound-os-environment-variable-exception-arguments) - (spec: 1 group-info-members group-info-members) - (spec: 1 s8vector-append s8vector-append) - (spec: 1 tty-mode-set! tty-mode-set!) - (spec: 1 with-input-from-u8vector with-input-from-u8vector) - (spec: 1 f32vector f32vector) - (spec: 1 host-info-addresses host-info-addresses) - (spec: 1 scheduler-exception? scheduler-exception?) - (spec: 1 fltanh fltanh) - (spec: 1 repl-error-port repl-error-port) - (spec: 1 open-output-u8vector open-output-u8vector) - (spec: 1 socket-info-family socket-info-family) - (spec: 1 thread-group-specific-set! thread-group-specific-set!) + unbound-os-environment-variable-exception? + unbound-os-environment-variable-exception?) + (spec: 1 fixnum->flonum fixnum->flonum) + (spec: + 1 + repl-result-history-max-length-set! + repl-result-history-max-length-set!) + (spec: 1 keyword->string keyword->string) (spec: 1 - module-not-found-exception-arguments - module-not-found-exception-arguments) - (spec: 1 create-link create-link) - (spec: 1 file-info-creation-time file-info-creation-time) - (spec: 1 r7rs-with-exception-handler r7rs-with-exception-handler) - (spec: 1 subu8vector-fill! subu8vector-fill!) - (spec: 1 mutex-specific mutex-specific) + cfun-conversion-exception-code + cfun-conversion-exception-code) + (spec: 1 open-directory open-directory) + (spec: 1 thread-priority-set! thread-priority-set!) + (spec: 1 range-exception-arguments range-exception-arguments) + (spec: 1 mutex-state mutex-state) + (spec: 1 file-info-group file-info-group) + (spec: 1 thread-base-priority thread-base-priority) + (spec: 1 u8vector-ref u8vector-ref) + (spec: 1 tenth tenth) + (spec: 1 readtable-sharing-allowed? readtable-sharing-allowed?) (spec: 1 - current-user-interrupt-handler - current-user-interrupt-handler) - (spec: 1 file-last-change-time file-last-change-time) - (spec: 1 random-u8vector random-u8vector) - (spec: 1 u64vector? u64vector?) - (spec: 1 error-exception-parameters error-exception-parameters) - (spec: 1 fxwrap- fxwrap-) - (spec: 1 list->u32vector list->u32vector) - (spec: 1 s32vector-length s32vector-length) - (spec: 1 char-set<= char-set<=) - (spec: 1 time? time?) - (spec: 1 path-strip-volume path-strip-volume) - (spec: 1 s64vector-fill! s64vector-fill!) - (spec: 1 string->uninterned-keyword string->uninterned-keyword) - (spec: 1 call-with-output-string call-with-output-string) + uninitialized-thread-exception? + uninitialized-thread-exception?) + (spec: 1 flabs flabs) + (spec: 1 call-with-output-vector call-with-output-vector) + (spec: 1 take take) + (spec: 1 socket-info? socket-info?) + (spec: 1 s32vector-ref s32vector-ref) + (spec: 1 list->u8vector list->u8vector) + (spec: 1 char-set-intersection! char-set-intersection!) + (spec: 1 fxnegative? fxnegative?) + (spec: 1 partition partition) + (spec: 1 timeout->time timeout->time) (spec: 1 - nonprocedure-operator-exception? - nonprocedure-operator-exception?) - (spec: 1 flexpm1 flexpm1) - (spec: 1 readtable-max-write-length readtable-max-write-length) - (spec: 1 table-search table-search) + number-of-arguments-limit-exception-arguments + number-of-arguments-limit-exception-arguments) + (spec: 1 flfinite? flfinite?) + (spec: 1 vector-swap! vector-swap!) (spec: 1 - uninitialized-thread-exception-arguments - uninitialized-thread-exception-arguments) - (spec: 1 display-exception-in-context display-exception-in-context) - (spec: 1 tcp-server-socket-info tcp-server-socket-info) + length-mismatch-exception-procedure + length-mismatch-exception-procedure) + (spec: 1 os-exception-message os-exception-message) + (spec: 1 thread-specific-set! thread-specific-set!) + (spec: 1 every-bit-set? every-bit-set?) + (spec: 1 fxwraplogical-shift-right fxwraplogical-shift-right) + (spec: 1 trace trace) + (spec: 1 service-info? service-info?) + (spec: 1 f32vector-copy! f32vector-copy!) + (spec: 1 host-info? host-info?) + (spec: 1 make-u32vector make-u32vector) + (spec: 1 subf32vector-fill! subf32vector-fill!) + (spec: 1 s16vector-set! s16vector-set!) + (spec: 1 u32vector-concatenate u32vector-concatenate) + (spec: 1 fxandc2 fxandc2) + (spec: 1 char-set-count char-set-count) (spec: 1 - condition-variable-specific-set! - condition-variable-specific-set!) - (spec: 1 f32vector-concatenate f32vector-concatenate) - (spec: 1 bit-field-any? bit-field-any?) - (spec: 1 make-tls-context make-tls-context) - (spec: 1 service-info-port-number service-info-port-number) - (spec: 1 continuation-graft continuation-graft) - (spec: 1 f64vector-concatenate f64vector-concatenate) - (spec: 1 bitwise-eqv bitwise-eqv) + wrong-number-of-values-exception-code + wrong-number-of-values-exception-code) + (spec: 1 write-file-string write-file-string) + (spec: 1 s8vector-length s8vector-length) (spec: 1 - sfun-conversion-exception-message - sfun-conversion-exception-message) - (spec: 1 subs64vector-fill! subs64vector-fill!) - (spec: 1 u32vector->list u32vector->list) - (spec: 1 char-set-complement char-set-complement) - (spec: 1 u64vector u64vector) - (spec: 1 fx>= fx>=) + mailbox-receive-timeout-exception-procedure + mailbox-receive-timeout-exception-procedure) + (spec: 1 tty? tty?) + (spec: 1 sfun-conversion-exception? sfun-conversion-exception?) + (spec: 1 subs8vector-move! subs8vector-move!) + (spec: 1 f64vector-copy! f64vector-copy!) + (spec: 1 bit-field-every? bit-field-every?) + (spec: 1 with-output-to-port with-output-to-port) + (spec: 1 u64vector-append u64vector-append) + (spec: 1 read-all read-all) + (spec: 1 network-info-aliases network-info-aliases) + (spec: 1 file-last-modification-time file-last-modification-time) + (spec: 1 udp-read-u8vector udp-read-u8vector) + (spec: 1 u16vector-append u16vector-append) + (spec: 1 string-set string-set) + (spec: 1 make-mutex make-mutex) + (spec: 1 group-info-name group-info-name) + (spec: 1 command-name command-name) + (spec: 1 random-integer random-integer) (spec: 1 - length-mismatch-exception-arg-id - length-mismatch-exception-arg-id) - (spec: 1 thread-sleep! thread-sleep!) - (spec: 1 char-set-fold char-set-fold) + module-not-found-exception-procedure + module-not-found-exception-procedure) + (spec: 1 copy-bit copy-bit) + (spec: 1 subvector-fill! subvector-fill!) + (spec: 1 system-version system-version) (spec: 1 - wrong-number-of-arguments-exception-arguments - wrong-number-of-arguments-exception-arguments) - (spec: 1 fxmax fxmax) - (spec: 1 output-port-readtable-set! output-port-readtable-set!) - (spec: 1 s16vector-ref s16vector-ref) - (spec: 1 first first) - (spec: 1 read-all read-all) + unbound-os-environment-variable-exception-procedure + unbound-os-environment-variable-exception-procedure) (spec: 1 defer-user-interrupts defer-user-interrupts) - (spec: 1 fl= fl=) (spec: 1 - no-such-file-or-directory-exception-arguments - no-such-file-or-directory-exception-arguments) - (spec: 1 system-version system-version) - (spec: 1 group-info-gid group-info-gid) - (spec: 1 s8vector-copy! s8vector-copy!) - (spec: 1 tty-text-attributes-set! tty-text-attributes-set!) - (spec: 1 command-args command-args) - (spec: 1 with-input-from-string with-input-from-string) - (spec: 1 host-info host-info) - (spec: 1 make-mutex make-mutex) - (spec: 1 string-prefix? string-prefix?) - (spec: 1 u16vector-append u16vector-append) - (spec: 1 display-procedure-environment display-procedure-environment) - (spec: 1 fltan fltan) + no-such-file-or-directory-exception? + no-such-file-or-directory-exception?) (spec: 1 repl-output-port repl-output-port) (spec: 1 thread thread) - (spec: 1 foreign-tags foreign-tags) - (spec: 1 reverse! reverse!) - (spec: 1 socket-info-address socket-info-address) - (spec: 1 thread-group? thread-group?) - (spec: 1 copy-bit copy-bit) - (spec: 1 file-info-attributes file-info-attributes) - (spec: 1 random-integer random-integer) - (spec: 1 subvector-fill! subvector-fill!) - (spec: 1 u64vector-swap! u64vector-swap!) - (spec: 1 mutex-name mutex-name) - (spec: 1 file-last-access-time file-last-access-time) - (spec: 1 range-exception-arg-id range-exception-arg-id) - (spec: 1 fxnand fxnand) - (spec: 1 error-exception-message error-exception-message) - (spec: 1 list->u16vector list->u16vector) - (spec: 1 s32vector-fill! s32vector-fill!) - (spec: 1 time->seconds time->seconds) - (spec: 1 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) - (spec: 1 all-bits-set? all-bits-set?) - (spec: 1 s64vector-copy! s64vector-copy!) - (spec: 1 list= list=) - (spec: 1 vector-shrink! vector-shrink!) - (spec: 1 call-with-output-process call-with-output-process) - (spec: 1 delete-directory delete-directory) - (spec: 1 flexp flexp) + (spec: 1 display-procedure-environment display-procedure-environment) (spec: 1 - nonprocedure-operator-exception-rte - nonprocedure-operator-exception-rte) + cfun-conversion-exception-arguments + cfun-conversion-exception-arguments) + (spec: 1 flodd? flodd?) + (spec: 1 range-exception-arg-id range-exception-arg-id) + (spec: 1 mutex-specific-set! mutex-specific-set!) + (spec: 1 file-info-device file-info-device) (spec: 1 readtable-max-write-level-set readtable-max-write-level-set) - (spec: 1 flnumerator flnumerator) + (spec: + 1 + uninitialized-thread-exception-procedure + uninitialized-thread-exception-procedure) + (spec: 1 delete-directory delete-directory) + (spec: 1 call-with-output-u8vector call-with-output-u8vector) + (spec: 1 fl>= fl>=) + (spec: 1 thread-group? thread-group?) + (spec: 1 reverse! reverse!) + (spec: 1 open-output-vector open-output-vector) + (spec: 1 fltruncate fltruncate) + (spec: 1 socket-info-port-number socket-info-port-number) + (spec: 1 touch touch) + (spec: 1 vector-shrink! vector-shrink!) + (spec: 1 error-exception? error-exception?) + (spec: 1 fxnand fxnand) + (spec: 1 list->u64vector list->u64vector) + (spec: 1 tcp-service-unregister! tcp-service-unregister!) (spec: 1 invalid-utf8-encoding-exception? invalid-utf8-encoding-exception?) - (spec: 1 tcp-service-unregister! tcp-service-unregister!) - (spec: 1 f32vector-append f32vector-append) - (spec: 1 bit-field bit-field) - (spec: 1 host-info-name host-info-name) - (spec: 1 make-thread-group make-thread-group) - (spec: 1 service-info-name service-info-name) - (spec: 1 subf32vector subf32vector) - (spec: 1 bitwise-andc2 bitwise-andc2) - (spec: 1 f64vector-append f64vector-append) + (spec: 1 flexpt flexpt) + (spec: 1 thread-state-uninitialized? thread-state-uninitialized?) (spec: 1 - sfun-conversion-exception-code - sfun-conversion-exception-code) - (spec: 1 subs8vector-fill! subs8vector-fill!) - (spec: 1 u32vector u32vector) + length-mismatch-exception-arguments + length-mismatch-exception-arguments) (spec: 1 fourth fourth) (spec: 1 char-set-copy char-set-copy) (spec: 1 os-exception-code os-exception-code) - (spec: 1 rpc-remote-error-exception? rpc-remote-error-exception?) - (spec: 1 thread-send thread-send) - (spec: 1 char-set-intersection char-set-intersection) + (spec: 1 s64vector-length s64vector-length) + (spec: 1 thread-specific thread-specific) + (spec: 1 every every) + (spec: 1 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) + (spec: 1 u64vector->list u64vector->list) + (spec: 1 service-info-protocol service-info-protocol) + (spec: 1 f32vector-copy f32vector-copy) + (spec: 1 atanh atanh) + (spec: 1 host-info-name host-info-name) + (spec: 1 make-u16vector make-u16vector) + (spec: 1 s16vector-set s16vector-set) + (spec: 1 subf32vector subf32vector) (spec: 1 fxandc1 fxandc1) - (spec: 1 thread-state-running? thread-state-running?) + (spec: 1 char-set-intersection char-set-intersection) + (spec: 1 u32vector-append u32vector-append) + (spec: 1 u16vector-concatenate u16vector-concatenate) + (spec: 1 s8vector-fill! s8vector-fill!) + (spec: + 1 + mailbox-receive-timeout-exception-arguments + mailbox-receive-timeout-exception-arguments) + (spec: 1 gensym gensym) + (spec: 1 circular-list circular-list) + (spec: 1 poll-point poll-point) + (spec: + 1 + sfun-conversion-exception-procedure + sfun-conversion-exception-procedure) + (spec: 1 subs8vector-fill! subs8vector-fill!) + (spec: 1 f64vector-copy f64vector-copy) + (spec: 1 bit-field-clear bit-field-clear) + (spec: 1 tty-type-set! tty-type-set!) (spec: 1 vector-every vector-every) - (spec: 1 file-mode file-mode) + (spec: 1 udp-read-subu8vector udp-read-subu8vector) (spec: 1 initialized-thread-exception? initialized-thread-exception?) - (spec: 1 network-info-name network-info-name) - (spec: 1 udp-source-socket-info udp-source-socket-info) - (spec: 1 fixnum->flonum fixnum->flonum) + (spec: 1 first-set-bit first-set-bit) + (spec: 1 network-info network-info) + (spec: 1 u16vector->list u16vector->list) + (spec: 1 executable-path executable-path) + (spec: 1 host-info-addresses host-info-addresses) + (spec: 1 subvector subvector) + (spec: 1 random-f64vector random-f64vector) (spec: 1 - default-user-interrupt-handler - default-user-interrupt-handler) - (spec: 1 input-port-timeout-set! input-port-timeout-set!) + module-not-found-exception-arguments + module-not-found-exception-arguments) + (spec: 1 file-info-creation-time file-info-creation-time) + (spec: 1 u64vector? u64vector?) (spec: 1 read-subu8vector read-subu8vector) - (spec: 1 system-type-string system-type-string) - (spec: 1 gensym gensym) - (spec: 1 circular-list circular-list) - (spec: 1 poll-point poll-point) - (spec: 1 s8vector-copy s8vector-copy) + (spec: 1 input-port-timeout-set! input-port-timeout-set!) (spec: 1 - unbound-os-environment-variable-exception? - unbound-os-environment-variable-exception?) - (spec: 1 executable-path executable-path) - (spec: 1 group-info? group-info?) - (spec: 1 primordial-exception-handler primordial-exception-handler) - (spec: 1 u16vector->list u16vector->list) + default-user-interrupt-handler + default-user-interrupt-handler) + (spec: 1 fl> fl>) (spec: 1 - cfun-conversion-exception-code - cfun-conversion-exception-code) - (spec: 1 open-directory open-directory) + no-such-file-or-directory-exception-procedure + no-such-file-or-directory-exception-procedure) + (spec: 1 system-type-string system-type-string) (spec: 1 repl-input-port repl-input-port) - (spec: 1 socket-info? socket-info?) - (spec: 1 last last) - (spec: 1 thread-group-terminate! thread-group-terminate!) - (spec: 1 module-not-found-exception? module-not-found-exception?) - (spec: 1 random-f64vector random-f64vector) - (spec: 1 subvector subvector) + (spec: 1 fltanh fltanh) + (spec: + 1 + unbound-os-environment-variable-exception-arguments + unbound-os-environment-variable-exception-arguments) + (spec: 1 mutex-specific mutex-specific) (spec: 1 create-temporary-directory create-temporary-directory) - (spec: 1 file-info-group file-info-group) - (spec: 1 mutex-state mutex-state) - (spec: 1 compile-file-to-target compile-file-to-target) - (spec: 1 u8vector-ref u8vector-ref) - (spec: 1 fxmodulo fxmodulo) - (spec: 1 list->u8vector list->u8vector) - (spec: 1 s32vector-ref s32vector-ref) - (spec: 1 trace trace) - (spec: 1 fxwraparithmetic-shift fxwraparithmetic-shift) - (spec: 1 char-set? char-set?) - (spec: 1 every-bit-set? every-bit-set?) - (spec: 1 thread-specific-set! thread-specific-set!) - (spec: 1 flabs flabs) - (spec: 1 call-with-output-vector call-with-output-vector) - (spec: 1 delete! delete!) - (spec: 1 readtable-max-write-level readtable-max-write-level) + (spec: 1 file-last-change-time file-last-change-time) (spec: 1 table? table?) + (spec: 1 readtable-max-write-level readtable-max-write-level) + (spec: 1 delete! delete!) + (spec: 1 call-with-output-string call-with-output-string) + (spec: 1 flexpm1 flexpm1) (spec: 1 - uninitialized-thread-exception? - uninitialized-thread-exception?) - (spec: 1 flfinite? flfinite?) + nonprocedure-operator-exception? + nonprocedure-operator-exception?) + (spec: 1 thread-group-terminate! thread-group-terminate!) + (spec: 1 last last) + (spec: 1 open-output-u8vector open-output-u8vector) + (spec: 1 socket-info-family socket-info-family) + (spec: + 1 + uninitialized-thread-exception-arguments + uninitialized-thread-exception-arguments) + (spec: 1 s32vector-length s32vector-length) + (spec: 1 list->u32vector list->u32vector) + (spec: 1 error-exception-parameters error-exception-parameters) + (spec: 1 fxmodulo fxmodulo) + (spec: 1 time? time?) + (spec: 1 tcp-service-register! tcp-service-register!) (spec: 1 invalid-utf8-encoding-exception-procedure invalid-utf8-encoding-exception-procedure) + (spec: 1 thread-sleep! thread-sleep!) (spec: 1 - number-of-arguments-limit-exception-arguments - number-of-arguments-limit-exception-arguments) - (spec: 1 tcp-service-register! tcp-service-register!) - (spec: 1 host-info-aliases host-info-aliases) - (spec: 1 make-u32vector make-u32vector) - (spec: 1 f32vector-copy! f32vector-copy!) - (spec: 1 processor? processor?) - (spec: 1 service-info? service-info?) - (spec: 1 timeout->time timeout->time) - (spec: 1 bit-field-every? bit-field-every?) - (spec: 1 continuation? continuation?) - (spec: 1 f64vector-copy! f64vector-copy!) - (spec: 1 sfun-conversion-exception? sfun-conversion-exception?) - (spec: 1 subs8vector subs8vector) + length-mismatch-exception-arg-id + length-mismatch-exception-arg-id) (spec: 1 foreign? foreign?) (spec: 1 char-set-contains? char-set-contains?) - (spec: - 1 - length-mismatch-exception-procedure - length-mismatch-exception-procedure) (spec: 1 os-exception-arguments os-exception-arguments) - (spec: 1 tty? tty?) - (spec: 1 u64vector-append u64vector-append) - (spec: 1 fxand fxand) - (spec: 1 char-set-hash char-set-hash) + (spec: 1 s64vector-fill! s64vector-fill!) + (spec: 1 fxwraparithmetic-shift fxwraparithmetic-shift) + (spec: 1 char-set? char-set?) + (spec: 1 service-info-port-number service-info-port-number) + (spec: 1 make-tls-context make-tls-context) + (spec: 1 f32vector-concatenate f32vector-concatenate) + (spec: 1 bit-field-any? bit-field-any?) + (spec: 1 host-info-aliases host-info-aliases) + (spec: 1 processor? processor?) + (spec: 1 s16vector-ref s16vector-ref) (spec: 1 output-port-width output-port-width) - (spec: 1 s16vector-set! s16vector-set!) - (spec: 1 u32vector-concatenate u32vector-concatenate) - (spec: 1 file-last-modification-time file-last-modification-time) + (spec: 1 char-set-hash char-set-hash) + (spec: 1 fxand fxand) + (spec: 1 u32vector->list u32vector->list) + (spec: 1 s8vector-copy! s8vector-copy!) + (spec: 1 tty-text-attributes-set! tty-text-attributes-set!) + (spec: 1 generate-proper-tail-calls generate-proper-tail-calls) (spec: 1 vector-cumulate vector-cumulate) - (spec: 1 network-info-aliases network-info-aliases) + (spec: 1 with-input-from-vector with-input-from-vector) + (spec: 1 u64vector u64vector) + (spec: + 1 + sfun-conversion-exception-message + sfun-conversion-exception-message) + (spec: 1 f64vector-concatenate f64vector-concatenate) + (spec: 1 bitwise-eqv bitwise-eqv) + (spec: 1 continuation? continuation?) + (spec: 1 subs8vector subs8vector) (spec: 1 wrong-number-of-arguments-exception? wrong-number-of-arguments-exception?) - (spec: 1 udp-read-u8vector udp-read-u8vector) (spec: 1 - no-such-file-or-directory-exception? - no-such-file-or-directory-exception?) + initialized-thread-exception-procedure + initialized-thread-exception-procedure) + (spec: 1 default-random-source default-random-source) + (spec: 1 first first) + (spec: 1 u16vector u16vector) + (spec: 1 string-prefix? string-prefix?) + (spec: 1 f32vector->list f32vector->list) + (spec: 1 command-args command-args) + (spec: 1 host-info host-info) + (spec: 1 subu8vector-move! subu8vector-move!) + (spec: 1 raise raise) + (spec: 1 u64vector-swap! u64vector-swap!) + (spec: 1 create-symbolic-link create-symbolic-link) + (spec: 1 file-info-attributes file-info-attributes) + (spec: 1 system-type system-type) + (spec: 1 input-port-readtable-set! input-port-readtable-set!) + (spec: 1 compile-file compile-file) + (spec: 1 delete delete) + (spec: 1 fl= fl=) + (spec: + 1 + no-such-file-or-directory-exception-arguments + no-such-file-or-directory-exception-arguments) + (spec: 1 read-substring read-substring) + (spec: 1 repl-highlight-source-level repl-highlight-source-level) + (spec: 1 fltan fltan) + (spec: 1 third third) + (spec: 1 mutex-name mutex-name) + (spec: 1 file-last-access-time file-last-access-time) + (spec: 1 table-set! table-set!) + (spec: + 1 + readtable-max-write-length-set + readtable-max-write-length-set) + (spec: + 1 + nonprocedure-operator-exception-rte + nonprocedure-operator-exception-rte) + (spec: 1 flexp flexp) + (spec: 1 call-with-output-process call-with-output-process) + (spec: 1 thread-group-suspend! thread-group-suspend!) + (spec: 1 socket-info-address socket-info-address) + (spec: 1 foreign-tags foreign-tags) + (spec: 1 time->seconds time->seconds) + (spec: 1 s32vector-fill! s32vector-fill!) + (spec: 1 list->u16vector list->u16vector) + (spec: 1 fxwrapabs fxwrapabs) + (spec: 1 error-exception-message error-exception-message) + (spec: 1 vector-set vector-set) + (spec: + 1 + invalid-utf8-encoding-exception-arguments + invalid-utf8-encoding-exception-arguments) + (spec: 1 flnumerator flnumerator) + (spec: 1 thread-send thread-send) + (spec: 1 rpc-remote-error-exception? rpc-remote-error-exception?) + (spec: 1 fxabs fxabs) + (spec: 1 char-set-complement! char-set-complement!) + (spec: 1 s64vector-copy! s64vector-copy!) + (spec: 1 list= list=) + (spec: 1 all-bits-set? all-bits-set?) + (spec: 1 char-set= char-set=) + (spec: 1 path-volume path-volume) + (spec: 1 string->uninterned-symbol string->uninterned-symbol) + (spec: 1 service-info-name service-info-name) + (spec: 1 f32vector-append f32vector-append) + (spec: 1 bit-field bit-field) + (spec: 1 condition-variable? condition-variable?) + (spec: 1 make-thread-group make-thread-group) + (spec: 1 processor-id processor-id) + (spec: 1 output-port-timeout-set! output-port-timeout-set!) + (spec: 1 fxmin fxmin) + (spec: 1 char-set-for-each char-set-for-each) + (spec: 1 thread-state-running? thread-state-running?) + (spec: 1 u32vector u32vector) + (spec: 1 s8vector-copy s8vector-copy) + (spec: 1 with-input-from-u8vector with-input-from-u8vector) + (spec: 1 group-info-members group-info-members) + (spec: + 1 + wrong-number-of-arguments-exception-procedure + wrong-number-of-arguments-exception-procedure) + (spec: + 1 + sfun-conversion-exception-code + sfun-conversion-exception-code) + (spec: 1 subs64vector-move! subs64vector-move!) + (spec: 1 f64vector-append f64vector-append) + (spec: 1 bitwise-andc2 bitwise-andc2) + (spec: 1 continuation-return continuation-return) + (spec: 1 link-flat link-flat) + (spec: + 1 + initialized-thread-exception-arguments + initialized-thread-exception-arguments) + (spec: 1 scheduler-exception? scheduler-exception?) + (spec: 1 f32vector f32vector) + (spec: 1 string-prefix-length-ci string-prefix-length-ci) + (spec: 1 ->char-set ->char-set) + (spec: 1 subu8vector-fill! subu8vector-fill!) + (spec: 1 r7rs-with-exception-handler r7rs-with-exception-handler) + (spec: 1 mutex-lock! mutex-lock!) + (spec: 1 create-link create-link) + (spec: 1 bitwise-xor bitwise-xor) + (spec: 1 file-info file-info) + (spec: 1 shell-command shell-command) + (spec: 1 input-port-readtable input-port-readtable) + (spec: 1 fl<= fl<=) (spec: 1 - unbound-os-environment-variable-exception-procedure - unbound-os-environment-variable-exception-procedure) - (spec: 1 generate-proper-tail-calls generate-proper-tail-calls) + nonprocedure-operator-exception-operator + nonprocedure-operator-exception-operator) + (spec: 1 system-stamp system-stamp) + (spec: 1 u64vector-shrink! u64vector-shrink!) + (spec: 1 repl-error-port repl-error-port) + (spec: 1 flsquare flsquare) + (spec: 1 open-output-process open-output-process) + (spec: 1 unbound-key-exception? unbound-key-exception?) + (spec: 1 random-u8vector random-u8vector) (spec: 1 - mailbox-receive-timeout-exception-procedure - mailbox-receive-timeout-exception-procedure) - (spec: 1 u16vector-copy u16vector-copy) - (spec: 1 s8vector-length s8vector-length) - (spec: 1 with-input-from-vector with-input-from-vector) - (spec: 1 group-info-name group-info-name) - (spec: 1 command-name command-name) - (spec: 1 string-set string-set) - (spec: 1 script-directory script-directory) - (spec: 1 flodd? flodd?) + current-user-interrupt-handler + current-user-interrupt-handler) (spec: 1 - cfun-conversion-exception-arguments - cfun-conversion-exception-arguments) + file-last-access-and-modification-times-set! + file-last-access-and-modification-times-set!) + (spec: 1 table-search table-search) + (spec: 1 readtable-max-write-length readtable-max-write-length) + (spec: 1 fleven? fleven?) + (spec: 1 thread-group-specific-set! thread-group-specific-set!) + (spec: 1 foreign-released? foreign-released?) + (spec: 1 time time) + (spec: 1 list->table list->table) + (spec: 1 fxwrap- fxwrap-) + (spec: 1 abort abort) + (spec: 1 s32vector-copy! s32vector-copy!) + (spec: 1 tcp-server-socket-info tcp-server-socket-info) + (spec: 1 display-exception-in-context display-exception-in-context) + (spec: 1 flnegative? flnegative?) (spec: 1 - divide-by-zero-exception-arguments - divide-by-zero-exception-arguments) - (spec: 1 thread-init! thread-init!) - (spec: 1 repl-result-history-ref repl-result-history-ref) - (spec: 1 fltruncate fltruncate) - (spec: 1 socket-info-port-number socket-info-port-number) - (spec: 1 open-output-vector open-output-vector) - (spec: 1 take! take!) - (spec: 1 copy-file copy-file) + rpc-remote-error-exception-procedure + rpc-remote-error-exception-procedure) + (spec: 1 length+ length+) + (spec: 1 end-of-char-set? end-of-char-set?) + (spec: 1 char-set-complement char-set-complement) + (spec: 1 fx>= fx>=) + (spec: 1 thread-resume! thread-resume!) + (spec: 1 s64vector-copy s64vector-copy) + (spec: 1 path-strip-volume path-strip-volume) + (spec: 1 char-set<= char-set<=) + (spec: 1 string->uninterned-keyword string->uninterned-keyword) + (spec: 1 service-info-aliases service-info-aliases) + (spec: 1 make-thread make-thread) + (spec: 1 f64vector->list f64vector->list) + (spec: 1 bit-count bit-count) (spec: 1 - module-not-found-exception-procedure - module-not-found-exception-procedure) - (spec: 1 file-info-device file-info-device) - (spec: 1 current-directory current-directory) - (spec: 1 mutex-specific-set! mutex-specific-set!) - (spec: 1 range-exception-procedure range-exception-procedure) - (spec: 1 char-set-map char-set-map) - (spec: 1 partition! partition!) - (spec: 1 fxnor fxnor) - (spec: 1 error-exception? error-exception?) - (spec: 1 list->u64vector list->u64vector) - (spec: 1 thread-base-priority-set! thread-base-priority-set!) - (spec: 1 touch touch) - (spec: 1 fxwrapquotient fxwrapquotient) - (spec: 1 every every) - (spec: 1 s64vector-length s64vector-length) - (spec: 1 fl>= fl>=) - (spec: 1 call-with-output-u8vector call-with-output-u8vector) - (spec: 1 delete-file-or-directory delete-file-or-directory) - (spec: 1 thread-specific thread-specific) + condition-variable-specific-set! + condition-variable-specific-set!) (spec: 1 - readtable-sharing-allowed?-set - readtable-sharing-allowed?-set) + thread-state-running-processor + thread-state-running-processor) + (spec: 1 s16vector-length s16vector-length) + (spec: 1 fxmax fxmax) + (spec: 1 char-set-fold char-set-fold) + (spec: 1 output-port-readtable-set! output-port-readtable-set!) (spec: 1 - uninitialized-thread-exception-procedure - uninitialized-thread-exception-procedure) - (spec: 1 flexpt flexpt) - (spec: 1 iota iota) - (spec: 1 vector-unfold vector-unfold) - (spec: 1 compilation-target compilation-target) - (spec: 1 atanh atanh) - (spec: 1 host-name host-name) - (spec: 1 f32vector-copy f32vector-copy) - (spec: 1 make-u16vector make-u16vector) - (spec: 1 service-info-protocol service-info-protocol) - (spec: 1 bit-field-clear bit-field-clear) - (spec: 1 configure-command-string configure-command-string) - (spec: 1 f64vector-copy f64vector-copy) + wrong-number-of-arguments-exception-arguments + wrong-number-of-arguments-exception-arguments) + (spec: 1 s8vector-concatenate s8vector-concatenate) (spec: 1 - sfun-conversion-exception-procedure - sfun-conversion-exception-procedure) - (spec: 1 subf32vector-move! subf32vector-move!) - (spec: 1 tty-type-set! tty-type-set!) - (spec: 1 u64vector->list u64vector->list) - (spec: 1 os-exception-procedure os-exception-procedure) + tty-paren-balance-duration-set! + tty-paren-balance-duration-set!) + (spec: 1 group-info-gid group-info-gid) + (spec: 1 with-input-from-string with-input-from-string) (spec: 1 - length-mismatch-exception-arguments - length-mismatch-exception-arguments) - (spec: 1 thread-state-uninitialized? thread-state-uninitialized?) - (spec: 1 vector-fold vector-fold) - (spec: 1 char-set-cursor char-set-cursor) - (spec: 1 with-output-to-process with-output-to-process) - (spec: 1 fxarithmetic-shift fxarithmetic-shift) - (spec: 1 s16vector-set s16vector-set) - (spec: 1 stack-overflow-exception? stack-overflow-exception?) - (spec: 1 u32vector-append u32vector-append) + sfun-conversion-exception-arguments + sfun-conversion-exception-arguments) + (spec: 1 subs64vector-fill! subs64vector-fill!) + (spec: 1 bitwise-andc1 bitwise-andc1) + (spec: 1 continuation-graft continuation-graft) + (spec: 1 udp-local-socket-info udp-local-socket-info) + (spec: 1 scheduler-exception-reason scheduler-exception-reason) + (spec: 1 string-prefix-length string-prefix-length) + (spec: 1 subu8vector subu8vector) + (spec: 1 r7rs-raise-continuable r7rs-raise-continuable) + (spec: 1 create-fifo create-fifo) + (spec: 1 bitwise-unfold bitwise-unfold) + (spec: 1 file-group file-group) + (spec: 1 u64vector-set! u64vector-set!) (spec: 1 - wrong-number-of-values-exception-rte - wrong-number-of-values-exception-rte) - (spec: 1 network-info? network-info?) - (spec: 1 file-owner file-owner) - (spec: 1 system-version-string system-version-string) + unbound-key-exception-procedure + unbound-key-exception-procedure) + (spec: 1 fl< fl<) (spec: 1 - unbound-serial-number-exception-arguments - unbound-serial-number-exception-arguments) - (spec: 1 noncontinuable-exception? noncontinuable-exception?) + nonprocedure-operator-exception-code + nonprocedure-operator-exception-code) + (spec: 1 drop-right! drop-right!) + (spec: 1 flsqrt flsqrt) + (spec: 1 random-source? random-source?) + (spec: 1 u8vector-length u8vector-length) + (spec: 1 current-time current-time) + (spec: 1 file-inode file-inode) + (spec: 1 table-ref table-ref) (spec: 1 - fixnum-overflow-exception-arguments - fixnum-overflow-exception-arguments) - (spec: 1 subvector-move! subvector-move!) - (spec: 1 u8vector u8vector) + readtable-max-unescaped-char-set + readtable-max-unescaped-char-set) + (spec: 1 null-list? null-list?) + (spec: 1 fldenominator fldenominator) + (spec: 1 call-with-input-vector call-with-input-vector) + (spec: 1 uncaught-exception? uncaught-exception?) + (spec: 1 thread-group-specific thread-group-specific) + (spec: 1 foreign-release! foreign-release!) + (spec: 1 s32vector-copy s32vector-copy) (spec: 1 - mailbox-receive-timeout-exception-arguments - mailbox-receive-timeout-exception-arguments) + path-strip-trailing-directory-separator + path-strip-trailing-directory-separator) + (spec: 1 fxwrap+ fxwrap+) + (spec: 1 abandoned-mutex-exception? abandoned-mutex-exception?) + (spec: 1 real-time real-time) + (spec: 1 display-exception display-exception) + (spec: 1 flnan? flnan?) + (spec: 1 thread-receive thread-receive) (spec: 1 - port-io-exception-handler-set! - port-io-exception-handler-set!) - (spec: 1 s8vector-fill! s8vector-fill!) - (spec: 1 u16vector-concatenate u16vector-concatenate) - (spec: 1 clear-bit-field clear-bit-field) - (spec: 1 println println) - (spec: 1 udp-write-u8vector udp-write-u8vector) - (spec: 1 string-suffix-ci? string-suffix-ci?) - (spec: 1 make-parameter make-parameter) - (spec: 1 boolean=? boolean=?) - (spec: 1 error-object? error-object?) - (spec: 1 delete-file delete-file) - (spec: 1 inexact inexact) - (spec: 1 char-foldcase char-foldcase) - (spec: 1 bytevector? bytevector?) - (spec: 1 get-environment-variable get-environment-variable) - (spec: 1 list-copy list-copy) - (spec: 1 promise? promise?) - (spec: 1 error-object-message error-object-message) - (spec: 1 call-with-port call-with-port) - (spec: 1 exact exact) - (spec: 1 eof-object eof-object) - (spec: 1 get-environment-variables get-environment-variables) - (spec: 1 get-output-bytevector get-output-bytevector) - (spec: 1 floor-remainder floor-remainder) - (spec: 1 current-error-port current-error-port) - (spec: 1 make-promise make-promise) - (spec: 1 open-input-bytevector open-input-bytevector) - (spec: 1 balanced-quotient balanced-quotient) - (spec: 1 peek-u8 peek-u8) - (spec: 1 string-map string-map) - (spec: 1 floor-quotient floor-quotient) - (spec: 1 current-jiffy current-jiffy) - (spec: 1 truncate-quotient truncate-quotient) - (spec: 1 vector-for-each vector-for-each) - (spec: 1 write-simple write-simple) - (spec: 1 truncate/ truncate/) - (spec: 1 euclidean-quotient euclidean-quotient) - (spec: 1 balanced/ balanced/) - (spec: 1 port? port?) - (spec: 1 make-bytevector make-bytevector) - (spec: 1 get-output-string get-output-string) - (spec: 1 floor/ floor/) - (spec: 1 file-error? file-error?) - (spec: 1 round-remainder round-remainder) - (spec: 1 truncate-remainder truncate-remainder) - (spec: 1 balanced-remainder balanced-remainder) - (spec: 1 read-error? read-error?) - (spec: 1 vector->string vector->string) - (spec: 1 write-shared write-shared) - (spec: 1 round-quotient round-quotient) - (spec: 1 euclidean/ euclidean/) - (spec: 1 exact-integer? exact-integer?) - (spec: 1 infinite? infinite?) - (spec: 1 jiffies-per-second jiffies-per-second) - (spec: 1 open-input-string open-input-string) - (spec: 1 string-upcase string-upcase) - (spec: 1 current-second current-second) - (spec: 1 euclidean-remainder euclidean-remainder) - (spec: 1 exact-integer-sqrt exact-integer-sqrt) - (spec: 1 list-set! list-set!) - (spec: 1 utf8->string utf8->string) - (spec: 1 close-port close-port) + rpc-remote-error-exception-message + rpc-remote-error-exception-message) + (spec: 1 output-port-readtable output-port-readtable) + (spec: 1 fx> fx>) + (spec: 1 char-set-any char-set-any) + (spec: 1 s64vector-concatenate s64vector-concatenate) + (spec: 1 make-table make-table) + (spec: 1 f64vector f64vector) + (spec: 1 condition-variable-specific condition-variable-specific) + (spec: 1 service-info service-info) + (spec: 1 s16vector-fill! s16vector-fill!) + (spec: 1 vector-concatenate vector-concatenate) + (spec: 1 error error) + (spec: 1 char-set-filter! char-set-filter!) + (spec: 1 fxlength fxlength) + (spec: 1 tty-mode-set! tty-mode-set!) + (spec: 1 s8vector-append s8vector-append) + (spec: 1 group-info group-info) + (spec: 1 with-input-from-process with-input-from-process) + (spec: 1 u32vector? u32vector?) + (spec: 1 subs64vector subs64vector) + (spec: 1 bitwise-and bitwise-and) + (spec: 1 continuation-capture continuation-capture) (spec: 1 bytevector bytevector) + (spec: 1 close-port close-port) (spec: 1 file-exists? file-exists?) (spec: 1 open-output-bytevector open-output-bytevector) - (spec: 1 round/ round/) - (spec: 1 symbol=? symbol=?) - (spec: 1 textual-port? textual-port?) - (spec: 1 input-port-open? input-port-open?) - (spec: 1 read-line read-line) - (spec: 1 vector-append vector-append) + (spec: 1 output-port-open? output-port-open?) + (spec: 1 current-second current-second) (spec: 1 nan? nan?) (spec: 1 square square) + (spec: 1 utf8->string utf8->string) + (spec: 1 vector-append vector-append) + (spec: 1 write-u8 write-u8) + (spec: 1 symbol=? symbol=?) + (spec: 1 round/ round/) + (spec: 1 euclidean/ euclidean/) + (spec: 1 exact-integer? exact-integer?) + (spec: 1 textual-port? textual-port?) (spec: 1 vector-map vector-map) + (spec: 1 string-upcase string-upcase) (spec: 1 write-string write-string) - (spec: 1 write-u8 write-u8) - (spec: 1 bytevector-copy bytevector-copy) - (spec: 1 finite? finite?) - (spec: 1 ceiling-remainder ceiling-remainder) - (spec: 1 string-copy! string-copy!) - (spec: 1 write-bytevector write-bytevector) - (spec: 1 features features) - (spec: 1 bytevector-append bytevector-append) - (spec: 1 output-port-open? output-port-open?) - (spec: 1 ceiling-quotient ceiling-quotient) - (spec: 1 binary-port? binary-port?) + (spec: 1 open-input-string open-input-string) + (spec: 1 round-remainder round-remainder) + (spec: 1 euclidean-remainder euclidean-remainder) + (spec: 1 exact-integer-sqrt exact-integer-sqrt) + (spec: 1 list-set! list-set!) + (spec: 1 vector->string vector->string) + (spec: 1 read-error? read-error?) + (spec: 1 write-simple write-simple) + (spec: 1 infinite? infinite?) + (spec: 1 round-quotient round-quotient) + (spec: 1 euclidean-quotient euclidean-quotient) + (spec: 1 balanced/ balanced/) + (spec: 1 jiffies-per-second jiffies-per-second) + (spec: 1 make-bytevector make-bytevector) + (spec: 1 file-error? file-error?) + (spec: 1 floor/ floor/) + (spec: 1 current-jiffy current-jiffy) + (spec: 1 truncate/ truncate/) + (spec: 1 write-shared write-shared) + (spec: 1 balanced-remainder balanced-remainder) + (spec: 1 truncate-remainder truncate-remainder) + (spec: 1 floor-remainder floor-remainder) + (spec: 1 open-input-bytevector open-input-bytevector) + (spec: 1 balanced-quotient balanced-quotient) + (spec: 1 get-output-string get-output-string) + (spec: 1 port? port?) + (spec: 1 truncate-quotient truncate-quotient) + (spec: 1 floor-quotient floor-quotient) + (spec: 1 get-output-bytevector get-output-bytevector) + (spec: 1 string-map string-map) + (spec: 1 make-promise make-promise) + (spec: 1 vector-for-each vector-for-each) + (spec: 1 current-error-port current-error-port) + (spec: 1 error-object? error-object?) + (spec: 1 boolean=? boolean=?) + (spec: 1 list-copy list-copy) + (spec: 1 peek-u8 peek-u8) + (spec: 1 read-bytevector! read-bytevector!) + (spec: 1 bytevector? bytevector?) + (spec: 1 error-object-message error-object-message) + (spec: 1 call-with-port call-with-port) + (spec: 1 exact exact) + (spec: 1 get-environment-variables get-environment-variables) + (spec: 1 bytevector-u8-set! bytevector-u8-set!) + (spec: 1 inexact inexact) + (spec: 1 delete-file delete-file) + (spec: 1 flush-output-port flush-output-port) + (spec: 1 error-object-irritants error-object-irritants) + (spec: 1 char-foldcase char-foldcase) + (spec: 1 get-environment-variable get-environment-variable) + (spec: 1 bytevector-u8-ref bytevector-u8-ref) + (spec: 1 read-u8 read-u8) + (spec: 1 eof-object eof-object) + (spec: 1 exit exit) + (spec: 1 make-parameter make-parameter) + (spec: 1 open-binary-output-file open-binary-output-file) + (spec: 1 promise? promise?) + (spec: 1 read-bytevector read-bytevector) (spec: 1 bytevector-length bytevector-length) (spec: 1 command-line command-line) - (spec: 1 emergency-exit emergency-exit) + (spec: 1 make-list make-list) (spec: 1 open-binary-input-file open-binary-input-file) - (spec: 1 read-string read-string) - (spec: 1 vector-copy! vector-copy!) + (spec: 1 digit-value digit-value) + (spec: 1 string->utf8 string->utf8) + (spec: 1 string->vector string->vector) + (spec: 1 string-foldcase string-foldcase) (spec: 1 bytevector-copy! bytevector-copy!) - (spec: 1 read-u8 read-u8) + (spec: 1 string-for-each string-for-each) (spec: 1 ceiling/ ceiling/) (spec: 1 open-output-string open-output-string) - (spec: 1 string->vector string->vector) - (spec: 1 string-downcase string-downcase) - (spec: 1 vector-copy vector-copy) - (spec: 1 bytevector-u8-set! bytevector-u8-set!) - (spec: 1 make-list make-list) - (spec: 1 flush-output-port flush-output-port) - (spec: 1 string-for-each string-for-each) - (spec: 1 error-object-irritants error-object-irritants) - (spec: 1 digit-value digit-value) - (spec: 1 string->utf8 string->utf8) (spec: 1 u8-ready? u8-ready?) - (spec: 1 bytevector-u8-ref bytevector-u8-ref) - (spec: 1 read-bytevector! read-bytevector!) - (spec: 1 open-binary-output-file open-binary-output-file) - (spec: 1 string-foldcase string-foldcase) - (spec: 1 read-bytevector read-bytevector) - (spec: 1 exit exit) - (spec: 1 cddaar cddaar) - (spec: 1 floor floor) - (spec: 1 imag-part imag-part) - (spec: 1 char-upper-case? char-upper-case?) - (spec: 1 angle angle) - (spec: 1 transcript-on transcript-on) - (spec: 1 exact->inexact exact->inexact) - (spec: 1 caddar caddar) - (spec: 1 peek-char peek-char) - (spec: 1 string-append string-append) - (spec: 1 call-with-values call-with-values) - (spec: 1 memv memv) - (spec: 1 vector-fill! vector-fill!) - (spec: 1 eof-object? eof-object?) - (spec: 1 char-upcase char-upcase) - (spec: 1 cdar cdar) - (spec: 1 string-ci=? string-ci=?) - (spec: 1 list->vector list->vector) - (spec: 1 cadar cadar) - (spec: 1 remainder remainder) - (spec: 1 <= <=) - (spec: 1 tan tan) - (spec: 1 memq memq) - (spec: 1 char-lower-case? char-lower-case?) - (spec: 1 transcript-off transcript-off) - (spec: 1 list list) - (spec: 1 vector? vector?) - (spec: 1 char-whitespace? char-whitespace?) - (spec: 1 read-char read-char) - (spec: 1 cddar cddar) - (spec: 1 cos cos) - (spec: 1 string-cichar integer->char) - (spec: 1 make-vector make-vector) - (spec: 1 append append) - (spec: 1 make-rectangular make-rectangular) - (spec: 1 cddadr cddadr) - (spec: 1 round round) - (spec: 1 set-cdr! set-cdr!) - (spec: 1 inexact? inexact?) - (spec: 1 boolean? boolean?) - (spec: 1 rationalize rationalize) - (spec: 1 string string) - (spec: 1 cadddr cadddr) - (spec: 1 string-ci>=? string-ci>=?) - (spec: 1 set-car! set-car!) - (spec: 1 truncate truncate) - (spec: 1 dynamic-wind dynamic-wind) - (spec: 1 char-ready? char-ready?) + (spec: 1 vector-copy! vector-copy!) + (spec: 1 bytevector-copy bytevector-copy) + (spec: 1 read-string read-string) + (spec: 1 ceiling-remainder ceiling-remainder) + (spec: 1 emergency-exit emergency-exit) + (spec: 1 finite? finite?) + (spec: 1 write-bytevector write-bytevector) + (spec: 1 vector-copy vector-copy) + (spec: 1 features features) + (spec: 1 bytevector-append bytevector-append) + (spec: 1 read-line read-line) + (spec: 1 ceiling-quotient ceiling-quotient) + (spec: 1 input-port-open? input-port-open?) + (spec: 1 string-downcase string-downcase) + (spec: 1 binary-port? binary-port?) + (spec: 1 string-copy! string-copy!) + (spec: 1 + +) + (spec: 1 string=? string=?) + (spec: 1 caaar caaar) + (spec: 1 ceiling ceiling) + (spec: 1 interaction-environment interaction-environment) + (spec: 1 null-environment null-environment) + (spec: 1 char-ci=? char-ci=?) + (spec: 1 real-part real-part) + (spec: 1 string->number string->number) + (spec: 1 max max) + (spec: 1 - -) + (spec: 1 string-copy string-copy) + (spec: 1 caaadr caaadr) + (spec: 1 * *) + (spec: 1 stringlist string->list) + (spec: 1 eval eval) + (spec: 1 with-input-from-file with-input-from-file) + (spec: 1 exact? exact?) + (spec: 1 char? char?) + (spec: 1 close-output-port close-output-port) + (spec: 1 string<=? string<=?) + (spec: 1 caaaar caaaar) + (spec: 1 cddr cddr) + (spec: 1 char-ci<=? char-ci<=?) + (spec: 1 sqrt sqrt) + (spec: 1 eqv? eqv?) + (spec: 1 apply apply) + (spec: 1 char>? char>?) + (spec: 1 newline newline) + (spec: 1 close-input-port close-input-port) + (spec: 1 expt expt) + (spec: 1 cdddr cdddr) + (spec: 1 call-with-input-file call-with-input-file) + (spec: 1 char-alphabetic? char-alphabetic?) + (spec: 1 >= >=) + (spec: 1 asin asin) + (spec: 1 char>=? char>=?) + (spec: 1 pair? pair?) + (spec: 1 current-output-port current-output-port) (spec: 1 modulo modulo) - (spec: 1 charstring symbol->string) (spec: 1 cddddr cddddr) - (spec: 1 char->integer char->integer) - (spec: 1 force force) - (spec: 1 current-input-port current-input-port) - (spec: 1 rational? rational?) - (spec: 1 log log) (spec: 1 call-with-current-continuation call-with-current-continuation) + (spec: 1 char->integer char->integer) + (spec: 1 display display) + (spec: 1 force force) + (spec: 1 lcm lcm) + (spec: 1 vector->list vector->list) + (spec: 1 log log) + (spec: 1 > >) (spec: 1 map map) - (spec: 1 = =) - (spec: 1 cons cons) - (spec: 1 char-numeric? char-numeric?) + (spec: 1 char=? char=?) (spec: 1 equal? equal?) - (spec: 1 vector vector) - (spec: 1 char<=? char<=?) - (spec: 1 expt expt) - (spec: 1 procedure? procedure?) + (spec: 1 positive? positive?) + (spec: 1 quotient quotient) + (spec: 1 make-rectangular make-rectangular) + (spec: 1 string-ci>? string-ci>?) + (spec: 1 vector-length vector-length) (spec: 1 cdddar cdddar) + (spec: 1 integer->char integer->char) + (spec: 1 cadr cadr) (spec: 1 for-each for-each) - (spec: 1 open-input-file open-input-file) + (spec: 1 inexact? inexact?) (spec: 1 list-ref list-ref) - (spec: 1 cadr cadr) (spec: 1 car car) - (spec: 1 >= >=) - (spec: 1 min min) + (spec: 1 char-ready? char-ready?) (spec: 1 numerator numerator) - (spec: 1 pair? pair?) - (spec: 1 caaaar caaaar) - (spec: 1 char>=? char>=?) - (spec: 1 close-output-port close-output-port) - (spec: 1 cddr cddr) - (spec: 1 lcm lcm) - (spec: 1 char-ci<=? char-ci<=?) - (spec: 1 current-output-port current-output-port) - (spec: 1 sqrt sqrt) - (spec: 1 string-ci>? string-ci>?) - (spec: 1 string<=? string<=?) - (spec: 1 display display) - (spec: 1 symbol->string symbol->string) - (spec: 1 > >) - (spec: 1 quotient quotient) - (spec: 1 apply apply) - (spec: 1 eqv? eqv?) - (spec: 1 newline newline) - (spec: 1 integer? integer?) - (spec: 1 vector->list vector->list) - (spec: 1 positive? positive?) - (spec: 1 char=? char=?) - (spec: 1 close-input-port close-input-port) - (spec: 1 cdddr cdddr) - (spec: 1 char-alphabetic? char-alphabetic?) - (spec: 1 symbol? symbol?) - (spec: 1 vector-length vector-length) - (spec: 1 string->list string->list) - (spec: 1 call-with-input-file call-with-input-file) - (spec: 1 char? char?) - (spec: 1 caaar caaar) - (spec: 1 with-input-from-file with-input-from-file) - (spec: 1 asin asin) - (spec: 1 + +) - (spec: 1 char-ci=? char-ci=?) - (spec: 1 string=? string=?) - (spec: 1 ceiling ceiling) - (spec: 1 null-environment null-environment) - (spec: 1 max max) - (spec: 1 char>? char>?) - (spec: 1 caaadr caaadr) - (spec: 1 assoc assoc) - (spec: 1 * *) - (spec: 1 char-cisymbol string->symbol) - (spec: 1 eval eval) - (spec: 1 string>=? string>=?) + (spec: 1 open-input-file open-input-file) + (spec: 1 rationalize rationalize) + (spec: 1 char=? string-ci>=?) + (spec: 1 dynamic-wind dynamic-wind) + (spec: 1 cddar cddar) + (spec: 1 current-input-port current-input-port) + (spec: 1 rational? rational?) + (spec: 1 caddr caddr) + (spec: 1 number? number?) + (spec: 1 char-numeric? char-numeric?) + (spec: 1 vector vector) + (spec: 1 = =) + (spec: 1 eq? eq?) + (spec: 1 append append) + (spec: 1 char<=? char<=?) + (spec: 1 cons cons) + (spec: 1 make-vector make-vector) + (spec: 1 procedure? procedure?) + (spec: 1 set-cdr! set-cdr!) + (spec: 1 cddadr cddadr) + (spec: 1 boolean? boolean?) + (spec: 1 cadddr cadddr) + (spec: 1 tan tan) + (spec: 1 vector? vector?) + (spec: 1 remainder remainder) + (spec: 1 char-lower-case? char-lower-case?) + (spec: 1 string-ci=? string-ci=?) + (spec: 1 <= <=) + (spec: 1 set-car! set-car!) + (spec: 1 char-whitespace? char-whitespace?) + (spec: 1 truncate truncate) + (spec: 1 read-char read-char) + (spec: 1 / /) + (spec: 1 cos cos) + (spec: 1 cddaar cddaar) + (spec: 1 floor floor) + (spec: 1 caddar caddar) + (spec: 1 denominator denominator) + (spec: 1 string-ciinexact exact->inexact) + (spec: 1 < <) + (spec: 1 complex? complex?) + (spec: 1 eof-object? eof-object?) + (spec: 1 memv memv) + (spec: 1 transcript-on transcript-on) + (spec: 1 exp exp) + (spec: 1 make-polar make-polar) + (spec: 1 cdar cdar) + (spec: 1 inexact->exact inexact->exact) + (spec: 1 cadar cadar) + (spec: 1 list->vector list->vector) + (spec: 1 string-ci<=? string-ci<=?) + (spec: 1 transcript-off transcript-off) + (spec: 1 list list) + (spec: 1 string-length string-length) + (spec: 1 char-upper-case? char-upper-case?) + (spec: 1 memq memq) + (spec: 1 string-set! string-set!) + (spec: 1 imag-part imag-part) + (spec: 1 sin sin) + (spec: 1 cadadr cadadr) + (spec: 1 substring substring) + (spec: 1 cdadr cdadr) + (spec: 1 string-append string-append) + (spec: 1 acos acos) + (spec: 1 peek-char peek-char) + (spec: 1 vector-fill! vector-fill!) + (spec: 1 char-upcase char-upcase) + (spec: 1 atan atan) + (spec: 1 input-port? input-port?) + (spec: 1 cadaar cadaar) + (spec: 1 not not) + (spec: 1 cdaddr cdaddr) + (spec: 1 load load) + (spec: 1 output-port? output-port?) + (spec: 1 with-output-to-file with-output-to-file) + (spec: 1 angle angle) + (spec: 1 member member) + (spec: 1 read read) + (spec: 1 string-ref string-ref) + (spec: 1 write-char write-char) + (spec: 1 caar caar) + (spec: 1 reverse reverse) + (spec: 1 char-downcase char-downcase) + (spec: 1 cdadar cdadar) + (spec: 1 number->string number->string) + (spec: 1 list? list?) + (spec: 1 vector-set! vector-set!) + (spec: 1 values values) + (spec: 1 scheme-report-environment scheme-report-environment) + (spec: 1 assv assv) + (spec: 1 caadr caadr) + (spec: 1 odd? odd?) + (spec: 1 abs abs) + (spec: 1 cdaar cdaar) + (spec: 1 string? string?) + (spec: 1 string-fill! string-fill!) + (spec: 1 zero? zero?) + (spec: 1 assq assq) (spec: 1 caaddr caaddr) - (spec: 1 exact? exact?) - (spec: 1 interaction-environment interaction-environment) - (spec: 1 char-ci>? char-ci>?) (spec: 1 negative? negative?) - (spec: 1 string->number string->number) + (spec: 1 null? null?) (spec: 1 call-with-output-file call-with-output-file) + (spec: 1 char-ci>? char-ci>?) + (spec: 1 vector-ref vector-ref) (spec: 1 cdaadr cdaadr) - (spec: 1 null? null?) - (spec: 1 real-part real-part) - (spec: 1 caadar caadar) + (spec: 1 real? real?) + (spec: 1 gcd gcd) + (spec: 1 string>? string>?) (spec: 1 magnitude magnitude) - (spec: 1 - -) - (spec: 1 assv assv) - (spec: 1 char-ci>=? char-ci>=?) - (spec: 1 open-output-file open-output-file) - (spec: 1 string-copy string-copy) + (spec: 1 assoc assoc) + (spec: 1 make-string make-string) (spec: 1 write write) + (spec: 1 caadar caadar) + (spec: 1 open-output-file open-output-file) + (spec: 1 char-ci>=? char-ci>=?) (spec: 1 even? even?) (spec: 1 list->string list->string) - (spec: 1 list-tail list-tail) (spec: 1 cdaaar cdaaar) - (spec: 1 scheme-report-environment scheme-report-environment) - (spec: 1 string? string?) - (spec: 1 zero? zero?) + (spec: 1 list-tail list-tail) (spec: 1 length length) - (spec: 1 caar caar) - (spec: 1 assq assq) - (spec: 1 string-fill! string-fill!) - (spec: 1 char-downcase char-downcase) - (spec: 1 string-ref string-ref) - (spec: 1 write-char write-char) - (spec: 1 vector-ref vector-ref) - (spec: 1 gcd gcd) - (spec: 1 cdadar cdadar) - (spec: 1 list? list?) - (spec: 1 number->string number->string) - (spec: 1 real? real?) - (spec: 1 string>? string>?) - (spec: 1 caadr caadr) - (spec: 1 input-port? input-port?) - (spec: 1 atan atan) - (spec: 1 odd? odd?) - (spec: 1 abs abs) - (spec: 1 cdaar cdaar) - (spec: 1 output-port? output-port?) - (spec: 1 read read) - (spec: 1 cadadr cadadr) - (spec: 1 string-set! string-set!) - (spec: 1 with-output-to-file with-output-to-file) - (spec: 1 reverse reverse) - (spec: 1 sin sin) - (spec: 1 acos acos) - (spec: 1 vector-set! vector-set!) - (spec: 1 cdadr cdadr) - (spec: 1 values values) - (spec: 1 cadaar cadaar) - (spec: 1 exp exp) - (spec: 1 make-polar make-polar) - (spec: 1 inexact->exact inexact->exact) - (spec: 1 load load) - (spec: 1 not not) - (spec: 1 cdaddr cdaddr) - (spec: 1 string-ci<=? string-ci<=?) - (spec: 1 member member) - (spec: 1 substring substring) - (spec: 1 string-length string-length) - (spec: 1 / /) - (spec: 1 RuntimeAliases RuntimeAliases) + (spec: 1 string->symbol string->symbol) + (spec: 1 string>=? string>=?) (spec: 1 R5RSRuntime R5RSRuntime) (spec: 1 GerbilRuntime GerbilRuntime) (spec: 1 GambitRuntime GambitRuntime) (spec: 1 Runtime Runtime) + (spec: 1 RuntimeAliases RuntimeAliases) (spec: 1 R7RSRuntime R7RSRuntime) (spec: 1 %%app-dotted %%app) (spec: 1 %%ref-dotted %%ref) diff --git a/src/bootstrap/gerbil/core/contract.ssi b/src/bootstrap/gerbil/core/contract.ssi index 40784ddb7..62fad26e3 100644 --- a/src/bootstrap/gerbil/core/contract.ssi +++ b/src/bootstrap/gerbil/core/contract.ssi @@ -610,6 +610,9 @@ namespace: gerbil/core/contract (%#define-syntax defstruct/c |gerbil/core/contract~TypedDefinitions[:0:]#defstruct/c|) + (%#define-syntax + defmutable* + |gerbil/core/contract~TypedDefinitions[:0:]#defmutable*|) (%#define-syntax defmutable |gerbil/core/contract~TypedDefinitions[:0:]#defmutable|))) diff --git a/src/bootstrap/gerbil/core/contract~1.scm b/src/bootstrap/gerbil/core/contract~1.scm index 165dc4902..370006c25 100644 --- a/src/bootstrap/gerbil/core/contract~1.scm +++ b/src/bootstrap/gerbil/core/contract~1.scm @@ -1,328 +1,328 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~InterfaceInfo[1]#_g82526_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82800_| (##structure gx#syntax-quote::t 'interface-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82528_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82802_| (##structure gx#syntax-quote::t 'make-interface-info #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82530_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82804_| (##structure gx#syntax-quote::t 'interface-info? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82532_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82806_| (##structure gx#syntax-quote::t 'interface-info-name #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82533_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82807_| (##structure gx#syntax-quote::t 'interface-info-interface-mixin #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82534_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82808_| (##structure gx#syntax-quote::t 'interface-info-interface-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82535_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82809_| (##structure gx#syntax-quote::t 'interface-info-instance-type #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82536_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82810_| (##structure gx#syntax-quote::t 'interface-info-interface-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82537_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82811_| (##structure gx#syntax-quote::t 'interface-info-instance-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82538_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82812_| (##structure gx#syntax-quote::t 'interface-info-instance-try-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82539_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82813_| (##structure gx#syntax-quote::t 'interface-info-instance-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82540_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82814_| (##structure gx#syntax-quote::t 'interface-info-instance-satisfies-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82541_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82815_| (##structure gx#syntax-quote::t 'interface-info-implementation-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82542_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82816_| (##structure gx#syntax-quote::t 'interface-info-unchecked-implementation-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82544_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82818_| (##structure gx#syntax-quote::t 'interface-info-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82545_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82819_| (##structure gx#syntax-quote::t 'interface-info-interface-mixin-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82546_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82820_| (##structure gx#syntax-quote::t 'interface-info-interface-methods-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82547_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82821_| (##structure gx#syntax-quote::t 'interface-info-instance-type-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82548_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82822_| (##structure gx#syntax-quote::t 'interface-info-interface-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82549_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82823_| (##structure gx#syntax-quote::t 'interface-info-instance-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82550_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82824_| (##structure gx#syntax-quote::t 'interface-info-instance-try-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82551_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82825_| (##structure gx#syntax-quote::t 'interface-info-instance-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82552_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82826_| (##structure gx#syntax-quote::t 'interface-info-instance-satisfies-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82553_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82827_| (##structure gx#syntax-quote::t 'interface-info-implementation-methods-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82554_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82828_| (##structure gx#syntax-quote::t 'interface-info-unchecked-implementation-methods-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82556_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82830_| (##structure gx#syntax-quote::t '&interface-info-name #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82557_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82831_| (##structure gx#syntax-quote::t '&interface-info-interface-mixin #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82558_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82832_| (##structure gx#syntax-quote::t '&interface-info-interface-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82559_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82833_| (##structure gx#syntax-quote::t '&interface-info-instance-type #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82560_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82834_| (##structure gx#syntax-quote::t '&interface-info-interface-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82561_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82835_| (##structure gx#syntax-quote::t '&interface-info-instance-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82562_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82836_| (##structure gx#syntax-quote::t '&interface-info-instance-try-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82563_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82837_| (##structure gx#syntax-quote::t '&interface-info-instance-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82564_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82838_| (##structure gx#syntax-quote::t '&interface-info-instance-satisfies-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82565_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82839_| (##structure gx#syntax-quote::t '&interface-info-implementation-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82566_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82840_| (##structure gx#syntax-quote::t '&interface-info-unchecked-implementation-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82568_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82842_| (##structure gx#syntax-quote::t '&interface-info-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82569_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82843_| (##structure gx#syntax-quote::t '&interface-info-interface-mixin-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82570_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82844_| (##structure gx#syntax-quote::t '&interface-info-interface-methods-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82571_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82845_| (##structure gx#syntax-quote::t '&interface-info-instance-type-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82572_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82846_| (##structure gx#syntax-quote::t '&interface-info-interface-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82573_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82847_| (##structure gx#syntax-quote::t '&interface-info-instance-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82574_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82848_| (##structure gx#syntax-quote::t '&interface-info-instance-try-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82575_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82849_| (##structure gx#syntax-quote::t '&interface-info-instance-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82576_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82850_| (##structure gx#syntax-quote::t '&interface-info-instance-satisfies-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82577_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82851_| (##structure gx#syntax-quote::t '&interface-info-implementation-methods-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g82578_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g82852_| (##structure gx#syntax-quote::t '&interface-info-unchecked-implementation-methods-set! @@ -330,7 +330,7 @@ (gx#current-expander-context) '())) (define |gerbil/core/contract~InterfaceInfo[:0:]#interface-info| - (let ((__obj82441 + (let ((__obj82715 (let () (declare (not safe)) (##structure @@ -359,18 +359,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82441 + __obj82715 'gerbil/core/contract~InterfaceInfo#interface-info::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82441 'interface-info '2 '#f '#f)) + (##unchecked-structure-set! __obj82715 'interface-info '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj82441 + __obj82715 '(name interface-mixin interface-methods instance-type @@ -386,138 +386,138 @@ '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82441 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj82715 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82441 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj82715 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82441 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj82715 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82441 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj82715 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82441 '#f '11 '#f '#f)) - (let ((__tmp82525 |gerbil/core/contract~InterfaceInfo[1]#_g82526_|)) + (##unchecked-structure-set! __obj82715 '#f '11 '#f '#f)) + (let ((__tmp82799 |gerbil/core/contract~InterfaceInfo[1]#_g82800_|)) (declare (not safe)) - (##unchecked-structure-set! __obj82441 __tmp82525 '12 '#f '#f)) - (let ((__tmp82527 |gerbil/core/contract~InterfaceInfo[1]#_g82528_|)) + (##unchecked-structure-set! __obj82715 __tmp82799 '12 '#f '#f)) + (let ((__tmp82801 |gerbil/core/contract~InterfaceInfo[1]#_g82802_|)) (declare (not safe)) - (##unchecked-structure-set! __obj82441 __tmp82527 '13 '#f '#f)) - (let ((__tmp82529 |gerbil/core/contract~InterfaceInfo[1]#_g82530_|)) + (##unchecked-structure-set! __obj82715 __tmp82801 '13 '#f '#f)) + (let ((__tmp82803 |gerbil/core/contract~InterfaceInfo[1]#_g82804_|)) (declare (not safe)) - (##unchecked-structure-set! __obj82441 __tmp82529 '14 '#f '#f)) - (let ((__tmp82531 + (##unchecked-structure-set! __obj82715 __tmp82803 '14 '#f '#f)) + (let ((__tmp82805 (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g82532_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82806_|) (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g82533_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82807_|) (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g82534_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82808_|) (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g82535_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82809_|) (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g82536_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82810_|) (cons (cons 'instance-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g82537_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82811_|) (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g82538_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82812_|) (cons (cons 'instance-predicate ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~InterfaceInfo[1]#_g82539_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82813_|) (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g82540_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82814_|) (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g82541_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82815_|) (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g82542_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82816_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj82441 __tmp82531 '15 '#f '#f)) - (let ((__tmp82543 + (##unchecked-structure-set! __obj82715 __tmp82805 '15 '#f '#f)) + (let ((__tmp82817 (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g82544_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82818_|) (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g82545_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82819_|) (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g82546_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82820_|) (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g82547_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82821_|) (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g82548_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82822_|) (cons (cons 'instance-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g82549_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82823_|) (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g82550_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82824_|) (cons (cons 'instance-predicate ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~InterfaceInfo[1]#_g82551_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82825_|) (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g82552_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82826_|) (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g82553_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82827_|) (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g82554_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82828_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj82441 __tmp82543 '16 '#f '#f)) - (let ((__tmp82555 + (##unchecked-structure-set! __obj82715 __tmp82817 '16 '#f '#f)) + (let ((__tmp82829 (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g82556_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82830_|) (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g82557_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82831_|) (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g82558_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82832_|) (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g82559_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82833_|) (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g82560_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82834_|) (cons (cons 'instance-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g82561_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82835_|) (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g82562_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82836_|) (cons (cons 'instance-predicate ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~InterfaceInfo[1]#_g82563_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82837_|) (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g82564_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82838_|) (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g82565_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82839_|) (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g82566_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82840_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj82441 __tmp82555 '17 '#f '#f)) - (let ((__tmp82567 + (##unchecked-structure-set! __obj82715 __tmp82829 '17 '#f '#f)) + (let ((__tmp82841 (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g82568_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82842_|) (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g82569_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82843_|) (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g82570_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82844_|) (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g82571_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82845_|) (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g82572_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82846_|) (cons (cons 'instance-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g82573_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82847_|) (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g82574_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82848_|) (cons (cons 'instance-predicate ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~InterfaceInfo[1]#_g82575_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82849_|) (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g82576_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82850_|) (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g82577_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82851_|) (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g82578_|) + |gerbil/core/contract~InterfaceInfo[1]#_g82852_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj82441 __tmp82567 '18 '#f '#f)) - __obj82441))) + (##unchecked-structure-set! __obj82715 __tmp82841 '18 '#f '#f)) + __obj82715))) diff --git a/src/bootstrap/gerbil/core/contract~2.scm b/src/bootstrap/gerbil/core/contract~2.scm index 593a113c8..92c19d25d 100644 --- a/src/bootstrap/gerbil/core/contract~2.scm +++ b/src/bootstrap/gerbil/core/contract~2.scm @@ -84,20 +84,20 @@ _%t45040%_)) (_%loop45037%_ (gx#syntax-local-value - (let ((__obj82449 _%t45040%_)) + (let ((__obj82723 _%t45040%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82449 + __obj82723 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82449 + __obj82723 '1 '#f '#f)) - (unchecked-slot-ref __obj82449 'identifier))) + (unchecked-slot-ref __obj82723 'identifier))) false)) (if (not _%t45040%_) (gx#raise-syntax-error @@ -134,21 +134,21 @@ |gerbil/core/contract~TypeReference[1]#type-reference::t| _%t45018%_)) (let ((_%id45026%_ - (let ((__obj82450 _%t45018%_)) + (let ((__obj82724 _%t45018%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82450 + __obj82724 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82450 + __obj82724 '1 '#f '#f)) (unchecked-slot-ref - __obj82450 + __obj82724 'identifier))))) (_%loop45013%_ _%id45026%_ @@ -176,31 +176,31 @@ (class-instance? gerbil/core/mop~MOP-2#class-type-info::t _%t45000%_)) - (let ((__obj82452 _%t45000%_)) + (let ((__obj82726 _%t45000%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82452 + __obj82726 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82452 '12 '#f '#f)) - (unchecked-slot-ref __obj82452 'type-descriptor))) + (##unchecked-structure-ref __obj82726 '12 '#f '#f)) + (unchecked-slot-ref __obj82726 'type-descriptor))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t _%t45000%_)) - (let ((__obj82451 _%t45000%_)) + (let ((__obj82725 _%t45000%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82451 + __obj82725 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82451 '4 '#f '#f)) - (unchecked-slot-ref __obj82451 'instance-type))) + (##unchecked-structure-ref __obj82725 '4 '#f '#f)) + (unchecked-slot-ref __obj82725 'instance-type))) (gx#raise-syntax-error '#f '"unexpected type; expected class, interface or type reference" diff --git a/src/bootstrap/gerbil/core/contract~3.scm b/src/bootstrap/gerbil/core/contract~3.scm index a50ab58c4..04eeb69c2 100644 --- a/src/bootstrap/gerbil/core/contract~3.scm +++ b/src/bootstrap/gerbil/core/contract~3.scm @@ -1,48 +1,48 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~TypeReference[2]#_g82580_| + (define |gerbil/core/contract~TypeReference[2]#_g82854_| (##structure gx#syntax-quote::t 'type-reference::t #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g82582_| + (define |gerbil/core/contract~TypeReference[2]#_g82856_| (##structure gx#syntax-quote::t 'make-type-reference #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g82584_| + (define |gerbil/core/contract~TypeReference[2]#_g82858_| (##structure gx#syntax-quote::t 'type-reference? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g82586_| + (define |gerbil/core/contract~TypeReference[2]#_g82860_| (##structure gx#syntax-quote::t 'type-reference-identifier #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g82588_| + (define |gerbil/core/contract~TypeReference[2]#_g82862_| (##structure gx#syntax-quote::t 'type-reference-identifier-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g82590_| + (define |gerbil/core/contract~TypeReference[2]#_g82864_| (##structure gx#syntax-quote::t '&type-reference-identifier #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g82592_| + (define |gerbil/core/contract~TypeReference[2]#_g82866_| (##structure gx#syntax-quote::t '&type-reference-identifier-set! @@ -50,7 +50,7 @@ (gx#current-expander-context) '())) (define |gerbil/core/contract~TypeReference[:1:]#type-reference| - (let ((__obj82448 + (let ((__obj82722 (let () (declare (not safe)) (##structure @@ -79,63 +79,63 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82448 + __obj82722 'gerbil/core/contract~TypeReference#type-reference::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82448 'type-reference '2 '#f '#f)) + (##unchecked-structure-set! __obj82722 'type-reference '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82448 '(identifier) '4 '#f '#f)) + (##unchecked-structure-set! __obj82722 '(identifier) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82448 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj82722 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82448 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj82722 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82448 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj82722 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82448 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj82722 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82448 '#f '11 '#f '#f)) - (let ((__tmp82579 |gerbil/core/contract~TypeReference[2]#_g82580_|)) + (##unchecked-structure-set! __obj82722 '#f '11 '#f '#f)) + (let ((__tmp82853 |gerbil/core/contract~TypeReference[2]#_g82854_|)) (declare (not safe)) - (##unchecked-structure-set! __obj82448 __tmp82579 '12 '#f '#f)) - (let ((__tmp82581 |gerbil/core/contract~TypeReference[2]#_g82582_|)) + (##unchecked-structure-set! __obj82722 __tmp82853 '12 '#f '#f)) + (let ((__tmp82855 |gerbil/core/contract~TypeReference[2]#_g82856_|)) (declare (not safe)) - (##unchecked-structure-set! __obj82448 __tmp82581 '13 '#f '#f)) - (let ((__tmp82583 |gerbil/core/contract~TypeReference[2]#_g82584_|)) + (##unchecked-structure-set! __obj82722 __tmp82855 '13 '#f '#f)) + (let ((__tmp82857 |gerbil/core/contract~TypeReference[2]#_g82858_|)) (declare (not safe)) - (##unchecked-structure-set! __obj82448 __tmp82583 '14 '#f '#f)) - (let ((__tmp82585 + (##unchecked-structure-set! __obj82722 __tmp82857 '14 '#f '#f)) + (let ((__tmp82859 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g82586_|) + |gerbil/core/contract~TypeReference[2]#_g82860_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj82448 __tmp82585 '15 '#f '#f)) - (let ((__tmp82587 + (##unchecked-structure-set! __obj82722 __tmp82859 '15 '#f '#f)) + (let ((__tmp82861 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g82588_|) + |gerbil/core/contract~TypeReference[2]#_g82862_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj82448 __tmp82587 '16 '#f '#f)) - (let ((__tmp82589 + (##unchecked-structure-set! __obj82722 __tmp82861 '16 '#f '#f)) + (let ((__tmp82863 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g82590_|) + |gerbil/core/contract~TypeReference[2]#_g82864_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj82448 __tmp82589 '17 '#f '#f)) - (let ((__tmp82591 + (##unchecked-structure-set! __obj82722 __tmp82863 '17 '#f '#f)) + (let ((__tmp82865 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g82592_|) + |gerbil/core/contract~TypeReference[2]#_g82866_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj82448 __tmp82591 '18 '#f '#f)) - __obj82448))) + (##unchecked-structure-set! __obj82722 __tmp82865 '18 '#f '#f)) + __obj82722))) diff --git a/src/bootstrap/gerbil/core/contract~4.scm b/src/bootstrap/gerbil/core/contract~4.scm index 5cb32d691..7b0cb8205 100644 --- a/src/bootstrap/gerbil/core/contract~4.scm +++ b/src/bootstrap/gerbil/core/contract~4.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~TypeCast[1]#_g82595_| + (define |gerbil/core/contract~TypeCast[1]#_g82869_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) (begin (define |gerbil/core/contract~TypeCast[:0:]#:| @@ -98,25 +98,25 @@ _%tl4524945279%_) ((lambda (_%L45282%_ _%L45284%_) - (if (let ((__tmp82593 - (let ((__obj82454 + (if (let ((__tmp82867 + (let ((__obj82728 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _%meta45235%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82454 + __obj82728 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82454 + __obj82728 '1 '#f '#f)) - (unchecked-slot-ref __obj82454 'id))))) + (unchecked-slot-ref __obj82728 'id))))) (declare (not safe)) - (##memq __tmp82593 '(t void))) + (##memq __tmp82867 '(t void))) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) (cons _%L45284%_ '())) @@ -153,37 +153,37 @@ (_%g4524045255%_ _%g4524145259%_)))) (_%g4524045255%_ _%g4524145259%_))))) (_%g4523945302%_ - (list (let ((__obj82455 _%meta45235%_)) + (list (let ((__obj82729 _%meta45235%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82455 + __obj82729 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82455 + __obj82729 '12 '#f '#f)) (unchecked-slot-ref - __obj82455 + __obj82729 'type-descriptor))) - (let ((__obj82456 _%meta45235%_)) + (let ((__obj82730 _%meta45235%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82456 + __obj82730 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82456 + __obj82730 '14 '#f '#f)) (unchecked-slot-ref - __obj82456 + __obj82730 'predicate)))))) (if (let () (declare (not safe)) @@ -244,21 +244,21 @@ _%g4530945327%_)))) (_%g4530845323%_ _%g4530945327%_))))) (_%g4530745368%_ - (list (let ((__obj82453 _%meta45235%_)) + (list (let ((__obj82727 _%meta45235%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82453 + __obj82727 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82453 + __obj82727 '4 '#f '#f)) (unchecked-slot-ref - __obj82453 + __obj82727 'instance-type))) (let () (declare (not safe)) @@ -376,25 +376,25 @@ _%tl4546845498%_) ((lambda (_%L45501%_ _%L45503%_) - (if (let ((__tmp82594 - (let ((__obj82458 + (if (let ((__tmp82868 + (let ((__obj82732 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _%meta45454%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82458 + __obj82732 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82458 + __obj82732 '1 '#f '#f)) - (unchecked-slot-ref __obj82458 'id))))) + (unchecked-slot-ref __obj82732 'id))))) (declare (not safe)) - (##memq __tmp82594 '(t void))) + (##memq __tmp82868 '(t void))) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) (cons _%L45503%_ '())) @@ -446,37 +446,37 @@ (_%g4545945474%_ _%g4546045478%_)))) (_%g4545945474%_ _%g4546045478%_))))) (_%g4545845521%_ - (list (let ((__obj82459 _%meta45454%_)) + (list (let ((__obj82733 _%meta45454%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82459 + __obj82733 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82459 + __obj82733 '12 '#f '#f)) (unchecked-slot-ref - __obj82459 + __obj82733 'type-descriptor))) - (let ((__obj82460 _%meta45454%_)) + (let ((__obj82734 _%meta45454%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82460 + __obj82734 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82460 + __obj82734 '14 '#f '#f)) (unchecked-slot-ref - __obj82460 + __obj82734 'predicate)))))) (if (let () (declare (not safe)) @@ -551,21 +551,21 @@ _%g4552845546%_)))) (_%g4552745542%_ _%g4552845546%_))))) (_%g4552645587%_ - (list (let ((__obj82457 _%meta45454%_)) + (list (let ((__obj82731 _%meta45454%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82457 + __obj82731 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82457 + __obj82731 '4 '#f '#f)) (unchecked-slot-ref - __obj82457 + __obj82731 'instance-type))) (let () (declare (not safe)) @@ -668,14 +668,14 @@ (_%g4559945704%_ _%stx45597%_)))) (define |gerbil/core/contract~TypeCast[:0:]#:~| (lambda (_%$stx45708%_) - (let* ((_%__stx7715877159%_ _%$stx45708%_) + (let* ((_%__stx7738677387%_ _%$stx45708%_) (_%g4571345749%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7715877159%_)))) - (let ((_%__kont7716177162%_ + _%__stx7738677387%_)))) + (let ((_%__kont7738977390%_ (lambda (_%L45867%_ _%L45869%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'val) @@ -700,14 +700,14 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7716377164%_ + (_%__kont7739177392%_ (lambda (_%L45806%_ _%L45808%_ _%L45809%_) (cons (gx#datum->syntax '#f ':-) (cons (cons (gx#datum->syntax '#f ':~) (cons _%L45809%_ (cons _%L45808%_ '()))) (cons _%L45806%_ '())))))) - (if (gx#stx-pair? _%__stx7715877159%_) - (let ((_%e4571745837%_ (gx#syntax-e _%__stx7715877159%_))) + (if (gx#stx-pair? _%__stx7738677387%_) + (let ((_%e4571745837%_ (gx#syntax-e _%__stx7738677387%_))) (let ((_%tl4571945844%_ (let () (declare (not safe)) (##cdr _%e4571745837%_))) (_%hd4571845841%_ @@ -736,7 +736,7 @@ (declare (not safe)) (##car _%e4572345857%_)))) (if (gx#stx-null? _%tl4572545864%_) - (_%__kont7716177162%_ + (_%__kont7738977390%_ _%hd4572445861%_ _%hd4572145851%_) (if (gx#stx-pair? _%tl4572545864%_) @@ -754,7 +754,7 @@ (if (gx#identifier? _%hd4573945790%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypeCast[1]#_g82595_| + |gerbil/core/contract~TypeCast[1]#_g82869_| _%hd4573945790%_) (if (gx#stx-pair? _%tl4574045793%_) @@ -770,7 +770,7 @@ (declare (not safe)) (##car _%e4574145796%_)))) (if (gx#stx-null? _%tl4574345803%_) - (_%__kont7716377164%_ + (_%__kont7739177392%_ _%hd4574245800%_ _%hd4572445861%_ _%hd4572145851%_) diff --git a/src/bootstrap/gerbil/core/contract~5.scm b/src/bootstrap/gerbil/core/contract~5.scm index 158916b7a..4151d6a2e 100644 --- a/src/bootstrap/gerbil/core/contract~5.scm +++ b/src/bootstrap/gerbil/core/contract~5.scm @@ -1,132 +1,132 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~TypeEnv[1]#_g82597_| + (define |gerbil/core/contract~TypeEnv[1]#_g82871_| (##structure gx#syntax-quote::t 'type-env::t #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82599_| + (define |gerbil/core/contract~TypeEnv[1]#_g82873_| (##structure gx#syntax-quote::t 'make-type-env #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82601_| + (define |gerbil/core/contract~TypeEnv[1]#_g82875_| (##structure gx#syntax-quote::t 'type-env? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82603_| + (define |gerbil/core/contract~TypeEnv[1]#_g82877_| (##structure gx#syntax-quote::t 'type-env-var #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82604_| + (define |gerbil/core/contract~TypeEnv[1]#_g82878_| (##structure gx#syntax-quote::t 'type-env-type #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82605_| + (define |gerbil/core/contract~TypeEnv[1]#_g82879_| (##structure gx#syntax-quote::t 'type-env-checked? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82606_| + (define |gerbil/core/contract~TypeEnv[1]#_g82880_| (##structure gx#syntax-quote::t 'type-env-super #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82608_| + (define |gerbil/core/contract~TypeEnv[1]#_g82882_| (##structure gx#syntax-quote::t 'type-env-var-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82609_| + (define |gerbil/core/contract~TypeEnv[1]#_g82883_| (##structure gx#syntax-quote::t 'type-env-type-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82610_| + (define |gerbil/core/contract~TypeEnv[1]#_g82884_| (##structure gx#syntax-quote::t 'type-env-checked?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82611_| + (define |gerbil/core/contract~TypeEnv[1]#_g82885_| (##structure gx#syntax-quote::t 'type-env-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82613_| + (define |gerbil/core/contract~TypeEnv[1]#_g82887_| (##structure gx#syntax-quote::t '&type-env-var #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82614_| + (define |gerbil/core/contract~TypeEnv[1]#_g82888_| (##structure gx#syntax-quote::t '&type-env-type #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82615_| + (define |gerbil/core/contract~TypeEnv[1]#_g82889_| (##structure gx#syntax-quote::t '&type-env-checked? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82616_| + (define |gerbil/core/contract~TypeEnv[1]#_g82890_| (##structure gx#syntax-quote::t '&type-env-super #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82618_| + (define |gerbil/core/contract~TypeEnv[1]#_g82892_| (##structure gx#syntax-quote::t '&type-env-var-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82619_| + (define |gerbil/core/contract~TypeEnv[1]#_g82893_| (##structure gx#syntax-quote::t '&type-env-type-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82620_| + (define |gerbil/core/contract~TypeEnv[1]#_g82894_| (##structure gx#syntax-quote::t '&type-env-checked?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g82621_| + (define |gerbil/core/contract~TypeEnv[1]#_g82895_| (##structure gx#syntax-quote::t '&type-env-super-set! @@ -134,7 +134,7 @@ (gx#current-expander-context) '())) (define |gerbil/core/contract~TypeEnv[:0:]#type-env| - (let ((__obj82461 + (let ((__obj82735 (let () (declare (not safe)) (##structure @@ -163,88 +163,88 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82461 + __obj82735 'gerbil/core/contract~TypeEnv#type-env::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82461 'type-env '2 '#f '#f)) + (##unchecked-structure-set! __obj82735 'type-env '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj82461 + __obj82735 '(var type checked? super) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82461 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj82735 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82461 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj82735 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82461 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj82735 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82461 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj82735 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj82461 '#f '11 '#f '#f)) - (let ((__tmp82596 |gerbil/core/contract~TypeEnv[1]#_g82597_|)) + (##unchecked-structure-set! __obj82735 '#f '11 '#f '#f)) + (let ((__tmp82870 |gerbil/core/contract~TypeEnv[1]#_g82871_|)) (declare (not safe)) - (##unchecked-structure-set! __obj82461 __tmp82596 '12 '#f '#f)) - (let ((__tmp82598 |gerbil/core/contract~TypeEnv[1]#_g82599_|)) + (##unchecked-structure-set! __obj82735 __tmp82870 '12 '#f '#f)) + (let ((__tmp82872 |gerbil/core/contract~TypeEnv[1]#_g82873_|)) (declare (not safe)) - (##unchecked-structure-set! __obj82461 __tmp82598 '13 '#f '#f)) - (let ((__tmp82600 |gerbil/core/contract~TypeEnv[1]#_g82601_|)) + (##unchecked-structure-set! __obj82735 __tmp82872 '13 '#f '#f)) + (let ((__tmp82874 |gerbil/core/contract~TypeEnv[1]#_g82875_|)) (declare (not safe)) - (##unchecked-structure-set! __obj82461 __tmp82600 '14 '#f '#f)) - (let ((__tmp82602 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g82603_|) + (##unchecked-structure-set! __obj82735 __tmp82874 '14 '#f '#f)) + (let ((__tmp82876 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g82877_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g82604_|) + |gerbil/core/contract~TypeEnv[1]#_g82878_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g82605_|) + |gerbil/core/contract~TypeEnv[1]#_g82879_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g82606_|) + |gerbil/core/contract~TypeEnv[1]#_g82880_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj82461 __tmp82602 '15 '#f '#f)) - (let ((__tmp82607 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g82608_|) + (##unchecked-structure-set! __obj82735 __tmp82876 '15 '#f '#f)) + (let ((__tmp82881 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g82882_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g82609_|) + |gerbil/core/contract~TypeEnv[1]#_g82883_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g82610_|) + |gerbil/core/contract~TypeEnv[1]#_g82884_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g82611_|) + |gerbil/core/contract~TypeEnv[1]#_g82885_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj82461 __tmp82607 '16 '#f '#f)) - (let ((__tmp82612 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g82613_|) + (##unchecked-structure-set! __obj82735 __tmp82881 '16 '#f '#f)) + (let ((__tmp82886 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g82887_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g82614_|) + |gerbil/core/contract~TypeEnv[1]#_g82888_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g82615_|) + |gerbil/core/contract~TypeEnv[1]#_g82889_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g82616_|) + |gerbil/core/contract~TypeEnv[1]#_g82890_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj82461 __tmp82612 '17 '#f '#f)) - (let ((__tmp82617 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g82618_|) + (##unchecked-structure-set! __obj82735 __tmp82886 '17 '#f '#f)) + (let ((__tmp82891 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g82892_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g82619_|) + |gerbil/core/contract~TypeEnv[1]#_g82893_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g82620_|) + |gerbil/core/contract~TypeEnv[1]#_g82894_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g82621_|) + |gerbil/core/contract~TypeEnv[1]#_g82895_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj82461 __tmp82617 '18 '#f '#f)) - __obj82461))) + (##unchecked-structure-set! __obj82735 __tmp82891 '18 '#f '#f)) + __obj82735))) diff --git a/src/bootstrap/gerbil/core/contract~6.scm b/src/bootstrap/gerbil/core/contract~6.scm index 3dce48be9..85b90ec3a 100644 --- a/src/bootstrap/gerbil/core/contract~6.scm +++ b/src/bootstrap/gerbil/core/contract~6.scm @@ -1,32 +1,32 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~Using[1]#_g82622_| + (define |gerbil/core/contract~Using[1]#_g82896_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g82623_| + (define |gerbil/core/contract~Using[1]#_g82897_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g82624_| + (define |gerbil/core/contract~Using[1]#_g82898_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g82627_| + (define |gerbil/core/contract~Using[1]#_g82901_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g82628_| + (define |gerbil/core/contract~Using[1]#_g82902_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g82631_| + (define |gerbil/core/contract~Using[1]#_g82905_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g82632_| + (define |gerbil/core/contract~Using[1]#_g82906_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g82633_| + (define |gerbil/core/contract~Using[1]#_g82907_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g82634_| + (define |gerbil/core/contract~Using[1]#_g82908_| (##structure gx#syntax-quote::t '::- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g82638_| + (define |gerbil/core/contract~Using[1]#_g82912_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g82639_| + (define |gerbil/core/contract~Using[1]#_g82913_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g82640_| + (define |gerbil/core/contract~Using[1]#_g82914_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g82641_| + (define |gerbil/core/contract~Using[1]#_g82915_| (##structure gx#syntax-quote::t '::- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g82645_| + (define |gerbil/core/contract~Using[1]#_g82919_| (##structure gx#syntax-quote::t '%%ref-dotted @@ -36,14 +36,14 @@ (begin (define |gerbil/core/contract~Using[:0:]#using| (lambda (_%stx46329%_) - (let* ((_%__stx7722477225%_ _%stx46329%_) + (let* ((_%__stx7745277453%_ _%stx46329%_) (_%g4633846547%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7722477225%_)))) - (let ((_%__kont7722777228%_ + _%__stx7745277453%_)))) + (let ((_%__kont7745577456%_ (lambda (_%L47453%_ _%L47455%_ _%L47456%_ @@ -66,7 +66,7 @@ _%L47453%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7723177232%_ + (_%__kont7745977460%_ (lambda (_%L47297%_ _%L47299%_ _%L47300%_ @@ -97,7 +97,7 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7723577236%_ + (_%__kont7746377464%_ (lambda (_%L47114%_ _%L47116%_ _%L47117%_ _%L47118%_) (let ((_%meta47155%_ (let () @@ -141,7 +141,7 @@ _%stx46329%_ _%L47116%_ _%meta47155%_)))))) - (_%__kont7723977240%_ + (_%__kont7746777468%_ (lambda (_%L46992%_ _%L46994%_ _%L46995%_) (cons (gx#datum->syntax '#f 'with-contract) (cons (cons _%L46995%_ @@ -151,7 +151,7 @@ (cons _%g4701847021%_ _%g4701947024%_)) '() _%L46992%_))))) - (_%__kont7724377244%_ + (_%__kont7747177472%_ (lambda (_%L46850%_ _%L46852%_ _%L46853%_ @@ -176,7 +176,7 @@ _%L46850%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7724777248%_ + (_%__kont7747577476%_ (lambda (_%L46708%_ _%L46710%_ _%L46711%_ _%L46712%_) (cons (gx#datum->syntax '#f 'using) (cons (cons _%L46712%_ _%L46711%_) @@ -190,7 +190,7 @@ _%L46708%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7725177252%_ + (_%__kont7747977480%_ (lambda (_%L46604%_) (cons (gx#datum->syntax '#f 'let) (cons '() @@ -198,14 +198,14 @@ (cons _%g4662246625%_ _%g4662346628%_)) '() _%L46604%_)))))) - (let* ((_%__match7755777558%_ + (let* ((_%__match7778577786%_ (lambda (_%e4652746554%_ _%hd4652846558%_ _%tl4652946561%_ _%e4653046564%_ _%hd4653146568%_ _%tl4653246571%_ - _%__splice7725377254%_ + _%__splice7748177482%_ _%target4653346574%_ _%tl4653546577%_) (letrec ((_%loop4653646580%_ @@ -227,10 +227,10 @@ _%body4654046587%_)))) (let ((_%body4654146600%_ (reverse _%body4654046587%_))) - (_%__kont7725177252%_ + (_%__kont7747977480%_ _%body4654146600%_)))))) (_%loop4653646580%_ _%target4653346574%_ '())))) - (_%__match7753577536%_ + (_%__match7776377764%_ (lambda (_%e4650546638%_ _%hd4650646642%_ _%tl4650746645%_ @@ -243,7 +243,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (letrec ((_%loop4652046684%_ @@ -270,7 +270,7 @@ (_%L46711%_ _%tl4651646675%_) (_%L46712%_ _%hd4651546672%_)) (if (gx#identifier? _%L46712%_) - (_%__kont7724777248%_ + (_%__kont7747577476%_ _%L46708%_ _%L46710%_ _%L46711%_ @@ -279,7 +279,7 @@ (declare (not safe)) (_%g4633846547%_))))))))) (_%loop4652046684%_ _%target4651746678%_ '())))) - (_%__match7752177522%_ + (_%__match7774977750%_ (lambda (_%e4650546638%_ _%hd4650646642%_ _%tl4650746645%_ @@ -301,7 +301,7 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4651046655%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4651046655%_ '0))) @@ -309,16 +309,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4650546638%_ _%hd4650646642%_ _%tl4650746645%_ @@ -331,7 +331,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -341,7 +341,7 @@ (declare (not safe)) (_%g4633846547%_))))) (let () (declare (not safe)) (_%g4633846547%_))))) - (_%__match7750377504%_ + (_%__match7773177732%_ (lambda (_%e4647146750%_ _%hd4647246754%_ _%tl4647346757%_ @@ -363,7 +363,7 @@ _%e4648946810%_ _%hd4649046814%_ _%tl4649146817%_ - _%__splice7724577246%_ + _%__splice7747377474%_ _%target4649246820%_ _%tl4649446823%_) (letrec ((_%loop4649546826%_ @@ -413,13 +413,13 @@ (gx#datum->syntax '#f ':?)))) - (_%__kont7724377244%_ + (_%__kont7747177472%_ _%L46850%_ _%L46852%_ _%L46853%_ _%L46854%_ _%L46855%_) - (_%__match7752177522%_ + (_%__match7774977750%_ _%e4647146750%_ _%hd4647246754%_ _%tl4647346757%_ @@ -430,7 +430,7 @@ _%hd4647846774%_ _%tl4647946777%_)))))))) (_%loop4649546826%_ _%target4649246820%_ '())))) - (_%__match7744777448%_ + (_%__match7767577676%_ (lambda (_%e4644246912%_ _%hd4644346916%_ _%tl4644446919%_ @@ -446,7 +446,7 @@ _%e4645446952%_ _%hd4645546956%_ _%tl4645646959%_ - _%__splice7724177242%_ + _%__splice7746977470%_ _%target4645746962%_ _%tl4645946965%_) (letrec ((_%loop4646046968%_ @@ -472,11 +472,11 @@ (_%L46994%_ _%hd4645546956%_) (_%L46995%_ _%hd4644946936%_)) (if (gx#identifier? _%L46995%_) - (_%__kont7723977240%_ + (_%__kont7746777468%_ _%L46992%_ _%L46994%_ _%L46995%_) - (_%__match7752177522%_ + (_%__match7774977750%_ _%e4644246912%_ _%hd4644346916%_ _%tl4644446919%_ @@ -487,7 +487,7 @@ _%hd4644946936%_ _%tl4645046939%_)))))))) (_%loop4646046968%_ _%target4645746962%_ '())))) - (_%__match7742777428%_ + (_%__match7765577656%_ (lambda (_%e4644246912%_ _%hd4644346916%_ _%tl4644446919%_ @@ -502,7 +502,7 @@ _%tl4645346949%_) (if (gx#identifier? _%hd4645246946%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82622_| + |gerbil/core/contract~Using[1]#_g82896_| _%hd4645246946%_) (if (gx#stx-pair? _%tl4645346949%_) (let ((_%e4645446952%_ @@ -518,7 +518,7 @@ (if (gx#stx-null? _%tl4645646959%_) (if (gx#stx-pair/null? _%tl4644746929%_) - (let ((_%__splice7724177242%_ + (let ((_%__splice7746977470%_ (gx#syntax-split-splice _%tl4644746929%_ '0))) @@ -526,17 +526,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7724177242%_ + _%__splice7746977470%_ '1))) (_%target4645746962%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724177242%_ + _%__splice7746977470%_ '0)))) (if (gx#stx-null? _%tl4645946965%_) - (_%__match7744777448%_ + (_%__match7767577676%_ _%e4644246912%_ _%hd4644346916%_ _%tl4644446919%_ @@ -552,7 +552,7 @@ _%e4645446952%_ _%hd4645546956%_ _%tl4645646959%_ - _%__splice7724177242%_ + _%__splice7746977470%_ _%target4645746962%_ _%tl4645946965%_) (if (gx#stx-pair? @@ -618,20 +618,20 @@ (let () (declare (not safe)) (##car _%e4648946810%_)))) (if (gx#stx-null? _%tl4649146817%_) (if (gx#stx-pair/null? _%tl4644746929%_) - (let ((_%__splice7724577246%_ + (let ((_%__splice7747377474%_ (gx#syntax-split-splice _%tl4644746929%_ '0))) (let ((_%tl4649446823%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724577246%_ '1))) + (##vector-ref _%__splice7747377474%_ '1))) (_%target4649246820%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724577246%_ + _%__splice7747377474%_ '0)))) (if (gx#stx-null? _%tl4649446823%_) - (_%__match7750377504%_ + (_%__match7773177732%_ _%e4644246912%_ _%hd4644346916%_ _%tl4644446919%_ @@ -653,7 +653,7 @@ _%e4648946810%_ _%hd4649046814%_ _%tl4649146817%_ - _%__splice7724577246%_ + _%__splice7747377474%_ _%target4649246820%_ _%tl4649446823%_) (if (gx#stx-pair? _%hd4644946936%_) @@ -700,7 +700,7 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4644746929%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4644746929%_ '0))) @@ -708,16 +708,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4644246912%_ _%hd4644346916%_ _%tl4644446919%_ @@ -730,7 +730,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -751,20 +751,20 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4644746929%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4644746929%_ '0))) (let ((_%tl4651946681%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '1))) + (##vector-ref _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4644246912%_ _%hd4644346916%_ _%tl4644446919%_ @@ -777,7 +777,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -803,19 +803,19 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4644746929%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _%tl4644746929%_ '0))) (let ((_%tl4651946681%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '1))) + (##vector-ref _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '0)))) + (##vector-ref _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4644246912%_ _%hd4644346916%_ _%tl4644446919%_ @@ -828,7 +828,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () (declare (not safe)) (_%g4633846547%_))))) @@ -850,7 +850,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4644746929%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4644746929%_ '0))) @@ -858,17 +858,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4644246912%_ _%hd4644346916%_ _%tl4644446919%_ @@ -881,7 +881,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -905,7 +905,7 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4644746929%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4644746929%_ '0))) @@ -913,17 +913,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4644246912%_ _%hd4644346916%_ _%tl4644446919%_ @@ -936,7 +936,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -960,7 +960,7 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4644746929%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4644746929%_ '0))) @@ -968,16 +968,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4644246912%_ _%hd4644346916%_ _%tl4644446919%_ @@ -990,7 +990,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -1002,7 +1002,7 @@ (let () (declare (not safe)) (_%g4633846547%_)))))) - (_%__match7740377404%_ + (_%__match7763177632%_ (lambda (_%e4641547034%_ _%hd4641647038%_ _%tl4641747041%_ @@ -1018,7 +1018,7 @@ _%e4642747074%_ _%hd4642847078%_ _%tl4642947081%_ - _%__splice7723777238%_ + _%__splice7746577466%_ _%target4643047084%_ _%tl4643247087%_) (letrec ((_%loop4643347090%_ @@ -1067,12 +1067,12 @@ (gx#datum->syntax '#f ':?)))) - (_%__kont7723577236%_ + (_%__kont7746377464%_ _%L47114%_ _%L47116%_ _%L47117%_ _%L47118%_) - (_%__match7742777428%_ + (_%__match7765577656%_ _%e4641547034%_ _%hd4641647038%_ _%tl4641747041%_ @@ -1086,7 +1086,7 @@ _%hd4642547068%_ _%tl4642647071%_)))))))) (_%loop4643347090%_ _%target4643047084%_ '())))) - (_%__match7736377364%_ + (_%__match7759177592%_ (lambda (_%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1111,7 +1111,7 @@ _%e4639947257%_ _%hd4640047261%_ _%tl4640147264%_ - _%__splice7723377234%_ + _%__splice7746177462%_ _%target4640247267%_ _%tl4640447270%_) (letrec ((_%loop4640547273%_ @@ -1162,14 +1162,14 @@ (gx#datum->syntax '#f ':?)))) - (_%__kont7723177232%_ + (_%__kont7745977460%_ _%L47297%_ _%L47299%_ _%L47300%_ _%L47301%_ _%L47302%_ _%L47303%_) - (_%__match7742777428%_ + (_%__match7765577656%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1183,7 +1183,7 @@ _%hd4638847221%_ _%tl4638947224%_)))))))) (_%loop4640547273%_ _%target4640247267%_ '())))) - (_%__match7733177332%_ + (_%__match7755977560%_ (lambda (_%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1201,7 +1201,7 @@ _%tl4639247234%_) (if (gx#identifier? _%hd4639147231%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82623_| + |gerbil/core/contract~Using[1]#_g82897_| _%hd4639147231%_) (if (gx#stx-pair? _%tl4639247234%_) (let ((_%e4639347237%_ @@ -1245,19 +1245,19 @@ _%tl4640147264%_) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7723377234%_ + (let ((_%__splice7746177462%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _%tl4638347204%_ '0))) (let ((_%tl4640447270%_ (let () (declare (not safe)) - (##vector-ref _%__splice7723377234%_ '1))) + (##vector-ref _%__splice7746177462%_ '1))) (_%target4640247267%_ (let () (declare (not safe)) - (##vector-ref _%__splice7723377234%_ '0)))) + (##vector-ref _%__splice7746177462%_ '0)))) (if (gx#stx-null? _%tl4640447270%_) - (_%__match7736377364%_ + (_%__match7759177592%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1282,7 +1282,7 @@ _%e4639947257%_ _%hd4640047261%_ _%tl4640147264%_ - _%__splice7723377234%_ + _%__splice7746177462%_ _%target4640247267%_ _%tl4640447270%_) (if (gx#stx-pair? _%hd4638547211%_) @@ -1326,7 +1326,7 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -1334,16 +1334,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1356,7 +1356,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -1370,27 +1370,27 @@ (if (gx#identifier? _%hd4638847221%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82622_| + |gerbil/core/contract~Using[1]#_g82896_| _%hd4638847221%_) (if (gx#stx-null? _%tl4639847254%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _%tl4638347204%_) - (let ((_%__splice7724577246%_ + (let ((_%__splice7747377474%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) (let ((_%tl4649446823%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724577246%_ '1))) + (##vector-ref _%__splice7747377474%_ '1))) (_%target4649246820%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724577246%_ + _%__splice7747377474%_ '0)))) (if (gx#stx-null? _%tl4649446823%_) - (_%__match7750377504%_ + (_%__match7773177732%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1412,7 +1412,7 @@ _%e4639647247%_ _%hd4639747251%_ _%tl4639847254%_ - _%__splice7724577246%_ + _%__splice7747377474%_ _%target4649246820%_ _%tl4649446823%_) (if (gx#stx-pair? _%hd4638547211%_) @@ -1459,7 +1459,7 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -1467,16 +1467,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1489,7 +1489,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -1510,7 +1510,7 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -1518,16 +1518,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1540,7 +1540,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -1561,20 +1561,20 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) (let ((_%tl4651946681%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '1))) + (##vector-ref _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1587,7 +1587,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -1610,7 +1610,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -1618,13 +1618,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '1))) + (##vector-ref _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '0)))) + (##vector-ref _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1637,7 +1637,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () (declare (not safe)) (_%g4633846547%_))))) @@ -1648,7 +1648,7 @@ (_%g4633846547%_)))))) (if (gx#stx-null? _%tl4639247234%_) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7723777238%_ + (let ((_%__splice7746577466%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -1656,17 +1656,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7723777238%_ + _%__splice7746577466%_ '1))) (_%target4643047084%_ (let () (declare (not safe)) (##vector-ref - _%__splice7723777238%_ + _%__splice7746577466%_ '0)))) (if (gx#stx-null? _%tl4643247087%_) - (_%__match7740377404%_ + (_%__match7763177632%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1682,7 +1682,7 @@ _%e4639047227%_ _%hd4639147231%_ _%tl4639247234%_ - _%__splice7723777238%_ + _%__splice7746577466%_ _%target4643047084%_ _%tl4643247087%_) (if (gx#stx-pair? @@ -1732,7 +1732,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -1741,18 +1741,18 @@ (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1765,7 +1765,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -1780,7 +1780,7 @@ (_%g4633846547%_))))) (if (gx#stx-null? _%tl4639247234%_) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7723777238%_ + (let ((_%__splice7746577466%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -1788,16 +1788,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7723777238%_ + _%__splice7746577466%_ '1))) (_%target4643047084%_ (let () (declare (not safe)) (##vector-ref - _%__splice7723777238%_ + _%__splice7746577466%_ '0)))) (if (gx#stx-null? _%tl4643247087%_) - (_%__match7740377404%_ + (_%__match7763177632%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1813,7 +1813,7 @@ _%e4639047227%_ _%hd4639147231%_ _%tl4639247234%_ - _%__splice7723777238%_ + _%__splice7746577466%_ _%target4643047084%_ _%tl4643247087%_) (if (gx#stx-pair? @@ -1857,7 +1857,7 @@ (_%g4633846547%_)))) (if (gx#identifier? _%hd4638847221%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82622_| + |gerbil/core/contract~Using[1]#_g82896_| _%hd4638847221%_) (if (gx#stx-pair? _%tl4639247234%_) (let ((_%e4648646800%_ @@ -1885,20 +1885,20 @@ (let () (declare (not safe)) (##car _%e4648946810%_)))) (if (gx#stx-null? _%tl4649146817%_) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7724577246%_ + (let ((_%__splice7747377474%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) (let ((_%tl4649446823%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724577246%_ '1))) + (##vector-ref _%__splice7747377474%_ '1))) (_%target4649246820%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724577246%_ + _%__splice7747377474%_ '0)))) (if (gx#stx-null? _%tl4649446823%_) - (_%__match7750377504%_ + (_%__match7773177732%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1920,7 +1920,7 @@ _%e4648946810%_ _%hd4649046814%_ _%tl4649146817%_ - _%__splice7724577246%_ + _%__splice7747377474%_ _%target4649246820%_ _%tl4649446823%_) (if (gx#stx-pair? _%hd4638547211%_) @@ -1967,7 +1967,7 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -1975,16 +1975,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -1997,7 +1997,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -2018,20 +2018,20 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) (let ((_%tl4651946681%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '1))) + (##vector-ref _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -2044,7 +2044,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -2070,19 +2070,19 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _%tl4638347204%_ '0))) (let ((_%tl4651946681%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '1))) + (##vector-ref _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '0)))) + (##vector-ref _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -2095,7 +2095,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () (declare (not safe)) (_%g4633846547%_))))) @@ -2118,7 +2118,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -2126,13 +2126,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '1))) + (##vector-ref _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '0)))) + (##vector-ref _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -2145,7 +2145,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () (declare (not safe)) (_%g4633846547%_))))) @@ -2168,7 +2168,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -2177,18 +2177,18 @@ (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -2201,7 +2201,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -2216,7 +2216,7 @@ (_%g4633846547%_)))))) (if (gx#stx-null? _%tl4639247234%_) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7723777238%_ + (let ((_%__splice7746577466%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -2224,16 +2224,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7723777238%_ + _%__splice7746577466%_ '1))) (_%target4643047084%_ (let () (declare (not safe)) (##vector-ref - _%__splice7723777238%_ + _%__splice7746577466%_ '0)))) (if (gx#stx-null? _%tl4643247087%_) - (_%__match7740377404%_ + (_%__match7763177632%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -2249,7 +2249,7 @@ _%e4639047227%_ _%hd4639147231%_ _%tl4639247234%_ - _%__splice7723777238%_ + _%__splice7746577466%_ _%target4643047084%_ _%tl4643247087%_) (if (gx#stx-pair? _%hd4638547211%_) @@ -2289,7 +2289,7 @@ (_%g4633846547%_)))) (if (gx#identifier? _%hd4638847221%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82622_| + |gerbil/core/contract~Using[1]#_g82896_| _%hd4638847221%_) (if (gx#stx-pair? _%tl4639247234%_) (let ((_%e4648646800%_ @@ -2322,19 +2322,19 @@ _%tl4649146817%_) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7724577246%_ + (let ((_%__splice7747377474%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _%tl4638347204%_ '0))) (let ((_%tl4649446823%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724577246%_ '1))) + (##vector-ref _%__splice7747377474%_ '1))) (_%target4649246820%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724577246%_ '0)))) + (##vector-ref _%__splice7747377474%_ '0)))) (if (gx#stx-null? _%tl4649446823%_) - (_%__match7750377504%_ + (_%__match7773177732%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -2356,7 +2356,7 @@ _%e4648946810%_ _%hd4649046814%_ _%tl4649146817%_ - _%__splice7724577246%_ + _%__splice7747377474%_ _%target4649246820%_ _%tl4649446823%_) (if (gx#stx-pair? _%hd4638547211%_) @@ -2400,7 +2400,7 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -2408,16 +2408,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -2430,7 +2430,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -2454,18 +2454,18 @@ (_%hd4651546672%_ (let () (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) (let ((_%tl4651946681%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '1))) + (##vector-ref _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '0)))) + (##vector-ref _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -2478,7 +2478,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -2501,7 +2501,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -2509,13 +2509,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '1))) + (##vector-ref _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '0)))) + (##vector-ref _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -2528,7 +2528,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () (declare (not safe)) (_%g4633846547%_))))) @@ -2551,7 +2551,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -2560,18 +2560,18 @@ (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -2584,7 +2584,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -2610,7 +2610,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4638347204%_ '0))) @@ -2618,17 +2618,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4637847187%_ _%hd4637947191%_ _%tl4638047194%_ @@ -2641,7 +2641,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -2653,7 +2653,7 @@ (let () (declare (not safe)) (_%g4633846547%_)))))))) - (_%__match7730177302%_ + (_%__match7752977530%_ (lambda (_%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -2672,7 +2672,7 @@ _%e4636047413%_ _%hd4636147417%_ _%tl4636247420%_ - _%__splice7722977230%_ + _%__splice7745777458%_ _%target4636347423%_ _%tl4636547426%_) (letrec ((_%loop4636647429%_ @@ -2726,13 +2726,13 @@ (gx#datum->syntax '#f ':?)))) - (_%__kont7722777228%_ + (_%__kont7745577456%_ _%L47453%_ _%L47455%_ _%L47456%_ _%L47457%_ _%L47458%_) - (_%__match7733177332%_ + (_%__match7755977560%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -2749,8 +2749,8 @@ _%hd4635847407%_ _%tl4635947410%_)))))))) (_%loop4636647429%_ _%target4636347423%_ '()))))) - (if (gx#stx-pair? _%__stx7722477225%_) - (let ((_%e4634547363%_ (gx#syntax-e _%__stx7722477225%_))) + (if (gx#stx-pair? _%__stx7745277453%_) + (let ((_%e4634547363%_ (gx#syntax-e _%__stx7745277453%_))) (let ((_%tl4634747370%_ (let () (declare (not safe)) @@ -2823,7 +2823,7 @@ (##car _%e4636047413%_)))) (if (gx#stx-null? _%tl4636247420%_) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7722977230%_ + (let ((_%__splice7745777458%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) @@ -2831,16 +2831,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7722977230%_ + _%__splice7745777458%_ '1))) (_%target4636347423%_ (let () (declare (not safe)) (##vector-ref - _%__splice7722977230%_ + _%__splice7745777458%_ '0)))) (if (gx#stx-null? _%tl4636547426%_) - (_%__match7730177302%_ + (_%__match7752977530%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -2859,7 +2859,7 @@ _%e4636047413%_ _%hd4636147417%_ _%tl4636247420%_ - _%__splice7722977230%_ + _%__splice7745777458%_ _%target4636347423%_ _%tl4636547426%_) (if (gx#stx-pair? _%hd4635247387%_) @@ -2899,7 +2899,7 @@ (_%g4633846547%_)))) (if (gx#identifier? _%hd4635847407%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82623_| + |gerbil/core/contract~Using[1]#_g82897_| _%hd4635847407%_) (if (gx#stx-pair? _%tl4636247420%_) (let ((_%e4639647247%_ @@ -2928,19 +2928,19 @@ _%tl4640147264%_) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7723377234%_ + (let ((_%__splice7746177462%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _%tl4635047380%_ '0))) (let ((_%tl4640447270%_ (let () (declare (not safe)) - (##vector-ref _%__splice7723377234%_ '1))) + (##vector-ref _%__splice7746177462%_ '1))) (_%target4640247267%_ (let () (declare (not safe)) - (##vector-ref _%__splice7723377234%_ '0)))) + (##vector-ref _%__splice7746177462%_ '0)))) (if (gx#stx-null? _%tl4640447270%_) - (_%__match7736377364%_ + (_%__match7759177592%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -2965,7 +2965,7 @@ _%e4639947257%_ _%hd4640047261%_ _%tl4640147264%_ - _%__splice7723377234%_ + _%__splice7746177462%_ _%target4640247267%_ _%tl4640447270%_) (if (gx#stx-pair? _%hd4635247387%_) @@ -3008,20 +3008,20 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) (let ((_%tl4651946681%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '1))) + (##vector-ref _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3034,7 +3034,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -3046,25 +3046,25 @@ (if (gx#identifier? _%hd4635547397%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82622_| + |gerbil/core/contract~Using[1]#_g82896_| _%hd4635547397%_) (if (gx#stx-null? _%tl4639847254%_) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7724577246%_ + (let ((_%__splice7747377474%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _%tl4635047380%_ '0))) (let ((_%tl4649446823%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724577246%_ '1))) + (##vector-ref _%__splice7747377474%_ '1))) (_%target4649246820%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724577246%_ '0)))) + (##vector-ref _%__splice7747377474%_ '0)))) (if (gx#stx-null? _%tl4649446823%_) - (_%__match7750377504%_ + (_%__match7773177732%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3086,7 +3086,7 @@ _%e4639647247%_ _%hd4639747251%_ _%tl4639847254%_ - _%__splice7724577246%_ + _%__splice7747377474%_ _%target4649246820%_ _%tl4649446823%_) (if (gx#stx-pair? _%hd4635247387%_) @@ -3130,7 +3130,7 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) @@ -3138,16 +3138,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3160,7 +3160,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -3181,20 +3181,20 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) (let ((_%tl4651946681%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '1))) + (##vector-ref _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3207,7 +3207,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -3229,18 +3229,18 @@ (_%hd4651546672%_ (let () (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) (let ((_%tl4651946681%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '1))) + (##vector-ref _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '0)))) + (##vector-ref _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3253,7 +3253,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -3276,7 +3276,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) @@ -3285,18 +3285,18 @@ (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3309,7 +3309,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -3324,7 +3324,7 @@ (_%g4633846547%_)))) (if (gx#identifier? _%hd4635547397%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82622_| + |gerbil/core/contract~Using[1]#_g82896_| _%hd4635547397%_) (if (gx#stx-pair? _%tl4636247420%_) (let ((_%e4648946810%_ @@ -3342,19 +3342,19 @@ _%tl4649146817%_) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7724577246%_ + (let ((_%__splice7747377474%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _%tl4635047380%_ '0))) (let ((_%tl4649446823%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724577246%_ '1))) + (##vector-ref _%__splice7747377474%_ '1))) (_%target4649246820%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724577246%_ '0)))) + (##vector-ref _%__splice7747377474%_ '0)))) (if (gx#stx-null? _%tl4649446823%_) - (_%__match7750377504%_ + (_%__match7773177732%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3376,7 +3376,7 @@ _%e4648946810%_ _%hd4649046814%_ _%tl4649146817%_ - _%__splice7724577246%_ + _%__splice7747377474%_ _%target4649246820%_ _%tl4649446823%_) (if (gx#stx-pair? _%hd4635247387%_) @@ -3419,20 +3419,20 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) (let ((_%tl4651946681%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '1))) + (##vector-ref _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3445,7 +3445,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -3471,19 +3471,19 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _%tl4635047380%_ '0))) (let ((_%tl4651946681%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '1))) + (##vector-ref _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '0)))) + (##vector-ref _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3496,7 +3496,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () (declare (not safe)) (_%g4633846547%_))))) @@ -3519,7 +3519,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) @@ -3527,13 +3527,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '1))) + (##vector-ref _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '0)))) + (##vector-ref _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3546,7 +3546,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () (declare (not safe)) (_%g4633846547%_))))) @@ -3569,7 +3569,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) @@ -3578,18 +3578,18 @@ (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3602,7 +3602,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -3617,7 +3617,7 @@ (_%g4633846547%_))))) (if (gx#identifier? _%hd4635547397%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82622_| + |gerbil/core/contract~Using[1]#_g82896_| _%hd4635547397%_) (if (gx#stx-pair? _%tl4636247420%_) (let ((_%e4648946810%_ @@ -3635,7 +3635,7 @@ _%tl4649146817%_) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7724577246%_ + (let ((_%__splice7747377474%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) @@ -3643,13 +3643,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7724577246%_ '1))) + (##vector-ref _%__splice7747377474%_ '1))) (_%target4649246820%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724577246%_ '0)))) + (##vector-ref _%__splice7747377474%_ '0)))) (if (gx#stx-null? _%tl4649446823%_) - (_%__match7750377504%_ + (_%__match7773177732%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3671,7 +3671,7 @@ _%e4648946810%_ _%hd4649046814%_ _%tl4649146817%_ - _%__splice7724577246%_ + _%__splice7747377474%_ _%target4649246820%_ _%tl4649446823%_) (if (gx#stx-pair? _%hd4635247387%_) @@ -3713,18 +3713,18 @@ (_%hd4651546672%_ (let () (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) (let ((_%tl4651946681%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '1))) + (##vector-ref _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '0)))) + (##vector-ref _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3737,7 +3737,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -3760,7 +3760,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) @@ -3768,13 +3768,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '1))) + (##vector-ref _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '0)))) + (##vector-ref _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3787,7 +3787,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () (declare (not safe)) (_%g4633846547%_))))) @@ -3810,7 +3810,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) @@ -3819,18 +3819,18 @@ (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3843,7 +3843,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -3869,7 +3869,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) @@ -3877,17 +3877,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3900,7 +3900,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -3914,20 +3914,20 @@ (_%g4633846547%_)))))))) (if (gx#stx-null? _%tl4635947410%_) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7723777238%_ + (let ((_%__splice7746577466%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) (let ((_%tl4643247087%_ (let () (declare (not safe)) - (##vector-ref _%__splice7723777238%_ '1))) + (##vector-ref _%__splice7746577466%_ '1))) (_%target4643047084%_ (let () (declare (not safe)) (##vector-ref - _%__splice7723777238%_ + _%__splice7746577466%_ '0)))) (if (gx#stx-null? _%tl4643247087%_) - (_%__match7740377404%_ + (_%__match7763177632%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -3943,7 +3943,7 @@ _%e4635747403%_ _%hd4635847407%_ _%tl4635947410%_ - _%__splice7723777238%_ + _%__splice7746577466%_ _%target4643047084%_ _%tl4643247087%_) (if (gx#stx-pair? _%hd4635247387%_) @@ -3990,7 +3990,7 @@ (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) @@ -3998,16 +3998,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) (##vector-ref - _%__splice7724977250%_ + _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -4020,7 +4020,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -4044,18 +4044,18 @@ (_%hd4651546672%_ (let () (declare (not safe)) (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) (let ((_%tl4651946681%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '1))) + (##vector-ref _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '0)))) + (##vector-ref _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -4068,7 +4068,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () @@ -4091,7 +4091,7 @@ (##car _%e4651446668%_)))) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7724977250%_ + (let ((_%__splice7747777478%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) @@ -4099,13 +4099,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '1))) + (##vector-ref _%__splice7747777478%_ '1))) (_%target4651746678%_ (let () (declare (not safe)) - (##vector-ref _%__splice7724977250%_ '0)))) + (##vector-ref _%__splice7747777478%_ '0)))) (if (gx#stx-null? _%tl4651946681%_) - (_%__match7753577536%_ + (_%__match7776377764%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ @@ -4118,7 +4118,7 @@ _%e4651446668%_ _%hd4651546672%_ _%tl4651646675%_ - _%__splice7724977250%_ + _%__splice7747777478%_ _%target4651746678%_ _%tl4651946681%_) (let () (declare (not safe)) (_%g4633846547%_))))) @@ -4129,7 +4129,7 @@ (_%g4633846547%_)))))) (if (gx#stx-null? _%hd4634947377%_) (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7725377254%_ + (let ((_%__splice7748177482%_ (gx#syntax-split-splice _%tl4635047380%_ '0))) @@ -4137,24 +4137,24 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7725377254%_ + _%__splice7748177482%_ '1))) (_%target4653346574%_ (let () (declare (not safe)) (##vector-ref - _%__splice7725377254%_ + _%__splice7748177482%_ '0)))) (if (gx#stx-null? _%tl4653546577%_) - (_%__match7755777558%_ + (_%__match7778577786%_ _%e4634547363%_ _%hd4634647367%_ _%tl4634747370%_ _%e4634847373%_ _%hd4634947377%_ _%tl4635047380%_ - _%__splice7725377254%_ + _%__splice7748177482%_ _%target4653346574%_ _%tl4653546577%_) (let () @@ -4225,7 +4225,7 @@ (if (gx#identifier? _%hd4754047600%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82624_| + |gerbil/core/contract~Using[1]#_g82898_| _%hd4754047600%_) (if (gx#stx-pair? _%tl4754147603%_) @@ -4242,30 +4242,30 @@ (##cdr _%e4754247606%_)))) (if (gx#stx-null? _%tl4754447613%_) (if (gx#stx-pair/null? _%tl4753547583%_) - (let ((_g82625_ + (let ((_g82899_ (gx#syntax-split-splice _%tl4753547583%_ '0))) (begin - (let ((_g82626_ + (let ((_g82900_ (let () (declare (not safe)) - (if (##values? _g82625_) - (##vector-length _g82625_) + (if (##values? _g82899_) + (##vector-length _g82899_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82626_ 2))) + (##fx= _g82900_ 2))) (error "Context expects 2 values" - _g82626_))) + _g82900_))) (let ((_%target4754547616%_ (let () (declare (not safe)) - (##vector-ref _g82625_ 0))) + (##vector-ref _g82899_ 0))) (_%tl4754747619%_ (let () (declare (not safe)) - (##vector-ref _g82625_ 1)))) + (##vector-ref _g82899_ 1)))) (if (gx#stx-null? _%tl4754747619%_) (letrec ((_%loop4754847622%_ (lambda (_%hd4754647626%_ @@ -4336,18 +4336,18 @@ (define |gerbil/core/contract~Using[1]#!class-slot-type| (lambda (_%klass48249%_ _%slot48251%_) (let ((_%$e48253%_ - (let ((__obj82462 _%klass48249%_)) + (let ((__obj82736 _%klass48249%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82462 + __obj82736 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82462 '19 '#f '#f)) + (##unchecked-structure-ref __obj82736 '19 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82462 + __obj82736 'slot-types))))) (if _%$e48253%_ ((lambda (_%slot-types48257%_) @@ -4357,18 +4357,18 @@ (define |gerbil/core/contract~Using[1]#!class-slot-default| (lambda (_%klass48230%_ _%slot48232%_) (let ((_%$e48234%_ - (let ((__obj82463 _%klass48230%_)) + (let ((__obj82737 _%klass48230%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82463 + __obj82737 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82463 '20 '#f '#f)) + (##unchecked-structure-ref __obj82737 '20 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82463 + __obj82737 'slot-defaults))))) (if _%$e48234%_ ((lambda (_%slot-defaults48238%_) @@ -4382,18 +4382,18 @@ (define |gerbil/core/contract~Using[1]#!class-slot-contract| (lambda (_%klass48211%_ _%slot48213%_) (let ((_%$e48215%_ - (let ((__obj82464 _%klass48211%_)) + (let ((__obj82738 _%klass48211%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82464 + __obj82738 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82464 '20 '#f '#f)) + (##unchecked-structure-ref __obj82738 '20 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82464 + __obj82738 'slot-defaults))))) (if _%$e48215%_ ((lambda (_%slot-defaults48219%_) @@ -4412,25 +4412,25 @@ _%slot47981%_))) (if _%contract4798247984%_ (let* ((_%contract47988%_ _%contract4798247984%_) - (_%__stx7756077561%_ _%contract47988%_) + (_%__stx7778877789%_ _%contract47988%_) (_%g4799348030%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7756077561%_)))) - (let ((_%__kont7756377564%_ + _%__stx7778877789%_)))) + (let ((_%__kont7779177792%_ (lambda (_%L48180%_ _%L48182%_) (not (gx#free-identifier=? _%L48182%_ (gx#datum->syntax '#f ':-))))) - (_%__kont7756577566%_ + (_%__kont7779377794%_ (lambda (_%L48120%_ _%L48122%_ _%L48123%_) (not (gx#free-identifier=? _%L48122%_ (gx#datum->syntax '#f ':-))))) - (_%__kont7756777568%_ (lambda (_%L48057%_) '#f))) - (let* ((_%__match7761377614%_ + (_%__kont7779577796%_ (lambda (_%L48057%_) '#f))) + (let* ((_%__match7784177842%_ (lambda (_%e4800648080%_ _%hd4800748084%_ _%tl4800848087%_ @@ -4459,14 +4459,14 @@ (gx#free-identifier=? _%L48122%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7756577566%_ + (_%__kont7779377794%_ _%L48120%_ _%L48122%_ _%L48123%_) (let () (declare (not safe)) (_%g4799348030%_)))))) - (_%__match7758377584%_ + (_%__match7781177812%_ (lambda (_%e4799748160%_ _%hd4799848164%_ _%tl4799948167%_ @@ -4488,12 +4488,12 @@ (gx#free-identifier=? _%L48182%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7756377564%_ _%L48180%_ _%L48182%_) + (_%__kont7779177792%_ _%L48180%_ _%L48182%_) (if (gx#identifier? _%hd4799848164%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82627_| + |gerbil/core/contract~Using[1]#_g82901_| _%hd4799848164%_) - (_%__kont7756777568%_ + (_%__kont7779577796%_ _%hd4800148174%_) (let () (declare (not safe)) @@ -4501,9 +4501,9 @@ (let () (declare (not safe)) (_%g4799348030%_)))))))) - (if (gx#stx-pair? _%__stx7756077561%_) + (if (gx#stx-pair? _%__stx7778877789%_) (let ((_%e4799748160%_ - (gx#syntax-e _%__stx7756077561%_))) + (gx#syntax-e _%__stx7778877789%_))) (let ((_%tl4799948167%_ (let () (declare (not safe)) @@ -4524,7 +4524,7 @@ (declare (not safe)) (##car _%e4800048170%_)))) (if (gx#stx-null? _%tl4800248177%_) - (_%__match7758377584%_ + (_%__match7781177812%_ _%e4799748160%_ _%hd4799848164%_ _%tl4799948167%_ @@ -4533,7 +4533,7 @@ _%tl4800248177%_) (if (gx#identifier? _%hd4799848164%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82627_| + |gerbil/core/contract~Using[1]#_g82901_| _%hd4799848164%_) (if (gx#stx-pair? _%tl4800248177%_) @@ -4559,7 +4559,7 @@ (declare (not safe)) (##car _%e4801548110%_)))) (if (gx#stx-null? _%tl4801748117%_) - (_%__match7761377614%_ + (_%__match7784177842%_ _%e4799748160%_ _%hd4799848164%_ _%tl4799948167%_ @@ -4597,22 +4597,22 @@ _%slot47749%_))) (if _%contract4775047752%_ (let* ((_%contract47756%_ _%contract4775047752%_) - (_%__stx7763477635%_ _%contract47756%_) + (_%__stx7786277863%_ _%contract47756%_) (_%g4776147798%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7763477635%_)))) - (let ((_%__kont7763777638%_ + _%__stx7786277863%_)))) + (let ((_%__kont7786577866%_ (lambda (_%L47948%_ _%L47950%_) (not (gx#free-identifier=? _%L47950%_ (gx#datum->syntax '#f ':-))))) - (_%__kont7763977640%_ + (_%__kont7786777868%_ (lambda (_%L47888%_ _%L47890%_ _%L47891%_) '#t)) - (_%__kont7764177642%_ (lambda (_%L47825%_) '#t))) - (let* ((_%__match7768777688%_ + (_%__kont7786977870%_ (lambda (_%L47825%_) '#t))) + (let* ((_%__match7791577916%_ (lambda (_%e4777447848%_ _%hd4777547852%_ _%tl4777647855%_ @@ -4641,14 +4641,14 @@ (gx#free-identifier=? _%L47890%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7763977640%_ + (_%__kont7786777868%_ _%L47888%_ _%L47890%_ _%L47891%_) (let () (declare (not safe)) (_%g4776147798%_)))))) - (_%__match7765777658%_ + (_%__match7788577886%_ (lambda (_%e4776547928%_ _%hd4776647932%_ _%tl4776747935%_ @@ -4670,12 +4670,12 @@ (gx#free-identifier=? _%L47950%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7763777638%_ _%L47948%_ _%L47950%_) + (_%__kont7786577866%_ _%L47948%_ _%L47950%_) (if (gx#identifier? _%hd4776647932%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82628_| + |gerbil/core/contract~Using[1]#_g82902_| _%hd4776647932%_) - (_%__kont7764177642%_ + (_%__kont7786977870%_ _%hd4776947942%_) (let () (declare (not safe)) @@ -4683,9 +4683,9 @@ (let () (declare (not safe)) (_%g4776147798%_)))))))) - (if (gx#stx-pair? _%__stx7763477635%_) + (if (gx#stx-pair? _%__stx7786277863%_) (let ((_%e4776547928%_ - (gx#syntax-e _%__stx7763477635%_))) + (gx#syntax-e _%__stx7786277863%_))) (let ((_%tl4776747935%_ (let () (declare (not safe)) @@ -4706,7 +4706,7 @@ (declare (not safe)) (##car _%e4776847938%_)))) (if (gx#stx-null? _%tl4777047945%_) - (_%__match7765777658%_ + (_%__match7788577886%_ _%e4776547928%_ _%hd4776647932%_ _%tl4776747935%_ @@ -4715,7 +4715,7 @@ _%tl4777047945%_) (if (gx#identifier? _%hd4776647932%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82628_| + |gerbil/core/contract~Using[1]#_g82902_| _%hd4776647932%_) (if (gx#stx-pair? _%tl4777047945%_) @@ -4741,7 +4741,7 @@ (declare (not safe)) (##car _%e4778347878%_)))) (if (gx#stx-null? _%tl4778547885%_) - (_%__match7768777688%_ + (_%__match7791577916%_ _%e4776547928%_ _%hd4776647932%_ _%tl4776747935%_ @@ -4807,18 +4807,18 @@ _%klass-or-id47709%_)) _%klass-or-id47709%_)) (_%accessors47715%_ - (let ((__obj82465 _%klass47712%_)) + (let ((__obj82739 _%klass47712%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82465 + __obj82739 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82465 '17 '#f '#f)) + (##unchecked-structure-ref __obj82739 '17 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82465 + __obj82739 'unchecked-accessors)))) (_%$e47720%_ (agetq _%slot47710%_ _%accessors47715%_))) (if _%$e47720%_ @@ -4844,31 +4844,31 @@ _%klass-or-id47689%_)) (_%mutators47696%_ (if _%checked?47691%_ - (let ((__obj82466 _%klass47693%_)) + (let ((__obj82740 _%klass47693%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82466 + __obj82740 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82466 '16 '#f '#f)) + (##unchecked-structure-ref __obj82740 '16 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82466 + __obj82740 'mutators))) - (let ((__obj82467 _%klass47693%_)) + (let ((__obj82741 _%klass47693%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82467 + __obj82741 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82467 '18 '#f '#f)) + (##unchecked-structure-ref __obj82741 '18 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82467 + __obj82741 'unchecked-mutators))))) (_%$e47701%_ (agetq _%slot47690%_ _%mutators47696%_))) (if _%$e47701%_ @@ -4982,25 +4982,25 @@ (##cdr _%e4920749291%_)))) (if (gx#stx-pair/null? _%hd4920849295%_) - (let ((_g82629_ + (let ((_g82903_ (gx#syntax-split-splice _%hd4920849295%_ '0))) (begin - (let ((_g82630_ + (let ((_g82904_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g82629_) - (##vector-length _g82629_) + (if (##values? _g82903_) + (##vector-length _g82903_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g82630_ 2))) - (error "Context expects 2 values" _g82630_))) + (if (not (let () (declare (not safe)) (##fx= _g82904_ 2))) + (error "Context expects 2 values" _g82904_))) (let ((_%target4921049301%_ - (let () (declare (not safe)) (##vector-ref _g82629_ 0))) + (let () (declare (not safe)) (##vector-ref _g82903_ 0))) (_%tl4921249304%_ - (let () (declare (not safe)) (##vector-ref _g82629_ 1)))) + (let () (declare (not safe)) (##vector-ref _g82903_ 1)))) (if (gx#stx-null? _%tl4921249304%_) (letrec ((_%loop4921349307%_ (lambda (_%hd4921149311%_ _%body4921749314%_) @@ -5095,22 +5095,22 @@ (_%g4918049224%_ _%g4918149228%_))))) (_%g4917949381%_ (list (gx#syntax-local-introduce '@@type) - (let ((__obj82468 _%klass49173%_)) + (let ((__obj82742 _%klass49173%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82468 + __obj82742 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82468 + __obj82742 '12 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82468 + __obj82742 'type-descriptor))) _%var49175%_ _%klass49173%_ @@ -5200,22 +5200,22 @@ (_%g4908549104%_ _%g4908649108%_))))) (_%g4908449166%_ (list (let ((_%instance?49170%_ - (let ((__obj82469 _%klass49073%_)) + (let ((__obj82743 _%klass49073%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82469 + __obj82743 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82469 + __obj82743 '14 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82469 + __obj82743 'predicate))))) (if _%maybe?49071%_ (cons '? @@ -5229,14 +5229,14 @@ _%var49065%_ _%expr-body49080%_))) _%expr-body49080%_))))) - (let* ((_%__stx7770877709%_ _%stx48262%_) + (let* ((_%__stx7793677937%_ _%stx48262%_) (_%g4827348416%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7770877709%_)))) - (let ((_%__kont7771177712%_ + _%__stx7793677937%_)))) + (let ((_%__kont7793977940%_ (lambda (_%L48993%_ _%L48995%_ _%L48996%_ _%L48997%_) (let* ((_%g4902249030%_ (lambda (_%g4902349026%_) @@ -5260,24 +5260,24 @@ _%L48993%_)))) _%g4902349034%_)))) (_%g4902149057%_ - (let ((__obj82470 (gx#syntax-local-value _%L48995%_))) + (let ((__obj82744 (gx#syntax-local-value _%L48995%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82470 + __obj82744 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82470 + __obj82744 '1 '#f '#f)) (class-slot-ref |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj82470 + __obj82744 'identifier))))))) - (_%__kont7771577716%_ + (_%__kont7794377944%_ (lambda (_%L48871%_ _%L48873%_ _%L48874%_) (_%expand48267%_ _%L48874%_ @@ -5289,7 +5289,7 @@ '#t '#t '#f))) - (_%__kont7771977720%_ + (_%__kont7794777948%_ (lambda (_%L48749%_ _%L48751%_ _%L48752%_) (_%expand48267%_ _%L48752%_ @@ -5301,7 +5301,7 @@ '#t '#t '#t))) - (_%__kont7772377724%_ + (_%__kont7795177952%_ (lambda (_%L48627%_ _%L48629%_ _%L48630%_) (_%expand48267%_ _%L48630%_ @@ -5313,7 +5313,7 @@ '#f '#f '#f))) - (_%__kont7772777728%_ + (_%__kont7795577956%_ (lambda (_%L48503%_ _%L48505%_ _%L48506%_) (_%expand48267%_ _%L48506%_ @@ -5325,7 +5325,7 @@ '#f '#t '#f)))) - (let* ((_%__match7794777948%_ + (let* ((_%__match7817578176%_ (lambda (_%e4838748423%_ _%hd4838848427%_ _%tl4838948430%_ @@ -5341,7 +5341,7 @@ _%e4839948463%_ _%hd4840048467%_ _%tl4840148470%_ - _%__splice7772977730%_ + _%__splice7795777958%_ _%target4840248473%_ _%tl4840448476%_) (letrec ((_%loop4840548479%_ @@ -5370,7 +5370,7 @@ (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 _%L48505%_)) - (_%__kont7772777728%_ + (_%__kont7795577956%_ _%L48503%_ _%L48505%_ _%L48506%_) @@ -5378,7 +5378,7 @@ (declare (not safe)) (_%g4827348416%_))))))))) (_%loop4840548479%_ _%target4840248473%_ '())))) - (_%__match7790377904%_ + (_%__match7813178132%_ (lambda (_%e4836048547%_ _%hd4836148551%_ _%tl4836248554%_ @@ -5394,7 +5394,7 @@ _%e4837248587%_ _%hd4837348591%_ _%tl4837448594%_ - _%__splice7772577726%_ + _%__splice7795377954%_ _%target4837548597%_ _%tl4837748600%_) (letrec ((_%loop4837848603%_ @@ -5423,7 +5423,7 @@ (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 _%L48629%_)) - (_%__kont7772377724%_ + (_%__kont7795177952%_ _%L48627%_ _%L48629%_ _%L48630%_) @@ -5431,7 +5431,7 @@ (declare (not safe)) (_%g4827348416%_))))))))) (_%loop4837848603%_ _%target4837548597%_ '())))) - (_%__match7785977860%_ + (_%__match7808778088%_ (lambda (_%e4833348669%_ _%hd4833448673%_ _%tl4833548676%_ @@ -5447,7 +5447,7 @@ _%e4834548709%_ _%hd4834648713%_ _%tl4834748716%_ - _%__splice7772177722%_ + _%__splice7794977950%_ _%target4834848719%_ _%tl4835048722%_) (letrec ((_%loop4835148725%_ @@ -5476,7 +5476,7 @@ (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 _%L48751%_)) - (_%__kont7771977720%_ + (_%__kont7794777948%_ _%L48749%_ _%L48751%_ _%L48752%_) @@ -5484,7 +5484,7 @@ (declare (not safe)) (_%g4827348416%_))))))))) (_%loop4835148725%_ _%target4834848719%_ '())))) - (_%__match7781577816%_ + (_%__match7804378044%_ (lambda (_%e4830648791%_ _%hd4830748795%_ _%tl4830848798%_ @@ -5500,7 +5500,7 @@ _%e4831848831%_ _%hd4831948835%_ _%tl4832048838%_ - _%__splice7771777718%_ + _%__splice7794577946%_ _%target4832148841%_ _%tl4832348844%_) (letrec ((_%loop4832448847%_ @@ -5529,7 +5529,7 @@ (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 _%L48873%_)) - (_%__kont7771577716%_ + (_%__kont7794377944%_ _%L48871%_ _%L48873%_ _%L48874%_) @@ -5537,7 +5537,7 @@ (declare (not safe)) (_%g4827348416%_))))))))) (_%loop4832448847%_ _%target4832148841%_ '())))) - (_%__match7779577796%_ + (_%__match7802378024%_ (lambda (_%e4830648791%_ _%hd4830748795%_ _%tl4830848798%_ @@ -5552,7 +5552,7 @@ _%tl4831748828%_) (if (gx#identifier? _%hd4831648825%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82631_| + |gerbil/core/contract~Using[1]#_g82905_| _%hd4831648825%_) (if (gx#stx-pair? _%tl4831748828%_) (let ((_%e4831848831%_ @@ -5568,7 +5568,7 @@ (if (gx#stx-null? _%tl4832048838%_) (if (gx#stx-pair/null? _%tl4831148808%_) - (let ((_%__splice7771777718%_ + (let ((_%__splice7794577946%_ (gx#syntax-split-splice _%tl4831148808%_ '0))) @@ -5576,17 +5576,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7771777718%_ + _%__splice7794577946%_ '1))) (_%target4832148841%_ (let () (declare (not safe)) (##vector-ref - _%__splice7771777718%_ + _%__splice7794577946%_ '0)))) (if (gx#stx-null? _%tl4832348844%_) - (_%__match7781577816%_ + (_%__match7804378044%_ _%e4830648791%_ _%hd4830748795%_ _%tl4830848798%_ @@ -5602,7 +5602,7 @@ _%e4831848831%_ _%hd4831948835%_ _%tl4832048838%_ - _%__splice7771777718%_ + _%__splice7794577946%_ _%target4832148841%_ _%tl4832348844%_) (let () @@ -5618,7 +5618,7 @@ (declare (not safe)) (_%g4827348416%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82632_| + |gerbil/core/contract~Using[1]#_g82906_| _%hd4831648825%_) (if (gx#stx-pair? _%tl4831748828%_) (let ((_%e4834548709%_ @@ -5634,7 +5634,7 @@ (if (gx#stx-null? _%tl4834748716%_) (if (gx#stx-pair/null? _%tl4831148808%_) - (let ((_%__splice7772177722%_ + (let ((_%__splice7794977950%_ (gx#syntax-split-splice _%tl4831148808%_ '0))) @@ -5643,13 +5643,13 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice7772177722%_ '1))) + (##vector-ref _%__splice7794977950%_ '1))) (_%target4834848719%_ (let () (declare (not safe)) - (##vector-ref _%__splice7772177722%_ '0)))) + (##vector-ref _%__splice7794977950%_ '0)))) (if (gx#stx-null? _%tl4835048722%_) - (_%__match7785977860%_ + (_%__match7808778088%_ _%e4830648791%_ _%hd4830748795%_ _%tl4830848798%_ @@ -5665,7 +5665,7 @@ _%e4834548709%_ _%hd4834648713%_ _%tl4834748716%_ - _%__splice7772177722%_ + _%__splice7794977950%_ _%target4834848719%_ _%tl4835048722%_) (let () (declare (not safe)) (_%g4827348416%_))))) @@ -5680,7 +5680,7 @@ (declare (not safe)) (_%g4827348416%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82633_| + |gerbil/core/contract~Using[1]#_g82907_| _%hd4831648825%_) (if (gx#stx-pair? _%tl4831748828%_) (let ((_%e4837248587%_ @@ -5698,7 +5698,7 @@ _%tl4837448594%_) (if (gx#stx-pair/null? _%tl4831148808%_) - (let ((_%__splice7772577726%_ + (let ((_%__splice7795377954%_ (gx#syntax-split-splice _%tl4831148808%_ '0))) @@ -5706,13 +5706,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice7772577726%_ '1))) + (##vector-ref _%__splice7795377954%_ '1))) (_%target4837548597%_ (let () (declare (not safe)) - (##vector-ref _%__splice7772577726%_ '0)))) + (##vector-ref _%__splice7795377954%_ '0)))) (if (gx#stx-null? _%tl4837748600%_) - (_%__match7790377904%_ + (_%__match7813178132%_ _%e4830648791%_ _%hd4830748795%_ _%tl4830848798%_ @@ -5728,7 +5728,7 @@ _%e4837248587%_ _%hd4837348591%_ _%tl4837448594%_ - _%__splice7772577726%_ + _%__splice7795377954%_ _%target4837548597%_ _%tl4837748600%_) (let () (declare (not safe)) (_%g4827348416%_))))) @@ -5741,7 +5741,7 @@ (declare (not safe)) (_%g4827348416%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82634_| + |gerbil/core/contract~Using[1]#_g82908_| _%hd4831648825%_) (if (gx#stx-pair? _%tl4831748828%_) (let ((_%e4839948463%_ @@ -5759,19 +5759,19 @@ _%tl4840148470%_) (if (gx#stx-pair/null? _%tl4831148808%_) - (let ((_%__splice7772977730%_ + (let ((_%__splice7795777958%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _%tl4831148808%_ '0))) (let ((_%tl4840448476%_ (let () (declare (not safe)) - (##vector-ref _%__splice7772977730%_ '1))) + (##vector-ref _%__splice7795777958%_ '1))) (_%target4840248473%_ (let () (declare (not safe)) - (##vector-ref _%__splice7772977730%_ '0)))) + (##vector-ref _%__splice7795777958%_ '0)))) (if (gx#stx-null? _%tl4840448476%_) - (_%__match7794777948%_ + (_%__match7817578176%_ _%e4830648791%_ _%hd4830748795%_ _%tl4830848798%_ @@ -5787,7 +5787,7 @@ _%e4839948463%_ _%hd4840048467%_ _%tl4840148470%_ - _%__splice7772977730%_ + _%__splice7795777958%_ _%target4840248473%_ _%tl4840448476%_) (let () (declare (not safe)) (_%g4827348416%_))))) @@ -5801,7 +5801,7 @@ (declare (not safe)) (_%g4827348416%_)))))) (let () (declare (not safe)) (_%g4827348416%_))))) - (_%__match7777177772%_ + (_%__match7799978000%_ (lambda (_%e4827948913%_ _%hd4828048917%_ _%tl4828148920%_ @@ -5817,7 +5817,7 @@ _%e4829148953%_ _%hd4829248957%_ _%tl4829348960%_ - _%__splice7771377714%_ + _%__splice7794177942%_ _%target4829448963%_ _%tl4829648966%_) (letrec ((_%loop4829748969%_ @@ -5843,20 +5843,20 @@ (_%L48995%_ _%hd4829248957%_) (_%L48996%_ _%hd4828948947%_) (_%L48997%_ _%hd4828648937%_)) - (if (let ((__tmp82635 + (if (let ((__tmp82909 (gx#syntax-local-value _%L48995%_ false))) (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - __tmp82635)) - (_%__kont7771177712%_ + __tmp82909)) + (_%__kont7793977940%_ _%L48993%_ _%L48995%_ _%L48996%_ _%L48997%_) - (_%__match7779577796%_ + (_%__match7802378024%_ _%e4827948913%_ _%hd4828048917%_ _%tl4828148920%_ @@ -5870,8 +5870,8 @@ _%hd4828948947%_ _%tl4829048950%_)))))))) (_%loop4829748969%_ _%target4829448963%_ '()))))) - (if (gx#stx-pair? _%__stx7770877709%_) - (let ((_%e4827948913%_ (gx#syntax-e _%__stx7770877709%_))) + (if (gx#stx-pair? _%__stx7793677937%_) + (let ((_%e4827948913%_ (gx#syntax-e _%__stx7793677937%_))) (let ((_%tl4828148920%_ (let () (declare (not safe)) @@ -5929,18 +5929,18 @@ (let () (declare (not safe)) (##car _%e4829148953%_)))) (if (gx#stx-null? _%tl4829348960%_) (if (gx#stx-pair/null? _%tl4828448930%_) - (let ((_%__splice7771377714%_ + (let ((_%__splice7794177942%_ (gx#syntax-split-splice _%tl4828448930%_ '0))) (let ((_%tl4829648966%_ (let () (declare (not safe)) - (##vector-ref _%__splice7771377714%_ '1))) + (##vector-ref _%__splice7794177942%_ '1))) (_%target4829448963%_ (let () (declare (not safe)) - (##vector-ref _%__splice7771377714%_ '0)))) + (##vector-ref _%__splice7794177942%_ '0)))) (if (gx#stx-null? _%tl4829648966%_) - (_%__match7777177772%_ + (_%__match7799978000%_ _%e4827948913%_ _%hd4828048917%_ _%tl4828148920%_ @@ -5956,7 +5956,7 @@ _%e4829148953%_ _%hd4829248957%_ _%tl4829348960%_ - _%__splice7771377714%_ + _%__splice7794177942%_ _%target4829448963%_ _%tl4829648966%_) (let () @@ -6084,25 +6084,25 @@ (##cdr _%e5043150515%_)))) (if (gx#stx-pair/null? _%hd5043250519%_) - (let ((_g82636_ + (let ((_g82910_ (gx#syntax-split-splice _%hd5043250519%_ '0))) (begin - (let ((_g82637_ + (let ((_g82911_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g82636_) - (##vector-length _g82636_) + (if (##values? _g82910_) + (##vector-length _g82910_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g82637_ 2))) - (error "Context expects 2 values" _g82637_))) + (if (not (let () (declare (not safe)) (##fx= _g82911_ 2))) + (error "Context expects 2 values" _g82911_))) (let ((_%target5043450525%_ - (let () (declare (not safe)) (##vector-ref _g82636_ 0))) + (let () (declare (not safe)) (##vector-ref _g82910_ 0))) (_%tl5043650528%_ - (let () (declare (not safe)) (##vector-ref _g82636_ 1)))) + (let () (declare (not safe)) (##vector-ref _g82910_ 1)))) (if (gx#stx-null? _%tl5043650528%_) (letrec ((_%loop5043750531%_ (lambda (_%hd5043550535%_ _%body5044150538%_) @@ -6198,22 +6198,22 @@ (_%g5040350606%_ (list (gx#syntax-local-introduce '@@type) _%type50401%_ - (let ((__obj82471 _%type50401%_)) + (let ((__obj82745 _%type50401%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82471 + __obj82745 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82471 + __obj82745 '4 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj82471 + __obj82745 'instance-type))) _%var50395%_ _%checked?50399%_ @@ -6386,14 +6386,14 @@ (if _%$e50391%_ _%$e50391%_ _%checked-methods?50199%_)))))))) - (let* ((_%__stx7795077951%_ _%stx49391%_) + (let* ((_%__stx7817878179%_ _%stx49391%_) (_%g4940249545%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7795077951%_)))) - (let ((_%__kont7795377954%_ + _%__stx7817878179%_)))) + (let ((_%__kont7818178182%_ (lambda (_%L50122%_ _%L50124%_ _%L50125%_ _%L50126%_) (let* ((_%g5015150159%_ (lambda (_%g5015250155%_) @@ -6417,24 +6417,24 @@ _%L50122%_)))) _%g5015250163%_)))) (_%g5015050186%_ - (let ((__obj82472 (gx#syntax-local-value _%L50124%_))) + (let ((__obj82746 (gx#syntax-local-value _%L50124%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82472 + __obj82746 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82472 + __obj82746 '1 '#f '#f)) (class-slot-ref |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj82472 + __obj82746 'identifier))))))) - (_%__kont7795777958%_ + (_%__kont7818578186%_ (lambda (_%L50000%_ _%L50002%_ _%L50003%_) (_%expand49396%_ _%L50003%_ @@ -6446,7 +6446,7 @@ '#t '#t '#f))) - (_%__kont7796177962%_ + (_%__kont7818978190%_ (lambda (_%L49878%_ _%L49880%_ _%L49881%_) (_%expand49396%_ _%L49881%_ @@ -6458,7 +6458,7 @@ '#t '#t '#t))) - (_%__kont7796577966%_ + (_%__kont7819378194%_ (lambda (_%L49756%_ _%L49758%_ _%L49759%_) (_%expand49396%_ _%L49759%_ @@ -6470,7 +6470,7 @@ '#f '#f '#f))) - (_%__kont7796977970%_ + (_%__kont7819778198%_ (lambda (_%L49632%_ _%L49634%_ _%L49635%_) (_%expand49396%_ _%L49635%_ @@ -6482,7 +6482,7 @@ '#f '#t '#f)))) - (let* ((_%__match7818978190%_ + (let* ((_%__match7841778418%_ (lambda (_%e4951649552%_ _%hd4951749556%_ _%tl4951849559%_ @@ -6498,7 +6498,7 @@ _%e4952849592%_ _%hd4952949596%_ _%tl4953049599%_ - _%__splice7797177972%_ + _%__splice7819978200%_ _%target4953149602%_ _%tl4953349605%_) (letrec ((_%loop4953449608%_ @@ -6529,7 +6529,7 @@ (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 _%L49634%_))) - (_%__kont7796977970%_ + (_%__kont7819778198%_ _%L49632%_ _%L49634%_ _%L49635%_) @@ -6537,7 +6537,7 @@ (declare (not safe)) (_%g4940249545%_))))))))) (_%loop4953449608%_ _%target4953149602%_ '())))) - (_%__match7814578146%_ + (_%__match7837378374%_ (lambda (_%e4948949676%_ _%hd4949049680%_ _%tl4949149683%_ @@ -6553,7 +6553,7 @@ _%e4950149716%_ _%hd4950249720%_ _%tl4950349723%_ - _%__splice7796777968%_ + _%__splice7819578196%_ _%target4950449726%_ _%tl4950649729%_) (letrec ((_%loop4950749732%_ @@ -6584,7 +6584,7 @@ (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 _%L49758%_))) - (_%__kont7796577966%_ + (_%__kont7819378194%_ _%L49756%_ _%L49758%_ _%L49759%_) @@ -6592,7 +6592,7 @@ (declare (not safe)) (_%g4940249545%_))))))))) (_%loop4950749732%_ _%target4950449726%_ '())))) - (_%__match7810178102%_ + (_%__match7832978330%_ (lambda (_%e4946249798%_ _%hd4946349802%_ _%tl4946449805%_ @@ -6608,7 +6608,7 @@ _%e4947449838%_ _%hd4947549842%_ _%tl4947649845%_ - _%__splice7796377964%_ + _%__splice7819178192%_ _%target4947749848%_ _%tl4947949851%_) (letrec ((_%loop4948049854%_ @@ -6639,7 +6639,7 @@ (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 _%L49880%_))) - (_%__kont7796177962%_ + (_%__kont7818978190%_ _%L49878%_ _%L49880%_ _%L49881%_) @@ -6647,7 +6647,7 @@ (declare (not safe)) (_%g4940249545%_))))))))) (_%loop4948049854%_ _%target4947749848%_ '())))) - (_%__match7805778058%_ + (_%__match7828578286%_ (lambda (_%e4943549920%_ _%hd4943649924%_ _%tl4943749927%_ @@ -6663,7 +6663,7 @@ _%e4944749960%_ _%hd4944849964%_ _%tl4944949967%_ - _%__splice7795977960%_ + _%__splice7818778188%_ _%target4945049970%_ _%tl4945249973%_) (letrec ((_%loop4945349976%_ @@ -6694,7 +6694,7 @@ (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 _%L50002%_))) - (_%__kont7795777958%_ + (_%__kont7818578186%_ _%L50000%_ _%L50002%_ _%L50003%_) @@ -6702,7 +6702,7 @@ (declare (not safe)) (_%g4940249545%_))))))))) (_%loop4945349976%_ _%target4945049970%_ '())))) - (_%__match7803778038%_ + (_%__match7826578266%_ (lambda (_%e4943549920%_ _%hd4943649924%_ _%tl4943749927%_ @@ -6717,7 +6717,7 @@ _%tl4944649957%_) (if (gx#identifier? _%hd4944549954%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82638_| + |gerbil/core/contract~Using[1]#_g82912_| _%hd4944549954%_) (if (gx#stx-pair? _%tl4944649957%_) (let ((_%e4944749960%_ @@ -6733,7 +6733,7 @@ (if (gx#stx-null? _%tl4944949967%_) (if (gx#stx-pair/null? _%tl4944049937%_) - (let ((_%__splice7795977960%_ + (let ((_%__splice7818778188%_ (gx#syntax-split-splice _%tl4944049937%_ '0))) @@ -6741,17 +6741,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7795977960%_ + _%__splice7818778188%_ '1))) (_%target4945049970%_ (let () (declare (not safe)) (##vector-ref - _%__splice7795977960%_ + _%__splice7818778188%_ '0)))) (if (gx#stx-null? _%tl4945249973%_) - (_%__match7805778058%_ + (_%__match7828578286%_ _%e4943549920%_ _%hd4943649924%_ _%tl4943749927%_ @@ -6767,7 +6767,7 @@ _%e4944749960%_ _%hd4944849964%_ _%tl4944949967%_ - _%__splice7795977960%_ + _%__splice7818778188%_ _%target4945049970%_ _%tl4945249973%_) (let () @@ -6783,7 +6783,7 @@ (declare (not safe)) (_%g4940249545%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82639_| + |gerbil/core/contract~Using[1]#_g82913_| _%hd4944549954%_) (if (gx#stx-pair? _%tl4944649957%_) (let ((_%e4947449838%_ @@ -6799,7 +6799,7 @@ (if (gx#stx-null? _%tl4947649845%_) (if (gx#stx-pair/null? _%tl4944049937%_) - (let ((_%__splice7796377964%_ + (let ((_%__splice7819178192%_ (gx#syntax-split-splice _%tl4944049937%_ '0))) @@ -6808,13 +6808,13 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice7796377964%_ '1))) + (##vector-ref _%__splice7819178192%_ '1))) (_%target4947749848%_ (let () (declare (not safe)) - (##vector-ref _%__splice7796377964%_ '0)))) + (##vector-ref _%__splice7819178192%_ '0)))) (if (gx#stx-null? _%tl4947949851%_) - (_%__match7810178102%_ + (_%__match7832978330%_ _%e4943549920%_ _%hd4943649924%_ _%tl4943749927%_ @@ -6830,7 +6830,7 @@ _%e4947449838%_ _%hd4947549842%_ _%tl4947649845%_ - _%__splice7796377964%_ + _%__splice7819178192%_ _%target4947749848%_ _%tl4947949851%_) (let () (declare (not safe)) (_%g4940249545%_))))) @@ -6845,7 +6845,7 @@ (declare (not safe)) (_%g4940249545%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82640_| + |gerbil/core/contract~Using[1]#_g82914_| _%hd4944549954%_) (if (gx#stx-pair? _%tl4944649957%_) (let ((_%e4950149716%_ @@ -6863,7 +6863,7 @@ _%tl4950349723%_) (if (gx#stx-pair/null? _%tl4944049937%_) - (let ((_%__splice7796777968%_ + (let ((_%__splice7819578196%_ (gx#syntax-split-splice _%tl4944049937%_ '0))) @@ -6871,13 +6871,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice7796777968%_ '1))) + (##vector-ref _%__splice7819578196%_ '1))) (_%target4950449726%_ (let () (declare (not safe)) - (##vector-ref _%__splice7796777968%_ '0)))) + (##vector-ref _%__splice7819578196%_ '0)))) (if (gx#stx-null? _%tl4950649729%_) - (_%__match7814578146%_ + (_%__match7837378374%_ _%e4943549920%_ _%hd4943649924%_ _%tl4943749927%_ @@ -6893,7 +6893,7 @@ _%e4950149716%_ _%hd4950249720%_ _%tl4950349723%_ - _%__splice7796777968%_ + _%__splice7819578196%_ _%target4950449726%_ _%tl4950649729%_) (let () (declare (not safe)) (_%g4940249545%_))))) @@ -6906,7 +6906,7 @@ (declare (not safe)) (_%g4940249545%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82641_| + |gerbil/core/contract~Using[1]#_g82915_| _%hd4944549954%_) (if (gx#stx-pair? _%tl4944649957%_) (let ((_%e4952849592%_ @@ -6924,19 +6924,19 @@ _%tl4953049599%_) (if (gx#stx-pair/null? _%tl4944049937%_) - (let ((_%__splice7797177972%_ + (let ((_%__splice7819978200%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _%tl4944049937%_ '0))) (let ((_%tl4953349605%_ (let () (declare (not safe)) - (##vector-ref _%__splice7797177972%_ '1))) + (##vector-ref _%__splice7819978200%_ '1))) (_%target4953149602%_ (let () (declare (not safe)) - (##vector-ref _%__splice7797177972%_ '0)))) + (##vector-ref _%__splice7819978200%_ '0)))) (if (gx#stx-null? _%tl4953349605%_) - (_%__match7818978190%_ + (_%__match7841778418%_ _%e4943549920%_ _%hd4943649924%_ _%tl4943749927%_ @@ -6952,7 +6952,7 @@ _%e4952849592%_ _%hd4952949596%_ _%tl4953049599%_ - _%__splice7797177972%_ + _%__splice7819978200%_ _%target4953149602%_ _%tl4953349605%_) (let () (declare (not safe)) (_%g4940249545%_))))) @@ -6966,7 +6966,7 @@ (declare (not safe)) (_%g4940249545%_)))))) (let () (declare (not safe)) (_%g4940249545%_))))) - (_%__match7801378014%_ + (_%__match7824178242%_ (lambda (_%e4940850042%_ _%hd4940950046%_ _%tl4941050049%_ @@ -6982,7 +6982,7 @@ _%e4942050082%_ _%hd4942150086%_ _%tl4942250089%_ - _%__splice7795577956%_ + _%__splice7818378184%_ _%target4942350092%_ _%tl4942550095%_) (letrec ((_%loop4942650098%_ @@ -7008,20 +7008,20 @@ (_%L50124%_ _%hd4942150086%_) (_%L50125%_ _%hd4941850076%_) (_%L50126%_ _%hd4941550066%_)) - (if (let ((__tmp82642 + (if (let ((__tmp82916 (gx#syntax-local-value _%L50124%_ false))) (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - __tmp82642)) - (_%__kont7795377954%_ + __tmp82916)) + (_%__kont7818178182%_ _%L50122%_ _%L50124%_ _%L50125%_ _%L50126%_) - (_%__match7803778038%_ + (_%__match7826578266%_ _%e4940850042%_ _%hd4940950046%_ _%tl4941050049%_ @@ -7035,8 +7035,8 @@ _%hd4941850076%_ _%tl4941950079%_)))))))) (_%loop4942650098%_ _%target4942350092%_ '()))))) - (if (gx#stx-pair? _%__stx7795077951%_) - (let ((_%e4940850042%_ (gx#syntax-e _%__stx7795077951%_))) + (if (gx#stx-pair? _%__stx7817878179%_) + (let ((_%e4940850042%_ (gx#syntax-e _%__stx7817878179%_))) (let ((_%tl4941050049%_ (let () (declare (not safe)) @@ -7094,18 +7094,18 @@ (let () (declare (not safe)) (##car _%e4942050082%_)))) (if (gx#stx-null? _%tl4942250089%_) (if (gx#stx-pair/null? _%tl4941350059%_) - (let ((_%__splice7795577956%_ + (let ((_%__splice7818378184%_ (gx#syntax-split-splice _%tl4941350059%_ '0))) (let ((_%tl4942550095%_ (let () (declare (not safe)) - (##vector-ref _%__splice7795577956%_ '1))) + (##vector-ref _%__splice7818378184%_ '1))) (_%target4942350092%_ (let () (declare (not safe)) - (##vector-ref _%__splice7795577956%_ '0)))) + (##vector-ref _%__splice7818378184%_ '0)))) (if (gx#stx-null? _%tl4942550095%_) - (_%__match7801378014%_ + (_%__match7824178242%_ _%e4940850042%_ _%hd4940950046%_ _%tl4941050049%_ @@ -7121,7 +7121,7 @@ _%e4942050082%_ _%hd4942150086%_ _%tl4942250089%_ - _%__splice7795577956%_ + _%__splice7818378184%_ _%target4942350092%_ _%tl4942550095%_) (let () @@ -7143,14 +7143,14 @@ (let () (declare (not safe)) (_%g4940249545%_))))))))) (define |gerbil/core/contract~Using[:0:]#%%app-dotted| (lambda (_%stx50616%_) - (let* ((_%__stx7819278193%_ _%stx50616%_) + (let* ((_%__stx7842078421%_ _%stx50616%_) (_%g5062150681%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7819278193%_)))) - (let ((_%__kont7819578196%_ + _%__stx7842078421%_)))) + (let ((_%__kont7842378424%_ (lambda (_%L51243%_ _%L51245%_) (cons (gx#datum->syntax '#f '%%app-dotted) (cons (cons (gx#datum->syntax '#f '%%ref-dotted) @@ -7159,7 +7159,7 @@ (cons _%g5126151264%_ _%g5126251267%_)) '() _%L51243%_))))) - (_%__kont7819978200%_ + (_%__kont7842778428%_ (lambda (_%L50829%_ _%L50831%_) (if (|gerbil/core/contract~Using[1]#dotted-identifier?| _%L50831%_) @@ -7229,20 +7229,20 @@ (lambda (_%rest50961%_ _%part50963%_) (if (and (not _%nil-check?50887%_) - (let ((__tmp82643 + (let ((__tmp82917 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (symbol->string _%part50963%_))) (declare (not safe)) - (##string-prefix? '"?" __tmp82643))) + (##string-prefix? '"?" __tmp82917))) (let ((_%str50967%_ (symbol->string _%part50963%_))) (_%loop50879%_ - (cons (let ((__tmp82644 + (cons (let ((__tmp82918 (substring _%str50967%_ '1 (string-length _%str50967%_)))) (declare (not safe)) - (##string->symbol __tmp82644)) + (##string->symbol __tmp82918)) _%rest50961%_) _%type50884%_ _%object50885%_ @@ -7407,21 +7407,21 @@ (gx#stx-identifier _%L50831%_ (if _%checked-method?50886%_ '"" '"&") - (let ((__obj82473 _%type50884%_)) + (let ((__obj82747 _%type50884%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82473 + __obj82747 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82473 + __obj82747 '1 '#f '#f)) (unchecked-slot-ref - __obj82473 + __obj82747 'name))) '"-" _%part50963%_)))) @@ -7491,18 +7491,18 @@ _%g5117851183%_)) '() _%L50829%_)))))) - (_%__kont7820378204%_ + (_%__kont7843178432%_ (lambda (_%L50728%_) (cons (gx#datum->syntax '#f '%%app) (foldr (lambda (_%g5074350746%_ _%g5074450749%_) (cons _%g5074350746%_ _%g5074450749%_)) '() _%L50728%_))))) - (let* ((_%__match7827978280%_ + (let* ((_%__match7850778508%_ (lambda (_%e5066450688%_ _%hd5066550692%_ _%tl5066650695%_ - _%__splice7820578206%_ + _%__splice7843378434%_ _%target5066750698%_ _%tl5066950701%_) (letrec ((_%loop5067050704%_ @@ -7524,10 +7524,10 @@ _%arg5067450711%_)))) (let ((_%arg5067550724%_ (reverse _%arg5067450711%_))) - (_%__kont7820378204%_ + (_%__kont7843178432%_ _%arg5067550724%_)))))) (_%loop5067050704%_ _%target5066750698%_ '())))) - (_%__match7826578266%_ + (_%__match7849378494%_ (lambda (_%e5064250759%_ _%hd5064350763%_ _%tl5064450766%_ @@ -7540,7 +7540,7 @@ _%e5065150789%_ _%hd5065250793%_ _%tl5065350796%_ - _%__splice7820178202%_ + _%__splice7842978430%_ _%target5065450799%_ _%tl5065650802%_) (letrec ((_%loop5065750805%_ @@ -7562,11 +7562,11 @@ _%rand5066150812%_)))) (let ((_%rand5066250825%_ (reverse _%rand5066150812%_))) - (_%__kont7819978200%_ + (_%__kont7842778428%_ _%rand5066250825%_ _%hd5065250793%_)))))) (_%loop5065750805%_ _%target5065450799%_ '())))) - (_%__match7823978240%_ + (_%__match7846778468%_ (lambda (_%e5064250759%_ _%hd5064350763%_ _%tl5064450766%_ @@ -7586,7 +7586,7 @@ (##car _%e5064850779%_)))) (if (gx#identifier? _%hd5064950783%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82645_| + |gerbil/core/contract~Using[1]#_g82919_| _%hd5064950783%_) (if (gx#stx-pair? _%tl5065050786%_) (let ((_%e5065150789%_ @@ -7604,7 +7604,7 @@ _%tl5065350796%_) (if (gx#stx-pair/null? _%tl5064750776%_) - (let ((_%__splice7820178202%_ + (let ((_%__splice7842978430%_ (gx#syntax-split-splice _%tl5064750776%_ '0))) @@ -7612,13 +7612,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7820178202%_ '1))) + (##vector-ref _%__splice7842978430%_ '1))) (_%target5065450799%_ (let () (declare (not safe)) - (##vector-ref _%__splice7820178202%_ '0)))) + (##vector-ref _%__splice7842978430%_ '0)))) (if (gx#stx-null? _%tl5065650802%_) - (_%__match7826578266%_ + (_%__match7849378494%_ _%e5064250759%_ _%hd5064350763%_ _%tl5064450766%_ @@ -7631,28 +7631,28 @@ _%e5065150789%_ _%hd5065250793%_ _%tl5065350796%_ - _%__splice7820178202%_ + _%__splice7842978430%_ _%target5065450799%_ _%tl5065650802%_) (if (gx#stx-pair/null? _%tl5064450766%_) - (let ((_%__splice7820578206%_ + (let ((_%__splice7843378434%_ (gx#syntax-split-splice _%tl5064450766%_ '0))) (let ((_%tl5066950701%_ (let () (declare (not safe)) - (##vector-ref _%__splice7820578206%_ '1))) + (##vector-ref _%__splice7843378434%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) (##vector-ref - _%__splice7820578206%_ + _%__splice7843378434%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7827978280%_ + (_%__match7850778508%_ _%e5064250759%_ _%hd5064350763%_ _%tl5064450766%_ - _%__splice7820578206%_ + _%__splice7843378434%_ _%target5066750698%_ _%tl5066950701%_) (let () @@ -7660,22 +7660,22 @@ (_%g5062150681%_))))) (let () (declare (not safe)) (_%g5062150681%_)))))) (if (gx#stx-pair/null? _%tl5064450766%_) - (let ((_%__splice7820578206%_ + (let ((_%__splice7843378434%_ (gx#syntax-split-splice _%tl5064450766%_ '0))) (let ((_%tl5066950701%_ (let () (declare (not safe)) - (##vector-ref _%__splice7820578206%_ '1))) + (##vector-ref _%__splice7843378434%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) - (##vector-ref _%__splice7820578206%_ '0)))) + (##vector-ref _%__splice7843378434%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7827978280%_ + (_%__match7850778508%_ _%e5064250759%_ _%hd5064350763%_ _%tl5064450766%_ - _%__splice7820578206%_ + _%__splice7843378434%_ _%target5066750698%_ _%tl5066950701%_) (let () (declare (not safe)) (_%g5062150681%_))))) @@ -7683,7 +7683,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl5064450766%_) - (let ((_%__splice7820578206%_ + (let ((_%__splice7843378434%_ (gx#syntax-split-splice _%tl5064450766%_ '0))) @@ -7691,17 +7691,17 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7820578206%_ '1))) + (##vector-ref _%__splice7843378434%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) - (##vector-ref _%__splice7820578206%_ '0)))) + (##vector-ref _%__splice7843378434%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7827978280%_ + (_%__match7850778508%_ _%e5064250759%_ _%hd5064350763%_ _%tl5064450766%_ - _%__splice7820578206%_ + _%__splice7843378434%_ _%target5066750698%_ _%tl5066950701%_) (let () (declare (not safe)) (_%g5062150681%_))))) @@ -7709,7 +7709,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl5064450766%_) - (let ((_%__splice7820578206%_ + (let ((_%__splice7843378434%_ (gx#syntax-split-splice _%tl5064450766%_ '0))) @@ -7717,21 +7717,21 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7820578206%_ + _%__splice7843378434%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) (##vector-ref - _%__splice7820578206%_ + _%__splice7843378434%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7827978280%_ + (_%__match7850778508%_ _%e5064250759%_ _%hd5064350763%_ _%tl5064450766%_ - _%__splice7820578206%_ + _%__splice7843378434%_ _%target5066750698%_ _%tl5066950701%_) (let () @@ -7741,7 +7741,7 @@ (declare (not safe)) (_%g5062150681%_)))) (if (gx#stx-pair/null? _%tl5064450766%_) - (let ((_%__splice7820578206%_ + (let ((_%__splice7843378434%_ (gx#syntax-split-splice _%tl5064450766%_ '0))) @@ -7749,21 +7749,21 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7820578206%_ + _%__splice7843378434%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) (##vector-ref - _%__splice7820578206%_ + _%__splice7843378434%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7827978280%_ + (_%__match7850778508%_ _%e5064250759%_ _%hd5064350763%_ _%tl5064450766%_ - _%__splice7820578206%_ + _%__splice7843378434%_ _%target5066750698%_ _%tl5066950701%_) (let () @@ -7773,7 +7773,7 @@ (declare (not safe)) (_%g5062150681%_)))) (if (gx#stx-pair/null? _%tl5064450766%_) - (let ((_%__splice7820578206%_ + (let ((_%__splice7843378434%_ (gx#syntax-split-splice _%tl5064450766%_ '0))) @@ -7781,20 +7781,20 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7820578206%_ + _%__splice7843378434%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) (##vector-ref - _%__splice7820578206%_ + _%__splice7843378434%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7827978280%_ + (_%__match7850778508%_ _%e5064250759%_ _%hd5064350763%_ _%tl5064450766%_ - _%__splice7820578206%_ + _%__splice7843378434%_ _%target5066750698%_ _%tl5066950701%_) (let () @@ -7804,7 +7804,7 @@ (declare (not safe)) (_%g5062150681%_)))))) (if (gx#stx-pair/null? _%tl5064450766%_) - (let ((_%__splice7820578206%_ + (let ((_%__splice7843378434%_ (gx#syntax-split-splice _%tl5064450766%_ '0))) @@ -7812,20 +7812,20 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7820578206%_ + _%__splice7843378434%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) (##vector-ref - _%__splice7820578206%_ + _%__splice7843378434%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7827978280%_ + (_%__match7850778508%_ _%e5064250759%_ _%hd5064350763%_ _%tl5064450766%_ - _%__splice7820578206%_ + _%__splice7843378434%_ _%target5066750698%_ _%tl5066950701%_) (let () @@ -7834,14 +7834,14 @@ (let () (declare (not safe)) (_%g5062150681%_)))))) - (_%__match7822778228%_ + (_%__match7845578456%_ (lambda (_%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ _%e5062851203%_ _%hd5062951207%_ _%tl5063051210%_ - _%__splice7819778198%_ + _%__splice7842578426%_ _%target5063151213%_ _%tl5063351216%_) (letrec ((_%loop5063451219%_ @@ -7866,10 +7866,10 @@ (let ((_%L51243%_ _%rand5063951239%_) (_%L51245%_ _%hd5062951207%_)) (if (gx#identifier? _%L51245%_) - (_%__kont7819578196%_ + (_%__kont7842378424%_ _%L51243%_ _%L51245%_) - (_%__match7823978240%_ + (_%__match7846778468%_ _%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ @@ -7877,8 +7877,8 @@ _%hd5062951207%_ _%tl5063051210%_)))))))) (_%loop5063451219%_ _%target5063151213%_ '()))))) - (if (gx#stx-pair? _%__stx7819278193%_) - (let ((_%e5062551193%_ (gx#syntax-e _%__stx7819278193%_))) + (if (gx#stx-pair? _%__stx7842078421%_) + (let ((_%e5062551193%_ (gx#syntax-e _%__stx7842078421%_))) (let ((_%tl5062751200%_ (let () (declare (not safe)) @@ -7899,7 +7899,7 @@ (declare (not safe)) (##car _%e5062851203%_)))) (if (gx#stx-pair/null? _%tl5063051210%_) - (let ((_%__splice7819778198%_ + (let ((_%__splice7842578426%_ (gx#syntax-split-splice _%tl5063051210%_ '0))) @@ -7907,23 +7907,23 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7819778198%_ + _%__splice7842578426%_ '1))) (_%target5063151213%_ (let () (declare (not safe)) (##vector-ref - _%__splice7819778198%_ + _%__splice7842578426%_ '0)))) (if (gx#stx-null? _%tl5063351216%_) - (_%__match7822778228%_ + (_%__match7845578456%_ _%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ _%e5062851203%_ _%hd5062951207%_ _%tl5063051210%_ - _%__splice7819778198%_ + _%__splice7842578426%_ _%target5063151213%_ _%tl5063351216%_) (if (gx#stx-pair? _%hd5062951207%_) @@ -7941,7 +7941,7 @@ (if (gx#identifier? _%hd5064950783%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82645_| + |gerbil/core/contract~Using[1]#_g82919_| _%hd5064950783%_) (if (gx#stx-pair? _%tl5065050786%_) @@ -7957,7 +7957,7 @@ (declare (not safe)) (##car _%e5065150789%_)))) (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7820578206%_ + (let ((_%__splice7843378434%_ (gx#syntax-split-splice _%tl5062751200%_ '0))) @@ -7965,20 +7965,20 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7820578206%_ + _%__splice7843378434%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) (##vector-ref - _%__splice7820578206%_ + _%__splice7843378434%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7827978280%_ + (_%__match7850778508%_ _%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ - _%__splice7820578206%_ + _%__splice7843378434%_ _%target5066750698%_ _%tl5066950701%_) (let () @@ -7988,24 +7988,24 @@ (declare (not safe)) (_%g5062150681%_))))) (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7820578206%_ + (let ((_%__splice7843378434%_ (gx#syntax-split-splice _%tl5062751200%_ '0))) (let ((_%tl5066950701%_ (let () (declare (not safe)) - (##vector-ref _%__splice7820578206%_ '1))) + (##vector-ref _%__splice7843378434%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) (##vector-ref - _%__splice7820578206%_ + _%__splice7843378434%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7827978280%_ + (_%__match7850778508%_ _%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ - _%__splice7820578206%_ + _%__splice7843378434%_ _%target5066750698%_ _%tl5066950701%_) (let () @@ -8013,22 +8013,22 @@ (_%g5062150681%_))))) (let () (declare (not safe)) (_%g5062150681%_)))) (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7820578206%_ + (let ((_%__splice7843378434%_ (gx#syntax-split-splice _%tl5062751200%_ '0))) (let ((_%tl5066950701%_ (let () (declare (not safe)) - (##vector-ref _%__splice7820578206%_ '1))) + (##vector-ref _%__splice7843378434%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) - (##vector-ref _%__splice7820578206%_ '0)))) + (##vector-ref _%__splice7843378434%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7827978280%_ + (_%__match7850778508%_ _%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ - _%__splice7820578206%_ + _%__splice7843378434%_ _%target5066750698%_ _%tl5066950701%_) (let () @@ -8036,22 +8036,22 @@ (_%g5062150681%_))))) (let () (declare (not safe)) (_%g5062150681%_)))) (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7820578206%_ + (let ((_%__splice7843378434%_ (gx#syntax-split-splice _%tl5062751200%_ '0))) (let ((_%tl5066950701%_ (let () (declare (not safe)) - (##vector-ref _%__splice7820578206%_ '1))) + (##vector-ref _%__splice7843378434%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) - (##vector-ref _%__splice7820578206%_ '0)))) + (##vector-ref _%__splice7843378434%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7827978280%_ + (_%__match7850778508%_ _%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ - _%__splice7820578206%_ + _%__splice7843378434%_ _%target5066750698%_ _%tl5066950701%_) (let () (declare (not safe)) (_%g5062150681%_))))) @@ -8059,7 +8059,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7820578206%_ + (let ((_%__splice7843378434%_ (gx#syntax-split-splice _%tl5062751200%_ '0))) @@ -8068,22 +8068,22 @@ (declare (not safe)) (##vector-ref - _%__splice7820578206%_ + _%__splice7843378434%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) (##vector-ref - _%__splice7820578206%_ + _%__splice7843378434%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7827978280%_ + (_%__match7850778508%_ _%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ - _%__splice7820578206%_ + _%__splice7843378434%_ _%target5066750698%_ _%tl5066950701%_) (let () @@ -8106,7 +8106,7 @@ (##car _%e5064850779%_)))) (if (gx#identifier? _%hd5064950783%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g82645_| + |gerbil/core/contract~Using[1]#_g82919_| _%hd5064950783%_) (if (gx#stx-pair? _%tl5065050786%_) @@ -8121,22 +8121,22 @@ (_%hd5065250793%_ (let () (declare (not safe)) (##car _%e5065150789%_)))) (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7820578206%_ + (let ((_%__splice7843378434%_ (gx#syntax-split-splice _%tl5062751200%_ '0))) (let ((_%tl5066950701%_ (let () (declare (not safe)) - (##vector-ref _%__splice7820578206%_ '1))) + (##vector-ref _%__splice7843378434%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) - (##vector-ref _%__splice7820578206%_ '0)))) + (##vector-ref _%__splice7843378434%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7827978280%_ + (_%__match7850778508%_ _%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ - _%__splice7820578206%_ + _%__splice7843378434%_ _%target5066750698%_ _%tl5066950701%_) (let () @@ -8144,22 +8144,22 @@ (_%g5062150681%_))))) (let () (declare (not safe)) (_%g5062150681%_))))) (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7820578206%_ + (let ((_%__splice7843378434%_ (gx#syntax-split-splice _%tl5062751200%_ '0))) (let ((_%tl5066950701%_ (let () (declare (not safe)) - (##vector-ref _%__splice7820578206%_ '1))) + (##vector-ref _%__splice7843378434%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) - (##vector-ref _%__splice7820578206%_ '0)))) + (##vector-ref _%__splice7843378434%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7827978280%_ + (_%__match7850778508%_ _%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ - _%__splice7820578206%_ + _%__splice7843378434%_ _%target5066750698%_ _%tl5066950701%_) (let () (declare (not safe)) (_%g5062150681%_))))) @@ -8167,7 +8167,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7820578206%_ + (let ((_%__splice7843378434%_ (gx#syntax-split-splice _%tl5062751200%_ '0))) @@ -8175,17 +8175,17 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7820578206%_ '1))) + (##vector-ref _%__splice7843378434%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) - (##vector-ref _%__splice7820578206%_ '0)))) + (##vector-ref _%__splice7843378434%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7827978280%_ + (_%__match7850778508%_ _%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ - _%__splice7820578206%_ + _%__splice7843378434%_ _%target5066750698%_ _%tl5066950701%_) (let () (declare (not safe)) (_%g5062150681%_))))) @@ -8193,7 +8193,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7820578206%_ + (let ((_%__splice7843378434%_ (gx#syntax-split-splice _%tl5062751200%_ '0))) @@ -8202,22 +8202,22 @@ (declare (not safe)) (##vector-ref - _%__splice7820578206%_ + _%__splice7843378434%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) (##vector-ref - _%__splice7820578206%_ + _%__splice7843378434%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7827978280%_ + (_%__match7850778508%_ _%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ - _%__splice7820578206%_ + _%__splice7843378434%_ _%target5066750698%_ _%tl5066950701%_) (let () @@ -8228,7 +8228,7 @@ (declare (not safe)) (_%g5062150681%_)))))) (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7820578206%_ + (let ((_%__splice7843378434%_ (gx#syntax-split-splice _%tl5062751200%_ '0))) @@ -8236,21 +8236,21 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7820578206%_ + _%__splice7843378434%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) (##vector-ref - _%__splice7820578206%_ + _%__splice7843378434%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7827978280%_ + (_%__match7850778508%_ _%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ - _%__splice7820578206%_ + _%__splice7843378434%_ _%target5066750698%_ _%tl5066950701%_) (let () @@ -8260,7 +8260,7 @@ (declare (not safe)) (_%g5062150681%_))))))) (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7820578206%_ + (let ((_%__splice7843378434%_ (gx#syntax-split-splice _%tl5062751200%_ '0))) @@ -8268,20 +8268,20 @@ (let () (declare (not safe)) (##vector-ref - _%__splice7820578206%_ + _%__splice7843378434%_ '1))) (_%target5066750698%_ (let () (declare (not safe)) (##vector-ref - _%__splice7820578206%_ + _%__splice7843378434%_ '0)))) (if (gx#stx-null? _%tl5066950701%_) - (_%__match7827978280%_ + (_%__match7850778508%_ _%e5062551193%_ _%hd5062651197%_ _%tl5062751200%_ - _%__splice7820578206%_ + _%__splice7843378434%_ _%target5066750698%_ _%tl5066950701%_) (let () @@ -8293,14 +8293,14 @@ (let () (declare (not safe)) (_%g5062150681%_)))))))) (define |gerbil/core/contract~Using[:0:]#%%ref-dotted| (lambda (_%stx51277%_) - (let* ((_%__stx7828278283%_ _%stx51277%_) + (let* ((_%__stx7851078511%_ _%stx51277%_) (_%g5128151302%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7828278283%_)))) - (let ((_%__kont7828578286%_ + _%__stx7851078511%_)))) + (let ((_%__kont7851378514%_ (lambda (_%L51370%_) (let* ((_%g5138251389%_ (|gerbil/core/contract~Using[1]#split-dotted-identifier| @@ -8341,20 +8341,20 @@ (lambda (_%rest51442%_ _%part51444%_) (if (and (not _%nil-check?51417%_) - (let ((__tmp82646 + (let ((__tmp82920 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (symbol->string _%part51444%_))) (declare (not safe)) - (##string-prefix? '"?" __tmp82646))) + (##string-prefix? '"?" __tmp82920))) (let ((_%str51448%_ (symbol->string _%part51444%_))) (_%loop51410%_ - (cons (let ((__tmp82647 + (cons (let ((__tmp82921 (substring _%str51448%_ '1 (string-length _%str51448%_)))) (declare (not safe)) - (##string->symbol __tmp82647)) + (##string->symbol __tmp82921)) _%rest51442%_) _%type51415%_ _%object51416%_ @@ -8542,11 +8542,11 @@ (_%parts51624%_ _%tl5138751618%_)) (_%K5138551611%_ _%parts51624%_ _%var51621%_))) (_%E5138451395%_))))) - (_%__kont7828778288%_ + (_%__kont7851578516%_ (lambda (_%L51329%_) (cons (gx#datum->syntax '#f '%%ref) (cons _%L51329%_ '()))))) - (let ((_%__match7830378304%_ + (let ((_%__match7853178532%_ (lambda (_%e5128451350%_ _%hd5128551354%_ _%tl5128651357%_ @@ -8556,10 +8556,10 @@ (let ((_%L51370%_ _%hd5128851364%_)) (if (|gerbil/core/contract~Using[1]#dotted-identifier?| _%L51370%_) - (_%__kont7828578286%_ _%L51370%_) - (_%__kont7828778288%_ _%hd5128851364%_)))))) - (if (gx#stx-pair? _%__stx7828278283%_) - (let ((_%e5128451350%_ (gx#syntax-e _%__stx7828278283%_))) + (_%__kont7851378514%_ _%L51370%_) + (_%__kont7851578516%_ _%hd5128851364%_)))))) + (if (gx#stx-pair? _%__stx7851078511%_) + (let ((_%e5128451350%_ (gx#syntax-e _%__stx7851078511%_))) (let ((_%tl5128651357%_ (let () (declare (not safe)) @@ -8580,7 +8580,7 @@ (declare (not safe)) (##car _%e5128751360%_)))) (if (gx#stx-null? _%tl5128951367%_) - (_%__match7830378304%_ + (_%__match7853178532%_ _%e5128451350%_ _%hd5128551354%_ _%tl5128651357%_ @@ -8594,14 +8594,14 @@ (let () (declare (not safe)) (_%g5128151302%_)))))))) (define |gerbil/core/contract~Using[:0:]#%%set-dotted!| (lambda (_%stx51631%_) - (let* ((_%__stx7832078321%_ _%stx51631%_) + (let* ((_%__stx7854878549%_ _%stx51631%_) (_%g5163551664%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7832078321%_)))) - (let ((_%__kont7832378324%_ + _%__stx7854878549%_)))) + (let ((_%__kont7855178552%_ (lambda (_%L51756%_ _%L51758%_) (let* ((_%g5177251779%_ (|gerbil/core/contract~Using[1]#split-dotted-identifier| @@ -8652,20 +8652,20 @@ (lambda (_%rest51826%_ _%part51828%_) (if (and (not _%nil-check?51808%_) - (let ((__tmp82648 + (let ((__tmp82922 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (symbol->string _%part51828%_))) (declare (not safe)) - (##string-prefix? '"?" __tmp82648))) + (##string-prefix? '"?" __tmp82922))) (let ((_%str51832%_ (symbol->string _%part51828%_))) (_%loop51800%_ - (cons (let ((__tmp82649 + (cons (let ((__tmp82923 (substring _%str51832%_ '1 (string-length _%str51832%_)))) (declare (not safe)) - (##string->symbol __tmp82649)) + (##string->symbol __tmp82923)) _%rest51826%_) _%type51805%_ _%object51806%_ @@ -8870,12 +8870,12 @@ (_%parts52028%_ _%tl5177752022%_)) (_%K5177552015%_ _%parts52028%_ _%var52025%_))) (_%E5177451785%_))))) - (_%__kont7832578326%_ + (_%__kont7855378554%_ (lambda (_%L51701%_ _%L51703%_) (let () (declare (not safe)) (|gerbil/core/more-sugar[1]#expand-set!| _%stx51631%_))))) - (let ((_%__match7834778348%_ + (let ((_%__match7857578576%_ (lambda (_%e5163951726%_ _%hd5164051730%_ _%tl5164151733%_ @@ -8889,12 +8889,12 @@ (_%L51758%_ _%hd5164351740%_)) (if (|gerbil/core/contract~Using[1]#dotted-identifier?| _%L51758%_) - (_%__kont7832378324%_ _%L51756%_ _%L51758%_) - (_%__kont7832578326%_ + (_%__kont7855178552%_ _%L51756%_ _%L51758%_) + (_%__kont7855378554%_ _%hd5164651750%_ _%hd5164351740%_)))))) - (if (gx#stx-pair? _%__stx7832078321%_) - (let ((_%e5163951726%_ (gx#syntax-e _%__stx7832078321%_))) + (if (gx#stx-pair? _%__stx7854878549%_) + (let ((_%e5163951726%_ (gx#syntax-e _%__stx7854878549%_))) (let ((_%tl5164151733%_ (let () (declare (not safe)) @@ -8926,7 +8926,7 @@ (declare (not safe)) (##car _%e5164551746%_)))) (if (gx#stx-null? _%tl5164751753%_) - (_%__match7834778348%_ + (_%__match7857578576%_ _%e5163951726%_ _%hd5164051730%_ _%tl5164151733%_ diff --git a/src/bootstrap/gerbil/core/contract~8.scm b/src/bootstrap/gerbil/core/contract~8.scm index 447b09eb5..7f2238d5b 100644 --- a/src/bootstrap/gerbil/core/contract~8.scm +++ b/src/bootstrap/gerbil/core/contract~8.scm @@ -1,72 +1,72 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~Interface[1]#_g82651_| + (define |gerbil/core/contract~Interface[1]#_g82925_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82653_| + (define |gerbil/core/contract~Interface[1]#_g82927_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82654_| + (define |gerbil/core/contract~Interface[1]#_g82928_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82655_| + (define |gerbil/core/contract~Interface[1]#_g82929_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82656_| + (define |gerbil/core/contract~Interface[1]#_g82930_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82657_| + (define |gerbil/core/contract~Interface[1]#_g82931_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82659_| + (define |gerbil/core/contract~Interface[1]#_g82933_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82661_| + (define |gerbil/core/contract~Interface[1]#_g82935_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82662_| + (define |gerbil/core/contract~Interface[1]#_g82936_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82663_| + (define |gerbil/core/contract~Interface[1]#_g82937_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82664_| + (define |gerbil/core/contract~Interface[1]#_g82938_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82665_| + (define |gerbil/core/contract~Interface[1]#_g82939_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82666_| + (define |gerbil/core/contract~Interface[1]#_g82940_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82667_| + (define |gerbil/core/contract~Interface[1]#_g82941_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82673_| + (define |gerbil/core/contract~Interface[1]#_g82947_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82674_| + (define |gerbil/core/contract~Interface[1]#_g82948_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82675_| + (define |gerbil/core/contract~Interface[1]#_g82949_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82676_| + (define |gerbil/core/contract~Interface[1]#_g82950_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82677_| + (define |gerbil/core/contract~Interface[1]#_g82951_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82678_| + (define |gerbil/core/contract~Interface[1]#_g82952_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82679_| + (define |gerbil/core/contract~Interface[1]#_g82953_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82680_| + (define |gerbil/core/contract~Interface[1]#_g82954_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82681_| + (define |gerbil/core/contract~Interface[1]#_g82955_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82682_| + (define |gerbil/core/contract~Interface[1]#_g82956_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82683_| + (define |gerbil/core/contract~Interface[1]#_g82957_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82684_| + (define |gerbil/core/contract~Interface[1]#_g82958_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82685_| + (define |gerbil/core/contract~Interface[1]#_g82959_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82686_| + (define |gerbil/core/contract~Interface[1]#_g82960_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82687_| + (define |gerbil/core/contract~Interface[1]#_g82961_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82688_| + (define |gerbil/core/contract~Interface[1]#_g82962_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82689_| + (define |gerbil/core/contract~Interface[1]#_g82963_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82690_| + (define |gerbil/core/contract~Interface[1]#_g82964_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82692_| + (define |gerbil/core/contract~Interface[1]#_g82966_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g82700_| + (define |gerbil/core/contract~Interface[1]#_g82974_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) (begin (define |gerbil/core/contract~Interface[1]#check-signature!__%| @@ -168,14 +168,14 @@ (_%have-optional?59332%_ '#f) (_%ids59333%_ '()) (_%kws59334%_ '())) - (let* ((_%__stx7844678447%_ _%rest59330%_) + (let* ((_%__stx7867478675%_ _%rest59330%_) (_%g5934459414%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7844678447%_)))) - (let ((_%__kont7844978450%_ + _%__stx7867478675%_)))) + (let ((_%__kont7867778678%_ (lambda (_%L60030%_ _%L60032%_) (if _%have-optional?59332%_ (gx#raise-syntax-error @@ -204,7 +204,7 @@ (gx#raise-syntax-error '#f '"invalid signature; positional arguments must precede keyword arguments"))))) - (_%__kont7845178452%_ + (_%__kont7867978680%_ (lambda (_%L59983%_ _%L59985%_) (if (not _%optionals-allowed?59321%_) (gx#raise-syntax-error @@ -232,26 +232,26 @@ (gx#raise-syntax-error '#f '"invalid signature; positional arguments must precede keyword arguments"))))) - (_%__kont7845378454%_ + (_%__kont7868178682%_ (lambda (_%L59695%_ _%L59697%_ _%L59698%_) (if (not _%optionals-allowed?59321%_) - (let* ((_%__stx7837078371%_ _%L59697%_) + (let* ((_%__stx7859878599%_ _%L59697%_) (_%g5971559736%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7837078371%_)))) - (let ((_%__kont7837378374%_ + _%__stx7859878599%_)))) + (let ((_%__kont7860178602%_ (lambda (_%L59800%_) (gx#raise-syntax-error '#f '"invalid signature; optionals not allowed" _%stx59318%_ _%signature59319%_))) - (_%__kont7837778378%_ (lambda () (void)))) - (let ((_%__match7840578406%_ - (lambda (_%__splice7837578376%_ + (_%__kont7860578606%_ (lambda () (void)))) + (let ((_%__match7863378634%_ + (lambda (_%__splice7860378604%_ _%target5971859754%_ _%tl5972059757%_ _%e5972559760%_ @@ -275,31 +275,31 @@ (declare (not safe)) (##car _%e5972259788%_)))) (_%loop5972159780%_ _%lp-tl5972459795%_))) - (_%__kont7837378374%_ _%hd5972959774%_))))) + (_%__kont7860178602%_ _%hd5972959774%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_%loop5972159780%_ _%target5971859754%_))))) - (if (gx#stx-pair/null? _%__stx7837078371%_) - (if (let ((__tmp82650 + (if (gx#stx-pair/null? _%__stx7859878599%_) + (if (let ((__tmp82924 (gx#stx-length - _%__stx7837078371%_))) + _%__stx7859878599%_))) (declare (not safe)) - (##fx>= __tmp82650 '2)) - (let ((_%__splice7837578376%_ + (##fx>= __tmp82924 '2)) + (let ((_%__splice7860378604%_ (gx#syntax-split-splice - _%__stx7837078371%_ + _%__stx7859878599%_ '2))) (let ((_%tl5972059757%_ (let () (declare (not safe)) (##vector-ref - _%__splice7837578376%_ + _%__splice7860378604%_ '1))) (_%target5971859754%_ (let () (declare (not safe)) (##vector-ref - _%__splice7837578376%_ + _%__splice7860378604%_ '0)))) (if (gx#stx-pair? _%tl5972059757%_) @@ -319,7 +319,7 @@ (if (gx#identifier? _%hd5972659764%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82651_| + |gerbil/core/contract~Interface[1]#_g82925_| _%hd5972659764%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -335,8 +335,8 @@ (declare (not safe)) (##car _%e5972859770%_)))) (if (gx#stx-null? _%tl5973059777%_) - (_%__match7840578406%_ - _%__splice7837578376%_ + (_%__match7863378634%_ + _%__splice7860378604%_ _%target5971859754%_ _%tl5972059757%_ _%e5972559760%_ @@ -345,24 +345,24 @@ _%e5972859770%_ _%hd5972959774%_ _%tl5973059777%_) - (_%__kont7837778378%_)))) - (_%__kont7837778378%_)) - (_%__kont7837778378%_)) - (_%__kont7837778378%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7837778378%_)))) - (_%__kont7837778378%_)) - (_%__kont7837778378%_))))) + (_%__kont7860578606%_)))) + (_%__kont7860578606%_)) + (_%__kont7860578606%_)) + (_%__kont7860578606%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7860578606%_)))) + (_%__kont7860578606%_)) + (_%__kont7860578606%_))))) (if (null? _%kws59334%_) (if _%have-optional?59332%_ - (let* ((_%__stx7840878409%_ _%L59697%_) + (let* ((_%__stx7863678637%_ _%L59697%_) (_%g5982959850%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7840878409%_)))) - (let ((_%__kont7841178412%_ + _%__stx7863678637%_)))) + (let ((_%__kont7863978640%_ (lambda (_%L59914%_) (|gerbil/core/contract~Interface[1]#check-signature-contract-types!| _%stx59318%_ @@ -372,7 +372,7 @@ '#t (cons _%L59698%_ _%ids59333%_) _%kws59334%_))) - (_%__kont7841578416%_ + (_%__kont7864378644%_ (lambda () (gx#raise-syntax-error '#f @@ -380,8 +380,8 @@ _%stx59318%_ _%signature59319%_ _%L59697%_)))) - (let ((_%__match7844378444%_ - (lambda (_%__splice7841378414%_ + (let ((_%__match7867178672%_ + (lambda (_%__splice7864178642%_ _%target5983259868%_ _%tl5983459871%_ _%e5983959874%_ @@ -405,34 +405,34 @@ (declare (not safe)) (##car _%e5983659902%_)))) (_%loop5983559894%_ _%lp-tl5983859909%_))) - (_%__kont7841178412%_ _%hd5984359888%_))))) + (_%__kont7863978640%_ _%hd5984359888%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_%loop5983559894%_ _%target5983259868%_))))) (if (gx#stx-pair/null? - _%__stx7840878409%_) - (if (let ((__tmp82652 + _%__stx7863678637%_) + (if (let ((__tmp82926 (gx#stx-length - _%__stx7840878409%_))) + _%__stx7863678637%_))) (declare (not safe)) - (##fx>= __tmp82652 '2)) - (let ((_%__splice7841378414%_ + (##fx>= __tmp82926 '2)) + (let ((_%__splice7864178642%_ (gx#syntax-split-splice - _%__stx7840878409%_ + _%__stx7863678637%_ '2))) (let ((_%tl5983459871%_ (let () (declare (not safe)) (##vector-ref - _%__splice7841378414%_ + _%__splice7864178642%_ '1))) (_%target5983259868%_ (let () (declare (not safe)) (##vector-ref - _%__splice7841378414%_ + _%__splice7864178642%_ '0)))) (if (gx#stx-pair? _%tl5983459871%_) @@ -450,7 +450,7 @@ (##car _%e5983959874%_)))) (if (gx#identifier? _%hd5984059878%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82653_| + |gerbil/core/contract~Interface[1]#_g82927_| _%hd5984059878%_) (if (gx#stx-pair? _%tl5984159881%_) (let ((_%e5984259884%_ @@ -464,8 +464,8 @@ (declare (not safe)) (##car _%e5984259884%_)))) (if (gx#stx-null? _%tl5984459891%_) - (_%__match7844378444%_ - _%__splice7841378414%_ + (_%__match7867178672%_ + _%__splice7864178642%_ _%target5983259868%_ _%tl5983459871%_ _%e5983959874%_ @@ -474,14 +474,14 @@ _%e5984259884%_ _%hd5984359888%_ _%tl5984459891%_) - (_%__kont7841578416%_)))) - (_%__kont7841578416%_)) - (_%__kont7841578416%_)) - (_%__kont7841578416%_)))) - (_%__kont7841578416%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7841578416%_)) - (_%__kont7841578416%_))))) + (_%__kont7864378644%_)))) + (_%__kont7864378644%_)) + (_%__kont7864378644%_)) + (_%__kont7864378644%_)))) + (_%__kont7864378644%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7864378644%_)) + (_%__kont7864378644%_))))) (if (find (lambda (_%g5993659938%_) (gx#bound-identifier=? _%g5993659938%_ @@ -505,7 +505,7 @@ (gx#raise-syntax-error '#f '"invalid signature; positional arguments must precede keyword arguments"))))) - (_%__kont7845578456%_ + (_%__kont7868378684%_ (lambda (_%L59638%_ _%L59640%_ _%L59641%_) (if (not _%keywords-allowed?59324%_) (gx#raise-syntax-error @@ -537,7 +537,7 @@ (cons _%L59640%_ _%ids59333%_) (cons (gx#stx-e _%L59641%_) _%kws59334%_))))))) - (_%__kont7845778458%_ + (_%__kont7868578686%_ (lambda (_%L59577%_ _%L59579%_ _%L59580%_) (if (not _%keywords-allowed?59324%_) (gx#raise-syntax-error @@ -569,7 +569,7 @@ (cons _%L59579%_ _%ids59333%_) (cons (gx#stx-e _%L59580%_) _%kws59334%_))))))) - (_%__kont7845978460%_ + (_%__kont7868778688%_ (lambda (_%L59496%_ _%L59498%_ _%L59499%_ _%L59500%_) (if (not _%keywords-allowed?59324%_) (gx#raise-syntax-error @@ -605,9 +605,9 @@ (cons _%L59499%_ _%ids59333%_) (cons (gx#stx-e _%L59500%_) _%kws59334%_)))))))) - (_%__kont7846178462%_ (lambda (_%L59443%_) '#t)) - (_%__kont7846378464%_ (lambda () '#t)) - (_%__kont7846578466%_ + (_%__kont7868978690%_ (lambda (_%L59443%_) '#t)) + (_%__kont7869178692%_ (lambda () '#t)) + (_%__kont7869378694%_ (lambda () (gx#raise-syntax-error '#f @@ -617,18 +617,18 @@ _%rest59330%_)))) (let* ((_%g5934259436%_ (lambda () - (if (gx#stx-null? _%__stx7844678447%_) - (_%__kont7846378464%_) - (_%__kont7846578466%_)))) + (if (gx#stx-null? _%__stx7867478675%_) + (_%__kont7869178692%_) + (_%__kont7869378694%_)))) (_%g5934159459%_ (lambda () - (let ((_%L59443%_ _%__stx7844678447%_)) + (let ((_%L59443%_ _%__stx7867478675%_)) (if (gx#identifier? _%L59443%_) - (_%__kont7846178462%_ _%L59443%_) + (_%__kont7868978690%_ _%L59443%_) (let () (declare (not safe)) (_%g5934259436%_)))))) - (_%__match7856178562%_ + (_%__match7878978790%_ (lambda (_%e5939959466%_ _%hd5940059470%_ _%tl5940159473%_ @@ -646,7 +646,7 @@ (gx#identifier? _%L59499%_) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L59498%_)) - (_%__kont7845978460%_ + (_%__kont7868778688%_ _%L59496%_ _%L59498%_ _%L59499%_ @@ -654,7 +654,7 @@ (let () (declare (not safe)) (_%g5934159459%_)))))) - (_%__match7854378544%_ + (_%__match7877178772%_ (lambda (_%e5938359537%_ _%hd5938459541%_ _%tl5938559544%_ @@ -672,11 +672,11 @@ (_%L59580%_ _%hd5938459541%_)) (if (and (gx#stx-keyword? _%L59580%_) (gx#identifier? _%L59579%_)) - (_%__kont7845778458%_ + (_%__kont7868578686%_ _%L59577%_ _%L59579%_ _%L59580%_) - (_%__match7856178562%_ + (_%__match7878978790%_ _%e5938359537%_ _%hd5938459541%_ _%tl5938559544%_ @@ -686,7 +686,7 @@ _%e5938959557%_ _%hd5939059561%_ _%tl5939159564%_))))) - (_%__match7851778518%_ + (_%__match7874578746%_ (lambda (_%e5937459618%_ _%hd5937559622%_ _%tl5937659625%_ @@ -698,7 +698,7 @@ (_%L59641%_ _%hd5937559622%_)) (if (and (gx#stx-keyword? _%L59641%_) (gx#identifier? _%L59640%_)) - (_%__kont7845578456%_ + (_%__kont7868378684%_ _%L59638%_ _%L59640%_ _%L59641%_) @@ -727,7 +727,7 @@ (##car _%e5939259567%_)))) (if (gx#stx-null? _%tl5939459574%_) - (_%__match7854378544%_ + (_%__match7877178772%_ _%e5937459618%_ _%hd5937559622%_ _%tl5937659625%_ @@ -740,7 +740,7 @@ _%e5939259567%_ _%hd5939359571%_ _%tl5939459574%_) - (_%__match7856178562%_ + (_%__match7878978790%_ _%e5937459618%_ _%hd5937559622%_ _%tl5937659625%_ @@ -750,7 +750,7 @@ _%e5938959557%_ _%hd5939059561%_ _%tl5939159564%_)))) - (_%__match7856178562%_ + (_%__match7878978790%_ _%e5937459618%_ _%hd5937559622%_ _%tl5937659625%_ @@ -763,7 +763,7 @@ (let () (declare (not safe)) (_%g5934159459%_))))))) - (_%__match7850578506%_ + (_%__match7873378734%_ (lambda (_%e5936559675%_ _%hd5936659679%_ _%tl5936759682%_ @@ -776,7 +776,7 @@ (if (and (gx#identifier? _%L59698%_) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L59697%_)) - (_%__kont7845378454%_ + (_%__kont7868178682%_ _%L59695%_ _%L59697%_ _%L59698%_) @@ -791,7 +791,7 @@ (let () (declare (not safe)) (##car _%e5937759628%_)))) - (_%__match7851778518%_ + (_%__match7874578746%_ _%e5936559675%_ _%hd5936659679%_ _%tl5936759682%_ @@ -801,7 +801,7 @@ (let () (declare (not safe)) (_%g5934159459%_))))))) - (_%__match7849378494%_ + (_%__match7872178722%_ (lambda (_%e5935359953%_ _%hd5935459957%_ _%tl5935559960%_ @@ -814,22 +814,22 @@ (let ((_%L59983%_ _%tl5935559960%_) (_%L59985%_ _%hd5935759967%_)) (if (gx#identifier? _%L59985%_) - (_%__kont7845178452%_ _%L59983%_ _%L59985%_) - (_%__match7850578506%_ + (_%__kont7867978680%_ _%L59983%_ _%L59985%_) + (_%__match7873378734%_ _%e5935359953%_ _%hd5935459957%_ _%tl5935559960%_ _%e5935659963%_ _%hd5935759967%_ _%tl5935859970%_))))) - (_%__match7847378474%_ + (_%__match7870178702%_ (lambda (_%e5934860020%_ _%hd5934960024%_ _%tl5935060027%_) (let ((_%L60030%_ _%tl5935060027%_) (_%L60032%_ _%hd5934960024%_)) (if (gx#identifier? _%L60032%_) - (_%__kont7844978450%_ _%L60030%_ _%L60032%_) + (_%__kont7867778678%_ _%L60030%_ _%L60032%_) (if (gx#stx-pair? _%hd5934960024%_) (let ((_%e5935659963%_ (gx#syntax-e _%hd5934960024%_))) @@ -855,7 +855,7 @@ (##car _%e5935959973%_)))) (if (gx#stx-null? _%tl5936159980%_) - (_%__match7849378494%_ + (_%__match7872178722%_ _%e5934860020%_ _%hd5934960024%_ _%tl5935060027%_ @@ -865,14 +865,14 @@ _%e5935959973%_ _%hd5936059977%_ _%tl5936159980%_) - (_%__match7850578506%_ + (_%__match7873378734%_ _%e5934860020%_ _%hd5934960024%_ _%tl5935060027%_ _%e5935659963%_ _%hd5935759967%_ _%tl5935859970%_)))) - (_%__match7850578506%_ + (_%__match7873378734%_ _%e5934860020%_ _%hd5934960024%_ _%tl5935060027%_ @@ -890,7 +890,7 @@ (let () (declare (not safe)) (##car _%e5937759628%_)))) - (_%__match7851778518%_ + (_%__match7874578746%_ _%e5934860020%_ _%hd5934960024%_ _%tl5935060027%_ @@ -900,9 +900,9 @@ (let () (declare (not safe)) (_%g5934159459%_))))))))) - (if (gx#stx-pair? _%__stx7844678447%_) + (if (gx#stx-pair? _%__stx7867478675%_) (let ((_%e5934860020%_ - (gx#syntax-e _%__stx7844678447%_))) + (gx#syntax-e _%__stx7867478675%_))) (let ((_%tl5935060027%_ (let () (declare (not safe)) @@ -911,7 +911,7 @@ (let () (declare (not safe)) (##car _%e5934860020%_)))) - (_%__match7847378474%_ + (_%__match7870178702%_ _%e5934860020%_ _%hd5934960024%_ _%tl5935060027%_))) @@ -934,28 +934,28 @@ _%args5931060073%_))) (define |gerbil/core/contract~Interface[1]#signature-contract?| (lambda (_%contract58767%_) - (let* ((_%__stx7856678567%_ _%contract58767%_) + (let* ((_%__stx7879478795%_ _%contract58767%_) (_%g5877658864%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7856678567%_)))) - (let ((_%__kont7856978570%_ + _%__stx7879478795%_)))) + (let ((_%__kont7879778798%_ (lambda (_%L59276%_ _%L59278%_) (gx#identifier? _%L59276%_))) - (_%__kont7857178572%_ + (_%__kont7879978800%_ (lambda (_%L59216%_ _%L59218%_ _%L59219%_) (gx#identifier? _%L59218%_))) - (_%__kont7857378574%_ (lambda (_%L59156%_) '#t)) - (_%__kont7857578576%_ (lambda (_%L59110%_ _%L59112%_) '#t)) - (_%__kont7857778578%_ + (_%__kont7880178802%_ (lambda (_%L59156%_) '#t)) + (_%__kont7880378804%_ (lambda (_%L59110%_ _%L59112%_) '#t)) + (_%__kont7880578806%_ (lambda (_%L59030%_ _%L59032%_ _%L59033%_) (gx#identifier? _%L59030%_))) - (_%__kont7857978580%_ + (_%__kont7880778808%_ (lambda (_%L58942%_ _%L58944%_ _%L58945%_ _%L58946%_) (gx#identifier? _%L58944%_))) - (_%__kont7858178582%_ (lambda () '#f))) - (let* ((_%__match7875578756%_ + (_%__kont7880978810%_ (lambda () '#f))) + (let* ((_%__match7898378984%_ (lambda (_%e5884158882%_ _%hd5884258886%_ _%tl5884358889%_ @@ -991,13 +991,13 @@ (gx#free-identifier=? _%L58945%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7857978580%_ + (_%__kont7880778808%_ _%L58942%_ _%L58944%_ _%L58945%_ _%L58946%_) - (_%__kont7858178582%_))))) - (_%__match7870978710%_ + (_%__kont7880978810%_))))) + (_%__match7893778938%_ (lambda (_%e5882558990%_ _%hd5882658994%_ _%tl5882758997%_ @@ -1026,12 +1026,12 @@ (gx#free-identifier=? _%L59032%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7857778578%_ + (_%__kont7880578806%_ _%L59030%_ _%L59032%_ _%L59033%_) - (_%__kont7858178582%_))))) - (_%__match7862778628%_ + (_%__kont7880978810%_))))) + (_%__match7885578856%_ (lambda (_%e5878959176%_ _%hd5879059180%_ _%tl5879159183%_ @@ -1060,20 +1060,20 @@ (gx#free-identifier=? _%L59219%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7857178572%_ + (_%__kont7879978800%_ _%L59216%_ _%L59218%_ _%L59219%_) (if (gx#identifier? _%hd5879059180%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82654_| + |gerbil/core/contract~Interface[1]#_g82928_| _%hd5879059180%_) - (_%__kont7857578576%_ + (_%__kont7880378804%_ _%hd5879959210%_ _%hd5879359190%_) - (_%__kont7858178582%_)) - (_%__kont7858178582%_)))))) - (_%__match7859778598%_ + (_%__kont7880978810%_)) + (_%__kont7880978810%_)))))) + (_%__match7882578826%_ (lambda (_%e5878059256%_ _%hd5878159260%_ _%tl5878259263%_ @@ -1095,16 +1095,16 @@ (gx#free-identifier=? _%L59278%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7856978570%_ _%L59276%_ _%L59278%_) + (_%__kont7879778798%_ _%L59276%_ _%L59278%_) (if (gx#identifier? _%hd5878159260%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82654_| + |gerbil/core/contract~Interface[1]#_g82928_| _%hd5878159260%_) - (_%__kont7857378574%_ _%hd5878459270%_) - (_%__kont7858178582%_)) - (_%__kont7858178582%_))))))) - (if (gx#stx-pair? _%__stx7856678567%_) - (let ((_%e5878059256%_ (gx#syntax-e _%__stx7856678567%_))) + (_%__kont7880178802%_ _%hd5878459270%_) + (_%__kont7880978810%_)) + (_%__kont7880978810%_))))))) + (if (gx#stx-pair? _%__stx7879478795%_) + (let ((_%e5878059256%_ (gx#syntax-e _%__stx7879478795%_))) (let ((_%tl5878259263%_ (let () (declare (not safe)) @@ -1125,7 +1125,7 @@ (declare (not safe)) (##car _%e5878359266%_)))) (if (gx#stx-null? _%tl5878559273%_) - (_%__match7859778598%_ + (_%__match7882578826%_ _%e5878059256%_ _%hd5878159260%_ _%tl5878259263%_ @@ -1145,7 +1145,7 @@ (##car _%e5879559196%_)))) (if (gx#identifier? _%hd5879659200%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82655_| + |gerbil/core/contract~Interface[1]#_g82929_| _%hd5879659200%_) (if (gx#stx-pair? _%tl5879759203%_) @@ -1160,7 +1160,7 @@ (_%hd5879959210%_ (let () (declare (not safe)) (##car _%e5879859206%_)))) (if (gx#stx-null? _%tl5880059213%_) - (_%__match7862778628%_ + (_%__match7885578856%_ _%e5878059256%_ _%hd5878159260%_ _%tl5878259263%_ @@ -1175,7 +1175,7 @@ _%tl5880059213%_) (if (gx#identifier? _%hd5878159260%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82654_| + |gerbil/core/contract~Interface[1]#_g82928_| _%hd5878159260%_) (if (gx#stx-pair? _%tl5880059213%_) (let ((_%e5885358922%_ @@ -1190,7 +1190,7 @@ (##car _%e5885358922%_)))) (if (gx#identifier? _%hd5885458926%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82656_| + |gerbil/core/contract~Interface[1]#_g82930_| _%hd5885458926%_) (if (gx#stx-pair? _%tl5885558929%_) @@ -1209,7 +1209,7 @@ (##car _%e5885658932%_)))) (if (gx#stx-null? _%tl5885858939%_) - (_%__match7875578756%_ + (_%__match7898378984%_ _%e5878059256%_ _%hd5878159260%_ _%tl5878259263%_ @@ -1228,19 +1228,19 @@ _%e5885658932%_ _%hd5885758936%_ _%tl5885858939%_) - (_%__kont7858178582%_)))) - (_%__kont7858178582%_)) - (_%__kont7858178582%_)) - (_%__kont7858178582%_)))) - (_%__kont7858178582%_)) - (_%__kont7858178582%_)) - (_%__kont7858178582%_))))) - (_%__kont7858178582%_)) + (_%__kont7880978810%_)))) + (_%__kont7880978810%_)) + (_%__kont7880978810%_)) + (_%__kont7880978810%_)))) + (_%__kont7880978810%_)) + (_%__kont7880978810%_)) + (_%__kont7880978810%_))))) + (_%__kont7880978810%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#identifier? _%hd5878159260%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82654_| + |gerbil/core/contract~Interface[1]#_g82928_| _%hd5878159260%_) (if (gx#stx-pair? _%tl5879759203%_) @@ -1256,7 +1256,7 @@ (declare (not safe)) (##car _%e5883459020%_)))) (if (gx#stx-null? _%tl5883659027%_) - (_%__match7870978710%_ + (_%__match7893778938%_ _%e5878059256%_ _%hd5878159260%_ _%tl5878259263%_ @@ -1282,7 +1282,7 @@ (##car _%e5885358922%_)))) (if (gx#identifier? _%hd5885458926%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82656_| + |gerbil/core/contract~Interface[1]#_g82930_| _%hd5885458926%_) (if (gx#stx-pair? _%tl5885558929%_) @@ -1301,7 +1301,7 @@ (##car _%e5885658932%_)))) (if (gx#stx-null? _%tl5885858939%_) - (_%__match7875578756%_ + (_%__match7898378984%_ _%e5878059256%_ _%hd5878159260%_ _%tl5878259263%_ @@ -1320,19 +1320,19 @@ _%e5885658932%_ _%hd5885758936%_ _%tl5885858939%_) - (_%__kont7858178582%_)))) - (_%__kont7858178582%_)) - (_%__kont7858178582%_)) - (_%__kont7858178582%_)))) - (_%__kont7858178582%_))))) - (_%__kont7858178582%_)) - (_%__kont7858178582%_)) - (_%__kont7858178582%_))) + (_%__kont7880978810%_)))) + (_%__kont7880978810%_)) + (_%__kont7880978810%_)) + (_%__kont7880978810%_)))) + (_%__kont7880978810%_))))) + (_%__kont7880978810%_)) + (_%__kont7880978810%_)) + (_%__kont7880978810%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#identifier? _%hd5878159260%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82654_| + |gerbil/core/contract~Interface[1]#_g82928_| _%hd5878159260%_) (if (gx#stx-pair? _%tl5879759203%_) @@ -1348,7 +1348,7 @@ (declare (not safe)) (##car _%e5883459020%_)))) (if (gx#stx-null? _%tl5883659027%_) - (_%__match7870978710%_ + (_%__match7893778938%_ _%e5878059256%_ _%hd5878159260%_ _%tl5878259263%_ @@ -1374,7 +1374,7 @@ (##car _%e5885358922%_)))) (if (gx#identifier? _%hd5885458926%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82656_| + |gerbil/core/contract~Interface[1]#_g82930_| _%hd5885458926%_) (if (gx#stx-pair? _%tl5885558929%_) (let ((_%e5885658932%_ @@ -1390,7 +1390,7 @@ (##car _%e5885658932%_)))) (if (gx#stx-null? _%tl5885858939%_) - (_%__match7875578756%_ + (_%__match7898378984%_ _%e5878059256%_ _%hd5878159260%_ _%tl5878259263%_ @@ -1409,39 +1409,39 @@ _%e5885658932%_ _%hd5885758936%_ _%tl5885858939%_) - (_%__kont7858178582%_)))) - (_%__kont7858178582%_)) - (_%__kont7858178582%_)) - (_%__kont7858178582%_)))) - (_%__kont7858178582%_))))) - (_%__kont7858178582%_)) - (_%__kont7858178582%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7858178582%_))))) - (_%__kont7858178582%_))))) - (_%__kont7858178582%_)))) - (_%__kont7858178582%_))))))) + (_%__kont7880978810%_)))) + (_%__kont7880978810%_)) + (_%__kont7880978810%_)) + (_%__kont7880978810%_)))) + (_%__kont7880978810%_))))) + (_%__kont7880978810%_)) + (_%__kont7880978810%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7880978810%_))))) + (_%__kont7880978810%_))))) + (_%__kont7880978810%_)))) + (_%__kont7880978810%_))))))) (define |gerbil/core/contract~Interface[1]#check-signature-contract-types!| (lambda (_%stx58574%_ _%contract58576%_) - (let* ((_%__stx7875878759%_ _%contract58576%_) + (let* ((_%__stx7898678987%_ _%contract58576%_) (_%g5858058612%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7875878759%_)))) - (let ((_%__kont7876178762%_ + _%__stx7898678987%_)))) + (let ((_%__kont7898978990%_ (lambda (_%L58734%_ _%L58736%_ _%L58737%_) (|gerbil/core/contract~Interface[1]#check-valid-type!| _%stx58574%_ _%L58736%_))) - (_%__kont7876378764%_ + (_%__kont7899178992%_ (lambda (_%L58670%_ _%L58672%_ _%L58673%_ _%L58674%_) (|gerbil/core/contract~Interface[1]#check-valid-type!| _%stx58574%_ _%L58672%_))) - (_%__kont7876578766%_ (lambda () (void)))) - (let* ((_%__match7880778808%_ + (_%__kont7899378994%_ (lambda () (void)))) + (let* ((_%__match7903579036%_ (lambda (_%e5859558630%_ _%hd5859658634%_ _%tl5859758637%_ @@ -1471,13 +1471,13 @@ (gx#free-identifier=? _%L58673%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7876378764%_ + (_%__kont7899178992%_ _%L58670%_ _%L58672%_ _%L58673%_ _%L58674%_) - (_%__kont7876578766%_))))) - (_%__match7877978780%_ + (_%__kont7899378994%_))))) + (_%__match7900779008%_ (lambda (_%e5858558714%_ _%hd5858658718%_ _%tl5858758721%_ @@ -1500,13 +1500,13 @@ (gx#free-identifier=? _%L58737%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7876178762%_ + (_%__kont7898978990%_ _%L58734%_ _%L58736%_ _%L58737%_) (if (gx#identifier? _%hd5858658718%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82657_| + |gerbil/core/contract~Interface[1]#_g82931_| _%hd5858658718%_) (if (gx#stx-pair? _%tl5859058731%_) (let ((_%e5860158650%_ @@ -1531,7 +1531,7 @@ (let () (declare (not safe)) (##car _%e5860458660%_)))) - (_%__match7880778808%_ + (_%__match7903579036%_ _%e5858558714%_ _%hd5858658718%_ _%tl5858758721%_ @@ -1544,12 +1544,12 @@ _%e5860458660%_ _%hd5860558664%_ _%tl5860658667%_))) - (_%__kont7876578766%_)))) - (_%__kont7876578766%_)) - (_%__kont7876578766%_)) - (_%__kont7876578766%_))))))) - (if (gx#stx-pair? _%__stx7875878759%_) - (let ((_%e5858558714%_ (gx#syntax-e _%__stx7875878759%_))) + (_%__kont7899378994%_)))) + (_%__kont7899378994%_)) + (_%__kont7899378994%_)) + (_%__kont7899378994%_))))))) + (if (gx#stx-pair? _%__stx7898678987%_) + (let ((_%e5858558714%_ (gx#syntax-e _%__stx7898678987%_))) (let ((_%tl5858758721%_ (let () (declare (not safe)) @@ -1569,59 +1569,59 @@ (let () (declare (not safe)) (##car _%e5858858724%_)))) - (_%__match7877978780%_ + (_%__match7900779008%_ _%e5858558714%_ _%hd5858658718%_ _%tl5858758721%_ _%e5858858724%_ _%hd5858958728%_ _%tl5859058731%_))) - (_%__kont7876578766%_)))) - (_%__kont7876578766%_))))))) + (_%__kont7899378994%_)))) + (_%__kont7899378994%_))))))) (define |gerbil/core/contract~Interface[1]#signature-arguments-in| (lambda (_%signature57930%_) (let _%loop57933%_ ((_%rest57936%_ _%signature57930%_) (_%result57938%_ '())) - (let* ((_%__stx7888678887%_ _%rest57936%_) + (let* ((_%__stx7911479115%_ _%rest57936%_) (_%g5794758019%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7888678887%_)))) - (let ((_%__kont7888978890%_ + _%__stx7911479115%_)))) + (let ((_%__kont7911779118%_ (lambda (_%L58557%_ _%L58559%_) (_%loop57933%_ _%L58557%_ (cons _%L58559%_ _%result57938%_)))) - (_%__kont7889178892%_ + (_%__kont7911979120%_ (lambda (_%L58521%_ _%L58523%_ _%L58524%_) (_%loop57933%_ _%L58521%_ (cons (cons _%L58524%_ (cons _%L58523%_ '())) _%result57938%_)))) - (_%__kont7889378894%_ + (_%__kont7912179122%_ (lambda (_%L58358%_ _%L58360%_ _%L58361%_) - (let* ((_%__stx7884878849%_ _%L58360%_) + (let* ((_%__stx7907679077%_ _%L58360%_) (_%g5837658397%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7884878849%_)))) - (let ((_%__kont7885178852%_ + _%__stx7907679077%_)))) + (let ((_%__kont7907979080%_ (lambda (_%L58461%_) (_%loop57933%_ _%L58358%_ (cons (cons _%L58361%_ (cons _%L58461%_ '())) _%result57938%_)))) - (_%__kont7885578856%_ + (_%__kont7908379084%_ (lambda () (_%loop57933%_ _%L58358%_ (cons _%L58361%_ _%result57938%_))))) - (let ((_%__match7888378884%_ - (lambda (_%__splice7885378854%_ + (let ((_%__match7911179112%_ + (lambda (_%__splice7908179082%_ _%target5837958415%_ _%tl5838158418%_ _%e5838658421%_ @@ -1649,30 +1649,30 @@ (##car _%e5838358449%_)))) (_%loop5838258441%_ _%lp-tl5838558456%_))) - (_%__kont7885178852%_ + (_%__kont7907979080%_ _%hd5839058435%_))))) (_%loop5838258441%_ _%target5837958415%_))))) - (if (gx#stx-pair/null? _%__stx7884878849%_) - (if (let ((__tmp82658 - (gx#stx-length _%__stx7884878849%_))) + (if (gx#stx-pair/null? _%__stx7907679077%_) + (if (let ((__tmp82932 + (gx#stx-length _%__stx7907679077%_))) (declare (not safe)) - (##fx>= __tmp82658 '2)) - (let ((_%__splice7885378854%_ + (##fx>= __tmp82932 '2)) + (let ((_%__splice7908179082%_ (gx#syntax-split-splice - _%__stx7884878849%_ + _%__stx7907679077%_ '2))) (let ((_%tl5838158418%_ (let () (declare (not safe)) (##vector-ref - _%__splice7885378854%_ + _%__splice7908179082%_ '1))) (_%target5837958415%_ (let () (declare (not safe)) (##vector-ref - _%__splice7885378854%_ + _%__splice7908179082%_ '0)))) (if (gx#stx-pair? _%tl5838158418%_) (let ((_%e5838658421%_ @@ -1689,7 +1689,7 @@ (if (gx#identifier? _%hd5838758425%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82659_| + |gerbil/core/contract~Interface[1]#_g82933_| _%hd5838758425%_) (if (gx#stx-pair? _%tl5838858428%_) @@ -1705,8 +1705,8 @@ (declare (not safe)) (##car _%e5838958431%_)))) (if (gx#stx-null? _%tl5839158438%_) - (_%__match7888378884%_ - _%__splice7885378854%_ + (_%__match7911179112%_ + _%__splice7908179082%_ _%target5837958415%_ _%tl5838158418%_ _%e5838658421%_ @@ -1715,48 +1715,48 @@ _%e5838958431%_ _%hd5839058435%_ _%tl5839158438%_) - (_%__kont7885578856%_)))) - (_%__kont7885578856%_)) - (_%__kont7885578856%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7885578856%_)))) - (_%__kont7885578856%_)))) - (_%__kont7885578856%_)) - (_%__kont7885578856%_))))))) - (_%__kont7889578896%_ + (_%__kont7908379084%_)))) + (_%__kont7908379084%_)) + (_%__kont7908379084%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7908379084%_)))) + (_%__kont7908379084%_)))) + (_%__kont7908379084%_)) + (_%__kont7908379084%_))))))) + (_%__kont7912379124%_ (lambda (_%L58314%_ _%L58316%_ _%L58317%_) (_%loop57933%_ _%L58314%_ (cons _%L58316%_ (cons _%L58317%_ _%result57938%_))))) - (_%__kont7889778898%_ + (_%__kont7912579126%_ (lambda (_%L58264%_ _%L58266%_ _%L58267%_ _%L58268%_) (_%loop57933%_ _%L58264%_ (cons (cons _%L58267%_ (cons _%L58266%_ '())) (cons _%L58268%_ _%result57938%_))))) - (_%__kont7889978900%_ + (_%__kont7912779128%_ (lambda (_%L58087%_ _%L58089%_ _%L58090%_ _%L58091%_) - (let* ((_%__stx7881078811%_ _%L58089%_) + (let* ((_%__stx7903879039%_ _%L58089%_) (_%g5810958130%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7881078811%_)))) - (let ((_%__kont7881378814%_ + _%__stx7903879039%_)))) + (let ((_%__kont7904179042%_ (lambda (_%L58194%_) (_%loop57933%_ _%L58087%_ (cons (cons _%L58090%_ (cons _%L58194%_ '())) (cons _%L58091%_ _%result57938%_))))) - (_%__kont7881778818%_ + (_%__kont7904579046%_ (lambda () (_%loop57933%_ _%L58087%_ (cons _%L58090%_ (cons _%L58091%_ _%result57938%_)))))) - (let ((_%__match7884578846%_ - (lambda (_%__splice7881578816%_ + (let ((_%__match7907379074%_ + (lambda (_%__splice7904379044%_ _%target5811258148%_ _%tl5811458151%_ _%e5811958154%_ @@ -1784,30 +1784,30 @@ (##car _%e5811658182%_)))) (_%loop5811558174%_ _%lp-tl5811858189%_))) - (_%__kont7881378814%_ + (_%__kont7904179042%_ _%hd5812358168%_))))) (_%loop5811558174%_ _%target5811258148%_))))) - (if (gx#stx-pair/null? _%__stx7881078811%_) - (if (let ((__tmp82660 - (gx#stx-length _%__stx7881078811%_))) + (if (gx#stx-pair/null? _%__stx7903879039%_) + (if (let ((__tmp82934 + (gx#stx-length _%__stx7903879039%_))) (declare (not safe)) - (##fx>= __tmp82660 '2)) - (let ((_%__splice7881578816%_ + (##fx>= __tmp82934 '2)) + (let ((_%__splice7904379044%_ (gx#syntax-split-splice - _%__stx7881078811%_ + _%__stx7903879039%_ '2))) (let ((_%tl5811458151%_ (let () (declare (not safe)) (##vector-ref - _%__splice7881578816%_ + _%__splice7904379044%_ '1))) (_%target5811258148%_ (let () (declare (not safe)) (##vector-ref - _%__splice7881578816%_ + _%__splice7904379044%_ '0)))) (if (gx#stx-pair? _%tl5811458151%_) (let ((_%e5811958154%_ @@ -1824,7 +1824,7 @@ (if (gx#identifier? _%hd5812058158%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82661_| + |gerbil/core/contract~Interface[1]#_g82935_| _%hd5812058158%_) (if (gx#stx-pair? _%tl5812158161%_) @@ -1840,8 +1840,8 @@ (declare (not safe)) (##car _%e5812258164%_)))) (if (gx#stx-null? _%tl5812458171%_) - (_%__match7884578846%_ - _%__splice7881578816%_ + (_%__match7907379074%_ + _%__splice7904379044%_ _%target5811258148%_ _%tl5811458151%_ _%e5811958154%_ @@ -1850,26 +1850,26 @@ _%e5812258164%_ _%hd5812358168%_ _%tl5812458171%_) - (_%__kont7881778818%_)))) - (_%__kont7881778818%_)) - (_%__kont7881778818%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7881778818%_)))) - (_%__kont7881778818%_)))) - (_%__kont7881778818%_)) - (_%__kont7881778818%_))))))) - (_%__kont7890178902%_ + (_%__kont7904579046%_)))) + (_%__kont7904579046%_)) + (_%__kont7904579046%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7904579046%_)))) + (_%__kont7904579046%_)))) + (_%__kont7904579046%_)) + (_%__kont7904579046%_))))))) + (_%__kont7912979130%_ (lambda (_%L58037%_) (foldl cons _%L58037%_ _%result57938%_))) - (_%__kont7890378904%_ + (_%__kont7913179132%_ (lambda () (reverse! _%result57938%_)))) (let* ((_%g5794558050%_ (lambda () - (let ((_%L58037%_ _%__stx7888678887%_)) + (let ((_%L58037%_ _%__stx7911479115%_)) (if (gx#identifier? _%L58037%_) - (_%__kont7890178902%_ _%L58037%_) - (_%__kont7890378904%_))))) - (_%__match7899979000%_ + (_%__kont7912979130%_ _%L58037%_) + (_%__kont7913179132%_))))) + (_%__match7922779228%_ (lambda (_%e5800458057%_ _%hd5800558061%_ _%tl5800658064%_ @@ -1887,7 +1887,7 @@ (gx#identifier? _%L58090%_) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L58089%_)) - (_%__kont7889978900%_ + (_%__kont7912779128%_ _%L58087%_ _%L58089%_ _%L58090%_ @@ -1895,7 +1895,7 @@ (let () (declare (not safe)) (_%g5794558050%_)))))) - (_%__match7898178982%_ + (_%__match7920979210%_ (lambda (_%e5798858224%_ _%hd5798958228%_ _%tl5799058231%_ @@ -1914,12 +1914,12 @@ (_%L58268%_ _%hd5798958228%_)) (if (and (gx#stx-keyword? _%L58268%_) (gx#identifier? _%L58267%_)) - (_%__kont7889778898%_ + (_%__kont7912579126%_ _%L58264%_ _%L58266%_ _%L58267%_ _%L58268%_) - (_%__match7899979000%_ + (_%__match7922779228%_ _%e5798858224%_ _%hd5798958228%_ _%tl5799058231%_ @@ -1929,7 +1929,7 @@ _%e5799458244%_ _%hd5799558248%_ _%tl5799658251%_))))) - (_%__match7895578956%_ + (_%__match7918379184%_ (lambda (_%e5797858294%_ _%hd5797958298%_ _%tl5798058301%_ @@ -1941,7 +1941,7 @@ (_%L58317%_ _%hd5797958298%_)) (if (and (gx#stx-keyword? _%L58317%_) (gx#identifier? _%L58316%_)) - (_%__kont7889578896%_ + (_%__kont7912379124%_ _%L58314%_ _%L58316%_ _%L58317%_) @@ -1970,7 +1970,7 @@ (##car _%e5799758254%_)))) (if (gx#stx-null? _%tl5799958261%_) - (_%__match7898178982%_ + (_%__match7920979210%_ _%e5797858294%_ _%hd5797958298%_ _%tl5798058301%_ @@ -1983,7 +1983,7 @@ _%e5799758254%_ _%hd5799858258%_ _%tl5799958261%_) - (_%__match7899979000%_ + (_%__match7922779228%_ _%e5797858294%_ _%hd5797958298%_ _%tl5798058301%_ @@ -1993,7 +1993,7 @@ _%e5799458244%_ _%hd5799558248%_ _%tl5799658251%_)))) - (_%__match7899979000%_ + (_%__match7922779228%_ _%e5797858294%_ _%hd5797958298%_ _%tl5798058301%_ @@ -2006,7 +2006,7 @@ (let () (declare (not safe)) (_%g5794558050%_))))))) - (_%__match7894378944%_ + (_%__match7917179172%_ (lambda (_%e5796958338%_ _%hd5797058342%_ _%tl5797158345%_ @@ -2019,7 +2019,7 @@ (if (and (gx#identifier? _%L58361%_) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L58360%_)) - (_%__kont7889378894%_ + (_%__kont7912179122%_ _%L58358%_ _%L58360%_ _%L58361%_) @@ -2034,7 +2034,7 @@ (let () (declare (not safe)) (##car _%e5798158304%_)))) - (_%__match7895578956%_ + (_%__match7918379184%_ _%e5796958338%_ _%hd5797058342%_ _%tl5797158345%_ @@ -2044,7 +2044,7 @@ (let () (declare (not safe)) (_%g5794558050%_))))))) - (_%__match7893178932%_ + (_%__match7915979160%_ (lambda (_%e5795758491%_ _%hd5795858495%_ _%tl5795958498%_ @@ -2058,25 +2058,25 @@ (_%L58523%_ _%hd5796458515%_) (_%L58524%_ _%hd5796158505%_)) (if (gx#identifier? _%L58524%_) - (_%__kont7889178892%_ + (_%__kont7911979120%_ _%L58521%_ _%L58523%_ _%L58524%_) - (_%__match7894378944%_ + (_%__match7917179172%_ _%e5795758491%_ _%hd5795858495%_ _%tl5795958498%_ _%e5796058501%_ _%hd5796158505%_ _%tl5796258508%_))))) - (_%__match7891178912%_ + (_%__match7913979140%_ (lambda (_%e5795158547%_ _%hd5795258551%_ _%tl5795358554%_) (let ((_%L58557%_ _%tl5795358554%_) (_%L58559%_ _%hd5795258551%_)) (if (gx#identifier? _%L58559%_) - (_%__kont7888978890%_ _%L58557%_ _%L58559%_) + (_%__kont7911779118%_ _%L58557%_ _%L58559%_) (if (gx#stx-pair? _%hd5795258551%_) (let ((_%e5796058501%_ (gx#syntax-e _%hd5795258551%_))) @@ -2102,7 +2102,7 @@ (##car _%e5796358511%_)))) (if (gx#stx-null? _%tl5796558518%_) - (_%__match7893178932%_ + (_%__match7915979160%_ _%e5795158547%_ _%hd5795258551%_ _%tl5795358554%_ @@ -2112,14 +2112,14 @@ _%e5796358511%_ _%hd5796458515%_ _%tl5796558518%_) - (_%__match7894378944%_ + (_%__match7917179172%_ _%e5795158547%_ _%hd5795258551%_ _%tl5795358554%_ _%e5796058501%_ _%hd5796158505%_ _%tl5796258508%_)))) - (_%__match7894378944%_ + (_%__match7917179172%_ _%e5795158547%_ _%hd5795258551%_ _%tl5795358554%_ @@ -2137,7 +2137,7 @@ (let () (declare (not safe)) (##car _%e5798158304%_)))) - (_%__match7895578956%_ + (_%__match7918379184%_ _%e5795158547%_ _%hd5795258551%_ _%tl5795358554%_ @@ -2147,8 +2147,8 @@ (let () (declare (not safe)) (_%g5794558050%_))))))))) - (if (gx#stx-pair? _%__stx7888678887%_) - (let ((_%e5795158547%_ (gx#syntax-e _%__stx7888678887%_))) + (if (gx#stx-pair? _%__stx7911479115%_) + (let ((_%e5795158547%_ (gx#syntax-e _%__stx7911479115%_))) (let ((_%tl5795358554%_ (let () (declare (not safe)) @@ -2157,7 +2157,7 @@ (let () (declare (not safe)) (##car _%e5795158547%_)))) - (_%__match7891178912%_ + (_%__match7913979140%_ _%e5795158547%_ _%hd5795258551%_ _%tl5795358554%_))) @@ -2166,55 +2166,55 @@ (lambda (_%signature57507%_) (let _%loop57510%_ ((_%rest57513%_ _%signature57507%_) (_%result57515%_ '())) - (let* ((_%__stx7900279003%_ _%rest57513%_) + (let* ((_%__stx7923079231%_ _%rest57513%_) (_%g5752457595%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7900279003%_)))) - (let ((_%__kont7900579006%_ + _%__stx7923079231%_)))) + (let ((_%__kont7923379234%_ (lambda (_%L57913%_ _%L57915%_) (_%loop57510%_ _%L57913%_ (cons _%L57915%_ _%result57515%_)))) - (_%__kont7900779008%_ + (_%__kont7923579236%_ (lambda (_%L57879%_ _%L57881%_) (_%loop57510%_ _%L57879%_ (cons _%L57881%_ _%result57515%_)))) - (_%__kont7900979010%_ + (_%__kont7923779238%_ (lambda (_%L57825%_ _%L57827%_ _%L57828%_) (_%loop57510%_ _%L57825%_ (cons _%L57828%_ _%result57515%_)))) - (_%__kont7901179012%_ + (_%__kont7923979240%_ (lambda (_%L57781%_ _%L57783%_ _%L57784%_) (_%loop57510%_ _%L57781%_ (cons _%L57783%_ (cons _%L57784%_ _%result57515%_))))) - (_%__kont7901379014%_ + (_%__kont7924179242%_ (lambda (_%L57731%_ _%L57733%_ _%L57734%_ _%L57735%_) (_%loop57510%_ _%L57731%_ (cons _%L57734%_ (cons _%L57735%_ _%result57515%_))))) - (_%__kont7901579016%_ + (_%__kont7924379244%_ (lambda (_%L57663%_ _%L57665%_ _%L57666%_ _%L57667%_) (_%loop57510%_ _%L57663%_ (cons _%L57666%_ (cons _%L57667%_ _%result57515%_))))) - (_%__kont7901779018%_ + (_%__kont7924579246%_ (lambda (_%L57613%_) (foldl cons (cons _%L57613%_ '()) _%result57515%_))) - (_%__kont7901979020%_ + (_%__kont7924779248%_ (lambda () (reverse! _%result57515%_)))) (let* ((_%g5752257626%_ (lambda () - (let ((_%L57613%_ _%__stx7900279003%_)) + (let ((_%L57613%_ _%__stx7923079231%_)) (if (gx#identifier? _%L57613%_) - (_%__kont7901779018%_ _%L57613%_) - (_%__kont7901979020%_))))) - (_%__match7911579116%_ + (_%__kont7924579246%_ _%L57613%_) + (_%__kont7924779248%_))))) + (_%__match7934379344%_ (lambda (_%e5758057633%_ _%hd5758157637%_ _%tl5758257640%_ @@ -2232,7 +2232,7 @@ (gx#identifier? _%L57666%_) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L57665%_)) - (_%__kont7901579016%_ + (_%__kont7924379244%_ _%L57663%_ _%L57665%_ _%L57666%_ @@ -2240,7 +2240,7 @@ (let () (declare (not safe)) (_%g5752257626%_)))))) - (_%__match7909779098%_ + (_%__match7932579326%_ (lambda (_%e5756457691%_ _%hd5756557695%_ _%tl5756657698%_ @@ -2259,12 +2259,12 @@ (_%L57735%_ _%hd5756557695%_)) (if (and (gx#stx-keyword? _%L57735%_) (gx#identifier? _%L57734%_)) - (_%__kont7901379014%_ + (_%__kont7924179242%_ _%L57731%_ _%L57733%_ _%L57734%_ _%L57735%_) - (_%__match7911579116%_ + (_%__match7934379344%_ _%e5756457691%_ _%hd5756557695%_ _%tl5756657698%_ @@ -2274,7 +2274,7 @@ _%e5757057711%_ _%hd5757157715%_ _%tl5757257718%_))))) - (_%__match7907179072%_ + (_%__match7929979300%_ (lambda (_%e5755457761%_ _%hd5755557765%_ _%tl5755657768%_ @@ -2286,7 +2286,7 @@ (_%L57784%_ _%hd5755557765%_)) (if (and (gx#stx-keyword? _%L57784%_) (gx#identifier? _%L57783%_)) - (_%__kont7901179012%_ + (_%__kont7923979240%_ _%L57781%_ _%L57783%_ _%L57784%_) @@ -2315,7 +2315,7 @@ (##car _%e5757357721%_)))) (if (gx#stx-null? _%tl5757557728%_) - (_%__match7909779098%_ + (_%__match7932579326%_ _%e5755457761%_ _%hd5755557765%_ _%tl5755657768%_ @@ -2328,7 +2328,7 @@ _%e5757357721%_ _%hd5757457725%_ _%tl5757557728%_) - (_%__match7911579116%_ + (_%__match7934379344%_ _%e5755457761%_ _%hd5755557765%_ _%tl5755657768%_ @@ -2338,7 +2338,7 @@ _%e5757057711%_ _%hd5757157715%_ _%tl5757257718%_)))) - (_%__match7911579116%_ + (_%__match7934379344%_ _%e5755457761%_ _%hd5755557765%_ _%tl5755657768%_ @@ -2351,7 +2351,7 @@ (let () (declare (not safe)) (_%g5752257626%_))))))) - (_%__match7905979060%_ + (_%__match7928779288%_ (lambda (_%e5754557805%_ _%hd5754657809%_ _%tl5754757812%_ @@ -2364,7 +2364,7 @@ (if (and (gx#identifier? _%L57828%_) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L57827%_)) - (_%__kont7900979010%_ + (_%__kont7923779238%_ _%L57825%_ _%L57827%_ _%L57828%_) @@ -2379,7 +2379,7 @@ (let () (declare (not safe)) (##car _%e5755757771%_)))) - (_%__match7907179072%_ + (_%__match7929979300%_ _%e5754557805%_ _%hd5754657809%_ _%tl5754757812%_ @@ -2389,7 +2389,7 @@ (let () (declare (not safe)) (_%g5752257626%_))))))) - (_%__match7904779048%_ + (_%__match7927579276%_ (lambda (_%e5753357849%_ _%hd5753457853%_ _%tl5753557856%_ @@ -2402,22 +2402,22 @@ (let ((_%L57879%_ _%tl5753557856%_) (_%L57881%_ _%hd5753757863%_)) (if (gx#identifier? _%L57881%_) - (_%__kont7900779008%_ _%L57879%_ _%L57881%_) - (_%__match7905979060%_ + (_%__kont7923579236%_ _%L57879%_ _%L57881%_) + (_%__match7928779288%_ _%e5753357849%_ _%hd5753457853%_ _%tl5753557856%_ _%e5753657859%_ _%hd5753757863%_ _%tl5753857866%_))))) - (_%__match7902779028%_ + (_%__match7925579256%_ (lambda (_%e5752857903%_ _%hd5752957907%_ _%tl5753057910%_) (let ((_%L57913%_ _%tl5753057910%_) (_%L57915%_ _%hd5752957907%_)) (if (gx#identifier? _%L57915%_) - (_%__kont7900579006%_ _%L57913%_ _%L57915%_) + (_%__kont7923379234%_ _%L57913%_ _%L57915%_) (if (gx#stx-pair? _%hd5752957907%_) (let ((_%e5753657859%_ (gx#syntax-e _%hd5752957907%_))) @@ -2443,7 +2443,7 @@ (##car _%e5753957869%_)))) (if (gx#stx-null? _%tl5754157876%_) - (_%__match7904779048%_ + (_%__match7927579276%_ _%e5752857903%_ _%hd5752957907%_ _%tl5753057910%_ @@ -2453,14 +2453,14 @@ _%e5753957869%_ _%hd5754057873%_ _%tl5754157876%_) - (_%__match7905979060%_ + (_%__match7928779288%_ _%e5752857903%_ _%hd5752957907%_ _%tl5753057910%_ _%e5753657859%_ _%hd5753757863%_ _%tl5753857866%_)))) - (_%__match7905979060%_ + (_%__match7928779288%_ _%e5752857903%_ _%hd5752957907%_ _%tl5753057910%_ @@ -2478,7 +2478,7 @@ (let () (declare (not safe)) (##car _%e5755757771%_)))) - (_%__match7907179072%_ + (_%__match7929979300%_ _%e5752857903%_ _%hd5752957907%_ _%tl5753057910%_ @@ -2488,8 +2488,8 @@ (let () (declare (not safe)) (_%g5752257626%_))))))))) - (if (gx#stx-pair? _%__stx7900279003%_) - (let ((_%e5752857903%_ (gx#syntax-e _%__stx7900279003%_))) + (if (gx#stx-pair? _%__stx7923079231%_) + (let ((_%e5752857903%_ (gx#syntax-e _%__stx7923079231%_))) (let ((_%tl5753057910%_ (let () (declare (not safe)) @@ -2498,7 +2498,7 @@ (let () (declare (not safe)) (##car _%e5752857903%_)))) - (_%__match7902779028%_ + (_%__match7925579256%_ _%e5752857903%_ _%hd5752957907%_ _%tl5753057910%_))) @@ -2506,29 +2506,29 @@ (define |gerbil/core/contract~Interface[1]#signature-has-keywords?| (lambda (_%signature57100%_) (let _%loop57103%_ ((_%rest57106%_ _%signature57100%_)) - (let* ((_%__stx7911879119%_ _%rest57106%_) + (let* ((_%__stx7934679347%_ _%rest57106%_) (_%g5711557186%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7911879119%_)))) - (let ((_%__kont7912179122%_ + _%__stx7934679347%_)))) + (let ((_%__kont7934979350%_ (lambda (_%L57490%_ _%L57492%_) (_%loop57103%_ _%L57490%_))) - (_%__kont7912379124%_ + (_%__kont7935179352%_ (lambda (_%L57454%_ _%L57456%_ _%L57457%_) (_%loop57103%_ _%L57454%_))) - (_%__kont7912579126%_ + (_%__kont7935379354%_ (lambda (_%L57400%_ _%L57402%_ _%L57403%_) (_%loop57103%_ _%L57400%_))) - (_%__kont7912779128%_ + (_%__kont7935579356%_ (lambda (_%L57356%_ _%L57358%_ _%L57359%_) '#t)) - (_%__kont7912979130%_ + (_%__kont7935779358%_ (lambda (_%L57306%_ _%L57308%_ _%L57309%_ _%L57310%_) '#t)) - (_%__kont7913179132%_ + (_%__kont7935979360%_ (lambda (_%L57234%_ _%L57236%_ _%L57237%_ _%L57238%_) '#t)) - (_%__kont7913379134%_ (lambda () '#f))) - (let* ((_%__match7922979230%_ + (_%__kont7936179362%_ (lambda () '#f))) + (let* ((_%__match7945779458%_ (lambda (_%e5717257204%_ _%hd5717357208%_ _%tl5717457211%_ @@ -2546,13 +2546,13 @@ (gx#identifier? _%L57237%_) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L57236%_)) - (_%__kont7913179132%_ + (_%__kont7935979360%_ _%L57234%_ _%L57236%_ _%L57237%_ _%L57238%_) - (_%__kont7913379134%_))))) - (_%__match7921179212%_ + (_%__kont7936179362%_))))) + (_%__match7943979440%_ (lambda (_%e5715657266%_ _%hd5715757270%_ _%tl5715857273%_ @@ -2571,12 +2571,12 @@ (_%L57310%_ _%hd5715757270%_)) (if (and (gx#stx-keyword? _%L57310%_) (gx#identifier? _%L57309%_)) - (_%__kont7912979130%_ + (_%__kont7935779358%_ _%L57306%_ _%L57308%_ _%L57309%_ _%L57310%_) - (_%__match7922979230%_ + (_%__match7945779458%_ _%e5715657266%_ _%hd5715757270%_ _%tl5715857273%_ @@ -2586,7 +2586,7 @@ _%e5716257286%_ _%hd5716357290%_ _%tl5716457293%_))))) - (_%__match7918579186%_ + (_%__match7941379414%_ (lambda (_%e5714657336%_ _%hd5714757340%_ _%tl5714857343%_ @@ -2598,7 +2598,7 @@ (_%L57359%_ _%hd5714757340%_)) (if (and (gx#stx-keyword? _%L57359%_) (gx#identifier? _%L57358%_)) - (_%__kont7912779128%_ + (_%__kont7935579356%_ _%L57356%_ _%L57358%_ _%L57359%_) @@ -2627,7 +2627,7 @@ (##car _%e5716557296%_)))) (if (gx#stx-null? _%tl5716757303%_) - (_%__match7921179212%_ + (_%__match7943979440%_ _%e5714657336%_ _%hd5714757340%_ _%tl5714857343%_ @@ -2640,7 +2640,7 @@ _%e5716557296%_ _%hd5716657300%_ _%tl5716757303%_) - (_%__match7922979230%_ + (_%__match7945779458%_ _%e5714657336%_ _%hd5714757340%_ _%tl5714857343%_ @@ -2650,7 +2650,7 @@ _%e5716257286%_ _%hd5716357290%_ _%tl5716457293%_)))) - (_%__match7922979230%_ + (_%__match7945779458%_ _%e5714657336%_ _%hd5714757340%_ _%tl5714857343%_ @@ -2660,8 +2660,8 @@ _%e5716257286%_ _%hd5716357290%_ _%tl5716457293%_)))) - (_%__kont7913379134%_)))))) - (_%__match7917379174%_ + (_%__kont7936179362%_)))))) + (_%__match7940179402%_ (lambda (_%e5713757380%_ _%hd5713857384%_ _%tl5713957387%_ @@ -2674,7 +2674,7 @@ (if (and (gx#identifier? _%L57403%_) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L57402%_)) - (_%__kont7912579126%_ + (_%__kont7935379354%_ _%L57400%_ _%L57402%_ _%L57403%_) @@ -2689,15 +2689,15 @@ (let () (declare (not safe)) (##car _%e5714957346%_)))) - (_%__match7918579186%_ + (_%__match7941379414%_ _%e5713757380%_ _%hd5713857384%_ _%tl5713957387%_ _%e5714957346%_ _%hd5715057350%_ _%tl5715157353%_))) - (_%__kont7913379134%_)))))) - (_%__match7916179162%_ + (_%__kont7936179362%_)))))) + (_%__match7938979390%_ (lambda (_%e5712557424%_ _%hd5712657428%_ _%tl5712757431%_ @@ -2711,25 +2711,25 @@ (_%L57456%_ _%hd5713257448%_) (_%L57457%_ _%hd5712957438%_)) (if (gx#identifier? _%L57457%_) - (_%__kont7912379124%_ + (_%__kont7935179352%_ _%L57454%_ _%L57456%_ _%L57457%_) - (_%__match7917379174%_ + (_%__match7940179402%_ _%e5712557424%_ _%hd5712657428%_ _%tl5712757431%_ _%e5712857434%_ _%hd5712957438%_ _%tl5713057441%_))))) - (_%__match7914179142%_ + (_%__match7936979370%_ (lambda (_%e5711957480%_ _%hd5712057484%_ _%tl5712157487%_) (let ((_%L57490%_ _%tl5712157487%_) (_%L57492%_ _%hd5712057484%_)) (if (gx#identifier? _%L57492%_) - (_%__kont7912179122%_ _%L57490%_ _%L57492%_) + (_%__kont7934979350%_ _%L57490%_ _%L57492%_) (if (gx#stx-pair? _%hd5712057484%_) (let ((_%e5712857434%_ (gx#syntax-e _%hd5712057484%_))) @@ -2755,7 +2755,7 @@ (##car _%e5713157444%_)))) (if (gx#stx-null? _%tl5713357451%_) - (_%__match7916179162%_ + (_%__match7938979390%_ _%e5711957480%_ _%hd5712057484%_ _%tl5712157487%_ @@ -2765,14 +2765,14 @@ _%e5713157444%_ _%hd5713257448%_ _%tl5713357451%_) - (_%__match7917379174%_ + (_%__match7940179402%_ _%e5711957480%_ _%hd5712057484%_ _%tl5712157487%_ _%e5712857434%_ _%hd5712957438%_ _%tl5713057441%_)))) - (_%__match7917379174%_ + (_%__match7940179402%_ _%e5711957480%_ _%hd5712057484%_ _%tl5712157487%_ @@ -2790,16 +2790,16 @@ (let () (declare (not safe)) (##car _%e5714957346%_)))) - (_%__match7918579186%_ + (_%__match7941379414%_ _%e5711957480%_ _%hd5712057484%_ _%tl5712157487%_ _%e5714957346%_ _%hd5715057350%_ _%tl5715157353%_))) - (_%__kont7913379134%_)))))))) - (if (gx#stx-pair? _%__stx7911879119%_) - (let ((_%e5711957480%_ (gx#syntax-e _%__stx7911879119%_))) + (_%__kont7936179362%_)))))))) + (if (gx#stx-pair? _%__stx7934679347%_) + (let ((_%e5711957480%_ (gx#syntax-e _%__stx7934679347%_))) (let ((_%tl5712157487%_ (let () (declare (not safe)) @@ -2808,11 +2808,11 @@ (let () (declare (not safe)) (##car _%e5711957480%_)))) - (_%__match7914179142%_ + (_%__match7936979370%_ _%e5711957480%_ _%hd5712057484%_ _%tl5712157487%_))) - (_%__kont7913379134%_)))))))) + (_%__kont7936179362%_)))))))) (define |gerbil/core/contract~Interface[1]#make-interface-method-lambda-signature| (lambda (_%stx57089%_ _%self57091%_ @@ -2854,38 +2854,38 @@ _%unchecked56325%_) (letrec ((_%type-e56327%_ (lambda (_%contract56771%_) - (let* ((_%__stx7923279233%_ _%contract56771%_) + (let* ((_%__stx7946079461%_ _%contract56771%_) (_%g5677856833%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7923279233%_)))) - (let ((_%__kont7923579236%_ + _%__stx7946079461%_)))) + (let ((_%__kont7946379464%_ (lambda (_%L57063%_ _%L57065%_) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| _%stx56321%_ _%L57065%_)))) - (_%__kont7923779238%_ + (_%__kont7946579466%_ (lambda (_%L57015%_ _%L57017%_ _%L57018%_) (gx#core-quote-syntax 't::t))) - (_%__kont7923979240%_ + (_%__kont7946779468%_ (lambda (_%L56967%_ _%L56969%_ _%L56970%_) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| _%stx56321%_ _%L56969%_)))) - (_%__kont7924179242%_ + (_%__kont7946979470%_ (lambda (_%L56891%_ _%L56893%_ _%L56894%_ _%L56895%_) (gx#core-quote-syntax 't::t))) - (_%__kont7924379244%_ (lambda () '#f))) - (let* ((_%__match7933379334%_ + (_%__kont7947179472%_ (lambda () '#f))) + (let* ((_%__match7956179562%_ (lambda (_%e5681656851%_ _%hd5681756855%_ _%tl5681856858%_ @@ -2911,13 +2911,13 @@ (gx#datum->syntax '#f '::-)))) - (_%__kont7924179242%_ + (_%__kont7946979470%_ _%L56891%_ _%L56893%_ _%L56894%_ _%L56895%_) - (_%__kont7924379244%_))))) - (_%__match7927379274%_ + (_%__kont7947179472%_))))) + (_%__match7950179502%_ (lambda (_%e5679156995%_ _%hd5679256999%_ _%tl5679357002%_ @@ -2936,13 +2936,13 @@ (gx#datum->syntax '#f '::-)))) - (_%__kont7923779238%_ + (_%__kont7946579466%_ _%L57015%_ _%L57017%_ _%L57018%_) (if (gx#identifier? _%hd5679256999%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82662_| + |gerbil/core/contract~Interface[1]#_g82936_| _%hd5679256999%_) (if (gx#stx-pair? _%tl5679657012%_) @@ -2959,7 +2959,7 @@ (let () (declare (not safe)) (##car _%e5680656947%_)))) (if (gx#identifier? _%hd5680756951%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82663_| + |gerbil/core/contract~Interface[1]#_g82937_| _%hd5680756951%_) (if (gx#stx-pair? _%tl5680856954%_) (let ((_%e5680956957%_ @@ -2972,11 +2972,11 @@ (let () (declare (not safe)) (##car _%e5680956957%_)))) - (_%__kont7923979240%_ + (_%__kont7946779468%_ _%tl5681156964%_ _%hd5681056961%_ _%hd5679557009%_))) - (_%__kont7924379244%_)) + (_%__kont7947179472%_)) (if (gx#stx-pair? _%tl5680856954%_) (let ((_%e5682556881%_ (gx#syntax-e _%tl5680856954%_))) @@ -2988,7 +2988,7 @@ (let () (declare (not safe)) (##car _%e5682556881%_)))) - (_%__match7933379334%_ + (_%__match7956179562%_ _%e5679156995%_ _%hd5679256999%_ _%tl5679357002%_ @@ -3001,7 +3001,7 @@ _%e5682556881%_ _%hd5682656885%_ _%tl5682756888%_))) - (_%__kont7924379244%_))) + (_%__kont7947179472%_))) (if (gx#stx-pair? _%tl5680856954%_) (let ((_%e5682556881%_ (gx#syntax-e _%tl5680856954%_))) (let ((_%tl5682756888%_ @@ -3012,7 +3012,7 @@ (let () (declare (not safe)) (##car _%e5682556881%_)))) - (_%__match7933379334%_ + (_%__match7956179562%_ _%e5679156995%_ _%hd5679256999%_ _%tl5679357002%_ @@ -3025,14 +3025,14 @@ _%e5682556881%_ _%hd5682656885%_ _%tl5682756888%_))) - (_%__kont7924379244%_))))) + (_%__kont7947179472%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7924379244%_)) - (_%__kont7924379244%_)) - (_%__kont7924379244%_))))))) - (if (gx#stx-pair? _%__stx7923279233%_) + (_%__kont7947179472%_)) + (_%__kont7947179472%_)) + (_%__kont7947179472%_))))))) + (if (gx#stx-pair? _%__stx7946079461%_) (let ((_%e5678257043%_ - (gx#syntax-e _%__stx7923279233%_))) + (gx#syntax-e _%__stx7946079461%_))) (let ((_%tl5678457050%_ (let () (declare (not safe)) @@ -3043,7 +3043,7 @@ (##car _%e5678257043%_)))) (if (gx#identifier? _%hd5678357047%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82664_| + |gerbil/core/contract~Interface[1]#_g82938_| _%hd5678357047%_) (if (gx#stx-pair? _%tl5678457050%_) (let ((_%e5678557053%_ @@ -3057,10 +3057,10 @@ (let () (declare (not safe)) (##car _%e5678557053%_)))) - (_%__kont7923579236%_ + (_%__kont7946379464%_ _%tl5678757060%_ _%hd5678657057%_))) - (_%__kont7924379244%_)) + (_%__kont7947179472%_)) (if (gx#stx-pair? _%tl5678457050%_) (let ((_%e5679457005%_ (gx#syntax-e @@ -3073,14 +3073,14 @@ (let () (declare (not safe)) (##car _%e5679457005%_)))) - (_%__match7927379274%_ + (_%__match7950179502%_ _%e5678257043%_ _%hd5678357047%_ _%tl5678457050%_ _%e5679457005%_ _%hd5679557009%_ _%tl5679657012%_))) - (_%__kont7924379244%_))) + (_%__kont7947179472%_))) (if (gx#stx-pair? _%tl5678457050%_) (let ((_%e5679457005%_ (gx#syntax-e @@ -3093,62 +3093,62 @@ (let () (declare (not safe)) (##car _%e5679457005%_)))) - (_%__match7927379274%_ + (_%__match7950179502%_ _%e5678257043%_ _%hd5678357047%_ _%tl5678457050%_ _%e5679457005%_ _%hd5679557009%_ _%tl5679657012%_))) - (_%__kont7924379244%_))))) - (_%__kont7924379244%_)))))))) + (_%__kont7947179472%_))))) + (_%__kont7947179472%_)))))))) (let _%loop56330%_ ((_%rest56333%_ _%signature56323%_) (_%has-keywords?56335%_ '#f) (_%result56336%_ '())) - (let* ((_%__stx7933679337%_ _%rest56333%_) + (let* ((_%__stx7956479565%_ _%rest56333%_) (_%g5634556415%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7933679337%_)))) - (let ((_%__kont7933979340%_ + _%__stx7956479565%_)))) + (let ((_%__kont7956779568%_ (lambda (_%L56754%_ _%L56756%_) (_%loop56330%_ _%L56754%_ '#f (cons (gx#core-quote-syntax 't::t) _%result56336%_)))) - (_%__kont7934179342%_ + (_%__kont7956979570%_ (lambda (_%L56720%_ _%L56722%_) (_%loop56330%_ _%L56720%_ '#f (cons (gx#core-quote-syntax 't::t) _%result56336%_)))) - (_%__kont7934379344%_ + (_%__kont7957179572%_ (lambda (_%L56666%_ _%L56668%_ _%L56669%_) (_%loop56330%_ _%L56666%_ '#f (cons (_%type-e56327%_ _%L56668%_) _%result56336%_)))) - (_%__kont7934579346%_ + (_%__kont7957379574%_ (lambda (_%L56622%_ _%L56624%_ _%L56625%_) (_%loop56330%_ _%L56622%_ '#t (cons (gx#core-quote-syntax 't::t) _%result56336%_)))) - (_%__kont7934779348%_ + (_%__kont7957579576%_ (lambda (_%L56574%_ _%L56576%_ _%L56577%_) (_%loop56330%_ _%L56574%_ '#t (cons (gx#core-quote-syntax 't::t) _%result56336%_)))) - (_%__kont7934979350%_ + (_%__kont7957779578%_ (lambda (_%L56506%_ _%L56508%_ _%L56509%_ _%L56510%_) (_%loop56330%_ _%L56506%_ '#t (cons (_%type-e56327%_ _%L56508%_) _%result56336%_)))) - (_%__kont7935179352%_ + (_%__kont7957979580%_ (lambda (_%L56444%_) (let* ((_%arguments56458%_ (if _%has-keywords?56335%_ @@ -3176,7 +3176,7 @@ (cons 'unchecked: (cons _%unchecked56464%_ '()))))))))) - (_%__kont7935379354%_ + (_%__kont7958179582%_ (lambda () (let* ((_%arguments56426%_ (if _%has-keywords?56335%_ @@ -3204,20 +3204,20 @@ '())))))))))) (let* ((_%g5634456437%_ (lambda () - (if (gx#stx-null? _%__stx7933679337%_) - (_%__kont7935379354%_) + (if (gx#stx-null? _%__stx7956479565%_) + (_%__kont7958179582%_) (let () (declare (not safe)) (_%g5634556415%_))))) (_%g5634356469%_ (lambda () - (let ((_%L56444%_ _%__stx7933679337%_)) + (let ((_%L56444%_ _%__stx7956479565%_)) (if (gx#identifier? _%L56444%_) - (_%__kont7935179352%_ _%L56444%_) + (_%__kont7957979580%_ _%L56444%_) (let () (declare (not safe)) (_%g5634456437%_)))))) - (_%__match7944979450%_ + (_%__match7967779678%_ (lambda (_%e5640056476%_ _%hd5640156480%_ _%tl5640256483%_ @@ -3235,7 +3235,7 @@ (gx#identifier? _%L56509%_) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L56508%_)) - (_%__kont7934979350%_ + (_%__kont7957779578%_ _%L56506%_ _%L56508%_ _%L56509%_ @@ -3243,7 +3243,7 @@ (let () (declare (not safe)) (_%g5634356469%_)))))) - (_%__match7943179432%_ + (_%__match7965979660%_ (lambda (_%e5638456534%_ _%hd5638556538%_ _%tl5638656541%_ @@ -3261,11 +3261,11 @@ (_%L56577%_ _%hd5638556538%_)) (if (and (gx#stx-keyword? _%L56577%_) (gx#identifier? _%L56576%_)) - (_%__kont7934779348%_ + (_%__kont7957579576%_ _%L56574%_ _%L56576%_ _%L56577%_) - (_%__match7944979450%_ + (_%__match7967779678%_ _%e5638456534%_ _%hd5638556538%_ _%tl5638656541%_ @@ -3275,7 +3275,7 @@ _%e5639056554%_ _%hd5639156558%_ _%tl5639256561%_))))) - (_%__match7940579406%_ + (_%__match7963379634%_ (lambda (_%e5637556602%_ _%hd5637656606%_ _%tl5637756609%_ @@ -3287,7 +3287,7 @@ (_%L56625%_ _%hd5637656606%_)) (if (and (gx#stx-keyword? _%L56625%_) (gx#identifier? _%L56624%_)) - (_%__kont7934579346%_ + (_%__kont7957379574%_ _%L56622%_ _%L56624%_ _%L56625%_) @@ -3316,7 +3316,7 @@ (##car _%e5639356564%_)))) (if (gx#stx-null? _%tl5639556571%_) - (_%__match7943179432%_ + (_%__match7965979660%_ _%e5637556602%_ _%hd5637656606%_ _%tl5637756609%_ @@ -3329,7 +3329,7 @@ _%e5639356564%_ _%hd5639456568%_ _%tl5639556571%_) - (_%__match7944979450%_ + (_%__match7967779678%_ _%e5637556602%_ _%hd5637656606%_ _%tl5637756609%_ @@ -3339,7 +3339,7 @@ _%e5639056554%_ _%hd5639156558%_ _%tl5639256561%_)))) - (_%__match7944979450%_ + (_%__match7967779678%_ _%e5637556602%_ _%hd5637656606%_ _%tl5637756609%_ @@ -3352,7 +3352,7 @@ (let () (declare (not safe)) (_%g5634356469%_))))))) - (_%__match7939379394%_ + (_%__match7962179622%_ (lambda (_%e5636656646%_ _%hd5636756650%_ _%tl5636856653%_ @@ -3365,7 +3365,7 @@ (if (and (gx#identifier? _%L56669%_) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L56668%_)) - (_%__kont7934379344%_ + (_%__kont7957179572%_ _%L56666%_ _%L56668%_ _%L56669%_) @@ -3380,7 +3380,7 @@ (let () (declare (not safe)) (##car _%e5637856612%_)))) - (_%__match7940579406%_ + (_%__match7963379634%_ _%e5636656646%_ _%hd5636756650%_ _%tl5636856653%_ @@ -3390,7 +3390,7 @@ (let () (declare (not safe)) (_%g5634356469%_))))))) - (_%__match7938179382%_ + (_%__match7960979610%_ (lambda (_%e5635456690%_ _%hd5635556694%_ _%tl5635656697%_ @@ -3403,22 +3403,22 @@ (let ((_%L56720%_ _%tl5635656697%_) (_%L56722%_ _%hd5635856704%_)) (if (gx#identifier? _%L56722%_) - (_%__kont7934179342%_ _%L56720%_ _%L56722%_) - (_%__match7939379394%_ + (_%__kont7956979570%_ _%L56720%_ _%L56722%_) + (_%__match7962179622%_ _%e5635456690%_ _%hd5635556694%_ _%tl5635656697%_ _%e5635756700%_ _%hd5635856704%_ _%tl5635956707%_))))) - (_%__match7936179362%_ + (_%__match7958979590%_ (lambda (_%e5634956744%_ _%hd5635056748%_ _%tl5635156751%_) (let ((_%L56754%_ _%tl5635156751%_) (_%L56756%_ _%hd5635056748%_)) (if (gx#identifier? _%L56756%_) - (_%__kont7933979340%_ _%L56754%_ _%L56756%_) + (_%__kont7956779568%_ _%L56754%_ _%L56756%_) (if (gx#stx-pair? _%hd5635056748%_) (let ((_%e5635756700%_ (gx#syntax-e _%hd5635056748%_))) @@ -3444,7 +3444,7 @@ (##car _%e5636056710%_)))) (if (gx#stx-null? _%tl5636256717%_) - (_%__match7938179382%_ + (_%__match7960979610%_ _%e5634956744%_ _%hd5635056748%_ _%tl5635156751%_ @@ -3454,14 +3454,14 @@ _%e5636056710%_ _%hd5636156714%_ _%tl5636256717%_) - (_%__match7939379394%_ + (_%__match7962179622%_ _%e5634956744%_ _%hd5635056748%_ _%tl5635156751%_ _%e5635756700%_ _%hd5635856704%_ _%tl5635956707%_)))) - (_%__match7939379394%_ + (_%__match7962179622%_ _%e5634956744%_ _%hd5635056748%_ _%tl5635156751%_ @@ -3479,7 +3479,7 @@ (let () (declare (not safe)) (##car _%e5637856612%_)))) - (_%__match7940579406%_ + (_%__match7963379634%_ _%e5634956744%_ _%hd5635056748%_ _%tl5635156751%_ @@ -3489,9 +3489,9 @@ (let () (declare (not safe)) (_%g5634356469%_))))))))) - (if (gx#stx-pair? _%__stx7933679337%_) + (if (gx#stx-pair? _%__stx7956479565%_) (let ((_%e5634956744%_ - (gx#syntax-e _%__stx7933679337%_))) + (gx#syntax-e _%__stx7956479565%_))) (let ((_%tl5635156751%_ (let () (declare (not safe)) @@ -3500,7 +3500,7 @@ (let () (declare (not safe)) (##car _%e5634956744%_)))) - (_%__match7936179362%_ + (_%__match7958979590%_ _%e5634956744%_ _%hd5635056748%_ _%tl5635156751%_))) @@ -3518,14 +3518,14 @@ (_%g5583956317%_ (lambda (_%g5584155852%_) ((lambda (_%L55855%_) - (let* ((_%__stx7945479455%_ _%contract55838%_) + (let* ((_%__stx7968279683%_ _%contract55838%_) (_%g5587255951%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7945479455%_)))) - (let ((_%__kont7945779458%_ + _%__stx7968279683%_)))) + (let ((_%__kont7968579686%_ (lambda (_%L56288%_ _%L56290%_ _%L56291%_) @@ -3544,7 +3544,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7945979460%_ + (_%__kont7968779688%_ (lambda (_%L56246%_ _%L56248%_) (cons _%L55855%_ (cons (gx#datum->syntax @@ -3552,7 +3552,7 @@ ':-) (cons _%L56248%_ '()))))) - (_%__kont7946179462%_ + (_%__kont7968979690%_ (lambda (_%L56188%_ _%L56190%_ _%L56191%_ @@ -3574,7 +3574,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7946379464%_ + (_%__kont7969179692%_ (lambda (_%L56110%_ _%L56112%_ _%L56113%_ @@ -3596,7 +3596,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7946579466%_ + (_%__kont7969379694%_ (lambda (_%L56042%_ _%L56044%_ _%L56045%_) @@ -3618,7 +3618,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7946779468%_ + (_%__kont7969579696%_ (lambda (_%L55978%_ _%L55980%_) (if _%checked?55431%_ (cons _%L55855%_ @@ -3639,7 +3639,7 @@ ':t) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__match7955379554%_ + (let* ((_%__match7978179782%_ (lambda (_%e5591156070%_ _%hd5591256074%_ _%tl5591356077%_ @@ -3675,7 +3675,7 @@ (gx#datum->syntax '#f ':?))) - (_%__kont7946379464%_ + (_%__kont7969179692%_ _%L56110%_ _%L56112%_ _%L56113%_ @@ -3683,19 +3683,19 @@ (if (gx#identifier? _%hd5591856094%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82665_| + |gerbil/core/contract~Interface[1]#_g82939_| _%hd5591856094%_) - (_%__kont7946579466%_ + (_%__kont7969379694%_ _%tl5592256107%_ _%hd5592156104%_ _%hd5591556084%_) - (_%__kont7946779468%_ + (_%__kont7969579696%_ _%tl5591656087%_ _%hd5591556084%_)) - (_%__kont7946779468%_ + (_%__kont7969579696%_ _%tl5591656087%_ _%hd5591556084%_)))))) - (_%__match7952579526%_ + (_%__match7975379754%_ (lambda (_%e5589556148%_ _%hd5589656152%_ _%tl5589756155%_ @@ -3731,12 +3731,12 @@ (gx#datum->syntax '#f ':?))) - (_%__kont7946179462%_ + (_%__kont7968979690%_ _%L56188%_ _%L56190%_ _%L56191%_ _%L56192%_) - (_%__match7955379554%_ + (_%__match7978179782%_ _%e5589556148%_ _%hd5589656152%_ _%tl5589756155%_ @@ -3749,7 +3749,7 @@ _%e5590456178%_ _%hd5590556182%_ _%tl5590656185%_))))) - (_%__match7948179482%_ + (_%__match7970979710%_ (lambda (_%e5587756268%_ _%hd5587856272%_ _%tl5587956275%_ @@ -3777,21 +3777,21 @@ (gx#datum->syntax '#f ':?))) - (_%__kont7945779458%_ + (_%__kont7968579686%_ _%L56288%_ _%L56290%_ _%L56291%_) (if (gx#identifier? _%hd5587856272%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82666_| + |gerbil/core/contract~Interface[1]#_g82940_| _%hd5587856272%_) - (_%__kont7945979460%_ + (_%__kont7968779688%_ _%tl5588256285%_ _%hd5588156282%_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~Interface[1]#_g82667_| + |gerbil/core/contract~Interface[1]#_g82941_| _%hd5587856272%_) (if (gx#stx-pair? _%tl5588256285%_) (let ((_%e5590156168%_ @@ -3815,7 +3815,7 @@ (let () (declare (not safe)) (##car _%e5590456178%_)))) - (_%__match7952579526%_ + (_%__match7975379754%_ _%e5587756268%_ _%hd5587856272%_ _%tl5587956275%_ @@ -3828,19 +3828,19 @@ _%e5590456178%_ _%hd5590556182%_ _%tl5590656185%_))) - (_%__kont7946779468%_ + (_%__kont7969579696%_ _%tl5588256285%_ _%hd5588156282%_)))) - (_%__kont7946779468%_ + (_%__kont7969579696%_ _%tl5588256285%_ _%hd5588156282%_)) (let () (declare (not safe)) (_%g5587255951%_)))) (let () (declare (not safe)) (_%g5587255951%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%__stx7945479455%_) + (if (gx#stx-pair? _%__stx7968279683%_) (let ((_%e5587756268%_ (gx#syntax-e - _%__stx7945479455%_))) + _%__stx7968279683%_))) (let ((_%tl5587956275%_ (let () (declare (not safe)) @@ -3864,7 +3864,7 @@ (declare (not safe)) (##car _%e5588056278%_)))) - (_%__match7948179482%_ + (_%__match7970979710%_ _%e5587756268%_ _%hd5587856272%_ _%tl5587956275%_ @@ -3881,40 +3881,40 @@ (_%g5583956317%_ _%id55836%_))))) (let _%loop55436%_ ((_%rest55439%_ _%signature55430%_) (_%result55441%_ '())) - (let* ((_%__stx7960479605%_ _%rest55439%_) + (let* ((_%__stx7983279833%_ _%rest55439%_) (_%g5544955518%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7960479605%_)))) - (let ((_%__kont7960779608%_ + _%__stx7983279833%_)))) + (let ((_%__kont7983579836%_ (lambda (_%L55819%_ _%L55821%_) (_%loop55436%_ _%L55819%_ _%result55441%_))) - (_%__kont7960979610%_ + (_%__kont7983779838%_ (lambda (_%L55785%_ _%L55787%_) (_%loop55436%_ _%L55785%_ _%result55441%_))) - (_%__kont7961179612%_ + (_%__kont7983979840%_ (lambda (_%L55731%_ _%L55733%_ _%L55734%_) (_%loop55436%_ _%L55731%_ (cons (_%contract-e55433%_ _%L55734%_ _%L55733%_) _%result55441%_)))) - (_%__kont7961379614%_ + (_%__kont7984179842%_ (lambda (_%L55687%_ _%L55689%_ _%L55690%_) (_%loop55436%_ _%L55687%_ _%result55441%_))) - (_%__kont7961579616%_ + (_%__kont7984379844%_ (lambda (_%L55639%_ _%L55641%_ _%L55642%_) (_%loop55436%_ _%L55639%_ _%result55441%_))) - (_%__kont7961779618%_ + (_%__kont7984579846%_ (lambda (_%L55566%_ _%L55568%_ _%L55569%_ _%L55570%_) (_%loop55436%_ _%L55566%_ (cons (_%contract-e55433%_ _%L55569%_ _%L55568%_) _%result55441%_)))) - (_%__kont7961979620%_ + (_%__kont7984779848%_ (lambda () (reverse! (filter identity _%result55441%_))))) - (let* ((_%__match7971579716%_ + (let* ((_%__match7994379944%_ (lambda (_%e5550455536%_ _%hd5550555540%_ _%tl5550655543%_ @@ -3932,13 +3932,13 @@ (gx#identifier? _%L55569%_) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L55568%_)) - (_%__kont7961779618%_ + (_%__kont7984579846%_ _%L55566%_ _%L55568%_ _%L55569%_ _%L55570%_) - (_%__kont7961979620%_))))) - (_%__match7969779698%_ + (_%__kont7984779848%_))))) + (_%__match7992579926%_ (lambda (_%e5548855599%_ _%hd5548955603%_ _%tl5549055606%_ @@ -3956,11 +3956,11 @@ (_%L55642%_ _%hd5548955603%_)) (if (and (gx#stx-keyword? _%L55642%_) (gx#identifier? _%L55641%_)) - (_%__kont7961579616%_ + (_%__kont7984379844%_ _%L55639%_ _%L55641%_ _%L55642%_) - (_%__match7971579716%_ + (_%__match7994379944%_ _%e5548855599%_ _%hd5548955603%_ _%tl5549055606%_ @@ -3970,7 +3970,7 @@ _%e5549455619%_ _%hd5549555623%_ _%tl5549655626%_))))) - (_%__match7967179672%_ + (_%__match7989979900%_ (lambda (_%e5547955667%_ _%hd5548055671%_ _%tl5548155674%_ @@ -3982,7 +3982,7 @@ (_%L55690%_ _%hd5548055671%_)) (if (and (gx#stx-keyword? _%L55690%_) (gx#identifier? _%L55689%_)) - (_%__kont7961379614%_ + (_%__kont7984179842%_ _%L55687%_ _%L55689%_ _%L55690%_) @@ -4011,7 +4011,7 @@ (##car _%e5549755629%_)))) (if (gx#stx-null? _%tl5549955636%_) - (_%__match7969779698%_ + (_%__match7992579926%_ _%e5547955667%_ _%hd5548055671%_ _%tl5548155674%_ @@ -4024,7 +4024,7 @@ _%e5549755629%_ _%hd5549855633%_ _%tl5549955636%_) - (_%__match7971579716%_ + (_%__match7994379944%_ _%e5547955667%_ _%hd5548055671%_ _%tl5548155674%_ @@ -4034,7 +4034,7 @@ _%e5549455619%_ _%hd5549555623%_ _%tl5549655626%_)))) - (_%__match7971579716%_ + (_%__match7994379944%_ _%e5547955667%_ _%hd5548055671%_ _%tl5548155674%_ @@ -4044,8 +4044,8 @@ _%e5549455619%_ _%hd5549555623%_ _%tl5549655626%_)))) - (_%__kont7961979620%_)))))) - (_%__match7965979660%_ + (_%__kont7984779848%_)))))) + (_%__match7988779888%_ (lambda (_%e5547055711%_ _%hd5547155715%_ _%tl5547255718%_ @@ -4058,7 +4058,7 @@ (if (and (gx#identifier? _%L55734%_) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L55733%_)) - (_%__kont7961179612%_ + (_%__kont7983979840%_ _%L55731%_ _%L55733%_ _%L55734%_) @@ -4073,15 +4073,15 @@ (let () (declare (not safe)) (##car _%e5548255677%_)))) - (_%__match7967179672%_ + (_%__match7989979900%_ _%e5547055711%_ _%hd5547155715%_ _%tl5547255718%_ _%e5548255677%_ _%hd5548355681%_ _%tl5548455684%_))) - (_%__kont7961979620%_)))))) - (_%__match7964779648%_ + (_%__kont7984779848%_)))))) + (_%__match7987579876%_ (lambda (_%e5545855755%_ _%hd5545955759%_ _%tl5546055762%_ @@ -4094,22 +4094,22 @@ (let ((_%L55785%_ _%tl5546055762%_) (_%L55787%_ _%hd5546255769%_)) (if (gx#identifier? _%L55787%_) - (_%__kont7960979610%_ _%L55785%_ _%L55787%_) - (_%__match7965979660%_ + (_%__kont7983779838%_ _%L55785%_ _%L55787%_) + (_%__match7988779888%_ _%e5545855755%_ _%hd5545955759%_ _%tl5546055762%_ _%e5546155765%_ _%hd5546255769%_ _%tl5546355772%_))))) - (_%__match7962779628%_ + (_%__match7985579856%_ (lambda (_%e5545355809%_ _%hd5545455813%_ _%tl5545555816%_) (let ((_%L55819%_ _%tl5545555816%_) (_%L55821%_ _%hd5545455813%_)) (if (gx#identifier? _%L55821%_) - (_%__kont7960779608%_ _%L55819%_ _%L55821%_) + (_%__kont7983579836%_ _%L55819%_ _%L55821%_) (if (gx#stx-pair? _%hd5545455813%_) (let ((_%e5546155765%_ (gx#syntax-e _%hd5545455813%_))) @@ -4135,7 +4135,7 @@ (##car _%e5546455775%_)))) (if (gx#stx-null? _%tl5546655782%_) - (_%__match7964779648%_ + (_%__match7987579876%_ _%e5545355809%_ _%hd5545455813%_ _%tl5545555816%_ @@ -4145,14 +4145,14 @@ _%e5546455775%_ _%hd5546555779%_ _%tl5546655782%_) - (_%__match7965979660%_ + (_%__match7988779888%_ _%e5545355809%_ _%hd5545455813%_ _%tl5545555816%_ _%e5546155765%_ _%hd5546255769%_ _%tl5546355772%_)))) - (_%__match7965979660%_ + (_%__match7988779888%_ _%e5545355809%_ _%hd5545455813%_ _%tl5545555816%_ @@ -4170,17 +4170,17 @@ (let () (declare (not safe)) (##car _%e5548255677%_)))) - (_%__match7967179672%_ + (_%__match7989979900%_ _%e5545355809%_ _%hd5545455813%_ _%tl5545555816%_ _%e5548255677%_ _%hd5548355681%_ _%tl5548455684%_))) - (_%__kont7961979620%_)))))))) - (if (gx#stx-pair? _%__stx7960479605%_) + (_%__kont7984779848%_)))))))) + (if (gx#stx-pair? _%__stx7983279833%_) (let ((_%e5545355809%_ - (gx#syntax-e _%__stx7960479605%_))) + (gx#syntax-e _%__stx7983279833%_))) (let ((_%tl5545555816%_ (let () (declare (not safe)) @@ -4189,14 +4189,14 @@ (let () (declare (not safe)) (##car _%e5545355809%_)))) - (_%__match7962779628%_ + (_%__match7985579856%_ _%e5545355809%_ _%hd5545455813%_ _%tl5545555816%_))) - (_%__kont7961979620%_))))))))) + (_%__kont7984779848%_))))))))) (define |gerbil/core/contract~Interface[1]#compatible-signatures?| (lambda (_%left55395%_ _%right55397%_) - (let ((__tmp82668 + (let ((__tmp82942 (lambda (_%return55399%_) (let ((_%left-arity55402%_ (|gerbil/core/contract~Interface[1]#signature-arity| @@ -4216,49 +4216,49 @@ (if (equal? _%left-kws55406%_ _%right-kws55408%_) '#!void (_%return55399%_ '#f))) - (let ((_g82669_ + (let ((_g82943_ (|gerbil/core/contract~Interface[1]#signature-type-contract| _%left55395%_)) - (_g82671_ + (_g82945_ (|gerbil/core/contract~Interface[1]#signature-type-contract| _%right55397%_))) (begin - (let ((_g82670_ + (let ((_g82944_ (let () (declare (not safe)) - (if (##values? _g82669_) - (##vector-length _g82669_) + (if (##values? _g82943_) + (##vector-length _g82943_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82670_ 2))) - (error "Context expects 2 values" _g82670_))) - (let ((_g82672_ + (##fx= _g82944_ 2))) + (error "Context expects 2 values" _g82944_))) + (let ((_g82946_ (let () (declare (not safe)) - (if (##values? _g82671_) - (##vector-length _g82671_) + (if (##values? _g82945_) + (##vector-length _g82945_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82672_ 2))) - (error "Context expects 2 values" _g82672_))) + (##fx= _g82946_ 2))) + (error "Context expects 2 values" _g82946_))) (let ((_%left-positional-contract55410%_ (let () (declare (not safe)) - (##vector-ref _g82669_ 0))) + (##vector-ref _g82943_ 0))) (_%left-kw-contract55412%_ (let () (declare (not safe)) - (##vector-ref _g82669_ 1)))) + (##vector-ref _g82943_ 1)))) (let ((_%right-positional-contract55413%_ (let () (declare (not safe)) - (##vector-ref _g82671_ 0))) + (##vector-ref _g82945_ 0))) (_%right-kw-contract55414%_ (let () (declare (not safe)) - (##vector-ref _g82671_ 1)))) + (##vector-ref _g82945_ 1)))) (let ((_%left-contract55424%_ (append _%left-positional-contract55410%_ (foldr (lambda (_%kwc55416%_ @@ -4282,7 +4282,7 @@ (_%return55399%_ '#f))))))) '#t))) (declare (not safe)) - (##call-with-current-continuation __tmp82668)))) + (##call-with-current-continuation __tmp82942)))) (define |gerbil/core/contract~Interface[1]#compatible-signature-type-contract?| (lambda (_%left55298%_ _%right55300%_) (let _%loop55302%_ ((_%left-rest55305%_ _%left55298%_) @@ -4335,37 +4335,37 @@ (define |gerbil/core/contract~Interface[1]#compatible-type-contract?| (lambda (_%left53427%_ _%right53429%_) (andmap (lambda (_%a53431%_ _%b53433%_) - (let* ((_%__stx8021080211%_ _%a53431%_) + (let* ((_%__stx8043880439%_ _%a53431%_) (_%g5344153519%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8021080211%_)))) - (let ((_%__kont8021380214%_ + _%__stx8043880439%_)))) + (let ((_%__kont8044180442%_ (lambda (_%L55032%_ _%L55034%_) - (let* ((_%__stx8012880129%_ _%b53433%_) + (let* ((_%__stx8035680357%_ _%b53433%_) (_%g5505355097%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8012880129%_)))) - (let ((_%__kont8013180132%_ + _%__stx8035680357%_)))) + (let ((_%__kont8035980360%_ (lambda (_%L55267%_ _%L55269%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| _%L55032%_ _%L55267%_))) - (_%__kont8013380134%_ + (_%__kont8036180362%_ (lambda (_%L55211%_ _%L55213%_ _%L55214%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| _%L55032%_ _%L55211%_))) - (_%__kont8013580136%_ + (_%__kont8036380364%_ (lambda (_%L55144%_ _%L55146%_) '#t))) - (let* ((_%__match8017780178%_ + (let* ((_%__match8040580406%_ (lambda (_%e5506655171%_ _%hd5506755175%_ _%tl5506855178%_ @@ -4396,19 +4396,19 @@ (gx#datum->syntax '#f ':-))) - (_%__kont8013380134%_ + (_%__kont8036180362%_ _%L55211%_ _%L55213%_ _%L55214%_) (if (gx#stx-null? _%tl5507755208%_) - (_%__kont8013580136%_ + (_%__kont8036380364%_ _%hd5507355195%_ _%hd5507055185%_) (let () (declare (not safe)) (_%g5505355097%_))))))) - (_%__match8014980150%_ + (_%__match8037780378%_ (lambda (_%e5505755247%_ _%hd5505855251%_ _%tl5505955254%_ @@ -4432,13 +4432,13 @@ (gx#datum->syntax '#f ':-))) - (_%__kont8013180132%_ + (_%__kont8035980360%_ _%L55267%_ _%L55269%_) (if (gx#identifier? _%hd5505855251%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82673_| + |gerbil/core/contract~Interface[1]#_g82947_| _%hd5505855251%_) (if (gx#stx-pair? _%tl5506255264%_) @@ -4464,7 +4464,7 @@ (let () (declare (not safe)) (##car _%e5507555201%_)))) - (_%__match8017780178%_ + (_%__match8040580406%_ _%e5505755247%_ _%hd5505855251%_ _%tl5505955254%_ @@ -4484,10 +4484,10 @@ (let () (declare (not safe)) (_%g5505355097%_)))))))) - (if (gx#stx-pair? _%__stx8012880129%_) + (if (gx#stx-pair? _%__stx8035680357%_) (let ((_%e5505755247%_ (gx#syntax-e - _%__stx8012880129%_))) + _%__stx8035680357%_))) (let ((_%tl5505955254%_ (let () (declare (not safe)) @@ -4508,7 +4508,7 @@ (let () (declare (not safe)) (##car _%e5506055257%_)))) - (_%__match8014980150%_ + (_%__match8037780378%_ _%e5505755247%_ _%hd5505855251%_ _%tl5505955254%_ @@ -4521,29 +4521,29 @@ (let () (declare (not safe)) (_%g5505355097%_)))))))) - (_%__kont8021580216%_ + (_%__kont8044380444%_ (lambda (_%L54839%_) - (let* ((_%__stx8006880069%_ _%b53433%_) + (let* ((_%__stx8029680297%_ _%b53433%_) (_%g5485454882%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8006880069%_)))) - (let ((_%__kont8007180072%_ + _%__stx8029680297%_)))) + (let ((_%__kont8029980300%_ (lambda (_%L54988%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| _%L54839%_ _%L54988%_))) - (_%__kont8007380074%_ + (_%__kont8030180302%_ (lambda (_%L54940%_ _%L54942%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| _%L54839%_ _%L54940%_))) - (_%__kont8007580076%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx8006880069%_) + (_%__kont8030380304%_ (lambda () '#f))) + (if (gx#stx-pair? _%__stx8029680297%_) (let ((_%e5485754968%_ - (gx#syntax-e _%__stx8006880069%_))) + (gx#syntax-e _%__stx8029680297%_))) (let ((_%tl5485954975%_ (let () (declare (not safe)) @@ -4554,7 +4554,7 @@ (##car _%e5485754968%_)))) (if (gx#identifier? _%hd5485854972%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82674_| + |gerbil/core/contract~Interface[1]#_g82948_| _%hd5485854972%_) (if (gx#stx-pair? _%tl5485954975%_) @@ -4569,11 +4569,11 @@ (##cdr _%e5486054978%_))) (_%hd5486154982%_ (let () (declare (not safe)) (##car _%e5486054978%_)))) - (_%__kont8007180072%_ _%hd5486154982%_))) + (_%__kont8029980300%_ _%hd5486154982%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8007580076%_)) + (_%__kont8030380304%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82675_| + |gerbil/core/contract~Interface[1]#_g82949_| _%hd5485854972%_) (if (gx#stx-pair? _%tl5485954975%_) @@ -4602,7 +4602,7 @@ (##car _%e5487154920%_)))) (if (gx#identifier? _%hd5487254924%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82676_| + |gerbil/core/contract~Interface[1]#_g82950_| _%hd5487254924%_) (if (gx#stx-pair? _%tl5487354927%_) (let ((_%e5487454930%_ @@ -4616,33 +4616,33 @@ (let () (declare (not safe)) (##car _%e5487454930%_)))) - (_%__kont8007380074%_ + (_%__kont8030180302%_ _%hd5487554934%_ _%hd5486954914%_))) - (_%__kont8007580076%_)) - (_%__kont8007580076%_)) - (_%__kont8007580076%_)))) - (_%__kont8007580076%_)))) - (_%__kont8007580076%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8007580076%_))) - (_%__kont8007580076%_)))) - (_%__kont8007580076%_)))))) - (_%__kont8021780218%_ + (_%__kont8030380304%_)) + (_%__kont8030380304%_)) + (_%__kont8030380304%_)))) + (_%__kont8030380304%_)))) + (_%__kont8030380304%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8030380304%_))) + (_%__kont8030380304%_)))) + (_%__kont8030380304%_)))))) + (_%__kont8044580446%_ (lambda (_%L54556%_) - (let* ((_%__stx7998279983%_ _%b53433%_) + (let* ((_%__stx8021080211%_ _%b53433%_) (_%g5457154615%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7998279983%_)))) - (let ((_%__kont7998579986%_ + _%__stx8021080211%_)))) + (let ((_%__kont8021380214%_ (lambda (_%L54785%_ _%L54787%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| _%L54556%_ _%L54785%_))) - (_%__kont7998779988%_ + (_%__kont8021580216%_ (lambda (_%L54727%_ _%L54729%_ _%L54730%_ @@ -4650,9 +4650,9 @@ (|gerbil/core/contract~Interface[1]#contract-type-subtype?| _%L54556%_ _%L54729%_))) - (_%__kont7998979990%_ + (_%__kont8021780218%_ (lambda (_%L54662%_) '#t))) - (let* ((_%__match8003180032%_ + (let* ((_%__match8025980260%_ (lambda (_%e5458554687%_ _%hd5458654691%_ _%tl5458754694%_ @@ -4684,7 +4684,7 @@ (gx#datum->syntax '#f ':-))) - (_%__kont7998779988%_ + (_%__kont8021580216%_ _%L54727%_ _%L54729%_ _%L54730%_ @@ -4692,11 +4692,11 @@ (if (gx#identifier? _%hd5459254711%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82677_| + |gerbil/core/contract~Interface[1]#_g82951_| _%hd5459254711%_) (if (gx#stx-null? _%tl5459654724%_) - (_%__kont7998979990%_ + (_%__kont8021780218%_ _%hd5458954701%_) (let () (declare @@ -4708,7 +4708,7 @@ (let () (declare (not safe)) (_%g5457154615%_))))))) - (_%__match8000380004%_ + (_%__match8023180232%_ (lambda (_%e5457554765%_ _%hd5457654769%_ _%tl5457754772%_ @@ -4732,13 +4732,13 @@ (gx#datum->syntax '#f ':-))) - (_%__kont7998579986%_ + (_%__kont8021380214%_ _%L54785%_ _%L54787%_) (if (gx#identifier? _%hd5457654769%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82678_| + |gerbil/core/contract~Interface[1]#_g82952_| _%hd5457654769%_) (if (gx#stx-pair? _%tl5458054782%_) @@ -4764,7 +4764,7 @@ (let () (declare (not safe)) (##car _%e5459454717%_)))) - (_%__match8003180032%_ + (_%__match8025980260%_ _%e5457554765%_ _%hd5457654769%_ _%tl5457754772%_ @@ -4784,10 +4784,10 @@ (let () (declare (not safe)) (_%g5457154615%_)))))))) - (if (gx#stx-pair? _%__stx7998279983%_) + (if (gx#stx-pair? _%__stx8021080211%_) (let ((_%e5457554765%_ (gx#syntax-e - _%__stx7998279983%_))) + _%__stx8021080211%_))) (let ((_%tl5457754772%_ (let () (declare (not safe)) @@ -4808,7 +4808,7 @@ (let () (declare (not safe)) (##car _%e5457854775%_)))) - (_%__match8000380004%_ + (_%__match8023180232%_ _%e5457554765%_ _%hd5457654769%_ _%tl5457754772%_ @@ -4821,30 +4821,30 @@ (let () (declare (not safe)) (_%g5457154615%_)))))))) - (_%__kont8021980220%_ + (_%__kont8044780448%_ (lambda (_%L54275%_ _%L54277%_) - (let* ((_%__stx7990079901%_ _%b53433%_) + (let* ((_%__stx8012880129%_ _%b53433%_) (_%g5429654340%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7990079901%_)))) - (let ((_%__kont7990379904%_ + _%__stx8012880129%_)))) + (let ((_%__kont8013180132%_ (lambda (_%L54502%_ _%L54504%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| _%L54275%_ _%L54502%_))) - (_%__kont7990579906%_ + (_%__kont8013380134%_ (lambda (_%L54454%_ _%L54456%_ _%L54457%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| _%L54275%_ _%L54454%_))) - (_%__kont7990779908%_ + (_%__kont8013580136%_ (lambda (_%L54387%_ _%L54389%_) '#t))) - (let ((_%__match7992179922%_ + (let ((_%__match8014980150%_ (lambda (_%e5430054482%_ _%hd5430154486%_ _%tl5430254489%_ @@ -4866,13 +4866,13 @@ (gx#datum->syntax '#f ':-))) - (_%__kont7990379904%_ + (_%__kont8013180132%_ _%L54502%_ _%L54504%_) (if (gx#identifier? _%hd5430154486%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82679_| + |gerbil/core/contract~Interface[1]#_g82953_| _%hd5430154486%_) (if (gx#stx-pair? _%tl5430554499%_) @@ -4898,7 +4898,7 @@ (let () (declare (not safe)) (##car _%e5431854444%_)))) - (_%__kont7990579906%_ + (_%__kont8013380134%_ _%hd5431954448%_ _%hd5431654438%_ _%hd5430454496%_))) @@ -4909,10 +4909,10 @@ (let () (declare (not safe)) (_%g5429654340%_)))))))) - (if (gx#stx-pair? _%__stx7990079901%_) + (if (gx#stx-pair? _%__stx8012880129%_) (let ((_%e5430054482%_ (gx#syntax-e - _%__stx7990079901%_))) + _%__stx8012880129%_))) (let ((_%tl5430254489%_ (let () (declare (not safe)) @@ -4933,7 +4933,7 @@ (let () (declare (not safe)) (##car _%e5430354492%_)))) - (_%__match7992179922%_ + (_%__match8014980150%_ _%e5430054482%_ _%hd5430154486%_ _%tl5430254489%_ @@ -4946,29 +4946,29 @@ (let () (declare (not safe)) (_%g5429654340%_)))))))) - (_%__kont8022180222%_ + (_%__kont8044980450%_ (lambda (_%L54056%_ _%L54058%_) - (let* ((_%__stx7984079841%_ _%b53433%_) + (let* ((_%__stx8006880069%_ _%b53433%_) (_%g5407754105%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7984079841%_)))) - (let ((_%__kont7984379844%_ + _%__stx8006880069%_)))) + (let ((_%__kont8007180072%_ (lambda (_%L54211%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| _%L54056%_ _%L54211%_))) - (_%__kont7984579846%_ + (_%__kont8007380074%_ (lambda (_%L54163%_ _%L54165%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| _%L54056%_ _%L54163%_))) - (_%__kont7984779848%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx7984079841%_) + (_%__kont8007580076%_ (lambda () '#f))) + (if (gx#stx-pair? _%__stx8006880069%_) (let ((_%e5408054191%_ - (gx#syntax-e _%__stx7984079841%_))) + (gx#syntax-e _%__stx8006880069%_))) (let ((_%tl5408254198%_ (let () (declare (not safe)) @@ -4979,7 +4979,7 @@ (##car _%e5408054191%_)))) (if (gx#identifier? _%hd5408154195%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82680_| + |gerbil/core/contract~Interface[1]#_g82954_| _%hd5408154195%_) (if (gx#stx-pair? _%tl5408254198%_) @@ -4994,11 +4994,11 @@ (##cdr _%e5408354201%_))) (_%hd5408454205%_ (let () (declare (not safe)) (##car _%e5408354201%_)))) - (_%__kont7984379844%_ _%hd5408454205%_))) + (_%__kont8007180072%_ _%hd5408454205%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7984779848%_)) + (_%__kont8007580076%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82681_| + |gerbil/core/contract~Interface[1]#_g82955_| _%hd5408154195%_) (if (gx#stx-pair? _%tl5408254198%_) @@ -5027,7 +5027,7 @@ (##car _%e5409454143%_)))) (if (gx#identifier? _%hd5409554147%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82682_| + |gerbil/core/contract~Interface[1]#_g82956_| _%hd5409554147%_) (if (gx#stx-pair? _%tl5409654150%_) (let ((_%e5409754153%_ @@ -5041,42 +5041,42 @@ (let () (declare (not safe)) (##car _%e5409754153%_)))) - (_%__kont7984579846%_ + (_%__kont8007380074%_ _%hd5409854157%_ _%hd5409254137%_))) - (_%__kont7984779848%_)) - (_%__kont7984779848%_)) - (_%__kont7984779848%_)))) - (_%__kont7984779848%_)))) - (_%__kont7984779848%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7984779848%_))) - (_%__kont7984779848%_)))) - (_%__kont7984779848%_)))))) - (_%__kont8022380224%_ + (_%__kont8007580076%_)) + (_%__kont8007580076%_)) + (_%__kont8007580076%_)))) + (_%__kont8007580076%_)))) + (_%__kont8007580076%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8007580076%_))) + (_%__kont8007580076%_)))) + (_%__kont8007580076%_)))))) + (_%__kont8045180452%_ (lambda (_%L53747%_ _%L53749%_) - (let* ((_%__stx7975879759%_ _%b53433%_) + (let* ((_%__stx7998679987%_ _%b53433%_) (_%g5376853812%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7975879759%_)))) - (let ((_%__kont7976179762%_ + _%__stx7998679987%_)))) + (let ((_%__kont7998979990%_ (lambda (_%L53982%_ _%L53984%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| _%L53747%_ _%L53982%_))) - (_%__kont7976379764%_ + (_%__kont7999179992%_ (lambda (_%L53926%_ _%L53928%_ _%L53929%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| _%L53747%_ _%L53926%_))) - (_%__kont7976579766%_ + (_%__kont7999379994%_ (lambda (_%L53859%_ _%L53861%_) '#t))) - (let* ((_%__match7980779808%_ + (let* ((_%__match8003580036%_ (lambda (_%e5378153886%_ _%hd5378253890%_ _%tl5378353893%_ @@ -5107,19 +5107,19 @@ (gx#datum->syntax '#f ':-))) - (_%__kont7976379764%_ + (_%__kont7999179992%_ _%L53926%_ _%L53928%_ _%L53929%_) (if (gx#stx-null? _%tl5379253923%_) - (_%__kont7976579766%_ + (_%__kont7999379994%_ _%hd5378853910%_ _%hd5378553900%_) (let () (declare (not safe)) (_%g5376853812%_))))))) - (_%__match7977979780%_ + (_%__match8000780008%_ (lambda (_%e5377253962%_ _%hd5377353966%_ _%tl5377453969%_ @@ -5143,13 +5143,13 @@ (gx#datum->syntax '#f ':-))) - (_%__kont7976179762%_ + (_%__kont7998979990%_ _%L53982%_ _%L53984%_) (if (gx#identifier? _%hd5377353966%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82683_| + |gerbil/core/contract~Interface[1]#_g82957_| _%hd5377353966%_) (if (gx#stx-pair? _%tl5377753979%_) @@ -5175,7 +5175,7 @@ (let () (declare (not safe)) (##car _%e5379053916%_)))) - (_%__match7980779808%_ + (_%__match8003580036%_ _%e5377253962%_ _%hd5377353966%_ _%tl5377453969%_ @@ -5195,10 +5195,10 @@ (let () (declare (not safe)) (_%g5376853812%_)))))))) - (if (gx#stx-pair? _%__stx7975879759%_) + (if (gx#stx-pair? _%__stx7998679987%_) (let ((_%e5377253962%_ (gx#syntax-e - _%__stx7975879759%_))) + _%__stx7998679987%_))) (let ((_%tl5377453969%_ (let () (declare (not safe)) @@ -5219,7 +5219,7 @@ (let () (declare (not safe)) (##car _%e5377553972%_)))) - (_%__match7977979780%_ + (_%__match8000780008%_ _%e5377253962%_ _%hd5377353966%_ _%tl5377453969%_ @@ -5232,21 +5232,21 @@ (let () (declare (not safe)) (_%g5376853812%_)))))))) - (_%__kont8022580226%_ + (_%__kont8045380454%_ (lambda (_%L53546%_) - (let* ((_%__stx7971879719%_ _%b53433%_) + (let* ((_%__stx7994679947%_ _%b53433%_) (_%g5356353585%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7971879719%_)))) - (let ((_%__kont7972179722%_ + _%__stx7994679947%_)))) + (let ((_%__kont7994979950%_ (lambda (_%L53677%_) '#f)) - (_%__kont7972379724%_ + (_%__kont7995179952%_ (lambda (_%L53633%_ _%L53635%_) '#f)) - (_%__kont7972579726%_ (lambda () '#t))) - (let* ((_%__match7975579756%_ + (_%__kont7995379954%_ (lambda () '#t))) + (let* ((_%__match7998379984%_ (lambda (_%e5357153603%_ _%hd5357253607%_ _%tl5357353610%_ @@ -5273,11 +5273,11 @@ (gx#datum->syntax '#f ':-))) - (_%__kont7972379724%_ + (_%__kont7995179952%_ _%L53633%_ _%L53635%_) - (_%__kont7972579726%_))))) - (_%__match7973379734%_ + (_%__kont7995379954%_))))) + (_%__match7996179962%_ (lambda (_%e5356653667%_ _%hd5356753671%_ _%tl5356853674%_) @@ -5297,12 +5297,12 @@ (gx#datum->syntax '#f ':-))) - (_%__kont7972179722%_ + (_%__kont7994979950%_ _%L53677%_) (if (gx#identifier? _%hd5356753671%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82684_| + |gerbil/core/contract~Interface[1]#_g82958_| _%hd5356753671%_) (if (gx#stx-pair? _%tl5356853674%_) @@ -5328,7 +5328,7 @@ (let () (declare (not safe)) (##car _%e5357753623%_)))) - (_%__match7975579756%_ + (_%__match7998379984%_ _%e5356653667%_ _%hd5356753671%_ _%tl5356853674%_ @@ -5338,15 +5338,15 @@ _%e5357753623%_ _%hd5357853627%_ _%tl5357953630%_))) - (_%__kont7972579726%_)))) - (_%__kont7972579726%_)) - (_%__kont7972579726%_)) + (_%__kont7995379954%_)))) + (_%__kont7995379954%_)) + (_%__kont7995379954%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7972579726%_))))))) - (if (gx#stx-pair? _%__stx7971879719%_) + (_%__kont7995379954%_))))))) + (if (gx#stx-pair? _%__stx7994679947%_) (let ((_%e5356653667%_ (gx#syntax-e - _%__stx7971879719%_))) + _%__stx7994679947%_))) (let ((_%tl5356853674%_ (let () (declare (not safe)) @@ -5355,12 +5355,12 @@ (let () (declare (not safe)) (##car _%e5356653667%_)))) - (_%__match7973379734%_ + (_%__match7996179962%_ _%e5356653667%_ _%hd5356753671%_ _%tl5356853674%_))) - (_%__kont7972579726%_)))))))) - (let ((_%__match8023980240%_ + (_%__kont7995379954%_)))))))) + (let ((_%__match8046780468%_ (lambda (_%e5344555012%_ _%hd5344655016%_ _%tl5344755019%_ @@ -5375,22 +5375,22 @@ (gx#free-identifier=? _%L55034%_ (gx#datum->syntax '#f ':-))) - (_%__kont8021380214%_ + (_%__kont8044180442%_ _%L55032%_ _%L55034%_) (if (gx#identifier? _%hd5344655016%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82685_| + |gerbil/core/contract~Interface[1]#_g82959_| _%hd5344655016%_) - (_%__kont8021580216%_ + (_%__kont8044380444%_ _%hd5344955026%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82686_| + |gerbil/core/contract~Interface[1]#_g82960_| _%hd5344655016%_) - (_%__kont8021780218%_ + (_%__kont8044580446%_ _%hd5344955026%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82687_| + |gerbil/core/contract~Interface[1]#_g82961_| _%hd5344655016%_) (if (gx#stx-pair? _%tl5345055029%_) @@ -5408,7 +5408,7 @@ (##car _%e5347354255%_)))) (if (gx#identifier? _%hd5347454259%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82688_| + |gerbil/core/contract~Interface[1]#_g82962_| _%hd5347454259%_) (if (gx#stx-pair? _%tl5347554262%_) (let ((_%e5347654265%_ @@ -5421,12 +5421,12 @@ (let () (declare (not safe)) (##car _%e5347654265%_)))) - (_%__kont8021980220%_ + (_%__kont8044780448%_ _%hd5347754269%_ _%hd5344955026%_))) - (_%__kont8022580226%_ _%hd5344955026%_)) + (_%__kont8045380454%_ _%hd5344955026%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82689_| + |gerbil/core/contract~Interface[1]#_g82963_| _%hd5347454259%_) (if (gx#stx-pair? _%tl5347554262%_) (let ((_%e5349054046%_ @@ -5439,12 +5439,12 @@ (let () (declare (not safe)) (##car _%e5349054046%_)))) - (_%__kont8022180222%_ + (_%__kont8044980450%_ _%hd5349154050%_ _%hd5344955026%_))) - (_%__kont8022580226%_ _%hd5344955026%_)) + (_%__kont8045380454%_ _%hd5344955026%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82690_| + |gerbil/core/contract~Interface[1]#_g82964_| _%hd5347454259%_) (if (gx#stx-pair? _%tl5347554262%_) (let ((_%e5350453737%_ @@ -5458,14 +5458,14 @@ (let () (declare (not safe)) (##car _%e5350453737%_)))) - (_%__kont8022380224%_ + (_%__kont8045180452%_ _%hd5350553741%_ _%hd5344955026%_))) - (_%__kont8022580226%_ + (_%__kont8045380454%_ _%hd5344955026%_)) - (_%__kont8022580226%_ _%hd5344955026%_)))) - (_%__kont8022580226%_ _%hd5344955026%_)))) - (_%__kont8022580226%_ _%hd5344955026%_)) + (_%__kont8045380454%_ _%hd5344955026%_)))) + (_%__kont8045380454%_ _%hd5344955026%_)))) + (_%__kont8045380454%_ _%hd5344955026%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) @@ -5473,9 +5473,9 @@ (let () (declare (not safe)) (_%g5344153519%_)))))))) - (if (gx#stx-pair? _%__stx8021080211%_) + (if (gx#stx-pair? _%__stx8043880439%_) (let ((_%e5344555012%_ - (gx#syntax-e _%__stx8021080211%_))) + (gx#syntax-e _%__stx8043880439%_))) (let ((_%tl5344755019%_ (let () (declare (not safe)) @@ -5495,7 +5495,7 @@ (let () (declare (not safe)) (##car _%e5344855022%_)))) - (_%__match8023980240%_ + (_%__match8046780468%_ _%e5344555012%_ _%hd5344655016%_ _%tl5344755019%_ @@ -5536,37 +5536,37 @@ (class-instance? gerbil/core/mop~MOP-2#class-type-info::t _%klass-b53347%_)) - (if (eq? (let ((__obj82489 _%klass-a53345%_)) + (if (eq? (let ((__obj82763 _%klass-a53345%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82489 + __obj82763 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82489 + __obj82763 '1 '#f '#f)) (unchecked-slot-ref - __obj82489 + __obj82763 'id))) - (let ((__obj82490 _%klass-b53347%_)) + (let ((__obj82764 _%klass-b53347%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82490 + __obj82764 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82490 + __obj82764 '1 '#f '#f)) (unchecked-slot-ref - __obj82490 + __obj82764 'id)))) '#t (if (member _%type-b53332%_ @@ -5584,22 +5584,22 @@ _%klass-b53347%_)) (let ((_%$e53363%_ (gx#syntax-local-value - (let ((__obj82487 + (let ((__obj82761 _%klass-b53347%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82487 + __obj82761 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82487 + __obj82761 '1 '#f '#f)) (unchecked-slot-ref - __obj82487 + __obj82761 'identifier))) false))) (if _%$e53363%_ @@ -5610,22 +5610,22 @@ _%$e53363%_) (if (gx#free-identifier=? _%type-a53330%_ - (let ((__obj82488 + (let ((__obj82762 _%klass-b53347%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82488 + __obj82762 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82488 + __obj82762 '1 '#f '#f)) (unchecked-slot-ref - __obj82488 + __obj82762 'identifier)))) '#t '#f))) @@ -5654,22 +5654,22 @@ _%klass-b53347%_)) (let ((_%$e53386%_ (gx#syntax-local-value - (let ((__obj82485 + (let ((__obj82759 _%klass-b53347%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82485 + __obj82759 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82485 + __obj82759 '1 '#f '#f)) (unchecked-slot-ref - __obj82485 + __obj82759 'identifier))) false))) (if _%$e53386%_ @@ -5680,24 +5680,24 @@ _%$e53386%_) (if (gx#free-identifier=? _%type-a53330%_ - (let ((__obj82486 + (let ((__obj82760 _%klass-b53347%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82486 + __obj82760 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82486 + __obj82760 '1 '#f '#f)) (unchecked-slot-ref - __obj82486 + __obj82760 'identifier)))) '#t '#f))) @@ -5709,22 +5709,22 @@ _%klass-a53345%_)) (let ((_%$e53401%_ (gx#syntax-local-value - (let ((__obj82480 + (let ((__obj82754 _%klass-a53345%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82480 + __obj82754 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82480 + __obj82754 '1 '#f '#f)) (unchecked-slot-ref - __obj82480 + __obj82754 'identifier))) false))) (if _%$e53401%_ @@ -5740,19 +5740,19 @@ _%klass-b53347%_)) (let ((_%$e53410%_ (gx#syntax-local-value - (let ((__obj82482 + (let ((__obj82756 _%klass-b53347%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - __obj82482 + __obj82756 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82482 '1 '#f '#f)) - (unchecked-slot-ref __obj82482 'identifier))) + (##unchecked-structure-ref __obj82756 '1 '#f '#f)) + (unchecked-slot-ref __obj82756 'identifier))) false))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if _%$e53410%_ @@ -5762,51 +5762,51 @@ _%klass-b53414%_)) _%$e53410%_) (if (gx#free-identifier=? - (let ((__obj82483 + (let ((__obj82757 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _%klass-a53345%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82483 + __obj82757 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82483 '1 '#f '#f)) - (unchecked-slot-ref __obj82483 'identifier))) - (let ((__obj82484 _%klass-b53347%_)) + (##unchecked-structure-ref __obj82757 '1 '#f '#f)) + (unchecked-slot-ref __obj82757 'identifier))) + (let ((__obj82758 _%klass-b53347%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82484 + __obj82758 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82484 '1 '#f '#f)) - (unchecked-slot-ref __obj82484 'identifier)))) + (##unchecked-structure-ref __obj82758 '1 '#f '#f)) + (unchecked-slot-ref __obj82758 'identifier)))) '#t '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? _%type-b53332%_ - (let ((__obj82481 + (let ((__obj82755 _%klass-a53345%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82481 + __obj82755 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82481 + __obj82755 '1 '#f '#f)) (unchecked-slot-ref - __obj82481 + __obj82755 'identifier)))) '#t '#f)))) @@ -5816,14 +5816,14 @@ (let _%loop52938%_ ((_%rest52941%_ _%signature52935%_) (_%positionals52943%_ '()) (_%keywords52944%_ '())) - (let* ((_%__stx8038680387%_ (gx#datum->syntax '#f 'rest)) + (let* ((_%__stx8061480615%_ (gx#datum->syntax '#f 'rest)) (_%g5295253019%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8038680387%_)))) - (let ((_%__kont8038980390%_ + _%__stx8061480615%_)))) + (let ((_%__kont8061780618%_ (lambda (_%L53313%_ _%L53315%_) (_%loop52938%_ _%L53313%_ @@ -5831,7 +5831,7 @@ (cons (gx#datum->syntax '#f ':t) '())) _%positionals52943%_) _%keywords52944%_))) - (_%__kont8039180392%_ + (_%__kont8061980620%_ (lambda (_%L53277%_ _%L53279%_ _%L53280%_) (_%loop52938%_ _%L53277%_ @@ -5839,13 +5839,13 @@ (cons (gx#datum->syntax '#f ':t) '())) _%positionals52943%_) _%keywords52944%_))) - (_%__kont8039380394%_ + (_%__kont8062180622%_ (lambda (_%L53227%_ _%L53229%_) (_%loop52938%_ (gx#datum->syntax '#f 'rest) (cons _%L53227%_ _%positionals52943%_) _%keywords52944%_))) - (_%__kont8039580396%_ + (_%__kont8062380624%_ (lambda (_%L53193%_ _%L53195%_ _%L53196%_) (_%loop52938%_ _%L53193%_ @@ -5856,7 +5856,7 @@ (cons (gx#datum->syntax '#f ':t) '())))) _%keywords52944%_)))) - (_%__kont8039780398%_ + (_%__kont8062580626%_ (lambda (_%L53143%_ _%L53145%_ _%L53146%_ _%L53147%_) (_%loop52938%_ _%L53143%_ @@ -5867,7 +5867,7 @@ (cons (gx#datum->syntax '#f ':t) '())))) _%keywords52944%_)))) - (_%__kont8039980400%_ + (_%__kont8062780628%_ (lambda (_%L53071%_ _%L53073%_ _%L53074%_ _%L53075%_) (_%loop52938%_ _%L53071%_ @@ -5875,7 +5875,7 @@ (cons (cons (gx#stx-e _%L53075%_) (cons _%L53074%_ _%L53073%_)) _%keywords52944%_)))) - (_%__kont8040180402%_ + (_%__kont8062980630%_ (lambda () (values (reverse! _%positionals52943%_) (list-sort @@ -5884,7 +5884,7 @@ (gx#stx-car _%a53030%_) (gx#stx-car _%b53032%_))) _%keywords52944%_))))) - (let* ((_%__match8047380474%_ + (let* ((_%__match8070180702%_ (lambda (_%e5298953103%_ _%hd5299053107%_ _%tl5299153110%_ @@ -5903,17 +5903,17 @@ (_%L53147%_ _%hd5299053107%_)) (if (and (gx#stx-keyword? _%L53147%_) (gx#identifier? _%L53146%_)) - (_%__kont8039780398%_ + (_%__kont8062580626%_ _%L53143%_ _%L53145%_ _%L53146%_ _%L53147%_) - (_%__kont8039980400%_ + (_%__kont8062780628%_ _%tl5299453120%_ _%tl5299753130%_ _%hd5299653127%_ _%hd5299053107%_))))) - (_%__match8044780448%_ + (_%__match8067580676%_ (lambda (_%e5297953173%_ _%hd5298053177%_ _%tl5298153180%_ @@ -5925,7 +5925,7 @@ (_%L53196%_ _%hd5298053177%_)) (if (and (gx#stx-keyword? _%L53196%_) (gx#identifier? _%L53195%_)) - (_%__kont8039580396%_ + (_%__kont8062380624%_ _%L53193%_ _%L53195%_ _%L53196%_) @@ -5954,7 +5954,7 @@ (##car _%e5299853133%_)))) (if (gx#stx-null? _%tl5300053140%_) - (_%__match8047380474%_ + (_%__match8070180702%_ _%e5297953173%_ _%hd5298053177%_ _%tl5298153180%_ @@ -5967,25 +5967,25 @@ _%e5299853133%_ _%hd5299953137%_ _%tl5300053140%_) - (_%__kont8039980400%_ + (_%__kont8062780628%_ _%tl5298453190%_ _%tl5299753130%_ _%hd5299653127%_ _%hd5298053177%_)))) - (_%__kont8039980400%_ + (_%__kont8062780628%_ _%tl5298453190%_ _%tl5299753130%_ _%hd5299653127%_ _%hd5298053177%_)))) - (_%__kont8040180402%_)))))) - (_%__match8043580436%_ + (_%__kont8062980630%_)))))) + (_%__match8066380664%_ (lambda (_%e5297353217%_ _%hd5297453221%_ _%tl5297553224%_) (let ((_%L53227%_ _%tl5297553224%_) (_%L53229%_ _%hd5297453221%_)) (if (gx#identifier? _%L53229%_) - (_%__kont8039380394%_ _%L53227%_ _%L53229%_) + (_%__kont8062180622%_ _%L53227%_ _%L53229%_) (if (gx#stx-pair? _%tl5297553224%_) (let ((_%e5298253183%_ (gx#syntax-e _%tl5297553224%_))) @@ -5997,15 +5997,15 @@ (let () (declare (not safe)) (##car _%e5298253183%_)))) - (_%__match8044780448%_ + (_%__match8067580676%_ _%e5297353217%_ _%hd5297453221%_ _%tl5297553224%_ _%e5298253183%_ _%hd5298353187%_ _%tl5298453190%_))) - (_%__kont8040180402%_)))))) - (_%__match8042980430%_ + (_%__kont8062980630%_)))))) + (_%__match8065780658%_ (lambda (_%e5296253247%_ _%hd5296353251%_ _%tl5296453254%_ @@ -6019,22 +6019,22 @@ (_%L53279%_ _%hd5296953271%_) (_%L53280%_ _%hd5296653261%_)) (if (gx#identifier? _%L53280%_) - (_%__kont8039180392%_ + (_%__kont8061980620%_ _%L53277%_ _%L53279%_ _%L53280%_) - (_%__match8043580436%_ + (_%__match8066380664%_ _%e5296253247%_ _%hd5296353251%_ _%tl5296453254%_))))) - (_%__match8040980410%_ + (_%__match8063780638%_ (lambda (_%e5295653303%_ _%hd5295753307%_ _%tl5295853310%_) (let ((_%L53313%_ _%tl5295853310%_) (_%L53315%_ _%hd5295753307%_)) (if (gx#identifier? _%L53315%_) - (_%__kont8038980390%_ _%L53313%_ _%L53315%_) + (_%__kont8061780618%_ _%L53313%_ _%L53315%_) (if (gx#stx-pair? _%hd5295753307%_) (let ((_%e5296553257%_ (gx#syntax-e _%hd5295753307%_))) @@ -6060,7 +6060,7 @@ (##car _%e5296853267%_)))) (if (gx#stx-null? _%tl5297053274%_) - (_%__match8042980430%_ + (_%__match8065780658%_ _%e5295653303%_ _%hd5295753307%_ _%tl5295853310%_ @@ -6070,20 +6070,20 @@ _%e5296853267%_ _%hd5296953271%_ _%tl5297053274%_) - (_%__match8043580436%_ + (_%__match8066380664%_ _%e5295653303%_ _%hd5295753307%_ _%tl5295853310%_)))) - (_%__match8043580436%_ + (_%__match8066380664%_ _%e5295653303%_ _%hd5295753307%_ _%tl5295853310%_)))) - (_%__match8043580436%_ + (_%__match8066380664%_ _%e5295653303%_ _%hd5295753307%_ _%tl5295853310%_))))))) - (if (gx#stx-pair? _%__stx8038680387%_) - (let ((_%e5295653303%_ (gx#syntax-e _%__stx8038680387%_))) + (if (gx#stx-pair? _%__stx8061480615%_) + (let ((_%e5295653303%_ (gx#syntax-e _%__stx8061480615%_))) (let ((_%tl5295853310%_ (let () (declare (not safe)) @@ -6092,74 +6092,74 @@ (let () (declare (not safe)) (##car _%e5295653303%_)))) - (_%__match8040980410%_ + (_%__match8063780638%_ _%e5295653303%_ _%hd5295753307%_ _%tl5295853310%_))) - (_%__kont8040180402%_)))))))) + (_%__kont8062980630%_)))))))) (define |gerbil/core/contract~Interface[1]#signature-arity| (lambda (_%spec52570%_) (let _%lp52573%_ ((_%rest52576%_ (gx#stx-cdr _%spec52570%_)) (_%required52578%_ '0) (_%optional52579%_ '0)) - (let* ((_%__stx8049480495%_ _%rest52576%_) + (let* ((_%__stx8072280723%_ _%rest52576%_) (_%g5258752646%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8049480495%_)))) - (let ((_%__kont8049780498%_ + _%__stx8072280723%_)))) + (let ((_%__kont8072580726%_ (lambda (_%L52918%_ _%L52920%_) (_%lp52573%_ _%L52918%_ (1+ _%required52578%_) _%optional52579%_))) - (_%__kont8049980500%_ + (_%__kont8072780728%_ (lambda (_%L52882%_ _%L52884%_ _%L52885%_) (_%lp52573%_ _%L52882%_ _%required52578%_ (1+ _%optional52579%_)))) - (_%__kont8050180502%_ + (_%__kont8072980730%_ (lambda (_%L52824%_ _%L52826%_) (_%lp52573%_ _%L52824%_ _%required52578%_ (1+ _%optional52579%_)))) - (_%__kont8050580506%_ + (_%__kont8073380734%_ (lambda (_%L52746%_ _%L52748%_) (_%lp52573%_ _%L52746%_ (1+ _%required52578%_) _%optional52579%_))) - (_%__kont8050780508%_ + (_%__kont8073580736%_ (lambda (_%L52704%_ _%L52706%_) (_%lp52573%_ _%L52704%_ _%required52578%_ _%optional52579%_))) - (_%__kont8050980510%_ + (_%__kont8073780738%_ (lambda (_%L52664%_) (cons _%required52578%_ (cons _%optional52579%_ (cons '... '()))))) - (_%__kont8051180512%_ + (_%__kont8073980740%_ (lambda () (cons _%required52578%_ (cons _%optional52579%_ '()))))) (let* ((_%g5258652657%_ (lambda () - (if (gx#stx-null? _%__stx8049480495%_) - (_%__kont8051180512%_) + (if (gx#stx-null? _%__stx8072280723%_) + (_%__kont8073980740%_) (let () (declare (not safe)) (_%g5258752646%_))))) (_%g5258552677%_ (lambda () - (let ((_%L52664%_ _%__stx8049480495%_)) + (let ((_%L52664%_ _%__stx8072280723%_)) (if (gx#identifier? _%L52664%_) - (_%__kont8050980510%_ _%L52664%_) + (_%__kont8073780738%_ _%L52664%_) (let () (declare (not safe)) (_%g5258652657%_)))))) - (_%__match8059580596%_ + (_%__match8082380824%_ (lambda (_%e5263452684%_ _%hd5263552688%_ _%tl5263652691%_ @@ -6169,11 +6169,11 @@ (let ((_%L52704%_ _%tl5263952701%_) (_%L52706%_ _%hd5263552688%_)) (if (gx#stx-keyword? _%L52706%_) - (_%__kont8050780508%_ _%L52704%_ _%L52706%_) + (_%__kont8073580736%_ _%L52704%_ _%L52706%_) (let () (declare (not safe)) (_%g5258552677%_)))))) - (_%__match8058380584%_ + (_%__match8081180812%_ (lambda (_%e5262652726%_ _%hd5262752730%_ _%tl5262852733%_ @@ -6183,7 +6183,7 @@ (let ((_%L52746%_ _%tl5262852733%_) (_%L52748%_ _%hd5263052740%_)) (if (gx#identifier? _%L52748%_) - (_%__kont8050580506%_ _%L52746%_ _%L52748%_) + (_%__kont8073380734%_ _%L52746%_ _%L52748%_) (if (gx#stx-pair? _%tl5262852733%_) (let ((_%e5263752694%_ (gx#syntax-e _%tl5262852733%_))) @@ -6195,7 +6195,7 @@ (let () (declare (not safe)) (##car _%e5263752694%_)))) - (_%__match8059580596%_ + (_%__match8082380824%_ _%e5262652726%_ _%hd5262752730%_ _%tl5262852733%_ @@ -6205,11 +6205,11 @@ (let () (declare (not safe)) (_%g5258552677%_))))))) - (_%__match8057180572%_ + (_%__match8079980800%_ (lambda (_%e5260852768%_ _%hd5260952772%_ _%tl5261052775%_ - _%__splice8050380504%_ + _%__splice8073180732%_ _%target5261152778%_ _%tl5261352781%_ _%e5261852784%_ @@ -6233,11 +6233,11 @@ (##car _%e5261552812%_)))) (_%loop5261452804%_ _%lp-tl5261752819%_))) - (_%__kont8050180502%_ + (_%__kont8072980730%_ _%tl5261052775%_ _%hd5262252798%_))))) (_%loop5261452804%_ _%target5261152778%_)))) - (_%__match8053980540%_ + (_%__match8076780768%_ (lambda (_%e5259752852%_ _%hd5259852856%_ _%tl5259952859%_ @@ -6251,16 +6251,16 @@ (_%L52884%_ _%hd5260452876%_) (_%L52885%_ _%hd5260152866%_)) (if (gx#identifier? _%L52885%_) - (_%__kont8049980500%_ + (_%__kont8072780728%_ _%L52882%_ _%L52884%_ _%L52885%_) (if (gx#stx-pair/null? _%hd5259852856%_) - (if (let ((__tmp82691 + (if (let ((__tmp82965 (gx#stx-length _%hd5259852856%_))) (declare (not safe)) - (##fx>= __tmp82691 '2)) - (let ((_%__splice8050380504%_ + (##fx>= __tmp82965 '2)) + (let ((_%__splice8073180732%_ (gx#syntax-split-splice _%hd5259852856%_ '2))) @@ -6268,13 +6268,13 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8050380504%_ + _%__splice8073180732%_ '1))) (_%target5261152778%_ (let () (declare (not safe)) (##vector-ref - _%__splice8050380504%_ + _%__splice8073180732%_ '0)))) (if (gx#stx-pair? _%tl5261352781%_) (let ((_%e5261852784%_ @@ -6291,7 +6291,7 @@ (if (gx#identifier? _%hd5261952788%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82692_| + |gerbil/core/contract~Interface[1]#_g82966_| _%hd5261952788%_) (if (gx#stx-pair? _%tl5262052791%_) @@ -6307,11 +6307,11 @@ (declare (not safe)) (##car _%e5262152794%_)))) (if (gx#stx-null? _%tl5262352801%_) - (_%__match8057180572%_ + (_%__match8079980800%_ _%e5259752852%_ _%hd5259852856%_ _%tl5259952859%_ - _%__splice8050380504%_ + _%__splice8073180732%_ _%target5261152778%_ _%tl5261352781%_ _%e5261852784%_ @@ -6320,28 +6320,28 @@ _%e5262152794%_ _%hd5262252798%_ _%tl5262352801%_) - (_%__match8058380584%_ + (_%__match8081180812%_ _%e5259752852%_ _%hd5259852856%_ _%tl5259952859%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)))) - (_%__match8058380584%_ + (_%__match8081180812%_ _%e5259752852%_ _%hd5259852856%_ _%tl5259952859%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)) - (_%__match8058380584%_ + (_%__match8081180812%_ _%e5259752852%_ _%hd5259852856%_ _%tl5259952859%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)) - (_%__match8058380584%_ + (_%__match8081180812%_ _%e5259752852%_ _%hd5259852856%_ _%tl5259952859%_ @@ -6349,35 +6349,35 @@ _%hd5260152866%_ _%tl5260252869%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8058380584%_ + (_%__match8081180812%_ _%e5259752852%_ _%hd5259852856%_ _%tl5259952859%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)))) - (_%__match8058380584%_ + (_%__match8081180812%_ _%e5259752852%_ _%hd5259852856%_ _%tl5259952859%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)) - (_%__match8058380584%_ + (_%__match8081180812%_ _%e5259752852%_ _%hd5259852856%_ _%tl5259952859%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)))))) - (_%__match8051980520%_ + (_%__match8074780748%_ (lambda (_%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_) (let ((_%L52918%_ _%tl5259352915%_) (_%L52920%_ _%hd5259252912%_)) (if (gx#identifier? _%L52920%_) - (_%__kont8049780498%_ _%L52918%_ _%L52920%_) + (_%__kont8072580726%_ _%L52918%_ _%L52920%_) (if (gx#stx-pair? _%hd5259252912%_) (let ((_%e5260052862%_ (gx#syntax-e _%hd5259252912%_))) @@ -6403,7 +6403,7 @@ (##car _%e5260352872%_)))) (if (gx#stx-null? _%tl5260552879%_) - (_%__match8053980540%_ + (_%__match8076780768%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ @@ -6415,21 +6415,21 @@ _%tl5260552879%_) (if (gx#stx-pair/null? _%hd5259252912%_) - (if (let ((__tmp82693 + (if (let ((__tmp82967 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-length _%hd5259252912%_))) (declare (not safe)) - (##fx>= __tmp82693 '2)) - (let ((_%__splice8050380504%_ + (##fx>= __tmp82967 '2)) + (let ((_%__splice8073180732%_ (gx#syntax-split-splice _%hd5259252912%_ '2))) (let ((_%tl5261352781%_ (let () (declare (not safe)) - (##vector-ref _%__splice8050380504%_ '1))) + (##vector-ref _%__splice8073180732%_ '1))) (_%target5261152778%_ (let () (declare (not safe)) - (##vector-ref _%__splice8050380504%_ '0)))) + (##vector-ref _%__splice8073180732%_ '0)))) (if (gx#stx-pair? _%tl5261352781%_) (let ((_%e5261852784%_ (gx#syntax-e _%tl5261352781%_))) @@ -6443,7 +6443,7 @@ (##car _%e5261852784%_)))) (if (gx#identifier? _%hd5261952788%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82692_| + |gerbil/core/contract~Interface[1]#_g82966_| _%hd5261952788%_) (if (gx#stx-pair? _%tl5262052791%_) (let ((_%e5262152794%_ @@ -6459,11 +6459,11 @@ (##car _%e5262152794%_)))) (if (gx#stx-null? _%tl5262352801%_) - (_%__match8057180572%_ + (_%__match8079980800%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ - _%__splice8050380504%_ + _%__splice8073180732%_ _%target5261152778%_ _%tl5261352781%_ _%e5261852784%_ @@ -6472,49 +6472,49 @@ _%e5262152794%_ _%hd5262252798%_ _%tl5262352801%_) - (_%__match8058380584%_ + (_%__match8081180812%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)))) - (_%__match8058380584%_ + (_%__match8081180812%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)) - (_%__match8058380584%_ + (_%__match8081180812%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)) - (_%__match8058380584%_ + (_%__match8081180812%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)))) - (_%__match8058380584%_ + (_%__match8081180812%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)))) - (_%__match8058380584%_ + (_%__match8081180812%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)) - (_%__match8058380584%_ + (_%__match8081180812%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ @@ -6524,12 +6524,12 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%hd5259252912%_) - (if (let ((__tmp82694 + (if (let ((__tmp82968 (gx#stx-length _%hd5259252912%_))) (declare (not safe)) - (##fx>= __tmp82694 '2)) - (let ((_%__splice8050380504%_ + (##fx>= __tmp82968 '2)) + (let ((_%__splice8073180732%_ (gx#syntax-split-splice _%hd5259252912%_ '2))) @@ -6538,14 +6538,14 @@ (declare (not safe)) (##vector-ref - _%__splice8050380504%_ + _%__splice8073180732%_ '1))) (_%target5261152778%_ (let () (declare (not safe)) (##vector-ref - _%__splice8050380504%_ + _%__splice8073180732%_ '0)))) (if (gx#stx-pair? _%tl5261352781%_) @@ -6562,7 +6562,7 @@ (##car _%e5261852784%_)))) (if (gx#identifier? _%hd5261952788%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82692_| + |gerbil/core/contract~Interface[1]#_g82966_| _%hd5261952788%_) (if (gx#stx-pair? _%tl5262052791%_) (let ((_%e5262152794%_ @@ -6576,11 +6576,11 @@ (declare (not safe)) (##car _%e5262152794%_)))) (if (gx#stx-null? _%tl5262352801%_) - (_%__match8057180572%_ + (_%__match8079980800%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ - _%__splice8050380504%_ + _%__splice8073180732%_ _%target5261152778%_ _%tl5261352781%_ _%e5261852784%_ @@ -6589,35 +6589,35 @@ _%e5262152794%_ _%hd5262252798%_ _%tl5262352801%_) - (_%__match8058380584%_ + (_%__match8081180812%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)))) - (_%__match8058380584%_ + (_%__match8081180812%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)) - (_%__match8058380584%_ + (_%__match8081180812%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)) - (_%__match8058380584%_ + (_%__match8081180812%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)))) - (_%__match8058380584%_ + (_%__match8081180812%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ @@ -6625,14 +6625,14 @@ _%hd5260152866%_ _%tl5260252869%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8058380584%_ + (_%__match8081180812%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ _%e5260052862%_ _%hd5260152866%_ _%tl5260252869%_)) - (_%__match8058380584%_ + (_%__match8081180812%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ @@ -6640,12 +6640,12 @@ _%hd5260152866%_ _%tl5260252869%_))))) (if (gx#stx-pair/null? _%hd5259252912%_) - (if (let ((__tmp82695 + (if (let ((__tmp82969 (gx#stx-length _%hd5259252912%_))) (declare (not safe)) - (##fx>= __tmp82695 '2)) - (let ((_%__splice8050380504%_ + (##fx>= __tmp82969 '2)) + (let ((_%__splice8073180732%_ (gx#syntax-split-splice _%hd5259252912%_ '2))) @@ -6653,13 +6653,13 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8050380504%_ + _%__splice8073180732%_ '1))) (_%target5261152778%_ (let () (declare (not safe)) (##vector-ref - _%__splice8050380504%_ + _%__splice8073180732%_ '0)))) (if (gx#stx-pair? _%tl5261352781%_) @@ -6679,7 +6679,7 @@ (if (gx#identifier? _%hd5261952788%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g82692_| + |gerbil/core/contract~Interface[1]#_g82966_| _%hd5261952788%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -6695,11 +6695,11 @@ (declare (not safe)) (##car _%e5262152794%_)))) (if (gx#stx-null? _%tl5262352801%_) - (_%__match8057180572%_ + (_%__match8079980800%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ - _%__splice8050380504%_ + _%__splice8073180732%_ _%target5261152778%_ _%tl5261352781%_ _%e5261852784%_ @@ -6719,7 +6719,7 @@ (let () (declare (not safe)) (##car _%e5263752694%_)))) - (_%__match8059580596%_ + (_%__match8082380824%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ @@ -6740,7 +6740,7 @@ (let () (declare (not safe)) (##car _%e5263752694%_)))) - (_%__match8059580596%_ + (_%__match8082380824%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ @@ -6759,7 +6759,7 @@ (let () (declare (not safe)) (##car _%e5263752694%_)))) - (_%__match8059580596%_ + (_%__match8082380824%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ @@ -6777,7 +6777,7 @@ (let () (declare (not safe)) (##car _%e5263752694%_)))) - (_%__match8059580596%_ + (_%__match8082380824%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ @@ -6798,7 +6798,7 @@ (##cdr _%e5263752694%_))) (_%hd5263852698%_ (let () (declare (not safe)) (##car _%e5263752694%_)))) - (_%__match8059580596%_ + (_%__match8082380824%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ @@ -6819,7 +6819,7 @@ (let () (declare (not safe)) (##car _%e5263752694%_)))) - (_%__match8059580596%_ + (_%__match8082380824%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ @@ -6841,7 +6841,7 @@ (let () (declare (not safe)) (##car _%e5263752694%_)))) - (_%__match8059580596%_ + (_%__match8082380824%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_ @@ -6851,8 +6851,8 @@ (let () (declare (not safe)) (_%g5258552677%_)))))))))) - (if (gx#stx-pair? _%__stx8049480495%_) - (let ((_%e5259152908%_ (gx#syntax-e _%__stx8049480495%_))) + (if (gx#stx-pair? _%__stx8072280723%_) + (let ((_%e5259152908%_ (gx#syntax-e _%__stx8072280723%_))) (let ((_%tl5259352915%_ (let () (declare (not safe)) @@ -6861,7 +6861,7 @@ (let () (declare (not safe)) (##car _%e5259152908%_)))) - (_%__match8051980520%_ + (_%__match8074780748%_ _%e5259152908%_ _%hd5259252912%_ _%tl5259352915%_))) @@ -6870,30 +6870,30 @@ (lambda (_%spec52395%_) (let _%lp52398%_ ((_%rest52401%_ _%spec52395%_) (_%keywords52403%_ '())) - (let* ((_%__stx8060080601%_ _%rest52401%_) + (let* ((_%__stx8082880829%_ _%rest52401%_) (_%g5240852436%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8060080601%_)))) - (let ((_%__kont8060380604%_ + _%__stx8082880829%_)))) + (let ((_%__kont8083180832%_ (lambda (_%L52553%_ _%L52555%_) (_%lp52398%_ _%L52553%_ _%keywords52403%_))) - (_%__kont8060580606%_ + (_%__kont8083380834%_ (lambda (_%L52521%_ _%L52523%_) (_%lp52398%_ _%L52521%_ _%keywords52403%_))) - (_%__kont8060780608%_ + (_%__kont8083580836%_ (lambda (_%L52474%_ _%L52476%_) (_%lp52398%_ _%L52474%_ (cons (gx#stx-e _%L52476%_) _%keywords52403%_)))) - (_%__kont8060980610%_ + (_%__kont8083780838%_ (lambda () (list-sort |gerbil/core/contract~Interface[1]#keywordstring (gx#stx-e _%x52391%_))) - (__tmp82696 (symbol->string (gx#stx-e _%y52393%_)))) + (let ((__tmp82971 (symbol->string (gx#stx-e _%x52391%_))) + (__tmp82970 (symbol->string (gx#stx-e _%y52393%_)))) (declare (not safe)) - (##stringstring (gx#stx-e _%x52387%_))) - (__tmp82698 (keyword->string (gx#stx-e _%y52389%_)))) + (let ((__tmp82973 (keyword->string (gx#stx-e _%x52387%_))) + (__tmp82972 (keyword->string (gx#stx-e _%y52389%_)))) (declare (not safe)) - (##string>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8069580696%_ + (_%__match8092380924%_ _%e6167061779%_ _%hd6167161783%_ _%tl6167261786%_ _%e6167361789%_ _%hd6167461793%_ _%tl6167561796%_)))) - (_%__kont8065380654%_ - _%__stx8064480645%_)))) + (_%__kont8088180882%_ + _%__stx8087280873%_)))) (let () (declare (not safe)) (_%g6166261727%_))))))))) @@ -7412,38 +7412,38 @@ (##cdr _%e6147761551%_)))) (if (gx#stx-pair/null? _%hd6147861555%_) - (let ((_g82701_ + (let ((_g82975_ (gx#syntax-split-splice _%hd6147861555%_ '0))) (begin - (let ((_g82702_ + (let ((_g82976_ (let () (declare (not safe)) (if (##values? - _g82701_) + _g82975_) (##vector-length - _g82701_) + _g82975_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82702_ + (##fx= _g82976_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g82702_))) + (error "Context expects 2 values" _g82976_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%target6148061561%_ (let () (declare (not safe)) (##vector-ref - _g82701_ + _g82975_ 0))) (_%tl6148261564%_ (let () (declare (not safe)) (##vector-ref - _g82701_ + _g82975_ 1)))) (if (gx#stx-null? _%tl6148261564%_) @@ -7682,34 +7682,34 @@ (declare (not safe)) (##cdr _%e6016160195%_)))) (if (gx#stx-pair/null? _%tl6016360202%_) - (let ((_g82703_ + (let ((_g82977_ (gx#syntax-split-splice _%tl6016360202%_ '0))) (begin - (let ((_g82704_ + (let ((_g82978_ (let () (declare (not safe)) - (if (##values? _g82703_) + (if (##values? _g82977_) (##vector-length - _g82703_) + _g82977_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82704_ 2))) + (##fx= _g82978_ 2))) (error "Context expects 2 values" - _g82704_))) + _g82978_))) (let ((_%target6016460205%_ (let () (declare (not safe)) (##vector-ref - _g82703_ + _g82977_ 0))) (_%tl6016660208%_ (let () (declare (not safe)) (##vector-ref - _g82703_ + _g82977_ 1)))) (if (gx#stx-null? _%tl6016660208%_) @@ -7830,37 +7830,37 @@ (lambda (_%g6051260532%_) (if (gx#stx-pair/null? _%g6051260532%_) - (let ((_g82705_ + (let ((_g82979_ (gx#syntax-split-splice _%g6051260532%_ '0))) (begin - (let ((_g82706_ + (let ((_g82980_ (let () (declare (not safe)) (if (##values? - _g82705_) + _g82979_) (##vector-length - _g82705_) + _g82979_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g82706_ 2))) - (error "Context expects 2 values" _g82706_))) + (##fx= _g82980_ 2))) + (error "Context expects 2 values" _g82980_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%target6051460535%_ (let () (declare (not safe)) (##vector-ref - _g82705_ + _g82979_ 0))) (_%tl6051660538%_ (let () (declare (not safe)) (##vector-ref - _g82705_ + _g82979_ 1)))) (if (gx#stx-null? _%tl6051660538%_) @@ -7895,25 +7895,25 @@ (lambda (_%g6058360603%_) (if (gx#stx-pair/null? _%g6058360603%_) - (let ((_g82707_ + (let ((_g82981_ (gx#syntax-split-splice _%g6058360603%_ '0))) (begin - (let ((_g82708_ + (let ((_g82982_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g82707_) - (##vector-length _g82707_) + (if (##values? _g82981_) + (##vector-length _g82981_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g82708_ 2))) - (error "Context expects 2 values" _g82708_))) + (if (not (let () (declare (not safe)) (##fx= _g82982_ 2))) + (error "Context expects 2 values" _g82982_))) (let ((_%target6058560606%_ - (let () (declare (not safe)) (##vector-ref _g82707_ 0))) + (let () (declare (not safe)) (##vector-ref _g82981_ 0))) (_%tl6058760609%_ - (let () (declare (not safe)) (##vector-ref _g82707_ 1)))) + (let () (declare (not safe)) (##vector-ref _g82981_ 1)))) (if (gx#stx-null? _%tl6058760609%_) (letrec ((_%loop6058860612%_ (lambda (_%hd6058660616%_ _%method6059260619%_) @@ -7945,30 +7945,30 @@ (lambda (_%g6065460674%_) (if (gx#stx-pair/null? _%g6065460674%_) - (let ((_g82709_ + (let ((_g82983_ (gx#syntax-split-splice _%g6065460674%_ '0))) (begin - (let ((_g82710_ + (let ((_g82984_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g82709_) - (##vector-length _g82709_) + (if (##values? _g82983_) + (##vector-length _g82983_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82710_ 2))) - (error "Context expects 2 values" _g82710_))) + (##fx= _g82984_ 2))) + (error "Context expects 2 values" _g82984_))) (let ((_%target6065660677%_ (let () (declare (not safe)) - (##vector-ref _g82709_ 0))) + (##vector-ref _g82983_ 0))) (_%tl6065860680%_ (let () (declare (not safe)) - (##vector-ref _g82709_ 1)))) + (##vector-ref _g82983_ 1)))) (if (gx#stx-null? _%tl6065860680%_) (letrec ((_%loop6065960683%_ (lambda (_%hd6065760687%_ @@ -8002,28 +8002,28 @@ (lambda (_%g6072560745%_) (if (gx#stx-pair/null? _%g6072560745%_) - (let ((_g82711_ + (let ((_g82985_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _%g6072560745%_ '0))) (begin - (let ((_g82712_ + (let ((_g82986_ (let () (declare (not safe)) - (if (##values? _g82711_) - (##vector-length _g82711_) + (if (##values? _g82985_) + (##vector-length _g82985_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82712_ 2))) - (error "Context expects 2 values" _g82712_))) + (##fx= _g82986_ 2))) + (error "Context expects 2 values" _g82986_))) (let ((_%target6072760748%_ (let () (declare (not safe)) - (##vector-ref _g82711_ 0))) + (##vector-ref _g82985_ 0))) (_%tl6072960751%_ (let () (declare (not safe)) - (##vector-ref _g82711_ 1)))) + (##vector-ref _g82985_ 1)))) (if (gx#stx-null? _%tl6072960751%_) (letrec ((_%loop6073060754%_ (lambda (_%hd6072860758%_ @@ -8058,28 +8058,28 @@ (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _%g6079660816%_) - (let ((_g82713_ + (let ((_g82987_ (gx#syntax-split-splice _%g6079660816%_ '0))) (begin - (let ((_g82714_ + (let ((_g82988_ (let () (declare (not safe)) - (if (##values? _g82713_) - (##vector-length _g82713_) + (if (##values? _g82987_) + (##vector-length _g82987_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82714_ 2))) + (##fx= _g82988_ 2))) (error "Context expects 2 values" - _g82714_))) + _g82988_))) (let ((_%target6079860819%_ (let () (declare (not safe)) - (##vector-ref _g82713_ 0))) + (##vector-ref _g82987_ 0))) (_%tl6080060822%_ (let () (declare (not safe)) - (##vector-ref _g82713_ 1)))) + (##vector-ref _g82987_ 1)))) (if (gx#stx-null? _%tl6080060822%_) (letrec ((_%loop6080160825%_ (lambda (_%hd6079960829%_ @@ -8114,30 +8114,30 @@ (_%g6086561326%_ (lambda (_%g6086760887%_) (if (gx#stx-pair/null? _%g6086760887%_) - (let ((_g82715_ + (let ((_g82989_ (gx#syntax-split-splice _%g6086760887%_ '0))) (begin - (let ((_g82716_ + (let ((_g82990_ (let () (declare (not safe)) - (if (##values? _g82715_) - (##vector-length _g82715_) + (if (##values? _g82989_) + (##vector-length _g82989_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82716_ 2))) + (##fx= _g82990_ 2))) (error "Context expects 2 values" - _g82716_))) + _g82990_))) (let ((_%target6086960890%_ (let () (declare (not safe)) - (##vector-ref _g82715_ 0))) + (##vector-ref _g82989_ 0))) (_%tl6087160893%_ (let () (declare (not safe)) - (##vector-ref _g82715_ 1)))) + (##vector-ref _g82989_ 1)))) (if (gx#stx-null? _%tl6087160893%_) (letrec ((_%loop6087260896%_ (lambda (_%hd6087060900%_ @@ -8172,30 +8172,30 @@ (_%g6093661306%_ (lambda (_%g6093860958%_) (if (gx#stx-pair/null? _%g6093860958%_) - (let ((_g82717_ + (let ((_g82991_ (gx#syntax-split-splice _%g6093860958%_ '0))) (begin - (let ((_g82718_ + (let ((_g82992_ (let () (declare (not safe)) - (if (##values? _g82717_) - (##vector-length _g82717_) + (if (##values? _g82991_) + (##vector-length _g82991_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82718_ 2))) + (##fx= _g82992_ 2))) (error "Context expects 2 values" - _g82718_))) + _g82992_))) (let ((_%target6094060961%_ (let () (declare (not safe)) - (##vector-ref _g82717_ 0))) + (##vector-ref _g82991_ 0))) (_%tl6094260964%_ (let () (declare (not safe)) - (##vector-ref _g82717_ 1)))) + (##vector-ref _g82991_ 1)))) (if (gx#stx-null? _%tl6094260964%_) (letrec ((_%loop6094360967%_ (lambda (_%hd6094160971%_ @@ -8645,7 +8645,7 @@ (cons _%g6130961312%_ _%g6131061315%_)) '() _%L60636%_) - (let ((__tmp82719 + (let ((__tmp82993 (length (foldr (lambda (_%g6131761320%_ _%g6131861323%_) (cons _%g6131761320%_ @@ -8653,7 +8653,7 @@ '() _%L60707%_)))) (declare (not safe)) - (##iota __tmp82719 '2)))))) + (##iota __tmp82993 '2)))))) _%unchecked-method-impl-name6087760916%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_%loop6087260896%_ @@ -8820,25 +8820,25 @@ (class-instance? gerbil/core/mop~MOP-2#class-type-info::t _%return-type62939%_)) - (let ((__tmp82720 - (let ((__obj82492 _%return-type62939%_)) + (let ((__tmp82994 + (let ((__obj82766 _%return-type62939%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82492 + __obj82766 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82492 + __obj82766 '1 '#f '#f)) (unchecked-slot-ref - __obj82492 + __obj82766 'id))))) (declare (not safe)) - (##memq __tmp82720 '(t void)))) + (##memq __tmp82994 '(t void)))) '#f '#t)))) (_%make-checked-method-def61955%_ @@ -8930,34 +8930,34 @@ (declare (not safe)) (##cdr _%e6273062810%_)))) (if (gx#stx-pair/null? _%hd6273162814%_) - (let ((_g82721_ + (let ((_g82995_ (gx#syntax-split-splice _%hd6273162814%_ '0))) (begin - (let ((_g82722_ + (let ((_g82996_ (let () (declare (not safe)) - (if (##values? _g82721_) + (if (##values? _g82995_) (##vector-length - _g82721_) + _g82995_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82722_ 2))) + (##fx= _g82996_ 2))) (error "Context expects 2 values" - _g82722_))) + _g82996_))) (let ((_%target6273362820%_ (let () (declare (not safe)) (##vector-ref - _g82721_ + _g82995_ 0))) (_%tl6273562823%_ (let () (declare (not safe)) (##vector-ref - _g82721_ + _g82995_ 1)))) (if (gx#stx-null? _%tl6273562823%_) @@ -9195,37 +9195,37 @@ (##cdr _%e6249162571%_)))) (if (gx#stx-pair/null? _%hd6249262575%_) - (let ((_g82723_ + (let ((_g82997_ (gx#syntax-split-splice _%hd6249262575%_ '0))) (begin - (let ((_g82724_ + (let ((_g82998_ (let () (declare (not safe)) (if (##values? - _g82723_) + _g82997_) (##vector-length - _g82723_) + _g82997_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g82724_ 2))) - (error "Context expects 2 values" _g82724_))) + (##fx= _g82998_ 2))) + (error "Context expects 2 values" _g82998_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%target6249462581%_ (let () (declare (not safe)) (##vector-ref - _g82723_ + _g82997_ 0))) (_%tl6249662584%_ (let () (declare (not safe)) (##vector-ref - _g82723_ + _g82997_ 1)))) (if (gx#stx-null? _%tl6249662584%_) @@ -9480,25 +9480,25 @@ (##cdr _%e6228162365%_)))) (if (gx#stx-pair/null? _%hd6228262369%_) - (let ((_g82725_ + (let ((_g82999_ (gx#syntax-split-splice _%hd6228262369%_ '0))) (begin - (let ((_g82726_ + (let ((_g83000_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g82725_) - (##vector-length _g82725_) + (if (##values? _g82999_) + (##vector-length _g82999_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g82726_ 2))) - (error "Context expects 2 values" _g82726_))) + (if (not (let () (declare (not safe)) (##fx= _g83000_ 2))) + (error "Context expects 2 values" _g83000_))) (let ((_%target6228462375%_ - (let () (declare (not safe)) (##vector-ref _g82725_ 0))) + (let () (declare (not safe)) (##vector-ref _g82999_ 0))) (_%tl6228662378%_ - (let () (declare (not safe)) (##vector-ref _g82725_ 1)))) + (let () (declare (not safe)) (##vector-ref _g82999_ 1)))) (if (gx#stx-null? _%tl6228662378%_) (letrec ((_%loop6228762381%_ (lambda (_%hd6228562385%_ _%body6229162388%_) @@ -9668,30 +9668,30 @@ (##cdr _%e6198162055%_)))) (if (gx#stx-null? _%tl6198362062%_) (if (gx#stx-pair/null? _%tl6197462032%_) - (let ((_g82727_ + (let ((_g83001_ (gx#syntax-split-splice _%tl6197462032%_ '0))) (begin - (let ((_g82728_ + (let ((_g83002_ (let () (declare (not safe)) - (if (##values? _g82727_) - (##vector-length _g82727_) + (if (##values? _g83001_) + (##vector-length _g83001_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82728_ 2))) + (##fx= _g83002_ 2))) (error "Context expects 2 values" - _g82728_))) + _g83002_))) (let ((_%target6198462065%_ (let () (declare (not safe)) - (##vector-ref _g82727_ 0))) + (##vector-ref _g83001_ 0))) (_%tl6198662068%_ (let () (declare (not safe)) - (##vector-ref _g82727_ 1)))) + (##vector-ref _g83001_ 1)))) (if (gx#stx-null? _%tl6198662068%_) (letrec ((_%loop6198762071%_ (lambda (_%hd6198562075%_ @@ -9724,22 +9724,22 @@ (let* ((_%info62130%_ (gx#syntax-local-value _%L62100%_)) (_%interface-name62133%_ - (let ((__obj82493 _%info62130%_)) + (let ((__obj82767 _%info62130%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82493 + __obj82767 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82493 + __obj82767 '1 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj82493 + __obj82767 'name)))) (_%method-name62136%_ (gx#stx-identifier @@ -9958,34 +9958,34 @@ (##cdr _%e6297563059%_)))) (if (gx#stx-null? _%tl6297763066%_) (if (gx#stx-pair/null? _%tl6296563026%_) - (let ((_g82729_ + (let ((_g83003_ (gx#syntax-split-splice _%tl6296563026%_ '0))) (begin - (let ((_g82730_ + (let ((_g83004_ (let () (declare (not safe)) - (if (##values? _g82729_) + (if (##values? _g83003_) (##vector-length - _g82729_) + _g83003_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82730_ 2))) + (##fx= _g83004_ 2))) (error "Context expects 2 values" - _g82730_))) + _g83004_))) (let ((_%target6297863069%_ (let () (declare (not safe)) (##vector-ref - _g82729_ + _g83003_ 0))) (_%tl6298063072%_ (let () (declare (not safe)) (##vector-ref - _g82729_ + _g83003_ 1)))) (if (gx#stx-null? _%tl6298063072%_) @@ -10199,34 +10199,34 @@ (##cdr _%e6324863332%_)))) (if (gx#stx-null? _%tl6325063339%_) (if (gx#stx-pair/null? _%tl6323863299%_) - (let ((_g82731_ + (let ((_g83005_ (gx#syntax-split-splice _%tl6323863299%_ '0))) (begin - (let ((_g82732_ + (let ((_g83006_ (let () (declare (not safe)) - (if (##values? _g82731_) + (if (##values? _g83005_) (##vector-length - _g82731_) + _g83005_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82732_ 2))) + (##fx= _g83006_ 2))) (error "Context expects 2 values" - _g82732_))) + _g83006_))) (let ((_%target6325163342%_ (let () (declare (not safe)) (##vector-ref - _g82731_ + _g83005_ 0))) (_%tl6325363345%_ (let () (declare (not safe)) (##vector-ref - _g82731_ + _g83005_ 1)))) (if (gx#stx-null? _%tl6325363345%_) @@ -10374,30 +10374,30 @@ (##cdr _%e6344963523%_)))) (if (gx#stx-null? _%tl6345163530%_) (if (gx#stx-pair/null? _%tl6344263500%_) - (let ((_g82733_ + (let ((_g83007_ (gx#syntax-split-splice _%tl6344263500%_ '0))) (begin - (let ((_g82734_ + (let ((_g83008_ (let () (declare (not safe)) - (if (##values? _g82733_) - (##vector-length _g82733_) + (if (##values? _g83007_) + (##vector-length _g83007_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82734_ 2))) + (##fx= _g83008_ 2))) (error "Context expects 2 values" - _g82734_))) + _g83008_))) (let ((_%target6345263533%_ (let () (declare (not safe)) - (##vector-ref _g82733_ 0))) + (##vector-ref _g83007_ 0))) (_%tl6345463536%_ (let () (declare (not safe)) - (##vector-ref _g82733_ 1)))) + (##vector-ref _g83007_ 1)))) (if (gx#stx-null? _%tl6345463536%_) (letrec ((_%loop6345563539%_ (lambda (_%hd6345363543%_ @@ -10472,30 +10472,30 @@ (_%g6383864087%_ (lambda (_%g6384063860%_) (if (gx#stx-pair/null? _%g6384063860%_) - (let ((_g82735_ + (let ((_g83009_ (gx#syntax-split-splice _%g6384063860%_ '0))) (begin - (let ((_g82736_ + (let ((_g83010_ (let () (declare (not safe)) - (if (##values? _g82735_) - (##vector-length _g82735_) + (if (##values? _g83009_) + (##vector-length _g83009_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82736_ 2))) + (##fx= _g83010_ 2))) (error "Context expects 2 values" - _g82736_))) + _g83010_))) (let ((_%target6384263863%_ (let () (declare (not safe)) - (##vector-ref _g82735_ 0))) + (##vector-ref _g83009_ 0))) (_%tl6384463866%_ (let () (declare (not safe)) - (##vector-ref _g82735_ 1)))) + (##vector-ref _g83009_ 1)))) (if (gx#stx-null? _%tl6384463866%_) (letrec ((_%loop6384563869%_ (lambda (_%hd6384363873%_ @@ -10532,14 +10532,14 @@ _%L63893%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_%ids63920%_ '())) - (let* ((_%__stx8070080701%_ _%rest63918%_) + (let* ((_%__stx8092880929%_ _%rest63918%_) (_%g6392363935%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8070080701%_)))) - (let ((_%__kont8070380704%_ + _%__stx8092880929%_)))) + (let ((_%__kont8093180932%_ (lambda (_%L63963%_ _%L63965%_) (let ((_%info63980%_ (gx#syntax-local-value @@ -10698,13 +10698,13 @@ _%descriptor64030%_ _%type64023%_)) (_%E6398464001%_)))))) - (_%__kont8070580706%_ + (_%__kont8093380934%_ (lambda () (cons 'begin: _%ids63920%_)))) - (if (gx#stx-pair? _%__stx8070080701%_) + (if (gx#stx-pair? _%__stx8092880929%_) (let ((_%e6392763953%_ (gx#syntax-e - _%__stx8070080701%_))) + _%__stx8092880929%_))) (let ((_%tl6392963960%_ (let () (declare (not safe)) @@ -10713,10 +10713,10 @@ (let () (declare (not safe)) (##car _%e6392763953%_)))) - (_%__kont8070380704%_ + (_%__kont8093180932%_ _%tl6392963960%_ _%hd6392863957%_))) - (_%__kont8070580706%_))))) + (_%__kont8093380934%_))))) (_%g6383963856%_ _%g6384063860%_))) _%id6385063889%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -10727,14 +10727,14 @@ _%g6384063860%_))))) (_%g6383963856%_ _%g6384063860%_))))) (_%g6383864087%_ _%body63835%_))))) - (let* ((_%__stx8071680717%_ _%stx63610%_) + (let* ((_%__stx8094480945%_ _%stx63610%_) (_%g6361763658%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8071680717%_)))) - (let ((_%__kont8071980720%_ + _%__stx8094480945%_)))) + (let ((_%__kont8094780948%_ (lambda (_%L63801%_ _%L63803%_) (_%expand63613%_ (foldr (lambda (_%g6382263825%_ _%g6382363828%_) @@ -10742,7 +10742,7 @@ '() _%L63801%_) (gx#stx-e _%L63803%_)))) - (_%__kont8072380724%_ + (_%__kont8095180952%_ (lambda (_%L63705%_) (_%expand63613%_ (foldr (lambda (_%g6372163724%_ _%g6372263727%_) @@ -10750,11 +10750,11 @@ '() _%L63705%_) '#t)))) - (let* ((_%__match8077380774%_ + (let* ((_%__match8100181002%_ (lambda (_%e6364163665%_ _%hd6364263669%_ _%tl6364363672%_ - _%__splice8072580726%_ + _%__splice8095380954%_ _%target6364463675%_ _%tl6364663678%_) (letrec ((_%loop6364763681%_ @@ -10778,10 +10778,10 @@ _%body6365163688%_)))) (let ((_%body6365263701%_ (reverse _%body6365163688%_))) - (_%__kont8072380724%_ + (_%__kont8095180952%_ _%body6365263701%_)))))) (_%loop6364763681%_ _%target6364463675%_ '())))) - (_%__match8075980760%_ + (_%__match8098780988%_ (lambda (_%e6362163737%_ _%hd6362263741%_ _%tl6362363744%_ @@ -10792,7 +10792,7 @@ _%e6362863761%_ _%hd6362963765%_ _%tl6363063768%_ - _%__splice8072180722%_ + _%__splice8094980950%_ _%target6363163771%_ _%tl6363363774%_) (letrec ((_%loop6363463777%_ @@ -10816,12 +10816,12 @@ _%body6363863784%_)))) (let ((_%body6363963797%_ (reverse _%body6363863784%_))) - (_%__kont8071980720%_ + (_%__kont8094780948%_ _%body6363963797%_ _%hd6362963765%_)))))) (_%loop6363463777%_ _%target6363163771%_ '()))))) - (if (gx#stx-pair? _%__stx8071680717%_) - (let ((_%e6362163737%_ (gx#syntax-e _%__stx8071680717%_))) + (if (gx#stx-pair? _%__stx8094480945%_) + (let ((_%e6362163737%_ (gx#syntax-e _%__stx8094480945%_))) (let ((_%tl6362363744%_ (let () (declare (not safe)) @@ -10859,7 +10859,7 @@ (##car _%e6362863761%_)))) (if (gx#stx-pair/null? _%tl6363063768%_) - (let ((_%__splice8072180722%_ + (let ((_%__splice8094980950%_ (gx#syntax-split-splice _%tl6363063768%_ '0))) @@ -10867,13 +10867,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8072180722%_ '1))) + (##vector-ref _%__splice8094980950%_ '1))) (_%target6363163771%_ (let () (declare (not safe)) - (##vector-ref _%__splice8072180722%_ '0)))) + (##vector-ref _%__splice8094980950%_ '0)))) (if (gx#stx-null? _%tl6363363774%_) - (_%__match8075980760%_ + (_%__match8098780988%_ _%e6362163737%_ _%hd6362263741%_ _%tl6362363744%_ @@ -10884,11 +10884,11 @@ _%e6362863761%_ _%hd6362963765%_ _%tl6363063768%_ - _%__splice8072180722%_ + _%__splice8094980950%_ _%target6363163771%_ _%tl6363363774%_) (if (gx#stx-pair/null? _%tl6362363744%_) - (let ((_%__splice8072580726%_ + (let ((_%__splice8095380954%_ (gx#syntax-split-splice _%tl6362363744%_ '0))) @@ -10896,20 +10896,20 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8072580726%_ + _%__splice8095380954%_ '1))) (_%target6364463675%_ (let () (declare (not safe)) (##vector-ref - _%__splice8072580726%_ + _%__splice8095380954%_ '0)))) (if (gx#stx-null? _%tl6364663678%_) - (_%__match8077380774%_ + (_%__match8100181002%_ _%e6362163737%_ _%hd6362263741%_ _%tl6362363744%_ - _%__splice8072580726%_ + _%__splice8095380954%_ _%target6364463675%_ _%tl6364663678%_) (let () @@ -10917,22 +10917,22 @@ (_%g6361763658%_))))) (let () (declare (not safe)) (_%g6361763658%_)))))) (if (gx#stx-pair/null? _%tl6362363744%_) - (let ((_%__splice8072580726%_ + (let ((_%__splice8095380954%_ (gx#syntax-split-splice _%tl6362363744%_ '0))) (let ((_%tl6364663678%_ (let () (declare (not safe)) - (##vector-ref _%__splice8072580726%_ '1))) + (##vector-ref _%__splice8095380954%_ '1))) (_%target6364463675%_ (let () (declare (not safe)) - (##vector-ref _%__splice8072580726%_ '0)))) + (##vector-ref _%__splice8095380954%_ '0)))) (if (gx#stx-null? _%tl6364663678%_) - (_%__match8077380774%_ + (_%__match8100181002%_ _%e6362163737%_ _%hd6362263741%_ _%tl6362363744%_ - _%__splice8072580726%_ + _%__splice8095380954%_ _%target6364463675%_ _%tl6364663678%_) (let () (declare (not safe)) (_%g6361763658%_))))) @@ -10940,7 +10940,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl6362363744%_) - (let ((_%__splice8072580726%_ + (let ((_%__splice8095380954%_ (gx#syntax-split-splice _%tl6362363744%_ '0))) @@ -10949,22 +10949,22 @@ (declare (not safe)) (##vector-ref - _%__splice8072580726%_ + _%__splice8095380954%_ '1))) (_%target6364463675%_ (let () (declare (not safe)) (##vector-ref - _%__splice8072580726%_ + _%__splice8095380954%_ '0)))) (if (gx#stx-null? _%tl6364663678%_) - (_%__match8077380774%_ + (_%__match8100181002%_ _%e6362163737%_ _%hd6362263741%_ _%tl6362363744%_ - _%__splice8072580726%_ + _%__splice8095380954%_ _%target6364463675%_ _%tl6364663678%_) (let () @@ -10976,7 +10976,7 @@ (_%g6361763658%_)))) (if (gx#stx-pair/null? _%tl6362363744%_) - (let ((_%__splice8072580726%_ + (let ((_%__splice8095380954%_ (gx#syntax-split-splice _%tl6362363744%_ '0))) @@ -10984,21 +10984,21 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8072580726%_ + _%__splice8095380954%_ '1))) (_%target6364463675%_ (let () (declare (not safe)) (##vector-ref - _%__splice8072580726%_ + _%__splice8095380954%_ '0)))) (if (gx#stx-null? _%tl6364663678%_) - (_%__match8077380774%_ + (_%__match8100181002%_ _%e6362163737%_ _%hd6362263741%_ _%tl6362363744%_ - _%__splice8072580726%_ + _%__splice8095380954%_ _%target6364463675%_ _%tl6364663678%_) (let () @@ -11008,7 +11008,7 @@ (declare (not safe)) (_%g6361763658%_))))) (if (gx#stx-pair/null? _%tl6362363744%_) - (let ((_%__splice8072580726%_ + (let ((_%__splice8095380954%_ (gx#syntax-split-splice _%tl6362363744%_ '0))) @@ -11016,21 +11016,21 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8072580726%_ + _%__splice8095380954%_ '1))) (_%target6364463675%_ (let () (declare (not safe)) (##vector-ref - _%__splice8072580726%_ + _%__splice8095380954%_ '0)))) (if (gx#stx-null? _%tl6364663678%_) - (_%__match8077380774%_ + (_%__match8100181002%_ _%e6362163737%_ _%hd6362263741%_ _%tl6362363744%_ - _%__splice8072580726%_ + _%__splice8095380954%_ _%target6364463675%_ _%tl6364663678%_) (let () @@ -11040,7 +11040,7 @@ (declare (not safe)) (_%g6361763658%_)))))) (if (gx#stx-pair/null? _%tl6362363744%_) - (let ((_%__splice8072580726%_ + (let ((_%__splice8095380954%_ (gx#syntax-split-splice _%tl6362363744%_ '0))) @@ -11048,20 +11048,20 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8072580726%_ + _%__splice8095380954%_ '1))) (_%target6364463675%_ (let () (declare (not safe)) (##vector-ref - _%__splice8072580726%_ + _%__splice8095380954%_ '0)))) (if (gx#stx-null? _%tl6364663678%_) - (_%__match8077380774%_ + (_%__match8100181002%_ _%e6362163737%_ _%hd6362263741%_ _%tl6362363744%_ - _%__splice8072580726%_ + _%__splice8095380954%_ _%target6364463675%_ _%tl6364663678%_) (let () diff --git a/src/bootstrap/gerbil/core/contract~9.scm b/src/bootstrap/gerbil/core/contract~9.scm index d577d585b..c73b4dfc2 100644 --- a/src/bootstrap/gerbil/core/contract~9.scm +++ b/src/bootstrap/gerbil/core/contract~9.scm @@ -1,104 +1,104 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~TypedDefinitions[1]#_g82743_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83017_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82750_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83024_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82753_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83027_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82754_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83028_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82762_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83036_| (##structure gx#syntax-quote::t 'lambda/c #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82763_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83037_| (##structure gx#syntax-quote::t 'case-lambda/c #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82764_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83038_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82766_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83040_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82767_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83041_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82768_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83042_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82770_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83044_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82771_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83045_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82772_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83046_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82774_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83048_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82775_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83049_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82776_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83050_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82777_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83051_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82778_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83052_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82779_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83053_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82780_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83054_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82781_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83055_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82782_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83056_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82783_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83057_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82784_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83058_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82785_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83059_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82786_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83060_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82787_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83061_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82788_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83062_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82789_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83063_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82790_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83064_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g82791_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g83065_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) (begin (define |gerbil/core/contract~TypedDefinitions[1]#is-signature?| (lambda (_%formals64095%_) (let _%lp64098%_ ((_%rest64101%_ _%formals64095%_)) - (let* ((_%__stx8077680777%_ _%rest64101%_) + (let* ((_%__stx8100481005%_ _%rest64101%_) (_%g6411064179%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8077680777%_)))) - (let ((_%__kont8077980780%_ + _%__stx8100481005%_)))) + (let ((_%__kont8100781008%_ (lambda (_%L64480%_ _%L64482%_) (_%lp64098%_ _%L64480%_))) - (_%__kont8078180782%_ + (_%__kont8100981010%_ (lambda (_%L64446%_ _%L64448%_) (_%lp64098%_ _%L64446%_))) - (_%__kont8078380784%_ + (_%__kont8101181012%_ (lambda (_%L64392%_ _%L64394%_ _%L64395%_) '#t)) - (_%__kont8078580786%_ + (_%__kont8101381014%_ (lambda (_%L64348%_ _%L64350%_ _%L64351%_) (_%lp64098%_ _%L64348%_))) - (_%__kont8078780788%_ + (_%__kont8101581016%_ (lambda (_%L64300%_ _%L64302%_ _%L64303%_) (_%lp64098%_ _%L64300%_))) - (_%__kont8078980790%_ + (_%__kont8101781018%_ (lambda (_%L64227%_ _%L64229%_ _%L64230%_ _%L64231%_) '#t)) - (_%__kont8079180792%_ (lambda () '#f))) - (let* ((_%__match8088780888%_ + (_%__kont8101981020%_ (lambda () '#f))) + (let* ((_%__match8111581116%_ (lambda (_%e6416564197%_ _%hd6416664201%_ _%tl6416764204%_ @@ -118,13 +118,13 @@ (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L64229%_))) - (_%__kont8078980790%_ + (_%__kont8101781018%_ _%L64227%_ _%L64229%_ _%L64230%_ _%L64231%_) - (_%__kont8079180792%_))))) - (_%__match8086980870%_ + (_%__kont8101981020%_))))) + (_%__match8109781098%_ (lambda (_%e6414964260%_ _%hd6415064264%_ _%tl6415164267%_ @@ -142,11 +142,11 @@ (_%L64303%_ _%hd6415064264%_)) (if (and (gx#stx-keyword? _%L64303%_) (gx#identifier? _%L64302%_)) - (_%__kont8078780788%_ + (_%__kont8101581016%_ _%L64300%_ _%L64302%_ _%L64303%_) - (_%__match8088780888%_ + (_%__match8111581116%_ _%e6414964260%_ _%hd6415064264%_ _%tl6415164267%_ @@ -156,7 +156,7 @@ _%e6415564280%_ _%hd6415664284%_ _%tl6415764287%_))))) - (_%__match8084380844%_ + (_%__match8107181072%_ (lambda (_%e6414064328%_ _%hd6414164332%_ _%tl6414264335%_ @@ -168,7 +168,7 @@ (_%L64351%_ _%hd6414164332%_)) (if (and (gx#stx-keyword? _%L64351%_) (gx#identifier? _%L64350%_)) - (_%__kont8078580786%_ + (_%__kont8101381014%_ _%L64348%_ _%L64350%_ _%L64351%_) @@ -197,7 +197,7 @@ (##car _%e6415864290%_)))) (if (gx#stx-null? _%tl6416064297%_) - (_%__match8086980870%_ + (_%__match8109781098%_ _%e6414064328%_ _%hd6414164332%_ _%tl6414264335%_ @@ -210,7 +210,7 @@ _%e6415864290%_ _%hd6415964294%_ _%tl6416064297%_) - (_%__match8088780888%_ + (_%__match8111581116%_ _%e6414064328%_ _%hd6414164332%_ _%tl6414264335%_ @@ -220,7 +220,7 @@ _%e6415564280%_ _%hd6415664284%_ _%tl6415764287%_)))) - (_%__match8088780888%_ + (_%__match8111581116%_ _%e6414064328%_ _%hd6414164332%_ _%tl6414264335%_ @@ -230,8 +230,8 @@ _%e6415564280%_ _%hd6415664284%_ _%tl6415764287%_)))) - (_%__kont8079180792%_)))))) - (_%__match8083180832%_ + (_%__kont8101981020%_)))))) + (_%__match8105981060%_ (lambda (_%e6413164372%_ _%hd6413264376%_ _%tl6413364379%_ @@ -246,7 +246,7 @@ (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-contract?| _%L64394%_))) - (_%__kont8078380784%_ + (_%__kont8101181012%_ _%L64392%_ _%L64394%_ _%L64395%_) @@ -261,22 +261,22 @@ (let () (declare (not safe)) (##car _%e6414364338%_)))) - (_%__match8084380844%_ + (_%__match8107181072%_ _%e6413164372%_ _%hd6413264376%_ _%tl6413364379%_ _%e6414364338%_ _%hd6414464342%_ _%tl6414564345%_))) - (_%__kont8079180792%_)))))) - (_%__match8079980800%_ + (_%__kont8101981020%_)))))) + (_%__match8102781028%_ (lambda (_%e6411464470%_ _%hd6411564474%_ _%tl6411664477%_) (let ((_%L64480%_ _%tl6411664477%_) (_%L64482%_ _%hd6411564474%_)) (if (gx#identifier? _%L64482%_) - (_%__kont8077980780%_ _%L64480%_ _%L64482%_) + (_%__kont8100781008%_ _%L64480%_ _%L64482%_) (if (gx#stx-pair? _%hd6411564474%_) (let ((_%e6412264426%_ (gx#syntax-e _%hd6411564474%_))) @@ -302,17 +302,17 @@ (##car _%e6412564436%_)))) (if (gx#stx-null? _%tl6412764443%_) - (_%__kont8078180782%_ + (_%__kont8100981010%_ _%tl6411664477%_ _%hd6412364430%_) - (_%__match8083180832%_ + (_%__match8105981060%_ _%e6411464470%_ _%hd6411564474%_ _%tl6411664477%_ _%e6412264426%_ _%hd6412364430%_ _%tl6412464433%_)))) - (_%__match8083180832%_ + (_%__match8105981060%_ _%e6411464470%_ _%hd6411564474%_ _%tl6411664477%_ @@ -330,16 +330,16 @@ (let () (declare (not safe)) (##car _%e6414364338%_)))) - (_%__match8084380844%_ + (_%__match8107181072%_ _%e6411464470%_ _%hd6411564474%_ _%tl6411664477%_ _%e6414364338%_ _%hd6414464342%_ _%tl6414564345%_))) - (_%__kont8079180792%_)))))))) - (if (gx#stx-pair? _%__stx8077680777%_) - (let ((_%e6411464470%_ (gx#syntax-e _%__stx8077680777%_))) + (_%__kont8101981020%_)))))))) + (if (gx#stx-pair? _%__stx8100481005%_) + (let ((_%e6411464470%_ (gx#syntax-e _%__stx8100481005%_))) (let ((_%tl6411664477%_ (let () (declare (not safe)) @@ -348,11 +348,11 @@ (let () (declare (not safe)) (##car _%e6411464470%_)))) - (_%__match8079980800%_ + (_%__match8102781028%_ _%e6411464470%_ _%hd6411564474%_ _%tl6411664477%_))) - (_%__kont8079180792%_)))))))) + (_%__kont8101981020%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#def/c| (lambda (_%stx64497%_) (letrec ((_%make-definition64500%_ @@ -529,34 +529,34 @@ (declare (not safe)) (##cdr _%e6543465508%_)))) (if (gx#stx-pair/null? _%hd6543565512%_) - (let ((_g82737_ + (let ((_g83011_ (gx#syntax-split-splice _%hd6543565512%_ '0))) (begin - (let ((_g82738_ + (let ((_g83012_ (let () (declare (not safe)) - (if (##values? _g82737_) + (if (##values? _g83011_) (##vector-length - _g82737_) + _g83011_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82738_ 2))) + (##fx= _g83012_ 2))) (error "Context expects 2 values" - _g82738_))) + _g83012_))) (let ((_%target6543765518%_ (let () (declare (not safe)) (##vector-ref - _g82737_ + _g83011_ 0))) (_%tl6543965521%_ (let () (declare (not safe)) (##vector-ref - _g82737_ + _g83011_ 1)))) (if (gx#stx-null? _%tl6543965521%_) @@ -719,28 +719,28 @@ (declare (not safe)) (##cdr _%e6521065273%_)))) (if (gx#stx-pair/null? _%hd6521165277%_) - (let ((_g82739_ + (let ((_g83013_ (gx#syntax-split-splice _%hd6521165277%_ '0))) (begin - (let ((_g82740_ + (let ((_g83014_ (let () (declare (not safe)) - (if (##values? _g82739_) - (##vector-length _g82739_) + (if (##values? _g83013_) + (##vector-length _g83013_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82740_ 2))) + (##fx= _g83014_ 2))) (error "Context expects 2 values" - _g82740_))) + _g83014_))) (let ((_%target6521365283%_ (let () (declare (not safe)) - (##vector-ref _g82739_ 0))) + (##vector-ref _g83013_ 0))) (_%tl6521565286%_ (let () (declare (not safe)) - (##vector-ref _g82739_ 1)))) + (##vector-ref _g83013_ 1)))) (if (gx#stx-null? _%tl6521565286%_) (letrec ((_%loop6521665289%_ (lambda (_%hd6521465293%_ @@ -1002,30 +1002,30 @@ (declare (not safe)) (##cdr _%e6503665100%_)))) (if (gx#stx-pair/null? _%hd6503765104%_) - (let ((_g82741_ + (let ((_g83015_ (gx#syntax-split-splice _%hd6503765104%_ '0))) (begin - (let ((_g82742_ + (let ((_g83016_ (let () (declare (not safe)) - (if (##values? _g82741_) - (##vector-length _g82741_) + (if (##values? _g83015_) + (##vector-length _g83015_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82742_ 2))) + (##fx= _g83016_ 2))) (error "Context expects 2 values" - _g82742_))) + _g83016_))) (let ((_%target6503965110%_ (let () (declare (not safe)) - (##vector-ref _g82741_ 0))) + (##vector-ref _g83015_ 0))) (_%tl6504165113%_ (let () (declare (not safe)) - (##vector-ref _g82741_ 1)))) + (##vector-ref _g83015_ 1)))) (if (gx#stx-null? _%tl6504165113%_) (letrec ((_%loop6504265116%_ (lambda (_%hd6504065120%_ @@ -1105,14 +1105,14 @@ _%signature65013%_ _%return65014%_ _%body65015%_)))))) - (let* ((_%__stx8089080891%_ _%stx64497%_) + (let* ((_%__stx8111881119%_ _%stx64497%_) (_%g6450964601%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8089080891%_)))) - (let ((_%__kont8089380894%_ + _%__stx8111881119%_)))) + (let ((_%__kont8112181122%_ (lambda (_%L64962%_ _%L64964%_ _%L64965%_ _%L64966%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| _%L64965%_) @@ -1139,7 +1139,7 @@ _%L64962%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont8089780898%_ + (_%__kont8112581126%_ (lambda (_%L64836%_ _%L64838%_ _%L64839%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| _%L64838%_) @@ -1162,7 +1162,7 @@ _%g6486764872%_)) '() _%L64836%_)))))) - (_%__kont8090180902%_ + (_%__kont8112981130%_ (lambda (_%L64734%_ _%L64736%_ _%L64737%_ _%L64738%_) (cons (gx#datum->syntax '#f 'def/c) (cons (cons _%L64738%_ _%L64737%_) @@ -1176,11 +1176,11 @@ _%L64734%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont8090580906%_ + (_%__kont8113381134%_ (lambda (_%L64638%_ _%L64640%_) (cons (gx#datum->syntax '#f 'def) (cons _%L64640%_ (cons _%L64638%_ '())))))) - (let* ((_%__match8102781028%_ + (let* ((_%__match8125581256%_ (lambda (_%e6458764608%_ _%hd6458864612%_ _%tl6458964615%_ @@ -1193,11 +1193,11 @@ (let ((_%L64638%_ _%hd6459464632%_) (_%L64640%_ _%hd6459164622%_)) (if (gx#identifier? _%L64640%_) - (_%__kont8090580906%_ _%L64638%_ _%L64640%_) + (_%__kont8113381134%_ _%L64638%_ _%L64640%_) (let () (declare (not safe)) (_%g6450964601%_)))))) - (_%__match8100781008%_ + (_%__match8123581236%_ (lambda (_%e6456464664%_ _%hd6456564668%_ _%tl6456664671%_ @@ -1210,7 +1210,7 @@ _%e6457364694%_ _%hd6457464698%_ _%tl6457564701%_ - _%__splice8090380904%_ + _%__splice8113181132%_ _%target6457664704%_ _%tl6457864707%_) (letrec ((_%loop6457964710%_ @@ -1232,13 +1232,13 @@ _%body6458364717%_)))) (let ((_%body6458464730%_ (reverse _%body6458364717%_))) - (_%__kont8090180902%_ + (_%__kont8112981130%_ _%body6458464730%_ _%tl6457264691%_ _%tl6457564701%_ _%hd6457464698%_)))))) (_%loop6457964710%_ _%target6457664704%_ '())))) - (_%__match8099380994%_ + (_%__match8122181222%_ (lambda (_%e6456464664%_ _%hd6456564668%_ _%tl6456664671%_ @@ -1260,7 +1260,7 @@ (declare (not safe)) (##car _%e6457364694%_)))) (if (gx#stx-pair/null? _%tl6456964681%_) - (let ((_%__splice8090380904%_ + (let ((_%__splice8113181132%_ (gx#syntax-split-splice _%tl6456964681%_ '0))) @@ -1268,16 +1268,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8090380904%_ + _%__splice8113181132%_ '1))) (_%target6457664704%_ (let () (declare (not safe)) (##vector-ref - _%__splice8090380904%_ + _%__splice8113181132%_ '0)))) (if (gx#stx-null? _%tl6457864707%_) - (_%__match8100781008%_ + (_%__match8123581236%_ _%e6456464664%_ _%hd6456564668%_ _%tl6456664671%_ @@ -1290,7 +1290,7 @@ _%e6457364694%_ _%hd6457464698%_ _%tl6457564701%_ - _%__splice8090380904%_ + _%__splice8113181132%_ _%target6457664704%_ _%tl6457864707%_) (if (gx#stx-pair? _%tl6456964681%_) @@ -1307,7 +1307,7 @@ (##car _%e6459364628%_)))) (if (gx#stx-null? _%tl6459564635%_) - (_%__match8102781028%_ + (_%__match8125581256%_ _%e6456464664%_ _%hd6456564668%_ _%tl6456664671%_ @@ -1335,7 +1335,7 @@ (declare (not safe)) (##car _%e6459364628%_)))) (if (gx#stx-null? _%tl6459564635%_) - (_%__match8102781028%_ + (_%__match8125581256%_ _%e6456464664%_ _%hd6456564668%_ _%tl6456664671%_ @@ -1363,7 +1363,7 @@ (declare (not safe)) (##car _%e6459364628%_)))) (if (gx#stx-null? _%tl6459564635%_) - (_%__match8102781028%_ + (_%__match8125581256%_ _%e6456464664%_ _%hd6456564668%_ _%tl6456664671%_ @@ -1379,7 +1379,7 @@ (let () (declare (not safe)) (_%g6450964601%_)))))) - (_%__match8097580976%_ + (_%__match8120381204%_ (lambda (_%e6454264776%_ _%hd6454364780%_ _%tl6454464783%_ @@ -1389,7 +1389,7 @@ _%e6454864796%_ _%hd6454964800%_ _%tl6455064803%_ - _%__splice8089980900%_ + _%__splice8112781128%_ _%target6455164806%_ _%tl6455364809%_) (letrec ((_%loop6455464812%_ @@ -1415,11 +1415,11 @@ (_%L64838%_ _%tl6455064803%_) (_%L64839%_ _%hd6454964800%_)) (if (gx#identifier? _%L64839%_) - (_%__kont8089780898%_ + (_%__kont8112581126%_ _%L64836%_ _%L64838%_ _%L64839%_) - (_%__match8099380994%_ + (_%__match8122181222%_ _%e6454264776%_ _%hd6454364780%_ _%tl6454464783%_ @@ -1430,7 +1430,7 @@ _%hd6454964800%_ _%tl6455064803%_)))))))) (_%loop6455464812%_ _%target6455164806%_ '())))) - (_%__match8096780968%_ + (_%__match8119581196%_ (lambda (_%e6454264776%_ _%hd6454364780%_ _%tl6454464783%_ @@ -1441,7 +1441,7 @@ _%hd6454964800%_ _%tl6455064803%_) (if (gx#stx-pair/null? _%tl6454764793%_) - (let ((_%__splice8089980900%_ + (let ((_%__splice8112781128%_ (gx#syntax-split-splice _%tl6454764793%_ '0))) @@ -1449,16 +1449,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8089980900%_ + _%__splice8112781128%_ '1))) (_%target6455164806%_ (let () (declare (not safe)) (##vector-ref - _%__splice8089980900%_ + _%__splice8112781128%_ '0)))) (if (gx#stx-null? _%tl6455364809%_) - (_%__match8097580976%_ + (_%__match8120381204%_ _%e6454264776%_ _%hd6454364780%_ _%tl6454464783%_ @@ -1468,7 +1468,7 @@ _%e6454864796%_ _%hd6454964800%_ _%tl6455064803%_ - _%__splice8089980900%_ + _%__splice8112781128%_ _%target6455164806%_ _%tl6455364809%_) (if (gx#stx-pair? _%hd6454964800%_) @@ -1496,7 +1496,7 @@ (##car _%e6459364628%_)))) (if (gx#stx-null? _%tl6459564635%_) - (_%__match8102781028%_ + (_%__match8125581256%_ _%e6454264776%_ _%hd6454364780%_ _%tl6454464783%_ @@ -1526,7 +1526,7 @@ (##car _%e6459364628%_)))) (if (gx#stx-null? _%tl6459564635%_) - (_%__match8102781028%_ + (_%__match8125581256%_ _%e6454264776%_ _%hd6454364780%_ _%tl6454464783%_ @@ -1565,7 +1565,7 @@ (declare (not safe)) (##car _%e6459364628%_)))) (if (gx#stx-null? _%tl6459564635%_) - (_%__match8102781028%_ + (_%__match8125581256%_ _%e6454264776%_ _%hd6454364780%_ _%tl6454464783%_ @@ -1593,7 +1593,7 @@ (declare (not safe)) (##car _%e6459364628%_)))) (if (gx#stx-null? _%tl6459564635%_) - (_%__match8102781028%_ + (_%__match8125581256%_ _%e6454264776%_ _%hd6454364780%_ _%tl6454464783%_ @@ -1609,7 +1609,7 @@ (let () (declare (not safe)) (_%g6450964601%_))))))) - (_%__match8094980950%_ + (_%__match8117781178%_ (lambda (_%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -1625,7 +1625,7 @@ _%e6452764922%_ _%hd6452864926%_ _%tl6452964929%_ - _%__splice8089580896%_ + _%__splice8112381124%_ _%target6453064932%_ _%tl6453264935%_) (letrec ((_%loop6453364938%_ @@ -1652,12 +1652,12 @@ (_%L64965%_ _%tl6452364909%_) (_%L64966%_ _%hd6452264906%_)) (if (gx#identifier? _%L64966%_) - (_%__kont8089380894%_ + (_%__kont8112181122%_ _%L64962%_ _%L64964%_ _%L64965%_ _%L64966%_) - (_%__match8096780968%_ + (_%__match8119581196%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -1668,8 +1668,8 @@ _%hd6452264906%_ _%tl6452364909%_)))))))) (_%loop6453364938%_ _%target6453064932%_ '()))))) - (if (gx#stx-pair? _%__stx8089080891%_) - (let ((_%e6451564882%_ (gx#syntax-e _%__stx8089080891%_))) + (if (gx#stx-pair? _%__stx8111881119%_) + (let ((_%e6451564882%_ (gx#syntax-e _%__stx8111881119%_))) (let ((_%tl6451764889%_ (let () (declare (not safe)) @@ -1715,7 +1715,7 @@ (if (gx#identifier? _%hd6452564916%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82743_| + |gerbil/core/contract~TypedDefinitions[1]#_g83017_| _%hd6452564916%_) (if (gx#stx-pair? _%tl6452664919%_) @@ -1731,7 +1731,7 @@ (declare (not safe)) (##car _%e6452764922%_)))) (if (gx#stx-pair/null? _%tl6452964929%_) - (let ((_%__splice8089580896%_ + (let ((_%__splice8112381124%_ (gx#syntax-split-splice _%tl6452964929%_ '0))) @@ -1739,16 +1739,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8089580896%_ + _%__splice8112381124%_ '1))) (_%target6453064932%_ (let () (declare (not safe)) (##vector-ref - _%__splice8089580896%_ + _%__splice8112381124%_ '0)))) (if (gx#stx-null? _%tl6453264935%_) - (_%__match8094980950%_ + (_%__match8117781178%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -1764,11 +1764,11 @@ _%e6452764922%_ _%hd6452864926%_ _%tl6452964929%_ - _%__splice8089580896%_ + _%__splice8112381124%_ _%target6453064932%_ _%tl6453264935%_) (if (gx#stx-pair/null? _%tl6452064899%_) - (let ((_%__splice8089980900%_ + (let ((_%__splice8112781128%_ (gx#syntax-split-splice _%tl6452064899%_ '0))) @@ -1776,16 +1776,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8089980900%_ + _%__splice8112781128%_ '1))) (_%target6455164806%_ (let () (declare (not safe)) (##vector-ref - _%__splice8089980900%_ + _%__splice8112781128%_ '0)))) (if (gx#stx-null? _%tl6455364809%_) - (_%__match8097580976%_ + (_%__match8120381204%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -1795,7 +1795,7 @@ _%e6452164902%_ _%hd6452264906%_ _%tl6452364909%_ - _%__splice8089980900%_ + _%__splice8112781128%_ _%target6455164806%_ _%tl6455364809%_) (if (gx#stx-pair? @@ -1835,7 +1835,7 @@ (declare (not safe)) (_%g6450964601%_))))))) (if (gx#stx-pair/null? _%tl6452064899%_) - (let ((_%__splice8089980900%_ + (let ((_%__splice8112781128%_ (gx#syntax-split-splice _%tl6452064899%_ '0))) @@ -1843,16 +1843,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8089980900%_ + _%__splice8112781128%_ '1))) (_%target6455164806%_ (let () (declare (not safe)) (##vector-ref - _%__splice8089980900%_ + _%__splice8112781128%_ '0)))) (if (gx#stx-null? _%tl6455364809%_) - (_%__match8097580976%_ + (_%__match8120381204%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -1862,7 +1862,7 @@ _%e6452164902%_ _%hd6452264906%_ _%tl6452364909%_ - _%__splice8089980900%_ + _%__splice8112781128%_ _%target6455164806%_ _%tl6455364809%_) (if (gx#stx-pair? _%hd6452264906%_) @@ -1901,18 +1901,18 @@ (declare (not safe)) (_%g6450964601%_))))))) (if (gx#stx-pair/null? _%tl6452064899%_) - (let ((_%__splice8089980900%_ + (let ((_%__splice8112781128%_ (gx#syntax-split-splice _%tl6452064899%_ '0))) (let ((_%tl6455364809%_ (let () (declare (not safe)) - (##vector-ref _%__splice8089980900%_ '1))) + (##vector-ref _%__splice8112781128%_ '1))) (_%target6455164806%_ (let () (declare (not safe)) - (##vector-ref _%__splice8089980900%_ '0)))) + (##vector-ref _%__splice8112781128%_ '0)))) (if (gx#stx-null? _%tl6455364809%_) - (_%__match8097580976%_ + (_%__match8120381204%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -1922,7 +1922,7 @@ _%e6452164902%_ _%hd6452264906%_ _%tl6452364909%_ - _%__splice8089980900%_ + _%__splice8112781128%_ _%target6455164806%_ _%tl6455364809%_) (if (gx#stx-pair? _%hd6452264906%_) @@ -1937,7 +1937,7 @@ (declare (not safe)) (##car _%e6457364694%_)))) (if (gx#stx-null? _%tl6452664919%_) - (_%__match8102781028%_ + (_%__match8125581256%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -1951,7 +1951,7 @@ (declare (not safe)) (_%g6450964601%_))))) (if (gx#stx-null? _%tl6452664919%_) - (_%__match8102781028%_ + (_%__match8125581256%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -1976,7 +1976,7 @@ (declare (not safe)) (##car _%e6457364694%_)))) (if (gx#stx-null? _%tl6452664919%_) - (_%__match8102781028%_ + (_%__match8125581256%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -1990,7 +1990,7 @@ (declare (not safe)) (_%g6450964601%_))))) (if (gx#stx-null? _%tl6452664919%_) - (_%__match8102781028%_ + (_%__match8125581256%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -2004,18 +2004,18 @@ (declare (not safe)) (_%g6450964601%_)))))) (if (gx#stx-pair/null? _%tl6452064899%_) - (let ((_%__splice8089980900%_ + (let ((_%__splice8112781128%_ (gx#syntax-split-splice _%tl6452064899%_ '0))) (let ((_%tl6455364809%_ (let () (declare (not safe)) - (##vector-ref _%__splice8089980900%_ '1))) + (##vector-ref _%__splice8112781128%_ '1))) (_%target6455164806%_ (let () (declare (not safe)) - (##vector-ref _%__splice8089980900%_ '0)))) + (##vector-ref _%__splice8112781128%_ '0)))) (if (gx#stx-null? _%tl6455364809%_) - (_%__match8097580976%_ + (_%__match8120381204%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -2025,7 +2025,7 @@ _%e6452164902%_ _%hd6452264906%_ _%tl6452364909%_ - _%__splice8089980900%_ + _%__splice8112781128%_ _%target6455164806%_ _%tl6455364809%_) (if (gx#stx-pair? _%hd6452264906%_) @@ -2040,7 +2040,7 @@ (declare (not safe)) (##car _%e6457364694%_)))) (if (gx#stx-null? _%tl6452664919%_) - (_%__match8102781028%_ + (_%__match8125581256%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -2054,7 +2054,7 @@ (declare (not safe)) (_%g6450964601%_))))) (if (gx#stx-null? _%tl6452664919%_) - (_%__match8102781028%_ + (_%__match8125581256%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -2078,7 +2078,7 @@ (declare (not safe)) (##car _%e6457364694%_)))) (if (gx#stx-null? _%tl6452664919%_) - (_%__match8102781028%_ + (_%__match8125581256%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -2092,7 +2092,7 @@ (declare (not safe)) (_%g6450964601%_))))) (if (gx#stx-null? _%tl6452664919%_) - (_%__match8102781028%_ + (_%__match8125581256%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -2106,7 +2106,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl6452064899%_) - (let ((_%__splice8089980900%_ + (let ((_%__splice8112781128%_ (gx#syntax-split-splice _%tl6452064899%_ '0))) @@ -2114,13 +2114,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice8089980900%_ '1))) + (##vector-ref _%__splice8112781128%_ '1))) (_%target6455164806%_ (let () (declare (not safe)) - (##vector-ref _%__splice8089980900%_ '0)))) + (##vector-ref _%__splice8112781128%_ '0)))) (if (gx#stx-null? _%tl6455364809%_) - (_%__match8097580976%_ + (_%__match8120381204%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -2130,7 +2130,7 @@ _%e6452164902%_ _%hd6452264906%_ _%tl6452364909%_ - _%__splice8089980900%_ + _%__splice8112781128%_ _%target6455164806%_ _%tl6455364809%_) (if (gx#stx-pair? _%hd6452264906%_) @@ -2145,7 +2145,7 @@ (declare (not safe)) (##car _%e6457364694%_)))) (if (gx#stx-null? _%tl6452664919%_) - (_%__match8102781028%_ + (_%__match8125581256%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -2159,7 +2159,7 @@ (declare (not safe)) (_%g6450964601%_))))) (if (gx#stx-null? _%tl6452664919%_) - (_%__match8102781028%_ + (_%__match8125581256%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -2183,7 +2183,7 @@ (declare (not safe)) (##car _%e6457364694%_)))) (if (gx#stx-null? _%tl6452664919%_) - (_%__match8102781028%_ + (_%__match8125581256%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -2195,7 +2195,7 @@ _%tl6452664919%_) (let () (declare (not safe)) (_%g6450964601%_))))) (if (gx#stx-null? _%tl6452664919%_) - (_%__match8102781028%_ + (_%__match8125581256%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -2209,7 +2209,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl6452064899%_) - (let ((_%__splice8089980900%_ + (let ((_%__splice8112781128%_ (gx#syntax-split-splice _%tl6452064899%_ '0))) @@ -2217,17 +2217,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8089980900%_ + _%__splice8112781128%_ '1))) (_%target6455164806%_ (let () (declare (not safe)) (##vector-ref - _%__splice8089980900%_ + _%__splice8112781128%_ '0)))) (if (gx#stx-null? _%tl6455364809%_) - (_%__match8097580976%_ + (_%__match8120381204%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -2237,7 +2237,7 @@ _%e6452164902%_ _%hd6452264906%_ _%tl6452364909%_ - _%__splice8089980900%_ + _%__splice8112781128%_ _%target6455164806%_ _%tl6455364809%_) (if (gx#stx-pair? @@ -2286,7 +2286,7 @@ (declare (not safe)) (##car _%e6459364628%_)))) (if (gx#stx-null? _%tl6459564635%_) - (_%__match8102781028%_ + (_%__match8125581256%_ _%e6451564882%_ _%hd6451664886%_ _%tl6451764889%_ @@ -2306,14 +2306,14 @@ (let () (declare (not safe)) (_%g6450964601%_))))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#with-procedure-signature| (lambda (_%stx65678%_) - (let* ((_%__stx8103081031%_ _%stx65678%_) + (let* ((_%__stx8125881259%_ _%stx65678%_) (_%g6568265745%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8103081031%_)))) - (let ((_%__kont8103381034%_ + _%__stx8125881259%_)))) + (let ((_%__kont8126181262%_ (lambda (_%L65996%_ _%L65998%_) (let* ((_%g6602366031%_ (lambda (_%g6602466027%_) @@ -2349,7 +2349,7 @@ (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| _%stx65678%_ _%L65998%_)))))) - (_%__kont8103781038%_ + (_%__kont8126581266%_ (lambda (_%L65832%_ _%L65834%_ _%L65835%_ _%L65836%_) (let* ((_%g6586265870%_ (lambda (_%g6586365866%_) @@ -2386,7 +2386,7 @@ _%L65836%_ _%L65835%_ _%L65834%_))))))) - (let* ((_%__match8113381134%_ + (let* ((_%__match8136181362%_ (lambda (_%e6571665752%_ _%hd6571765756%_ _%tl6571865759%_ @@ -2402,7 +2402,7 @@ _%e6572865792%_ _%hd6572965796%_ _%tl6573065799%_ - _%__splice8103981040%_ + _%__splice8126781268%_ _%target6573165802%_ _%tl6573365805%_) (letrec ((_%loop6573465808%_ @@ -2424,13 +2424,13 @@ _%body6573865815%_)))) (let ((_%body6573965828%_ (reverse _%body6573865815%_))) - (_%__kont8103781038%_ + (_%__kont8126581266%_ _%body6573965828%_ _%hd6572965796%_ _%hd6572665786%_ _%hd6572365776%_)))))) (_%loop6573465808%_ _%target6573165802%_ '())))) - (_%__match8109381094%_ + (_%__match8132181322%_ (lambda (_%e6568665908%_ _%hd6568765912%_ _%tl6568865915%_ @@ -2448,7 +2448,7 @@ _%hd6570065956%_ _%tl6570165959%_ _%e6570265962%_ - _%__splice8103581036%_ + _%__splice8126381264%_ _%target6570365966%_ _%tl6570565969%_) (letrec ((_%loop6570665972%_ @@ -2470,12 +2470,12 @@ _%body6571065979%_)))) (let ((_%body6571165992%_ (reverse _%body6571065979%_))) - (_%__kont8103381034%_ + (_%__kont8126181262%_ _%body6571165992%_ _%hd6569765946%_)))))) (_%loop6570665972%_ _%target6570365966%_ '()))))) - (if (gx#stx-pair? _%__stx8103081031%_) - (let ((_%e6568665908%_ (gx#syntax-e _%__stx8103081031%_))) + (if (gx#stx-pair? _%__stx8125881259%_) + (let ((_%e6568665908%_ (gx#syntax-e _%__stx8125881259%_))) (let ((_%tl6568865915%_ (let () (declare (not safe)) @@ -2539,7 +2539,7 @@ (if (equal? _%e6570265962%_ '#f) (if (gx#stx-null? _%tl6570165959%_) (if (gx#stx-pair/null? _%tl6569165925%_) - (let ((_%__splice8103581036%_ + (let ((_%__splice8126381264%_ (gx#syntax-split-splice _%tl6569165925%_ '0))) @@ -2547,17 +2547,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8103581036%_ + _%__splice8126381264%_ '1))) (_%target6570365966%_ (let () (declare (not safe)) (##vector-ref - _%__splice8103581036%_ + _%__splice8126381264%_ '0)))) (if (gx#stx-null? _%tl6570565969%_) - (_%__match8109381094%_ + (_%__match8132181322%_ _%e6568665908%_ _%hd6568765912%_ _%tl6568865915%_ @@ -2575,7 +2575,7 @@ _%hd6570065956%_ _%tl6570165959%_ _%e6570265962%_ - _%__splice8103581036%_ + _%__splice8126381264%_ _%target6570365966%_ _%tl6570565969%_) (let () @@ -2589,7 +2589,7 @@ (_%g6568265745%_))) (if (gx#stx-null? _%tl6570165959%_) (if (gx#stx-pair/null? _%tl6569165925%_) - (let ((_%__splice8103981040%_ + (let ((_%__splice8126781268%_ (gx#syntax-split-splice _%tl6569165925%_ '0))) @@ -2597,17 +2597,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8103981040%_ + _%__splice8126781268%_ '1))) (_%target6573165802%_ (let () (declare (not safe)) (##vector-ref - _%__splice8103981040%_ + _%__splice8126781268%_ '0)))) (if (gx#stx-null? _%tl6573365805%_) - (_%__match8113381134%_ + (_%__match8136181362%_ _%e6568665908%_ _%hd6568765912%_ _%tl6568865915%_ @@ -2623,7 +2623,7 @@ _%e6569965952%_ _%hd6570065956%_ _%tl6570165959%_ - _%__splice8103981040%_ + _%__splice8126781268%_ _%target6573165802%_ _%tl6573365805%_) (let () @@ -2637,7 +2637,7 @@ (_%g6568265745%_))))) (if (gx#stx-null? _%tl6570165959%_) (if (gx#stx-pair/null? _%tl6569165925%_) - (let ((_%__splice8103981040%_ + (let ((_%__splice8126781268%_ (gx#syntax-split-splice _%tl6569165925%_ '0))) @@ -2645,16 +2645,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8103981040%_ + _%__splice8126781268%_ '1))) (_%target6573165802%_ (let () (declare (not safe)) (##vector-ref - _%__splice8103981040%_ + _%__splice8126781268%_ '0)))) (if (gx#stx-null? _%tl6573365805%_) - (_%__match8113381134%_ + (_%__match8136181362%_ _%e6568665908%_ _%hd6568765912%_ _%tl6568865915%_ @@ -2670,7 +2670,7 @@ _%e6569965952%_ _%hd6570065956%_ _%tl6570165959%_ - _%__splice8103981040%_ + _%__splice8126781268%_ _%target6573165802%_ _%tl6573365805%_) (let () @@ -2712,7 +2712,7 @@ (##car _%e6572865792%_)))) (if (gx#stx-null? _%tl6573065799%_) (if (gx#stx-pair/null? _%tl6569165925%_) - (let ((_%__splice8103981040%_ + (let ((_%__splice8126781268%_ (gx#syntax-split-splice _%tl6569165925%_ '0))) @@ -2720,16 +2720,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8103981040%_ + _%__splice8126781268%_ '1))) (_%target6573165802%_ (let () (declare (not safe)) (##vector-ref - _%__splice8103981040%_ + _%__splice8126781268%_ '0)))) (if (gx#stx-null? _%tl6573365805%_) - (_%__match8113381134%_ + (_%__match8136181362%_ _%e6568665908%_ _%hd6568765912%_ _%tl6568865915%_ @@ -2745,7 +2745,7 @@ _%e6572865792%_ _%hd6572965796%_ _%tl6573065799%_ - _%__splice8103981040%_ + _%__splice8126781268%_ _%target6573165802%_ _%tl6573365805%_) (let () @@ -2786,20 +2786,20 @@ (let () (declare (not safe)) (##car _%e6572865792%_)))) (if (gx#stx-null? _%tl6573065799%_) (if (gx#stx-pair/null? _%tl6569165925%_) - (let ((_%__splice8103981040%_ + (let ((_%__splice8126781268%_ (gx#syntax-split-splice _%tl6569165925%_ '0))) (let ((_%tl6573365805%_ (let () (declare (not safe)) - (##vector-ref _%__splice8103981040%_ '1))) + (##vector-ref _%__splice8126781268%_ '1))) (_%target6573165802%_ (let () (declare (not safe)) (##vector-ref - _%__splice8103981040%_ + _%__splice8126781268%_ '0)))) (if (gx#stx-null? _%tl6573365805%_) - (_%__match8113381134%_ + (_%__match8136181362%_ _%e6568665908%_ _%hd6568765912%_ _%tl6568865915%_ @@ -2815,7 +2815,7 @@ _%e6572865792%_ _%hd6572965796%_ _%tl6573065799%_ - _%__splice8103981040%_ + _%__splice8126781268%_ _%target6573165802%_ _%tl6573365805%_) (let () @@ -2865,31 +2865,31 @@ (declare (not safe)) (##cdr _%e6607866112%_)))) (if (gx#stx-pair/null? _%tl6608066119%_) - (let ((_g82744_ + (let ((_g83018_ (gx#syntax-split-splice _%tl6608066119%_ '0))) (begin - (let ((_g82745_ + (let ((_g83019_ (let () (declare (not safe)) - (if (##values? _g82744_) + (if (##values? _g83018_) (##vector-length - _g82744_) + _g83018_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82745_ 2))) + (##fx= _g83019_ 2))) (error "Context expects 2 values" - _g82745_))) + _g83019_))) (let ((_%target6608166122%_ (let () (declare (not safe)) - (##vector-ref _g82744_ 0))) + (##vector-ref _g83018_ 0))) (_%tl6608366125%_ (let () (declare (not safe)) - (##vector-ref _g82744_ 1)))) + (##vector-ref _g83018_ 1)))) (if (gx#stx-null? _%tl6608366125%_) (letrec ((_%loop6608466128%_ (lambda (_%hd6608266132%_ @@ -2981,31 +2981,31 @@ (declare (not safe)) (##cdr _%e6622666260%_)))) (if (gx#stx-pair/null? _%tl6622866267%_) - (let ((_g82746_ + (let ((_g83020_ (gx#syntax-split-splice _%tl6622866267%_ '0))) (begin - (let ((_g82747_ + (let ((_g83021_ (let () (declare (not safe)) - (if (##values? _g82746_) + (if (##values? _g83020_) (##vector-length - _g82746_) + _g83020_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82747_ 2))) + (##fx= _g83021_ 2))) (error "Context expects 2 values" - _g82747_))) + _g83021_))) (let ((_%target6622966270%_ (let () (declare (not safe)) - (##vector-ref _g82746_ 0))) + (##vector-ref _g83020_ 0))) (_%tl6623166273%_ (let () (declare (not safe)) - (##vector-ref _g82746_ 1)))) + (##vector-ref _g83020_ 1)))) (if (gx#stx-null? _%tl6623166273%_) (letrec ((_%loop6623266276%_ (lambda (_%hd6623066280%_ @@ -3129,28 +3129,28 @@ (declare (not safe)) (##cdr _%e6665566709%_)))) (if (gx#stx-pair/null? _%hd6665666713%_) - (let ((_g82748_ + (let ((_g83022_ (gx#syntax-split-splice _%hd6665666713%_ '0))) (begin - (let ((_g82749_ + (let ((_g83023_ (let () (declare (not safe)) - (if (##values? _g82748_) - (##vector-length _g82748_) + (if (##values? _g83022_) + (##vector-length _g83022_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82749_ 2))) + (##fx= _g83023_ 2))) (error "Context expects 2 values" - _g82749_))) + _g83023_))) (let ((_%target6665866719%_ (let () (declare (not safe)) - (##vector-ref _g82748_ 0))) + (##vector-ref _g83022_ 0))) (_%tl6666066722%_ (let () (declare (not safe)) - (##vector-ref _g82748_ 1)))) + (##vector-ref _g83022_ 1)))) (if (gx#stx-null? _%tl6666066722%_) (letrec ((_%loop6666166725%_ (lambda (_%hd6665966729%_ @@ -3231,14 +3231,14 @@ _%signature66635%_ _%return66637%_ _%body66638%_)))))) - (let* ((_%__stx8113681137%_ _%stx66364%_) + (let* ((_%__stx8136481365%_ _%stx66364%_) (_%g6637166419%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8113681137%_)))) - (let ((_%__kont8113981140%_ + _%__stx8136481365%_)))) + (let ((_%__kont8136781368%_ (lambda (_%L66590%_ _%L66592%_ _%L66593%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| _%L66593%_) @@ -3264,7 +3264,7 @@ _%L66590%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont8114381144%_ + (_%__kont8137181372%_ (lambda (_%L66476%_ _%L66478%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| _%L66478%_) @@ -3287,14 +3287,14 @@ _%g6650566510%_)) '() _%L66476%_))))))) - (let* ((_%__match8120381204%_ + (let* ((_%__match8143181432%_ (lambda (_%e6639966426%_ _%hd6640066430%_ _%tl6640166433%_ _%e6640266436%_ _%hd6640366440%_ _%tl6640466443%_ - _%__splice8114581146%_ + _%__splice8137381374%_ _%target6640566446%_ _%tl6640766449%_) (letrec ((_%loop6640866452%_ @@ -3316,11 +3316,11 @@ _%body6641266459%_)))) (let ((_%body6641366472%_ (reverse _%body6641266459%_))) - (_%__kont8114381144%_ + (_%__kont8137181372%_ _%body6641366472%_ _%hd6640366440%_)))))) (_%loop6640866452%_ _%target6640566446%_ '())))) - (_%__match8118381184%_ + (_%__match8141181412%_ (lambda (_%e6637666520%_ _%hd6637766524%_ _%tl6637866527%_ @@ -3333,7 +3333,7 @@ _%e6638566550%_ _%hd6638666554%_ _%tl6638766557%_ - _%__splice8114181142%_ + _%__splice8136981370%_ _%target6638866560%_ _%tl6639066563%_) (letrec ((_%loop6639166566%_ @@ -3355,13 +3355,13 @@ _%body6639566573%_)))) (let ((_%body6639666586%_ (reverse _%body6639566573%_))) - (_%__kont8113981140%_ + (_%__kont8136781368%_ _%body6639666586%_ _%hd6638666554%_ _%hd6638066534%_)))))) (_%loop6639166566%_ _%target6638866560%_ '()))))) - (if (gx#stx-pair? _%__stx8113681137%_) - (let ((_%e6637666520%_ (gx#syntax-e _%__stx8113681137%_))) + (if (gx#stx-pair? _%__stx8136481365%_) + (let ((_%e6637666520%_ (gx#syntax-e _%__stx8136481365%_))) (let ((_%tl6637866527%_ (let () (declare (not safe)) @@ -3394,7 +3394,7 @@ (##car _%e6638266540%_)))) (if (gx#identifier? _%hd6638366544%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82750_| + |gerbil/core/contract~TypedDefinitions[1]#_g83024_| _%hd6638366544%_) (if (gx#stx-pair? _%tl6638466547%_) @@ -3410,18 +3410,18 @@ (_%hd6638666554%_ (let () (declare (not safe)) (##car _%e6638566550%_)))) (if (gx#stx-pair/null? _%tl6638766557%_) - (let ((_%__splice8114181142%_ + (let ((_%__splice8136981370%_ (gx#syntax-split-splice _%tl6638766557%_ '0))) (let ((_%tl6639066563%_ (let () (declare (not safe)) - (##vector-ref _%__splice8114181142%_ '1))) + (##vector-ref _%__splice8136981370%_ '1))) (_%target6638866560%_ (let () (declare (not safe)) - (##vector-ref _%__splice8114181142%_ '0)))) + (##vector-ref _%__splice8136981370%_ '0)))) (if (gx#stx-null? _%tl6639066563%_) - (_%__match8118381184%_ + (_%__match8141181412%_ _%e6637666520%_ _%hd6637766524%_ _%tl6637866527%_ @@ -3434,11 +3434,11 @@ _%e6638566550%_ _%hd6638666554%_ _%tl6638766557%_ - _%__splice8114181142%_ + _%__splice8136981370%_ _%target6638866560%_ _%tl6639066563%_) (if (gx#stx-pair/null? _%tl6638166537%_) - (let ((_%__splice8114581146%_ + (let ((_%__splice8137381374%_ (gx#syntax-split-splice _%tl6638166537%_ '0))) @@ -3446,23 +3446,23 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8114581146%_ + _%__splice8137381374%_ '1))) (_%target6640566446%_ (let () (declare (not safe)) (##vector-ref - _%__splice8114581146%_ + _%__splice8137381374%_ '0)))) (if (gx#stx-null? _%tl6640766449%_) - (_%__match8120381204%_ + (_%__match8143181432%_ _%e6637666520%_ _%hd6637766524%_ _%tl6637866527%_ _%e6637966530%_ _%hd6638066534%_ _%tl6638166537%_ - _%__splice8114581146%_ + _%__splice8137381374%_ _%target6640566446%_ _%tl6640766449%_) (let () @@ -3472,25 +3472,25 @@ (declare (not safe)) (_%g6637166419%_)))))) (if (gx#stx-pair/null? _%tl6638166537%_) - (let ((_%__splice8114581146%_ + (let ((_%__splice8137381374%_ (gx#syntax-split-splice _%tl6638166537%_ '0))) (let ((_%tl6640766449%_ (let () (declare (not safe)) - (##vector-ref _%__splice8114581146%_ '1))) + (##vector-ref _%__splice8137381374%_ '1))) (_%target6640566446%_ (let () (declare (not safe)) - (##vector-ref _%__splice8114581146%_ '0)))) + (##vector-ref _%__splice8137381374%_ '0)))) (if (gx#stx-null? _%tl6640766449%_) - (_%__match8120381204%_ + (_%__match8143181432%_ _%e6637666520%_ _%hd6637766524%_ _%tl6637866527%_ _%e6637966530%_ _%hd6638066534%_ _%tl6638166537%_ - _%__splice8114581146%_ + _%__splice8137381374%_ _%target6640566446%_ _%tl6640766449%_) (let () @@ -3500,7 +3500,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl6638166537%_) - (let ((_%__splice8114581146%_ + (let ((_%__splice8137381374%_ (gx#syntax-split-splice _%tl6638166537%_ '0))) @@ -3508,20 +3508,20 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice8114581146%_ '1))) + (##vector-ref _%__splice8137381374%_ '1))) (_%target6640566446%_ (let () (declare (not safe)) - (##vector-ref _%__splice8114581146%_ '0)))) + (##vector-ref _%__splice8137381374%_ '0)))) (if (gx#stx-null? _%tl6640766449%_) - (_%__match8120381204%_ + (_%__match8143181432%_ _%e6637666520%_ _%hd6637766524%_ _%tl6637866527%_ _%e6637966530%_ _%hd6638066534%_ _%tl6638166537%_ - _%__splice8114581146%_ + _%__splice8137381374%_ _%target6640566446%_ _%tl6640766449%_) (let () (declare (not safe)) (_%g6637166419%_))))) @@ -3529,7 +3529,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl6638166537%_) - (let ((_%__splice8114581146%_ + (let ((_%__splice8137381374%_ (gx#syntax-split-splice _%tl6638166537%_ '0))) @@ -3538,20 +3538,20 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice8114581146%_ '1))) + (##vector-ref _%__splice8137381374%_ '1))) (_%target6640566446%_ (let () (declare (not safe)) - (##vector-ref _%__splice8114581146%_ '0)))) + (##vector-ref _%__splice8137381374%_ '0)))) (if (gx#stx-null? _%tl6640766449%_) - (_%__match8120381204%_ + (_%__match8143181432%_ _%e6637666520%_ _%hd6637766524%_ _%tl6637866527%_ _%e6637966530%_ _%hd6638066534%_ _%tl6638166537%_ - _%__splice8114581146%_ + _%__splice8137381374%_ _%target6640566446%_ _%tl6640766449%_) (let () (declare (not safe)) (_%g6637166419%_))))) @@ -3561,7 +3561,7 @@ (_%g6637166419%_)))) (if (gx#stx-pair/null? _%tl6638166537%_) - (let ((_%__splice8114581146%_ + (let ((_%__splice8137381374%_ (gx#syntax-split-splice _%tl6638166537%_ '0))) @@ -3569,24 +3569,24 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8114581146%_ + _%__splice8137381374%_ '1))) (_%target6640566446%_ (let () (declare (not safe)) (##vector-ref - _%__splice8114581146%_ + _%__splice8137381374%_ '0)))) (if (gx#stx-null? _%tl6640766449%_) - (_%__match8120381204%_ + (_%__match8143181432%_ _%e6637666520%_ _%hd6637766524%_ _%tl6637866527%_ _%e6637966530%_ _%hd6638066534%_ _%tl6638166537%_ - _%__splice8114581146%_ + _%__splice8137381374%_ _%target6640566446%_ _%tl6640766449%_) (let () @@ -3596,7 +3596,7 @@ (declare (not safe)) (_%g6637166419%_)))))) (if (gx#stx-pair/null? _%tl6638166537%_) - (let ((_%__splice8114581146%_ + (let ((_%__splice8137381374%_ (gx#syntax-split-splice _%tl6638166537%_ '0))) @@ -3604,23 +3604,23 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8114581146%_ + _%__splice8137381374%_ '1))) (_%target6640566446%_ (let () (declare (not safe)) (##vector-ref - _%__splice8114581146%_ + _%__splice8137381374%_ '0)))) (if (gx#stx-null? _%tl6640766449%_) - (_%__match8120381204%_ + (_%__match8143181432%_ _%e6637666520%_ _%hd6637766524%_ _%tl6637866527%_ _%e6637966530%_ _%hd6638066534%_ _%tl6638166537%_ - _%__splice8114581146%_ + _%__splice8137381374%_ _%target6640566446%_ _%tl6640766449%_) (let () @@ -3663,31 +3663,31 @@ (declare (not safe)) (##cdr _%e6680566839%_)))) (if (gx#stx-pair/null? _%tl6680766846%_) - (let ((_g82751_ + (let ((_g83025_ (gx#syntax-split-splice _%tl6680766846%_ '0))) (begin - (let ((_g82752_ + (let ((_g83026_ (let () (declare (not safe)) - (if (##values? _g82751_) + (if (##values? _g83025_) (##vector-length - _g82751_) + _g83025_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82752_ 2))) + (##fx= _g83026_ 2))) (error "Context expects 2 values" - _g82752_))) + _g83026_))) (let ((_%target6680866849%_ (let () (declare (not safe)) - (##vector-ref _g82751_ 0))) + (##vector-ref _g83025_ 0))) (_%tl6681066852%_ (let () (declare (not safe)) - (##vector-ref _g82751_ 1)))) + (##vector-ref _g83025_ 1)))) (if (gx#stx-null? _%tl6681066852%_) (letrec ((_%loop6681166855%_ (lambda (_%hd6680966859%_ @@ -3738,24 +3738,24 @@ (lambda (_%stx66912%_) (letrec ((_%is-clause-signature?66915%_ (lambda (_%clause67449%_) - (let* ((_%__stx8120681207%_ _%clause67449%_) + (let* ((_%__stx8143481435%_ _%clause67449%_) (_%g6745367495%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8120681207%_)))) - (let ((_%__kont8120981210%_ + _%__stx8143481435%_)))) + (let ((_%__kont8143781438%_ (lambda (_%L67627%_ _%L67629%_ _%L67630%_) '#t)) - (_%__kont8121381214%_ + (_%__kont8144181442%_ (lambda (_%L67542%_ _%L67544%_) (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| _%L67544%_)))) - (let* ((_%__match8126181262%_ + (let* ((_%__match8148981490%_ (lambda (_%e6747867502%_ _%hd6747967506%_ _%tl6748067509%_ - _%__splice8121581216%_ + _%__splice8144381444%_ _%target6748167512%_ _%tl6748367515%_) (letrec ((_%loop6748467518%_ @@ -3782,13 +3782,13 @@ _%body6748867525%_)))) (let ((_%body6748967538%_ (reverse _%body6748867525%_))) - (_%__kont8121381214%_ + (_%__kont8144181442%_ _%body6748967538%_ _%hd6747967506%_)))))) (_%loop6748467518%_ _%target6748167512%_ '())))) - (_%__match8124781248%_ + (_%__match8147581476%_ (lambda (_%e6745867567%_ _%hd6745967571%_ _%tl6746067574%_ @@ -3798,7 +3798,7 @@ _%e6746467587%_ _%hd6746567591%_ _%tl6746667594%_ - _%__splice8121181212%_ + _%__splice8143981440%_ _%target6746767597%_ _%tl6746967600%_) (letrec ((_%loop6747067603%_ @@ -3825,16 +3825,16 @@ _%body6747467610%_)))) (let ((_%body6747567623%_ (reverse _%body6747467610%_))) - (_%__kont8120981210%_ + (_%__kont8143781438%_ _%body6747567623%_ _%hd6746567591%_ _%hd6745967571%_)))))) (_%loop6747067603%_ _%target6746767597%_ '()))))) - (if (gx#stx-pair? _%__stx8120681207%_) + (if (gx#stx-pair? _%__stx8143481435%_) (let ((_%e6745867567%_ - (gx#syntax-e _%__stx8120681207%_))) + (gx#syntax-e _%__stx8143481435%_))) (let ((_%tl6746067574%_ (let () (declare (not safe)) @@ -3856,7 +3856,7 @@ (##car _%e6746167577%_)))) (if (gx#identifier? _%hd6746267581%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82753_| + |gerbil/core/contract~TypedDefinitions[1]#_g83027_| _%hd6746267581%_) (if (gx#stx-pair? _%tl6746367584%_) @@ -3871,18 +3871,18 @@ (_%hd6746567591%_ (let () (declare (not safe)) (##car _%e6746467587%_)))) (if (gx#stx-pair/null? _%tl6746667594%_) - (let ((_%__splice8121181212%_ + (let ((_%__splice8143981440%_ (gx#syntax-split-splice _%tl6746667594%_ '0))) (let ((_%tl6746967600%_ (let () (declare (not safe)) - (##vector-ref _%__splice8121181212%_ '1))) + (##vector-ref _%__splice8143981440%_ '1))) (_%target6746767597%_ (let () (declare (not safe)) - (##vector-ref _%__splice8121181212%_ '0)))) + (##vector-ref _%__splice8143981440%_ '0)))) (if (gx#stx-null? _%tl6746967600%_) - (_%__match8124781248%_ + (_%__match8147581476%_ _%e6745867567%_ _%hd6745967571%_ _%tl6746067574%_ @@ -3892,11 +3892,11 @@ _%e6746467587%_ _%hd6746567591%_ _%tl6746667594%_ - _%__splice8121181212%_ + _%__splice8143981440%_ _%target6746767597%_ _%tl6746967600%_) (if (gx#stx-pair/null? _%tl6746067574%_) - (let ((_%__splice8121581216%_ + (let ((_%__splice8144381444%_ (gx#syntax-split-splice _%tl6746067574%_ '0))) @@ -3904,20 +3904,20 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8121581216%_ + _%__splice8144381444%_ '1))) (_%target6748167512%_ (let () (declare (not safe)) (##vector-ref - _%__splice8121581216%_ + _%__splice8144381444%_ '0)))) (if (gx#stx-null? _%tl6748367515%_) - (_%__match8126181262%_ + (_%__match8148981490%_ _%e6745867567%_ _%hd6745967571%_ _%tl6746067574%_ - _%__splice8121581216%_ + _%__splice8144381444%_ _%target6748167512%_ _%tl6748367515%_) (let () @@ -3927,24 +3927,24 @@ (declare (not safe)) (_%g6745367495%_)))))) (if (gx#stx-pair/null? _%tl6746067574%_) - (let ((_%__splice8121581216%_ + (let ((_%__splice8144381444%_ (gx#syntax-split-splice _%tl6746067574%_ '0))) (let ((_%tl6748367515%_ (let () (declare (not safe)) - (##vector-ref _%__splice8121581216%_ '1))) + (##vector-ref _%__splice8144381444%_ '1))) (_%target6748167512%_ (let () (declare (not safe)) (##vector-ref - _%__splice8121581216%_ + _%__splice8144381444%_ '0)))) (if (gx#stx-null? _%tl6748367515%_) - (_%__match8126181262%_ + (_%__match8148981490%_ _%e6745867567%_ _%hd6745967571%_ _%tl6746067574%_ - _%__splice8121581216%_ + _%__splice8144381444%_ _%target6748167512%_ _%tl6748367515%_) (let () @@ -3952,22 +3952,22 @@ (_%g6745367495%_))))) (let () (declare (not safe)) (_%g6745367495%_)))))) (if (gx#stx-pair/null? _%tl6746067574%_) - (let ((_%__splice8121581216%_ + (let ((_%__splice8144381444%_ (gx#syntax-split-splice _%tl6746067574%_ '0))) (let ((_%tl6748367515%_ (let () (declare (not safe)) - (##vector-ref _%__splice8121581216%_ '1))) + (##vector-ref _%__splice8144381444%_ '1))) (_%target6748167512%_ (let () (declare (not safe)) - (##vector-ref _%__splice8121581216%_ '0)))) + (##vector-ref _%__splice8144381444%_ '0)))) (if (gx#stx-null? _%tl6748367515%_) - (_%__match8126181262%_ + (_%__match8148981490%_ _%e6745867567%_ _%hd6745967571%_ _%tl6746067574%_ - _%__splice8121581216%_ + _%__splice8144381444%_ _%target6748167512%_ _%tl6748367515%_) (let () (declare (not safe)) (_%g6745367495%_))))) @@ -3975,7 +3975,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl6746067574%_) - (let ((_%__splice8121581216%_ + (let ((_%__splice8144381444%_ (gx#syntax-split-splice _%tl6746067574%_ '0))) @@ -3983,17 +3983,17 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8121581216%_ '1))) + (##vector-ref _%__splice8144381444%_ '1))) (_%target6748167512%_ (let () (declare (not safe)) - (##vector-ref _%__splice8121581216%_ '0)))) + (##vector-ref _%__splice8144381444%_ '0)))) (if (gx#stx-null? _%tl6748367515%_) - (_%__match8126181262%_ + (_%__match8148981490%_ _%e6745867567%_ _%hd6745967571%_ _%tl6746067574%_ - _%__splice8121581216%_ + _%__splice8144381444%_ _%target6748167512%_ _%tl6748367515%_) (let () (declare (not safe)) (_%g6745367495%_))))) @@ -4001,7 +4001,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl6746067574%_) - (let ((_%__splice8121581216%_ + (let ((_%__splice8144381444%_ (gx#syntax-split-splice _%tl6746067574%_ '0))) @@ -4010,22 +4010,22 @@ (declare (not safe)) (##vector-ref - _%__splice8121581216%_ + _%__splice8144381444%_ '1))) (_%target6748167512%_ (let () (declare (not safe)) (##vector-ref - _%__splice8121581216%_ + _%__splice8144381444%_ '0)))) (if (gx#stx-null? _%tl6748367515%_) - (_%__match8126181262%_ + (_%__match8148981490%_ _%e6745867567%_ _%hd6745967571%_ _%tl6746067574%_ - _%__splice8121581216%_ + _%__splice8144381444%_ _%target6748167512%_ _%tl6748367515%_) (let () @@ -4036,7 +4036,7 @@ (declare (not safe)) (_%g6745367495%_)))))) (if (gx#stx-pair/null? _%tl6746067574%_) - (let ((_%__splice8121581216%_ + (let ((_%__splice8144381444%_ (gx#syntax-split-splice _%tl6746067574%_ '0))) @@ -4044,21 +4044,21 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8121581216%_ + _%__splice8144381444%_ '1))) (_%target6748167512%_ (let () (declare (not safe)) (##vector-ref - _%__splice8121581216%_ + _%__splice8144381444%_ '0)))) (if (gx#stx-null? _%tl6748367515%_) - (_%__match8126181262%_ + (_%__match8148981490%_ _%e6745867567%_ _%hd6745967571%_ _%tl6746067574%_ - _%__splice8121581216%_ + _%__splice8144381444%_ _%target6748167512%_ _%tl6748367515%_) (let () @@ -4072,14 +4072,14 @@ (_%g6745367495%_)))))))) (_%clause-e66917%_ (lambda (_%clause67189%_) - (let* ((_%__stx8126481265%_ _%clause67189%_) + (let* ((_%__stx8149281493%_ _%clause67189%_) (_%g6719367235%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8126481265%_)))) - (let ((_%__kont8126781268%_ + _%__stx8149281493%_)))) + (let ((_%__kont8149581496%_ (lambda (_%L67375%_ _%L67377%_ _%L67378%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| _%L67378%_) @@ -4142,7 +4142,7 @@ _%L67375%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont8127181272%_ + (_%__kont8149981500%_ (lambda (_%L67282%_ _%L67284%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| _%L67284%_) @@ -4160,11 +4160,11 @@ _%L67282%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _%clause67189%_)))) - (let* ((_%__match8131981320%_ + (let* ((_%__match8154781548%_ (lambda (_%e6721867242%_ _%hd6721967246%_ _%tl6722067249%_ - _%__splice8127381274%_ + _%__splice8150181502%_ _%target6722167252%_ _%tl6722367255%_) (letrec ((_%loop6722467258%_ @@ -4191,13 +4191,13 @@ _%body6722867265%_)))) (let ((_%body6722967278%_ (reverse _%body6722867265%_))) - (_%__kont8127181272%_ + (_%__kont8149981500%_ _%body6722967278%_ _%hd6721967246%_)))))) (_%loop6722467258%_ _%target6722167252%_ '())))) - (_%__match8130581306%_ + (_%__match8153381534%_ (lambda (_%e6719867315%_ _%hd6719967319%_ _%tl6720067322%_ @@ -4207,7 +4207,7 @@ _%e6720467335%_ _%hd6720567339%_ _%tl6720667342%_ - _%__splice8126981270%_ + _%__splice8149781498%_ _%target6720767345%_ _%tl6720967348%_) (letrec ((_%loop6721067351%_ @@ -4234,16 +4234,16 @@ _%body6721467358%_)))) (let ((_%body6721567371%_ (reverse _%body6721467358%_))) - (_%__kont8126781268%_ + (_%__kont8149581496%_ _%body6721567371%_ _%hd6720567339%_ _%hd6719967319%_)))))) (_%loop6721067351%_ _%target6720767345%_ '()))))) - (if (gx#stx-pair? _%__stx8126481265%_) + (if (gx#stx-pair? _%__stx8149281493%_) (let ((_%e6719867315%_ - (gx#syntax-e _%__stx8126481265%_))) + (gx#syntax-e _%__stx8149281493%_))) (let ((_%tl6720067322%_ (let () (declare (not safe)) @@ -4265,7 +4265,7 @@ (##car _%e6720167325%_)))) (if (gx#identifier? _%hd6720267329%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82754_| + |gerbil/core/contract~TypedDefinitions[1]#_g83028_| _%hd6720267329%_) (if (gx#stx-pair? _%tl6720367332%_) @@ -4280,18 +4280,18 @@ (_%hd6720567339%_ (let () (declare (not safe)) (##car _%e6720467335%_)))) (if (gx#stx-pair/null? _%tl6720667342%_) - (let ((_%__splice8126981270%_ + (let ((_%__splice8149781498%_ (gx#syntax-split-splice _%tl6720667342%_ '0))) (let ((_%tl6720967348%_ (let () (declare (not safe)) - (##vector-ref _%__splice8126981270%_ '1))) + (##vector-ref _%__splice8149781498%_ '1))) (_%target6720767345%_ (let () (declare (not safe)) - (##vector-ref _%__splice8126981270%_ '0)))) + (##vector-ref _%__splice8149781498%_ '0)))) (if (gx#stx-null? _%tl6720967348%_) - (_%__match8130581306%_ + (_%__match8153381534%_ _%e6719867315%_ _%hd6719967319%_ _%tl6720067322%_ @@ -4301,11 +4301,11 @@ _%e6720467335%_ _%hd6720567339%_ _%tl6720667342%_ - _%__splice8126981270%_ + _%__splice8149781498%_ _%target6720767345%_ _%tl6720967348%_) (if (gx#stx-pair/null? _%tl6720067322%_) - (let ((_%__splice8127381274%_ + (let ((_%__splice8150181502%_ (gx#syntax-split-splice _%tl6720067322%_ '0))) @@ -4313,20 +4313,20 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8127381274%_ + _%__splice8150181502%_ '1))) (_%target6722167252%_ (let () (declare (not safe)) (##vector-ref - _%__splice8127381274%_ + _%__splice8150181502%_ '0)))) (if (gx#stx-null? _%tl6722367255%_) - (_%__match8131981320%_ + (_%__match8154781548%_ _%e6719867315%_ _%hd6719967319%_ _%tl6720067322%_ - _%__splice8127381274%_ + _%__splice8150181502%_ _%target6722167252%_ _%tl6722367255%_) (let () @@ -4336,24 +4336,24 @@ (declare (not safe)) (_%g6719367235%_)))))) (if (gx#stx-pair/null? _%tl6720067322%_) - (let ((_%__splice8127381274%_ + (let ((_%__splice8150181502%_ (gx#syntax-split-splice _%tl6720067322%_ '0))) (let ((_%tl6722367255%_ (let () (declare (not safe)) - (##vector-ref _%__splice8127381274%_ '1))) + (##vector-ref _%__splice8150181502%_ '1))) (_%target6722167252%_ (let () (declare (not safe)) (##vector-ref - _%__splice8127381274%_ + _%__splice8150181502%_ '0)))) (if (gx#stx-null? _%tl6722367255%_) - (_%__match8131981320%_ + (_%__match8154781548%_ _%e6719867315%_ _%hd6719967319%_ _%tl6720067322%_ - _%__splice8127381274%_ + _%__splice8150181502%_ _%target6722167252%_ _%tl6722367255%_) (let () @@ -4361,22 +4361,22 @@ (_%g6719367235%_))))) (let () (declare (not safe)) (_%g6719367235%_)))))) (if (gx#stx-pair/null? _%tl6720067322%_) - (let ((_%__splice8127381274%_ + (let ((_%__splice8150181502%_ (gx#syntax-split-splice _%tl6720067322%_ '0))) (let ((_%tl6722367255%_ (let () (declare (not safe)) - (##vector-ref _%__splice8127381274%_ '1))) + (##vector-ref _%__splice8150181502%_ '1))) (_%target6722167252%_ (let () (declare (not safe)) - (##vector-ref _%__splice8127381274%_ '0)))) + (##vector-ref _%__splice8150181502%_ '0)))) (if (gx#stx-null? _%tl6722367255%_) - (_%__match8131981320%_ + (_%__match8154781548%_ _%e6719867315%_ _%hd6719967319%_ _%tl6720067322%_ - _%__splice8127381274%_ + _%__splice8150181502%_ _%target6722167252%_ _%tl6722367255%_) (let () (declare (not safe)) (_%g6719367235%_))))) @@ -4384,7 +4384,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl6720067322%_) - (let ((_%__splice8127381274%_ + (let ((_%__splice8150181502%_ (gx#syntax-split-splice _%tl6720067322%_ '0))) @@ -4392,17 +4392,17 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8127381274%_ '1))) + (##vector-ref _%__splice8150181502%_ '1))) (_%target6722167252%_ (let () (declare (not safe)) - (##vector-ref _%__splice8127381274%_ '0)))) + (##vector-ref _%__splice8150181502%_ '0)))) (if (gx#stx-null? _%tl6722367255%_) - (_%__match8131981320%_ + (_%__match8154781548%_ _%e6719867315%_ _%hd6719967319%_ _%tl6720067322%_ - _%__splice8127381274%_ + _%__splice8150181502%_ _%target6722167252%_ _%tl6722367255%_) (let () (declare (not safe)) (_%g6719367235%_))))) @@ -4410,7 +4410,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%tl6720067322%_) - (let ((_%__splice8127381274%_ + (let ((_%__splice8150181502%_ (gx#syntax-split-splice _%tl6720067322%_ '0))) @@ -4419,22 +4419,22 @@ (declare (not safe)) (##vector-ref - _%__splice8127381274%_ + _%__splice8150181502%_ '1))) (_%target6722167252%_ (let () (declare (not safe)) (##vector-ref - _%__splice8127381274%_ + _%__splice8150181502%_ '0)))) (if (gx#stx-null? _%tl6722367255%_) - (_%__match8131981320%_ + (_%__match8154781548%_ _%e6719867315%_ _%hd6719967319%_ _%tl6720067322%_ - _%__splice8127381274%_ + _%__splice8150181502%_ _%target6722167252%_ _%tl6722367255%_) (let () @@ -4445,7 +4445,7 @@ (declare (not safe)) (_%g6719367235%_)))))) (if (gx#stx-pair/null? _%tl6720067322%_) - (let ((_%__splice8127381274%_ + (let ((_%__splice8150181502%_ (gx#syntax-split-splice _%tl6720067322%_ '0))) @@ -4453,21 +4453,21 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8127381274%_ + _%__splice8150181502%_ '1))) (_%target6722167252%_ (let () (declare (not safe)) (##vector-ref - _%__splice8127381274%_ + _%__splice8150181502%_ '0)))) (if (gx#stx-null? _%tl6722367255%_) - (_%__match8131981320%_ + (_%__match8154781548%_ _%e6719867315%_ _%hd6719967319%_ _%tl6720067322%_ - _%__splice8127381274%_ + _%__splice8150181502%_ _%target6722167252%_ _%tl6722367255%_) (let () @@ -4479,14 +4479,14 @@ (let () (declare (not safe)) (_%g6719367235%_))))))))) - (let* ((_%__stx8132281323%_ _%stx66912%_) + (let* ((_%__stx8155081551%_ _%stx66912%_) (_%g6692066953%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8132281323%_)))) - (let ((_%__kont8132581326%_ + _%__stx8155081551%_)))) + (let ((_%__kont8155381554%_ (lambda (_%L67072%_) (let* ((_%g6709567112%_ (lambda (_%g6709667108%_) @@ -4497,30 +4497,30 @@ (_%g6709467173%_ (lambda (_%g6709667116%_) (if (gx#stx-pair/null? _%g6709667116%_) - (let ((_g82755_ + (let ((_g83029_ (gx#syntax-split-splice _%g6709667116%_ '0))) (begin - (let ((_g82756_ + (let ((_g83030_ (let () (declare (not safe)) - (if (##values? _g82755_) - (##vector-length _g82755_) + (if (##values? _g83029_) + (##vector-length _g83029_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82756_ 2))) + (##fx= _g83030_ 2))) (error "Context expects 2 values" - _g82756_))) + _g83030_))) (let ((_%target6709867119%_ (let () (declare (not safe)) - (##vector-ref _g82755_ 0))) + (##vector-ref _g83029_ 0))) (_%tl6710067122%_ (let () (declare (not safe)) - (##vector-ref _g82755_ 1)))) + (##vector-ref _g83029_ 1)))) (if (gx#stx-null? _%tl6710067122%_) (letrec ((_%loop6710167125%_ (lambda (_%hd6709967129%_ @@ -4565,18 +4565,18 @@ (cons _%g6717667179%_ _%g6717767182%_)) '() _%L67072%_)))))) - (_%__kont8132981330%_ + (_%__kont8155781558%_ (lambda (_%L67000%_) (cons (gx#datum->syntax '#f 'case-lambda) (foldr (lambda (_%g6701667019%_ _%g6701767022%_) (cons _%g6701667019%_ _%g6701767022%_)) '() _%L67000%_))))) - (let* ((_%__match8136181362%_ + (let* ((_%__match8158981590%_ (lambda (_%e6693666960%_ _%hd6693766964%_ _%tl6693866967%_ - _%__splice8133181332%_ + _%__splice8155981560%_ _%target6693966970%_ _%tl6694166973%_) (letrec ((_%loop6694266976%_ @@ -4599,14 +4599,14 @@ _%clause6694666983%_)))) (let ((_%clause6694766996%_ (reverse _%clause6694666983%_))) - (_%__kont8132981330%_ + (_%__kont8155781558%_ _%clause6694766996%_)))))) (_%loop6694266976%_ _%target6693966970%_ '())))) - (_%__match8134781348%_ + (_%__match8157581576%_ (lambda (_%e6692367032%_ _%hd6692467036%_ _%tl6692567039%_ - _%__splice8132781328%_ + _%__splice8155581556%_ _%target6692667042%_ _%tl6692867045%_) (letrec ((_%loop6692967048%_ @@ -4639,17 +4639,17 @@ '() _%L67072%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8132581326%_ _%L67072%_) - (_%__match8136181362%_ + (_%__kont8155381554%_ _%L67072%_) + (_%__match8158981590%_ _%e6692367032%_ _%hd6692467036%_ _%tl6692567039%_ - _%__splice8132781328%_ + _%__splice8155581556%_ _%target6692667042%_ _%tl6692867045%_))))))) (_%loop6692967048%_ _%target6692667042%_ '()))))) - (if (gx#stx-pair? _%__stx8132281323%_) - (let ((_%e6692367032%_ (gx#syntax-e _%__stx8132281323%_))) + (if (gx#stx-pair? _%__stx8155081551%_) + (let ((_%e6692367032%_ (gx#syntax-e _%__stx8155081551%_))) (let ((_%tl6692567039%_ (let () (declare (not safe)) @@ -4659,7 +4659,7 @@ (declare (not safe)) (##car _%e6692367032%_)))) (if (gx#stx-pair/null? _%tl6692567039%_) - (let ((_%__splice8132781328%_ + (let ((_%__splice8155581556%_ (gx#syntax-split-splice _%tl6692567039%_ '0))) @@ -4667,20 +4667,20 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8132781328%_ + _%__splice8155581556%_ '1))) (_%target6692667042%_ (let () (declare (not safe)) (##vector-ref - _%__splice8132781328%_ + _%__splice8155581556%_ '0)))) (if (gx#stx-null? _%tl6692867045%_) - (_%__match8134781348%_ + (_%__match8157581576%_ _%e6692367032%_ _%hd6692467036%_ _%tl6692567039%_ - _%__splice8132781328%_ + _%__splice8155581556%_ _%target6692667042%_ _%tl6692867045%_) (let () @@ -4690,14 +4690,14 @@ (let () (declare (not safe)) (_%g6692066953%_))))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#@method| (lambda (_%stx67661%_) - (let* ((_%__stx8136481365%_ _%stx67661%_) + (let* ((_%__stx8159281593%_ _%stx67661%_) (_%g6766567710%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8136481365%_)))) - (let ((_%__kont8136781368%_ + _%__stx8159281593%_)))) + (let ((_%__kont8159581596%_ (lambda (_%L67866%_ _%L67868%_) (let* ((_%str67885%_ (symbol->string (gx#stx-e _%L67868%_))) (_%ix67888%_ (string-rindex _%str67885%_ '#\.)) @@ -4761,14 +4761,14 @@ (list (gx#stx-identifier _%L67868%_ (substring _%str67885%_ '0 _%ix67888%_)) - (let ((__tmp82757 + (let ((__tmp83031 (substring _%str67885%_ (fx1+ _%ix67888%_) (string-length _%str67885%_)))) (declare (not safe)) - (##string->symbol __tmp82757))))))) - (_%__kont8137181372%_ + (##string->symbol __tmp83031))))))) + (_%__kont8159981600%_ (lambda (_%L67777%_ _%L67779%_ _%L67780%_) (cons (gx#datum->syntax '#f 'call-method) (cons _%L67779%_ @@ -4780,7 +4780,7 @@ _%g6780167806%_)) '() _%L67777%_))))))) - (let* ((_%__match8142181422%_ + (let* ((_%__match8164981650%_ (lambda (_%e6768767717%_ _%hd6768867721%_ _%tl6768967724%_ @@ -4790,7 +4790,7 @@ _%e6769367737%_ _%hd6769467741%_ _%tl6769567744%_ - _%__splice8137381374%_ + _%__splice8160181602%_ _%target6769667747%_ _%tl6769867750%_) (letrec ((_%loop6769967753%_ @@ -4812,12 +4812,12 @@ _%arg6770367760%_)))) (let ((_%arg6770467773%_ (reverse _%arg6770367760%_))) - (_%__kont8137181372%_ + (_%__kont8159981600%_ _%arg6770467773%_ _%hd6769467741%_ _%hd6769167731%_)))))) (_%loop6769967753%_ _%target6769667747%_ '())))) - (_%__match8140781408%_ + (_%__match8163581636%_ (lambda (_%e6768767717%_ _%hd6768867721%_ _%tl6768967724%_ @@ -4836,7 +4836,7 @@ (declare (not safe)) (##car _%e6769367737%_)))) (if (gx#stx-pair/null? _%tl6769567744%_) - (let ((_%__splice8137381374%_ + (let ((_%__splice8160181602%_ (gx#syntax-split-splice _%tl6769567744%_ '0))) @@ -4844,16 +4844,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8137381374%_ + _%__splice8160181602%_ '1))) (_%target6769667747%_ (let () (declare (not safe)) (##vector-ref - _%__splice8137381374%_ + _%__splice8160181602%_ '0)))) (if (gx#stx-null? _%tl6769867750%_) - (_%__match8142181422%_ + (_%__match8164981650%_ _%e6768767717%_ _%hd6768867721%_ _%tl6768967724%_ @@ -4863,7 +4863,7 @@ _%e6769367737%_ _%hd6769467741%_ _%tl6769567744%_ - _%__splice8137381374%_ + _%__splice8160181602%_ _%target6769667747%_ _%tl6769867750%_) (let () @@ -4873,14 +4873,14 @@ (declare (not safe)) (_%g6766567710%_))))) (let () (declare (not safe)) (_%g6766567710%_))))) - (_%__match8139581396%_ + (_%__match8162381624%_ (lambda (_%e6766967816%_ _%hd6767067820%_ _%tl6767167823%_ _%e6767267826%_ _%hd6767367830%_ _%tl6767467833%_ - _%__splice8136981370%_ + _%__splice8159781598%_ _%target6767567836%_ _%tl6767767839%_) (letrec ((_%loop6767867842%_ @@ -4908,10 +4908,10 @@ (declare (not safe)) (|gerbil/core/contract~Using[1]#dotted-identifier?| _%L67868%_)) - (_%__kont8136781368%_ + (_%__kont8159581596%_ _%L67866%_ _%L67868%_) - (_%__match8140781408%_ + (_%__match8163581636%_ _%e6766967816%_ _%hd6767067820%_ _%tl6767167823%_ @@ -4919,8 +4919,8 @@ _%hd6767367830%_ _%tl6767467833%_)))))))) (_%loop6767867842%_ _%target6767567836%_ '()))))) - (if (gx#stx-pair? _%__stx8136481365%_) - (let ((_%e6766967816%_ (gx#syntax-e _%__stx8136481365%_))) + (if (gx#stx-pair? _%__stx8159281593%_) + (let ((_%e6766967816%_ (gx#syntax-e _%__stx8159281593%_))) (let ((_%tl6767167823%_ (let () (declare (not safe)) @@ -4941,7 +4941,7 @@ (declare (not safe)) (##car _%e6767267826%_)))) (if (gx#stx-pair/null? _%tl6767467833%_) - (let ((_%__splice8136981370%_ + (let ((_%__splice8159781598%_ (gx#syntax-split-splice _%tl6767467833%_ '0))) @@ -4949,23 +4949,23 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8136981370%_ + _%__splice8159781598%_ '1))) (_%target6767567836%_ (let () (declare (not safe)) (##vector-ref - _%__splice8136981370%_ + _%__splice8159781598%_ '0)))) (if (gx#stx-null? _%tl6767767839%_) - (_%__match8139581396%_ + (_%__match8162381624%_ _%e6766967816%_ _%hd6767067820%_ _%tl6767167823%_ _%e6767267826%_ _%hd6767367830%_ _%tl6767467833%_ - _%__splice8136981370%_ + _%__splice8159781598%_ _%target6767567836%_ _%tl6767767839%_) (if (gx#stx-pair? _%tl6767467833%_) @@ -4982,7 +4982,7 @@ (##car _%e6769367737%_)))) (if (gx#stx-pair/null? _%tl6769567744%_) - (let ((_%__splice8137381374%_ + (let ((_%__splice8160181602%_ (gx#syntax-split-splice _%tl6769567744%_ '0))) @@ -4990,13 +4990,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8137381374%_ '1))) + (##vector-ref _%__splice8160181602%_ '1))) (_%target6769667747%_ (let () (declare (not safe)) - (##vector-ref _%__splice8137381374%_ '0)))) + (##vector-ref _%__splice8160181602%_ '0)))) (if (gx#stx-null? _%tl6769867750%_) - (_%__match8142181422%_ + (_%__match8164981650%_ _%e6766967816%_ _%hd6767067820%_ _%tl6767167823%_ @@ -5006,7 +5006,7 @@ _%e6769367737%_ _%hd6769467741%_ _%tl6769567744%_ - _%__splice8137381374%_ + _%__splice8160181602%_ _%target6769667747%_ _%tl6769867750%_) (let () (declare (not safe)) (_%g6766567710%_))))) @@ -5028,7 +5028,7 @@ (##car _%e6769367737%_)))) (if (gx#stx-pair/null? _%tl6769567744%_) - (let ((_%__splice8137381374%_ + (let ((_%__splice8160181602%_ (gx#syntax-split-splice _%tl6769567744%_ '0))) @@ -5036,17 +5036,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8137381374%_ + _%__splice8160181602%_ '1))) (_%target6769667747%_ (let () (declare (not safe)) (##vector-ref - _%__splice8137381374%_ + _%__splice8160181602%_ '0)))) (if (gx#stx-null? _%tl6769867750%_) - (_%__match8142181422%_ + (_%__match8164981650%_ _%e6766967816%_ _%hd6767067820%_ _%tl6767167823%_ @@ -5056,7 +5056,7 @@ _%e6769367737%_ _%hd6769467741%_ _%tl6769567744%_ - _%__splice8137381374%_ + _%__splice8160181602%_ _%target6769667747%_ _%tl6769867750%_) (let () @@ -5072,14 +5072,14 @@ (let () (declare (not safe)) (_%g6766567710%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defmethod/c| (lambda (_%stx67974%_) - (let* ((_%__stx8142481425%_ _%stx67974%_) + (let* ((_%__stx8165281653%_ _%stx67974%_) (_%g6797968104%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8142481425%_)))) - (let ((_%__kont8142781428%_ + _%__stx8165281653%_)))) + (let ((_%__kont8165581656%_ (lambda (_%L68673%_ _%L68675%_ _%L68676%_ @@ -5149,7 +5149,7 @@ (gx#stx-source _%stx67974%_))))) _%g6871768728%_)))) (_%g6871568785%_ (gx#genident _%L68677%_))))) - (_%__kont8143181432%_ + (_%__kont8165981660%_ (lambda (_%L68352%_ _%L68354%_ _%L68355%_ @@ -5166,30 +5166,30 @@ (_%g6839868534%_ (lambda (_%g6840068420%_) (if (gx#stx-pair/null? _%g6840068420%_) - (let ((_g82758_ + (let ((_g83032_ (gx#syntax-split-splice _%g6840068420%_ '0))) (begin - (let ((_g82759_ + (let ((_g83033_ (let () (declare (not safe)) - (if (##values? _g82758_) - (##vector-length _g82758_) + (if (##values? _g83032_) + (##vector-length _g83032_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82759_ 2))) + (##fx= _g83033_ 2))) (error "Context expects 2 values" - _g82759_))) + _g83033_))) (let ((_%target6840268423%_ (let () (declare (not safe)) - (##vector-ref _g82758_ 0))) + (##vector-ref _g83032_ 0))) (_%tl6840468426%_ (let () (declare (not safe)) - (##vector-ref _g82758_ 1)))) + (##vector-ref _g83032_ 1)))) (if (gx#stx-null? _%tl6840468426%_) (letrec ((_%loop6840568429%_ (lambda (_%hd6840368433%_ @@ -5305,7 +5305,7 @@ (cons _%g6853768540%_ _%g6853868543%_)) '() _%L68356%_)))))) - (_%__kont8143581436%_ + (_%__kont8166381664%_ (lambda (_%L68161%_ _%L68163%_ _%L68164%_ _%L68165%_) (cons (gx#datum->syntax '#f 'defmethod) (cons (cons (gx#datum->syntax '#f '@method~) @@ -5314,7 +5314,7 @@ (let* ((_%g6797868187%_ (lambda () (let ((_%e6808468111%_ - (gx#syntax-e _%__stx8142481425%_))) + (gx#syntax-e _%__stx8165281653%_))) (let ((_%tl6808668118%_ (let () (declare (not safe)) @@ -5370,7 +5370,7 @@ (_%hd6809768155%_ (let () (declare (not safe)) (##car _%e6809668151%_)))) (if (gx#stx-null? _%tl6809868158%_) - (_%__kont8143581436%_ + (_%__kont8166381664%_ _%tl6808968128%_ _%hd6809768155%_ _%hd6809468145%_ @@ -5387,7 +5387,7 @@ (let () (declare (not safe)) (_%g6797968104%_))))))) - (_%__match8156181562%_ + (_%__match8178981790%_ (lambda (_%e6803168194%_ _%hd6803268198%_ _%tl6803368201%_ @@ -5409,7 +5409,7 @@ _%e6804968254%_ _%hd6805068258%_ _%tl6805168261%_ - _%__splice8143381434%_ + _%__splice8166181662%_ _%target6805268264%_ _%tl6805468267%_) (letrec ((_%loop6805568270%_ @@ -5454,27 +5454,27 @@ (_%hd6806968308%_ (let () (declare (not safe)) (##car _%e6806868304%_)))) (if (gx#stx-pair/null? _%tl6806768301%_) - (let ((_g82760_ + (let ((_g83034_ (gx#syntax-split-splice _%tl6806768301%_ '0))) (begin - (let ((_g82761_ + (let ((_g83035_ (let () (declare (not safe)) - (if (##values? _g82760_) - (##vector-length _g82760_) + (if (##values? _g83034_) + (##vector-length _g83034_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82761_ 2))) - (error "Context expects 2 values" _g82761_))) + (##fx= _g83035_ 2))) + (error "Context expects 2 values" _g83035_))) (let ((_%target6807168314%_ (let () (declare (not safe)) - (##vector-ref _g82760_ 0))) + (##vector-ref _g83034_ 0))) (_%tl6807368317%_ (let () (declare (not safe)) - (##vector-ref _g82760_ 1)))) + (##vector-ref _g83034_ 1)))) (if (gx#stx-null? _%tl6807368317%_) (letrec ((_%loop6807468320%_ (lambda (_%hd6807268324%_ @@ -5511,18 +5511,18 @@ (let () (declare (not safe)) (_%g6797868187%_)))))) - (_%__kont8143581436%_ + (_%__kont8166381664%_ _%tl6803668211%_ _%hd6804468238%_ _%hd6804168228%_ _%hd6803868218%_)))) - (_%__kont8143581436%_ + (_%__kont8166381664%_ _%tl6803668211%_ _%hd6804468238%_ _%hd6804168228%_ _%hd6803868218%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8143581436%_ + (_%__kont8166381664%_ _%tl6803668211%_ _%hd6804468238%_ _%hd6804168228%_ @@ -5549,7 +5549,7 @@ _%L68356%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#identifier? _%L68358%_)) - (_%__kont8143181432%_ + (_%__kont8165981660%_ _%L68352%_ _%L68354%_ _%L68355%_ @@ -5557,7 +5557,7 @@ _%L68357%_ _%L68358%_ _%L68359%_) - (_%__kont8143581436%_ + (_%__kont8166381664%_ _%tl6803668211%_ _%hd6804468238%_ _%hd6804168228%_ @@ -5567,7 +5567,7 @@ '() '() '())))) - (_%__match8150581506%_ + (_%__match8173381734%_ (lambda (_%e6798868553%_ _%hd6798968557%_ _%tl6799068560%_ @@ -5595,7 +5595,7 @@ _%e6801268633%_ _%hd6801368637%_ _%tl6801468640%_ - _%__splice8142981430%_ + _%__splice8165781658%_ _%target6801568643%_ _%tl6801768646%_) (letrec ((_%loop6801868649%_ @@ -5626,7 +5626,7 @@ (_%L68680%_ _%hd6799568577%_)) (if (and (gx#identifier? _%L68677%_) (gx#identifier? _%L68679%_)) - (_%__kont8142781428%_ + (_%__kont8165581656%_ _%L68673%_ _%L68675%_ _%L68676%_ @@ -5634,14 +5634,14 @@ _%L68678%_ _%L68679%_ _%L68680%_) - (_%__kont8143581436%_ + (_%__kont8166381664%_ _%tl6799368570%_ _%hd6800168597%_ _%hd6799868587%_ _%hd6799568577%_)))))))) (_%loop6801868649%_ _%target6801568643%_ '()))))) - (if (gx#stx-pair? _%__stx8142481425%_) - (let ((_%e6798868553%_ (gx#syntax-e _%__stx8142481425%_))) + (if (gx#stx-pair? _%__stx8165281653%_) + (let ((_%e6798868553%_ (gx#syntax-e _%__stx8165281653%_))) (let ((_%tl6799068560%_ (let () (declare (not safe)) @@ -5727,7 +5727,7 @@ (##car _%e6800668613%_)))) (if (gx#identifier? _%hd6800768617%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82762_| + |gerbil/core/contract~TypedDefinitions[1]#_g83036_| _%hd6800768617%_) (if (gx#stx-pair? _%tl6800868620%_) (let ((_%e6800968623%_ @@ -5754,18 +5754,18 @@ (_%hd6801368637%_ (let () (declare (not safe)) (##car _%e6801268633%_)))) (if (gx#stx-pair/null? _%tl6801168630%_) - (let ((_%__splice8142981430%_ + (let ((_%__splice8165781658%_ (gx#syntax-split-splice _%tl6801168630%_ '0))) (let ((_%tl6801768646%_ (let () (declare (not safe)) - (##vector-ref _%__splice8142981430%_ '1))) + (##vector-ref _%__splice8165781658%_ '1))) (_%target6801568643%_ (let () (declare (not safe)) - (##vector-ref _%__splice8142981430%_ '0)))) + (##vector-ref _%__splice8165781658%_ '0)))) (if (gx#stx-null? _%tl6801768646%_) - (_%__match8150581506%_ + (_%__match8173381734%_ _%e6798868553%_ _%hd6798968557%_ _%tl6799068560%_ @@ -5793,36 +5793,36 @@ _%e6801268633%_ _%hd6801368637%_ _%tl6801468640%_ - _%__splice8142981430%_ + _%__splice8165781658%_ _%target6801568643%_ _%tl6801768646%_) - (_%__kont8143581436%_ + (_%__kont8166381664%_ _%tl6799368570%_ _%hd6800168597%_ _%hd6799868587%_ _%hd6799568577%_)))) - (_%__kont8143581436%_ + (_%__kont8166381664%_ _%tl6799368570%_ _%hd6800168597%_ _%hd6799868587%_ _%hd6799568577%_)))) - (_%__kont8143581436%_ + (_%__kont8166381664%_ _%tl6799368570%_ _%hd6800168597%_ _%hd6799868587%_ _%hd6799568577%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8143581436%_ + (_%__kont8166381664%_ _%tl6799368570%_ _%hd6800168597%_ _%hd6799868587%_ _%hd6799568577%_)) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82763_| + |gerbil/core/contract~TypedDefinitions[1]#_g83037_| _%hd6800768617%_) (if (gx#stx-pair/null? _%tl6800868620%_) - (let ((_%__splice8143381434%_ + (let ((_%__splice8166181662%_ (gx#syntax-split-splice _%tl6800868620%_ '0))) @@ -5831,18 +5831,18 @@ (declare (not safe)) (##vector-ref - _%__splice8143381434%_ + _%__splice8166181662%_ '1))) (_%target6805268264%_ (let () (declare (not safe)) (##vector-ref - _%__splice8143381434%_ + _%__splice8166181662%_ '0)))) (if (gx#stx-null? _%tl6805468267%_) - (_%__match8156181562%_ + (_%__match8178981790%_ _%e6798868553%_ _%hd6798968557%_ _%tl6799068560%_ @@ -5864,35 +5864,35 @@ _%e6800668613%_ _%hd6800768617%_ _%tl6800868620%_ - _%__splice8143381434%_ + _%__splice8166181662%_ _%target6805268264%_ _%tl6805468267%_) - (_%__kont8143581436%_ + (_%__kont8166381664%_ _%tl6799368570%_ _%hd6800168597%_ _%hd6799868587%_ _%hd6799568577%_)))) - (_%__kont8143581436%_ + (_%__kont8166381664%_ _%tl6799368570%_ _%hd6800168597%_ _%hd6799868587%_ _%hd6799568577%_)) - (_%__kont8143581436%_ + (_%__kont8166381664%_ _%tl6799368570%_ _%hd6800168597%_ _%hd6799868587%_ _%hd6799568577%_))) - (_%__kont8143581436%_ + (_%__kont8166381664%_ _%tl6799368570%_ _%hd6800168597%_ _%hd6799868587%_ _%hd6799568577%_)))) - (_%__kont8143581436%_ + (_%__kont8166381664%_ _%tl6799368570%_ _%hd6800168597%_ _%hd6799868587%_ _%hd6799568577%_)))) - (_%__kont8143581436%_ + (_%__kont8166381664%_ _%tl6799368570%_ _%hd6800168597%_ _%hd6799868587%_ @@ -5985,14 +5985,14 @@ (_%g6879968904%_ _%stx68797%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#let/c| (lambda (_%stx68908%_) - (let* ((_%__stx8160481605%_ _%stx68908%_) + (let* ((_%__stx8183281833%_ _%stx68908%_) (_%g6891369009%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8160481605%_)))) - (let ((_%__kont8160781608%_ + _%__stx8183281833%_)))) + (let ((_%__kont8183581836%_ (lambda (_%L69356%_ _%L69358%_ _%L69359%_ @@ -6040,7 +6040,7 @@ '() _%L69356%_))))) (gx#stx-source _%stx68908%_)))))) - (_%__kont8161381614%_ + (_%__kont8184181842%_ (lambda (_%L69159%_ _%L69161%_ _%L69162%_ _%L69163%_) (cons (gx#datum->syntax '#f 'let/c) (cons _%L69163%_ @@ -6069,10 +6069,10 @@ '() _%L69159%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8161981620%_ + (_%__kont8184781848%_ (lambda (_%L69026%_) (cons (gx#datum->syntax '#f 'let) _%L69026%_)))) - (let* ((_%__match8167381674%_ + (let* ((_%__match8190181902%_ (lambda (_%e6896569045%_ _%hd6896669049%_ _%tl6896769052%_ @@ -6082,7 +6082,7 @@ _%e6897169065%_ _%hd6897269069%_ _%tl6897369072%_ - _%__splice8161581616%_ + _%__splice8184381844%_ _%target6897469075%_ _%tl6897669078%_) (letrec ((_%loop6897769081%_ @@ -6130,10 +6130,10 @@ _%lp-tl6898069100%_ (cons _%hd6899869117%_ _%init6898169088%_) (cons _%hd6899569107%_ _%var6898269090%_)) - (_%__kont8161981620%_ _%tl6896769052%_)))) - (_%__kont8161981620%_ _%tl6896769052%_)))) + (_%__kont8184781848%_ _%tl6896769052%_)))) + (_%__kont8184781848%_ _%tl6896769052%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8161981620%_ + (_%__kont8184781848%_ _%tl6896769052%_)))) (let ((_%var6898469126%_ (reverse _%var6898269090%_)) @@ -6141,7 +6141,7 @@ (reverse _%init6898169088%_))) (if (gx#stx-pair/null? _%tl6897369072%_) - (let ((_%__splice8161781618%_ + (let ((_%__splice8184581846%_ (gx#syntax-split-splice _%tl6897369072%_ '0))) @@ -6149,13 +6149,13 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8161781618%_ + _%__splice8184581846%_ '1))) (_%target6898569129%_ (let () (declare (not safe)) (##vector-ref - _%__splice8161781618%_ + _%__splice8184581846%_ '0)))) (if (gx#stx-null? _%tl6898769132%_) @@ -6192,21 +6192,21 @@ _%g6918869193%_)) '() _%L69162%_))) - (_%__kont8161381614%_ + (_%__kont8184181842%_ _%L69159%_ _%L69161%_ _%L69162%_ _%L69163%_) - (_%__kont8161981620%_ + (_%__kont8184781848%_ _%tl6896769052%_)))))))) (_%loop6898869135%_ _%target6898569129%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8161981620%_ + (_%__kont8184781848%_ _%tl6896769052%_)))) - (_%__kont8161981620%_ + (_%__kont8184781848%_ _%tl6896769052%_))))))) (_%loop6897769081%_ _%target6897469075%_ '() '())))) - (_%__match8164781648%_ + (_%__match8187581876%_ (lambda (_%e6892069222%_ _%hd6892169226%_ _%tl6892269229%_ @@ -6216,7 +6216,7 @@ _%e6892669242%_ _%hd6892769246%_ _%tl6892869249%_ - _%__splice8160981610%_ + _%__splice8183781838%_ _%target6892969252%_ _%tl6893169255%_) (letrec ((_%loop6893269258%_ @@ -6264,7 +6264,7 @@ _%lp-tl6893569277%_ (cons _%hd6895969294%_ _%init6893669265%_) (cons _%hd6895669284%_ _%var6893769267%_)) - (_%__match8167381674%_ + (_%__match8190181902%_ _%e6892069222%_ _%hd6892169226%_ _%tl6892269229%_ @@ -6274,10 +6274,10 @@ _%e6892669242%_ _%hd6892769246%_ _%tl6892869249%_ - _%__splice8160981610%_ + _%__splice8183781838%_ _%target6892969252%_ _%tl6893169255%_)))) - (_%__match8167381674%_ + (_%__match8190181902%_ _%e6892069222%_ _%hd6892169226%_ _%tl6892269229%_ @@ -6287,11 +6287,11 @@ _%e6892669242%_ _%hd6892769246%_ _%tl6892869249%_ - _%__splice8160981610%_ + _%__splice8183781838%_ _%target6892969252%_ _%tl6893169255%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8167381674%_ + (_%__match8190181902%_ _%e6892069222%_ _%hd6892169226%_ _%tl6892269229%_ @@ -6301,7 +6301,7 @@ _%e6892669242%_ _%hd6892769246%_ _%tl6892869249%_ - _%__splice8160981610%_ + _%__splice8183781838%_ _%target6892969252%_ _%tl6893169255%_)))) (let ((_%var6893969303%_ @@ -6323,7 +6323,7 @@ (if (gx#identifier? _%hd6894169310%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82764_| + |gerbil/core/contract~TypedDefinitions[1]#_g83038_| _%hd6894169310%_) (if (gx#stx-pair? _%tl6894269313%_) @@ -6339,7 +6339,7 @@ (declare (not safe)) (##car _%e6894369316%_)))) (if (gx#stx-pair/null? _%tl6894569323%_) - (let ((_%__splice8161181612%_ + (let ((_%__splice8183981840%_ (gx#syntax-split-splice _%tl6894569323%_ '0))) @@ -6347,13 +6347,13 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8161181612%_ + _%__splice8183981840%_ '1))) (_%target6894669326%_ (let () (declare (not safe)) (##vector-ref - _%__splice8161181612%_ + _%__splice8183981840%_ '0)))) (if (gx#stx-null? _%tl6894869329%_) (letrec ((_%loop6894969332%_ @@ -6390,13 +6390,13 @@ _%hd6892469236%_)) (if (gx#identifier? _%L69361%_) - (_%__kont8160781608%_ + (_%__kont8183581836%_ _%L69356%_ _%L69358%_ _%L69359%_ _%L69360%_ _%L69361%_) - (_%__match8167381674%_ + (_%__match8190181902%_ _%e6892069222%_ _%hd6892169226%_ _%tl6892269229%_ @@ -6406,13 +6406,13 @@ _%e6892669242%_ _%hd6892769246%_ _%tl6892869249%_ - _%__splice8160981610%_ + _%__splice8183781838%_ _%target6892969252%_ _%tl6893169255%_)))))))) (_%loop6894969332%_ _%target6894669326%_ '())) - (_%__match8167381674%_ + (_%__match8190181902%_ _%e6892069222%_ _%hd6892169226%_ _%tl6892269229%_ @@ -6422,10 +6422,10 @@ _%e6892669242%_ _%hd6892769246%_ _%tl6892869249%_ - _%__splice8160981610%_ + _%__splice8183781838%_ _%target6892969252%_ _%tl6893169255%_)))) - (_%__match8167381674%_ + (_%__match8190181902%_ _%e6892069222%_ _%hd6892169226%_ _%tl6892269229%_ @@ -6435,10 +6435,10 @@ _%e6892669242%_ _%hd6892769246%_ _%tl6892869249%_ - _%__splice8160981610%_ + _%__splice8183781838%_ _%target6892969252%_ _%tl6893169255%_)))) - (_%__match8167381674%_ + (_%__match8190181902%_ _%e6892069222%_ _%hd6892169226%_ _%tl6892269229%_ @@ -6448,10 +6448,10 @@ _%e6892669242%_ _%hd6892769246%_ _%tl6892869249%_ - _%__splice8160981610%_ + _%__splice8183781838%_ _%target6892969252%_ _%tl6893169255%_)) - (_%__match8167381674%_ + (_%__match8190181902%_ _%e6892069222%_ _%hd6892169226%_ _%tl6892269229%_ @@ -6461,11 +6461,11 @@ _%e6892669242%_ _%hd6892769246%_ _%tl6892869249%_ - _%__splice8160981610%_ + _%__splice8183781838%_ _%target6892969252%_ _%tl6893169255%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8167381674%_ + (_%__match8190181902%_ _%e6892069222%_ _%hd6892169226%_ _%tl6892269229%_ @@ -6475,10 +6475,10 @@ _%e6892669242%_ _%hd6892769246%_ _%tl6892869249%_ - _%__splice8160981610%_ + _%__splice8183781838%_ _%target6892969252%_ _%tl6893169255%_)))) - (_%__match8167381674%_ + (_%__match8190181902%_ _%e6892069222%_ _%hd6892169226%_ _%tl6892269229%_ @@ -6488,12 +6488,12 @@ _%e6892669242%_ _%hd6892769246%_ _%tl6892869249%_ - _%__splice8160981610%_ + _%__splice8183781838%_ _%target6892969252%_ _%tl6893169255%_))))))) (_%loop6893269258%_ _%target6892969252%_ '() '()))))) - (if (gx#stx-pair? _%__stx8160481605%_) - (let ((_%e6892069222%_ (gx#syntax-e _%__stx8160481605%_))) + (if (gx#stx-pair? _%__stx8183281833%_) + (let ((_%e6892069222%_ (gx#syntax-e _%__stx8183281833%_))) (let ((_%tl6892269229%_ (let () (declare (not safe)) @@ -6525,7 +6525,7 @@ (declare (not safe)) (##car _%e6892669242%_)))) (if (gx#stx-pair/null? _%hd6892769246%_) - (let ((_%__splice8160981610%_ + (let ((_%__splice8183781838%_ (gx#syntax-split-splice _%hd6892769246%_ '0))) @@ -6533,17 +6533,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8160981610%_ + _%__splice8183781838%_ '1))) (_%target6892969252%_ (let () (declare (not safe)) (##vector-ref - _%__splice8160981610%_ + _%__splice8183781838%_ '0)))) (if (gx#stx-null? _%tl6893169255%_) - (_%__match8164781648%_ + (_%__match8187581876%_ _%e6892069222%_ _%hd6892169226%_ _%tl6892269229%_ @@ -6553,28 +6553,28 @@ _%e6892669242%_ _%hd6892769246%_ _%tl6892869249%_ - _%__splice8160981610%_ + _%__splice8183781838%_ _%target6892969252%_ _%tl6893169255%_) - (_%__kont8161981620%_ + (_%__kont8184781848%_ _%tl6892269229%_)))) - (_%__kont8161981620%_ + (_%__kont8184781848%_ _%tl6892269229%_)))) - (_%__kont8161981620%_ _%tl6892269229%_)))) - (_%__kont8161981620%_ _%tl6892269229%_)))) + (_%__kont8184781848%_ _%tl6892269229%_)))) + (_%__kont8184781848%_ _%tl6892269229%_)))) (let () (declare (not safe)) (_%g6891369009%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defclass/c| (lambda (_%stx69454%_) (letrec ((_%generate69457%_ (lambda (_%hd76628%_ _%slots76630%_ _%body76631%_) - (let* ((_%__stx8168281683%_ _%hd76628%_) + (let* ((_%__stx8191081911%_ _%hd76628%_) (_%g7663576657%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8168281683%_)))) - (let ((_%__kont8168581686%_ + _%__stx8191081911%_)))) + (let ((_%__kont8191381914%_ (lambda (_%L76733%_ _%L76735%_) (_%generate-defclass69478%_ _%L76735%_ @@ -6586,14 +6586,14 @@ _%L76733%_) _%slots76630%_ _%body76631%_))) - (_%__kont8168981690%_ + (_%__kont8191781918%_ (lambda (_%L76675%_) (_%generate-defclass69478%_ _%L76675%_ '() _%slots76630%_ _%body76631%_))) - (_%__kont8169181692%_ + (_%__kont8191981920%_ (lambda () (gx#raise-syntax-error '#f @@ -6602,15 +6602,15 @@ _%hd76628%_)))) (let* ((_%g7663376686%_ (lambda () - (let ((_%L76675%_ _%__stx8168281683%_)) + (let ((_%L76675%_ _%__stx8191081911%_)) (if (gx#identifier? _%L76675%_) - (_%__kont8168981690%_ _%L76675%_) - (_%__kont8169181692%_))))) - (_%__match8170781708%_ + (_%__kont8191781918%_ _%L76675%_) + (_%__kont8191981920%_))))) + (_%__match8193581936%_ (lambda (_%e7663976693%_ _%hd7664076697%_ _%tl7664176700%_ - _%__splice8168781688%_ + _%__splice8191581916%_ _%target7664276703%_ _%tl7664476706%_) (letrec ((_%loop7664576709%_ @@ -6649,15 +6649,15 @@ (cons _%g7674976752%_ _%g7675076755%_)) '() _%L76733%_))) - (_%__kont8168581686%_ _%L76733%_ _%L76735%_) + (_%__kont8191381914%_ _%L76733%_ _%L76735%_) (let () (declare (not safe)) (_%g7663376686%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_%loop7664576709%_ _%target7664276703%_ '()))))) - (if (gx#stx-pair? _%__stx8168281683%_) + (if (gx#stx-pair? _%__stx8191081911%_) (let ((_%e7663976693%_ - (gx#syntax-e _%__stx8168281683%_))) + (gx#syntax-e _%__stx8191081911%_))) (let ((_%tl7664176700%_ (let () (declare (not safe)) @@ -6667,7 +6667,7 @@ (declare (not safe)) (##car _%e7663976693%_)))) (if (gx#stx-pair/null? _%tl7664176700%_) - (let ((_%__splice8168781688%_ + (let ((_%__splice8191581916%_ (gx#syntax-split-splice _%tl7664176700%_ '0))) @@ -6675,20 +6675,20 @@ (let () (declare (not safe)) (##vector-ref - _%__splice8168781688%_ + _%__splice8191581916%_ '1))) (_%target7664276703%_ (let () (declare (not safe)) (##vector-ref - _%__splice8168781688%_ + _%__splice8191581916%_ '0)))) (if (gx#stx-null? _%tl7664476706%_) - (_%__match8170781708%_ + (_%__match8193581936%_ _%e7663976693%_ _%hd7664076697%_ _%tl7664176700%_ - _%__splice8168781688%_ + _%__splice8191581916%_ _%target7664276703%_ _%tl7664476706%_) (let () @@ -6704,9 +6704,9 @@ (lambda (_%body76619%_) (letrec ((_%body-opt?76622%_ (lambda (_%key76625%_) - (let ((__tmp82765 (gx#stx-e _%key76625%_))) + (let ((__tmp83039 (gx#stx-e _%key76625%_))) (declare (not safe)) - (##memq __tmp82765 + (##memq __tmp83039 '(id: struct: name: @@ -6731,24 +6731,24 @@ (gx#stx-car _%slot-spec76616%_))))) (_%slot-contract69461%_ (lambda (_%slot-spec76497%_) - (let* ((_%__stx8171081711%_ _%slot-spec76497%_) + (let* ((_%__stx8193881939%_ _%slot-spec76497%_) (_%g7650276523%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8171081711%_)))) - (let ((_%__kont8171381714%_ (lambda (_%L76603%_) '#f)) - (_%__kont8171581716%_ + _%__stx8193881939%_)))) + (let ((_%__kont8194181942%_ (lambda (_%L76603%_) '#f)) + (_%__kont8194381944%_ (lambda (_%L76581%_ _%L76583%_) '#f)) - (_%__kont8171781718%_ + (_%__kont8194581946%_ (lambda (_%L76540%_ _%L76542%_) _%L76540%_))) (let* ((_%g7650076596%_ (lambda () - (if (gx#stx-pair? _%__stx8171081711%_) + (if (gx#stx-pair? _%__stx8193881939%_) (let ((_%e7650776561%_ (gx#syntax-e - _%__stx8171081711%_))) + _%__stx8193881939%_))) (let ((_%tl7650976568%_ (let () (declare (not safe)) @@ -6771,21 +6771,21 @@ (##car _%e7651076571%_)))) (if (gx#stx-null? _%tl7651276578%_) - (_%__kont8171581716%_ + (_%__kont8194381944%_ _%hd7651176575%_ _%hd7650876565%_) - (_%__kont8171781718%_ + (_%__kont8194581946%_ _%tl7650976568%_ _%hd7650876565%_)))) - (_%__kont8171781718%_ + (_%__kont8194581946%_ _%tl7650976568%_ _%hd7650876565%_)))) (let () (declare (not safe)) (_%g7650276523%_))))) - (_%L76603%_ _%__stx8171081711%_)) + (_%L76603%_ _%__stx8193881939%_)) (if (gx#identifier? _%L76603%_) - (_%__kont8171381714%_ _%L76603%_) + (_%__kont8194181942%_ _%L76603%_) (let () (declare (not safe)) (_%g7650076596%_)))))))) @@ -6799,14 +6799,14 @@ '#f)))) (_%contract-normalize69463%_ (lambda (_%contract76231%_) - (let* ((_%__stx8174281743%_ _%contract76231%_) + (let* ((_%__stx8197081971%_ _%contract76231%_) (_%g7623776281%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8174281743%_)))) - (let ((_%__kont8174581746%_ + _%__stx8197081971%_)))) + (let ((_%__kont8197381974%_ (lambda (_%L76457%_) (_%contract-normalize69463%_ (foldr (lambda (_%g7647376476%_ @@ -6815,7 +6815,7 @@ _%g7647476479%_)) '() _%L76457%_)))) - (_%__kont8174981750%_ + (_%__kont8197781978%_ (lambda (_%L76381%_ _%L76383%_) (cons (gx#datum->syntax '#f ':~) (cons (cons (gx#datum->syntax '#f '?) @@ -6831,15 +6831,15 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (gx#datum->syntax '#f ':?) (cons _%L76381%_ '())))))) - (_%__kont8175181752%_ (lambda (_%L76319%_) '#f)) - (_%__kont8175381754%_ + (_%__kont8197981980%_ (lambda (_%L76319%_) '#f)) + (_%__kont8198181982%_ (lambda () _%contract76231%_))) (let* ((_%g7623476400%_ (lambda () - (if (gx#stx-pair? _%__stx8174281743%_) + (if (gx#stx-pair? _%__stx8197081971%_) (let ((_%e7625776341%_ (gx#syntax-e - _%__stx8174281743%_))) + _%__stx8197081971%_))) (let ((_%tl7625976348%_ (let () (declare (not safe)) @@ -6850,7 +6850,7 @@ (##car _%e7625776341%_)))) (if (gx#identifier? _%hd7625876345%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82766_| + |gerbil/core/contract~TypedDefinitions[1]#_g83040_| _%hd7625876345%_) (if (gx#stx-pair? _%tl7625976348%_) @@ -6876,7 +6876,7 @@ (##car _%e7626376361%_)))) (if (gx#identifier? _%hd7626476365%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82767_| + |gerbil/core/contract~TypedDefinitions[1]#_g83041_| _%hd7626476365%_) (if (gx#stx-pair? _%tl7626576368%_) (let ((_%e7626676371%_ @@ -6890,18 +6890,18 @@ (declare (not safe)) (##car _%e7626676371%_)))) (if (gx#stx-null? _%tl7626876378%_) - (_%__kont8174981750%_ + (_%__kont8197781978%_ _%hd7626776375%_ _%hd7626176355%_) - (_%__kont8175381754%_)))) - (_%__kont8175381754%_)) - (_%__kont8175381754%_)) - (_%__kont8175381754%_)))) - (_%__kont8175381754%_)))) - (_%__kont8175381754%_)) + (_%__kont8198181982%_)))) + (_%__kont8198181982%_)) + (_%__kont8198181982%_)) + (_%__kont8198181982%_)))) + (_%__kont8198181982%_)))) + (_%__kont8198181982%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82768_| + |gerbil/core/contract~TypedDefinitions[1]#_g83042_| _%hd7625876345%_) (if (gx#stx-pair? _%tl7625976348%_) @@ -6917,15 +6917,15 @@ (declare (not safe)) (##car _%e7627376309%_)))) (if (gx#stx-null? _%tl7627576316%_) - (_%__kont8175181752%_ _%hd7627476313%_) - (_%__kont8175381754%_)))) - (_%__kont8175381754%_)) - (_%__kont8175381754%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8175381754%_)))) - (_%__kont8175381754%_)))) - (_%__match8178181782%_ - (lambda (_%__splice8174781748%_ + (_%__kont8197981980%_ _%hd7627476313%_) + (_%__kont8198181982%_)))) + (_%__kont8198181982%_)) + (_%__kont8198181982%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8198181982%_)))) + (_%__kont8198181982%_)))) + (_%__match8200982010%_ + (lambda (_%__splice8197581976%_ _%target7624076407%_ _%tl7624276410%_ _%e7624976413%_ @@ -6958,31 +6958,31 @@ _%pre7624776440%_)))) (let ((_%pre7624876453%_ (reverse _%pre7624776440%_))) - (_%__kont8174581746%_ + (_%__kont8197381974%_ _%pre7624876453%_)))))) (_%loop7624376433%_ _%target7624076407%_ '()))))) - (if (gx#stx-pair/null? _%__stx8174281743%_) - (if (let ((__tmp82769 - (gx#stx-length _%__stx8174281743%_))) + (if (gx#stx-pair/null? _%__stx8197081971%_) + (if (let ((__tmp83043 + (gx#stx-length _%__stx8197081971%_))) (declare (not safe)) - (##fx>= __tmp82769 '2)) - (let ((_%__splice8174781748%_ + (##fx>= __tmp83043 '2)) + (let ((_%__splice8197581976%_ (gx#syntax-split-splice - _%__stx8174281743%_ + _%__stx8197081971%_ '2))) (let ((_%tl7624276410%_ (let () (declare (not safe)) (##vector-ref - _%__splice8174781748%_ + _%__splice8197581976%_ '1))) (_%target7624076407%_ (let () (declare (not safe)) (##vector-ref - _%__splice8174781748%_ + _%__splice8197581976%_ '0)))) (if (gx#stx-pair? _%tl7624276410%_) (let ((_%e7624976413%_ @@ -6999,7 +6999,7 @@ (if (gx#identifier? _%hd7625076417%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82770_| + |gerbil/core/contract~TypedDefinitions[1]#_g83044_| _%hd7625076417%_) (if (gx#stx-pair? _%tl7625176420%_) @@ -7015,8 +7015,8 @@ (declare (not safe)) (##car _%e7625276423%_)))) (if (gx#stx-null? _%tl7625476430%_) - (_%__match8178181782%_ - _%__splice8174781748%_ + (_%__match8200982010%_ + _%__splice8197581976%_ _%target7624076407%_ _%tl7624276410%_ _%e7624976413%_ @@ -7051,24 +7051,24 @@ '#f)))) (_%contract-type69465%_ (lambda (_%contract76028%_) - (let* ((_%__stx8183681837%_ _%contract76028%_) + (let* ((_%__stx8206482065%_ _%contract76028%_) (_%g7603376065%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8183681837%_)))) - (let ((_%__kont8183981840%_ + _%__stx8206482065%_)))) + (let ((_%__kont8206782068%_ (lambda (_%L76187%_ _%L76189%_ _%L76190%_) _%L76189%_)) - (_%__kont8184181842%_ + (_%__kont8206982070%_ (lambda (_%L76123%_ _%L76125%_ _%L76126%_ _%L76127%_) _%L76125%_)) - (_%__kont8184381844%_ (lambda () '#f))) - (let* ((_%__match8188581886%_ + (_%__kont8207182072%_ (lambda () '#f))) + (let* ((_%__match8211382114%_ (lambda (_%e7604876083%_ _%hd7604976087%_ _%tl7605076090%_ @@ -7100,13 +7100,13 @@ (gx#datum->syntax '#f '::-)))) - (_%__kont8184181842%_ + (_%__kont8206982070%_ _%L76123%_ _%L76125%_ _%L76126%_ _%L76127%_) - (_%__kont8184381844%_))))) - (_%__match8185781858%_ + (_%__kont8207182072%_))))) + (_%__match8208582086%_ (lambda (_%e7603876167%_ _%hd7603976171%_ _%tl7604076174%_ @@ -7131,13 +7131,13 @@ (gx#datum->syntax '#f '::-)))) - (_%__kont8183981840%_ + (_%__kont8206782068%_ _%L76187%_ _%L76189%_ _%L76190%_) (if (gx#identifier? _%hd7603976171%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82771_| + |gerbil/core/contract~TypedDefinitions[1]#_g83045_| _%hd7603976171%_) (if (gx#stx-pair? _%tl7604376184%_) @@ -7162,7 +7162,7 @@ (let () (declare (not safe)) (##car _%e7605776113%_)))) - (_%__match8188581886%_ + (_%__match8211382114%_ _%e7603876167%_ _%hd7603976171%_ _%tl7604076174%_ @@ -7175,14 +7175,14 @@ _%e7605776113%_ _%hd7605876117%_ _%tl7605976120%_))) - (_%__kont8184381844%_)))) + (_%__kont8207182072%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8184381844%_)) - (_%__kont8184381844%_)) - (_%__kont8184381844%_))))))) - (if (gx#stx-pair? _%__stx8183681837%_) + (_%__kont8207182072%_)) + (_%__kont8207182072%_)) + (_%__kont8207182072%_))))))) + (if (gx#stx-pair? _%__stx8206482065%_) (let ((_%e7603876167%_ - (gx#syntax-e _%__stx8183681837%_))) + (gx#syntax-e _%__stx8206482065%_))) (let ((_%tl7604076174%_ (let () (declare (not safe)) @@ -7202,15 +7202,15 @@ (let () (declare (not safe)) (##car _%e7604176177%_)))) - (_%__match8185781858%_ + (_%__match8208582086%_ _%e7603876167%_ _%hd7603976171%_ _%tl7604076174%_ _%e7604176177%_ _%hd7604276181%_ _%tl7604376184%_))) - (_%__kont8184381844%_)))) - (_%__kont8184381844%_))))))) + (_%__kont8207182072%_)))) + (_%__kont8207182072%_))))))) (_%slot-contract-predicate69466%_ (lambda (_%slot-spec76017%_) (let ((_%contract7601976021%_ @@ -7221,19 +7221,19 @@ '#f)))) (_%contract-predicate69467%_ (lambda (_%contract75939%_) - (let* ((_%__stx8188881889%_ _%contract75939%_) + (let* ((_%__stx8211682117%_ _%contract75939%_) (_%g7594375958%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8188881889%_)))) - (let ((_%__kont8189181892%_ + _%__stx8211682117%_)))) + (let ((_%__kont8211982120%_ (lambda (_%L75996%_ _%L75998%_) _%L75998%_)) - (_%__kont8189381894%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx8188881889%_) + (_%__kont8212182122%_ (lambda () '#f))) + (if (gx#stx-pair? _%__stx8211682117%_) (let ((_%e7594775976%_ - (gx#syntax-e _%__stx8188881889%_))) + (gx#syntax-e _%__stx8211682117%_))) (let ((_%tl7594975983%_ (let () (declare (not safe)) @@ -7244,7 +7244,7 @@ (##car _%e7594775976%_)))) (if (gx#identifier? _%hd7594875980%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82772_| + |gerbil/core/contract~TypedDefinitions[1]#_g83046_| _%hd7594875980%_) (if (gx#stx-pair? _%tl7594975983%_) (let ((_%e7595075986%_ @@ -7258,29 +7258,29 @@ (let () (declare (not safe)) (##car _%e7595075986%_)))) - (_%__kont8189181892%_ + (_%__kont8211982120%_ _%tl7595275993%_ _%hd7595175990%_))) - (_%__kont8189381894%_)) - (_%__kont8189381894%_)) - (_%__kont8189381894%_)))) - (_%__kont8189381894%_)))))) + (_%__kont8212182122%_)) + (_%__kont8212182122%_)) + (_%__kont8212182122%_)))) + (_%__kont8212182122%_)))))) (_%slot-default69468%_ (lambda (_%slot-spec75767%_) - (let* ((_%__stx8191481915%_ _%slot-spec75767%_) + (let* ((_%__stx8214282143%_ _%slot-spec75767%_) (_%g7577275804%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8191481915%_)))) - (let ((_%__kont8191781918%_ + _%__stx8214282143%_)))) + (let ((_%__kont8214582146%_ (lambda (_%L75920%_ _%L75922%_) _%L75920%_)) - (_%__kont8191981920%_ + (_%__kont8214782148%_ (lambda (_%L75872%_ _%L75874%_) _%L75872%_)) - (_%__kont8192381924%_ (lambda () '#f))) - (let* ((_%__match8196581966%_ - (lambda (_%__splice8192181922%_ + (_%__kont8215182152%_ (lambda () '#f))) + (let* ((_%__match8219382194%_ + (lambda (_%__splice8214982150%_ _%target7578475822%_ _%tl7578675825%_ _%e7579375828%_ @@ -7313,7 +7313,7 @@ _%id7579175855%_)))) (let ((_%id7579275868%_ (reverse _%id7579175855%_))) - (_%__kont8191981920%_ + (_%__kont8214782148%_ _%hd7579775842%_ _%id7579275868%_)))))) (_%loop7578775848%_ @@ -7321,27 +7321,27 @@ '())))) (_%g7577075893%_ (lambda () - (if (gx#stx-pair/null? _%__stx8191481915%_) - (if (let ((__tmp82773 + (if (gx#stx-pair/null? _%__stx8214282143%_) + (if (let ((__tmp83047 (gx#stx-length - _%__stx8191481915%_))) + _%__stx8214282143%_))) (declare (not safe)) - (##fx>= __tmp82773 '2)) - (let ((_%__splice8192181922%_ + (##fx>= __tmp83047 '2)) + (let ((_%__splice8214982150%_ (gx#syntax-split-splice - _%__stx8191481915%_ + _%__stx8214282143%_ '2))) (let ((_%tl7578675825%_ (let () (declare (not safe)) (##vector-ref - _%__splice8192181922%_ + _%__splice8214982150%_ '1))) (_%target7578475822%_ (let () (declare (not safe)) (##vector-ref - _%__splice8192181922%_ + _%__splice8214982150%_ '0)))) (if (gx#stx-pair? _%tl7578675825%_) @@ -7361,7 +7361,7 @@ (if (gx#identifier? _%hd7579475832%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82774_| + |gerbil/core/contract~TypedDefinitions[1]#_g83048_| _%hd7579475832%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -7377,8 +7377,8 @@ (declare (not safe)) (##car _%e7579675838%_)))) (if (gx#stx-null? _%tl7579875845%_) - (_%__match8196581966%_ - _%__splice8192181922%_ + (_%__match8219382194%_ + _%__splice8214982150%_ _%target7578475822%_ _%tl7578675825%_ _%e7579375828%_ @@ -7387,17 +7387,17 @@ _%e7579675838%_ _%hd7579775842%_ _%tl7579875845%_) - (_%__kont8192381924%_)))) - (_%__kont8192381924%_)) - (_%__kont8192381924%_)) - (_%__kont8192381924%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8192381924%_)))) - (_%__kont8192381924%_)) - (_%__kont8192381924%_))))) - (if (gx#stx-pair? _%__stx8191481915%_) + (_%__kont8215182152%_)))) + (_%__kont8215182152%_)) + (_%__kont8215182152%_)) + (_%__kont8215182152%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8215182152%_)))) + (_%__kont8215182152%_)) + (_%__kont8215182152%_))))) + (if (gx#stx-pair? _%__stx8214282143%_) (let ((_%e7577675900%_ - (gx#syntax-e _%__stx8191481915%_))) + (gx#syntax-e _%__stx8214282143%_))) (let ((_%tl7577875907%_ (let () (declare (not safe)) @@ -7418,7 +7418,7 @@ (declare (not safe)) (##car _%e7577975910%_)))) (if (gx#stx-null? _%tl7578175917%_) - (_%__kont8191781918%_ + (_%__kont8214582146%_ _%hd7578075914%_ _%hd7577775904%_) (let () @@ -7458,29 +7458,29 @@ (class-instance? gerbil/core/mop~MOP-2#class-type-info::t _%klass-b75683%_)) - (if (eq? (let ((__obj82503 + (if (eq? (let ((__obj82777 _%klass-a75681%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - __obj82503 + __obj82777 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82503 '1 '#f '#f)) - (unchecked-slot-ref __obj82503 'id))) - (let ((__obj82504 _%klass-b75683%_)) + (##unchecked-structure-ref __obj82777 '1 '#f '#f)) + (unchecked-slot-ref __obj82777 'id))) + (let ((__obj82778 _%klass-b75683%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82504 + __obj82778 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82504 '1 '#f '#f)) - (unchecked-slot-ref __obj82504 'id)))) + (##unchecked-structure-ref __obj82778 '1 '#f '#f)) + (unchecked-slot-ref __obj82778 'id)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _%type-a75667%_ (if (member _%type-a75667%_ @@ -7514,18 +7514,18 @@ _%klass-b75683%_)) (let ((_%$e75701%_ (gx#syntax-local-value - (let ((__obj82501 + (let ((__obj82775 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _%klass-b75683%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82501 + __obj82775 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82501 '1 '#f '#f)) - (unchecked-slot-ref __obj82501 'identifier))) + (##unchecked-structure-ref __obj82775 '1 '#f '#f)) + (unchecked-slot-ref __obj82775 'identifier))) false))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if _%$e75701%_ @@ -7536,18 +7536,18 @@ _%$e75701%_) (if (gx#free-identifier=? _%type-a75667%_ - (let ((__obj82502 + (let ((__obj82776 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _%klass-b75683%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82502 + __obj82776 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82502 '1 '#f '#f)) - (unchecked-slot-ref __obj82502 'identifier)))) + (##unchecked-structure-ref __obj82776 '1 '#f '#f)) + (unchecked-slot-ref __obj82776 'identifier)))) _%type-a75667%_ (gx#raise-syntax-error '#f @@ -7603,22 +7603,22 @@ _%klass-b75683%_)) (let ((_%$e75726%_ (gx#syntax-local-value - (let ((__obj82499 + (let ((__obj82773 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _%klass-b75683%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82499 + __obj82773 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82499 + __obj82773 '1 '#f '#f)) - (unchecked-slot-ref __obj82499 'identifier))) + (unchecked-slot-ref __obj82773 'identifier))) false))) (if _%$e75726%_ ((lambda (_%klass-b75730%_) @@ -7626,20 +7626,20 @@ _%$e75726%_) (if (gx#free-identifier=? _%type-a75667%_ - (let ((__obj82500 _%klass-b75683%_)) + (let ((__obj82774 _%klass-b75683%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82500 + __obj82774 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82500 + __obj82774 '1 '#f '#f)) - (unchecked-slot-ref __obj82500 'identifier)))) + (unchecked-slot-ref __obj82774 'identifier)))) _%type-a75667%_ (gx#raise-syntax-error '#f @@ -7663,18 +7663,18 @@ _%klass-a75681%_)) (let ((_%$e75741%_ (gx#syntax-local-value - (let ((__obj82494 + (let ((__obj82768 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _%klass-a75681%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82494 + __obj82768 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82494 '1 '#f '#f)) - (unchecked-slot-ref __obj82494 'identifier))) + (##unchecked-structure-ref __obj82768 '1 '#f '#f)) + (unchecked-slot-ref __obj82768 'identifier))) false))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if _%$e75741%_ @@ -7692,20 +7692,20 @@ (let ((_%$e75750%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-local-value - (let ((__obj82496 _%klass-b75683%_)) + (let ((__obj82770 _%klass-b75683%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82496 + __obj82770 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82496 + __obj82770 '1 '#f '#f)) - (unchecked-slot-ref __obj82496 'identifier))) + (unchecked-slot-ref __obj82770 'identifier))) false))) (if _%$e75750%_ ((lambda (_%klass-b75754%_) @@ -7714,37 +7714,37 @@ _%klass-b75754%_)) _%$e75750%_) (if (gx#free-identifier=? - (let ((__obj82497 _%klass-a75681%_)) + (let ((__obj82771 _%klass-a75681%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82497 + __obj82771 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82497 + __obj82771 '1 '#f '#f)) (unchecked-slot-ref - __obj82497 + __obj82771 'identifier))) - (let ((__obj82498 _%klass-b75683%_)) + (let ((__obj82772 _%klass-b75683%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82498 + __obj82772 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82498 + __obj82772 '1 '#f '#f)) (unchecked-slot-ref - __obj82498 + __obj82772 'identifier)))) _%type-a75667%_ (gx#raise-syntax-error @@ -7756,20 +7756,20 @@ _%type-b75668%_)))) (if (gx#free-identifier=? _%type-b75668%_ - (let ((__obj82495 _%klass-a75681%_)) + (let ((__obj82769 _%klass-a75681%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82495 + __obj82769 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82495 + __obj82769 '1 '#f '#f)) - (unchecked-slot-ref __obj82495 'identifier)))) + (unchecked-slot-ref __obj82769 'identifier)))) _%type-b75668%_ (gx#raise-syntax-error '#f @@ -7805,22 +7805,22 @@ _%stx69454%_ _%type-id75574%_))) (_%slots75579%_ - (let ((__obj82505 _%klass75576%_)) + (let ((__obj82779 _%klass75576%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82505 + __obj82779 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82505 + __obj82779 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82505 + __obj82779 'slots))))) (let _%loop-inner75584%_ ((_%rest-slots75587%_ _%slots75579%_) @@ -7833,21 +7833,21 @@ (_%loop75542%_ (foldr cons _%rest75572%_ - (let ((__obj82506 + (let ((__obj82780 _%klass75576%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - __obj82506 + __obj82780 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82506 '3 '#f '#f)) + (##unchecked-structure-ref __obj82780 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82506 + __obj82780 'super)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _%result75589%_))) @@ -8026,23 +8026,23 @@ _%slot-contract-normalize69462%_ |gerbil/core/contract~Using[1]#!class-slot-contract| (lambda (_%slot73921%_ _%a73923%_ _%b73924%_) - (let* ((_%__stx8223682237%_ _%a73923%_) + (let* ((_%__stx8246482465%_ _%a73923%_) (_%g7398674039%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8223682237%_)))) - (let ((_%__kont8223982240%_ + _%__stx8246482465%_)))) + (let ((_%__kont8246782468%_ (lambda () - (let* ((_%__stx8220482205%_ _%b73924%_) + (let* ((_%__stx8243282433%_ _%b73924%_) (_%g7530975327%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8220482205%_)))) - (let ((_%__kont8220782208%_ + _%__stx8243282433%_)))) + (let ((_%__kont8243582436%_ (lambda (_%L75421%_) (let* ((_%g7544075448%_ (lambda (_%g7544175444%_) @@ -8064,7 +8064,7 @@ (hash-ref _%slot-type-table73919%_ _%slot73921%_))))) - (_%__kont8220982210%_ + (_%__kont8243782438%_ (lambda (_%L75354%_) (let* ((_%g7537375381%_ (lambda (_%g7537475377%_) @@ -8088,7 +8088,7 @@ (hash-ref _%slot-type-table73919%_ _%slot73921%_)))))) - (let ((_%__match8221782218%_ + (let ((_%__match8244582446%_ (lambda (_%e7531275411%_ _%hd7531375415%_ _%tl7531475418%_) @@ -8109,12 +8109,12 @@ (gx#datum->syntax '#f ':-))) - (_%__kont8220782208%_ + (_%__kont8243582436%_ _%L75421%_) (if (gx#identifier? _%hd7531375415%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82775_| + |gerbil/core/contract~TypedDefinitions[1]#_g83049_| _%hd7531375415%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -8129,15 +8129,15 @@ (let () (declare (not safe)) (##car _%e7531975344%_)))) - (_%__kont8220982210%_ _%hd7532075348%_))) + (_%__kont8243782438%_ _%hd7532075348%_))) (let () (declare (not safe)) (_%g7530975327%_))) (let () (declare (not safe)) (_%g7530975327%_))) (let () (declare (not safe)) (_%g7530975327%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%__stx8220482205%_) + (if (gx#stx-pair? _%__stx8243282433%_) (let ((_%e7531275411%_ (gx#syntax-e - _%__stx8220482205%_))) + _%__stx8243282433%_))) (let ((_%tl7531475418%_ (let () (declare (not safe)) @@ -8146,23 +8146,23 @@ (let () (declare (not safe)) (##car _%e7531275411%_)))) - (_%__match8221782218%_ + (_%__match8244582446%_ _%e7531275411%_ _%hd7531375415%_ _%tl7531475418%_))) (let () (declare (not safe)) (_%g7530975327%_)))))))) - (_%__kont8224182242%_ + (_%__kont8246982470%_ (lambda () - (let* ((_%__stx8215682157%_ _%b73924%_) + (let* ((_%__stx8238482385%_ _%b73924%_) (_%g7510575125%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8215682157%_)))) - (let ((_%__kont8215982160%_ + _%__stx8238482385%_)))) + (let ((_%__kont8238782388%_ (lambda () (let* ((_%g7524775255%_ (lambda (_%g7524875251%_) @@ -8184,7 +8184,7 @@ (hash-ref _%slot-type-table73919%_ _%slot73921%_))))) - (_%__kont8216182162%_ + (_%__kont8238982390%_ (lambda (_%L75173%_) (let* ((_%g7519575203%_ (lambda (_%g7519675199%_) @@ -8208,7 +8208,7 @@ (hash-ref _%slot-type-table73919%_ _%slot73921%_))))) - (_%__kont8216382164%_ + (_%__kont8239182392%_ (lambda () (gx#raise-syntax-error '#f @@ -8217,10 +8217,10 @@ _%slot73921%_ _%a73923%_ _%b73924%_)))) - (if (gx#stx-pair? _%__stx8215682157%_) + (if (gx#stx-pair? _%__stx8238482385%_) (let ((_%e7510775233%_ (gx#syntax-e - _%__stx8215682157%_))) + _%__stx8238482385%_))) (let ((_%tl7510975240%_ (let () (declare (not safe)) @@ -8232,11 +8232,11 @@ (if (gx#identifier? _%hd7510875237%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82776_| + |gerbil/core/contract~TypedDefinitions[1]#_g83050_| _%hd7510875237%_) - (_%__kont8215982160%_) + (_%__kont8238782388%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82777_| + |gerbil/core/contract~TypedDefinitions[1]#_g83051_| _%hd7510875237%_) (if (gx#stx-pair? _%tl7510975240%_) @@ -8264,28 +8264,28 @@ (##car _%e7511775163%_)))) (if (gx#identifier? _%hd7511875167%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82778_| + |gerbil/core/contract~TypedDefinitions[1]#_g83052_| _%hd7511875167%_) - (_%__kont8216182162%_ + (_%__kont8238982390%_ _%hd7511575157%_) - (_%__kont8216382164%_)) - (_%__kont8216382164%_)))) - (_%__kont8216382164%_)))) - (_%__kont8216382164%_)) - (_%__kont8216382164%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8216382164%_)))) - (_%__kont8216382164%_)))))) - (_%__kont8224382244%_ + (_%__kont8239182392%_)) + (_%__kont8239182392%_)))) + (_%__kont8239182392%_)))) + (_%__kont8239182392%_)) + (_%__kont8239182392%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8239182392%_)))) + (_%__kont8239182392%_)))))) + (_%__kont8247182472%_ (lambda () - (let* ((_%__stx8212482125%_ _%b73924%_) + (let* ((_%__stx8235282353%_ _%b73924%_) (_%g7491374932%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8212482125%_)))) - (let ((_%__kont8212782128%_ + _%__stx8235282353%_)))) + (let ((_%__kont8235582356%_ (lambda (_%L75028%_) (let* ((_%g7504775055%_ (lambda (_%g7504875051%_) @@ -8307,7 +8307,7 @@ (hash-ref _%slot-type-table73919%_ _%slot73921%_))))) - (_%__kont8212982130%_ + (_%__kont8235782358%_ (lambda (_%L74959%_ _%L74961%_) (let* ((_%g7498074988%_ (lambda (_%g7498174984%_) @@ -8331,7 +8331,7 @@ (hash-ref _%slot-type-table73919%_ _%slot73921%_)))))) - (let ((_%__match8213782138%_ + (let ((_%__match8236582366%_ (lambda (_%e7491675018%_ _%hd7491775022%_ _%tl7491875025%_) @@ -8352,12 +8352,12 @@ (gx#datum->syntax '#f ':-))) - (_%__kont8212782128%_ + (_%__kont8235582356%_ _%L75028%_) (if (gx#identifier? _%hd7491775022%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82779_| + |gerbil/core/contract~TypedDefinitions[1]#_g83053_| _%hd7491775022%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -8372,17 +8372,17 @@ (let () (declare (not safe)) (##car _%e7492474949%_)))) - (_%__kont8212982130%_ + (_%__kont8235782358%_ _%tl7492674956%_ _%hd7492574953%_))) (let () (declare (not safe)) (_%g7491374932%_))) (let () (declare (not safe)) (_%g7491374932%_))) (let () (declare (not safe)) (_%g7491374932%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%__stx8212482125%_) + (if (gx#stx-pair? _%__stx8235282353%_) (let ((_%e7491675018%_ (gx#syntax-e - _%__stx8212482125%_))) + _%__stx8235282353%_))) (let ((_%tl7491875025%_ (let () (declare (not safe)) @@ -8391,23 +8391,23 @@ (let () (declare (not safe)) (##car _%e7491675018%_)))) - (_%__match8213782138%_ + (_%__match8236582366%_ _%e7491675018%_ _%hd7491775022%_ _%tl7491875025%_))) (let () (declare (not safe)) (_%g7491374932%_)))))))) - (_%__kont8224582246%_ + (_%__kont8247382474%_ (lambda (_%L74740%_) - (let* ((_%__stx8209882099%_ _%b73924%_) + (let* ((_%__stx8232682327%_ _%b73924%_) (_%g7475674770%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8209882099%_)))) - (let ((_%__kont8210182102%_ + _%__stx8232682327%_)))) + (let ((_%__kont8232982330%_ (lambda (_%L74843%_) (let* ((_%g7485674864%_ (lambda (_%g7485774860%_) @@ -8435,7 +8435,7 @@ (hash-ref _%slot-type-table73919%_ _%slot73921%_))))) - (_%__kont8210382104%_ + (_%__kont8233182332%_ (lambda () (let* ((_%g7478174789%_ (lambda (_%g7478274785%_) @@ -8459,10 +8459,10 @@ (hash-ref _%slot-type-table73919%_ _%slot73921%_)))))) - (if (gx#stx-pair? _%__stx8209882099%_) + (if (gx#stx-pair? _%__stx8232682327%_) (let ((_%e7475974823%_ (gx#syntax-e - _%__stx8209882099%_))) + _%__stx8232682327%_))) (let ((_%tl7476174830%_ (let () (declare (not safe)) @@ -8474,7 +8474,7 @@ (if (gx#identifier? _%hd7476074827%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82780_| + |gerbil/core/contract~TypedDefinitions[1]#_g83054_| _%hd7476074827%_) (if (gx#stx-pair? _%tl7476174830%_) @@ -8489,22 +8489,22 @@ (let () (declare (not safe)) (##car _%e7476274833%_)))) - (_%__kont8210182102%_ _%hd7476374837%_))) - (_%__kont8210382104%_)) - (_%__kont8210382104%_)) + (_%__kont8232982330%_ _%hd7476374837%_))) + (_%__kont8233182332%_)) + (_%__kont8233182332%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8210382104%_)))) - (_%__kont8210382104%_)))))) - (_%__kont8224782248%_ + (_%__kont8233182332%_)))) + (_%__kont8233182332%_)))))) + (_%__kont8247582476%_ (lambda (_%L74461%_) - (let* ((_%__stx8203282033%_ _%b73924%_) + (let* ((_%__stx8226082261%_ _%b73924%_) (_%g7447974506%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8203282033%_)))) - (let ((_%__kont8203582036%_ + _%__stx8226082261%_)))) + (let ((_%__kont8226382264%_ (lambda () (let* ((_%g7466374671%_ (lambda (_%g7466474667%_) @@ -8528,7 +8528,7 @@ (hash-ref _%slot-type-table73919%_ _%slot73921%_))))) - (_%__kont8203782038%_ + (_%__kont8226582266%_ (lambda (_%L74596%_) (let* ((_%g7461174619%_ (lambda (_%g7461274615%_) @@ -8556,7 +8556,7 @@ (hash-ref _%slot-type-table73919%_ _%slot73921%_))))) - (_%__kont8203982040%_ + (_%__kont8226782268%_ (lambda (_%L74544%_) (gx#raise-syntax-error '#f @@ -8565,7 +8565,7 @@ _%slot73921%_ _%a73923%_ _%b73924%_))) - (_%__kont8204182042%_ + (_%__kont8226982270%_ (lambda () (gx#raise-syntax-error '#f @@ -8574,10 +8574,10 @@ _%slot73921%_ _%a73923%_ _%b73924%_)))) - (if (gx#stx-pair? _%__stx8203282033%_) + (if (gx#stx-pair? _%__stx8226082261%_) (let ((_%e7448174649%_ (gx#syntax-e - _%__stx8203282033%_))) + _%__stx8226082261%_))) (let ((_%tl7448374656%_ (let () (declare (not safe)) @@ -8589,11 +8589,11 @@ (if (gx#identifier? _%hd7448274653%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82781_| + |gerbil/core/contract~TypedDefinitions[1]#_g83055_| _%hd7448274653%_) - (_%__kont8203582036%_) + (_%__kont8226382264%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82782_| + |gerbil/core/contract~TypedDefinitions[1]#_g83056_| _%hd7448274653%_) (if (gx#stx-pair? _%tl7448374656%_) @@ -8621,30 +8621,30 @@ (##car _%e7449174586%_)))) (if (gx#identifier? _%hd7449274590%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82783_| + |gerbil/core/contract~TypedDefinitions[1]#_g83057_| _%hd7449274590%_) - (_%__kont8203782038%_ + (_%__kont8226582266%_ _%hd7448974580%_) - (_%__kont8203982040%_ + (_%__kont8226782268%_ _%hd7448974580%_)) - (_%__kont8203982040%_ + (_%__kont8226782268%_ _%hd7448974580%_)))) - (_%__kont8203982040%_ _%hd7448974580%_)))) - (_%__kont8204182042%_)) - (_%__kont8204182042%_))) + (_%__kont8226782268%_ _%hd7448974580%_)))) + (_%__kont8226982270%_)) + (_%__kont8226982270%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8204182042%_)))) - (_%__kont8204182042%_)))))) - (_%__kont8224982250%_ + (_%__kont8226982270%_)))) + (_%__kont8226982270%_)))))) + (_%__kont8247782478%_ (lambda (_%L74278%_) - (let* ((_%__stx8200082001%_ _%b73924%_) + (let* ((_%__stx8222882229%_ _%b73924%_) (_%g7429474312%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8200082001%_)))) - (let ((_%__kont8200382004%_ + _%__stx8222882229%_)))) + (let ((_%__kont8223182232%_ (lambda (_%L74401%_) (let ((_%$e74412%_ (gx#free-identifier=? @@ -8667,7 +8667,7 @@ (gx#datum->syntax '#f ':-)))))))) - (_%__kont8200582006%_ + (_%__kont8223382234%_ (lambda (_%L74339%_) (let* ((_%g7435374361%_ (lambda (_%g7435474357%_) @@ -8695,10 +8695,10 @@ (hash-ref _%slot-type-table73919%_ _%slot73921%_)))))) - (if (gx#stx-pair? _%__stx8200082001%_) + (if (gx#stx-pair? _%__stx8222882229%_) (let ((_%e7429774391%_ (gx#syntax-e - _%__stx8200082001%_))) + _%__stx8222882229%_))) (let ((_%tl7429974398%_ (let () (declare (not safe)) @@ -8707,21 +8707,21 @@ (let () (declare (not safe)) (##car _%e7429774391%_)))) - (_%__kont8200382004%_ + (_%__kont8223182232%_ _%hd7429874395%_))) (let () (declare (not safe)) (_%g7429474312%_))))))) - (_%__kont8225182252%_ + (_%__kont8247982480%_ (lambda (_%L74066%_) - (let* ((_%__stx8196881969%_ _%b73924%_) + (let* ((_%__stx8219682197%_ _%b73924%_) (_%g7408074098%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8196881969%_)))) - (let ((_%__kont8197181972%_ + _%__stx8219682197%_)))) + (let ((_%__kont8219982200%_ (lambda (_%L74181%_ _%L74183%_) (let* ((_%g7420674214%_ (lambda (_%g7420774210%_) @@ -8749,7 +8749,7 @@ (hash-ref _%slot-type-table73919%_ _%slot73921%_))))) - (_%__kont8197381974%_ + (_%__kont8220182202%_ (lambda () (let* ((_%g7410974117%_ (lambda (_%g7411074113%_) @@ -8773,7 +8773,7 @@ (hash-ref _%slot-type-table73919%_ _%slot73921%_)))))) - (let ((_%__match8199781998%_ + (let ((_%__match8222582226%_ (lambda (_%e7408474151%_ _%hd7408574155%_ _%tl7408674158%_ @@ -8802,14 +8802,14 @@ (gx#datum->syntax '#f ':-))) - (_%__kont8197181972%_ + (_%__kont8219982200%_ _%L74181%_ _%L74183%_) - (_%__kont8197381974%_)))))) - (if (gx#stx-pair? _%__stx8196881969%_) + (_%__kont8220182202%_)))))) + (if (gx#stx-pair? _%__stx8219682197%_) (let ((_%e7408474151%_ (gx#syntax-e - _%__stx8196881969%_))) + _%__stx8219682197%_))) (let ((_%tl7408674158%_ (let () (declare (not safe)) @@ -8821,7 +8821,7 @@ (if (gx#identifier? _%hd7408574155%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82784_| + |gerbil/core/contract~TypedDefinitions[1]#_g83058_| _%hd7408574155%_) (if (gx#stx-pair? _%tl7408674158%_) @@ -8847,7 +8847,7 @@ (let () (declare (not safe)) (##car _%e7409074171%_)))) - (_%__match8199781998%_ + (_%__match8222582226%_ _%e7408474151%_ _%hd7408574155%_ _%tl7408674158%_ @@ -8857,15 +8857,15 @@ _%e7409074171%_ _%hd7409174175%_ _%tl7409274178%_))) - (_%__kont8197381974%_)))) - (_%__kont8197381974%_)) - (_%__kont8197381974%_)) + (_%__kont8220182202%_)))) + (_%__kont8220182202%_)) + (_%__kont8220182202%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8197381974%_)))) - (_%__kont8197381974%_)))))))) - (if (gx#stx-pair? _%__stx8223682237%_) + (_%__kont8220182202%_)))) + (_%__kont8220182202%_)))))))) + (if (gx#stx-pair? _%__stx8246482465%_) (let ((_%e7398875294%_ - (gx#syntax-e _%__stx8223682237%_))) + (gx#syntax-e _%__stx8246482465%_))) (let ((_%tl7399075301%_ (let () (declare (not safe)) @@ -8876,19 +8876,19 @@ (##car _%e7398875294%_)))) (if (gx#identifier? _%hd7398975298%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82785_| + |gerbil/core/contract~TypedDefinitions[1]#_g83059_| _%hd7398975298%_) - (_%__kont8223982240%_) + (_%__kont8246782468%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82786_| + |gerbil/core/contract~TypedDefinitions[1]#_g83060_| _%hd7398975298%_) - (_%__kont8224182242%_) + (_%__kont8246982470%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82787_| + |gerbil/core/contract~TypedDefinitions[1]#_g83061_| _%hd7398975298%_) - (_%__kont8224382244%_) + (_%__kont8247182472%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82788_| + |gerbil/core/contract~TypedDefinitions[1]#_g83062_| _%hd7398975298%_) (if (gx#stx-pair? _%tl7399075301%_) @@ -8916,23 +8916,23 @@ (##car _%e7400474730%_)))) (if (gx#identifier? _%hd7400574734%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82789_| + |gerbil/core/contract~TypedDefinitions[1]#_g83063_| _%hd7400574734%_) - (_%__kont8224582246%_ _%hd7400274724%_) + (_%__kont8247382474%_ _%hd7400274724%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82790_| + |gerbil/core/contract~TypedDefinitions[1]#_g83064_| _%hd7400574734%_) - (_%__kont8224782248%_ + (_%__kont8247582476%_ _%hd7400274724%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g82791_| + |gerbil/core/contract~TypedDefinitions[1]#_g83065_| _%hd7400574734%_) - (_%__kont8224982250%_ + (_%__kont8247782478%_ _%hd7400274724%_) - (_%__kont8225182252%_ + (_%__kont8247982480%_ _%hd7400274724%_)))) - (_%__kont8225182252%_ _%hd7400274724%_)))) - (_%__kont8225182252%_ _%hd7400274724%_)))) + (_%__kont8247982480%_ _%hd7400274724%_)))) + (_%__kont8247982480%_ _%hd7400274724%_)))) (let () (declare (not safe)) (_%g7398674039%_))) (let () (declare (not safe)) (_%g7398674039%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -8998,149 +8998,149 @@ _%id73872%_))))) (_%order-slots69476%_ (lambda (_%slots73800%_ _%super73802%_) - (let ((_g82792_ + (let ((_g83066_ (c4-linearize '() _%super73802%_ 'get-precedence-list: (lambda (_%klass-id73804%_) (cons _%klass-id73804%_ - (let ((__tmp82794 + (let ((__tmp83068 (_%syntax-local-value/context69475%_ _%klass-id73804%_))) (declare (not safe)) (gerbil/core/contract~ClassMeta#!class-precedence-list - __tmp82794)))) + __tmp83068)))) 'struct: (lambda (_%klass-id73807%_) - (let ((__obj82507 + (let ((__obj82781 (_%syntax-local-value/context69475%_ _%klass-id73807%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82507 + __obj82781 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82507 + __obj82781 '7 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82507 + __obj82781 'struct?)))) 'eq: gx#free-identifier=? 'get-name: gx#stx-e))) (begin - (let ((_g82793_ + (let ((_g83067_ (let () (declare (not safe)) - (if (##values? _g82792_) - (##vector-length _g82792_) + (if (##values? _g83066_) + (##vector-length _g83066_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82793_ 2))) - (error "Context expects 2 values" _g82793_))) + (##fx= _g83067_ 2))) + (error "Context expects 2 values" _g83067_))) (let ((_%precedence-list73810%_ (let () (declare (not safe)) - (##vector-ref _g82792_ 0))) + (##vector-ref _g83066_ 0))) (_%base-struct73812%_ (let () (declare (not safe)) - (##vector-ref _g82792_ 1)))) + (##vector-ref _g83066_ 1)))) (let* ((_%base-fields73826%_ (if _%base-struct73812%_ (let* ((_%klass73814%_ (gx#syntax-local-value _%base-struct73812%_)) (_%$e73817%_ - (let ((__obj82508 + (let ((__obj82782 _%klass73814%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82508 + __obj82782 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82508 + __obj82782 '6 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82508 + __obj82782 'ordered-slots))))) (if _%$e73817%_ _%$e73817%_ (let ((_%ordered73823%_ (_%order-slots69476%_ - (let ((__obj82509 + (let ((__obj82783 _%klass73814%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82509 + __obj82783 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82509 + __obj82783 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82509 + __obj82783 'slots))) - (let ((__obj82510 + (let ((__obj82784 _%klass73814%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82510 + __obj82784 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82510 + __obj82784 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82510 + __obj82784 'super)))))) - (let ((__obj82511 + (let ((__obj82785 _%klass73814%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82511 + __obj82785 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj82511 + __obj82785 _%ordered73823%_ '6 '#f '#f)) (class-slot-set! gerbil/core/mop~MOP-2#class-type-info::t - __obj82511 + __obj82785 'ordered-slots _%ordered73823%_))) _%ordered73823%_))) @@ -9175,41 +9175,41 @@ (lambda (_%mixin73851%_) (let ((_%klass73854%_ (gx#syntax-local-value _%mixin73851%_))) - (if (let ((__obj82512 _%klass73854%_)) + (if (let ((__obj82786 _%klass73854%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82512 + __obj82786 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82512 + __obj82786 '7 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82512 + __obj82786 'struct?))) '#!void (let ((_%$e73857%_ - (let ((__obj82513 _%klass73854%_)) + (let ((__obj82787 _%klass73854%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82513 + __obj82787 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82513 + __obj82787 '6 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82513 + __obj82787 'ordered-slots))))) (if _%$e73857%_ ((lambda (_%ordered73861%_) @@ -9219,59 +9219,59 @@ _%$e73857%_) (let ((_%ordered73866%_ (_%order-slots69476%_ - (let ((__obj82514 + (let ((__obj82788 _%klass73854%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82514 + __obj82788 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82514 + __obj82788 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82514 + __obj82788 'slots))) - (let ((__obj82515 + (let ((__obj82789 _%klass73854%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82515 + __obj82789 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82515 + __obj82789 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82515 + __obj82789 'super)))))) - (let ((__obj82516 _%klass73854%_)) + (let ((__obj82790 _%klass73854%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82516 + __obj82790 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj82516 + __obj82790 _%ordered73866%_ '6 '#f '#f)) (class-slot-set! gerbil/core/mop~MOP-2#class-type-info::t - __obj82516 + __obj82790 'ordered-slots _%ordered73866%_))) (for-each @@ -9307,27 +9307,27 @@ _%stx69454%_ _%slots69615%_)) (_%check-typedef-body!69459%_ _%body69616%_) - (let ((_g82795_ + (let ((_g83069_ (_%get-mixin-slots69470%_ _%super-ref69614%_))) (begin - (let ((_g82796_ + (let ((_g83070_ (let () (declare (not safe)) - (if (##values? _g82795_) - (##vector-length _g82795_) + (if (##values? _g83069_) + (##vector-length _g83069_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82796_ 2))) - (error "Context expects 2 values" _g82796_))) + (##fx= _g83070_ 2))) + (error "Context expects 2 values" _g83070_))) (let ((_%mixin-slots69621%_ (let () (declare (not safe)) - (##vector-ref _g82795_ 0))) + (##vector-ref _g83069_ 0))) (_%slot-type-table69623%_ (let () (declare (not safe)) - (##vector-ref _g82795_ 1)))) + (##vector-ref _g83069_ 1)))) (let* ((_%slot-contract-table69625%_ (_%get-slot-contracts69472%_ _%slots69615%_ @@ -9416,30 +9416,30 @@ (_%g6980373770%_ (lambda (_%g6980569825%_) (if (gx#stx-pair/null? _%g6980569825%_) - (let ((_g82797_ + (let ((_g83071_ (gx#syntax-split-splice _%g6980569825%_ '0))) (begin - (let ((_g82798_ + (let ((_g83072_ (let () (declare (not safe)) - (if (##values? _g82797_) - (##vector-length _g82797_) + (if (##values? _g83071_) + (##vector-length _g83071_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82798_ 2))) + (##fx= _g83072_ 2))) (error "Context expects 2 values" - _g82798_))) + _g83072_))) (let ((_%target6980769828%_ (let () (declare (not safe)) - (##vector-ref _g82797_ 0))) + (##vector-ref _g83071_ 0))) (_%tl6980969831%_ (let () (declare (not safe)) - (##vector-ref _g82797_ 1)))) + (##vector-ref _g83071_ 1)))) (if (gx#stx-null? _%tl6980969831%_) (letrec ((_%loop6981069834%_ (lambda (_%hd6980869838%_ @@ -9470,30 +9470,30 @@ (_%g6987473766%_ (lambda (_%g6987669896%_) (if (gx#stx-pair/null? _%g6987669896%_) - (let ((_g82799_ + (let ((_g83073_ (gx#syntax-split-splice _%g6987669896%_ '0))) (begin - (let ((_g82800_ + (let ((_g83074_ (let () (declare (not safe)) - (if (##values? _g82799_) - (##vector-length _g82799_) + (if (##values? _g83073_) + (##vector-length _g83073_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82800_ 2))) + (##fx= _g83074_ 2))) (error "Context expects 2 values" - _g82800_))) + _g83074_))) (let ((_%target6987869899%_ (let () (declare (not safe)) - (##vector-ref _g82799_ 0))) + (##vector-ref _g83073_ 0))) (_%tl6988069902%_ (let () (declare (not safe)) - (##vector-ref _g82799_ 1)))) + (##vector-ref _g83073_ 1)))) (if (gx#stx-null? _%tl6988069902%_) (letrec ((_%loop6988169905%_ (lambda (_%hd6987969909%_ @@ -9527,32 +9527,32 @@ (_%g6994573757%_ (lambda (_%g6994769967%_) (if (gx#stx-pair/null? _%g6994769967%_) - (let ((_g82801_ + (let ((_g83075_ (gx#syntax-split-splice _%g6994769967%_ '0))) (begin - (let ((_g82802_ + (let ((_g83076_ (let () (declare (not safe)) - (if (##values? _g82801_) + (if (##values? _g83075_) (##vector-length - _g82801_) + _g83075_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82802_ 2))) + (##fx= _g83076_ 2))) (error "Context expects 2 values" - _g82802_))) + _g83076_))) (let ((_%target6994969970%_ (let () (declare (not safe)) - (##vector-ref _g82801_ 0))) + (##vector-ref _g83075_ 0))) (_%tl6995169973%_ (let () (declare (not safe)) (##vector-ref - _g82801_ + _g83075_ 1)))) (if (gx#stx-null? _%tl6995169973%_) @@ -9586,38 +9586,38 @@ (_%g7001673748%_ (lambda (_%g7001870038%_) (if (gx#stx-pair/null? _%g7001870038%_) - (let ((_g82803_ + (let ((_g83077_ (gx#syntax-split-splice _%g7001870038%_ '0))) (begin - (let ((_g82804_ + (let ((_g83078_ (let () (declare (not safe)) (if (##values? - _g82803_) + _g83077_) (##vector-length - _g82803_) + _g83077_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82804_ + (##fx= _g83078_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g82804_))) + (error "Context expects 2 values" _g83078_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%target7002070041%_ (let () (declare (not safe)) (##vector-ref - _g82803_ + _g83077_ 0))) (_%tl7002270044%_ (let () (declare (not safe)) (##vector-ref - _g82803_ + _g83077_ 1)))) (if (gx#stx-null? _%tl7002270044%_) @@ -9653,36 +9653,36 @@ (lambda (_%g7008970109%_) (if (gx#stx-pair/null? _%g7008970109%_) - (let ((_g82805_ + (let ((_g83079_ (gx#syntax-split-splice _%g7008970109%_ '0))) (begin - (let ((_g82806_ + (let ((_g83080_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g82805_) - (##vector-length _g82805_) + _g83079_) + (##vector-length _g83079_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g82806_ 2))) - (error "Context expects 2 values" _g82806_))) + (if (not (let () (declare (not safe)) (##fx= _g83080_ 2))) + (error "Context expects 2 values" _g83080_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%target7009170112%_ (let () (declare (not safe)) (##vector-ref - _g82805_ + _g83079_ 0))) (_%tl7009370115%_ (let () (declare (not safe)) (##vector-ref - _g82805_ + _g83079_ 1)))) (if (gx#stx-null? _%tl7009370115%_) @@ -9717,28 +9717,28 @@ (lambda (_%g7016070180%_) (if (gx#stx-pair/null? _%g7016070180%_) - (let ((_g82807_ + (let ((_g83081_ (gx#syntax-split-splice _%g7016070180%_ '0))) (begin - (let ((_g82808_ + (let ((_g83082_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g82807_) - (##vector-length _g82807_) + (if (##values? _g83081_) + (##vector-length _g83081_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g82808_ 2))) - (error "Context expects 2 values" _g82808_))) + (if (not (let () (declare (not safe)) (##fx= _g83082_ 2))) + (error "Context expects 2 values" _g83082_))) (let ((_%target7016270183%_ (let () (declare (not safe)) - (##vector-ref _g82807_ 0))) + (##vector-ref _g83081_ 0))) (_%tl7016470186%_ (let () (declare (not safe)) - (##vector-ref _g82807_ 1)))) + (##vector-ref _g83081_ 1)))) (if (gx#stx-null? _%tl7016470186%_) (letrec ((_%loop7016570189%_ (lambda (_%hd7016370193%_ @@ -9771,28 +9771,28 @@ (lambda (_%g7023170251%_) (if (gx#stx-pair/null? _%g7023170251%_) - (let ((_g82809_ + (let ((_g83083_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _%g7023170251%_ '0))) (begin - (let ((_g82810_ + (let ((_g83084_ (let () (declare (not safe)) - (if (##values? _g82809_) - (##vector-length _g82809_) + (if (##values? _g83083_) + (##vector-length _g83083_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82810_ 2))) - (error "Context expects 2 values" _g82810_))) + (##fx= _g83084_ 2))) + (error "Context expects 2 values" _g83084_))) (let ((_%target7023370254%_ (let () (declare (not safe)) - (##vector-ref _g82809_ 0))) + (##vector-ref _g83083_ 0))) (_%tl7023570257%_ (let () (declare (not safe)) - (##vector-ref _g82809_ 1)))) + (##vector-ref _g83083_ 1)))) (if (gx#stx-null? _%tl7023570257%_) (letrec ((_%loop7023670260%_ (lambda (_%hd7023470264%_ @@ -9827,27 +9827,27 @@ (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _%g7030270322%_) - (let ((_g82811_ + (let ((_g83085_ (gx#syntax-split-splice _%g7030270322%_ '0))) (begin - (let ((_g82812_ + (let ((_g83086_ (let () (declare (not safe)) - (if (##values? _g82811_) - (##vector-length _g82811_) + (if (##values? _g83085_) + (##vector-length _g83085_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82812_ 2))) - (error "Context expects 2 values" _g82812_))) + (##fx= _g83086_ 2))) + (error "Context expects 2 values" _g83086_))) (let ((_%target7030470325%_ (let () (declare (not safe)) - (##vector-ref _g82811_ 0))) + (##vector-ref _g83085_ 0))) (_%tl7030670328%_ (let () (declare (not safe)) - (##vector-ref _g82811_ 1)))) + (##vector-ref _g83085_ 1)))) (if (gx#stx-null? _%tl7030670328%_) (letrec ((_%loop7030770331%_ (lambda (_%hd7030570335%_ @@ -9884,30 +9884,30 @@ (_%g7037173708%_ (lambda (_%g7037370393%_) (if (gx#stx-pair/null? _%g7037370393%_) - (let ((_g82813_ + (let ((_g83087_ (gx#syntax-split-splice _%g7037370393%_ '0))) (begin - (let ((_g82814_ + (let ((_g83088_ (let () (declare (not safe)) - (if (##values? _g82813_) - (##vector-length _g82813_) + (if (##values? _g83087_) + (##vector-length _g83087_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82814_ 2))) + (##fx= _g83088_ 2))) (error "Context expects 2 values" - _g82814_))) + _g83088_))) (let ((_%target7037570396%_ (let () (declare (not safe)) - (##vector-ref _g82813_ 0))) + (##vector-ref _g83087_ 0))) (_%tl7037770399%_ (let () (declare (not safe)) - (##vector-ref _g82813_ 1)))) + (##vector-ref _g83087_ 1)))) (if (gx#stx-null? _%tl7037770399%_) (letrec ((_%loop7037870402%_ (lambda (_%hd7037670406%_ @@ -9939,30 +9939,30 @@ (_%g7044273691%_ (lambda (_%g7044470464%_) (if (gx#stx-pair/null? _%g7044470464%_) - (let ((_g82815_ + (let ((_g83089_ (gx#syntax-split-splice _%g7044470464%_ '0))) (begin - (let ((_g82816_ + (let ((_g83090_ (let () (declare (not safe)) - (if (##values? _g82815_) - (##vector-length _g82815_) + (if (##values? _g83089_) + (##vector-length _g83089_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82816_ 2))) + (##fx= _g83090_ 2))) (error "Context expects 2 values" - _g82816_))) + _g83090_))) (let ((_%target7044670467%_ (let () (declare (not safe)) - (##vector-ref _g82815_ 0))) + (##vector-ref _g83089_ 0))) (_%tl7044870470%_ (let () (declare (not safe)) - (##vector-ref _g82815_ 1)))) + (##vector-ref _g83089_ 1)))) (if (gx#stx-null? _%tl7044870470%_) (letrec ((_%loop7044970473%_ (lambda (_%hd7044770477%_ @@ -9994,32 +9994,32 @@ (_%g7051373674%_ (lambda (_%g7051570535%_) (if (gx#stx-pair/null? _%g7051570535%_) - (let ((_g82817_ + (let ((_g83091_ (gx#syntax-split-splice _%g7051570535%_ '0))) (begin - (let ((_g82818_ + (let ((_g83092_ (let () (declare (not safe)) - (if (##values? _g82817_) + (if (##values? _g83091_) (##vector-length - _g82817_) + _g83091_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82818_ 2))) + (##fx= _g83092_ 2))) (error "Context expects 2 values" - _g82818_))) + _g83092_))) (let ((_%target7051770538%_ (let () (declare (not safe)) - (##vector-ref _g82817_ 0))) + (##vector-ref _g83091_ 0))) (_%tl7051970541%_ (let () (declare (not safe)) (##vector-ref - _g82817_ + _g83091_ 1)))) (if (gx#stx-null? _%tl7051970541%_) @@ -10053,38 +10053,38 @@ (_%g7058473657%_ (lambda (_%g7058670606%_) (if (gx#stx-pair/null? _%g7058670606%_) - (let ((_g82819_ + (let ((_g83093_ (gx#syntax-split-splice _%g7058670606%_ '0))) (begin - (let ((_g82820_ + (let ((_g83094_ (let () (declare (not safe)) (if (##values? - _g82819_) + _g83093_) (##vector-length - _g82819_) + _g83093_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82820_ + (##fx= _g83094_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g82820_))) + (error "Context expects 2 values" _g83094_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%target7058870609%_ (let () (declare (not safe)) (##vector-ref - _g82819_ + _g83093_ 0))) (_%tl7059070612%_ (let () (declare (not safe)) (##vector-ref - _g82819_ + _g83093_ 1)))) (if (gx#stx-null? _%tl7059070612%_) @@ -10120,36 +10120,36 @@ (lambda (_%g7065770677%_) (if (gx#stx-pair/null? _%g7065770677%_) - (let ((_g82821_ + (let ((_g83095_ (gx#syntax-split-splice _%g7065770677%_ '0))) (begin - (let ((_g82822_ + (let ((_g83096_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g82821_) - (##vector-length _g82821_) + _g83095_) + (##vector-length _g83095_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g82822_ 2))) - (error "Context expects 2 values" _g82822_))) + (if (not (let () (declare (not safe)) (##fx= _g83096_ 2))) + (error "Context expects 2 values" _g83096_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%target7065970680%_ (let () (declare (not safe)) (##vector-ref - _g82821_ + _g83095_ 0))) (_%tl7066170683%_ (let () (declare (not safe)) (##vector-ref - _g82821_ + _g83095_ 1)))) (if (gx#stx-null? _%tl7066170683%_) @@ -10551,28 +10551,28 @@ (lambda (_%g7116871188%_) (if (gx#stx-pair/null? _%g7116871188%_) - (let ((_g82823_ + (let ((_g83097_ (gx#syntax-split-splice _%g7116871188%_ '0))) (begin - (let ((_g82824_ + (let ((_g83098_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g82823_) - (##vector-length _g82823_) + (if (##values? _g83097_) + (##vector-length _g83097_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g82824_ 2))) - (error "Context expects 2 values" _g82824_))) + (if (not (let () (declare (not safe)) (##fx= _g83098_ 2))) + (error "Context expects 2 values" _g83098_))) (let ((_%target7117071191%_ (let () (declare (not safe)) - (##vector-ref _g82823_ 0))) + (##vector-ref _g83097_ 0))) (_%tl7117271194%_ (let () (declare (not safe)) - (##vector-ref _g82823_ 1)))) + (##vector-ref _g83097_ 1)))) (if (gx#stx-null? _%tl7117271194%_) (letrec ((_%loop7117371197%_ (lambda (_%hd7117171201%_ @@ -10840,31 +10840,31 @@ (_%g7189471976%_ (lambda (_%g7189671916%_) (if (gx#stx-pair/null? _%g7189671916%_) - (let ((_g82825_ + (let ((_g83099_ (gx#syntax-split-splice _%g7189671916%_ '0))) (begin - (let ((_g82826_ + (let ((_g83100_ (let () (declare (not safe)) - (if (##values? _g82825_) + (if (##values? _g83099_) (##vector-length - _g82825_) + _g83099_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82826_ 2))) + (##fx= _g83100_ 2))) (error "Context expects 2 values" - _g82826_))) + _g83100_))) (let ((_%target7189871919%_ (let () (declare (not safe)) - (##vector-ref _g82825_ 0))) + (##vector-ref _g83099_ 0))) (_%tl7190071922%_ (let () (declare (not safe)) - (##vector-ref _g82825_ 1)))) + (##vector-ref _g83099_ 1)))) (if (gx#stx-null? _%tl7190071922%_) (letrec ((_%loop7190171925%_ (lambda (_%hd7189971929%_ @@ -10907,7 +10907,7 @@ _%g7189671916%_))))) (_%g7189571912%_ _%g7189671916%_))))) (_%g7189471976%_ - (let ((__tmp82827 + (let ((__tmp83101 (map (lambda (_%slot71980%_ _%setf71982%_ _%rawsetf71983%_) @@ -11042,7 +11042,7 @@ '() _%L70142%_)))) (declare (not safe)) - (##filter identity __tmp82827))))) + (##filter identity __tmp83101))))) _%g7186871879%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_%g7186672120%_ @@ -11167,32 +11167,32 @@ (declare (not safe)) (##cdr _%e7222772261%_)))) (if (gx#stx-pair/null? _%hd7222872265%_) - (let ((_g82828_ + (let ((_g83102_ (gx#syntax-split-splice _%hd7222872265%_ '0))) (begin - (let ((_g82829_ + (let ((_g83103_ (let () (declare (not safe)) - (if (##values? _g82828_) + (if (##values? _g83102_) (##vector-length - _g82828_) + _g83102_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82829_ 2))) + (##fx= _g83103_ 2))) (error "Context expects 2 values" - _g82829_))) + _g83103_))) (let ((_%target7223072271%_ (let () (declare (not safe)) - (##vector-ref _g82828_ 0))) + (##vector-ref _g83102_ 0))) (_%tl7223272274%_ (let () (declare (not safe)) (##vector-ref - _g82828_ + _g83102_ 1)))) (if (gx#stx-null? _%tl7223272274%_) @@ -11370,32 +11370,32 @@ (declare (not safe)) (##cdr _%e7244472490%_)))) (if (gx#stx-pair/null? _%hd7244572494%_) - (let ((_g82830_ + (let ((_g83104_ (gx#syntax-split-splice _%hd7244572494%_ '0))) (begin - (let ((_g82831_ + (let ((_g83105_ (let () (declare (not safe)) - (if (##values? _g82830_) + (if (##values? _g83104_) (##vector-length - _g82830_) + _g83104_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82831_ 2))) + (##fx= _g83105_ 2))) (error "Context expects 2 values" - _g82831_))) + _g83105_))) (let ((_%target7244772500%_ (let () (declare (not safe)) - (##vector-ref _g82830_ 0))) + (##vector-ref _g83104_ 0))) (_%tl7244972503%_ (let () (declare (not safe)) (##vector-ref - _g82830_ + _g83104_ 1)))) (if (gx#stx-null? _%tl7244972503%_) @@ -11432,32 +11432,32 @@ (declare (not safe)) (##cdr _%e7245672530%_)))) (if (gx#stx-pair/null? _%hd7245772534%_) - (let ((_g82832_ + (let ((_g83106_ (gx#syntax-split-splice _%hd7245772534%_ '0))) (begin - (let ((_g82833_ + (let ((_g83107_ (let () (declare (not safe)) - (if (##values? _g82832_) + (if (##values? _g83106_) (##vector-length - _g82832_) + _g83106_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82833_ 2))) + (##fx= _g83107_ 2))) (error "Context expects 2 values" - _g82833_))) + _g83107_))) (let ((_%target7245972540%_ (let () (declare (not safe)) - (##vector-ref _g82832_ 0))) + (##vector-ref _g83106_ 0))) (_%tl7246172543%_ (let () (declare (not safe)) (##vector-ref - _g82832_ + _g83106_ 1)))) (if (gx#stx-null? _%tl7246172543%_) @@ -11632,25 +11632,25 @@ (##cdr _%e7264672682%_)))) (if (gx#stx-pair/null? _%hd7264772686%_) - (let ((_g82834_ + (let ((_g83108_ (gx#syntax-split-splice _%hd7264772686%_ '0))) (begin - (let ((_g82835_ + (let ((_g83109_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g82834_) - (##vector-length _g82834_) + (if (##values? _g83108_) + (##vector-length _g83108_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g82835_ 2))) - (error "Context expects 2 values" _g82835_))) + (if (not (let () (declare (not safe)) (##fx= _g83109_ 2))) + (error "Context expects 2 values" _g83109_))) (let ((_%target7264972692%_ - (let () (declare (not safe)) (##vector-ref _g82834_ 0))) + (let () (declare (not safe)) (##vector-ref _g83108_ 0))) (_%tl7265172695%_ - (let () (declare (not safe)) (##vector-ref _g82834_ 1)))) + (let () (declare (not safe)) (##vector-ref _g83108_ 1)))) (if (gx#stx-null? _%tl7265172695%_) (letrec ((_%loop7265272698%_ (lambda (_%hd7265072702%_ @@ -11686,25 +11686,25 @@ (##cdr _%e7265872722%_)))) (if (gx#stx-pair/null? _%hd7265972726%_) - (let ((_g82836_ + (let ((_g83110_ (gx#syntax-split-splice _%hd7265972726%_ '0))) (begin - (let ((_g82837_ + (let ((_g83111_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g82836_) - (##vector-length _g82836_) + (if (##values? _g83110_) + (##vector-length _g83110_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g82837_ 2))) - (error "Context expects 2 values" _g82837_))) + (if (not (let () (declare (not safe)) (##fx= _g83111_ 2))) + (error "Context expects 2 values" _g83111_))) (let ((_%target7266172732%_ - (let () (declare (not safe)) (##vector-ref _g82836_ 0))) + (let () (declare (not safe)) (##vector-ref _g83110_ 0))) (_%tl7266372735%_ - (let () (declare (not safe)) (##vector-ref _g82836_ 1)))) + (let () (declare (not safe)) (##vector-ref _g83110_ 1)))) (if (gx#stx-null? _%tl7266372735%_) (letrec ((_%loop7266472738%_ (lambda (_%hd7266272742%_ @@ -12054,28 +12054,28 @@ (lambda (_%g7306573091%_) (if (gx#stx-pair/null? _%g7306573091%_) - (let ((_g82838_ + (let ((_g83112_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _%g7306573091%_ '0))) (begin - (let ((_g82839_ + (let ((_g83113_ (let () (declare (not safe)) - (if (##values? _g82838_) - (##vector-length _g82838_) + (if (##values? _g83112_) + (##vector-length _g83112_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82839_ 2))) - (error "Context expects 2 values" _g82839_))) + (##fx= _g83113_ 2))) + (error "Context expects 2 values" _g83113_))) (let ((_%target7306873094%_ (let () (declare (not safe)) - (##vector-ref _g82838_ 0))) + (##vector-ref _g83112_ 0))) (_%tl7307073097%_ (let () (declare (not safe)) - (##vector-ref _g82838_ 1)))) + (##vector-ref _g83112_ 1)))) (if (gx#stx-null? _%tl7307073097%_) (letrec ((_%loop7307173100%_ (lambda (_%hd7306973104%_ @@ -12172,37 +12172,37 @@ (lambda (_%g7317673202%_) (if (gx#stx-pair/null? _%g7317673202%_) - (let ((_g82840_ + (let ((_g83114_ (gx#syntax-split-splice _%g7317673202%_ '0))) (begin - (let ((_g82841_ + (let ((_g83115_ (let () (declare (not safe)) (if (##values? - _g82840_) + _g83114_) (##vector-length - _g82840_) + _g83114_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g82841_ 2))) - (error "Context expects 2 values" _g82841_))) + (##fx= _g83115_ 2))) + (error "Context expects 2 values" _g83115_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%target7317973205%_ (let () (declare (not safe)) (##vector-ref - _g82840_ + _g83114_ 0))) (_%tl7318173208%_ (let () (declare (not safe)) (##vector-ref - _g82840_ + _g83114_ 1)))) (if (gx#stx-null? _%tl7318173208%_) @@ -12290,30 +12290,30 @@ (_%g7328573389%_ (lambda (_%g7328773313%_) (if (gx#stx-pair/null? _%g7328773313%_) - (let ((_g82842_ + (let ((_g83116_ (gx#syntax-split-splice _%g7328773313%_ '0))) (begin - (let ((_g82843_ + (let ((_g83117_ (let () (declare (not safe)) - (if (##values? _g82842_) - (##vector-length _g82842_) + (if (##values? _g83116_) + (##vector-length _g83116_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82843_ 2))) + (##fx= _g83117_ 2))) (error "Context expects 2 values" - _g82843_))) + _g83117_))) (let ((_%target7329073316%_ (let () (declare (not safe)) - (##vector-ref _g82842_ 0))) + (##vector-ref _g83116_ 0))) (_%tl7329273319%_ (let () (declare (not safe)) - (##vector-ref _g82842_ 1)))) + (##vector-ref _g83116_ 1)))) (if (gx#stx-null? _%tl7329273319%_) (letrec ((_%loop7329373322%_ (lambda (_%hd7329173326%_ @@ -12424,30 +12424,30 @@ (_%g7342373502%_ (lambda (_%g7342573445%_) (if (gx#stx-pair/null? _%g7342573445%_) - (let ((_g82844_ + (let ((_g83118_ (gx#syntax-split-splice _%g7342573445%_ '0))) (begin - (let ((_g82845_ + (let ((_g83119_ (let () (declare (not safe)) - (if (##values? _g82844_) - (##vector-length _g82844_) + (if (##values? _g83118_) + (##vector-length _g83118_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g82845_ 2))) + (##fx= _g83119_ 2))) (error "Context expects 2 values" - _g82845_))) + _g83119_))) (let ((_%target7342773448%_ (let () (declare (not safe)) - (##vector-ref _g82844_ 0))) + (##vector-ref _g83118_ 0))) (_%tl7342973451%_ (let () (declare (not safe)) - (##vector-ref _g82844_ 1)))) + (##vector-ref _g83118_ 1)))) (if (gx#stx-null? _%tl7342973451%_) (letrec ((_%loop7343073454%_ (lambda (_%hd7342873458%_ @@ -12860,36 +12860,36 @@ (##cdr _%e6949169535%_)))) (if (gx#stx-pair/null? _%hd6949269539%_) - (let ((_g82846_ + (let ((_g83120_ (gx#syntax-split-splice _%hd6949269539%_ '0))) (begin - (let ((_g82847_ + (let ((_g83121_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g82846_) - (##vector-length _g82846_) + _g83120_) + (##vector-length _g83120_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g82847_ 2))) - (error "Context expects 2 values" _g82847_))) + (if (not (let () (declare (not safe)) (##fx= _g83121_ 2))) + (error "Context expects 2 values" _g83121_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%target6949469545%_ (let () (declare (not safe)) (##vector-ref - _g82846_ + _g83120_ 0))) (_%tl6949669548%_ (let () (declare (not safe)) (##vector-ref - _g82846_ + _g83120_ 1)))) (if (gx#stx-null? _%tl6949669548%_) @@ -12996,52 +12996,52 @@ (_%g7680476823%_ _%g7680576827%_)))) (_%g7680476823%_ _%g7680576827%_))))) (_%g7680376880%_ _%$stx76800%_)))) - (define |gerbil/core/contract~TypedDefinitions[:0:]#defmutable| + (define |gerbil/core/contract~TypedDefinitions[:0:]#defmutable*| (lambda (_%stx76884%_) - (let* ((_%__stx8238082381%_ _%stx76884%_) - (_%g7688876925%_ + (let* ((_%__stx8260882609%_ _%stx76884%_) + (_%g7688876922%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8238082381%_)))) - (let ((_%__kont8238382384%_ - (lambda (_%L77037%_ _%L77039%_ _%L77040%_ _%L77041%_) - (let* ((_%g7706677081%_ - (lambda (_%g7706777077%_) + _%__stx8260882609%_)))) + (let ((_%__kont8261182612%_ + (lambda (_%L77024%_ _%L77026%_ _%L77027%_ _%L77028%_) + (let* ((_%g7705577070%_ + (lambda (_%g7705677066%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7706777077%_))) - (_%g7706577126%_ - (lambda (_%g7706777085%_) - (if (gx#stx-pair? _%g7706777085%_) - (let ((_%e7707077088%_ - (gx#syntax-e _%g7706777085%_))) - (let ((_%hd7707177092%_ + _%g7705677066%_))) + (_%g7705477115%_ + (lambda (_%g7705677074%_) + (if (gx#stx-pair? _%g7705677074%_) + (let ((_%e7705977077%_ + (gx#syntax-e _%g7705677074%_))) + (let ((_%hd7706077081%_ (let () (declare (not safe)) - (##car _%e7707077088%_))) - (_%tl7707277095%_ + (##car _%e7705977077%_))) + (_%tl7706177084%_ (let () (declare (not safe)) - (##cdr _%e7707077088%_)))) - (if (gx#stx-pair? _%tl7707277095%_) - (let ((_%e7707377098%_ + (##cdr _%e7705977077%_)))) + (if (gx#stx-pair? _%tl7706177084%_) + (let ((_%e7706277087%_ (gx#syntax-e - _%tl7707277095%_))) - (let ((_%hd7707477102%_ + _%tl7706177084%_))) + (let ((_%hd7706377091%_ (let () (declare (not safe)) - (##car _%e7707377098%_))) - (_%tl7707577105%_ + (##car _%e7706277087%_))) + (_%tl7706477094%_ (let () (declare (not safe)) - (##cdr _%e7707377098%_)))) + (##cdr _%e7706277087%_)))) (if (gx#stx-null? - _%tl7707577105%_) - ((lambda (_%L77108%_ - _%L77110%_) + _%tl7706477094%_) + ((lambda (_%L77097%_ + _%L77099%_) (cons (gx#datum->syntax '#f 'begin) @@ -13049,176 +13049,420 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons _%L77110%_ (cons _%L77040%_ '()))) + (cons _%L77099%_ (cons _%L77027%_ '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L77041%_ '()) - (cons _%L77110%_ '()))) + (cons (cons _%L77028%_ '()) + (cons _%L77099%_ '()))) (cons (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L77108%_ + (cons (cons _%L77097%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'new-value) - (cons _%L77039%_ (cons _%L77037%_ '()))) + (cons _%L77026%_ _%L77024%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'set!) - (cons _%L77110%_ + (cons _%L77099%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'new-value) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd7707477102%_ - _%hd7707177092%_) - (_%g7706677081%_ - _%g7706777085%_)))) - (_%g7706677081%_ _%g7706777085%_)))) - (_%g7706677081%_ _%g7706777085%_))))) - (_%g7706577126%_ - (list (gx#stx-identifier _%L77041%_ '"__" _%L77041%_) + _%hd7706377091%_ + _%hd7706077081%_) + (_%g7705577070%_ + _%g7705677074%_)))) + (_%g7705577070%_ _%g7705677074%_)))) + (_%g7705577070%_ _%g7705677074%_))))) + (_%g7705477115%_ + (list (gx#stx-identifier _%L77028%_ '"__" _%L77028%_) (gx#stx-identifier - _%L77041%_ - _%L77041%_ + _%L77028%_ + _%L77028%_ '"-set!")))))) - (_%__kont8238582386%_ - (lambda (_%L76962%_ _%L76964%_) - (cons (gx#datum->syntax '#f 'defmutable) - (cons _%L76964%_ - (cons _%L76962%_ + (_%__kont8261382614%_ + (lambda (_%L76959%_ _%L76961%_) + (cons (gx#datum->syntax '#f 'defmutable*) + (cons _%L76961%_ + (cons _%L76959%_ (cons (gx#datum->syntax '#f ':) (cons (gx#datum->syntax '#f ':t) '())))))))) - (let ((_%__match8241982420%_ - (lambda (_%e7689476987%_ - _%hd7689576991%_ - _%tl7689676994%_ - _%e7689776997%_ - _%hd7689877001%_ - _%tl7689977004%_ - _%e7690077007%_ - _%hd7690177011%_ - _%tl7690277014%_ - _%e7690377017%_ - _%hd7690477021%_ - _%tl7690577024%_ - _%e7690677027%_ - _%hd7690777031%_ - _%tl7690877034%_) - (let ((_%L77037%_ _%hd7690777031%_) - (_%L77039%_ _%hd7690477021%_) - (_%L77040%_ _%hd7690177011%_) - (_%L77041%_ _%hd7689877001%_)) - (if (and (gx#identifier? _%L77041%_) - (gx#identifier? _%L77039%_) + (let ((_%__match8263982640%_ + (lambda (_%e7689476984%_ + _%hd7689576988%_ + _%tl7689676991%_ + _%e7689776994%_ + _%hd7689876998%_ + _%tl7689977001%_ + _%e7690077004%_ + _%hd7690177008%_ + _%tl7690277011%_ + _%e7690377014%_ + _%hd7690477018%_ + _%tl7690577021%_) + (let ((_%L77024%_ _%tl7690577021%_) + (_%L77026%_ _%hd7690477018%_) + (_%L77027%_ _%hd7690177008%_) + (_%L77028%_ _%hd7689876998%_)) + (if (and (gx#identifier? _%L77028%_) + (gx#identifier? _%L77026%_) (or (gx#free-identifier=? - _%L77039%_ + _%L77026%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L77039%_ - (gx#datum->syntax '#f ':?)))) - (_%__kont8238382384%_ - _%L77037%_ - _%L77039%_ - _%L77040%_ - _%L77041%_) - (let () (declare (not safe)) (_%g7688876925%_))))))) - (if (gx#stx-pair? _%__stx8238082381%_) - (let ((_%e7689476987%_ (gx#syntax-e _%__stx8238082381%_))) - (let ((_%tl7689676994%_ + _%L77026%_ + (gx#datum->syntax '#f ':?)) + (gx#free-identifier=? + _%L77026%_ + (gx#datum->syntax '#f ':~)))) + (_%__kont8261182612%_ + _%L77024%_ + _%L77026%_ + _%L77027%_ + _%L77028%_) + (let () (declare (not safe)) (_%g7688876922%_))))))) + (if (gx#stx-pair? _%__stx8260882609%_) + (let ((_%e7689476984%_ (gx#syntax-e _%__stx8260882609%_))) + (let ((_%tl7689676991%_ (let () (declare (not safe)) - (##cdr _%e7689476987%_))) - (_%hd7689576991%_ + (##cdr _%e7689476984%_))) + (_%hd7689576988%_ (let () (declare (not safe)) - (##car _%e7689476987%_)))) - (if (gx#stx-pair? _%tl7689676994%_) - (let ((_%e7689776997%_ - (gx#syntax-e _%tl7689676994%_))) - (let ((_%tl7689977004%_ + (##car _%e7689476984%_)))) + (if (gx#stx-pair? _%tl7689676991%_) + (let ((_%e7689776994%_ + (gx#syntax-e _%tl7689676991%_))) + (let ((_%tl7689977001%_ (let () (declare (not safe)) - (##cdr _%e7689776997%_))) - (_%hd7689877001%_ + (##cdr _%e7689776994%_))) + (_%hd7689876998%_ (let () (declare (not safe)) - (##car _%e7689776997%_)))) - (if (gx#stx-pair? _%tl7689977004%_) - (let ((_%e7690077007%_ - (gx#syntax-e _%tl7689977004%_))) - (let ((_%tl7690277014%_ + (##car _%e7689776994%_)))) + (if (gx#stx-pair? _%tl7689977001%_) + (let ((_%e7690077004%_ + (gx#syntax-e _%tl7689977001%_))) + (let ((_%tl7690277011%_ (let () (declare (not safe)) - (##cdr _%e7690077007%_))) - (_%hd7690177011%_ + (##cdr _%e7690077004%_))) + (_%hd7690177008%_ (let () (declare (not safe)) - (##car _%e7690077007%_)))) - (if (gx#stx-pair? _%tl7690277014%_) - (let ((_%e7690377017%_ + (##car _%e7690077004%_)))) + (if (gx#stx-pair? _%tl7690277011%_) + (let ((_%e7690377014%_ (gx#syntax-e - _%tl7690277014%_))) - (let ((_%tl7690577024%_ + _%tl7690277011%_))) + (let ((_%tl7690577021%_ (let () (declare (not safe)) - (##cdr _%e7690377017%_))) - (_%hd7690477021%_ + (##cdr _%e7690377014%_))) + (_%hd7690477018%_ (let () (declare (not safe)) - (##car _%e7690377017%_)))) - (if (gx#stx-pair? - _%tl7690577024%_) - (let ((_%e7690677027%_ - (gx#syntax-e - _%tl7690577024%_))) - (let ((_%tl7690877034%_ - (let () - (declare - (not safe)) - (##cdr _%e7690677027%_))) - (_%hd7690777031%_ - (let () - (declare - (not safe)) - (##car _%e7690677027%_)))) - (if (gx#stx-null? - _%tl7690877034%_) - (_%__match8241982420%_ - _%e7689476987%_ - _%hd7689576991%_ - _%tl7689676994%_ - _%e7689776997%_ - _%hd7689877001%_ - _%tl7689977004%_ - _%e7690077007%_ - _%hd7690177011%_ - _%tl7690277014%_ - _%e7690377017%_ - _%hd7690477021%_ - _%tl7690577024%_ - _%e7690677027%_ - _%hd7690777031%_ - _%tl7690877034%_) - (let () - (declare - (not safe)) - (_%g7688876925%_))))) + (##car _%e7690377014%_)))) + (_%__match8263982640%_ + _%e7689476984%_ + _%hd7689576988%_ + _%tl7689676991%_ + _%e7689776994%_ + _%hd7689876998%_ + _%tl7689977001%_ + _%e7690077004%_ + _%hd7690177008%_ + _%tl7690277011%_ + _%e7690377014%_ + _%hd7690477018%_ + _%tl7690577021%_))) + (if (gx#stx-null? _%tl7690277011%_) + (_%__kont8261382614%_ + _%hd7690177008%_ + _%hd7689876998%_) + (let () + (declare (not safe)) + (_%g7688876922%_)))))) + (let () + (declare (not safe)) + (_%g7688876922%_))))) + (let () (declare (not safe)) (_%g7688876922%_))))) + (let () (declare (not safe)) (_%g7688876922%_)))))))) + (define |gerbil/core/contract~TypedDefinitions[:0:]#defmutable| + (lambda (_%stx77123%_) + (let* ((_%__stx8266282663%_ _%stx77123%_) + (_%g7712777161%_ + (lambda () + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx8266282663%_)))) + (let ((_%__kont8266582666%_ + (lambda (_%L77263%_ _%L77265%_ _%L77266%_ _%L77267%_) + (let* ((_%g7729477309%_ + (lambda (_%g7729577305%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g7729577305%_))) + (_%g7729377354%_ + (lambda (_%g7729577313%_) + (if (gx#stx-pair? _%g7729577313%_) + (let ((_%e7729877316%_ + (gx#syntax-e _%g7729577313%_))) + (let ((_%hd7729977320%_ + (let () + (declare (not safe)) + (##car _%e7729877316%_))) + (_%tl7730077323%_ + (let () + (declare (not safe)) + (##cdr _%e7729877316%_)))) + (if (gx#stx-pair? _%tl7730077323%_) + (let ((_%e7730177326%_ + (gx#syntax-e + _%tl7730077323%_))) + (let ((_%hd7730277330%_ + (let () + (declare (not safe)) + (##car _%e7730177326%_))) + (_%tl7730377333%_ (let () (declare (not safe)) - (_%g7688876925%_))))) - (if (gx#stx-null? _%tl7690277014%_) - (_%__kont8238582386%_ - _%hd7690177011%_ - _%hd7689877001%_) + (##cdr _%e7730177326%_)))) + (if (gx#stx-null? + _%tl7730377333%_) + ((lambda (_%L77336%_ + _%L77338%_) + (cons (gx#datum->syntax + '#f + 'begin) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'def) + (cons _%L77338%_ (cons _%L77266%_ '()))) + (cons (cons (gx#datum->syntax '#f 'def/c) + (cons (cons _%L77336%_ + (cons (cons (gx#datum->syntax + '#f + 'new-value) + (cons _%L77265%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%L77263%_)) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax + '#f + 'set!) + (cons _%L77338%_ + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'new-value) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + (cons (cons (gx#datum->syntax '#f 'defsyntax) + (cons _%L77267%_ + (cons (cons (gx#datum->syntax + '#f + 'identifier-rules) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'set!) + (cons (gx#datum->syntax '#f '%%set-dotted!) + '())) + (cons (cons (cons (gx#datum->syntax '#f 'set!) + (cons (gx#datum->syntax + '#f + 'the-var) + (cons (gx#datum->syntax + '#f + 'new-value) + '()))) + (cons (cons _%L77336%_ + (cons (gx#datum->syntax + '#f + 'new-value) + '())) + '())) + (cons (cons (cons (gx#datum->syntax + '#f + '%%set-dotted!) + (cons (gx#datum->syntax + '#f + 'the-var) + (cons (gx#datum->syntax + '#f + 'new-value) + '()))) + (cons (cons _%L77336%_ + (cons (gx#datum->syntax + '#f + 'new-value) + '())) + '())) + (cons (cons (gx#datum->syntax + '#f + 'the-var) + (cons (cons (gx#datum->syntax + '#f + 'identifier?) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'syntax) + (cons (gx#datum->syntax '#f 'the-var) '())) + '())) + (cons _%L77338%_ '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (cons (gx#datum->syntax + '#f + 'the-var) + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'arg) + (cons (gx#datum->syntax '#f '...) '()))) + (cons (cons _%L77338%_ + (cons (gx#datum->syntax '#f 'arg) + (cons (gx#datum->syntax '#f '...) '()))) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd7730277330%_ + _%hd7729977320%_) + (_%g7729477309%_ + _%g7729577313%_)))) + (_%g7729477309%_ _%g7729577313%_)))) + (_%g7729477309%_ _%g7729577313%_))))) + (_%g7729377354%_ + (list (gx#stx-identifier _%L77267%_ '"__" _%L77267%_) + (gx#stx-identifier + _%L77267%_ + _%L77267%_ + '"-set!")))))) + (_%__kont8266782668%_ + (lambda (_%L77198%_ _%L77200%_) + (cons (gx#datum->syntax '#f 'defmutable) + (cons _%L77200%_ + (cons _%L77198%_ + (cons (gx#datum->syntax '#f ':) + (cons (gx#datum->syntax '#f ':t) + '())))))))) + (let ((_%__match8269382694%_ + (lambda (_%e7713377223%_ + _%hd7713477227%_ + _%tl7713577230%_ + _%e7713677233%_ + _%hd7713777237%_ + _%tl7713877240%_ + _%e7713977243%_ + _%hd7714077247%_ + _%tl7714177250%_ + _%e7714277253%_ + _%hd7714377257%_ + _%tl7714477260%_) + (let ((_%L77263%_ _%tl7714477260%_) + (_%L77265%_ _%hd7714377257%_) + (_%L77266%_ _%hd7714077247%_) + (_%L77267%_ _%hd7713777237%_)) + (if (and (gx#identifier? _%L77267%_) + (gx#identifier? _%L77265%_) + (or (gx#free-identifier=? + _%L77265%_ + (gx#datum->syntax '#f ':)) + (gx#free-identifier=? + _%L77265%_ + (gx#datum->syntax '#f ':?)) + (gx#free-identifier=? + _%L77265%_ + (gx#datum->syntax '#f ':~)))) + (_%__kont8266582666%_ + _%L77263%_ + _%L77265%_ + _%L77266%_ + _%L77267%_) + (let () (declare (not safe)) (_%g7712777161%_))))))) + (if (gx#stx-pair? _%__stx8266282663%_) + (let ((_%e7713377223%_ (gx#syntax-e _%__stx8266282663%_))) + (let ((_%tl7713577230%_ + (let () + (declare (not safe)) + (##cdr _%e7713377223%_))) + (_%hd7713477227%_ + (let () + (declare (not safe)) + (##car _%e7713377223%_)))) + (if (gx#stx-pair? _%tl7713577230%_) + (let ((_%e7713677233%_ + (gx#syntax-e _%tl7713577230%_))) + (let ((_%tl7713877240%_ + (let () + (declare (not safe)) + (##cdr _%e7713677233%_))) + (_%hd7713777237%_ + (let () + (declare (not safe)) + (##car _%e7713677233%_)))) + (if (gx#stx-pair? _%tl7713877240%_) + (let ((_%e7713977243%_ + (gx#syntax-e _%tl7713877240%_))) + (let ((_%tl7714177250%_ + (let () + (declare (not safe)) + (##cdr _%e7713977243%_))) + (_%hd7714077247%_ + (let () + (declare (not safe)) + (##car _%e7713977243%_)))) + (if (gx#stx-pair? _%tl7714177250%_) + (let ((_%e7714277253%_ + (gx#syntax-e + _%tl7714177250%_))) + (let ((_%tl7714477260%_ + (let () + (declare (not safe)) + (##cdr _%e7714277253%_))) + (_%hd7714377257%_ + (let () + (declare (not safe)) + (##car _%e7714277253%_)))) + (_%__match8269382694%_ + _%e7713377223%_ + _%hd7713477227%_ + _%tl7713577230%_ + _%e7713677233%_ + _%hd7713777237%_ + _%tl7713877240%_ + _%e7713977243%_ + _%hd7714077247%_ + _%tl7714177250%_ + _%e7714277253%_ + _%hd7714377257%_ + _%tl7714477260%_))) + (if (gx#stx-null? _%tl7714177250%_) + (_%__kont8266782668%_ + _%hd7714077247%_ + _%hd7713777237%_) (let () (declare (not safe)) - (_%g7688876925%_)))))) + (_%g7712777161%_)))))) (let () (declare (not safe)) - (_%g7688876925%_))))) - (let () (declare (not safe)) (_%g7688876925%_))))) - (let () (declare (not safe)) (_%g7688876925%_)))))))))) + (_%g7712777161%_))))) + (let () (declare (not safe)) (_%g7712777161%_))))) + (let () (declare (not safe)) (_%g7712777161%_)))))))))) diff --git a/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm b/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm index 05f2b3a09..e42151144 100644 --- a/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm +++ b/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm @@ -1,39 +1,39 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core/contract~ClassMeta::timestamp 1713044311) + (define gerbil/core/contract~ClassMeta::timestamp 1713454406) (define gerbil/core/contract~ClassMeta#!class-precedence-list (lambda (_%klass52327%_) (let ((_%$e52329%_ - (let ((__obj82474 _%klass52327%_)) + (let ((__obj82748 _%klass52327%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82474 + __obj82748 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82474 '5 '#f '#f)) + (##unchecked-structure-ref __obj82748 '5 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82474 + __obj82748 'precedence-list))))) (if _%$e52329%_ _%$e52329%_ - (let ((_g82521_ + (let ((_g82795_ (c4-linearize '() - (let ((__obj82475 _%klass52327%_)) + (let ((__obj82749 _%klass52327%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82475 + __obj82749 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82475 '3 '#f '#f)) + (##unchecked-structure-ref __obj82749 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82475 + __obj82749 'super))) 'get-precedence-list: (lambda (_%klass-id52333%_) @@ -42,98 +42,98 @@ (gx#syntax-local-value _%klass-id52333%_)))) 'struct: (lambda (_%klass-id52335%_) - (let ((__obj82476 + (let ((__obj82750 (gx#syntax-local-value _%klass-id52335%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82476 + __obj82750 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82476 + __obj82750 '7 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82476 + __obj82750 'struct?)))) 'eq: gx#free-identifier=? 'get-name: gx#stx-e))) (begin - (let ((_g82522_ + (let ((_g82796_ (let () (declare (not safe)) - (if (##values? _g82521_) - (##vector-length _g82521_) + (if (##values? _g82795_) + (##vector-length _g82795_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g82522_ 2))) - (error "Context expects 2 values" _g82522_))) + (if (not (let () (declare (not safe)) (##fx= _g82796_ 2))) + (error "Context expects 2 values" _g82796_))) (let ((_%precedence-list52337%_ - (let () (declare (not safe)) (##vector-ref _g82521_ 0))) + (let () (declare (not safe)) (##vector-ref _g82795_ 0))) (_%base-struct52338%_ (let () (declare (not safe)) - (##vector-ref _g82521_ 1)))) + (##vector-ref _g82795_ 1)))) (let ((_%precedence-list52382%_ - (if (let ((__tmp82523 - (let ((__obj82477 _%klass52327%_)) + (if (let ((__tmp82797 + (let ((__obj82751 _%klass52327%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82477 + __obj82751 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82477 + __obj82751 '1 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82477 + __obj82751 'id))))) (declare (not safe)) - (##memq __tmp82523 '(t object class))) + (##memq __tmp82797 '(t object class))) _%precedence-list52337%_ (if (member ':object _%precedence-list52337%_ gx#free-identifier=?) _%precedence-list52337%_ - (if (let ((__obj82478 _%klass52327%_)) + (if (let ((__obj82752 _%klass52327%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82478 + __obj82752 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82478 + __obj82752 '9 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj82478 + __obj82752 'system?))) (if (member ':t _%precedence-list52337%_ gx#free-identifier=?) _%precedence-list52337%_ - (let ((__tmp82524 + (let ((__tmp82798 (cons (gx#core-quote-syntax ':t) '()))) (declare (not safe)) (##append _%precedence-list52337%_ - __tmp82524))) + __tmp82798))) (let _%loop52344%_ ((_%tail52346%_ _%precedence-list52337%_) (_%head52347%_ '())) @@ -186,23 +186,23 @@ _%rest52380%_ _%hd52378%_))) (_%else5235052364%_))))))))) - (let ((__obj82479 _%klass52327%_)) + (let ((__obj82753 _%klass52327%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82479 + __obj82753 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj82479 + __obj82753 _%precedence-list52382%_ '5 '#f '#f)) (class-slot-set! gerbil/core/mop~MOP-2#class-type-info::t - __obj82479 + __obj82753 'precedence-list _%precedence-list52382%_))) _%precedence-list52382%_))))))))) diff --git a/src/bootstrap/gerbil/core/contract~InterfaceInfo~0.scm b/src/bootstrap/gerbil/core/contract~InterfaceInfo~0.scm index f5332666c..e6ea1a986 100644 --- a/src/bootstrap/gerbil/core/contract~InterfaceInfo~0.scm +++ b/src/bootstrap/gerbil/core/contract~InterfaceInfo~0.scm @@ -1,15 +1,15 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core/contract~InterfaceInfo::timestamp 1713044311) + (define gerbil/core/contract~InterfaceInfo::timestamp 1713454406) (begin - (define gerbil/core/contract~InterfaceInfo#_g82517_ + (define gerbil/core/contract~InterfaceInfo#_g82791_ (##structure gx#syntax-quote::t 'cast #f (gx#current-expander-context) '())) - (define gerbil/core/contract~InterfaceInfo#_g82518_ + (define gerbil/core/contract~InterfaceInfo#_g82792_ (##structure gx#syntax-quote::t 'immediate-instance-of? @@ -251,15 +251,15 @@ (if (gx#stx-null? _%tl4478744810%_) ((lambda (_%L44813%_ _%L44814%_) (lambda (_%self44828%_ _%stx44829%_) - (let* ((_%__stx7713477135%_ + (let* ((_%__stx7736277363%_ _%stx44829%_) (_%g4483244845%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7713477135%_)))) - (let ((_%__kont7713677137%_ + _%__stx7736277363%_)))) + (let ((_%__kont7736477365%_ (lambda (_%L44903%_) (let* ((_%g4491444932%_ (lambda (_%g4491544929%_) @@ -351,59 +351,59 @@ (_%g4491444932%_ _%g4491544935%_)))) (_%g4491444932%_ _%g4491544935%_))))) (_%g4491344980%_ - (list (let ((__obj82442 _%self44828%_)) + (list (let ((__obj82716 _%self44828%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82442 + __obj82716 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82442 + __obj82716 '4 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj82442 + __obj82716 'instance-type))) - (let ((__obj82443 _%self44828%_)) + (let ((__obj82717 _%self44828%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82443 + __obj82717 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82443 + __obj82717 '5 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj82443 + __obj82717 'interface-descriptor))) - (let ((__obj82444 _%self44828%_)) + (let ((__obj82718 _%self44828%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82444 + __obj82718 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82444 + __obj82718 '4 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj82444 + __obj82718 'instance-type)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7713877139%_ + (_%__kont7736677367%_ (lambda () (let* ((_%g4485244859%_ (lambda (_%g4485344856%_) @@ -416,34 +416,34 @@ (lambda (_%g4485344862%_) ((lambda (_%L44864%_) _%L44864%_) _%g4485344862%_)))) (_%g4485144879%_ - (let ((__obj82445 _%self44828%_)) + (let ((__obj82719 _%self44828%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82445 + __obj82719 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj82445 '5 '#f '#f)) + (##unchecked-structure-ref __obj82719 '5 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj82445 + __obj82719 'interface-descriptor)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%g4483144882%_ (lambda () (if (gx#identifier? _%stx44829%_) - (_%__kont7713877139%_) + (_%__kont7736677367%_) (let () (declare (not safe)) (_%g4483244845%_)))))) (if (gx#stx-pair? - _%__stx7713477135%_) + _%__stx7736277363%_) (let ((_%e4483544887%_ (gx#syntax-e - _%__stx7713477135%_))) + _%__stx7736277363%_))) (let ((_%tl4483744892%_ (let () (declare @@ -463,7 +463,7 @@ (declare (not safe)) (##car _%e4483844895%_)))) (if (gx#stx-null? _%tl4484044900%_) - (_%__kont7713677137%_ _%hd4483944898%_) + (_%__kont7736477365%_ _%hd4483944898%_) (let () (declare (not safe)) (_%g4483144882%_))))) (let () (declare (not safe)) (_%g4483144882%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -476,8 +476,8 @@ (_%g4477844792%_ _%g4477944795%_)))) (_%g4477844792%_ _%g4477944795%_))))) (_%g4477744986%_ - (list gerbil/core/contract~InterfaceInfo#_g82517_ - gerbil/core/contract~InterfaceInfo#_g82518_)))) + (list gerbil/core/contract~InterfaceInfo#_g82791_ + gerbil/core/contract~InterfaceInfo#_g82792_)))) (bind-method! gerbil/core/contract~InterfaceInfo#interface-info::t 'apply-macro-expander @@ -486,22 +486,22 @@ (define gerbil/core/contract~InterfaceInfo#interface-info-flatten-mixin (lambda (_%info44611%_) (let _%loop44613%_ ((_%rest44615%_ - (let ((__obj82447 _%info44611%_)) + (let ((__obj82721 _%info44611%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82447 + __obj82721 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82447 + __obj82721 '2 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj82447 + __obj82721 'interface-mixin)))) (_%result44616%_ '())) (let* ((_%rest4461744625%_ _%rest44615%_) @@ -509,23 +509,23 @@ (_%K4462144643%_ (lambda (_%rest44636%_ _%id44637%_) (let* ((_%mixin44639%_ - (let ((__obj82446 + (let ((__obj82720 (gx#syntax-local-value _%id44637%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj82446 + __obj82720 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj82446 + __obj82720 '2 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj82446 + __obj82720 'interface-mixin)))) (_%result44641%_ (if (member _%id44637%_ @@ -572,15 +572,15 @@ _%stx44604%_ _%is?44606%_)))) (define gerbil/core/contract~InterfaceInfo#syntax-local-interface-info? - (lambda _g82520_ - (let ((_g82519_ (let () (declare (not safe)) (##length _g82520_)))) - (cond ((let () (declare (not safe)) (##fx= _g82519_ 1)) + (lambda _g82794_ + (let ((_g82793_ (let () (declare (not safe)) (##length _g82794_)))) + (cond ((let () (declare (not safe)) (##fx= _g82793_ 1)) (apply gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _g82520_)) - ((let () (declare (not safe)) (##fx= _g82519_ 2)) + _g82794_)) + ((let () (declare (not safe)) (##fx= _g82793_ 2)) (apply gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__% - _g82520_)) + _g82794_)) (else (##raise-wrong-number-of-arguments-exception gerbil/core/contract~InterfaceInfo#syntax-local-interface-info? - _g82520_))))))))) + _g82794_))))))))) diff --git a/src/bootstrap/gerbil/core/contract~TypeEnv~0.scm b/src/bootstrap/gerbil/core/contract~TypeEnv~0.scm index c81ec7682..3653f614f 100644 --- a/src/bootstrap/gerbil/core/contract~TypeEnv~0.scm +++ b/src/bootstrap/gerbil/core/contract~TypeEnv~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core/contract~TypeEnv::timestamp 1713044311) + (define gerbil/core/contract~TypeEnv::timestamp 1713454406) (begin (define gerbil/core/contract~TypeEnv#type-env::t (make-class-type diff --git a/src/bootstrap/gerbil/core/macro-object~0.scm b/src/bootstrap/gerbil/core/macro-object~0.scm index d73956a26..8f894aed3 100644 --- a/src/bootstrap/gerbil/core/macro-object~0.scm +++ b/src/bootstrap/gerbil/core/macro-object~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core/macro-object::timestamp 1713044310) + (define gerbil/core/macro-object::timestamp 1713454405) (begin (define gerbil/core/macro-object#macro-object::t (make-class-type diff --git a/src/bootstrap/gerbil/core/mop~MOP-2~0.scm b/src/bootstrap/gerbil/core/mop~MOP-2~0.scm index c21dd3b2b..11e3cad0c 100644 --- a/src/bootstrap/gerbil/core/mop~MOP-2~0.scm +++ b/src/bootstrap/gerbil/core/mop~MOP-2~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core/mop~MOP-2::timestamp 1713044305) + (define gerbil/core/mop~MOP-2::timestamp 1713454400) (begin (define gerbil/core/mop~MOP-2#class-type-info::t (make-class-type diff --git a/src/bootstrap/gerbil/core/runtime.ssi b/src/bootstrap/gerbil/core/runtime.ssi index 368589555..bf08f0d4a 100644 --- a/src/bootstrap/gerbil/core/runtime.ssi +++ b/src/bootstrap/gerbil/core/runtime.ssi @@ -323,6 +323,7 @@ namespace: gerbil/core/runtime (%#begin (%#export #t) (%#extern (default-random-source default-random-source) + (time time) (->char-set ->char-set) (abandoned-mutex-exception? abandoned-mutex-exception?) (abort abort) diff --git a/src/bootstrap/gerbil/expander/common~0.scm b/src/bootstrap/gerbil/expander/common~0.scm index 5f71412ea..dbe71d8ab 100644 --- a/src/bootstrap/gerbil/expander/common~0.scm +++ b/src/bootstrap/gerbil/expander/common~0.scm @@ -1,22 +1,22 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/common::timestamp 1713044315) + (define gerbil/expander/common::timestamp 1713454410) (begin (define gx#AST::t - (let ((__tmp115348 (list)) - (__tmp115347 (cons (cons 'struct: '#t) '((print: e))))) + (let ((__tmp115622 (list)) + (__tmp115621 (cons (cons 'struct: '#t) '((print: e))))) (declare (not safe)) (__make-class-type 'gerbil#AST::t 'syntax - __tmp115348 + __tmp115622 '(e source) - __tmp115347 + __tmp115621 '#f))) (define gx#AST? (let () (declare (not safe)) (__make-class-predicate gx#AST::t))) (define gx#make-AST - (lambda _%$args115246%_ (apply make-instance gx#AST::t _%$args115246%_))) + (lambda _%$args115520%_ (apply make-instance gx#AST::t _%$args115520%_))) (define gx#AST-e (let () (declare (not safe)) (__make-class-slot-accessor gx#AST::t 'e))) (define gx#AST-source diff --git a/src/bootstrap/gerbil/expander/common~1.scm b/src/bootstrap/gerbil/expander/common~1.scm index 7ec523236..4c3f073af 100644 --- a/src/bootstrap/gerbil/expander/common~1.scm +++ b/src/bootstrap/gerbil/expander/common~1.scm @@ -1,83 +1,83 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gx[1]#_g115350_| + (define |gx[1]#_g115624_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g115352_| + (define |gx[1]#_g115626_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g115354_| + (define |gx[1]#_g115628_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |gx[1]#_g115356_| + (define |gx[1]#_g115630_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g115357_| + (define |gx[1]#_g115631_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g115359_| + (define |gx[1]#_g115633_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g115360_| + (define |gx[1]#_g115634_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g115362_| + (define |gx[1]#_g115636_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g115363_| + (define |gx[1]#_g115637_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g115365_| + (define |gx[1]#_g115639_| (##structure gx#syntax-quote::t '&AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g115366_| + (define |gx[1]#_g115640_| (##structure gx#syntax-quote::t '&AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g115368_| + (define |gx[1]#_g115642_| (##structure gx#syntax-quote::t 'else @@ -86,7 +86,7 @@ '())) (begin (define |gx[:0:]#AST| - (let ((__obj115346 + (let ((__obj115620 (let () (declare (not safe)) (##structure @@ -114,109 +114,109 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115346 'gerbil#AST::t '1 '#f '#f)) + (##unchecked-structure-set! __obj115620 'gerbil#AST::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115346 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj115620 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115346 '(e source) '4 '#f '#f)) + (##unchecked-structure-set! __obj115620 '(e source) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115346 '(e source) '6 '#f '#f)) + (##unchecked-structure-set! __obj115620 '(e source) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115346 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj115620 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115346 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj115620 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115346 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj115620 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115346 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj115620 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115346 '#f '11 '#f '#f)) - (let ((__tmp115349 |gx[1]#_g115350_|)) + (##unchecked-structure-set! __obj115620 '#f '11 '#f '#f)) + (let ((__tmp115623 |gx[1]#_g115624_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115346 __tmp115349 '12 '#f '#f)) - (let ((__tmp115351 |gx[1]#_g115352_|)) + (##unchecked-structure-set! __obj115620 __tmp115623 '12 '#f '#f)) + (let ((__tmp115625 |gx[1]#_g115626_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115346 __tmp115351 '13 '#f '#f)) - (let ((__tmp115353 |gx[1]#_g115354_|)) + (##unchecked-structure-set! __obj115620 __tmp115625 '13 '#f '#f)) + (let ((__tmp115627 |gx[1]#_g115628_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115346 __tmp115353 '14 '#f '#f)) - (let ((__tmp115355 - (cons (cons 'e |gx[1]#_g115356_|) - (cons (cons 'source |gx[1]#_g115357_|) '())))) + (##unchecked-structure-set! __obj115620 __tmp115627 '14 '#f '#f)) + (let ((__tmp115629 + (cons (cons 'e |gx[1]#_g115630_|) + (cons (cons 'source |gx[1]#_g115631_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj115346 __tmp115355 '15 '#f '#f)) - (let ((__tmp115358 - (cons (cons 'e |gx[1]#_g115359_|) - (cons (cons 'source |gx[1]#_g115360_|) '())))) + (##unchecked-structure-set! __obj115620 __tmp115629 '15 '#f '#f)) + (let ((__tmp115632 + (cons (cons 'e |gx[1]#_g115633_|) + (cons (cons 'source |gx[1]#_g115634_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj115346 __tmp115358 '16 '#f '#f)) - (let ((__tmp115361 - (cons (cons 'e |gx[1]#_g115362_|) - (cons (cons 'source |gx[1]#_g115363_|) '())))) + (##unchecked-structure-set! __obj115620 __tmp115632 '16 '#f '#f)) + (let ((__tmp115635 + (cons (cons 'e |gx[1]#_g115636_|) + (cons (cons 'source |gx[1]#_g115637_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj115346 __tmp115361 '17 '#f '#f)) - (let ((__tmp115364 - (cons (cons 'e |gx[1]#_g115365_|) - (cons (cons 'source |gx[1]#_g115366_|) '())))) + (##unchecked-structure-set! __obj115620 __tmp115635 '17 '#f '#f)) + (let ((__tmp115638 + (cons (cons 'e |gx[1]#_g115639_|) + (cons (cons 'source |gx[1]#_g115640_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj115346 __tmp115364 '18 '#f '#f)) + (##unchecked-structure-set! __obj115620 __tmp115638 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115346 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj115620 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115346 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj115620 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115346 '() '20 '#f '#f)) - __obj115346)) + (##unchecked-structure-set! __obj115620 '() '20 '#f '#f)) + __obj115620)) (define |gx[:0:]#check-procedure| - (lambda (_%$stx113941%_) - (let* ((_%g113945113959%_ - (lambda (_%g113946113955%_) + (lambda (_%$stx114215%_) + (let* ((_%g114219114233%_ + (lambda (_%g114220114229%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g113946113955%_))) - (_%g113944114001%_ - (lambda (_%g113946113963%_) - (if (gx#stx-pair? _%g113946113963%_) - (let ((_%e113948113966%_ - (gx#syntax-e _%g113946113963%_))) - (let ((_%hd113949113970%_ + _%g114220114229%_))) + (_%g114218114275%_ + (lambda (_%g114220114237%_) + (if (gx#stx-pair? _%g114220114237%_) + (let ((_%e114222114240%_ + (gx#syntax-e _%g114220114237%_))) + (let ((_%hd114223114244%_ (let () (declare (not safe)) - (##car _%e113948113966%_))) - (_%tl113950113973%_ + (##car _%e114222114240%_))) + (_%tl114224114247%_ (let () (declare (not safe)) - (##cdr _%e113948113966%_)))) - (if (gx#stx-pair? _%tl113950113973%_) - (let ((_%e113951113976%_ - (gx#syntax-e _%tl113950113973%_))) - (let ((_%hd113952113980%_ + (##cdr _%e114222114240%_)))) + (if (gx#stx-pair? _%tl114224114247%_) + (let ((_%e114225114250%_ + (gx#syntax-e _%tl114224114247%_))) + (let ((_%hd114226114254%_ (let () (declare (not safe)) - (##car _%e113951113976%_))) - (_%tl113953113983%_ + (##car _%e114225114250%_))) + (_%tl114227114257%_ (let () (declare (not safe)) - (##cdr _%e113951113976%_)))) - (if (gx#stx-null? _%tl113953113983%_) - ((lambda (_%L113986%_) + (##cdr _%e114225114250%_)))) + (if (gx#stx-null? _%tl114227114257%_) + ((lambda (_%L114260%_) (cons (gx#datum->syntax '#f 'unless) (cons (cons (gx#datum->syntax '#f 'procedure?) - (cons _%L113986%_ + (cons _%L114260%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -224,182 +224,182 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'error) - (cons '"expected procedure" (cons _%L113986%_ '()))) + (cons '"expected procedure" (cons _%L114260%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd113952113980%_) - (_%g113945113959%_ _%g113946113963%_)))) - (_%g113945113959%_ _%g113946113963%_)))) - (_%g113945113959%_ _%g113946113963%_))))) - (_%g113944114001%_ _%$stx113941%_)))) + _%hd114226114254%_) + (_%g114219114233%_ _%g114220114237%_)))) + (_%g114219114233%_ _%g114220114237%_)))) + (_%g114219114233%_ _%g114220114237%_))))) + (_%g114218114275%_ _%$stx114215%_)))) (define |gx[:0:]#core-syntax-case| - (lambda (_%stx114005%_) - (letrec ((_%generate114008%_ - (lambda (_%tgt114157%_ _%kws114159%_ _%clauses114160%_) - (letrec ((_%generate-clause114162%_ - (lambda (_%hd115097%_ _%E115099%_) - (let* ((_%__stx115249115250%_ _%hd115097%_) - (_%g115103115130%_ + (lambda (_%stx114279%_) + (letrec ((_%generate114282%_ + (lambda (_%tgt114431%_ _%kws114433%_ _%clauses114434%_) + (letrec ((_%generate-clause114436%_ + (lambda (_%hd115371%_ _%E115373%_) + (let* ((_%__stx115523115524%_ _%hd115371%_) + (_%g115377115404%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx115249115250%_)))) - (let ((_%__kont115252115253%_ - (lambda (_%L115226%_ _%L115228%_) - (_%generate1114164%_ - _%hd115097%_ - _%L115228%_ + _%__stx115523115524%_)))) + (let ((_%__kont115526115527%_ + (lambda (_%L115500%_ _%L115502%_) + (_%generate1114438%_ + _%hd115371%_ + _%L115502%_ '#t - _%L115226%_ - _%E115099%_))) - (_%__kont115254115255%_ - (lambda (_%L115178%_ - _%L115180%_ - _%L115181%_) - (_%generate1114164%_ - _%hd115097%_ - _%L115181%_ - _%L115180%_ - _%L115178%_ - _%E115099%_))) - (_%__kont115256115257%_ + _%L115500%_ + _%E115373%_))) + (_%__kont115528115529%_ + (lambda (_%L115452%_ + _%L115454%_ + _%L115455%_) + (_%generate1114438%_ + _%hd115371%_ + _%L115455%_ + _%L115454%_ + _%L115452%_ + _%E115373%_))) + (_%__kont115530115531%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case pattern" - _%stx114005%_ - _%hd115097%_)))) - (if (gx#stx-pair? _%__stx115249115250%_) - (let ((_%e115107115206%_ + _%stx114279%_ + _%hd115371%_)))) + (if (gx#stx-pair? _%__stx115523115524%_) + (let ((_%e115381115480%_ (gx#syntax-e - _%__stx115249115250%_))) - (let ((_%tl115109115213%_ + _%__stx115523115524%_))) + (let ((_%tl115383115487%_ (let () (declare (not safe)) - (##cdr _%e115107115206%_))) - (_%hd115108115210%_ + (##cdr _%e115381115480%_))) + (_%hd115382115484%_ (let () (declare (not safe)) - (##car _%e115107115206%_)))) + (##car _%e115381115480%_)))) (if (gx#stx-pair? - _%tl115109115213%_) - (let ((_%e115110115216%_ + _%tl115383115487%_) + (let ((_%e115384115490%_ (gx#syntax-e - _%tl115109115213%_))) - (let ((_%tl115112115223%_ + _%tl115383115487%_))) + (let ((_%tl115386115497%_ (let () (declare (not safe)) - (##cdr _%e115110115216%_))) - (_%hd115111115220%_ + (##cdr _%e115384115490%_))) + (_%hd115385115494%_ (let () (declare (not safe)) - (##car _%e115110115216%_)))) + (##car _%e115384115490%_)))) (if (gx#stx-null? - _%tl115112115223%_) - (_%__kont115252115253%_ - _%hd115111115220%_ - _%hd115108115210%_) + _%tl115386115497%_) + (_%__kont115526115527%_ + _%hd115385115494%_ + _%hd115382115484%_) (if (gx#stx-pair? - _%tl115112115223%_) - (let ((_%e115122115168%_ + _%tl115386115497%_) + (let ((_%e115396115442%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl115112115223%_))) - (let ((_%tl115124115175%_ + (gx#syntax-e _%tl115386115497%_))) + (let ((_%tl115398115449%_ (let () (declare (not safe)) - (##cdr _%e115122115168%_))) - (_%hd115123115172%_ + (##cdr _%e115396115442%_))) + (_%hd115397115446%_ (let () (declare (not safe)) - (##car _%e115122115168%_)))) - (if (gx#stx-null? _%tl115124115175%_) - (_%__kont115254115255%_ - _%hd115123115172%_ - _%hd115111115220%_ - _%hd115108115210%_) - (_%__kont115256115257%_)))) - (_%__kont115256115257%_))))) + (##car _%e115396115442%_)))) + (if (gx#stx-null? _%tl115398115449%_) + (_%__kont115528115529%_ + _%hd115397115446%_ + _%hd115385115494%_ + _%hd115382115484%_) + (_%__kont115530115531%_)))) + (_%__kont115530115531%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont115256115257%_)))) - (_%__kont115256115257%_)))))) - (_%generate1114164%_ - (lambda (_%where114550%_ - _%hd114552%_ - _%fender114553%_ - _%body114554%_ - _%E114555%_) - (letrec ((_%recur114557%_ - (lambda (_%hd114560%_ - _%tgt114562%_ - _%K114563%_) - (let* ((_%__stx115295115296%_ - _%hd114560%_) - (_%g114566114578%_ + (_%__kont115530115531%_)))) + (_%__kont115530115531%_)))))) + (_%generate1114438%_ + (lambda (_%where114824%_ + _%hd114826%_ + _%fender114827%_ + _%body114828%_ + _%E114829%_) + (letrec ((_%recur114831%_ + (lambda (_%hd114834%_ + _%tgt114836%_ + _%K114837%_) + (let* ((_%__stx115569115570%_ + _%hd114834%_) + (_%g114840114852%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx115295115296%_)))) - (let ((_%__kont115298115299%_ - (lambda (_%L114887%_ - _%L114889%_) - (let* ((_%g114900114908%_ - (lambda (_%g114901114904%_) + _%__stx115569115570%_)))) + (let ((_%__kont115572115573%_ + (lambda (_%L115161%_ + _%L115163%_) + (let* ((_%g115174115182%_ + (lambda (_%g115175115178%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114901114904%_))) - (_%g114899115089%_ - (lambda (_%g114901114912%_) - ((lambda (_%L114915%_) - (let* ((_%g114927114935%_ - (lambda (_%g114928114931%_) + _%g115175115178%_))) + (_%g115173115363%_ + (lambda (_%g115175115186%_) + ((lambda (_%L115189%_) + (let* ((_%g115201115209%_ + (lambda (_%g115202115205%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114928114931%_))) - (_%g114926115085%_ - (lambda (_%g114928114939%_) - ((lambda (_%L114942%_) - (let* ((_%g114955114963%_ - (lambda (_%g114956114959%_) + _%g115202115205%_))) + (_%g115200115359%_ + (lambda (_%g115202115213%_) + ((lambda (_%L115216%_) + (let* ((_%g115229115237%_ + (lambda (_%g115230115233%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114956114959%_))) - (_%g114954115081%_ - (lambda (_%g114956114967%_) - ((lambda (_%L114970%_) - (let* ((_%g114983114991%_ - (lambda (_%g114984114987%_) + _%g115230115233%_))) + (_%g115228115355%_ + (lambda (_%g115230115241%_) + ((lambda (_%L115244%_) + (let* ((_%g115257115265%_ + (lambda (_%g115258115261%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g114984114987%_))) - (_%g114982115077%_ - (lambda (_%g114984114995%_) - ((lambda (_%L114998%_) - (let* ((_%g115011115019%_ - (lambda (_%g115012115015%_) + _%g115258115261%_))) + (_%g115256115351%_ + (lambda (_%g115258115269%_) + ((lambda (_%L115272%_) + (let* ((_%g115285115293%_ + (lambda (_%g115286115289%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115012115015%_))) - (_%g115010115073%_ - (lambda (_%g115012115023%_) - ((lambda (_%L115026%_) - (let* ((_%g115039115047%_ - (lambda (_%g115040115043%_) + _%g115286115289%_))) + (_%g115284115347%_ + (lambda (_%g115286115297%_) + ((lambda (_%L115300%_) + (let* ((_%g115313115321%_ + (lambda (_%g115314115317%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115040115043%_))) - (_%g115038115069%_ - (lambda (_%g115040115051%_) - ((lambda (_%L115054%_) + _%g115314115317%_))) + (_%g115312115343%_ + (lambda (_%g115314115325%_) + ((lambda (_%L115328%_) (cons (gx#datum->syntax '#f 'if) @@ -407,306 +407,306 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'stx-pair?) - (cons _%L114915%_ '())) + (cons _%L115189%_ '())) (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L114942%_ + (cons (cons (cons _%L115216%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'syntax-e) - (cons _%L114915%_ '())) + (cons _%L115189%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L114970%_ + (cons (cons (cons _%L115244%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '##car) - (cons _%L114942%_ '())) + (cons _%L115216%_ '())) '())) - (cons (cons _%L114998%_ + (cons (cons _%L115272%_ (cons (cons (gx#datum->syntax '#f '##cdr) - (cons _%L114942%_ '())) + (cons _%L115216%_ '())) '())) '())) - (cons _%L115026%_ '()))) + (cons _%L115300%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons _%L115054%_ '()))))) + (cons _%L115328%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g115040115051%_)))) - (_%g115038115069%_ _%E114555%_))) - _%g115012115023%_)))) - (_%g115010115073%_ - (_%recur114557%_ - _%L114889%_ - _%L114970%_ - (_%recur114557%_ - _%L114887%_ - _%L114998%_ - _%K114563%_))))) - _%g114984114995%_)))) - (_%g114982115077%_ (gx#genident 'tl)))) + _%g115314115325%_)))) + (_%g115312115343%_ _%E114829%_))) + _%g115286115297%_)))) + (_%g115284115347%_ + (_%recur114831%_ + _%L115163%_ + _%L115244%_ + (_%recur114831%_ + _%L115161%_ + _%L115272%_ + _%K114837%_))))) + _%g115258115269%_)))) + (_%g115256115351%_ (gx#genident 'tl)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g114956114967%_)))) - (_%g114954115081%_ + _%g115230115241%_)))) + (_%g115228115355%_ (gx#genident 'hd)))) - _%g114928114939%_)))) - (_%g114926115085%_ (gx#genident 'e)))) - _%g114901114912%_)))) - (_%g114899115089%_ _%tgt114562%_)))) + _%g115202115213%_)))) + (_%g115200115359%_ (gx#genident 'e)))) + _%g115175115186%_)))) + (_%g115173115363%_ _%tgt114836%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont115300115301%_ + (_%__kont115574115575%_ (lambda () (if (gx#identifier? - _%hd114560%_) + _%hd114834%_) (if (gx#underscore? - _%hd114560%_) - _%K114563%_ - (if (let ((__tmp115367 + _%hd114834%_) + _%K114837%_ + (if (let ((__tmp115641 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g114592114594%_) + (lambda (_%g114866114868%_) (gx#bound-identifier=? - _%g114592114594%_ - _%hd114560%_)))) + _%g114866114868%_ + _%hd114834%_)))) (declare (not safe)) - (__find __tmp115367 _%kws114159%_)) - (let* ((_%g114600114615%_ - (lambda (_%g114601114611%_) + (__find __tmp115641 _%kws114433%_)) + (let* ((_%g114874114889%_ + (lambda (_%g114875114885%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114601114611%_))) - (_%g114599114668%_ - (lambda (_%g114601114619%_) - (if (gx#stx-pair? _%g114601114619%_) - (let ((_%e114604114622%_ + _%g114875114885%_))) + (_%g114873114942%_ + (lambda (_%g114875114893%_) + (if (gx#stx-pair? _%g114875114893%_) + (let ((_%e114878114896%_ (gx#syntax-e - _%g114601114619%_))) - (let ((_%hd114605114626%_ + _%g114875114893%_))) + (let ((_%hd114879114900%_ (let () (declare (not safe)) - (##car _%e114604114622%_))) - (_%tl114606114629%_ + (##car _%e114878114896%_))) + (_%tl114880114903%_ (let () (declare (not safe)) - (##cdr _%e114604114622%_)))) + (##cdr _%e114878114896%_)))) (if (gx#stx-pair? - _%tl114606114629%_) - (let ((_%e114607114632%_ + _%tl114880114903%_) + (let ((_%e114881114906%_ (gx#syntax-e - _%tl114606114629%_))) - (let ((_%hd114608114636%_ + _%tl114880114903%_))) + (let ((_%hd114882114910%_ (let () (declare (not safe)) - (##car _%e114607114632%_))) - (_%tl114609114639%_ + (##car _%e114881114906%_))) + (_%tl114883114913%_ (let () (declare (not safe)) - (##cdr _%e114607114632%_)))) + (##cdr _%e114881114906%_)))) (if (gx#stx-null? - _%tl114609114639%_) - ((lambda (_%L114642%_ + _%tl114883114913%_) + ((lambda (_%L114916%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L114644%_) + _%L114918%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'and) (cons (cons (gx#datum->syntax '#f 'identifier?) - (cons _%L114644%_ '())) + (cons _%L114918%_ '())) (cons (cons (gx#datum->syntax '#f 'core-identifier=?) - (cons _%L114644%_ + (cons _%L114918%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L114642%_ '())) + (cons _%L114916%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons _%K114563%_ (cons _%E114555%_ '()))))) - _%hd114608114636%_ - _%hd114605114626%_) - (_%g114600114615%_ _%g114601114619%_)))) + (cons _%K114837%_ (cons _%E114829%_ '()))))) + _%hd114882114910%_ + _%hd114879114900%_) + (_%g114874114889%_ _%g114875114893%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g114600114615%_ - _%g114601114619%_)))) - (_%g114600114615%_ - _%g114601114619%_))))) - (_%g114599114668%_ - (list _%tgt114562%_ _%hd114560%_))) - (let* ((_%g114674114689%_ - (lambda (_%g114675114685%_) + (_%g114874114889%_ + _%g114875114893%_)))) + (_%g114874114889%_ + _%g114875114893%_))))) + (_%g114873114942%_ + (list _%tgt114836%_ _%hd114834%_))) + (let* ((_%g114948114963%_ + (lambda (_%g114949114959%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114675114685%_))) - (_%g114673114734%_ - (lambda (_%g114675114693%_) - (if (gx#stx-pair? _%g114675114693%_) - (let ((_%e114678114696%_ + _%g114949114959%_))) + (_%g114947115008%_ + (lambda (_%g114949114967%_) + (if (gx#stx-pair? _%g114949114967%_) + (let ((_%e114952114970%_ (gx#syntax-e - _%g114675114693%_))) - (let ((_%hd114679114700%_ + _%g114949114967%_))) + (let ((_%hd114953114974%_ (let () (declare (not safe)) - (##car _%e114678114696%_))) - (_%tl114680114703%_ + (##car _%e114952114970%_))) + (_%tl114954114977%_ (let () (declare (not safe)) - (##cdr _%e114678114696%_)))) + (##cdr _%e114952114970%_)))) (if (gx#stx-pair? - _%tl114680114703%_) - (let ((_%e114681114706%_ + _%tl114954114977%_) + (let ((_%e114955114980%_ (gx#syntax-e - _%tl114680114703%_))) - (let ((_%hd114682114710%_ + _%tl114954114977%_))) + (let ((_%hd114956114984%_ (let () (declare (not safe)) - (##car _%e114681114706%_))) - (_%tl114683114713%_ + (##car _%e114955114980%_))) + (_%tl114957114987%_ (let () (declare (not safe)) - (##cdr _%e114681114706%_)))) + (##cdr _%e114955114980%_)))) (if (gx#stx-null? - _%tl114683114713%_) - ((lambda (_%L114716%_ + _%tl114957114987%_) + ((lambda (_%L114990%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L114718%_) + _%L114992%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L114716%_ (cons _%L114718%_ '())) + (cons (cons (cons _%L114990%_ (cons _%L114992%_ '())) '()) - (cons _%K114563%_ '())))) - _%hd114682114710%_ - _%hd114679114700%_) - (_%g114674114689%_ _%g114675114693%_)))) + (cons _%K114837%_ '())))) + _%hd114956114984%_ + _%hd114953114974%_) + (_%g114948114963%_ _%g114949114967%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g114674114689%_ - _%g114675114693%_)))) - (_%g114674114689%_ - _%g114675114693%_))))) - (_%g114673114734%_ - (list _%tgt114562%_ _%hd114560%_))))) - (if (gx#stx-null? _%hd114560%_) - (let* ((_%g114740114748%_ - (lambda (_%g114741114744%_) + (_%g114948114963%_ + _%g114949114967%_)))) + (_%g114948114963%_ + _%g114949114967%_))))) + (_%g114947115008%_ + (list _%tgt114836%_ _%hd114834%_))))) + (if (gx#stx-null? _%hd114834%_) + (let* ((_%g115014115022%_ + (lambda (_%g115015115018%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114741114744%_))) - (_%g114739114767%_ - (lambda (_%g114741114752%_) - ((lambda (_%L114755%_) + _%g115015115018%_))) + (_%g115013115041%_ + (lambda (_%g115015115026%_) + ((lambda (_%L115029%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'stx-null?) - (cons _%L114755%_ '())) - (cons _%K114563%_ - (cons _%E114555%_ + (cons _%L115029%_ '())) + (cons _%K114837%_ + (cons _%E114829%_ '()))))) - _%g114741114752%_)))) - (_%g114739114767%_ _%tgt114562%_)) - (if (gx#stx-datum? _%hd114560%_) - (let* ((_%g114773114792%_ - (lambda (_%g114774114788%_) + _%g115015115026%_)))) + (_%g115013115041%_ _%tgt114836%_)) + (if (gx#stx-datum? _%hd114834%_) + (let* ((_%g115047115066%_ + (lambda (_%g115048115062%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114774114788%_))) - (_%g114772114851%_ - (lambda (_%g114774114796%_) - (if (gx#stx-pair? _%g114774114796%_) - (let ((_%e114778114799%_ + _%g115048115062%_))) + (_%g115046115125%_ + (lambda (_%g115048115070%_) + (if (gx#stx-pair? _%g115048115070%_) + (let ((_%e115052115073%_ (gx#syntax-e - _%g114774114796%_))) - (let ((_%hd114779114803%_ + _%g115048115070%_))) + (let ((_%hd115053115077%_ (let () (declare (not safe)) - (##car _%e114778114799%_))) - (_%tl114780114806%_ + (##car _%e115052115073%_))) + (_%tl115054115080%_ (let () (declare (not safe)) - (##cdr _%e114778114799%_)))) + (##cdr _%e115052115073%_)))) (if (gx#stx-pair? - _%tl114780114806%_) - (let ((_%e114781114809%_ + _%tl115054115080%_) + (let ((_%e115055115083%_ (gx#syntax-e - _%tl114780114806%_))) - (let ((_%hd114782114813%_ + _%tl115054115080%_))) + (let ((_%hd115056115087%_ (let () (declare (not safe)) - (##car _%e114781114809%_))) - (_%tl114783114816%_ + (##car _%e115055115083%_))) + (_%tl115057115090%_ (let () (declare (not safe)) - (##cdr _%e114781114809%_)))) + (##cdr _%e115055115083%_)))) (if (gx#stx-pair? - _%tl114783114816%_) - (let ((_%e114784114819%_ + _%tl115057115090%_) + (let ((_%e115058115093%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl114783114816%_))) - (let ((_%hd114785114823%_ + _%tl115057115090%_))) + (let ((_%hd115059115097%_ (let () (declare (not safe)) - (##car _%e114784114819%_))) - (_%tl114786114826%_ + (##car _%e115058115093%_))) + (_%tl115060115100%_ (let () (declare (not safe)) - (##cdr _%e114784114819%_)))) - (if (gx#stx-null? _%tl114786114826%_) - ((lambda (_%L114829%_ _%L114831%_ _%L114832%_) + (##cdr _%e115058115093%_)))) + (if (gx#stx-null? _%tl115060115100%_) + ((lambda (_%L115103%_ _%L115105%_ _%L115106%_) (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L114829%_ + (cons (cons _%L115103%_ (cons (cons (gx#datum->syntax '#f 'stx-e) - (cons _%L114832%_ + (cons _%L115106%_ '())) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L114831%_ '())) + (cons _%L115105%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%K114563%_ - (cons _%E114555%_ '()))))) - _%hd114785114823%_ - _%hd114782114813%_ - _%hd114779114803%_) - (_%g114773114792%_ _%g114774114796%_)))) - (_%g114773114792%_ _%g114774114796%_)))) + (cons _%K114837%_ + (cons _%E114829%_ '()))))) + _%hd115059115097%_ + _%hd115056115087%_ + _%hd115053115077%_) + (_%g115047115066%_ _%g115048115070%_)))) + (_%g115047115066%_ _%g115048115070%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g114773114792%_ - _%g114774114796%_)))) - (_%g114773114792%_ - _%g114774114796%_))))) - (_%g114772114851%_ - (list _%tgt114562%_ - _%hd114560%_ - (let ((_%e114855%_ - (gx#stx-e _%hd114560%_))) - (if (or (keyword? _%e114855%_) + (_%g115047115066%_ + _%g115048115070%_)))) + (_%g115047115066%_ + _%g115048115070%_))))) + (_%g115046115125%_ + (list _%tgt114836%_ + _%hd114834%_ + (let ((_%e115129%_ + (gx#stx-e _%hd114834%_))) + (if (or (keyword? _%e115129%_) (let () (declare (not safe)) - (immediate? _%e114855%_))) + (immediate? _%e115129%_))) (gx#datum->syntax '#f 'eq?) - (if (number? _%e114855%_) + (if (number? _%e115129%_) (gx#datum->syntax '#f 'eqv?) (gx#datum->syntax '#f @@ -714,69 +714,69 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case head" - _%stx114005%_ - _%where114550%_ - _%hd114560%_))))))) + _%stx114279%_ + _%where114824%_ + _%hd114834%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%__stx115295115296%_) - (let ((_%e114570114877%_ + _%__stx115569115570%_) + (let ((_%e114844115151%_ (gx#syntax-e - _%__stx115295115296%_))) - (let ((_%tl114572114884%_ + _%__stx115569115570%_))) + (let ((_%tl114846115158%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e114570114877%_))) - (_%hd114571114881%_ - (let () (declare (not safe)) (##car _%e114570114877%_)))) - (_%__kont115298115299%_ - _%tl114572114884%_ - _%hd114571114881%_))) + (##cdr _%e114844115151%_))) + (_%hd114845115155%_ + (let () (declare (not safe)) (##car _%e114844115151%_)))) + (_%__kont115572115573%_ + _%tl114846115158%_ + _%hd114845115155%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont115300115301%_))))))) - (_%recur114557%_ - _%hd114552%_ - _%tgt114157%_ + (_%__kont115574115575%_))))))) + (_%recur114831%_ + _%hd114826%_ + _%tgt114431%_ (cons (gx#datum->syntax '#f 'if) - (cons _%fender114553%_ - (cons _%body114554%_ - (cons _%E114555%_ + (cons _%fender114827%_ + (cons _%body114828%_ + (cons _%E114829%_ '())))))))) - (_%generate-clauses114165%_ - (lambda (_%clauses114288%_) - (let _%lp114291%_ ((_%rest114294%_ - _%clauses114288%_) - (_%E114296%_ + (_%generate-clauses114439%_ + (lambda (_%clauses114562%_) + (let _%lp114565%_ ((_%rest114568%_ + _%clauses114562%_) + (_%E114570%_ (gx#genident 'E)) - (_%r114297%_ '())) - (let* ((_%__stx115331115332%_ _%rest114294%_) - (_%g114300114312%_ + (_%r114571%_ '())) + (let* ((_%__stx115605115606%_ _%rest114568%_) + (_%g114574114586%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx115331115332%_)))) - (let ((_%__kont115334115335%_ - (lambda (_%L114377%_ _%L114379%_) - (let* ((_%__stx115311115312%_ - _%L114379%_) - (_%g114391114402%_ + _%__stx115605115606%_)))) + (let ((_%__kont115608115609%_ + (lambda (_%L114651%_ _%L114653%_) + (let* ((_%__stx115585115586%_ + _%L114653%_) + (_%g114665114676%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx115311115312%_)))) - (let ((_%__kont115314115315%_ - (lambda (_%L114531%_) + _%__stx115585115586%_)))) + (let ((_%__kont115588115589%_ + (lambda (_%L114805%_) (if (gx#stx-null? - _%L114377%_) + _%L114651%_) (if (and (gx#stx-list? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L114531%_) - (not (gx#stx-null? _%L114531%_))) - (cons (cons _%E114296%_ + _%L114805%_) + (not (gx#stx-null? _%L114805%_))) + (cons (cons _%E114570%_ (cons (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) (cons '() @@ -784,113 +784,113 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin) - _%L114531%_) + _%L114805%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%L114379%_)) + (gx#stx-source _%L114653%_)) '())) - _%r114297%_) + _%r114571%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid else body" - _%stx114005%_ - _%L114379%_)) + _%stx114279%_ + _%L114653%_)) (gx#raise-syntax-error '#f '"Bad syntax; misplaced else" - _%stx114005%_ - _%L114379%_)))) + _%stx114279%_ + _%L114653%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont115316115317%_ + (_%__kont115590115591%_ (lambda () - (let* ((_%g114413114421%_ - (lambda (_%g114414114417%_) + (let* ((_%g114687114695%_ + (lambda (_%g114688114691%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114414114417%_))) - (_%g114412114510%_ - (lambda (_%g114414114425%_) - ((lambda (_%L114428%_) - (let* ((_%g114444114452%_ - (lambda (_%g114445114448%_) + _%g114688114691%_))) + (_%g114686114784%_ + (lambda (_%g114688114699%_) + ((lambda (_%L114702%_) + (let* ((_%g114718114726%_ + (lambda (_%g114719114722%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114445114448%_))) - (_%g114443114506%_ - (lambda (_%g114445114456%_) - ((lambda (_%L114459%_) - (let* ((_%g114472114480%_ - (lambda (_%g114473114476%_) + _%g114719114722%_))) + (_%g114717114780%_ + (lambda (_%g114719114730%_) + ((lambda (_%L114733%_) + (let* ((_%g114746114754%_ + (lambda (_%g114747114750%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114473114476%_))) - (_%g114471114502%_ - (lambda (_%g114473114484%_) - ((lambda (_%L114487%_) - (_%lp114291%_ - _%L114377%_ - _%L114428%_ - (cons (cons _%E114296%_ + _%g114747114750%_))) + (_%g114745114776%_ + (lambda (_%g114747114758%_) + ((lambda (_%L114761%_) + (_%lp114565%_ + _%L114651%_ + _%L114702%_ + (cons (cons _%E114570%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L114487%_ '())) - _%r114297%_))) + (cons _%L114761%_ '())) + _%r114571%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g114473114484%_)))) - (_%g114471114502%_ + _%g114747114758%_)))) + (_%g114745114776%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _%L114459%_ + (cons _%L114733%_ '()))) - (gx#stx-source _%L114379%_))))) - _%g114445114456%_)))) - (_%g114443114506%_ - (_%generate-clause114162%_ - _%L114379%_ - (cons _%L114428%_ '()))))) - _%g114414114425%_)))) - (_%g114412114510%_ (gx#genident 'E)))))) + (gx#stx-source _%L114653%_))))) + _%g114719114730%_)))) + (_%g114717114780%_ + (_%generate-clause114436%_ + _%L114653%_ + (cons _%L114702%_ '()))))) + _%g114688114699%_)))) + (_%g114686114784%_ (gx#genident 'E)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%__stx115311115312%_) - (let ((_%e114394114521%_ + _%__stx115585115586%_) + (let ((_%e114668114795%_ (gx#syntax-e - _%__stx115311115312%_))) - (let ((_%tl114396114528%_ + _%__stx115585115586%_))) + (let ((_%tl114670114802%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e114394114521%_))) - (_%hd114395114525%_ - (let () (declare (not safe)) (##car _%e114394114521%_)))) - (if (gx#identifier? _%hd114395114525%_) + (##cdr _%e114668114795%_))) + (_%hd114669114799%_ + (let () (declare (not safe)) (##car _%e114668114795%_)))) + (if (gx#identifier? _%hd114669114799%_) (if (gx#free-identifier=? - |gx[1]#_g115368_| - _%hd114395114525%_) - (_%__kont115314115315%_ _%tl114396114528%_) - (_%__kont115316115317%_)) - (_%__kont115316115317%_)))) + |gx[1]#_g115642_| + _%hd114669114799%_) + (_%__kont115588115589%_ _%tl114670114802%_) + (_%__kont115590115591%_)) + (_%__kont115590115591%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont115316115317%_)))))) - (_%__kont115336115337%_ + (_%__kont115590115591%_)))))) + (_%__kont115610115611%_ (lambda () - (let* ((_%g114323114331%_ - (lambda (_%g114324114327%_) + (let* ((_%g114597114605%_ + (lambda (_%g114598114601%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114324114327%_))) - (_%g114322114356%_ - (lambda (_%g114324114335%_) - ((lambda (_%L114338%_) - (cons (cons _%E114296%_ + _%g114598114601%_))) + (_%g114596114630%_ + (lambda (_%g114598114609%_) + ((lambda (_%L114612%_) + (cons (cons _%E114570%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) @@ -901,216 +901,216 @@ (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '"Bad syntax; invalid syntax-case clause" - (cons _%L114338%_ '())))) + (cons _%L114612%_ '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx114005%_)) + (gx#stx-source _%stx114279%_)) '())) - _%r114297%_)) - _%g114324114335%_)))) + _%r114571%_)) + _%g114598114609%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g114322114356%_ - _%tgt114157%_))))) - (if (gx#stx-pair? _%__stx115331115332%_) - (let ((_%e114304114367%_ + (_%g114596114630%_ + _%tgt114431%_))))) + (if (gx#stx-pair? _%__stx115605115606%_) + (let ((_%e114578114641%_ (gx#syntax-e - _%__stx115331115332%_))) - (let ((_%tl114306114374%_ + _%__stx115605115606%_))) + (let ((_%tl114580114648%_ (let () (declare (not safe)) - (##cdr _%e114304114367%_))) - (_%hd114305114371%_ + (##cdr _%e114578114641%_))) + (_%hd114579114645%_ (let () (declare (not safe)) - (##car _%e114304114367%_)))) - (_%__kont115334115335%_ - _%tl114306114374%_ - _%hd114305114371%_))) - (_%__kont115336115337%_)))))))) - (let* ((_%bind114167%_ - (_%generate-clauses114165%_ _%clauses114160%_)) - (_%g114170114187%_ - (lambda (_%g114171114183%_) + (##car _%e114578114641%_)))) + (_%__kont115608115609%_ + _%tl114580114648%_ + _%hd114579114645%_))) + (_%__kont115610115611%_)))))))) + (let* ((_%bind114441%_ + (_%generate-clauses114439%_ _%clauses114434%_)) + (_%g114444114461%_ + (lambda (_%g114445114457%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114171114183%_))) - (_%g114169114284%_ - (lambda (_%g114171114191%_) - (if (gx#stx-pair/null? _%g114171114191%_) - (let ((_g115369_ + _%g114445114457%_))) + (_%g114443114558%_ + (lambda (_%g114445114465%_) + (if (gx#stx-pair/null? _%g114445114465%_) + (let ((_g115643_ (gx#syntax-split-splice - _%g114171114191%_ + _%g114445114465%_ '0))) (begin - (let ((_g115370_ + (let ((_g115644_ (let () (declare (not safe)) - (if (##values? _g115369_) + (if (##values? _g115643_) (##vector-length - _g115369_) + _g115643_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g115370_ 2))) + (##fx= _g115644_ 2))) (error "Context expects 2 values" - _g115370_))) - (let ((_%target114173114194%_ + _g115644_))) + (let ((_%target114447114468%_ (let () (declare (not safe)) - (##vector-ref _g115369_ 0))) - (_%tl114175114197%_ + (##vector-ref _g115643_ 0))) + (_%tl114449114471%_ (let () (declare (not safe)) - (##vector-ref _g115369_ 1)))) - (if (gx#stx-null? _%tl114175114197%_) - (letrec ((_%loop114176114200%_ - (lambda (_%hd114174114204%_ + (##vector-ref _g115643_ 1)))) + (if (gx#stx-null? _%tl114449114471%_) + (letrec ((_%loop114450114474%_ + (lambda (_%hd114448114478%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%bind-try114180114207%_) - (if (gx#stx-pair? _%hd114174114204%_) - (let ((_%e114177114210%_ - (gx#syntax-e _%hd114174114204%_))) - (let ((_%lp-hd114178114214%_ + _%bind-try114454114481%_) + (if (gx#stx-pair? _%hd114448114478%_) + (let ((_%e114451114484%_ + (gx#syntax-e _%hd114448114478%_))) + (let ((_%lp-hd114452114488%_ (let () (declare (not safe)) - (##car _%e114177114210%_))) - (_%lp-tl114179114217%_ + (##car _%e114451114484%_))) + (_%lp-tl114453114491%_ (let () (declare (not safe)) - (##cdr _%e114177114210%_)))) - (_%loop114176114200%_ - _%lp-tl114179114217%_ - (cons _%lp-hd114178114214%_ - _%bind-try114180114207%_)))) - (let ((_%bind-try114181114220%_ - (reverse _%bind-try114180114207%_))) - ((lambda (_%L114224%_) - (let* ((_%g114242114250%_ - (lambda (_%g114243114246%_) + (##cdr _%e114451114484%_)))) + (_%loop114450114474%_ + _%lp-tl114453114491%_ + (cons _%lp-hd114452114488%_ + _%bind-try114454114481%_)))) + (let ((_%bind-try114455114494%_ + (reverse _%bind-try114454114481%_))) + ((lambda (_%L114498%_) + (let* ((_%g114516114524%_ + (lambda (_%g114517114520%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114243114246%_))) - (_%g114241114280%_ - (lambda (_%g114243114254%_) - ((lambda (_%L114257%_) + _%g114517114520%_))) + (_%g114515114554%_ + (lambda (_%g114517114528%_) + ((lambda (_%L114531%_) (cons (gx#datum->syntax '#f 'let*) - (cons (let ((__tmp115371 - (lambda (_%g114271114274%_ + (cons (let ((__tmp115645 + (lambda (_%g114545114548%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g114272114277%_) - (cons _%g114271114274%_ _%g114272114277%_)))) + _%g114546114551%_) + (cons _%g114545114548%_ _%g114546114551%_)))) (declare (not safe)) - (__foldr1 __tmp115371 '() _%L114224%_)) + (__foldr1 __tmp115645 '() _%L114498%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L114257%_ + (cons (cons _%L114531%_ '()) '())))) - _%g114243114254%_)))) - (_%g114241114280%_ (car (last _%bind114167%_))))) - _%bind-try114181114220%_)))))) + _%g114517114528%_)))) + (_%g114515114554%_ (car (last _%bind114441%_))))) + _%bind-try114455114494%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop114176114200%_ - _%target114173114194%_ + (_%loop114450114474%_ + _%target114447114468%_ '())) - (_%g114170114187%_ - _%g114171114191%_))))) - (_%g114170114187%_ _%g114171114191%_))))) - (_%g114169114284%_ _%bind114167%_)))))) - (let* ((_%g114011114030%_ - (lambda (_%g114012114026%_) + (_%g114444114461%_ + _%g114445114465%_))))) + (_%g114444114461%_ _%g114445114465%_))))) + (_%g114443114558%_ _%bind114441%_)))))) + (let* ((_%g114285114304%_ + (lambda (_%g114286114300%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114012114026%_))) - (_%g114010114153%_ - (lambda (_%g114012114034%_) - (if (gx#stx-pair? _%g114012114034%_) - (let ((_%e114016114037%_ - (gx#syntax-e _%g114012114034%_))) - (let ((_%hd114017114041%_ + _%g114286114300%_))) + (_%g114284114427%_ + (lambda (_%g114286114308%_) + (if (gx#stx-pair? _%g114286114308%_) + (let ((_%e114290114311%_ + (gx#syntax-e _%g114286114308%_))) + (let ((_%hd114291114315%_ (let () (declare (not safe)) - (##car _%e114016114037%_))) - (_%tl114018114044%_ + (##car _%e114290114311%_))) + (_%tl114292114318%_ (let () (declare (not safe)) - (##cdr _%e114016114037%_)))) - (if (gx#stx-pair? _%tl114018114044%_) - (let ((_%e114019114047%_ - (gx#syntax-e _%tl114018114044%_))) - (let ((_%hd114020114051%_ + (##cdr _%e114290114311%_)))) + (if (gx#stx-pair? _%tl114292114318%_) + (let ((_%e114293114321%_ + (gx#syntax-e _%tl114292114318%_))) + (let ((_%hd114294114325%_ (let () (declare (not safe)) - (##car _%e114019114047%_))) - (_%tl114021114054%_ + (##car _%e114293114321%_))) + (_%tl114295114328%_ (let () (declare (not safe)) - (##cdr _%e114019114047%_)))) - (if (gx#stx-pair? _%tl114021114054%_) - (let ((_%e114022114057%_ + (##cdr _%e114293114321%_)))) + (if (gx#stx-pair? _%tl114295114328%_) + (let ((_%e114296114331%_ (gx#syntax-e - _%tl114021114054%_))) - (let ((_%hd114023114061%_ + _%tl114295114328%_))) + (let ((_%hd114297114335%_ (let () (declare (not safe)) - (##car _%e114022114057%_))) - (_%tl114024114064%_ + (##car _%e114296114331%_))) + (_%tl114298114338%_ (let () (declare (not safe)) - (##cdr _%e114022114057%_)))) - ((lambda (_%L114067%_ - _%L114069%_ - _%L114070%_) + (##cdr _%e114296114331%_)))) + ((lambda (_%L114341%_ + _%L114343%_ + _%L114344%_) (if (and (gx#identifier-list? - _%L114069%_) + _%L114343%_) (gx#stx-list? - _%L114067%_)) - (let* ((_%g114088114096%_ - (lambda (_%g114089114092%_) + _%L114341%_)) + (let* ((_%g114362114370%_ + (lambda (_%g114363114366%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114089114092%_))) - (_%g114087114149%_ - (lambda (_%g114089114100%_) - ((lambda (_%L114103%_) - (let* ((_%g114115114123%_ + _%g114363114366%_))) + (_%g114361114423%_ + (lambda (_%g114363114374%_) + ((lambda (_%L114377%_) + (let* ((_%g114389114397%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g114116114119%_) + (lambda (_%g114390114393%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g114116114119%_))) - (_%g114114114145%_ - (lambda (_%g114116114127%_) - ((lambda (_%L114130%_) + _%g114390114393%_))) + (_%g114388114419%_ + (lambda (_%g114390114401%_) + ((lambda (_%L114404%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L114103%_ - (cons _%L114070%_ + (cons (cons (cons _%L114377%_ + (cons _%L114344%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L114130%_ '())))) - _%g114116114127%_)))) - (_%g114114114145%_ - (_%generate114008%_ - _%L114103%_ - (gx#syntax->list _%L114069%_) - _%L114067%_)))) - _%g114089114100%_)))) + (cons _%L114404%_ '())))) + _%g114390114401%_)))) + (_%g114388114419%_ + (_%generate114282%_ + _%L114377%_ + (gx#syntax->list _%L114343%_) + _%L114341%_)))) + _%g114363114374%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g114087114149%_ + (_%g114361114423%_ (gx#genident 'e))) - (_%g114011114030%_ - _%g114012114034%_))) - _%tl114024114064%_ - _%hd114023114061%_ - _%hd114020114051%_))) - (_%g114011114030%_ - _%g114012114034%_)))) - (_%g114011114030%_ _%g114012114034%_)))) - (_%g114011114030%_ _%g114012114034%_))))) - (_%g114010114153%_ _%stx114005%_))))))) + (_%g114285114304%_ + _%g114286114308%_))) + _%tl114298114338%_ + _%hd114297114335%_ + _%hd114294114325%_))) + (_%g114285114304%_ + _%g114286114308%_)))) + (_%g114285114304%_ _%g114286114308%_)))) + (_%g114285114304%_ _%g114286114308%_))))) + (_%g114284114427%_ _%stx114279%_))))))) diff --git a/src/bootstrap/gerbil/expander/compile~0.scm b/src/bootstrap/gerbil/expander/compile~0.scm index f33dc2500..82b4a6658 100644 --- a/src/bootstrap/gerbil/expander/compile~0.scm +++ b/src/bootstrap/gerbil/expander/compile~0.scm @@ -1,876 +1,876 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/compile::timestamp 1713044316) + (define gerbil/expander/compile::timestamp 1713454411) (begin (declare (not safe)) (define gx#core-compile-top-syntax - (lambda (_%stx128769%_) - (let* ((_%e128770128777%_ _%stx128769%_) - (_%E128772128781%_ + (lambda (_%stx129043%_) + (let* ((_%e129044129051%_ _%stx129043%_) + (_%E129046129055%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128770128777%_))) - (_%E128771128795%_ - (lambda () - (if (gx#stx-pair? _%e128770128777%_) - (let ((_%e128773128785%_ - (gx#syntax-e _%e128770128777%_))) - (let ((_%hd128774128788%_ (##car _%e128773128785%_)) - (_%tl128775128790%_ (##cdr _%e128773128785%_))) - (let* ((_%form128793%_ _%hd128774128788%_) - (__self128798 - (gx#syntax-local-e__0 _%form128793%_)) - (__method128799 + _%e129044129051%_))) + (_%E129045129069%_ + (lambda () + (if (gx#stx-pair? _%e129044129051%_) + (let ((_%e129047129059%_ + (gx#syntax-e _%e129044129051%_))) + (let ((_%hd129048129062%_ (##car _%e129047129059%_)) + (_%tl129049129064%_ (##cdr _%e129047129059%_))) + (let* ((_%form129067%_ _%hd129048129062%_) + (__self129072 + (gx#syntax-local-e__0 _%form129067%_)) + (__method129073 (__method-ref - __self128798 + __self129072 'compile-top-syntax))) - (if __method128799 - (__method128799 __self128798 _%stx128769%_) + (if __method129073 + (__method129073 __self129072 _%stx129043%_) (begin (error '"Missing method" - __self128798 + __self129072 'compile-top-syntax) '#!void))))) - (_%E128772128781%_))))) - (_%E128771128795%_)))) + (_%E129046129055%_))))) + (_%E129045129069%_)))) (define gx#core-expander::compile-top-syntax - (lambda (_%self127612128715%_ _%stx128717%_) - (let* ((_%self128719%_ _%self127612128715%_) - (_%self128721%_ _%self128719%_) - (_%self128730128738%_ _%self128721%_) - (_%E128732128742%_ + (lambda (_%self127886128989%_ _%stx128991%_) + (let* ((_%self128993%_ _%self127886128989%_) + (_%self128995%_ _%self128993%_) + (_%self129004129012%_ _%self128995%_) + (_%E129006129016%_ (lambda () (error '"No clause matching" - _%self128730128738%_ + _%self129004129012%_ '((core-expander _ _ K))) '#!void)) - (_%K128733128755%_ - (lambda (_%K128745%_) - (let ((_%$e128747%_ (gx#stx-source _%stx128717%_))) - (if _%$e128747%_ - ((lambda (_%g128749128751%_) + (_%K129007129029%_ + (lambda (_%K129019%_) + (let ((_%$e129021%_ (gx#stx-source _%stx128991%_))) + (if _%$e129021%_ + ((lambda (_%g129023129025%_) (gx#stx-wrap-source - (_%K128745%_ _%stx128717%_) - _%g128749128751%_)) - _%$e128747%_) - (_%K128745%_ _%stx128717%_))))) - (_%e128734128758%_ - (##unchecked-structure-ref _%self128730128738%_ '1 '#f '#f)) - (_%e128735128761%_ - (##unchecked-structure-ref _%self128730128738%_ '2 '#f '#f)) - (_%e128736128764%_ - (##unchecked-structure-ref _%self128730128738%_ '3 '#f '#f)) - (_%K128767%_ _%e128736128764%_)) - (_%K128733128755%_ _%K128767%_)))) + (_%K129019%_ _%stx128991%_) + _%g129023129025%_)) + _%$e129021%_) + (_%K129019%_ _%stx128991%_))))) + (_%e129008129032%_ + (##unchecked-structure-ref _%self129004129012%_ '1 '#f '#f)) + (_%e129009129035%_ + (##unchecked-structure-ref _%self129004129012%_ '2 '#f '#f)) + (_%e129010129038%_ + (##unchecked-structure-ref _%self129004129012%_ '3 '#f '#f)) + (_%K129041%_ _%e129010129038%_)) + (_%K129007129029%_ _%K129041%_)))) (__bind-method!__% gx#core-expander::t 'compile-top-syntax gx#core-expander::compile-top-syntax '#f) (define gx#core-compile-top-error - (lambda (_%stx128589%_) - (gx#raise-syntax-error 'compile '"Cannot compile form" _%stx128589%_))) + (lambda (_%stx128863%_) + (gx#raise-syntax-error 'compile '"Cannot compile form" _%stx128863%_))) (define gx#core-compile-top-begin% - (lambda (_%stx128559%_) - (let* ((_%e128560128567%_ _%stx128559%_) - (_%E128562128571%_ + (lambda (_%stx128833%_) + (let* ((_%e128834128841%_ _%stx128833%_) + (_%E128836128845%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128560128567%_))) - (_%E128561128585%_ - (lambda () - (if (gx#stx-pair? _%e128560128567%_) - (let ((_%e128563128575%_ - (gx#syntax-e _%e128560128567%_))) - (let ((_%hd128564128578%_ (##car _%e128563128575%_)) - (_%tl128565128580%_ (##cdr _%e128563128575%_))) - (let ((_%body128583%_ _%tl128565128580%_)) + _%e128834128841%_))) + (_%E128835128859%_ + (lambda () + (if (gx#stx-pair? _%e128834128841%_) + (let ((_%e128837128849%_ + (gx#syntax-e _%e128834128841%_))) + (let ((_%hd128838128852%_ (##car _%e128837128849%_)) + (_%tl128839128854%_ (##cdr _%e128837128849%_))) + (let ((_%body128857%_ _%tl128839128854%_)) (cons '%#begin (gx#stx-map1 gx#core-compile-top-syntax - _%body128583%_))))) - (_%E128562128571%_))))) - (_%E128561128585%_)))) + _%body128857%_))))) + (_%E128836128845%_))))) + (_%E128835128859%_)))) (define gx#core-compile-top-begin-syntax% - (lambda (_%stx128528%_) - (let* ((_%e128529128536%_ _%stx128528%_) - (_%E128531128540%_ + (lambda (_%stx128802%_) + (let* ((_%e128803128810%_ _%stx128802%_) + (_%E128805128814%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128529128536%_))) - (_%E128530128555%_ - (lambda () - (if (gx#stx-pair? _%e128529128536%_) - (let ((_%e128532128544%_ - (gx#syntax-e _%e128529128536%_))) - (let ((_%hd128533128547%_ (##car _%e128532128544%_)) - (_%tl128534128549%_ (##cdr _%e128532128544%_))) - (let ((_%body128552%_ _%tl128534128549%_)) + _%e128803128810%_))) + (_%E128804128829%_ + (lambda () + (if (gx#stx-pair? _%e128803128810%_) + (let ((_%e128806128818%_ + (gx#syntax-e _%e128803128810%_))) + (let ((_%hd128807128821%_ (##car _%e128806128818%_)) + (_%tl128808128823%_ (##cdr _%e128806128818%_))) + (let ((_%body128826%_ _%tl128808128823%_)) (cons '%#begin-syntax (__call-with-parameters (lambda () (gx#stx-map1 gx#core-compile-top-syntax - _%body128552%_)) + _%body128826%_)) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)))))) - (_%E128531128540%_))))) - (_%E128530128555%_)))) + (_%E128805128814%_))))) + (_%E128804128829%_)))) (define gx#core-compile-top-begin-foreign% - (lambda (_%stx128498%_) - (let* ((_%e128499128506%_ _%stx128498%_) - (_%E128501128510%_ + (lambda (_%stx128772%_) + (let* ((_%e128773128780%_ _%stx128772%_) + (_%E128775128784%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128499128506%_))) - (_%E128500128524%_ - (lambda () - (if (gx#stx-pair? _%e128499128506%_) - (let ((_%e128502128514%_ - (gx#syntax-e _%e128499128506%_))) - (let ((_%hd128503128517%_ (##car _%e128502128514%_)) - (_%tl128504128519%_ (##cdr _%e128502128514%_))) - (let ((_%body128522%_ _%tl128504128519%_)) - (cons '%#begin-foreign _%body128522%_)))) - (_%E128501128510%_))))) - (_%E128500128524%_)))) + _%e128773128780%_))) + (_%E128774128798%_ + (lambda () + (if (gx#stx-pair? _%e128773128780%_) + (let ((_%e128776128788%_ + (gx#syntax-e _%e128773128780%_))) + (let ((_%hd128777128791%_ (##car _%e128776128788%_)) + (_%tl128778128793%_ (##cdr _%e128776128788%_))) + (let ((_%body128796%_ _%tl128778128793%_)) + (cons '%#begin-foreign _%body128796%_)))) + (_%E128775128784%_))))) + (_%E128774128798%_)))) (define gx#core-compile-top-begin-annotation% - (lambda (_%stx128444%_) - (let* ((_%e128445128458%_ _%stx128444%_) - (_%E128447128462%_ + (lambda (_%stx128718%_) + (let* ((_%e128719128732%_ _%stx128718%_) + (_%E128721128736%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128445128458%_))) - (_%E128446128494%_ - (lambda () - (if (gx#stx-pair? _%e128445128458%_) - (let ((_%e128448128466%_ - (gx#syntax-e _%e128445128458%_))) - (let ((_%hd128449128469%_ (##car _%e128448128466%_)) - (_%tl128450128471%_ (##cdr _%e128448128466%_))) - (if (gx#stx-pair? _%tl128450128471%_) - (let ((_%e128451128474%_ - (gx#syntax-e _%tl128450128471%_))) - (let ((_%hd128452128477%_ - (##car _%e128451128474%_)) - (_%tl128453128479%_ - (##cdr _%e128451128474%_))) - (let ((_%ann128482%_ _%hd128452128477%_)) - (if (gx#stx-pair? _%tl128453128479%_) - (let ((_%e128454128484%_ + _%e128719128732%_))) + (_%E128720128768%_ + (lambda () + (if (gx#stx-pair? _%e128719128732%_) + (let ((_%e128722128740%_ + (gx#syntax-e _%e128719128732%_))) + (let ((_%hd128723128743%_ (##car _%e128722128740%_)) + (_%tl128724128745%_ (##cdr _%e128722128740%_))) + (if (gx#stx-pair? _%tl128724128745%_) + (let ((_%e128725128748%_ + (gx#syntax-e _%tl128724128745%_))) + (let ((_%hd128726128751%_ + (##car _%e128725128748%_)) + (_%tl128727128753%_ + (##cdr _%e128725128748%_))) + (let ((_%ann128756%_ _%hd128726128751%_)) + (if (gx#stx-pair? _%tl128727128753%_) + (let ((_%e128728128758%_ (gx#syntax-e - _%tl128453128479%_))) - (let ((_%hd128455128487%_ - (##car _%e128454128484%_)) - (_%tl128456128489%_ - (##cdr _%e128454128484%_))) - (let ((_%expr128492%_ - _%hd128455128487%_)) + _%tl128727128753%_))) + (let ((_%hd128729128761%_ + (##car _%e128728128758%_)) + (_%tl128730128763%_ + (##cdr _%e128728128758%_))) + (let ((_%expr128766%_ + _%hd128729128761%_)) (if (gx#stx-null? - _%tl128456128489%_) + _%tl128730128763%_) (gx#core-compile-top-syntax - _%expr128492%_) - (_%E128447128462%_))))) - (_%E128447128462%_))))) - (_%E128447128462%_)))) - (_%E128447128462%_))))) - (_%E128446128494%_)))) + _%expr128766%_) + (_%E128721128736%_))))) + (_%E128721128736%_))))) + (_%E128721128736%_)))) + (_%E128721128736%_))))) + (_%E128720128768%_)))) (define gx#core-compile-top-import% - (lambda (_%stx128414%_) - (let* ((_%e128415128422%_ _%stx128414%_) - (_%E128417128426%_ + (lambda (_%stx128688%_) + (let* ((_%e128689128696%_ _%stx128688%_) + (_%E128691128700%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128415128422%_))) - (_%E128416128440%_ - (lambda () - (if (gx#stx-pair? _%e128415128422%_) - (let ((_%e128418128430%_ - (gx#syntax-e _%e128415128422%_))) - (let ((_%hd128419128433%_ (##car _%e128418128430%_)) - (_%tl128420128435%_ (##cdr _%e128418128430%_))) - (let ((_%body128438%_ _%tl128420128435%_)) - (cons '%#import _%body128438%_)))) - (_%E128417128426%_))))) - (_%E128416128440%_)))) + _%e128689128696%_))) + (_%E128690128714%_ + (lambda () + (if (gx#stx-pair? _%e128689128696%_) + (let ((_%e128692128704%_ + (gx#syntax-e _%e128689128696%_))) + (let ((_%hd128693128707%_ (##car _%e128692128704%_)) + (_%tl128694128709%_ (##cdr _%e128692128704%_))) + (let ((_%body128712%_ _%tl128694128709%_)) + (cons '%#import _%body128712%_)))) + (_%E128691128700%_))))) + (_%E128690128714%_)))) (define gx#core-compile-top-module% - (lambda (_%stx128371%_) - (let* ((_%e128372128382%_ _%stx128371%_) - (_%E128374128386%_ + (lambda (_%stx128645%_) + (let* ((_%e128646128656%_ _%stx128645%_) + (_%E128648128660%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128372128382%_))) - (_%E128373128410%_ - (lambda () - (if (gx#stx-pair? _%e128372128382%_) - (let ((_%e128375128390%_ - (gx#syntax-e _%e128372128382%_))) - (let ((_%hd128376128393%_ (##car _%e128375128390%_)) - (_%tl128377128395%_ (##cdr _%e128375128390%_))) - (if (gx#stx-pair? _%tl128377128395%_) - (let ((_%e128378128398%_ - (gx#syntax-e _%tl128377128395%_))) - (let ((_%hd128379128401%_ - (##car _%e128378128398%_)) - (_%tl128380128403%_ - (##cdr _%e128378128398%_))) - (let* ((_%hd128406%_ _%hd128379128401%_) - (_%body128408%_ _%tl128380128403%_)) + _%e128646128656%_))) + (_%E128647128684%_ + (lambda () + (if (gx#stx-pair? _%e128646128656%_) + (let ((_%e128649128664%_ + (gx#syntax-e _%e128646128656%_))) + (let ((_%hd128650128667%_ (##car _%e128649128664%_)) + (_%tl128651128669%_ (##cdr _%e128649128664%_))) + (if (gx#stx-pair? _%tl128651128669%_) + (let ((_%e128652128672%_ + (gx#syntax-e _%tl128651128669%_))) + (let ((_%hd128653128675%_ + (##car _%e128652128672%_)) + (_%tl128654128677%_ + (##cdr _%e128652128672%_))) + (let* ((_%hd128680%_ _%hd128653128675%_) + (_%body128682%_ _%tl128654128677%_)) (cons '%#module (cons (##structure-ref (gx#syntax-local-e__0 - _%hd128406%_) + _%hd128680%_) '1 gx#expander-context::t '#f) (gx#stx-map1 gx#core-compile-top-syntax - _%body128408%_)))))) - (_%E128374128386%_)))) - (_%E128374128386%_))))) - (_%E128373128410%_)))) + _%body128682%_)))))) + (_%E128648128660%_)))) + (_%E128648128660%_))))) + (_%E128647128684%_)))) (define gx#core-compile-top-export% - (lambda (_%stx128341%_) - (let* ((_%e128342128349%_ _%stx128341%_) - (_%E128344128353%_ + (lambda (_%stx128615%_) + (let* ((_%e128616128623%_ _%stx128615%_) + (_%E128618128627%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128342128349%_))) - (_%E128343128367%_ - (lambda () - (if (gx#stx-pair? _%e128342128349%_) - (let ((_%e128345128357%_ - (gx#syntax-e _%e128342128349%_))) - (let ((_%hd128346128360%_ (##car _%e128345128357%_)) - (_%tl128347128362%_ (##cdr _%e128345128357%_))) - (let ((_%body128365%_ _%tl128347128362%_)) - (cons '%#export _%body128365%_)))) - (_%E128344128353%_))))) - (_%E128343128367%_)))) + _%e128616128623%_))) + (_%E128617128641%_ + (lambda () + (if (gx#stx-pair? _%e128616128623%_) + (let ((_%e128619128631%_ + (gx#syntax-e _%e128616128623%_))) + (let ((_%hd128620128634%_ (##car _%e128619128631%_)) + (_%tl128621128636%_ (##cdr _%e128619128631%_))) + (let ((_%body128639%_ _%tl128621128636%_)) + (cons '%#export _%body128639%_)))) + (_%E128618128627%_))))) + (_%E128617128641%_)))) (define gx#core-compile-top-provide% - (lambda (_%stx128311%_) - (let* ((_%e128312128319%_ _%stx128311%_) - (_%E128314128323%_ + (lambda (_%stx128585%_) + (let* ((_%e128586128593%_ _%stx128585%_) + (_%E128588128597%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128312128319%_))) - (_%E128313128337%_ - (lambda () - (if (gx#stx-pair? _%e128312128319%_) - (let ((_%e128315128327%_ - (gx#syntax-e _%e128312128319%_))) - (let ((_%hd128316128330%_ (##car _%e128315128327%_)) - (_%tl128317128332%_ (##cdr _%e128315128327%_))) - (let ((_%body128335%_ _%tl128317128332%_)) - (cons '%#provide _%body128335%_)))) - (_%E128314128323%_))))) - (_%E128313128337%_)))) + _%e128586128593%_))) + (_%E128587128611%_ + (lambda () + (if (gx#stx-pair? _%e128586128593%_) + (let ((_%e128589128601%_ + (gx#syntax-e _%e128586128593%_))) + (let ((_%hd128590128604%_ (##car _%e128589128601%_)) + (_%tl128591128606%_ (##cdr _%e128589128601%_))) + (let ((_%body128609%_ _%tl128591128606%_)) + (cons '%#provide _%body128609%_)))) + (_%E128588128597%_))))) + (_%E128587128611%_)))) (define gx#core-compile-top-extern% - (lambda (_%stx128281%_) - (let* ((_%e128282128289%_ _%stx128281%_) - (_%E128284128293%_ + (lambda (_%stx128555%_) + (let* ((_%e128556128563%_ _%stx128555%_) + (_%E128558128567%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128282128289%_))) - (_%E128283128307%_ - (lambda () - (if (gx#stx-pair? _%e128282128289%_) - (let ((_%e128285128297%_ - (gx#syntax-e _%e128282128289%_))) - (let ((_%hd128286128300%_ (##car _%e128285128297%_)) - (_%tl128287128302%_ (##cdr _%e128285128297%_))) - (let ((_%body128305%_ _%tl128287128302%_)) - (cons '%#extern _%body128305%_)))) - (_%E128284128293%_))))) - (_%E128283128307%_)))) + _%e128556128563%_))) + (_%E128557128581%_ + (lambda () + (if (gx#stx-pair? _%e128556128563%_) + (let ((_%e128559128571%_ + (gx#syntax-e _%e128556128563%_))) + (let ((_%hd128560128574%_ (##car _%e128559128571%_)) + (_%tl128561128576%_ (##cdr _%e128559128571%_))) + (let ((_%body128579%_ _%tl128561128576%_)) + (cons '%#extern _%body128579%_)))) + (_%E128558128567%_))))) + (_%E128557128581%_)))) (define gx#core-compile-top-define-values% - (lambda (_%stx128227%_) - (let* ((_%e128228128241%_ _%stx128227%_) - (_%E128230128245%_ + (lambda (_%stx128501%_) + (let* ((_%e128502128515%_ _%stx128501%_) + (_%E128504128519%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128228128241%_))) - (_%E128229128277%_ - (lambda () - (if (gx#stx-pair? _%e128228128241%_) - (let ((_%e128231128249%_ - (gx#syntax-e _%e128228128241%_))) - (let ((_%hd128232128252%_ (##car _%e128231128249%_)) - (_%tl128233128254%_ (##cdr _%e128231128249%_))) - (if (gx#stx-pair? _%tl128233128254%_) - (let ((_%e128234128257%_ - (gx#syntax-e _%tl128233128254%_))) - (let ((_%hd128235128260%_ - (##car _%e128234128257%_)) - (_%tl128236128262%_ - (##cdr _%e128234128257%_))) - (let ((_%hd128265%_ _%hd128235128260%_)) - (if (gx#stx-pair? _%tl128236128262%_) - (let ((_%e128237128267%_ + _%e128502128515%_))) + (_%E128503128551%_ + (lambda () + (if (gx#stx-pair? _%e128502128515%_) + (let ((_%e128505128523%_ + (gx#syntax-e _%e128502128515%_))) + (let ((_%hd128506128526%_ (##car _%e128505128523%_)) + (_%tl128507128528%_ (##cdr _%e128505128523%_))) + (if (gx#stx-pair? _%tl128507128528%_) + (let ((_%e128508128531%_ + (gx#syntax-e _%tl128507128528%_))) + (let ((_%hd128509128534%_ + (##car _%e128508128531%_)) + (_%tl128510128536%_ + (##cdr _%e128508128531%_))) + (let ((_%hd128539%_ _%hd128509128534%_)) + (if (gx#stx-pair? _%tl128510128536%_) + (let ((_%e128511128541%_ (gx#syntax-e - _%tl128236128262%_))) - (let ((_%hd128238128270%_ - (##car _%e128237128267%_)) - (_%tl128239128272%_ - (##cdr _%e128237128267%_))) - (let ((_%expr128275%_ - _%hd128238128270%_)) + _%tl128510128536%_))) + (let ((_%hd128512128544%_ + (##car _%e128511128541%_)) + (_%tl128513128546%_ + (##cdr _%e128511128541%_))) + (let ((_%expr128549%_ + _%hd128512128544%_)) (if (gx#stx-null? - _%tl128239128272%_) + _%tl128513128546%_) (cons '%#define-values (cons (gx#stx-map1 gx#core-compile-top-runtime-bind - _%hd128265%_) + _%hd128539%_) (cons (gx#core-compile-top-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr128275%_) + _%expr128549%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E128230128245%_))))) - (_%E128230128245%_))))) - (_%E128230128245%_)))) - (_%E128230128245%_))))) - (_%E128229128277%_)))) + (_%E128504128519%_))))) + (_%E128504128519%_))))) + (_%E128504128519%_)))) + (_%E128504128519%_))))) + (_%E128503128551%_)))) (define gx#core-compile-top-define-syntax% - (lambda (_%stx128172%_) - (let* ((_%e128173128186%_ _%stx128172%_) - (_%E128175128190%_ + (lambda (_%stx128446%_) + (let* ((_%e128447128460%_ _%stx128446%_) + (_%E128449128464%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128173128186%_))) - (_%E128174128223%_ - (lambda () - (if (gx#stx-pair? _%e128173128186%_) - (let ((_%e128176128194%_ - (gx#syntax-e _%e128173128186%_))) - (let ((_%hd128177128197%_ (##car _%e128176128194%_)) - (_%tl128178128199%_ (##cdr _%e128176128194%_))) - (if (gx#stx-pair? _%tl128178128199%_) - (let ((_%e128179128202%_ - (gx#syntax-e _%tl128178128199%_))) - (let ((_%hd128180128205%_ - (##car _%e128179128202%_)) - (_%tl128181128207%_ - (##cdr _%e128179128202%_))) - (let ((_%hd128210%_ _%hd128180128205%_)) - (if (gx#stx-pair? _%tl128181128207%_) - (let ((_%e128182128212%_ + _%e128447128460%_))) + (_%E128448128497%_ + (lambda () + (if (gx#stx-pair? _%e128447128460%_) + (let ((_%e128450128468%_ + (gx#syntax-e _%e128447128460%_))) + (let ((_%hd128451128471%_ (##car _%e128450128468%_)) + (_%tl128452128473%_ (##cdr _%e128450128468%_))) + (if (gx#stx-pair? _%tl128452128473%_) + (let ((_%e128453128476%_ + (gx#syntax-e _%tl128452128473%_))) + (let ((_%hd128454128479%_ + (##car _%e128453128476%_)) + (_%tl128455128481%_ + (##cdr _%e128453128476%_))) + (let ((_%hd128484%_ _%hd128454128479%_)) + (if (gx#stx-pair? _%tl128455128481%_) + (let ((_%e128456128486%_ (gx#syntax-e - _%tl128181128207%_))) - (let ((_%hd128183128215%_ - (##car _%e128182128212%_)) - (_%tl128184128217%_ - (##cdr _%e128182128212%_))) - (let ((_%expr128220%_ - _%hd128183128215%_)) + _%tl128455128481%_))) + (let ((_%hd128457128489%_ + (##car _%e128456128486%_)) + (_%tl128458128491%_ + (##cdr _%e128456128486%_))) + (let ((_%expr128494%_ + _%hd128457128489%_)) (if (gx#stx-null? - _%tl128184128217%_) + _%tl128458128491%_) (cons '%#define-syntax - (cons _%hd128210%_ + (cons _%hd128484%_ (cons (__call-with-parameters ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda () - (gx#core-compile-top-syntax _%expr128220%_)) + (gx#core-compile-top-syntax _%expr128494%_)) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E128175128190%_))))) - (_%E128175128190%_))))) - (_%E128175128190%_)))) - (_%E128175128190%_))))) - (_%E128174128223%_)))) + (_%E128449128464%_))))) + (_%E128449128464%_))))) + (_%E128449128464%_)))) + (_%E128449128464%_))))) + (_%E128448128497%_)))) (define gx#core-compile-top-define-alias% - (lambda (_%stx128142%_) - (let* ((_%e128143128150%_ _%stx128142%_) - (_%E128145128154%_ + (lambda (_%stx128416%_) + (let* ((_%e128417128424%_ _%stx128416%_) + (_%E128419128428%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128143128150%_))) - (_%E128144128168%_ - (lambda () - (if (gx#stx-pair? _%e128143128150%_) - (let ((_%e128146128158%_ - (gx#syntax-e _%e128143128150%_))) - (let ((_%hd128147128161%_ (##car _%e128146128158%_)) - (_%tl128148128163%_ (##cdr _%e128146128158%_))) - (let ((_%body128166%_ _%tl128148128163%_)) - (cons '%#define-alias _%body128166%_)))) - (_%E128145128154%_))))) - (_%E128144128168%_)))) + _%e128417128424%_))) + (_%E128418128442%_ + (lambda () + (if (gx#stx-pair? _%e128417128424%_) + (let ((_%e128420128432%_ + (gx#syntax-e _%e128417128424%_))) + (let ((_%hd128421128435%_ (##car _%e128420128432%_)) + (_%tl128422128437%_ (##cdr _%e128420128432%_))) + (let ((_%body128440%_ _%tl128422128437%_)) + (cons '%#define-alias _%body128440%_)))) + (_%E128419128428%_))))) + (_%E128418128442%_)))) (define gx#core-compile-top-define-runtime% - (lambda (_%stx128112%_) - (let* ((_%e128113128120%_ _%stx128112%_) - (_%E128115128124%_ + (lambda (_%stx128386%_) + (let* ((_%e128387128394%_ _%stx128386%_) + (_%E128389128398%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128113128120%_))) - (_%E128114128138%_ - (lambda () - (if (gx#stx-pair? _%e128113128120%_) - (let ((_%e128116128128%_ - (gx#syntax-e _%e128113128120%_))) - (let ((_%hd128117128131%_ (##car _%e128116128128%_)) - (_%tl128118128133%_ (##cdr _%e128116128128%_))) - (let ((_%body128136%_ _%tl128118128133%_)) - (cons '%#define-runtime _%body128136%_)))) - (_%E128115128124%_))))) - (_%E128114128138%_)))) + _%e128387128394%_))) + (_%E128388128412%_ + (lambda () + (if (gx#stx-pair? _%e128387128394%_) + (let ((_%e128390128402%_ + (gx#syntax-e _%e128387128394%_))) + (let ((_%hd128391128405%_ (##car _%e128390128402%_)) + (_%tl128392128407%_ (##cdr _%e128390128402%_))) + (let ((_%body128410%_ _%tl128392128407%_)) + (cons '%#define-runtime _%body128410%_)))) + (_%E128389128398%_))))) + (_%E128388128412%_)))) (define gx#core-compile-top-declare% - (lambda (_%stx128082%_) - (let* ((_%e128083128090%_ _%stx128082%_) - (_%E128085128094%_ + (lambda (_%stx128356%_) + (let* ((_%e128357128364%_ _%stx128356%_) + (_%E128359128368%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128083128090%_))) - (_%E128084128108%_ - (lambda () - (if (gx#stx-pair? _%e128083128090%_) - (let ((_%e128086128098%_ - (gx#syntax-e _%e128083128090%_))) - (let ((_%hd128087128101%_ (##car _%e128086128098%_)) - (_%tl128088128103%_ (##cdr _%e128086128098%_))) - (let ((_%decls128106%_ _%tl128088128103%_)) - (cons '%#declare _%decls128106%_)))) - (_%E128085128094%_))))) - (_%E128084128108%_)))) + _%e128357128364%_))) + (_%E128358128382%_ + (lambda () + (if (gx#stx-pair? _%e128357128364%_) + (let ((_%e128360128372%_ + (gx#syntax-e _%e128357128364%_))) + (let ((_%hd128361128375%_ (##car _%e128360128372%_)) + (_%tl128362128377%_ (##cdr _%e128360128372%_))) + (let ((_%decls128380%_ _%tl128362128377%_)) + (cons '%#declare _%decls128380%_)))) + (_%E128359128368%_))))) + (_%E128358128382%_)))) (define gx#core-compile-top-lambda% - (lambda (_%stx128052%_) - (let* ((_%e128053128060%_ _%stx128052%_) - (_%E128055128064%_ + (lambda (_%stx128326%_) + (let* ((_%e128327128334%_ _%stx128326%_) + (_%E128329128338%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128053128060%_))) - (_%E128054128078%_ - (lambda () - (if (gx#stx-pair? _%e128053128060%_) - (let ((_%e128056128068%_ - (gx#syntax-e _%e128053128060%_))) - (let ((_%hd128057128071%_ (##car _%e128056128068%_)) - (_%tl128058128073%_ (##cdr _%e128056128068%_))) - (let ((_%clause128076%_ _%tl128058128073%_)) + _%e128327128334%_))) + (_%E128328128352%_ + (lambda () + (if (gx#stx-pair? _%e128327128334%_) + (let ((_%e128330128342%_ + (gx#syntax-e _%e128327128334%_))) + (let ((_%hd128331128345%_ (##car _%e128330128342%_)) + (_%tl128332128347%_ (##cdr _%e128330128342%_))) + (let ((_%clause128350%_ _%tl128332128347%_)) (cons '%#lambda (gx#core-compile-top-lambda-clause - _%clause128076%_))))) - (_%E128055128064%_))))) - (_%E128054128078%_)))) + _%clause128350%_))))) + (_%E128329128338%_))))) + (_%E128328128352%_)))) (define gx#core-compile-top-lambda-clause - (lambda (_%stx128009%_) - (let* ((_%e128010128020%_ _%stx128009%_) - (_%E128012128024%_ + (lambda (_%stx128283%_) + (let* ((_%e128284128294%_ _%stx128283%_) + (_%E128286128298%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128010128020%_))) - (_%E128011128048%_ - (lambda () - (if (gx#stx-pair? _%e128010128020%_) - (let ((_%e128013128028%_ - (gx#syntax-e _%e128010128020%_))) - (let ((_%hd128014128031%_ (##car _%e128013128028%_)) - (_%tl128015128033%_ (##cdr _%e128013128028%_))) - (let ((_%hd128036%_ _%hd128014128031%_)) - (if (gx#stx-pair? _%tl128015128033%_) - (let ((_%e128016128038%_ - (gx#syntax-e _%tl128015128033%_))) - (let ((_%hd128017128041%_ - (##car _%e128016128038%_)) - (_%tl128018128043%_ - (##cdr _%e128016128038%_))) - (let ((_%body128046%_ _%hd128017128041%_)) - (if (gx#stx-null? _%tl128018128043%_) + _%e128284128294%_))) + (_%E128285128322%_ + (lambda () + (if (gx#stx-pair? _%e128284128294%_) + (let ((_%e128287128302%_ + (gx#syntax-e _%e128284128294%_))) + (let ((_%hd128288128305%_ (##car _%e128287128302%_)) + (_%tl128289128307%_ (##cdr _%e128287128302%_))) + (let ((_%hd128310%_ _%hd128288128305%_)) + (if (gx#stx-pair? _%tl128289128307%_) + (let ((_%e128290128312%_ + (gx#syntax-e _%tl128289128307%_))) + (let ((_%hd128291128315%_ + (##car _%e128290128312%_)) + (_%tl128292128317%_ + (##cdr _%e128290128312%_))) + (let ((_%body128320%_ _%hd128291128315%_)) + (if (gx#stx-null? _%tl128292128317%_) (cons (gx#stx-map1 gx#core-compile-top-runtime-bind - _%hd128036%_) + _%hd128310%_) (cons (gx#core-compile-top-syntax - _%body128046%_) + _%body128320%_) '())) - (_%E128012128024%_))))) - (_%E128012128024%_))))) - (_%E128012128024%_))))) - (_%E128011128048%_)))) + (_%E128286128298%_))))) + (_%E128286128298%_))))) + (_%E128286128298%_))))) + (_%E128285128322%_)))) (define gx#core-compile-top-case-lambda% - (lambda (_%stx127979%_) - (let* ((_%e127980127987%_ _%stx127979%_) - (_%E127982127991%_ + (lambda (_%stx128253%_) + (let* ((_%e128254128261%_ _%stx128253%_) + (_%E128256128265%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e127980127987%_))) - (_%E127981128005%_ - (lambda () - (if (gx#stx-pair? _%e127980127987%_) - (let ((_%e127983127995%_ - (gx#syntax-e _%e127980127987%_))) - (let ((_%hd127984127998%_ (##car _%e127983127995%_)) - (_%tl127985128000%_ (##cdr _%e127983127995%_))) - (let ((_%clauses128003%_ _%tl127985128000%_)) + _%e128254128261%_))) + (_%E128255128279%_ + (lambda () + (if (gx#stx-pair? _%e128254128261%_) + (let ((_%e128257128269%_ + (gx#syntax-e _%e128254128261%_))) + (let ((_%hd128258128272%_ (##car _%e128257128269%_)) + (_%tl128259128274%_ (##cdr _%e128257128269%_))) + (let ((_%clauses128277%_ _%tl128259128274%_)) (cons '%#case-lambda (gx#stx-map1 gx#core-compile-top-lambda-clause - _%clauses128003%_))))) - (_%E127982127991%_))))) - (_%E127981128005%_)))) + _%clauses128277%_))))) + (_%E128256128265%_))))) + (_%E128255128279%_)))) (define gx#core-compile-top-let-values%__% - (lambda (_%stx127914%_ _%form127915%_) - (let* ((_%e127916127929%_ _%stx127914%_) - (_%E127918127933%_ + (lambda (_%stx128188%_ _%form128189%_) + (let* ((_%e128190128203%_ _%stx128188%_) + (_%E128192128207%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e127916127929%_))) - (_%E127917127965%_ - (lambda () - (if (gx#stx-pair? _%e127916127929%_) - (let ((_%e127919127937%_ - (gx#syntax-e _%e127916127929%_))) - (let ((_%hd127920127940%_ (##car _%e127919127937%_)) - (_%tl127921127942%_ (##cdr _%e127919127937%_))) - (if (gx#stx-pair? _%tl127921127942%_) - (let ((_%e127922127945%_ - (gx#syntax-e _%tl127921127942%_))) - (let ((_%hd127923127948%_ - (##car _%e127922127945%_)) - (_%tl127924127950%_ - (##cdr _%e127922127945%_))) - (let ((_%hd127953%_ _%hd127923127948%_)) - (if (gx#stx-pair? _%tl127924127950%_) - (let ((_%e127925127955%_ + _%e128190128203%_))) + (_%E128191128239%_ + (lambda () + (if (gx#stx-pair? _%e128190128203%_) + (let ((_%e128193128211%_ + (gx#syntax-e _%e128190128203%_))) + (let ((_%hd128194128214%_ (##car _%e128193128211%_)) + (_%tl128195128216%_ (##cdr _%e128193128211%_))) + (if (gx#stx-pair? _%tl128195128216%_) + (let ((_%e128196128219%_ + (gx#syntax-e _%tl128195128216%_))) + (let ((_%hd128197128222%_ + (##car _%e128196128219%_)) + (_%tl128198128224%_ + (##cdr _%e128196128219%_))) + (let ((_%hd128227%_ _%hd128197128222%_)) + (if (gx#stx-pair? _%tl128198128224%_) + (let ((_%e128199128229%_ (gx#syntax-e - _%tl127924127950%_))) - (let ((_%hd127926127958%_ - (##car _%e127925127955%_)) - (_%tl127927127960%_ - (##cdr _%e127925127955%_))) - (let ((_%body127963%_ - _%hd127926127958%_)) + _%tl128198128224%_))) + (let ((_%hd128200128232%_ + (##car _%e128199128229%_)) + (_%tl128201128234%_ + (##cdr _%e128199128229%_))) + (let ((_%body128237%_ + _%hd128200128232%_)) (if (gx#stx-null? - _%tl127927127960%_) - (cons _%form127915%_ + _%tl128201128234%_) + (cons _%form128189%_ (cons (gx#stx-map1 gx#core-compile-top-lambda-clause - _%hd127953%_) + _%hd128227%_) (cons (gx#core-compile-top-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body127963%_) + _%body128237%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E127918127933%_))))) - (_%E127918127933%_))))) - (_%E127918127933%_)))) - (_%E127918127933%_))))) - (_%E127917127965%_)))) + (_%E128192128207%_))))) + (_%E128192128207%_))))) + (_%E128192128207%_)))) + (_%E128192128207%_))))) + (_%E128191128239%_)))) (define gx#core-compile-top-let-values%__0 - (lambda (_%stx127972%_) - (let ((_%form127974%_ '%#let-values)) - (gx#core-compile-top-let-values%__% _%stx127972%_ _%form127974%_)))) + (lambda (_%stx128246%_) + (let ((_%form128248%_ '%#let-values)) + (gx#core-compile-top-let-values%__% _%stx128246%_ _%form128248%_)))) (define gx#core-compile-top-let-values% - (lambda _g128801_ - (let ((_g128800_ (##length _g128801_))) - (cond ((##fx= _g128800_ 1) - (apply gx#core-compile-top-let-values%__0 _g128801_)) - ((##fx= _g128800_ 2) - (apply gx#core-compile-top-let-values%__% _g128801_)) + (lambda _g129075_ + (let ((_g129074_ (##length _g129075_))) + (cond ((##fx= _g129074_ 1) + (apply gx#core-compile-top-let-values%__0 _g129075_)) + ((##fx= _g129074_ 2) + (apply gx#core-compile-top-let-values%__% _g129075_)) (else (##raise-wrong-number-of-arguments-exception gx#core-compile-top-let-values% - _g128801_)))))) + _g129075_)))))) (define gx#core-compile-top-letrec-values% - (lambda (_%stx127911%_) - (gx#core-compile-top-let-values%__% _%stx127911%_ '%#letrec-values))) + (lambda (_%stx128185%_) + (gx#core-compile-top-let-values%__% _%stx128185%_ '%#letrec-values))) (define gx#core-compile-top-letrec*-values% - (lambda (_%stx127909%_) - (gx#core-compile-top-let-values%__% _%stx127909%_ '%#letrec*-values))) + (lambda (_%stx128183%_) + (gx#core-compile-top-let-values%__% _%stx128183%_ '%#letrec*-values))) (define gx#core-compile-top-quote% - (lambda (_%stx127868%_) - (let* ((_%e127869127879%_ _%stx127868%_) - (_%E127871127883%_ + (lambda (_%stx128142%_) + (let* ((_%e128143128153%_ _%stx128142%_) + (_%E128145128157%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e127869127879%_))) - (_%E127870127905%_ - (lambda () - (if (gx#stx-pair? _%e127869127879%_) - (let ((_%e127872127887%_ - (gx#syntax-e _%e127869127879%_))) - (let ((_%hd127873127890%_ (##car _%e127872127887%_)) - (_%tl127874127892%_ (##cdr _%e127872127887%_))) - (if (gx#stx-pair? _%tl127874127892%_) - (let ((_%e127875127895%_ - (gx#syntax-e _%tl127874127892%_))) - (let ((_%hd127876127898%_ - (##car _%e127875127895%_)) - (_%tl127877127900%_ - (##cdr _%e127875127895%_))) - (let ((_%e127903%_ _%hd127876127898%_)) - (if (gx#stx-null? _%tl127877127900%_) + _%e128143128153%_))) + (_%E128144128179%_ + (lambda () + (if (gx#stx-pair? _%e128143128153%_) + (let ((_%e128146128161%_ + (gx#syntax-e _%e128143128153%_))) + (let ((_%hd128147128164%_ (##car _%e128146128161%_)) + (_%tl128148128166%_ (##cdr _%e128146128161%_))) + (if (gx#stx-pair? _%tl128148128166%_) + (let ((_%e128149128169%_ + (gx#syntax-e _%tl128148128166%_))) + (let ((_%hd128150128172%_ + (##car _%e128149128169%_)) + (_%tl128151128174%_ + (##cdr _%e128149128169%_))) + (let ((_%e128177%_ _%hd128150128172%_)) + (if (gx#stx-null? _%tl128151128174%_) (cons '%#quote (cons (gx#syntax->datum - _%e127903%_) + _%e128177%_) '())) - (_%E127871127883%_))))) - (_%E127871127883%_)))) - (_%E127871127883%_))))) - (_%E127870127905%_)))) + (_%E128145128157%_))))) + (_%E128145128157%_)))) + (_%E128145128157%_))))) + (_%E128144128179%_)))) (define gx#core-compile-top-quote-syntax% - (lambda (_%stx127827%_) - (let* ((_%e127828127838%_ _%stx127827%_) - (_%E127830127842%_ + (lambda (_%stx128101%_) + (let* ((_%e128102128112%_ _%stx128101%_) + (_%E128104128116%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e127828127838%_))) - (_%E127829127864%_ - (lambda () - (if (gx#stx-pair? _%e127828127838%_) - (let ((_%e127831127846%_ - (gx#syntax-e _%e127828127838%_))) - (let ((_%hd127832127849%_ (##car _%e127831127846%_)) - (_%tl127833127851%_ (##cdr _%e127831127846%_))) - (if (gx#stx-pair? _%tl127833127851%_) - (let ((_%e127834127854%_ - (gx#syntax-e _%tl127833127851%_))) - (let ((_%hd127835127857%_ - (##car _%e127834127854%_)) - (_%tl127836127859%_ - (##cdr _%e127834127854%_))) - (let ((_%e127862%_ _%hd127835127857%_)) - (if (gx#stx-null? _%tl127836127859%_) + _%e128102128112%_))) + (_%E128103128138%_ + (lambda () + (if (gx#stx-pair? _%e128102128112%_) + (let ((_%e128105128120%_ + (gx#syntax-e _%e128102128112%_))) + (let ((_%hd128106128123%_ (##car _%e128105128120%_)) + (_%tl128107128125%_ (##cdr _%e128105128120%_))) + (if (gx#stx-pair? _%tl128107128125%_) + (let ((_%e128108128128%_ + (gx#syntax-e _%tl128107128125%_))) + (let ((_%hd128109128131%_ + (##car _%e128108128128%_)) + (_%tl128110128133%_ + (##cdr _%e128108128128%_))) + (let ((_%e128136%_ _%hd128109128131%_)) + (if (gx#stx-null? _%tl128110128133%_) (cons '%#quote-syntax (cons (gx#core-quote-syntax__0 - _%e127862%_) + _%e128136%_) '())) - (_%E127830127842%_))))) - (_%E127830127842%_)))) - (_%E127830127842%_))))) - (_%E127829127864%_)))) + (_%E128104128116%_))))) + (_%E128104128116%_)))) + (_%E128104128116%_))))) + (_%E128103128138%_)))) (define gx#core-compile-top-call% - (lambda (_%stx127784%_) - (let* ((_%e127785127795%_ _%stx127784%_) - (_%E127787127799%_ + (lambda (_%stx128058%_) + (let* ((_%e128059128069%_ _%stx128058%_) + (_%E128061128073%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e127785127795%_))) - (_%E127786127823%_ - (lambda () - (if (gx#stx-pair? _%e127785127795%_) - (let ((_%e127788127803%_ - (gx#syntax-e _%e127785127795%_))) - (let ((_%hd127789127806%_ (##car _%e127788127803%_)) - (_%tl127790127808%_ (##cdr _%e127788127803%_))) - (if (gx#stx-pair? _%tl127790127808%_) - (let ((_%e127791127811%_ - (gx#syntax-e _%tl127790127808%_))) - (let ((_%hd127792127814%_ - (##car _%e127791127811%_)) - (_%tl127793127816%_ - (##cdr _%e127791127811%_))) - (let* ((_%rator127819%_ _%hd127792127814%_) - (_%args127821%_ _%tl127793127816%_)) + _%e128059128069%_))) + (_%E128060128097%_ + (lambda () + (if (gx#stx-pair? _%e128059128069%_) + (let ((_%e128062128077%_ + (gx#syntax-e _%e128059128069%_))) + (let ((_%hd128063128080%_ (##car _%e128062128077%_)) + (_%tl128064128082%_ (##cdr _%e128062128077%_))) + (if (gx#stx-pair? _%tl128064128082%_) + (let ((_%e128065128085%_ + (gx#syntax-e _%tl128064128082%_))) + (let ((_%hd128066128088%_ + (##car _%e128065128085%_)) + (_%tl128067128090%_ + (##cdr _%e128065128085%_))) + (let* ((_%rator128093%_ _%hd128066128088%_) + (_%args128095%_ _%tl128067128090%_)) (cons '%#call (cons (gx#core-compile-top-syntax - _%rator127819%_) + _%rator128093%_) (gx#stx-map1 gx#core-compile-top-syntax - _%args127821%_)))))) - (_%E127787127799%_)))) - (_%E127787127799%_))))) - (_%E127786127823%_)))) + _%args128095%_)))))) + (_%E128061128073%_)))) + (_%E128061128073%_))))) + (_%E128060128097%_)))) (define gx#core-compile-top-if% - (lambda (_%stx127717%_) - (let* ((_%e127718127734%_ _%stx127717%_) - (_%E127720127738%_ + (lambda (_%stx127991%_) + (let* ((_%e127992128008%_ _%stx127991%_) + (_%E127994128012%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e127718127734%_))) - (_%E127719127780%_ - (lambda () - (if (gx#stx-pair? _%e127718127734%_) - (let ((_%e127721127742%_ - (gx#syntax-e _%e127718127734%_))) - (let ((_%hd127722127745%_ (##car _%e127721127742%_)) - (_%tl127723127747%_ (##cdr _%e127721127742%_))) - (if (gx#stx-pair? _%tl127723127747%_) - (let ((_%e127724127750%_ - (gx#syntax-e _%tl127723127747%_))) - (let ((_%hd127725127753%_ - (##car _%e127724127750%_)) - (_%tl127726127755%_ - (##cdr _%e127724127750%_))) - (let ((_%test127758%_ _%hd127725127753%_)) - (if (gx#stx-pair? _%tl127726127755%_) - (let ((_%e127727127760%_ + _%e127992128008%_))) + (_%E127993128054%_ + (lambda () + (if (gx#stx-pair? _%e127992128008%_) + (let ((_%e127995128016%_ + (gx#syntax-e _%e127992128008%_))) + (let ((_%hd127996128019%_ (##car _%e127995128016%_)) + (_%tl127997128021%_ (##cdr _%e127995128016%_))) + (if (gx#stx-pair? _%tl127997128021%_) + (let ((_%e127998128024%_ + (gx#syntax-e _%tl127997128021%_))) + (let ((_%hd127999128027%_ + (##car _%e127998128024%_)) + (_%tl128000128029%_ + (##cdr _%e127998128024%_))) + (let ((_%test128032%_ _%hd127999128027%_)) + (if (gx#stx-pair? _%tl128000128029%_) + (let ((_%e128001128034%_ (gx#syntax-e - _%tl127726127755%_))) - (let ((_%hd127728127763%_ - (##car _%e127727127760%_)) - (_%tl127729127765%_ - (##cdr _%e127727127760%_))) - (let ((_%K127768%_ - _%hd127728127763%_)) + _%tl128000128029%_))) + (let ((_%hd128002128037%_ + (##car _%e128001128034%_)) + (_%tl128003128039%_ + (##cdr _%e128001128034%_))) + (let ((_%K128042%_ + _%hd128002128037%_)) (if (gx#stx-pair? - _%tl127729127765%_) - (let ((_%e127730127770%_ + _%tl128003128039%_) + (let ((_%e128004128044%_ (gx#syntax-e - _%tl127729127765%_))) - (let ((_%hd127731127773%_ - (##car _%e127730127770%_)) - (_%tl127732127775%_ - (##cdr _%e127730127770%_))) - (let ((_%E127778%_ - _%hd127731127773%_)) + _%tl128003128039%_))) + (let ((_%hd128005128047%_ + (##car _%e128004128044%_)) + (_%tl128006128049%_ + (##cdr _%e128004128044%_))) + (let ((_%E128052%_ + _%hd128005128047%_)) (if (gx#stx-null? - _%tl127732127775%_) + _%tl128006128049%_) (cons '%#if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-compile-top-syntax _%test127758%_) - (cons (gx#core-compile-top-syntax _%K127768%_) + (cons (gx#core-compile-top-syntax _%test128032%_) + (cons (gx#core-compile-top-syntax _%K128042%_) (cons (gx#core-compile-top-syntax - _%E127778%_) + _%E128052%_) '())))) - (_%E127720127738%_))))) + (_%E127994128012%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E127720127738%_))))) - (_%E127720127738%_))))) - (_%E127720127738%_)))) - (_%E127720127738%_))))) - (_%E127719127780%_)))) + (_%E127994128012%_))))) + (_%E127994128012%_))))) + (_%E127994128012%_)))) + (_%E127994128012%_))))) + (_%E127993128054%_)))) (define gx#core-compile-top-ref% - (lambda (_%stx127676%_) - (let* ((_%e127677127687%_ _%stx127676%_) - (_%E127679127691%_ + (lambda (_%stx127950%_) + (let* ((_%e127951127961%_ _%stx127950%_) + (_%E127953127965%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e127677127687%_))) - (_%E127678127713%_ - (lambda () - (if (gx#stx-pair? _%e127677127687%_) - (let ((_%e127680127695%_ - (gx#syntax-e _%e127677127687%_))) - (let ((_%hd127681127698%_ (##car _%e127680127695%_)) - (_%tl127682127700%_ (##cdr _%e127680127695%_))) - (if (gx#stx-pair? _%tl127682127700%_) - (let ((_%e127683127703%_ - (gx#syntax-e _%tl127682127700%_))) - (let ((_%hd127684127706%_ - (##car _%e127683127703%_)) - (_%tl127685127708%_ - (##cdr _%e127683127703%_))) - (let ((_%id127711%_ _%hd127684127706%_)) - (if (gx#stx-null? _%tl127685127708%_) - (if (gx#identifier? _%id127711%_) + _%e127951127961%_))) + (_%E127952127987%_ + (lambda () + (if (gx#stx-pair? _%e127951127961%_) + (let ((_%e127954127969%_ + (gx#syntax-e _%e127951127961%_))) + (let ((_%hd127955127972%_ (##car _%e127954127969%_)) + (_%tl127956127974%_ (##cdr _%e127954127969%_))) + (if (gx#stx-pair? _%tl127956127974%_) + (let ((_%e127957127977%_ + (gx#syntax-e _%tl127956127974%_))) + (let ((_%hd127958127980%_ + (##car _%e127957127977%_)) + (_%tl127959127982%_ + (##cdr _%e127957127977%_))) + (let ((_%id127985%_ _%hd127958127980%_)) + (if (gx#stx-null? _%tl127959127982%_) + (if (gx#identifier? _%id127985%_) (cons '%#ref (cons (gx#core-compile-top-runtime-ref - _%id127711%_) + _%id127985%_) '())) - (_%E127679127691%_)) - (_%E127679127691%_))))) - (_%E127679127691%_)))) - (_%E127679127691%_))))) - (_%E127678127713%_)))) + (_%E127953127965%_)) + (_%E127953127965%_))))) + (_%E127953127965%_)))) + (_%E127953127965%_))))) + (_%E127952127987%_)))) (define gx#core-compile-top-setq% - (lambda (_%stx127622%_) - (let* ((_%e127623127636%_ _%stx127622%_) - (_%E127625127640%_ + (lambda (_%stx127896%_) + (let* ((_%e127897127910%_ _%stx127896%_) + (_%E127899127914%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e127623127636%_))) - (_%E127624127672%_ - (lambda () - (if (gx#stx-pair? _%e127623127636%_) - (let ((_%e127626127644%_ - (gx#syntax-e _%e127623127636%_))) - (let ((_%hd127627127647%_ (##car _%e127626127644%_)) - (_%tl127628127649%_ (##cdr _%e127626127644%_))) - (if (gx#stx-pair? _%tl127628127649%_) - (let ((_%e127629127652%_ - (gx#syntax-e _%tl127628127649%_))) - (let ((_%hd127630127655%_ - (##car _%e127629127652%_)) - (_%tl127631127657%_ - (##cdr _%e127629127652%_))) - (let ((_%id127660%_ _%hd127630127655%_)) - (if (gx#stx-pair? _%tl127631127657%_) - (let ((_%e127632127662%_ + _%e127897127910%_))) + (_%E127898127946%_ + (lambda () + (if (gx#stx-pair? _%e127897127910%_) + (let ((_%e127900127918%_ + (gx#syntax-e _%e127897127910%_))) + (let ((_%hd127901127921%_ (##car _%e127900127918%_)) + (_%tl127902127923%_ (##cdr _%e127900127918%_))) + (if (gx#stx-pair? _%tl127902127923%_) + (let ((_%e127903127926%_ + (gx#syntax-e _%tl127902127923%_))) + (let ((_%hd127904127929%_ + (##car _%e127903127926%_)) + (_%tl127905127931%_ + (##cdr _%e127903127926%_))) + (let ((_%id127934%_ _%hd127904127929%_)) + (if (gx#stx-pair? _%tl127905127931%_) + (let ((_%e127906127936%_ (gx#syntax-e - _%tl127631127657%_))) - (let ((_%hd127633127665%_ - (##car _%e127632127662%_)) - (_%tl127634127667%_ - (##cdr _%e127632127662%_))) - (let ((_%expr127670%_ - _%hd127633127665%_)) + _%tl127905127931%_))) + (let ((_%hd127907127939%_ + (##car _%e127906127936%_)) + (_%tl127908127941%_ + (##cdr _%e127906127936%_))) + (let ((_%expr127944%_ + _%hd127907127939%_)) (if (gx#stx-null? - _%tl127634127667%_) + _%tl127908127941%_) (if (gx#identifier? - _%id127660%_) + _%id127934%_) (cons '%#set! (cons (gx#core-compile-top-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id127660%_) - (cons (gx#core-compile-top-syntax _%expr127670%_) + _%id127934%_) + (cons (gx#core-compile-top-syntax _%expr127944%_) '()))) - (_%E127625127640%_)) + (_%E127899127914%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E127625127640%_))))) - (_%E127625127640%_))))) - (_%E127625127640%_)))) - (_%E127625127640%_))))) - (_%E127624127672%_)))) + (_%E127899127914%_))))) + (_%E127899127914%_))))) + (_%E127899127914%_)))) + (_%E127899127914%_))))) + (_%E127898127946%_)))) (define gx#core-compile-top-runtime-ref - (lambda (_%id127616%_) - (let ((_%$e127618%_ (gx#resolve-identifier__0 _%id127616%_))) - (if _%$e127618%_ - (##unchecked-structure-ref _%$e127618%_ '1 '#f '#f) - _%id127616%_)))) + (lambda (_%id127890%_) + (let ((_%$e127892%_ (gx#resolve-identifier__0 _%id127890%_))) + (if _%$e127892%_ + (##unchecked-structure-ref _%$e127892%_ '1 '#f '#f) + _%id127890%_)))) (define gx#core-compile-top-runtime-bind - (lambda (_%hd127614%_) - (if (gx#identifier? _%hd127614%_) - (gx#core-compile-top-runtime-ref _%hd127614%_) + (lambda (_%hd127888%_) + (if (gx#identifier? _%hd127888%_) + (gx#core-compile-top-runtime-ref _%hd127888%_) '#f))))) diff --git a/src/bootstrap/gerbil/expander/core~0.scm b/src/bootstrap/gerbil/expander/core~0.scm index 749e1a492..1c862f018 100644 --- a/src/bootstrap/gerbil/expander/core~0.scm +++ b/src/bootstrap/gerbil/expander/core~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/core::timestamp 1713044315) + (define gerbil/expander/core::timestamp 1713454410) (begin (declare (not safe)) (define gx#current-expander-context (make-parameter '#f)) @@ -25,8 +25,8 @@ (define gx#expander-context? (__make-class-predicate gx#expander-context::t)) (define gx#make-expander-context - (lambda _%$args119884%_ - (apply make-instance gx#expander-context::t _%$args119884%_))) + (lambda _%$args120158%_ + (apply make-instance gx#expander-context::t _%$args120158%_))) (define gx#expander-context-id (__make-class-slot-accessor gx#expander-context::t 'id)) (define gx#expander-context-table @@ -53,8 +53,8 @@ '#f)) (define gx#root-context? (__make-class-predicate gx#root-context::t)) (define gx#make-root-context - (lambda _%$args119881%_ - (apply make-instance gx#root-context::t _%$args119881%_))) + (lambda _%$args120155%_ + (apply make-instance gx#root-context::t _%$args120155%_))) (define gx#root-context-id (__make-class-slot-accessor gx#root-context::t 'id)) (define gx#root-context-table @@ -81,8 +81,8 @@ '#f)) (define gx#phi-context? (__make-class-predicate gx#phi-context::t)) (define gx#make-phi-context - (lambda _%$args119878%_ - (apply make-instance gx#phi-context::t _%$args119878%_))) + (lambda _%$args120152%_ + (apply make-instance gx#phi-context::t _%$args120152%_))) (define gx#phi-context-super (__make-class-slot-accessor gx#phi-context::t 'super)) (define gx#phi-context-up @@ -133,8 +133,8 @@ '#f)) (define gx#top-context? (__make-class-predicate gx#top-context::t)) (define gx#make-top-context - (lambda _%$args119875%_ - (apply make-instance gx#top-context::t _%$args119875%_))) + (lambda _%$args120149%_ + (apply make-instance gx#top-context::t _%$args120149%_))) (define gx#top-context-super (__make-class-slot-accessor gx#top-context::t 'super)) (define gx#top-context-up @@ -185,8 +185,8 @@ '#f)) (define gx#module-context? (__make-class-predicate gx#module-context::t)) (define gx#make-module-context - (lambda _%$args119872%_ - (apply make-instance gx#module-context::t _%$args119872%_))) + (lambda _%$args120146%_ + (apply make-instance gx#module-context::t _%$args120146%_))) (define gx#module-context-ns (__make-class-slot-accessor gx#module-context::t 'ns)) (define gx#module-context-path @@ -285,8 +285,8 @@ '#f)) (define gx#prelude-context? (__make-class-predicate gx#prelude-context::t)) (define gx#make-prelude-context - (lambda _%$args119869%_ - (apply make-instance gx#prelude-context::t _%$args119869%_))) + (lambda _%$args120143%_ + (apply make-instance gx#prelude-context::t _%$args120143%_))) (define gx#prelude-context-path (__make-class-slot-accessor gx#prelude-context::t 'path)) (define gx#prelude-context-import @@ -361,8 +361,8 @@ '#f)) (define gx#local-context? (__make-class-predicate gx#local-context::t)) (define gx#make-local-context - (lambda _%$args119866%_ - (apply make-instance gx#local-context::t _%$args119866%_))) + (lambda _%$args120140%_ + (apply make-instance gx#local-context::t _%$args120140%_))) (define gx#local-context-super (__make-class-slot-accessor gx#local-context::t 'super)) (define gx#local-context-up @@ -404,97 +404,97 @@ (define gx#&local-context-table-set! (__make-class-slot-unchecked-mutator gx#local-context::t 'table)) (define gx#phi-context:::init!__% - (lambda (_%self116772119837%_ _%id119839%_ _%super119840%_) - (let* ((_%self119842%_ _%self116772119837%_) - (_%self119844%_ _%self119842%_)) - (if (##fx< '3 (##structure-length _%self119844%_)) + (lambda (_%self117046120111%_ _%id120113%_ _%super120114%_) + (let* ((_%self120116%_ _%self117046120111%_) + (_%self120118%_ _%self120116%_)) + (if (##fx< '3 (##structure-length _%self120118%_)) (begin (##unchecked-structure-set! - _%self119844%_ - _%id119839%_ + _%self120118%_ + _%id120113%_ '1 '#f '#f) (##unchecked-structure-set! - _%self119844%_ + _%self120118%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self119844%_ - _%super119840%_ + _%self120118%_ + _%super120114%_ '3 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self119844%_ + _%self120118%_ '3 - (##vector-length _%self119844%_)))))) + (##vector-length _%self120118%_)))))) (define gx#phi-context:::init!__0 - (lambda (_%self116772119857%_ _%id119858%_) - (let ((_%super119860%_ (gx#current-expander-context))) + (lambda (_%self117046120131%_ _%id120132%_) + (let ((_%super120134%_ (gx#current-expander-context))) (gx#phi-context:::init!__% - _%self116772119857%_ - _%id119858%_ - _%super119860%_)))) + _%self117046120131%_ + _%id120132%_ + _%super120134%_)))) (define gx#phi-context:::init! - (lambda _g119927_ - (let ((_g119926_ (##length _g119927_))) - (cond ((##fx= _g119926_ 2) - (apply gx#phi-context:::init!__0 _g119927_)) - ((##fx= _g119926_ 3) - (apply gx#phi-context:::init!__% _g119927_)) + (lambda _g120201_ + (let ((_g120200_ (##length _g120201_))) + (cond ((##fx= _g120200_ 2) + (apply gx#phi-context:::init!__0 _g120201_)) + ((##fx= _g120200_ 3) + (apply gx#phi-context:::init!__% _g120201_)) (else (##raise-wrong-number-of-arguments-exception gx#phi-context:::init! - _g119927_)))))) + _g120201_)))))) (__bind-method!__% gx#phi-context::t ':init! gx#phi-context:::init! '#f) (define gx#local-context:::init!__% - (lambda (_%self116773119688%_ _%super119690%_) - (let* ((_%self119692%_ _%self116773119688%_) - (_%self119694%_ _%self119692%_)) - (if (##fx< '3 (##structure-length _%self119694%_)) + (lambda (_%self117047119962%_ _%super119964%_) + (let* ((_%self119966%_ _%self117047119962%_) + (_%self119968%_ _%self119966%_)) + (if (##fx< '3 (##structure-length _%self119968%_)) (begin (##unchecked-structure-set! - _%self119694%_ + _%self119968%_ (##gensym 'L) '1 '#f '#f) (##unchecked-structure-set! - _%self119694%_ + _%self119968%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self119694%_ - _%super119690%_ + _%self119968%_ + _%super119964%_ '3 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self119694%_ + _%self119968%_ '3 - (##vector-length _%self119694%_)))))) + (##vector-length _%self119968%_)))))) (define gx#local-context:::init!__0 - (lambda (_%self116773119707%_) - (let ((_%super119709%_ (gx#current-expander-context))) - (gx#local-context:::init!__% _%self116773119707%_ _%super119709%_)))) + (lambda (_%self117047119981%_) + (let ((_%super119983%_ (gx#current-expander-context))) + (gx#local-context:::init!__% _%self117047119981%_ _%super119983%_)))) (define gx#local-context:::init! - (lambda _g119929_ - (let ((_g119928_ (##length _g119929_))) - (cond ((##fx= _g119928_ 1) - (apply gx#local-context:::init!__0 _g119929_)) - ((##fx= _g119928_ 2) - (apply gx#local-context:::init!__% _g119929_)) + (lambda _g120203_ + (let ((_g120202_ (##length _g120203_))) + (cond ((##fx= _g120202_ 1) + (apply gx#local-context:::init!__0 _g120203_)) + ((##fx= _g120202_ 2) + (apply gx#local-context:::init!__% _g120203_)) (else (##raise-wrong-number-of-arguments-exception gx#local-context:::init! - _g119929_)))))) + _g120203_)))))) (__bind-method!__% gx#local-context::t ':init! @@ -510,8 +510,8 @@ '#f)) (define gx#binding? (__make-class-predicate gx#binding::t)) (define gx#make-binding - (lambda _%$args119562%_ - (apply make-instance gx#binding::t _%$args119562%_))) + (lambda _%$args119836%_ + (apply make-instance gx#binding::t _%$args119836%_))) (define gx#binding-id (__make-class-slot-accessor gx#binding::t 'id)) (define gx#binding-key (__make-class-slot-accessor gx#binding::t 'key)) (define gx#binding-phi (__make-class-slot-accessor gx#binding::t 'phi)) @@ -540,8 +540,8 @@ '#f)) (define gx#runtime-binding? (__make-class-predicate gx#runtime-binding::t)) (define gx#make-runtime-binding - (lambda _%$args119559%_ - (apply make-instance gx#runtime-binding::t _%$args119559%_))) + (lambda _%$args119833%_ + (apply make-instance gx#runtime-binding::t _%$args119833%_))) (define gx#runtime-binding-id (__make-class-slot-accessor gx#runtime-binding::t 'id)) (define gx#runtime-binding-key @@ -576,8 +576,8 @@ '#f)) (define gx#local-binding? (__make-class-predicate gx#local-binding::t)) (define gx#make-local-binding - (lambda _%$args119556%_ - (apply make-instance gx#local-binding::t _%$args119556%_))) + (lambda _%$args119830%_ + (apply make-instance gx#local-binding::t _%$args119830%_))) (define gx#local-binding-id (__make-class-slot-accessor gx#local-binding::t 'id)) (define gx#local-binding-key @@ -612,8 +612,8 @@ '#f)) (define gx#top-binding? (__make-class-predicate gx#top-binding::t)) (define gx#make-top-binding - (lambda _%$args119553%_ - (apply make-instance gx#top-binding::t _%$args119553%_))) + (lambda _%$args119827%_ + (apply make-instance gx#top-binding::t _%$args119827%_))) (define gx#top-binding-id (__make-class-slot-accessor gx#top-binding::t 'id)) (define gx#top-binding-key @@ -648,8 +648,8 @@ '#f)) (define gx#module-binding? (__make-class-predicate gx#module-binding::t)) (define gx#make-module-binding - (lambda _%$args119550%_ - (apply make-instance gx#module-binding::t _%$args119550%_))) + (lambda _%$args119824%_ + (apply make-instance gx#module-binding::t _%$args119824%_))) (define gx#module-binding-context (__make-class-slot-accessor gx#module-binding::t 'context)) (define gx#module-binding-id @@ -692,8 +692,8 @@ '#f)) (define gx#extern-binding? (__make-class-predicate gx#extern-binding::t)) (define gx#make-extern-binding - (lambda _%$args119547%_ - (apply make-instance gx#extern-binding::t _%$args119547%_))) + (lambda _%$args119821%_ + (apply make-instance gx#extern-binding::t _%$args119821%_))) (define gx#extern-binding-id (__make-class-slot-accessor gx#extern-binding::t 'id)) (define gx#extern-binding-key @@ -729,8 +729,8 @@ '#f)) (define gx#syntax-binding? (__make-class-predicate gx#syntax-binding::t)) (define gx#make-syntax-binding - (lambda _%$args119544%_ - (apply make-instance gx#syntax-binding::t _%$args119544%_))) + (lambda _%$args119818%_ + (apply make-instance gx#syntax-binding::t _%$args119818%_))) (define gx#syntax-binding-e (__make-class-slot-accessor gx#syntax-binding::t 'e)) (define gx#syntax-binding-id @@ -774,8 +774,8 @@ '#f)) (define gx#import-binding? (__make-class-predicate gx#import-binding::t)) (define gx#make-import-binding - (lambda _%$args119541%_ - (apply make-instance gx#import-binding::t _%$args119541%_))) + (lambda _%$args119815%_ + (apply make-instance gx#import-binding::t _%$args119815%_))) (define gx#import-binding-e (__make-class-slot-accessor gx#import-binding::t 'e)) (define gx#import-binding-context @@ -835,8 +835,8 @@ '#f)) (define gx#alias-binding? (__make-class-predicate gx#alias-binding::t)) (define gx#make-alias-binding - (lambda _%$args119538%_ - (apply make-instance gx#alias-binding::t _%$args119538%_))) + (lambda _%$args119812%_ + (apply make-instance gx#alias-binding::t _%$args119812%_))) (define gx#alias-binding-e (__make-class-slot-accessor gx#alias-binding::t 'e)) (define gx#alias-binding-id @@ -879,8 +879,8 @@ '#f)) (define gx#expander? (__make-class-predicate gx#expander::t)) (define gx#make-expander - (lambda _%$args119535%_ - (apply make-instance gx#expander::t _%$args119535%_))) + (lambda _%$args119809%_ + (apply make-instance gx#expander::t _%$args119809%_))) (define gx#expander-e (__make-class-slot-accessor gx#expander::t 'e)) (define gx#expander-e-set! (__make-class-slot-mutator gx#expander::t 'e)) (define gx#&expander-e @@ -897,8 +897,8 @@ '#f)) (define gx#core-expander? (__make-class-predicate gx#core-expander::t)) (define gx#make-core-expander - (lambda _%$args119532%_ - (apply make-instance gx#core-expander::t _%$args119532%_))) + (lambda _%$args119806%_ + (apply make-instance gx#core-expander::t _%$args119806%_))) (define gx#core-expander-id (__make-class-slot-accessor gx#core-expander::t 'id)) (define gx#core-expander-compile-top @@ -933,8 +933,8 @@ '#f)) (define gx#expression-form? (__make-class-predicate gx#expression-form::t)) (define gx#make-expression-form - (lambda _%$args119529%_ - (apply make-instance gx#expression-form::t _%$args119529%_))) + (lambda _%$args119803%_ + (apply make-instance gx#expression-form::t _%$args119803%_))) (define gx#expression-form-id (__make-class-slot-accessor gx#expression-form::t 'id)) (define gx#expression-form-compile-top @@ -971,8 +971,8 @@ '#f)) (define gx#special-form? (__make-class-predicate gx#special-form::t)) (define gx#make-special-form - (lambda _%$args119526%_ - (apply make-instance gx#special-form::t _%$args119526%_))) + (lambda _%$args119800%_ + (apply make-instance gx#special-form::t _%$args119800%_))) (define gx#special-form-id (__make-class-slot-accessor gx#special-form::t 'id)) (define gx#special-form-compile-top @@ -1007,8 +1007,8 @@ '#f)) (define gx#definition-form? (__make-class-predicate gx#definition-form::t)) (define gx#make-definition-form - (lambda _%$args119523%_ - (apply make-instance gx#definition-form::t _%$args119523%_))) + (lambda _%$args119797%_ + (apply make-instance gx#definition-form::t _%$args119797%_))) (define gx#definition-form-id (__make-class-slot-accessor gx#definition-form::t 'id)) (define gx#definition-form-compile-top @@ -1046,8 +1046,8 @@ (define gx#top-special-form? (__make-class-predicate gx#top-special-form::t)) (define gx#make-top-special-form - (lambda _%$args119520%_ - (apply make-instance gx#top-special-form::t _%$args119520%_))) + (lambda _%$args119794%_ + (apply make-instance gx#top-special-form::t _%$args119794%_))) (define gx#top-special-form-id (__make-class-slot-accessor gx#top-special-form::t 'id)) (define gx#top-special-form-compile-top @@ -1087,8 +1087,8 @@ (define gx#module-special-form? (__make-class-predicate gx#module-special-form::t)) (define gx#make-module-special-form - (lambda _%$args119517%_ - (apply make-instance gx#module-special-form::t _%$args119517%_))) + (lambda _%$args119791%_ + (apply make-instance gx#module-special-form::t _%$args119791%_))) (define gx#module-special-form-id (__make-class-slot-accessor gx#module-special-form::t 'id)) (define gx#module-special-form-compile-top @@ -1128,8 +1128,8 @@ (define gx#feature-expander? (__make-class-predicate gx#feature-expander::t)) (define gx#make-feature-expander - (lambda _%$args119514%_ - (apply make-instance gx#feature-expander::t _%$args119514%_))) + (lambda _%$args119788%_ + (apply make-instance gx#feature-expander::t _%$args119788%_))) (define gx#feature-expander-e (__make-class-slot-accessor gx#feature-expander::t 'e)) (define gx#feature-expander-e-set! @@ -1149,8 +1149,8 @@ (define gx#private-feature-expander? (__make-class-predicate gx#private-feature-expander::t)) (define gx#make-private-feature-expander - (lambda _%$args119511%_ - (apply make-instance gx#private-feature-expander::t _%$args119511%_))) + (lambda _%$args119785%_ + (apply make-instance gx#private-feature-expander::t _%$args119785%_))) (define gx#private-feature-expander-e (__make-class-slot-accessor gx#private-feature-expander::t 'e)) (define gx#private-feature-expander-e-set! @@ -1170,8 +1170,8 @@ (define gx#reserved-expander? (__make-class-predicate gx#reserved-expander::t)) (define gx#make-reserved-expander - (lambda _%$args119508%_ - (apply make-instance gx#reserved-expander::t _%$args119508%_))) + (lambda _%$args119782%_ + (apply make-instance gx#reserved-expander::t _%$args119782%_))) (define gx#reserved-expander-e (__make-class-slot-accessor gx#reserved-expander::t 'e)) (define gx#reserved-expander-e-set! @@ -1190,8 +1190,8 @@ '#f)) (define gx#macro-expander? (__make-class-predicate gx#macro-expander::t)) (define gx#make-macro-expander - (lambda _%$args119505%_ - (apply make-instance gx#macro-expander::t _%$args119505%_))) + (lambda _%$args119779%_ + (apply make-instance gx#macro-expander::t _%$args119779%_))) (define gx#macro-expander-e (__make-class-slot-accessor gx#macro-expander::t 'e)) (define gx#macro-expander-e-set! @@ -1211,8 +1211,8 @@ (define gx#rename-macro-expander? (__make-class-predicate gx#rename-macro-expander::t)) (define gx#make-rename-macro-expander - (lambda _%$args119502%_ - (apply make-instance gx#rename-macro-expander::t _%$args119502%_))) + (lambda _%$args119776%_ + (apply make-instance gx#rename-macro-expander::t _%$args119776%_))) (define gx#rename-macro-expander-e (__make-class-slot-accessor gx#rename-macro-expander::t 'e)) (define gx#rename-macro-expander-e-set! @@ -1231,8 +1231,8 @@ '#f)) (define gx#user-expander? (__make-class-predicate gx#user-expander::t)) (define gx#make-user-expander - (lambda _%$args119499%_ - (apply make-instance gx#user-expander::t _%$args119499%_))) + (lambda _%$args119773%_ + (apply make-instance gx#user-expander::t _%$args119773%_))) (define gx#user-expander-context (__make-class-slot-accessor gx#user-expander::t 'context)) (define gx#user-expander-phi @@ -1267,8 +1267,8 @@ '#f)) (define gx#expander-mark? (__make-class-predicate gx#expander-mark::t)) (define gx#make-expander-mark - (lambda _%$args119496%_ - (apply make-instance gx#expander-mark::t _%$args119496%_))) + (lambda _%$args119770%_ + (apply make-instance gx#expander-mark::t _%$args119770%_))) (define gx#expander-mark-subst (__make-class-slot-accessor gx#expander-mark::t 'subst)) (define gx#expander-mark-context @@ -1302,985 +1302,985 @@ (define gx#&expander-mark-trace-set! (__make-class-slot-unchecked-mutator gx#expander-mark::t 'trace)) (define gx#raise-syntax-error - (lambda (_%ctx119480%_ - _%message119481%_ - _%stx119482%_ + (lambda (_%ctx119754%_ + _%message119755%_ + _%stx119756%_ . - _%details119483%_) - (let ((_%ctx119494%_ - (let ((_%$e119485%_ _%ctx119480%_)) - (if _%$e119485%_ - _%$e119485%_ - (let ((_%$e119488%_ (gx#core-context-top__0))) - (if _%$e119488%_ - ((lambda (_%ctx119491%_) + _%details119757%_) + (let ((_%ctx119768%_ + (let ((_%$e119759%_ _%ctx119754%_)) + (if _%$e119759%_ + _%$e119759%_ + (let ((_%$e119762%_ (gx#core-context-top__0))) + (if _%$e119762%_ + ((lambda (_%ctx119765%_) (cons 'expand (cons (##structure-ref - _%ctx119491%_ + _%ctx119765%_ '1 gx#expander-context::t '#f) '()))) - _%$e119488%_) + _%$e119762%_) '#f)))))) (raise (make-syntax-error - _%message119481%_ - (cons _%stx119482%_ _%details119483%_) - _%ctx119494%_ + _%message119755%_ + (cons _%stx119756%_ _%details119757%_) + _%ctx119768%_ (gx#current-expander-context) (gx#current-expander-marks) (gx#current-expander-phi)))))) (define gx#eval-syntax__% - (lambda (_%stx119467%_ _%expression?119468%_) + (lambda (_%stx119741%_ _%expression?119742%_) (gx#eval-syntax* - (gx#core-expand__% _%stx119467%_ _%expression?119468%_)))) + (gx#core-expand__% _%stx119741%_ _%expression?119742%_)))) (define gx#eval-syntax__0 - (lambda (_%stx119473%_) - (let ((_%expression?119475%_ '#f)) - (gx#eval-syntax__% _%stx119473%_ _%expression?119475%_)))) + (lambda (_%stx119747%_) + (let ((_%expression?119749%_ '#f)) + (gx#eval-syntax__% _%stx119747%_ _%expression?119749%_)))) (define gx#eval-syntax - (lambda _g119931_ - (let ((_g119930_ (##length _g119931_))) - (cond ((##fx= _g119930_ 1) (apply gx#eval-syntax__0 _g119931_)) - ((##fx= _g119930_ 2) (apply gx#eval-syntax__% _g119931_)) + (lambda _g120205_ + (let ((_g120204_ (##length _g120205_))) + (cond ((##fx= _g120204_ 1) (apply gx#eval-syntax__0 _g120205_)) + ((##fx= _g120204_ 2) (apply gx#eval-syntax__% _g120205_)) (else (##raise-wrong-number-of-arguments-exception gx#eval-syntax - _g119931_)))))) + _g120205_)))))) (define gx#eval-syntax* - (lambda (_%stx119464%_) + (lambda (_%stx119738%_) ((gx#current-expander-eval) - ((gx#current-expander-compile) _%stx119464%_)))) + ((gx#current-expander-compile) _%stx119738%_)))) (define gx#core-expand__% - (lambda (_%stx119451%_ _%expression?119452%_) - (if _%expression?119452%_ - (gx#core-expand-expression _%stx119451%_) - (gx#core-expand-top _%stx119451%_)))) + (lambda (_%stx119725%_ _%expression?119726%_) + (if _%expression?119726%_ + (gx#core-expand-expression _%stx119725%_) + (gx#core-expand-top _%stx119725%_)))) (define gx#core-expand__0 - (lambda (_%stx119457%_) - (let ((_%expression?119459%_ '#f)) - (gx#core-expand__% _%stx119457%_ _%expression?119459%_)))) + (lambda (_%stx119731%_) + (let ((_%expression?119733%_ '#f)) + (gx#core-expand__% _%stx119731%_ _%expression?119733%_)))) (define gx#core-expand - (lambda _g119933_ - (let ((_g119932_ (##length _g119933_))) - (cond ((##fx= _g119932_ 1) (apply gx#core-expand__0 _g119933_)) - ((##fx= _g119932_ 2) (apply gx#core-expand__% _g119933_)) + (lambda _g120207_ + (let ((_g120206_ (##length _g120207_))) + (cond ((##fx= _g120206_ 1) (apply gx#core-expand__0 _g120207_)) + ((##fx= _g120206_ 2) (apply gx#core-expand__% _g120207_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand - _g119933_)))))) + _g120207_)))))) (define gx#core-expand-top - (lambda (_%stx119418%_) - (let* ((_%stx119420%_ (gx#core-expand*__0 _%stx119418%_)) - (_%e119421119428%_ _%stx119420%_) - (_%E119423119432%_ - (lambda () (gx#core-expand-expression _%stx119420%_))) - (_%E119422119446%_ + (lambda (_%stx119692%_) + (let* ((_%stx119694%_ (gx#core-expand*__0 _%stx119692%_)) + (_%e119695119702%_ _%stx119694%_) + (_%E119697119706%_ + (lambda () (gx#core-expand-expression _%stx119694%_))) + (_%E119696119720%_ (lambda () - (if (gx#stx-pair? _%e119421119428%_) - (let ((_%e119424119436%_ - (gx#syntax-e _%e119421119428%_))) - (let ((_%hd119425119439%_ (##car _%e119424119436%_)) - (_%tl119426119441%_ (##cdr _%e119424119436%_))) - (let ((_%form119444%_ _%hd119425119439%_)) - (if (gx#core-bound-identifier?__0 _%form119444%_) - _%stx119420%_ - (_%E119423119432%_))))) - (_%E119423119432%_))))) - (_%E119422119446%_)))) + (if (gx#stx-pair? _%e119695119702%_) + (let ((_%e119698119710%_ + (gx#syntax-e _%e119695119702%_))) + (let ((_%hd119699119713%_ (##car _%e119698119710%_)) + (_%tl119700119715%_ (##cdr _%e119698119710%_))) + (let ((_%form119718%_ _%hd119699119713%_)) + (if (gx#core-bound-identifier?__0 _%form119718%_) + _%stx119694%_ + (_%E119697119706%_))))) + (_%E119697119706%_))))) + (_%E119696119720%_)))) (define gx#core-expand-expression - (lambda (_%stx119350%_) - (letrec ((_%sealed-expression?119352%_ - (lambda (_%hd119388%_) - (if (gx#sealed-syntax? _%hd119388%_) - (let* ((_%e119389119396%_ _%hd119388%_) - (_%E119391119400%_ (lambda () '#f)) - (_%E119390119414%_ + (lambda (_%stx119624%_) + (letrec ((_%sealed-expression?119626%_ + (lambda (_%hd119662%_) + (if (gx#sealed-syntax? _%hd119662%_) + (let* ((_%e119663119670%_ _%hd119662%_) + (_%E119665119674%_ (lambda () '#f)) + (_%E119664119688%_ (lambda () - (if (gx#stx-pair? _%e119389119396%_) - (let ((_%e119392119404%_ - (gx#syntax-e _%e119389119396%_))) - (let ((_%hd119393119407%_ - (##car _%e119392119404%_)) - (_%tl119394119409%_ - (##cdr _%e119392119404%_))) - (let ((_%form119412%_ - _%hd119393119407%_)) + (if (gx#stx-pair? _%e119663119670%_) + (let ((_%e119666119678%_ + (gx#syntax-e _%e119663119670%_))) + (let ((_%hd119667119681%_ + (##car _%e119666119678%_)) + (_%tl119668119683%_ + (##cdr _%e119666119678%_))) + (let ((_%form119686%_ + _%hd119667119681%_)) (gx#core-bound-identifier?__% - _%form119412%_ + _%form119686%_ gx#expression-form-binding?)))) - (_%E119391119400%_))))) - (_%E119390119414%_)) + (_%E119665119674%_))))) + (_%E119664119688%_)) '#f))) - (_%illegal-expression119353%_ - (lambda (_%hd119385%_ . _%_119386%_) + (_%illegal-expression119627%_ + (lambda (_%hd119659%_ . _%_119660%_) (gx#raise-syntax-error '#f '"Bad syntax; illegal expression" - _%stx119350%_ - _%hd119385%_))) - (_%expand-e119354%_ - (lambda (_%form119377%_ _%hd119378%_) - (let ((_%bind119380%_ + _%stx119624%_ + _%hd119659%_))) + (_%expand-e119628%_ + (lambda (_%form119651%_ _%hd119652%_) + (let ((_%bind119654%_ (if (##structure-instance-of? - _%form119377%_ + _%form119651%_ 'gx#binding::t) - _%form119377%_ - (gx#resolve-identifier__0 _%form119377%_)))) - (if (gx#core-expander-binding? _%bind119380%_) + _%form119651%_ + (gx#resolve-identifier__0 _%form119651%_)))) + (if (gx#core-expander-binding? _%bind119654%_) (gx#core-apply-expander__0 (##unchecked-structure-ref - _%bind119380%_ + _%bind119654%_ '4 '#f '#f) (gx#stx-wrap-source - _%hd119378%_ - (gx#stx-source _%stx119350%_))) + _%hd119652%_ + (gx#stx-source _%stx119624%_))) (if (##structure-direct-instance-of? - _%bind119380%_ + _%bind119654%_ 'gx#syntax-binding::t) (gx#core-expand-expression (gx#core-apply-expander__0 (##unchecked-structure-ref - _%bind119380%_ + _%bind119654%_ '4 '#f '#f) (gx#stx-wrap-source - _%hd119378%_ - (gx#stx-source _%stx119350%_)))) + _%hd119652%_ + (gx#stx-source _%stx119624%_)))) (gx#raise-syntax-error '#f '"Bad syntax; missing expander" - _%stx119350%_ - _%form119377%_))))))) - (let ((_%hd119356%_ (gx#core-expand-head _%stx119350%_))) - (if (_%sealed-expression?119352%_ _%hd119356%_) - _%hd119356%_ - (if (gx#stx-pair? _%hd119356%_) - (let* ((_%form119360%_ (gx#stx-car _%hd119356%_)) - (_%bind119362%_ - (if (gx#identifier? _%form119360%_) - (gx#resolve-identifier__0 _%form119360%_) + _%stx119624%_ + _%form119651%_))))))) + (let ((_%hd119630%_ (gx#core-expand-head _%stx119624%_))) + (if (_%sealed-expression?119626%_ _%hd119630%_) + _%hd119630%_ + (if (gx#stx-pair? _%hd119630%_) + (let* ((_%form119634%_ (gx#stx-car _%hd119630%_)) + (_%bind119636%_ + (if (gx#identifier? _%form119634%_) + (gx#resolve-identifier__0 _%form119634%_) '#f))) - (if (or (not _%bind119362%_) - (not (gx#core-expander-binding? _%bind119362%_))) - (_%expand-e119354%_ + (if (or (not _%bind119636%_) + (not (gx#core-expander-binding? _%bind119636%_))) + (_%expand-e119628%_ '%%app - (cons '%%app _%hd119356%_)) + (cons '%%app _%hd119630%_)) (if (eq? (##unchecked-structure-ref - _%bind119362%_ + _%bind119636%_ '1 '#f '#f) '%#begin) (gx#core-expand-block* - _%hd119356%_ - _%illegal-expression119353%_) - (if (gx#expression-form-binding? _%bind119362%_) - (_%expand-e119354%_ - _%bind119362%_ - _%hd119356%_) + _%hd119630%_ + _%illegal-expression119627%_) + (if (gx#expression-form-binding? _%bind119636%_) + (_%expand-e119628%_ + _%bind119636%_ + _%hd119630%_) (if (gx#direct-special-form-binding? - _%bind119362%_) + _%bind119636%_) (gx#core-expand-expression - (_%expand-e119354%_ - _%bind119362%_ - _%hd119356%_)) - (_%illegal-expression119353%_ - _%hd119356%_)))))) - (if (gx#core-bound-identifier?__0 _%hd119356%_) - (_%illegal-expression119353%_ _%hd119356%_) - (if (gx#identifier? _%hd119356%_) - (_%expand-e119354%_ + (_%expand-e119628%_ + _%bind119636%_ + _%hd119630%_)) + (_%illegal-expression119627%_ + _%hd119630%_)))))) + (if (gx#core-bound-identifier?__0 _%hd119630%_) + (_%illegal-expression119627%_ _%hd119630%_) + (if (gx#identifier? _%hd119630%_) + (_%expand-e119628%_ '%%ref - (cons '%%ref (cons _%hd119356%_ '()))) - (if (gx#stx-datum? _%hd119356%_) - (_%expand-e119354%_ + (cons '%%ref (cons _%hd119630%_ '()))) + (if (gx#stx-datum? _%hd119630%_) + (_%expand-e119628%_ '%#quote - (cons '%#quote (cons _%hd119356%_ '()))) - (_%illegal-expression119353%_ - _%hd119356%_)))))))))) + (cons '%#quote (cons _%hd119630%_ '()))) + (_%illegal-expression119627%_ + _%hd119630%_)))))))))) (define gx#core-expand-expression+1 - (lambda (_%stx119345%_) + (lambda (_%stx119619%_) (__call-with-parameters (lambda () - (let ((_%stx119348%_ (gx#core-expand-expression _%stx119345%_))) - (values _%stx119348%_ (gx#eval-syntax* _%stx119348%_)))) + (let ((_%stx119622%_ (gx#core-expand-expression _%stx119619%_))) + (values _%stx119622%_ (gx#eval-syntax* _%stx119622%_)))) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)))) (define gx#core-expand*__% - (lambda (_%stx119326%_ _%stop?119327%_) - (let _%lp119329%_ ((_%stx119331%_ _%stx119326%_)) - (if (_%stop?119327%_ _%stx119331%_) - _%stx119331%_ - (let ((_%rstx119333%_ (gx#core-expand1 _%stx119331%_))) - (if (eq? _%stx119331%_ _%rstx119333%_) - _%stx119331%_ - (_%lp119329%_ _%rstx119333%_))))))) + (lambda (_%stx119600%_ _%stop?119601%_) + (let _%lp119603%_ ((_%stx119605%_ _%stx119600%_)) + (if (_%stop?119601%_ _%stx119605%_) + _%stx119605%_ + (let ((_%rstx119607%_ (gx#core-expand1 _%stx119605%_))) + (if (eq? _%stx119605%_ _%rstx119607%_) + _%stx119605%_ + (_%lp119603%_ _%rstx119607%_))))))) (define gx#core-expand*__0 - (lambda (_%stx119338%_) - (let ((_%stop?119340%_ false)) - (gx#core-expand*__% _%stx119338%_ _%stop?119340%_)))) + (lambda (_%stx119612%_) + (let ((_%stop?119614%_ false)) + (gx#core-expand*__% _%stx119612%_ _%stop?119614%_)))) (define gx#core-expand* - (lambda _g119935_ - (let ((_g119934_ (##length _g119935_))) - (cond ((##fx= _g119934_ 1) (apply gx#core-expand*__0 _g119935_)) - ((##fx= _g119934_ 2) (apply gx#core-expand*__% _g119935_)) + (lambda _g120209_ + (let ((_g120208_ (##length _g120209_))) + (cond ((##fx= _g120208_ 1) (apply gx#core-expand*__0 _g120209_)) + ((##fx= _g120208_ 2) (apply gx#core-expand*__% _g120209_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand* - _g119935_)))))) + _g120209_)))))) (define gx#core-expand1 - (lambda (_%stx119278%_) - (letrec ((_%step119280%_ - (lambda (_%hd119317%_) - (let ((_%bind119319%_ - (gx#resolve-identifier__0 _%hd119317%_))) + (lambda (_%stx119552%_) + (letrec ((_%step119554%_ + (lambda (_%hd119591%_) + (let ((_%bind119593%_ + (gx#resolve-identifier__0 _%hd119591%_))) (if (##structure-instance-of? - _%bind119319%_ + _%bind119593%_ 'gx#runtime-binding::t) - _%stx119278%_ + _%stx119552%_ (if (##structure-direct-instance-of? - _%bind119319%_ + _%bind119593%_ 'gx#syntax-binding::t) (gx#core-apply-expander__0 (##unchecked-structure-ref - _%bind119319%_ + _%bind119593%_ '4 '#f '#f) - _%stx119278%_) - (if (not _%bind119319%_) - _%stx119278%_ + _%stx119552%_) + (if (not _%bind119593%_) + _%stx119552%_ (gx#raise-syntax-error '#f '"Bad syntax; no binding for head" - _%stx119278%_)))))))) - (let* ((_%e119281119289%_ _%stx119278%_) - (_%E119287119293%_ (lambda () _%stx119278%_)) - (_%E119283119299%_ + _%stx119552%_)))))))) + (let* ((_%e119555119563%_ _%stx119552%_) + (_%E119561119567%_ (lambda () _%stx119552%_)) + (_%E119557119573%_ (lambda () - (let ((_%hd119297%_ _%e119281119289%_)) - (if (gx#identifier? _%hd119297%_) - (_%step119280%_ _%hd119297%_) - (_%E119287119293%_))))) - (_%E119282119313%_ + (let ((_%hd119571%_ _%e119555119563%_)) + (if (gx#identifier? _%hd119571%_) + (_%step119554%_ _%hd119571%_) + (_%E119561119567%_))))) + (_%E119556119587%_ (lambda () - (if (gx#stx-pair? _%e119281119289%_) - (let ((_%e119284119303%_ - (gx#syntax-e _%e119281119289%_))) - (let ((_%hd119285119306%_ (##car _%e119284119303%_)) - (_%tl119286119308%_ (##cdr _%e119284119303%_))) - (let ((_%hd119311%_ _%hd119285119306%_)) - (if (gx#identifier? _%hd119311%_) - (_%step119280%_ _%hd119311%_) - (_%E119283119299%_))))) - (_%E119283119299%_))))) - (_%E119282119313%_))))) + (if (gx#stx-pair? _%e119555119563%_) + (let ((_%e119558119577%_ + (gx#syntax-e _%e119555119563%_))) + (let ((_%hd119559119580%_ (##car _%e119558119577%_)) + (_%tl119560119582%_ (##cdr _%e119558119577%_))) + (let ((_%hd119585%_ _%hd119559119580%_)) + (if (gx#identifier? _%hd119585%_) + (_%step119554%_ _%hd119585%_) + (_%E119557119573%_))))) + (_%E119557119573%_))))) + (_%E119556119587%_))))) (define gx#core-expand-head - (lambda (_%stx119244%_) - (letrec ((_%stop?119246%_ - (lambda (_%stx119248%_) - (let* ((_%e119249119256%_ _%stx119248%_) - (_%E119251119260%_ (lambda () '#f)) - (_%E119250119274%_ + (lambda (_%stx119518%_) + (letrec ((_%stop?119520%_ + (lambda (_%stx119522%_) + (let* ((_%e119523119530%_ _%stx119522%_) + (_%E119525119534%_ (lambda () '#f)) + (_%E119524119548%_ (lambda () - (if (gx#stx-pair? _%e119249119256%_) - (let ((_%e119252119264%_ - (gx#syntax-e _%e119249119256%_))) - (let ((_%hd119253119267%_ - (##car _%e119252119264%_)) - (_%tl119254119269%_ - (##cdr _%e119252119264%_))) - (let ((_%hd119272%_ _%hd119253119267%_)) + (if (gx#stx-pair? _%e119523119530%_) + (let ((_%e119526119538%_ + (gx#syntax-e _%e119523119530%_))) + (let ((_%hd119527119541%_ + (##car _%e119526119538%_)) + (_%tl119528119543%_ + (##cdr _%e119526119538%_))) + (let ((_%hd119546%_ _%hd119527119541%_)) (gx#core-bound-identifier?__0 - _%hd119272%_)))) - (_%E119251119260%_))))) - (_%E119250119274%_))))) - (gx#core-expand*__% _%stx119244%_ _%stop?119246%_)))) + _%hd119546%_)))) + (_%E119525119534%_))))) + (_%E119524119548%_))))) + (gx#core-expand*__% _%stx119518%_ _%stop?119520%_)))) (define gx#core-expand-block__% - (lambda (_%stx119050%_ - _%expand-special119051%_ - _%begin-form119052%_ - _%expand-e119053%_) - (letrec ((_%expand-splice119055%_ - (lambda (_%hd119218%_ - _%body119219%_ - _%rest119220%_ - _%r119221%_) - (if (gx#stx-list? _%body119219%_) - (_%K119059%_ - (gx#stx-foldr cons _%rest119220%_ _%body119219%_) - _%r119221%_) + (lambda (_%stx119324%_ + _%expand-special119325%_ + _%begin-form119326%_ + _%expand-e119327%_) + (letrec ((_%expand-splice119329%_ + (lambda (_%hd119492%_ + _%body119493%_ + _%rest119494%_ + _%r119495%_) + (if (gx#stx-list? _%body119493%_) + (_%K119333%_ + (gx#stx-foldr cons _%rest119494%_ _%body119493%_) + _%r119495%_) (gx#raise-syntax-error '#f '"Bad syntax; splice body isn't a list" - _%stx119050%_ - _%hd119218%_)))) - (_%expand-cond-expand119056%_ - (lambda (_%hd119214%_ _%rest119215%_ _%r119216%_) - (_%K119059%_ - (cons (gx#core-expand-cond-expand% _%hd119214%_) - _%rest119215%_) - _%r119216%_))) - (_%expand-include119057%_ - (lambda (_%hd119163%_ _%rest119164%_ _%r119165%_) - (let* ((_%e119166119176%_ _%hd119163%_) - (_%E119168119180%_ + _%stx119324%_ + _%hd119492%_)))) + (_%expand-cond-expand119330%_ + (lambda (_%hd119488%_ _%rest119489%_ _%r119490%_) + (_%K119333%_ + (cons (gx#core-expand-cond-expand% _%hd119488%_) + _%rest119489%_) + _%r119490%_))) + (_%expand-include119331%_ + (lambda (_%hd119437%_ _%rest119438%_ _%r119439%_) + (let* ((_%e119440119450%_ _%hd119437%_) + (_%E119442119454%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e119166119176%_))) - (_%E119167119210%_ + _%e119440119450%_))) + (_%E119441119484%_ (lambda () - (if (gx#stx-pair? _%e119166119176%_) - (let ((_%e119169119184%_ - (gx#syntax-e _%e119166119176%_))) - (let ((_%hd119170119187%_ - (##car _%e119169119184%_)) - (_%tl119171119189%_ - (##cdr _%e119169119184%_))) - (if (gx#stx-pair? _%tl119171119189%_) - (let ((_%e119172119192%_ + (if (gx#stx-pair? _%e119440119450%_) + (let ((_%e119443119458%_ + (gx#syntax-e _%e119440119450%_))) + (let ((_%hd119444119461%_ + (##car _%e119443119458%_)) + (_%tl119445119463%_ + (##cdr _%e119443119458%_))) + (if (gx#stx-pair? _%tl119445119463%_) + (let ((_%e119446119466%_ (gx#syntax-e - _%tl119171119189%_))) - (let ((_%hd119173119195%_ - (##car _%e119172119192%_)) - (_%tl119174119197%_ - (##cdr _%e119172119192%_))) - (let ((_%path119200%_ - _%hd119173119195%_)) + _%tl119445119463%_))) + (let ((_%hd119447119469%_ + (##car _%e119446119466%_)) + (_%tl119448119471%_ + (##cdr _%e119446119466%_))) + (let ((_%path119474%_ + _%hd119447119469%_)) (if (gx#stx-null? - _%tl119174119197%_) + _%tl119448119471%_) (if (gx#stx-string? - _%path119200%_) - (let* ((_%rpath119202%_ + _%path119474%_) + (let* ((_%rpath119476%_ (gx#core-resolve-path__% ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%path119200%_ - (gx#stx-source _%hd119163%_))) - (_%block119204%_ + _%path119474%_ + (gx#stx-source _%hd119437%_))) + (_%block119478%_ (gx#core-expand-include%__% - _%hd119163%_ - _%rpath119202%_)) - (_%rbody119207%_ + _%hd119437%_ + _%rpath119476%_)) + (_%rbody119481%_ (__call-with-parameters (lambda () (gx#core-expand-block__% - _%block119204%_ - _%expand-special119051%_ + _%block119478%_ + _%expand-special119325%_ '#f - _%expand-e119053%_)) + _%expand-e119327%_)) gx#current-expander-path - (cons _%rpath119202%_ (gx#current-expander-path))))) - (_%K119059%_ - _%rest119164%_ - (__foldr1 cons _%r119165%_ _%rbody119207%_))) - (_%E119168119180%_)) + (cons _%rpath119476%_ (gx#current-expander-path))))) + (_%K119333%_ + _%rest119438%_ + (__foldr1 cons _%r119439%_ _%rbody119481%_))) + (_%E119442119454%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E119168119180%_))))) - (_%E119168119180%_)))) - (_%E119168119180%_))))) - (_%E119167119210%_)))) - (_%expand-expression119058%_ - (lambda (_%hd119159%_ _%rest119160%_ _%r119161%_) - (_%K119059%_ - _%rest119160%_ - (cons (_%expand-e119053%_ _%hd119159%_) _%r119161%_)))) - (_%K119059%_ - (lambda (_%rest119089%_ _%r119090%_) - (let* ((_%e119091119098%_ _%rest119089%_) - (_%E119093119102%_ + (_%E119442119454%_))))) + (_%E119442119454%_)))) + (_%E119442119454%_))))) + (_%E119441119484%_)))) + (_%expand-expression119332%_ + (lambda (_%hd119433%_ _%rest119434%_ _%r119435%_) + (_%K119333%_ + _%rest119434%_ + (cons (_%expand-e119327%_ _%hd119433%_) _%r119435%_)))) + (_%K119333%_ + (lambda (_%rest119363%_ _%r119364%_) + (let* ((_%e119365119372%_ _%rest119363%_) + (_%E119367119376%_ (lambda () - (if _%begin-form119052%_ + (if _%begin-form119326%_ (gx#core-quote-syntax__1 (gx#core-cons - _%begin-form119052%_ - (reverse _%r119090%_)) - (gx#stx-source _%stx119050%_)) - _%r119090%_))) - (_%E119092119155%_ + _%begin-form119326%_ + (reverse _%r119364%_)) + (gx#stx-source _%stx119324%_)) + _%r119364%_))) + (_%E119366119429%_ (lambda () - (if (gx#stx-pair? _%e119091119098%_) - (let ((_%e119094119106%_ - (gx#syntax-e _%e119091119098%_))) - (let ((_%hd119095119109%_ - (##car _%e119094119106%_)) - (_%tl119096119111%_ - (##cdr _%e119094119106%_))) - (let* ((_%hd119114%_ _%hd119095119109%_) - (_%rest119116%_ - _%tl119096119111%_) - (_%hd119118%_ + (if (gx#stx-pair? _%e119365119372%_) + (let ((_%e119368119380%_ + (gx#syntax-e _%e119365119372%_))) + (let ((_%hd119369119383%_ + (##car _%e119368119380%_)) + (_%tl119370119385%_ + (##cdr _%e119368119380%_))) + (let* ((_%hd119388%_ _%hd119369119383%_) + (_%rest119390%_ + _%tl119370119385%_) + (_%hd119392%_ (gx#core-expand-head - _%hd119114%_)) - (_%e119119119126%_ _%hd119118%_) - (_%E119121119130%_ + _%hd119388%_)) + (_%e119393119400%_ _%hd119392%_) + (_%E119395119404%_ (lambda () - (_%expand-expression119058%_ - _%hd119118%_ - _%rest119116%_ - _%r119090%_))) - (_%E119120119151%_ + (_%expand-expression119332%_ + _%hd119392%_ + _%rest119390%_ + _%r119364%_))) + (_%E119394119425%_ (lambda () (if (gx#stx-pair? - _%e119119119126%_) - (let ((_%e119122119134%_ + _%e119393119400%_) + (let ((_%e119396119408%_ (gx#syntax-e - _%e119119119126%_))) - (let ((_%hd119123119137%_ - (##car _%e119122119134%_)) - (_%tl119124119139%_ - (##cdr _%e119122119134%_))) - (let* ((_%form119142%_ - _%hd119123119137%_) - (_%body119144%_ - _%tl119124119139%_) - (_%bind119146%_ + _%e119393119400%_))) + (let ((_%hd119397119411%_ + (##car _%e119396119408%_)) + (_%tl119398119413%_ + (##cdr _%e119396119408%_))) + (let* ((_%form119416%_ + _%hd119397119411%_) + (_%body119418%_ + _%tl119398119413%_) + (_%bind119420%_ (if (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%form119142%_) - (gx#resolve-identifier__0 _%form119142%_) + _%form119416%_) + (gx#resolve-identifier__0 _%form119416%_) '#f))) - (if (gx#special-form-binding? _%bind119146%_) - (let ((_%$e119148%_ + (if (gx#special-form-binding? _%bind119420%_) + (let ((_%$e119422%_ (##unchecked-structure-ref - _%bind119146%_ + _%bind119420%_ '1 '#f '#f))) - (if (eq? '%#begin _%$e119148%_) - (_%expand-splice119055%_ - _%hd119118%_ - _%body119144%_ - _%rest119116%_ - _%r119090%_) - (if (eq? '%#cond-expand _%$e119148%_) - (_%expand-cond-expand119056%_ - _%hd119118%_ - _%rest119116%_ - _%r119090%_) - (if (eq? '%#include _%$e119148%_) - (_%expand-include119057%_ - _%hd119118%_ - _%rest119116%_ - _%r119090%_) - (_%expand-special119051%_ - _%hd119118%_ - _%K119059%_ - _%rest119116%_ - _%r119090%_))))) - (_%expand-expression119058%_ - _%hd119118%_ - _%rest119116%_ - _%r119090%_))))) + (if (eq? '%#begin _%$e119422%_) + (_%expand-splice119329%_ + _%hd119392%_ + _%body119418%_ + _%rest119390%_ + _%r119364%_) + (if (eq? '%#cond-expand _%$e119422%_) + (_%expand-cond-expand119330%_ + _%hd119392%_ + _%rest119390%_ + _%r119364%_) + (if (eq? '%#include _%$e119422%_) + (_%expand-include119331%_ + _%hd119392%_ + _%rest119390%_ + _%r119364%_) + (_%expand-special119325%_ + _%hd119392%_ + _%K119333%_ + _%rest119390%_ + _%r119364%_))))) + (_%expand-expression119332%_ + _%hd119392%_ + _%rest119390%_ + _%r119364%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E119121119130%_))))) - (_%E119120119151%_)))) - (_%E119093119102%_))))) - (_%E119092119155%_))))) - (let* ((_%e119060119067%_ _%stx119050%_) - (_%E119062119071%_ + (_%E119395119404%_))))) + (_%E119394119425%_)))) + (_%E119367119376%_))))) + (_%E119366119429%_))))) + (let* ((_%e119334119341%_ _%stx119324%_) + (_%E119336119345%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e119060119067%_))) - (_%E119061119085%_ + _%e119334119341%_))) + (_%E119335119359%_ (lambda () - (if (gx#stx-pair? _%e119060119067%_) - (let ((_%e119063119075%_ - (gx#syntax-e _%e119060119067%_))) - (let ((_%hd119064119078%_ (##car _%e119063119075%_)) - (_%tl119065119080%_ (##cdr _%e119063119075%_))) - (let ((_%body119083%_ _%tl119065119080%_)) - (if (gx#stx-list? _%body119083%_) - (_%K119059%_ _%body119083%_ '()) - (_%E119062119071%_))))) - (_%E119062119071%_))))) - (_%E119061119085%_))))) + (if (gx#stx-pair? _%e119334119341%_) + (let ((_%e119337119349%_ + (gx#syntax-e _%e119334119341%_))) + (let ((_%hd119338119352%_ (##car _%e119337119349%_)) + (_%tl119339119354%_ (##cdr _%e119337119349%_))) + (let ((_%body119357%_ _%tl119339119354%_)) + (if (gx#stx-list? _%body119357%_) + (_%K119333%_ _%body119357%_ '()) + (_%E119336119345%_))))) + (_%E119336119345%_))))) + (_%E119335119359%_))))) (define gx#core-expand-block__0 - (lambda (_%stx119226%_ _%expand-special119227%_) - (let* ((_%begin-form119229%_ '%#begin) - (_%expand-e119231%_ gx#core-expand-expression)) + (lambda (_%stx119500%_ _%expand-special119501%_) + (let* ((_%begin-form119503%_ '%#begin) + (_%expand-e119505%_ gx#core-expand-expression)) (gx#core-expand-block__% - _%stx119226%_ - _%expand-special119227%_ - _%begin-form119229%_ - _%expand-e119231%_)))) + _%stx119500%_ + _%expand-special119501%_ + _%begin-form119503%_ + _%expand-e119505%_)))) (define gx#core-expand-block__1 - (lambda (_%stx119233%_ _%expand-special119234%_ _%begin-form119235%_) - (let ((_%expand-e119237%_ gx#core-expand-expression)) + (lambda (_%stx119507%_ _%expand-special119508%_ _%begin-form119509%_) + (let ((_%expand-e119511%_ gx#core-expand-expression)) (gx#core-expand-block__% - _%stx119233%_ - _%expand-special119234%_ - _%begin-form119235%_ - _%expand-e119237%_)))) + _%stx119507%_ + _%expand-special119508%_ + _%begin-form119509%_ + _%expand-e119511%_)))) (define gx#core-expand-block - (lambda _g119937_ - (let ((_g119936_ (##length _g119937_))) - (cond ((##fx= _g119936_ 2) (apply gx#core-expand-block__0 _g119937_)) - ((##fx= _g119936_ 3) (apply gx#core-expand-block__1 _g119937_)) - ((##fx= _g119936_ 4) (apply gx#core-expand-block__% _g119937_)) + (lambda _g120211_ + (let ((_g120210_ (##length _g120211_))) + (cond ((##fx= _g120210_ 2) (apply gx#core-expand-block__0 _g120211_)) + ((##fx= _g120210_ 3) (apply gx#core-expand-block__1 _g120211_)) + ((##fx= _g120210_ 4) (apply gx#core-expand-block__% _g120211_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-block - _g119937_)))))) + _g120211_)))))) (define gx#core-expand-block* - (lambda (_%stx118998%_ _%expand-special118999%_) - (let* ((_%g119000119011%_ + (lambda (_%stx119272%_ _%expand-special119273%_) + (let* ((_%g119274119285%_ (gx#core-expand-block__1 - _%stx118998%_ - _%expand-special118999%_ + _%stx119272%_ + _%expand-special119273%_ '#f)) - (_%E119004119015%_ + (_%E119278119289%_ (lambda () (error '"No clause matching" - _%g119000119011%_ + _%g119274119285%_ '([]) '([expr]) '(body)) '#!void))) - (let ((_%K119009119046%_ + (let ((_%K119283119320%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty block" - _%stx118998%_))) - (_%K119006119032%_ (lambda (_%expr119030%_) _%expr119030%_)) - (_%K119005119021%_ - (lambda (_%body119019%_) + _%stx119272%_))) + (_%K119280119306%_ (lambda (_%expr119304%_) _%expr119304%_)) + (_%K119279119295%_ + (lambda (_%body119293%_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin (reverse _%body119019%_)) - (gx#stx-source _%stx118998%_))))) - (let ((_%try-match119002119042%_ + (gx#core-cons '%#begin (reverse _%body119293%_)) + (gx#stx-source _%stx119272%_))))) + (let ((_%try-match119276119316%_ (lambda () - (if (##pair? _%g119000119011%_) - (let ((_%tl119008119037%_ (##cdr _%g119000119011%_)) - (_%hd119007119035%_ (##car _%g119000119011%_))) - (if (##null? _%tl119008119037%_) - (let ((_%expr119040%_ _%hd119007119035%_)) - (_%K119006119032%_ _%expr119040%_)) - (let ((_%body119024%_ _%g119000119011%_)) - (_%K119005119021%_ _%body119024%_)))) - (let ((_%body119024%_ _%g119000119011%_)) - (_%K119005119021%_ _%body119024%_)))))) - (if (##null? _%g119000119011%_) - (_%K119009119046%_) - (_%try-match119002119042%_))))))) + (if (##pair? _%g119274119285%_) + (let ((_%tl119282119311%_ (##cdr _%g119274119285%_)) + (_%hd119281119309%_ (##car _%g119274119285%_))) + (if (##null? _%tl119282119311%_) + (let ((_%expr119314%_ _%hd119281119309%_)) + (_%K119280119306%_ _%expr119314%_)) + (let ((_%body119298%_ _%g119274119285%_)) + (_%K119279119295%_ _%body119298%_)))) + (let ((_%body119298%_ _%g119274119285%_)) + (_%K119279119295%_ _%body119298%_)))))) + (if (##null? _%g119274119285%_) + (_%K119283119320%_) + (_%try-match119276119316%_))))))) (define gx#core-expand-cond-expand% - (lambda (_%stx118823%_) - (letrec ((_%satisfied?118825%_ - (lambda (_%condition118926%_) - (let* ((_%e118927118942%_ _%condition118926%_) - (_%E118937118946%_ + (lambda (_%stx119097%_) + (letrec ((_%satisfied?119099%_ + (lambda (_%condition119200%_) + (let* ((_%e119201119216%_ _%condition119200%_) + (_%E119211119220%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e118927118942%_))) - (_%E118930118965%_ + _%e119201119216%_))) + (_%E119204119239%_ (lambda () - (if (gx#stx-pair? _%e118927118942%_) - (let ((_%e118938118950%_ - (gx#syntax-e _%e118927118942%_))) - (let ((_%hd118939118953%_ - (##car _%e118938118950%_)) - (_%tl118940118955%_ - (##cdr _%e118938118950%_))) - (let* ((_%combinator118958%_ - _%hd118939118953%_) - (_%body118960%_ - _%tl118940118955%_)) - (if (gx#stx-list? _%body118960%_) - (let ((_%$e118962%_ + (if (gx#stx-pair? _%e119201119216%_) + (let ((_%e119212119224%_ + (gx#syntax-e _%e119201119216%_))) + (let ((_%hd119213119227%_ + (##car _%e119212119224%_)) + (_%tl119214119229%_ + (##cdr _%e119212119224%_))) + (let* ((_%combinator119232%_ + _%hd119213119227%_) + (_%body119234%_ + _%tl119214119229%_)) + (if (gx#stx-list? _%body119234%_) + (let ((_%$e119236%_ (gx#stx-e - _%combinator118958%_))) - (if (eq? 'not _%$e118962%_) + _%combinator119232%_))) + (if (eq? 'not _%$e119236%_) (not (gx#stx-ormap - _%satisfied?118825%_ - _%body118960%_)) - (if (eq? 'and _%$e118962%_) + _%satisfied?119099%_ + _%body119234%_)) + (if (eq? 'and _%$e119236%_) (gx#stx-andmap - _%satisfied?118825%_ - _%body118960%_) + _%satisfied?119099%_ + _%body119234%_) (if (eq? 'or - _%$e118962%_) + _%$e119236%_) (gx#stx-ormap - _%satisfied?118825%_ - _%body118960%_) + _%satisfied?119099%_ + _%body119234%_) (if (eq? 'defined ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e118962%_) - (gx#stx-andmap gx#core-resolve-identifier _%body118960%_) + _%$e119236%_) + (gx#stx-andmap gx#core-resolve-identifier _%body119234%_) (gx#raise-syntax-error '#f '"Bad syntax; bad cond-expannd combinator" - _%stx118823%_ - _%combinator118958%_)))))) + _%stx119097%_ + _%combinator119232%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E118937118946%_))))) - (_%E118937118946%_)))) - (_%E118929118988%_ + (_%E119211119220%_))))) + (_%E119211119220%_)))) + (_%E119203119262%_ (lambda () - (if (gx#stx-pair? _%e118927118942%_) - (let ((_%e118931118969%_ - (gx#syntax-e _%e118927118942%_))) - (let ((_%hd118932118972%_ - (##car _%e118931118969%_)) - (_%tl118933118974%_ - (##cdr _%e118931118969%_))) + (if (gx#stx-pair? _%e119201119216%_) + (let ((_%e119205119243%_ + (gx#syntax-e _%e119201119216%_))) + (let ((_%hd119206119246%_ + (##car _%e119205119243%_)) + (_%tl119207119248%_ + (##cdr _%e119205119243%_))) (if (and (gx#identifier? - _%hd118932118972%_) + _%hd119206119246%_) (gx#core-identifier=? - _%hd118932118972%_ + _%hd119206119246%_ 'unquote)) - (if (gx#stx-pair? _%tl118933118974%_) - (let ((_%e118934118977%_ + (if (gx#stx-pair? _%tl119207119248%_) + (let ((_%e119208119251%_ (gx#syntax-e - _%tl118933118974%_))) - (let ((_%hd118935118980%_ - (##car _%e118934118977%_)) - (_%tl118936118982%_ - (##cdr _%e118934118977%_))) - (let ((_%expr118985%_ - _%hd118935118980%_)) + _%tl119207119248%_))) + (let ((_%hd119209119254%_ + (##car _%e119208119251%_)) + (_%tl119210119256%_ + (##cdr _%e119208119251%_))) + (let ((_%expr119259%_ + _%hd119209119254%_)) (if (gx#stx-null? - _%tl118936118982%_) + _%tl119210119256%_) (__call-with-parameters (lambda () (gx#eval-syntax__0 - _%expr118985%_)) + _%expr119259%_)) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)) - (_%E118930118965%_))))) - (_%E118930118965%_)) - (_%E118930118965%_)))) - (_%E118930118965%_)))) - (_%E118928118994%_ + (_%E119204119239%_))))) + (_%E119204119239%_)) + (_%E119204119239%_)))) + (_%E119204119239%_)))) + (_%E119202119268%_ (lambda () - (let ((_%id118992%_ _%e118927118942%_)) - (if (gx#identifier? _%id118992%_) + (let ((_%id119266%_ _%e119201119216%_)) + (if (gx#identifier? _%id119266%_) (gx#core-bound-identifier?__% - _%id118992%_ + _%id119266%_ gx#feature-binding?) - (_%E118929118988%_)))))) - (_%E118928118994%_)))) - (_%loop118826%_ - (lambda (_%rest118856%_) - (let* ((_%e118857118865%_ _%rest118856%_) - (_%E118863118869%_ + (_%E119203119262%_)))))) + (_%E119202119268%_)))) + (_%loop119100%_ + (lambda (_%rest119130%_) + (let* ((_%e119131119139%_ _%rest119130%_) + (_%E119137119143%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e118857118865%_))) - (_%E118859118873%_ + _%e119131119139%_))) + (_%E119133119147%_ (lambda () - (if (gx#stx-null? _%e118857118865%_) + (if (gx#stx-null? _%e119131119139%_) '() - (_%E118863118869%_)))) - (_%E118858118922%_ + (_%E119137119143%_)))) + (_%E119132119196%_ (lambda () - (if (gx#stx-pair? _%e118857118865%_) - (let ((_%e118860118877%_ - (gx#syntax-e _%e118857118865%_))) - (let ((_%hd118861118880%_ - (##car _%e118860118877%_)) - (_%tl118862118882%_ - (##cdr _%e118860118877%_))) - (let* ((_%hd118885%_ _%hd118861118880%_) - (_%rest118887%_ - _%tl118862118882%_) - (_%e118888118895%_ _%hd118885%_) - (_%E118890118899%_ + (if (gx#stx-pair? _%e119131119139%_) + (let ((_%e119134119151%_ + (gx#syntax-e _%e119131119139%_))) + (let ((_%hd119135119154%_ + (##car _%e119134119151%_)) + (_%tl119136119156%_ + (##cdr _%e119134119151%_))) + (let* ((_%hd119159%_ _%hd119135119154%_) + (_%rest119161%_ + _%tl119136119156%_) + (_%e119162119169%_ _%hd119159%_) + (_%E119164119173%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e118888118895%_))) - (_%E118889118918%_ + _%e119162119169%_))) + (_%E119163119192%_ (lambda () (if (gx#stx-pair? - _%e118888118895%_) - (let ((_%e118891118903%_ + _%e119162119169%_) + (let ((_%e119165119177%_ (gx#syntax-e - _%e118888118895%_))) - (let ((_%hd118892118906%_ - (##car _%e118891118903%_)) - (_%tl118893118908%_ - (##cdr _%e118891118903%_))) - (let* ((_%condition118911%_ - _%hd118892118906%_) - (_%body118913%_ - _%tl118893118908%_)) + _%e119162119169%_))) + (let ((_%hd119166119180%_ + (##car _%e119165119177%_)) + (_%tl119167119182%_ + (##cdr _%e119165119177%_))) + (let* ((_%condition119185%_ + _%hd119166119180%_) + (_%body119187%_ + _%tl119167119182%_)) (if (gx#stx-eq? - _%condition118911%_ + _%condition119185%_ 'else) (if (gx#stx-null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rest118887%_) - _%body118913%_ + _%rest119161%_) + _%body119187%_ (gx#raise-syntax-error '#f '"Bad syntax; clauses after else" - _%stx118823%_ - _%hd118885%_)) - (if (_%satisfied?118825%_ _%condition118911%_) - _%body118913%_ - (_%loop118826%_ _%rest118887%_)))))) + _%stx119097%_ + _%hd119159%_)) + (if (_%satisfied?119099%_ _%condition119185%_) + _%body119187%_ + (_%loop119100%_ _%rest119161%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E118890118899%_))))) - (_%E118889118918%_)))) - (_%E118859118873%_))))) - (_%E118858118922%_))))) - (let* ((_%e118827118834%_ _%stx118823%_) - (_%E118829118838%_ + (_%E119164119173%_))))) + (_%E119163119192%_)))) + (_%E119133119147%_))))) + (_%E119132119196%_))))) + (let* ((_%e119101119108%_ _%stx119097%_) + (_%E119103119112%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e118827118834%_))) - (_%E118828118852%_ + _%e119101119108%_))) + (_%E119102119126%_ (lambda () - (if (gx#stx-pair? _%e118827118834%_) - (let ((_%e118830118842%_ - (gx#syntax-e _%e118827118834%_))) - (let ((_%hd118831118845%_ (##car _%e118830118842%_)) - (_%tl118832118847%_ (##cdr _%e118830118842%_))) - (let ((_%clauses118850%_ _%tl118832118847%_)) - (if (gx#stx-list? _%clauses118850%_) + (if (gx#stx-pair? _%e119101119108%_) + (let ((_%e119104119116%_ + (gx#syntax-e _%e119101119108%_))) + (let ((_%hd119105119119%_ (##car _%e119104119116%_)) + (_%tl119106119121%_ (##cdr _%e119104119116%_))) + (let ((_%clauses119124%_ _%tl119106119121%_)) + (if (gx#stx-list? _%clauses119124%_) (gx#core-cons 'begin - (_%loop118826%_ _%clauses118850%_)) - (_%E118829118838%_))))) - (_%E118829118838%_))))) - (_%E118828118852%_))))) + (_%loop119100%_ _%clauses119124%_)) + (_%E119103119112%_))))) + (_%E119103119112%_))))) + (_%E119102119126%_))))) (define gx#core-expand-include%__% - (lambda (_%stx118766%_ _%rpath118767%_) - (let* ((_%e118768118778%_ _%stx118766%_) - (_%E118770118782%_ + (lambda (_%stx119040%_ _%rpath119041%_) + (let* ((_%e119042119052%_ _%stx119040%_) + (_%E119044119056%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e118768118778%_))) - (_%E118769118809%_ + _%e119042119052%_))) + (_%E119043119083%_ (lambda () - (if (gx#stx-pair? _%e118768118778%_) - (let ((_%e118771118786%_ - (gx#syntax-e _%e118768118778%_))) - (let ((_%hd118772118789%_ (##car _%e118771118786%_)) - (_%tl118773118791%_ (##cdr _%e118771118786%_))) - (if (gx#stx-pair? _%tl118773118791%_) - (let ((_%e118774118794%_ - (gx#syntax-e _%tl118773118791%_))) - (let ((_%hd118775118797%_ - (##car _%e118774118794%_)) - (_%tl118776118799%_ - (##cdr _%e118774118794%_))) - (let ((_%path118802%_ _%hd118775118797%_)) - (if (gx#stx-null? _%tl118776118799%_) - (if (gx#stx-string? _%path118802%_) - (let ((_%rpath118807%_ - (let ((_%$e118804%_ - _%rpath118767%_)) - (if _%$e118804%_ - _%$e118804%_ + (if (gx#stx-pair? _%e119042119052%_) + (let ((_%e119045119060%_ + (gx#syntax-e _%e119042119052%_))) + (let ((_%hd119046119063%_ (##car _%e119045119060%_)) + (_%tl119047119065%_ (##cdr _%e119045119060%_))) + (if (gx#stx-pair? _%tl119047119065%_) + (let ((_%e119048119068%_ + (gx#syntax-e _%tl119047119065%_))) + (let ((_%hd119049119071%_ + (##car _%e119048119068%_)) + (_%tl119050119073%_ + (##cdr _%e119048119068%_))) + (let ((_%path119076%_ _%hd119049119071%_)) + (if (gx#stx-null? _%tl119050119073%_) + (if (gx#stx-string? _%path119076%_) + (let ((_%rpath119081%_ + (let ((_%$e119078%_ + _%rpath119041%_)) + (if _%$e119078%_ + _%$e119078%_ (gx#core-resolve-path__% - _%path118802%_ + _%path119076%_ (gx#stx-source - _%stx118766%_)))))) - (if (member _%rpath118807%_ + _%stx119040%_)))))) + (if (member _%rpath119081%_ (gx#current-expander-path)) (gx#raise-syntax-error '#f '"Bad syntax; cyclic expansion" - _%stx118766%_) + _%stx119040%_) (gx#syntax-local-rewrap (gx#stx-wrap-source (gx#core-cons 'begin (read-syntax-from-file - _%rpath118807%_)) + _%rpath119081%_)) (gx#stx-source - _%stx118766%_))))) - (_%E118770118782%_)) - (_%E118770118782%_))))) - (_%E118770118782%_)))) - (_%E118770118782%_))))) - (_%E118769118809%_)))) + _%stx119040%_))))) + (_%E119044119056%_)) + (_%E119044119056%_))))) + (_%E119044119056%_)))) + (_%E119044119056%_))))) + (_%E119043119083%_)))) (define gx#core-expand-include%__0 - (lambda (_%stx118816%_) - (let ((_%rpath118818%_ '#f)) - (gx#core-expand-include%__% _%stx118816%_ _%rpath118818%_)))) + (lambda (_%stx119090%_) + (let ((_%rpath119092%_ '#f)) + (gx#core-expand-include%__% _%stx119090%_ _%rpath119092%_)))) (define gx#core-expand-include% - (lambda _g119939_ - (let ((_g119938_ (##length _g119939_))) - (cond ((##fx= _g119938_ 1) - (apply gx#core-expand-include%__0 _g119939_)) - ((##fx= _g119938_ 2) - (apply gx#core-expand-include%__% _g119939_)) + (lambda _g120213_ + (let ((_g120212_ (##length _g120213_))) + (cond ((##fx= _g120212_ 1) + (apply gx#core-expand-include%__0 _g120213_)) + ((##fx= _g120212_ 2) + (apply gx#core-expand-include%__% _g120213_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-include% - _g119939_)))))) + _g120213_)))))) (define gx#core-apply-expander__% - (lambda (_%K118732%_ _%stx118733%_ _%method118734%_) - (if (procedure? _%K118732%_) - (let ((_%$e118737%_ (gx#stx-source _%stx118733%_))) - (if _%$e118737%_ - ((lambda (_%g118739118741%_) + (lambda (_%K119006%_ _%stx119007%_ _%method119008%_) + (if (procedure? _%K119006%_) + (let ((_%$e119011%_ (gx#stx-source _%stx119007%_))) + (if _%$e119011%_ + ((lambda (_%g119013119015%_) (gx#stx-wrap-source - (_%K118732%_ _%stx118733%_) - _%g118739118741%_)) - _%$e118737%_) - (_%K118732%_ _%stx118733%_))) - (let ((_%$e118745%_ - (bound-method-ref _%K118732%_ _%method118734%_))) - (if _%$e118745%_ - ((lambda (_%g118747118749%_) + (_%K119006%_ _%stx119007%_) + _%g119013119015%_)) + _%$e119011%_) + (_%K119006%_ _%stx119007%_))) + (let ((_%$e119019%_ + (bound-method-ref _%K119006%_ _%method119008%_))) + (if _%$e119019%_ + ((lambda (_%g119021119023%_) (gx#core-apply-expander__% - _%g118747118749%_ - _%stx118733%_ - _%method118734%_)) - _%$e118745%_) + _%g119021119023%_ + _%stx119007%_ + _%method119008%_)) + _%$e119019%_) (gx#raise-syntax-error '#f '"Bad syntax; no expander method" - _%stx118733%_ - _%method118734%_)))))) + _%stx119007%_ + _%method119008%_)))))) (define gx#core-apply-expander__0 - (lambda (_%K118756%_ _%stx118757%_) - (let ((_%method118759%_ 'apply-macro-expander)) + (lambda (_%K119030%_ _%stx119031%_) + (let ((_%method119033%_ 'apply-macro-expander)) (gx#core-apply-expander__% - _%K118756%_ - _%stx118757%_ - _%method118759%_)))) + _%K119030%_ + _%stx119031%_ + _%method119033%_)))) (define gx#core-apply-expander - (lambda _g119941_ - (let ((_g119940_ (##length _g119941_))) - (cond ((##fx= _g119940_ 2) - (apply gx#core-apply-expander__0 _g119941_)) - ((##fx= _g119940_ 3) - (apply gx#core-apply-expander__% _g119941_)) + (lambda _g120215_ + (let ((_g120214_ (##length _g120215_))) + (cond ((##fx= _g120214_ 2) + (apply gx#core-apply-expander__0 _g120215_)) + ((##fx= _g120214_ 3) + (apply gx#core-apply-expander__% _g120215_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-expander - _g119941_)))))) + _g120215_)))))) (define gx#expander::apply-macro-expander - (lambda (_%self116774118715%_ _%stx118717%_) - (let* ((_%self118719%_ _%self116774118715%_) - (_%self118721%_ _%self118719%_)) + (lambda (_%self117048118989%_ _%stx118991%_) + (let* ((_%self118993%_ _%self117048118989%_) + (_%self118995%_ _%self118993%_)) (gx#raise-syntax-error '#f '"Bad syntax; bottom method for apply-macro-expander" - _%stx118717%_)))) + _%stx118991%_)))) (__bind-method!__% gx#expander::t 'apply-macro-expander gx#expander::apply-macro-expander '#f) (define gx#macro-expander::apply-macro-expander - (lambda (_%self116775118555%_ _%stx118557%_) - (let* ((_%self118559%_ _%self116775118555%_) - (_%self118561%_ _%self118559%_) - (_%self118570118576%_ _%self118561%_) - (_%E118572118580%_ + (lambda (_%self117049118829%_ _%stx118831%_) + (let* ((_%self118833%_ _%self117049118829%_) + (_%self118835%_ _%self118833%_) + (_%self118844118850%_ _%self118835%_) + (_%E118846118854%_ (lambda () (error '"No clause matching" - _%self118570118576%_ + _%self118844118850%_ '((macro-expander K))) '#!void)) - (_%K118573118585%_ - (lambda (_%K118583%_) - (gx#core-apply-expander__0 _%K118583%_ _%stx118557%_))) - (_%e118574118588%_ - (##unchecked-structure-ref _%self118570118576%_ '1 '#f '#f)) - (_%K118591%_ _%e118574118588%_)) - (_%K118573118585%_ _%K118591%_)))) + (_%K118847118859%_ + (lambda (_%K118857%_) + (gx#core-apply-expander__0 _%K118857%_ _%stx118831%_))) + (_%e118848118862%_ + (##unchecked-structure-ref _%self118844118850%_ '1 '#f '#f)) + (_%K118865%_ _%e118848118862%_)) + (_%K118847118859%_ _%K118865%_)))) (__bind-method!__% gx#macro-expander::t 'apply-macro-expander gx#macro-expander::apply-macro-expander '#f) (define gx#core-expander::apply-macro-expander - (lambda (_%self116776118395%_ _%stx118397%_) - (let* ((_%self118399%_ _%self116776118395%_) - (_%self118401%_ _%self118399%_)) - (if (gx#sealed-syntax? _%stx118397%_) - _%stx118397%_ - (let* ((_%self118410118416%_ _%self118401%_) - (_%E118412118420%_ + (lambda (_%self117050118669%_ _%stx118671%_) + (let* ((_%self118673%_ _%self117050118669%_) + (_%self118675%_ _%self118673%_)) + (if (gx#sealed-syntax? _%stx118671%_) + _%stx118671%_ + (let* ((_%self118684118690%_ _%self118675%_) + (_%E118686118694%_ (lambda () (error '"No clause matching" - _%self118410118416%_ + _%self118684118690%_ '((core-expander K))) '#!void)) - (_%K118413118425%_ - (lambda (_%K118423%_) - (gx#core-apply-expander__0 _%K118423%_ _%stx118397%_))) - (_%e118414118428%_ + (_%K118687118699%_ + (lambda (_%K118697%_) + (gx#core-apply-expander__0 _%K118697%_ _%stx118671%_))) + (_%e118688118702%_ (##unchecked-structure-ref - _%self118410118416%_ + _%self118684118690%_ '1 '#f '#f)) - (_%K118431%_ _%e118414118428%_)) - (_%K118413118425%_ _%K118431%_)))))) + (_%K118705%_ _%e118688118702%_)) + (_%K118687118699%_ _%K118705%_)))))) (__bind-method!__% gx#core-expander::t 'apply-macro-expander gx#core-expander::apply-macro-expander '#f) (define gx#top-special-form::apply-macro-expander__% - (lambda (_%self116777118244%_ _%stx118246%_ _%top?118247%_) - (let* ((_%self118249%_ _%self116777118244%_) - (_%self118251%_ _%self118249%_)) - (if (_%top?118247%_ (gx#current-expander-context)) + (lambda (_%self117051118518%_ _%stx118520%_ _%top?118521%_) + (let* ((_%self118523%_ _%self117051118518%_) + (_%self118525%_ _%self118523%_)) + (if (_%top?118521%_ (gx#current-expander-context)) (gx#core-expander::apply-macro-expander - _%self118251%_ - _%stx118246%_) + _%self118525%_ + _%stx118520%_) (gx#raise-syntax-error '#f '"Bad syntax; illegal context" - _%stx118246%_))))) + _%stx118520%_))))) (define gx#top-special-form::apply-macro-expander__0 - (lambda (_%self116777118264%_ _%stx118265%_) - (let ((_%top?118267%_ gx#top-context?)) + (lambda (_%self117051118538%_ _%stx118539%_) + (let ((_%top?118541%_ gx#top-context?)) (gx#top-special-form::apply-macro-expander__% - _%self116777118264%_ - _%stx118265%_ - _%top?118267%_)))) + _%self117051118538%_ + _%stx118539%_ + _%top?118541%_)))) (define gx#top-special-form::apply-macro-expander - (lambda _g119943_ - (let ((_g119942_ (##length _g119943_))) - (cond ((##fx= _g119942_ 2) + (lambda _g120217_ + (let ((_g120216_ (##length _g120217_))) + (cond ((##fx= _g120216_ 2) (apply gx#top-special-form::apply-macro-expander__0 - _g119943_)) - ((##fx= _g119942_ 3) + _g120217_)) + ((##fx= _g120216_ 3) (apply gx#top-special-form::apply-macro-expander__% - _g119943_)) + _g120217_)) (else (##raise-wrong-number-of-arguments-exception gx#top-special-form::apply-macro-expander - _g119943_)))))) + _g120217_)))))) (__bind-method!__% gx#top-special-form::t 'apply-macro-expander gx#top-special-form::apply-macro-expander '#f) (define gx#module-special-form::apply-macro-expander - (lambda (_%self116778118105%_ _%stx118107%_) - (let* ((_%self118109%_ _%self116778118105%_) - (_%self118111%_ _%self118109%_)) + (lambda (_%self117052118379%_ _%stx118381%_) + (let* ((_%self118383%_ _%self117052118379%_) + (_%self118385%_ _%self118383%_)) (gx#top-special-form::apply-macro-expander__% - _%self118111%_ - _%stx118107%_ + _%self118385%_ + _%stx118381%_ gx#module-context?)))) (__bind-method!__% gx#module-special-form::t @@ -2288,133 +2288,133 @@ gx#module-special-form::apply-macro-expander '#f) (define gx#rename-macro-expander::apply-macro-expander - (lambda (_%self116779117917%_ _%stx117919%_) - (let* ((_%self117921%_ _%self116779117917%_) - (_%self117923%_ _%self117921%_) - (_%self117932117938%_ _%self117923%_) - (_%E117934117942%_ + (lambda (_%self117053118191%_ _%stx118193%_) + (let* ((_%self118195%_ _%self117053118191%_) + (_%self118197%_ _%self118195%_) + (_%self118206118212%_ _%self118197%_) + (_%E118208118216%_ (lambda () (error '"No clause matching" - _%self117932117938%_ + _%self118206118212%_ '((rename-macro-expander id))) '#!void)) - (_%K117935117975%_ - (lambda (_%id117945%_) - (let* ((_%e117946117953%_ _%stx117919%_) - (_%E117948117957%_ + (_%K118209118249%_ + (lambda (_%id118219%_) + (let* ((_%e118220118227%_ _%stx118193%_) + (_%E118222118231%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e117946117953%_))) - (_%E117947117971%_ + _%e118220118227%_))) + (_%E118221118245%_ (lambda () - (if (gx#stx-pair? _%e117946117953%_) - (let ((_%e117949117961%_ - (gx#syntax-e _%e117946117953%_))) - (let ((_%hd117950117964%_ - (##car _%e117949117961%_)) - (_%tl117951117966%_ - (##cdr _%e117949117961%_))) - (let ((_%body117969%_ _%tl117951117966%_)) + (if (gx#stx-pair? _%e118220118227%_) + (let ((_%e118223118235%_ + (gx#syntax-e _%e118220118227%_))) + (let ((_%hd118224118238%_ + (##car _%e118223118235%_)) + (_%tl118225118240%_ + (##cdr _%e118223118235%_))) + (let ((_%body118243%_ _%tl118225118240%_)) (gx#core-cons - _%id117945%_ - _%body117969%_)))) - (_%E117948117957%_))))) - (_%E117947117971%_)))) - (_%e117936117978%_ - (##unchecked-structure-ref _%self117932117938%_ '1 '#f '#f)) - (_%id117981%_ _%e117936117978%_)) - (_%K117935117975%_ _%id117981%_)))) + _%id118219%_ + _%body118243%_)))) + (_%E118222118231%_))))) + (_%E118221118245%_)))) + (_%e118210118252%_ + (##unchecked-structure-ref _%self118206118212%_ '1 '#f '#f)) + (_%id118255%_ _%e118210118252%_)) + (_%K118209118249%_ _%id118255%_)))) (__bind-method!__% gx#rename-macro-expander::t 'apply-macro-expander gx#rename-macro-expander::apply-macro-expander '#f) (define gx#core-apply-user-expander__% - (lambda (_%self117743%_ _%stx117744%_ _%method117745%_) - (let* ((_%self117746117754%_ _%self117743%_) - (_%E117748117758%_ + (lambda (_%self118017%_ _%stx118018%_ _%method118019%_) + (let* ((_%self118020118028%_ _%self118017%_) + (_%E118022118032%_ (lambda () (error '"No clause matching" - _%self117746117754%_ + _%self118020118028%_ '((user-expander K ctx phi))) '#!void)) - (_%K117749117765%_ - (lambda (_%phi117761%_ _%ctx117762%_ _%K117763%_) + (_%K118023118039%_ + (lambda (_%phi118035%_ _%ctx118036%_ _%K118037%_) (gx#core-apply-user-macro - _%K117763%_ - _%stx117744%_ - _%ctx117762%_ - _%phi117761%_ - _%method117745%_)))) + _%K118037%_ + _%stx118018%_ + _%ctx118036%_ + _%phi118035%_ + _%method118019%_)))) (if (##structure-instance-of? - _%self117746117754%_ + _%self118020118028%_ 'gx#user-expander::t) - (let* ((_%e117750117768%_ + (let* ((_%e118024118042%_ (##unchecked-structure-ref - _%self117746117754%_ + _%self118020118028%_ '1 '#f '#f)) - (_%K117771%_ _%e117750117768%_) - (_%e117751117773%_ + (_%K118045%_ _%e118024118042%_) + (_%e118025118047%_ (##unchecked-structure-ref - _%self117746117754%_ + _%self118020118028%_ '2 '#f '#f)) - (_%ctx117776%_ _%e117751117773%_) - (_%e117752117778%_ + (_%ctx118050%_ _%e118025118047%_) + (_%e118026118052%_ (##unchecked-structure-ref - _%self117746117754%_ + _%self118020118028%_ '3 '#f '#f)) - (_%phi117781%_ _%e117752117778%_)) - (_%K117749117765%_ _%phi117781%_ _%ctx117776%_ _%K117771%_)) - (_%E117748117758%_))))) + (_%phi118055%_ _%e118026118052%_)) + (_%K118023118039%_ _%phi118055%_ _%ctx118050%_ _%K118045%_)) + (_%E118022118032%_))))) (define gx#core-apply-user-expander__0 - (lambda (_%self117786%_ _%stx117787%_) - (let ((_%method117789%_ 'apply-macro-expander)) + (lambda (_%self118060%_ _%stx118061%_) + (let ((_%method118063%_ 'apply-macro-expander)) (gx#core-apply-user-expander__% - _%self117786%_ - _%stx117787%_ - _%method117789%_)))) + _%self118060%_ + _%stx118061%_ + _%method118063%_)))) (define gx#core-apply-user-expander - (lambda _g119945_ - (let ((_g119944_ (##length _g119945_))) - (cond ((##fx= _g119944_ 2) - (apply gx#core-apply-user-expander__0 _g119945_)) - ((##fx= _g119944_ 3) - (apply gx#core-apply-user-expander__% _g119945_)) + (lambda _g120219_ + (let ((_g120218_ (##length _g120219_))) + (cond ((##fx= _g120218_ 2) + (apply gx#core-apply-user-expander__0 _g120219_)) + ((##fx= _g120218_ 3) + (apply gx#core-apply-user-expander__% _g120219_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-user-expander - _g119945_)))))) + _g120219_)))))) (define gx#core-apply-user-macro - (lambda (_%K117733%_ - _%stx117734%_ - _%ctx117735%_ - _%phi117736%_ - _%method117737%_) - (let ((_%mark117739%_ + (lambda (_%K118007%_ + _%stx118008%_ + _%ctx118009%_ + _%phi118010%_ + _%method118011%_) + (let ((_%mark118013%_ (##structure gx#expander-mark::t '#f - _%ctx117735%_ - _%phi117736%_ - _%stx117734%_))) + _%ctx118009%_ + _%phi118010%_ + _%stx118008%_))) (__call-with-parameters (lambda () (gx#stx-apply-mark (gx#core-apply-expander__% - _%K117733%_ - (gx#stx-apply-mark _%stx117734%_ _%mark117739%_) - _%method117737%_) - _%mark117739%_)) + _%K118007%_ + (gx#stx-apply-mark _%stx118008%_ _%mark118013%_) + _%method118011%_) + _%mark118013%_)) gx#current-expander-marks - (cons _%mark117739%_ (gx#current-expander-marks)))))) + (cons _%mark118013%_ (gx#current-expander-marks)))))) (define gx#user-expander::apply-macro-expander gx#core-apply-user-expander) (__bind-method!__% gx#user-expander::t @@ -2422,372 +2422,372 @@ gx#user-expander::apply-macro-expander '#f) (define gx#resolve-identifier__% - (lambda (_%stx117581%_ _%phi117582%_ _%ctx117583%_) - (let _%lp117585%_ ((_%bind117587%_ + (lambda (_%stx117855%_ _%phi117856%_ _%ctx117857%_) + (let _%lp117859%_ ((_%bind117861%_ (gx#core-resolve-identifier__% - _%stx117581%_ - _%phi117582%_ - _%ctx117583%_))) + _%stx117855%_ + _%phi117856%_ + _%ctx117857%_))) (if (##structure-direct-instance-of? - _%bind117587%_ + _%bind117861%_ 'gx#import-binding::t) - (_%lp117585%_ - (##unchecked-structure-ref _%bind117587%_ '4 '#f '#f)) + (_%lp117859%_ + (##unchecked-structure-ref _%bind117861%_ '4 '#f '#f)) (if (##structure-direct-instance-of? - _%bind117587%_ + _%bind117861%_ 'gx#alias-binding::t) - (_%lp117585%_ + (_%lp117859%_ (gx#core-resolve-identifier__% - (##unchecked-structure-ref _%bind117587%_ '4 '#f '#f) - _%phi117582%_ - _%ctx117583%_)) - _%bind117587%_))))) + (##unchecked-structure-ref _%bind117861%_ '4 '#f '#f) + _%phi117856%_ + _%ctx117857%_)) + _%bind117861%_))))) (define gx#resolve-identifier__0 - (lambda (_%stx117595%_) - (let* ((_%phi117597%_ (gx#current-expander-phi)) - (_%ctx117599%_ (gx#current-expander-context))) + (lambda (_%stx117869%_) + (let* ((_%phi117871%_ (gx#current-expander-phi)) + (_%ctx117873%_ (gx#current-expander-context))) (gx#resolve-identifier__% - _%stx117595%_ - _%phi117597%_ - _%ctx117599%_)))) + _%stx117869%_ + _%phi117871%_ + _%ctx117873%_)))) (define gx#resolve-identifier__1 - (lambda (_%stx117601%_ _%phi117602%_) - (let ((_%ctx117604%_ (gx#current-expander-context))) + (lambda (_%stx117875%_ _%phi117876%_) + (let ((_%ctx117878%_ (gx#current-expander-context))) (gx#resolve-identifier__% - _%stx117601%_ - _%phi117602%_ - _%ctx117604%_)))) + _%stx117875%_ + _%phi117876%_ + _%ctx117878%_)))) (define gx#resolve-identifier - (lambda _g119947_ - (let ((_g119946_ (##length _g119947_))) - (cond ((##fx= _g119946_ 1) - (apply gx#resolve-identifier__0 _g119947_)) - ((##fx= _g119946_ 2) - (apply gx#resolve-identifier__1 _g119947_)) - ((##fx= _g119946_ 3) - (apply gx#resolve-identifier__% _g119947_)) + (lambda _g120221_ + (let ((_g120220_ (##length _g120221_))) + (cond ((##fx= _g120220_ 1) + (apply gx#resolve-identifier__0 _g120221_)) + ((##fx= _g120220_ 2) + (apply gx#resolve-identifier__1 _g120221_)) + ((##fx= _g120220_ 3) + (apply gx#resolve-identifier__% _g120221_)) (else (##raise-wrong-number-of-arguments-exception gx#resolve-identifier - _g119947_)))))) + _g120221_)))))) (define gx#bind-identifier!__% - (lambda (_%stx117536%_ - _%val117537%_ - _%rebind?117538%_ - _%phi117539%_ - _%ctx117540%_) - (let ((_%rebind?117545%_ - (if (not _%rebind?117538%_) + (lambda (_%stx117810%_ + _%val117811%_ + _%rebind?117812%_ + _%phi117813%_ + _%ctx117814%_) + (let ((_%rebind?117819%_ + (if (not _%rebind?117812%_) gx#core-context-rebind? - (if (procedure? _%rebind?117538%_) - _%rebind?117538%_ + (if (procedure? _%rebind?117812%_) + _%rebind?117812%_ true)))) (gx#core-bind!__% - (gx#core-identifier-key _%stx117536%_) - _%val117537%_ - _%rebind?117545%_ - _%phi117539%_ - _%ctx117540%_)))) + (gx#core-identifier-key _%stx117810%_) + _%val117811%_ + _%rebind?117819%_ + _%phi117813%_ + _%ctx117814%_)))) (define gx#bind-identifier!__0 - (lambda (_%stx117550%_ _%val117551%_) - (let* ((_%rebind?117553%_ '#f) - (_%phi117555%_ (gx#current-expander-phi)) - (_%ctx117557%_ (gx#current-expander-context))) + (lambda (_%stx117824%_ _%val117825%_) + (let* ((_%rebind?117827%_ '#f) + (_%phi117829%_ (gx#current-expander-phi)) + (_%ctx117831%_ (gx#current-expander-context))) (gx#bind-identifier!__% - _%stx117550%_ - _%val117551%_ - _%rebind?117553%_ - _%phi117555%_ - _%ctx117557%_)))) + _%stx117824%_ + _%val117825%_ + _%rebind?117827%_ + _%phi117829%_ + _%ctx117831%_)))) (define gx#bind-identifier!__1 - (lambda (_%stx117559%_ _%val117560%_ _%rebind?117561%_) - (let* ((_%phi117563%_ (gx#current-expander-phi)) - (_%ctx117565%_ (gx#current-expander-context))) + (lambda (_%stx117833%_ _%val117834%_ _%rebind?117835%_) + (let* ((_%phi117837%_ (gx#current-expander-phi)) + (_%ctx117839%_ (gx#current-expander-context))) (gx#bind-identifier!__% - _%stx117559%_ - _%val117560%_ - _%rebind?117561%_ - _%phi117563%_ - _%ctx117565%_)))) + _%stx117833%_ + _%val117834%_ + _%rebind?117835%_ + _%phi117837%_ + _%ctx117839%_)))) (define gx#bind-identifier!__2 - (lambda (_%stx117567%_ _%val117568%_ _%rebind?117569%_ _%phi117570%_) - (let ((_%ctx117572%_ (gx#current-expander-context))) + (lambda (_%stx117841%_ _%val117842%_ _%rebind?117843%_ _%phi117844%_) + (let ((_%ctx117846%_ (gx#current-expander-context))) (gx#bind-identifier!__% - _%stx117567%_ - _%val117568%_ - _%rebind?117569%_ - _%phi117570%_ - _%ctx117572%_)))) + _%stx117841%_ + _%val117842%_ + _%rebind?117843%_ + _%phi117844%_ + _%ctx117846%_)))) (define gx#bind-identifier! - (lambda _g119949_ - (let ((_g119948_ (##length _g119949_))) - (cond ((##fx= _g119948_ 2) (apply gx#bind-identifier!__0 _g119949_)) - ((##fx= _g119948_ 3) (apply gx#bind-identifier!__1 _g119949_)) - ((##fx= _g119948_ 4) (apply gx#bind-identifier!__2 _g119949_)) - ((##fx= _g119948_ 5) (apply gx#bind-identifier!__% _g119949_)) + (lambda _g120223_ + (let ((_g120222_ (##length _g120223_))) + (cond ((##fx= _g120222_ 2) (apply gx#bind-identifier!__0 _g120223_)) + ((##fx= _g120222_ 3) (apply gx#bind-identifier!__1 _g120223_)) + ((##fx= _g120222_ 4) (apply gx#bind-identifier!__2 _g120223_)) + ((##fx= _g120222_ 5) (apply gx#bind-identifier!__% _g120223_)) (else (##raise-wrong-number-of-arguments-exception gx#bind-identifier! - _g119949_)))))) + _g120223_)))))) (define gx#core-resolve-identifier__% - (lambda (_%stx117502%_ _%phi117503%_ _%ctx117504%_) - (let _%lp117506%_ ((_%e117508%_ _%stx117502%_) - (_%marks117509%_ (gx#current-expander-marks))) - (if (symbol? _%e117508%_) + (lambda (_%stx117776%_ _%phi117777%_ _%ctx117778%_) + (let _%lp117780%_ ((_%e117782%_ _%stx117776%_) + (_%marks117783%_ (gx#current-expander-marks))) + (if (symbol? _%e117782%_) (gx#core-resolve-binding - _%e117508%_ - _%phi117503%_ - _%phi117503%_ - _%ctx117504%_ - (reverse _%marks117509%_)) - (if (gx#identifier-quote? _%e117508%_) + _%e117782%_ + _%phi117777%_ + _%phi117777%_ + _%ctx117778%_ + (reverse _%marks117783%_)) + (if (gx#identifier-quote? _%e117782%_) (gx#core-resolve-binding - (##unchecked-structure-ref _%e117508%_ '1 '#f '#f) - _%phi117503%_ + (##unchecked-structure-ref _%e117782%_ '1 '#f '#f) + _%phi117777%_ '0 - (##unchecked-structure-ref _%e117508%_ '3 '#f '#f) - (##unchecked-structure-ref _%e117508%_ '4 '#f '#f)) + (##unchecked-structure-ref _%e117782%_ '3 '#f '#f) + (##unchecked-structure-ref _%e117782%_ '4 '#f '#f)) (if (##structure-direct-instance-of? - _%e117508%_ + _%e117782%_ 'gx#identifier-wrap::t) (gx#core-resolve-binding - (##unchecked-structure-ref _%e117508%_ '1 '#f '#f) - _%phi117503%_ - _%phi117503%_ - _%ctx117504%_ + (##unchecked-structure-ref _%e117782%_ '1 '#f '#f) + _%phi117777%_ + _%phi117777%_ + _%ctx117778%_ (__foldl1 gx#apply-mark - (##unchecked-structure-ref _%e117508%_ '3 '#f '#f) - _%marks117509%_)) + (##unchecked-structure-ref _%e117782%_ '3 '#f '#f) + _%marks117783%_)) (if (##structure-direct-instance-of? - _%e117508%_ + _%e117782%_ 'gx#syntax-wrap::t) - (_%lp117506%_ - (##unchecked-structure-ref _%e117508%_ '1 '#f '#f) + (_%lp117780%_ + (##unchecked-structure-ref _%e117782%_ '1 '#f '#f) (gx#apply-mark - (##unchecked-structure-ref _%e117508%_ '3 '#f '#f) - _%marks117509%_)) + (##unchecked-structure-ref _%e117782%_ '3 '#f '#f) + _%marks117783%_)) (if (##structure-instance-of? - _%e117508%_ + _%e117782%_ 'gerbil#AST::t) - (_%lp117506%_ + (_%lp117780%_ (##unchecked-structure-ref - _%e117508%_ + _%e117782%_ '1 '#f '#f) - _%marks117509%_) + _%marks117783%_) (gx#raise-syntax-error '#f '"Bad identifier" - _%stx117502%_))))))))) + _%stx117776%_))))))))) (define gx#core-resolve-identifier__0 - (lambda (_%stx117520%_) - (let* ((_%phi117522%_ (gx#current-expander-phi)) - (_%ctx117524%_ (gx#current-expander-context))) + (lambda (_%stx117794%_) + (let* ((_%phi117796%_ (gx#current-expander-phi)) + (_%ctx117798%_ (gx#current-expander-context))) (gx#core-resolve-identifier__% - _%stx117520%_ - _%phi117522%_ - _%ctx117524%_)))) + _%stx117794%_ + _%phi117796%_ + _%ctx117798%_)))) (define gx#core-resolve-identifier__1 - (lambda (_%stx117526%_ _%phi117527%_) - (let ((_%ctx117529%_ (gx#current-expander-context))) + (lambda (_%stx117800%_ _%phi117801%_) + (let ((_%ctx117803%_ (gx#current-expander-context))) (gx#core-resolve-identifier__% - _%stx117526%_ - _%phi117527%_ - _%ctx117529%_)))) + _%stx117800%_ + _%phi117801%_ + _%ctx117803%_)))) (define gx#core-resolve-identifier - (lambda _g119951_ - (let ((_g119950_ (##length _g119951_))) - (cond ((##fx= _g119950_ 1) - (apply gx#core-resolve-identifier__0 _g119951_)) - ((##fx= _g119950_ 2) - (apply gx#core-resolve-identifier__1 _g119951_)) - ((##fx= _g119950_ 3) - (apply gx#core-resolve-identifier__% _g119951_)) + (lambda _g120225_ + (let ((_g120224_ (##length _g120225_))) + (cond ((##fx= _g120224_ 1) + (apply gx#core-resolve-identifier__0 _g120225_)) + ((##fx= _g120224_ 2) + (apply gx#core-resolve-identifier__1 _g120225_)) + ((##fx= _g120224_ 3) + (apply gx#core-resolve-identifier__% _g120225_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-identifier - _g119951_)))))) + _g120225_)))))) (define gx#core-resolve-binding - (lambda (_%id117412%_ - _%phi117413%_ - _%src-phi117414%_ - _%ctx117415%_ - _%marks117416%_) - (letrec ((_%resolve117418%_ - (lambda (_%ctx117486%_ _%src-phi117487%_ _%key117488%_) - (let _%lp117490%_ ((_%ctx117492%_ + (lambda (_%id117686%_ + _%phi117687%_ + _%src-phi117688%_ + _%ctx117689%_ + _%marks117690%_) + (letrec ((_%resolve117692%_ + (lambda (_%ctx117760%_ _%src-phi117761%_ _%key117762%_) + (let _%lp117764%_ ((_%ctx117766%_ (gx#core-context-shift - _%ctx117486%_ - _%phi117413%_)) - (_%dphi117493%_ - (fx- _%phi117413%_ _%src-phi117487%_))) - (let ((_%$e117495%_ + _%ctx117760%_ + _%phi117687%_)) + (_%dphi117767%_ + (fx- _%phi117687%_ _%src-phi117761%_))) + (let ((_%$e117769%_ (gx#core-context-resolve - _%ctx117492%_ - _%key117488%_))) - (if _%$e117495%_ - _%$e117495%_ - (if (fxzero? _%dphi117493%_) + _%ctx117766%_ + _%key117762%_))) + (if _%$e117769%_ + _%$e117769%_ + (if (fxzero? _%dphi117767%_) '#f - (if (fxpositive? _%dphi117493%_) - (_%lp117490%_ - (gx#core-context-shift _%ctx117492%_ '-1) - (##fx- _%dphi117493%_ '1)) - (_%lp117490%_ - (gx#core-context-shift _%ctx117492%_ '1) - (##fx+ _%dphi117493%_ '1)))))))))) - (let _%lp117420%_ ((_%ctx117422%_ _%ctx117415%_) - (_%src-phi117423%_ _%src-phi117414%_) - (_%rest117424%_ _%marks117416%_)) - (let* ((_%rest117425117433%_ _%rest117424%_) - (_%else117427117441%_ + (if (fxpositive? _%dphi117767%_) + (_%lp117764%_ + (gx#core-context-shift _%ctx117766%_ '-1) + (##fx- _%dphi117767%_ '1)) + (_%lp117764%_ + (gx#core-context-shift _%ctx117766%_ '1) + (##fx+ _%dphi117767%_ '1)))))))))) + (let _%lp117694%_ ((_%ctx117696%_ _%ctx117689%_) + (_%src-phi117697%_ _%src-phi117688%_) + (_%rest117698%_ _%marks117690%_)) + (let* ((_%rest117699117707%_ _%rest117698%_) + (_%else117701117715%_ (lambda () - (_%resolve117418%_ - _%ctx117422%_ - _%src-phi117423%_ - _%id117412%_))) - (_%K117429117474%_ - (lambda (_%rest117444%_ _%hd117445%_) - (let* ((_%hd117446117452%_ _%hd117445%_) - (_%E117448117456%_ + (_%resolve117692%_ + _%ctx117696%_ + _%src-phi117697%_ + _%id117686%_))) + (_%K117703117748%_ + (lambda (_%rest117718%_ _%hd117719%_) + (let* ((_%hd117720117726%_ _%hd117719%_) + (_%E117722117730%_ (lambda () (error '"No clause matching" - _%hd117446117452%_ + _%hd117720117726%_ '((expander-mark subst))) '#!void)) - (_%K117449117466%_ - (lambda (_%subst117459%_) - (let ((_%$e117463%_ - (let ((_%key117461%_ - (if _%subst117459%_ + (_%K117723117740%_ + (lambda (_%subst117733%_) + (let ((_%$e117737%_ + (let ((_%key117735%_ + (if _%subst117733%_ (hash-get - _%subst117459%_ - _%id117412%_) + _%subst117733%_ + _%id117686%_) '#f))) - (if _%key117461%_ - (_%resolve117418%_ - _%ctx117422%_ - _%src-phi117423%_ - _%key117461%_) + (if _%key117735%_ + (_%resolve117692%_ + _%ctx117696%_ + _%src-phi117697%_ + _%key117735%_) '#f)))) - (if _%$e117463%_ - _%$e117463%_ - (_%lp117420%_ + (if _%$e117737%_ + _%$e117737%_ + (_%lp117694%_ (##unchecked-structure-ref - _%hd117445%_ + _%hd117719%_ '2 '#f '#f) (##unchecked-structure-ref - _%hd117445%_ + _%hd117719%_ '3 '#f '#f) - _%rest117444%_)))))) + _%rest117718%_)))))) (if (##structure-instance-of? - _%hd117446117452%_ + _%hd117720117726%_ 'gx#expander-mark::t) - (let* ((_%e117450117469%_ + (let* ((_%e117724117743%_ (##unchecked-structure-ref - _%hd117446117452%_ + _%hd117720117726%_ '1 '#f '#f)) - (_%subst117472%_ _%e117450117469%_)) - (_%K117449117466%_ _%subst117472%_)) - (_%E117448117456%_)))))) - (if (##pair? _%rest117425117433%_) - (let ((_%hd117430117477%_ (##car _%rest117425117433%_)) - (_%tl117431117479%_ (##cdr _%rest117425117433%_))) - (let* ((_%hd117482%_ _%hd117430117477%_) - (_%rest117484%_ _%tl117431117479%_)) - (_%K117429117474%_ _%rest117484%_ _%hd117482%_))) - (_%else117427117441%_))))))) + (_%subst117746%_ _%e117724117743%_)) + (_%K117723117740%_ _%subst117746%_)) + (_%E117722117730%_)))))) + (if (##pair? _%rest117699117707%_) + (let ((_%hd117704117751%_ (##car _%rest117699117707%_)) + (_%tl117705117753%_ (##cdr _%rest117699117707%_))) + (let* ((_%hd117756%_ _%hd117704117751%_) + (_%rest117758%_ _%tl117705117753%_)) + (_%K117703117748%_ _%rest117758%_ _%hd117756%_))) + (_%else117701117715%_))))))) (define gx#core-bind!__% - (lambda (_%key117282%_ - _%val117283%_ - _%rebind?117284%_ - _%phi117285%_ - _%ctx117286%_) - (letrec ((_%update-binding117288%_ - (lambda (_%xval117361%_) - (if (or (_%rebind?117284%_ - _%ctx117286%_ - _%xval117361%_ - _%val117283%_) + (lambda (_%key117556%_ + _%val117557%_ + _%rebind?117558%_ + _%phi117559%_ + _%ctx117560%_) + (letrec ((_%update-binding117562%_ + (lambda (_%xval117635%_) + (if (or (_%rebind?117558%_ + _%ctx117560%_ + _%xval117635%_ + _%val117557%_) (and (##structure-direct-instance-of? - _%xval117361%_ + _%xval117635%_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _%xval117361%_ + _%xval117635%_ '6 '#f '#f) (and (##structure-instance-of? - _%val117283%_ + _%val117557%_ 'gx#binding::t) (not (##structure-direct-instance-of? - _%val117283%_ + _%val117557%_ 'gx#import-binding::t))))) (and (##structure-instance-of? - _%xval117361%_ + _%xval117635%_ 'gx#extern-binding::t) (##structure-instance-of? - _%val117283%_ + _%val117557%_ 'gx#runtime-binding::t) (eq? (##unchecked-structure-ref - _%val117283%_ + _%val117557%_ '1 '#f '#f) (##unchecked-structure-ref - _%xval117361%_ + _%xval117635%_ '1 '#f '#f)))) - _%val117283%_ + _%val117557%_ (if (and (##structure-direct-instance-of? - _%val117283%_ + _%val117557%_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _%val117283%_ + _%val117557%_ '6 '#f '#f) (and (##structure-instance-of? - _%xval117361%_ + _%xval117635%_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _%val117283%_ + _%val117557%_ '1 '#f '#f) (##unchecked-structure-ref - _%xval117361%_ + _%xval117635%_ '1 '#f '#f))))) - _%xval117361%_ + _%xval117635%_ (if (and (##structure-direct-instance-of? - _%val117283%_ + _%val117557%_ 'gx#import-binding::t) (##structure-instance-of? - _%xval117361%_ + _%xval117635%_ 'gx#binding::t)) (gx#raise-syntax-error '#f '"Bad binding; import conflict" - _%key117282%_ + _%key117556%_ (cons (##unchecked-structure-ref - _%val117283%_ + _%val117557%_ '1 '#f '#f) (cons (##structure-ref (##unchecked-structure-ref - _%val117283%_ + _%val117557%_ '5 '#f '#f) @@ -2796,175 +2796,175 @@ '#f) '())) (cons (##unchecked-structure-ref - _%xval117361%_ + _%xval117635%_ '1 '#f '#f) (cons (if (##structure-direct-instance-of? - _%xval117361%_ + _%xval117635%_ 'gx#import-binding::t) (##structure-ref (##unchecked-structure-ref - _%xval117361%_ + _%xval117635%_ '5 '#f '#f) '1 gx#expander-context::t '#f) - _%xval117361%_) + _%xval117635%_) '()))) (gx#raise-syntax-error '#f '"Bad binding; rebind conflict" - _%key117282%_ - _%val117283%_ - _%xval117361%_)))))) - (_%gensubst117289%_ - (lambda (_%subst117356%_ _%id117357%_) - (let ((_%eid117359%_ - (gensym (if (uninterned-symbol? _%id117357%_) + _%key117556%_ + _%val117557%_ + _%xval117635%_)))))) + (_%gensubst117563%_ + (lambda (_%subst117630%_ _%id117631%_) + (let ((_%eid117633%_ + (gensym (if (uninterned-symbol? _%id117631%_) '% - _%id117357%_)))) - (hash-put! _%subst117356%_ _%id117357%_ _%eid117359%_) - _%eid117359%_))) - (_%subst!117290%_ - (lambda (_%key117292%_) - (let* ((_%key117293117301%_ _%key117292%_) - (_%else117295117309%_ (lambda () _%key117292%_)) - (_%K117297117344%_ - (lambda (_%mark117312%_ _%id117313%_) - (let* ((_%mark117314117320%_ _%mark117312%_) - (_%E117316117324%_ + _%id117631%_)))) + (hash-put! _%subst117630%_ _%id117631%_ _%eid117633%_) + _%eid117633%_))) + (_%subst!117564%_ + (lambda (_%key117566%_) + (let* ((_%key117567117575%_ _%key117566%_) + (_%else117569117583%_ (lambda () _%key117566%_)) + (_%K117571117618%_ + (lambda (_%mark117586%_ _%id117587%_) + (let* ((_%mark117588117594%_ _%mark117586%_) + (_%E117590117598%_ (lambda () (error '"No clause matching" - _%mark117314117320%_ + _%mark117588117594%_ '((expander-mark subst))) '#!void)) - (_%K117317117336%_ - (lambda (_%subst117327%_) - (if (not _%subst117327%_) - (let ((_%subst117330%_ + (_%K117591117610%_ + (lambda (_%subst117601%_) + (if (not _%subst117601%_) + (let ((_%subst117604%_ (make-hash-table-eq))) (##unchecked-structure-set! - _%mark117312%_ - _%subst117330%_ + _%mark117586%_ + _%subst117604%_ '1 '#f '#f) - (_%gensubst117289%_ - _%subst117330%_ - _%id117313%_)) - (let ((_%$e117332%_ + (_%gensubst117563%_ + _%subst117604%_ + _%id117587%_)) + (let ((_%$e117606%_ (hash-get - _%subst117327%_ - _%id117313%_))) - (if _%$e117332%_ - _%$e117332%_ - (_%gensubst117289%_ - _%subst117327%_ - _%id117313%_))))))) + _%subst117601%_ + _%id117587%_))) + (if _%$e117606%_ + _%$e117606%_ + (_%gensubst117563%_ + _%subst117601%_ + _%id117587%_))))))) (if (##structure-instance-of? - _%mark117314117320%_ + _%mark117588117594%_ 'gx#expander-mark::t) - (let* ((_%e117318117339%_ + (let* ((_%e117592117613%_ (##unchecked-structure-ref - _%mark117314117320%_ + _%mark117588117594%_ '1 '#f '#f)) - (_%subst117342%_ _%e117318117339%_)) - (_%K117317117336%_ _%subst117342%_)) - (_%E117316117324%_)))))) - (if (##pair? _%key117293117301%_) - (let ((_%hd117298117347%_ - (##car _%key117293117301%_)) - (_%tl117299117349%_ - (##cdr _%key117293117301%_))) - (let* ((_%id117352%_ _%hd117298117347%_) - (_%mark117354%_ _%tl117299117349%_)) - (_%K117297117344%_ _%mark117354%_ _%id117352%_))) - (_%else117295117309%_)))))) + (_%subst117616%_ _%e117592117613%_)) + (_%K117591117610%_ _%subst117616%_)) + (_%E117590117598%_)))))) + (if (##pair? _%key117567117575%_) + (let ((_%hd117572117621%_ + (##car _%key117567117575%_)) + (_%tl117573117623%_ + (##cdr _%key117567117575%_))) + (let* ((_%id117626%_ _%hd117572117621%_) + (_%mark117628%_ _%tl117573117623%_)) + (_%K117571117618%_ _%mark117628%_ _%id117626%_))) + (_%else117569117583%_)))))) (gx#core-context-bind! - (gx#core-context-shift _%ctx117286%_ _%phi117285%_) - (_%subst!117290%_ _%key117282%_) - _%val117283%_ - _%update-binding117288%_)))) + (gx#core-context-shift _%ctx117560%_ _%phi117559%_) + (_%subst!117564%_ _%key117556%_) + _%val117557%_ + _%update-binding117562%_)))) (define gx#core-bind!__0 - (lambda (_%key117382%_ _%val117383%_) - (let* ((_%rebind?117385%_ false) - (_%phi117387%_ (gx#current-expander-phi)) - (_%ctx117389%_ (gx#current-expander-context))) + (lambda (_%key117656%_ _%val117657%_) + (let* ((_%rebind?117659%_ false) + (_%phi117661%_ (gx#current-expander-phi)) + (_%ctx117663%_ (gx#current-expander-context))) (gx#core-bind!__% - _%key117382%_ - _%val117383%_ - _%rebind?117385%_ - _%phi117387%_ - _%ctx117389%_)))) + _%key117656%_ + _%val117657%_ + _%rebind?117659%_ + _%phi117661%_ + _%ctx117663%_)))) (define gx#core-bind!__1 - (lambda (_%key117391%_ _%val117392%_ _%rebind?117393%_) - (let* ((_%phi117395%_ (gx#current-expander-phi)) - (_%ctx117397%_ (gx#current-expander-context))) + (lambda (_%key117665%_ _%val117666%_ _%rebind?117667%_) + (let* ((_%phi117669%_ (gx#current-expander-phi)) + (_%ctx117671%_ (gx#current-expander-context))) (gx#core-bind!__% - _%key117391%_ - _%val117392%_ - _%rebind?117393%_ - _%phi117395%_ - _%ctx117397%_)))) + _%key117665%_ + _%val117666%_ + _%rebind?117667%_ + _%phi117669%_ + _%ctx117671%_)))) (define gx#core-bind!__2 - (lambda (_%key117399%_ _%val117400%_ _%rebind?117401%_ _%phi117402%_) - (let ((_%ctx117404%_ (gx#current-expander-context))) + (lambda (_%key117673%_ _%val117674%_ _%rebind?117675%_ _%phi117676%_) + (let ((_%ctx117678%_ (gx#current-expander-context))) (gx#core-bind!__% - _%key117399%_ - _%val117400%_ - _%rebind?117401%_ - _%phi117402%_ - _%ctx117404%_)))) + _%key117673%_ + _%val117674%_ + _%rebind?117675%_ + _%phi117676%_ + _%ctx117678%_)))) (define gx#core-bind! - (lambda _g119953_ - (let ((_g119952_ (##length _g119953_))) - (cond ((##fx= _g119952_ 2) (apply gx#core-bind!__0 _g119953_)) - ((##fx= _g119952_ 3) (apply gx#core-bind!__1 _g119953_)) - ((##fx= _g119952_ 4) (apply gx#core-bind!__2 _g119953_)) - ((##fx= _g119952_ 5) (apply gx#core-bind!__% _g119953_)) + (lambda _g120227_ + (let ((_g120226_ (##length _g120227_))) + (cond ((##fx= _g120226_ 2) (apply gx#core-bind!__0 _g120227_)) + ((##fx= _g120226_ 3) (apply gx#core-bind!__1 _g120227_)) + ((##fx= _g120226_ 4) (apply gx#core-bind!__2 _g120227_)) + ((##fx= _g120226_ 5) (apply gx#core-bind!__% _g120227_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind! - _g119953_)))))) + _g120227_)))))) (define gx#core-identifier-key - (lambda (_%stx117213%_) - (if (symbol? _%stx117213%_) - (let* ((_%g117215117223%_ (gx#current-expander-marks)) - (_%else117217117231%_ (lambda () _%stx117213%_)) - (_%K117219117236%_ - (lambda (_%hd117234%_) (cons _%stx117213%_ _%hd117234%_)))) - (if (##pair? _%g117215117223%_) - (let* ((_%hd117220117239%_ (##car _%g117215117223%_)) - (_%hd117242%_ _%hd117220117239%_)) - (_%K117219117236%_ _%hd117242%_)) - (_%else117217117231%_))) - (if (gx#identifier? _%stx117213%_) - (let* ((_%id117245%_ (gx#syntax-local-unwrap _%stx117213%_)) - (_%eid117247%_ (gx#stx-e _%id117245%_)) - (_%marks117249%_ - (gx#stx-identifier-marks* _%id117245%_)) - (_%marks117251117259%_ _%marks117249%_) - (_%else117253117267%_ (lambda () _%eid117247%_)) - (_%K117255117272%_ - (lambda (_%hd117270%_) - (cons _%eid117247%_ _%hd117270%_)))) - (if (##pair? _%marks117251117259%_) - (let* ((_%hd117256117275%_ (##car _%marks117251117259%_)) - (_%hd117278%_ _%hd117256117275%_)) - (_%K117255117272%_ _%hd117278%_)) - (_%else117253117267%_))) - (gx#raise-syntax-error '#f '"Bad identifier" _%stx117213%_))))) + (lambda (_%stx117487%_) + (if (symbol? _%stx117487%_) + (let* ((_%g117489117497%_ (gx#current-expander-marks)) + (_%else117491117505%_ (lambda () _%stx117487%_)) + (_%K117493117510%_ + (lambda (_%hd117508%_) (cons _%stx117487%_ _%hd117508%_)))) + (if (##pair? _%g117489117497%_) + (let* ((_%hd117494117513%_ (##car _%g117489117497%_)) + (_%hd117516%_ _%hd117494117513%_)) + (_%K117493117510%_ _%hd117516%_)) + (_%else117491117505%_))) + (if (gx#identifier? _%stx117487%_) + (let* ((_%id117519%_ (gx#syntax-local-unwrap _%stx117487%_)) + (_%eid117521%_ (gx#stx-e _%id117519%_)) + (_%marks117523%_ + (gx#stx-identifier-marks* _%id117519%_)) + (_%marks117525117533%_ _%marks117523%_) + (_%else117527117541%_ (lambda () _%eid117521%_)) + (_%K117529117546%_ + (lambda (_%hd117544%_) + (cons _%eid117521%_ _%hd117544%_)))) + (if (##pair? _%marks117525117533%_) + (let* ((_%hd117530117549%_ (##car _%marks117525117533%_)) + (_%hd117552%_ _%hd117530117549%_)) + (_%K117529117546%_ _%hd117552%_)) + (_%else117527117541%_))) + (gx#raise-syntax-error '#f '"Bad identifier" _%stx117487%_))))) (define gx#&phi-context? gx#phi-context?) (define gx#core-context-shift - (lambda (_%ctx117152%_ _%phi117153%_) - (letrec ((_%make-phi117155%_ - (lambda (_%super117211%_) - (let ((__obj119925 + (lambda (_%ctx117426%_ _%phi117427%_) + (letrec ((_%make-phi117429%_ + (lambda (_%super117485%_) + (let ((__obj120199 (##structure gx#phi-context::t '#f @@ -2973,579 +2973,579 @@ '#f '#f))) (gx#phi-context:::init!__% - __obj119925 + __obj120199 (##gensym 'phi) - _%super117211%_) - __obj119925))) - (_%make-phi/up117156%_ - (lambda (_%ctx117206%_ _%super117207%_) - (let ((_%ctx+1117209%_ - (_%make-phi117155%_ _%super117207%_))) + _%super117485%_) + __obj120199))) + (_%make-phi/up117430%_ + (lambda (_%ctx117480%_ _%super117481%_) + (let ((_%ctx+1117483%_ + (_%make-phi117429%_ _%super117481%_))) (##unchecked-structure-set! - _%ctx117206%_ - _%ctx+1117209%_ + _%ctx117480%_ + _%ctx+1117483%_ '4 '#f '#f) (##unchecked-structure-set! - _%ctx+1117209%_ - _%ctx117206%_ + _%ctx+1117483%_ + _%ctx117480%_ '5 '#f '#f) - _%ctx+1117209%_))) - (_%make-phi/down117157%_ - (lambda (_%ctx117201%_ _%super117202%_) - (let ((_%ctx-1117204%_ - (_%make-phi117155%_ _%super117202%_))) + _%ctx+1117483%_))) + (_%make-phi/down117431%_ + (lambda (_%ctx117475%_ _%super117476%_) + (let ((_%ctx-1117478%_ + (_%make-phi117429%_ _%super117476%_))) (##unchecked-structure-set! - _%ctx-1117204%_ - _%ctx117201%_ + _%ctx-1117478%_ + _%ctx117475%_ '4 '#f '#f) (##unchecked-structure-set! - _%ctx117201%_ - _%ctx-1117204%_ + _%ctx117475%_ + _%ctx-1117478%_ '5 '#f '#f) - _%ctx-1117204%_))) - (_%shift117158%_ - (lambda (_%ctx117184%_ - _%delta117185%_ - _%make-delta-context117186%_ - _%phi117187%_ - _%K117188%_) - (let ((_%$e117190%_ + _%ctx-1117478%_))) + (_%shift117432%_ + (lambda (_%ctx117458%_ + _%delta117459%_ + _%make-delta-context117460%_ + _%phi117461%_ + _%K117462%_) + (let ((_%$e117464%_ (##unchecked-structure-ref - _%ctx117184%_ + _%ctx117458%_ '3 '#f '#f))) - (if _%$e117190%_ - ((lambda (_%super117193%_) - (let* ((_%super117195%_ - (_%K117188%_ - _%super117193%_ - _%delta117185%_)) - (_%ctx+d117197%_ - (_%make-delta-context117186%_ - _%ctx117184%_ - _%super117195%_))) - (_%K117188%_ - _%ctx+d117197%_ - (fx- _%phi117187%_ _%delta117185%_)))) - _%$e117190%_) - (error '"Bad context" _%ctx117184%_)))))) - (let _%K117160%_ ((_%ctx117162%_ _%ctx117152%_) - (_%phi117163%_ _%phi117153%_)) - (if (fxzero? _%phi117163%_) - _%ctx117162%_ - (if (##structure-instance-of? _%ctx117162%_ 'gx#phi-context::t) - (if (fxpositive? _%phi117163%_) - (let ((_%$e117167%_ + (if _%$e117464%_ + ((lambda (_%super117467%_) + (let* ((_%super117469%_ + (_%K117462%_ + _%super117467%_ + _%delta117459%_)) + (_%ctx+d117471%_ + (_%make-delta-context117460%_ + _%ctx117458%_ + _%super117469%_))) + (_%K117462%_ + _%ctx+d117471%_ + (fx- _%phi117461%_ _%delta117459%_)))) + _%$e117464%_) + (error '"Bad context" _%ctx117458%_)))))) + (let _%K117434%_ ((_%ctx117436%_ _%ctx117426%_) + (_%phi117437%_ _%phi117427%_)) + (if (fxzero? _%phi117437%_) + _%ctx117436%_ + (if (##structure-instance-of? _%ctx117436%_ 'gx#phi-context::t) + (if (fxpositive? _%phi117437%_) + (let ((_%$e117441%_ (##unchecked-structure-ref - _%ctx117162%_ + _%ctx117436%_ '4 '#f '#f))) - (if _%$e117167%_ - ((lambda (_%g117169117171%_) - (_%K117160%_ - _%g117169117171%_ - (##fx- _%phi117163%_ '1))) - _%$e117167%_) - (_%shift117158%_ - _%ctx117162%_ + (if _%$e117441%_ + ((lambda (_%g117443117445%_) + (_%K117434%_ + _%g117443117445%_ + (##fx- _%phi117437%_ '1))) + _%$e117441%_) + (_%shift117432%_ + _%ctx117436%_ '1 - _%make-phi/up117156%_ - _%phi117163%_ - _%K117160%_))) - (let ((_%$e117175%_ + _%make-phi/up117430%_ + _%phi117437%_ + _%K117434%_))) + (let ((_%$e117449%_ (##unchecked-structure-ref - _%ctx117162%_ + _%ctx117436%_ '5 '#f '#f))) - (if _%$e117175%_ - ((lambda (_%g117177117179%_) - (_%K117160%_ - _%g117177117179%_ - (##fx+ _%phi117163%_ '1))) - _%$e117175%_) - (_%shift117158%_ - _%ctx117162%_ + (if _%$e117449%_ + ((lambda (_%g117451117453%_) + (_%K117434%_ + _%g117451117453%_ + (##fx+ _%phi117437%_ '1))) + _%$e117449%_) + (_%shift117432%_ + _%ctx117436%_ '-1 - _%make-phi/down117157%_ - _%phi117163%_ - _%K117160%_)))) - _%ctx117162%_)))))) + _%make-phi/down117431%_ + _%phi117437%_ + _%K117434%_)))) + _%ctx117436%_)))))) (define gx#core-context-get - (lambda (_%ctx117149%_ _%key117150%_) + (lambda (_%ctx117423%_ _%key117424%_) (hash-get - (##unchecked-structure-ref _%ctx117149%_ '2 '#f '#f) - _%key117150%_))) + (##unchecked-structure-ref _%ctx117423%_ '2 '#f '#f) + _%key117424%_))) (define gx#core-context-put! - (lambda (_%ctx117145%_ _%key117146%_ _%val117147%_) + (lambda (_%ctx117419%_ _%key117420%_ _%val117421%_) (hash-put! - (##unchecked-structure-ref _%ctx117145%_ '2 '#f '#f) - _%key117146%_ - _%val117147%_))) + (##unchecked-structure-ref _%ctx117419%_ '2 '#f '#f) + _%key117420%_ + _%val117421%_))) (define gx#core-context-resolve - (lambda (_%ctx117131%_ _%key117132%_) - (let _%lp117134%_ ((_%ctx117136%_ _%ctx117131%_)) - (let ((_%$e117138%_ - (gx#core-context-get _%ctx117136%_ _%key117132%_))) - (if _%$e117138%_ - _%$e117138%_ - (let ((_%$e117141%_ + (lambda (_%ctx117405%_ _%key117406%_) + (let _%lp117408%_ ((_%ctx117410%_ _%ctx117405%_)) + (let ((_%$e117412%_ + (gx#core-context-get _%ctx117410%_ _%key117406%_))) + (if _%$e117412%_ + _%$e117412%_ + (let ((_%$e117415%_ (if (##structure-instance-of? - _%ctx117136%_ + _%ctx117410%_ 'gx#phi-context::t) - (##unchecked-structure-ref _%ctx117136%_ '3 '#f '#f) + (##unchecked-structure-ref _%ctx117410%_ '3 '#f '#f) '#f))) - (if _%$e117141%_ (_%lp117134%_ _%$e117141%_) '#f))))))) + (if _%$e117415%_ (_%lp117408%_ _%$e117415%_) '#f))))))) (define gx#core-context-bind! - (lambda (_%ctx117120%_ _%key117121%_ _%val117122%_ _%rebind117123%_) - (let ((_%$e117125%_ (gx#core-context-get _%ctx117120%_ _%key117121%_))) - (if _%$e117125%_ - ((lambda (_%xval117128%_) + (lambda (_%ctx117394%_ _%key117395%_ _%val117396%_ _%rebind117397%_) + (let ((_%$e117399%_ (gx#core-context-get _%ctx117394%_ _%key117395%_))) + (if _%$e117399%_ + ((lambda (_%xval117402%_) (gx#core-context-put! - _%ctx117120%_ - _%key117121%_ - (_%rebind117123%_ _%xval117128%_))) - _%$e117125%_) + _%ctx117394%_ + _%key117395%_ + (_%rebind117397%_ _%xval117402%_))) + _%$e117399%_) (gx#core-context-put! - _%ctx117120%_ - _%key117121%_ - _%val117122%_))))) + _%ctx117394%_ + _%key117395%_ + _%val117396%_))))) (define gx#core-context-top__% - (lambda (_%ctx117095%_ _%stop?117096%_) - (let _%lp117098%_ ((_%ctx117100%_ _%ctx117095%_)) - (if (_%stop?117096%_ _%ctx117100%_) - _%ctx117100%_ - (if (##structure-instance-of? _%ctx117100%_ 'gx#phi-context::t) - (_%lp117098%_ - (##unchecked-structure-ref _%ctx117100%_ '3 '#f '#f)) + (lambda (_%ctx117369%_ _%stop?117370%_) + (let _%lp117372%_ ((_%ctx117374%_ _%ctx117369%_)) + (if (_%stop?117370%_ _%ctx117374%_) + _%ctx117374%_ + (if (##structure-instance-of? _%ctx117374%_ 'gx#phi-context::t) + (_%lp117372%_ + (##unchecked-structure-ref _%ctx117374%_ '3 '#f '#f)) '#f))))) (define gx#core-context-top__0 (lambda () - (let* ((_%ctx117109%_ (gx#current-expander-context)) - (_%stop?117111%_ gx#top-context?)) - (gx#core-context-top__% _%ctx117109%_ _%stop?117111%_)))) + (let* ((_%ctx117383%_ (gx#current-expander-context)) + (_%stop?117385%_ gx#top-context?)) + (gx#core-context-top__% _%ctx117383%_ _%stop?117385%_)))) (define gx#core-context-top__1 - (lambda (_%ctx117113%_) - (let ((_%stop?117115%_ gx#top-context?)) - (gx#core-context-top__% _%ctx117113%_ _%stop?117115%_)))) + (lambda (_%ctx117387%_) + (let ((_%stop?117389%_ gx#top-context?)) + (gx#core-context-top__% _%ctx117387%_ _%stop?117389%_)))) (define gx#core-context-top - (lambda _g119955_ - (let ((_g119954_ (##length _g119955_))) - (cond ((##fx= _g119954_ 0) (apply gx#core-context-top__0 _g119955_)) - ((##fx= _g119954_ 1) (apply gx#core-context-top__1 _g119955_)) - ((##fx= _g119954_ 2) (apply gx#core-context-top__% _g119955_)) + (lambda _g120229_ + (let ((_g120228_ (##length _g120229_))) + (cond ((##fx= _g120228_ 0) (apply gx#core-context-top__0 _g120229_)) + ((##fx= _g120228_ 1) (apply gx#core-context-top__1 _g120229_)) + ((##fx= _g120228_ 2) (apply gx#core-context-top__% _g120229_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-top - _g119955_)))))) + _g120229_)))))) (define gx#core-context-root__% - (lambda (_%ctx117080%_) - (let _%lp117082%_ ((_%ctx117084%_ _%ctx117080%_)) - (if (##structure-instance-of? _%ctx117084%_ 'gx#phi-context::t) - (_%lp117082%_ - (##unchecked-structure-ref _%ctx117084%_ '3 '#f '#f)) - _%ctx117084%_)))) + (lambda (_%ctx117354%_) + (let _%lp117356%_ ((_%ctx117358%_ _%ctx117354%_)) + (if (##structure-instance-of? _%ctx117358%_ 'gx#phi-context::t) + (_%lp117356%_ + (##unchecked-structure-ref _%ctx117358%_ '3 '#f '#f)) + _%ctx117358%_)))) (define gx#core-context-root__0 (lambda () - (let ((_%ctx117090%_ (gx#current-expander-context))) - (gx#core-context-root__% _%ctx117090%_)))) + (let ((_%ctx117364%_ (gx#current-expander-context))) + (gx#core-context-root__% _%ctx117364%_)))) (define gx#core-context-root - (lambda _g119957_ - (let ((_g119956_ (##length _g119957_))) - (cond ((##fx= _g119956_ 0) (apply gx#core-context-root__0 _g119957_)) - ((##fx= _g119956_ 1) (apply gx#core-context-root__% _g119957_)) + (lambda _g120231_ + (let ((_g120230_ (##length _g120231_))) + (cond ((##fx= _g120230_ 0) (apply gx#core-context-root__0 _g120231_)) + ((##fx= _g120230_ 1) (apply gx#core-context-root__% _g120231_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-root - _g119957_)))))) + _g120231_)))))) (define gx#core-context-rebind?__% - (lambda (_%ctx117062%_ . _%ignore117063%_) - (let ((_%$e117065%_ (gx#current-expander-allow-rebind?))) - (if _%$e117065%_ - _%$e117065%_ - (if (##structure-instance-of? _%ctx117062%_ 'gx#top-context::t) + (lambda (_%ctx117336%_ . _%ignore117337%_) + (let ((_%$e117339%_ (gx#current-expander-allow-rebind?))) + (if _%$e117339%_ + _%$e117339%_ + (if (##structure-instance-of? _%ctx117336%_ 'gx#top-context::t) (if (##structure-instance-of? - _%ctx117062%_ + _%ctx117336%_ 'gx#module-context::t) '#f (not (##structure-instance-of? - _%ctx117062%_ + _%ctx117336%_ 'gx#prelude-context::t))) '#f))))) (define gx#core-context-rebind?__0 (lambda () - (let ((_%ctx117072%_ (gx#current-expander-context))) - (gx#core-context-rebind?__% _%ctx117072%_)))) + (let ((_%ctx117346%_ (gx#current-expander-context))) + (gx#core-context-rebind?__% _%ctx117346%_)))) (define gx#core-context-rebind? - (lambda _g119959_ - (let ((_g119958_ (##length _g119959_))) - (cond ((##fx= _g119958_ 0) - (apply gx#core-context-rebind?__0 _g119959_)) - ((##fx= _g119958_ 1) - (apply gx#core-context-rebind?__% _g119959_)) - ((##fx>= _g119958_ 1) - (apply gx#core-context-rebind?__% _g119959_)) + (lambda _g120233_ + (let ((_g120232_ (##length _g120233_))) + (cond ((##fx= _g120232_ 0) + (apply gx#core-context-rebind?__0 _g120233_)) + ((##fx= _g120232_ 1) + (apply gx#core-context-rebind?__% _g120233_)) + ((##fx>= _g120232_ 1) + (apply gx#core-context-rebind?__% _g120233_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-rebind? - _g119959_)))))) + _g120233_)))))) (define gx#core-context-namespace__% - (lambda (_%ctx117045%_) - (let ((_%$e117047%_ (gx#core-context-top__1 _%ctx117045%_))) - (if _%$e117047%_ - ((lambda (_%ctx117050%_) + (lambda (_%ctx117319%_) + (let ((_%$e117321%_ (gx#core-context-top__1 _%ctx117319%_))) + (if _%$e117321%_ + ((lambda (_%ctx117324%_) (if (##structure-instance-of? - _%ctx117050%_ + _%ctx117324%_ 'gx#module-context::t) - (##unchecked-structure-ref _%ctx117050%_ '6 '#f '#f) + (##unchecked-structure-ref _%ctx117324%_ '6 '#f '#f) '#f)) - _%$e117047%_) + _%$e117321%_) '#f)))) (define gx#core-context-namespace__0 (lambda () - (let ((_%ctx117057%_ (gx#current-expander-context))) - (gx#core-context-namespace__% _%ctx117057%_)))) + (let ((_%ctx117331%_ (gx#current-expander-context))) + (gx#core-context-namespace__% _%ctx117331%_)))) (define gx#core-context-namespace - (lambda _g119961_ - (let ((_g119960_ (##length _g119961_))) - (cond ((##fx= _g119960_ 0) - (apply gx#core-context-namespace__0 _g119961_)) - ((##fx= _g119960_ 1) - (apply gx#core-context-namespace__% _g119961_)) + (lambda _g120235_ + (let ((_g120234_ (##length _g120235_))) + (cond ((##fx= _g120234_ 0) + (apply gx#core-context-namespace__0 _g120235_)) + ((##fx= _g120234_ 1) + (apply gx#core-context-namespace__% _g120235_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-namespace - _g119961_)))))) + _g120235_)))))) (define gx#expander-binding?__% - (lambda (_%bind117031%_ _%is?117032%_) + (lambda (_%bind117305%_ _%is?117306%_) (if (##structure-direct-instance-of? - _%bind117031%_ + _%bind117305%_ 'gx#syntax-binding::t) - (_%is?117032%_ - (##unchecked-structure-ref _%bind117031%_ '4 '#f '#f)) + (_%is?117306%_ + (##unchecked-structure-ref _%bind117305%_ '4 '#f '#f)) '#f))) (define gx#expander-binding?__0 - (lambda (_%bind117037%_) - (let ((_%is?117039%_ gx#expander?)) - (gx#expander-binding?__% _%bind117037%_ _%is?117039%_)))) + (lambda (_%bind117311%_) + (let ((_%is?117313%_ gx#expander?)) + (gx#expander-binding?__% _%bind117311%_ _%is?117313%_)))) (define gx#expander-binding? - (lambda _g119963_ - (let ((_g119962_ (##length _g119963_))) - (cond ((##fx= _g119962_ 1) (apply gx#expander-binding?__0 _g119963_)) - ((##fx= _g119962_ 2) (apply gx#expander-binding?__% _g119963_)) + (lambda _g120237_ + (let ((_g120236_ (##length _g120237_))) + (cond ((##fx= _g120236_ 1) (apply gx#expander-binding?__0 _g120237_)) + ((##fx= _g120236_ 2) (apply gx#expander-binding?__% _g120237_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-binding? - _g119963_)))))) + _g120237_)))))) (define gx#core-expander-binding? - (lambda (_%bind117028%_) - (gx#expander-binding?__% _%bind117028%_ gx#core-expander?))) + (lambda (_%bind117302%_) + (gx#expander-binding?__% _%bind117302%_ gx#core-expander?))) (define gx#expression-form-binding? - (lambda (_%bind117026%_) - (gx#expander-binding?__% _%bind117026%_ gx#expression-form?))) + (lambda (_%bind117300%_) + (gx#expander-binding?__% _%bind117300%_ gx#expression-form?))) (define gx#direct-special-form-binding? - (lambda (_%bind117020%_) - (letrec ((_%direct-special-form?117022%_ - (lambda (_%obj117024%_) + (lambda (_%bind117294%_) + (letrec ((_%direct-special-form?117296%_ + (lambda (_%obj117298%_) (##structure-direct-instance-of? - _%obj117024%_ + _%obj117298%_ (##type-id gx#special-form::t))))) (gx#expander-binding?__% - _%bind117020%_ - _%direct-special-form?117022%_)))) + _%bind117294%_ + _%direct-special-form?117296%_)))) (define gx#special-form-binding? - (lambda (_%bind117018%_) - (gx#expander-binding?__% _%bind117018%_ gx#special-form?))) + (lambda (_%bind117292%_) + (gx#expander-binding?__% _%bind117292%_ gx#special-form?))) (define gx#feature-binding? - (lambda (_%bind117009%_) - (letrec ((_%feature?117011%_ - (lambda (_%e117013%_) - (let ((_%$e117015%_ + (lambda (_%bind117283%_) + (letrec ((_%feature?117285%_ + (lambda (_%e117287%_) + (let ((_%$e117289%_ (##structure-instance-of? - _%e117013%_ + _%e117287%_ 'gx#feature-expander::t))) - (if _%$e117015%_ - _%$e117015%_ + (if _%$e117289%_ + _%$e117289%_ (##structure-instance-of? - _%e117013%_ + _%e117287%_ 'gx#module-context::t)))))) - (gx#expander-binding?__% _%bind117009%_ _%feature?117011%_)))) + (gx#expander-binding?__% _%bind117283%_ _%feature?117285%_)))) (define gx#private-feature-binding? - (lambda (_%bind117007%_) - (gx#expander-binding?__% _%bind117007%_ gx#private-feature-expander?))) + (lambda (_%bind117281%_) + (gx#expander-binding?__% _%bind117281%_ gx#private-feature-expander?))) (define gx#core-bound-identifier?__% - (lambda (_%id116994%_ _%bound?116995%_) - (if (gx#identifier? _%id116994%_) - (_%bound?116995%_ (gx#resolve-identifier__0 _%id116994%_)) + (lambda (_%id117268%_ _%bound?117269%_) + (if (gx#identifier? _%id117268%_) + (_%bound?117269%_ (gx#resolve-identifier__0 _%id117268%_)) '#f))) (define gx#core-bound-identifier?__0 - (lambda (_%id117000%_) - (let ((_%bound?117002%_ gx#core-expander-binding?)) - (gx#core-bound-identifier?__% _%id117000%_ _%bound?117002%_)))) + (lambda (_%id117274%_) + (let ((_%bound?117276%_ gx#core-expander-binding?)) + (gx#core-bound-identifier?__% _%id117274%_ _%bound?117276%_)))) (define gx#core-bound-identifier? - (lambda _g119965_ - (let ((_g119964_ (##length _g119965_))) - (cond ((##fx= _g119964_ 1) - (apply gx#core-bound-identifier?__0 _g119965_)) - ((##fx= _g119964_ 2) - (apply gx#core-bound-identifier?__% _g119965_)) + (lambda _g120239_ + (let ((_g120238_ (##length _g120239_))) + (cond ((##fx= _g120238_ 1) + (apply gx#core-bound-identifier?__0 _g120239_)) + ((##fx= _g120238_ 2) + (apply gx#core-bound-identifier?__% _g120239_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bound-identifier? - _g119965_)))))) + _g120239_)))))) (define gx#core-identifier=? - (lambda (_%x116984%_ _%y116985%_) - (letrec ((_%y=?116987%_ - (lambda (_%xid116991%_) - ((if (list? _%y116985%_) memq eq?) - _%xid116991%_ - _%y116985%_)))) - (let ((_%bind116989%_ (gx#resolve-identifier__0 _%x116984%_))) - (if (##structure-instance-of? _%bind116989%_ 'gx#binding::t) - (_%y=?116987%_ - (##unchecked-structure-ref _%bind116989%_ '1 '#f '#f)) - (_%y=?116987%_ (gx#stx-e _%x116984%_))))))) + (lambda (_%x117258%_ _%y117259%_) + (letrec ((_%y=?117261%_ + (lambda (_%xid117265%_) + ((if (list? _%y117259%_) memq eq?) + _%xid117265%_ + _%y117259%_)))) + (let ((_%bind117263%_ (gx#resolve-identifier__0 _%x117258%_))) + (if (##structure-instance-of? _%bind117263%_ 'gx#binding::t) + (_%y=?117261%_ + (##unchecked-structure-ref _%bind117263%_ '1 '#f '#f)) + (_%y=?117261%_ (gx#stx-e _%x117258%_))))))) (define gx#core-extern-symbol? - (lambda (_%e116982%_) - (if (interned-symbol? _%e116982%_) - (string-index__0 (symbol->string _%e116982%_) '#\#) + (lambda (_%e117256%_) + (if (interned-symbol? _%e117256%_) + (string-index__0 (symbol->string _%e117256%_) '#\#) '#f))) (define gx#core-quote-syntax__% - (lambda (_%stx116935%_ _%src116936%_ _%ctx116937%_ _%marks116938%_) - (if (##structure? _%stx116935%_) - (let ((_%$e116940%_ (gx#sealed-syntax-unwrap _%stx116935%_))) - (if _%$e116940%_ - _%$e116940%_ - (if (gx#identifier? _%stx116935%_) - (let ((_%id116944%_ - (gx#stx-unwrap__% _%stx116935%_ _%marks116938%_))) + (lambda (_%stx117209%_ _%src117210%_ _%ctx117211%_ _%marks117212%_) + (if (##structure? _%stx117209%_) + (let ((_%$e117214%_ (gx#sealed-syntax-unwrap _%stx117209%_))) + (if _%$e117214%_ + _%$e117214%_ + (if (gx#identifier? _%stx117209%_) + (let ((_%id117218%_ + (gx#stx-unwrap__% _%stx117209%_ _%marks117212%_))) (##structure gx#syntax-quote::t - (##unchecked-structure-ref _%id116944%_ '1 '#f '#f) - (let ((_%$e116946%_ + (##unchecked-structure-ref _%id117218%_ '1 '#f '#f) + (let ((_%$e117220%_ (##unchecked-structure-ref - _%id116944%_ + _%id117218%_ '2 '#f '#f))) - (if _%$e116946%_ _%$e116946%_ _%src116936%_)) - _%ctx116937%_ - (##unchecked-structure-ref _%id116944%_ '3 '#f '#f))) + (if _%$e117220%_ _%$e117220%_ _%src117210%_)) + _%ctx117211%_ + (##unchecked-structure-ref _%id117218%_ '3 '#f '#f))) (##structure gx#syntax-quote::t - (gx#stx-e _%stx116935%_) - (let ((_%$e116950%_ (gx#stx-source _%stx116935%_))) - (if _%$e116950%_ _%$e116950%_ _%src116936%_)) - _%ctx116937%_ - (reverse _%marks116938%_))))) + (gx#stx-e _%stx117209%_) + (let ((_%$e117224%_ (gx#stx-source _%stx117209%_))) + (if _%$e117224%_ _%$e117224%_ _%src117210%_)) + _%ctx117211%_ + (reverse _%marks117212%_))))) (##structure gx#syntax-quote::t - _%stx116935%_ - _%src116936%_ - _%ctx116937%_ - (reverse _%marks116938%_))))) + _%stx117209%_ + _%src117210%_ + _%ctx117211%_ + (reverse _%marks117212%_))))) (define gx#core-quote-syntax__0 - (lambda (_%stx116956%_) - (let* ((_%src116958%_ '#f) - (_%ctx116960%_ (gx#current-expander-context)) - (_%marks116962%_ (gx#current-expander-marks))) + (lambda (_%stx117230%_) + (let* ((_%src117232%_ '#f) + (_%ctx117234%_ (gx#current-expander-context)) + (_%marks117236%_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _%stx116956%_ - _%src116958%_ - _%ctx116960%_ - _%marks116962%_)))) + _%stx117230%_ + _%src117232%_ + _%ctx117234%_ + _%marks117236%_)))) (define gx#core-quote-syntax__1 - (lambda (_%stx116964%_ _%src116965%_) - (let* ((_%ctx116967%_ (gx#current-expander-context)) - (_%marks116969%_ (gx#current-expander-marks))) + (lambda (_%stx117238%_ _%src117239%_) + (let* ((_%ctx117241%_ (gx#current-expander-context)) + (_%marks117243%_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _%stx116964%_ - _%src116965%_ - _%ctx116967%_ - _%marks116969%_)))) + _%stx117238%_ + _%src117239%_ + _%ctx117241%_ + _%marks117243%_)))) (define gx#core-quote-syntax__2 - (lambda (_%stx116971%_ _%src116972%_ _%ctx116973%_) - (let ((_%marks116975%_ (gx#current-expander-marks))) + (lambda (_%stx117245%_ _%src117246%_ _%ctx117247%_) + (let ((_%marks117249%_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _%stx116971%_ - _%src116972%_ - _%ctx116973%_ - _%marks116975%_)))) + _%stx117245%_ + _%src117246%_ + _%ctx117247%_ + _%marks117249%_)))) (define gx#core-quote-syntax - (lambda _g119967_ - (let ((_g119966_ (##length _g119967_))) - (cond ((##fx= _g119966_ 1) (apply gx#core-quote-syntax__0 _g119967_)) - ((##fx= _g119966_ 2) (apply gx#core-quote-syntax__1 _g119967_)) - ((##fx= _g119966_ 3) (apply gx#core-quote-syntax__2 _g119967_)) - ((##fx= _g119966_ 4) (apply gx#core-quote-syntax__% _g119967_)) + (lambda _g120241_ + (let ((_g120240_ (##length _g120241_))) + (cond ((##fx= _g120240_ 1) (apply gx#core-quote-syntax__0 _g120241_)) + ((##fx= _g120240_ 2) (apply gx#core-quote-syntax__1 _g120241_)) + ((##fx= _g120240_ 3) (apply gx#core-quote-syntax__2 _g120241_)) + ((##fx= _g120240_ 4) (apply gx#core-quote-syntax__% _g120241_)) (else (##raise-wrong-number-of-arguments-exception gx#core-quote-syntax - _g119967_)))))) + _g120241_)))))) (define gx#core-cons - (lambda (_%hd116931%_ _%tl116932%_) - (cons (gx#core-quote-syntax__0 _%hd116931%_) _%tl116932%_))) + (lambda (_%hd117205%_ _%tl117206%_) + (cons (gx#core-quote-syntax__0 _%hd117205%_) _%tl117206%_))) (define gx#core-list - (lambda (_%hd116928%_ . _%rest116929%_) - (cons (gx#core-quote-syntax__0 _%hd116928%_) _%rest116929%_))) + (lambda (_%hd117202%_ . _%rest117203%_) + (cons (gx#core-quote-syntax__0 _%hd117202%_) _%rest117203%_))) (define gx#core-cons* - (lambda (_%hd116925%_ . _%rest116926%_) - (apply cons* (gx#core-quote-syntax__0 _%hd116925%_) _%rest116926%_))) + (lambda (_%hd117199%_ . _%rest117200%_) + (apply cons* (gx#core-quote-syntax__0 _%hd117199%_) _%rest117200%_))) (define gx#core-resolve-path__% - (lambda (_%stx-path116894%_ _%rel116895%_) - (let ((_%path116912%_ (gx#stx-e _%stx-path116894%_)) - (_%reldir116913%_ - (let _%lp116897%_ ((_%relsrc116899%_ - (let ((_%$e116909%_ - (gx#stx-source _%stx-path116894%_))) - (if _%$e116909%_ - _%$e116909%_ - _%rel116895%_)))) - (if (##structure-instance-of? _%relsrc116899%_ 'gerbil#AST::t) - (_%lp116897%_ - (let ((_%$e116902%_ (gx#stx-source _%relsrc116899%_))) - (if _%$e116902%_ - _%$e116902%_ - (gx#stx-e _%relsrc116899%_)))) - (if (source-location-path? _%relsrc116899%_) + (lambda (_%stx-path117168%_ _%rel117169%_) + (let ((_%path117186%_ (gx#stx-e _%stx-path117168%_)) + (_%reldir117187%_ + (let _%lp117171%_ ((_%relsrc117173%_ + (let ((_%$e117183%_ + (gx#stx-source _%stx-path117168%_))) + (if _%$e117183%_ + _%$e117183%_ + _%rel117169%_)))) + (if (##structure-instance-of? _%relsrc117173%_ 'gerbil#AST::t) + (_%lp117171%_ + (let ((_%$e117176%_ (gx#stx-source _%relsrc117173%_))) + (if _%$e117176%_ + _%$e117176%_ + (gx#stx-e _%relsrc117173%_)))) + (if (source-location-path? _%relsrc117173%_) (path-directory - (source-location-path _%relsrc116899%_)) - (if (string? _%relsrc116899%_) - (path-directory _%relsrc116899%_) + (source-location-path _%relsrc117173%_)) + (if (string? _%relsrc117173%_) + (path-directory _%relsrc117173%_) (if (null? (gx#current-expander-path)) (current-directory) (path-directory (car (gx#current-expander-path)))))))))) - (path-expand _%path116912%_ (path-normalize _%reldir116913%_))))) + (path-expand _%path117186%_ (path-normalize _%reldir117187%_))))) (define gx#core-resolve-path__0 - (lambda (_%stx-path116918%_) - (let ((_%rel116920%_ '#f)) - (gx#core-resolve-path__% _%stx-path116918%_ _%rel116920%_)))) + (lambda (_%stx-path117192%_) + (let ((_%rel117194%_ '#f)) + (gx#core-resolve-path__% _%stx-path117192%_ _%rel117194%_)))) (define gx#core-resolve-path - (lambda _g119969_ - (let ((_g119968_ (##length _g119969_))) - (cond ((##fx= _g119968_ 1) (apply gx#core-resolve-path__0 _g119969_)) - ((##fx= _g119968_ 2) (apply gx#core-resolve-path__% _g119969_)) + (lambda _g120243_ + (let ((_g120242_ (##length _g120243_))) + (cond ((##fx= _g120242_ 1) (apply gx#core-resolve-path__0 _g120243_)) + ((##fx= _g120242_ 2) (apply gx#core-resolve-path__% _g120243_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-path - _g119969_)))))) + _g120243_)))))) (define gx#core-deserialize-mark__% - (lambda (_%repr116850%_ _%ctx116851%_) - (let* ((_%repr116852116859%_ _%repr116850%_) - (_%E116854116863%_ + (lambda (_%repr117124%_ _%ctx117125%_) + (let* ((_%repr117126117133%_ _%repr117124%_) + (_%E117128117137%_ (lambda () (error '"No clause matching" - _%repr116852116859%_ + _%repr117126117133%_ '([phi . subs])) '#!void)) - (_%K116855116871%_ - (lambda (_%subs116866%_ _%phi116867%_) - (let ((_%subst116869%_ - (if (null? _%subs116866%_) + (_%K117129117145%_ + (lambda (_%subs117140%_ _%phi117141%_) + (let ((_%subst117143%_ + (if (null? _%subs117140%_) '#f - (list->hash-table-eq _%subs116866%_)))) + (list->hash-table-eq _%subs117140%_)))) (##structure gx#expander-mark::t - _%subst116869%_ - _%ctx116851%_ - _%phi116867%_ + _%subst117143%_ + _%ctx117125%_ + _%phi117141%_ '#f))))) - (if (##pair? _%repr116852116859%_) - (let ((_%hd116856116874%_ (##car _%repr116852116859%_)) - (_%tl116857116876%_ (##cdr _%repr116852116859%_))) - (let* ((_%phi116879%_ _%hd116856116874%_) - (_%subs116881%_ _%tl116857116876%_)) - (_%K116855116871%_ _%subs116881%_ _%phi116879%_))) - (_%E116854116863%_))))) + (if (##pair? _%repr117126117133%_) + (let ((_%hd117130117148%_ (##car _%repr117126117133%_)) + (_%tl117131117150%_ (##cdr _%repr117126117133%_))) + (let* ((_%phi117153%_ _%hd117130117148%_) + (_%subs117155%_ _%tl117131117150%_)) + (_%K117129117145%_ _%subs117155%_ _%phi117153%_))) + (_%E117128117137%_))))) (define gx#core-deserialize-mark__0 - (lambda (_%repr116886%_) - (let ((_%ctx116888%_ (gx#current-expander-context))) - (gx#core-deserialize-mark__% _%repr116886%_ _%ctx116888%_)))) + (lambda (_%repr117160%_) + (let ((_%ctx117162%_ (gx#current-expander-context))) + (gx#core-deserialize-mark__% _%repr117160%_ _%ctx117162%_)))) (define gx#core-deserialize-mark - (lambda _g119971_ - (let ((_g119970_ (##length _g119971_))) - (cond ((##fx= _g119970_ 1) - (apply gx#core-deserialize-mark__0 _g119971_)) - ((##fx= _g119970_ 2) - (apply gx#core-deserialize-mark__% _g119971_)) + (lambda _g120245_ + (let ((_g120244_ (##length _g120245_))) + (cond ((##fx= _g120244_ 1) + (apply gx#core-deserialize-mark__0 _g120245_)) + ((##fx= _g120244_ 2) + (apply gx#core-deserialize-mark__% _g120245_)) (else (##raise-wrong-number-of-arguments-exception gx#core-deserialize-mark - _g119971_)))))) + _g120245_)))))) (define gx#syntax-local-rewrap - (lambda (_%stx116847%_) - (gx#stx-rewrap _%stx116847%_ (gx#current-expander-marks)))) + (lambda (_%stx117121%_) + (gx#stx-rewrap _%stx117121%_ (gx#current-expander-marks)))) (define gx#syntax-local-unwrap - (lambda (_%stx116845%_) - (gx#stx-unwrap__% _%stx116845%_ (gx#current-expander-marks)))) + (lambda (_%stx117119%_) + (gx#stx-unwrap__% _%stx117119%_ (gx#current-expander-marks)))) (define gx#syntax-local-introduce - (lambda (_%stx116815%_) - (let* ((_%g116816116824%_ (gx#current-expander-marks)) - (_%else116818116832%_ (lambda () _%stx116815%_)) - (_%K116820116837%_ - (lambda (_%hd116835%_) - (gx#stx-apply-mark _%stx116815%_ _%hd116835%_)))) - (if (##pair? _%g116816116824%_) - (let* ((_%hd116821116840%_ (##car _%g116816116824%_)) - (_%hd116843%_ _%hd116821116840%_)) - (_%K116820116837%_ _%hd116843%_)) - (_%else116818116832%_))))) + (lambda (_%stx117089%_) + (let* ((_%g117090117098%_ (gx#current-expander-marks)) + (_%else117092117106%_ (lambda () _%stx117089%_)) + (_%K117094117111%_ + (lambda (_%hd117109%_) + (gx#stx-apply-mark _%stx117089%_ _%hd117109%_)))) + (if (##pair? _%g117090117098%_) + (let* ((_%hd117095117114%_ (##car _%g117090117098%_)) + (_%hd117117%_ _%hd117095117114%_)) + (_%K117094117111%_ _%hd117117%_)) + (_%else117092117106%_))))) (define gx#syntax-local-e__% - (lambda (_%stx116800%_ _%E116801%_) - (let ((_%bind116803%_ (gx#resolve-identifier__0 _%stx116800%_))) + (lambda (_%stx117074%_ _%E117075%_) + (let ((_%bind117077%_ (gx#resolve-identifier__0 _%stx117074%_))) (if (##structure-direct-instance-of? - _%bind116803%_ + _%bind117077%_ 'gx#syntax-binding::t) - (##unchecked-structure-ref _%bind116803%_ '4 '#f '#f) - (_%E116801%_ _%stx116800%_))))) + (##unchecked-structure-ref _%bind117077%_ '4 '#f '#f) + (_%E117075%_ _%stx117074%_))))) (define gx#syntax-local-e__0 - (lambda (_%stx116808%_) - (let ((_%E116810%_ gx#raise-syntax-ref-error)) - (gx#syntax-local-e__% _%stx116808%_ _%E116810%_)))) + (lambda (_%stx117082%_) + (let ((_%E117084%_ gx#raise-syntax-ref-error)) + (gx#syntax-local-e__% _%stx117082%_ _%E117084%_)))) (define gx#syntax-local-e - (lambda _g119973_ - (let ((_g119972_ (##length _g119973_))) - (cond ((##fx= _g119972_ 1) (apply gx#syntax-local-e__0 _g119973_)) - ((##fx= _g119972_ 2) (apply gx#syntax-local-e__% _g119973_)) + (lambda _g120247_ + (let ((_g120246_ (##length _g120247_))) + (cond ((##fx= _g120246_ 1) (apply gx#syntax-local-e__0 _g120247_)) + ((##fx= _g120246_ 2) (apply gx#syntax-local-e__% _g120247_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-e - _g119973_)))))) + _g120247_)))))) (define gx#syntax-local-value__% - (lambda (_%stx116784%_ _%E116785%_) - (let ((_%e116787%_ (gx#syntax-local-e__% _%stx116784%_ _%E116785%_))) - (if (##structure-instance-of? _%e116787%_ 'gx#expander::t) - (##unchecked-structure-ref _%e116787%_ '1 '#f '#f) - _%e116787%_)))) + (lambda (_%stx117058%_ _%E117059%_) + (let ((_%e117061%_ (gx#syntax-local-e__% _%stx117058%_ _%E117059%_))) + (if (##structure-instance-of? _%e117061%_ 'gx#expander::t) + (##unchecked-structure-ref _%e117061%_ '1 '#f '#f) + _%e117061%_)))) (define gx#syntax-local-value__0 - (lambda (_%stx116792%_) - (let ((_%E116794%_ gx#raise-syntax-ref-error)) - (gx#syntax-local-value__% _%stx116792%_ _%E116794%_)))) + (lambda (_%stx117066%_) + (let ((_%E117068%_ gx#raise-syntax-ref-error)) + (gx#syntax-local-value__% _%stx117066%_ _%E117068%_)))) (define gx#syntax-local-value - (lambda _g119975_ - (let ((_g119974_ (##length _g119975_))) - (cond ((##fx= _g119974_ 1) - (apply gx#syntax-local-value__0 _g119975_)) - ((##fx= _g119974_ 2) - (apply gx#syntax-local-value__% _g119975_)) + (lambda _g120249_ + (let ((_g120248_ (##length _g120249_))) + (cond ((##fx= _g120248_ 1) + (apply gx#syntax-local-value__0 _g120249_)) + ((##fx= _g120248_ 2) + (apply gx#syntax-local-value__% _g120249_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-value - _g119975_)))))) + _g120249_)))))) (define gx#raise-syntax-ref-error - (lambda (_%stx116781%_) + (lambda (_%stx117055%_) (gx#raise-syntax-error '#f '"Bad syntax; not a syntax binding" - _%stx116781%_))))) + _%stx117055%_))))) diff --git a/src/bootstrap/gerbil/expander/core~1.scm b/src/bootstrap/gerbil/expander/core~1.scm index a860f102a..0594969ee 100644 --- a/src/bootstrap/gerbil/expander/core~1.scm +++ b/src/bootstrap/gerbil/expander/core~1.scm @@ -1,3569 +1,3569 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gx[1]#_g119977_| + (define |gx[1]#_g120251_| (##structure gx#syntax-quote::t 'expander-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g119979_| + (define |gx[1]#_g120253_| (##structure gx#syntax-quote::t 'make-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g119981_| + (define |gx[1]#_g120255_| (##structure gx#syntax-quote::t 'expander-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g119983_| + (define |gx[1]#_g120257_| (##structure gx#syntax-quote::t 'expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g119984_| + (define |gx[1]#_g120258_| (##structure gx#syntax-quote::t 'expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g119986_| + (define |gx[1]#_g120260_| (##structure gx#syntax-quote::t 'expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g119987_| + (define |gx[1]#_g120261_| (##structure gx#syntax-quote::t 'expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g119989_| + (define |gx[1]#_g120263_| (##structure gx#syntax-quote::t '&expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g119990_| + (define |gx[1]#_g120264_| (##structure gx#syntax-quote::t '&expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g119992_| + (define |gx[1]#_g120266_| (##structure gx#syntax-quote::t '&expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g119993_| + (define |gx[1]#_g120267_| (##structure gx#syntax-quote::t '&expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g119995_| + (define |gx[1]#_g120269_| (##structure gx#syntax-quote::t 'expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g119997_| + (define |gx[1]#_g120271_| (##structure gx#syntax-quote::t 'root-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g119999_| + (define |gx[1]#_g120273_| (##structure gx#syntax-quote::t 'make-root-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120001_| + (define |gx[1]#_g120275_| (##structure gx#syntax-quote::t 'root-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120003_| + (define |gx[1]#_g120277_| (##structure gx#syntax-quote::t 'root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120004_| + (define |gx[1]#_g120278_| (##structure gx#syntax-quote::t 'root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g120006_| + (define |gx[1]#_g120280_| (##structure gx#syntax-quote::t 'root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120007_| + (define |gx[1]#_g120281_| (##structure gx#syntax-quote::t 'root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120009_| + (define |gx[1]#_g120283_| (##structure gx#syntax-quote::t '&root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120010_| + (define |gx[1]#_g120284_| (##structure gx#syntax-quote::t '&root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g120012_| + (define |gx[1]#_g120286_| (##structure gx#syntax-quote::t '&root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120013_| + (define |gx[1]#_g120287_| (##structure gx#syntax-quote::t '&root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120016_| + (define |gx[1]#_g120290_| (##structure gx#syntax-quote::t 'phi-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120018_| + (define |gx[1]#_g120292_| (##structure gx#syntax-quote::t 'make-phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120020_| + (define |gx[1]#_g120294_| (##structure gx#syntax-quote::t 'phi-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120022_| + (define |gx[1]#_g120296_| (##structure gx#syntax-quote::t 'phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g120023_| + (define |gx[1]#_g120297_| (##structure gx#syntax-quote::t 'phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g120024_| + (define |gx[1]#_g120298_| (##structure gx#syntax-quote::t 'phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g120025_| + (define |gx[1]#_g120299_| (##structure gx#syntax-quote::t 'phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120026_| + (define |gx[1]#_g120300_| (##structure gx#syntax-quote::t 'phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g120028_| + (define |gx[1]#_g120302_| (##structure gx#syntax-quote::t 'phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120029_| + (define |gx[1]#_g120303_| (##structure gx#syntax-quote::t 'phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120030_| + (define |gx[1]#_g120304_| (##structure gx#syntax-quote::t 'phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120031_| + (define |gx[1]#_g120305_| (##structure gx#syntax-quote::t 'phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120032_| + (define |gx[1]#_g120306_| (##structure gx#syntax-quote::t 'phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120034_| + (define |gx[1]#_g120308_| (##structure gx#syntax-quote::t '&phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g120035_| + (define |gx[1]#_g120309_| (##structure gx#syntax-quote::t '&phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g120036_| + (define |gx[1]#_g120310_| (##structure gx#syntax-quote::t '&phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g120037_| + (define |gx[1]#_g120311_| (##structure gx#syntax-quote::t '&phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120038_| + (define |gx[1]#_g120312_| (##structure gx#syntax-quote::t '&phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g120040_| + (define |gx[1]#_g120314_| (##structure gx#syntax-quote::t '&phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120041_| + (define |gx[1]#_g120315_| (##structure gx#syntax-quote::t '&phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120042_| + (define |gx[1]#_g120316_| (##structure gx#syntax-quote::t '&phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120043_| + (define |gx[1]#_g120317_| (##structure gx#syntax-quote::t '&phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120044_| + (define |gx[1]#_g120318_| (##structure gx#syntax-quote::t '&phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120046_| + (define |gx[1]#_g120320_| (##structure gx#syntax-quote::t 'phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120048_| + (define |gx[1]#_g120322_| (##structure gx#syntax-quote::t 'top-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120050_| + (define |gx[1]#_g120324_| (##structure gx#syntax-quote::t 'make-top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120052_| + (define |gx[1]#_g120326_| (##structure gx#syntax-quote::t 'top-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120054_| + (define |gx[1]#_g120328_| (##structure gx#syntax-quote::t 'top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g120055_| + (define |gx[1]#_g120329_| (##structure gx#syntax-quote::t 'top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g120056_| + (define |gx[1]#_g120330_| (##structure gx#syntax-quote::t 'top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g120057_| + (define |gx[1]#_g120331_| (##structure gx#syntax-quote::t 'top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120058_| + (define |gx[1]#_g120332_| (##structure gx#syntax-quote::t 'top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g120060_| + (define |gx[1]#_g120334_| (##structure gx#syntax-quote::t 'top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120061_| + (define |gx[1]#_g120335_| (##structure gx#syntax-quote::t 'top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120062_| + (define |gx[1]#_g120336_| (##structure gx#syntax-quote::t 'top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120063_| + (define |gx[1]#_g120337_| (##structure gx#syntax-quote::t 'top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120064_| + (define |gx[1]#_g120338_| (##structure gx#syntax-quote::t 'top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120066_| + (define |gx[1]#_g120340_| (##structure gx#syntax-quote::t '&top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g120067_| + (define |gx[1]#_g120341_| (##structure gx#syntax-quote::t '&top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g120068_| + (define |gx[1]#_g120342_| (##structure gx#syntax-quote::t '&top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g120069_| + (define |gx[1]#_g120343_| (##structure gx#syntax-quote::t '&top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120070_| + (define |gx[1]#_g120344_| (##structure gx#syntax-quote::t '&top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g120072_| + (define |gx[1]#_g120346_| (##structure gx#syntax-quote::t '&top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120073_| + (define |gx[1]#_g120347_| (##structure gx#syntax-quote::t '&top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120074_| + (define |gx[1]#_g120348_| (##structure gx#syntax-quote::t '&top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120075_| + (define |gx[1]#_g120349_| (##structure gx#syntax-quote::t '&top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120076_| + (define |gx[1]#_g120350_| (##structure gx#syntax-quote::t '&top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120078_| + (define |gx[1]#_g120352_| (##structure gx#syntax-quote::t 'top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120080_| + (define |gx[1]#_g120354_| (##structure gx#syntax-quote::t 'module-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120082_| + (define |gx[1]#_g120356_| (##structure gx#syntax-quote::t 'make-module-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120084_| + (define |gx[1]#_g120358_| (##structure gx#syntax-quote::t 'module-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120086_| + (define |gx[1]#_g120360_| (##structure gx#syntax-quote::t 'module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g120087_| + (define |gx[1]#_g120361_| (##structure gx#syntax-quote::t 'module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g120088_| + (define |gx[1]#_g120362_| (##structure gx#syntax-quote::t 'module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g120089_| + (define |gx[1]#_g120363_| (##structure gx#syntax-quote::t 'module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g120090_| + (define |gx[1]#_g120364_| (##structure gx#syntax-quote::t 'module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120091_| + (define |gx[1]#_g120365_| (##structure gx#syntax-quote::t 'module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g120092_| + (define |gx[1]#_g120366_| (##structure gx#syntax-quote::t 'module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g120093_| + (define |gx[1]#_g120367_| (##structure gx#syntax-quote::t 'module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g120094_| + (define |gx[1]#_g120368_| (##structure gx#syntax-quote::t 'module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g120095_| + (define |gx[1]#_g120369_| (##structure gx#syntax-quote::t 'module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120096_| + (define |gx[1]#_g120370_| (##structure gx#syntax-quote::t 'module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g120098_| + (define |gx[1]#_g120372_| (##structure gx#syntax-quote::t 'module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120099_| + (define |gx[1]#_g120373_| (##structure gx#syntax-quote::t 'module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120100_| + (define |gx[1]#_g120374_| (##structure gx#syntax-quote::t 'module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120101_| + (define |gx[1]#_g120375_| (##structure gx#syntax-quote::t 'module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120102_| + (define |gx[1]#_g120376_| (##structure gx#syntax-quote::t 'module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120103_| + (define |gx[1]#_g120377_| (##structure gx#syntax-quote::t 'module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120104_| + (define |gx[1]#_g120378_| (##structure gx#syntax-quote::t 'module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120105_| + (define |gx[1]#_g120379_| (##structure gx#syntax-quote::t 'module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120106_| + (define |gx[1]#_g120380_| (##structure gx#syntax-quote::t 'module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120107_| + (define |gx[1]#_g120381_| (##structure gx#syntax-quote::t 'module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120108_| + (define |gx[1]#_g120382_| (##structure gx#syntax-quote::t 'module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120110_| + (define |gx[1]#_g120384_| (##structure gx#syntax-quote::t '&module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g120111_| + (define |gx[1]#_g120385_| (##structure gx#syntax-quote::t '&module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g120112_| + (define |gx[1]#_g120386_| (##structure gx#syntax-quote::t '&module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g120113_| + (define |gx[1]#_g120387_| (##structure gx#syntax-quote::t '&module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g120114_| + (define |gx[1]#_g120388_| (##structure gx#syntax-quote::t '&module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120115_| + (define |gx[1]#_g120389_| (##structure gx#syntax-quote::t '&module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g120116_| + (define |gx[1]#_g120390_| (##structure gx#syntax-quote::t '&module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g120117_| + (define |gx[1]#_g120391_| (##structure gx#syntax-quote::t '&module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g120118_| + (define |gx[1]#_g120392_| (##structure gx#syntax-quote::t '&module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g120119_| + (define |gx[1]#_g120393_| (##structure gx#syntax-quote::t '&module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120120_| + (define |gx[1]#_g120394_| (##structure gx#syntax-quote::t '&module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g120122_| + (define |gx[1]#_g120396_| (##structure gx#syntax-quote::t '&module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120123_| + (define |gx[1]#_g120397_| (##structure gx#syntax-quote::t '&module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120124_| + (define |gx[1]#_g120398_| (##structure gx#syntax-quote::t '&module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120125_| + (define |gx[1]#_g120399_| (##structure gx#syntax-quote::t '&module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120126_| + (define |gx[1]#_g120400_| (##structure gx#syntax-quote::t '&module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120127_| + (define |gx[1]#_g120401_| (##structure gx#syntax-quote::t '&module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120128_| + (define |gx[1]#_g120402_| (##structure gx#syntax-quote::t '&module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120129_| + (define |gx[1]#_g120403_| (##structure gx#syntax-quote::t '&module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120130_| + (define |gx[1]#_g120404_| (##structure gx#syntax-quote::t '&module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120131_| + (define |gx[1]#_g120405_| (##structure gx#syntax-quote::t '&module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120132_| + (define |gx[1]#_g120406_| (##structure gx#syntax-quote::t '&module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120135_| + (define |gx[1]#_g120409_| (##structure gx#syntax-quote::t 'prelude-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120137_| + (define |gx[1]#_g120411_| (##structure gx#syntax-quote::t 'make-prelude-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120139_| + (define |gx[1]#_g120413_| (##structure gx#syntax-quote::t 'prelude-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120141_| + (define |gx[1]#_g120415_| (##structure gx#syntax-quote::t 'prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g120142_| + (define |gx[1]#_g120416_| (##structure gx#syntax-quote::t 'prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g120143_| + (define |gx[1]#_g120417_| (##structure gx#syntax-quote::t 'prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120144_| + (define |gx[1]#_g120418_| (##structure gx#syntax-quote::t 'prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g120145_| + (define |gx[1]#_g120419_| (##structure gx#syntax-quote::t 'prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g120146_| + (define |gx[1]#_g120420_| (##structure gx#syntax-quote::t 'prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g120147_| + (define |gx[1]#_g120421_| (##structure gx#syntax-quote::t 'prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120148_| + (define |gx[1]#_g120422_| (##structure gx#syntax-quote::t 'prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g120150_| + (define |gx[1]#_g120424_| (##structure gx#syntax-quote::t 'prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120151_| + (define |gx[1]#_g120425_| (##structure gx#syntax-quote::t 'prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120152_| + (define |gx[1]#_g120426_| (##structure gx#syntax-quote::t 'prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120153_| + (define |gx[1]#_g120427_| (##structure gx#syntax-quote::t 'prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120154_| + (define |gx[1]#_g120428_| (##structure gx#syntax-quote::t 'prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120155_| + (define |gx[1]#_g120429_| (##structure gx#syntax-quote::t 'prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120156_| + (define |gx[1]#_g120430_| (##structure gx#syntax-quote::t 'prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120157_| + (define |gx[1]#_g120431_| (##structure gx#syntax-quote::t 'prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120159_| + (define |gx[1]#_g120433_| (##structure gx#syntax-quote::t '&prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g120160_| + (define |gx[1]#_g120434_| (##structure gx#syntax-quote::t '&prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g120161_| + (define |gx[1]#_g120435_| (##structure gx#syntax-quote::t '&prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120162_| + (define |gx[1]#_g120436_| (##structure gx#syntax-quote::t '&prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g120163_| + (define |gx[1]#_g120437_| (##structure gx#syntax-quote::t '&prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g120164_| + (define |gx[1]#_g120438_| (##structure gx#syntax-quote::t '&prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g120165_| + (define |gx[1]#_g120439_| (##structure gx#syntax-quote::t '&prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120166_| + (define |gx[1]#_g120440_| (##structure gx#syntax-quote::t '&prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g120168_| + (define |gx[1]#_g120442_| (##structure gx#syntax-quote::t '&prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120169_| + (define |gx[1]#_g120443_| (##structure gx#syntax-quote::t '&prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120170_| + (define |gx[1]#_g120444_| (##structure gx#syntax-quote::t '&prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120171_| + (define |gx[1]#_g120445_| (##structure gx#syntax-quote::t '&prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120172_| + (define |gx[1]#_g120446_| (##structure gx#syntax-quote::t '&prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120173_| + (define |gx[1]#_g120447_| (##structure gx#syntax-quote::t '&prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120174_| + (define |gx[1]#_g120448_| (##structure gx#syntax-quote::t '&prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120175_| + (define |gx[1]#_g120449_| (##structure gx#syntax-quote::t '&prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120178_| + (define |gx[1]#_g120452_| (##structure gx#syntax-quote::t 'local-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120180_| + (define |gx[1]#_g120454_| (##structure gx#syntax-quote::t 'make-local-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120182_| + (define |gx[1]#_g120456_| (##structure gx#syntax-quote::t 'local-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120184_| + (define |gx[1]#_g120458_| (##structure gx#syntax-quote::t 'local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g120185_| + (define |gx[1]#_g120459_| (##structure gx#syntax-quote::t 'local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g120186_| + (define |gx[1]#_g120460_| (##structure gx#syntax-quote::t 'local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g120187_| + (define |gx[1]#_g120461_| (##structure gx#syntax-quote::t 'local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120188_| + (define |gx[1]#_g120462_| (##structure gx#syntax-quote::t 'local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g120190_| + (define |gx[1]#_g120464_| (##structure gx#syntax-quote::t 'local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120191_| + (define |gx[1]#_g120465_| (##structure gx#syntax-quote::t 'local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120192_| + (define |gx[1]#_g120466_| (##structure gx#syntax-quote::t 'local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120193_| + (define |gx[1]#_g120467_| (##structure gx#syntax-quote::t 'local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120194_| + (define |gx[1]#_g120468_| (##structure gx#syntax-quote::t 'local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120196_| + (define |gx[1]#_g120470_| (##structure gx#syntax-quote::t '&local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g120197_| + (define |gx[1]#_g120471_| (##structure gx#syntax-quote::t '&local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g120198_| + (define |gx[1]#_g120472_| (##structure gx#syntax-quote::t '&local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g120199_| + (define |gx[1]#_g120473_| (##structure gx#syntax-quote::t '&local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120200_| + (define |gx[1]#_g120474_| (##structure gx#syntax-quote::t '&local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g120202_| + (define |gx[1]#_g120476_| (##structure gx#syntax-quote::t '&local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120203_| + (define |gx[1]#_g120477_| (##structure gx#syntax-quote::t '&local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120204_| + (define |gx[1]#_g120478_| (##structure gx#syntax-quote::t '&local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120205_| + (define |gx[1]#_g120479_| (##structure gx#syntax-quote::t '&local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120206_| + (define |gx[1]#_g120480_| (##structure gx#syntax-quote::t '&local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120208_| + (define |gx[1]#_g120482_| (##structure gx#syntax-quote::t 'binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120210_| + (define |gx[1]#_g120484_| (##structure gx#syntax-quote::t 'make-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g120212_| + (define |gx[1]#_g120486_| (##structure gx#syntax-quote::t 'binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120214_| + (define |gx[1]#_g120488_| (##structure gx#syntax-quote::t 'binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120215_| + (define |gx[1]#_g120489_| (##structure gx#syntax-quote::t 'binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120216_| + (define |gx[1]#_g120490_| (##structure gx#syntax-quote::t 'binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120218_| + (define |gx[1]#_g120492_| (##structure gx#syntax-quote::t 'binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120219_| + (define |gx[1]#_g120493_| (##structure gx#syntax-quote::t 'binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120220_| + (define |gx[1]#_g120494_| (##structure gx#syntax-quote::t 'binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120222_| + (define |gx[1]#_g120496_| (##structure gx#syntax-quote::t '&binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120223_| + (define |gx[1]#_g120497_| (##structure gx#syntax-quote::t '&binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120224_| + (define |gx[1]#_g120498_| (##structure gx#syntax-quote::t '&binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120226_| + (define |gx[1]#_g120500_| (##structure gx#syntax-quote::t '&binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120227_| + (define |gx[1]#_g120501_| (##structure gx#syntax-quote::t '&binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120228_| + (define |gx[1]#_g120502_| (##structure gx#syntax-quote::t '&binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120230_| + (define |gx[1]#_g120504_| (##structure gx#syntax-quote::t 'binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g120232_| + (define |gx[1]#_g120506_| (##structure gx#syntax-quote::t 'runtime-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120234_| + (define |gx[1]#_g120508_| (##structure gx#syntax-quote::t 'make-runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g120236_| + (define |gx[1]#_g120510_| (##structure gx#syntax-quote::t 'runtime-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120238_| + (define |gx[1]#_g120512_| (##structure gx#syntax-quote::t 'runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120239_| + (define |gx[1]#_g120513_| (##structure gx#syntax-quote::t 'runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120240_| + (define |gx[1]#_g120514_| (##structure gx#syntax-quote::t 'runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120242_| + (define |gx[1]#_g120516_| (##structure gx#syntax-quote::t 'runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120243_| + (define |gx[1]#_g120517_| (##structure gx#syntax-quote::t 'runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120244_| + (define |gx[1]#_g120518_| (##structure gx#syntax-quote::t 'runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120246_| + (define |gx[1]#_g120520_| (##structure gx#syntax-quote::t '&runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120247_| + (define |gx[1]#_g120521_| (##structure gx#syntax-quote::t '&runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120248_| + (define |gx[1]#_g120522_| (##structure gx#syntax-quote::t '&runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120250_| + (define |gx[1]#_g120524_| (##structure gx#syntax-quote::t '&runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120251_| + (define |gx[1]#_g120525_| (##structure gx#syntax-quote::t '&runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120252_| + (define |gx[1]#_g120526_| (##structure gx#syntax-quote::t '&runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120254_| + (define |gx[1]#_g120528_| (##structure gx#syntax-quote::t 'runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g120256_| + (define |gx[1]#_g120530_| (##structure gx#syntax-quote::t 'local-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120258_| + (define |gx[1]#_g120532_| (##structure gx#syntax-quote::t 'make-local-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g120260_| + (define |gx[1]#_g120534_| (##structure gx#syntax-quote::t 'local-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120262_| + (define |gx[1]#_g120536_| (##structure gx#syntax-quote::t 'local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120263_| + (define |gx[1]#_g120537_| (##structure gx#syntax-quote::t 'local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120264_| + (define |gx[1]#_g120538_| (##structure gx#syntax-quote::t 'local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120266_| + (define |gx[1]#_g120540_| (##structure gx#syntax-quote::t 'local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120267_| + (define |gx[1]#_g120541_| (##structure gx#syntax-quote::t 'local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120268_| + (define |gx[1]#_g120542_| (##structure gx#syntax-quote::t 'local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120270_| + (define |gx[1]#_g120544_| (##structure gx#syntax-quote::t '&local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120271_| + (define |gx[1]#_g120545_| (##structure gx#syntax-quote::t '&local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120272_| + (define |gx[1]#_g120546_| (##structure gx#syntax-quote::t '&local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120274_| + (define |gx[1]#_g120548_| (##structure gx#syntax-quote::t '&local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120275_| + (define |gx[1]#_g120549_| (##structure gx#syntax-quote::t '&local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120276_| + (define |gx[1]#_g120550_| (##structure gx#syntax-quote::t '&local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120279_| + (define |gx[1]#_g120553_| (##structure gx#syntax-quote::t 'top-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120281_| + (define |gx[1]#_g120555_| (##structure gx#syntax-quote::t 'make-top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g120283_| + (define |gx[1]#_g120557_| (##structure gx#syntax-quote::t 'top-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120285_| + (define |gx[1]#_g120559_| (##structure gx#syntax-quote::t 'top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120286_| + (define |gx[1]#_g120560_| (##structure gx#syntax-quote::t 'top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120287_| + (define |gx[1]#_g120561_| (##structure gx#syntax-quote::t 'top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120289_| + (define |gx[1]#_g120563_| (##structure gx#syntax-quote::t 'top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120290_| + (define |gx[1]#_g120564_| (##structure gx#syntax-quote::t 'top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120291_| + (define |gx[1]#_g120565_| (##structure gx#syntax-quote::t 'top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120293_| + (define |gx[1]#_g120567_| (##structure gx#syntax-quote::t '&top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120294_| + (define |gx[1]#_g120568_| (##structure gx#syntax-quote::t '&top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120295_| + (define |gx[1]#_g120569_| (##structure gx#syntax-quote::t '&top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120297_| + (define |gx[1]#_g120571_| (##structure gx#syntax-quote::t '&top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120298_| + (define |gx[1]#_g120572_| (##structure gx#syntax-quote::t '&top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120299_| + (define |gx[1]#_g120573_| (##structure gx#syntax-quote::t '&top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120301_| + (define |gx[1]#_g120575_| (##structure gx#syntax-quote::t 'top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g120303_| + (define |gx[1]#_g120577_| (##structure gx#syntax-quote::t 'module-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120305_| + (define |gx[1]#_g120579_| (##structure gx#syntax-quote::t 'make-module-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g120307_| + (define |gx[1]#_g120581_| (##structure gx#syntax-quote::t 'module-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120309_| + (define |gx[1]#_g120583_| (##structure gx#syntax-quote::t 'module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120310_| + (define |gx[1]#_g120584_| (##structure gx#syntax-quote::t 'module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120311_| + (define |gx[1]#_g120585_| (##structure gx#syntax-quote::t 'module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120312_| + (define |gx[1]#_g120586_| (##structure gx#syntax-quote::t 'module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120314_| + (define |gx[1]#_g120588_| (##structure gx#syntax-quote::t 'module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120315_| + (define |gx[1]#_g120589_| (##structure gx#syntax-quote::t 'module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120316_| + (define |gx[1]#_g120590_| (##structure gx#syntax-quote::t 'module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120317_| + (define |gx[1]#_g120591_| (##structure gx#syntax-quote::t 'module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120319_| + (define |gx[1]#_g120593_| (##structure gx#syntax-quote::t '&module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120320_| + (define |gx[1]#_g120594_| (##structure gx#syntax-quote::t '&module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120321_| + (define |gx[1]#_g120595_| (##structure gx#syntax-quote::t '&module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120322_| + (define |gx[1]#_g120596_| (##structure gx#syntax-quote::t '&module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120324_| + (define |gx[1]#_g120598_| (##structure gx#syntax-quote::t '&module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120325_| + (define |gx[1]#_g120599_| (##structure gx#syntax-quote::t '&module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120326_| + (define |gx[1]#_g120600_| (##structure gx#syntax-quote::t '&module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120327_| + (define |gx[1]#_g120601_| (##structure gx#syntax-quote::t '&module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120330_| + (define |gx[1]#_g120604_| (##structure gx#syntax-quote::t 'extern-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120332_| + (define |gx[1]#_g120606_| (##structure gx#syntax-quote::t 'make-extern-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g120334_| + (define |gx[1]#_g120608_| (##structure gx#syntax-quote::t 'extern-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120336_| + (define |gx[1]#_g120610_| (##structure gx#syntax-quote::t 'extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120337_| + (define |gx[1]#_g120611_| (##structure gx#syntax-quote::t 'extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120338_| + (define |gx[1]#_g120612_| (##structure gx#syntax-quote::t 'extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120340_| + (define |gx[1]#_g120614_| (##structure gx#syntax-quote::t 'extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120341_| + (define |gx[1]#_g120615_| (##structure gx#syntax-quote::t 'extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120342_| + (define |gx[1]#_g120616_| (##structure gx#syntax-quote::t 'extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120344_| + (define |gx[1]#_g120618_| (##structure gx#syntax-quote::t '&extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120345_| + (define |gx[1]#_g120619_| (##structure gx#syntax-quote::t '&extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120346_| + (define |gx[1]#_g120620_| (##structure gx#syntax-quote::t '&extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120348_| + (define |gx[1]#_g120622_| (##structure gx#syntax-quote::t '&extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120349_| + (define |gx[1]#_g120623_| (##structure gx#syntax-quote::t '&extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120350_| + (define |gx[1]#_g120624_| (##structure gx#syntax-quote::t '&extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120353_| + (define |gx[1]#_g120627_| (##structure gx#syntax-quote::t 'syntax-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120355_| + (define |gx[1]#_g120629_| (##structure gx#syntax-quote::t 'make-syntax-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g120357_| + (define |gx[1]#_g120631_| (##structure gx#syntax-quote::t 'syntax-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120359_| + (define |gx[1]#_g120633_| (##structure gx#syntax-quote::t 'syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120360_| + (define |gx[1]#_g120634_| (##structure gx#syntax-quote::t 'syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120361_| + (define |gx[1]#_g120635_| (##structure gx#syntax-quote::t 'syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120362_| + (define |gx[1]#_g120636_| (##structure gx#syntax-quote::t 'syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120364_| + (define |gx[1]#_g120638_| (##structure gx#syntax-quote::t 'syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120365_| + (define |gx[1]#_g120639_| (##structure gx#syntax-quote::t 'syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120366_| + (define |gx[1]#_g120640_| (##structure gx#syntax-quote::t 'syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120367_| + (define |gx[1]#_g120641_| (##structure gx#syntax-quote::t 'syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120369_| + (define |gx[1]#_g120643_| (##structure gx#syntax-quote::t '&syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120370_| + (define |gx[1]#_g120644_| (##structure gx#syntax-quote::t '&syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120371_| + (define |gx[1]#_g120645_| (##structure gx#syntax-quote::t '&syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120372_| + (define |gx[1]#_g120646_| (##structure gx#syntax-quote::t '&syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120374_| + (define |gx[1]#_g120648_| (##structure gx#syntax-quote::t '&syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120375_| + (define |gx[1]#_g120649_| (##structure gx#syntax-quote::t '&syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120376_| + (define |gx[1]#_g120650_| (##structure gx#syntax-quote::t '&syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120377_| + (define |gx[1]#_g120651_| (##structure gx#syntax-quote::t '&syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120380_| + (define |gx[1]#_g120654_| (##structure gx#syntax-quote::t 'import-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120382_| + (define |gx[1]#_g120656_| (##structure gx#syntax-quote::t 'make-import-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g120384_| + (define |gx[1]#_g120658_| (##structure gx#syntax-quote::t 'import-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120386_| + (define |gx[1]#_g120660_| (##structure gx#syntax-quote::t 'import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120387_| + (define |gx[1]#_g120661_| (##structure gx#syntax-quote::t 'import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120388_| + (define |gx[1]#_g120662_| (##structure gx#syntax-quote::t 'import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120389_| + (define |gx[1]#_g120663_| (##structure gx#syntax-quote::t 'import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120390_| + (define |gx[1]#_g120664_| (##structure gx#syntax-quote::t 'import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120391_| + (define |gx[1]#_g120665_| (##structure gx#syntax-quote::t 'import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120393_| + (define |gx[1]#_g120667_| (##structure gx#syntax-quote::t 'import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120394_| + (define |gx[1]#_g120668_| (##structure gx#syntax-quote::t 'import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120395_| + (define |gx[1]#_g120669_| (##structure gx#syntax-quote::t 'import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120396_| + (define |gx[1]#_g120670_| (##structure gx#syntax-quote::t 'import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120397_| + (define |gx[1]#_g120671_| (##structure gx#syntax-quote::t 'import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120398_| + (define |gx[1]#_g120672_| (##structure gx#syntax-quote::t 'import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120400_| + (define |gx[1]#_g120674_| (##structure gx#syntax-quote::t '&import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120401_| + (define |gx[1]#_g120675_| (##structure gx#syntax-quote::t '&import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120402_| + (define |gx[1]#_g120676_| (##structure gx#syntax-quote::t '&import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120403_| + (define |gx[1]#_g120677_| (##structure gx#syntax-quote::t '&import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120404_| + (define |gx[1]#_g120678_| (##structure gx#syntax-quote::t '&import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120405_| + (define |gx[1]#_g120679_| (##structure gx#syntax-quote::t '&import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120407_| + (define |gx[1]#_g120681_| (##structure gx#syntax-quote::t '&import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120408_| + (define |gx[1]#_g120682_| (##structure gx#syntax-quote::t '&import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120409_| + (define |gx[1]#_g120683_| (##structure gx#syntax-quote::t '&import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120410_| + (define |gx[1]#_g120684_| (##structure gx#syntax-quote::t '&import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120411_| + (define |gx[1]#_g120685_| (##structure gx#syntax-quote::t '&import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120412_| + (define |gx[1]#_g120686_| (##structure gx#syntax-quote::t '&import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120415_| + (define |gx[1]#_g120689_| (##structure gx#syntax-quote::t 'alias-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120417_| + (define |gx[1]#_g120691_| (##structure gx#syntax-quote::t 'make-alias-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g120419_| + (define |gx[1]#_g120693_| (##structure gx#syntax-quote::t 'alias-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120421_| + (define |gx[1]#_g120695_| (##structure gx#syntax-quote::t 'alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120422_| + (define |gx[1]#_g120696_| (##structure gx#syntax-quote::t 'alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120423_| + (define |gx[1]#_g120697_| (##structure gx#syntax-quote::t 'alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120424_| + (define |gx[1]#_g120698_| (##structure gx#syntax-quote::t 'alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120426_| + (define |gx[1]#_g120700_| (##structure gx#syntax-quote::t 'alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120427_| + (define |gx[1]#_g120701_| (##structure gx#syntax-quote::t 'alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120428_| + (define |gx[1]#_g120702_| (##structure gx#syntax-quote::t 'alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120429_| + (define |gx[1]#_g120703_| (##structure gx#syntax-quote::t 'alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120431_| + (define |gx[1]#_g120705_| (##structure gx#syntax-quote::t '&alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120432_| + (define |gx[1]#_g120706_| (##structure gx#syntax-quote::t '&alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120433_| + (define |gx[1]#_g120707_| (##structure gx#syntax-quote::t '&alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g120434_| + (define |gx[1]#_g120708_| (##structure gx#syntax-quote::t '&alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120436_| + (define |gx[1]#_g120710_| (##structure gx#syntax-quote::t '&alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120437_| + (define |gx[1]#_g120711_| (##structure gx#syntax-quote::t '&alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120438_| + (define |gx[1]#_g120712_| (##structure gx#syntax-quote::t '&alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120439_| + (define |gx[1]#_g120713_| (##structure gx#syntax-quote::t '&alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120441_| + (define |gx[1]#_g120715_| (##structure gx#syntax-quote::t 'expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120443_| + (define |gx[1]#_g120717_| (##structure gx#syntax-quote::t 'make-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g120445_| + (define |gx[1]#_g120719_| (##structure gx#syntax-quote::t 'expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120447_| + (define |gx[1]#_g120721_| (##structure gx#syntax-quote::t 'expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120449_| + (define |gx[1]#_g120723_| (##structure gx#syntax-quote::t 'expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120451_| + (define |gx[1]#_g120725_| (##structure gx#syntax-quote::t '&expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120453_| + (define |gx[1]#_g120727_| (##structure gx#syntax-quote::t '&expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120455_| + (define |gx[1]#_g120729_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g120457_| + (define |gx[1]#_g120731_| (##structure gx#syntax-quote::t 'core-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120459_| + (define |gx[1]#_g120733_| (##structure gx#syntax-quote::t 'make-core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g120461_| + (define |gx[1]#_g120735_| (##structure gx#syntax-quote::t 'core-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120463_| + (define |gx[1]#_g120737_| (##structure gx#syntax-quote::t 'core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120464_| + (define |gx[1]#_g120738_| (##structure gx#syntax-quote::t 'core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g120465_| + (define |gx[1]#_g120739_| (##structure gx#syntax-quote::t 'core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120467_| + (define |gx[1]#_g120741_| (##structure gx#syntax-quote::t 'core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120468_| + (define |gx[1]#_g120742_| (##structure gx#syntax-quote::t 'core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120469_| + (define |gx[1]#_g120743_| (##structure gx#syntax-quote::t 'core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120471_| + (define |gx[1]#_g120745_| (##structure gx#syntax-quote::t '&core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120472_| + (define |gx[1]#_g120746_| (##structure gx#syntax-quote::t '&core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g120473_| + (define |gx[1]#_g120747_| (##structure gx#syntax-quote::t '&core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120475_| + (define |gx[1]#_g120749_| (##structure gx#syntax-quote::t '&core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120476_| + (define |gx[1]#_g120750_| (##structure gx#syntax-quote::t '&core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120477_| + (define |gx[1]#_g120751_| (##structure gx#syntax-quote::t '&core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120479_| + (define |gx[1]#_g120753_| (##structure gx#syntax-quote::t 'core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g120481_| + (define |gx[1]#_g120755_| (##structure gx#syntax-quote::t 'expression-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120483_| + (define |gx[1]#_g120757_| (##structure gx#syntax-quote::t 'make-expression-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g120485_| + (define |gx[1]#_g120759_| (##structure gx#syntax-quote::t 'expression-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120487_| + (define |gx[1]#_g120761_| (##structure gx#syntax-quote::t 'expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120488_| + (define |gx[1]#_g120762_| (##structure gx#syntax-quote::t 'expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g120489_| + (define |gx[1]#_g120763_| (##structure gx#syntax-quote::t 'expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120491_| + (define |gx[1]#_g120765_| (##structure gx#syntax-quote::t 'expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120492_| + (define |gx[1]#_g120766_| (##structure gx#syntax-quote::t 'expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120493_| + (define |gx[1]#_g120767_| (##structure gx#syntax-quote::t 'expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120495_| + (define |gx[1]#_g120769_| (##structure gx#syntax-quote::t '&expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120496_| + (define |gx[1]#_g120770_| (##structure gx#syntax-quote::t '&expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g120497_| + (define |gx[1]#_g120771_| (##structure gx#syntax-quote::t '&expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120499_| + (define |gx[1]#_g120773_| (##structure gx#syntax-quote::t '&expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120500_| + (define |gx[1]#_g120774_| (##structure gx#syntax-quote::t '&expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120501_| + (define |gx[1]#_g120775_| (##structure gx#syntax-quote::t '&expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120504_| + (define |gx[1]#_g120778_| (##structure gx#syntax-quote::t 'special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120506_| + (define |gx[1]#_g120780_| (##structure gx#syntax-quote::t 'make-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g120508_| + (define |gx[1]#_g120782_| (##structure gx#syntax-quote::t 'special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120510_| + (define |gx[1]#_g120784_| (##structure gx#syntax-quote::t 'special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120511_| + (define |gx[1]#_g120785_| (##structure gx#syntax-quote::t 'special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g120512_| + (define |gx[1]#_g120786_| (##structure gx#syntax-quote::t 'special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120514_| + (define |gx[1]#_g120788_| (##structure gx#syntax-quote::t 'special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120515_| + (define |gx[1]#_g120789_| (##structure gx#syntax-quote::t 'special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120516_| + (define |gx[1]#_g120790_| (##structure gx#syntax-quote::t 'special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120518_| + (define |gx[1]#_g120792_| (##structure gx#syntax-quote::t '&special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120519_| + (define |gx[1]#_g120793_| (##structure gx#syntax-quote::t '&special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g120520_| + (define |gx[1]#_g120794_| (##structure gx#syntax-quote::t '&special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120522_| + (define |gx[1]#_g120796_| (##structure gx#syntax-quote::t '&special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120523_| + (define |gx[1]#_g120797_| (##structure gx#syntax-quote::t '&special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120524_| + (define |gx[1]#_g120798_| (##structure gx#syntax-quote::t '&special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120526_| + (define |gx[1]#_g120800_| (##structure gx#syntax-quote::t 'special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g120528_| + (define |gx[1]#_g120802_| (##structure gx#syntax-quote::t 'definition-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120530_| + (define |gx[1]#_g120804_| (##structure gx#syntax-quote::t 'make-definition-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g120532_| + (define |gx[1]#_g120806_| (##structure gx#syntax-quote::t 'definition-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120534_| + (define |gx[1]#_g120808_| (##structure gx#syntax-quote::t 'definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120535_| + (define |gx[1]#_g120809_| (##structure gx#syntax-quote::t 'definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g120536_| + (define |gx[1]#_g120810_| (##structure gx#syntax-quote::t 'definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120538_| + (define |gx[1]#_g120812_| (##structure gx#syntax-quote::t 'definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120539_| + (define |gx[1]#_g120813_| (##structure gx#syntax-quote::t 'definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120540_| + (define |gx[1]#_g120814_| (##structure gx#syntax-quote::t 'definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120542_| + (define |gx[1]#_g120816_| (##structure gx#syntax-quote::t '&definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120543_| + (define |gx[1]#_g120817_| (##structure gx#syntax-quote::t '&definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g120544_| + (define |gx[1]#_g120818_| (##structure gx#syntax-quote::t '&definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120546_| + (define |gx[1]#_g120820_| (##structure gx#syntax-quote::t '&definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120547_| + (define |gx[1]#_g120821_| (##structure gx#syntax-quote::t '&definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120548_| + (define |gx[1]#_g120822_| (##structure gx#syntax-quote::t '&definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120551_| + (define |gx[1]#_g120825_| (##structure gx#syntax-quote::t 'top-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120553_| + (define |gx[1]#_g120827_| (##structure gx#syntax-quote::t 'make-top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g120555_| + (define |gx[1]#_g120829_| (##structure gx#syntax-quote::t 'top-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120557_| + (define |gx[1]#_g120831_| (##structure gx#syntax-quote::t 'top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120558_| + (define |gx[1]#_g120832_| (##structure gx#syntax-quote::t 'top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g120559_| + (define |gx[1]#_g120833_| (##structure gx#syntax-quote::t 'top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120561_| + (define |gx[1]#_g120835_| (##structure gx#syntax-quote::t 'top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120562_| + (define |gx[1]#_g120836_| (##structure gx#syntax-quote::t 'top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120563_| + (define |gx[1]#_g120837_| (##structure gx#syntax-quote::t 'top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120565_| + (define |gx[1]#_g120839_| (##structure gx#syntax-quote::t '&top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120566_| + (define |gx[1]#_g120840_| (##structure gx#syntax-quote::t '&top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g120567_| + (define |gx[1]#_g120841_| (##structure gx#syntax-quote::t '&top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120569_| + (define |gx[1]#_g120843_| (##structure gx#syntax-quote::t '&top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120570_| + (define |gx[1]#_g120844_| (##structure gx#syntax-quote::t '&top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120571_| + (define |gx[1]#_g120845_| (##structure gx#syntax-quote::t '&top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120573_| + (define |gx[1]#_g120847_| (##structure gx#syntax-quote::t 'top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g120575_| + (define |gx[1]#_g120849_| (##structure gx#syntax-quote::t 'module-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120577_| + (define |gx[1]#_g120851_| (##structure gx#syntax-quote::t 'make-module-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g120579_| + (define |gx[1]#_g120853_| (##structure gx#syntax-quote::t 'module-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120581_| + (define |gx[1]#_g120855_| (##structure gx#syntax-quote::t 'module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120582_| + (define |gx[1]#_g120856_| (##structure gx#syntax-quote::t 'module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g120583_| + (define |gx[1]#_g120857_| (##structure gx#syntax-quote::t 'module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120585_| + (define |gx[1]#_g120859_| (##structure gx#syntax-quote::t 'module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120586_| + (define |gx[1]#_g120860_| (##structure gx#syntax-quote::t 'module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120587_| + (define |gx[1]#_g120861_| (##structure gx#syntax-quote::t 'module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120589_| + (define |gx[1]#_g120863_| (##structure gx#syntax-quote::t '&module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g120590_| + (define |gx[1]#_g120864_| (##structure gx#syntax-quote::t '&module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g120591_| + (define |gx[1]#_g120865_| (##structure gx#syntax-quote::t '&module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120593_| + (define |gx[1]#_g120867_| (##structure gx#syntax-quote::t '&module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120594_| + (define |gx[1]#_g120868_| (##structure gx#syntax-quote::t '&module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120595_| + (define |gx[1]#_g120869_| (##structure gx#syntax-quote::t '&module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120598_| + (define |gx[1]#_g120872_| (##structure gx#syntax-quote::t 'feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120600_| + (define |gx[1]#_g120874_| (##structure gx#syntax-quote::t 'make-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g120602_| + (define |gx[1]#_g120876_| (##structure gx#syntax-quote::t 'feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120604_| + (define |gx[1]#_g120878_| (##structure gx#syntax-quote::t 'feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120606_| + (define |gx[1]#_g120880_| (##structure gx#syntax-quote::t 'feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120608_| + (define |gx[1]#_g120882_| (##structure gx#syntax-quote::t '&feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120610_| + (define |gx[1]#_g120884_| (##structure gx#syntax-quote::t '&feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120612_| + (define |gx[1]#_g120886_| (##structure gx#syntax-quote::t 'feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g120614_| + (define |gx[1]#_g120888_| (##structure gx#syntax-quote::t 'private-feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120616_| + (define |gx[1]#_g120890_| (##structure gx#syntax-quote::t 'make-private-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g120618_| + (define |gx[1]#_g120892_| (##structure gx#syntax-quote::t 'private-feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120620_| + (define |gx[1]#_g120894_| (##structure gx#syntax-quote::t 'private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120622_| + (define |gx[1]#_g120896_| (##structure gx#syntax-quote::t 'private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120624_| + (define |gx[1]#_g120898_| (##structure gx#syntax-quote::t '&private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120626_| + (define |gx[1]#_g120900_| (##structure gx#syntax-quote::t '&private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120629_| + (define |gx[1]#_g120903_| (##structure gx#syntax-quote::t 'reserved-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120631_| + (define |gx[1]#_g120905_| (##structure gx#syntax-quote::t 'make-reserved-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g120633_| + (define |gx[1]#_g120907_| (##structure gx#syntax-quote::t 'reserved-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120635_| + (define |gx[1]#_g120909_| (##structure gx#syntax-quote::t 'reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120637_| + (define |gx[1]#_g120911_| (##structure gx#syntax-quote::t 'reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120639_| + (define |gx[1]#_g120913_| (##structure gx#syntax-quote::t '&reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120641_| + (define |gx[1]#_g120915_| (##structure gx#syntax-quote::t '&reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120644_| + (define |gx[1]#_g120918_| (##structure gx#syntax-quote::t 'macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120646_| + (define |gx[1]#_g120920_| (##structure gx#syntax-quote::t 'make-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g120648_| + (define |gx[1]#_g120922_| (##structure gx#syntax-quote::t 'macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120650_| + (define |gx[1]#_g120924_| (##structure gx#syntax-quote::t 'macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120652_| + (define |gx[1]#_g120926_| (##structure gx#syntax-quote::t 'macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120654_| + (define |gx[1]#_g120928_| (##structure gx#syntax-quote::t '¯o-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120656_| + (define |gx[1]#_g120930_| (##structure gx#syntax-quote::t '¯o-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120658_| + (define |gx[1]#_g120932_| (##structure gx#syntax-quote::t 'macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g120660_| + (define |gx[1]#_g120934_| (##structure gx#syntax-quote::t 'rename-macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120662_| + (define |gx[1]#_g120936_| (##structure gx#syntax-quote::t 'make-rename-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g120664_| + (define |gx[1]#_g120938_| (##structure gx#syntax-quote::t 'rename-macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120666_| + (define |gx[1]#_g120940_| (##structure gx#syntax-quote::t 'rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120668_| + (define |gx[1]#_g120942_| (##structure gx#syntax-quote::t 'rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120670_| + (define |gx[1]#_g120944_| (##structure gx#syntax-quote::t '&rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120672_| + (define |gx[1]#_g120946_| (##structure gx#syntax-quote::t '&rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120675_| + (define |gx[1]#_g120949_| (##structure gx#syntax-quote::t 'user-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120677_| + (define |gx[1]#_g120951_| (##structure gx#syntax-quote::t 'make-user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g120679_| + (define |gx[1]#_g120953_| (##structure gx#syntax-quote::t 'user-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120681_| + (define |gx[1]#_g120955_| (##structure gx#syntax-quote::t 'user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120682_| + (define |gx[1]#_g120956_| (##structure gx#syntax-quote::t 'user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120683_| + (define |gx[1]#_g120957_| (##structure gx#syntax-quote::t 'user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120685_| + (define |gx[1]#_g120959_| (##structure gx#syntax-quote::t 'user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120686_| + (define |gx[1]#_g120960_| (##structure gx#syntax-quote::t 'user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120687_| + (define |gx[1]#_g120961_| (##structure gx#syntax-quote::t 'user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120689_| + (define |gx[1]#_g120963_| (##structure gx#syntax-quote::t '&user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120690_| + (define |gx[1]#_g120964_| (##structure gx#syntax-quote::t '&user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120691_| + (define |gx[1]#_g120965_| (##structure gx#syntax-quote::t '&user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g120693_| + (define |gx[1]#_g120967_| (##structure gx#syntax-quote::t '&user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120694_| + (define |gx[1]#_g120968_| (##structure gx#syntax-quote::t '&user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120695_| + (define |gx[1]#_g120969_| (##structure gx#syntax-quote::t '&user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120697_| + (define |gx[1]#_g120971_| (##structure gx#syntax-quote::t 'expander-mark::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g120699_| + (define |gx[1]#_g120973_| (##structure gx#syntax-quote::t 'make-expander-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g120701_| + (define |gx[1]#_g120975_| (##structure gx#syntax-quote::t 'expander-mark? #f (gx#current-expander-context) '())) - (define |gx[1]#_g120703_| + (define |gx[1]#_g120977_| (##structure gx#syntax-quote::t 'expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g120704_| + (define |gx[1]#_g120978_| (##structure gx#syntax-quote::t 'expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120705_| + (define |gx[1]#_g120979_| (##structure gx#syntax-quote::t 'expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120706_| + (define |gx[1]#_g120980_| (##structure gx#syntax-quote::t 'expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g120708_| + (define |gx[1]#_g120982_| (##structure gx#syntax-quote::t 'expander-mark-subst-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120709_| + (define |gx[1]#_g120983_| (##structure gx#syntax-quote::t 'expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120710_| + (define |gx[1]#_g120984_| (##structure gx#syntax-quote::t 'expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120711_| + (define |gx[1]#_g120985_| (##structure gx#syntax-quote::t 'expander-mark-trace-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120713_| + (define |gx[1]#_g120987_| (##structure gx#syntax-quote::t '&expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g120714_| + (define |gx[1]#_g120988_| (##structure gx#syntax-quote::t '&expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g120715_| + (define |gx[1]#_g120989_| (##structure gx#syntax-quote::t '&expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g120716_| + (define |gx[1]#_g120990_| (##structure gx#syntax-quote::t '&expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g120718_| + (define |gx[1]#_g120992_| (##structure gx#syntax-quote::t '&expander-mark-subst-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120719_| + (define |gx[1]#_g120993_| (##structure gx#syntax-quote::t '&expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120720_| + (define |gx[1]#_g120994_| (##structure gx#syntax-quote::t '&expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g120721_| + (define |gx[1]#_g120995_| (##structure gx#syntax-quote::t '&expander-mark-trace-set! @@ -3572,7 +3572,7 @@ '())) (begin (define |gx[:0:]#expander-context| - (let ((__obj119895 + (let ((__obj120169 (let () (declare (not safe)) (##structure @@ -3601,7 +3601,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119895 + __obj120169 'gx#expander-context::t '1 '#f @@ -3609,73 +3609,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119895 + __obj120169 'expander-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119895 '(id table) '4 '#f '#f)) + (##unchecked-structure-set! __obj120169 '(id table) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119895 '(id table) '6 '#f '#f)) + (##unchecked-structure-set! __obj120169 '(id table) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119895 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj120169 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119895 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120169 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119895 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj120169 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119895 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120169 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119895 ':init! '11 '#f '#f)) - (let ((__tmp119976 |gx[1]#_g119977_|)) + (##unchecked-structure-set! __obj120169 ':init! '11 '#f '#f)) + (let ((__tmp120250 |gx[1]#_g120251_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119895 __tmp119976 '12 '#f '#f)) - (let ((__tmp119978 |gx[1]#_g119979_|)) + (##unchecked-structure-set! __obj120169 __tmp120250 '12 '#f '#f)) + (let ((__tmp120252 |gx[1]#_g120253_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119895 __tmp119978 '13 '#f '#f)) - (let ((__tmp119980 |gx[1]#_g119981_|)) + (##unchecked-structure-set! __obj120169 __tmp120252 '13 '#f '#f)) + (let ((__tmp120254 |gx[1]#_g120255_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119895 __tmp119980 '14 '#f '#f)) - (let ((__tmp119982 - (cons (cons 'id |gx[1]#_g119983_|) - (cons (cons 'table |gx[1]#_g119984_|) '())))) + (##unchecked-structure-set! __obj120169 __tmp120254 '14 '#f '#f)) + (let ((__tmp120256 + (cons (cons 'id |gx[1]#_g120257_|) + (cons (cons 'table |gx[1]#_g120258_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj119895 __tmp119982 '15 '#f '#f)) - (let ((__tmp119985 - (cons (cons 'id |gx[1]#_g119986_|) - (cons (cons 'table |gx[1]#_g119987_|) '())))) + (##unchecked-structure-set! __obj120169 __tmp120256 '15 '#f '#f)) + (let ((__tmp120259 + (cons (cons 'id |gx[1]#_g120260_|) + (cons (cons 'table |gx[1]#_g120261_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj119895 __tmp119985 '16 '#f '#f)) - (let ((__tmp119988 - (cons (cons 'id |gx[1]#_g119989_|) - (cons (cons 'table |gx[1]#_g119990_|) '())))) + (##unchecked-structure-set! __obj120169 __tmp120259 '16 '#f '#f)) + (let ((__tmp120262 + (cons (cons 'id |gx[1]#_g120263_|) + (cons (cons 'table |gx[1]#_g120264_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj119895 __tmp119988 '17 '#f '#f)) - (let ((__tmp119991 - (cons (cons 'id |gx[1]#_g119992_|) - (cons (cons 'table |gx[1]#_g119993_|) '())))) + (##unchecked-structure-set! __obj120169 __tmp120262 '17 '#f '#f)) + (let ((__tmp120265 + (cons (cons 'id |gx[1]#_g120266_|) + (cons (cons 'table |gx[1]#_g120267_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj119895 __tmp119991 '18 '#f '#f)) + (##unchecked-structure-set! __obj120169 __tmp120265 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119895 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120169 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119895 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120169 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119895 '() '20 '#f '#f)) - __obj119895)) + (##unchecked-structure-set! __obj120169 '() '20 '#f '#f)) + __obj120169)) (define |gx[:0:]#root-context| - (let ((__obj119896 + (let ((__obj120170 (let () (declare (not safe)) (##structure @@ -3704,76 +3704,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119896 + __obj120170 'gx#root-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119896 'root-context '2 '#f '#f)) + (##unchecked-structure-set! __obj120170 'root-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119896 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj120170 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119896 '(id table) '6 '#f '#f)) - (let ((__tmp119994 (cons |gx[1]#_g119995_| '()))) + (##unchecked-structure-set! __obj120170 '(id table) '6 '#f '#f)) + (let ((__tmp120268 (cons |gx[1]#_g120269_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119896 __tmp119994 '3 '#f '#f)) + (##unchecked-structure-set! __obj120170 __tmp120268 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119896 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120170 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119896 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj120170 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119896 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120170 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119896 '#f '11 '#f '#f)) - (let ((__tmp119996 |gx[1]#_g119997_|)) + (##unchecked-structure-set! __obj120170 '#f '11 '#f '#f)) + (let ((__tmp120270 |gx[1]#_g120271_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119896 __tmp119996 '12 '#f '#f)) - (let ((__tmp119998 |gx[1]#_g119999_|)) + (##unchecked-structure-set! __obj120170 __tmp120270 '12 '#f '#f)) + (let ((__tmp120272 |gx[1]#_g120273_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119896 __tmp119998 '13 '#f '#f)) - (let ((__tmp120000 |gx[1]#_g120001_|)) + (##unchecked-structure-set! __obj120170 __tmp120272 '13 '#f '#f)) + (let ((__tmp120274 |gx[1]#_g120275_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119896 __tmp120000 '14 '#f '#f)) - (let ((__tmp120002 - (cons (cons 'id |gx[1]#_g120003_|) - (cons (cons 'table |gx[1]#_g120004_|) '())))) + (##unchecked-structure-set! __obj120170 __tmp120274 '14 '#f '#f)) + (let ((__tmp120276 + (cons (cons 'id |gx[1]#_g120277_|) + (cons (cons 'table |gx[1]#_g120278_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj119896 __tmp120002 '15 '#f '#f)) - (let ((__tmp120005 - (cons (cons 'id |gx[1]#_g120006_|) - (cons (cons 'table |gx[1]#_g120007_|) '())))) + (##unchecked-structure-set! __obj120170 __tmp120276 '15 '#f '#f)) + (let ((__tmp120279 + (cons (cons 'id |gx[1]#_g120280_|) + (cons (cons 'table |gx[1]#_g120281_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj119896 __tmp120005 '16 '#f '#f)) - (let ((__tmp120008 - (cons (cons 'id |gx[1]#_g120009_|) - (cons (cons 'table |gx[1]#_g120010_|) '())))) + (##unchecked-structure-set! __obj120170 __tmp120279 '16 '#f '#f)) + (let ((__tmp120282 + (cons (cons 'id |gx[1]#_g120283_|) + (cons (cons 'table |gx[1]#_g120284_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj119896 __tmp120008 '17 '#f '#f)) - (let ((__tmp120011 - (cons (cons 'id |gx[1]#_g120012_|) - (cons (cons 'table |gx[1]#_g120013_|) '())))) + (##unchecked-structure-set! __obj120170 __tmp120282 '17 '#f '#f)) + (let ((__tmp120285 + (cons (cons 'id |gx[1]#_g120286_|) + (cons (cons 'table |gx[1]#_g120287_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj119896 __tmp120011 '18 '#f '#f)) + (##unchecked-structure-set! __obj120170 __tmp120285 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119896 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120170 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119896 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120170 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119896 '() '20 '#f '#f)) - __obj119896)) + (##unchecked-structure-set! __obj120170 '() '20 '#f '#f)) + __obj120170)) (define |gx[:0:]#phi-context| - (let ((__obj119897 + (let ((__obj120171 (let () (declare (not safe)) (##structure @@ -3802,97 +3802,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119897 + __obj120171 'gx#phi-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119897 'phi-context '2 '#f '#f)) + (##unchecked-structure-set! __obj120171 'phi-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119897 '(super up down) '4 '#f '#f)) + (##unchecked-structure-set! __obj120171 '(super up down) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119897 + __obj120171 '(id table super up down) '6 '#f '#f)) - (let ((__tmp120014 (cons |gx[1]#_g119995_| '()))) + (let ((__tmp120288 (cons |gx[1]#_g120269_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119897 __tmp120014 '3 '#f '#f)) + (##unchecked-structure-set! __obj120171 __tmp120288 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119897 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120171 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119897 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj120171 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119897 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120171 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119897 '#f '11 '#f '#f)) - (let ((__tmp120015 |gx[1]#_g120016_|)) + (##unchecked-structure-set! __obj120171 '#f '11 '#f '#f)) + (let ((__tmp120289 |gx[1]#_g120290_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119897 __tmp120015 '12 '#f '#f)) - (let ((__tmp120017 |gx[1]#_g120018_|)) + (##unchecked-structure-set! __obj120171 __tmp120289 '12 '#f '#f)) + (let ((__tmp120291 |gx[1]#_g120292_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119897 __tmp120017 '13 '#f '#f)) - (let ((__tmp120019 |gx[1]#_g120020_|)) + (##unchecked-structure-set! __obj120171 __tmp120291 '13 '#f '#f)) + (let ((__tmp120293 |gx[1]#_g120294_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119897 __tmp120019 '14 '#f '#f)) - (let ((__tmp120021 - (cons (cons 'super |gx[1]#_g120022_|) - (cons (cons 'up |gx[1]#_g120023_|) - (cons (cons 'down |gx[1]#_g120024_|) - (cons (cons 'id |gx[1]#_g120025_|) - (cons (cons 'table |gx[1]#_g120026_|) + (##unchecked-structure-set! __obj120171 __tmp120293 '14 '#f '#f)) + (let ((__tmp120295 + (cons (cons 'super |gx[1]#_g120296_|) + (cons (cons 'up |gx[1]#_g120297_|) + (cons (cons 'down |gx[1]#_g120298_|) + (cons (cons 'id |gx[1]#_g120299_|) + (cons (cons 'table |gx[1]#_g120300_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj119897 __tmp120021 '15 '#f '#f)) - (let ((__tmp120027 - (cons (cons 'super |gx[1]#_g120028_|) - (cons (cons 'up |gx[1]#_g120029_|) - (cons (cons 'down |gx[1]#_g120030_|) - (cons (cons 'id |gx[1]#_g120031_|) - (cons (cons 'table |gx[1]#_g120032_|) + (##unchecked-structure-set! __obj120171 __tmp120295 '15 '#f '#f)) + (let ((__tmp120301 + (cons (cons 'super |gx[1]#_g120302_|) + (cons (cons 'up |gx[1]#_g120303_|) + (cons (cons 'down |gx[1]#_g120304_|) + (cons (cons 'id |gx[1]#_g120305_|) + (cons (cons 'table |gx[1]#_g120306_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj119897 __tmp120027 '16 '#f '#f)) - (let ((__tmp120033 - (cons (cons 'super |gx[1]#_g120034_|) - (cons (cons 'up |gx[1]#_g120035_|) - (cons (cons 'down |gx[1]#_g120036_|) - (cons (cons 'id |gx[1]#_g120037_|) - (cons (cons 'table |gx[1]#_g120038_|) + (##unchecked-structure-set! __obj120171 __tmp120301 '16 '#f '#f)) + (let ((__tmp120307 + (cons (cons 'super |gx[1]#_g120308_|) + (cons (cons 'up |gx[1]#_g120309_|) + (cons (cons 'down |gx[1]#_g120310_|) + (cons (cons 'id |gx[1]#_g120311_|) + (cons (cons 'table |gx[1]#_g120312_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj119897 __tmp120033 '17 '#f '#f)) - (let ((__tmp120039 - (cons (cons 'super |gx[1]#_g120040_|) - (cons (cons 'up |gx[1]#_g120041_|) - (cons (cons 'down |gx[1]#_g120042_|) - (cons (cons 'id |gx[1]#_g120043_|) - (cons (cons 'table |gx[1]#_g120044_|) + (##unchecked-structure-set! __obj120171 __tmp120307 '17 '#f '#f)) + (let ((__tmp120313 + (cons (cons 'super |gx[1]#_g120314_|) + (cons (cons 'up |gx[1]#_g120315_|) + (cons (cons 'down |gx[1]#_g120316_|) + (cons (cons 'id |gx[1]#_g120317_|) + (cons (cons 'table |gx[1]#_g120318_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj119897 __tmp120039 '18 '#f '#f)) + (##unchecked-structure-set! __obj120171 __tmp120313 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119897 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120171 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119897 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120171 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119897 '() '20 '#f '#f)) - __obj119897)) + (##unchecked-structure-set! __obj120171 '() '20 '#f '#f)) + __obj120171)) (define |gx[:0:]#top-context| - (let ((__obj119898 + (let ((__obj120172 (let () (declare (not safe)) (##structure @@ -3921,97 +3921,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119898 + __obj120172 'gx#top-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119898 'top-context '2 '#f '#f)) + (##unchecked-structure-set! __obj120172 'top-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119898 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj120172 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119898 + __obj120172 '(id table super up down) '6 '#f '#f)) - (let ((__tmp120045 (cons |gx[1]#_g120046_| '()))) + (let ((__tmp120319 (cons |gx[1]#_g120320_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119898 __tmp120045 '3 '#f '#f)) + (##unchecked-structure-set! __obj120172 __tmp120319 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119898 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120172 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119898 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj120172 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119898 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120172 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119898 '#f '11 '#f '#f)) - (let ((__tmp120047 |gx[1]#_g120048_|)) + (##unchecked-structure-set! __obj120172 '#f '11 '#f '#f)) + (let ((__tmp120321 |gx[1]#_g120322_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119898 __tmp120047 '12 '#f '#f)) - (let ((__tmp120049 |gx[1]#_g120050_|)) + (##unchecked-structure-set! __obj120172 __tmp120321 '12 '#f '#f)) + (let ((__tmp120323 |gx[1]#_g120324_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119898 __tmp120049 '13 '#f '#f)) - (let ((__tmp120051 |gx[1]#_g120052_|)) + (##unchecked-structure-set! __obj120172 __tmp120323 '13 '#f '#f)) + (let ((__tmp120325 |gx[1]#_g120326_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119898 __tmp120051 '14 '#f '#f)) - (let ((__tmp120053 - (cons (cons 'super |gx[1]#_g120054_|) - (cons (cons 'up |gx[1]#_g120055_|) - (cons (cons 'down |gx[1]#_g120056_|) - (cons (cons 'id |gx[1]#_g120057_|) - (cons (cons 'table |gx[1]#_g120058_|) + (##unchecked-structure-set! __obj120172 __tmp120325 '14 '#f '#f)) + (let ((__tmp120327 + (cons (cons 'super |gx[1]#_g120328_|) + (cons (cons 'up |gx[1]#_g120329_|) + (cons (cons 'down |gx[1]#_g120330_|) + (cons (cons 'id |gx[1]#_g120331_|) + (cons (cons 'table |gx[1]#_g120332_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj119898 __tmp120053 '15 '#f '#f)) - (let ((__tmp120059 - (cons (cons 'super |gx[1]#_g120060_|) - (cons (cons 'up |gx[1]#_g120061_|) - (cons (cons 'down |gx[1]#_g120062_|) - (cons (cons 'id |gx[1]#_g120063_|) - (cons (cons 'table |gx[1]#_g120064_|) + (##unchecked-structure-set! __obj120172 __tmp120327 '15 '#f '#f)) + (let ((__tmp120333 + (cons (cons 'super |gx[1]#_g120334_|) + (cons (cons 'up |gx[1]#_g120335_|) + (cons (cons 'down |gx[1]#_g120336_|) + (cons (cons 'id |gx[1]#_g120337_|) + (cons (cons 'table |gx[1]#_g120338_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj119898 __tmp120059 '16 '#f '#f)) - (let ((__tmp120065 - (cons (cons 'super |gx[1]#_g120066_|) - (cons (cons 'up |gx[1]#_g120067_|) - (cons (cons 'down |gx[1]#_g120068_|) - (cons (cons 'id |gx[1]#_g120069_|) - (cons (cons 'table |gx[1]#_g120070_|) + (##unchecked-structure-set! __obj120172 __tmp120333 '16 '#f '#f)) + (let ((__tmp120339 + (cons (cons 'super |gx[1]#_g120340_|) + (cons (cons 'up |gx[1]#_g120341_|) + (cons (cons 'down |gx[1]#_g120342_|) + (cons (cons 'id |gx[1]#_g120343_|) + (cons (cons 'table |gx[1]#_g120344_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj119898 __tmp120065 '17 '#f '#f)) - (let ((__tmp120071 - (cons (cons 'super |gx[1]#_g120072_|) - (cons (cons 'up |gx[1]#_g120073_|) - (cons (cons 'down |gx[1]#_g120074_|) - (cons (cons 'id |gx[1]#_g120075_|) - (cons (cons 'table |gx[1]#_g120076_|) + (##unchecked-structure-set! __obj120172 __tmp120339 '17 '#f '#f)) + (let ((__tmp120345 + (cons (cons 'super |gx[1]#_g120346_|) + (cons (cons 'up |gx[1]#_g120347_|) + (cons (cons 'down |gx[1]#_g120348_|) + (cons (cons 'id |gx[1]#_g120349_|) + (cons (cons 'table |gx[1]#_g120350_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj119898 __tmp120071 '18 '#f '#f)) + (##unchecked-structure-set! __obj120172 __tmp120345 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119898 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120172 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119898 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120172 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119898 '() '20 '#f '#f)) - __obj119898)) + (##unchecked-structure-set! __obj120172 '() '20 '#f '#f)) + __obj120172)) (define |gx[:0:]#module-context| - (let ((__obj119899 + (let ((__obj120173 (let () (declare (not safe)) (##structure @@ -4040,18 +4040,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119899 + __obj120173 'gx#module-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119899 'module-context '2 '#f '#f)) + (##unchecked-structure-set! __obj120173 'module-context '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119899 + __obj120173 '(ns path import export e code) '4 '#f @@ -4059,127 +4059,127 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119899 + __obj120173 '(id table super up down ns path import export e code) '6 '#f '#f)) - (let ((__tmp120077 (cons |gx[1]#_g120078_| '()))) + (let ((__tmp120351 (cons |gx[1]#_g120352_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119899 __tmp120077 '3 '#f '#f)) + (##unchecked-structure-set! __obj120173 __tmp120351 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119899 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120173 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119899 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj120173 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119899 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120173 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119899 '#f '11 '#f '#f)) - (let ((__tmp120079 |gx[1]#_g120080_|)) + (##unchecked-structure-set! __obj120173 '#f '11 '#f '#f)) + (let ((__tmp120353 |gx[1]#_g120354_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119899 __tmp120079 '12 '#f '#f)) - (let ((__tmp120081 |gx[1]#_g120082_|)) + (##unchecked-structure-set! __obj120173 __tmp120353 '12 '#f '#f)) + (let ((__tmp120355 |gx[1]#_g120356_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119899 __tmp120081 '13 '#f '#f)) - (let ((__tmp120083 |gx[1]#_g120084_|)) + (##unchecked-structure-set! __obj120173 __tmp120355 '13 '#f '#f)) + (let ((__tmp120357 |gx[1]#_g120358_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119899 __tmp120083 '14 '#f '#f)) - (let ((__tmp120085 - (cons (cons 'ns |gx[1]#_g120086_|) - (cons (cons 'path |gx[1]#_g120087_|) - (cons (cons 'import |gx[1]#_g120088_|) - (cons (cons 'export |gx[1]#_g120089_|) - (cons (cons 'e |gx[1]#_g120090_|) + (##unchecked-structure-set! __obj120173 __tmp120357 '14 '#f '#f)) + (let ((__tmp120359 + (cons (cons 'ns |gx[1]#_g120360_|) + (cons (cons 'path |gx[1]#_g120361_|) + (cons (cons 'import |gx[1]#_g120362_|) + (cons (cons 'export |gx[1]#_g120363_|) + (cons (cons 'e |gx[1]#_g120364_|) (cons (cons 'code - |gx[1]#_g120091_|) + |gx[1]#_g120365_|) (cons (cons 'super - |gx[1]#_g120092_|) + |gx[1]#_g120366_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g120093_|) - (cons (cons 'down |gx[1]#_g120094_|) - (cons (cons 'id |gx[1]#_g120095_|) - (cons (cons 'table |gx[1]#_g120096_|) + |gx[1]#_g120367_|) + (cons (cons 'down |gx[1]#_g120368_|) + (cons (cons 'id |gx[1]#_g120369_|) + (cons (cons 'table |gx[1]#_g120370_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj119899 __tmp120085 '15 '#f '#f)) - (let ((__tmp120097 - (cons (cons 'ns |gx[1]#_g120098_|) - (cons (cons 'path |gx[1]#_g120099_|) - (cons (cons 'import |gx[1]#_g120100_|) - (cons (cons 'export |gx[1]#_g120101_|) - (cons (cons 'e |gx[1]#_g120102_|) + (##unchecked-structure-set! __obj120173 __tmp120359 '15 '#f '#f)) + (let ((__tmp120371 + (cons (cons 'ns |gx[1]#_g120372_|) + (cons (cons 'path |gx[1]#_g120373_|) + (cons (cons 'import |gx[1]#_g120374_|) + (cons (cons 'export |gx[1]#_g120375_|) + (cons (cons 'e |gx[1]#_g120376_|) (cons (cons 'code - |gx[1]#_g120103_|) + |gx[1]#_g120377_|) (cons (cons 'super - |gx[1]#_g120104_|) + |gx[1]#_g120378_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g120105_|) - (cons (cons 'down |gx[1]#_g120106_|) - (cons (cons 'id |gx[1]#_g120107_|) - (cons (cons 'table |gx[1]#_g120108_|) + |gx[1]#_g120379_|) + (cons (cons 'down |gx[1]#_g120380_|) + (cons (cons 'id |gx[1]#_g120381_|) + (cons (cons 'table |gx[1]#_g120382_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj119899 __tmp120097 '16 '#f '#f)) - (let ((__tmp120109 - (cons (cons 'ns |gx[1]#_g120110_|) - (cons (cons 'path |gx[1]#_g120111_|) - (cons (cons 'import |gx[1]#_g120112_|) - (cons (cons 'export |gx[1]#_g120113_|) - (cons (cons 'e |gx[1]#_g120114_|) + (##unchecked-structure-set! __obj120173 __tmp120371 '16 '#f '#f)) + (let ((__tmp120383 + (cons (cons 'ns |gx[1]#_g120384_|) + (cons (cons 'path |gx[1]#_g120385_|) + (cons (cons 'import |gx[1]#_g120386_|) + (cons (cons 'export |gx[1]#_g120387_|) + (cons (cons 'e |gx[1]#_g120388_|) (cons (cons 'code - |gx[1]#_g120115_|) + |gx[1]#_g120389_|) (cons (cons 'super - |gx[1]#_g120116_|) + |gx[1]#_g120390_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g120117_|) - (cons (cons 'down |gx[1]#_g120118_|) - (cons (cons 'id |gx[1]#_g120119_|) - (cons (cons 'table |gx[1]#_g120120_|) + |gx[1]#_g120391_|) + (cons (cons 'down |gx[1]#_g120392_|) + (cons (cons 'id |gx[1]#_g120393_|) + (cons (cons 'table |gx[1]#_g120394_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj119899 __tmp120109 '17 '#f '#f)) - (let ((__tmp120121 - (cons (cons 'ns |gx[1]#_g120122_|) - (cons (cons 'path |gx[1]#_g120123_|) - (cons (cons 'import |gx[1]#_g120124_|) - (cons (cons 'export |gx[1]#_g120125_|) - (cons (cons 'e |gx[1]#_g120126_|) + (##unchecked-structure-set! __obj120173 __tmp120383 '17 '#f '#f)) + (let ((__tmp120395 + (cons (cons 'ns |gx[1]#_g120396_|) + (cons (cons 'path |gx[1]#_g120397_|) + (cons (cons 'import |gx[1]#_g120398_|) + (cons (cons 'export |gx[1]#_g120399_|) + (cons (cons 'e |gx[1]#_g120400_|) (cons (cons 'code - |gx[1]#_g120127_|) + |gx[1]#_g120401_|) (cons (cons 'super - |gx[1]#_g120128_|) + |gx[1]#_g120402_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g120129_|) - (cons (cons 'down |gx[1]#_g120130_|) - (cons (cons 'id |gx[1]#_g120131_|) - (cons (cons 'table |gx[1]#_g120132_|) + |gx[1]#_g120403_|) + (cons (cons 'down |gx[1]#_g120404_|) + (cons (cons 'id |gx[1]#_g120405_|) + (cons (cons 'table |gx[1]#_g120406_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj119899 __tmp120121 '18 '#f '#f)) + (##unchecked-structure-set! __obj120173 __tmp120395 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119899 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120173 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119899 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120173 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119899 '() '20 '#f '#f)) - __obj119899)) + (##unchecked-structure-set! __obj120173 '() '20 '#f '#f)) + __obj120173)) (define |gx[:0:]#prelude-context| - (let ((__obj119900 + (let ((__obj120174 (let () (declare (not safe)) (##structure @@ -4208,129 +4208,129 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119900 + __obj120174 'gx#prelude-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119900 'prelude-context '2 '#f '#f)) + (##unchecked-structure-set! __obj120174 'prelude-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119900 '(path import e) '4 '#f '#f)) + (##unchecked-structure-set! __obj120174 '(path import e) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119900 + __obj120174 '(id table super up down path import e) '6 '#f '#f)) - (let ((__tmp120133 (cons |gx[1]#_g120078_| '()))) + (let ((__tmp120407 (cons |gx[1]#_g120352_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119900 __tmp120133 '3 '#f '#f)) + (##unchecked-structure-set! __obj120174 __tmp120407 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119900 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120174 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119900 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj120174 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119900 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120174 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119900 '#f '11 '#f '#f)) - (let ((__tmp120134 |gx[1]#_g120135_|)) + (##unchecked-structure-set! __obj120174 '#f '11 '#f '#f)) + (let ((__tmp120408 |gx[1]#_g120409_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119900 __tmp120134 '12 '#f '#f)) - (let ((__tmp120136 |gx[1]#_g120137_|)) + (##unchecked-structure-set! __obj120174 __tmp120408 '12 '#f '#f)) + (let ((__tmp120410 |gx[1]#_g120411_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119900 __tmp120136 '13 '#f '#f)) - (let ((__tmp120138 |gx[1]#_g120139_|)) + (##unchecked-structure-set! __obj120174 __tmp120410 '13 '#f '#f)) + (let ((__tmp120412 |gx[1]#_g120413_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119900 __tmp120138 '14 '#f '#f)) - (let ((__tmp120140 - (cons (cons 'path |gx[1]#_g120141_|) - (cons (cons 'import |gx[1]#_g120142_|) - (cons (cons 'e |gx[1]#_g120143_|) - (cons (cons 'super |gx[1]#_g120144_|) - (cons (cons 'up |gx[1]#_g120145_|) + (##unchecked-structure-set! __obj120174 __tmp120412 '14 '#f '#f)) + (let ((__tmp120414 + (cons (cons 'path |gx[1]#_g120415_|) + (cons (cons 'import |gx[1]#_g120416_|) + (cons (cons 'e |gx[1]#_g120417_|) + (cons (cons 'super |gx[1]#_g120418_|) + (cons (cons 'up |gx[1]#_g120419_|) (cons (cons 'down - |gx[1]#_g120146_|) + |gx[1]#_g120420_|) (cons (cons 'id - |gx[1]#_g120147_|) + |gx[1]#_g120421_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g120148_|) + |gx[1]#_g120422_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj119900 __tmp120140 '15 '#f '#f)) - (let ((__tmp120149 - (cons (cons 'path |gx[1]#_g120150_|) - (cons (cons 'import |gx[1]#_g120151_|) - (cons (cons 'e |gx[1]#_g120152_|) - (cons (cons 'super |gx[1]#_g120153_|) - (cons (cons 'up |gx[1]#_g120154_|) + (##unchecked-structure-set! __obj120174 __tmp120414 '15 '#f '#f)) + (let ((__tmp120423 + (cons (cons 'path |gx[1]#_g120424_|) + (cons (cons 'import |gx[1]#_g120425_|) + (cons (cons 'e |gx[1]#_g120426_|) + (cons (cons 'super |gx[1]#_g120427_|) + (cons (cons 'up |gx[1]#_g120428_|) (cons (cons 'down - |gx[1]#_g120155_|) + |gx[1]#_g120429_|) (cons (cons 'id - |gx[1]#_g120156_|) + |gx[1]#_g120430_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g120157_|) + |gx[1]#_g120431_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj119900 __tmp120149 '16 '#f '#f)) - (let ((__tmp120158 - (cons (cons 'path |gx[1]#_g120159_|) - (cons (cons 'import |gx[1]#_g120160_|) - (cons (cons 'e |gx[1]#_g120161_|) - (cons (cons 'super |gx[1]#_g120162_|) - (cons (cons 'up |gx[1]#_g120163_|) + (##unchecked-structure-set! __obj120174 __tmp120423 '16 '#f '#f)) + (let ((__tmp120432 + (cons (cons 'path |gx[1]#_g120433_|) + (cons (cons 'import |gx[1]#_g120434_|) + (cons (cons 'e |gx[1]#_g120435_|) + (cons (cons 'super |gx[1]#_g120436_|) + (cons (cons 'up |gx[1]#_g120437_|) (cons (cons 'down - |gx[1]#_g120164_|) + |gx[1]#_g120438_|) (cons (cons 'id - |gx[1]#_g120165_|) + |gx[1]#_g120439_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g120166_|) + |gx[1]#_g120440_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj119900 __tmp120158 '17 '#f '#f)) - (let ((__tmp120167 - (cons (cons 'path |gx[1]#_g120168_|) - (cons (cons 'import |gx[1]#_g120169_|) - (cons (cons 'e |gx[1]#_g120170_|) - (cons (cons 'super |gx[1]#_g120171_|) - (cons (cons 'up |gx[1]#_g120172_|) + (##unchecked-structure-set! __obj120174 __tmp120432 '17 '#f '#f)) + (let ((__tmp120441 + (cons (cons 'path |gx[1]#_g120442_|) + (cons (cons 'import |gx[1]#_g120443_|) + (cons (cons 'e |gx[1]#_g120444_|) + (cons (cons 'super |gx[1]#_g120445_|) + (cons (cons 'up |gx[1]#_g120446_|) (cons (cons 'down - |gx[1]#_g120173_|) + |gx[1]#_g120447_|) (cons (cons 'id - |gx[1]#_g120174_|) + |gx[1]#_g120448_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g120175_|) + |gx[1]#_g120449_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj119900 __tmp120167 '18 '#f '#f)) + (##unchecked-structure-set! __obj120174 __tmp120441 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119900 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120174 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119900 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120174 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119900 '() '20 '#f '#f)) - __obj119900)) + (##unchecked-structure-set! __obj120174 '() '20 '#f '#f)) + __obj120174)) (define |gx[:0:]#local-context| - (let ((__obj119901 + (let ((__obj120175 (let () (declare (not safe)) (##structure @@ -4359,97 +4359,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119901 + __obj120175 'gx#local-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119901 'local-context '2 '#f '#f)) + (##unchecked-structure-set! __obj120175 'local-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119901 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj120175 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119901 + __obj120175 '(id table super up down) '6 '#f '#f)) - (let ((__tmp120176 (cons |gx[1]#_g120046_| '()))) + (let ((__tmp120450 (cons |gx[1]#_g120320_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119901 __tmp120176 '3 '#f '#f)) + (##unchecked-structure-set! __obj120175 __tmp120450 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119901 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120175 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119901 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj120175 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119901 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120175 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119901 '#f '11 '#f '#f)) - (let ((__tmp120177 |gx[1]#_g120178_|)) + (##unchecked-structure-set! __obj120175 '#f '11 '#f '#f)) + (let ((__tmp120451 |gx[1]#_g120452_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119901 __tmp120177 '12 '#f '#f)) - (let ((__tmp120179 |gx[1]#_g120180_|)) + (##unchecked-structure-set! __obj120175 __tmp120451 '12 '#f '#f)) + (let ((__tmp120453 |gx[1]#_g120454_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119901 __tmp120179 '13 '#f '#f)) - (let ((__tmp120181 |gx[1]#_g120182_|)) + (##unchecked-structure-set! __obj120175 __tmp120453 '13 '#f '#f)) + (let ((__tmp120455 |gx[1]#_g120456_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119901 __tmp120181 '14 '#f '#f)) - (let ((__tmp120183 - (cons (cons 'super |gx[1]#_g120184_|) - (cons (cons 'up |gx[1]#_g120185_|) - (cons (cons 'down |gx[1]#_g120186_|) - (cons (cons 'id |gx[1]#_g120187_|) - (cons (cons 'table |gx[1]#_g120188_|) + (##unchecked-structure-set! __obj120175 __tmp120455 '14 '#f '#f)) + (let ((__tmp120457 + (cons (cons 'super |gx[1]#_g120458_|) + (cons (cons 'up |gx[1]#_g120459_|) + (cons (cons 'down |gx[1]#_g120460_|) + (cons (cons 'id |gx[1]#_g120461_|) + (cons (cons 'table |gx[1]#_g120462_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj119901 __tmp120183 '15 '#f '#f)) - (let ((__tmp120189 - (cons (cons 'super |gx[1]#_g120190_|) - (cons (cons 'up |gx[1]#_g120191_|) - (cons (cons 'down |gx[1]#_g120192_|) - (cons (cons 'id |gx[1]#_g120193_|) - (cons (cons 'table |gx[1]#_g120194_|) + (##unchecked-structure-set! __obj120175 __tmp120457 '15 '#f '#f)) + (let ((__tmp120463 + (cons (cons 'super |gx[1]#_g120464_|) + (cons (cons 'up |gx[1]#_g120465_|) + (cons (cons 'down |gx[1]#_g120466_|) + (cons (cons 'id |gx[1]#_g120467_|) + (cons (cons 'table |gx[1]#_g120468_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj119901 __tmp120189 '16 '#f '#f)) - (let ((__tmp120195 - (cons (cons 'super |gx[1]#_g120196_|) - (cons (cons 'up |gx[1]#_g120197_|) - (cons (cons 'down |gx[1]#_g120198_|) - (cons (cons 'id |gx[1]#_g120199_|) - (cons (cons 'table |gx[1]#_g120200_|) + (##unchecked-structure-set! __obj120175 __tmp120463 '16 '#f '#f)) + (let ((__tmp120469 + (cons (cons 'super |gx[1]#_g120470_|) + (cons (cons 'up |gx[1]#_g120471_|) + (cons (cons 'down |gx[1]#_g120472_|) + (cons (cons 'id |gx[1]#_g120473_|) + (cons (cons 'table |gx[1]#_g120474_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj119901 __tmp120195 '17 '#f '#f)) - (let ((__tmp120201 - (cons (cons 'super |gx[1]#_g120202_|) - (cons (cons 'up |gx[1]#_g120203_|) - (cons (cons 'down |gx[1]#_g120204_|) - (cons (cons 'id |gx[1]#_g120205_|) - (cons (cons 'table |gx[1]#_g120206_|) + (##unchecked-structure-set! __obj120175 __tmp120469 '17 '#f '#f)) + (let ((__tmp120475 + (cons (cons 'super |gx[1]#_g120476_|) + (cons (cons 'up |gx[1]#_g120477_|) + (cons (cons 'down |gx[1]#_g120478_|) + (cons (cons 'id |gx[1]#_g120479_|) + (cons (cons 'table |gx[1]#_g120480_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj119901 __tmp120201 '18 '#f '#f)) + (##unchecked-structure-set! __obj120175 __tmp120475 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119901 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120175 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119901 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120175 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119901 '() '20 '#f '#f)) - __obj119901)) + (##unchecked-structure-set! __obj120175 '() '20 '#f '#f)) + __obj120175)) (define |gx[:0:]#binding| - (let ((__obj119902 + (let ((__obj120176 (let () (declare (not safe)) (##structure @@ -4477,76 +4477,76 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119902 'gx#binding::t '1 '#f '#f)) + (##unchecked-structure-set! __obj120176 'gx#binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119902 'binding '2 '#f '#f)) + (##unchecked-structure-set! __obj120176 'binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119902 '(id key phi) '4 '#f '#f)) + (##unchecked-structure-set! __obj120176 '(id key phi) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119902 '(id key phi) '6 '#f '#f)) + (##unchecked-structure-set! __obj120176 '(id key phi) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119902 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj120176 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119902 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120176 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119902 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj120176 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119902 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120176 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119902 '#f '11 '#f '#f)) - (let ((__tmp120207 |gx[1]#_g120208_|)) + (##unchecked-structure-set! __obj120176 '#f '11 '#f '#f)) + (let ((__tmp120481 |gx[1]#_g120482_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119902 __tmp120207 '12 '#f '#f)) - (let ((__tmp120209 |gx[1]#_g120210_|)) + (##unchecked-structure-set! __obj120176 __tmp120481 '12 '#f '#f)) + (let ((__tmp120483 |gx[1]#_g120484_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119902 __tmp120209 '13 '#f '#f)) - (let ((__tmp120211 |gx[1]#_g120212_|)) + (##unchecked-structure-set! __obj120176 __tmp120483 '13 '#f '#f)) + (let ((__tmp120485 |gx[1]#_g120486_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119902 __tmp120211 '14 '#f '#f)) - (let ((__tmp120213 - (cons (cons 'id |gx[1]#_g120214_|) - (cons (cons 'key |gx[1]#_g120215_|) - (cons (cons 'phi |gx[1]#_g120216_|) '()))))) + (##unchecked-structure-set! __obj120176 __tmp120485 '14 '#f '#f)) + (let ((__tmp120487 + (cons (cons 'id |gx[1]#_g120488_|) + (cons (cons 'key |gx[1]#_g120489_|) + (cons (cons 'phi |gx[1]#_g120490_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119902 __tmp120213 '15 '#f '#f)) - (let ((__tmp120217 - (cons (cons 'id |gx[1]#_g120218_|) - (cons (cons 'key |gx[1]#_g120219_|) - (cons (cons 'phi |gx[1]#_g120220_|) '()))))) + (##unchecked-structure-set! __obj120176 __tmp120487 '15 '#f '#f)) + (let ((__tmp120491 + (cons (cons 'id |gx[1]#_g120492_|) + (cons (cons 'key |gx[1]#_g120493_|) + (cons (cons 'phi |gx[1]#_g120494_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119902 __tmp120217 '16 '#f '#f)) - (let ((__tmp120221 - (cons (cons 'id |gx[1]#_g120222_|) - (cons (cons 'key |gx[1]#_g120223_|) - (cons (cons 'phi |gx[1]#_g120224_|) '()))))) + (##unchecked-structure-set! __obj120176 __tmp120491 '16 '#f '#f)) + (let ((__tmp120495 + (cons (cons 'id |gx[1]#_g120496_|) + (cons (cons 'key |gx[1]#_g120497_|) + (cons (cons 'phi |gx[1]#_g120498_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119902 __tmp120221 '17 '#f '#f)) - (let ((__tmp120225 - (cons (cons 'id |gx[1]#_g120226_|) - (cons (cons 'key |gx[1]#_g120227_|) - (cons (cons 'phi |gx[1]#_g120228_|) '()))))) + (##unchecked-structure-set! __obj120176 __tmp120495 '17 '#f '#f)) + (let ((__tmp120499 + (cons (cons 'id |gx[1]#_g120500_|) + (cons (cons 'key |gx[1]#_g120501_|) + (cons (cons 'phi |gx[1]#_g120502_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119902 __tmp120225 '18 '#f '#f)) + (##unchecked-structure-set! __obj120176 __tmp120499 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119902 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120176 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119902 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120176 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119902 '() '20 '#f '#f)) - __obj119902)) + (##unchecked-structure-set! __obj120176 '() '20 '#f '#f)) + __obj120176)) (define |gx[:0:]#runtime-binding| - (let ((__obj119903 + (let ((__obj120177 (let () (declare (not safe)) (##structure @@ -4575,80 +4575,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119903 + __obj120177 'gx#runtime-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119903 'runtime-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj120177 'runtime-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119903 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj120177 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119903 '(id key phi) '6 '#f '#f)) - (let ((__tmp120229 (cons |gx[1]#_g120230_| '()))) + (##unchecked-structure-set! __obj120177 '(id key phi) '6 '#f '#f)) + (let ((__tmp120503 (cons |gx[1]#_g120504_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119903 __tmp120229 '3 '#f '#f)) + (##unchecked-structure-set! __obj120177 __tmp120503 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119903 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120177 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119903 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj120177 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119903 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120177 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119903 '#f '11 '#f '#f)) - (let ((__tmp120231 |gx[1]#_g120232_|)) + (##unchecked-structure-set! __obj120177 '#f '11 '#f '#f)) + (let ((__tmp120505 |gx[1]#_g120506_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119903 __tmp120231 '12 '#f '#f)) - (let ((__tmp120233 |gx[1]#_g120234_|)) + (##unchecked-structure-set! __obj120177 __tmp120505 '12 '#f '#f)) + (let ((__tmp120507 |gx[1]#_g120508_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119903 __tmp120233 '13 '#f '#f)) - (let ((__tmp120235 |gx[1]#_g120236_|)) + (##unchecked-structure-set! __obj120177 __tmp120507 '13 '#f '#f)) + (let ((__tmp120509 |gx[1]#_g120510_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119903 __tmp120235 '14 '#f '#f)) - (let ((__tmp120237 - (cons (cons 'id |gx[1]#_g120238_|) - (cons (cons 'key |gx[1]#_g120239_|) - (cons (cons 'phi |gx[1]#_g120240_|) '()))))) + (##unchecked-structure-set! __obj120177 __tmp120509 '14 '#f '#f)) + (let ((__tmp120511 + (cons (cons 'id |gx[1]#_g120512_|) + (cons (cons 'key |gx[1]#_g120513_|) + (cons (cons 'phi |gx[1]#_g120514_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119903 __tmp120237 '15 '#f '#f)) - (let ((__tmp120241 - (cons (cons 'id |gx[1]#_g120242_|) - (cons (cons 'key |gx[1]#_g120243_|) - (cons (cons 'phi |gx[1]#_g120244_|) '()))))) + (##unchecked-structure-set! __obj120177 __tmp120511 '15 '#f '#f)) + (let ((__tmp120515 + (cons (cons 'id |gx[1]#_g120516_|) + (cons (cons 'key |gx[1]#_g120517_|) + (cons (cons 'phi |gx[1]#_g120518_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119903 __tmp120241 '16 '#f '#f)) - (let ((__tmp120245 - (cons (cons 'id |gx[1]#_g120246_|) - (cons (cons 'key |gx[1]#_g120247_|) - (cons (cons 'phi |gx[1]#_g120248_|) '()))))) + (##unchecked-structure-set! __obj120177 __tmp120515 '16 '#f '#f)) + (let ((__tmp120519 + (cons (cons 'id |gx[1]#_g120520_|) + (cons (cons 'key |gx[1]#_g120521_|) + (cons (cons 'phi |gx[1]#_g120522_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119903 __tmp120245 '17 '#f '#f)) - (let ((__tmp120249 - (cons (cons 'id |gx[1]#_g120250_|) - (cons (cons 'key |gx[1]#_g120251_|) - (cons (cons 'phi |gx[1]#_g120252_|) '()))))) + (##unchecked-structure-set! __obj120177 __tmp120519 '17 '#f '#f)) + (let ((__tmp120523 + (cons (cons 'id |gx[1]#_g120524_|) + (cons (cons 'key |gx[1]#_g120525_|) + (cons (cons 'phi |gx[1]#_g120526_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119903 __tmp120249 '18 '#f '#f)) + (##unchecked-structure-set! __obj120177 __tmp120523 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119903 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120177 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119903 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120177 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119903 '() '20 '#f '#f)) - __obj119903)) + (##unchecked-structure-set! __obj120177 '() '20 '#f '#f)) + __obj120177)) (define |gx[:0:]#local-binding| - (let ((__obj119904 + (let ((__obj120178 (let () (declare (not safe)) (##structure @@ -4677,80 +4677,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119904 + __obj120178 'gx#local-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119904 'local-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj120178 'local-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119904 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj120178 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119904 '(id key phi) '6 '#f '#f)) - (let ((__tmp120253 (cons |gx[1]#_g120254_| '()))) + (##unchecked-structure-set! __obj120178 '(id key phi) '6 '#f '#f)) + (let ((__tmp120527 (cons |gx[1]#_g120528_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119904 __tmp120253 '3 '#f '#f)) + (##unchecked-structure-set! __obj120178 __tmp120527 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119904 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120178 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119904 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj120178 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119904 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120178 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119904 '#f '11 '#f '#f)) - (let ((__tmp120255 |gx[1]#_g120256_|)) + (##unchecked-structure-set! __obj120178 '#f '11 '#f '#f)) + (let ((__tmp120529 |gx[1]#_g120530_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119904 __tmp120255 '12 '#f '#f)) - (let ((__tmp120257 |gx[1]#_g120258_|)) + (##unchecked-structure-set! __obj120178 __tmp120529 '12 '#f '#f)) + (let ((__tmp120531 |gx[1]#_g120532_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119904 __tmp120257 '13 '#f '#f)) - (let ((__tmp120259 |gx[1]#_g120260_|)) + (##unchecked-structure-set! __obj120178 __tmp120531 '13 '#f '#f)) + (let ((__tmp120533 |gx[1]#_g120534_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119904 __tmp120259 '14 '#f '#f)) - (let ((__tmp120261 - (cons (cons 'id |gx[1]#_g120262_|) - (cons (cons 'key |gx[1]#_g120263_|) - (cons (cons 'phi |gx[1]#_g120264_|) '()))))) + (##unchecked-structure-set! __obj120178 __tmp120533 '14 '#f '#f)) + (let ((__tmp120535 + (cons (cons 'id |gx[1]#_g120536_|) + (cons (cons 'key |gx[1]#_g120537_|) + (cons (cons 'phi |gx[1]#_g120538_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119904 __tmp120261 '15 '#f '#f)) - (let ((__tmp120265 - (cons (cons 'id |gx[1]#_g120266_|) - (cons (cons 'key |gx[1]#_g120267_|) - (cons (cons 'phi |gx[1]#_g120268_|) '()))))) + (##unchecked-structure-set! __obj120178 __tmp120535 '15 '#f '#f)) + (let ((__tmp120539 + (cons (cons 'id |gx[1]#_g120540_|) + (cons (cons 'key |gx[1]#_g120541_|) + (cons (cons 'phi |gx[1]#_g120542_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119904 __tmp120265 '16 '#f '#f)) - (let ((__tmp120269 - (cons (cons 'id |gx[1]#_g120270_|) - (cons (cons 'key |gx[1]#_g120271_|) - (cons (cons 'phi |gx[1]#_g120272_|) '()))))) + (##unchecked-structure-set! __obj120178 __tmp120539 '16 '#f '#f)) + (let ((__tmp120543 + (cons (cons 'id |gx[1]#_g120544_|) + (cons (cons 'key |gx[1]#_g120545_|) + (cons (cons 'phi |gx[1]#_g120546_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119904 __tmp120269 '17 '#f '#f)) - (let ((__tmp120273 - (cons (cons 'id |gx[1]#_g120274_|) - (cons (cons 'key |gx[1]#_g120275_|) - (cons (cons 'phi |gx[1]#_g120276_|) '()))))) + (##unchecked-structure-set! __obj120178 __tmp120543 '17 '#f '#f)) + (let ((__tmp120547 + (cons (cons 'id |gx[1]#_g120548_|) + (cons (cons 'key |gx[1]#_g120549_|) + (cons (cons 'phi |gx[1]#_g120550_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119904 __tmp120273 '18 '#f '#f)) + (##unchecked-structure-set! __obj120178 __tmp120547 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119904 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120178 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119904 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120178 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119904 '() '20 '#f '#f)) - __obj119904)) + (##unchecked-structure-set! __obj120178 '() '20 '#f '#f)) + __obj120178)) (define |gx[:0:]#top-binding| - (let ((__obj119905 + (let ((__obj120179 (let () (declare (not safe)) (##structure @@ -4779,80 +4779,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119905 + __obj120179 'gx#top-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119905 'top-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj120179 'top-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119905 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj120179 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119905 '(id key phi) '6 '#f '#f)) - (let ((__tmp120277 (cons |gx[1]#_g120254_| '()))) + (##unchecked-structure-set! __obj120179 '(id key phi) '6 '#f '#f)) + (let ((__tmp120551 (cons |gx[1]#_g120528_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119905 __tmp120277 '3 '#f '#f)) + (##unchecked-structure-set! __obj120179 __tmp120551 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119905 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120179 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119905 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj120179 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119905 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120179 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119905 '#f '11 '#f '#f)) - (let ((__tmp120278 |gx[1]#_g120279_|)) + (##unchecked-structure-set! __obj120179 '#f '11 '#f '#f)) + (let ((__tmp120552 |gx[1]#_g120553_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119905 __tmp120278 '12 '#f '#f)) - (let ((__tmp120280 |gx[1]#_g120281_|)) + (##unchecked-structure-set! __obj120179 __tmp120552 '12 '#f '#f)) + (let ((__tmp120554 |gx[1]#_g120555_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119905 __tmp120280 '13 '#f '#f)) - (let ((__tmp120282 |gx[1]#_g120283_|)) + (##unchecked-structure-set! __obj120179 __tmp120554 '13 '#f '#f)) + (let ((__tmp120556 |gx[1]#_g120557_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119905 __tmp120282 '14 '#f '#f)) - (let ((__tmp120284 - (cons (cons 'id |gx[1]#_g120285_|) - (cons (cons 'key |gx[1]#_g120286_|) - (cons (cons 'phi |gx[1]#_g120287_|) '()))))) + (##unchecked-structure-set! __obj120179 __tmp120556 '14 '#f '#f)) + (let ((__tmp120558 + (cons (cons 'id |gx[1]#_g120559_|) + (cons (cons 'key |gx[1]#_g120560_|) + (cons (cons 'phi |gx[1]#_g120561_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119905 __tmp120284 '15 '#f '#f)) - (let ((__tmp120288 - (cons (cons 'id |gx[1]#_g120289_|) - (cons (cons 'key |gx[1]#_g120290_|) - (cons (cons 'phi |gx[1]#_g120291_|) '()))))) + (##unchecked-structure-set! __obj120179 __tmp120558 '15 '#f '#f)) + (let ((__tmp120562 + (cons (cons 'id |gx[1]#_g120563_|) + (cons (cons 'key |gx[1]#_g120564_|) + (cons (cons 'phi |gx[1]#_g120565_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119905 __tmp120288 '16 '#f '#f)) - (let ((__tmp120292 - (cons (cons 'id |gx[1]#_g120293_|) - (cons (cons 'key |gx[1]#_g120294_|) - (cons (cons 'phi |gx[1]#_g120295_|) '()))))) + (##unchecked-structure-set! __obj120179 __tmp120562 '16 '#f '#f)) + (let ((__tmp120566 + (cons (cons 'id |gx[1]#_g120567_|) + (cons (cons 'key |gx[1]#_g120568_|) + (cons (cons 'phi |gx[1]#_g120569_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119905 __tmp120292 '17 '#f '#f)) - (let ((__tmp120296 - (cons (cons 'id |gx[1]#_g120297_|) - (cons (cons 'key |gx[1]#_g120298_|) - (cons (cons 'phi |gx[1]#_g120299_|) '()))))) + (##unchecked-structure-set! __obj120179 __tmp120566 '17 '#f '#f)) + (let ((__tmp120570 + (cons (cons 'id |gx[1]#_g120571_|) + (cons (cons 'key |gx[1]#_g120572_|) + (cons (cons 'phi |gx[1]#_g120573_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119905 __tmp120296 '18 '#f '#f)) + (##unchecked-structure-set! __obj120179 __tmp120570 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119905 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120179 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119905 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120179 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119905 '() '20 '#f '#f)) - __obj119905)) + (##unchecked-structure-set! __obj120179 '() '20 '#f '#f)) + __obj120179)) (define |gx[:0:]#module-binding| - (let ((__obj119906 + (let ((__obj120180 (let () (declare (not safe)) (##structure @@ -4881,89 +4881,89 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119906 + __obj120180 'gx#module-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119906 'module-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj120180 'module-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119906 '(context) '4 '#f '#f)) + (##unchecked-structure-set! __obj120180 '(context) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119906 + __obj120180 '(id key phi context) '6 '#f '#f)) - (let ((__tmp120300 (cons |gx[1]#_g120301_| '()))) + (let ((__tmp120574 (cons |gx[1]#_g120575_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119906 __tmp120300 '3 '#f '#f)) + (##unchecked-structure-set! __obj120180 __tmp120574 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119906 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120180 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119906 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj120180 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119906 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120180 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119906 '#f '11 '#f '#f)) - (let ((__tmp120302 |gx[1]#_g120303_|)) + (##unchecked-structure-set! __obj120180 '#f '11 '#f '#f)) + (let ((__tmp120576 |gx[1]#_g120577_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119906 __tmp120302 '12 '#f '#f)) - (let ((__tmp120304 |gx[1]#_g120305_|)) + (##unchecked-structure-set! __obj120180 __tmp120576 '12 '#f '#f)) + (let ((__tmp120578 |gx[1]#_g120579_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119906 __tmp120304 '13 '#f '#f)) - (let ((__tmp120306 |gx[1]#_g120307_|)) + (##unchecked-structure-set! __obj120180 __tmp120578 '13 '#f '#f)) + (let ((__tmp120580 |gx[1]#_g120581_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119906 __tmp120306 '14 '#f '#f)) - (let ((__tmp120308 - (cons (cons 'context |gx[1]#_g120309_|) - (cons (cons 'id |gx[1]#_g120310_|) - (cons (cons 'key |gx[1]#_g120311_|) - (cons (cons 'phi |gx[1]#_g120312_|) '())))))) + (##unchecked-structure-set! __obj120180 __tmp120580 '14 '#f '#f)) + (let ((__tmp120582 + (cons (cons 'context |gx[1]#_g120583_|) + (cons (cons 'id |gx[1]#_g120584_|) + (cons (cons 'key |gx[1]#_g120585_|) + (cons (cons 'phi |gx[1]#_g120586_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj119906 __tmp120308 '15 '#f '#f)) - (let ((__tmp120313 - (cons (cons 'context |gx[1]#_g120314_|) - (cons (cons 'id |gx[1]#_g120315_|) - (cons (cons 'key |gx[1]#_g120316_|) - (cons (cons 'phi |gx[1]#_g120317_|) '())))))) + (##unchecked-structure-set! __obj120180 __tmp120582 '15 '#f '#f)) + (let ((__tmp120587 + (cons (cons 'context |gx[1]#_g120588_|) + (cons (cons 'id |gx[1]#_g120589_|) + (cons (cons 'key |gx[1]#_g120590_|) + (cons (cons 'phi |gx[1]#_g120591_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj119906 __tmp120313 '16 '#f '#f)) - (let ((__tmp120318 - (cons (cons 'context |gx[1]#_g120319_|) - (cons (cons 'id |gx[1]#_g120320_|) - (cons (cons 'key |gx[1]#_g120321_|) - (cons (cons 'phi |gx[1]#_g120322_|) '())))))) + (##unchecked-structure-set! __obj120180 __tmp120587 '16 '#f '#f)) + (let ((__tmp120592 + (cons (cons 'context |gx[1]#_g120593_|) + (cons (cons 'id |gx[1]#_g120594_|) + (cons (cons 'key |gx[1]#_g120595_|) + (cons (cons 'phi |gx[1]#_g120596_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj119906 __tmp120318 '17 '#f '#f)) - (let ((__tmp120323 - (cons (cons 'context |gx[1]#_g120324_|) - (cons (cons 'id |gx[1]#_g120325_|) - (cons (cons 'key |gx[1]#_g120326_|) - (cons (cons 'phi |gx[1]#_g120327_|) '())))))) + (##unchecked-structure-set! __obj120180 __tmp120592 '17 '#f '#f)) + (let ((__tmp120597 + (cons (cons 'context |gx[1]#_g120598_|) + (cons (cons 'id |gx[1]#_g120599_|) + (cons (cons 'key |gx[1]#_g120600_|) + (cons (cons 'phi |gx[1]#_g120601_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj119906 __tmp120323 '18 '#f '#f)) + (##unchecked-structure-set! __obj120180 __tmp120597 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119906 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120180 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119906 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120180 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119906 '() '20 '#f '#f)) - __obj119906)) + (##unchecked-structure-set! __obj120180 '() '20 '#f '#f)) + __obj120180)) (define |gx[:0:]#extern-binding| - (let ((__obj119907 + (let ((__obj120181 (let () (declare (not safe)) (##structure @@ -4992,80 +4992,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119907 + __obj120181 'gx#extern-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119907 'extern-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj120181 'extern-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119907 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj120181 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119907 '(id key phi) '6 '#f '#f)) - (let ((__tmp120328 (cons |gx[1]#_g120301_| '()))) + (##unchecked-structure-set! __obj120181 '(id key phi) '6 '#f '#f)) + (let ((__tmp120602 (cons |gx[1]#_g120575_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119907 __tmp120328 '3 '#f '#f)) + (##unchecked-structure-set! __obj120181 __tmp120602 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119907 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120181 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119907 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj120181 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119907 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120181 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119907 '#f '11 '#f '#f)) - (let ((__tmp120329 |gx[1]#_g120330_|)) + (##unchecked-structure-set! __obj120181 '#f '11 '#f '#f)) + (let ((__tmp120603 |gx[1]#_g120604_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119907 __tmp120329 '12 '#f '#f)) - (let ((__tmp120331 |gx[1]#_g120332_|)) + (##unchecked-structure-set! __obj120181 __tmp120603 '12 '#f '#f)) + (let ((__tmp120605 |gx[1]#_g120606_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119907 __tmp120331 '13 '#f '#f)) - (let ((__tmp120333 |gx[1]#_g120334_|)) + (##unchecked-structure-set! __obj120181 __tmp120605 '13 '#f '#f)) + (let ((__tmp120607 |gx[1]#_g120608_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119907 __tmp120333 '14 '#f '#f)) - (let ((__tmp120335 - (cons (cons 'id |gx[1]#_g120336_|) - (cons (cons 'key |gx[1]#_g120337_|) - (cons (cons 'phi |gx[1]#_g120338_|) '()))))) + (##unchecked-structure-set! __obj120181 __tmp120607 '14 '#f '#f)) + (let ((__tmp120609 + (cons (cons 'id |gx[1]#_g120610_|) + (cons (cons 'key |gx[1]#_g120611_|) + (cons (cons 'phi |gx[1]#_g120612_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119907 __tmp120335 '15 '#f '#f)) - (let ((__tmp120339 - (cons (cons 'id |gx[1]#_g120340_|) - (cons (cons 'key |gx[1]#_g120341_|) - (cons (cons 'phi |gx[1]#_g120342_|) '()))))) + (##unchecked-structure-set! __obj120181 __tmp120609 '15 '#f '#f)) + (let ((__tmp120613 + (cons (cons 'id |gx[1]#_g120614_|) + (cons (cons 'key |gx[1]#_g120615_|) + (cons (cons 'phi |gx[1]#_g120616_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119907 __tmp120339 '16 '#f '#f)) - (let ((__tmp120343 - (cons (cons 'id |gx[1]#_g120344_|) - (cons (cons 'key |gx[1]#_g120345_|) - (cons (cons 'phi |gx[1]#_g120346_|) '()))))) + (##unchecked-structure-set! __obj120181 __tmp120613 '16 '#f '#f)) + (let ((__tmp120617 + (cons (cons 'id |gx[1]#_g120618_|) + (cons (cons 'key |gx[1]#_g120619_|) + (cons (cons 'phi |gx[1]#_g120620_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119907 __tmp120343 '17 '#f '#f)) - (let ((__tmp120347 - (cons (cons 'id |gx[1]#_g120348_|) - (cons (cons 'key |gx[1]#_g120349_|) - (cons (cons 'phi |gx[1]#_g120350_|) '()))))) + (##unchecked-structure-set! __obj120181 __tmp120617 '17 '#f '#f)) + (let ((__tmp120621 + (cons (cons 'id |gx[1]#_g120622_|) + (cons (cons 'key |gx[1]#_g120623_|) + (cons (cons 'phi |gx[1]#_g120624_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119907 __tmp120347 '18 '#f '#f)) + (##unchecked-structure-set! __obj120181 __tmp120621 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119907 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120181 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119907 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120181 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119907 '() '20 '#f '#f)) - __obj119907)) + (##unchecked-structure-set! __obj120181 '() '20 '#f '#f)) + __obj120181)) (define |gx[:0:]#syntax-binding| - (let ((__obj119908 + (let ((__obj120182 (let () (declare (not safe)) (##structure @@ -5094,84 +5094,84 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119908 + __obj120182 'gx#syntax-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119908 'syntax-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj120182 'syntax-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119908 '(e) '4 '#f '#f)) + (##unchecked-structure-set! __obj120182 '(e) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119908 '(id key phi e) '6 '#f '#f)) - (let ((__tmp120351 (cons |gx[1]#_g120230_| '()))) + (##unchecked-structure-set! __obj120182 '(id key phi e) '6 '#f '#f)) + (let ((__tmp120625 (cons |gx[1]#_g120504_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119908 __tmp120351 '3 '#f '#f)) + (##unchecked-structure-set! __obj120182 __tmp120625 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119908 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120182 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119908 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj120182 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119908 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120182 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119908 '#f '11 '#f '#f)) - (let ((__tmp120352 |gx[1]#_g120353_|)) + (##unchecked-structure-set! __obj120182 '#f '11 '#f '#f)) + (let ((__tmp120626 |gx[1]#_g120627_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119908 __tmp120352 '12 '#f '#f)) - (let ((__tmp120354 |gx[1]#_g120355_|)) + (##unchecked-structure-set! __obj120182 __tmp120626 '12 '#f '#f)) + (let ((__tmp120628 |gx[1]#_g120629_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119908 __tmp120354 '13 '#f '#f)) - (let ((__tmp120356 |gx[1]#_g120357_|)) + (##unchecked-structure-set! __obj120182 __tmp120628 '13 '#f '#f)) + (let ((__tmp120630 |gx[1]#_g120631_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119908 __tmp120356 '14 '#f '#f)) - (let ((__tmp120358 - (cons (cons 'e |gx[1]#_g120359_|) - (cons (cons 'id |gx[1]#_g120360_|) - (cons (cons 'key |gx[1]#_g120361_|) - (cons (cons 'phi |gx[1]#_g120362_|) '())))))) + (##unchecked-structure-set! __obj120182 __tmp120630 '14 '#f '#f)) + (let ((__tmp120632 + (cons (cons 'e |gx[1]#_g120633_|) + (cons (cons 'id |gx[1]#_g120634_|) + (cons (cons 'key |gx[1]#_g120635_|) + (cons (cons 'phi |gx[1]#_g120636_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj119908 __tmp120358 '15 '#f '#f)) - (let ((__tmp120363 - (cons (cons 'e |gx[1]#_g120364_|) - (cons (cons 'id |gx[1]#_g120365_|) - (cons (cons 'key |gx[1]#_g120366_|) - (cons (cons 'phi |gx[1]#_g120367_|) '())))))) + (##unchecked-structure-set! __obj120182 __tmp120632 '15 '#f '#f)) + (let ((__tmp120637 + (cons (cons 'e |gx[1]#_g120638_|) + (cons (cons 'id |gx[1]#_g120639_|) + (cons (cons 'key |gx[1]#_g120640_|) + (cons (cons 'phi |gx[1]#_g120641_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj119908 __tmp120363 '16 '#f '#f)) - (let ((__tmp120368 - (cons (cons 'e |gx[1]#_g120369_|) - (cons (cons 'id |gx[1]#_g120370_|) - (cons (cons 'key |gx[1]#_g120371_|) - (cons (cons 'phi |gx[1]#_g120372_|) '())))))) + (##unchecked-structure-set! __obj120182 __tmp120637 '16 '#f '#f)) + (let ((__tmp120642 + (cons (cons 'e |gx[1]#_g120643_|) + (cons (cons 'id |gx[1]#_g120644_|) + (cons (cons 'key |gx[1]#_g120645_|) + (cons (cons 'phi |gx[1]#_g120646_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj119908 __tmp120368 '17 '#f '#f)) - (let ((__tmp120373 - (cons (cons 'e |gx[1]#_g120374_|) - (cons (cons 'id |gx[1]#_g120375_|) - (cons (cons 'key |gx[1]#_g120376_|) - (cons (cons 'phi |gx[1]#_g120377_|) '())))))) + (##unchecked-structure-set! __obj120182 __tmp120642 '17 '#f '#f)) + (let ((__tmp120647 + (cons (cons 'e |gx[1]#_g120648_|) + (cons (cons 'id |gx[1]#_g120649_|) + (cons (cons 'key |gx[1]#_g120650_|) + (cons (cons 'phi |gx[1]#_g120651_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj119908 __tmp120373 '18 '#f '#f)) + (##unchecked-structure-set! __obj120182 __tmp120647 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119908 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120182 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119908 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120182 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119908 '() '20 '#f '#f)) - __obj119908)) + (##unchecked-structure-set! __obj120182 '() '20 '#f '#f)) + __obj120182)) (define |gx[:0:]#import-binding| - (let ((__obj119909 + (let ((__obj120183 (let () (declare (not safe)) (##structure @@ -5200,18 +5200,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119909 + __obj120183 'gx#import-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119909 'import-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj120183 'import-binding '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119909 + __obj120183 '(e context weak?) '4 '#f @@ -5219,91 +5219,91 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119909 + __obj120183 '(id key phi e context weak?) '6 '#f '#f)) - (let ((__tmp120378 (cons |gx[1]#_g120230_| '()))) + (let ((__tmp120652 (cons |gx[1]#_g120504_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119909 __tmp120378 '3 '#f '#f)) + (##unchecked-structure-set! __obj120183 __tmp120652 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119909 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120183 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119909 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj120183 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119909 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120183 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119909 '#f '11 '#f '#f)) - (let ((__tmp120379 |gx[1]#_g120380_|)) + (##unchecked-structure-set! __obj120183 '#f '11 '#f '#f)) + (let ((__tmp120653 |gx[1]#_g120654_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119909 __tmp120379 '12 '#f '#f)) - (let ((__tmp120381 |gx[1]#_g120382_|)) + (##unchecked-structure-set! __obj120183 __tmp120653 '12 '#f '#f)) + (let ((__tmp120655 |gx[1]#_g120656_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119909 __tmp120381 '13 '#f '#f)) - (let ((__tmp120383 |gx[1]#_g120384_|)) + (##unchecked-structure-set! __obj120183 __tmp120655 '13 '#f '#f)) + (let ((__tmp120657 |gx[1]#_g120658_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119909 __tmp120383 '14 '#f '#f)) - (let ((__tmp120385 - (cons (cons 'e |gx[1]#_g120386_|) - (cons (cons 'context |gx[1]#_g120387_|) - (cons (cons 'weak? |gx[1]#_g120388_|) - (cons (cons 'id |gx[1]#_g120389_|) - (cons (cons 'key |gx[1]#_g120390_|) + (##unchecked-structure-set! __obj120183 __tmp120657 '14 '#f '#f)) + (let ((__tmp120659 + (cons (cons 'e |gx[1]#_g120660_|) + (cons (cons 'context |gx[1]#_g120661_|) + (cons (cons 'weak? |gx[1]#_g120662_|) + (cons (cons 'id |gx[1]#_g120663_|) + (cons (cons 'key |gx[1]#_g120664_|) (cons (cons 'phi - |gx[1]#_g120391_|) + |gx[1]#_g120665_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj119909 __tmp120385 '15 '#f '#f)) - (let ((__tmp120392 - (cons (cons 'e |gx[1]#_g120393_|) - (cons (cons 'context |gx[1]#_g120394_|) - (cons (cons 'weak? |gx[1]#_g120395_|) - (cons (cons 'id |gx[1]#_g120396_|) - (cons (cons 'key |gx[1]#_g120397_|) + (##unchecked-structure-set! __obj120183 __tmp120659 '15 '#f '#f)) + (let ((__tmp120666 + (cons (cons 'e |gx[1]#_g120667_|) + (cons (cons 'context |gx[1]#_g120668_|) + (cons (cons 'weak? |gx[1]#_g120669_|) + (cons (cons 'id |gx[1]#_g120670_|) + (cons (cons 'key |gx[1]#_g120671_|) (cons (cons 'phi - |gx[1]#_g120398_|) + |gx[1]#_g120672_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj119909 __tmp120392 '16 '#f '#f)) - (let ((__tmp120399 - (cons (cons 'e |gx[1]#_g120400_|) - (cons (cons 'context |gx[1]#_g120401_|) - (cons (cons 'weak? |gx[1]#_g120402_|) - (cons (cons 'id |gx[1]#_g120403_|) - (cons (cons 'key |gx[1]#_g120404_|) + (##unchecked-structure-set! __obj120183 __tmp120666 '16 '#f '#f)) + (let ((__tmp120673 + (cons (cons 'e |gx[1]#_g120674_|) + (cons (cons 'context |gx[1]#_g120675_|) + (cons (cons 'weak? |gx[1]#_g120676_|) + (cons (cons 'id |gx[1]#_g120677_|) + (cons (cons 'key |gx[1]#_g120678_|) (cons (cons 'phi - |gx[1]#_g120405_|) + |gx[1]#_g120679_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj119909 __tmp120399 '17 '#f '#f)) - (let ((__tmp120406 - (cons (cons 'e |gx[1]#_g120407_|) - (cons (cons 'context |gx[1]#_g120408_|) - (cons (cons 'weak? |gx[1]#_g120409_|) - (cons (cons 'id |gx[1]#_g120410_|) - (cons (cons 'key |gx[1]#_g120411_|) + (##unchecked-structure-set! __obj120183 __tmp120673 '17 '#f '#f)) + (let ((__tmp120680 + (cons (cons 'e |gx[1]#_g120681_|) + (cons (cons 'context |gx[1]#_g120682_|) + (cons (cons 'weak? |gx[1]#_g120683_|) + (cons (cons 'id |gx[1]#_g120684_|) + (cons (cons 'key |gx[1]#_g120685_|) (cons (cons 'phi - |gx[1]#_g120412_|) + |gx[1]#_g120686_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj119909 __tmp120406 '18 '#f '#f)) + (##unchecked-structure-set! __obj120183 __tmp120680 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119909 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120183 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119909 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120183 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119909 '() '20 '#f '#f)) - __obj119909)) + (##unchecked-structure-set! __obj120183 '() '20 '#f '#f)) + __obj120183)) (define |gx[:0:]#alias-binding| - (let ((__obj119910 + (let ((__obj120184 (let () (declare (not safe)) (##structure @@ -5332,84 +5332,84 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119910 + __obj120184 'gx#alias-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119910 'alias-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj120184 'alias-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119910 '(e) '4 '#f '#f)) + (##unchecked-structure-set! __obj120184 '(e) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119910 '(id key phi e) '6 '#f '#f)) - (let ((__tmp120413 (cons |gx[1]#_g120230_| '()))) + (##unchecked-structure-set! __obj120184 '(id key phi e) '6 '#f '#f)) + (let ((__tmp120687 (cons |gx[1]#_g120504_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119910 __tmp120413 '3 '#f '#f)) + (##unchecked-structure-set! __obj120184 __tmp120687 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119910 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120184 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119910 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj120184 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119910 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120184 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119910 '#f '11 '#f '#f)) - (let ((__tmp120414 |gx[1]#_g120415_|)) + (##unchecked-structure-set! __obj120184 '#f '11 '#f '#f)) + (let ((__tmp120688 |gx[1]#_g120689_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119910 __tmp120414 '12 '#f '#f)) - (let ((__tmp120416 |gx[1]#_g120417_|)) + (##unchecked-structure-set! __obj120184 __tmp120688 '12 '#f '#f)) + (let ((__tmp120690 |gx[1]#_g120691_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119910 __tmp120416 '13 '#f '#f)) - (let ((__tmp120418 |gx[1]#_g120419_|)) + (##unchecked-structure-set! __obj120184 __tmp120690 '13 '#f '#f)) + (let ((__tmp120692 |gx[1]#_g120693_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119910 __tmp120418 '14 '#f '#f)) - (let ((__tmp120420 - (cons (cons 'e |gx[1]#_g120421_|) - (cons (cons 'id |gx[1]#_g120422_|) - (cons (cons 'key |gx[1]#_g120423_|) - (cons (cons 'phi |gx[1]#_g120424_|) '())))))) + (##unchecked-structure-set! __obj120184 __tmp120692 '14 '#f '#f)) + (let ((__tmp120694 + (cons (cons 'e |gx[1]#_g120695_|) + (cons (cons 'id |gx[1]#_g120696_|) + (cons (cons 'key |gx[1]#_g120697_|) + (cons (cons 'phi |gx[1]#_g120698_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj119910 __tmp120420 '15 '#f '#f)) - (let ((__tmp120425 - (cons (cons 'e |gx[1]#_g120426_|) - (cons (cons 'id |gx[1]#_g120427_|) - (cons (cons 'key |gx[1]#_g120428_|) - (cons (cons 'phi |gx[1]#_g120429_|) '())))))) + (##unchecked-structure-set! __obj120184 __tmp120694 '15 '#f '#f)) + (let ((__tmp120699 + (cons (cons 'e |gx[1]#_g120700_|) + (cons (cons 'id |gx[1]#_g120701_|) + (cons (cons 'key |gx[1]#_g120702_|) + (cons (cons 'phi |gx[1]#_g120703_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj119910 __tmp120425 '16 '#f '#f)) - (let ((__tmp120430 - (cons (cons 'e |gx[1]#_g120431_|) - (cons (cons 'id |gx[1]#_g120432_|) - (cons (cons 'key |gx[1]#_g120433_|) - (cons (cons 'phi |gx[1]#_g120434_|) '())))))) + (##unchecked-structure-set! __obj120184 __tmp120699 '16 '#f '#f)) + (let ((__tmp120704 + (cons (cons 'e |gx[1]#_g120705_|) + (cons (cons 'id |gx[1]#_g120706_|) + (cons (cons 'key |gx[1]#_g120707_|) + (cons (cons 'phi |gx[1]#_g120708_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj119910 __tmp120430 '17 '#f '#f)) - (let ((__tmp120435 - (cons (cons 'e |gx[1]#_g120436_|) - (cons (cons 'id |gx[1]#_g120437_|) - (cons (cons 'key |gx[1]#_g120438_|) - (cons (cons 'phi |gx[1]#_g120439_|) '())))))) + (##unchecked-structure-set! __obj120184 __tmp120704 '17 '#f '#f)) + (let ((__tmp120709 + (cons (cons 'e |gx[1]#_g120710_|) + (cons (cons 'id |gx[1]#_g120711_|) + (cons (cons 'key |gx[1]#_g120712_|) + (cons (cons 'phi |gx[1]#_g120713_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj119910 __tmp120435 '18 '#f '#f)) + (##unchecked-structure-set! __obj120184 __tmp120709 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119910 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120184 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119910 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120184 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119910 '() '20 '#f '#f)) - __obj119910)) + (##unchecked-structure-set! __obj120184 '() '20 '#f '#f)) + __obj120184)) (define |gx[:0:]#expander| - (let ((__obj119911 + (let ((__obj120185 (let () (declare (not safe)) (##structure @@ -5437,64 +5437,64 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119911 'gx#expander::t '1 '#f '#f)) + (##unchecked-structure-set! __obj120185 'gx#expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119911 'expander '2 '#f '#f)) + (##unchecked-structure-set! __obj120185 'expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119911 '(e) '4 '#f '#f)) + (##unchecked-structure-set! __obj120185 '(e) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119911 '(e) '6 '#f '#f)) + (##unchecked-structure-set! __obj120185 '(e) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119911 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj120185 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119911 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120185 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119911 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj120185 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119911 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120185 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119911 '#f '11 '#f '#f)) - (let ((__tmp120440 |gx[1]#_g120441_|)) + (##unchecked-structure-set! __obj120185 '#f '11 '#f '#f)) + (let ((__tmp120714 |gx[1]#_g120715_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119911 __tmp120440 '12 '#f '#f)) - (let ((__tmp120442 |gx[1]#_g120443_|)) + (##unchecked-structure-set! __obj120185 __tmp120714 '12 '#f '#f)) + (let ((__tmp120716 |gx[1]#_g120717_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119911 __tmp120442 '13 '#f '#f)) - (let ((__tmp120444 |gx[1]#_g120445_|)) + (##unchecked-structure-set! __obj120185 __tmp120716 '13 '#f '#f)) + (let ((__tmp120718 |gx[1]#_g120719_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119911 __tmp120444 '14 '#f '#f)) - (let ((__tmp120446 (cons (cons 'e |gx[1]#_g120447_|) '()))) + (##unchecked-structure-set! __obj120185 __tmp120718 '14 '#f '#f)) + (let ((__tmp120720 (cons (cons 'e |gx[1]#_g120721_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119911 __tmp120446 '15 '#f '#f)) - (let ((__tmp120448 (cons (cons 'e |gx[1]#_g120449_|) '()))) + (##unchecked-structure-set! __obj120185 __tmp120720 '15 '#f '#f)) + (let ((__tmp120722 (cons (cons 'e |gx[1]#_g120723_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119911 __tmp120448 '16 '#f '#f)) - (let ((__tmp120450 (cons (cons 'e |gx[1]#_g120451_|) '()))) + (##unchecked-structure-set! __obj120185 __tmp120722 '16 '#f '#f)) + (let ((__tmp120724 (cons (cons 'e |gx[1]#_g120725_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119911 __tmp120450 '17 '#f '#f)) - (let ((__tmp120452 (cons (cons 'e |gx[1]#_g120453_|) '()))) + (##unchecked-structure-set! __obj120185 __tmp120724 '17 '#f '#f)) + (let ((__tmp120726 (cons (cons 'e |gx[1]#_g120727_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119911 __tmp120452 '18 '#f '#f)) + (##unchecked-structure-set! __obj120185 __tmp120726 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119911 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120185 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119911 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120185 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119911 '() '20 '#f '#f)) - __obj119911)) + (##unchecked-structure-set! __obj120185 '() '20 '#f '#f)) + __obj120185)) (define |gx[:0:]#core-expander| - (let ((__obj119912 + (let ((__obj120186 (let () (declare (not safe)) (##structure @@ -5523,18 +5523,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119912 + __obj120186 'gx#core-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119912 'core-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj120186 'core-expander '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119912 + __obj120186 '(id compile-top) '4 '#f @@ -5542,71 +5542,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119912 + __obj120186 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp120454 (cons |gx[1]#_g120455_| '()))) + (let ((__tmp120728 (cons |gx[1]#_g120729_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119912 __tmp120454 '3 '#f '#f)) + (##unchecked-structure-set! __obj120186 __tmp120728 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119912 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120186 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119912 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj120186 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119912 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120186 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119912 '#f '11 '#f '#f)) - (let ((__tmp120456 |gx[1]#_g120457_|)) + (##unchecked-structure-set! __obj120186 '#f '11 '#f '#f)) + (let ((__tmp120730 |gx[1]#_g120731_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119912 __tmp120456 '12 '#f '#f)) - (let ((__tmp120458 |gx[1]#_g120459_|)) + (##unchecked-structure-set! __obj120186 __tmp120730 '12 '#f '#f)) + (let ((__tmp120732 |gx[1]#_g120733_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119912 __tmp120458 '13 '#f '#f)) - (let ((__tmp120460 |gx[1]#_g120461_|)) + (##unchecked-structure-set! __obj120186 __tmp120732 '13 '#f '#f)) + (let ((__tmp120734 |gx[1]#_g120735_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119912 __tmp120460 '14 '#f '#f)) - (let ((__tmp120462 - (cons (cons 'id |gx[1]#_g120463_|) - (cons (cons 'compile-top |gx[1]#_g120464_|) - (cons (cons 'e |gx[1]#_g120465_|) '()))))) + (##unchecked-structure-set! __obj120186 __tmp120734 '14 '#f '#f)) + (let ((__tmp120736 + (cons (cons 'id |gx[1]#_g120737_|) + (cons (cons 'compile-top |gx[1]#_g120738_|) + (cons (cons 'e |gx[1]#_g120739_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119912 __tmp120462 '15 '#f '#f)) - (let ((__tmp120466 - (cons (cons 'id |gx[1]#_g120467_|) - (cons (cons 'compile-top |gx[1]#_g120468_|) - (cons (cons 'e |gx[1]#_g120469_|) '()))))) + (##unchecked-structure-set! __obj120186 __tmp120736 '15 '#f '#f)) + (let ((__tmp120740 + (cons (cons 'id |gx[1]#_g120741_|) + (cons (cons 'compile-top |gx[1]#_g120742_|) + (cons (cons 'e |gx[1]#_g120743_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119912 __tmp120466 '16 '#f '#f)) - (let ((__tmp120470 - (cons (cons 'id |gx[1]#_g120471_|) - (cons (cons 'compile-top |gx[1]#_g120472_|) - (cons (cons 'e |gx[1]#_g120473_|) '()))))) + (##unchecked-structure-set! __obj120186 __tmp120740 '16 '#f '#f)) + (let ((__tmp120744 + (cons (cons 'id |gx[1]#_g120745_|) + (cons (cons 'compile-top |gx[1]#_g120746_|) + (cons (cons 'e |gx[1]#_g120747_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119912 __tmp120470 '17 '#f '#f)) - (let ((__tmp120474 - (cons (cons 'id |gx[1]#_g120475_|) - (cons (cons 'compile-top |gx[1]#_g120476_|) - (cons (cons 'e |gx[1]#_g120477_|) '()))))) + (##unchecked-structure-set! __obj120186 __tmp120744 '17 '#f '#f)) + (let ((__tmp120748 + (cons (cons 'id |gx[1]#_g120749_|) + (cons (cons 'compile-top |gx[1]#_g120750_|) + (cons (cons 'e |gx[1]#_g120751_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119912 __tmp120474 '18 '#f '#f)) + (##unchecked-structure-set! __obj120186 __tmp120748 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119912 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120186 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119912 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120186 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119912 '() '20 '#f '#f)) - __obj119912)) + (##unchecked-structure-set! __obj120186 '() '20 '#f '#f)) + __obj120186)) (define |gx[:0:]#expression-form| - (let ((__obj119913 + (let ((__obj120187 (let () (declare (not safe)) (##structure @@ -5635,85 +5635,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119913 + __obj120187 'gx#expression-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119913 'expression-form '2 '#f '#f)) + (##unchecked-structure-set! __obj120187 'expression-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119913 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj120187 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119913 + __obj120187 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp120478 (cons |gx[1]#_g120479_| '()))) + (let ((__tmp120752 (cons |gx[1]#_g120753_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119913 __tmp120478 '3 '#f '#f)) + (##unchecked-structure-set! __obj120187 __tmp120752 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119913 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120187 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119913 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj120187 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119913 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120187 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119913 '#f '11 '#f '#f)) - (let ((__tmp120480 |gx[1]#_g120481_|)) + (##unchecked-structure-set! __obj120187 '#f '11 '#f '#f)) + (let ((__tmp120754 |gx[1]#_g120755_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119913 __tmp120480 '12 '#f '#f)) - (let ((__tmp120482 |gx[1]#_g120483_|)) + (##unchecked-structure-set! __obj120187 __tmp120754 '12 '#f '#f)) + (let ((__tmp120756 |gx[1]#_g120757_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119913 __tmp120482 '13 '#f '#f)) - (let ((__tmp120484 |gx[1]#_g120485_|)) + (##unchecked-structure-set! __obj120187 __tmp120756 '13 '#f '#f)) + (let ((__tmp120758 |gx[1]#_g120759_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119913 __tmp120484 '14 '#f '#f)) - (let ((__tmp120486 - (cons (cons 'id |gx[1]#_g120487_|) - (cons (cons 'compile-top |gx[1]#_g120488_|) - (cons (cons 'e |gx[1]#_g120489_|) '()))))) + (##unchecked-structure-set! __obj120187 __tmp120758 '14 '#f '#f)) + (let ((__tmp120760 + (cons (cons 'id |gx[1]#_g120761_|) + (cons (cons 'compile-top |gx[1]#_g120762_|) + (cons (cons 'e |gx[1]#_g120763_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119913 __tmp120486 '15 '#f '#f)) - (let ((__tmp120490 - (cons (cons 'id |gx[1]#_g120491_|) - (cons (cons 'compile-top |gx[1]#_g120492_|) - (cons (cons 'e |gx[1]#_g120493_|) '()))))) + (##unchecked-structure-set! __obj120187 __tmp120760 '15 '#f '#f)) + (let ((__tmp120764 + (cons (cons 'id |gx[1]#_g120765_|) + (cons (cons 'compile-top |gx[1]#_g120766_|) + (cons (cons 'e |gx[1]#_g120767_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119913 __tmp120490 '16 '#f '#f)) - (let ((__tmp120494 - (cons (cons 'id |gx[1]#_g120495_|) - (cons (cons 'compile-top |gx[1]#_g120496_|) - (cons (cons 'e |gx[1]#_g120497_|) '()))))) + (##unchecked-structure-set! __obj120187 __tmp120764 '16 '#f '#f)) + (let ((__tmp120768 + (cons (cons 'id |gx[1]#_g120769_|) + (cons (cons 'compile-top |gx[1]#_g120770_|) + (cons (cons 'e |gx[1]#_g120771_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119913 __tmp120494 '17 '#f '#f)) - (let ((__tmp120498 - (cons (cons 'id |gx[1]#_g120499_|) - (cons (cons 'compile-top |gx[1]#_g120500_|) - (cons (cons 'e |gx[1]#_g120501_|) '()))))) + (##unchecked-structure-set! __obj120187 __tmp120768 '17 '#f '#f)) + (let ((__tmp120772 + (cons (cons 'id |gx[1]#_g120773_|) + (cons (cons 'compile-top |gx[1]#_g120774_|) + (cons (cons 'e |gx[1]#_g120775_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119913 __tmp120498 '18 '#f '#f)) + (##unchecked-structure-set! __obj120187 __tmp120772 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119913 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120187 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119913 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120187 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119913 '() '20 '#f '#f)) - __obj119913)) + (##unchecked-structure-set! __obj120187 '() '20 '#f '#f)) + __obj120187)) (define |gx[:0:]#special-form| - (let ((__obj119914 + (let ((__obj120188 (let () (declare (not safe)) (##structure @@ -5742,85 +5742,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119914 + __obj120188 'gx#special-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119914 'special-form '2 '#f '#f)) + (##unchecked-structure-set! __obj120188 'special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119914 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj120188 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119914 + __obj120188 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp120502 (cons |gx[1]#_g120479_| '()))) + (let ((__tmp120776 (cons |gx[1]#_g120753_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119914 __tmp120502 '3 '#f '#f)) + (##unchecked-structure-set! __obj120188 __tmp120776 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119914 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120188 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119914 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj120188 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119914 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120188 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119914 '#f '11 '#f '#f)) - (let ((__tmp120503 |gx[1]#_g120504_|)) + (##unchecked-structure-set! __obj120188 '#f '11 '#f '#f)) + (let ((__tmp120777 |gx[1]#_g120778_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119914 __tmp120503 '12 '#f '#f)) - (let ((__tmp120505 |gx[1]#_g120506_|)) + (##unchecked-structure-set! __obj120188 __tmp120777 '12 '#f '#f)) + (let ((__tmp120779 |gx[1]#_g120780_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119914 __tmp120505 '13 '#f '#f)) - (let ((__tmp120507 |gx[1]#_g120508_|)) + (##unchecked-structure-set! __obj120188 __tmp120779 '13 '#f '#f)) + (let ((__tmp120781 |gx[1]#_g120782_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119914 __tmp120507 '14 '#f '#f)) - (let ((__tmp120509 - (cons (cons 'id |gx[1]#_g120510_|) - (cons (cons 'compile-top |gx[1]#_g120511_|) - (cons (cons 'e |gx[1]#_g120512_|) '()))))) + (##unchecked-structure-set! __obj120188 __tmp120781 '14 '#f '#f)) + (let ((__tmp120783 + (cons (cons 'id |gx[1]#_g120784_|) + (cons (cons 'compile-top |gx[1]#_g120785_|) + (cons (cons 'e |gx[1]#_g120786_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119914 __tmp120509 '15 '#f '#f)) - (let ((__tmp120513 - (cons (cons 'id |gx[1]#_g120514_|) - (cons (cons 'compile-top |gx[1]#_g120515_|) - (cons (cons 'e |gx[1]#_g120516_|) '()))))) + (##unchecked-structure-set! __obj120188 __tmp120783 '15 '#f '#f)) + (let ((__tmp120787 + (cons (cons 'id |gx[1]#_g120788_|) + (cons (cons 'compile-top |gx[1]#_g120789_|) + (cons (cons 'e |gx[1]#_g120790_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119914 __tmp120513 '16 '#f '#f)) - (let ((__tmp120517 - (cons (cons 'id |gx[1]#_g120518_|) - (cons (cons 'compile-top |gx[1]#_g120519_|) - (cons (cons 'e |gx[1]#_g120520_|) '()))))) + (##unchecked-structure-set! __obj120188 __tmp120787 '16 '#f '#f)) + (let ((__tmp120791 + (cons (cons 'id |gx[1]#_g120792_|) + (cons (cons 'compile-top |gx[1]#_g120793_|) + (cons (cons 'e |gx[1]#_g120794_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119914 __tmp120517 '17 '#f '#f)) - (let ((__tmp120521 - (cons (cons 'id |gx[1]#_g120522_|) - (cons (cons 'compile-top |gx[1]#_g120523_|) - (cons (cons 'e |gx[1]#_g120524_|) '()))))) + (##unchecked-structure-set! __obj120188 __tmp120791 '17 '#f '#f)) + (let ((__tmp120795 + (cons (cons 'id |gx[1]#_g120796_|) + (cons (cons 'compile-top |gx[1]#_g120797_|) + (cons (cons 'e |gx[1]#_g120798_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119914 __tmp120521 '18 '#f '#f)) + (##unchecked-structure-set! __obj120188 __tmp120795 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119914 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120188 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119914 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120188 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119914 '() '20 '#f '#f)) - __obj119914)) + (##unchecked-structure-set! __obj120188 '() '20 '#f '#f)) + __obj120188)) (define |gx[:0:]#definition-form| - (let ((__obj119915 + (let ((__obj120189 (let () (declare (not safe)) (##structure @@ -5849,85 +5849,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119915 + __obj120189 'gx#definition-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119915 'definition-form '2 '#f '#f)) + (##unchecked-structure-set! __obj120189 'definition-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119915 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj120189 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119915 + __obj120189 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp120525 (cons |gx[1]#_g120526_| '()))) + (let ((__tmp120799 (cons |gx[1]#_g120800_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119915 __tmp120525 '3 '#f '#f)) + (##unchecked-structure-set! __obj120189 __tmp120799 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119915 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120189 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119915 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj120189 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119915 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120189 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119915 '#f '11 '#f '#f)) - (let ((__tmp120527 |gx[1]#_g120528_|)) + (##unchecked-structure-set! __obj120189 '#f '11 '#f '#f)) + (let ((__tmp120801 |gx[1]#_g120802_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119915 __tmp120527 '12 '#f '#f)) - (let ((__tmp120529 |gx[1]#_g120530_|)) + (##unchecked-structure-set! __obj120189 __tmp120801 '12 '#f '#f)) + (let ((__tmp120803 |gx[1]#_g120804_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119915 __tmp120529 '13 '#f '#f)) - (let ((__tmp120531 |gx[1]#_g120532_|)) + (##unchecked-structure-set! __obj120189 __tmp120803 '13 '#f '#f)) + (let ((__tmp120805 |gx[1]#_g120806_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119915 __tmp120531 '14 '#f '#f)) - (let ((__tmp120533 - (cons (cons 'id |gx[1]#_g120534_|) - (cons (cons 'compile-top |gx[1]#_g120535_|) - (cons (cons 'e |gx[1]#_g120536_|) '()))))) + (##unchecked-structure-set! __obj120189 __tmp120805 '14 '#f '#f)) + (let ((__tmp120807 + (cons (cons 'id |gx[1]#_g120808_|) + (cons (cons 'compile-top |gx[1]#_g120809_|) + (cons (cons 'e |gx[1]#_g120810_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119915 __tmp120533 '15 '#f '#f)) - (let ((__tmp120537 - (cons (cons 'id |gx[1]#_g120538_|) - (cons (cons 'compile-top |gx[1]#_g120539_|) - (cons (cons 'e |gx[1]#_g120540_|) '()))))) + (##unchecked-structure-set! __obj120189 __tmp120807 '15 '#f '#f)) + (let ((__tmp120811 + (cons (cons 'id |gx[1]#_g120812_|) + (cons (cons 'compile-top |gx[1]#_g120813_|) + (cons (cons 'e |gx[1]#_g120814_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119915 __tmp120537 '16 '#f '#f)) - (let ((__tmp120541 - (cons (cons 'id |gx[1]#_g120542_|) - (cons (cons 'compile-top |gx[1]#_g120543_|) - (cons (cons 'e |gx[1]#_g120544_|) '()))))) + (##unchecked-structure-set! __obj120189 __tmp120811 '16 '#f '#f)) + (let ((__tmp120815 + (cons (cons 'id |gx[1]#_g120816_|) + (cons (cons 'compile-top |gx[1]#_g120817_|) + (cons (cons 'e |gx[1]#_g120818_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119915 __tmp120541 '17 '#f '#f)) - (let ((__tmp120545 - (cons (cons 'id |gx[1]#_g120546_|) - (cons (cons 'compile-top |gx[1]#_g120547_|) - (cons (cons 'e |gx[1]#_g120548_|) '()))))) + (##unchecked-structure-set! __obj120189 __tmp120815 '17 '#f '#f)) + (let ((__tmp120819 + (cons (cons 'id |gx[1]#_g120820_|) + (cons (cons 'compile-top |gx[1]#_g120821_|) + (cons (cons 'e |gx[1]#_g120822_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119915 __tmp120545 '18 '#f '#f)) + (##unchecked-structure-set! __obj120189 __tmp120819 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119915 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120189 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119915 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120189 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119915 '() '20 '#f '#f)) - __obj119915)) + (##unchecked-structure-set! __obj120189 '() '20 '#f '#f)) + __obj120189)) (define |gx[:0:]#top-special-form| - (let ((__obj119916 + (let ((__obj120190 (let () (declare (not safe)) (##structure @@ -5956,7 +5956,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119916 + __obj120190 'gx#top-special-form::t '1 '#f @@ -5964,82 +5964,82 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119916 + __obj120190 'top-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119916 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj120190 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119916 + __obj120190 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp120549 (cons |gx[1]#_g120526_| '()))) + (let ((__tmp120823 (cons |gx[1]#_g120800_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119916 __tmp120549 '3 '#f '#f)) + (##unchecked-structure-set! __obj120190 __tmp120823 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119916 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120190 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119916 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj120190 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119916 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120190 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119916 '#f '11 '#f '#f)) - (let ((__tmp120550 |gx[1]#_g120551_|)) + (##unchecked-structure-set! __obj120190 '#f '11 '#f '#f)) + (let ((__tmp120824 |gx[1]#_g120825_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119916 __tmp120550 '12 '#f '#f)) - (let ((__tmp120552 |gx[1]#_g120553_|)) + (##unchecked-structure-set! __obj120190 __tmp120824 '12 '#f '#f)) + (let ((__tmp120826 |gx[1]#_g120827_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119916 __tmp120552 '13 '#f '#f)) - (let ((__tmp120554 |gx[1]#_g120555_|)) + (##unchecked-structure-set! __obj120190 __tmp120826 '13 '#f '#f)) + (let ((__tmp120828 |gx[1]#_g120829_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119916 __tmp120554 '14 '#f '#f)) - (let ((__tmp120556 - (cons (cons 'id |gx[1]#_g120557_|) - (cons (cons 'compile-top |gx[1]#_g120558_|) - (cons (cons 'e |gx[1]#_g120559_|) '()))))) + (##unchecked-structure-set! __obj120190 __tmp120828 '14 '#f '#f)) + (let ((__tmp120830 + (cons (cons 'id |gx[1]#_g120831_|) + (cons (cons 'compile-top |gx[1]#_g120832_|) + (cons (cons 'e |gx[1]#_g120833_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119916 __tmp120556 '15 '#f '#f)) - (let ((__tmp120560 - (cons (cons 'id |gx[1]#_g120561_|) - (cons (cons 'compile-top |gx[1]#_g120562_|) - (cons (cons 'e |gx[1]#_g120563_|) '()))))) + (##unchecked-structure-set! __obj120190 __tmp120830 '15 '#f '#f)) + (let ((__tmp120834 + (cons (cons 'id |gx[1]#_g120835_|) + (cons (cons 'compile-top |gx[1]#_g120836_|) + (cons (cons 'e |gx[1]#_g120837_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119916 __tmp120560 '16 '#f '#f)) - (let ((__tmp120564 - (cons (cons 'id |gx[1]#_g120565_|) - (cons (cons 'compile-top |gx[1]#_g120566_|) - (cons (cons 'e |gx[1]#_g120567_|) '()))))) + (##unchecked-structure-set! __obj120190 __tmp120834 '16 '#f '#f)) + (let ((__tmp120838 + (cons (cons 'id |gx[1]#_g120839_|) + (cons (cons 'compile-top |gx[1]#_g120840_|) + (cons (cons 'e |gx[1]#_g120841_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119916 __tmp120564 '17 '#f '#f)) - (let ((__tmp120568 - (cons (cons 'id |gx[1]#_g120569_|) - (cons (cons 'compile-top |gx[1]#_g120570_|) - (cons (cons 'e |gx[1]#_g120571_|) '()))))) + (##unchecked-structure-set! __obj120190 __tmp120838 '17 '#f '#f)) + (let ((__tmp120842 + (cons (cons 'id |gx[1]#_g120843_|) + (cons (cons 'compile-top |gx[1]#_g120844_|) + (cons (cons 'e |gx[1]#_g120845_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119916 __tmp120568 '18 '#f '#f)) + (##unchecked-structure-set! __obj120190 __tmp120842 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119916 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120190 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119916 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120190 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119916 '() '20 '#f '#f)) - __obj119916)) + (##unchecked-structure-set! __obj120190 '() '20 '#f '#f)) + __obj120190)) (define |gx[:0:]#module-special-form| - (let ((__obj119917 + (let ((__obj120191 (let () (declare (not safe)) (##structure @@ -6068,7 +6068,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119917 + __obj120191 'gx#module-special-form::t '1 '#f @@ -6076,82 +6076,82 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119917 + __obj120191 'module-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119917 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj120191 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119917 + __obj120191 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp120572 (cons |gx[1]#_g120573_| '()))) + (let ((__tmp120846 (cons |gx[1]#_g120847_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119917 __tmp120572 '3 '#f '#f)) + (##unchecked-structure-set! __obj120191 __tmp120846 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119917 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120191 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119917 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj120191 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119917 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120191 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119917 '#f '11 '#f '#f)) - (let ((__tmp120574 |gx[1]#_g120575_|)) + (##unchecked-structure-set! __obj120191 '#f '11 '#f '#f)) + (let ((__tmp120848 |gx[1]#_g120849_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119917 __tmp120574 '12 '#f '#f)) - (let ((__tmp120576 |gx[1]#_g120577_|)) + (##unchecked-structure-set! __obj120191 __tmp120848 '12 '#f '#f)) + (let ((__tmp120850 |gx[1]#_g120851_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119917 __tmp120576 '13 '#f '#f)) - (let ((__tmp120578 |gx[1]#_g120579_|)) + (##unchecked-structure-set! __obj120191 __tmp120850 '13 '#f '#f)) + (let ((__tmp120852 |gx[1]#_g120853_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119917 __tmp120578 '14 '#f '#f)) - (let ((__tmp120580 - (cons (cons 'id |gx[1]#_g120581_|) - (cons (cons 'compile-top |gx[1]#_g120582_|) - (cons (cons 'e |gx[1]#_g120583_|) '()))))) - (declare (not safe)) - (##unchecked-structure-set! __obj119917 __tmp120580 '15 '#f '#f)) - (let ((__tmp120584 - (cons (cons 'id |gx[1]#_g120585_|) - (cons (cons 'compile-top |gx[1]#_g120586_|) - (cons (cons 'e |gx[1]#_g120587_|) '()))))) - (declare (not safe)) - (##unchecked-structure-set! __obj119917 __tmp120584 '16 '#f '#f)) - (let ((__tmp120588 - (cons (cons 'id |gx[1]#_g120589_|) - (cons (cons 'compile-top |gx[1]#_g120590_|) - (cons (cons 'e |gx[1]#_g120591_|) '()))))) - (declare (not safe)) - (##unchecked-structure-set! __obj119917 __tmp120588 '17 '#f '#f)) - (let ((__tmp120592 - (cons (cons 'id |gx[1]#_g120593_|) - (cons (cons 'compile-top |gx[1]#_g120594_|) - (cons (cons 'e |gx[1]#_g120595_|) '()))))) + (##unchecked-structure-set! __obj120191 __tmp120852 '14 '#f '#f)) + (let ((__tmp120854 + (cons (cons 'id |gx[1]#_g120855_|) + (cons (cons 'compile-top |gx[1]#_g120856_|) + (cons (cons 'e |gx[1]#_g120857_|) '()))))) + (declare (not safe)) + (##unchecked-structure-set! __obj120191 __tmp120854 '15 '#f '#f)) + (let ((__tmp120858 + (cons (cons 'id |gx[1]#_g120859_|) + (cons (cons 'compile-top |gx[1]#_g120860_|) + (cons (cons 'e |gx[1]#_g120861_|) '()))))) + (declare (not safe)) + (##unchecked-structure-set! __obj120191 __tmp120858 '16 '#f '#f)) + (let ((__tmp120862 + (cons (cons 'id |gx[1]#_g120863_|) + (cons (cons 'compile-top |gx[1]#_g120864_|) + (cons (cons 'e |gx[1]#_g120865_|) '()))))) + (declare (not safe)) + (##unchecked-structure-set! __obj120191 __tmp120862 '17 '#f '#f)) + (let ((__tmp120866 + (cons (cons 'id |gx[1]#_g120867_|) + (cons (cons 'compile-top |gx[1]#_g120868_|) + (cons (cons 'e |gx[1]#_g120869_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119917 __tmp120592 '18 '#f '#f)) + (##unchecked-structure-set! __obj120191 __tmp120866 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119917 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120191 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119917 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120191 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119917 '() '20 '#f '#f)) - __obj119917)) + (##unchecked-structure-set! __obj120191 '() '20 '#f '#f)) + __obj120191)) (define |gx[:0:]#feature-expander| - (let ((__obj119918 + (let ((__obj120192 (let () (declare (not safe)) (##structure @@ -6180,7 +6180,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119918 + __obj120192 'gx#feature-expander::t '1 '#f @@ -6188,65 +6188,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119918 + __obj120192 'feature-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119918 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj120192 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119918 '(e) '6 '#f '#f)) - (let ((__tmp120596 (cons |gx[1]#_g120455_| '()))) + (##unchecked-structure-set! __obj120192 '(e) '6 '#f '#f)) + (let ((__tmp120870 (cons |gx[1]#_g120729_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119918 __tmp120596 '3 '#f '#f)) + (##unchecked-structure-set! __obj120192 __tmp120870 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119918 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120192 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119918 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj120192 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119918 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120192 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119918 '#f '11 '#f '#f)) - (let ((__tmp120597 |gx[1]#_g120598_|)) + (##unchecked-structure-set! __obj120192 '#f '11 '#f '#f)) + (let ((__tmp120871 |gx[1]#_g120872_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119918 __tmp120597 '12 '#f '#f)) - (let ((__tmp120599 |gx[1]#_g120600_|)) + (##unchecked-structure-set! __obj120192 __tmp120871 '12 '#f '#f)) + (let ((__tmp120873 |gx[1]#_g120874_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119918 __tmp120599 '13 '#f '#f)) - (let ((__tmp120601 |gx[1]#_g120602_|)) + (##unchecked-structure-set! __obj120192 __tmp120873 '13 '#f '#f)) + (let ((__tmp120875 |gx[1]#_g120876_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119918 __tmp120601 '14 '#f '#f)) - (let ((__tmp120603 (cons (cons 'e |gx[1]#_g120604_|) '()))) + (##unchecked-structure-set! __obj120192 __tmp120875 '14 '#f '#f)) + (let ((__tmp120877 (cons (cons 'e |gx[1]#_g120878_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119918 __tmp120603 '15 '#f '#f)) - (let ((__tmp120605 (cons (cons 'e |gx[1]#_g120606_|) '()))) + (##unchecked-structure-set! __obj120192 __tmp120877 '15 '#f '#f)) + (let ((__tmp120879 (cons (cons 'e |gx[1]#_g120880_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119918 __tmp120605 '16 '#f '#f)) - (let ((__tmp120607 (cons (cons 'e |gx[1]#_g120608_|) '()))) + (##unchecked-structure-set! __obj120192 __tmp120879 '16 '#f '#f)) + (let ((__tmp120881 (cons (cons 'e |gx[1]#_g120882_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119918 __tmp120607 '17 '#f '#f)) - (let ((__tmp120609 (cons (cons 'e |gx[1]#_g120610_|) '()))) + (##unchecked-structure-set! __obj120192 __tmp120881 '17 '#f '#f)) + (let ((__tmp120883 (cons (cons 'e |gx[1]#_g120884_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119918 __tmp120609 '18 '#f '#f)) + (##unchecked-structure-set! __obj120192 __tmp120883 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119918 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120192 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119918 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120192 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119918 '() '20 '#f '#f)) - __obj119918)) + (##unchecked-structure-set! __obj120192 '() '20 '#f '#f)) + __obj120192)) (define |gx[:0:]#private-feature-expander| - (let ((__obj119919 + (let ((__obj120193 (let () (declare (not safe)) (##structure @@ -6275,7 +6275,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119919 + __obj120193 'gx#private-feature-expander::t '1 '#f @@ -6283,65 +6283,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119919 + __obj120193 'private-feature-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119919 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj120193 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119919 '(e) '6 '#f '#f)) - (let ((__tmp120611 (cons |gx[1]#_g120612_| '()))) + (##unchecked-structure-set! __obj120193 '(e) '6 '#f '#f)) + (let ((__tmp120885 (cons |gx[1]#_g120886_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119919 __tmp120611 '3 '#f '#f)) + (##unchecked-structure-set! __obj120193 __tmp120885 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119919 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120193 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119919 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj120193 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119919 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120193 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119919 '#f '11 '#f '#f)) - (let ((__tmp120613 |gx[1]#_g120614_|)) + (##unchecked-structure-set! __obj120193 '#f '11 '#f '#f)) + (let ((__tmp120887 |gx[1]#_g120888_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119919 __tmp120613 '12 '#f '#f)) - (let ((__tmp120615 |gx[1]#_g120616_|)) + (##unchecked-structure-set! __obj120193 __tmp120887 '12 '#f '#f)) + (let ((__tmp120889 |gx[1]#_g120890_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119919 __tmp120615 '13 '#f '#f)) - (let ((__tmp120617 |gx[1]#_g120618_|)) + (##unchecked-structure-set! __obj120193 __tmp120889 '13 '#f '#f)) + (let ((__tmp120891 |gx[1]#_g120892_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119919 __tmp120617 '14 '#f '#f)) - (let ((__tmp120619 (cons (cons 'e |gx[1]#_g120620_|) '()))) + (##unchecked-structure-set! __obj120193 __tmp120891 '14 '#f '#f)) + (let ((__tmp120893 (cons (cons 'e |gx[1]#_g120894_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119919 __tmp120619 '15 '#f '#f)) - (let ((__tmp120621 (cons (cons 'e |gx[1]#_g120622_|) '()))) + (##unchecked-structure-set! __obj120193 __tmp120893 '15 '#f '#f)) + (let ((__tmp120895 (cons (cons 'e |gx[1]#_g120896_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119919 __tmp120621 '16 '#f '#f)) - (let ((__tmp120623 (cons (cons 'e |gx[1]#_g120624_|) '()))) + (##unchecked-structure-set! __obj120193 __tmp120895 '16 '#f '#f)) + (let ((__tmp120897 (cons (cons 'e |gx[1]#_g120898_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119919 __tmp120623 '17 '#f '#f)) - (let ((__tmp120625 (cons (cons 'e |gx[1]#_g120626_|) '()))) + (##unchecked-structure-set! __obj120193 __tmp120897 '17 '#f '#f)) + (let ((__tmp120899 (cons (cons 'e |gx[1]#_g120900_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119919 __tmp120625 '18 '#f '#f)) + (##unchecked-structure-set! __obj120193 __tmp120899 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119919 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120193 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119919 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120193 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119919 '() '20 '#f '#f)) - __obj119919)) + (##unchecked-structure-set! __obj120193 '() '20 '#f '#f)) + __obj120193)) (define |gx[:0:]#reserved-expander| - (let ((__obj119920 + (let ((__obj120194 (let () (declare (not safe)) (##structure @@ -6370,7 +6370,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119920 + __obj120194 'gx#reserved-expander::t '1 '#f @@ -6378,65 +6378,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119920 + __obj120194 'reserved-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119920 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj120194 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119920 '(e) '6 '#f '#f)) - (let ((__tmp120627 (cons |gx[1]#_g120455_| '()))) + (##unchecked-structure-set! __obj120194 '(e) '6 '#f '#f)) + (let ((__tmp120901 (cons |gx[1]#_g120729_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119920 __tmp120627 '3 '#f '#f)) + (##unchecked-structure-set! __obj120194 __tmp120901 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119920 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120194 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119920 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj120194 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119920 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120194 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119920 '#f '11 '#f '#f)) - (let ((__tmp120628 |gx[1]#_g120629_|)) + (##unchecked-structure-set! __obj120194 '#f '11 '#f '#f)) + (let ((__tmp120902 |gx[1]#_g120903_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119920 __tmp120628 '12 '#f '#f)) - (let ((__tmp120630 |gx[1]#_g120631_|)) + (##unchecked-structure-set! __obj120194 __tmp120902 '12 '#f '#f)) + (let ((__tmp120904 |gx[1]#_g120905_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119920 __tmp120630 '13 '#f '#f)) - (let ((__tmp120632 |gx[1]#_g120633_|)) + (##unchecked-structure-set! __obj120194 __tmp120904 '13 '#f '#f)) + (let ((__tmp120906 |gx[1]#_g120907_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119920 __tmp120632 '14 '#f '#f)) - (let ((__tmp120634 (cons (cons 'e |gx[1]#_g120635_|) '()))) + (##unchecked-structure-set! __obj120194 __tmp120906 '14 '#f '#f)) + (let ((__tmp120908 (cons (cons 'e |gx[1]#_g120909_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119920 __tmp120634 '15 '#f '#f)) - (let ((__tmp120636 (cons (cons 'e |gx[1]#_g120637_|) '()))) + (##unchecked-structure-set! __obj120194 __tmp120908 '15 '#f '#f)) + (let ((__tmp120910 (cons (cons 'e |gx[1]#_g120911_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119920 __tmp120636 '16 '#f '#f)) - (let ((__tmp120638 (cons (cons 'e |gx[1]#_g120639_|) '()))) + (##unchecked-structure-set! __obj120194 __tmp120910 '16 '#f '#f)) + (let ((__tmp120912 (cons (cons 'e |gx[1]#_g120913_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119920 __tmp120638 '17 '#f '#f)) - (let ((__tmp120640 (cons (cons 'e |gx[1]#_g120641_|) '()))) + (##unchecked-structure-set! __obj120194 __tmp120912 '17 '#f '#f)) + (let ((__tmp120914 (cons (cons 'e |gx[1]#_g120915_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119920 __tmp120640 '18 '#f '#f)) + (##unchecked-structure-set! __obj120194 __tmp120914 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119920 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120194 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119920 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120194 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119920 '() '20 '#f '#f)) - __obj119920)) + (##unchecked-structure-set! __obj120194 '() '20 '#f '#f)) + __obj120194)) (define |gx[:0:]#macro-expander| - (let ((__obj119921 + (let ((__obj120195 (let () (declare (not safe)) (##structure @@ -6465,68 +6465,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119921 + __obj120195 'gx#macro-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119921 'macro-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj120195 'macro-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119921 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj120195 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119921 '(e) '6 '#f '#f)) - (let ((__tmp120642 (cons |gx[1]#_g120455_| '()))) + (##unchecked-structure-set! __obj120195 '(e) '6 '#f '#f)) + (let ((__tmp120916 (cons |gx[1]#_g120729_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119921 __tmp120642 '3 '#f '#f)) + (##unchecked-structure-set! __obj120195 __tmp120916 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119921 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120195 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119921 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj120195 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119921 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120195 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119921 '#f '11 '#f '#f)) - (let ((__tmp120643 |gx[1]#_g120644_|)) + (##unchecked-structure-set! __obj120195 '#f '11 '#f '#f)) + (let ((__tmp120917 |gx[1]#_g120918_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119921 __tmp120643 '12 '#f '#f)) - (let ((__tmp120645 |gx[1]#_g120646_|)) + (##unchecked-structure-set! __obj120195 __tmp120917 '12 '#f '#f)) + (let ((__tmp120919 |gx[1]#_g120920_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119921 __tmp120645 '13 '#f '#f)) - (let ((__tmp120647 |gx[1]#_g120648_|)) + (##unchecked-structure-set! __obj120195 __tmp120919 '13 '#f '#f)) + (let ((__tmp120921 |gx[1]#_g120922_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119921 __tmp120647 '14 '#f '#f)) - (let ((__tmp120649 (cons (cons 'e |gx[1]#_g120650_|) '()))) + (##unchecked-structure-set! __obj120195 __tmp120921 '14 '#f '#f)) + (let ((__tmp120923 (cons (cons 'e |gx[1]#_g120924_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119921 __tmp120649 '15 '#f '#f)) - (let ((__tmp120651 (cons (cons 'e |gx[1]#_g120652_|) '()))) + (##unchecked-structure-set! __obj120195 __tmp120923 '15 '#f '#f)) + (let ((__tmp120925 (cons (cons 'e |gx[1]#_g120926_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119921 __tmp120651 '16 '#f '#f)) - (let ((__tmp120653 (cons (cons 'e |gx[1]#_g120654_|) '()))) + (##unchecked-structure-set! __obj120195 __tmp120925 '16 '#f '#f)) + (let ((__tmp120927 (cons (cons 'e |gx[1]#_g120928_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119921 __tmp120653 '17 '#f '#f)) - (let ((__tmp120655 (cons (cons 'e |gx[1]#_g120656_|) '()))) + (##unchecked-structure-set! __obj120195 __tmp120927 '17 '#f '#f)) + (let ((__tmp120929 (cons (cons 'e |gx[1]#_g120930_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119921 __tmp120655 '18 '#f '#f)) + (##unchecked-structure-set! __obj120195 __tmp120929 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119921 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120195 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119921 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120195 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119921 '() '20 '#f '#f)) - __obj119921)) + (##unchecked-structure-set! __obj120195 '() '20 '#f '#f)) + __obj120195)) (define |gx[:0:]#rename-macro-expander| - (let ((__obj119922 + (let ((__obj120196 (let () (declare (not safe)) (##structure @@ -6555,7 +6555,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119922 + __obj120196 'gx#rename-macro-expander::t '1 '#f @@ -6563,65 +6563,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119922 + __obj120196 'rename-macro-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119922 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj120196 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119922 '(e) '6 '#f '#f)) - (let ((__tmp120657 (cons |gx[1]#_g120658_| '()))) + (##unchecked-structure-set! __obj120196 '(e) '6 '#f '#f)) + (let ((__tmp120931 (cons |gx[1]#_g120932_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119922 __tmp120657 '3 '#f '#f)) + (##unchecked-structure-set! __obj120196 __tmp120931 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119922 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120196 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119922 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj120196 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119922 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120196 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119922 '#f '11 '#f '#f)) - (let ((__tmp120659 |gx[1]#_g120660_|)) + (##unchecked-structure-set! __obj120196 '#f '11 '#f '#f)) + (let ((__tmp120933 |gx[1]#_g120934_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119922 __tmp120659 '12 '#f '#f)) - (let ((__tmp120661 |gx[1]#_g120662_|)) + (##unchecked-structure-set! __obj120196 __tmp120933 '12 '#f '#f)) + (let ((__tmp120935 |gx[1]#_g120936_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119922 __tmp120661 '13 '#f '#f)) - (let ((__tmp120663 |gx[1]#_g120664_|)) + (##unchecked-structure-set! __obj120196 __tmp120935 '13 '#f '#f)) + (let ((__tmp120937 |gx[1]#_g120938_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119922 __tmp120663 '14 '#f '#f)) - (let ((__tmp120665 (cons (cons 'e |gx[1]#_g120666_|) '()))) + (##unchecked-structure-set! __obj120196 __tmp120937 '14 '#f '#f)) + (let ((__tmp120939 (cons (cons 'e |gx[1]#_g120940_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119922 __tmp120665 '15 '#f '#f)) - (let ((__tmp120667 (cons (cons 'e |gx[1]#_g120668_|) '()))) + (##unchecked-structure-set! __obj120196 __tmp120939 '15 '#f '#f)) + (let ((__tmp120941 (cons (cons 'e |gx[1]#_g120942_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119922 __tmp120667 '16 '#f '#f)) - (let ((__tmp120669 (cons (cons 'e |gx[1]#_g120670_|) '()))) + (##unchecked-structure-set! __obj120196 __tmp120941 '16 '#f '#f)) + (let ((__tmp120943 (cons (cons 'e |gx[1]#_g120944_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119922 __tmp120669 '17 '#f '#f)) - (let ((__tmp120671 (cons (cons 'e |gx[1]#_g120672_|) '()))) + (##unchecked-structure-set! __obj120196 __tmp120943 '17 '#f '#f)) + (let ((__tmp120945 (cons (cons 'e |gx[1]#_g120946_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119922 __tmp120671 '18 '#f '#f)) + (##unchecked-structure-set! __obj120196 __tmp120945 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119922 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120196 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119922 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120196 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119922 '() '20 '#f '#f)) - __obj119922)) + (##unchecked-structure-set! __obj120196 '() '20 '#f '#f)) + __obj120196)) (define |gx[:0:]#user-expander| - (let ((__obj119923 + (let ((__obj120197 (let () (declare (not safe)) (##structure @@ -6650,80 +6650,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119923 + __obj120197 'gx#user-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119923 'user-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj120197 'user-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119923 '(context phi) '4 '#f '#f)) + (##unchecked-structure-set! __obj120197 '(context phi) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119923 '(e context phi) '6 '#f '#f)) - (let ((__tmp120673 (cons |gx[1]#_g120658_| '()))) + (##unchecked-structure-set! __obj120197 '(e context phi) '6 '#f '#f)) + (let ((__tmp120947 (cons |gx[1]#_g120932_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj119923 __tmp120673 '3 '#f '#f)) + (##unchecked-structure-set! __obj120197 __tmp120947 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119923 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120197 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119923 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj120197 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119923 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120197 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119923 '#f '11 '#f '#f)) - (let ((__tmp120674 |gx[1]#_g120675_|)) + (##unchecked-structure-set! __obj120197 '#f '11 '#f '#f)) + (let ((__tmp120948 |gx[1]#_g120949_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119923 __tmp120674 '12 '#f '#f)) - (let ((__tmp120676 |gx[1]#_g120677_|)) + (##unchecked-structure-set! __obj120197 __tmp120948 '12 '#f '#f)) + (let ((__tmp120950 |gx[1]#_g120951_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119923 __tmp120676 '13 '#f '#f)) - (let ((__tmp120678 |gx[1]#_g120679_|)) + (##unchecked-structure-set! __obj120197 __tmp120950 '13 '#f '#f)) + (let ((__tmp120952 |gx[1]#_g120953_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119923 __tmp120678 '14 '#f '#f)) - (let ((__tmp120680 - (cons (cons 'context |gx[1]#_g120681_|) - (cons (cons 'phi |gx[1]#_g120682_|) - (cons (cons 'e |gx[1]#_g120683_|) '()))))) + (##unchecked-structure-set! __obj120197 __tmp120952 '14 '#f '#f)) + (let ((__tmp120954 + (cons (cons 'context |gx[1]#_g120955_|) + (cons (cons 'phi |gx[1]#_g120956_|) + (cons (cons 'e |gx[1]#_g120957_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119923 __tmp120680 '15 '#f '#f)) - (let ((__tmp120684 - (cons (cons 'context |gx[1]#_g120685_|) - (cons (cons 'phi |gx[1]#_g120686_|) - (cons (cons 'e |gx[1]#_g120687_|) '()))))) + (##unchecked-structure-set! __obj120197 __tmp120954 '15 '#f '#f)) + (let ((__tmp120958 + (cons (cons 'context |gx[1]#_g120959_|) + (cons (cons 'phi |gx[1]#_g120960_|) + (cons (cons 'e |gx[1]#_g120961_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119923 __tmp120684 '16 '#f '#f)) - (let ((__tmp120688 - (cons (cons 'context |gx[1]#_g120689_|) - (cons (cons 'phi |gx[1]#_g120690_|) - (cons (cons 'e |gx[1]#_g120691_|) '()))))) + (##unchecked-structure-set! __obj120197 __tmp120958 '16 '#f '#f)) + (let ((__tmp120962 + (cons (cons 'context |gx[1]#_g120963_|) + (cons (cons 'phi |gx[1]#_g120964_|) + (cons (cons 'e |gx[1]#_g120965_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119923 __tmp120688 '17 '#f '#f)) - (let ((__tmp120692 - (cons (cons 'context |gx[1]#_g120693_|) - (cons (cons 'phi |gx[1]#_g120694_|) - (cons (cons 'e |gx[1]#_g120695_|) '()))))) + (##unchecked-structure-set! __obj120197 __tmp120962 '17 '#f '#f)) + (let ((__tmp120966 + (cons (cons 'context |gx[1]#_g120967_|) + (cons (cons 'phi |gx[1]#_g120968_|) + (cons (cons 'e |gx[1]#_g120969_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj119923 __tmp120692 '18 '#f '#f)) + (##unchecked-structure-set! __obj120197 __tmp120966 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119923 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120197 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119923 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120197 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119923 '() '20 '#f '#f)) - __obj119923)) + (##unchecked-structure-set! __obj120197 '() '20 '#f '#f)) + __obj120197)) (define |gx[:0:]#expander-mark| - (let ((__obj119924 + (let ((__obj120198 (let () (declare (not safe)) (##structure @@ -6752,18 +6752,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119924 + __obj120198 'gx#expander-mark::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119924 'expander-mark '2 '#f '#f)) + (##unchecked-structure-set! __obj120198 'expander-mark '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119924 + __obj120198 '(subst context phi trace) '4 '#f @@ -6771,74 +6771,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119924 + __obj120198 '(subst context phi trace) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119924 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj120198 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119924 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj120198 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119924 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj120198 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119924 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj120198 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119924 '#f '11 '#f '#f)) - (let ((__tmp120696 |gx[1]#_g120697_|)) + (##unchecked-structure-set! __obj120198 '#f '11 '#f '#f)) + (let ((__tmp120970 |gx[1]#_g120971_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119924 __tmp120696 '12 '#f '#f)) - (let ((__tmp120698 |gx[1]#_g120699_|)) + (##unchecked-structure-set! __obj120198 __tmp120970 '12 '#f '#f)) + (let ((__tmp120972 |gx[1]#_g120973_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119924 __tmp120698 '13 '#f '#f)) - (let ((__tmp120700 |gx[1]#_g120701_|)) + (##unchecked-structure-set! __obj120198 __tmp120972 '13 '#f '#f)) + (let ((__tmp120974 |gx[1]#_g120975_|)) (declare (not safe)) - (##unchecked-structure-set! __obj119924 __tmp120700 '14 '#f '#f)) - (let ((__tmp120702 - (cons (cons 'subst |gx[1]#_g120703_|) - (cons (cons 'context |gx[1]#_g120704_|) - (cons (cons 'phi |gx[1]#_g120705_|) - (cons (cons 'trace |gx[1]#_g120706_|) + (##unchecked-structure-set! __obj120198 __tmp120974 '14 '#f '#f)) + (let ((__tmp120976 + (cons (cons 'subst |gx[1]#_g120977_|) + (cons (cons 'context |gx[1]#_g120978_|) + (cons (cons 'phi |gx[1]#_g120979_|) + (cons (cons 'trace |gx[1]#_g120980_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj119924 __tmp120702 '15 '#f '#f)) - (let ((__tmp120707 - (cons (cons 'subst |gx[1]#_g120708_|) - (cons (cons 'context |gx[1]#_g120709_|) - (cons (cons 'phi |gx[1]#_g120710_|) - (cons (cons 'trace |gx[1]#_g120711_|) + (##unchecked-structure-set! __obj120198 __tmp120976 '15 '#f '#f)) + (let ((__tmp120981 + (cons (cons 'subst |gx[1]#_g120982_|) + (cons (cons 'context |gx[1]#_g120983_|) + (cons (cons 'phi |gx[1]#_g120984_|) + (cons (cons 'trace |gx[1]#_g120985_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj119924 __tmp120707 '16 '#f '#f)) - (let ((__tmp120712 - (cons (cons 'subst |gx[1]#_g120713_|) - (cons (cons 'context |gx[1]#_g120714_|) - (cons (cons 'phi |gx[1]#_g120715_|) - (cons (cons 'trace |gx[1]#_g120716_|) + (##unchecked-structure-set! __obj120198 __tmp120981 '16 '#f '#f)) + (let ((__tmp120986 + (cons (cons 'subst |gx[1]#_g120987_|) + (cons (cons 'context |gx[1]#_g120988_|) + (cons (cons 'phi |gx[1]#_g120989_|) + (cons (cons 'trace |gx[1]#_g120990_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj119924 __tmp120712 '17 '#f '#f)) - (let ((__tmp120717 - (cons (cons 'subst |gx[1]#_g120718_|) - (cons (cons 'context |gx[1]#_g120719_|) - (cons (cons 'phi |gx[1]#_g120720_|) - (cons (cons 'trace |gx[1]#_g120721_|) + (##unchecked-structure-set! __obj120198 __tmp120986 '17 '#f '#f)) + (let ((__tmp120991 + (cons (cons 'subst |gx[1]#_g120992_|) + (cons (cons 'context |gx[1]#_g120993_|) + (cons (cons 'phi |gx[1]#_g120994_|) + (cons (cons 'trace |gx[1]#_g120995_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj119924 __tmp120717 '18 '#f '#f)) + (##unchecked-structure-set! __obj120198 __tmp120991 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119924 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj120198 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119924 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj120198 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj119924 '() '20 '#f '#f)) - __obj119924)))) + (##unchecked-structure-set! __obj120198 '() '20 '#f '#f)) + __obj120198)))) diff --git a/src/bootstrap/gerbil/expander/init~0.scm b/src/bootstrap/gerbil/expander/init~0.scm index 215f3909f..ca443d2bb 100644 --- a/src/bootstrap/gerbil/expander/init~0.scm +++ b/src/bootstrap/gerbil/expander/init~0.scm @@ -1,18 +1,18 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/init::timestamp 1713044316) + (define gerbil/expander/init::timestamp 1713454411) (begin - (let ((__tmp131509 - (let ((__obj131507 + (let ((__tmp131783 + (let ((__obj131781 (let () (declare (not safe)) (##structure gx#top-context::t '#f '#f '#f '#f '#f)))) (let () (declare (not safe)) - (gx#top-context:::init!__0 __obj131507)) - __obj131507))) + (gx#top-context:::init!__0 __obj131781)) + __obj131781))) (declare (not safe)) - (gx#current-expander-context __tmp131509)) + (gx#current-expander-context __tmp131783)) (let () (declare (not safe)) (gx#current-expander-module-import gx#core-import-module)) @@ -21,8 +21,8 @@ (gx#current-expander-module-eval gx#core-eval-module)) (let () (declare (not safe)) (gx#current-expander-compile __compile-top)) (let () (declare (not safe)) (gx#current-expander-eval ##eval)) - (let ((__tmp131510 - (let ((__obj131508 + (let ((__tmp131784 + (let ((__obj131782 (let () (declare (not safe)) (##structure @@ -37,7 +37,7 @@ '#f)))) (let () (declare (not safe)) - (gx#prelude-context:::init!__0 __obj131508 '#f)) - __obj131508))) + (gx#prelude-context:::init!__0 __obj131782 '#f)) + __obj131782))) (declare (not safe)) - (gx#core-bind-root-syntax!__% ': __tmp131510 '#t)))) + (gx#core-bind-root-syntax!__% ': __tmp131784 '#t)))) diff --git a/src/bootstrap/gerbil/expander/module~0.scm b/src/bootstrap/gerbil/expander/module~0.scm index 5c8390645..503a70e7a 100644 --- a/src/bootstrap/gerbil/expander/module~0.scm +++ b/src/bootstrap/gerbil/expander/module~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/module::timestamp 1713044316) + (define gerbil/expander/module::timestamp 1713454411) (begin (declare (not safe)) (define gx#__module-registry @@ -36,8 +36,8 @@ '#f)) (define gx#module-import? (__make-class-predicate gx#module-import::t)) (define gx#make-module-import - (lambda _%$args127358%_ - (apply make-instance gx#module-import::t _%$args127358%_))) + (lambda _%$args127632%_ + (apply make-instance gx#module-import::t _%$args127632%_))) (define gx#module-import-source (__make-class-slot-accessor gx#module-import::t 'source)) (define gx#module-import-name @@ -81,8 +81,8 @@ '#f)) (define gx#module-export? (__make-class-predicate gx#module-export::t)) (define gx#make-module-export - (lambda _%$args127355%_ - (apply make-instance gx#module-export::t _%$args127355%_))) + (lambda _%$args127629%_ + (apply make-instance gx#module-export::t _%$args127629%_))) (define gx#module-export-context (__make-class-slot-accessor gx#module-export::t 'context)) (define gx#module-export-key @@ -134,8 +134,8 @@ '#f)) (define gx#import-set? (__make-class-predicate gx#import-set::t)) (define gx#make-import-set - (lambda _%$args127352%_ - (apply make-instance gx#import-set::t _%$args127352%_))) + (lambda _%$args127626%_ + (apply make-instance gx#import-set::t _%$args127626%_))) (define gx#import-set-source (__make-class-slot-accessor gx#import-set::t 'source)) (define gx#import-set-phi @@ -171,8 +171,8 @@ '#f)) (define gx#export-set? (__make-class-predicate gx#export-set::t)) (define gx#make-export-set - (lambda _%$args127349%_ - (apply make-instance gx#export-set::t _%$args127349%_))) + (lambda _%$args127623%_ + (apply make-instance gx#export-set::t _%$args127623%_))) (define gx#export-set-source (__make-class-slot-accessor gx#export-set::t 'source)) (define gx#export-set-phi @@ -207,8 +207,8 @@ ':init!)) (define gx#import-expander? (__make-class-predicate gx#import-expander::t)) (define gx#make-import-expander - (lambda _%$args127346%_ - (apply make-instance gx#import-expander::t _%$args127346%_))) + (lambda _%$args127620%_ + (apply make-instance gx#import-expander::t _%$args127620%_))) (define gx#import-expander-context (__make-class-slot-accessor gx#import-expander::t 'context)) (define gx#import-expander-phi @@ -243,8 +243,8 @@ ':init!)) (define gx#export-expander? (__make-class-predicate gx#export-expander::t)) (define gx#make-export-expander - (lambda _%$args127343%_ - (apply make-instance gx#export-expander::t _%$args127343%_))) + (lambda _%$args127617%_ + (apply make-instance gx#export-expander::t _%$args127617%_))) (define gx#export-expander-context (__make-class-slot-accessor gx#export-expander::t 'context)) (define gx#export-expander-phi @@ -280,8 +280,8 @@ (define gx#import-export-expander? (__make-class-predicate gx#import-export-expander::t)) (define gx#make-import-export-expander - (lambda _%$args127340%_ - (apply make-instance gx#import-export-expander::t _%$args127340%_))) + (lambda _%$args127614%_ + (apply make-instance gx#import-export-expander::t _%$args127614%_))) (define gx#import-export-expander-context (__make-class-slot-accessor gx#import-export-expander::t 'context)) (define gx#import-export-expander-phi @@ -316,251 +316,251 @@ (define gx#current-module-reader-args (make-parameter '#f)) (define gx#source-file-settings '(char-encoding: UTF-8 eol-encoding: lf)) (define gx#call-with-input-source-file - (lambda (_%path127337%_ _%fun127338%_) + (lambda (_%path127611%_ _%fun127612%_) (call-with-input-file - (cons 'path: (cons _%path127337%_ gx#source-file-settings)) - _%fun127338%_))) + (cons 'path: (cons _%path127611%_ gx#source-file-settings)) + _%fun127612%_))) (define gx#module-context:::init! - (lambda (_%self123789127318%_ - _%id127320%_ - _%super127321%_ - _%ns127322%_ - _%path127323%_) - (let* ((_%self127325%_ _%self123789127318%_) - (_%self127327%_ _%self127325%_)) - (if (##fx< '11 (##structure-length _%self127327%_)) + (lambda (_%self124063127592%_ + _%id127594%_ + _%super127595%_ + _%ns127596%_ + _%path127597%_) + (let* ((_%self127599%_ _%self124063127592%_) + (_%self127601%_ _%self127599%_)) + (if (##fx< '11 (##structure-length _%self127601%_)) (begin (##unchecked-structure-set! - _%self127327%_ - _%id127320%_ + _%self127601%_ + _%id127594%_ '1 '#f '#f) (##unchecked-structure-set! - _%self127327%_ + _%self127601%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self127327%_ - _%super127321%_ + _%self127601%_ + _%super127595%_ '3 '#f '#f) - (##unchecked-structure-set! _%self127327%_ '#f '4 '#f '#f) - (##unchecked-structure-set! _%self127327%_ '#f '5 '#f '#f) + (##unchecked-structure-set! _%self127601%_ '#f '4 '#f '#f) + (##unchecked-structure-set! _%self127601%_ '#f '5 '#f '#f) (##unchecked-structure-set! - _%self127327%_ - _%ns127322%_ + _%self127601%_ + _%ns127596%_ '6 '#f '#f) (##unchecked-structure-set! - _%self127327%_ - _%path127323%_ + _%self127601%_ + _%path127597%_ '7 '#f '#f) - (##unchecked-structure-set! _%self127327%_ '() '8 '#f '#f) - (##unchecked-structure-set! _%self127327%_ '() '9 '#f '#f) - (##unchecked-structure-set! _%self127327%_ '#f '10 '#f '#f) - (##unchecked-structure-set! _%self127327%_ '#f '11 '#f '#f) + (##unchecked-structure-set! _%self127601%_ '() '8 '#f '#f) + (##unchecked-structure-set! _%self127601%_ '() '9 '#f '#f) + (##unchecked-structure-set! _%self127601%_ '#f '10 '#f '#f) + (##unchecked-structure-set! _%self127601%_ '#f '11 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self127327%_ + _%self127601%_ '11 - (##vector-length _%self127327%_)))))) + (##vector-length _%self127601%_)))))) (__bind-method!__% gx#module-context::t ':init! gx#module-context:::init! '#f) (define gx#prelude-context:::init!__% - (lambda (_%self123790127149%_ _%ctx127151%_ _%root127152%_) - (let* ((_%self127154%_ _%self123790127149%_) - (_%self127156%_ _%self127154%_) - (_%super127172%_ - (let ((_%$e127166%_ _%root127152%_)) - (if _%$e127166%_ - _%$e127166%_ - (let ((_%$e127169%_ (gx#core-context-root__0))) - (if _%$e127169%_ - _%$e127169%_ - (let ((__obj127402 + (lambda (_%self124064127423%_ _%ctx127425%_ _%root127426%_) + (let* ((_%self127428%_ _%self124064127423%_) + (_%self127430%_ _%self127428%_) + (_%super127446%_ + (let ((_%$e127440%_ _%root127426%_)) + (if _%$e127440%_ + _%$e127440%_ + (let ((_%$e127443%_ (gx#core-context-root__0))) + (if _%$e127443%_ + _%$e127443%_ + (let ((__obj127676 (##structure gx#root-context::t '#f '#f))) - (let ((__constructor127403 + (let ((__constructor127677 (direct-method-ref gx#root-context::t - __obj127402 + __obj127676 ':init!))) - (if __constructor127403 - (__constructor127403 __obj127402) + (if __constructor127677 + (__constructor127677 __obj127676) (error '"missing constructor method implementation" 'class: gx#root-context::t 'method: ':init!))) - __obj127402))))))) - (if _%ctx127151%_ - (let ((_%id127175%_ + __obj127676))))))) + (if _%ctx127425%_ + (let ((_%id127449%_ (##structure-ref - _%ctx127151%_ + _%ctx127425%_ '1 gx#expander-context::t '#f)) - (_%path127176%_ + (_%path127450%_ (##structure-ref - _%ctx127151%_ + _%ctx127425%_ '7 gx#module-context::t '#f)) - (_%in127177%_ + (_%in127451%_ (map gx#core-module-export->import (##structure-ref - _%ctx127151%_ + _%ctx127425%_ '9 gx#module-context::t '#f))) - (_%e127178%_ + (_%e127452%_ (__make-promise - (lambda () (gx#eval-module _%ctx127151%_))))) - (if (##fx< '8 (##structure-length _%self127156%_)) + (lambda () (gx#eval-module _%ctx127425%_))))) + (if (##fx< '8 (##structure-length _%self127430%_)) (begin (##unchecked-structure-set! - _%self127156%_ - _%id127175%_ + _%self127430%_ + _%id127449%_ '1 '#f '#f) (##unchecked-structure-set! - _%self127156%_ - (make-hash-table-eq 'size: (##length _%in127177%_)) + _%self127430%_ + (make-hash-table-eq 'size: (##length _%in127451%_)) '2 '#f '#f) (##unchecked-structure-set! - _%self127156%_ - _%super127172%_ + _%self127430%_ + _%super127446%_ '3 '#f '#f) (##unchecked-structure-set! - _%self127156%_ + _%self127430%_ '#f '4 '#f '#f) (##unchecked-structure-set! - _%self127156%_ + _%self127430%_ '#f '5 '#f '#f) (##unchecked-structure-set! - _%self127156%_ - _%path127176%_ + _%self127430%_ + _%path127450%_ '6 '#f '#f) (##unchecked-structure-set! - _%self127156%_ - _%in127177%_ + _%self127430%_ + _%in127451%_ '7 '#f '#f) (##unchecked-structure-set! - _%self127156%_ - _%e127178%_ + _%self127430%_ + _%e127452%_ '8 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self127156%_ + _%self127430%_ '8 - (##vector-length _%self127156%_))) + (##vector-length _%self127430%_))) (##for-each - (lambda (_%g127179127181%_) + (lambda (_%g127453127455%_) (gx#core-bind-weak-import!__% - _%g127179127181%_ - _%self127156%_)) - _%in127177%_)) - (if (##fx< '8 (##structure-length _%self127156%_)) + _%g127453127455%_ + _%self127430%_)) + _%in127451%_)) + (if (##fx< '8 (##structure-length _%self127430%_)) (begin - (##unchecked-structure-set! _%self127156%_ '#f '1 '#f '#f) + (##unchecked-structure-set! _%self127430%_ '#f '1 '#f '#f) (##unchecked-structure-set! - _%self127156%_ + _%self127430%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self127156%_ - _%super127172%_ + _%self127430%_ + _%super127446%_ '3 '#f '#f) - (##unchecked-structure-set! _%self127156%_ '#f '4 '#f '#f) - (##unchecked-structure-set! _%self127156%_ '#f '5 '#f '#f) - (##unchecked-structure-set! _%self127156%_ '#f '6 '#f '#f) - (##unchecked-structure-set! _%self127156%_ '() '7 '#f '#f) - (##unchecked-structure-set! _%self127156%_ '#f '8 '#f '#f) + (##unchecked-structure-set! _%self127430%_ '#f '4 '#f '#f) + (##unchecked-structure-set! _%self127430%_ '#f '5 '#f '#f) + (##unchecked-structure-set! _%self127430%_ '#f '6 '#f '#f) + (##unchecked-structure-set! _%self127430%_ '() '7 '#f '#f) + (##unchecked-structure-set! _%self127430%_ '#f '8 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self127156%_ + _%self127430%_ '8 - (##vector-length _%self127156%_))))))) + (##vector-length _%self127430%_))))))) (define gx#prelude-context:::init!__0 - (lambda (_%self123790127187%_ _%ctx127188%_) - (let ((_%root127190%_ '#f)) + (lambda (_%self124064127461%_ _%ctx127462%_) + (let ((_%root127464%_ '#f)) (gx#prelude-context:::init!__% - _%self123790127187%_ - _%ctx127188%_ - _%root127190%_)))) + _%self124064127461%_ + _%ctx127462%_ + _%root127464%_)))) (define gx#prelude-context:::init! - (lambda _g127409_ - (let ((_g127408_ (##length _g127409_))) - (cond ((##fx= _g127408_ 2) - (apply gx#prelude-context:::init!__0 _g127409_)) - ((##fx= _g127408_ 3) - (apply gx#prelude-context:::init!__% _g127409_)) + (lambda _g127683_ + (let ((_g127682_ (##length _g127683_))) + (cond ((##fx= _g127682_ 2) + (apply gx#prelude-context:::init!__0 _g127683_)) + ((##fx= _g127682_ 3) + (apply gx#prelude-context:::init!__% _g127683_)) (else (##raise-wrong-number-of-arguments-exception gx#prelude-context:::init! - _g127409_)))))) + _g127683_)))))) (__bind-method!__% gx#prelude-context::t ':init! gx#prelude-context:::init! '#f) (define gx#import-export-expander-init! - (lambda (_%self127023%_ _%e127024%_) - (if (##fx< '3 (##structure-length _%self127023%_)) + (lambda (_%self127297%_ _%e127298%_) + (if (##fx< '3 (##structure-length _%self127297%_)) (begin (##unchecked-structure-set! - _%self127023%_ - _%e127024%_ + _%self127297%_ + _%e127298%_ '1 '#f '#f) (##unchecked-structure-set! - _%self127023%_ + _%self127297%_ (gx#current-expander-context) '2 '#f '#f) (##unchecked-structure-set! - _%self127023%_ + _%self127297%_ (##fx- (gx#current-expander-phi) '1) '3 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self127023%_ + _%self127297%_ '3 - (##vector-length _%self127023%_))))) + (##vector-length _%self127297%_))))) (define gx#import-expander:::init! gx#import-export-expander-init!) (__bind-method!__% gx#import-expander::t @@ -580,10 +580,10 @@ gx#import-export-expander:::init! '#f) (define gx#import-expander::apply-import-expander - (lambda (_%g126649126652%_ _%g126650126654%_) + (lambda (_%g126923126926%_ _%g126924126928%_) (gx#core-apply-user-expander__% - _%g126649126652%_ - _%g126650126654%_ + _%g126923126926%_ + _%g126924126928%_ 'apply-import-expander))) (__bind-method!__% gx#import-expander::t @@ -591,10 +591,10 @@ gx#import-expander::apply-import-expander '#f) (define gx#export-expander::apply-export-expander - (lambda (_%g126520126523%_ _%g126521126525%_) + (lambda (_%g126794126797%_ _%g126795126799%_) (gx#core-apply-user-expander__% - _%g126520126523%_ - _%g126521126525%_ + _%g126794126797%_ + _%g126795126799%_ 'apply-export-expander))) (__bind-method!__% gx#export-expander::t @@ -602,113 +602,113 @@ gx#export-expander::apply-export-expander '#f) (define gx#module-source-path - (lambda (_%ctx126391%_) - (let* ((_%path126393%_ - (##structure-ref _%ctx126391%_ '7 gx#module-context::t '#f)) - (_%path126395%_ - (if (pair? _%path126393%_) - (##last _%path126393%_) - _%path126393%_))) - (if (string? _%path126395%_) _%path126395%_ '#f)))) + (lambda (_%ctx126665%_) + (let* ((_%path126667%_ + (##structure-ref _%ctx126665%_ '7 gx#module-context::t '#f)) + (_%path126669%_ + (if (pair? _%path126667%_) + (##last _%path126667%_) + _%path126667%_))) + (if (string? _%path126669%_) _%path126669%_ '#f)))) (define gx#import-module__% - (lambda (_%path126367%_ _%reload?126368%_ _%eval?126369%_) - (let ((_%ctx126371%_ + (lambda (_%path126641%_ _%reload?126642%_ _%eval?126643%_) + (let ((_%ctx126645%_ ((gx#current-expander-module-import) - _%path126367%_ - _%reload?126368%_))) - (if (and _%ctx126371%_ _%eval?126369%_) - (gx#eval-module _%ctx126371%_) + _%path126641%_ + _%reload?126642%_))) + (if (and _%ctx126645%_ _%eval?126643%_) + (gx#eval-module _%ctx126645%_) '#!void) - _%ctx126371%_))) + _%ctx126645%_))) (define gx#import-module__0 - (lambda (_%path126376%_) - (let* ((_%reload?126378%_ '#f) (_%eval?126380%_ '#f)) + (lambda (_%path126650%_) + (let* ((_%reload?126652%_ '#f) (_%eval?126654%_ '#f)) (gx#import-module__% - _%path126376%_ - _%reload?126378%_ - _%eval?126380%_)))) + _%path126650%_ + _%reload?126652%_ + _%eval?126654%_)))) (define gx#import-module__1 - (lambda (_%path126382%_ _%reload?126383%_) - (let ((_%eval?126385%_ '#f)) + (lambda (_%path126656%_ _%reload?126657%_) + (let ((_%eval?126659%_ '#f)) (gx#import-module__% - _%path126382%_ - _%reload?126383%_ - _%eval?126385%_)))) + _%path126656%_ + _%reload?126657%_ + _%eval?126659%_)))) (define gx#import-module - (lambda _g127411_ - (let ((_g127410_ (##length _g127411_))) - (cond ((##fx= _g127410_ 1) (apply gx#import-module__0 _g127411_)) - ((##fx= _g127410_ 2) (apply gx#import-module__1 _g127411_)) - ((##fx= _g127410_ 3) (apply gx#import-module__% _g127411_)) + (lambda _g127685_ + (let ((_g127684_ (##length _g127685_))) + (cond ((##fx= _g127684_ 1) (apply gx#import-module__0 _g127685_)) + ((##fx= _g127684_ 2) (apply gx#import-module__1 _g127685_)) + ((##fx= _g127684_ 3) (apply gx#import-module__% _g127685_)) (else (##raise-wrong-number-of-arguments-exception gx#import-module - _g127411_)))))) + _g127685_)))))) (define gx#eval-module - (lambda (_%mod126364%_) - ((gx#current-expander-module-eval) _%mod126364%_))) + (lambda (_%mod126638%_) + ((gx#current-expander-module-eval) _%mod126638%_))) (define gx#core-eval-module - (lambda (_%obj126344%_) - (letrec ((_%force-e126346%_ - (lambda (_%getf126360%_ _%e126361%_) + (lambda (_%obj126618%_) + (letrec ((_%force-e126620%_ + (lambda (_%getf126634%_ _%e126635%_) (__call-with-parameters - (lambda () (force (_%getf126360%_ _%e126361%_))) + (lambda () (force (_%getf126634%_ _%e126635%_))) gx#current-expander-context - _%e126361%_ + _%e126635%_ gx#current-expander-phi '0)))) - (let _%recur126348%_ ((_%e126350%_ _%obj126344%_)) - (if (##structure-instance-of? _%e126350%_ 'gx#module-context::t) + (let _%recur126622%_ ((_%e126624%_ _%obj126618%_)) + (if (##structure-instance-of? _%e126624%_ 'gx#module-context::t) (let () - (let ((_%$e126353%_ - (gx#core-context-prelude__% _%e126350%_))) - (if _%$e126353%_ (_%recur126348%_ _%$e126353%_) '#!void)) - (_%force-e126346%_ gx#module-context-e _%e126350%_)) + (let ((_%$e126627%_ + (gx#core-context-prelude__% _%e126624%_))) + (if _%$e126627%_ (_%recur126622%_ _%$e126627%_) '#!void)) + (_%force-e126620%_ gx#module-context-e _%e126624%_)) (if (##structure-instance-of? - _%e126350%_ + _%e126624%_ 'gx#prelude-context::t) - (_%force-e126346%_ gx#prelude-context-e _%e126350%_) - (if (gx#stx-string? _%e126350%_) - (_%recur126348%_ + (_%force-e126620%_ gx#prelude-context-e _%e126624%_) + (if (gx#stx-string? _%e126624%_) + (_%recur126622%_ (gx#import-module__0 - (gx#core-resolve-module-path__0 _%e126350%_))) - (if (gx#core-library-module-path? _%e126350%_) - (_%recur126348%_ + (gx#core-resolve-module-path__0 _%e126624%_))) + (if (gx#core-library-module-path? _%e126624%_) + (_%recur126622%_ (gx#import-module__0 (gx#core-resolve-library-module-path - _%e126350%_))) - (error '"cannot eval module" _%obj126344%_))))))))) + _%e126624%_))) + (error '"cannot eval module" _%obj126618%_))))))))) (define gx#core-context-prelude__% - (lambda (_%ctx126324%_) - (let _%lp126326%_ ((_%e126328%_ _%ctx126324%_)) - (if (or (##structure-instance-of? _%e126328%_ 'gx#module-context::t) - (##structure-instance-of? _%e126328%_ 'gx#local-context::t)) - (_%lp126326%_ (##unchecked-structure-ref _%e126328%_ '3 '#f '#f)) - (if (##structure-instance-of? _%e126328%_ 'gx#prelude-context::t) - _%e126328%_ + (lambda (_%ctx126598%_) + (let _%lp126600%_ ((_%e126602%_ _%ctx126598%_)) + (if (or (##structure-instance-of? _%e126602%_ 'gx#module-context::t) + (##structure-instance-of? _%e126602%_ 'gx#local-context::t)) + (_%lp126600%_ (##unchecked-structure-ref _%e126602%_ '3 '#f '#f)) + (if (##structure-instance-of? _%e126602%_ 'gx#prelude-context::t) + _%e126602%_ '#f))))) (define gx#core-context-prelude__0 (lambda () - (let ((_%ctx126340%_ (gx#current-expander-context))) - (gx#core-context-prelude__% _%ctx126340%_)))) + (let ((_%ctx126614%_ (gx#current-expander-context))) + (gx#core-context-prelude__% _%ctx126614%_)))) (define gx#core-context-prelude - (lambda _g127413_ - (let ((_g127412_ (##length _g127413_))) - (cond ((##fx= _g127412_ 0) - (apply gx#core-context-prelude__0 _g127413_)) - ((##fx= _g127412_ 1) - (apply gx#core-context-prelude__% _g127413_)) + (lambda _g127687_ + (let ((_g127686_ (##length _g127687_))) + (cond ((##fx= _g127686_ 0) + (apply gx#core-context-prelude__0 _g127687_)) + ((##fx= _g127686_ 1) + (apply gx#core-context-prelude__% _g127687_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-prelude - _g127413_)))))) + _g127687_)))))) (define gx#core-module->prelude-context - (lambda (_%ctx126315%_) - (let ((_%$e126317%_ (__hash-get gx#__module-registry _%ctx126315%_))) - (if _%$e126317%_ - _%$e126317%_ - (let ((_%pre126321%_ - (let ((__obj127404 + (lambda (_%ctx126589%_) + (let ((_%$e126591%_ (__hash-get gx#__module-registry _%ctx126589%_))) + (if _%$e126591%_ + _%$e126591%_ + (let ((_%pre126595%_ + (let ((__obj127678 (##structure gx#prelude-context::t '#f @@ -720,52 +720,52 @@ '#f '#f))) (gx#prelude-context:::init!__0 - __obj127404 - _%ctx126315%_) - __obj127404))) - (__hash-put! gx#__module-registry _%ctx126315%_ _%pre126321%_) - _%pre126321%_))))) + __obj127678 + _%ctx126589%_) + __obj127678))) + (__hash-put! gx#__module-registry _%ctx126589%_ _%pre126595%_) + _%pre126595%_))))) (define gx#core-import-module__% - (lambda (_%rpath126187%_ _%reload?126188%_) - (letrec ((_%import-source126190%_ - (lambda (_%path126279%_) - (if (member _%path126279%_ (gx#current-expander-path)) - (error '"Cyclic expansion" _%path126279%_) + (lambda (_%rpath126461%_ _%reload?126462%_) + (letrec ((_%import-source126464%_ + (lambda (_%path126553%_) + (if (member _%path126553%_ (gx#current-expander-path)) + (error '"Cyclic expansion" _%path126553%_) '#!void) (__call-with-parameters (lambda () - (let ((_g127414_ (gx#core-read-module _%path126279%_))) + (let ((_g127688_ (gx#core-read-module _%path126553%_))) (begin - (let ((_g127415_ - (if (##values? _g127414_) - (##vector-length _g127414_) + (let ((_g127689_ + (if (##values? _g127688_) + (##vector-length _g127688_) 1))) - (if (not (##fx= _g127415_ 4)) - (error "Context expects 4 values" _g127415_))) - (let ((_%pre126282%_ (##vector-ref _g127414_ 0)) - (_%id126283%_ (##vector-ref _g127414_ 1)) - (_%ns126284%_ (##vector-ref _g127414_ 2)) - (_%body126285%_ (##vector-ref _g127414_ 3))) - (let* ((_%prelude126295%_ + (if (not (##fx= _g127689_ 4)) + (error "Context expects 4 values" _g127689_))) + (let ((_%pre126556%_ (##vector-ref _g127688_ 0)) + (_%id126557%_ (##vector-ref _g127688_ 1)) + (_%ns126558%_ (##vector-ref _g127688_ 2)) + (_%body126559%_ (##vector-ref _g127688_ 3))) + (let* ((_%prelude126569%_ (if (##structure-instance-of? - _%pre126282%_ + _%pre126556%_ 'gx#prelude-context::t) - _%pre126282%_ + _%pre126556%_ (if (##structure-instance-of? - _%pre126282%_ + _%pre126556%_ 'gx#module-context::t) (gx#core-module->prelude-context - _%pre126282%_) - (if (string? _%pre126282%_) + _%pre126556%_) + (if (string? _%pre126556%_) (gx#core-module->prelude-context (gx#core-import-module__0 - _%pre126282%_)) - (if (not _%pre126282%_) - (let ((_%$e126291%_ + _%pre126556%_)) + (if (not _%pre126556%_) + (let ((_%$e126565%_ (gx#current-expander-module-prelude))) - (if _%$e126291%_ - _%$e126291%_ - (let ((__obj127405 + (if _%$e126565%_ + _%$e126565%_ + (let ((__obj127679 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure gx#prelude-context::t @@ -777,14 +777,14 @@ '#f '#f '#f))) - (gx#prelude-context:::init!__0 __obj127405 '#f) - __obj127405))) + (gx#prelude-context:::init!__0 __obj127679 '#f) + __obj127679))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error '"cannot import module; unknown prelude" - _%rpath126187%_ - _%pre126282%_)))))) - (_%ctx126297%_ - (let ((__obj127406 + _%rpath126461%_ + _%pre126556%_)))))) + (_%ctx126571%_ + (let ((__obj127680 (##structure gx#module-context::t '#f @@ -799,44 +799,44 @@ '#f '#f))) (gx#module-context:::init! - __obj127406 - _%id126283%_ - _%prelude126295%_ - _%ns126284%_ - _%path126279%_) - __obj127406)) - (_%body126299%_ + __obj127680 + _%id126557%_ + _%prelude126569%_ + _%ns126558%_ + _%path126553%_) + __obj127680)) + (_%body126573%_ (gx#core-expand-module-begin - _%body126285%_ - _%ctx126297%_)) - (_%body126301%_ + _%body126559%_ + _%ctx126571%_)) + (_%body126575%_ (gx#core-quote-syntax__% - (gx#core-cons '%#begin _%body126299%_) - _%path126279%_ - _%ctx126297%_ + (gx#core-cons '%#begin _%body126573%_) + _%path126553%_ + _%ctx126571%_ '()))) (##unchecked-structure-set! - _%ctx126297%_ + _%ctx126571%_ (__make-promise - (lambda () (gx#eval-syntax* _%body126301%_))) + (lambda () (gx#eval-syntax* _%body126575%_))) '10 '#f '#f) (##unchecked-structure-set! - _%ctx126297%_ - _%body126301%_ + _%ctx126571%_ + _%body126575%_ '11 '#f '#f) (__hash-put! gx#__module-registry - _%path126279%_ - _%ctx126297%_) + _%path126553%_ + _%ctx126571%_) (__hash-put! gx#__module-registry - _%id126283%_ - _%ctx126297%_) - _%ctx126297%_))))) + _%id126557%_ + _%ctx126571%_) + _%ctx126571%_))))) gx#current-expander-context (gx#core-context-root__0) gx#current-expander-marks @@ -844,1327 +844,1327 @@ gx#current-expander-phi '0 gx#current-expander-path - (cons _%path126279%_ (gx#current-expander-path)) + (cons _%path126553%_ (gx#current-expander-path)) gx#current-import-expander-phi '#f gx#current-export-expander-phi '#f))) - (_%import-submodule126191%_ - (lambda (_%rpath126207%_) - (let* ((_%rpath126208126215%_ _%rpath126207%_) - (_%E126210126219%_ + (_%import-submodule126465%_ + (lambda (_%rpath126481%_) + (let* ((_%rpath126482126489%_ _%rpath126481%_) + (_%E126484126493%_ (lambda () (error '"No clause matching" - _%rpath126208126215%_ + _%rpath126482126489%_ '([origin . refs])) '#!void)) - (_%K126211126267%_ - (lambda (_%refs126222%_ _%origin126223%_) - (let ((_%ctx126225%_ - (if _%origin126223%_ + (_%K126485126541%_ + (lambda (_%refs126496%_ _%origin126497%_) + (let ((_%ctx126499%_ + (if _%origin126497%_ (gx#core-import-module__% - _%origin126223%_ - _%reload?126188%_) + _%origin126497%_ + _%reload?126462%_) (gx#current-expander-context)))) - (let _%lp126227%_ ((_%rest126229%_ - _%refs126222%_) - (_%ctx126230%_ - _%ctx126225%_)) - (let* ((_%rest126231126239%_ _%rest126229%_) - (_%else126233126247%_ - (lambda () _%ctx126230%_)) - (_%K126235126255%_ - (lambda (_%rest126250%_ _%id126251%_) - (let ((_%bind126253%_ + (let _%lp126501%_ ((_%rest126503%_ + _%refs126496%_) + (_%ctx126504%_ + _%ctx126499%_)) + (let* ((_%rest126505126513%_ _%rest126503%_) + (_%else126507126521%_ + (lambda () _%ctx126504%_)) + (_%K126509126529%_ + (lambda (_%rest126524%_ _%id126525%_) + (let ((_%bind126527%_ (gx#resolve-identifier__% - _%id126251%_ + _%id126525%_ '0 - _%ctx126230%_))) + _%ctx126504%_))) (if (and (##structure-direct-instance-of? - _%bind126253%_ + _%bind126527%_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _%bind126253%_ + _%bind126527%_ '4 '#f '#f) 'gx#module-context::t)) - (_%lp126227%_ - _%rest126250%_ + (_%lp126501%_ + _%rest126524%_ (##unchecked-structure-ref - _%bind126253%_ + _%bind126527%_ '4 '#f '#f)) (error '"cannot import submodule; not bound as a module" - _%rpath126207%_ - _%id126251%_ - _%bind126253%_)))))) - (if (##pair? _%rest126231126239%_) - (let ((_%hd126236126258%_ - (##car _%rest126231126239%_)) - (_%tl126237126260%_ - (##cdr _%rest126231126239%_))) - (let* ((_%id126263%_ - _%hd126236126258%_) - (_%rest126265%_ - _%tl126237126260%_)) - (_%K126235126255%_ - _%rest126265%_ - _%id126263%_))) - (_%else126233126247%_)))))))) - (if (##pair? _%rpath126208126215%_) - (let ((_%hd126212126270%_ - (##car _%rpath126208126215%_)) - (_%tl126213126272%_ - (##cdr _%rpath126208126215%_))) - (let* ((_%origin126275%_ _%hd126212126270%_) - (_%refs126277%_ _%tl126213126272%_)) - (_%K126211126267%_ - _%refs126277%_ - _%origin126275%_))) - (_%E126210126219%_)))))) - (let ((_%$e126193%_ - (if (not _%reload?126188%_) - (__hash-get gx#__module-registry _%rpath126187%_) + _%rpath126481%_ + _%id126525%_ + _%bind126527%_)))))) + (if (##pair? _%rest126505126513%_) + (let ((_%hd126510126532%_ + (##car _%rest126505126513%_)) + (_%tl126511126534%_ + (##cdr _%rest126505126513%_))) + (let* ((_%id126537%_ + _%hd126510126532%_) + (_%rest126539%_ + _%tl126511126534%_)) + (_%K126509126529%_ + _%rest126539%_ + _%id126537%_))) + (_%else126507126521%_)))))))) + (if (##pair? _%rpath126482126489%_) + (let ((_%hd126486126544%_ + (##car _%rpath126482126489%_)) + (_%tl126487126546%_ + (##cdr _%rpath126482126489%_))) + (let* ((_%origin126549%_ _%hd126486126544%_) + (_%refs126551%_ _%tl126487126546%_)) + (_%K126485126541%_ + _%refs126551%_ + _%origin126549%_))) + (_%E126484126493%_)))))) + (let ((_%$e126467%_ + (if (not _%reload?126462%_) + (__hash-get gx#__module-registry _%rpath126461%_) '#f))) - (if _%$e126193%_ - _%$e126193%_ - (if (list? _%rpath126187%_) - (_%import-submodule126191%_ _%rpath126187%_) - (if (gx#core-library-module-path? _%rpath126187%_) - (let ((_%ctx126198%_ + (if _%$e126467%_ + _%$e126467%_ + (if (list? _%rpath126461%_) + (_%import-submodule126465%_ _%rpath126461%_) + (if (gx#core-library-module-path? _%rpath126461%_) + (let ((_%ctx126472%_ (gx#core-import-module__% (gx#core-resolve-library-module-path - _%rpath126187%_) - _%reload?126188%_))) + _%rpath126461%_) + _%reload?126462%_))) (__hash-put! gx#__module-registry - _%rpath126187%_ - _%ctx126198%_) - _%ctx126198%_) - (let* ((_%npath126201%_ - (path-normalize _%rpath126187%_)) - (_%$e126203%_ - (if (not _%reload?126188%_) + _%rpath126461%_ + _%ctx126472%_) + _%ctx126472%_) + (let* ((_%npath126475%_ + (path-normalize _%rpath126461%_)) + (_%$e126477%_ + (if (not _%reload?126462%_) (__hash-get gx#__module-registry - _%npath126201%_) + _%npath126475%_) '#f))) - (if _%$e126203%_ - _%$e126203%_ - (_%import-source126190%_ - _%npath126201%_)))))))))) + (if _%$e126477%_ + _%$e126477%_ + (_%import-source126464%_ + _%npath126475%_)))))))))) (define gx#core-import-module__0 - (lambda (_%rpath126308%_) - (let ((_%reload?126310%_ '#f)) - (gx#core-import-module__% _%rpath126308%_ _%reload?126310%_)))) + (lambda (_%rpath126582%_) + (let ((_%reload?126584%_ '#f)) + (gx#core-import-module__% _%rpath126582%_ _%reload?126584%_)))) (define gx#core-import-module - (lambda _g127417_ - (let ((_g127416_ (##length _g127417_))) - (cond ((##fx= _g127416_ 1) - (apply gx#core-import-module__0 _g127417_)) - ((##fx= _g127416_ 2) - (apply gx#core-import-module__% _g127417_)) + (lambda _g127691_ + (let ((_g127690_ (##length _g127691_))) + (cond ((##fx= _g127690_ 1) + (apply gx#core-import-module__0 _g127691_)) + ((##fx= _g127690_ 2) + (apply gx#core-import-module__% _g127691_)) (else (##raise-wrong-number-of-arguments-exception gx#core-import-module - _g127417_)))))) + _g127691_)))))) (define gx#core-read-module - (lambda (_%path126176%_) + (lambda (_%path126450%_) (__with-catch - (lambda (_%exn126178%_) - (if (and (datum-parsing-exception? _%exn126178%_) - (eq? (datum-parsing-exception-filepos _%exn126178%_) '0)) - (gx#core-read-module/lang _%path126176%_) + (lambda (_%exn126452%_) + (if (and (datum-parsing-exception? _%exn126452%_) + (eq? (datum-parsing-exception-filepos _%exn126452%_) '0)) + (gx#core-read-module/lang _%path126450%_) (gx#raise-syntax-error 'read-module '"error reading module" - _%path126176%_ + _%path126450%_ (__call-with-parameters (lambda () (call-with-output-string '"" - (lambda (_%g126180126182%_) - (display-exception__% _%exn126178%_ _%g126180126182%_)))) + (lambda (_%g126454126456%_) + (display-exception__% _%exn126452%_ _%g126454126456%_)))) dump-stack-trace? '#f)))) - (lambda () (gx#core-read-module/sexp _%path126176%_))))) + (lambda () (gx#core-read-module/sexp _%path126450%_))))) (define gx#core-read-module/sexp - (lambda (_%path126028%_) - (let _%lp126030%_ ((_%body126032%_ - (read-syntax-from-file _%path126028%_)) - (_%pre126033%_ '#f) - (_%ns126034%_ '#f) - (_%pkg126035%_ '#f)) - (let* ((_%e126036126060%_ _%body126032%_) - (_%E126052126086%_ + (lambda (_%path126302%_) + (let _%lp126304%_ ((_%body126306%_ + (read-syntax-from-file _%path126302%_)) + (_%pre126307%_ '#f) + (_%ns126308%_ '#f) + (_%pkg126309%_ '#f)) + (let* ((_%e126310126334%_ _%body126306%_) + (_%E126326126360%_ (lambda () - (let ((_g127418_ - (if _%pkg126035%_ - (values _%pre126033%_ - _%ns126034%_ - _%pkg126035%_) + (let ((_g127692_ + (if _%pkg126309%_ + (values _%pre126307%_ + _%ns126308%_ + _%pkg126309%_) (gx#core-read-module-package - _%path126028%_ - _%pre126033%_ - _%ns126034%_)))) + _%path126302%_ + _%pre126307%_ + _%ns126308%_)))) (begin - (let ((_g127419_ - (if (##values? _g127418_) - (##vector-length _g127418_) + (let ((_g127693_ + (if (##values? _g127692_) + (##vector-length _g127692_) 1))) - (if (not (##fx= _g127419_ 3)) - (error "Context expects 3 values" _g127419_))) - (let ((_%pre126064%_ (##vector-ref _g127418_ 0)) - (_%ns126065%_ (##vector-ref _g127418_ 1)) - (_%pkg126066%_ (##vector-ref _g127418_ 2))) - (let* ((_%prelude126072%_ + (if (not (##fx= _g127693_ 3)) + (error "Context expects 3 values" _g127693_))) + (let ((_%pre126338%_ (##vector-ref _g127692_ 0)) + (_%ns126339%_ (##vector-ref _g127692_ 1)) + (_%pkg126340%_ (##vector-ref _g127692_ 2))) + (let* ((_%prelude126346%_ (if (gx#core-bound-module-prelude? - _%pre126064%_) - (gx#syntax-local-e__0 _%pre126064%_) + _%pre126338%_) + (gx#syntax-local-e__0 _%pre126338%_) (if (gx#core-library-module-path? - _%pre126064%_) + _%pre126338%_) (gx#core-resolve-library-module-path - _%pre126064%_) - (if (gx#stx-string? _%pre126064%_) + _%pre126338%_) + (if (gx#stx-string? _%pre126338%_) (gx#core-resolve-module-path__% - _%pre126064%_ - _%path126028%_) - (gx#stx-e _%pre126064%_))))) - (_%path-id126074%_ + _%pre126338%_ + _%path126302%_) + (gx#stx-e _%pre126338%_))))) + (_%path-id126348%_ (gx#core-module-path->namespace - _%path126028%_)) - (_%pkg-id126076%_ - (if _%pkg126066%_ + _%path126302%_)) + (_%pkg-id126350%_ + (if _%pkg126340%_ (##string-append - _%pkg126066%_ + _%pkg126340%_ '"/" - _%path-id126074%_) - _%path-id126074%_)) - (_%module-id126078%_ - (##string->symbol _%pkg-id126076%_)) - (_%module-ns126083%_ - (if (eq? _%ns126065%_ '#!void) + _%path-id126348%_) + _%path-id126348%_)) + (_%module-id126352%_ + (##string->symbol _%pkg-id126350%_)) + (_%module-ns126357%_ + (if (eq? _%ns126339%_ '#!void) '#f - (let ((_%$e126080%_ _%ns126065%_)) - (if _%$e126080%_ - _%$e126080%_ - _%pkg-id126076%_))))) - (values _%prelude126072%_ - _%module-id126078%_ - _%module-ns126083%_ - _%body126032%_))))))) - (_%E126045126118%_ + (let ((_%$e126354%_ _%ns126339%_)) + (if _%$e126354%_ + _%$e126354%_ + _%pkg-id126350%_))))) + (values _%prelude126346%_ + _%module-id126352%_ + _%module-ns126357%_ + _%body126306%_))))))) + (_%E126319126392%_ (lambda () - (if (gx#stx-pair? _%e126036126060%_) - (let ((_%e126053126090%_ - (gx#syntax-e _%e126036126060%_))) - (let ((_%hd126054126093%_ (##car _%e126053126090%_)) - (_%tl126055126095%_ (##cdr _%e126053126090%_))) - (if (eq? (gx#stx-e _%hd126054126093%_) 'package:) - (if (gx#stx-pair? _%tl126055126095%_) - (let ((_%e126056126098%_ - (gx#syntax-e _%tl126055126095%_))) - (let ((_%hd126057126101%_ - (##car _%e126056126098%_)) - (_%tl126058126103%_ - (##cdr _%e126056126098%_))) - (let* ((_%pkg126106%_ - _%hd126057126101%_) - (_%rest126108%_ - _%tl126058126103%_) - (_%pkg126116%_ + (if (gx#stx-pair? _%e126310126334%_) + (let ((_%e126327126364%_ + (gx#syntax-e _%e126310126334%_))) + (let ((_%hd126328126367%_ (##car _%e126327126364%_)) + (_%tl126329126369%_ (##cdr _%e126327126364%_))) + (if (eq? (gx#stx-e _%hd126328126367%_) 'package:) + (if (gx#stx-pair? _%tl126329126369%_) + (let ((_%e126330126372%_ + (gx#syntax-e _%tl126329126369%_))) + (let ((_%hd126331126375%_ + (##car _%e126330126372%_)) + (_%tl126332126377%_ + (##cdr _%e126330126372%_))) + (let* ((_%pkg126380%_ + _%hd126331126375%_) + (_%rest126382%_ + _%tl126332126377%_) + (_%pkg126390%_ (if (gx#identifier? - _%pkg126106%_) + _%pkg126380%_) (symbol->string - (gx#stx-e _%pkg126106%_)) + (gx#stx-e _%pkg126380%_)) (if (or (gx#stx-string? - _%pkg126106%_) + _%pkg126380%_) (gx#stx-false? - _%pkg126106%_)) + _%pkg126380%_)) (gx#stx-e - _%pkg126106%_) + _%pkg126380%_) (gx#raise-syntax-error 'import '"Bad syntax; Illegal package name" - _%pkg126106%_))))) - (_%lp126030%_ - _%rest126108%_ - _%pre126033%_ - _%ns126034%_ - _%pkg126116%_)))) - (_%E126052126086%_)) - (_%E126052126086%_)))) - (_%E126052126086%_)))) - (_%E126038126148%_ + _%pkg126380%_))))) + (_%lp126304%_ + _%rest126382%_ + _%pre126307%_ + _%ns126308%_ + _%pkg126390%_)))) + (_%E126326126360%_)) + (_%E126326126360%_)))) + (_%E126326126360%_)))) + (_%E126312126422%_ (lambda () - (if (gx#stx-pair? _%e126036126060%_) - (let ((_%e126046126122%_ - (gx#syntax-e _%e126036126060%_))) - (let ((_%hd126047126125%_ (##car _%e126046126122%_)) - (_%tl126048126127%_ (##cdr _%e126046126122%_))) - (if (eq? (gx#stx-e _%hd126047126125%_) 'namespace:) - (if (gx#stx-pair? _%tl126048126127%_) - (let ((_%e126049126130%_ - (gx#syntax-e _%tl126048126127%_))) - (let ((_%hd126050126133%_ - (##car _%e126049126130%_)) - (_%tl126051126135%_ - (##cdr _%e126049126130%_))) - (let* ((_%ns126138%_ - _%hd126050126133%_) - (_%rest126140%_ - _%tl126051126135%_) - (_%ns126146%_ + (if (gx#stx-pair? _%e126310126334%_) + (let ((_%e126320126396%_ + (gx#syntax-e _%e126310126334%_))) + (let ((_%hd126321126399%_ (##car _%e126320126396%_)) + (_%tl126322126401%_ (##cdr _%e126320126396%_))) + (if (eq? (gx#stx-e _%hd126321126399%_) 'namespace:) + (if (gx#stx-pair? _%tl126322126401%_) + (let ((_%e126323126404%_ + (gx#syntax-e _%tl126322126401%_))) + (let ((_%hd126324126407%_ + (##car _%e126323126404%_)) + (_%tl126325126409%_ + (##cdr _%e126323126404%_))) + (let* ((_%ns126412%_ + _%hd126324126407%_) + (_%rest126414%_ + _%tl126325126409%_) + (_%ns126420%_ (if (gx#identifier? - _%ns126138%_) + _%ns126412%_) (symbol->string - (gx#stx-e _%ns126138%_)) + (gx#stx-e _%ns126412%_)) (if (gx#stx-string? - _%ns126138%_) - (gx#stx-e _%ns126138%_) + _%ns126412%_) + (gx#stx-e _%ns126412%_) (if (gx#stx-false? - _%ns126138%_) + _%ns126412%_) '#!void (gx#raise-syntax-error 'import '"Bad syntax; illegal namespace" - _%ns126138%_)))))) - (_%lp126030%_ - _%rest126140%_ - _%pre126033%_ - _%ns126146%_ - _%pkg126035%_)))) - (_%E126045126118%_)) - (_%E126045126118%_)))) - (_%E126045126118%_)))) - (_%E126037126172%_ + _%ns126412%_)))))) + (_%lp126304%_ + _%rest126414%_ + _%pre126307%_ + _%ns126420%_ + _%pkg126309%_)))) + (_%E126319126392%_)) + (_%E126319126392%_)))) + (_%E126319126392%_)))) + (_%E126311126446%_ (lambda () - (if (gx#stx-pair? _%e126036126060%_) - (let ((_%e126039126152%_ - (gx#syntax-e _%e126036126060%_))) - (let ((_%hd126040126155%_ (##car _%e126039126152%_)) - (_%tl126041126157%_ (##cdr _%e126039126152%_))) - (if (eq? (gx#stx-e _%hd126040126155%_) 'prelude:) - (if (gx#stx-pair? _%tl126041126157%_) - (let ((_%e126042126160%_ - (gx#syntax-e _%tl126041126157%_))) - (let ((_%hd126043126163%_ - (##car _%e126042126160%_)) - (_%tl126044126165%_ - (##cdr _%e126042126160%_))) - (let* ((_%prelude126168%_ - _%hd126043126163%_) - (_%rest126170%_ - _%tl126044126165%_)) - (_%lp126030%_ - _%rest126170%_ - _%prelude126168%_ - _%ns126034%_ - _%pkg126035%_)))) - (_%E126038126148%_)) - (_%E126038126148%_)))) - (_%E126038126148%_))))) - (_%E126037126172%_))))) + (if (gx#stx-pair? _%e126310126334%_) + (let ((_%e126313126426%_ + (gx#syntax-e _%e126310126334%_))) + (let ((_%hd126314126429%_ (##car _%e126313126426%_)) + (_%tl126315126431%_ (##cdr _%e126313126426%_))) + (if (eq? (gx#stx-e _%hd126314126429%_) 'prelude:) + (if (gx#stx-pair? _%tl126315126431%_) + (let ((_%e126316126434%_ + (gx#syntax-e _%tl126315126431%_))) + (let ((_%hd126317126437%_ + (##car _%e126316126434%_)) + (_%tl126318126439%_ + (##cdr _%e126316126434%_))) + (let* ((_%prelude126442%_ + _%hd126317126437%_) + (_%rest126444%_ + _%tl126318126439%_)) + (_%lp126304%_ + _%rest126444%_ + _%prelude126442%_ + _%ns126308%_ + _%pkg126309%_)))) + (_%E126312126422%_)) + (_%E126312126422%_)))) + (_%E126312126422%_))))) + (_%E126311126446%_))))) (define gx#core-read-module/lang - (lambda (_%path125850%_) - (letrec ((_%default-read-module-body125852%_ - (lambda (_%inp126020%_) - (let _%lp126022%_ ((_%body126024%_ '())) - (let ((_%next126026%_ (read-syntax__% _%inp126020%_))) - (if (eof-object? _%next126026%_) - (reverse _%body126024%_) - (_%lp126022%_ - (cons _%next126026%_ _%body126024%_))))))) - (_%read-body125853%_ - (lambda (_%inp125938%_ - _%pre125939%_ - _%ns125940%_ - _%pkg125941%_ - _%args125942%_) - (let ((_g127420_ - (if _%pkg125941%_ - (values _%pre125939%_ - _%ns125940%_ - _%pkg125941%_) + (lambda (_%path126124%_) + (letrec ((_%default-read-module-body126126%_ + (lambda (_%inp126294%_) + (let _%lp126296%_ ((_%body126298%_ '())) + (let ((_%next126300%_ (read-syntax__% _%inp126294%_))) + (if (eof-object? _%next126300%_) + (reverse _%body126298%_) + (_%lp126296%_ + (cons _%next126300%_ _%body126298%_))))))) + (_%read-body126127%_ + (lambda (_%inp126212%_ + _%pre126213%_ + _%ns126214%_ + _%pkg126215%_ + _%args126216%_) + (let ((_g127694_ + (if _%pkg126215%_ + (values _%pre126213%_ + _%ns126214%_ + _%pkg126215%_) (gx#core-read-module-package - _%path125850%_ - _%pre125939%_ - _%ns125940%_)))) + _%path126124%_ + _%pre126213%_ + _%ns126214%_)))) (begin - (let ((_g127421_ - (if (##values? _g127420_) - (##vector-length _g127420_) + (let ((_g127695_ + (if (##values? _g127694_) + (##vector-length _g127694_) 1))) - (if (not (##fx= _g127421_ 3)) - (error "Context expects 3 values" _g127421_))) - (let ((_%pre125944%_ (##vector-ref _g127420_ 0)) - (_%ns125945%_ (##vector-ref _g127420_ 1)) - (_%pkg125946%_ (##vector-ref _g127420_ 2))) - (let* ((_%prelude125948%_ - (gx#import-module__0 _%pre125944%_)) - (_%read-module-body126003%_ - (let ((_%$e125994%_ - (__find (lambda (_%e125949125951%_) - (let* ((_%g125953125963%_ - _%e125949125951%_) - (_%else125955125971%_ + (if (not (##fx= _g127695_ 3)) + (error "Context expects 3 values" _g127695_))) + (let ((_%pre126218%_ (##vector-ref _g127694_ 0)) + (_%ns126219%_ (##vector-ref _g127694_ 1)) + (_%pkg126220%_ (##vector-ref _g127694_ 2))) + (let* ((_%prelude126222%_ + (gx#import-module__0 _%pre126218%_)) + (_%read-module-body126277%_ + (let ((_%$e126268%_ + (__find (lambda (_%e126223126225%_) + (let* ((_%g126227126237%_ + _%e126223126225%_) + (_%else126229126245%_ (lambda () '#f)) - (_%K125957125975%_ + (_%K126231126249%_ (lambda () '#t))) (if (##structure-direct-instance-of? - _%g125953125963%_ + _%g126227126237%_ 'gx#module-export::t) - (let* ((_%e125958125978%_ + (let* ((_%e126232126252%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##unchecked-structure-ref - _%g125953125963%_ + _%g126227126237%_ '1 '#f '#f)) - (_%e125959125981%_ + (_%e126233126255%_ (##unchecked-structure-ref - _%g125953125963%_ + _%g126227126237%_ '2 '#f '#f)) - (_%e125960125984%_ + (_%e126234126258%_ (##unchecked-structure-ref - _%g125953125963%_ + _%g126227126237%_ '3 '#f '#f))) - (if (##eq? _%e125960125984%_ '1) - (let ((_%e125961125987%_ + (if (##eq? _%e126234126258%_ '1) + (let ((_%e126235126261%_ (##unchecked-structure-ref - _%g125953125963%_ + _%g126227126237%_ '4 '#f '#f))) - (if ((lambda (_%g125989125991%_) - (eq? _%g125989125991%_ 'read-module-body)) - _%e125961125987%_) - (_%K125957125975%_) - (_%else125955125971%_))) - (_%else125955125971%_))) - (_%else125955125971%_)))) + (if ((lambda (_%g126263126265%_) + (eq? _%g126263126265%_ 'read-module-body)) + _%e126235126261%_) + (_%K126231126249%_) + (_%else126229126245%_))) + (_%else126229126245%_))) + (_%else126229126245%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (##unchecked-structure-ref - _%prelude125948%_ + _%prelude126222%_ '9 '#f '#f)))) - (if _%$e125994%_ - ((lambda (_%xport125997%_) - (let ((_%proc126000%_ + (if _%$e126268%_ + ((lambda (_%xport126271%_) + (let ((_%proc126274%_ (__with-catch void (lambda () (gx#eval-syntax__0 (##structure-ref (gx#core-resolve-module-export - _%xport125997%_) + _%xport126271%_) '1 gx#binding::t '#f)))))) - (if (procedure? _%proc126000%_) - _%proc126000%_ + (if (procedure? _%proc126274%_) + _%proc126274%_ (gx#raise-syntax-error '#f '"Illegal #lang prelude; read-module-body is not a procedure" - _%path125850%_ - _%pre125944%_ - _%proc126000%_)))) - _%$e125994%_) - _%default-read-module-body125852%_))) - (_%path-id126005%_ + _%path126124%_ + _%pre126218%_ + _%proc126274%_)))) + _%$e126268%_) + _%default-read-module-body126126%_))) + (_%path-id126279%_ (gx#core-module-path->namespace - _%path125850%_)) - (_%pkg-id126007%_ - (if _%pkg125946%_ + _%path126124%_)) + (_%pkg-id126281%_ + (if _%pkg126220%_ (##string-append - _%pkg125946%_ + _%pkg126220%_ '"/" - _%path-id126005%_) - _%path-id126005%_)) - (_%module-id126009%_ - (##string->symbol _%pkg-id126007%_)) - (_%module-ns126014%_ - (let ((_%$e126011%_ _%ns125945%_)) - (if _%$e126011%_ - _%$e126011%_ - _%pkg-id126007%_))) - (_%body126017%_ + _%path-id126279%_) + _%path-id126279%_)) + (_%module-id126283%_ + (##string->symbol _%pkg-id126281%_)) + (_%module-ns126288%_ + (let ((_%$e126285%_ _%ns126219%_)) + (if _%$e126285%_ + _%$e126285%_ + _%pkg-id126281%_))) + (_%body126291%_ (__call-with-parameters (lambda () - (_%read-module-body126003%_ - _%inp125938%_)) + (_%read-module-body126277%_ + _%inp126212%_)) gx#current-module-reader-path - _%path125850%_ + _%path126124%_ gx#current-module-reader-args - _%args125942%_))) - (values _%prelude125948%_ - _%module-id126009%_ - _%module-ns126014%_ - _%body126017%_))))))) - (_%string-e125854%_ - (lambda (_%obj125932%_ _%what125933%_) - (if (string? _%obj125932%_) - _%obj125932%_ - (if (symbol? _%obj125932%_) - (##symbol->string _%obj125932%_) + _%args126216%_))) + (values _%prelude126222%_ + _%module-id126283%_ + _%module-ns126288%_ + _%body126291%_))))))) + (_%string-e126128%_ + (lambda (_%obj126206%_ _%what126207%_) + (if (string? _%obj126206%_) + _%obj126206%_ + (if (symbol? _%obj126206%_) + (##symbol->string _%obj126206%_) (gx#raise-syntax-error '#f - (string-append '"Illegal module " _%what125933%_) - _%path125850%_ - _%obj125932%_))))) - (_%read-lang-args125855%_ - (lambda (_%inp125887%_ _%args125888%_) - (let* ((_%args125889125897%_ _%args125888%_) - (_%else125891125905%_ + (string-append '"Illegal module " _%what126207%_) + _%path126124%_ + _%obj126206%_))))) + (_%read-lang-args126129%_ + (lambda (_%inp126161%_ _%args126162%_) + (let* ((_%args126163126171%_ _%args126162%_) + (_%else126165126179%_ (lambda () (gx#raise-syntax-error '#f '"Illegal #lang arguments; missing prelude" - _%path125850%_))) - (_%K125893125920%_ - (lambda (_%args125908%_ _%prelude125909%_) - (let* ((_%pkg125911%_ - (pgetq__0 'package: _%args125908%_)) - (_%pkg125913%_ - (if _%pkg125911%_ - (_%string-e125854%_ - _%pkg125911%_ + _%path126124%_))) + (_%K126167126194%_ + (lambda (_%args126182%_ _%prelude126183%_) + (let* ((_%pkg126185%_ + (pgetq__0 'package: _%args126182%_)) + (_%pkg126187%_ + (if _%pkg126185%_ + (_%string-e126128%_ + _%pkg126185%_ '"package") '#f)) - (_%ns125915%_ - (pgetq__0 'namespace: _%args125908%_)) - (_%ns125917%_ - (if _%ns125915%_ - (_%string-e125854%_ - _%ns125915%_ + (_%ns126189%_ + (pgetq__0 'namespace: _%args126182%_)) + (_%ns126191%_ + (if _%ns126189%_ + (_%string-e126128%_ + _%ns126189%_ '"namespace") '#f))) - (_%read-body125853%_ - _%inp125887%_ - _%prelude125909%_ - _%ns125917%_ - _%pkg125913%_ - _%args125908%_))))) - (if (##pair? _%args125889125897%_) - (let ((_%hd125894125923%_ - (##car _%args125889125897%_)) - (_%tl125895125925%_ - (##cdr _%args125889125897%_))) - (let* ((_%prelude125928%_ _%hd125894125923%_) - (_%args125930%_ _%tl125895125925%_)) - (_%K125893125920%_ - _%args125930%_ - _%prelude125928%_))) - (_%else125891125905%_))))) - (_%read-lang125856%_ - (lambda (_%inp125861%_) - (let* ((_%head125863%_ (read-line _%inp125861%_)) - (_%$e125865%_ - (string-index__0 _%head125863%_ '#\space))) - (if _%$e125865%_ - ((lambda (_%ix125868%_) - (let ((_%lang125870%_ + (_%read-body126127%_ + _%inp126161%_ + _%prelude126183%_ + _%ns126191%_ + _%pkg126187%_ + _%args126182%_))))) + (if (##pair? _%args126163126171%_) + (let ((_%hd126168126197%_ + (##car _%args126163126171%_)) + (_%tl126169126199%_ + (##cdr _%args126163126171%_))) + (let* ((_%prelude126202%_ _%hd126168126197%_) + (_%args126204%_ _%tl126169126199%_)) + (_%K126167126194%_ + _%args126204%_ + _%prelude126202%_))) + (_%else126165126179%_))))) + (_%read-lang126130%_ + (lambda (_%inp126135%_) + (let* ((_%head126137%_ (read-line _%inp126135%_)) + (_%$e126139%_ + (string-index__0 _%head126137%_ '#\space))) + (if _%$e126139%_ + ((lambda (_%ix126142%_) + (let ((_%lang126144%_ (substring - _%head125863%_ + _%head126137%_ '0 - _%ix125868%_))) - (if (equal? _%lang125870%_ '"#lang") - (let* ((_%rest125872%_ + _%ix126142%_))) + (if (equal? _%lang126144%_ '"#lang") + (let* ((_%rest126146%_ (substring - _%head125863%_ - (##fx+ _%ix125868%_ '1) - (string-length _%head125863%_))) - (_%args125883%_ + _%head126137%_ + (##fx+ _%ix126142%_ '1) + (string-length _%head126137%_))) + (_%args126157%_ (__with-catch - (lambda (_%g125873125875%_) + (lambda (_%g126147126149%_) (gx#raise-syntax-error '#f '"Illegal #lang arguments" - _%path125850%_ - _%g125873125875%_)) + _%path126124%_ + _%g126147126149%_)) (lambda () (call-with-input-string - _%rest125872%_ - (lambda (_%g125878125880%_) + _%rest126146%_ + (lambda (_%g126152126154%_) (read-all - _%g125878125880%_ + _%g126152126154%_ read))))))) - (_%read-lang-args125855%_ - _%inp125861%_ - _%args125883%_)) + (_%read-lang-args126129%_ + _%inp126135%_ + _%args126157%_)) (gx#raise-syntax-error '#f '"Illegal module syntax" - _%path125850%_)))) - _%$e125865%_) + _%path126124%_)))) + _%$e126139%_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _%path125850%_))))) - (_%read-e125857%_ - (lambda (_%inp125859%_) - (if (eq? (peek-char _%inp125859%_) '#\#) - (_%read-lang125856%_ _%inp125859%_) + _%path126124%_))))) + (_%read-e126131%_ + (lambda (_%inp126133%_) + (if (eq? (peek-char _%inp126133%_) '#\#) + (_%read-lang126130%_ _%inp126133%_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _%path125850%_))))) - (gx#call-with-input-source-file _%path125850%_ _%read-e125857%_)))) + _%path126124%_))))) + (gx#call-with-input-source-file _%path126124%_ _%read-e126131%_)))) (define gx#core-read-module-package - (lambda (_%path125798%_ _%pre125799%_ _%ns125800%_) - (letrec ((_%string-e125802%_ - (lambda (_%e125845%_) - (if (symbol? _%e125845%_) - (##symbol->string _%e125845%_) - (if (string? _%e125845%_) - _%e125845%_ + (lambda (_%path126072%_ _%pre126073%_ _%ns126074%_) + (letrec ((_%string-e126076%_ + (lambda (_%e126119%_) + (if (symbol? _%e126119%_) + (##symbol->string _%e126119%_) + (if (string? _%e126119%_) + _%e126119%_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _%e125845%_)))))) - (let _%lp125804%_ ((_%dir125806%_ (path-directory _%path125798%_)) - (_%pkg-path125807%_ '())) - (let ((_%gerbil.pkg125809%_ - (path-expand '"gerbil.pkg" _%dir125806%_))) - (if (##file-exists? _%gerbil.pkg125809%_) - (let ((_%plist125811%_ - (gx#core-library-package-plist__% _%dir125806%_ '#t))) - (if (null? _%plist125811%_) - (let ((_%pkg125814%_ - (if (null? _%pkg-path125807%_) + _%e126119%_)))))) + (let _%lp126078%_ ((_%dir126080%_ (path-directory _%path126072%_)) + (_%pkg-path126081%_ '())) + (let ((_%gerbil.pkg126083%_ + (path-expand '"gerbil.pkg" _%dir126080%_))) + (if (##file-exists? _%gerbil.pkg126083%_) + (let ((_%plist126085%_ + (gx#core-library-package-plist__% _%dir126080%_ '#t))) + (if (null? _%plist126085%_) + (let ((_%pkg126088%_ + (if (null? _%pkg-path126081%_) '#f - (string-join _%pkg-path125807%_ '"/")))) - (values _%pre125799%_ _%ns125800%_ _%pkg125814%_)) - (if (list? _%plist125811%_) - (let* ((_%root125817%_ - (pgetq__0 'package: _%plist125811%_)) - (_%pkg125821%_ - (let ((_%pkg-path125819%_ - (if _%root125817%_ - (cons (_%string-e125802%_ - _%root125817%_) - _%pkg-path125807%_) - _%pkg-path125807%_))) - (if (null? _%pkg-path125819%_) + (string-join _%pkg-path126081%_ '"/")))) + (values _%pre126073%_ _%ns126074%_ _%pkg126088%_)) + (if (list? _%plist126085%_) + (let* ((_%root126091%_ + (pgetq__0 'package: _%plist126085%_)) + (_%pkg126095%_ + (let ((_%pkg-path126093%_ + (if _%root126091%_ + (cons (_%string-e126076%_ + _%root126091%_) + _%pkg-path126081%_) + _%pkg-path126081%_))) + (if (null? _%pkg-path126093%_) '#f (string-join - _%pkg-path125819%_ + _%pkg-path126093%_ '"/")))) - (_%ns125828%_ - (let ((_%ns125826%_ - (let ((_%$e125823%_ _%ns125800%_)) - (if _%$e125823%_ - _%$e125823%_ + (_%ns126102%_ + (let ((_%ns126100%_ + (let ((_%$e126097%_ _%ns126074%_)) + (if _%$e126097%_ + _%$e126097%_ (pgetq__0 'namespace: - _%plist125811%_))))) - (if _%ns125826%_ - (_%string-e125802%_ _%ns125826%_) + _%plist126085%_))))) + (if _%ns126100%_ + (_%string-e126076%_ _%ns126100%_) '#f))) - (_%pre125833%_ - (let ((_%$e125830%_ _%pre125799%_)) - (if _%$e125830%_ - _%$e125830%_ + (_%pre126107%_ + (let ((_%$e126104%_ _%pre126073%_)) + (if _%$e126104%_ + _%$e126104%_ (pgetq__0 'prelude: - _%plist125811%_))))) - (values _%pre125833%_ - _%ns125828%_ - _%pkg125821%_)) + _%plist126085%_))))) + (values _%pre126107%_ + _%ns126102%_ + _%pkg126095%_)) (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _%plist125811%_)))) - (let ((_%dir*125837%_ + _%plist126085%_)))) + (let ((_%dir*126111%_ (path-strip-trailing-directory-separator - _%dir125806%_))) - (if (or (__string-empty? _%dir*125837%_) - (equal? _%dir125806%_ _%dir*125837%_)) - (values _%pre125799%_ _%ns125800%_ '#f) - (let ((_%xpath125842%_ - (path-strip-directory _%dir*125837%_)) - (_%xdir125843%_ (path-directory _%dir*125837%_))) - (_%lp125804%_ - _%xdir125843%_ - (cons _%xpath125842%_ _%pkg-path125807%_))))))))))) + _%dir126080%_))) + (if (or (__string-empty? _%dir*126111%_) + (equal? _%dir126080%_ _%dir*126111%_)) + (values _%pre126073%_ _%ns126074%_ '#f) + (let ((_%xpath126116%_ + (path-strip-directory _%dir*126111%_)) + (_%xdir126117%_ (path-directory _%dir*126111%_))) + (_%lp126078%_ + _%xdir126117%_ + (cons _%xpath126116%_ _%pkg-path126081%_))))))))))) (define gx#core-module-path->namespace - (lambda (_%path125796%_) - (path-strip-extension (path-strip-directory _%path125796%_)))) + (lambda (_%path126070%_) + (path-strip-extension (path-strip-directory _%path126070%_)))) (define gx#core-module-path->id - (lambda (_%path125794%_) - (##string->symbol (gx#core-module-path->namespace _%path125794%_)))) + (lambda (_%path126068%_) + (##string->symbol (gx#core-module-path->namespace _%path126068%_)))) (define gx#core-resolve-module-path__% - (lambda (_%stx-path125773%_ _%rel125774%_) - (let* ((_%path125776%_ (gx#stx-e _%stx-path125773%_)) - (_%path125778%_ - (if (__string-empty? (path-extension _%path125776%_)) - (##string-append _%path125776%_ '".ss") - _%path125776%_))) + (lambda (_%stx-path126047%_ _%rel126048%_) + (let* ((_%path126050%_ (gx#stx-e _%stx-path126047%_)) + (_%path126052%_ + (if (__string-empty? (path-extension _%path126050%_)) + (##string-append _%path126050%_ '".ss") + _%path126050%_))) (gx#core-resolve-path__% - _%path125778%_ - (let ((_%$e125781%_ (gx#stx-source _%stx-path125773%_))) - (if _%$e125781%_ _%$e125781%_ _%rel125774%_)))))) + _%path126052%_ + (let ((_%$e126055%_ (gx#stx-source _%stx-path126047%_))) + (if _%$e126055%_ _%$e126055%_ _%rel126048%_)))))) (define gx#core-resolve-module-path__0 - (lambda (_%stx-path125787%_) - (let ((_%rel125789%_ '#f)) - (gx#core-resolve-module-path__% _%stx-path125787%_ _%rel125789%_)))) + (lambda (_%stx-path126061%_) + (let ((_%rel126063%_ '#f)) + (gx#core-resolve-module-path__% _%stx-path126061%_ _%rel126063%_)))) (define gx#core-resolve-module-path - (lambda _g127423_ - (let ((_g127422_ (##length _g127423_))) - (cond ((##fx= _g127422_ 1) - (apply gx#core-resolve-module-path__0 _g127423_)) - ((##fx= _g127422_ 2) - (apply gx#core-resolve-module-path__% _g127423_)) + (lambda _g127697_ + (let ((_g127696_ (##length _g127697_))) + (cond ((##fx= _g127696_ 1) + (apply gx#core-resolve-module-path__0 _g127697_)) + ((##fx= _g127696_ 2) + (apply gx#core-resolve-module-path__% _g127697_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-module-path - _g127423_)))))) + _g127697_)))))) (define gx#core-resolve-library-module-path - (lambda (_%libpath125658%_) - (let* ((_%spath125660%_ (symbol->string (gx#stx-e _%libpath125658%_))) - (_%spath125662%_ + (lambda (_%libpath125932%_) + (let* ((_%spath125934%_ (symbol->string (gx#stx-e _%libpath125932%_))) + (_%spath125936%_ (substring - _%spath125660%_ + _%spath125934%_ '1 - (##string-length _%spath125660%_))) - (_%ext125664%_ (path-extension _%spath125662%_)) - (_%ssi125666%_ - (if (__string-empty? _%ext125664%_) - (##string-append _%spath125662%_ '".ssi") + (##string-length _%spath125934%_))) + (_%ext125938%_ (path-extension _%spath125936%_)) + (_%ssi125940%_ + (if (__string-empty? _%ext125938%_) + (##string-append _%spath125936%_ '".ssi") (##string-append - (path-strip-extension _%spath125662%_) + (path-strip-extension _%spath125936%_) '".ssi"))) - (_%srcs125670%_ - (if (__string-empty? _%ext125664%_) - (##map (lambda (_%ext125668%_) - (string-append _%spath125662%_ _%ext125668%_)) + (_%srcs125944%_ + (if (__string-empty? _%ext125938%_) + (##map (lambda (_%ext125942%_) + (string-append _%spath125936%_ _%ext125942%_)) '(".ss" ".sld" ".scm")) - (cons _%spath125662%_ '())))) - (let _%lp125673%_ ((_%rest125675%_ (load-path))) - (let* ((_%rest125676125685%_ _%rest125675%_) - (_%E125679125689%_ + (cons _%spath125936%_ '())))) + (let _%lp125947%_ ((_%rest125949%_ (load-path))) + (let* ((_%rest125950125959%_ _%rest125949%_) + (_%E125953125963%_ (lambda () (error '"No clause matching" - _%rest125676125685%_ + _%rest125950125959%_ '([dir . rest]) '([])) '#!void))) - (let ((_%K125681125760%_ - (lambda (_%rest125700%_ _%dir125701%_) - (letrec ((_%resolve125703%_ - (lambda (_%ssi125716%_ _%srcs125717%_) - (let ((_%compiled-path125719%_ + (let ((_%K125955126034%_ + (lambda (_%rest125974%_ _%dir125975%_) + (letrec ((_%resolve125977%_ + (lambda (_%ssi125990%_ _%srcs125991%_) + (let ((_%compiled-path125993%_ (path-expand - _%ssi125716%_ - _%dir125701%_))) + _%ssi125990%_ + _%dir125975%_))) (if (##file-exists? - _%compiled-path125719%_) + _%compiled-path125993%_) (path-normalize - _%compiled-path125719%_) - (let _%lpr125721%_ ((_%rest-src125723%_ - _%srcs125717%_)) - (let* ((_%rest-src125724125732%_ - _%rest-src125723%_) - (_%else125726125740%_ + _%compiled-path125993%_) + (let _%lpr125995%_ ((_%rest-src125997%_ + _%srcs125991%_)) + (let* ((_%rest-src125998126006%_ + _%rest-src125997%_) + (_%else126000126014%_ (lambda () - (_%lp125673%_ - _%rest125700%_))) - (_%K125728125748%_ - (lambda (_%rest-src125743%_ - _%src125744%_) - (let ((_%src-path125746%_ + (_%lp125947%_ + _%rest125974%_))) + (_%K126002126022%_ + (lambda (_%rest-src126017%_ + _%src126018%_) + (let ((_%src-path126020%_ (path-expand - _%src125744%_ - _%dir125701%_))) + _%src126018%_ + _%dir125975%_))) (if (##file-exists? - _%src-path125746%_) + _%src-path126020%_) (path-normalize - _%src-path125746%_) - (_%lpr125721%_ - _%rest-src125743%_)))))) - (if (##pair? _%rest-src125724125732%_) - (let ((_%hd125729125751%_ - (##car _%rest-src125724125732%_)) - (_%tl125730125753%_ - (##cdr _%rest-src125724125732%_))) - (let* ((_%src125756%_ - _%hd125729125751%_) - (_%rest-src125758%_ - _%tl125730125753%_)) - (_%K125728125748%_ - _%rest-src125758%_ - _%src125756%_))) - (_%else125726125740%_))))))))) - (let ((_%$e125705%_ + _%src-path126020%_) + (_%lpr125995%_ + _%rest-src126017%_)))))) + (if (##pair? _%rest-src125998126006%_) + (let ((_%hd126003126025%_ + (##car _%rest-src125998126006%_)) + (_%tl126004126027%_ + (##cdr _%rest-src125998126006%_))) + (let* ((_%src126030%_ + _%hd126003126025%_) + (_%rest-src126032%_ + _%tl126004126027%_)) + (_%K126002126022%_ + _%rest-src126032%_ + _%src126030%_))) + (_%else126000126014%_))))))))) + (let ((_%$e125979%_ (gx#core-library-package-path-prefix - _%dir125701%_))) - (if _%$e125705%_ - ((lambda (_%prefix125708%_) + _%dir125975%_))) + (if _%$e125979%_ + ((lambda (_%prefix125982%_) (if (string-prefix? - _%prefix125708%_ - _%spath125662%_) - (let ((_%ssi125712%_ + _%prefix125982%_ + _%spath125936%_) + (let ((_%ssi125986%_ (substring - _%ssi125666%_ - (string-length _%prefix125708%_) - (##string-length _%ssi125666%_))) - (_%srcs125713%_ - (##map (lambda (_%src125710%_) + _%ssi125940%_ + (string-length _%prefix125982%_) + (##string-length _%ssi125940%_))) + (_%srcs125987%_ + (##map (lambda (_%src125984%_) (substring - _%src125710%_ + _%src125984%_ (string-length - _%prefix125708%_) + _%prefix125982%_) (string-length - _%src125710%_))) - _%srcs125670%_))) - (_%resolve125703%_ - _%ssi125712%_ - _%srcs125713%_)) - (_%lp125673%_ _%rest125700%_))) - _%$e125705%_) - (_%resolve125703%_ - _%ssi125666%_ - _%srcs125670%_)))))) - (_%K125680125694%_ + _%src125984%_))) + _%srcs125944%_))) + (_%resolve125977%_ + _%ssi125986%_ + _%srcs125987%_)) + (_%lp125947%_ _%rest125974%_))) + _%$e125979%_) + (_%resolve125977%_ + _%ssi125940%_ + _%srcs125944%_)))))) + (_%K125954125968%_ (lambda () (gx#raise-syntax-error '#f '"cannot find library module" - _%libpath125658%_)))) - (let ((_%try-match125678125697%_ + _%libpath125932%_)))) + (let ((_%try-match125952125971%_ (lambda () - (if (##null? _%rest125676125685%_) - (_%K125680125694%_) - (_%E125679125689%_))))) - (if (##pair? _%rest125676125685%_) - (let ((_%tl125683125765%_ (##cdr _%rest125676125685%_)) - (_%hd125682125763%_ (##car _%rest125676125685%_))) - (let ((_%dir125768%_ _%hd125682125763%_) - (_%rest125770%_ _%tl125683125765%_)) - (_%K125681125760%_ _%rest125770%_ _%dir125768%_))) - (_%try-match125678125697%_))))))))) + (if (##null? _%rest125950125959%_) + (_%K125954125968%_) + (_%E125953125963%_))))) + (if (##pair? _%rest125950125959%_) + (let ((_%tl125957126039%_ (##cdr _%rest125950125959%_)) + (_%hd125956126037%_ (##car _%rest125950125959%_))) + (let ((_%dir126042%_ _%hd125956126037%_) + (_%rest126044%_ _%tl125957126039%_)) + (_%K125955126034%_ _%rest126044%_ _%dir126042%_))) + (_%try-match125952125971%_))))))))) (define gx#core-resolve-library-relative-module-path - (lambda (_%modpath125626%_) - (letrec ((_%resolve125628%_ - (lambda (_%path125649%_ _%base125650%_) - (let ((_%$e125652%_ - (string-rindex__0 _%base125650%_ '#\/))) - (if _%$e125652%_ - ((lambda (_%idx125655%_) + (lambda (_%modpath125900%_) + (letrec ((_%resolve125902%_ + (lambda (_%path125923%_ _%base125924%_) + (let ((_%$e125926%_ + (string-rindex__0 _%base125924%_ '#\/))) + (if _%$e125926%_ + ((lambda (_%idx125929%_) (gx#core-resolve-library-module-path (##string->symbol (string-append '":" - (substring _%base125650%_ '0 _%idx125655%_) + (substring _%base125924%_ '0 _%idx125929%_) '"/" - _%path125649%_)))) - _%$e125652%_) + _%path125923%_)))) + _%$e125926%_) (gx#core-resolve-library-module-path (##string->symbol - (string-append '":" _%path125649%_)))))))) - (let ((_%spath125630%_ (symbol->string (gx#stx-e _%modpath125626%_))) - (_%mod125631%_ + (string-append '":" _%path125923%_)))))))) + (let ((_%spath125904%_ (symbol->string (gx#stx-e _%modpath125900%_))) + (_%mod125905%_ (gx#core-context-top__% (gx#current-expander-context) gx#module-context?))) - (if _%mod125631%_ + (if _%mod125905%_ '#!void (gx#raise-syntax-error '#f '"cannot resolve relative module path; not in module context" - _%modpath125626%_)) - (let ((_%mpath125633%_ + _%modpath125900%_)) + (let ((_%mpath125907%_ (symbol->string (##structure-ref - _%mod125631%_ + _%mod125905%_ '1 gx#expander-context::t '#f)))) - (let _%lp125635%_ ((_%spath125637%_ _%spath125630%_) - (_%mpath125638%_ _%mpath125633%_)) - (if (string-prefix? '"../" _%spath125637%_) - (let ((_%$e125641%_ - (string-rindex__0 _%mpath125638%_ '#\/))) - (if _%$e125641%_ - ((lambda (_%idx125644%_) - (_%lp125635%_ + (let _%lp125909%_ ((_%spath125911%_ _%spath125904%_) + (_%mpath125912%_ _%mpath125907%_)) + (if (string-prefix? '"../" _%spath125911%_) + (let ((_%$e125915%_ + (string-rindex__0 _%mpath125912%_ '#\/))) + (if _%$e125915%_ + ((lambda (_%idx125918%_) + (_%lp125909%_ (substring - _%spath125637%_ + _%spath125911%_ '3 - (string-length _%spath125637%_)) - (substring _%mpath125638%_ '0 _%idx125644%_))) - _%$e125641%_) + (string-length _%spath125911%_)) + (substring _%mpath125912%_ '0 _%idx125918%_))) + _%$e125915%_) (gx#raise-syntax-error '#f '"cannot resolve relative module path; illegal traversal" - _%modpath125626%_))) - (if (string-prefix? '"./" _%spath125637%_) - (_%lp125635%_ + _%modpath125900%_))) + (if (string-prefix? '"./" _%spath125911%_) + (_%lp125909%_ (substring - _%spath125637%_ + _%spath125911%_ '2 - (string-length _%spath125637%_)) - _%mpath125638%_) - (_%resolve125628%_ - _%spath125637%_ - _%mpath125638%_))))))))) + (string-length _%spath125911%_)) + _%mpath125912%_) + (_%resolve125902%_ + _%spath125911%_ + _%mpath125912%_))))))))) (define gx#core-library-package-path-prefix - (lambda (_%dir125618%_) - (let ((_%$e125620%_ + (lambda (_%dir125892%_) + (let ((_%$e125894%_ (pgetq__0 'package: - (gx#core-library-package-plist__0 _%dir125618%_)))) - (if _%$e125620%_ - ((lambda (_%pkg125623%_) - (##string-append (symbol->string _%pkg125623%_) '"/")) - _%$e125620%_) + (gx#core-library-package-plist__0 _%dir125892%_)))) + (if _%$e125894%_ + ((lambda (_%pkg125897%_) + (##string-append (symbol->string _%pkg125897%_) '"/")) + _%$e125894%_) '#f)))) (define gx#core-library-package-plist__% - (lambda (_%dir125588%_ _%exists?125589%_) - (let ((_%$e125591%_ (__hash-get gx#__module-pkg-cache _%dir125588%_))) - (if _%$e125591%_ - _%$e125591%_ - (let* ((_%gerbil.pkg125595%_ - (path-expand '"gerbil.pkg" _%dir125588%_)) - (_%plist125605%_ - (if (or _%exists?125589%_ - (##file-exists? _%gerbil.pkg125595%_)) - (let ((_%e125600%_ + (lambda (_%dir125862%_ _%exists?125863%_) + (let ((_%$e125865%_ (__hash-get gx#__module-pkg-cache _%dir125862%_))) + (if _%$e125865%_ + _%$e125865%_ + (let* ((_%gerbil.pkg125869%_ + (path-expand '"gerbil.pkg" _%dir125862%_)) + (_%plist125879%_ + (if (or _%exists?125863%_ + (##file-exists? _%gerbil.pkg125869%_)) + (let ((_%e125874%_ (gx#call-with-input-source-file - _%gerbil.pkg125595%_ + _%gerbil.pkg125869%_ read))) - (if (eof-object? _%e125600%_) + (if (eof-object? _%e125874%_) '() - (if (list? _%e125600%_) - _%e125600%_ + (if (list? _%e125874%_) + _%e125874%_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _%gerbil.pkg125595%_ - _%e125600%_)))) + _%gerbil.pkg125869%_ + _%e125874%_)))) '()))) (__hash-put! gx#__module-pkg-cache - _%dir125588%_ - _%plist125605%_) - _%plist125605%_))))) + _%dir125862%_ + _%plist125879%_) + _%plist125879%_))))) (define gx#core-library-package-plist__0 - (lambda (_%dir125611%_) - (let ((_%exists?125613%_ '#f)) - (gx#core-library-package-plist__% _%dir125611%_ _%exists?125613%_)))) + (lambda (_%dir125885%_) + (let ((_%exists?125887%_ '#f)) + (gx#core-library-package-plist__% _%dir125885%_ _%exists?125887%_)))) (define gx#core-library-package-plist - (lambda _g127425_ - (let ((_g127424_ (##length _g127425_))) - (cond ((##fx= _g127424_ 1) - (apply gx#core-library-package-plist__0 _g127425_)) - ((##fx= _g127424_ 2) - (apply gx#core-library-package-plist__% _g127425_)) + (lambda _g127699_ + (let ((_g127698_ (##length _g127699_))) + (cond ((##fx= _g127698_ 1) + (apply gx#core-library-package-plist__0 _g127699_)) + ((##fx= _g127698_ 2) + (apply gx#core-library-package-plist__% _g127699_)) (else (##raise-wrong-number-of-arguments-exception gx#core-library-package-plist - _g127425_)))))) + _g127699_)))))) (define gx#core-library-module-path? - (lambda (_%stx125585%_) - (gx#core-special-module-path? _%stx125585%_ '#\:))) + (lambda (_%stx125859%_) + (gx#core-special-module-path? _%stx125859%_ '#\:))) (define gx#core-library-relative-module-path? - (lambda (_%stx125583%_) - (gx#core-special-module-path? _%stx125583%_ '#\.))) + (lambda (_%stx125857%_) + (gx#core-special-module-path? _%stx125857%_ '#\.))) (define gx#core-special-module-path? - (lambda (_%stx125578%_ _%char125579%_) - (if (gx#identifier? _%stx125578%_) - (if (interned-symbol? (gx#stx-e _%stx125578%_)) - (let ((_%str125581%_ - (symbol->string (gx#stx-e _%stx125578%_)))) - (if (##fx> (##string-length _%str125581%_) '1) - (eq? (string-ref _%str125581%_ '0) _%char125579%_) + (lambda (_%stx125852%_ _%char125853%_) + (if (gx#identifier? _%stx125852%_) + (if (interned-symbol? (gx#stx-e _%stx125852%_)) + (let ((_%str125855%_ + (symbol->string (gx#stx-e _%stx125852%_)))) + (if (##fx> (##string-length _%str125855%_) '1) + (eq? (string-ref _%str125855%_ '0) _%char125853%_) '#f)) '#f) '#f))) (define gx#core-bound-prelude? - (lambda (_%stx125572%_) + (lambda (_%stx125846%_) (gx#core-bound-identifier?__% - _%stx125572%_ - (lambda (_%g125573125575%_) - (gx#expander-binding?__% _%g125573125575%_ gx#prelude-context?))))) + _%stx125846%_ + (lambda (_%g125847125849%_) + (gx#expander-binding?__% _%g125847125849%_ gx#prelude-context?))))) (define gx#core-bound-module? - (lambda (_%stx125566%_) + (lambda (_%stx125840%_) (gx#core-bound-identifier?__% - _%stx125566%_ - (lambda (_%g125567125569%_) - (gx#expander-binding?__% _%g125567125569%_ gx#module-context?))))) + _%stx125840%_ + (lambda (_%g125841125843%_) + (gx#expander-binding?__% _%g125841125843%_ gx#module-context?))))) (define gx#core-bound-module-prelude? - (lambda (_%stx125553%_) - (letrec ((_%module-prelude?125555%_ - (lambda (_%e125561%_) - (let ((_%$e125563%_ + (lambda (_%stx125827%_) + (letrec ((_%module-prelude?125829%_ + (lambda (_%e125835%_) + (let ((_%$e125837%_ (##structure-instance-of? - _%e125561%_ + _%e125835%_ 'gx#module-context::t))) - (if _%$e125563%_ - _%$e125563%_ + (if _%$e125837%_ + _%$e125837%_ (##structure-instance-of? - _%e125561%_ + _%e125835%_ 'gx#prelude-context::t)))))) (gx#core-bound-identifier?__% - _%stx125553%_ - (lambda (_%g125556125558%_) + _%stx125827%_ + (lambda (_%g125830125832%_) (gx#expander-binding?__% - _%g125556125558%_ - _%module-prelude?125555%_)))))) + _%g125830125832%_ + _%module-prelude?125829%_)))))) (define gx#core-bind-import!__% - (lambda (_%in125483%_ _%ctx125484%_ _%force-weak?125485%_) - (let* ((_%in125486125495%_ _%in125483%_) - (_%E125488125499%_ + (lambda (_%in125757%_ _%ctx125758%_ _%force-weak?125759%_) + (let* ((_%in125760125769%_ _%in125757%_) + (_%E125762125773%_ (lambda () (error '"No clause matching" - _%in125486125495%_ + _%in125760125769%_ '((module-import source key phi weak?))) '#!void)) - (_%K125489125512%_ - (lambda (_%weak?125502%_ - _%phi125503%_ - _%key125504%_ - _%source125505%_) + (_%K125763125786%_ + (lambda (_%weak?125776%_ + _%phi125777%_ + _%key125778%_ + _%source125779%_) (gx#core-bind!__% - _%key125504%_ - (let ((_%e125507%_ - (gx#core-resolve-module-export _%source125505%_))) + _%key125778%_ + (let ((_%e125781%_ + (gx#core-resolve-module-export _%source125779%_))) (##structure gx#import-binding::t - (##unchecked-structure-ref _%e125507%_ '1 '#f '#f) - _%key125504%_ - _%phi125503%_ - _%e125507%_ - (##unchecked-structure-ref _%source125505%_ '1 '#f '#f) - (let ((_%$e125509%_ _%force-weak?125485%_)) - (if _%$e125509%_ _%$e125509%_ _%weak?125502%_)))) + (##unchecked-structure-ref _%e125781%_ '1 '#f '#f) + _%key125778%_ + _%phi125777%_ + _%e125781%_ + (##unchecked-structure-ref _%source125779%_ '1 '#f '#f) + (let ((_%$e125783%_ _%force-weak?125759%_)) + (if _%$e125783%_ _%$e125783%_ _%weak?125776%_)))) gx#core-context-rebind? - _%phi125503%_ - _%ctx125484%_)))) + _%phi125777%_ + _%ctx125758%_)))) (if (##structure-direct-instance-of? - _%in125486125495%_ + _%in125760125769%_ 'gx#module-import::t) - (let* ((_%e125490125515%_ + (let* ((_%e125764125789%_ (##unchecked-structure-ref - _%in125486125495%_ + _%in125760125769%_ '1 '#f '#f)) - (_%source125518%_ _%e125490125515%_) - (_%e125491125520%_ + (_%source125792%_ _%e125764125789%_) + (_%e125765125794%_ (##unchecked-structure-ref - _%in125486125495%_ + _%in125760125769%_ '2 '#f '#f)) - (_%key125523%_ _%e125491125520%_) - (_%e125492125525%_ + (_%key125797%_ _%e125765125794%_) + (_%e125766125799%_ (##unchecked-structure-ref - _%in125486125495%_ + _%in125760125769%_ '3 '#f '#f)) - (_%phi125528%_ _%e125492125525%_) - (_%e125493125530%_ + (_%phi125802%_ _%e125766125799%_) + (_%e125767125804%_ (##unchecked-structure-ref - _%in125486125495%_ + _%in125760125769%_ '4 '#f '#f)) - (_%weak?125533%_ _%e125493125530%_)) - (_%K125489125512%_ - _%weak?125533%_ - _%phi125528%_ - _%key125523%_ - _%source125518%_)) - (_%E125488125499%_))))) + (_%weak?125807%_ _%e125767125804%_)) + (_%K125763125786%_ + _%weak?125807%_ + _%phi125802%_ + _%key125797%_ + _%source125792%_)) + (_%E125762125773%_))))) (define gx#core-bind-import!__0 - (lambda (_%in125538%_) - (let* ((_%ctx125540%_ (gx#current-expander-context)) - (_%force-weak?125542%_ '#f)) + (lambda (_%in125812%_) + (let* ((_%ctx125814%_ (gx#current-expander-context)) + (_%force-weak?125816%_ '#f)) (gx#core-bind-import!__% - _%in125538%_ - _%ctx125540%_ - _%force-weak?125542%_)))) + _%in125812%_ + _%ctx125814%_ + _%force-weak?125816%_)))) (define gx#core-bind-import!__1 - (lambda (_%in125544%_ _%ctx125545%_) - (let ((_%force-weak?125547%_ '#f)) + (lambda (_%in125818%_ _%ctx125819%_) + (let ((_%force-weak?125821%_ '#f)) (gx#core-bind-import!__% - _%in125544%_ - _%ctx125545%_ - _%force-weak?125547%_)))) + _%in125818%_ + _%ctx125819%_ + _%force-weak?125821%_)))) (define gx#core-bind-import! - (lambda _g127427_ - (let ((_g127426_ (##length _g127427_))) - (cond ((##fx= _g127426_ 1) (apply gx#core-bind-import!__0 _g127427_)) - ((##fx= _g127426_ 2) (apply gx#core-bind-import!__1 _g127427_)) - ((##fx= _g127426_ 3) (apply gx#core-bind-import!__% _g127427_)) + (lambda _g127701_ + (let ((_g127700_ (##length _g127701_))) + (cond ((##fx= _g127700_ 1) (apply gx#core-bind-import!__0 _g127701_)) + ((##fx= _g127700_ 2) (apply gx#core-bind-import!__1 _g127701_)) + ((##fx= _g127700_ 3) (apply gx#core-bind-import!__% _g127701_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-import! - _g127427_)))))) + _g127701_)))))) (define gx#core-bind-weak-import!__% - (lambda (_%in125469%_ _%ctx125470%_) - (gx#core-bind-import!__% _%in125469%_ _%ctx125470%_ '#t))) + (lambda (_%in125743%_ _%ctx125744%_) + (gx#core-bind-import!__% _%in125743%_ _%ctx125744%_ '#t))) (define gx#core-bind-weak-import!__0 - (lambda (_%in125475%_) - (let ((_%ctx125477%_ (gx#current-expander-context))) - (gx#core-bind-weak-import!__% _%in125475%_ _%ctx125477%_)))) + (lambda (_%in125749%_) + (let ((_%ctx125751%_ (gx#current-expander-context))) + (gx#core-bind-weak-import!__% _%in125749%_ _%ctx125751%_)))) (define gx#core-bind-weak-import! - (lambda _g127429_ - (let ((_g127428_ (##length _g127429_))) - (cond ((##fx= _g127428_ 1) - (apply gx#core-bind-weak-import!__0 _g127429_)) - ((##fx= _g127428_ 2) - (apply gx#core-bind-weak-import!__% _g127429_)) + (lambda _g127703_ + (let ((_g127702_ (##length _g127703_))) + (cond ((##fx= _g127702_ 1) + (apply gx#core-bind-weak-import!__0 _g127703_)) + ((##fx= _g127702_ 2) + (apply gx#core-bind-weak-import!__% _g127703_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-weak-import! - _g127429_)))))) + _g127703_)))))) (define gx#core-resolve-module-export - (lambda (_%out125360%_) - (letrec ((_%subst125362%_ - (lambda (_%key125408%_) - (let* ((_%key125409125417%_ _%key125408%_) - (_%else125411125425%_ (lambda () _%key125408%_)) - (_%K125413125456%_ - (lambda (_%mark125428%_ _%id125429%_) - (let* ((_%mark125430125436%_ _%mark125428%_) - (_%E125432125440%_ + (lambda (_%out125634%_) + (letrec ((_%subst125636%_ + (lambda (_%key125682%_) + (let* ((_%key125683125691%_ _%key125682%_) + (_%else125685125699%_ (lambda () _%key125682%_)) + (_%K125687125730%_ + (lambda (_%mark125702%_ _%id125703%_) + (let* ((_%mark125704125710%_ _%mark125702%_) + (_%E125706125714%_ (lambda () (error '"No clause matching" - _%mark125430125436%_ + _%mark125704125710%_ '((expander-mark subst))) '#!void)) - (_%K125433125448%_ - (lambda (_%subst125443%_) - (let ((_%$e125445%_ - (if _%subst125443%_ + (_%K125707125722%_ + (lambda (_%subst125717%_) + (let ((_%$e125719%_ + (if _%subst125717%_ (hash-get - _%subst125443%_ - _%id125429%_) + _%subst125717%_ + _%id125703%_) '#f))) - (if _%$e125445%_ - _%$e125445%_ + (if _%$e125719%_ + _%$e125719%_ (gx#raise-syntax-error '#f '"Illegal key; missing substitution" - _%key125408%_)))))) + _%key125682%_)))))) (if (##structure-instance-of? - _%mark125430125436%_ + _%mark125704125710%_ 'gx#expander-mark::t) - (let* ((_%e125434125451%_ + (let* ((_%e125708125725%_ (##unchecked-structure-ref - _%mark125430125436%_ + _%mark125704125710%_ '1 '#f '#f)) - (_%subst125454%_ _%e125434125451%_)) - (_%K125433125448%_ _%subst125454%_)) - (_%E125432125440%_)))))) - (if (##pair? _%key125409125417%_) - (let ((_%hd125414125459%_ - (##car _%key125409125417%_)) - (_%tl125415125461%_ - (##cdr _%key125409125417%_))) - (let* ((_%id125464%_ _%hd125414125459%_) - (_%mark125466%_ _%tl125415125461%_)) - (_%K125413125456%_ _%mark125466%_ _%id125464%_))) - (_%else125411125425%_)))))) - (let* ((_%out125363125373%_ _%out125360%_) - (_%E125365125377%_ + (_%subst125728%_ _%e125708125725%_)) + (_%K125707125722%_ _%subst125728%_)) + (_%E125706125714%_)))))) + (if (##pair? _%key125683125691%_) + (let ((_%hd125688125733%_ + (##car _%key125683125691%_)) + (_%tl125689125735%_ + (##cdr _%key125683125691%_))) + (let* ((_%id125738%_ _%hd125688125733%_) + (_%mark125740%_ _%tl125689125735%_)) + (_%K125687125730%_ _%mark125740%_ _%id125738%_))) + (_%else125685125699%_)))))) + (let* ((_%out125637125647%_ _%out125634%_) + (_%E125639125651%_ (lambda () (error '"No clause matching" - _%out125363125373%_ + _%out125637125647%_ '((module-export ctx key phi _ _))) '#!void)) - (_%K125366125384%_ - (lambda (_%phi125380%_ _%key125381%_ _%ctx125382%_) + (_%K125640125658%_ + (lambda (_%phi125654%_ _%key125655%_ _%ctx125656%_) (gx#core-context-resolve - (gx#core-context-shift _%ctx125382%_ _%phi125380%_) - (_%subst125362%_ _%key125381%_))))) + (gx#core-context-shift _%ctx125656%_ _%phi125654%_) + (_%subst125636%_ _%key125655%_))))) (if (##structure-direct-instance-of? - _%out125363125373%_ + _%out125637125647%_ 'gx#module-export::t) - (let* ((_%e125367125387%_ + (let* ((_%e125641125661%_ (##unchecked-structure-ref - _%out125363125373%_ + _%out125637125647%_ '1 '#f '#f)) - (_%ctx125390%_ _%e125367125387%_) - (_%e125368125392%_ + (_%ctx125664%_ _%e125641125661%_) + (_%e125642125666%_ (##unchecked-structure-ref - _%out125363125373%_ + _%out125637125647%_ '2 '#f '#f)) - (_%key125395%_ _%e125368125392%_) - (_%e125369125397%_ + (_%key125669%_ _%e125642125666%_) + (_%e125643125671%_ (##unchecked-structure-ref - _%out125363125373%_ + _%out125637125647%_ '3 '#f '#f)) - (_%phi125400%_ _%e125369125397%_) - (_%e125370125402%_ + (_%phi125674%_ _%e125643125671%_) + (_%e125644125676%_ (##unchecked-structure-ref - _%out125363125373%_ + _%out125637125647%_ '4 '#f '#f)) - (_%e125371125405%_ + (_%e125645125679%_ (##unchecked-structure-ref - _%out125363125373%_ + _%out125637125647%_ '5 '#f '#f))) - (_%K125366125384%_ - _%phi125400%_ - _%key125395%_ - _%ctx125390%_)) - (_%E125365125377%_)))))) + (_%K125640125658%_ + _%phi125674%_ + _%key125669%_ + _%ctx125664%_)) + (_%E125639125651%_)))))) (define gx#core-module-export->import__% - (lambda (_%out125285%_ _%rename125286%_ _%dphi125287%_) - (let* ((_%out125288125298%_ _%out125285%_) - (_%E125290125302%_ + (lambda (_%out125559%_ _%rename125560%_ _%dphi125561%_) + (let* ((_%out125562125572%_ _%out125559%_) + (_%E125564125576%_ (lambda () (error '"No clause matching" - _%out125288125298%_ + _%out125562125572%_ '((module-export ctx key phi name weak?))) '#!void)) - (_%K125291125314%_ - (lambda (_%weak?125305%_ - _%name125306%_ - _%phi125307%_ - _%key125308%_ - _%ctx125309%_) + (_%K125565125588%_ + (lambda (_%weak?125579%_ + _%name125580%_ + _%phi125581%_ + _%key125582%_ + _%ctx125583%_) (##structure gx#module-import::t - _%out125285%_ - (let ((_%$e125311%_ _%rename125286%_)) - (if _%$e125311%_ _%$e125311%_ _%name125306%_)) - (fx+ _%phi125307%_ _%dphi125287%_) - _%weak?125305%_)))) + _%out125559%_ + (let ((_%$e125585%_ _%rename125560%_)) + (if _%$e125585%_ _%$e125585%_ _%name125580%_)) + (fx+ _%phi125581%_ _%dphi125561%_) + _%weak?125579%_)))) (if (##structure-direct-instance-of? - _%out125288125298%_ + _%out125562125572%_ 'gx#module-export::t) - (let* ((_%e125292125317%_ + (let* ((_%e125566125591%_ (##unchecked-structure-ref - _%out125288125298%_ + _%out125562125572%_ '1 '#f '#f)) - (_%ctx125320%_ _%e125292125317%_) - (_%e125293125322%_ + (_%ctx125594%_ _%e125566125591%_) + (_%e125567125596%_ (##unchecked-structure-ref - _%out125288125298%_ + _%out125562125572%_ '2 '#f '#f)) - (_%key125325%_ _%e125293125322%_) - (_%e125294125327%_ + (_%key125599%_ _%e125567125596%_) + (_%e125568125601%_ (##unchecked-structure-ref - _%out125288125298%_ + _%out125562125572%_ '3 '#f '#f)) - (_%phi125330%_ _%e125294125327%_) - (_%e125295125332%_ + (_%phi125604%_ _%e125568125601%_) + (_%e125569125606%_ (##unchecked-structure-ref - _%out125288125298%_ + _%out125562125572%_ '4 '#f '#f)) - (_%name125335%_ _%e125295125332%_) - (_%e125296125337%_ + (_%name125609%_ _%e125569125606%_) + (_%e125570125611%_ (##unchecked-structure-ref - _%out125288125298%_ + _%out125562125572%_ '5 '#f '#f)) - (_%weak?125340%_ _%e125296125337%_)) - (_%K125291125314%_ - _%weak?125340%_ - _%name125335%_ - _%phi125330%_ - _%key125325%_ - _%ctx125320%_)) - (_%E125290125302%_))))) + (_%weak?125614%_ _%e125570125611%_)) + (_%K125565125588%_ + _%weak?125614%_ + _%name125609%_ + _%phi125604%_ + _%key125599%_ + _%ctx125594%_)) + (_%E125564125576%_))))) (define gx#core-module-export->import__0 - (lambda (_%out125345%_) - (let* ((_%rename125347%_ '#f) (_%dphi125349%_ '0)) + (lambda (_%out125619%_) + (let* ((_%rename125621%_ '#f) (_%dphi125623%_ '0)) (gx#core-module-export->import__% - _%out125345%_ - _%rename125347%_ - _%dphi125349%_)))) + _%out125619%_ + _%rename125621%_ + _%dphi125623%_)))) (define gx#core-module-export->import__1 - (lambda (_%out125351%_ _%rename125352%_) - (let ((_%dphi125354%_ '0)) + (lambda (_%out125625%_ _%rename125626%_) + (let ((_%dphi125628%_ '0)) (gx#core-module-export->import__% - _%out125351%_ - _%rename125352%_ - _%dphi125354%_)))) + _%out125625%_ + _%rename125626%_ + _%dphi125628%_)))) (define gx#core-module-export->import - (lambda _g127431_ - (let ((_g127430_ (##length _g127431_))) - (cond ((##fx= _g127430_ 1) - (apply gx#core-module-export->import__0 _g127431_)) - ((##fx= _g127430_ 2) - (apply gx#core-module-export->import__1 _g127431_)) - ((##fx= _g127430_ 3) - (apply gx#core-module-export->import__% _g127431_)) + (lambda _g127705_ + (let ((_g127704_ (##length _g127705_))) + (cond ((##fx= _g127704_ 1) + (apply gx#core-module-export->import__0 _g127705_)) + ((##fx= _g127704_ 2) + (apply gx#core-module-export->import__1 _g127705_)) + ((##fx= _g127704_ 3) + (apply gx#core-module-export->import__% _g127705_)) (else (##raise-wrong-number-of-arguments-exception gx#core-module-export->import - _g127431_)))))) + _g127705_)))))) (define gx#core-expand-module% - (lambda (_%stx125184%_) - (letrec ((_%make-context125186%_ - (lambda (_%id125263%_) - (let* ((_%super125265%_ (gx#current-expander-context)) - (_%bind-id125267%_ (gx#stx-e _%id125263%_)) - (_%mod-id125269%_ + (lambda (_%stx125458%_) + (letrec ((_%make-context125460%_ + (lambda (_%id125537%_) + (let* ((_%super125539%_ (gx#current-expander-context)) + (_%bind-id125541%_ (gx#stx-e _%id125537%_)) + (_%mod-id125543%_ (if (##structure-instance-of? - _%super125265%_ + _%super125539%_ 'gx#module-context::t) (make-symbol__1 (##unchecked-structure-ref - _%super125265%_ + _%super125539%_ '1 '#f '#f) '"~" - _%bind-id125267%_) - _%bind-id125267%_)) - (_%ns125271%_ (symbol->string _%mod-id125269%_)) - (_%path125281%_ + _%bind-id125541%_) + _%bind-id125541%_)) + (_%ns125545%_ (symbol->string _%mod-id125543%_)) + (_%path125555%_ (if (##structure-instance-of? - _%super125265%_ + _%super125539%_ 'gx#module-context::t) - (let ((_%path125273%_ + (let ((_%path125547%_ (##unchecked-structure-ref - _%super125265%_ + _%super125539%_ '7 '#f '#f))) - (if (or (pair? _%path125273%_) - (null? _%path125273%_)) - (cons _%bind-id125267%_ _%path125273%_) - (if (not _%path125273%_) - _%bind-id125267%_ - (cons _%bind-id125267%_ - (cons _%path125273%_ '()))))) - _%bind-id125267%_)) - (__obj127407 + (if (or (pair? _%path125547%_) + (null? _%path125547%_)) + (cons _%bind-id125541%_ _%path125547%_) + (if (not _%path125547%_) + _%bind-id125541%_ + (cons _%bind-id125541%_ + (cons _%path125547%_ '()))))) + _%bind-id125541%_)) + (__obj127681 (##structure gx#module-context::t '#f @@ -2179,702 +2179,702 @@ '#f '#f))) (gx#module-context:::init! - __obj127407 - _%mod-id125269%_ - _%super125265%_ - _%ns125271%_ - _%path125281%_) - __obj127407))) - (_%valid-module-id?125187%_ - (lambda (_%id125238%_) - (let* ((_%str125240%_ (symbol->string _%id125238%_)) - (_%len125242%_ (##string-length _%str125240%_))) - (if (##fx>= _%len125242%_ '1) - (let _%loop125245%_ ((_%index125247%_ + __obj127681 + _%mod-id125543%_ + _%super125539%_ + _%ns125545%_ + _%path125555%_) + __obj127681))) + (_%valid-module-id?125461%_ + (lambda (_%id125512%_) + (let* ((_%str125514%_ (symbol->string _%id125512%_)) + (_%len125516%_ (##string-length _%str125514%_))) + (if (##fx>= _%len125516%_ '1) + (let _%loop125519%_ ((_%index125521%_ (##fx- (##string-length - _%str125240%_) + _%str125514%_) '1))) - (if (##fx>= _%index125247%_ '0) - (let ((_%c125249%_ + (if (##fx>= _%index125521%_ '0) + (let ((_%c125523%_ (string-ref - _%str125240%_ - _%index125247%_))) - (if (or (and (##char>=? _%c125249%_ '#\a) - (##char<=? _%c125249%_ '#\z)) - (and (##char>=? _%c125249%_ '#\A) - (##char<=? _%c125249%_ '#\Z)) - (and (##char>=? _%c125249%_ '#\0) - (##char<=? _%c125249%_ '#\9)) - (##char=? _%c125249%_ '#\_) - (##char=? _%c125249%_ '#\-)) - (_%loop125245%_ - (##fx- _%index125247%_ '1)) + _%str125514%_ + _%index125521%_))) + (if (or (and (##char>=? _%c125523%_ '#\a) + (##char<=? _%c125523%_ '#\z)) + (and (##char>=? _%c125523%_ '#\A) + (##char<=? _%c125523%_ '#\Z)) + (and (##char>=? _%c125523%_ '#\0) + (##char<=? _%c125523%_ '#\9)) + (##char=? _%c125523%_ '#\_) + (##char=? _%c125523%_ '#\-)) + (_%loop125519%_ + (##fx- _%index125521%_ '1)) '#f)) '#t)) '#f))))) - (let* ((_%e125188125198%_ _%stx125184%_) - (_%E125190125202%_ + (let* ((_%e125462125472%_ _%stx125458%_) + (_%E125464125476%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e125188125198%_))) - (_%E125189125234%_ + _%e125462125472%_))) + (_%E125463125508%_ (lambda () - (if (gx#stx-pair? _%e125188125198%_) - (let ((_%e125191125206%_ - (gx#syntax-e _%e125188125198%_))) - (let ((_%hd125192125209%_ (##car _%e125191125206%_)) - (_%tl125193125211%_ (##cdr _%e125191125206%_))) - (if (gx#stx-pair? _%tl125193125211%_) - (let ((_%e125194125214%_ - (gx#syntax-e _%tl125193125211%_))) - (let ((_%hd125195125217%_ - (##car _%e125194125214%_)) - (_%tl125196125219%_ - (##cdr _%e125194125214%_))) - (let* ((_%id125222%_ _%hd125195125217%_) - (_%body125224%_ _%tl125196125219%_)) - (if (and (gx#identifier? _%id125222%_) - (gx#stx-list? _%body125224%_)) - (if (_%valid-module-id?125187%_ + (if (gx#stx-pair? _%e125462125472%_) + (let ((_%e125465125480%_ + (gx#syntax-e _%e125462125472%_))) + (let ((_%hd125466125483%_ (##car _%e125465125480%_)) + (_%tl125467125485%_ (##cdr _%e125465125480%_))) + (if (gx#stx-pair? _%tl125467125485%_) + (let ((_%e125468125488%_ + (gx#syntax-e _%tl125467125485%_))) + (let ((_%hd125469125491%_ + (##car _%e125468125488%_)) + (_%tl125470125493%_ + (##cdr _%e125468125488%_))) + (let* ((_%id125496%_ _%hd125469125491%_) + (_%body125498%_ _%tl125470125493%_)) + (if (and (gx#identifier? _%id125496%_) + (gx#stx-list? _%body125498%_)) + (if (_%valid-module-id?125461%_ (gx#stx-e (gx#datum->syntax__0 '#f 'id))) - (let* ((_%ctx125226%_ - (_%make-context125186%_ - _%id125222%_)) - (_%body125228%_ + (let* ((_%ctx125500%_ + (_%make-context125460%_ + _%id125496%_)) + (_%body125502%_ (gx#core-expand-module-begin - _%body125224%_ - _%ctx125226%_)) - (_%body125230%_ + _%body125498%_ + _%ctx125500%_)) + (_%body125504%_ (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _%body125228%_) + _%body125502%_) (gx#stx-source - _%stx125184%_)))) + _%stx125458%_)))) (##unchecked-structure-set! - _%ctx125226%_ + _%ctx125500%_ (__make-promise (lambda () (gx#eval-syntax* - _%body125230%_))) + _%body125504%_))) '10 '#f '#f) (##unchecked-structure-set! - _%ctx125226%_ - _%body125230%_ + _%ctx125500%_ + _%body125504%_ '11 '#f '#f) (gx#core-bind-syntax!__0 - _%id125222%_ - _%ctx125226%_) + _%id125496%_ + _%ctx125500%_) (gx#core-quote-syntax__1 (gx#core-list '%#module (gx#core-quote-syntax__0 - _%id125222%_) - _%body125230%_) + _%id125496%_) + _%body125504%_) (gx#stx-source - _%stx125184%_))) + _%stx125458%_))) (gx#raise-syntax-error '#f '"invalid module id; allowed characters are A-Z,a-z,0-9,_,-" - _%stx125184%_ + _%stx125458%_ (gx#datum->syntax__0 '#f 'id))) - (_%E125190125202%_))))) - (_%E125190125202%_)))) - (_%E125190125202%_))))) - (_%E125189125234%_))))) + (_%E125464125476%_))))) + (_%E125464125476%_)))) + (_%E125464125476%_))))) + (_%E125463125508%_))))) (define gx#core-expand-module-begin - (lambda (_%body125150%_ _%ctx125151%_) + (lambda (_%body125424%_ _%ctx125425%_) (__call-with-parameters (lambda () (gx#core-bind-feature!__1 'gerbil-module '#t) - (let* ((_%stx125154%_ - (gx#core-expand-head (cons '%%begin-module _%body125150%_))) - (_%e125155125162%_ _%stx125154%_) - (_%E125157125166%_ + (let* ((_%stx125428%_ + (gx#core-expand-head (cons '%%begin-module _%body125424%_))) + (_%e125429125436%_ _%stx125428%_) + (_%E125431125440%_ (lambda () (gx#raise-syntax-error '#f '"Illegal module body expansion" - _%stx125154%_))) - (_%E125156125180%_ + _%stx125428%_))) + (_%E125430125454%_ (lambda () - (if (gx#stx-pair? _%e125155125162%_) - (let ((_%e125158125170%_ - (gx#syntax-e _%e125155125162%_))) - (let ((_%hd125159125173%_ (##car _%e125158125170%_)) - (_%tl125160125175%_ - (##cdr _%e125158125170%_))) - (if (and (gx#identifier? _%hd125159125173%_) + (if (gx#stx-pair? _%e125429125436%_) + (let ((_%e125432125444%_ + (gx#syntax-e _%e125429125436%_))) + (let ((_%hd125433125447%_ (##car _%e125432125444%_)) + (_%tl125434125449%_ + (##cdr _%e125432125444%_))) + (if (and (gx#identifier? _%hd125433125447%_) (gx#core-identifier=? - _%hd125159125173%_ + _%hd125433125447%_ '%#begin-module)) - (let ((_%body125178%_ _%tl125160125175%_)) - (if (gx#sealed-syntax? _%stx125154%_) - _%body125178%_ + (let ((_%body125452%_ _%tl125434125449%_)) + (if (gx#sealed-syntax? _%stx125428%_) + _%body125452%_ (gx#core-expand-module-body - _%body125178%_))) - (_%E125157125166%_)))) - (_%E125157125166%_))))) - (_%E125156125180%_))) + _%body125452%_))) + (_%E125431125440%_)))) + (_%E125431125440%_))))) + (_%E125430125454%_))) gx#current-expander-context - _%ctx125151%_ + _%ctx125425%_ gx#current-expander-phi '0))) (define gx#core-expand-module-body - (lambda (_%body124946%_) - (letrec ((_%expand-special124948%_ - (lambda (_%hd125077%_ _%K125078%_ _%rest125079%_ _%r125080%_) - (let* ((_%e125081125098%_ _%hd125077%_) - (_%E125093125102%_ + (lambda (_%body125220%_) + (letrec ((_%expand-special125222%_ + (lambda (_%hd125351%_ _%K125352%_ _%rest125353%_ _%r125354%_) + (let* ((_%e125355125372%_ _%hd125351%_) + (_%E125367125376%_ (lambda () - (_%K125078%_ - _%rest125079%_ - (cons (gx#core-expand-top _%hd125077%_) - _%r125080%_)))) - (_%E125083125114%_ + (_%K125352%_ + _%rest125353%_ + (cons (gx#core-expand-top _%hd125351%_) + _%r125354%_)))) + (_%E125357125388%_ (lambda () - (if (gx#stx-pair? _%e125081125098%_) - (let ((_%e125094125106%_ - (gx#syntax-e _%e125081125098%_))) - (let ((_%hd125095125109%_ - (##car _%e125094125106%_)) - (_%tl125096125111%_ - (##cdr _%e125094125106%_))) + (if (gx#stx-pair? _%e125355125372%_) + (let ((_%e125368125380%_ + (gx#syntax-e _%e125355125372%_))) + (let ((_%hd125369125383%_ + (##car _%e125368125380%_)) + (_%tl125370125385%_ + (##cdr _%e125368125380%_))) (if (and (gx#identifier? - _%hd125095125109%_) + _%hd125369125383%_) (gx#core-identifier=? - _%hd125095125109%_ + _%hd125369125383%_ '%#export)) - (_%K125078%_ - _%rest125079%_ - (cons _%hd125077%_ _%r125080%_)) - (_%E125093125102%_)))) - (_%E125093125102%_)))) - (_%E125082125146%_ + (_%K125352%_ + _%rest125353%_ + (cons _%hd125351%_ _%r125354%_)) + (_%E125367125376%_)))) + (_%E125367125376%_)))) + (_%E125356125420%_ (lambda () - (if (gx#stx-pair? _%e125081125098%_) - (let ((_%e125084125118%_ - (gx#syntax-e _%e125081125098%_))) - (let ((_%hd125085125121%_ - (##car _%e125084125118%_)) - (_%tl125086125123%_ - (##cdr _%e125084125118%_))) + (if (gx#stx-pair? _%e125355125372%_) + (let ((_%e125358125392%_ + (gx#syntax-e _%e125355125372%_))) + (let ((_%hd125359125395%_ + (##car _%e125358125392%_)) + (_%tl125360125397%_ + (##cdr _%e125358125392%_))) (if (and (gx#identifier? - _%hd125085125121%_) + _%hd125359125395%_) (gx#core-identifier=? - _%hd125085125121%_ + _%hd125359125395%_ '%#define-values)) - (if (gx#stx-pair? _%tl125086125123%_) - (let ((_%e125087125126%_ + (if (gx#stx-pair? _%tl125360125397%_) + (let ((_%e125361125400%_ (gx#syntax-e - _%tl125086125123%_))) - (let ((_%hd125088125129%_ - (##car _%e125087125126%_)) - (_%tl125089125131%_ - (##cdr _%e125087125126%_))) - (let ((_%hd-bind125134%_ - _%hd125088125129%_)) + _%tl125360125397%_))) + (let ((_%hd125362125403%_ + (##car _%e125361125400%_)) + (_%tl125363125405%_ + (##cdr _%e125361125400%_))) + (let ((_%hd-bind125408%_ + _%hd125362125403%_)) (if (gx#stx-pair? - _%tl125089125131%_) - (let ((_%e125090125136%_ + _%tl125363125405%_) + (let ((_%e125364125410%_ (gx#syntax-e - _%tl125089125131%_))) - (let ((_%hd125091125139%_ + _%tl125363125405%_))) + (let ((_%hd125365125413%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e125090125136%_)) - (_%tl125092125141%_ (##cdr _%e125090125136%_))) - (let ((_%expr125144%_ _%hd125091125139%_)) - (if (gx#stx-null? _%tl125092125141%_) - (if (gx#core-bind-values? _%hd-bind125134%_) + (##car _%e125364125410%_)) + (_%tl125366125415%_ (##cdr _%e125364125410%_))) + (let ((_%expr125418%_ _%hd125365125413%_)) + (if (gx#stx-null? _%tl125366125415%_) + (if (gx#core-bind-values? _%hd-bind125408%_) (begin - (gx#core-bind-values!__0 _%hd-bind125134%_) - (_%K125078%_ - _%rest125079%_ - (cons _%hd125077%_ _%r125080%_))) - (_%E125083125114%_)) - (_%E125083125114%_))))) - (_%E125083125114%_))))) + (gx#core-bind-values!__0 _%hd-bind125408%_) + (_%K125352%_ + _%rest125353%_ + (cons _%hd125351%_ _%r125354%_))) + (_%E125357125388%_)) + (_%E125357125388%_))))) + (_%E125357125388%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125083125114%_)) - (_%E125083125114%_)))) - (_%E125083125114%_))))) - (_%E125082125146%_)))) - (_%expand-body124949%_ - (lambda (_%rbody124951%_) - (let _%lp124953%_ ((_%rest124955%_ _%rbody124951%_) - (_%body124956%_ '())) - (let* ((_%rest124957124965%_ _%rest124955%_) - (_%else124959124973%_ (lambda () _%body124956%_)) - (_%K124961125065%_ - (lambda (_%rest124976%_ _%hd124977%_) - (let* ((_%e124978124999%_ _%hd124977%_) - (_%E124994125003%_ + (_%E125357125388%_)) + (_%E125357125388%_)))) + (_%E125357125388%_))))) + (_%E125356125420%_)))) + (_%expand-body125223%_ + (lambda (_%rbody125225%_) + (let _%lp125227%_ ((_%rest125229%_ _%rbody125225%_) + (_%body125230%_ '())) + (let* ((_%rest125231125239%_ _%rest125229%_) + (_%else125233125247%_ (lambda () _%body125230%_)) + (_%K125235125339%_ + (lambda (_%rest125250%_ _%hd125251%_) + (let* ((_%e125252125273%_ _%hd125251%_) + (_%E125268125277%_ (lambda () - (_%lp124953%_ - _%rest124976%_ + (_%lp125227%_ + _%rest125250%_ (cons (gx#core-expand-expression - _%hd124977%_) - _%body124956%_)))) - (_%E124990125017%_ + _%hd125251%_) + _%body125230%_)))) + (_%E125264125291%_ (lambda () - (if (gx#stx-pair? _%e124978124999%_) - (let ((_%e124995125007%_ + (if (gx#stx-pair? _%e125252125273%_) + (let ((_%e125269125281%_ (gx#syntax-e - _%e124978124999%_))) - (let ((_%hd124996125010%_ - (##car _%e124995125007%_)) - (_%tl124997125012%_ - (##cdr _%e124995125007%_))) - (let ((_%form125015%_ - _%hd124996125010%_)) + _%e125252125273%_))) + (let ((_%hd125270125284%_ + (##car _%e125269125281%_)) + (_%tl125271125286%_ + (##cdr _%e125269125281%_))) + (let ((_%form125289%_ + _%hd125270125284%_)) (if (gx#core-bound-identifier?__% - _%form125015%_ + _%form125289%_ gx#special-form-binding?) - (_%lp124953%_ - _%rest124976%_ - (cons _%hd124977%_ - _%body124956%_)) - (_%E124994125003%_))))) - (_%E124994125003%_)))) - (_%E124980125029%_ + (_%lp125227%_ + _%rest125250%_ + (cons _%hd125251%_ + _%body125230%_)) + (_%E125268125277%_))))) + (_%E125268125277%_)))) + (_%E125254125303%_ (lambda () - (if (gx#stx-pair? _%e124978124999%_) - (let ((_%e124991125021%_ + (if (gx#stx-pair? _%e125252125273%_) + (let ((_%e125265125295%_ (gx#syntax-e - _%e124978124999%_))) - (let ((_%hd124992125024%_ - (##car _%e124991125021%_)) - (_%tl124993125026%_ - (##cdr _%e124991125021%_))) + _%e125252125273%_))) + (let ((_%hd125266125298%_ + (##car _%e125265125295%_)) + (_%tl125267125300%_ + (##cdr _%e125265125295%_))) (if (and (gx#identifier? - _%hd124992125024%_) + _%hd125266125298%_) (gx#core-identifier=? - _%hd124992125024%_ + _%hd125266125298%_ '%#export)) - (_%lp124953%_ - _%rest124976%_ + (_%lp125227%_ + _%rest125250%_ (cons (gx#core-expand-export%__0 - _%hd124977%_) - _%body124956%_)) - (_%E124990125017%_)))) - (_%E124990125017%_)))) - (_%E124979125061%_ + _%hd125251%_) + _%body125230%_)) + (_%E125264125291%_)))) + (_%E125264125291%_)))) + (_%E125253125335%_ (lambda () - (if (gx#stx-pair? _%e124978124999%_) - (let ((_%e124981125033%_ + (if (gx#stx-pair? _%e125252125273%_) + (let ((_%e125255125307%_ (gx#syntax-e - _%e124978124999%_))) - (let ((_%hd124982125036%_ - (##car _%e124981125033%_)) - (_%tl124983125038%_ - (##cdr _%e124981125033%_))) + _%e125252125273%_))) + (let ((_%hd125256125310%_ + (##car _%e125255125307%_)) + (_%tl125257125312%_ + (##cdr _%e125255125307%_))) (if (and (gx#identifier? - _%hd124982125036%_) + _%hd125256125310%_) (gx#core-identifier=? - _%hd124982125036%_ + _%hd125256125310%_ '%#define-values)) (if (gx#stx-pair? - _%tl124983125038%_) - (let ((_%e124984125041%_ + _%tl125257125312%_) + (let ((_%e125258125315%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl124983125038%_))) - (let ((_%hd124985125044%_ (##car _%e124984125041%_)) - (_%tl124986125046%_ (##cdr _%e124984125041%_))) - (let ((_%hd-bind125049%_ _%hd124985125044%_)) - (if (gx#stx-pair? _%tl124986125046%_) - (let ((_%e124987125051%_ - (gx#syntax-e _%tl124986125046%_))) - (let ((_%hd124988125054%_ - (##car _%e124987125051%_)) - (_%tl124989125056%_ - (##cdr _%e124987125051%_))) - (let ((_%expr125059%_ _%hd124988125054%_)) - (if (gx#stx-null? _%tl124989125056%_) - (_%lp124953%_ - _%rest124976%_ + (gx#syntax-e _%tl125257125312%_))) + (let ((_%hd125259125318%_ (##car _%e125258125315%_)) + (_%tl125260125320%_ (##cdr _%e125258125315%_))) + (let ((_%hd-bind125323%_ _%hd125259125318%_)) + (if (gx#stx-pair? _%tl125260125320%_) + (let ((_%e125261125325%_ + (gx#syntax-e _%tl125260125320%_))) + (let ((_%hd125262125328%_ + (##car _%e125261125325%_)) + (_%tl125263125330%_ + (##cdr _%e125261125325%_))) + (let ((_%expr125333%_ _%hd125262125328%_)) + (if (gx#stx-null? _%tl125263125330%_) + (_%lp125227%_ + _%rest125250%_ (cons (gx#core-quote-syntax__1 (gx#core-list '%#define-values (gx#core-quote-bind-values - _%hd-bind125049%_) + _%hd-bind125323%_) (gx#core-expand-expression - _%expr125059%_)) - (gx#stx-source _%hd124977%_)) - _%body124956%_)) - (_%E124980125029%_))))) - (_%E124980125029%_))))) - (_%E124980125029%_)) - (_%E124980125029%_)))) + _%expr125333%_)) + (gx#stx-source _%hd125251%_)) + _%body125230%_)) + (_%E125254125303%_))))) + (_%E125254125303%_))))) + (_%E125254125303%_)) + (_%E125254125303%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124980125029%_))))) - (_%E124979125061%_))))) - (if (##pair? _%rest124957124965%_) - (let ((_%hd124962125068%_ - (##car _%rest124957124965%_)) - (_%tl124963125070%_ - (##cdr _%rest124957124965%_))) - (let* ((_%hd125073%_ _%hd124962125068%_) - (_%rest125075%_ _%tl124963125070%_)) - (_%K124961125065%_ - _%rest125075%_ - _%hd125073%_))) - (_%else124959124973%_))))))) - (_%expand-body124949%_ + (_%E125254125303%_))))) + (_%E125253125335%_))))) + (if (##pair? _%rest125231125239%_) + (let ((_%hd125236125342%_ + (##car _%rest125231125239%_)) + (_%tl125237125344%_ + (##cdr _%rest125231125239%_))) + (let* ((_%hd125347%_ _%hd125236125342%_) + (_%rest125349%_ _%tl125237125344%_)) + (_%K125235125339%_ + _%rest125349%_ + _%hd125347%_))) + (_%else125233125247%_))))))) + (_%expand-body125223%_ (gx#core-expand-block__% - (cons '%#begin-module _%body124946%_) - _%expand-special124948%_ + (cons '%#begin-module _%body125220%_) + _%expand-special125222%_ '#f values))))) (define gx#core-expand-import/export - (lambda (_%stx124787%_ - _%expanded?124788%_ - _%method124789%_ - _%current-phi124790%_ - _%expand1124791%_) - (letrec ((_%K124793%_ - (lambda (_%rest124913%_ _%r124914%_) - (let* ((_%e124915124922%_ _%rest124913%_) - (_%E124917124926%_ (lambda () _%r124914%_)) - (_%E124916124942%_ + (lambda (_%stx125061%_ + _%expanded?125062%_ + _%method125063%_ + _%current-phi125064%_ + _%expand1125065%_) + (letrec ((_%K125067%_ + (lambda (_%rest125187%_ _%r125188%_) + (let* ((_%e125189125196%_ _%rest125187%_) + (_%E125191125200%_ (lambda () _%r125188%_)) + (_%E125190125216%_ (lambda () - (if (gx#stx-pair? _%e124915124922%_) - (let ((_%e124918124930%_ - (gx#syntax-e _%e124915124922%_))) - (let ((_%hd124919124933%_ - (##car _%e124918124930%_)) - (_%tl124920124935%_ - (##cdr _%e124918124930%_))) - (let* ((_%hd124938%_ _%hd124919124933%_) - (_%rest124940%_ - _%tl124920124935%_)) - (_%step124794%_ - _%hd124938%_ - _%rest124940%_ - _%r124914%_)))) - (_%E124917124926%_))))) - (_%E124916124942%_)))) - (_%step124794%_ - (lambda (_%hd124827%_ _%rest124828%_ _%r124829%_) - (let* ((_%e124830124848%_ _%hd124827%_) - (_%E124843124852%_ + (if (gx#stx-pair? _%e125189125196%_) + (let ((_%e125192125204%_ + (gx#syntax-e _%e125189125196%_))) + (let ((_%hd125193125207%_ + (##car _%e125192125204%_)) + (_%tl125194125209%_ + (##cdr _%e125192125204%_))) + (let* ((_%hd125212%_ _%hd125193125207%_) + (_%rest125214%_ + _%tl125194125209%_)) + (_%step125068%_ + _%hd125212%_ + _%rest125214%_ + _%r125188%_)))) + (_%E125191125200%_))))) + (_%E125190125216%_)))) + (_%step125068%_ + (lambda (_%hd125101%_ _%rest125102%_ _%r125103%_) + (let* ((_%e125104125122%_ _%hd125101%_) + (_%E125117125126%_ (lambda () - (if (_%expanded?124788%_ (gx#stx-e _%hd124827%_)) - (_%K124793%_ - _%rest124828%_ - (cons (gx#stx-e _%hd124827%_) _%r124829%_)) - (_%expand1124791%_ - _%hd124827%_ - _%K124793%_ - _%rest124828%_ - _%r124829%_)))) - (_%E124839124868%_ + (if (_%expanded?125062%_ (gx#stx-e _%hd125101%_)) + (_%K125067%_ + _%rest125102%_ + (cons (gx#stx-e _%hd125101%_) _%r125103%_)) + (_%expand1125065%_ + _%hd125101%_ + _%K125067%_ + _%rest125102%_ + _%r125103%_)))) + (_%E125113125142%_ (lambda () - (if (gx#stx-pair? _%e124830124848%_) - (let ((_%e124844124856%_ - (gx#syntax-e _%e124830124848%_))) - (let ((_%hd124845124859%_ - (##car _%e124844124856%_)) - (_%tl124846124861%_ - (##cdr _%e124844124856%_))) - (let* ((_%macro124864%_ - _%hd124845124859%_) - (_%body124866%_ - _%tl124846124861%_)) + (if (gx#stx-pair? _%e125104125122%_) + (let ((_%e125118125130%_ + (gx#syntax-e _%e125104125122%_))) + (let ((_%hd125119125133%_ + (##car _%e125118125130%_)) + (_%tl125120125135%_ + (##cdr _%e125118125130%_))) + (let* ((_%macro125138%_ + _%hd125119125133%_) + (_%body125140%_ + _%tl125120125135%_)) (if (gx#core-bound-identifier?__% - _%macro124864%_ + _%macro125138%_ gx#syntax-binding?) - (_%K124793%_ + (_%K125067%_ (cons (gx#core-apply-expander__% (gx#syntax-local-e__0 - _%macro124864%_) - _%hd124827%_ - _%method124789%_) - _%rest124828%_) - _%r124829%_) - (_%E124843124852%_))))) - (_%E124843124852%_)))) - (_%E124832124882%_ + _%macro125138%_) + _%hd125101%_ + _%method125063%_) + _%rest125102%_) + _%r125103%_) + (_%E125117125126%_))))) + (_%E125117125126%_)))) + (_%E125106125156%_ (lambda () - (if (gx#stx-pair? _%e124830124848%_) - (let ((_%e124840124872%_ - (gx#syntax-e _%e124830124848%_))) - (let ((_%hd124841124875%_ - (##car _%e124840124872%_)) - (_%tl124842124877%_ - (##cdr _%e124840124872%_))) - (if (eq? (gx#stx-e _%hd124841124875%_) + (if (gx#stx-pair? _%e125104125122%_) + (let ((_%e125114125146%_ + (gx#syntax-e _%e125104125122%_))) + (let ((_%hd125115125149%_ + (##car _%e125114125146%_)) + (_%tl125116125151%_ + (##cdr _%e125114125146%_))) + (if (eq? (gx#stx-e _%hd125115125149%_) 'begin:) - (let ((_%body124880%_ - _%tl124842124877%_)) - (_%K124793%_ + (let ((_%body125154%_ + _%tl125116125151%_)) + (_%K125067%_ (gx#stx-foldr cons - _%rest124828%_ - _%body124880%_) - _%r124829%_)) - (_%E124839124868%_)))) - (_%E124839124868%_)))) - (_%E124831124909%_ + _%rest125102%_ + _%body125154%_) + _%r125103%_)) + (_%E125113125142%_)))) + (_%E125113125142%_)))) + (_%E125105125183%_ (lambda () - (if (gx#stx-pair? _%e124830124848%_) - (let ((_%e124833124886%_ - (gx#syntax-e _%e124830124848%_))) - (let ((_%hd124834124889%_ - (##car _%e124833124886%_)) - (_%tl124835124891%_ - (##cdr _%e124833124886%_))) - (if (eq? (gx#stx-e _%hd124834124889%_) + (if (gx#stx-pair? _%e125104125122%_) + (let ((_%e125107125160%_ + (gx#syntax-e _%e125104125122%_))) + (let ((_%hd125108125163%_ + (##car _%e125107125160%_)) + (_%tl125109125165%_ + (##cdr _%e125107125160%_))) + (if (eq? (gx#stx-e _%hd125108125163%_) 'phi:) - (if (gx#stx-pair? _%tl124835124891%_) - (let ((_%e124836124894%_ + (if (gx#stx-pair? _%tl125109125165%_) + (let ((_%e125110125168%_ (gx#syntax-e - _%tl124835124891%_))) - (let ((_%hd124837124897%_ - (##car _%e124836124894%_)) - (_%tl124838124899%_ - (##cdr _%e124836124894%_))) - (let* ((_%dphi124902%_ - _%hd124837124897%_) - (_%body124904%_ - _%tl124838124899%_)) + _%tl125109125165%_))) + (let ((_%hd125111125171%_ + (##car _%e125110125168%_)) + (_%tl125112125173%_ + (##cdr _%e125110125168%_))) + (let* ((_%dphi125176%_ + _%hd125111125171%_) + (_%body125178%_ + _%tl125112125173%_)) (if (gx#stx-fixnum? - _%dphi124902%_) - (let ((_%rbody124907%_ + _%dphi125176%_) + (let ((_%rbody125181%_ (__call-with-parameters (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_%K124793%_ _%body124904%_ '())) - _%current-phi124790%_ - (fx+ (gx#stx-e _%dphi124902%_) - (_%current-phi124790%_))))) - (_%K124793%_ - _%rest124828%_ - (__foldr1 cons _%r124829%_ _%rbody124907%_))) - (_%E124832124882%_))))) + (_%K125067%_ _%body125178%_ '())) + _%current-phi125064%_ + (fx+ (gx#stx-e _%dphi125176%_) + (_%current-phi125064%_))))) + (_%K125067%_ + _%rest125102%_ + (__foldr1 cons _%r125103%_ _%rbody125181%_))) + (_%E125106125156%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124832124882%_)) - (_%E124832124882%_)))) - (_%E124832124882%_))))) - (_%E124831124909%_))))) - (let* ((_%e124795124802%_ _%stx124787%_) - (_%E124797124806%_ + (_%E125106125156%_)) + (_%E125106125156%_)))) + (_%E125106125156%_))))) + (_%E125105125183%_))))) + (let* ((_%e125069125076%_ _%stx125061%_) + (_%E125071125080%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124795124802%_))) - (_%E124796124823%_ + _%e125069125076%_))) + (_%E125070125097%_ (lambda () - (if (gx#stx-pair? _%e124795124802%_) - (let ((_%e124798124810%_ - (gx#syntax-e _%e124795124802%_))) - (let ((_%hd124799124813%_ (##car _%e124798124810%_)) - (_%tl124800124815%_ (##cdr _%e124798124810%_))) - (let ((_%body124818%_ _%tl124800124815%_)) - (if (_%current-phi124790%_) - (_%K124793%_ _%body124818%_ '()) + (if (gx#stx-pair? _%e125069125076%_) + (let ((_%e125072125084%_ + (gx#syntax-e _%e125069125076%_))) + (let ((_%hd125073125087%_ (##car _%e125072125084%_)) + (_%tl125074125089%_ (##cdr _%e125072125084%_))) + (let ((_%body125092%_ _%tl125074125089%_)) + (if (_%current-phi125064%_) + (_%K125067%_ _%body125092%_ '()) (__call-with-parameters - (lambda () (_%K124793%_ _%body124818%_ '())) - _%current-phi124790%_ + (lambda () (_%K125067%_ _%body125092%_ '())) + _%current-phi125064%_ (gx#current-expander-phi)))))) - (_%E124797124806%_))))) - (_%E124796124823%_))))) + (_%E125071125080%_))))) + (_%E125070125097%_))))) (define gx#core-expand-import%__% - (lambda (_%stx124441%_ _%internal-expand?124442%_) - (letrec ((_%expand1124444%_ - (lambda (_%hd124759%_ _%K124760%_ _%rest124761%_ _%r124762%_) - (if (gx#core-bound-module? _%hd124759%_) - (_%import1124445%_ - (gx#syntax-local-e__0 _%hd124759%_) - _%K124760%_ - _%rest124761%_ - _%r124762%_) - (if (gx#core-library-module-path? _%hd124759%_) - (_%import1124445%_ + (lambda (_%stx124715%_ _%internal-expand?124716%_) + (letrec ((_%expand1124718%_ + (lambda (_%hd125033%_ _%K125034%_ _%rest125035%_ _%r125036%_) + (if (gx#core-bound-module? _%hd125033%_) + (_%import1124719%_ + (gx#syntax-local-e__0 _%hd125033%_) + _%K125034%_ + _%rest125035%_ + _%r125036%_) + (if (gx#core-library-module-path? _%hd125033%_) + (_%import1124719%_ (gx#import-module__0 (gx#core-resolve-library-module-path - _%hd124759%_)) - _%K124760%_ - _%rest124761%_ - _%r124762%_) + _%hd125033%_)) + _%K125034%_ + _%rest125035%_ + _%r125036%_) (if (gx#core-library-relative-module-path? - _%hd124759%_) - (_%import1124445%_ + _%hd125033%_) + (_%import1124719%_ (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _%hd124759%_)) - _%K124760%_ - _%rest124761%_ - _%r124762%_) - (let ((_%e124768%_ (gx#stx-e _%hd124759%_))) - (if (pair? _%e124768%_) - (let ((_%$e124771%_ - (gx#stx-e (##car _%e124768%_)))) - (if (eq? 'spec: _%$e124771%_) - (_%import-spec124448%_ - _%hd124759%_ - _%K124760%_ - _%rest124761%_ - _%r124762%_) - (if (eq? 'in: _%$e124771%_) - (_%import-submodule124446%_ - _%hd124759%_ - _%K124760%_ - _%rest124761%_ - _%r124762%_) + _%hd125033%_)) + _%K125034%_ + _%rest125035%_ + _%r125036%_) + (let ((_%e125042%_ (gx#stx-e _%hd125033%_))) + (if (pair? _%e125042%_) + (let ((_%$e125045%_ + (gx#stx-e (##car _%e125042%_)))) + (if (eq? 'spec: _%$e125045%_) + (_%import-spec124722%_ + _%hd125033%_ + _%K125034%_ + _%rest125035%_ + _%r125036%_) + (if (eq? 'in: _%$e125045%_) + (_%import-submodule124720%_ + _%hd125033%_ + _%K125034%_ + _%rest125035%_ + _%r125036%_) (if (eq? 'runtime: - _%$e124771%_) - (_%import-runtime124447%_ - _%hd124759%_ - _%K124760%_ - _%rest124761%_ - _%r124762%_) + _%$e125045%_) + (_%import-runtime124721%_ + _%hd125033%_ + _%K125034%_ + _%rest125035%_ + _%r125036%_) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _%stx124441%_ - _%hd124759%_))))) - (if (string? _%e124768%_) - (_%import1124445%_ + _%stx124715%_ + _%hd125033%_))))) + (if (string? _%e125042%_) + (_%import1124719%_ (gx#import-module__0 (gx#core-resolve-module-path__% - _%hd124759%_ - (gx#stx-source _%stx124441%_))) - _%K124760%_ - _%rest124761%_ - _%r124762%_) + _%hd125033%_ + (gx#stx-source _%stx124715%_))) + _%K125034%_ + _%rest125035%_ + _%r125036%_) (if (##structure-instance-of? - _%e124768%_ + _%e125042%_ 'gx#module-context::t) - (_%K124760%_ - _%rest124761%_ - (cons _%e124768%_ _%r124762%_)) + (_%K125034%_ + _%rest125035%_ + (cons _%e125042%_ _%r125036%_)) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _%stx124441%_ - _%hd124759%_)))))))))) - (_%import1124445%_ - (lambda (_%ctx124748%_ - _%K124749%_ - _%rest124750%_ - _%r124751%_) - (let ((_%dphi124753%_ + _%stx124715%_ + _%hd125033%_)))))))))) + (_%import1124719%_ + (lambda (_%ctx125022%_ + _%K125023%_ + _%rest125024%_ + _%r125025%_) + (let ((_%dphi125027%_ (fx- (gx#current-import-expander-phi) (gx#current-expander-phi)))) - (_%K124749%_ - _%rest124750%_ + (_%K125023%_ + _%rest125024%_ (cons (##structure gx#import-set::t - _%ctx124748%_ - _%dphi124753%_ - (map (lambda (_%g124754124756%_) + _%ctx125022%_ + _%dphi125027%_ + (map (lambda (_%g125028125030%_) (gx#core-module-export->import__% - _%g124754124756%_ + _%g125028125030%_ '#f - _%dphi124753%_)) + _%dphi125027%_)) (##unchecked-structure-ref - _%ctx124748%_ + _%ctx125022%_ '9 '#f '#f))) - _%r124751%_))))) - (_%import-submodule124446%_ - (lambda (_%hd124715%_ _%K124716%_ _%rest124717%_ _%r124718%_) - (let* ((_%e124719124726%_ _%hd124715%_) - (_%E124721124730%_ + _%r125025%_))))) + (_%import-submodule124720%_ + (lambda (_%hd124989%_ _%K124990%_ _%rest124991%_ _%r124992%_) + (let* ((_%e124993125000%_ _%hd124989%_) + (_%E124995125004%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124719124726%_))) - (_%E124720124744%_ + _%e124993125000%_))) + (_%E124994125018%_ (lambda () - (if (gx#stx-pair? _%e124719124726%_) - (let ((_%e124722124734%_ - (gx#syntax-e _%e124719124726%_))) - (let ((_%hd124723124737%_ - (##car _%e124722124734%_)) - (_%tl124724124739%_ - (##cdr _%e124722124734%_))) - (let ((_%spath124742%_ - _%tl124724124739%_)) - (_%import1124445%_ - (_%import-spec-source124449%_ - _%spath124742%_) - _%K124716%_ - _%rest124717%_ - _%r124718%_)))) - (_%E124721124730%_))))) - (_%E124720124744%_)))) - (_%import-runtime124447%_ - (lambda (_%hd124682%_ _%K124683%_ _%rest124684%_ _%r124685%_) - (let* ((_%e124686124693%_ _%hd124682%_) - (_%E124688124697%_ + (if (gx#stx-pair? _%e124993125000%_) + (let ((_%e124996125008%_ + (gx#syntax-e _%e124993125000%_))) + (let ((_%hd124997125011%_ + (##car _%e124996125008%_)) + (_%tl124998125013%_ + (##cdr _%e124996125008%_))) + (let ((_%spath125016%_ + _%tl124998125013%_)) + (_%import1124719%_ + (_%import-spec-source124723%_ + _%spath125016%_) + _%K124990%_ + _%rest124991%_ + _%r124992%_)))) + (_%E124995125004%_))))) + (_%E124994125018%_)))) + (_%import-runtime124721%_ + (lambda (_%hd124956%_ _%K124957%_ _%rest124958%_ _%r124959%_) + (let* ((_%e124960124967%_ _%hd124956%_) + (_%E124962124971%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124686124693%_))) - (_%E124687124711%_ + _%e124960124967%_))) + (_%E124961124985%_ (lambda () - (if (gx#stx-pair? _%e124686124693%_) - (let ((_%e124689124701%_ - (gx#syntax-e _%e124686124693%_))) - (let ((_%hd124690124704%_ - (##car _%e124689124701%_)) - (_%tl124691124706%_ - (##cdr _%e124689124701%_))) - (let ((_%spath124709%_ - _%tl124691124706%_)) - (_%K124683%_ - _%rest124684%_ - (cons (_%import-spec-source124449%_ - _%spath124709%_) - _%r124685%_))))) - (_%E124688124697%_))))) - (_%E124687124711%_)))) - (_%import-spec124448%_ - (lambda (_%hd124520%_ _%K124521%_ _%rest124522%_ _%r124523%_) - (let* ((_%e124524124541%_ _%hd124520%_) - (_%E124533124545%_ + (if (gx#stx-pair? _%e124960124967%_) + (let ((_%e124963124975%_ + (gx#syntax-e _%e124960124967%_))) + (let ((_%hd124964124978%_ + (##car _%e124963124975%_)) + (_%tl124965124980%_ + (##cdr _%e124963124975%_))) + (let ((_%spath124983%_ + _%tl124965124980%_)) + (_%K124957%_ + _%rest124958%_ + (cons (_%import-spec-source124723%_ + _%spath124983%_) + _%r124959%_))))) + (_%E124962124971%_))))) + (_%E124961124985%_)))) + (_%import-spec124722%_ + (lambda (_%hd124794%_ _%K124795%_ _%rest124796%_ _%r124797%_) + (let* ((_%e124798124815%_ _%hd124794%_) + (_%E124807124819%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124524124541%_))) - (_%E124526124656%_ + _%e124798124815%_))) + (_%E124800124930%_ (lambda () - (if (gx#stx-pair? _%e124524124541%_) - (let ((_%e124534124549%_ - (gx#syntax-e _%e124524124541%_))) - (let ((_%hd124535124552%_ - (##car _%e124534124549%_)) - (_%tl124536124554%_ - (##cdr _%e124534124549%_))) - (if (gx#stx-pair? _%tl124536124554%_) - (let ((_%e124537124557%_ + (if (gx#stx-pair? _%e124798124815%_) + (let ((_%e124808124823%_ + (gx#syntax-e _%e124798124815%_))) + (let ((_%hd124809124826%_ + (##car _%e124808124823%_)) + (_%tl124810124828%_ + (##cdr _%e124808124823%_))) + (if (gx#stx-pair? _%tl124810124828%_) + (let ((_%e124811124831%_ (gx#syntax-e - _%tl124536124554%_))) - (let ((_%hd124538124560%_ - (##car _%e124537124557%_)) - (_%tl124539124562%_ - (##cdr _%e124537124557%_))) - (let* ((_%path124565%_ - _%hd124538124560%_) - (_%specs124567%_ - _%tl124539124562%_)) - (let ((_%src-ctx124569%_ - (_%import-spec-source124449%_ - _%path124565%_)) - (_%exports124570%_ + _%tl124810124828%_))) + (let ((_%hd124812124834%_ + (##car _%e124811124831%_)) + (_%tl124813124836%_ + (##cdr _%e124811124831%_))) + (let* ((_%path124839%_ + _%hd124812124834%_) + (_%specs124841%_ + _%tl124813124836%_)) + (let ((_%src-ctx124843%_ + (_%import-spec-source124723%_ + _%path124839%_)) + (_%exports124844%_ (make-hash-table__% '#f absent-value @@ -2885,215 +2885,215 @@ absent-value absent-value absent-value)) - (_%specs124571%_ + (_%specs124845%_ (gx#syntax->list - _%specs124567%_))) + _%specs124841%_))) (for-each - (lambda (_%out124573%_) + (lambda (_%out124847%_) (__hash-put! - _%exports124570%_ + _%exports124844%_ (cons (##unchecked-structure-ref - _%out124573%_ + _%out124847%_ '3 '#f '#f) (##unchecked-structure-ref - _%out124573%_ + _%out124847%_ '4 '#f '#f)) - _%out124573%_)) + _%out124847%_)) (##unchecked-structure-ref - _%src-ctx124569%_ + _%src-ctx124843%_ '9 '#f '#f)) - (_%K124521%_ - _%rest124522%_ + (_%K124795%_ + _%rest124796%_ (__foldl1 - (lambda (_%spec124575%_ - _%r124576%_) - (let* ((_%e124577124593%_ - _%spec124575%_) - (_%E124579124597%_ + (lambda (_%spec124849%_ + _%r124850%_) + (let* ((_%e124851124867%_ + _%spec124849%_) + (_%E124853124871%_ (lambda () (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid syntax-case clause" - _%e124577124593%_))) - (_%E124578124652%_ + _%e124851124867%_))) + (_%E124852124926%_ (lambda () - (if (gx#stx-pair? _%e124577124593%_) - (let ((_%e124580124601%_ - (gx#syntax-e _%e124577124593%_))) - (let ((_%hd124581124604%_ - (##car _%e124580124601%_)) - (_%tl124582124606%_ - (##cdr _%e124580124601%_))) - (let ((_%phi124609%_ _%hd124581124604%_)) - (if (gx#stx-pair? _%tl124582124606%_) - (let ((_%e124583124611%_ - (gx#syntax-e _%tl124582124606%_))) - (let ((_%hd124584124614%_ - (##car _%e124583124611%_)) - (_%tl124585124616%_ - (##cdr _%e124583124611%_))) - (let ((_%name124619%_ - _%hd124584124614%_)) + (if (gx#stx-pair? _%e124851124867%_) + (let ((_%e124854124875%_ + (gx#syntax-e _%e124851124867%_))) + (let ((_%hd124855124878%_ + (##car _%e124854124875%_)) + (_%tl124856124880%_ + (##cdr _%e124854124875%_))) + (let ((_%phi124883%_ _%hd124855124878%_)) + (if (gx#stx-pair? _%tl124856124880%_) + (let ((_%e124857124885%_ + (gx#syntax-e _%tl124856124880%_))) + (let ((_%hd124858124888%_ + (##car _%e124857124885%_)) + (_%tl124859124890%_ + (##cdr _%e124857124885%_))) + (let ((_%name124893%_ + _%hd124858124888%_)) (if (gx#stx-pair? - _%tl124585124616%_) - (let ((_%e124586124621%_ + _%tl124859124890%_) + (let ((_%e124860124895%_ (gx#syntax-e - _%tl124585124616%_))) - (let ((_%hd124587124624%_ - (##car _%e124586124621%_)) - (_%tl124588124626%_ - (##cdr _%e124586124621%_))) - (let ((_%src-phi124629%_ - _%hd124587124624%_)) + _%tl124859124890%_))) + (let ((_%hd124861124898%_ + (##car _%e124860124895%_)) + (_%tl124862124900%_ + (##cdr _%e124860124895%_))) + (let ((_%src-phi124903%_ + _%hd124861124898%_)) (if (gx#stx-pair? - _%tl124588124626%_) - (let ((_%e124589124631%_ + _%tl124862124900%_) + (let ((_%e124863124905%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl124588124626%_))) - (let ((_%hd124590124634%_ (##car _%e124589124631%_)) - (_%tl124591124636%_ (##cdr _%e124589124631%_))) - (let ((_%src-name124639%_ _%hd124590124634%_)) - (if (gx#stx-null? _%tl124591124636%_) - (if (and (gx#stx-fixnum? _%src-phi124629%_) - (gx#identifier? _%src-name124639%_) - (gx#stx-fixnum? _%phi124609%_) - (gx#identifier? _%name124619%_)) - (let ((_%src-phi124641%_ - (gx#stx-e _%src-phi124629%_)) - (_%src-name124642%_ + (gx#syntax-e _%tl124862124900%_))) + (let ((_%hd124864124908%_ (##car _%e124863124905%_)) + (_%tl124865124910%_ (##cdr _%e124863124905%_))) + (let ((_%src-name124913%_ _%hd124864124908%_)) + (if (gx#stx-null? _%tl124865124910%_) + (if (and (gx#stx-fixnum? _%src-phi124903%_) + (gx#identifier? _%src-name124913%_) + (gx#stx-fixnum? _%phi124883%_) + (gx#identifier? _%name124893%_)) + (let ((_%src-phi124915%_ + (gx#stx-e _%src-phi124903%_)) + (_%src-name124916%_ (gx#core-identifier-key - _%src-name124639%_)) - (_%phi124643%_ (gx#stx-e _%phi124609%_)) - (_%name124644%_ + _%src-name124913%_)) + (_%phi124917%_ (gx#stx-e _%phi124883%_)) + (_%name124918%_ (gx#core-identifier-key - _%name124619%_))) - (let ((_%$e124646%_ + _%name124893%_))) + (let ((_%$e124920%_ (__hash-get - _%exports124570%_ - (cons _%src-phi124641%_ - _%src-name124642%_)))) - (if _%$e124646%_ - ((lambda (_%out124649%_) + _%exports124844%_ + (cons _%src-phi124915%_ + _%src-name124916%_)))) + (if _%$e124920%_ + ((lambda (_%out124923%_) (cons (gx#core-module-export->import__% - _%out124649%_ - _%name124644%_ - (fx- _%phi124643%_ - _%src-phi124641%_)) - _%r124576%_)) - _%$e124646%_) + _%out124923%_ + _%name124918%_ + (fx- _%phi124917%_ + _%src-phi124915%_)) + _%r124850%_)) + _%$e124920%_) (gx#raise-syntax-error '#f '"Bad syntax; no matching export" - _%stx124441%_ - _%hd124520%_)))) - (_%E124579124597%_)) - (_%E124579124597%_))))) - (_%E124579124597%_))))) + _%stx124715%_ + _%hd124794%_)))) + (_%E124853124871%_)) + (_%E124853124871%_))))) + (_%E124853124871%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124579124597%_))))) - (_%E124579124597%_))))) - (_%E124579124597%_))))) - (_%E124578124652%_))) + (_%E124853124871%_))))) + (_%E124853124871%_))))) + (_%E124853124871%_))))) + (_%E124852124926%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r124523%_ - _%specs124571%_)))))) - (_%E124533124545%_)))) - (_%E124533124545%_)))) - (_%E124525124678%_ + _%r124797%_ + _%specs124845%_)))))) + (_%E124807124819%_)))) + (_%E124807124819%_)))) + (_%E124799124952%_ (lambda () - (if (gx#stx-pair? _%e124524124541%_) - (let ((_%e124527124660%_ - (gx#syntax-e _%e124524124541%_))) - (let ((_%hd124528124663%_ - (##car _%e124527124660%_)) - (_%tl124529124665%_ - (##cdr _%e124527124660%_))) - (if (gx#stx-pair? _%tl124529124665%_) - (let ((_%e124530124668%_ + (if (gx#stx-pair? _%e124798124815%_) + (let ((_%e124801124934%_ + (gx#syntax-e _%e124798124815%_))) + (let ((_%hd124802124937%_ + (##car _%e124801124934%_)) + (_%tl124803124939%_ + (##cdr _%e124801124934%_))) + (if (gx#stx-pair? _%tl124803124939%_) + (let ((_%e124804124942%_ (gx#syntax-e - _%tl124529124665%_))) - (let ((_%hd124531124671%_ - (##car _%e124530124668%_)) - (_%tl124532124673%_ - (##cdr _%e124530124668%_))) - (let ((_%path124676%_ - _%hd124531124671%_)) + _%tl124803124939%_))) + (let ((_%hd124805124945%_ + (##car _%e124804124942%_)) + (_%tl124806124947%_ + (##cdr _%e124804124942%_))) + (let ((_%path124950%_ + _%hd124805124945%_)) (if (gx#stx-null? - _%tl124532124673%_) - (_%K124521%_ - _%rest124522%_ - (cons (_%import-spec-source124449%_ - _%path124676%_) - _%r124523%_)) - (_%E124526124656%_))))) - (_%E124526124656%_)))) - (_%E124526124656%_))))) - (_%E124525124678%_)))) - (_%import-spec-source124449%_ - (lambda (_%spath124518%_) + _%tl124806124947%_) + (_%K124795%_ + _%rest124796%_ + (cons (_%import-spec-source124723%_ + _%path124950%_) + _%r124797%_)) + (_%E124800124930%_))))) + (_%E124800124930%_)))) + (_%E124800124930%_))))) + (_%E124799124952%_)))) + (_%import-spec-source124723%_ + (lambda (_%spath124792%_) (gx#core-import-nested-module - _%spath124518%_ - _%stx124441%_))) - (_%import!124450%_ - (lambda (_%rbody124463%_) - (letrec* ((_%current-ctx124465%_ + _%spath124792%_ + _%stx124715%_))) + (_%import!124724%_ + (lambda (_%rbody124737%_) + (letrec* ((_%current-ctx124739%_ (gx#current-expander-context)) - (_%deps124466%_ (make-hash-table-eq)) - (_%bind!124467%_ - (lambda (_%hd124516%_) + (_%deps124740%_ (make-hash-table-eq)) + (_%bind!124741%_ + (lambda (_%hd124790%_) (gx#core-bind-import!__1 - _%hd124516%_ - _%current-ctx124465%_)))) - (let _%lp124469%_ ((_%rest124471%_ _%rbody124463%_) - (_%body124472%_ '())) - (let* ((_%rest124473124481%_ _%rest124471%_) - (_%else124475124492%_ + _%hd124790%_ + _%current-ctx124739%_)))) + (let _%lp124743%_ ((_%rest124745%_ _%rbody124737%_) + (_%body124746%_ '())) + (let* ((_%rest124747124755%_ _%rest124745%_) + (_%else124749124766%_ (lambda () (if (##structure-instance-of? - _%current-ctx124465%_ + _%current-ctx124739%_ 'gx#module-context::t) (##unchecked-structure-set! - _%current-ctx124465%_ + _%current-ctx124739%_ (__foldl1 cons (##unchecked-structure-ref - _%current-ctx124465%_ + _%current-ctx124739%_ '8 '#f '#f) - _%body124472%_) + _%body124746%_) '8 '#f '#f) '#!void) (__hash-for-each - (lambda (_%ctx124489%_ _%_124490%_) - (gx#eval-module _%ctx124489%_)) - _%deps124466%_) - _%body124472%_)) - (_%K124477124504%_ - (lambda (_%rest124495%_ _%hd124496%_) + (lambda (_%ctx124763%_ _%_124764%_) + (gx#eval-module _%ctx124763%_)) + _%deps124740%_) + _%body124746%_)) + (_%K124751124778%_ + (lambda (_%rest124769%_ _%hd124770%_) (if (##structure-direct-instance-of? - _%hd124496%_ + _%hd124770%_ 'gx#module-import::t) (let () - (_%bind!124467%_ _%hd124496%_) + (_%bind!124741%_ _%hd124770%_) (if (and (fxpositive? (##unchecked-structure-ref - _%hd124496%_ + _%hd124770%_ '3 '#f '#f)) (fxzero? (##unchecked-structure-ref (##unchecked-structure-ref - _%hd124496%_ + _%hd124770%_ '1 '#f '#f) @@ -3101,10 +3101,10 @@ '#f '#f))) (__hash-put! - _%deps124466%_ + _%deps124740%_ (##unchecked-structure-ref (##unchecked-structure-ref - _%hd124496%_ + _%hd124770%_ '1 '#f '#f) @@ -3114,155 +3114,155 @@ '#t) '#!void)) (if (##structure-direct-instance-of? - _%hd124496%_ + _%hd124770%_ 'gx#import-set::t) (let () (for-each - _%bind!124467%_ + _%bind!124741%_ (##unchecked-structure-ref - _%hd124496%_ + _%hd124770%_ '3 '#f '#f)) (if (fxpositive? (##unchecked-structure-ref - _%hd124496%_ + _%hd124770%_ '2 '#f '#f)) (__hash-put! - _%deps124466%_ + _%deps124740%_ (##unchecked-structure-ref - _%hd124496%_ + _%hd124770%_ '1 '#f '#f) '#t) '#!void)) - (let ((_%$e124500%_ + (let ((_%$e124774%_ (##structure-instance-of? - _%hd124496%_ + _%hd124770%_ 'gx#module-context::t))) - (if _%$e124500%_ - _%$e124500%_ + (if _%$e124774%_ + _%$e124774%_ (gx#raise-syntax-error '#f '"Unexpected import" - _%stx124441%_ - _%hd124496%_))))) - (_%lp124469%_ - _%rest124495%_ - (cons _%hd124496%_ _%body124472%_))))) - (if (##pair? _%rest124473124481%_) - (let ((_%hd124478124507%_ - (##car _%rest124473124481%_)) - (_%tl124479124509%_ - (##cdr _%rest124473124481%_))) - (let* ((_%hd124512%_ _%hd124478124507%_) - (_%rest124514%_ _%tl124479124509%_)) - (_%K124477124504%_ - _%rest124514%_ - _%hd124512%_))) - (_%else124475124492%_))))))) - (_%expanded-import?124451%_ - (lambda (_%e124455%_) - (let ((_%$e124457%_ + _%stx124715%_ + _%hd124770%_))))) + (_%lp124743%_ + _%rest124769%_ + (cons _%hd124770%_ _%body124746%_))))) + (if (##pair? _%rest124747124755%_) + (let ((_%hd124752124781%_ + (##car _%rest124747124755%_)) + (_%tl124753124783%_ + (##cdr _%rest124747124755%_))) + (let* ((_%hd124786%_ _%hd124752124781%_) + (_%rest124788%_ _%tl124753124783%_)) + (_%K124751124778%_ + _%rest124788%_ + _%hd124786%_))) + (_%else124749124766%_))))))) + (_%expanded-import?124725%_ + (lambda (_%e124729%_) + (let ((_%$e124731%_ (##structure-direct-instance-of? - _%e124455%_ + _%e124729%_ 'gx#import-set::t))) - (if _%$e124457%_ - _%$e124457%_ - (let ((_%$e124460%_ + (if _%$e124731%_ + _%$e124731%_ + (let ((_%$e124734%_ (##structure-direct-instance-of? - _%e124455%_ + _%e124729%_ 'gx#module-import::t))) - (if _%$e124460%_ - _%$e124460%_ + (if _%$e124734%_ + _%$e124734%_ (##structure-instance-of? - _%e124455%_ + _%e124729%_ 'gx#module-context::t)))))))) - (let ((_%rbody124453%_ + (let ((_%rbody124727%_ (gx#core-expand-import/export - _%stx124441%_ - _%expanded-import?124451%_ + _%stx124715%_ + _%expanded-import?124725%_ 'apply-import-expander gx#current-import-expander-phi - _%expand1124444%_))) - (if _%internal-expand?124442%_ - (reverse _%rbody124453%_) + _%expand1124718%_))) + (if _%internal-expand?124716%_ + (reverse _%rbody124727%_) (gx#core-quote-syntax__1 - (gx#core-cons '%#import (_%import!124450%_ _%rbody124453%_)) - (gx#stx-source _%stx124441%_))))))) + (gx#core-cons '%#import (_%import!124724%_ _%rbody124727%_)) + (gx#stx-source _%stx124715%_))))))) (define gx#core-expand-import%__0 - (lambda (_%stx124780%_) - (let ((_%internal-expand?124782%_ '#f)) + (lambda (_%stx125054%_) + (let ((_%internal-expand?125056%_ '#f)) (gx#core-expand-import%__% - _%stx124780%_ - _%internal-expand?124782%_)))) + _%stx125054%_ + _%internal-expand?125056%_)))) (define gx#core-expand-import% - (lambda _g127433_ - (let ((_g127432_ (##length _g127433_))) - (cond ((##fx= _g127432_ 1) - (apply gx#core-expand-import%__0 _g127433_)) - ((##fx= _g127432_ 2) - (apply gx#core-expand-import%__% _g127433_)) + (lambda _g127707_ + (let ((_g127706_ (##length _g127707_))) + (cond ((##fx= _g127706_ 1) + (apply gx#core-expand-import%__0 _g127707_)) + ((##fx= _g127706_ 2) + (apply gx#core-expand-import%__% _g127707_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-import% - _g127433_)))))) + _g127707_)))))) (define gx#core-import-nested-module - (lambda (_%spath124368%_ _%where124369%_) - (let* ((_%e124370124377%_ _%spath124368%_) - (_%E124372124381%_ + (lambda (_%spath124642%_ _%where124643%_) + (let* ((_%e124644124651%_ _%spath124642%_) + (_%E124646124655%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124370124377%_))) - (_%E124371124436%_ + _%e124644124651%_))) + (_%E124645124710%_ (lambda () - (if (gx#stx-pair? _%e124370124377%_) - (let ((_%e124373124385%_ - (gx#syntax-e _%e124370124377%_))) - (let ((_%hd124374124388%_ (##car _%e124373124385%_)) - (_%tl124375124390%_ (##cdr _%e124373124385%_))) - (let* ((_%origin124393%_ _%hd124374124388%_) - (_%sub124395%_ _%tl124375124390%_) - (_%origin-ctx124397%_ - (if (gx#stx-false? _%origin124393%_) + (if (gx#stx-pair? _%e124644124651%_) + (let ((_%e124647124659%_ + (gx#syntax-e _%e124644124651%_))) + (let ((_%hd124648124662%_ (##car _%e124647124659%_)) + (_%tl124649124664%_ (##cdr _%e124647124659%_))) + (let* ((_%origin124667%_ _%hd124648124662%_) + (_%sub124669%_ _%tl124649124664%_) + (_%origin-ctx124671%_ + (if (gx#stx-false? _%origin124667%_) (gx#current-expander-context) - (gx#import-module__0 _%origin124393%_)))) - (let _%lp124399%_ ((_%rest124401%_ _%sub124395%_) - (_%ctx124402%_ - _%origin-ctx124397%_)) - (let* ((_%e124403124410%_ _%rest124401%_) - (_%E124405124414%_ - (lambda () _%ctx124402%_)) - (_%E124404124432%_ + (gx#import-module__0 _%origin124667%_)))) + (let _%lp124673%_ ((_%rest124675%_ _%sub124669%_) + (_%ctx124676%_ + _%origin-ctx124671%_)) + (let* ((_%e124677124684%_ _%rest124675%_) + (_%E124679124688%_ + (lambda () _%ctx124676%_)) + (_%E124678124706%_ (lambda () - (if (gx#stx-pair? _%e124403124410%_) - (let ((_%e124406124418%_ + (if (gx#stx-pair? _%e124677124684%_) + (let ((_%e124680124692%_ (gx#syntax-e - _%e124403124410%_))) - (let ((_%hd124407124421%_ - (##car _%e124406124418%_)) - (_%tl124408124423%_ - (##cdr _%e124406124418%_))) - (let* ((_%id124426%_ - _%hd124407124421%_) - (_%rest124428%_ - _%tl124408124423%_) - (_%bind124430%_ + _%e124677124684%_))) + (let ((_%hd124681124695%_ + (##car _%e124680124692%_)) + (_%tl124682124697%_ + (##cdr _%e124680124692%_))) + (let* ((_%id124700%_ + _%hd124681124695%_) + (_%rest124702%_ + _%tl124682124697%_) + (_%bind124704%_ (gx#resolve-identifier__% - _%id124426%_ + _%id124700%_ '0 - _%ctx124402%_))) + _%ctx124676%_))) (if (and (##structure-direct-instance-of? - _%bind124430%_ + _%bind124704%_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _%bind124430%_ + _%bind124704%_ '4 '#f '#f) @@ -3271,804 +3271,804 @@ (gx#raise-syntax-error '#f '"Bad syntax; not bound as module" - _%where124369%_ - _%spath124368%_ - _%id124426%_)) - (_%lp124399%_ - _%rest124428%_ + _%where124643%_ + _%spath124642%_ + _%id124700%_)) + (_%lp124673%_ + _%rest124702%_ (##unchecked-structure-ref - _%bind124430%_ + _%bind124704%_ '4 '#f '#f))))) - (_%E124405124414%_))))) - (_%E124404124432%_)))))) - (_%E124372124381%_))))) - (_%E124371124436%_)))) + (_%E124679124688%_))))) + (_%E124678124706%_)))))) + (_%E124646124655%_))))) + (_%E124645124710%_)))) (define gx#core-expand-import-source - (lambda (_%hd124366%_) + (lambda (_%hd124640%_) (gx#core-expand-import%__% - (cons 'import-internal% (cons _%hd124366%_ '())) + (cons 'import-internal% (cons _%hd124640%_ '())) '#t))) (define gx#core-expand-export%__% - (lambda (_%stx123860%_ _%internal-expand?123861%_) - (letrec* ((_%make-export__127361127362%_ - (lambda (_%bind124314%_ - _%phi124315%_ - _%ctx124316%_ - _%name124317%_) - (let* ((_%key124319%_ + (lambda (_%stx124134%_ _%internal-expand?124135%_) + (letrec* ((_%make-export__127635127636%_ + (lambda (_%bind124588%_ + _%phi124589%_ + _%ctx124590%_ + _%name124591%_) + (let* ((_%key124593%_ (##unchecked-structure-ref - _%bind124314%_ + _%bind124588%_ '2 '#f '#f)) - (_%export-key124321%_ - (if _%name124317%_ - (gx#core-identifier-key _%name124317%_) - _%key124319%_))) + (_%export-key124595%_ + (if _%name124591%_ + (gx#core-identifier-key _%name124591%_) + _%key124593%_))) (##structure gx#module-export::t - _%ctx124316%_ - _%key124319%_ - _%phi124315%_ - _%export-key124321%_ - (let ((_%$e124324%_ + _%ctx124590%_ + _%key124593%_ + _%phi124589%_ + _%export-key124595%_ + (let ((_%$e124598%_ (##structure-instance-of? - _%bind124314%_ + _%bind124588%_ 'gx#extern-binding::t))) - (if _%$e124324%_ - _%$e124324%_ + (if _%$e124598%_ + _%$e124598%_ (##structure-direct-instance-of? - _%bind124314%_ + _%bind124588%_ 'gx#import-binding::t))))))) - (_%make-export__0__127363127366%_ - (lambda (_%bind124330%_) - (let* ((_%phi124332%_ (gx#current-export-expander-phi)) - (_%ctx124334%_ (gx#current-expander-context)) - (_%name124336%_ '#f)) - (_%make-export__127361127362%_ - _%bind124330%_ - _%phi124332%_ - _%ctx124334%_ - _%name124336%_)))) - (_%make-export__1__127364127367%_ - (lambda (_%bind124338%_ _%phi124339%_) - (let* ((_%ctx124341%_ (gx#current-expander-context)) - (_%name124343%_ '#f)) - (_%make-export__127361127362%_ - _%bind124338%_ - _%phi124339%_ - _%ctx124341%_ - _%name124343%_)))) - (_%make-export__2__127365127368%_ - (lambda (_%bind124345%_ _%phi124346%_ _%ctx124347%_) - (let ((_%name124349%_ '#f)) - (_%make-export__127361127362%_ - _%bind124345%_ - _%phi124346%_ - _%ctx124347%_ - _%name124349%_)))) - (_%make-export123863%_ - (lambda _g127435_ - (let ((_g127434_ (##length _g127435_))) - (cond ((##fx= _g127434_ 1) - (apply _%make-export__0__127363127366%_ - _g127435_)) - ((##fx= _g127434_ 2) - (apply _%make-export__1__127364127367%_ - _g127435_)) - ((##fx= _g127434_ 3) - (apply _%make-export__2__127365127368%_ - _g127435_)) - ((##fx= _g127434_ 4) - (apply _%make-export__127361127362%_ _g127435_)) + (_%make-export__0__127637127640%_ + (lambda (_%bind124604%_) + (let* ((_%phi124606%_ (gx#current-export-expander-phi)) + (_%ctx124608%_ (gx#current-expander-context)) + (_%name124610%_ '#f)) + (_%make-export__127635127636%_ + _%bind124604%_ + _%phi124606%_ + _%ctx124608%_ + _%name124610%_)))) + (_%make-export__1__127638127641%_ + (lambda (_%bind124612%_ _%phi124613%_) + (let* ((_%ctx124615%_ (gx#current-expander-context)) + (_%name124617%_ '#f)) + (_%make-export__127635127636%_ + _%bind124612%_ + _%phi124613%_ + _%ctx124615%_ + _%name124617%_)))) + (_%make-export__2__127639127642%_ + (lambda (_%bind124619%_ _%phi124620%_ _%ctx124621%_) + (let ((_%name124623%_ '#f)) + (_%make-export__127635127636%_ + _%bind124619%_ + _%phi124620%_ + _%ctx124621%_ + _%name124623%_)))) + (_%make-export124137%_ + (lambda _g127709_ + (let ((_g127708_ (##length _g127709_))) + (cond ((##fx= _g127708_ 1) + (apply _%make-export__0__127637127640%_ + _g127709_)) + ((##fx= _g127708_ 2) + (apply _%make-export__1__127638127641%_ + _g127709_)) + ((##fx= _g127708_ 3) + (apply _%make-export__2__127639127642%_ + _g127709_)) + ((##fx= _g127708_ 4) + (apply _%make-export__127635127636%_ _g127709_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g127435_)))))) - (_%expand1123864%_ - (lambda (_%hd124019%_ - _%K124020%_ - _%rest124021%_ - _%r124022%_) - (let* ((_%e124023124055%_ _%hd124019%_) - (_%E124050124059%_ + _g127709_)))))) + (_%expand1124138%_ + (lambda (_%hd124293%_ + _%K124294%_ + _%rest124295%_ + _%r124296%_) + (let* ((_%e124297124329%_ _%hd124293%_) + (_%E124324124333%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal export" - _%stx123860%_ - _%hd124019%_))) - (_%E124040124143%_ + _%stx124134%_ + _%hd124293%_))) + (_%E124314124417%_ (lambda () - (if (gx#stx-pair? _%e124023124055%_) - (let ((_%e124051124063%_ - (gx#syntax-e _%e124023124055%_))) - (let ((_%hd124052124066%_ - (##car _%e124051124063%_)) - (_%tl124053124068%_ - (##cdr _%e124051124063%_))) - (if (eq? (gx#stx-e _%hd124052124066%_) + (if (gx#stx-pair? _%e124297124329%_) + (let ((_%e124325124337%_ + (gx#syntax-e _%e124297124329%_))) + (let ((_%hd124326124340%_ + (##car _%e124325124337%_)) + (_%tl124327124342%_ + (##cdr _%e124325124337%_))) + (if (eq? (gx#stx-e _%hd124326124340%_) 'import:) - (let ((_%in124071%_ - _%tl124053124068%_)) - (if (gx#stx-list? _%in124071%_) - (let _%lp124073%_ ((_%in-rest124075%_ + (let ((_%in124345%_ + _%tl124327124342%_)) + (if (gx#stx-list? _%in124345%_) + (let _%lp124347%_ ((_%in-rest124349%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in124071%_) - (_%r124076%_ _%r124022%_)) + _%in124345%_) + (_%r124350%_ _%r124296%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%e124077124084%_ - _%in-rest124075%_) - (_%E124079124088%_ + (let* ((_%e124351124358%_ + _%in-rest124349%_) + (_%E124353124362%_ (lambda () - (_%K124020%_ - _%rest124021%_ - _%r124076%_))) - (_%E124078124139%_ + (_%K124294%_ + _%rest124295%_ + _%r124350%_))) + (_%E124352124413%_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e124077124084%_) - (let ((_%e124080124092%_ - (gx#syntax-e _%e124077124084%_))) - (let ((_%hd124081124095%_ (##car _%e124080124092%_)) - (_%tl124082124097%_ - (##cdr _%e124080124092%_))) - (let* ((_%hd124100%_ _%hd124081124095%_) - (_%in-rest124102%_ _%tl124082124097%_) - (_%src124137%_ - (if (gx#core-bound-module? _%hd124100%_) - (gx#syntax-local-e__0 _%hd124100%_) + _%e124351124358%_) + (let ((_%e124354124366%_ + (gx#syntax-e _%e124351124358%_))) + (let ((_%hd124355124369%_ (##car _%e124354124366%_)) + (_%tl124356124371%_ + (##cdr _%e124354124366%_))) + (let* ((_%hd124374%_ _%hd124355124369%_) + (_%in-rest124376%_ _%tl124356124371%_) + (_%src124411%_ + (if (gx#core-bound-module? _%hd124374%_) + (gx#syntax-local-e__0 _%hd124374%_) (if (gx#core-library-module-path? - _%hd124100%_) + _%hd124374%_) (gx#import-module__0 (gx#core-resolve-library-module-path - _%hd124100%_)) + _%hd124374%_)) (if (gx#core-library-relative-module-path? - _%hd124100%_) + _%hd124374%_) (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _%hd124100%_)) + _%hd124374%_)) (if (gx#stx-string? - _%hd124100%_) + _%hd124374%_) (gx#import-module__0 (gx#core-resolve-module-path__% - _%hd124100%_ + _%hd124374%_ (gx#stx-source - _%stx123860%_))) - (let* ((_%e124108124115%_ - _%hd124100%_) - (_%E124110124119%_ + _%stx124134%_))) + (let* ((_%e124382124389%_ + _%hd124374%_) + (_%E124384124393%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal re-export" - _%stx123860%_ - _%hd124100%_))) - (_%E124109124133%_ + _%stx124134%_ + _%hd124374%_))) + (_%E124383124407%_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e124108124115%_) - (let ((_%e124111124123%_ - (gx#syntax-e _%e124108124115%_))) - (let ((_%hd124112124126%_ - (##car _%e124111124123%_)) - (_%tl124113124128%_ - (##cdr _%e124111124123%_))) - (if (eq? (gx#stx-e _%hd124112124126%_) 'in:) - (let ((_%spath124131%_ _%tl124113124128%_)) + _%e124382124389%_) + (let ((_%e124385124397%_ + (gx#syntax-e _%e124382124389%_))) + (let ((_%hd124386124400%_ + (##car _%e124385124397%_)) + (_%tl124387124402%_ + (##cdr _%e124385124397%_))) + (if (eq? (gx#stx-e _%hd124386124400%_) 'in:) + (let ((_%spath124405%_ _%tl124387124402%_)) (gx#core-import-nested-module - _%spath124131%_ - _%stx123860%_)) - (_%E124110124119%_)))) - (_%E124110124119%_))))) - (_%E124109124133%_)))))))) + _%spath124405%_ + _%stx124134%_)) + (_%E124384124393%_)))) + (_%E124384124393%_))))) + (_%E124383124407%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp124073%_ - _%in-rest124102%_ - (_%export-imports123865%_ - _%src124137%_ - _%r124076%_))))) - (_%E124079124088%_))))) + (_%lp124347%_ + _%in-rest124376%_ + (_%export-imports124139%_ + _%src124411%_ + _%r124350%_))))) + (_%E124353124362%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124078124139%_))) - (_%E124050124059%_))) - (_%E124050124059%_)))) - (_%E124050124059%_)))) - (_%E124027124183%_ + (_%E124352124413%_))) + (_%E124324124333%_))) + (_%E124324124333%_)))) + (_%E124324124333%_)))) + (_%E124301124457%_ (lambda () - (if (gx#stx-pair? _%e124023124055%_) - (let ((_%e124041124147%_ - (gx#syntax-e _%e124023124055%_))) - (let ((_%hd124042124150%_ - (##car _%e124041124147%_)) - (_%tl124043124152%_ - (##cdr _%e124041124147%_))) - (if (eq? (gx#stx-e _%hd124042124150%_) + (if (gx#stx-pair? _%e124297124329%_) + (let ((_%e124315124421%_ + (gx#syntax-e _%e124297124329%_))) + (let ((_%hd124316124424%_ + (##car _%e124315124421%_)) + (_%tl124317124426%_ + (##cdr _%e124315124421%_))) + (if (eq? (gx#stx-e _%hd124316124424%_) 'rename:) (if (gx#stx-pair? - _%tl124043124152%_) - (let ((_%e124044124155%_ + _%tl124317124426%_) + (let ((_%e124318124429%_ (gx#syntax-e - _%tl124043124152%_))) - (let ((_%hd124045124158%_ - (##car _%e124044124155%_)) - (_%tl124046124160%_ - (##cdr _%e124044124155%_))) - (let ((_%id124163%_ - _%hd124045124158%_)) + _%tl124317124426%_))) + (let ((_%hd124319124432%_ + (##car _%e124318124429%_)) + (_%tl124320124434%_ + (##cdr _%e124318124429%_))) + (let ((_%id124437%_ + _%hd124319124432%_)) (if (gx#stx-pair? - _%tl124046124160%_) - (let ((_%e124047124165%_ + _%tl124320124434%_) + (let ((_%e124321124439%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl124046124160%_))) - (let ((_%hd124048124168%_ (##car _%e124047124165%_)) - (_%tl124049124170%_ (##cdr _%e124047124165%_))) - (let ((_%name124173%_ _%hd124048124168%_)) - (if (gx#stx-null? _%tl124049124170%_) - (let* ((_%phi124175%_ + _%tl124320124434%_))) + (let ((_%hd124322124442%_ (##car _%e124321124439%_)) + (_%tl124323124444%_ (##cdr _%e124321124439%_))) + (let ((_%name124447%_ _%hd124322124442%_)) + (if (gx#stx-null? _%tl124323124444%_) + (let* ((_%phi124449%_ (gx#current-export-expander-phi)) - (_%$e124177%_ + (_%$e124451%_ (gx#core-resolve-identifier__1 - _%id124163%_ - _%phi124175%_))) - (if _%$e124177%_ - ((lambda (_%bind124180%_) - (_%K124020%_ - _%rest124021%_ - (cons (_%make-export__127361127362%_ - _%bind124180%_ - _%phi124175%_ + _%id124437%_ + _%phi124449%_))) + (if _%$e124451%_ + ((lambda (_%bind124454%_) + (_%K124294%_ + _%rest124295%_ + (cons (_%make-export__127635127636%_ + _%bind124454%_ + _%phi124449%_ (gx#current-expander-context) - _%name124173%_) - _%r124022%_))) - _%$e124177%_) + _%name124447%_) + _%r124296%_))) + _%$e124451%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%stx123860%_ - _%hd124019%_ - _%id124163%_))) - (_%E124040124143%_))))) - (_%E124040124143%_))))) + _%stx124134%_ + _%hd124293%_ + _%id124437%_))) + (_%E124314124417%_))))) + (_%E124314124417%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124040124143%_)) - (_%E124040124143%_)))) - (_%E124040124143%_)))) - (_%E124026124233%_ + (_%E124314124417%_)) + (_%E124314124417%_)))) + (_%E124314124417%_)))) + (_%E124300124507%_ (lambda () - (if (gx#stx-pair? _%e124023124055%_) - (let ((_%e124028124187%_ - (gx#syntax-e _%e124023124055%_))) - (let ((_%hd124029124190%_ - (##car _%e124028124187%_)) - (_%tl124030124192%_ - (##cdr _%e124028124187%_))) - (if (eq? (gx#stx-e _%hd124029124190%_) + (if (gx#stx-pair? _%e124297124329%_) + (let ((_%e124302124461%_ + (gx#syntax-e _%e124297124329%_))) + (let ((_%hd124303124464%_ + (##car _%e124302124461%_)) + (_%tl124304124466%_ + (##cdr _%e124302124461%_))) + (if (eq? (gx#stx-e _%hd124303124464%_) 'spec:) (if (gx#stx-pair? - _%tl124030124192%_) - (let ((_%e124031124195%_ + _%tl124304124466%_) + (let ((_%e124305124469%_ (gx#syntax-e - _%tl124030124192%_))) - (let ((_%hd124032124198%_ - (##car _%e124031124195%_)) - (_%tl124033124200%_ - (##cdr _%e124031124195%_))) - (let ((_%phi124203%_ - _%hd124032124198%_)) + _%tl124304124466%_))) + (let ((_%hd124306124472%_ + (##car _%e124305124469%_)) + (_%tl124307124474%_ + (##cdr _%e124305124469%_))) + (let ((_%phi124477%_ + _%hd124306124472%_)) (if (gx#stx-pair? - _%tl124033124200%_) - (let ((_%e124034124205%_ + _%tl124307124474%_) + (let ((_%e124308124479%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl124033124200%_))) - (let ((_%hd124035124208%_ (##car _%e124034124205%_)) - (_%tl124036124210%_ (##cdr _%e124034124205%_))) - (let ((_%id124213%_ _%hd124035124208%_)) - (if (gx#stx-pair? _%tl124036124210%_) - (let ((_%e124037124215%_ - (gx#syntax-e _%tl124036124210%_))) - (let ((_%hd124038124218%_ - (##car _%e124037124215%_)) - (_%tl124039124220%_ - (##cdr _%e124037124215%_))) - (let ((_%name124223%_ _%hd124038124218%_)) - (if (gx#stx-null? _%tl124039124220%_) - (if (and (gx#stx-fixnum? _%phi124203%_) - (gx#identifier? _%id124213%_) - (gx#identifier? _%name124223%_)) - (let* ((_%phi124225%_ - (gx#stx-e _%phi124203%_)) - (_%$e124227%_ + _%tl124307124474%_))) + (let ((_%hd124309124482%_ (##car _%e124308124479%_)) + (_%tl124310124484%_ (##cdr _%e124308124479%_))) + (let ((_%id124487%_ _%hd124309124482%_)) + (if (gx#stx-pair? _%tl124310124484%_) + (let ((_%e124311124489%_ + (gx#syntax-e _%tl124310124484%_))) + (let ((_%hd124312124492%_ + (##car _%e124311124489%_)) + (_%tl124313124494%_ + (##cdr _%e124311124489%_))) + (let ((_%name124497%_ _%hd124312124492%_)) + (if (gx#stx-null? _%tl124313124494%_) + (if (and (gx#stx-fixnum? _%phi124477%_) + (gx#identifier? _%id124487%_) + (gx#identifier? _%name124497%_)) + (let* ((_%phi124499%_ + (gx#stx-e _%phi124477%_)) + (_%$e124501%_ (gx#core-resolve-identifier__1 - _%id124213%_ - _%phi124225%_))) - (if _%$e124227%_ - ((lambda (_%bind124230%_) - (_%K124020%_ - _%rest124021%_ - (cons (_%make-export__127361127362%_ - _%bind124230%_ - _%phi124225%_ + _%id124487%_ + _%phi124499%_))) + (if _%$e124501%_ + ((lambda (_%bind124504%_) + (_%K124294%_ + _%rest124295%_ + (cons (_%make-export__127635127636%_ + _%bind124504%_ + _%phi124499%_ (gx#current-expander-context) - _%name124223%_) - _%r124022%_))) - _%$e124227%_) + _%name124497%_) + _%r124296%_))) + _%$e124501%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%stx123860%_ - _%hd124019%_ - _%id124213%_))) - (_%E124027124183%_)) - (_%E124027124183%_))))) - (_%E124027124183%_))))) - (_%E124027124183%_))))) + _%stx124134%_ + _%hd124293%_ + _%id124487%_))) + (_%E124301124457%_)) + (_%E124301124457%_))))) + (_%E124301124457%_))))) + (_%E124301124457%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124027124183%_)) - (_%E124027124183%_)))) - (_%E124027124183%_)))) - (_%E124025124245%_ + (_%E124301124457%_)) + (_%E124301124457%_)))) + (_%E124301124457%_)))) + (_%E124299124519%_ (lambda () - (let ((_%id124237%_ _%e124023124055%_)) - (if (gx#identifier? _%id124237%_) - (let ((_%$e124239%_ + (let ((_%id124511%_ _%e124297124329%_)) + (if (gx#identifier? _%id124511%_) + (let ((_%$e124513%_ (gx#core-resolve-identifier__1 - _%id124237%_ + _%id124511%_ (gx#current-export-expander-phi)))) - (if _%$e124239%_ - ((lambda (_%bind124242%_) - (_%K124020%_ - _%rest124021%_ - (cons (_%make-export__0__127363127366%_ - _%bind124242%_) - _%r124022%_))) - _%$e124239%_) + (if _%$e124513%_ + ((lambda (_%bind124516%_) + (_%K124294%_ + _%rest124295%_ + (cons (_%make-export__0__127637127640%_ + _%bind124516%_) + _%r124296%_))) + _%$e124513%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%stx123860%_ - _%hd124019%_))) - (_%E124026124233%_))))) - (_%E124024124309%_ + _%stx124134%_ + _%hd124293%_))) + (_%E124300124507%_))))) + (_%E124298124583%_ (lambda () - (if (eq? (gx#stx-e _%e124023124055%_) '#t) - (let* ((_%current-ctx124249%_ + (if (eq? (gx#stx-e _%e124297124329%_) '#t) + (let* ((_%current-ctx124523%_ (gx#current-expander-context)) - (_%current-phi124251%_ + (_%current-phi124525%_ (gx#current-export-expander-phi)) - (_%phi-ctx124253%_ + (_%phi-ctx124527%_ (gx#core-context-shift - _%current-ctx124249%_ - _%current-phi124251%_)) - (_%phi-bind124255%_ + _%current-ctx124523%_ + _%current-phi124525%_)) + (_%phi-bind124529%_ (hash->list (##unchecked-structure-ref - _%phi-ctx124253%_ + _%phi-ctx124527%_ '2 '#f '#f)))) - (let _%lp124258%_ ((_%bind-rest124260%_ - _%phi-bind124255%_) - (_%set124261%_ '())) - (let* ((_%bind-rest124262124272%_ - _%bind-rest124260%_) - (_%else124264124280%_ + (let _%lp124532%_ ((_%bind-rest124534%_ + _%phi-bind124529%_) + (_%set124535%_ '())) + (let* ((_%bind-rest124536124546%_ + _%bind-rest124534%_) + (_%else124538124554%_ (lambda () - (_%K124020%_ - _%rest124021%_ + (_%K124294%_ + _%rest124295%_ (cons (##structure gx#export-set::t '#f - _%current-phi124251%_ - _%set124261%_) - _%r124022%_)))) - (_%K124266124290%_ - (lambda (_%bind-rest124283%_ - _%bind124284%_ - _%key124285%_) + _%current-phi124525%_ + _%set124535%_) + _%r124296%_)))) + (_%K124540124564%_ + (lambda (_%bind-rest124557%_ + _%bind124558%_ + _%key124559%_) (if (or (##structure-direct-instance-of? - _%bind124284%_ + _%bind124558%_ 'gx#import-binding::t) (gx#private-feature-binding? - _%bind124284%_)) - (_%lp124258%_ - _%bind-rest124283%_ - _%set124261%_) - (_%lp124258%_ - _%bind-rest124283%_ - (cons (_%make-export__2__127365127368%_ - _%bind124284%_ - _%current-phi124251%_ - _%current-ctx124249%_) - _%set124261%_)))))) - (if (##pair? _%bind-rest124262124272%_) - (let ((_%hd124267124293%_ - (##car _%bind-rest124262124272%_)) - (_%tl124268124295%_ - (##cdr _%bind-rest124262124272%_))) - (if (##pair? _%hd124267124293%_) - (let ((_%hd124269124298%_ - (##car _%hd124267124293%_)) - (_%tl124270124300%_ - (##cdr _%hd124267124293%_))) - (let* ((_%key124303%_ - _%hd124269124298%_) - (_%bind124305%_ - _%tl124270124300%_) - (_%bind-rest124307%_ - _%tl124268124295%_)) - (_%K124266124290%_ - _%bind-rest124307%_ - _%bind124305%_ - _%key124303%_))) - (_%else124264124280%_))) - (_%else124264124280%_))))) - (_%E124025124245%_))))) - (_%E124024124309%_)))) - (_%export-imports123865%_ - (lambda (_%src123895%_ _%r123896%_) - (letrec* ((_%current-ctx123898%_ + _%bind124558%_)) + (_%lp124532%_ + _%bind-rest124557%_ + _%set124535%_) + (_%lp124532%_ + _%bind-rest124557%_ + (cons (_%make-export__2__127639127642%_ + _%bind124558%_ + _%current-phi124525%_ + _%current-ctx124523%_) + _%set124535%_)))))) + (if (##pair? _%bind-rest124536124546%_) + (let ((_%hd124541124567%_ + (##car _%bind-rest124536124546%_)) + (_%tl124542124569%_ + (##cdr _%bind-rest124536124546%_))) + (if (##pair? _%hd124541124567%_) + (let ((_%hd124543124572%_ + (##car _%hd124541124567%_)) + (_%tl124544124574%_ + (##cdr _%hd124541124567%_))) + (let* ((_%key124577%_ + _%hd124543124572%_) + (_%bind124579%_ + _%tl124544124574%_) + (_%bind-rest124581%_ + _%tl124542124569%_)) + (_%K124540124564%_ + _%bind-rest124581%_ + _%bind124579%_ + _%key124577%_))) + (_%else124538124554%_))) + (_%else124538124554%_))))) + (_%E124299124519%_))))) + (_%E124298124583%_)))) + (_%export-imports124139%_ + (lambda (_%src124169%_ _%r124170%_) + (letrec* ((_%current-ctx124172%_ (gx#current-expander-context)) - (_%current-phi123899%_ + (_%current-phi124173%_ (gx#current-export-expander-phi)) - (_%import->export123900%_ - (lambda (_%in123981%_) - (let* ((_%in123982123990%_ _%in123981%_) - (_%E123984123994%_ + (_%import->export124174%_ + (lambda (_%in124255%_) + (let* ((_%in124256124264%_ _%in124255%_) + (_%E124258124268%_ (lambda () (error '"No clause matching" - _%in123982123990%_ + _%in124256124264%_ '((module-import out key phi))) '#!void)) - (_%K123985124001%_ - (lambda (_%phi123997%_ - _%key123998%_ - _%out123999%_) + (_%K124259124275%_ + (lambda (_%phi124271%_ + _%key124272%_ + _%out124273%_) (##structure gx#module-export::t - _%current-ctx123898%_ - _%key123998%_ - _%phi123997%_ - _%key123998%_ + _%current-ctx124172%_ + _%key124272%_ + _%phi124271%_ + _%key124272%_ '#t)))) (if (##structure-direct-instance-of? - _%in123982123990%_ + _%in124256124264%_ 'gx#module-import::t) - (let* ((_%e123986124004%_ + (let* ((_%e124260124278%_ (##unchecked-structure-ref - _%in123982123990%_ + _%in124256124264%_ '1 '#f '#f)) - (_%out124007%_ - _%e123986124004%_) - (_%e123987124009%_ + (_%out124281%_ + _%e124260124278%_) + (_%e124261124283%_ (##unchecked-structure-ref - _%in123982123990%_ + _%in124256124264%_ '2 '#f '#f)) - (_%key124012%_ - _%e123987124009%_) - (_%e123988124014%_ + (_%key124286%_ + _%e124261124283%_) + (_%e124262124288%_ (##unchecked-structure-ref - _%in123982123990%_ + _%in124256124264%_ '3 '#f '#f)) - (_%phi124017%_ - _%e123988124014%_)) - (_%K123985124001%_ - _%phi124017%_ - _%key124012%_ - _%out124007%_)) - (_%E123984123994%_))))) - (_%fold-e123901%_ - (lambda (_%in123903%_ _%r123904%_) - (let* ((_%in123905123919%_ _%in123903%_) - (_%else123908123927%_ - (lambda () _%r123904%_))) - (let ((_%K123914123963%_ - (lambda (_%phi123959%_ - _%key123960%_ - _%out123961%_) - (if (and (fx= _%phi123959%_ - _%current-phi123899%_) - (eq? _%src123895%_ + (_%phi124291%_ + _%e124262124288%_)) + (_%K124259124275%_ + _%phi124291%_ + _%key124286%_ + _%out124281%_)) + (_%E124258124268%_))))) + (_%fold-e124175%_ + (lambda (_%in124177%_ _%r124178%_) + (let* ((_%in124179124193%_ _%in124177%_) + (_%else124182124201%_ + (lambda () _%r124178%_))) + (let ((_%K124188124237%_ + (lambda (_%phi124233%_ + _%key124234%_ + _%out124235%_) + (if (and (fx= _%phi124233%_ + _%current-phi124173%_) + (eq? _%src124169%_ (##unchecked-structure-ref - _%out123961%_ + _%out124235%_ '1 '#f '#f))) - (cons (_%import->export123900%_ - _%in123903%_) - _%r123904%_) - _%r123904%_))) - (_%K123910123938%_ - (lambda (_%imports123931%_ - _%phi123932%_ - _%ctx123933%_) - (if (and (fx= _%phi123932%_ - _%current-phi123899%_) - (eq? _%src123895%_ - _%ctx123933%_)) + (cons (_%import->export124174%_ + _%in124177%_) + _%r124178%_) + _%r124178%_))) + (_%K124184124212%_ + (lambda (_%imports124205%_ + _%phi124206%_ + _%ctx124207%_) + (if (and (fx= _%phi124206%_ + _%current-phi124173%_) + (eq? _%src124169%_ + _%ctx124207%_)) (__foldl1 - (lambda (_%in123935%_ - _%r123936%_) - (cons (_%import->export123900%_ - _%in123935%_) - _%r123936%_)) - _%r123904%_ - _%imports123931%_) - _%r123904%_)))) - (let ((_%try-match123907123956%_ + (lambda (_%in124209%_ + _%r124210%_) + (cons (_%import->export124174%_ + _%in124209%_) + _%r124210%_)) + _%r124178%_ + _%imports124205%_) + _%r124178%_)))) + (let ((_%try-match124181124230%_ (lambda () (if (##structure-direct-instance-of? - _%in123905123919%_ + _%in124179124193%_ 'gx#import-set::t) - (let* ((_%e123911123941%_ + (let* ((_%e124185124215%_ (##unchecked-structure-ref - _%in123905123919%_ + _%in124179124193%_ '1 '#f '#f)) - (_%e123912123946%_ + (_%e124186124220%_ (##unchecked-structure-ref - _%in123905123919%_ + _%in124179124193%_ '2 '#f '#f)) - (_%e123913123951%_ + (_%e124187124225%_ (##unchecked-structure-ref - _%in123905123919%_ + _%in124179124193%_ '3 '#f '#f))) - (let ((_%ctx123944%_ - _%e123911123941%_) - (_%phi123949%_ - _%e123912123946%_) - (_%imports123954%_ - _%e123913123951%_)) - (_%K123910123938%_ - _%imports123954%_ - _%phi123949%_ - _%ctx123944%_))) - (_%else123908123927%_))))) + (let ((_%ctx124218%_ + _%e124185124215%_) + (_%phi124223%_ + _%e124186124220%_) + (_%imports124228%_ + _%e124187124225%_)) + (_%K124184124212%_ + _%imports124228%_ + _%phi124223%_ + _%ctx124218%_))) + (_%else124182124201%_))))) (if (##structure-direct-instance-of? - _%in123905123919%_ + _%in124179124193%_ 'gx#module-import::t) - (let* ((_%e123915123966%_ + (let* ((_%e124189124240%_ (##unchecked-structure-ref - _%in123905123919%_ + _%in124179124193%_ '1 '#f '#f)) - (_%e123916123971%_ + (_%e124190124245%_ (##unchecked-structure-ref - _%in123905123919%_ + _%in124179124193%_ '2 '#f '#f)) - (_%e123917123976%_ + (_%e124191124250%_ (##unchecked-structure-ref - _%in123905123919%_ + _%in124179124193%_ '3 '#f '#f))) - (let ((_%out123969%_ - _%e123915123966%_) - (_%key123974%_ - _%e123916123971%_) - (_%phi123979%_ - _%e123917123976%_)) - (_%K123914123963%_ - _%phi123979%_ - _%key123974%_ - _%out123969%_))) - (_%try-match123907123956%_)))))))) + (let ((_%out124243%_ + _%e124189124240%_) + (_%key124248%_ + _%e124190124245%_) + (_%phi124253%_ + _%e124191124250%_)) + (_%K124188124237%_ + _%phi124253%_ + _%key124248%_ + _%out124243%_))) + (_%try-match124181124230%_)))))))) (cons (##structure gx#export-set::t - _%src123895%_ - _%current-phi123899%_ + _%src124169%_ + _%current-phi124173%_ (__foldl1 - _%fold-e123901%_ + _%fold-e124175%_ '() (##unchecked-structure-ref - _%current-ctx123898%_ + _%current-ctx124172%_ '8 '#f '#f))) - _%r123896%_)))) - (_%export!123866%_ - (lambda (_%rbody123882%_) - (letrec* ((_%current-ctx123884%_ + _%r124170%_)))) + (_%export!124140%_ + (lambda (_%rbody124156%_) + (letrec* ((_%current-ctx124158%_ (gx#current-expander-context)) - (_%fold-e123885%_ - (lambda (_%out123889%_ _%r123890%_) + (_%fold-e124159%_ + (lambda (_%out124163%_ _%r124164%_) (if (##structure-direct-instance-of? - _%out123889%_ + _%out124163%_ 'gx#module-export::t) - (cons _%out123889%_ _%r123890%_) + (cons _%out124163%_ _%r124164%_) (if (##structure-direct-instance-of? - _%out123889%_ + _%out124163%_ 'gx#export-set::t) (__foldl1 cons - _%r123890%_ + _%r124164%_ (##unchecked-structure-ref - _%out123889%_ + _%out124163%_ '3 '#f '#f)) - _%r123890%_))))) - (let ((_%body123887%_ (reverse _%rbody123882%_))) + _%r124164%_))))) + (let ((_%body124161%_ (reverse _%rbody124156%_))) (##unchecked-structure-set! - _%current-ctx123884%_ + _%current-ctx124158%_ (__foldl1 - _%fold-e123885%_ + _%fold-e124159%_ (##unchecked-structure-ref - _%current-ctx123884%_ + _%current-ctx124158%_ '9 '#f '#f) - _%body123887%_) + _%body124161%_) '9 '#f '#f) - _%body123887%_)))) - (_%expanded-export?123867%_ - (lambda (_%e123877%_) - (let ((_%$e123879%_ + _%body124161%_)))) + (_%expanded-export?124141%_ + (lambda (_%e124151%_) + (let ((_%$e124153%_ (##structure-direct-instance-of? - _%e123877%_ + _%e124151%_ 'gx#module-export::t))) - (if _%$e123879%_ - _%$e123879%_ + (if _%$e124153%_ + _%$e124153%_ (##structure-direct-instance-of? - _%e123877%_ + _%e124151%_ 'gx#export-set::t)))))) (if (or (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - _%internal-expand?123861%_) - (let ((_%rbody123873%_ + _%internal-expand?124135%_) + (let ((_%rbody124147%_ (gx#core-expand-import/export - _%stx123860%_ - _%expanded-export?123867%_ + _%stx124134%_ + _%expanded-export?124141%_ 'apply-export-expander gx#current-export-expander-phi - _%expand1123864%_))) - (if _%internal-expand?123861%_ - (reverse _%rbody123873%_) + _%expand1124138%_))) + (if _%internal-expand?124135%_ + (reverse _%rbody124147%_) (gx#core-quote-syntax__1 (gx#core-cons '%#export - (_%export!123866%_ _%rbody123873%_)) - (gx#stx-source _%stx123860%_)))) + (_%export!124140%_ _%rbody124147%_)) + (gx#stx-source _%stx124134%_)))) (if (##structure-instance-of? (gx#current-expander-context) 'gx#top-context::t) (gx#core-quote-syntax__1 (gx#core-cons '%#begin '()) - (gx#stx-source _%stx123860%_)) + (gx#stx-source _%stx124134%_)) (gx#raise-syntax-error '#f '"Illegal context" - _%stx123860%_)))))) + _%stx124134%_)))))) (define gx#core-expand-export%__0 - (lambda (_%stx124359%_) - (let ((_%internal-expand?124361%_ '#f)) + (lambda (_%stx124633%_) + (let ((_%internal-expand?124635%_ '#f)) (gx#core-expand-export%__% - _%stx124359%_ - _%internal-expand?124361%_)))) + _%stx124633%_ + _%internal-expand?124635%_)))) (define gx#core-expand-export% - (lambda _g127437_ - (let ((_g127436_ (##length _g127437_))) - (cond ((##fx= _g127436_ 1) - (apply gx#core-expand-export%__0 _g127437_)) - ((##fx= _g127436_ 2) - (apply gx#core-expand-export%__% _g127437_)) + (lambda _g127711_ + (let ((_g127710_ (##length _g127711_))) + (cond ((##fx= _g127710_ 1) + (apply gx#core-expand-export%__0 _g127711_)) + ((##fx= _g127710_ 2) + (apply gx#core-expand-export%__% _g127711_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-export% - _g127437_)))))) + _g127711_)))))) (define gx#core-expand-export-source - (lambda (_%hd123857%_) + (lambda (_%hd124131%_) (gx#core-expand-export%__% - (cons 'export-macro% (cons _%hd123857%_ '())) + (cons 'export-macro% (cons _%hd124131%_ '())) '#t))) (define gx#core-expand-provide% - (lambda (_%stx123827%_) - (let* ((_%e123828123835%_ _%stx123827%_) - (_%E123830123839%_ + (lambda (_%stx124101%_) + (let* ((_%e124102124109%_ _%stx124101%_) + (_%E124104124113%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123828123835%_))) - (_%E123829123853%_ + _%e124102124109%_))) + (_%E124103124127%_ (lambda () - (if (gx#stx-pair? _%e123828123835%_) - (let ((_%e123831123843%_ - (gx#syntax-e _%e123828123835%_))) - (let ((_%hd123832123846%_ (##car _%e123831123843%_)) - (_%tl123833123848%_ (##cdr _%e123831123843%_))) - (let ((_%body123851%_ _%tl123833123848%_)) - (if (gx#identifier-list? _%body123851%_) + (if (gx#stx-pair? _%e124102124109%_) + (let ((_%e124105124117%_ + (gx#syntax-e _%e124102124109%_))) + (let ((_%hd124106124120%_ (##car _%e124105124117%_)) + (_%tl124107124122%_ (##cdr _%e124105124117%_))) + (let ((_%body124125%_ _%tl124107124122%_)) + (if (gx#identifier-list? _%body124125%_) (begin (gx#stx-for-each1 gx#core-bind-feature! - _%body123851%_) + _%body124125%_) (gx#core-quote-syntax__1 (gx#core-cons '%#provide (gx#stx-map1 gx#core-quote-syntax - _%body123851%_)) - (gx#stx-source _%stx123827%_))) - (_%E123830123839%_))))) - (_%E123830123839%_))))) - (_%E123829123853%_)))) + _%body124125%_)) + (gx#stx-source _%stx124101%_))) + (_%E124104124113%_))))) + (_%E124104124113%_))))) + (_%E124103124127%_)))) (define gx#core-bind-feature!__% - (lambda (_%id123793%_ _%private?123794%_ _%phi123795%_ _%ctx123796%_) + (lambda (_%id124067%_ _%private?124068%_ _%phi124069%_ _%ctx124070%_) (gx#core-bind-syntax!__% - _%id123793%_ - ((if _%private?123794%_ + _%id124067%_ + ((if _%private?124068%_ gx#make-private-feature-expander gx#make-feature-expander) - (gx#stx-e _%id123793%_)) - _%private?123794%_ - _%phi123795%_ - _%ctx123796%_))) + (gx#stx-e _%id124067%_)) + _%private?124068%_ + _%phi124069%_ + _%ctx124070%_))) (define gx#core-bind-feature!__0 - (lambda (_%id123801%_) - (let* ((_%private?123803%_ '#f) - (_%phi123805%_ (gx#current-expander-phi)) - (_%ctx123807%_ (gx#current-expander-context))) + (lambda (_%id124075%_) + (let* ((_%private?124077%_ '#f) + (_%phi124079%_ (gx#current-expander-phi)) + (_%ctx124081%_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _%id123801%_ - _%private?123803%_ - _%phi123805%_ - _%ctx123807%_)))) + _%id124075%_ + _%private?124077%_ + _%phi124079%_ + _%ctx124081%_)))) (define gx#core-bind-feature!__1 - (lambda (_%id123809%_ _%private?123810%_) - (let* ((_%phi123812%_ (gx#current-expander-phi)) - (_%ctx123814%_ (gx#current-expander-context))) + (lambda (_%id124083%_ _%private?124084%_) + (let* ((_%phi124086%_ (gx#current-expander-phi)) + (_%ctx124088%_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _%id123809%_ - _%private?123810%_ - _%phi123812%_ - _%ctx123814%_)))) + _%id124083%_ + _%private?124084%_ + _%phi124086%_ + _%ctx124088%_)))) (define gx#core-bind-feature!__2 - (lambda (_%id123816%_ _%private?123817%_ _%phi123818%_) - (let ((_%ctx123820%_ (gx#current-expander-context))) + (lambda (_%id124090%_ _%private?124091%_ _%phi124092%_) + (let ((_%ctx124094%_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _%id123816%_ - _%private?123817%_ - _%phi123818%_ - _%ctx123820%_)))) + _%id124090%_ + _%private?124091%_ + _%phi124092%_ + _%ctx124094%_)))) (define gx#core-bind-feature! - (lambda _g127439_ - (let ((_g127438_ (##length _g127439_))) - (cond ((##fx= _g127438_ 1) - (apply gx#core-bind-feature!__0 _g127439_)) - ((##fx= _g127438_ 2) - (apply gx#core-bind-feature!__1 _g127439_)) - ((##fx= _g127438_ 3) - (apply gx#core-bind-feature!__2 _g127439_)) - ((##fx= _g127438_ 4) - (apply gx#core-bind-feature!__% _g127439_)) + (lambda _g127713_ + (let ((_g127712_ (##length _g127713_))) + (cond ((##fx= _g127712_ 1) + (apply gx#core-bind-feature!__0 _g127713_)) + ((##fx= _g127712_ 2) + (apply gx#core-bind-feature!__1 _g127713_)) + ((##fx= _g127712_ 3) + (apply gx#core-bind-feature!__2 _g127713_)) + ((##fx= _g127712_ 4) + (apply gx#core-bind-feature!__% _g127713_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-feature! - _g127439_)))))))) + _g127713_)))))))) diff --git a/src/bootstrap/gerbil/expander/module~1.scm b/src/bootstrap/gerbil/expander/module~1.scm index 729dec7e3..165d5fe67 100644 --- a/src/bootstrap/gerbil/expander/module~1.scm +++ b/src/bootstrap/gerbil/expander/module~1.scm @@ -1,839 +1,839 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gx[1]#_g127441_| + (define |gx[1]#_g127715_| (##structure gx#syntax-quote::t 'module-import::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g127443_| + (define |gx[1]#_g127717_| (##structure gx#syntax-quote::t 'make-module-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g127445_| + (define |gx[1]#_g127719_| (##structure gx#syntax-quote::t 'module-import? #f (gx#current-expander-context) '())) - (define |gx[1]#_g127447_| + (define |gx[1]#_g127721_| (##structure gx#syntax-quote::t 'module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g127448_| + (define |gx[1]#_g127722_| (##structure gx#syntax-quote::t 'module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g127449_| + (define |gx[1]#_g127723_| (##structure gx#syntax-quote::t 'module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127450_| + (define |gx[1]#_g127724_| (##structure gx#syntax-quote::t 'module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g127452_| + (define |gx[1]#_g127726_| (##structure gx#syntax-quote::t 'module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127453_| + (define |gx[1]#_g127727_| (##structure gx#syntax-quote::t 'module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127454_| + (define |gx[1]#_g127728_| (##structure gx#syntax-quote::t 'module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127455_| + (define |gx[1]#_g127729_| (##structure gx#syntax-quote::t 'module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127457_| + (define |gx[1]#_g127731_| (##structure gx#syntax-quote::t '&module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g127458_| + (define |gx[1]#_g127732_| (##structure gx#syntax-quote::t '&module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g127459_| + (define |gx[1]#_g127733_| (##structure gx#syntax-quote::t '&module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127460_| + (define |gx[1]#_g127734_| (##structure gx#syntax-quote::t '&module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g127462_| + (define |gx[1]#_g127736_| (##structure gx#syntax-quote::t '&module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127463_| + (define |gx[1]#_g127737_| (##structure gx#syntax-quote::t '&module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127464_| + (define |gx[1]#_g127738_| (##structure gx#syntax-quote::t '&module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127465_| + (define |gx[1]#_g127739_| (##structure gx#syntax-quote::t '&module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127467_| + (define |gx[1]#_g127741_| (##structure gx#syntax-quote::t 'module-export::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g127469_| + (define |gx[1]#_g127743_| (##structure gx#syntax-quote::t 'make-module-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g127471_| + (define |gx[1]#_g127745_| (##structure gx#syntax-quote::t 'module-export? #f (gx#current-expander-context) '())) - (define |gx[1]#_g127473_| + (define |gx[1]#_g127747_| (##structure gx#syntax-quote::t 'module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g127474_| + (define |gx[1]#_g127748_| (##structure gx#syntax-quote::t 'module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g127475_| + (define |gx[1]#_g127749_| (##structure gx#syntax-quote::t 'module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127476_| + (define |gx[1]#_g127750_| (##structure gx#syntax-quote::t 'module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g127477_| + (define |gx[1]#_g127751_| (##structure gx#syntax-quote::t 'module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g127479_| + (define |gx[1]#_g127753_| (##structure gx#syntax-quote::t 'module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127480_| + (define |gx[1]#_g127754_| (##structure gx#syntax-quote::t 'module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127481_| + (define |gx[1]#_g127755_| (##structure gx#syntax-quote::t 'module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127482_| + (define |gx[1]#_g127756_| (##structure gx#syntax-quote::t 'module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127483_| + (define |gx[1]#_g127757_| (##structure gx#syntax-quote::t 'module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127485_| + (define |gx[1]#_g127759_| (##structure gx#syntax-quote::t '&module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g127486_| + (define |gx[1]#_g127760_| (##structure gx#syntax-quote::t '&module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g127487_| + (define |gx[1]#_g127761_| (##structure gx#syntax-quote::t '&module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127488_| + (define |gx[1]#_g127762_| (##structure gx#syntax-quote::t '&module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g127489_| + (define |gx[1]#_g127763_| (##structure gx#syntax-quote::t '&module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g127491_| + (define |gx[1]#_g127765_| (##structure gx#syntax-quote::t '&module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127492_| + (define |gx[1]#_g127766_| (##structure gx#syntax-quote::t '&module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127493_| + (define |gx[1]#_g127767_| (##structure gx#syntax-quote::t '&module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127494_| + (define |gx[1]#_g127768_| (##structure gx#syntax-quote::t '&module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127495_| + (define |gx[1]#_g127769_| (##structure gx#syntax-quote::t '&module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127497_| + (define |gx[1]#_g127771_| (##structure gx#syntax-quote::t 'import-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g127499_| + (define |gx[1]#_g127773_| (##structure gx#syntax-quote::t 'make-import-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g127501_| + (define |gx[1]#_g127775_| (##structure gx#syntax-quote::t 'import-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g127503_| + (define |gx[1]#_g127777_| (##structure gx#syntax-quote::t 'import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g127504_| + (define |gx[1]#_g127778_| (##structure gx#syntax-quote::t 'import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127505_| + (define |gx[1]#_g127779_| (##structure gx#syntax-quote::t 'import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g127507_| + (define |gx[1]#_g127781_| (##structure gx#syntax-quote::t 'import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127508_| + (define |gx[1]#_g127782_| (##structure gx#syntax-quote::t 'import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127509_| + (define |gx[1]#_g127783_| (##structure gx#syntax-quote::t 'import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127511_| + (define |gx[1]#_g127785_| (##structure gx#syntax-quote::t '&import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g127512_| + (define |gx[1]#_g127786_| (##structure gx#syntax-quote::t '&import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127513_| + (define |gx[1]#_g127787_| (##structure gx#syntax-quote::t '&import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g127515_| + (define |gx[1]#_g127789_| (##structure gx#syntax-quote::t '&import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127516_| + (define |gx[1]#_g127790_| (##structure gx#syntax-quote::t '&import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127517_| + (define |gx[1]#_g127791_| (##structure gx#syntax-quote::t '&import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127519_| + (define |gx[1]#_g127793_| (##structure gx#syntax-quote::t 'export-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g127521_| + (define |gx[1]#_g127795_| (##structure gx#syntax-quote::t 'make-export-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g127523_| + (define |gx[1]#_g127797_| (##structure gx#syntax-quote::t 'export-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g127525_| + (define |gx[1]#_g127799_| (##structure gx#syntax-quote::t 'export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g127526_| + (define |gx[1]#_g127800_| (##structure gx#syntax-quote::t 'export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127527_| + (define |gx[1]#_g127801_| (##structure gx#syntax-quote::t 'export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g127529_| + (define |gx[1]#_g127803_| (##structure gx#syntax-quote::t 'export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127530_| + (define |gx[1]#_g127804_| (##structure gx#syntax-quote::t 'export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127531_| + (define |gx[1]#_g127805_| (##structure gx#syntax-quote::t 'export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127533_| + (define |gx[1]#_g127807_| (##structure gx#syntax-quote::t '&export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g127534_| + (define |gx[1]#_g127808_| (##structure gx#syntax-quote::t '&export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127535_| + (define |gx[1]#_g127809_| (##structure gx#syntax-quote::t '&export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g127537_| + (define |gx[1]#_g127811_| (##structure gx#syntax-quote::t '&export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127538_| + (define |gx[1]#_g127812_| (##structure gx#syntax-quote::t '&export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127539_| + (define |gx[1]#_g127813_| (##structure gx#syntax-quote::t '&export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127541_| + (define |gx[1]#_g127815_| (##structure gx#syntax-quote::t 'user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g127543_| + (define |gx[1]#_g127817_| (##structure gx#syntax-quote::t 'import-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g127545_| + (define |gx[1]#_g127819_| (##structure gx#syntax-quote::t 'make-import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g127547_| + (define |gx[1]#_g127821_| (##structure gx#syntax-quote::t 'import-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g127549_| + (define |gx[1]#_g127823_| (##structure gx#syntax-quote::t 'import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g127550_| + (define |gx[1]#_g127824_| (##structure gx#syntax-quote::t 'import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127551_| + (define |gx[1]#_g127825_| (##structure gx#syntax-quote::t 'import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g127553_| + (define |gx[1]#_g127827_| (##structure gx#syntax-quote::t 'import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127554_| + (define |gx[1]#_g127828_| (##structure gx#syntax-quote::t 'import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127555_| + (define |gx[1]#_g127829_| (##structure gx#syntax-quote::t 'import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127557_| + (define |gx[1]#_g127831_| (##structure gx#syntax-quote::t '&import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g127558_| + (define |gx[1]#_g127832_| (##structure gx#syntax-quote::t '&import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127559_| + (define |gx[1]#_g127833_| (##structure gx#syntax-quote::t '&import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g127561_| + (define |gx[1]#_g127835_| (##structure gx#syntax-quote::t '&import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127562_| + (define |gx[1]#_g127836_| (##structure gx#syntax-quote::t '&import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127563_| + (define |gx[1]#_g127837_| (##structure gx#syntax-quote::t '&import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127566_| + (define |gx[1]#_g127840_| (##structure gx#syntax-quote::t 'export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g127568_| + (define |gx[1]#_g127842_| (##structure gx#syntax-quote::t 'make-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g127570_| + (define |gx[1]#_g127844_| (##structure gx#syntax-quote::t 'export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g127572_| + (define |gx[1]#_g127846_| (##structure gx#syntax-quote::t 'export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g127573_| + (define |gx[1]#_g127847_| (##structure gx#syntax-quote::t 'export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127574_| + (define |gx[1]#_g127848_| (##structure gx#syntax-quote::t 'export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g127576_| + (define |gx[1]#_g127850_| (##structure gx#syntax-quote::t 'export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127577_| + (define |gx[1]#_g127851_| (##structure gx#syntax-quote::t 'export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127578_| + (define |gx[1]#_g127852_| (##structure gx#syntax-quote::t 'export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127580_| + (define |gx[1]#_g127854_| (##structure gx#syntax-quote::t '&export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g127581_| + (define |gx[1]#_g127855_| (##structure gx#syntax-quote::t '&export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127582_| + (define |gx[1]#_g127856_| (##structure gx#syntax-quote::t '&export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g127584_| + (define |gx[1]#_g127858_| (##structure gx#syntax-quote::t '&export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127585_| + (define |gx[1]#_g127859_| (##structure gx#syntax-quote::t '&export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127586_| + (define |gx[1]#_g127860_| (##structure gx#syntax-quote::t '&export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127588_| + (define |gx[1]#_g127862_| (##structure gx#syntax-quote::t 'import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g127589_| + (define |gx[1]#_g127863_| (##structure gx#syntax-quote::t 'export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g127591_| + (define |gx[1]#_g127865_| (##structure gx#syntax-quote::t 'import-export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g127593_| + (define |gx[1]#_g127867_| (##structure gx#syntax-quote::t 'make-import-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g127595_| + (define |gx[1]#_g127869_| (##structure gx#syntax-quote::t 'import-export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g127597_| + (define |gx[1]#_g127871_| (##structure gx#syntax-quote::t 'import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g127598_| + (define |gx[1]#_g127872_| (##structure gx#syntax-quote::t 'import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127599_| + (define |gx[1]#_g127873_| (##structure gx#syntax-quote::t 'import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g127601_| + (define |gx[1]#_g127875_| (##structure gx#syntax-quote::t 'import-export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127602_| + (define |gx[1]#_g127876_| (##structure gx#syntax-quote::t 'import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127603_| + (define |gx[1]#_g127877_| (##structure gx#syntax-quote::t 'import-export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127605_| + (define |gx[1]#_g127879_| (##structure gx#syntax-quote::t '&import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g127606_| + (define |gx[1]#_g127880_| (##structure gx#syntax-quote::t '&import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g127607_| + (define |gx[1]#_g127881_| (##structure gx#syntax-quote::t '&import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g127609_| + (define |gx[1]#_g127883_| (##structure gx#syntax-quote::t '&import-export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127610_| + (define |gx[1]#_g127884_| (##structure gx#syntax-quote::t '&import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g127611_| + (define |gx[1]#_g127885_| (##structure gx#syntax-quote::t '&import-export-expander-e-set! @@ -842,7 +842,7 @@ '())) (begin (define |gx[:0:]#module-import| - (let ((__obj127395 + (let ((__obj127669 (let () (declare (not safe)) (##structure @@ -871,18 +871,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj127395 + __obj127669 'gx#module-import::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127395 'module-import '2 '#f '#f)) + (##unchecked-structure-set! __obj127669 'module-import '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj127395 + __obj127669 '(source name phi weak?) '4 '#f @@ -890,79 +890,79 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj127395 + __obj127669 '(source name phi weak?) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127395 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj127669 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127395 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj127669 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127395 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj127669 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127395 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj127669 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127395 '#f '11 '#f '#f)) - (let ((__tmp127440 |gx[1]#_g127441_|)) + (##unchecked-structure-set! __obj127669 '#f '11 '#f '#f)) + (let ((__tmp127714 |gx[1]#_g127715_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127395 __tmp127440 '12 '#f '#f)) - (let ((__tmp127442 |gx[1]#_g127443_|)) + (##unchecked-structure-set! __obj127669 __tmp127714 '12 '#f '#f)) + (let ((__tmp127716 |gx[1]#_g127717_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127395 __tmp127442 '13 '#f '#f)) - (let ((__tmp127444 |gx[1]#_g127445_|)) + (##unchecked-structure-set! __obj127669 __tmp127716 '13 '#f '#f)) + (let ((__tmp127718 |gx[1]#_g127719_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127395 __tmp127444 '14 '#f '#f)) - (let ((__tmp127446 - (cons (cons 'source |gx[1]#_g127447_|) - (cons (cons 'name |gx[1]#_g127448_|) - (cons (cons 'phi |gx[1]#_g127449_|) - (cons (cons 'weak? |gx[1]#_g127450_|) + (##unchecked-structure-set! __obj127669 __tmp127718 '14 '#f '#f)) + (let ((__tmp127720 + (cons (cons 'source |gx[1]#_g127721_|) + (cons (cons 'name |gx[1]#_g127722_|) + (cons (cons 'phi |gx[1]#_g127723_|) + (cons (cons 'weak? |gx[1]#_g127724_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj127395 __tmp127446 '15 '#f '#f)) - (let ((__tmp127451 - (cons (cons 'source |gx[1]#_g127452_|) - (cons (cons 'name |gx[1]#_g127453_|) - (cons (cons 'phi |gx[1]#_g127454_|) - (cons (cons 'weak? |gx[1]#_g127455_|) + (##unchecked-structure-set! __obj127669 __tmp127720 '15 '#f '#f)) + (let ((__tmp127725 + (cons (cons 'source |gx[1]#_g127726_|) + (cons (cons 'name |gx[1]#_g127727_|) + (cons (cons 'phi |gx[1]#_g127728_|) + (cons (cons 'weak? |gx[1]#_g127729_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj127395 __tmp127451 '16 '#f '#f)) - (let ((__tmp127456 - (cons (cons 'source |gx[1]#_g127457_|) - (cons (cons 'name |gx[1]#_g127458_|) - (cons (cons 'phi |gx[1]#_g127459_|) - (cons (cons 'weak? |gx[1]#_g127460_|) + (##unchecked-structure-set! __obj127669 __tmp127725 '16 '#f '#f)) + (let ((__tmp127730 + (cons (cons 'source |gx[1]#_g127731_|) + (cons (cons 'name |gx[1]#_g127732_|) + (cons (cons 'phi |gx[1]#_g127733_|) + (cons (cons 'weak? |gx[1]#_g127734_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj127395 __tmp127456 '17 '#f '#f)) - (let ((__tmp127461 - (cons (cons 'source |gx[1]#_g127462_|) - (cons (cons 'name |gx[1]#_g127463_|) - (cons (cons 'phi |gx[1]#_g127464_|) - (cons (cons 'weak? |gx[1]#_g127465_|) + (##unchecked-structure-set! __obj127669 __tmp127730 '17 '#f '#f)) + (let ((__tmp127735 + (cons (cons 'source |gx[1]#_g127736_|) + (cons (cons 'name |gx[1]#_g127737_|) + (cons (cons 'phi |gx[1]#_g127738_|) + (cons (cons 'weak? |gx[1]#_g127739_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj127395 __tmp127461 '18 '#f '#f)) + (##unchecked-structure-set! __obj127669 __tmp127735 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127395 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj127669 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127395 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj127669 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127395 '() '20 '#f '#f)) - __obj127395)) + (##unchecked-structure-set! __obj127669 '() '20 '#f '#f)) + __obj127669)) (define |gx[:0:]#module-export| - (let ((__obj127396 + (let ((__obj127670 (let () (declare (not safe)) (##structure @@ -991,18 +991,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj127396 + __obj127670 'gx#module-export::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127396 'module-export '2 '#f '#f)) + (##unchecked-structure-set! __obj127670 'module-export '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj127396 + __obj127670 '(context key phi name weak?) '4 '#f @@ -1010,83 +1010,83 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj127396 + __obj127670 '(context key phi name weak?) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127396 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj127670 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127396 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj127670 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127396 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj127670 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127396 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj127670 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127396 '#f '11 '#f '#f)) - (let ((__tmp127466 |gx[1]#_g127467_|)) + (##unchecked-structure-set! __obj127670 '#f '11 '#f '#f)) + (let ((__tmp127740 |gx[1]#_g127741_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127396 __tmp127466 '12 '#f '#f)) - (let ((__tmp127468 |gx[1]#_g127469_|)) + (##unchecked-structure-set! __obj127670 __tmp127740 '12 '#f '#f)) + (let ((__tmp127742 |gx[1]#_g127743_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127396 __tmp127468 '13 '#f '#f)) - (let ((__tmp127470 |gx[1]#_g127471_|)) + (##unchecked-structure-set! __obj127670 __tmp127742 '13 '#f '#f)) + (let ((__tmp127744 |gx[1]#_g127745_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127396 __tmp127470 '14 '#f '#f)) - (let ((__tmp127472 - (cons (cons 'context |gx[1]#_g127473_|) - (cons (cons 'key |gx[1]#_g127474_|) - (cons (cons 'phi |gx[1]#_g127475_|) - (cons (cons 'name |gx[1]#_g127476_|) - (cons (cons 'weak? |gx[1]#_g127477_|) + (##unchecked-structure-set! __obj127670 __tmp127744 '14 '#f '#f)) + (let ((__tmp127746 + (cons (cons 'context |gx[1]#_g127747_|) + (cons (cons 'key |gx[1]#_g127748_|) + (cons (cons 'phi |gx[1]#_g127749_|) + (cons (cons 'name |gx[1]#_g127750_|) + (cons (cons 'weak? |gx[1]#_g127751_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj127396 __tmp127472 '15 '#f '#f)) - (let ((__tmp127478 - (cons (cons 'context |gx[1]#_g127479_|) - (cons (cons 'key |gx[1]#_g127480_|) - (cons (cons 'phi |gx[1]#_g127481_|) - (cons (cons 'name |gx[1]#_g127482_|) - (cons (cons 'weak? |gx[1]#_g127483_|) + (##unchecked-structure-set! __obj127670 __tmp127746 '15 '#f '#f)) + (let ((__tmp127752 + (cons (cons 'context |gx[1]#_g127753_|) + (cons (cons 'key |gx[1]#_g127754_|) + (cons (cons 'phi |gx[1]#_g127755_|) + (cons (cons 'name |gx[1]#_g127756_|) + (cons (cons 'weak? |gx[1]#_g127757_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj127396 __tmp127478 '16 '#f '#f)) - (let ((__tmp127484 - (cons (cons 'context |gx[1]#_g127485_|) - (cons (cons 'key |gx[1]#_g127486_|) - (cons (cons 'phi |gx[1]#_g127487_|) - (cons (cons 'name |gx[1]#_g127488_|) - (cons (cons 'weak? |gx[1]#_g127489_|) + (##unchecked-structure-set! __obj127670 __tmp127752 '16 '#f '#f)) + (let ((__tmp127758 + (cons (cons 'context |gx[1]#_g127759_|) + (cons (cons 'key |gx[1]#_g127760_|) + (cons (cons 'phi |gx[1]#_g127761_|) + (cons (cons 'name |gx[1]#_g127762_|) + (cons (cons 'weak? |gx[1]#_g127763_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj127396 __tmp127484 '17 '#f '#f)) - (let ((__tmp127490 - (cons (cons 'context |gx[1]#_g127491_|) - (cons (cons 'key |gx[1]#_g127492_|) - (cons (cons 'phi |gx[1]#_g127493_|) - (cons (cons 'name |gx[1]#_g127494_|) - (cons (cons 'weak? |gx[1]#_g127495_|) + (##unchecked-structure-set! __obj127670 __tmp127758 '17 '#f '#f)) + (let ((__tmp127764 + (cons (cons 'context |gx[1]#_g127765_|) + (cons (cons 'key |gx[1]#_g127766_|) + (cons (cons 'phi |gx[1]#_g127767_|) + (cons (cons 'name |gx[1]#_g127768_|) + (cons (cons 'weak? |gx[1]#_g127769_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj127396 __tmp127490 '18 '#f '#f)) + (##unchecked-structure-set! __obj127670 __tmp127764 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127396 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj127670 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127396 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj127670 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127396 '() '20 '#f '#f)) - __obj127396)) + (##unchecked-structure-set! __obj127670 '() '20 '#f '#f)) + __obj127670)) (define |gx[:0:]#import-set| - (let ((__obj127397 + (let ((__obj127671 (let () (declare (not safe)) (##structure @@ -1115,18 +1115,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj127397 + __obj127671 'gx#import-set::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127397 'import-set '2 '#f '#f)) + (##unchecked-structure-set! __obj127671 'import-set '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj127397 + __obj127671 '(source phi imports) '4 '#f @@ -1134,71 +1134,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj127397 + __obj127671 '(source phi imports) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127397 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj127671 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127397 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj127671 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127397 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj127671 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127397 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj127671 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127397 '#f '11 '#f '#f)) - (let ((__tmp127496 |gx[1]#_g127497_|)) + (##unchecked-structure-set! __obj127671 '#f '11 '#f '#f)) + (let ((__tmp127770 |gx[1]#_g127771_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127397 __tmp127496 '12 '#f '#f)) - (let ((__tmp127498 |gx[1]#_g127499_|)) + (##unchecked-structure-set! __obj127671 __tmp127770 '12 '#f '#f)) + (let ((__tmp127772 |gx[1]#_g127773_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127397 __tmp127498 '13 '#f '#f)) - (let ((__tmp127500 |gx[1]#_g127501_|)) + (##unchecked-structure-set! __obj127671 __tmp127772 '13 '#f '#f)) + (let ((__tmp127774 |gx[1]#_g127775_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127397 __tmp127500 '14 '#f '#f)) - (let ((__tmp127502 - (cons (cons 'source |gx[1]#_g127503_|) - (cons (cons 'phi |gx[1]#_g127504_|) - (cons (cons 'imports |gx[1]#_g127505_|) '()))))) + (##unchecked-structure-set! __obj127671 __tmp127774 '14 '#f '#f)) + (let ((__tmp127776 + (cons (cons 'source |gx[1]#_g127777_|) + (cons (cons 'phi |gx[1]#_g127778_|) + (cons (cons 'imports |gx[1]#_g127779_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127397 __tmp127502 '15 '#f '#f)) - (let ((__tmp127506 - (cons (cons 'source |gx[1]#_g127507_|) - (cons (cons 'phi |gx[1]#_g127508_|) - (cons (cons 'imports |gx[1]#_g127509_|) '()))))) + (##unchecked-structure-set! __obj127671 __tmp127776 '15 '#f '#f)) + (let ((__tmp127780 + (cons (cons 'source |gx[1]#_g127781_|) + (cons (cons 'phi |gx[1]#_g127782_|) + (cons (cons 'imports |gx[1]#_g127783_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127397 __tmp127506 '16 '#f '#f)) - (let ((__tmp127510 - (cons (cons 'source |gx[1]#_g127511_|) - (cons (cons 'phi |gx[1]#_g127512_|) - (cons (cons 'imports |gx[1]#_g127513_|) '()))))) + (##unchecked-structure-set! __obj127671 __tmp127780 '16 '#f '#f)) + (let ((__tmp127784 + (cons (cons 'source |gx[1]#_g127785_|) + (cons (cons 'phi |gx[1]#_g127786_|) + (cons (cons 'imports |gx[1]#_g127787_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127397 __tmp127510 '17 '#f '#f)) - (let ((__tmp127514 - (cons (cons 'source |gx[1]#_g127515_|) - (cons (cons 'phi |gx[1]#_g127516_|) - (cons (cons 'imports |gx[1]#_g127517_|) '()))))) + (##unchecked-structure-set! __obj127671 __tmp127784 '17 '#f '#f)) + (let ((__tmp127788 + (cons (cons 'source |gx[1]#_g127789_|) + (cons (cons 'phi |gx[1]#_g127790_|) + (cons (cons 'imports |gx[1]#_g127791_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127397 __tmp127514 '18 '#f '#f)) + (##unchecked-structure-set! __obj127671 __tmp127788 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127397 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj127671 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127397 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj127671 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127397 '() '20 '#f '#f)) - __obj127397)) + (##unchecked-structure-set! __obj127671 '() '20 '#f '#f)) + __obj127671)) (define |gx[:0:]#export-set| - (let ((__obj127398 + (let ((__obj127672 (let () (declare (not safe)) (##structure @@ -1227,18 +1227,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj127398 + __obj127672 'gx#export-set::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127398 'export-set '2 '#f '#f)) + (##unchecked-structure-set! __obj127672 'export-set '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj127398 + __obj127672 '(source phi exports) '4 '#f @@ -1246,71 +1246,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj127398 + __obj127672 '(source phi exports) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127398 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj127672 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127398 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj127672 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127398 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj127672 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127398 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj127672 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127398 '#f '11 '#f '#f)) - (let ((__tmp127518 |gx[1]#_g127519_|)) + (##unchecked-structure-set! __obj127672 '#f '11 '#f '#f)) + (let ((__tmp127792 |gx[1]#_g127793_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127398 __tmp127518 '12 '#f '#f)) - (let ((__tmp127520 |gx[1]#_g127521_|)) + (##unchecked-structure-set! __obj127672 __tmp127792 '12 '#f '#f)) + (let ((__tmp127794 |gx[1]#_g127795_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127398 __tmp127520 '13 '#f '#f)) - (let ((__tmp127522 |gx[1]#_g127523_|)) + (##unchecked-structure-set! __obj127672 __tmp127794 '13 '#f '#f)) + (let ((__tmp127796 |gx[1]#_g127797_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127398 __tmp127522 '14 '#f '#f)) - (let ((__tmp127524 - (cons (cons 'source |gx[1]#_g127525_|) - (cons (cons 'phi |gx[1]#_g127526_|) - (cons (cons 'exports |gx[1]#_g127527_|) '()))))) + (##unchecked-structure-set! __obj127672 __tmp127796 '14 '#f '#f)) + (let ((__tmp127798 + (cons (cons 'source |gx[1]#_g127799_|) + (cons (cons 'phi |gx[1]#_g127800_|) + (cons (cons 'exports |gx[1]#_g127801_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127398 __tmp127524 '15 '#f '#f)) - (let ((__tmp127528 - (cons (cons 'source |gx[1]#_g127529_|) - (cons (cons 'phi |gx[1]#_g127530_|) - (cons (cons 'exports |gx[1]#_g127531_|) '()))))) + (##unchecked-structure-set! __obj127672 __tmp127798 '15 '#f '#f)) + (let ((__tmp127802 + (cons (cons 'source |gx[1]#_g127803_|) + (cons (cons 'phi |gx[1]#_g127804_|) + (cons (cons 'exports |gx[1]#_g127805_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127398 __tmp127528 '16 '#f '#f)) - (let ((__tmp127532 - (cons (cons 'source |gx[1]#_g127533_|) - (cons (cons 'phi |gx[1]#_g127534_|) - (cons (cons 'exports |gx[1]#_g127535_|) '()))))) + (##unchecked-structure-set! __obj127672 __tmp127802 '16 '#f '#f)) + (let ((__tmp127806 + (cons (cons 'source |gx[1]#_g127807_|) + (cons (cons 'phi |gx[1]#_g127808_|) + (cons (cons 'exports |gx[1]#_g127809_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127398 __tmp127532 '17 '#f '#f)) - (let ((__tmp127536 - (cons (cons 'source |gx[1]#_g127537_|) - (cons (cons 'phi |gx[1]#_g127538_|) - (cons (cons 'exports |gx[1]#_g127539_|) '()))))) + (##unchecked-structure-set! __obj127672 __tmp127806 '17 '#f '#f)) + (let ((__tmp127810 + (cons (cons 'source |gx[1]#_g127811_|) + (cons (cons 'phi |gx[1]#_g127812_|) + (cons (cons 'exports |gx[1]#_g127813_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127398 __tmp127536 '18 '#f '#f)) + (##unchecked-structure-set! __obj127672 __tmp127810 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127398 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj127672 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127398 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj127672 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127398 '() '20 '#f '#f)) - __obj127398)) + (##unchecked-structure-set! __obj127672 '() '20 '#f '#f)) + __obj127672)) (define |gx[:0:]#import-expander| - (let ((__obj127399 + (let ((__obj127673 (let () (declare (not safe)) (##structure @@ -1339,80 +1339,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj127399 + __obj127673 'gx#import-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127399 'import-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj127673 'import-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127399 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj127673 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127399 '(e context phi) '6 '#f '#f)) - (let ((__tmp127540 (cons |gx[1]#_g127541_| '()))) + (##unchecked-structure-set! __obj127673 '(e context phi) '6 '#f '#f)) + (let ((__tmp127814 (cons |gx[1]#_g127815_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj127399 __tmp127540 '3 '#f '#f)) + (##unchecked-structure-set! __obj127673 __tmp127814 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127399 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj127673 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127399 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj127673 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127399 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj127673 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127399 ':init! '11 '#f '#f)) - (let ((__tmp127542 |gx[1]#_g127543_|)) + (##unchecked-structure-set! __obj127673 ':init! '11 '#f '#f)) + (let ((__tmp127816 |gx[1]#_g127817_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127399 __tmp127542 '12 '#f '#f)) - (let ((__tmp127544 |gx[1]#_g127545_|)) + (##unchecked-structure-set! __obj127673 __tmp127816 '12 '#f '#f)) + (let ((__tmp127818 |gx[1]#_g127819_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127399 __tmp127544 '13 '#f '#f)) - (let ((__tmp127546 |gx[1]#_g127547_|)) + (##unchecked-structure-set! __obj127673 __tmp127818 '13 '#f '#f)) + (let ((__tmp127820 |gx[1]#_g127821_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127399 __tmp127546 '14 '#f '#f)) - (let ((__tmp127548 - (cons (cons 'context |gx[1]#_g127549_|) - (cons (cons 'phi |gx[1]#_g127550_|) - (cons (cons 'e |gx[1]#_g127551_|) '()))))) + (##unchecked-structure-set! __obj127673 __tmp127820 '14 '#f '#f)) + (let ((__tmp127822 + (cons (cons 'context |gx[1]#_g127823_|) + (cons (cons 'phi |gx[1]#_g127824_|) + (cons (cons 'e |gx[1]#_g127825_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127399 __tmp127548 '15 '#f '#f)) - (let ((__tmp127552 - (cons (cons 'context |gx[1]#_g127553_|) - (cons (cons 'phi |gx[1]#_g127554_|) - (cons (cons 'e |gx[1]#_g127555_|) '()))))) + (##unchecked-structure-set! __obj127673 __tmp127822 '15 '#f '#f)) + (let ((__tmp127826 + (cons (cons 'context |gx[1]#_g127827_|) + (cons (cons 'phi |gx[1]#_g127828_|) + (cons (cons 'e |gx[1]#_g127829_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127399 __tmp127552 '16 '#f '#f)) - (let ((__tmp127556 - (cons (cons 'context |gx[1]#_g127557_|) - (cons (cons 'phi |gx[1]#_g127558_|) - (cons (cons 'e |gx[1]#_g127559_|) '()))))) + (##unchecked-structure-set! __obj127673 __tmp127826 '16 '#f '#f)) + (let ((__tmp127830 + (cons (cons 'context |gx[1]#_g127831_|) + (cons (cons 'phi |gx[1]#_g127832_|) + (cons (cons 'e |gx[1]#_g127833_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127399 __tmp127556 '17 '#f '#f)) - (let ((__tmp127560 - (cons (cons 'context |gx[1]#_g127561_|) - (cons (cons 'phi |gx[1]#_g127562_|) - (cons (cons 'e |gx[1]#_g127563_|) '()))))) + (##unchecked-structure-set! __obj127673 __tmp127830 '17 '#f '#f)) + (let ((__tmp127834 + (cons (cons 'context |gx[1]#_g127835_|) + (cons (cons 'phi |gx[1]#_g127836_|) + (cons (cons 'e |gx[1]#_g127837_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127399 __tmp127560 '18 '#f '#f)) + (##unchecked-structure-set! __obj127673 __tmp127834 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127399 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj127673 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127399 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj127673 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127399 '() '20 '#f '#f)) - __obj127399)) + (##unchecked-structure-set! __obj127673 '() '20 '#f '#f)) + __obj127673)) (define |gx[:0:]#export-expander| - (let ((__obj127400 + (let ((__obj127674 (let () (declare (not safe)) (##structure @@ -1441,80 +1441,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj127400 + __obj127674 'gx#export-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127400 'export-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj127674 'export-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127400 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj127674 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127400 '(e context phi) '6 '#f '#f)) - (let ((__tmp127564 (cons |gx[1]#_g127541_| '()))) + (##unchecked-structure-set! __obj127674 '(e context phi) '6 '#f '#f)) + (let ((__tmp127838 (cons |gx[1]#_g127815_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj127400 __tmp127564 '3 '#f '#f)) + (##unchecked-structure-set! __obj127674 __tmp127838 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127400 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj127674 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127400 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj127674 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127400 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj127674 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127400 ':init! '11 '#f '#f)) - (let ((__tmp127565 |gx[1]#_g127566_|)) + (##unchecked-structure-set! __obj127674 ':init! '11 '#f '#f)) + (let ((__tmp127839 |gx[1]#_g127840_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127400 __tmp127565 '12 '#f '#f)) - (let ((__tmp127567 |gx[1]#_g127568_|)) + (##unchecked-structure-set! __obj127674 __tmp127839 '12 '#f '#f)) + (let ((__tmp127841 |gx[1]#_g127842_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127400 __tmp127567 '13 '#f '#f)) - (let ((__tmp127569 |gx[1]#_g127570_|)) + (##unchecked-structure-set! __obj127674 __tmp127841 '13 '#f '#f)) + (let ((__tmp127843 |gx[1]#_g127844_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127400 __tmp127569 '14 '#f '#f)) - (let ((__tmp127571 - (cons (cons 'context |gx[1]#_g127572_|) - (cons (cons 'phi |gx[1]#_g127573_|) - (cons (cons 'e |gx[1]#_g127574_|) '()))))) + (##unchecked-structure-set! __obj127674 __tmp127843 '14 '#f '#f)) + (let ((__tmp127845 + (cons (cons 'context |gx[1]#_g127846_|) + (cons (cons 'phi |gx[1]#_g127847_|) + (cons (cons 'e |gx[1]#_g127848_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127400 __tmp127571 '15 '#f '#f)) - (let ((__tmp127575 - (cons (cons 'context |gx[1]#_g127576_|) - (cons (cons 'phi |gx[1]#_g127577_|) - (cons (cons 'e |gx[1]#_g127578_|) '()))))) + (##unchecked-structure-set! __obj127674 __tmp127845 '15 '#f '#f)) + (let ((__tmp127849 + (cons (cons 'context |gx[1]#_g127850_|) + (cons (cons 'phi |gx[1]#_g127851_|) + (cons (cons 'e |gx[1]#_g127852_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127400 __tmp127575 '16 '#f '#f)) - (let ((__tmp127579 - (cons (cons 'context |gx[1]#_g127580_|) - (cons (cons 'phi |gx[1]#_g127581_|) - (cons (cons 'e |gx[1]#_g127582_|) '()))))) + (##unchecked-structure-set! __obj127674 __tmp127849 '16 '#f '#f)) + (let ((__tmp127853 + (cons (cons 'context |gx[1]#_g127854_|) + (cons (cons 'phi |gx[1]#_g127855_|) + (cons (cons 'e |gx[1]#_g127856_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127400 __tmp127579 '17 '#f '#f)) - (let ((__tmp127583 - (cons (cons 'context |gx[1]#_g127584_|) - (cons (cons 'phi |gx[1]#_g127585_|) - (cons (cons 'e |gx[1]#_g127586_|) '()))))) + (##unchecked-structure-set! __obj127674 __tmp127853 '17 '#f '#f)) + (let ((__tmp127857 + (cons (cons 'context |gx[1]#_g127858_|) + (cons (cons 'phi |gx[1]#_g127859_|) + (cons (cons 'e |gx[1]#_g127860_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127400 __tmp127583 '18 '#f '#f)) + (##unchecked-structure-set! __obj127674 __tmp127857 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127400 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj127674 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127400 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj127674 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127400 '() '20 '#f '#f)) - __obj127400)) + (##unchecked-structure-set! __obj127674 '() '20 '#f '#f)) + __obj127674)) (define |gx[:0:]#import-export-expander| - (let ((__obj127401 + (let ((__obj127675 (let () (declare (not safe)) (##structure @@ -1543,7 +1543,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj127401 + __obj127675 'gx#import-export-expander::t '1 '#f @@ -1551,73 +1551,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj127401 + __obj127675 'import-export-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127401 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj127675 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127401 '(e context phi) '6 '#f '#f)) - (let ((__tmp127587 - (cons |gx[1]#_g127588_| (cons |gx[1]#_g127589_| '())))) + (##unchecked-structure-set! __obj127675 '(e context phi) '6 '#f '#f)) + (let ((__tmp127861 + (cons |gx[1]#_g127862_| (cons |gx[1]#_g127863_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj127401 __tmp127587 '3 '#f '#f)) + (##unchecked-structure-set! __obj127675 __tmp127861 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127401 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj127675 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127401 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj127675 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127401 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj127675 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127401 ':init! '11 '#f '#f)) - (let ((__tmp127590 |gx[1]#_g127591_|)) + (##unchecked-structure-set! __obj127675 ':init! '11 '#f '#f)) + (let ((__tmp127864 |gx[1]#_g127865_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127401 __tmp127590 '12 '#f '#f)) - (let ((__tmp127592 |gx[1]#_g127593_|)) + (##unchecked-structure-set! __obj127675 __tmp127864 '12 '#f '#f)) + (let ((__tmp127866 |gx[1]#_g127867_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127401 __tmp127592 '13 '#f '#f)) - (let ((__tmp127594 |gx[1]#_g127595_|)) + (##unchecked-structure-set! __obj127675 __tmp127866 '13 '#f '#f)) + (let ((__tmp127868 |gx[1]#_g127869_|)) (declare (not safe)) - (##unchecked-structure-set! __obj127401 __tmp127594 '14 '#f '#f)) - (let ((__tmp127596 - (cons (cons 'context |gx[1]#_g127597_|) - (cons (cons 'phi |gx[1]#_g127598_|) - (cons (cons 'e |gx[1]#_g127599_|) '()))))) + (##unchecked-structure-set! __obj127675 __tmp127868 '14 '#f '#f)) + (let ((__tmp127870 + (cons (cons 'context |gx[1]#_g127871_|) + (cons (cons 'phi |gx[1]#_g127872_|) + (cons (cons 'e |gx[1]#_g127873_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127401 __tmp127596 '15 '#f '#f)) - (let ((__tmp127600 - (cons (cons 'context |gx[1]#_g127601_|) - (cons (cons 'phi |gx[1]#_g127602_|) - (cons (cons 'e |gx[1]#_g127603_|) '()))))) + (##unchecked-structure-set! __obj127675 __tmp127870 '15 '#f '#f)) + (let ((__tmp127874 + (cons (cons 'context |gx[1]#_g127875_|) + (cons (cons 'phi |gx[1]#_g127876_|) + (cons (cons 'e |gx[1]#_g127877_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127401 __tmp127600 '16 '#f '#f)) - (let ((__tmp127604 - (cons (cons 'context |gx[1]#_g127605_|) - (cons (cons 'phi |gx[1]#_g127606_|) - (cons (cons 'e |gx[1]#_g127607_|) '()))))) + (##unchecked-structure-set! __obj127675 __tmp127874 '16 '#f '#f)) + (let ((__tmp127878 + (cons (cons 'context |gx[1]#_g127879_|) + (cons (cons 'phi |gx[1]#_g127880_|) + (cons (cons 'e |gx[1]#_g127881_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127401 __tmp127604 '17 '#f '#f)) - (let ((__tmp127608 - (cons (cons 'context |gx[1]#_g127609_|) - (cons (cons 'phi |gx[1]#_g127610_|) - (cons (cons 'e |gx[1]#_g127611_|) '()))))) + (##unchecked-structure-set! __obj127675 __tmp127878 '17 '#f '#f)) + (let ((__tmp127882 + (cons (cons 'context |gx[1]#_g127883_|) + (cons (cons 'phi |gx[1]#_g127884_|) + (cons (cons 'e |gx[1]#_g127885_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj127401 __tmp127608 '18 '#f '#f)) + (##unchecked-structure-set! __obj127675 __tmp127882 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127401 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj127675 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127401 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj127675 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj127401 '() '20 '#f '#f)) - __obj127401)))) + (##unchecked-structure-set! __obj127675 '() '20 '#f '#f)) + __obj127675)))) diff --git a/src/bootstrap/gerbil/expander/root~0.scm b/src/bootstrap/gerbil/expander/root~0.scm index 52f504311..6c7324248 100644 --- a/src/bootstrap/gerbil/expander/root~0.scm +++ b/src/bootstrap/gerbil/expander/root~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/root::timestamp 1713044316) + (define gerbil/expander/root::timestamp 1713454411) (begin (declare (not safe)) (define gx#*core-syntax-expanders* @@ -262,603 +262,603 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (define gx#root-context:::init!__% - (lambda (_%self128802129882%_ _%bind?129884%_) - (let* ((_%self129886%_ _%self128802129882%_) - (_%self129888%_ _%self129886%_)) - (if (##fx< '2 (##structure-length _%self129888%_)) + (lambda (_%self129076130156%_ _%bind?130158%_) + (let* ((_%self130160%_ _%self129076130156%_) + (_%self130162%_ _%self130160%_)) + (if (##fx< '2 (##structure-length _%self130162%_)) (begin - (##unchecked-structure-set! _%self129888%_ 'root '1 '#f '#f) + (##unchecked-structure-set! _%self130162%_ 'root '1 '#f '#f) (##unchecked-structure-set! - _%self129888%_ + _%self130162%_ (make-hash-table-eq) '2 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self129888%_ + _%self130162%_ '2 - (##vector-length _%self129888%_))) - (if _%bind?129884%_ + (##vector-length _%self130162%_))) + (if _%bind?130158%_ (begin - (let ((__method129951 + (let ((__method130225 (__method-ref - _%self129888%_ + _%self130162%_ 'bind-core-syntax-expanders!))) - (if __method129951 - (__method129951 _%self129888%_) + (if __method130225 + (__method130225 _%self130162%_) (begin (error '"Missing method" - _%self129888%_ + _%self130162%_ 'bind-core-syntax-expanders!) '#!void))) - (let ((__method129952 + (let ((__method130226 (__method-ref - _%self129888%_ + _%self130162%_ 'bind-core-macro-expanders!))) - (if __method129952 - (__method129952 _%self129888%_) + (if __method130226 + (__method130226 _%self130162%_) (begin (error '"Missing method" - _%self129888%_ + _%self130162%_ 'bind-core-macro-expanders!) '#!void))) - (let ((__method129953 - (__method-ref _%self129888%_ 'bind-core-features!))) - (if __method129953 - (__method129953 _%self129888%_) + (let ((__method130227 + (__method-ref _%self130162%_ 'bind-core-features!))) + (if __method130227 + (__method130227 _%self130162%_) (begin (error '"Missing method" - _%self129888%_ + _%self130162%_ 'bind-core-features!) '#!void)))) '#!void)))) (define gx#root-context:::init!__0 - (lambda (_%self128802129901%_) - (let ((_%bind?129903%_ '#t)) - (gx#root-context:::init!__% _%self128802129901%_ _%bind?129903%_)))) + (lambda (_%self129076130175%_) + (let ((_%bind?130177%_ '#t)) + (gx#root-context:::init!__% _%self129076130175%_ _%bind?130177%_)))) (define gx#root-context:::init! - (lambda _g129956_ - (let ((_g129955_ (##length _g129956_))) - (cond ((##fx= _g129955_ 1) - (apply gx#root-context:::init!__0 _g129956_)) - ((##fx= _g129955_ 2) - (apply gx#root-context:::init!__% _g129956_)) + (lambda _g130230_ + (let ((_g130229_ (##length _g130230_))) + (cond ((##fx= _g130229_ 1) + (apply gx#root-context:::init!__0 _g130230_)) + ((##fx= _g130229_ 2) + (apply gx#root-context:::init!__% _g130230_)) (else (##raise-wrong-number-of-arguments-exception gx#root-context:::init! - _g129956_)))))) + _g130230_)))))) (define gx#root-context:::init!::specialize - (lambda (__klass129907 __method-table129908) - (let ((__bind-core-features!129909 + (lambda (__klass130181 __method-table130182) + (let ((__bind-core-syntax-expanders!130183 (__make-promise (lambda () - (let ((__method129912 + (let ((__method130186 (symbolic-table-ref - __method-table129908 - 'bind-core-features! - '#f))) - (if __method129912 - __method129912 - (error '"Missing method" 'bind-core-features!)))))) - (__bind-core-syntax-expanders!129910 - (__make-promise - (lambda () - (let ((__method129913 - (symbolic-table-ref - __method-table129908 + __method-table130182 'bind-core-syntax-expanders! '#f))) - (if __method129913 - __method129913 + (if __method130186 + __method130186 (error '"Missing method" 'bind-core-syntax-expanders!)))))) - (__bind-core-macro-expanders!129911 + (__bind-core-macro-expanders!130184 (__make-promise (lambda () - (let ((__method129914 + (let ((__method130187 (symbolic-table-ref - __method-table129908 + __method-table130182 'bind-core-macro-expanders! '#f))) - (if __method129914 - __method129914 + (if __method130187 + __method130187 (error '"Missing method" - 'bind-core-macro-expanders!))))))) - (let ((_%opt-lambda129880129898%_ - (lambda (_%self128802129882%_ _%bind?129884%_) - (let* ((_%self129886%_ _%self128802129882%_) - (_%self129888%_ _%self129886%_)) - (if (##fx< '2 (##structure-length _%self129888%_)) + 'bind-core-macro-expanders!)))))) + (__bind-core-features!130185 + (__make-promise + (lambda () + (let ((__method130188 + (symbolic-table-ref + __method-table130182 + 'bind-core-features! + '#f))) + (if __method130188 + __method130188 + (error '"Missing method" 'bind-core-features!))))))) + (let ((_%opt-lambda130154130172%_ + (lambda (_%self129076130156%_ _%bind?130158%_) + (let* ((_%self130160%_ _%self129076130156%_) + (_%self130162%_ _%self130160%_)) + (if (##fx< '2 (##structure-length _%self130162%_)) (begin (##unchecked-structure-set! - _%self129888%_ + _%self130162%_ 'root '1 '#f '#f) (##unchecked-structure-set! - _%self129888%_ + _%self130162%_ (make-hash-table-eq) '2 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self129888%_ + _%self130162%_ '2 - (##vector-length _%self129888%_))) - (if _%bind?129884%_ + (##vector-length _%self130162%_))) + (if _%bind?130158%_ (begin - ((force __bind-core-syntax-expanders!129910) - _%self129888%_) - ((force __bind-core-macro-expanders!129911) - _%self129888%_) - ((force __bind-core-features!129909) - _%self129888%_)) + ((force __bind-core-syntax-expanders!130183) + _%self130162%_) + ((force __bind-core-macro-expanders!130184) + _%self130162%_) + ((force __bind-core-features!130185) + _%self130162%_)) '#!void))))) - (lambda _g129958_ - (let ((_g129957_ (##length _g129958_))) - (cond ((##fx= _g129957_ 1) - (apply (lambda (_%self128802129901%_) - (let ((_%bind?129903%_ '#t)) - (_%opt-lambda129880129898%_ - _%self128802129901%_ - _%bind?129903%_))) - _g129958_)) - ((##fx= _g129957_ 2) - (apply _%opt-lambda129880129898%_ _g129958_)) + (lambda _g130232_ + (let ((_g130231_ (##length _g130232_))) + (cond ((##fx= _g130231_ 1) + (apply (lambda (_%self129076130175%_) + (let ((_%bind?130177%_ '#t)) + (_%opt-lambda130154130172%_ + _%self129076130175%_ + _%bind?130177%_))) + _g130232_)) + ((##fx= _g130231_ 2) + (apply _%opt-lambda130154130172%_ _g130232_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g129958_))))))))) + _g130232_))))))))) (bind-specializer! gx#root-context:::init! gx#root-context:::init!::specialize) (__bind-method!__% gx#root-context::t ':init! gx#root-context:::init! '#f) (define gx#top-context:::init!__% - (lambda (_%self128803129725%_ _%super129727%_) - (let* ((_%self129729%_ _%self128803129725%_) - (_%self129731%_ _%self129729%_) - (_%super129747%_ - (let ((_%$e129741%_ _%super129727%_)) - (if _%$e129741%_ - _%$e129741%_ - (let ((_%$e129744%_ (gx#core-context-root__0))) - (if _%$e129744%_ - _%$e129744%_ - (let ((__obj129954 + (lambda (_%self129077129999%_ _%super130001%_) + (let* ((_%self130003%_ _%self129077129999%_) + (_%self130005%_ _%self130003%_) + (_%super130021%_ + (let ((_%$e130015%_ _%super130001%_)) + (if _%$e130015%_ + _%$e130015%_ + (let ((_%$e130018%_ (gx#core-context-root__0))) + (if _%$e130018%_ + _%$e130018%_ + (let ((__obj130228 (##structure gx#root-context::t '#f '#f))) - (gx#root-context:::init!__0 __obj129954) - __obj129954))))))) - (if (##fx< '5 (##structure-length _%self129731%_)) + (gx#root-context:::init!__0 __obj130228) + __obj130228))))))) + (if (##fx< '5 (##structure-length _%self130005%_)) (begin - (##unchecked-structure-set! _%self129731%_ 'top '1 '#f '#f) + (##unchecked-structure-set! _%self130005%_ 'top '1 '#f '#f) (##unchecked-structure-set! - _%self129731%_ + _%self130005%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self129731%_ - _%super129747%_ + _%self130005%_ + _%super130021%_ '3 '#f '#f) - (##unchecked-structure-set! _%self129731%_ '#f '4 '#f '#f) - (##unchecked-structure-set! _%self129731%_ '#f '5 '#f '#f) + (##unchecked-structure-set! _%self130005%_ '#f '4 '#f '#f) + (##unchecked-structure-set! _%self130005%_ '#f '5 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self129731%_ + _%self130005%_ '5 - (##vector-length _%self129731%_)))))) + (##vector-length _%self130005%_)))))) (define gx#top-context:::init!__0 - (lambda (_%self128803129752%_) - (let ((_%super129754%_ '#f)) - (gx#top-context:::init!__% _%self128803129752%_ _%super129754%_)))) + (lambda (_%self129077130026%_) + (let ((_%super130028%_ '#f)) + (gx#top-context:::init!__% _%self129077130026%_ _%super130028%_)))) (define gx#top-context:::init! - (lambda _g129960_ - (let ((_g129959_ (##length _g129960_))) - (cond ((##fx= _g129959_ 1) - (apply gx#top-context:::init!__0 _g129960_)) - ((##fx= _g129959_ 2) - (apply gx#top-context:::init!__% _g129960_)) + (lambda _g130234_ + (let ((_g130233_ (##length _g130234_))) + (cond ((##fx= _g130233_ 1) + (apply gx#top-context:::init!__0 _g130234_)) + ((##fx= _g130233_ 2) + (apply gx#top-context:::init!__% _g130234_)) (else (##raise-wrong-number-of-arguments-exception gx#top-context:::init! - _g129960_)))))) + _g130234_)))))) (__bind-method!__% gx#top-context::t ':init! gx#top-context:::init! '#f) (define gx#expander-context::bind-core-syntax-expanders!__% - (lambda (_%self128804129443%_ _%bindings129445%_) - (let* ((_%self129447%_ _%self128804129443%_) - (_%self129449%_ _%self129447%_)) + (lambda (_%self129078129717%_ _%bindings129719%_) + (let* ((_%self129721%_ _%self129078129717%_) + (_%self129723%_ _%self129721%_)) (for-each - (lambda (_%bind129459%_) - (let* ((_%bind129460129467%_ _%bind129459%_) - (_%E129462129471%_ + (lambda (_%bind129733%_) + (let* ((_%bind129734129741%_ _%bind129733%_) + (_%E129736129745%_ (lambda () (error '"No clause matching" - _%bind129460129467%_ + _%bind129734129741%_ '([id . rest])) '#!void)) - (_%K129463129580%_ - (lambda (_%rest129474%_ _%id129475%_) + (_%K129737129854%_ + (lambda (_%rest129748%_ _%id129749%_) (gx#core-context-put! - _%self129449%_ - _%id129475%_ + _%self129723%_ + _%id129749%_ (##structure gx#syntax-binding::t - _%id129475%_ - _%id129475%_ + _%id129749%_ + _%id129749%_ '#f - (let* ((_%rest129476129487%_ _%rest129474%_) - (_%E129478129491%_ + (let* ((_%rest129750129761%_ _%rest129748%_) + (_%E129752129765%_ (lambda () (error '"No clause matching" - _%rest129476129487%_ + _%rest129750129761%_ '([key expander compiler])) '#!void)) - (_%K129479129556%_ - (lambda (_%compiler129494%_ - _%expander129495%_ - _%key129496%_) - ((let* ((_%key129497129510%_ _%key129496%_) - (_%E129503129514%_ + (_%K129753129830%_ + (lambda (_%compiler129768%_ + _%expander129769%_ + _%key129770%_) + ((let* ((_%key129771129784%_ _%key129770%_) + (_%E129777129788%_ (lambda () (error '"No clause matching" - _%key129497129510%_ + _%key129771129784%_ '(top:) '(module:) '(define:) '(special:) '(expr:)) '#!void))) - (let ((_%K129508129550%_ + (let ((_%K129782129824%_ (lambda () gx#make-top-special-form)) - (_%K129507129543%_ + (_%K129781129817%_ (lambda () gx#make-module-special-form)) - (_%K129506129535%_ + (_%K129780129809%_ (lambda () gx#make-definition-form)) - (_%K129505129527%_ + (_%K129779129801%_ (lambda () gx#make-special-form)) - (_%K129504129519%_ + (_%K129778129793%_ (lambda () gx#make-expression-form))) - (let* ((_%try-match129502129522%_ + (let* ((_%try-match129776129796%_ (lambda () - (if (##eq? _%key129497129510%_ + (if (##eq? _%key129771129784%_ 'expr:) - (_%K129504129519%_) - (_%E129503129514%_)))) - (_%try-match129501129530%_ + (_%K129778129793%_) + (_%E129777129788%_)))) + (_%try-match129775129804%_ (lambda () - (if (##eq? _%key129497129510%_ + (if (##eq? _%key129771129784%_ 'special:) - (_%K129505129527%_) - (_%try-match129502129522%_)))) - (_%try-match129500129538%_ + (_%K129779129801%_) + (_%try-match129776129796%_)))) + (_%try-match129774129812%_ (lambda () - (if (##eq? _%key129497129510%_ + (if (##eq? _%key129771129784%_ 'define:) - (_%K129506129535%_) - (_%try-match129501129530%_)))) - (_%try-match129499129546%_ + (_%K129780129809%_) + (_%try-match129775129804%_)))) + (_%try-match129773129820%_ (lambda () - (if (##eq? _%key129497129510%_ + (if (##eq? _%key129771129784%_ 'module:) - (_%K129507129543%_) - (_%try-match129500129538%_))))) - (if (##eq? _%key129497129510%_ 'top:) - (_%K129508129550%_) - (_%try-match129499129546%_))))) - _%expander129495%_ - _%id129475%_ - (let ((_%$e129553%_ _%compiler129494%_)) - (if _%$e129553%_ - _%$e129553%_ + (_%K129781129817%_) + (_%try-match129774129812%_))))) + (if (##eq? _%key129771129784%_ 'top:) + (_%K129782129824%_) + (_%try-match129773129820%_))))) + _%expander129769%_ + _%id129749%_ + (let ((_%$e129827%_ _%compiler129768%_)) + (if _%$e129827%_ + _%$e129827%_ gx#core-compile-top-error)))))) - (if (##pair? _%rest129476129487%_) - (let ((_%hd129480129559%_ - (##car _%rest129476129487%_)) - (_%tl129481129561%_ - (##cdr _%rest129476129487%_))) - (let ((_%key129564%_ _%hd129480129559%_)) - (if (##pair? _%tl129481129561%_) - (let ((_%hd129482129566%_ - (##car _%tl129481129561%_)) - (_%tl129483129568%_ - (##cdr _%tl129481129561%_))) - (let ((_%expander129571%_ - _%hd129482129566%_)) - (if (##pair? _%tl129483129568%_) - (let ((_%hd129484129573%_ - (##car _%tl129483129568%_)) - (_%tl129485129575%_ - (##cdr _%tl129483129568%_))) - (let ((_%compiler129578%_ - _%hd129484129573%_)) - (if (##null? _%tl129485129575%_) - (_%K129479129556%_ - _%compiler129578%_ - _%expander129571%_ - _%key129564%_) - (_%E129478129491%_)))) - (_%E129478129491%_)))) - (_%E129478129491%_)))) - (_%E129478129491%_)))))))) - (if (##pair? _%bind129460129467%_) - (let ((_%hd129464129583%_ (##car _%bind129460129467%_)) - (_%tl129465129585%_ (##cdr _%bind129460129467%_))) - (let* ((_%id129588%_ _%hd129464129583%_) - (_%rest129590%_ _%tl129465129585%_)) - (_%K129463129580%_ _%rest129590%_ _%id129588%_))) - (_%E129462129471%_)))) - _%bindings129445%_)))) + (if (##pair? _%rest129750129761%_) + (let ((_%hd129754129833%_ + (##car _%rest129750129761%_)) + (_%tl129755129835%_ + (##cdr _%rest129750129761%_))) + (let ((_%key129838%_ _%hd129754129833%_)) + (if (##pair? _%tl129755129835%_) + (let ((_%hd129756129840%_ + (##car _%tl129755129835%_)) + (_%tl129757129842%_ + (##cdr _%tl129755129835%_))) + (let ((_%expander129845%_ + _%hd129756129840%_)) + (if (##pair? _%tl129757129842%_) + (let ((_%hd129758129847%_ + (##car _%tl129757129842%_)) + (_%tl129759129849%_ + (##cdr _%tl129757129842%_))) + (let ((_%compiler129852%_ + _%hd129758129847%_)) + (if (##null? _%tl129759129849%_) + (_%K129753129830%_ + _%compiler129852%_ + _%expander129845%_ + _%key129838%_) + (_%E129752129765%_)))) + (_%E129752129765%_)))) + (_%E129752129765%_)))) + (_%E129752129765%_)))))))) + (if (##pair? _%bind129734129741%_) + (let ((_%hd129738129857%_ (##car _%bind129734129741%_)) + (_%tl129739129859%_ (##cdr _%bind129734129741%_))) + (let* ((_%id129862%_ _%hd129738129857%_) + (_%rest129864%_ _%tl129739129859%_)) + (_%K129737129854%_ _%rest129864%_ _%id129862%_))) + (_%E129736129745%_)))) + _%bindings129719%_)))) (define gx#expander-context::bind-core-syntax-expanders!__0 - (lambda (_%self128804129595%_) - (let ((_%bindings129597%_ gx#*core-syntax-expanders*)) + (lambda (_%self129078129869%_) + (let ((_%bindings129871%_ gx#*core-syntax-expanders*)) (gx#expander-context::bind-core-syntax-expanders!__% - _%self128804129595%_ - _%bindings129597%_)))) + _%self129078129869%_ + _%bindings129871%_)))) (define gx#expander-context::bind-core-syntax-expanders! - (lambda _g129962_ - (let ((_g129961_ (##length _g129962_))) - (cond ((##fx= _g129961_ 1) + (lambda _g130236_ + (let ((_g130235_ (##length _g130236_))) + (cond ((##fx= _g130235_ 1) (apply gx#expander-context::bind-core-syntax-expanders!__0 - _g129962_)) - ((##fx= _g129961_ 2) + _g130236_)) + ((##fx= _g130235_ 2) (apply gx#expander-context::bind-core-syntax-expanders!__% - _g129962_)) + _g130236_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-syntax-expanders! - _g129962_)))))) + _g130236_)))))) (__bind-method!__% gx#expander-context::t 'bind-core-syntax-expanders! gx#expander-context::bind-core-syntax-expanders! '#f) (define gx#expander-context::bind-core-macro-expanders!__% - (lambda (_%self128805129202%_ _%bindings129204%_) - (let* ((_%self129206%_ _%self128805129202%_) - (_%self129208%_ _%self129206%_)) + (lambda (_%self129079129476%_ _%bindings129478%_) + (let* ((_%self129480%_ _%self129079129476%_) + (_%self129482%_ _%self129480%_)) (for-each - (lambda (_%bind129218%_) - (let* ((_%bind129219129226%_ _%bind129218%_) - (_%E129221129230%_ + (lambda (_%bind129492%_) + (let* ((_%bind129493129500%_ _%bind129492%_) + (_%E129495129504%_ (lambda () (error '"No clause matching" - _%bind129219129226%_ + _%bind129493129500%_ '([id . rest])) '#!void)) - (_%K129222129298%_ - (lambda (_%rest129233%_ _%id129234%_) + (_%K129496129572%_ + (lambda (_%rest129507%_ _%id129508%_) (gx#core-context-put! - _%self129208%_ - _%id129234%_ + _%self129482%_ + _%id129508%_ (##structure gx#syntax-binding::t - _%id129234%_ - _%id129234%_ + _%id129508%_ + _%id129508%_ '#f - (let* ((_%rest129235129250%_ _%rest129233%_) - (_%E129239129254%_ + (let* ((_%rest129509129524%_ _%rest129507%_) + (_%E129513129528%_ (lambda () (error '"No clause matching" - _%rest129235129250%_ + _%rest129509129524%_ '(['=> core-id]) '([proc]) '([])) '#!void))) - (let ((_%K129244129283%_ - (lambda (_%core-id129281%_) + (let ((_%K129518129557%_ + (lambda (_%core-id129555%_) (##structure gx#rename-macro-expander::t - _%core-id129281%_))) - (_%K129241129268%_ - (lambda (_%proc129266%_) + _%core-id129555%_))) + (_%K129515129542%_ + (lambda (_%proc129540%_) (##structure gx#macro-expander::t - _%proc129266%_))) - (_%K129240129259%_ + _%proc129540%_))) + (_%K129514129533%_ (lambda () (##structure gx#reserved-expander::t - _%id129234%_)))) - (let ((_%try-match129238129262%_ + _%id129508%_)))) + (let ((_%try-match129512129536%_ (lambda () - (if (##null? _%rest129235129250%_) - (_%K129240129259%_) - (_%E129239129254%_))))) - (if (##pair? _%rest129235129250%_) - (let ((_%tl129246129288%_ - (##cdr _%rest129235129250%_)) - (_%hd129245129286%_ - (##car _%rest129235129250%_))) - (if (##eq? _%hd129245129286%_ '=>) - (if (##pair? _%tl129246129288%_) - (let ((_%tl129248129293%_ - (##cdr _%tl129246129288%_)) - (_%hd129247129291%_ - (##car _%tl129246129288%_))) - (if (##null? _%tl129248129293%_) - (let ((_%core-id129296%_ - _%hd129247129291%_)) + (if (##null? _%rest129509129524%_) + (_%K129514129533%_) + (_%E129513129528%_))))) + (if (##pair? _%rest129509129524%_) + (let ((_%tl129520129562%_ + (##cdr _%rest129509129524%_)) + (_%hd129519129560%_ + (##car _%rest129509129524%_))) + (if (##eq? _%hd129519129560%_ '=>) + (if (##pair? _%tl129520129562%_) + (let ((_%tl129522129567%_ + (##cdr _%tl129520129562%_)) + (_%hd129521129565%_ + (##car _%tl129520129562%_))) + (if (##null? _%tl129522129567%_) + (let ((_%core-id129570%_ + _%hd129521129565%_)) (##structure gx#rename-macro-expander::t - _%core-id129296%_)) - (_%E129239129254%_))) - (if (##null? _%tl129246129288%_) - (let ((_%proc129276%_ - _%hd129245129286%_)) + _%core-id129570%_)) + (_%E129513129528%_))) + (if (##null? _%tl129520129562%_) + (let ((_%proc129550%_ + _%hd129519129560%_)) (##structure gx#macro-expander::t - _%proc129276%_)) - (_%E129239129254%_))) - (if (##null? _%tl129246129288%_) - (let ((_%proc129276%_ - _%hd129245129286%_)) + _%proc129550%_)) + (_%E129513129528%_))) + (if (##null? _%tl129520129562%_) + (let ((_%proc129550%_ + _%hd129519129560%_)) (##structure gx#macro-expander::t - _%proc129276%_)) - (_%E129239129254%_)))) - (_%try-match129238129262%_)))))))))) - (if (##pair? _%bind129219129226%_) - (let ((_%hd129223129301%_ (##car _%bind129219129226%_)) - (_%tl129224129303%_ (##cdr _%bind129219129226%_))) - (let* ((_%id129306%_ _%hd129223129301%_) - (_%rest129308%_ _%tl129224129303%_)) - (_%K129222129298%_ _%rest129308%_ _%id129306%_))) - (_%E129221129230%_)))) - _%bindings129204%_)))) + _%proc129550%_)) + (_%E129513129528%_)))) + (_%try-match129512129536%_)))))))))) + (if (##pair? _%bind129493129500%_) + (let ((_%hd129497129575%_ (##car _%bind129493129500%_)) + (_%tl129498129577%_ (##cdr _%bind129493129500%_))) + (let* ((_%id129580%_ _%hd129497129575%_) + (_%rest129582%_ _%tl129498129577%_)) + (_%K129496129572%_ _%rest129582%_ _%id129580%_))) + (_%E129495129504%_)))) + _%bindings129478%_)))) (define gx#expander-context::bind-core-macro-expanders!__0 - (lambda (_%self128805129313%_) - (let ((_%bindings129315%_ gx#*core-macro-expanders*)) + (lambda (_%self129079129587%_) + (let ((_%bindings129589%_ gx#*core-macro-expanders*)) (gx#expander-context::bind-core-macro-expanders!__% - _%self128805129313%_ - _%bindings129315%_)))) + _%self129079129587%_ + _%bindings129589%_)))) (define gx#expander-context::bind-core-macro-expanders! - (lambda _g129964_ - (let ((_g129963_ (##length _g129964_))) - (cond ((##fx= _g129963_ 1) + (lambda _g130238_ + (let ((_g130237_ (##length _g130238_))) + (cond ((##fx= _g130237_ 1) (apply gx#expander-context::bind-core-macro-expanders!__0 - _g129964_)) - ((##fx= _g129963_ 2) + _g130238_)) + ((##fx= _g130237_ 2) (apply gx#expander-context::bind-core-macro-expanders!__% - _g129964_)) + _g130238_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-macro-expanders! - _g129964_)))))) + _g130238_)))))) (__bind-method!__% gx#expander-context::t 'bind-core-macro-expanders! gx#expander-context::bind-core-macro-expanders! '#f) (define gx#expander-context::bind-core-features! - (lambda (_%self128806128932%_) - (let* ((_%self128935%_ _%self128806128932%_) - (_%self128937%_ _%self128935%_)) - (letrec ((_%linux-variant?128947%_ - (lambda (_%sys-type129047%_) - (let* ((_%g129048129056%_ + (lambda (_%self129080129206%_) + (let* ((_%self129209%_ _%self129080129206%_) + (_%self129211%_ _%self129209%_)) + (letrec ((_%linux-variant?129221%_ + (lambda (_%sys-type129321%_) + (let* ((_%g129322129330%_ (__string-split - (symbol->string _%sys-type129047%_) + (symbol->string _%sys-type129321%_) '#\-)) - (_%else129050129064%_ (lambda () '#f)) - (_%K129052129069%_ - (lambda (_%rest129067%_) - (not (null? _%rest129067%_))))) - (if (##pair? _%g129048129056%_) - (let ((_%hd129053129072%_ - (##car _%g129048129056%_)) - (_%tl129054129074%_ - (##cdr _%g129048129056%_))) - (if (equal? _%hd129053129072%_ '"linux") - (let ((_%rest129077%_ _%tl129054129074%_)) - (_%K129052129069%_ _%rest129077%_)) - (_%else129050129064%_))) - (_%else129050129064%_))))) - (_%bsd-variant128948%_ - (lambda (_%sys-type129006%_) - (let ((_%sys-type-str129008%_ - (symbol->string _%sys-type129006%_))) - (let _%lp129010%_ ((_%rest129012%_ + (_%else129324129338%_ (lambda () '#f)) + (_%K129326129343%_ + (lambda (_%rest129341%_) + (not (null? _%rest129341%_))))) + (if (##pair? _%g129322129330%_) + (let ((_%hd129327129346%_ + (##car _%g129322129330%_)) + (_%tl129328129348%_ + (##cdr _%g129322129330%_))) + (if (equal? _%hd129327129346%_ '"linux") + (let ((_%rest129351%_ _%tl129328129348%_)) + (_%K129326129343%_ _%rest129351%_)) + (_%else129324129338%_))) + (_%else129324129338%_))))) + (_%bsd-variant129222%_ + (lambda (_%sys-type129280%_) + (let ((_%sys-type-str129282%_ + (symbol->string _%sys-type129280%_))) + (let _%lp129284%_ ((_%rest129286%_ '("openbsd" "netbsd" "freebsd" "darwin"))) - (let* ((_%rest129013129021%_ _%rest129012%_) - (_%else129015129029%_ (lambda () '#f)) - (_%K129017129035%_ - (lambda (_%rest129032%_ _%sys129033%_) + (let* ((_%rest129287129295%_ _%rest129286%_) + (_%else129289129303%_ (lambda () '#f)) + (_%K129291129309%_ + (lambda (_%rest129306%_ _%sys129307%_) (if (string-prefix? - _%sys129033%_ - _%sys-type-str129008%_) - _%sys129033%_ - (_%lp129010%_ _%rest129032%_))))) - (if (##pair? _%rest129013129021%_) - (let ((_%hd129018129038%_ - (##car _%rest129013129021%_)) - (_%tl129019129040%_ - (##cdr _%rest129013129021%_))) - (let* ((_%sys129043%_ _%hd129018129038%_) - (_%rest129045%_ _%tl129019129040%_)) - (_%K129017129035%_ - _%rest129045%_ - _%sys129043%_))) - (_%else129015129029%_)))))))) - (gx#core-bind-feature!__% 'gerbil '#f '0 _%self128937%_) - (gx#core-bind-feature!__% (gerbil-system) '#f '0 _%self128937%_) - (let* ((_%g128949128961%_ (system-type)) - (_%else128951128969%_ (lambda () '#!void)) - (_%K128953128982%_ - (lambda (_%sys-type128972%_ - _%sys-vendor128973%_ - _%sys-cpu128974%_) + _%sys129307%_ + _%sys-type-str129282%_) + _%sys129307%_ + (_%lp129284%_ _%rest129306%_))))) + (if (##pair? _%rest129287129295%_) + (let ((_%hd129292129312%_ + (##car _%rest129287129295%_)) + (_%tl129293129314%_ + (##cdr _%rest129287129295%_))) + (let* ((_%sys129317%_ _%hd129292129312%_) + (_%rest129319%_ _%tl129293129314%_)) + (_%K129291129309%_ + _%rest129319%_ + _%sys129317%_))) + (_%else129289129303%_)))))))) + (gx#core-bind-feature!__% 'gerbil '#f '0 _%self129211%_) + (gx#core-bind-feature!__% (gerbil-system) '#f '0 _%self129211%_) + (let* ((_%g129223129235%_ (system-type)) + (_%else129225129243%_ (lambda () '#!void)) + (_%K129227129256%_ + (lambda (_%sys-type129246%_ + _%sys-vendor129247%_ + _%sys-cpu129248%_) (gx#core-bind-feature!__% - _%sys-cpu128974%_ + _%sys-cpu129248%_ '#f '0 - _%self128937%_) + _%self129211%_) (gx#core-bind-feature!__% - _%sys-type128972%_ + _%sys-type129246%_ '#f '0 - _%self128937%_) - (if (_%linux-variant?128947%_ _%sys-type128972%_) + _%self129211%_) + (if (_%linux-variant?129221%_ _%sys-type129246%_) (gx#core-bind-feature!__% (##string->symbol '"linux") '#f '0 - _%self128937%_) - (let ((_%$e128977%_ - (_%bsd-variant128948%_ _%sys-type128972%_))) - (if _%$e128977%_ - ((lambda (_%sys-prefix128980%_) + _%self129211%_) + (let ((_%$e129251%_ + (_%bsd-variant129222%_ _%sys-type129246%_))) + (if _%$e129251%_ + ((lambda (_%sys-prefix129254%_) (gx#core-bind-feature!__% (##string->symbol '"bsd") '#f '0 - _%self128937%_) + _%self129211%_) (gx#core-bind-feature!__% - (string->symbol _%sys-prefix128980%_) + (string->symbol _%sys-prefix129254%_) '#f '0 - _%self128937%_)) - _%$e128977%_) + _%self129211%_)) + _%$e129251%_) '#!void)))))) - (if (##pair? _%g128949128961%_) - (let ((_%hd128954128985%_ (##car _%g128949128961%_)) - (_%tl128955128987%_ (##cdr _%g128949128961%_))) - (let ((_%sys-cpu128990%_ _%hd128954128985%_)) - (if (##pair? _%tl128955128987%_) - (let ((_%hd128956128992%_ (##car _%tl128955128987%_)) - (_%tl128957128994%_ - (##cdr _%tl128955128987%_))) - (let ((_%sys-vendor128997%_ _%hd128956128992%_)) - (if (##pair? _%tl128957128994%_) - (let ((_%hd128958128999%_ - (##car _%tl128957128994%_)) - (_%tl128959129001%_ - (##cdr _%tl128957128994%_))) - (let ((_%sys-type129004%_ - _%hd128958128999%_)) - (if (##null? _%tl128959129001%_) - (_%K128953128982%_ - _%sys-type129004%_ - _%sys-vendor128997%_ - _%sys-cpu128990%_) + (if (##pair? _%g129223129235%_) + (let ((_%hd129228129259%_ (##car _%g129223129235%_)) + (_%tl129229129261%_ (##cdr _%g129223129235%_))) + (let ((_%sys-cpu129264%_ _%hd129228129259%_)) + (if (##pair? _%tl129229129261%_) + (let ((_%hd129230129266%_ (##car _%tl129229129261%_)) + (_%tl129231129268%_ + (##cdr _%tl129229129261%_))) + (let ((_%sys-vendor129271%_ _%hd129230129266%_)) + (if (##pair? _%tl129231129268%_) + (let ((_%hd129232129273%_ + (##car _%tl129231129268%_)) + (_%tl129233129275%_ + (##cdr _%tl129231129268%_))) + (let ((_%sys-type129278%_ + _%hd129232129273%_)) + (if (##null? _%tl129233129275%_) + (_%K129227129256%_ + _%sys-type129278%_ + _%sys-vendor129271%_ + _%sys-cpu129264%_) '#!void))) '#!void))) '#!void))) '#!void)) (if (gerbil-runtime-smp?) - (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _%self128937%_) + (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _%self129211%_) '#!void))))) (__bind-method!__% gx#expander-context::t diff --git a/src/bootstrap/gerbil/expander/stxcase~0.scm b/src/bootstrap/gerbil/expander/stxcase~0.scm index 52fdab607..0792910a4 100644 --- a/src/bootstrap/gerbil/expander/stxcase~0.scm +++ b/src/bootstrap/gerbil/expander/stxcase~0.scm @@ -1,25 +1,25 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/stxcase::timestamp 1713044316) + (define gerbil/expander/stxcase::timestamp 1713454411) (begin (define gx#syntax-pattern::t - (let ((__tmp131363 (list gx#expander::t)) - (__tmp131362 (cons (cons 'struct: '#t) '()))) + (let ((__tmp131637 (list gx#expander::t)) + (__tmp131636 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gx#syntax-pattern::t 'syntax-pattern - __tmp131363 + __tmp131637 '(id depth) - __tmp131362 + __tmp131636 '#f))) (define gx#syntax-pattern? (let () (declare (not safe)) (__make-class-predicate gx#syntax-pattern::t))) (define gx#make-syntax-pattern - (lambda _%$args131359%_ - (apply make-instance gx#syntax-pattern::t _%$args131359%_))) + (lambda _%$args131633%_ + (apply make-instance gx#syntax-pattern::t _%$args131633%_))) (define gx#syntax-pattern-id (let () (declare (not safe)) @@ -69,14 +69,14 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gx#syntax-pattern::t 'e))) (define gx#syntax-pattern::apply-macro-expander - (lambda (_%self129966131343%_ _%stx131345%_) - (let* ((_%self131347%_ _%self129966131343%_) - (_%self131349%_ _%self131347%_)) + (lambda (_%self130240131617%_ _%stx131619%_) + (let* ((_%self131621%_ _%self130240131617%_) + (_%self131623%_ _%self131621%_)) (declare (not safe)) (gx#raise-syntax-error '#f '"Identifier used out of context" - _%stx131345%_)))) + _%stx131619%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -85,616 +85,616 @@ gx#syntax-pattern::apply-macro-expander '#f)) (define gx#macro-expand-syntax - (lambda (_%stx130809%_) - (letrec ((_%generate130811%_ - (lambda (_%e131051%_) - (letrec ((_%BUG131053%_ - (lambda (_%q131218%_) + (lambda (_%stx131083%_) + (letrec ((_%generate131085%_ + (lambda (_%e131325%_) + (letrec ((_%BUG131327%_ + (lambda (_%q131492%_) (let () (declare (not safe)) (error '"BUG: syntax; generate" - _%stx130809%_ - _%e131051%_ - _%q131218%_)))) - (_%local-pattern-e131054%_ - (lambda (_%pat131216%_) - (let ((__tmp131364 + _%stx131083%_ + _%e131325%_ + _%q131492%_)))) + (_%local-pattern-e131328%_ + (lambda (_%pat131490%_) + (let ((__tmp131638 (##structure-ref - _%pat131216%_ + _%pat131490%_ '2 gx#syntax-pattern::t '#f))) (declare (not safe)) - (gx#syntax-local-rewrap __tmp131364)))) - (_%getvar131055%_ - (lambda (_%q131213%_ _%vars131214%_) + (gx#syntax-local-rewrap __tmp131638)))) + (_%getvar131329%_ + (lambda (_%q131487%_ _%vars131488%_) (let () (declare (not safe)) (agetq__% - _%q131213%_ - _%vars131214%_ - _%BUG131053%_)))) - (_%getarg131056%_ - (lambda (_%arg131179%_ _%vars131180%_) - (let* ((_%arg131181131188%_ _%arg131179%_) - (_%E131183131192%_ + _%q131487%_ + _%vars131488%_ + _%BUG131327%_)))) + (_%getarg131330%_ + (lambda (_%arg131453%_ _%vars131454%_) + (let* ((_%arg131455131462%_ _%arg131453%_) + (_%E131457131466%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%arg131181131188%_ + _%arg131455131462%_ '([tag . e]))) '#!void)) - (_%K131184131201%_ - (lambda (_%e131195%_ _%tag131196%_) - (let ((_%$e131198%_ _%tag131196%_)) - (if (eq? 'ref _%$e131198%_) - (_%getvar131055%_ - _%e131195%_ - _%vars131180%_) - (if (eq? 'pattern _%$e131198%_) - (_%local-pattern-e131054%_ - _%e131195%_) - (_%BUG131053%_ - _%arg131179%_))))))) + (_%K131458131475%_ + (lambda (_%e131469%_ _%tag131470%_) + (let ((_%$e131472%_ _%tag131470%_)) + (if (eq? 'ref _%$e131472%_) + (_%getvar131329%_ + _%e131469%_ + _%vars131454%_) + (if (eq? 'pattern _%$e131472%_) + (_%local-pattern-e131328%_ + _%e131469%_) + (_%BUG131327%_ + _%arg131453%_))))))) (if (let () (declare (not safe)) - (##pair? _%arg131181131188%_)) - (let ((_%hd131185131204%_ + (##pair? _%arg131455131462%_)) + (let ((_%hd131459131478%_ (let () (declare (not safe)) - (##car _%arg131181131188%_))) - (_%tl131186131206%_ + (##car _%arg131455131462%_))) + (_%tl131460131480%_ (let () (declare (not safe)) - (##cdr _%arg131181131188%_)))) - (let* ((_%tag131209%_ - _%hd131185131204%_) - (_%e131211%_ - _%tl131186131206%_)) - (_%K131184131201%_ - _%e131211%_ - _%tag131209%_))) - (_%E131183131192%_)))))) - (let _%recur131058%_ ((_%e131060%_ _%e131051%_) - (_%vars131061%_ '())) - (let* ((_%e131062131069%_ _%e131060%_) - (_%E131064131073%_ + (##cdr _%arg131455131462%_)))) + (let* ((_%tag131483%_ + _%hd131459131478%_) + (_%e131485%_ + _%tl131460131480%_)) + (_%K131458131475%_ + _%e131485%_ + _%tag131483%_))) + (_%E131457131466%_)))))) + (let _%recur131332%_ ((_%e131334%_ _%e131325%_) + (_%vars131335%_ '())) + (let* ((_%e131336131343%_ _%e131334%_) + (_%E131338131347%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e131062131069%_ + _%e131336131343%_ '([tag . body]))) '#!void)) - (_%K131065131167%_ - (lambda (_%body131076%_ _%tag131077%_) - (let ((_%$e131079%_ _%tag131077%_)) - (if (eq? 'datum _%$e131079%_) + (_%K131339131441%_ + (lambda (_%body131350%_ _%tag131351%_) + (let ((_%$e131353%_ _%tag131351%_)) + (if (eq? 'datum _%$e131353%_) (let () (declare (not safe)) - (gx#core-list 'quote _%body131076%_)) - (if (eq? 'term _%$e131079%_) - (let ((_%id131082%_ + (gx#core-list 'quote _%body131350%_)) + (if (eq? 'term _%$e131353%_) + (let ((_%id131356%_ (let () (declare (not safe)) (gx#syntax-local-unwrap - _%body131076%_)))) + _%body131350%_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%id131082%_ + _%id131356%_ 'gx#identifier-wrap::t)) - (let ((_%marks131085%_ + (let ((_%marks131359%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%id131082%_ + _%id131356%_ '3 '#f '#f)))) - (if (null? _%marks131085%_) - (let ((__tmp131365 + (if (null? _%marks131359%_) + (let ((__tmp131639 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#core-list 'quote _%body131076%_)))) + (gx#core-list 'quote _%body131350%_)))) (declare (not safe)) - (gx#core-list 'datum->syntax '#f __tmp131365)) - (let ((__tmp131367 + (gx#core-list 'datum->syntax '#f __tmp131639)) + (let ((__tmp131641 (let () (declare (not safe)) - (gx#core-list 'quote-syntax _%body131076%_))) - (__tmp131366 + (gx#core-list 'quote-syntax _%body131350%_))) + (__tmp131640 (let () (declare (not safe)) - (gx#core-list 'quote _%body131076%_)))) + (gx#core-list 'quote _%body131350%_)))) (declare (not safe)) (gx#core-list 'datum->syntax - __tmp131367 - __tmp131366 + __tmp131641 + __tmp131640 '#f '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%id131082%_ + _%id131356%_ 'gx#syntax-quote::t)) (let () (declare (not safe)) (gx#core-list 'quote-syntax - _%body131076%_)) - (_%BUG131053%_ - _%e131060%_)))) - (if (eq? 'pattern _%$e131079%_) - (_%local-pattern-e131054%_ - _%body131076%_) - (if (eq? 'ref _%$e131079%_) - (_%getvar131055%_ - _%body131076%_ - _%vars131061%_) + _%body131350%_)) + (_%BUG131327%_ + _%e131334%_)))) + (if (eq? 'pattern _%$e131353%_) + (_%local-pattern-e131328%_ + _%body131350%_) + (if (eq? 'ref _%$e131353%_) + (_%getvar131329%_ + _%body131350%_ + _%vars131335%_) (if (eq? 'cons - _%$e131079%_) - (let ((__tmp131369 - (_%recur131058%_ - (car _%body131076%_) - _%vars131061%_)) - (__tmp131368 - (_%recur131058%_ - (cdr _%body131076%_) - _%vars131061%_))) + _%$e131353%_) + (let ((__tmp131643 + (_%recur131332%_ + (car _%body131350%_) + _%vars131335%_)) + (__tmp131642 + (_%recur131332%_ + (cdr _%body131350%_) + _%vars131335%_))) (declare (not safe)) (gx#core-list 'cons - __tmp131369 - __tmp131368)) + __tmp131643 + __tmp131642)) (if (eq? 'vector ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e131079%_) - (let ((__tmp131370 - (_%recur131058%_ _%body131076%_ _%vars131061%_))) + _%$e131353%_) + (let ((__tmp131644 + (_%recur131332%_ _%body131350%_ _%vars131335%_))) (declare (not safe)) - (gx#core-list 'list->vector __tmp131370)) - (if (eq? 'box _%$e131079%_) - (let ((__tmp131371 - (_%recur131058%_ - _%body131076%_ - _%vars131061%_))) + (gx#core-list 'list->vector __tmp131644)) + (if (eq? 'box _%$e131353%_) + (let ((__tmp131645 + (_%recur131332%_ + _%body131350%_ + _%vars131335%_))) (declare (not safe)) - (gx#core-list 'box __tmp131371)) - (if (eq? 'splice _%$e131079%_) - (let* ((_%body131088131099%_ _%body131076%_) - (_%E131090131103%_ + (gx#core-list 'box __tmp131645)) + (if (eq? 'splice _%$e131353%_) + (let* ((_%body131362131373%_ _%body131350%_) + (_%E131364131377%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%body131088131099%_ + _%body131362131373%_ '([depth hd iv . args]))) '#!void)) - (_%K131091131141%_ - (lambda (_%args131106%_ - _%iv131107%_ - _%hd131108%_ - _%depth131109%_) - (let* ((_%targets131115%_ - (map (lambda (_%g131110131112%_) - (_%getarg131056%_ - _%g131110131112%_ - _%vars131061%_)) - _%args131106%_)) - (_%fold-in131117%_ + (_%K131365131415%_ + (lambda (_%args131380%_ + _%iv131381%_ + _%hd131382%_ + _%depth131383%_) + (let* ((_%targets131389%_ + (map (lambda (_%g131384131386%_) + (_%getarg131330%_ + _%g131384131386%_ + _%vars131335%_)) + _%args131380%_)) + (_%fold-in131391%_ (let () (declare (not safe)) - (gx#gentemps _%args131106%_))) - (_%fold-out131119%_ + (gx#gentemps _%args131380%_))) + (_%fold-out131393%_ (let () (declare (not safe)) (gx#genident__0))) - (_%lambda-args131121%_ - (let ((__tmp131372 - (cons _%fold-out131119%_ + (_%lambda-args131395%_ + (let ((__tmp131646 + (cons _%fold-out131393%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp131372 - _%fold-in131117%_))) - (_%lambda-body131138%_ + __tmp131646 + _%fold-in131391%_))) + (_%lambda-body131412%_ (if (let () (declare (not safe)) - (##fx> _%depth131109%_ '1)) - (let ((_%r-args131129%_ - (map (lambda (_%arg131123%_) + (##fx> _%depth131383%_ '1)) + (let ((_%r-args131403%_ + (map (lambda (_%arg131397%_) (cons 'ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _%arg131123%_))) - _%args131106%_)) - (_%r-vars131130%_ - (let ((__tmp131373 - (lambda (_%arg131125%_ _%var131126%_ _%r131127%_) - (cons (cons (cdr _%arg131125%_) _%var131126%_) - _%r131127%_)))) + (cdr _%arg131397%_))) + _%args131380%_)) + (_%r-vars131404%_ + (let ((__tmp131647 + (lambda (_%arg131399%_ _%var131400%_ _%r131401%_) + (cons (cons (cdr _%arg131399%_) _%var131400%_) + _%r131401%_)))) (declare (not safe)) (__foldr2 - __tmp131373 - _%vars131061%_ - _%args131106%_ - _%fold-in131117%_)))) + __tmp131647 + _%vars131335%_ + _%args131380%_ + _%fold-in131391%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%recur131058%_ + (_%recur131332%_ (cons 'splice (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##fx- _%depth131109%_ '1)) - (cons _%hd131108%_ - (cons (cons 'var _%fold-out131119%_) - _%r-args131129%_)))) + (##fx- _%depth131383%_ '1)) + (cons _%hd131382%_ + (cons (cons 'var _%fold-out131393%_) + _%r-args131403%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r-vars131130%_)) - (let* ((_%hd-vars131136%_ - (let ((__tmp131374 + _%r-vars131404%_)) + (let* ((_%hd-vars131410%_ + (let ((__tmp131648 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%arg131132%_ _%var131133%_ _%r131134%_) - (cons (cons (cdr _%arg131132%_) _%var131133%_) - _%r131134%_)))) + (lambda (_%arg131406%_ _%var131407%_ _%r131408%_) + (cons (cons (cdr _%arg131406%_) _%var131407%_) + _%r131408%_)))) (declare (not safe)) (__foldr2 - __tmp131374 - _%vars131061%_ - _%args131106%_ - _%fold-in131117%_))) - (__tmp131375 - (_%recur131058%_ _%hd131108%_ _%hd-vars131136%_))) + __tmp131648 + _%vars131335%_ + _%args131380%_ + _%fold-in131391%_))) + (__tmp131649 + (_%recur131332%_ _%hd131382%_ _%hd-vars131410%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'cons - __tmp131375 - _%fold-out131119%_))))) - (let ((__tmp131379 - (if (let ((__tmp131380 + __tmp131649 + _%fold-out131393%_))))) + (let ((__tmp131653 + (if (let ((__tmp131654 (let () (declare (not safe)) (##length - _%targets131115%_)))) + _%targets131389%_)))) (declare (not safe)) - (##fx> __tmp131380 '1)) + (##fx> __tmp131654 '1)) (let () (declare (not safe)) (gx#core-cons* 'syntax-check-splice-targets - _%targets131115%_)) + _%targets131389%_)) '#!void)) - (__tmp131376 - (let ((__tmp131378 + (__tmp131650 + (let ((__tmp131652 (let () (declare (not safe)) (gx#core-list 'lambda% - _%lambda-args131121%_ - _%lambda-body131138%_))) - (__tmp131377 - (_%recur131058%_ - _%iv131107%_ - _%vars131061%_))) + _%lambda-args131395%_ + _%lambda-body131412%_))) + (__tmp131651 + (_%recur131332%_ + _%iv131381%_ + _%vars131335%_))) (declare (not safe)) (gx#core-cons* 'foldr - __tmp131378 - __tmp131377 - _%targets131115%_)))) + __tmp131652 + __tmp131651 + _%targets131389%_)))) (declare (not safe)) (gx#core-list 'begin - __tmp131379 - __tmp131376)))))) + __tmp131653 + __tmp131650)))))) (if (let () (declare (not safe)) - (##pair? _%body131088131099%_)) - (let ((_%hd131092131144%_ + (##pair? _%body131362131373%_)) + (let ((_%hd131366131418%_ (let () (declare (not safe)) - (##car _%body131088131099%_))) - (_%tl131093131146%_ + (##car _%body131362131373%_))) + (_%tl131367131420%_ (let () (declare (not safe)) - (##cdr _%body131088131099%_)))) - (let ((_%depth131149%_ _%hd131092131144%_)) + (##cdr _%body131362131373%_)))) + (let ((_%depth131423%_ _%hd131366131418%_)) (if (let () (declare (not safe)) - (##pair? _%tl131093131146%_)) - (let ((_%hd131094131151%_ + (##pair? _%tl131367131420%_)) + (let ((_%hd131368131425%_ (let () (declare (not safe)) - (##car _%tl131093131146%_))) - (_%tl131095131153%_ + (##car _%tl131367131420%_))) + (_%tl131369131427%_ (let () (declare (not safe)) - (##cdr _%tl131093131146%_)))) - (let ((_%hd131156%_ - _%hd131094131151%_)) + (##cdr _%tl131367131420%_)))) + (let ((_%hd131430%_ + _%hd131368131425%_)) (if (let () (declare (not safe)) - (##pair? _%tl131095131153%_)) - (let ((_%hd131096131158%_ + (##pair? _%tl131369131427%_)) + (let ((_%hd131370131432%_ (let () (declare (not safe)) - (##car _%tl131095131153%_))) - (_%tl131097131160%_ + (##car _%tl131369131427%_))) + (_%tl131371131434%_ (let () (declare (not safe)) - (##cdr _%tl131095131153%_)))) - (let* ((_%iv131163%_ - _%hd131096131158%_) - (_%args131165%_ - _%tl131097131160%_)) - (_%K131091131141%_ - _%args131165%_ - _%iv131163%_ - _%hd131156%_ - _%depth131149%_))) - (_%E131090131103%_)))) - (_%E131090131103%_)))) - (_%E131090131103%_))) - (if (eq? 'var _%$e131079%_) - _%body131076%_ - (_%BUG131053%_ _%e131060%_)))))))))))))) + (##cdr _%tl131369131427%_)))) + (let* ((_%iv131437%_ + _%hd131370131432%_) + (_%args131439%_ + _%tl131371131434%_)) + (_%K131365131415%_ + _%args131439%_ + _%iv131437%_ + _%hd131430%_ + _%depth131423%_))) + (_%E131364131377%_)))) + (_%E131364131377%_)))) + (_%E131364131377%_))) + (if (eq? 'var _%$e131353%_) + _%body131350%_ + (_%BUG131327%_ _%e131334%_)))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%e131062131069%_)) - (let ((_%hd131066131170%_ + (##pair? _%e131336131343%_)) + (let ((_%hd131340131444%_ (let () (declare (not safe)) - (##car _%e131062131069%_))) - (_%tl131067131172%_ + (##car _%e131336131343%_))) + (_%tl131341131446%_ (let () (declare (not safe)) - (##cdr _%e131062131069%_)))) - (let* ((_%tag131175%_ _%hd131066131170%_) - (_%body131177%_ _%tl131067131172%_)) - (_%K131065131167%_ - _%body131177%_ - _%tag131175%_))) - (_%E131064131073%_))))))) - (_%parse130812%_ - (lambda (_%e130853%_) - (letrec ((_%make-cons130855%_ - (lambda (_%hd131043%_ _%tl131044%_) - (let ((_g131381_ _%hd131043%_) - (_g131383_ _%tl131044%_)) + (##cdr _%e131336131343%_)))) + (let* ((_%tag131449%_ _%hd131340131444%_) + (_%body131451%_ _%tl131341131446%_)) + (_%K131339131441%_ + _%body131451%_ + _%tag131449%_))) + (_%E131338131347%_))))))) + (_%parse131086%_ + (lambda (_%e131127%_) + (letrec ((_%make-cons131129%_ + (lambda (_%hd131317%_ _%tl131318%_) + (let ((_g131655_ _%hd131317%_) + (_g131657_ _%tl131318%_)) (begin - (let ((_g131382_ + (let ((_g131656_ (let () (declare (not safe)) - (if (##values? _g131381_) - (##vector-length _g131381_) + (if (##values? _g131655_) + (##vector-length _g131655_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g131382_ 2))) + (##fx= _g131656_ 2))) (error "Context expects 2 values" - _g131382_))) - (let ((_g131384_ + _g131656_))) + (let ((_g131658_ (let () (declare (not safe)) - (if (##values? _g131383_) - (##vector-length _g131383_) + (if (##values? _g131657_) + (##vector-length _g131657_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g131384_ 2))) + (##fx= _g131658_ 2))) (error "Context expects 2 values" - _g131384_))) - (let ((_%hd-e131046%_ + _g131658_))) + (let ((_%hd-e131320%_ (let () (declare (not safe)) - (##vector-ref _g131381_ 0))) - (_%hd-vars131047%_ + (##vector-ref _g131655_ 0))) + (_%hd-vars131321%_ (let () (declare (not safe)) - (##vector-ref _g131381_ 1)))) - (let ((_%tl-e131048%_ + (##vector-ref _g131655_ 1)))) + (let ((_%tl-e131322%_ (let () (declare (not safe)) - (##vector-ref _g131383_ 0))) - (_%tl-vars131049%_ + (##vector-ref _g131657_ 0))) + (_%tl-vars131323%_ (let () (declare (not safe)) - (##vector-ref _g131383_ 1)))) + (##vector-ref _g131657_ 1)))) (values (cons 'cons - (cons _%hd-e131046%_ - _%tl-e131048%_)) - (append _%hd-vars131047%_ - _%tl-vars131049%_)))))))) - (_%make-splice130856%_ - (lambda (_%where130979%_ - _%depth130980%_ - _%hd130981%_ - _%tl130982%_) - (let ((_g131385_ _%hd130981%_) - (_g131387_ _%tl130982%_)) + (cons _%hd-e131320%_ + _%tl-e131322%_)) + (append _%hd-vars131321%_ + _%tl-vars131323%_)))))))) + (_%make-splice131130%_ + (lambda (_%where131253%_ + _%depth131254%_ + _%hd131255%_ + _%tl131256%_) + (let ((_g131659_ _%hd131255%_) + (_g131661_ _%tl131256%_)) (begin - (let ((_g131386_ + (let ((_g131660_ (let () (declare (not safe)) - (if (##values? _g131385_) - (##vector-length _g131385_) + (if (##values? _g131659_) + (##vector-length _g131659_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g131386_ 2))) + (##fx= _g131660_ 2))) (error "Context expects 2 values" - _g131386_))) - (let ((_g131388_ + _g131660_))) + (let ((_g131662_ (let () (declare (not safe)) - (if (##values? _g131387_) - (##vector-length _g131387_) + (if (##values? _g131661_) + (##vector-length _g131661_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g131388_ 2))) + (##fx= _g131662_ 2))) (error "Context expects 2 values" - _g131388_))) - (let ((_%hd-e130984%_ + _g131662_))) + (let ((_%hd-e131258%_ (let () (declare (not safe)) - (##vector-ref _g131385_ 0))) - (_%hd-vars130985%_ + (##vector-ref _g131659_ 0))) + (_%hd-vars131259%_ (let () (declare (not safe)) - (##vector-ref _g131385_ 1)))) - (let ((_%tl-e130986%_ + (##vector-ref _g131659_ 1)))) + (let ((_%tl-e131260%_ (let () (declare (not safe)) - (##vector-ref _g131387_ 0))) - (_%tl-vars130987%_ + (##vector-ref _g131661_ 0))) + (_%tl-vars131261%_ (let () (declare (not safe)) - (##vector-ref _g131387_ 1)))) - (let _%lp130989%_ ((_%rest130991%_ - _%hd-vars130985%_) - (_%targets130992%_ + (##vector-ref _g131661_ 1)))) + (let _%lp131263%_ ((_%rest131265%_ + _%hd-vars131259%_) + (_%targets131266%_ '()) - (_%vars130993%_ - _%tl-vars130987%_)) - (let* ((_%rest130994131004%_ - _%rest130991%_) - (_%else130996131012%_ + (_%vars131267%_ + _%tl-vars131261%_)) + (let* ((_%rest131268131278%_ + _%rest131265%_) + (_%else131270131286%_ (lambda () - (if (null? _%targets130992%_) + (if (null? _%targets131266%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _%stx130809%_ - _%where130979%_)) + _%stx131083%_ + _%where131253%_)) (values (cons 'splice ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%depth130980%_ - (cons _%hd-e130984%_ - (cons _%tl-e130986%_ - _%targets130992%_)))) - _%vars130993%_)))) + (cons _%depth131254%_ + (cons _%hd-e131258%_ + (cons _%tl-e131260%_ + _%targets131266%_)))) + _%vars131267%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K130998131024%_ - (lambda (_%rest131015%_ - _%hd-pat131016%_ - _%hd-depth*131017%_) - (let ((_%hd-depth131019%_ - (fx- _%hd-depth*131017%_ - _%depth130980%_))) + (_%K131272131298%_ + (lambda (_%rest131289%_ + _%hd-pat131290%_ + _%hd-depth*131291%_) + (let ((_%hd-depth131293%_ + (fx- _%hd-depth*131291%_ + _%depth131254%_))) (if (let () (declare (not safe)) (##fxpositive? - _%hd-depth131019%_)) - (_%lp130989%_ - _%rest131015%_ + _%hd-depth131293%_)) + (_%lp131263%_ + _%rest131289%_ (cons (cons 'ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd-pat131016%_) - _%targets130992%_) - (cons (cons _%hd-depth131019%_ _%hd-pat131016%_) - _%vars130993%_)) + _%hd-pat131290%_) + _%targets131266%_) + (cons (cons _%hd-depth131293%_ _%hd-pat131290%_) + _%vars131267%_)) (if (let () (declare (not safe)) - (##fxzero? _%hd-depth131019%_)) - (_%lp130989%_ - _%rest131015%_ - (cons (cons 'pattern _%hd-pat131016%_) - _%targets130992%_) - _%vars130993%_) + (##fxzero? _%hd-depth131293%_)) + (_%lp131263%_ + _%rest131289%_ + (cons (cons 'pattern _%hd-pat131290%_) + _%targets131266%_) + _%vars131267%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Too many ellipses" - _%stx130809%_ - _%where130979%_)))))))) + _%stx131083%_ + _%where131253%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%rest130994131004%_)) - (let ((_%hd130999131027%_ + (##pair? _%rest131268131278%_)) + (let ((_%hd131273131301%_ (let () (declare (not safe)) - (##car _%rest130994131004%_))) - (_%tl131000131029%_ + (##car _%rest131268131278%_))) + (_%tl131274131303%_ (let () (declare (not safe)) - (##cdr _%rest130994131004%_)))) + (##cdr _%rest131268131278%_)))) (if (let () (declare (not safe)) - (##pair? _%hd130999131027%_)) - (let ((_%hd131001131032%_ + (##pair? _%hd131273131301%_)) + (let ((_%hd131275131306%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%hd130999131027%_))) - (_%tl131002131034%_ - (let () (declare (not safe)) (##cdr _%hd130999131027%_)))) - (let* ((_%hd-depth*131037%_ _%hd131001131032%_) - (_%hd-pat131039%_ _%tl131002131034%_) - (_%rest131041%_ _%tl131000131029%_)) - (_%K130998131024%_ - _%rest131041%_ - _%hd-pat131039%_ - _%hd-depth*131037%_))) - (_%else130996131012%_))) + (##car _%hd131273131301%_))) + (_%tl131276131308%_ + (let () (declare (not safe)) (##cdr _%hd131273131301%_)))) + (let* ((_%hd-depth*131311%_ _%hd131275131306%_) + (_%hd-pat131313%_ _%tl131276131308%_) + (_%rest131315%_ _%tl131274131303%_)) + (_%K131272131298%_ + _%rest131315%_ + _%hd-pat131313%_ + _%hd-depth*131311%_))) + (_%else131270131286%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else130996131012%_)))))))))) - (_%recur130857%_ - (lambda (_%e130862%_ _%is-e?130863%_) - (if (_%is-e?130863%_ _%e130862%_) + (_%else131270131286%_)))))))))) + (_%recur131131%_ + (lambda (_%e131136%_ _%is-e?131137%_) + (if (_%is-e?131137%_ _%e131136%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Mislpaced ellipsis" - _%stx130809%_)) - (if (gx#syntax-local-pattern? _%e130862%_) - (let* ((_%pat130867%_ + _%stx131083%_)) + (if (gx#syntax-local-pattern? _%e131136%_) + (let* ((_%pat131141%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%e130862%_))) - (_%depth130869%_ + _%e131136%_))) + (_%depth131143%_ (##structure-ref - _%pat130867%_ + _%pat131141%_ '3 gx#syntax-pattern::t '#f))) - (if (fxpositive? _%depth130869%_) - (values (cons 'ref _%pat130867%_) - (cons (cons _%depth130869%_ + (if (fxpositive? _%depth131143%_) + (values (cons 'ref _%pat131141%_) + (cons (cons _%depth131143%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pat130867%_) + _%pat131141%_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (values (cons 'pattern - _%pat130867%_) + _%pat131141%_) '()))) (if (let () (declare (not safe)) - (gx#identifier? _%e130862%_)) - (values (cons 'term _%e130862%_) + (gx#identifier? _%e131136%_)) + (values (cons 'term _%e131136%_) '()) (if (let () (declare (not safe)) - (gx#stx-pair? _%e130862%_)) - (let* ((_%e130873130880%_ - _%e130862%_) - (_%E130875130884%_ + (gx#stx-pair? _%e131136%_)) + (let* ((_%e131147131154%_ + _%e131136%_) + (_%E131149131158%_ (lambda () (let () (declare @@ -702,2009 +702,2009 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130873130880%_)))) - (_%E130874130966%_ + _%e131147131154%_)))) + (_%E131148131240%_ (lambda () (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%e130873130880%_)) - (let ((_%e130876130888%_ + (gx#stx-pair? _%e131147131154%_)) + (let ((_%e131150131162%_ (let () (declare (not safe)) - (gx#syntax-e _%e130873130880%_)))) - (let ((_%hd130877130891%_ + (gx#syntax-e _%e131147131154%_)))) + (let ((_%hd131151131165%_ (let () (declare (not safe)) - (##car _%e130876130888%_))) - (_%tl130878130893%_ + (##car _%e131150131162%_))) + (_%tl131152131167%_ (let () (declare (not safe)) - (##cdr _%e130876130888%_)))) - (let* ((_%hd130896%_ _%hd130877130891%_) - (_%rest130898%_ _%tl130878130893%_)) - (if (_%is-e?130863%_ _%hd130896%_) - (let* ((_%e130899130906%_ _%rest130898%_) - (_%E130901130910%_ + (##cdr _%e131150131162%_)))) + (let* ((_%hd131170%_ _%hd131151131165%_) + (_%rest131172%_ _%tl131152131167%_)) + (if (_%is-e?131137%_ _%hd131170%_) + (let* ((_%e131173131180%_ _%rest131172%_) + (_%E131175131184%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad ellipsis syntax" - _%stx130809%_ - _%e130862%_)))) - (_%E130900130924%_ + _%stx131083%_ + _%e131136%_)))) + (_%E131174131198%_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _%e130899130906%_)) - (let ((_%e130902130914%_ + _%e131173131180%_)) + (let ((_%e131176131188%_ (let () (declare (not safe)) (gx#syntax-e - _%e130899130906%_)))) - (let ((_%hd130903130917%_ + _%e131173131180%_)))) + (let ((_%hd131177131191%_ (let () (declare (not safe)) - (##car _%e130902130914%_))) - (_%tl130904130919%_ + (##car _%e131176131188%_))) + (_%tl131178131193%_ (let () (declare (not safe)) - (##cdr _%e130902130914%_)))) - (let ((_%rest130922%_ - _%hd130903130917%_)) + (##cdr _%e131176131188%_)))) + (let ((_%rest131196%_ + _%hd131177131191%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl130904130919%_)) - (_%recur130857%_ - _%rest130922%_ + _%tl131178131193%_)) + (_%recur131131%_ + _%rest131196%_ false) - (_%E130901130910%_))))) - (_%E130901130910%_))))) - (_%E130900130924%_)) - (let _%lp130928%_ ((_%rest130930%_ - _%rest130898%_) - (_%depth130931%_ '0)) - (let* ((_%e130932130939%_ _%rest130930%_) - (_%E130934130943%_ + (_%E131175131184%_))))) + (_%E131175131184%_))))) + (_%E131174131198%_)) + (let _%lp131202%_ ((_%rest131204%_ + _%rest131172%_) + (_%depth131205%_ '0)) + (let* ((_%e131206131213%_ _%rest131204%_) + (_%E131208131217%_ (lambda () - (if (fxpositive? _%depth130931%_) - (_%make-splice130856%_ - _%e130862%_ - _%depth130931%_ - (_%recur130857%_ - _%hd130896%_ - _%is-e?130863%_) - (_%recur130857%_ - _%rest130930%_ - _%is-e?130863%_)) - (_%make-cons130855%_ - (_%recur130857%_ - _%hd130896%_ - _%is-e?130863%_) - (_%recur130857%_ - _%rest130930%_ - _%is-e?130863%_))))) - (_%E130933130962%_ + (if (fxpositive? _%depth131205%_) + (_%make-splice131130%_ + _%e131136%_ + _%depth131205%_ + (_%recur131131%_ + _%hd131170%_ + _%is-e?131137%_) + (_%recur131131%_ + _%rest131204%_ + _%is-e?131137%_)) + (_%make-cons131129%_ + (_%recur131131%_ + _%hd131170%_ + _%is-e?131137%_) + (_%recur131131%_ + _%rest131204%_ + _%is-e?131137%_))))) + (_%E131207131236%_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _%e130932130939%_)) - (let ((_%e130935130947%_ + _%e131206131213%_)) + (let ((_%e131209131221%_ (let () (declare (not safe)) (gx#syntax-e - _%e130932130939%_)))) - (let ((_%hd130936130950%_ + _%e131206131213%_)))) + (let ((_%hd131210131224%_ (let () (declare (not safe)) - (##car _%e130935130947%_))) - (_%tl130937130952%_ + (##car _%e131209131221%_))) + (_%tl131211131226%_ (let () (declare (not safe)) - (##cdr _%e130935130947%_)))) - (let* ((_%rest-hd130955%_ - _%hd130936130950%_) - (_%rest-tl130957%_ - _%tl130937130952%_)) - (if (_%is-e?130863%_ - _%rest-hd130955%_) - (_%lp130928%_ - _%rest-tl130957%_ + (##cdr _%e131209131221%_)))) + (let* ((_%rest-hd131229%_ + _%hd131210131224%_) + (_%rest-tl131231%_ + _%tl131211131226%_)) + (if (_%is-e?131137%_ + _%rest-hd131229%_) + (_%lp131202%_ + _%rest-tl131231%_ (let () (declare (not safe)) - (##fx+ _%depth130931%_ + (##fx+ _%depth131205%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '1))) - (if (fxpositive? _%depth130931%_) - (_%make-splice130856%_ - _%e130862%_ - _%depth130931%_ - (_%recur130857%_ _%hd130896%_ _%is-e?130863%_) - (_%recur130857%_ _%rest130930%_ _%is-e?130863%_)) - (_%make-cons130855%_ - (_%recur130857%_ _%hd130896%_ _%is-e?130863%_) - (_%recur130857%_ _%rest130930%_ _%is-e?130863%_))))))) + (if (fxpositive? _%depth131205%_) + (_%make-splice131130%_ + _%e131136%_ + _%depth131205%_ + (_%recur131131%_ _%hd131170%_ _%is-e?131137%_) + (_%recur131131%_ _%rest131204%_ _%is-e?131137%_)) + (_%make-cons131129%_ + (_%recur131131%_ _%hd131170%_ _%is-e?131137%_) + (_%recur131131%_ _%rest131204%_ _%is-e?131137%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E130934130943%_))))) - (_%E130933130962%_))))))) - (_%E130875130884%_))))) + (_%E131208131217%_))))) + (_%E131207131236%_))))))) + (_%E131149131158%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E130874130966%_)) + (_%E131148131240%_)) (if (let () (declare (not safe)) (gx#stx-vector? - _%e130862%_)) - (let ((_g131389_ - (_%recur130857%_ + _%e131136%_)) + (let ((_g131663_ + (_%recur131131%_ (vector->list (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-unwrap__0 _%e130862%_))) - _%is-e?130863%_))) + (gx#stx-unwrap__0 _%e131136%_))) + _%is-e?131137%_))) (begin - (let ((_g131390_ + (let ((_g131664_ (let () (declare (not safe)) - (if (##values? _g131389_) - (##vector-length _g131389_) + (if (##values? _g131663_) + (##vector-length _g131663_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g131390_ 2))) - (error "Context expects 2 values" _g131390_))) - (let ((_%e130971%_ + (if (not (let () (declare (not safe)) (##fx= _g131664_ 2))) + (error "Context expects 2 values" _g131664_))) + (let ((_%e131245%_ (let () (declare (not safe)) - (##vector-ref _g131389_ 0))) - (_%vars130972%_ + (##vector-ref _g131663_ 0))) + (_%vars131246%_ (let () (declare (not safe)) - (##vector-ref _g131389_ 1)))) - (values (cons 'vector _%e130971%_) _%vars130972%_)))) + (##vector-ref _g131663_ 1)))) + (values (cons 'vector _%e131245%_) _%vars131246%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-box? - _%e130862%_)) - (let ((_g131391_ - (_%recur130857%_ + _%e131136%_)) + (let ((_g131665_ + (_%recur131131%_ (unbox (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-unwrap__0 _%e130862%_))) - _%is-e?130863%_))) + (gx#stx-unwrap__0 _%e131136%_))) + _%is-e?131137%_))) (begin - (let ((_g131392_ + (let ((_g131666_ (let () (declare (not safe)) - (if (##values? _g131391_) - (##vector-length _g131391_) + (if (##values? _g131665_) + (##vector-length _g131665_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g131392_ 2))) - (error "Context expects 2 values" _g131392_))) - (let ((_%e130975%_ + (##fx= _g131666_ 2))) + (error "Context expects 2 values" _g131666_))) + (let ((_%e131249%_ (let () (declare (not safe)) - (##vector-ref _g131391_ 0))) - (_%vars130976%_ + (##vector-ref _g131665_ 0))) + (_%vars131250%_ (let () (declare (not safe)) - (##vector-ref _g131391_ 1)))) - (values (cons 'box _%e130975%_) _%vars130976%_)))) - (values (cons 'datum _%e130862%_) '())))))))))) + (##vector-ref _g131665_ 1)))) + (values (cons 'box _%e131249%_) _%vars131250%_)))) + (values (cons 'datum _%e131136%_) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g131393_ - (_%recur130857%_ _%e130853%_ gx#ellipsis?))) + (let ((_g131667_ + (_%recur131131%_ _%e131127%_ gx#ellipsis?))) (begin - (let ((_g131394_ + (let ((_g131668_ (let () (declare (not safe)) - (if (##values? _g131393_) - (##vector-length _g131393_) + (if (##values? _g131667_) + (##vector-length _g131667_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g131394_ 2))) - (error "Context expects 2 values" _g131394_))) - (let ((_%tree130859%_ + (##fx= _g131668_ 2))) + (error "Context expects 2 values" _g131668_))) + (let ((_%tree131133%_ (let () (declare (not safe)) - (##vector-ref _g131393_ 0))) - (_%vars130860%_ + (##vector-ref _g131667_ 0))) + (_%vars131134%_ (let () (declare (not safe)) - (##vector-ref _g131393_ 1)))) - (if (null? _%vars130860%_) - _%tree130859%_ + (##vector-ref _g131667_ 1)))) + (if (null? _%vars131134%_) + _%tree131133%_ (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Missing ellipsis" - _%stx130809%_ - _%vars130860%_)))))))))) - (let* ((_%e130813130823%_ _%stx130809%_) - (_%E130815130827%_ + _%stx131083%_ + _%vars131134%_)))))))))) + (let* ((_%e131087131097%_ _%stx131083%_) + (_%E131089131101%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; expand-syntax expects a single argument" - _%stx130809%_)))) - (_%E130814130849%_ + _%stx131083%_)))) + (_%E131088131123%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e130813130823%_)) - (let ((_%e130816130831%_ + (gx#stx-pair? _%e131087131097%_)) + (let ((_%e131090131105%_ (let () (declare (not safe)) - (gx#syntax-e _%e130813130823%_)))) - (let ((_%hd130817130834%_ + (gx#syntax-e _%e131087131097%_)))) + (let ((_%hd131091131108%_ (let () (declare (not safe)) - (##car _%e130816130831%_))) - (_%tl130818130836%_ + (##car _%e131090131105%_))) + (_%tl131092131110%_ (let () (declare (not safe)) - (##cdr _%e130816130831%_)))) + (##cdr _%e131090131105%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl130818130836%_)) - (let ((_%e130819130839%_ + (gx#stx-pair? _%tl131092131110%_)) + (let ((_%e131093131113%_ (let () (declare (not safe)) - (gx#syntax-e _%tl130818130836%_)))) - (let ((_%hd130820130842%_ + (gx#syntax-e _%tl131092131110%_)))) + (let ((_%hd131094131116%_ (let () (declare (not safe)) - (##car _%e130819130839%_))) - (_%tl130821130844%_ + (##car _%e131093131113%_))) + (_%tl131095131118%_ (let () (declare (not safe)) - (##cdr _%e130819130839%_)))) - (let ((_%form130847%_ _%hd130820130842%_)) + (##cdr _%e131093131113%_)))) + (let ((_%form131121%_ _%hd131094131116%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl130821130844%_)) - (let ((__tmp131396 - (_%generate130811%_ - (_%parse130812%_ - _%form130847%_))) - (__tmp131395 + (gx#stx-null? _%tl131095131118%_)) + (let ((__tmp131670 + (_%generate131085%_ + (_%parse131086%_ + _%form131121%_))) + (__tmp131669 (let () (declare (not safe)) (gx#stx-source - _%stx130809%_)))) + _%stx131083%_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp131396 - __tmp131395)) - (_%E130815130827%_))))) - (_%E130815130827%_)))) - (_%E130815130827%_))))) - (_%E130814130849%_))))) + __tmp131670 + __tmp131669)) + (_%E131089131101%_))))) + (_%E131089131101%_)))) + (_%E131089131101%_))))) + (_%E131088131123%_))))) (define gx#macro-expand-syntax-case__% - (lambda (_%stx130058%_ - _%identifier=?130059%_ - _%unwrap-e130060%_ - _%wrap-e130061%_) - (letrec ((_%generate-bindings130063%_ - (lambda (_%target130673%_ - _%ids130674%_ - _%clauses130675%_ - _%clause-ids130676%_ - _%E130677%_) - (letrec ((_%generate1130679%_ - (lambda (_%clause130776%_ - _%clause-id130777%_ - _%E130778%_) - (cons (cons _%clause-id130777%_ '()) - (cons (let ((__tmp131398 - (cons _%target130673%_ '())) - (__tmp131397 - (_%generate-clause130065%_ - _%target130673%_ - _%ids130674%_ - _%clause130776%_ - _%E130778%_))) + (lambda (_%stx130332%_ + _%identifier=?130333%_ + _%unwrap-e130334%_ + _%wrap-e130335%_) + (letrec ((_%generate-bindings130337%_ + (lambda (_%target130947%_ + _%ids130948%_ + _%clauses130949%_ + _%clause-ids130950%_ + _%E130951%_) + (letrec ((_%generate1130953%_ + (lambda (_%clause131050%_ + _%clause-id131051%_ + _%E131052%_) + (cons (cons _%clause-id131051%_ '()) + (cons (let ((__tmp131672 + (cons _%target130947%_ '())) + (__tmp131671 + (_%generate-clause130339%_ + _%target130947%_ + _%ids130948%_ + _%clause131050%_ + _%E131052%_))) (declare (not safe)) (gx#core-list 'lambda% - __tmp131398 - __tmp131397)) + __tmp131672 + __tmp131671)) '()))))) - (let _%lp130681%_ ((_%rest130683%_ _%clauses130675%_) - (_%rest-ids130684%_ - _%clause-ids130676%_) - (_%bindings130685%_ '())) - (let* ((_%rest130686130694%_ _%rest130683%_) - (_%else130688130702%_ - (lambda () _%bindings130685%_)) - (_%K130690130764%_ - (lambda (_%rest130705%_ _%clause130706%_) - (let* ((_%rest-ids130707130714%_ - _%rest-ids130684%_) - (_%E130709130718%_ + (let _%lp130955%_ ((_%rest130957%_ _%clauses130949%_) + (_%rest-ids130958%_ + _%clause-ids130950%_) + (_%bindings130959%_ '())) + (let* ((_%rest130960130968%_ _%rest130957%_) + (_%else130962130976%_ + (lambda () _%bindings130959%_)) + (_%K130964131038%_ + (lambda (_%rest130979%_ _%clause130980%_) + (let* ((_%rest-ids130981130988%_ + _%rest-ids130958%_) + (_%E130983130992%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest-ids130707130714%_ + _%rest-ids130981130988%_ '([clause-id . rest-ids]))) '#!void)) - (_%K130710130752%_ - (lambda (_%rest-ids130721%_ - _%clause-id130722%_) - (let* ((_%rest-ids130723130731%_ - _%rest-ids130721%_) - (_%else130725130739%_ + (_%K130984131026%_ + (lambda (_%rest-ids130995%_ + _%clause-id130996%_) + (let* ((_%rest-ids130997131005%_ + _%rest-ids130995%_) + (_%else130999131013%_ (lambda () - (cons (_%generate1130679%_ - _%clause130706%_ - _%clause-id130722%_ - _%E130677%_) - _%bindings130685%_))) - (_%K130727130744%_ - (lambda (_%next-clause-id130742%_) - (_%lp130681%_ - _%rest130705%_ - _%rest-ids130721%_ - (cons (_%generate1130679%_ - _%clause130706%_ - _%clause-id130722%_ - _%next-clause-id130742%_) - _%bindings130685%_))))) + (cons (_%generate1130953%_ + _%clause130980%_ + _%clause-id130996%_ + _%E130951%_) + _%bindings130959%_))) + (_%K131001131018%_ + (lambda (_%next-clause-id131016%_) + (_%lp130955%_ + _%rest130979%_ + _%rest-ids130995%_ + (cons (_%generate1130953%_ + _%clause130980%_ + _%clause-id130996%_ + _%next-clause-id131016%_) + _%bindings130959%_))))) (if (let () (declare (not safe)) - (##pair? _%rest-ids130723130731%_)) - (let* ((_%hd130728130747%_ + (##pair? _%rest-ids130997131005%_)) + (let* ((_%hd131002131021%_ (let () (declare (not safe)) - (##car _%rest-ids130723130731%_))) - (_%next-clause-id130750%_ - _%hd130728130747%_)) - (_%K130727130744%_ - _%next-clause-id130750%_)) - (_%else130725130739%_)))))) + (##car _%rest-ids130997131005%_))) + (_%next-clause-id131024%_ + _%hd131002131021%_)) + (_%K131001131018%_ + _%next-clause-id131024%_)) + (_%else130999131013%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest-ids130707130714%_)) - (let ((_%hd130711130755%_ + (##pair? _%rest-ids130981130988%_)) + (let ((_%hd130985131029%_ (let () (declare (not safe)) - (##car _%rest-ids130707130714%_))) - (_%tl130712130757%_ + (##car _%rest-ids130981130988%_))) + (_%tl130986131031%_ (let () (declare (not safe)) - (##cdr _%rest-ids130707130714%_)))) - (let* ((_%clause-id130760%_ - _%hd130711130755%_) - (_%rest-ids130762%_ - _%tl130712130757%_)) - (_%K130710130752%_ - _%rest-ids130762%_ - _%clause-id130760%_))) - (_%E130709130718%_)))))) + (##cdr _%rest-ids130981130988%_)))) + (let* ((_%clause-id131034%_ + _%hd130985131029%_) + (_%rest-ids131036%_ + _%tl130986131031%_)) + (_%K130984131026%_ + _%rest-ids131036%_ + _%clause-id131034%_))) + (_%E130983130992%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest130686130694%_)) - (let ((_%hd130691130767%_ + (##pair? _%rest130960130968%_)) + (let ((_%hd130965131041%_ (let () (declare (not safe)) - (##car _%rest130686130694%_))) - (_%tl130692130769%_ + (##car _%rest130960130968%_))) + (_%tl130966131043%_ (let () (declare (not safe)) - (##cdr _%rest130686130694%_)))) - (let* ((_%clause130772%_ _%hd130691130767%_) - (_%rest130774%_ _%tl130692130769%_)) - (_%K130690130764%_ - _%rest130774%_ - _%clause130772%_))) - (_%else130688130702%_))))))) - (_%generate-body130064%_ - (lambda (_%bindings130633%_ _%body130634%_) - (let _%recur130636%_ ((_%rest130638%_ _%bindings130633%_)) - (let* ((_%rest130639130647%_ _%rest130638%_) - (_%else130641130655%_ (lambda () _%body130634%_)) - (_%K130643130661%_ - (lambda (_%rest130658%_ _%hd130659%_) - (let ((__tmp131400 (cons _%hd130659%_ '())) - (__tmp131399 - (_%recur130636%_ _%rest130658%_))) + (##cdr _%rest130960130968%_)))) + (let* ((_%clause131046%_ _%hd130965131041%_) + (_%rest131048%_ _%tl130966131043%_)) + (_%K130964131038%_ + _%rest131048%_ + _%clause131046%_))) + (_%else130962130976%_))))))) + (_%generate-body130338%_ + (lambda (_%bindings130907%_ _%body130908%_) + (let _%recur130910%_ ((_%rest130912%_ _%bindings130907%_)) + (let* ((_%rest130913130921%_ _%rest130912%_) + (_%else130915130929%_ (lambda () _%body130908%_)) + (_%K130917130935%_ + (lambda (_%rest130932%_ _%hd130933%_) + (let ((__tmp131674 (cons _%hd130933%_ '())) + (__tmp131673 + (_%recur130910%_ _%rest130932%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp131400 - __tmp131399))))) + __tmp131674 + __tmp131673))))) (if (let () (declare (not safe)) - (##pair? _%rest130639130647%_)) - (let ((_%hd130644130664%_ + (##pair? _%rest130913130921%_)) + (let ((_%hd130918130938%_ (let () (declare (not safe)) - (##car _%rest130639130647%_))) - (_%tl130645130666%_ + (##car _%rest130913130921%_))) + (_%tl130919130940%_ (let () (declare (not safe)) - (##cdr _%rest130639130647%_)))) - (let* ((_%hd130669%_ _%hd130644130664%_) - (_%rest130671%_ _%tl130645130666%_)) - (_%K130643130661%_ - _%rest130671%_ - _%hd130669%_))) - (_%else130641130655%_)))))) - (_%generate-clause130065%_ - (lambda (_%target130496%_ - _%ids130497%_ - _%clause130498%_ - _%E130499%_) - (letrec ((_%generate1130501%_ - (lambda (_%hd130588%_ - _%fender130589%_ - _%body130590%_) - (let ((_g131401_ - (_%parse-clause130067%_ - _%hd130588%_ - _%ids130497%_))) + (##cdr _%rest130913130921%_)))) + (let* ((_%hd130943%_ _%hd130918130938%_) + (_%rest130945%_ _%tl130919130940%_)) + (_%K130917130935%_ + _%rest130945%_ + _%hd130943%_))) + (_%else130915130929%_)))))) + (_%generate-clause130339%_ + (lambda (_%target130770%_ + _%ids130771%_ + _%clause130772%_ + _%E130773%_) + (letrec ((_%generate1130775%_ + (lambda (_%hd130862%_ + _%fender130863%_ + _%body130864%_) + (let ((_g131675_ + (_%parse-clause130341%_ + _%hd130862%_ + _%ids130771%_))) (begin - (let ((_g131402_ + (let ((_g131676_ (let () (declare (not safe)) - (if (##values? _g131401_) - (##vector-length _g131401_) + (if (##values? _g131675_) + (##vector-length _g131675_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g131402_ 2))) + (##fx= _g131676_ 2))) (error "Context expects 2 values" - _g131402_))) - (let ((_%e130592%_ + _g131676_))) + (let ((_%e130866%_ (let () (declare (not safe)) - (##vector-ref _g131401_ 0))) - (_%mvars130593%_ + (##vector-ref _g131675_ 0))) + (_%mvars130867%_ (let () (declare (not safe)) - (##vector-ref _g131401_ 1)))) - (let* ((_%pvars130595%_ + (##vector-ref _g131675_ 1)))) + (let* ((_%pvars130869%_ (map gx#syntax-local-rewrap (let () (declare (not safe)) (gx#gentemps - _%mvars130593%_)))) - (_%E130597%_ - (cons _%E130499%_ - (cons _%target130496%_ + _%mvars130867%_)))) + (_%E130871%_ + (cons _%E130773%_ + (cons _%target130770%_ '()))) - (_%K130630%_ - (let ((__tmp131403 - (let ((__tmp131405 - (map (lambda (_%mvar130599%_ + (_%K130904%_ + (let ((__tmp131677 + (let ((__tmp131679 + (map (lambda (_%mvar130873%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pvar130600%_) - (let* ((_%mvar130601130608%_ _%mvar130599%_) - (_%E130603130612%_ + _%pvar130874%_) + (let* ((_%mvar130875130882%_ _%mvar130873%_) + (_%E130877130886%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%mvar130601130608%_ + _%mvar130875130882%_ '([id . depth]))) '#!void)) - (_%K130604130618%_ - (lambda (_%depth130615%_ _%id130616%_) - (cons _%id130616%_ - (cons (let ((__tmp131407 + (_%K130878130892%_ + (lambda (_%depth130889%_ _%id130890%_) + (cons _%id130890%_ + (cons (let ((__tmp131681 (let () (declare (not safe)) (gx#core-list 'quote - _%id130616%_))) - (__tmp131406 + _%id130890%_))) + (__tmp131680 (let () (declare (not safe)) (gx#core-list 'quote - _%pvar130600%_)))) + _%pvar130874%_)))) (declare (not safe)) (gx#core-list 'make-syntax-pattern - __tmp131407 - __tmp131406 - _%depth130615%_)) + __tmp131681 + __tmp131680 + _%depth130889%_)) '()))))) (if (let () (declare (not safe)) - (##pair? _%mvar130601130608%_)) - (let ((_%hd130605130621%_ + (##pair? _%mvar130875130882%_)) + (let ((_%hd130879130895%_ (let () (declare (not safe)) - (##car _%mvar130601130608%_))) - (_%tl130606130623%_ + (##car _%mvar130875130882%_))) + (_%tl130880130897%_ (let () (declare (not safe)) - (##cdr _%mvar130601130608%_)))) - (let* ((_%id130626%_ _%hd130605130621%_) - (_%depth130628%_ _%tl130606130623%_)) - (_%K130604130618%_ - _%depth130628%_ - _%id130626%_))) - (_%E130603130612%_)))) - _%mvars130593%_ - _%pvars130595%_)) - (__tmp131404 - (if (eq? _%fender130589%_ '#t) - _%body130590%_ + (##cdr _%mvar130875130882%_)))) + (let* ((_%id130900%_ _%hd130879130895%_) + (_%depth130902%_ _%tl130880130897%_)) + (_%K130878130892%_ + _%depth130902%_ + _%id130900%_))) + (_%E130877130886%_)))) + _%mvars130867%_ + _%pvars130869%_)) + (__tmp131678 + (if (eq? _%fender130863%_ '#t) + _%body130864%_ (let () (declare (not safe)) (gx#core-list 'if - _%fender130589%_ - _%body130590%_ - _%E130597%_))))) + _%fender130863%_ + _%body130864%_ + _%E130871%_))))) (declare (not safe)) - (gx#core-list 'let-syntax __tmp131405 __tmp131404)))) + (gx#core-list 'let-syntax __tmp131679 __tmp131678)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'lambda% - _%pvars130595%_ - __tmp131403)))) - (_%generate-match130066%_ - _%hd130588%_ - _%target130496%_ - _%e130592%_ - _%mvars130593%_ - _%K130630%_ - _%E130597%_)))))))) - (let* ((_%e130502130522%_ _%clause130498%_) - (_%E130511130526%_ + _%pvars130869%_ + __tmp131677)))) + (_%generate-match130340%_ + _%hd130862%_ + _%target130770%_ + _%e130866%_ + _%mvars130867%_ + _%K130904%_ + _%E130871%_)))))))) + (let* ((_%e130776130796%_ _%clause130772%_) + (_%E130785130800%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130502130522%_)))) - (_%E130504130560%_ + _%e130776130796%_)))) + (_%E130778130834%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e130502130522%_)) - (let ((_%e130512130530%_ + (gx#stx-pair? _%e130776130796%_)) + (let ((_%e130786130804%_ (let () (declare (not safe)) - (gx#syntax-e _%e130502130522%_)))) - (let ((_%hd130513130533%_ + (gx#syntax-e _%e130776130796%_)))) + (let ((_%hd130787130807%_ (let () (declare (not safe)) - (##car _%e130512130530%_))) - (_%tl130514130535%_ + (##car _%e130786130804%_))) + (_%tl130788130809%_ (let () (declare (not safe)) - (##cdr _%e130512130530%_)))) - (let ((_%hd130538%_ - _%hd130513130533%_)) + (##cdr _%e130786130804%_)))) + (let ((_%hd130812%_ + _%hd130787130807%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl130514130535%_)) - (let ((_%e130515130540%_ + _%tl130788130809%_)) + (let ((_%e130789130814%_ (let () (declare (not safe)) (gx#syntax-e - _%tl130514130535%_)))) - (let ((_%hd130516130543%_ + _%tl130788130809%_)))) + (let ((_%hd130790130817%_ (let () (declare (not safe)) - (##car _%e130515130540%_))) - (_%tl130517130545%_ + (##car _%e130789130814%_))) + (_%tl130791130819%_ (let () (declare (not safe)) - (##cdr _%e130515130540%_)))) - (let ((_%fender130548%_ - _%hd130516130543%_)) + (##cdr _%e130789130814%_)))) + (let ((_%fender130822%_ + _%hd130790130817%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl130517130545%_)) - (let ((_%e130518130550%_ + _%tl130791130819%_)) + (let ((_%e130792130824%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%tl130517130545%_)))) - (let ((_%hd130519130553%_ + (gx#syntax-e _%tl130791130819%_)))) + (let ((_%hd130793130827%_ (let () (declare (not safe)) - (##car _%e130518130550%_))) - (_%tl130520130555%_ + (##car _%e130792130824%_))) + (_%tl130794130829%_ (let () (declare (not safe)) - (##cdr _%e130518130550%_)))) - (let ((_%body130558%_ _%hd130519130553%_)) + (##cdr _%e130792130824%_)))) + (let ((_%body130832%_ _%hd130793130827%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl130520130555%_)) - (_%generate1130501%_ - _%hd130538%_ - _%fender130548%_ - _%body130558%_) - (_%E130511130526%_))))) - (_%E130511130526%_))))) + (gx#stx-null? _%tl130794130829%_)) + (_%generate1130775%_ + _%hd130812%_ + _%fender130822%_ + _%body130832%_) + (_%E130785130800%_))))) + (_%E130785130800%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E130511130526%_))))) - (_%E130511130526%_)))) - (_%E130503130584%_ + (_%E130785130800%_))))) + (_%E130785130800%_)))) + (_%E130777130858%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e130502130522%_)) - (let ((_%e130505130564%_ + (gx#stx-pair? _%e130776130796%_)) + (let ((_%e130779130838%_ (let () (declare (not safe)) - (gx#syntax-e _%e130502130522%_)))) - (let ((_%hd130506130567%_ + (gx#syntax-e _%e130776130796%_)))) + (let ((_%hd130780130841%_ (let () (declare (not safe)) - (##car _%e130505130564%_))) - (_%tl130507130569%_ + (##car _%e130779130838%_))) + (_%tl130781130843%_ (let () (declare (not safe)) - (##cdr _%e130505130564%_)))) - (let ((_%hd130572%_ - _%hd130506130567%_)) + (##cdr _%e130779130838%_)))) + (let ((_%hd130846%_ + _%hd130780130841%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl130507130569%_)) - (let ((_%e130508130574%_ + _%tl130781130843%_)) + (let ((_%e130782130848%_ (let () (declare (not safe)) (gx#syntax-e - _%tl130507130569%_)))) - (let ((_%hd130509130577%_ + _%tl130781130843%_)))) + (let ((_%hd130783130851%_ (let () (declare (not safe)) - (##car _%e130508130574%_))) - (_%tl130510130579%_ + (##car _%e130782130848%_))) + (_%tl130784130853%_ (let () (declare (not safe)) - (##cdr _%e130508130574%_)))) - (let ((_%body130582%_ - _%hd130509130577%_)) + (##cdr _%e130782130848%_)))) + (let ((_%body130856%_ + _%hd130783130851%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl130510130579%_)) - (_%generate1130501%_ - _%hd130572%_ + _%tl130784130853%_)) + (_%generate1130775%_ + _%hd130846%_ '#t - _%body130582%_) - (_%E130504130560%_))))) - (_%E130504130560%_))))) - (_%E130504130560%_))))) - (_%E130503130584%_))))) - (_%generate-match130066%_ - (lambda (_%where130245%_ - _%target130246%_ - _%hd130247%_ - _%mvars130248%_ - _%K130249%_ - _%E130250%_) - (letrec ((_%BUG130252%_ - (lambda (_%q130494%_) + _%body130856%_) + (_%E130778130834%_))))) + (_%E130778130834%_))))) + (_%E130778130834%_))))) + (_%E130777130858%_))))) + (_%generate-match130340%_ + (lambda (_%where130519%_ + _%target130520%_ + _%hd130521%_ + _%mvars130522%_ + _%K130523%_ + _%E130524%_) + (letrec ((_%BUG130526%_ + (lambda (_%q130768%_) (let () (declare (not safe)) (error '"BUG: syntax-case; generate" - _%stx130058%_ - _%hd130247%_ - _%q130494%_)))) - (_%recur130253%_ - (lambda (_%e130344%_ - _%vars130345%_ - _%target130346%_ - _%E130347%_ - _%k130348%_) - (let* ((_%e130349130356%_ _%e130344%_) - (_%E130351130360%_ + _%stx130332%_ + _%hd130521%_ + _%q130768%_)))) + (_%recur130527%_ + (lambda (_%e130618%_ + _%vars130619%_ + _%target130620%_ + _%E130621%_ + _%k130622%_) + (let* ((_%e130623130630%_ _%e130618%_) + (_%E130625130634%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e130349130356%_ + _%e130623130630%_ '([tag . body]))) '#!void)) - (_%K130352130482%_ - (lambda (_%body130363%_ _%tag130364%_) - (let ((_%$e130366%_ _%tag130364%_)) - (if (eq? 'any _%$e130366%_) - (_%k130348%_ _%vars130345%_) - (if (eq? 'id _%$e130366%_) - (let ((__tmp131412 + (_%K130626130756%_ + (lambda (_%body130637%_ _%tag130638%_) + (let ((_%$e130640%_ _%tag130638%_)) + (if (eq? 'any _%$e130640%_) + (_%k130622%_ _%vars130619%_) + (if (eq? 'id _%$e130640%_) + (let ((__tmp131686 (let () (declare (not safe)) (gx#core-list 'identifier? - _%target130346%_))) - (__tmp131408 - (let ((__tmp131410 + _%target130620%_))) + (__tmp131682 + (let ((__tmp131684 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp131411 + (let ((__tmp131685 (let () (declare (not safe)) (gx#core-list - _%wrap-e130061%_ - _%body130363%_)))) + _%wrap-e130335%_ + _%body130637%_)))) (declare (not safe)) (gx#core-list - _%identifier=?130059%_ - __tmp131411 - _%target130346%_))) - (__tmp131409 (_%k130348%_ _%vars130345%_))) + _%identifier=?130333%_ + __tmp131685 + _%target130620%_))) + (__tmp131683 (_%k130622%_ _%vars130619%_))) (declare (not safe)) - (gx#core-list 'if __tmp131410 __tmp131409 _%E130347%_)))) + (gx#core-list 'if __tmp131684 __tmp131683 _%E130621%_)))) (declare (not safe)) - (gx#core-list 'if __tmp131412 __tmp131408 _%E130347%_)) + (gx#core-list 'if __tmp131686 __tmp131682 _%E130621%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (eq? 'var _%$e130366%_) - (_%k130348%_ - (cons (cons _%body130363%_ + (if (eq? 'var _%$e130640%_) + (_%k130622%_ + (cons (cons _%body130637%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%target130346%_) - _%vars130345%_)) - (if (eq? 'cons _%$e130366%_) - (let ((_%$e130369%_ + _%target130620%_) + _%vars130619%_)) + (if (eq? 'cons _%$e130640%_) + (let ((_%$e130643%_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_%$hd130370%_ + (_%$hd130644%_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_%$tl130371%_ + (_%$tl130645%_ (let () (declare (not safe)) (gx#genident__1 'tl)))) - (let ((__tmp131418 + (let ((__tmp131692 (let () (declare (not safe)) - (gx#core-list 'stx-pair? _%target130346%_))) - (__tmp131413 - (let ((__tmp131417 - (cons (cons (cons _%$e130369%_ '()) + (gx#core-list 'stx-pair? _%target130620%_))) + (__tmp131687 + (let ((__tmp131691 + (cons (cons (cons _%$e130643%_ '()) (cons (let () (declare (not safe)) (gx#core-list - _%unwrap-e130060%_ - _%target130346%_)) + _%unwrap-e130334%_ + _%target130620%_)) '())) '())) - (__tmp131414 - (let ((__tmp131416 - (cons (cons (cons _%$hd130370%_ '()) + (__tmp131688 + (let ((__tmp131690 + (cons (cons (cons _%$hd130644%_ '()) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#core-list '##car _%$e130369%_)) + (gx#core-list '##car _%$e130643%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (cons _%$tl130371%_ + (cons (cons (cons _%$tl130645%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gx#core-list '##cdr _%$e130369%_)) + (gx#core-list '##cdr _%$e130643%_)) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp131415 - (let* ((_%body130372130379%_ - _%body130363%_) - (_%E130374130383%_ + (__tmp131689 + (let* ((_%body130646130653%_ + _%body130637%_) + (_%E130648130657%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%body130372130379%_ + _%body130646130653%_ '([hd . tl]))) '#!void)) - (_%K130375130391%_ - (lambda (_%tl130386%_ - _%hd130387%_) - (_%recur130253%_ - _%hd130387%_ - _%vars130345%_ - _%$hd130370%_ - _%E130347%_ - (lambda (_%vars130389%_) - (_%recur130253%_ - _%tl130386%_ - _%vars130389%_ - _%$tl130371%_ - _%E130347%_ - _%k130348%_)))))) + (_%K130649130665%_ + (lambda (_%tl130660%_ + _%hd130661%_) + (_%recur130527%_ + _%hd130661%_ + _%vars130619%_ + _%$hd130644%_ + _%E130621%_ + (lambda (_%vars130663%_) + (_%recur130527%_ + _%tl130660%_ + _%vars130663%_ + _%$tl130645%_ + _%E130621%_ + _%k130622%_)))))) (if (let () (declare (not safe)) - (##pair? _%body130372130379%_)) - (let ((_%hd130376130394%_ + (##pair? _%body130646130653%_)) + (let ((_%hd130650130668%_ (let () (declare (not safe)) - (##car _%body130372130379%_))) - (_%tl130377130396%_ + (##car _%body130646130653%_))) + (_%tl130651130670%_ (let () (declare (not safe)) - (##cdr _%body130372130379%_)))) - (let* ((_%hd130399%_ - _%hd130376130394%_) - (_%tl130401%_ - _%tl130377130396%_)) - (_%K130375130391%_ - _%tl130401%_ - _%hd130399%_))) - (_%E130374130383%_))))) + (##cdr _%body130646130653%_)))) + (let* ((_%hd130673%_ + _%hd130650130668%_) + (_%tl130675%_ + _%tl130651130670%_)) + (_%K130649130665%_ + _%tl130675%_ + _%hd130673%_))) + (_%E130648130657%_))))) (declare (not safe)) (gx#core-list 'let-values - __tmp131416 - __tmp131415)))) + __tmp131690 + __tmp131689)))) (declare (not safe)) (gx#core-list 'let-values - __tmp131417 - __tmp131414)))) + __tmp131691 + __tmp131688)))) (declare (not safe)) (gx#core-list 'if - __tmp131418 - __tmp131413 - _%E130347%_))) - (if (eq? 'splice _%$e130366%_) - (let* ((_%body130402130409%_ _%body130363%_) - (_%E130404130413%_ + __tmp131692 + __tmp131687 + _%E130621%_))) + (if (eq? 'splice _%$e130640%_) + (let* ((_%body130676130683%_ _%body130637%_) + (_%E130678130687%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%body130402130409%_ + _%body130676130683%_ '([hd . tl]))) '#!void)) - (_%K130405130464%_ - (lambda (_%tl130416%_ _%hd130417%_) - (let* ((_%rlen130419%_ - (_%splice-rlen130254%_ _%tl130416%_)) - (_%$target130421%_ + (_%K130679130738%_ + (lambda (_%tl130690%_ _%hd130691%_) + (let* ((_%rlen130693%_ + (_%splice-rlen130528%_ _%tl130690%_)) + (_%$target130695%_ (let () (declare (not safe)) (gx#genident__1 'target))) - (_%$hd130423%_ + (_%$hd130697%_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_%$tl130425%_ + (_%$tl130699%_ (let () (declare (not safe)) (gx#genident__1 'tl))) - (_%$lp130427%_ + (_%$lp130701%_ (let () (declare (not safe)) (gx#genident__1 'loop))) - (_%$lp-e130429%_ + (_%$lp-e130703%_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_%$lp-hd130431%_ + (_%$lp-hd130705%_ (let () (declare (not safe)) (gx#genident__1 'lp-hd))) - (_%$lp-tl130433%_ + (_%$lp-tl130707%_ (let () (declare (not safe)) (gx#genident__1 'lp-tl))) - (_%svars130435%_ - (_%splice-vars130255%_ _%hd130417%_)) - (_%lvars130437%_ + (_%svars130709%_ + (_%splice-vars130529%_ _%hd130691%_)) + (_%lvars130711%_ (let () (declare (not safe)) - (gx#gentemps _%svars130435%_))) - (_%tlvars130439%_ + (gx#gentemps _%svars130709%_))) + (_%tlvars130713%_ (let () (declare (not safe)) - (gx#gentemps _%svars130435%_))) - (_%linit130443%_ - (map (lambda (_%var130441%_) + (gx#gentemps _%svars130709%_))) + (_%linit130717%_ + (map (lambda (_%var130715%_) (let () (declare (not safe)) (gx#core-list 'quote '()))) - _%lvars130437%_))) - (letrec ((_%make-loop130446%_ - (lambda (_%vars130450%_) - (let ((__tmp131420 - (cons (cons (cons _%$lp130427%_ + _%lvars130711%_))) + (letrec ((_%make-loop130720%_ + (lambda (_%vars130724%_) + (let ((__tmp131694 + (cons (cons (cons _%$lp130701%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp131433 - (cons _%$hd130423%_ _%lvars130437%_)) - (__tmp131421 - (let ((__tmp131432 + (cons (let ((__tmp131707 + (cons _%$hd130697%_ _%lvars130711%_)) + (__tmp131695 + (let ((__tmp131706 (let () (declare (not safe)) (gx#core-list 'stx-pair? - _%$hd130423%_))) - (__tmp131426 - (let ((__tmp131431 - (cons (cons (cons _%$lp-e130429%_ + _%$hd130697%_))) + (__tmp131700 + (let ((__tmp131705 + (cons (cons (cons _%$lp-e130703%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) (gx#core-list - _%unwrap-e130060%_ - _%$hd130423%_)) + _%unwrap-e130334%_ + _%$hd130697%_)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp131427 - (let ((__tmp131430 - (cons (cons (cons _%$lp-hd130431%_ + (__tmp131701 + (let ((__tmp131704 + (cons (cons (cons _%$lp-hd130705%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gx#core-list '##car _%$lp-e130429%_)) + (gx#core-list '##car _%$lp-e130703%_)) '())) - (cons (cons (cons _%$lp-tl130433%_ '()) + (cons (cons (cons _%$lp-tl130707%_ '()) (cons (let () (declare (not safe)) (gx#core-list '##cdr - _%$lp-e130429%_)) + _%$lp-e130703%_)) '())) '()))) - (__tmp131428 - (_%recur130253%_ - _%hd130417%_ + (__tmp131702 + (_%recur130527%_ + _%hd130691%_ '() - _%$lp-hd130431%_ - _%E130347%_ - (lambda (_%hdvars130452%_) - (cons _%$lp130427%_ - (cons _%$lp-tl130433%_ - (map (lambda (_%svar130454%_ - _%lvar130455%_) - (let ((__tmp131429 + _%$lp-hd130705%_ + _%E130621%_ + (lambda (_%hdvars130726%_) + (cons _%$lp130701%_ + (cons _%$lp-tl130707%_ + (map (lambda (_%svar130728%_ + _%lvar130729%_) + (let ((__tmp131703 (let () (declare (not safe)) (agetq__% - _%svar130454%_ - _%hdvars130452%_ - _%BUG130252%_)))) + _%svar130728%_ + _%hdvars130726%_ + _%BUG130526%_)))) (declare (not safe)) (gx#core-list 'cons - __tmp131429 - _%lvar130455%_))) - _%svars130435%_ - _%lvars130437%_))))))) + __tmp131703 + _%lvar130729%_))) + _%svars130709%_ + _%lvars130711%_))))))) (declare (not safe)) - (gx#core-list 'let-values __tmp131430 __tmp131428)))) + (gx#core-list 'let-values __tmp131704 __tmp131702)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp131431 - __tmp131427))) - (__tmp131422 - (let ((__tmp131425 - (map (lambda (_%lvar130457%_ + __tmp131705 + __tmp131701))) + (__tmp131696 + (let ((__tmp131699 + (map (lambda (_%lvar130731%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tlvar130458%_) - (cons (cons _%tlvar130458%_ '()) + _%tlvar130732%_) + (cons (cons _%tlvar130732%_ '()) (cons (let () (declare (not safe)) - (gx#core-list 'reverse _%lvar130457%_)) + (gx#core-list 'reverse _%lvar130731%_)) '()))) - _%lvars130437%_ - _%tlvars130439%_)) + _%lvars130711%_ + _%tlvars130713%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp131423 - (_%k130348%_ - (let ((__tmp131424 - (lambda (_%svar130460%_ + (__tmp131697 + (_%k130622%_ + (let ((__tmp131698 + (lambda (_%svar130734%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tlvar130461%_ - _%r130462%_) - (cons (cons _%svar130460%_ _%tlvar130461%_) - _%r130462%_)))) + _%tlvar130735%_ + _%r130736%_) + (cons (cons _%svar130734%_ _%tlvar130735%_) + _%r130736%_)))) (declare (not safe)) (__foldl2 - __tmp131424 - _%vars130450%_ - _%svars130435%_ - _%tlvars130439%_))))) + __tmp131698 + _%vars130724%_ + _%svars130709%_ + _%tlvars130713%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp131425 - __tmp131423)))) + __tmp131699 + __tmp131697)))) (declare (not safe)) (gx#core-list 'if - __tmp131432 - __tmp131426 - __tmp131422)))) + __tmp131706 + __tmp131700 + __tmp131696)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp131433 - __tmp131421)) + __tmp131707 + __tmp131695)) '())) '())) - (__tmp131419 - (cons _%$lp130427%_ (cons _%$target130421%_ _%linit130443%_)))) + (__tmp131693 + (cons _%$lp130701%_ (cons _%$target130695%_ _%linit130717%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'letrec-values - __tmp131420 - __tmp131419))))) - (let ((_%body130448%_ - (let ((__tmp131435 - (cons (cons (cons _%$target130421%_ + __tmp131694 + __tmp131693))))) + (let ((_%body130722%_ + (let ((__tmp131709 + (cons (cons (cons _%$target130695%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$tl130425%_ '())) + (cons _%$tl130699%_ '())) (cons (let () (declare (not safe)) (gx#core-list 'syntax-split-splice - _%target130346%_ - _%rlen130419%_)) + _%target130620%_ + _%rlen130693%_)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp131434 - (_%recur130253%_ - _%tl130416%_ - _%vars130345%_ - _%$tl130425%_ - _%E130347%_ - _%make-loop130446%_))) + (__tmp131708 + (_%recur130527%_ + _%tl130690%_ + _%vars130619%_ + _%$tl130699%_ + _%E130621%_ + _%make-loop130720%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp131435 - __tmp131434)))) - (let ((__tmp131439 + __tmp131709 + __tmp131708)))) + (let ((__tmp131713 (let () (declare (not safe)) (gx#core-list 'stx-pair/null? - _%target130346%_))) - (__tmp131436 - (if (zero? _%rlen130419%_) - _%body130448%_ - (let ((__tmp131437 - (let ((__tmp131438 + _%target130620%_))) + (__tmp131710 + (if (zero? _%rlen130693%_) + _%body130722%_ + (let ((__tmp131711 + (let ((__tmp131712 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#core-list 'stx-length _%target130346%_)))) + (gx#core-list 'stx-length _%target130620%_)))) (declare (not safe)) - (gx#core-list 'fx>= __tmp131438 _%rlen130419%_)))) + (gx#core-list 'fx>= __tmp131712 _%rlen130693%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'if - __tmp131437 - _%body130448%_ - _%E130347%_))))) + __tmp131711 + _%body130722%_ + _%E130621%_))))) (declare (not safe)) (gx#core-list 'if - __tmp131439 - __tmp131436 - _%E130347%_)))))))) + __tmp131713 + __tmp131710 + _%E130621%_)))))))) (if (let () (declare (not safe)) - (##pair? _%body130402130409%_)) - (let ((_%hd130406130467%_ + (##pair? _%body130676130683%_)) + (let ((_%hd130680130741%_ (let () (declare (not safe)) - (##car _%body130402130409%_))) - (_%tl130407130469%_ + (##car _%body130676130683%_))) + (_%tl130681130743%_ (let () (declare (not safe)) - (##cdr _%body130402130409%_)))) - (let* ((_%hd130472%_ _%hd130406130467%_) - (_%tl130474%_ _%tl130407130469%_)) - (_%K130405130464%_ - _%tl130474%_ - _%hd130472%_))) - (_%E130404130413%_))) - (if (eq? 'null _%$e130366%_) - (let ((__tmp131441 + (##cdr _%body130676130683%_)))) + (let* ((_%hd130746%_ _%hd130680130741%_) + (_%tl130748%_ _%tl130681130743%_)) + (_%K130679130738%_ + _%tl130748%_ + _%hd130746%_))) + (_%E130678130687%_))) + (if (eq? 'null _%$e130640%_) + (let ((__tmp131715 (let () (declare (not safe)) (gx#core-list 'stx-null? - _%target130346%_))) - (__tmp131440 (_%k130348%_ _%vars130345%_))) + _%target130620%_))) + (__tmp131714 (_%k130622%_ _%vars130619%_))) (declare (not safe)) (gx#core-list 'if - __tmp131441 - __tmp131440 - _%E130347%_)) - (if (eq? 'vector _%$e130366%_) - (let ((_%$e130476%_ + __tmp131715 + __tmp131714 + _%E130621%_)) + (if (eq? 'vector _%$e130640%_) + (let ((_%$e130750%_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp131446 + (let ((__tmp131720 (let () (declare (not safe)) (gx#core-list 'stx-vector? - _%target130346%_))) - (__tmp131442 - (let ((__tmp131444 - (cons (cons (cons _%$e130476%_ + _%target130620%_))) + (__tmp131716 + (let ((__tmp131718 + (cons (cons (cons _%$e130750%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp131445 + (cons (let ((__tmp131719 (let () (declare (not safe)) (gx#core-list - _%unwrap-e130060%_ - _%target130346%_)))) + _%unwrap-e130334%_ + _%target130620%_)))) (declare (not safe)) - (gx#core-list 'vector->list __tmp131445)) + (gx#core-list 'vector->list __tmp131719)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp131443 - (_%recur130253%_ - _%body130363%_ - _%vars130345%_ - _%$e130476%_ - _%E130347%_ - _%k130348%_))) + (__tmp131717 + (_%recur130527%_ + _%body130637%_ + _%vars130619%_ + _%$e130750%_ + _%E130621%_ + _%k130622%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp131444 - __tmp131443)))) + __tmp131718 + __tmp131717)))) (declare (not safe)) (gx#core-list 'if - __tmp131446 - __tmp131442 - _%E130347%_))) - (if (eq? 'box _%$e130366%_) - (let ((_%$e130478%_ + __tmp131720 + __tmp131716 + _%E130621%_))) + (if (eq? 'box _%$e130640%_) + (let ((_%$e130752%_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp131451 + (let ((__tmp131725 (let () (declare (not safe)) (gx#core-list 'stx-box? - _%target130346%_))) - (__tmp131447 - (let ((__tmp131449 - (cons (cons (cons _%$e130478%_ + _%target130620%_))) + (__tmp131721 + (let ((__tmp131723 + (cons (cons (cons _%$e130752%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp131450 + (cons (let ((__tmp131724 (let () (declare (not safe)) (gx#core-list - _%unwrap-e130060%_ - _%target130346%_)))) + _%unwrap-e130334%_ + _%target130620%_)))) (declare (not safe)) - (gx#core-list 'unbox __tmp131450)) + (gx#core-list 'unbox __tmp131724)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp131448 - (_%recur130253%_ - _%body130363%_ - _%vars130345%_ - _%$e130478%_ - _%E130347%_ - _%k130348%_))) + (__tmp131722 + (_%recur130527%_ + _%body130637%_ + _%vars130619%_ + _%$e130752%_ + _%E130621%_ + _%k130622%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp131449 - __tmp131448)))) + __tmp131723 + __tmp131722)))) (declare (not safe)) (gx#core-list 'if - __tmp131451 - __tmp131447 - _%E130347%_))) - (if (eq? 'datum _%$e130366%_) - (let ((_%$e130480%_ + __tmp131725 + __tmp131721 + _%E130621%_))) + (if (eq? 'datum _%$e130640%_) + (let ((_%$e130754%_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp131457 + (let ((__tmp131731 (let () (declare (not safe)) (gx#core-list 'stx-datum? - _%target130346%_))) - (__tmp131452 - (let ((__tmp131456 - (cons (cons (cons _%$e130480%_ + _%target130620%_))) + (__tmp131726 + (let ((__tmp131730 + (cons (cons (cons _%$e130754%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gx#core-list 'stx-e _%target130346%_)) + (gx#core-list 'stx-e _%target130620%_)) '())) '())) - (__tmp131453 - (let ((__tmp131455 + (__tmp131727 + (let ((__tmp131729 (let () (declare (not safe)) - (gx#core-list 'equal? _%$e130480%_ _%body130363%_))) - (__tmp131454 (_%k130348%_ _%vars130345%_))) + (gx#core-list 'equal? _%$e130754%_ _%body130637%_))) + (__tmp131728 (_%k130622%_ _%vars130619%_))) (declare (not safe)) - (gx#core-list 'if __tmp131455 __tmp131454 _%E130347%_)))) + (gx#core-list 'if __tmp131729 __tmp131728 _%E130621%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp131456 - __tmp131453)))) + __tmp131730 + __tmp131727)))) (declare (not safe)) (gx#core-list 'if - __tmp131457 - __tmp131452 - _%E130347%_))) - (_%BUG130252%_ - _%e130344%_)))))))))))))) + __tmp131731 + __tmp131726 + _%E130621%_))) + (_%BUG130526%_ + _%e130618%_)))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%e130349130356%_)) - (let ((_%hd130353130485%_ + (##pair? _%e130623130630%_)) + (let ((_%hd130627130759%_ (let () (declare (not safe)) - (##car _%e130349130356%_))) - (_%tl130354130487%_ + (##car _%e130623130630%_))) + (_%tl130628130761%_ (let () (declare (not safe)) - (##cdr _%e130349130356%_)))) - (let* ((_%tag130490%_ - _%hd130353130485%_) - (_%body130492%_ - _%tl130354130487%_)) - (_%K130352130482%_ - _%body130492%_ - _%tag130490%_))) - (_%E130351130360%_))))) - (_%splice-rlen130254%_ - (lambda (_%e130306%_) - (let _%lp130308%_ ((_%e130310%_ _%e130306%_) - (_%n130311%_ '0)) - (let* ((_%e130312130319%_ _%e130310%_) - (_%E130314130323%_ + (##cdr _%e130623130630%_)))) + (let* ((_%tag130764%_ + _%hd130627130759%_) + (_%body130766%_ + _%tl130628130761%_)) + (_%K130626130756%_ + _%body130766%_ + _%tag130764%_))) + (_%E130625130634%_))))) + (_%splice-rlen130528%_ + (lambda (_%e130580%_) + (let _%lp130582%_ ((_%e130584%_ _%e130580%_) + (_%n130585%_ '0)) + (let* ((_%e130586130593%_ _%e130584%_) + (_%E130588130597%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e130312130319%_ + _%e130586130593%_ '([tag . body]))) '#!void)) - (_%K130315130332%_ - (lambda (_%body130326%_ - _%tag130327%_) - (let ((_%$e130329%_ _%tag130327%_)) - (if (eq? 'splice _%$e130329%_) + (_%K130589130606%_ + (lambda (_%body130600%_ + _%tag130601%_) + (let ((_%$e130603%_ _%tag130601%_)) + (if (eq? 'splice _%$e130603%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Ambiguous pattern" - _%stx130058%_ - _%where130245%_)) - (if (eq? 'cons _%$e130329%_) - (_%lp130308%_ - (cdr _%body130326%_) + _%stx130332%_ + _%where130519%_)) + (if (eq? 'cons _%$e130603%_) + (_%lp130582%_ + (cdr _%body130600%_) (let () (declare (not safe)) - (##fx+ _%n130311%_ + (##fx+ _%n130585%_ '1))) - _%n130311%_)))))) + _%n130585%_)))))) (if (let () (declare (not safe)) - (##pair? _%e130312130319%_)) - (let ((_%hd130316130335%_ + (##pair? _%e130586130593%_)) + (let ((_%hd130590130609%_ (let () (declare (not safe)) - (##car _%e130312130319%_))) - (_%tl130317130337%_ + (##car _%e130586130593%_))) + (_%tl130591130611%_ (let () (declare (not safe)) - (##cdr _%e130312130319%_)))) - (let* ((_%tag130340%_ - _%hd130316130335%_) - (_%body130342%_ - _%tl130317130337%_)) - (_%K130315130332%_ - _%body130342%_ - _%tag130340%_))) - (_%E130314130323%_)))))) - (_%splice-vars130255%_ - (lambda (_%e130262%_) - (let _%recur130264%_ ((_%e130266%_ _%e130262%_) - (_%vars130267%_ '())) - (let* ((_%e130268130275%_ _%e130266%_) - (_%E130270130279%_ + (##cdr _%e130586130593%_)))) + (let* ((_%tag130614%_ + _%hd130590130609%_) + (_%body130616%_ + _%tl130591130611%_)) + (_%K130589130606%_ + _%body130616%_ + _%tag130614%_))) + (_%E130588130597%_)))))) + (_%splice-vars130529%_ + (lambda (_%e130536%_) + (let _%recur130538%_ ((_%e130540%_ _%e130536%_) + (_%vars130541%_ '())) + (let* ((_%e130542130549%_ _%e130540%_) + (_%E130544130553%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e130268130275%_ + _%e130542130549%_ '([tag . body]))) '#!void)) - (_%K130271130294%_ - (lambda (_%body130282%_ - _%tag130283%_) - (let ((_%$e130285%_ _%tag130283%_)) - (if (eq? 'var _%$e130285%_) - (cons _%body130282%_ - _%vars130267%_) + (_%K130545130568%_ + (lambda (_%body130556%_ + _%tag130557%_) + (let ((_%$e130559%_ _%tag130557%_)) + (if (eq? 'var _%$e130559%_) + (cons _%body130556%_ + _%vars130541%_) (if (or (eq? 'cons - _%$e130285%_) + _%$e130559%_) (eq? 'splice - _%$e130285%_)) - (_%recur130264%_ - (cdr _%body130282%_) - (_%recur130264%_ - (car _%body130282%_) - _%vars130267%_)) + _%$e130559%_)) + (_%recur130538%_ + (cdr _%body130556%_) + (_%recur130538%_ + (car _%body130556%_) + _%vars130541%_)) (if (or (eq? 'vector ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e130285%_) - (eq? 'box _%$e130285%_)) - (_%recur130264%_ _%body130282%_ _%vars130267%_) - _%vars130267%_))))))) + _%$e130559%_) + (eq? 'box _%$e130559%_)) + (_%recur130538%_ _%body130556%_ _%vars130541%_) + _%vars130541%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%e130268130275%_)) - (let ((_%hd130272130297%_ + (##pair? _%e130542130549%_)) + (let ((_%hd130546130571%_ (let () (declare (not safe)) - (##car _%e130268130275%_))) - (_%tl130273130299%_ + (##car _%e130542130549%_))) + (_%tl130547130573%_ (let () (declare (not safe)) - (##cdr _%e130268130275%_)))) - (let* ((_%tag130302%_ - _%hd130272130297%_) - (_%body130304%_ - _%tl130273130299%_)) - (_%K130271130294%_ - _%body130304%_ - _%tag130302%_))) - (_%E130270130279%_)))))) - (_%make-body130256%_ - (lambda (_%vars130258%_) - (cons _%K130249%_ - (map (lambda (_%mvar130260%_) - (let ((__tmp131458 - (car _%mvar130260%_))) + (##cdr _%e130542130549%_)))) + (let* ((_%tag130576%_ + _%hd130546130571%_) + (_%body130578%_ + _%tl130547130573%_)) + (_%K130545130568%_ + _%body130578%_ + _%tag130576%_))) + (_%E130544130553%_)))))) + (_%make-body130530%_ + (lambda (_%vars130532%_) + (cons _%K130523%_ + (map (lambda (_%mvar130534%_) + (let ((__tmp131732 + (car _%mvar130534%_))) (declare (not safe)) (agetq__% - __tmp131458 - _%vars130258%_ - _%BUG130252%_))) - _%mvars130248%_))))) - (_%recur130253%_ - _%hd130247%_ + __tmp131732 + _%vars130532%_ + _%BUG130526%_))) + _%mvars130522%_))))) + (_%recur130527%_ + _%hd130521%_ '() - _%target130246%_ - _%E130250%_ - _%make-body130256%_)))) - (_%parse-clause130067%_ - (lambda (_%hd130139%_ _%ids130140%_) - (let _%recur130142%_ ((_%e130144%_ _%hd130139%_) - (_%vars130145%_ '()) - (_%depth130146%_ '0)) + _%target130520%_ + _%E130524%_ + _%make-body130530%_)))) + (_%parse-clause130341%_ + (lambda (_%hd130413%_ _%ids130414%_) + (let _%recur130416%_ ((_%e130418%_ _%hd130413%_) + (_%vars130419%_ '()) + (_%depth130420%_ '0)) (if (let () (declare (not safe)) - (gx#identifier? _%e130144%_)) + (gx#identifier? _%e130418%_)) (if (let () (declare (not safe)) - (gx#underscore? _%e130144%_)) - (values '(any) _%vars130145%_) + (gx#underscore? _%e130418%_)) + (values '(any) _%vars130419%_) (if (let () (declare (not safe)) - (gx#ellipsis? _%e130144%_)) + (gx#ellipsis? _%e130418%_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _%stx130058%_ - _%hd130139%_)) - (if (let ((__tmp131459 - (lambda (_%id130151%_) + _%stx130332%_ + _%hd130413%_)) + (if (let ((__tmp131733 + (lambda (_%id130425%_) (let () (declare (not safe)) (gx#bound-identifier=? - _%e130144%_ - _%id130151%_))))) + _%e130418%_ + _%id130425%_))))) (declare (not safe)) - (__find __tmp131459 _%ids130140%_)) - (values (cons 'id _%e130144%_) - _%vars130145%_) - (if (let ((__tmp131460 - (lambda (_%var130154%_) - (let ((__tmp131461 - (car _%var130154%_))) + (__find __tmp131733 _%ids130414%_)) + (values (cons 'id _%e130418%_) + _%vars130419%_) + (if (let ((__tmp131734 + (lambda (_%var130428%_) + (let ((__tmp131735 + (car _%var130428%_))) (declare (not safe)) (gx#bound-identifier=? - _%e130144%_ - __tmp131461))))) + _%e130418%_ + __tmp131735))))) (declare (not safe)) - (__find __tmp131460 - _%vars130145%_)) + (__find __tmp131734 + _%vars130419%_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Duplicate pattern variable" - _%stx130058%_ - _%e130144%_)) - (values (cons 'var _%e130144%_) - (cons (cons _%e130144%_ - _%depth130146%_) - _%vars130145%_)))))) + _%stx130332%_ + _%e130418%_)) + (values (cons 'var _%e130418%_) + (cons (cons _%e130418%_ + _%depth130420%_) + _%vars130419%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%e130144%_)) - (let* ((_%e130158130165%_ _%e130144%_) - (_%E130160130169%_ + (gx#stx-pair? _%e130418%_)) + (let* ((_%e130432130439%_ _%e130418%_) + (_%E130434130443%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130158130165%_)))) - (_%E130159130230%_ + _%e130432130439%_)))) + (_%E130433130504%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e130158130165%_)) - (let ((_%e130161130173%_ + (gx#stx-pair? _%e130432130439%_)) + (let ((_%e130435130447%_ (let () (declare (not safe)) (gx#syntax-e - _%e130158130165%_)))) - (let ((_%hd130162130176%_ + _%e130432130439%_)))) + (let ((_%hd130436130450%_ (let () (declare (not safe)) - (##car _%e130161130173%_))) - (_%tl130163130178%_ + (##car _%e130435130447%_))) + (_%tl130437130452%_ (let () (declare (not safe)) - (##cdr _%e130161130173%_)))) - (let* ((_%hd130181%_ - _%hd130162130176%_) - (_%rest130183%_ - _%tl130163130178%_) - (_%make-pair130198%_ - (lambda (_%tag130185%_ + (##cdr _%e130435130447%_)))) + (let* ((_%hd130455%_ + _%hd130436130450%_) + (_%rest130457%_ + _%tl130437130452%_) + (_%make-pair130472%_ + (lambda (_%tag130459%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd130186%_ - _%tl130187%_) - (let* ((_%hd-depth130189%_ - (if (eq? _%tag130185%_ 'splice) + _%hd130460%_ + _%tl130461%_) + (let* ((_%hd-depth130463%_ + (if (eq? _%tag130459%_ 'splice) (let () (declare (not safe)) - (##fx+ _%depth130146%_ '1)) - _%depth130146%_)) - (_g131462_ - (_%recur130142%_ - _%hd130186%_ - _%vars130145%_ - _%hd-depth130189%_))) + (##fx+ _%depth130420%_ '1)) + _%depth130420%_)) + (_g131736_ + (_%recur130416%_ + _%hd130460%_ + _%vars130419%_ + _%hd-depth130463%_))) (begin - (let ((_g131463_ + (let ((_g131737_ (let () (declare (not safe)) - (if (##values? _g131462_) - (##vector-length _g131462_) + (if (##values? _g131736_) + (##vector-length _g131736_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g131463_ 2))) - (error "Context expects 2 values" _g131463_))) - (let ((_%hd130191%_ + (##fx= _g131737_ 2))) + (error "Context expects 2 values" _g131737_))) + (let ((_%hd130465%_ (let () (declare (not safe)) - (##vector-ref _g131462_ 0))) - (_%vars130192%_ + (##vector-ref _g131736_ 0))) + (_%vars130466%_ (let () (declare (not safe)) - (##vector-ref _g131462_ 1)))) - (let ((_g131464_ - (_%recur130142%_ - _%tl130187%_ - _%vars130192%_ - _%depth130146%_))) + (##vector-ref _g131736_ 1)))) + (let ((_g131738_ + (_%recur130416%_ + _%tl130461%_ + _%vars130466%_ + _%depth130420%_))) (begin - (let ((_g131465_ + (let ((_g131739_ (let () (declare (not safe)) - (if (##values? _g131464_) - (##vector-length _g131464_) + (if (##values? _g131738_) + (##vector-length _g131738_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g131465_ 2))) + (##fx= _g131739_ 2))) (error "Context expects 2 values" - _g131465_))) - (let ((_%tl130194%_ + _g131739_))) + (let ((_%tl130468%_ (let () (declare (not safe)) - (##vector-ref _g131464_ 0))) - (_%vars130195%_ + (##vector-ref _g131738_ 0))) + (_%vars130469%_ (let () (declare (not safe)) - (##vector-ref _g131464_ 1)))) - (values (cons _%tag130185%_ - (cons _%hd130191%_ _%tl130194%_)) - _%vars130195%_))))))))) - (_%e130199130206%_ _%rest130183%_) - (_%E130201130210%_ + (##vector-ref _g131738_ 1)))) + (values (cons _%tag130459%_ + (cons _%hd130465%_ _%tl130468%_)) + _%vars130469%_))))))))) + (_%e130473130480%_ _%rest130457%_) + (_%E130475130484%_ (lambda () - (_%make-pair130198%_ 'cons _%hd130181%_ _%rest130183%_))) - (_%E130200130226%_ + (_%make-pair130472%_ 'cons _%hd130455%_ _%rest130457%_))) + (_%E130474130500%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e130199130206%_)) - (let ((_%e130202130214%_ + (gx#stx-pair? _%e130473130480%_)) + (let ((_%e130476130488%_ (let () (declare (not safe)) - (gx#syntax-e _%e130199130206%_)))) - (let ((_%hd130203130217%_ + (gx#syntax-e _%e130473130480%_)))) + (let ((_%hd130477130491%_ (let () (declare (not safe)) - (##car _%e130202130214%_))) - (_%tl130204130219%_ + (##car _%e130476130488%_))) + (_%tl130478130493%_ (let () (declare (not safe)) - (##cdr _%e130202130214%_)))) - (let* ((_%rest-hd130222%_ _%hd130203130217%_) - (_%rest-tl130224%_ _%tl130204130219%_)) + (##cdr _%e130476130488%_)))) + (let* ((_%rest-hd130496%_ _%hd130477130491%_) + (_%rest-tl130498%_ _%tl130478130493%_)) (if (let () (declare (not safe)) - (gx#ellipsis? _%rest-hd130222%_)) - (_%make-pair130198%_ + (gx#ellipsis? _%rest-hd130496%_)) + (_%make-pair130472%_ 'splice - _%hd130181%_ - _%rest-tl130224%_) - (_%make-pair130198%_ + _%hd130455%_ + _%rest-tl130498%_) + (_%make-pair130472%_ 'cons - _%hd130181%_ - _%rest130183%_))))) - (_%E130201130210%_))))) + _%hd130455%_ + _%rest130457%_))))) + (_%E130475130484%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E130200130226%_)))) - (_%E130160130169%_))))) - (_%E130159130230%_)) + (_%E130474130500%_)))) + (_%E130434130443%_))))) + (_%E130433130504%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%e130144%_)) - (values '(null) _%vars130145%_) + (gx#stx-null? _%e130418%_)) + (values '(null) _%vars130419%_) (if (let () (declare (not safe)) - (gx#stx-vector? _%e130144%_)) - (let ((_g131466_ - (_%recur130142%_ + (gx#stx-vector? _%e130418%_)) + (let ((_g131740_ + (_%recur130416%_ (vector->list (let () (declare (not safe)) - (gx#syntax-e _%e130144%_))) - _%vars130145%_ - _%depth130146%_))) + (gx#syntax-e _%e130418%_))) + _%vars130419%_ + _%depth130420%_))) (begin - (let ((_g131467_ + (let ((_g131741_ (let () (declare (not safe)) - (if (##values? _g131466_) + (if (##values? _g131740_) (##vector-length - _g131466_) + _g131740_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g131467_ 2))) + (##fx= _g131741_ 2))) (error "Context expects 2 values" - _g131467_))) - (let ((_%e130236%_ + _g131741_))) + (let ((_%e130510%_ (let () (declare (not safe)) - (##vector-ref _g131466_ 0))) - (_%vars130237%_ + (##vector-ref _g131740_ 0))) + (_%vars130511%_ (let () (declare (not safe)) (##vector-ref - _g131466_ + _g131740_ 1)))) - (values (cons 'vector _%e130236%_) - _%vars130237%_)))) + (values (cons 'vector _%e130510%_) + _%vars130511%_)))) (if (let () (declare (not safe)) - (gx#stx-box? _%e130144%_)) - (let ((_g131468_ - (_%recur130142%_ + (gx#stx-box? _%e130418%_)) + (let ((_g131742_ + (_%recur130416%_ (unbox (let () (declare (not safe)) (gx#syntax-e - _%e130144%_))) - _%vars130145%_ - _%depth130146%_))) + _%e130418%_))) + _%vars130419%_ + _%depth130420%_))) (begin - (let ((_g131469_ + (let ((_g131743_ (let () (declare (not safe)) (if (##values? - _g131468_) + _g131742_) (##vector-length - _g131468_) + _g131742_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g131469_ + (##fx= _g131743_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g131469_))) - (let ((_%e130240%_ + _g131743_))) + (let ((_%e130514%_ (let () (declare (not safe)) (##vector-ref - _g131468_ + _g131742_ 0))) - (_%vars130241%_ + (_%vars130515%_ (let () (declare (not safe)) (##vector-ref - _g131468_ + _g131742_ 1)))) - (values (cons 'box _%e130240%_) - _%vars130241%_)))) + (values (cons 'box _%e130514%_) + _%vars130515%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%e130144%_)) + (gx#stx-datum? _%e130418%_)) (values (cons 'datum (let () (declare (not safe)) (gx#stx-e - _%e130144%_))) - _%vars130145%_) + _%e130418%_))) + _%vars130419%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad pattern" - _%stx130058%_ - _%e130144%_)))))))))))) - (let* ((_%e130068130081%_ _%stx130058%_) - (_%E130070130085%_ + _%stx130332%_ + _%e130418%_)))))))))))) + (let* ((_%e130342130355%_ _%stx130332%_) + (_%E130344130359%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130068130081%_)))) - (_%E130069130135%_ + _%e130342130355%_)))) + (_%E130343130409%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e130068130081%_)) - (let ((_%e130071130089%_ + (gx#stx-pair? _%e130342130355%_)) + (let ((_%e130345130363%_ (let () (declare (not safe)) - (gx#syntax-e _%e130068130081%_)))) - (let ((_%hd130072130092%_ + (gx#syntax-e _%e130342130355%_)))) + (let ((_%hd130346130366%_ (let () (declare (not safe)) - (##car _%e130071130089%_))) - (_%tl130073130094%_ + (##car _%e130345130363%_))) + (_%tl130347130368%_ (let () (declare (not safe)) - (##cdr _%e130071130089%_)))) + (##cdr _%e130345130363%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl130073130094%_)) - (let ((_%e130074130097%_ + (gx#stx-pair? _%tl130347130368%_)) + (let ((_%e130348130371%_ (let () (declare (not safe)) - (gx#syntax-e _%tl130073130094%_)))) - (let ((_%hd130075130100%_ + (gx#syntax-e _%tl130347130368%_)))) + (let ((_%hd130349130374%_ (let () (declare (not safe)) - (##car _%e130074130097%_))) - (_%tl130076130102%_ + (##car _%e130348130371%_))) + (_%tl130350130376%_ (let () (declare (not safe)) - (##cdr _%e130074130097%_)))) - (let ((_%expr130105%_ _%hd130075130100%_)) + (##cdr _%e130348130371%_)))) + (let ((_%expr130379%_ _%hd130349130374%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl130076130102%_)) - (let ((_%e130077130107%_ + (gx#stx-pair? _%tl130350130376%_)) + (let ((_%e130351130381%_ (let () (declare (not safe)) (gx#syntax-e - _%tl130076130102%_)))) - (let ((_%hd130078130110%_ + _%tl130350130376%_)))) + (let ((_%hd130352130384%_ (let () (declare (not safe)) - (##car _%e130077130107%_))) - (_%tl130079130112%_ + (##car _%e130351130381%_))) + (_%tl130353130386%_ (let () (declare (not safe)) - (##cdr _%e130077130107%_)))) - (let* ((_%ids130115%_ - _%hd130078130110%_) - (_%clauses130117%_ - _%tl130079130112%_)) + (##cdr _%e130351130381%_)))) + (let* ((_%ids130389%_ + _%hd130352130384%_) + (_%clauses130391%_ + _%tl130353130386%_)) (if (let () (declare (not safe)) (gx#identifier-list? - _%ids130115%_)) + _%ids130389%_)) (if (let () (declare (not safe)) (gx#stx-list? - _%clauses130117%_)) - (let* ((_%ids130122%_ + _%clauses130391%_)) + (let* ((_%ids130396%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax->list _%ids130115%_))) - (_%clauses130124%_ + (gx#syntax->list _%ids130389%_))) + (_%clauses130398%_ (let () (declare (not safe)) - (gx#syntax->list _%clauses130117%_))) - (_%clause-ids130126%_ + (gx#syntax->list _%clauses130391%_))) + (_%clause-ids130400%_ (let () (declare (not safe)) - (gx#gentemps _%clauses130124%_))) - (_%E130128%_ + (gx#gentemps _%clauses130398%_))) + (_%E130402%_ (let () (declare (not safe)) (gx#genident__0))) - (_%target130130%_ + (_%target130404%_ (let () (declare (not safe)) (gx#genident__0))) - (_%first130132%_ - (if (null? _%clauses130124%_) - _%E130128%_ - (car _%clause-ids130126%_)))) - (let ((__tmp131471 - (let ((__tmp131472 - (let ((__tmp131474 - (let ((__tmp131476 - (cons (cons (cons _%E130128%_ + (_%first130406%_ + (if (null? _%clauses130398%_) + _%E130402%_ + (car _%clause-ids130400%_)))) + (let ((__tmp131745 + (let ((__tmp131746 + (let ((__tmp131748 + (let ((__tmp131750 + (cons (cons (cons _%E130402%_ '()) - (cons (let ((__tmp131478 + (cons (let ((__tmp131752 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%target130130%_ '())) - (__tmp131477 + (cons _%target130404%_ '())) + (__tmp131751 (let () (declare (not safe)) (gx#core-list 'raise-syntax-error '#f '"Bad syntax; invalid match target" - _%target130130%_)))) + _%target130404%_)))) (declare (not safe)) - (gx#core-list 'lambda% __tmp131478 __tmp131477)) + (gx#core-list 'lambda% __tmp131752 __tmp131751)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (__tmp131475 - (_%generate-body130064%_ - (_%generate-bindings130063%_ - _%target130130%_ - _%ids130122%_ - _%clauses130124%_ - _%clause-ids130126%_ - _%E130128%_) - (cons _%first130132%_ - (cons _%expr130105%_ + (__tmp131749 + (_%generate-body130338%_ + (_%generate-bindings130337%_ + _%target130404%_ + _%ids130396%_ + _%clauses130398%_ + _%clause-ids130400%_ + _%E130402%_) + (cons _%first130406%_ + (cons _%expr130379%_ '()))))) (declare (not safe)) (gx#core-list 'let-values - __tmp131476 - __tmp131475))) - (__tmp131473 + __tmp131750 + __tmp131749))) + (__tmp131747 (let () (declare (not safe)) - (gx#stx-source _%stx130058%_)))) + (gx#stx-source _%stx130332%_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp131474 - __tmp131473)))) + __tmp131748 + __tmp131747)))) (declare (not safe)) (gx#core-list 'begin-annotation '@syntax-case - __tmp131472))) - (__tmp131470 + __tmp131746))) + (__tmp131744 (let () (declare (not safe)) - (gx#stx-source _%stx130058%_)))) + (gx#stx-source _%stx130332%_)))) (declare (not safe)) - (gx#stx-wrap-source __tmp131471 __tmp131470))) + (gx#stx-wrap-source __tmp131745 __tmp131744))) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; clauses expected" - _%stx130058%_))) + _%stx130332%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad template identifier list" - _%stx130058%_ - _%ids130115%_)))))) - (_%E130070130085%_))))) - (_%E130070130085%_)))) - (_%E130070130085%_))))) - (_%E130069130135%_))))) + _%stx130332%_ + _%ids130389%_)))))) + (_%E130344130359%_))))) + (_%E130344130359%_)))) + (_%E130344130359%_))))) + (_%E130343130409%_))))) (define gx#macro-expand-syntax-case__0 - (lambda (_%stx130783%_) - (let* ((_%identifier=?130785%_ 'free-identifier=?) - (_%unwrap-e130787%_ 'syntax-e) - (_%wrap-e130789%_ 'quote-syntax)) + (lambda (_%stx131057%_) + (let* ((_%identifier=?131059%_ 'free-identifier=?) + (_%unwrap-e131061%_ 'syntax-e) + (_%wrap-e131063%_ 'quote-syntax)) (gx#macro-expand-syntax-case__% - _%stx130783%_ - _%identifier=?130785%_ - _%unwrap-e130787%_ - _%wrap-e130789%_)))) + _%stx131057%_ + _%identifier=?131059%_ + _%unwrap-e131061%_ + _%wrap-e131063%_)))) (define gx#macro-expand-syntax-case__1 - (lambda (_%stx130791%_ _%identifier=?130792%_) - (let* ((_%unwrap-e130794%_ 'syntax-e) (_%wrap-e130796%_ 'quote-syntax)) + (lambda (_%stx131065%_ _%identifier=?131066%_) + (let* ((_%unwrap-e131068%_ 'syntax-e) (_%wrap-e131070%_ 'quote-syntax)) (gx#macro-expand-syntax-case__% - _%stx130791%_ - _%identifier=?130792%_ - _%unwrap-e130794%_ - _%wrap-e130796%_)))) + _%stx131065%_ + _%identifier=?131066%_ + _%unwrap-e131068%_ + _%wrap-e131070%_)))) (define gx#macro-expand-syntax-case__2 - (lambda (_%stx130798%_ _%identifier=?130799%_ _%unwrap-e130800%_) - (let ((_%wrap-e130802%_ 'quote-syntax)) + (lambda (_%stx131072%_ _%identifier=?131073%_ _%unwrap-e131074%_) + (let ((_%wrap-e131076%_ 'quote-syntax)) (gx#macro-expand-syntax-case__% - _%stx130798%_ - _%identifier=?130799%_ - _%unwrap-e130800%_ - _%wrap-e130802%_)))) + _%stx131072%_ + _%identifier=?131073%_ + _%unwrap-e131074%_ + _%wrap-e131076%_)))) (define gx#macro-expand-syntax-case - (lambda _g131480_ - (let ((_g131479_ (let () (declare (not safe)) (##length _g131480_)))) - (cond ((let () (declare (not safe)) (##fx= _g131479_ 1)) - (apply gx#macro-expand-syntax-case__0 _g131480_)) - ((let () (declare (not safe)) (##fx= _g131479_ 2)) - (apply gx#macro-expand-syntax-case__1 _g131480_)) - ((let () (declare (not safe)) (##fx= _g131479_ 3)) - (apply gx#macro-expand-syntax-case__2 _g131480_)) - ((let () (declare (not safe)) (##fx= _g131479_ 4)) - (apply gx#macro-expand-syntax-case__% _g131480_)) + (lambda _g131754_ + (let ((_g131753_ (let () (declare (not safe)) (##length _g131754_)))) + (cond ((let () (declare (not safe)) (##fx= _g131753_ 1)) + (apply gx#macro-expand-syntax-case__0 _g131754_)) + ((let () (declare (not safe)) (##fx= _g131753_ 2)) + (apply gx#macro-expand-syntax-case__1 _g131754_)) + ((let () (declare (not safe)) (##fx= _g131753_ 3)) + (apply gx#macro-expand-syntax-case__2 _g131754_)) + ((let () (declare (not safe)) (##fx= _g131753_ 4)) + (apply gx#macro-expand-syntax-case__% _g131754_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-syntax-case - _g131480_)))))) + _g131754_)))))) (define gx#syntax-local-pattern? - (lambda (_%stx130055%_) - (if (let () (declare (not safe)) (gx#identifier? _%stx130055%_)) - (let ((__tmp131481 + (lambda (_%stx130329%_) + (if (let () (declare (not safe)) (gx#identifier? _%stx130329%_)) + (let ((__tmp131755 (let () (declare (not safe)) - (gx#syntax-local-e__% _%stx130055%_ false)))) + (gx#syntax-local-e__% _%stx130329%_ false)))) (declare (not safe)) - (##structure-instance-of? __tmp131481 'gx#syntax-pattern::t)) + (##structure-instance-of? __tmp131755 'gx#syntax-pattern::t)) '#f))) (define gx#syntax-check-splice-targets - (lambda (_%hd130013%_ . _%rest130014%_) - (let ((_%len130016%_ (length _%hd130013%_))) - (let _%lp130018%_ ((_%rest130020%_ _%rest130014%_)) - (let* ((_%rest130021130029%_ _%rest130020%_) - (_%else130023130037%_ (lambda () '#!void)) - (_%K130025130043%_ - (lambda (_%rest130040%_ _%hd130041%_) - (if (let ((__tmp131482 (length _%hd130041%_))) + (lambda (_%hd130287%_ . _%rest130288%_) + (let ((_%len130290%_ (length _%hd130287%_))) + (let _%lp130292%_ ((_%rest130294%_ _%rest130288%_)) + (let* ((_%rest130295130303%_ _%rest130294%_) + (_%else130297130311%_ (lambda () '#!void)) + (_%K130299130317%_ + (lambda (_%rest130314%_ _%hd130315%_) + (if (let ((__tmp131756 (length _%hd130315%_))) (declare (not safe)) - (##fx= _%len130016%_ __tmp131482)) - (_%lp130018%_ _%rest130040%_) + (##fx= _%len130290%_ __tmp131756)) + (_%lp130292%_ _%rest130314%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Splice length mismatch" - _%hd130041%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest130021130029%_)) - (let ((_%hd130026130046%_ + _%hd130315%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest130295130303%_)) + (let ((_%hd130300130320%_ (let () (declare (not safe)) - (##car _%rest130021130029%_))) - (_%tl130027130048%_ + (##car _%rest130295130303%_))) + (_%tl130301130322%_ (let () (declare (not safe)) - (##cdr _%rest130021130029%_)))) - (let* ((_%hd130051%_ _%hd130026130046%_) - (_%rest130053%_ _%tl130027130048%_)) - (_%K130025130043%_ _%rest130053%_ _%hd130051%_))) + (##cdr _%rest130295130303%_)))) + (let* ((_%hd130325%_ _%hd130300130320%_) + (_%rest130327%_ _%tl130301130322%_)) + (_%K130299130317%_ _%rest130327%_ _%hd130325%_))) '#!void)))))) (define gx#syntax-split-splice - (lambda (_%stx129968%_ _%n129969%_) - (let _%lp129971%_ ((_%rest129973%_ _%stx129968%_) (_%r129974%_ '())) - (if (let () (declare (not safe)) (gx#stx-pair? _%rest129973%_)) - (let* ((_%g129975129982%_ + (lambda (_%stx130242%_ _%n130243%_) + (let _%lp130245%_ ((_%rest130247%_ _%stx130242%_) (_%r130248%_ '())) + (if (let () (declare (not safe)) (gx#stx-pair? _%rest130247%_)) + (let* ((_%g130249130256%_ (let () (declare (not safe)) - (gx#syntax-e _%rest129973%_))) - (_%E129977129986%_ + (gx#syntax-e _%rest130247%_))) + (_%E130251130260%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g129975129982%_ + _%g130249130256%_ '([hd . rest]))) '#!void)) - (_%K129978129992%_ - (lambda (_%rest129989%_ _%hd129990%_) - (_%lp129971%_ - _%rest129989%_ - (cons _%hd129990%_ _%r129974%_))))) - (if (let () (declare (not safe)) (##pair? _%g129975129982%_)) - (let ((_%hd129979129995%_ + (_%K130252130266%_ + (lambda (_%rest130263%_ _%hd130264%_) + (_%lp130245%_ + _%rest130263%_ + (cons _%hd130264%_ _%r130248%_))))) + (if (let () (declare (not safe)) (##pair? _%g130249130256%_)) + (let ((_%hd130253130269%_ (let () (declare (not safe)) - (##car _%g129975129982%_))) - (_%tl129980129997%_ + (##car _%g130249130256%_))) + (_%tl130254130271%_ (let () (declare (not safe)) - (##cdr _%g129975129982%_)))) - (let* ((_%hd130000%_ _%hd129979129995%_) - (_%rest130002%_ _%tl129980129997%_)) - (_%K129978129992%_ _%rest130002%_ _%hd130000%_))) - (_%E129977129986%_))) - (let _%lp130004%_ ((_%n130006%_ _%n129969%_) - (_%l130007%_ _%r129974%_) - (_%r130008%_ _%rest129973%_)) - (if (null? _%l130007%_) - (values _%l130007%_ _%r130008%_) - (if (fxpositive? _%n130006%_) - (_%lp130004%_ - (let () (declare (not safe)) (##fx- _%n130006%_ '1)) - (cdr _%l130007%_) - (cons (car _%l130007%_) _%r130008%_)) - (values (reverse _%l130007%_) _%r130008%_)))))))))) + (##cdr _%g130249130256%_)))) + (let* ((_%hd130274%_ _%hd130253130269%_) + (_%rest130276%_ _%tl130254130271%_)) + (_%K130252130266%_ _%rest130276%_ _%hd130274%_))) + (_%E130251130260%_))) + (let _%lp130278%_ ((_%n130280%_ _%n130243%_) + (_%l130281%_ _%r130248%_) + (_%r130282%_ _%rest130247%_)) + (if (null? _%l130281%_) + (values _%l130281%_ _%r130282%_) + (if (fxpositive? _%n130280%_) + (_%lp130278%_ + (let () (declare (not safe)) (##fx- _%n130280%_ '1)) + (cdr _%l130281%_) + (cons (car _%l130281%_) _%r130282%_)) + (values (reverse _%l130281%_) _%r130282%_)))))))))) diff --git a/src/bootstrap/gerbil/expander/stxcase~1.scm b/src/bootstrap/gerbil/expander/stxcase~1.scm index 23a80f463..15d57c236 100644 --- a/src/bootstrap/gerbil/expander/stxcase~1.scm +++ b/src/bootstrap/gerbil/expander/stxcase~1.scm @@ -1,111 +1,111 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gx[1]#_g131484_| + (define |gx[1]#_g131758_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g131486_| + (define |gx[1]#_g131760_| (##structure gx#syntax-quote::t 'syntax-pattern::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g131488_| + (define |gx[1]#_g131762_| (##structure gx#syntax-quote::t 'make-syntax-pattern #f (gx#current-expander-context) '())) - (define |gx[1]#_g131490_| + (define |gx[1]#_g131764_| (##structure gx#syntax-quote::t 'syntax-pattern? #f (gx#current-expander-context) '())) - (define |gx[1]#_g131492_| + (define |gx[1]#_g131766_| (##structure gx#syntax-quote::t 'syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g131493_| + (define |gx[1]#_g131767_| (##structure gx#syntax-quote::t 'syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g131494_| + (define |gx[1]#_g131768_| (##structure gx#syntax-quote::t 'syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g131496_| + (define |gx[1]#_g131770_| (##structure gx#syntax-quote::t 'syntax-pattern-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g131497_| + (define |gx[1]#_g131771_| (##structure gx#syntax-quote::t 'syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g131498_| + (define |gx[1]#_g131772_| (##structure gx#syntax-quote::t 'syntax-pattern-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g131500_| + (define |gx[1]#_g131774_| (##structure gx#syntax-quote::t '&syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g131501_| + (define |gx[1]#_g131775_| (##structure gx#syntax-quote::t '&syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g131502_| + (define |gx[1]#_g131776_| (##structure gx#syntax-quote::t '&syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g131504_| + (define |gx[1]#_g131778_| (##structure gx#syntax-quote::t '&syntax-pattern-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g131505_| + (define |gx[1]#_g131779_| (##structure gx#syntax-quote::t '&syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g131506_| + (define |gx[1]#_g131780_| (##structure gx#syntax-quote::t '&syntax-pattern-e-set! @@ -113,7 +113,7 @@ (gx#current-expander-context) '())) (define |gx[:0:]#syntax-pattern| - (let ((__obj131361 + (let ((__obj131635 (let () (declare (not safe)) (##structure @@ -142,75 +142,75 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj131361 + __obj131635 'gx#syntax-pattern::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj131361 'syntax-pattern '2 '#f '#f)) + (##unchecked-structure-set! __obj131635 'syntax-pattern '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj131361 '(id depth) '4 '#f '#f)) + (##unchecked-structure-set! __obj131635 '(id depth) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj131361 '(e id depth) '6 '#f '#f)) - (let ((__tmp131483 (cons |gx[1]#_g131484_| '()))) + (##unchecked-structure-set! __obj131635 '(e id depth) '6 '#f '#f)) + (let ((__tmp131757 (cons |gx[1]#_g131758_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj131361 __tmp131483 '3 '#f '#f)) + (##unchecked-structure-set! __obj131635 __tmp131757 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj131361 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj131635 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj131361 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj131635 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj131361 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj131635 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj131361 '#f '11 '#f '#f)) - (let ((__tmp131485 |gx[1]#_g131486_|)) + (##unchecked-structure-set! __obj131635 '#f '11 '#f '#f)) + (let ((__tmp131759 |gx[1]#_g131760_|)) (declare (not safe)) - (##unchecked-structure-set! __obj131361 __tmp131485 '12 '#f '#f)) - (let ((__tmp131487 |gx[1]#_g131488_|)) + (##unchecked-structure-set! __obj131635 __tmp131759 '12 '#f '#f)) + (let ((__tmp131761 |gx[1]#_g131762_|)) (declare (not safe)) - (##unchecked-structure-set! __obj131361 __tmp131487 '13 '#f '#f)) - (let ((__tmp131489 |gx[1]#_g131490_|)) + (##unchecked-structure-set! __obj131635 __tmp131761 '13 '#f '#f)) + (let ((__tmp131763 |gx[1]#_g131764_|)) (declare (not safe)) - (##unchecked-structure-set! __obj131361 __tmp131489 '14 '#f '#f)) - (let ((__tmp131491 - (cons (cons 'id |gx[1]#_g131492_|) - (cons (cons 'depth |gx[1]#_g131493_|) - (cons (cons 'e |gx[1]#_g131494_|) '()))))) + (##unchecked-structure-set! __obj131635 __tmp131763 '14 '#f '#f)) + (let ((__tmp131765 + (cons (cons 'id |gx[1]#_g131766_|) + (cons (cons 'depth |gx[1]#_g131767_|) + (cons (cons 'e |gx[1]#_g131768_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj131361 __tmp131491 '15 '#f '#f)) - (let ((__tmp131495 - (cons (cons 'id |gx[1]#_g131496_|) - (cons (cons 'depth |gx[1]#_g131497_|) - (cons (cons 'e |gx[1]#_g131498_|) '()))))) + (##unchecked-structure-set! __obj131635 __tmp131765 '15 '#f '#f)) + (let ((__tmp131769 + (cons (cons 'id |gx[1]#_g131770_|) + (cons (cons 'depth |gx[1]#_g131771_|) + (cons (cons 'e |gx[1]#_g131772_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj131361 __tmp131495 '16 '#f '#f)) - (let ((__tmp131499 - (cons (cons 'id |gx[1]#_g131500_|) - (cons (cons 'depth |gx[1]#_g131501_|) - (cons (cons 'e |gx[1]#_g131502_|) '()))))) + (##unchecked-structure-set! __obj131635 __tmp131769 '16 '#f '#f)) + (let ((__tmp131773 + (cons (cons 'id |gx[1]#_g131774_|) + (cons (cons 'depth |gx[1]#_g131775_|) + (cons (cons 'e |gx[1]#_g131776_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj131361 __tmp131499 '17 '#f '#f)) - (let ((__tmp131503 - (cons (cons 'id |gx[1]#_g131504_|) - (cons (cons 'depth |gx[1]#_g131505_|) - (cons (cons 'e |gx[1]#_g131506_|) '()))))) + (##unchecked-structure-set! __obj131635 __tmp131773 '17 '#f '#f)) + (let ((__tmp131777 + (cons (cons 'id |gx[1]#_g131778_|) + (cons (cons 'depth |gx[1]#_g131779_|) + (cons (cons 'e |gx[1]#_g131780_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj131361 __tmp131503 '18 '#f '#f)) + (##unchecked-structure-set! __obj131635 __tmp131777 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj131361 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj131635 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj131361 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj131635 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj131361 '() '20 '#f '#f)) - __obj131361))) + (##unchecked-structure-set! __obj131635 '() '20 '#f '#f)) + __obj131635))) diff --git a/src/bootstrap/gerbil/expander/stx~0.scm b/src/bootstrap/gerbil/expander/stx~0.scm index 0c6653e95..2def2d341 100644 --- a/src/bootstrap/gerbil/expander/stx~0.scm +++ b/src/bootstrap/gerbil/expander/stx~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/stx::timestamp 1713044315) + (define gerbil/expander/stx::timestamp 1713454410) (begin (declare (not safe)) (define gx#identifier-wrap::t @@ -13,8 +13,8 @@ '#f)) (define gx#identifier-wrap? (__make-class-predicate gx#identifier-wrap::t)) (define gx#make-identifier-wrap - (lambda _%$args116603%_ - (apply make-instance gx#identifier-wrap::t _%$args116603%_))) + (lambda _%$args116877%_ + (apply make-instance gx#identifier-wrap::t _%$args116877%_))) (define gx#identifier-wrap-marks (__make-class-slot-accessor gx#identifier-wrap::t 'marks)) (define gx#identifier-wrap-e @@ -49,8 +49,8 @@ '#f)) (define gx#syntax-wrap? (__make-class-predicate gx#syntax-wrap::t)) (define gx#make-syntax-wrap - (lambda _%$args116600%_ - (apply make-instance gx#syntax-wrap::t _%$args116600%_))) + (lambda _%$args116874%_ + (apply make-instance gx#syntax-wrap::t _%$args116874%_))) (define gx#syntax-wrap-mark (__make-class-slot-accessor gx#syntax-wrap::t 'mark)) (define gx#syntax-wrap-e (__make-class-slot-accessor gx#syntax-wrap::t 'e)) @@ -84,8 +84,8 @@ '#f)) (define gx#syntax-quote? (__make-class-predicate gx#syntax-quote::t)) (define gx#make-syntax-quote - (lambda _%$args116597%_ - (apply make-instance gx#syntax-quote::t _%$args116597%_))) + (lambda _%$args116871%_ + (apply make-instance gx#syntax-quote::t _%$args116871%_))) (define gx#syntax-quote-context (__make-class-slot-accessor gx#syntax-quote::t 'context)) (define gx#syntax-quote-marks @@ -119,987 +119,987 @@ (define gx#&syntax-quote-source-set! (__make-class-slot-unchecked-mutator gx#syntax-quote::t 'source)) (define gx#identifier? - (lambda (_%stx116595%_) (symbol? (gx#stx-e _%stx116595%_)))) + (lambda (_%stx116869%_) (symbol? (gx#stx-e _%stx116869%_)))) (define gx#identifier-quote? - (lambda (_%stx116593%_) - (if (##structure-direct-instance-of? _%stx116593%_ 'gx#syntax-quote::t) - (symbol? (##unchecked-structure-ref _%stx116593%_ '1 '#f '#f)) + (lambda (_%stx116867%_) + (if (##structure-direct-instance-of? _%stx116867%_ 'gx#syntax-quote::t) + (symbol? (##unchecked-structure-ref _%stx116867%_ '1 '#f '#f)) '#f))) (define gx#sealed-syntax? - (lambda (_%stx116588%_) - (if (##structure-direct-instance-of? _%stx116588%_ 'gx#syntax-quote::t) + (lambda (_%stx116862%_) + (if (##structure-direct-instance-of? _%stx116862%_ 'gx#syntax-quote::t) '#t (if (##structure-direct-instance-of? - _%stx116588%_ + _%stx116862%_ 'gx#syntax-wrap::t) (gx#sealed-syntax? - (##unchecked-structure-ref _%stx116588%_ '1 '#f '#f)) + (##unchecked-structure-ref _%stx116862%_ '1 '#f '#f)) '#f)))) (define gx#sealed-syntax-unwrap - (lambda (_%stx116583%_) - (if (##structure-direct-instance-of? _%stx116583%_ 'gx#syntax-quote::t) - _%stx116583%_ + (lambda (_%stx116857%_) + (if (##structure-direct-instance-of? _%stx116857%_ 'gx#syntax-quote::t) + _%stx116857%_ (if (##structure-direct-instance-of? - _%stx116583%_ + _%stx116857%_ 'gx#syntax-wrap::t) (gx#sealed-syntax-unwrap - (##unchecked-structure-ref _%stx116583%_ '1 '#f '#f)) + (##unchecked-structure-ref _%stx116857%_ '1 '#f '#f)) '#f)))) (define gx#syntax-e - (lambda (_%stx116557%_) - (if (##structure-direct-instance-of? _%stx116557%_ 'gx#syntax-wrap::t) - (let _%lp116560%_ ((_%e116562%_ + (lambda (_%stx116831%_) + (if (##structure-direct-instance-of? _%stx116831%_ 'gx#syntax-wrap::t) + (let _%lp116834%_ ((_%e116836%_ (##unchecked-structure-ref - _%stx116557%_ + _%stx116831%_ '1 '#f '#f)) - (_%marks116563%_ + (_%marks116837%_ (cons (##unchecked-structure-ref - _%stx116557%_ + _%stx116831%_ '3 '#f '#f) '()))) - (if (##structure? _%e116562%_) - (let ((_%$e116566%_ - (##type-id (##structure-type _%e116562%_)))) - (if (eq? 'gx#syntax-wrap::t _%$e116566%_) - (_%lp116560%_ - (##unchecked-structure-ref _%e116562%_ '1 '#f '#f) + (if (##structure? _%e116836%_) + (let ((_%$e116840%_ + (##type-id (##structure-type _%e116836%_)))) + (if (eq? 'gx#syntax-wrap::t _%$e116840%_) + (_%lp116834%_ + (##unchecked-structure-ref _%e116836%_ '1 '#f '#f) (gx#apply-mark - (##unchecked-structure-ref _%e116562%_ '3 '#f '#f) - _%marks116563%_)) - (if (or (eq? 'gx#syntax-quote::t _%$e116566%_) - (eq? 'gx#identifier-wrap::t _%$e116566%_)) - (##unchecked-structure-ref _%e116562%_ '1 '#f '#f) - (if (eq? 'gerbil#AST::t _%$e116566%_) - (_%lp116560%_ + (##unchecked-structure-ref _%e116836%_ '3 '#f '#f) + _%marks116837%_)) + (if (or (eq? 'gx#syntax-quote::t _%$e116840%_) + (eq? 'gx#identifier-wrap::t _%$e116840%_)) + (##unchecked-structure-ref _%e116836%_ '1 '#f '#f) + (if (eq? 'gerbil#AST::t _%$e116840%_) + (_%lp116834%_ (##unchecked-structure-ref - _%e116562%_ + _%e116836%_ '1 '#f '#f) - _%marks116563%_) - _%e116562%_)))) - (if (null? _%marks116563%_) - _%e116562%_ - (if (pair? _%e116562%_) + _%marks116837%_) + _%e116836%_)))) + (if (null? _%marks116837%_) + _%e116836%_ + (if (pair? _%e116836%_) (cons (gx#stx-wrap - (##car _%e116562%_) - _%marks116563%_) + (##car _%e116836%_) + _%marks116837%_) (gx#stx-wrap - (##cdr _%e116562%_) - _%marks116563%_)) - (if (vector? _%e116562%_) + (##cdr _%e116836%_) + _%marks116837%_)) + (if (vector? _%e116836%_) (vector-map - (lambda (_%g116574116576%_) + (lambda (_%g116848116850%_) (gx#stx-wrap - _%g116574116576%_ - _%marks116563%_)) - _%e116562%_) - (if (box? _%e116562%_) + _%g116848116850%_ + _%marks116837%_)) + _%e116836%_) + (if (box? _%e116836%_) (box (gx#stx-wrap - (unbox _%e116562%_) - _%marks116563%_)) - _%e116562%_)))))) - (if (##structure-instance-of? _%stx116557%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx116557%_ '1 '#f '#f) - _%stx116557%_)))) + (unbox _%e116836%_) + _%marks116837%_)) + _%e116836%_)))))) + (if (##structure-instance-of? _%stx116831%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx116831%_ '1 '#f '#f) + _%stx116831%_)))) (define gx#syntax->datum - (lambda (_%stx116550%_) - (if (##structure-instance-of? _%stx116550%_ 'gerbil#AST::t) + (lambda (_%stx116824%_) + (if (##structure-instance-of? _%stx116824%_ 'gerbil#AST::t) (gx#syntax->datum - (##unchecked-structure-ref _%stx116550%_ '1 '#f '#f)) - (if (pair? _%stx116550%_) - (cons (gx#syntax->datum (##car _%stx116550%_)) - (gx#syntax->datum (##cdr _%stx116550%_))) - (if (vector? _%stx116550%_) - (vector-map gx#syntax->datum _%stx116550%_) - (if (box? _%stx116550%_) - (box (gx#syntax->datum (unbox _%stx116550%_))) - _%stx116550%_)))))) + (##unchecked-structure-ref _%stx116824%_ '1 '#f '#f)) + (if (pair? _%stx116824%_) + (cons (gx#syntax->datum (##car _%stx116824%_)) + (gx#syntax->datum (##cdr _%stx116824%_))) + (if (vector? _%stx116824%_) + (vector-map gx#syntax->datum _%stx116824%_) + (if (box? _%stx116824%_) + (box (gx#syntax->datum (unbox _%stx116824%_))) + _%stx116824%_)))))) (define gx#datum->syntax__% - (lambda (_%stx116484%_ _%datum116485%_ _%src116486%_ _%quote?116487%_) - (letrec ((_%wrap-datum116489%_ - (lambda (_%e116522%_ _%marks116523%_) - (_%wrap-inner116491%_ - _%e116522%_ - (lambda (_%g116524116526%_) + (lambda (_%stx116758%_ _%datum116759%_ _%src116760%_ _%quote?116761%_) + (letrec ((_%wrap-datum116763%_ + (lambda (_%e116796%_ _%marks116797%_) + (_%wrap-inner116765%_ + _%e116796%_ + (lambda (_%g116798116800%_) (##structure gx#identifier-wrap::t - _%g116524116526%_ - _%src116486%_ - _%marks116523%_))))) - (_%wrap-quote116490%_ - (lambda (_%e116514%_ _%ctx116515%_ _%marks116516%_) - (_%wrap-inner116491%_ - _%e116514%_ - (lambda (_%g116517116519%_) + _%g116798116800%_ + _%src116760%_ + _%marks116797%_))))) + (_%wrap-quote116764%_ + (lambda (_%e116788%_ _%ctx116789%_ _%marks116790%_) + (_%wrap-inner116765%_ + _%e116788%_ + (lambda (_%g116791116793%_) (##structure gx#syntax-quote::t - _%g116517116519%_ - _%src116486%_ - _%ctx116515%_ - _%marks116516%_))))) - (_%wrap-inner116491%_ - (lambda (_%e116502%_ _%wrap-e116503%_) - (let _%recur116505%_ ((_%e116507%_ _%e116502%_)) - (if (symbol? _%e116507%_) - (_%wrap-e116503%_ _%e116507%_) - (if (pair? _%e116507%_) - (cons (_%recur116505%_ (##car _%e116507%_)) - (_%recur116505%_ (##cdr _%e116507%_))) - (if (vector? _%e116507%_) - (vector-map _%recur116505%_ _%e116507%_) - (if (box? _%e116507%_) - (box (_%recur116505%_ - (unbox _%e116507%_))) - _%e116507%_))))))) - (_%wrap-outer116492%_ - (lambda (_%e116500%_) - (if (##structure-instance-of? _%e116500%_ 'gerbil#AST::t) - _%e116500%_ - (##structure gx#AST::t _%e116500%_ _%src116486%_))))) - (if (##structure-instance-of? _%datum116485%_ 'gerbil#AST::t) - _%datum116485%_ - (if (not _%stx116484%_) - (##structure gx#AST::t _%datum116485%_ _%src116486%_) - (if (gx#identifier? _%stx116484%_) - (let ((_%stx116497%_ (gx#stx-unwrap__0 _%stx116484%_))) - (_%wrap-outer116492%_ + _%g116791116793%_ + _%src116760%_ + _%ctx116789%_ + _%marks116790%_))))) + (_%wrap-inner116765%_ + (lambda (_%e116776%_ _%wrap-e116777%_) + (let _%recur116779%_ ((_%e116781%_ _%e116776%_)) + (if (symbol? _%e116781%_) + (_%wrap-e116777%_ _%e116781%_) + (if (pair? _%e116781%_) + (cons (_%recur116779%_ (##car _%e116781%_)) + (_%recur116779%_ (##cdr _%e116781%_))) + (if (vector? _%e116781%_) + (vector-map _%recur116779%_ _%e116781%_) + (if (box? _%e116781%_) + (box (_%recur116779%_ + (unbox _%e116781%_))) + _%e116781%_))))))) + (_%wrap-outer116766%_ + (lambda (_%e116774%_) + (if (##structure-instance-of? _%e116774%_ 'gerbil#AST::t) + _%e116774%_ + (##structure gx#AST::t _%e116774%_ _%src116760%_))))) + (if (##structure-instance-of? _%datum116759%_ 'gerbil#AST::t) + _%datum116759%_ + (if (not _%stx116758%_) + (##structure gx#AST::t _%datum116759%_ _%src116760%_) + (if (gx#identifier? _%stx116758%_) + (let ((_%stx116771%_ (gx#stx-unwrap__0 _%stx116758%_))) + (_%wrap-outer116766%_ (if (##structure-direct-instance-of? - _%stx116497%_ + _%stx116771%_ 'gx#syntax-quote::t) - (if _%quote?116487%_ - (_%wrap-quote116490%_ - _%datum116485%_ + (if _%quote?116761%_ + (_%wrap-quote116764%_ + _%datum116759%_ (##unchecked-structure-ref - _%stx116497%_ + _%stx116771%_ '3 '#f '#f) (##unchecked-structure-ref - _%stx116497%_ + _%stx116771%_ '4 '#f '#f)) - (_%wrap-datum116489%_ - _%datum116485%_ + (_%wrap-datum116763%_ + _%datum116759%_ (##unchecked-structure-ref - _%stx116497%_ + _%stx116771%_ '4 '#f '#f))) - (_%wrap-datum116489%_ - _%datum116485%_ + (_%wrap-datum116763%_ + _%datum116759%_ (##unchecked-structure-ref - _%stx116497%_ + _%stx116771%_ '3 '#f '#f))))) (error '"Bad template syntax; expected identifier" - _%stx116484%_))))))) + _%stx116758%_))))))) (define gx#datum->syntax__0 - (lambda (_%stx116532%_ _%datum116533%_) - (let* ((_%src116535%_ '#f) (_%quote?116537%_ '#t)) + (lambda (_%stx116806%_ _%datum116807%_) + (let* ((_%src116809%_ '#f) (_%quote?116811%_ '#t)) (gx#datum->syntax__% - _%stx116532%_ - _%datum116533%_ - _%src116535%_ - _%quote?116537%_)))) + _%stx116806%_ + _%datum116807%_ + _%src116809%_ + _%quote?116811%_)))) (define gx#datum->syntax__1 - (lambda (_%stx116539%_ _%datum116540%_ _%src116541%_) - (let ((_%quote?116543%_ '#t)) + (lambda (_%stx116813%_ _%datum116814%_ _%src116815%_) + (let ((_%quote?116817%_ '#t)) (gx#datum->syntax__% - _%stx116539%_ - _%datum116540%_ - _%src116541%_ - _%quote?116543%_)))) + _%stx116813%_ + _%datum116814%_ + _%src116815%_ + _%quote?116817%_)))) (define gx#datum->syntax - (lambda _g116684_ - (let ((_g116683_ (##length _g116684_))) - (cond ((##fx= _g116683_ 2) (apply gx#datum->syntax__0 _g116684_)) - ((##fx= _g116683_ 3) (apply gx#datum->syntax__1 _g116684_)) - ((##fx= _g116683_ 4) (apply gx#datum->syntax__% _g116684_)) + (lambda _g116958_ + (let ((_g116957_ (##length _g116958_))) + (cond ((##fx= _g116957_ 2) (apply gx#datum->syntax__0 _g116958_)) + ((##fx= _g116957_ 3) (apply gx#datum->syntax__1 _g116958_)) + ((##fx= _g116957_ 4) (apply gx#datum->syntax__% _g116958_)) (else (##raise-wrong-number-of-arguments-exception gx#datum->syntax - _g116684_)))))) + _g116958_)))))) (define gx#stx-unwrap__% - (lambda (_%stx116450%_ _%marks116451%_) - (let _%lp116453%_ ((_%e116455%_ _%stx116450%_) - (_%marks116456%_ _%marks116451%_) - (_%src116457%_ (gx#stx-source _%stx116450%_))) - (if (##structure-direct-instance-of? _%e116455%_ 'gx#syntax-wrap::t) - (_%lp116453%_ - (##unchecked-structure-ref _%e116455%_ '1 '#f '#f) + (lambda (_%stx116724%_ _%marks116725%_) + (let _%lp116727%_ ((_%e116729%_ _%stx116724%_) + (_%marks116730%_ _%marks116725%_) + (_%src116731%_ (gx#stx-source _%stx116724%_))) + (if (##structure-direct-instance-of? _%e116729%_ 'gx#syntax-wrap::t) + (_%lp116727%_ + (##unchecked-structure-ref _%e116729%_ '1 '#f '#f) (gx#apply-mark - (##unchecked-structure-ref _%e116455%_ '3 '#f '#f) - _%marks116456%_) - (##unchecked-structure-ref _%e116455%_ '2 '#f '#f)) + (##unchecked-structure-ref _%e116729%_ '3 '#f '#f) + _%marks116730%_) + (##unchecked-structure-ref _%e116729%_ '2 '#f '#f)) (if (##structure-direct-instance-of? - _%e116455%_ + _%e116729%_ 'gx#identifier-wrap::t) - (if (null? _%marks116456%_) - _%e116455%_ + (if (null? _%marks116730%_) + _%e116729%_ (##structure gx#identifier-wrap::t - (##unchecked-structure-ref _%e116455%_ '1 '#f '#f) - (##unchecked-structure-ref _%e116455%_ '2 '#f '#f) + (##unchecked-structure-ref _%e116729%_ '1 '#f '#f) + (##unchecked-structure-ref _%e116729%_ '2 '#f '#f) (__foldl1 gx#apply-mark - (##unchecked-structure-ref _%e116455%_ '3 '#f '#f) - _%marks116456%_))) + (##unchecked-structure-ref _%e116729%_ '3 '#f '#f) + _%marks116730%_))) (if (##structure-direct-instance-of? - _%e116455%_ + _%e116729%_ 'gx#syntax-quote::t) - _%e116455%_ - (if (##structure-instance-of? _%e116455%_ 'gerbil#AST::t) - (_%lp116453%_ - (##unchecked-structure-ref _%e116455%_ '1 '#f '#f) - _%marks116456%_ - (##unchecked-structure-ref _%e116455%_ '2 '#f '#f)) - (if (symbol? _%e116455%_) + _%e116729%_ + (if (##structure-instance-of? _%e116729%_ 'gerbil#AST::t) + (_%lp116727%_ + (##unchecked-structure-ref _%e116729%_ '1 '#f '#f) + _%marks116730%_ + (##unchecked-structure-ref _%e116729%_ '2 '#f '#f)) + (if (symbol? _%e116729%_) (##structure gx#identifier-wrap::t - _%e116455%_ - _%src116457%_ - (reverse _%marks116456%_)) - (if (null? _%marks116456%_) - _%e116455%_ - (if (pair? _%e116455%_) + _%e116729%_ + _%src116731%_ + (reverse _%marks116730%_)) + (if (null? _%marks116730%_) + _%e116729%_ + (if (pair? _%e116729%_) (cons (gx#stx-wrap - (##car _%e116455%_) - _%marks116456%_) + (##car _%e116729%_) + _%marks116730%_) (gx#stx-wrap - (##cdr _%e116455%_) - _%marks116456%_)) - (if (vector? _%e116455%_) + (##cdr _%e116729%_) + _%marks116730%_)) + (if (vector? _%e116729%_) (vector-map - (lambda (_%g116466116468%_) + (lambda (_%g116740116742%_) (gx#stx-wrap - _%g116466116468%_ - _%marks116456%_)) - _%e116455%_) - (if (box? _%e116455%_) + _%g116740116742%_ + _%marks116730%_)) + _%e116729%_) + (if (box? _%e116729%_) (box (gx#stx-wrap - (unbox _%e116455%_) - _%marks116456%_)) - _%e116455%_)))))))))))) + (unbox _%e116729%_) + _%marks116730%_)) + _%e116729%_)))))))))))) (define gx#stx-unwrap__0 - (lambda (_%stx116476%_) - (let ((_%marks116478%_ '())) - (gx#stx-unwrap__% _%stx116476%_ _%marks116478%_)))) + (lambda (_%stx116750%_) + (let ((_%marks116752%_ '())) + (gx#stx-unwrap__% _%stx116750%_ _%marks116752%_)))) (define gx#stx-unwrap - (lambda _g116686_ - (let ((_g116685_ (##length _g116686_))) - (cond ((##fx= _g116685_ 1) (apply gx#stx-unwrap__0 _g116686_)) - ((##fx= _g116685_ 2) (apply gx#stx-unwrap__% _g116686_)) + (lambda _g116960_ + (let ((_g116959_ (##length _g116960_))) + (cond ((##fx= _g116959_ 1) (apply gx#stx-unwrap__0 _g116960_)) + ((##fx= _g116959_ 2) (apply gx#stx-unwrap__% _g116960_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-unwrap - _g116686_)))))) + _g116960_)))))) (define gx#stx-wrap - (lambda (_%stx116443%_ _%marks116444%_) + (lambda (_%stx116717%_ _%marks116718%_) (__foldl1 - (lambda (_%mark116446%_ _%stx116447%_) - (gx#stx-apply-mark _%stx116447%_ _%mark116446%_)) - _%stx116443%_ - _%marks116444%_))) + (lambda (_%mark116720%_ _%stx116721%_) + (gx#stx-apply-mark _%stx116721%_ _%mark116720%_)) + _%stx116717%_ + _%marks116718%_))) (define gx#stx-rewrap - (lambda (_%stx116437%_ _%marks116438%_) + (lambda (_%stx116711%_ _%marks116712%_) (__foldr1 - (lambda (_%mark116440%_ _%stx116441%_) - (gx#stx-apply-mark _%stx116441%_ _%mark116440%_)) - _%stx116437%_ - _%marks116438%_))) + (lambda (_%mark116714%_ _%stx116715%_) + (gx#stx-apply-mark _%stx116715%_ _%mark116714%_)) + _%stx116711%_ + _%marks116712%_))) (define gx#stx-apply-mark - (lambda (_%stx116431%_ _%mark116432%_) - (if (##structure-direct-instance-of? _%stx116431%_ 'gx#syntax-quote::t) - _%stx116431%_ + (lambda (_%stx116705%_ _%mark116706%_) + (if (##structure-direct-instance-of? _%stx116705%_ 'gx#syntax-quote::t) + _%stx116705%_ (if (and (##structure-direct-instance-of? - _%stx116431%_ + _%stx116705%_ 'gx#syntax-wrap::t) - (eq? _%mark116432%_ + (eq? _%mark116706%_ (##unchecked-structure-ref - _%stx116431%_ + _%stx116705%_ '3 '#f '#f))) - (##unchecked-structure-ref _%stx116431%_ '1 '#f '#f) + (##unchecked-structure-ref _%stx116705%_ '1 '#f '#f) (##structure gx#syntax-wrap::t - _%stx116431%_ - (gx#stx-source _%stx116431%_) - _%mark116432%_))))) + _%stx116705%_ + (gx#stx-source _%stx116705%_) + _%mark116706%_))))) (define gx#apply-mark - (lambda (_%mark116395%_ _%marks116396%_) - (let* ((_%marks116397116405%_ _%marks116396%_) - (_%else116399116413%_ - (lambda () (cons _%mark116395%_ _%marks116396%_))) - (_%K116401116419%_ - (lambda (_%rest116416%_ _%hd116417%_) - (if (eq? _%mark116395%_ _%hd116417%_) - _%rest116416%_ - (cons _%mark116395%_ _%marks116396%_))))) - (if (##pair? _%marks116397116405%_) - (let ((_%hd116402116422%_ (##car _%marks116397116405%_)) - (_%tl116403116424%_ (##cdr _%marks116397116405%_))) - (let* ((_%hd116427%_ _%hd116402116422%_) - (_%rest116429%_ _%tl116403116424%_)) - (_%K116401116419%_ _%rest116429%_ _%hd116427%_))) - (_%else116399116413%_))))) + (lambda (_%mark116669%_ _%marks116670%_) + (let* ((_%marks116671116679%_ _%marks116670%_) + (_%else116673116687%_ + (lambda () (cons _%mark116669%_ _%marks116670%_))) + (_%K116675116693%_ + (lambda (_%rest116690%_ _%hd116691%_) + (if (eq? _%mark116669%_ _%hd116691%_) + _%rest116690%_ + (cons _%mark116669%_ _%marks116670%_))))) + (if (##pair? _%marks116671116679%_) + (let ((_%hd116676116696%_ (##car _%marks116671116679%_)) + (_%tl116677116698%_ (##cdr _%marks116671116679%_))) + (let* ((_%hd116701%_ _%hd116676116696%_) + (_%rest116703%_ _%tl116677116698%_)) + (_%K116675116693%_ _%rest116703%_ _%hd116701%_))) + (_%else116673116687%_))))) (define gx#stx-e - (lambda (_%stx116390%_) - (if (##structure-direct-instance-of? _%stx116390%_ 'gx#syntax-wrap::t) - (gx#stx-e (##unchecked-structure-ref _%stx116390%_ '1 '#f '#f)) - (if (##structure-instance-of? _%stx116390%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx116390%_ '1 '#f '#f) - _%stx116390%_)))) + (lambda (_%stx116664%_) + (if (##structure-direct-instance-of? _%stx116664%_ 'gx#syntax-wrap::t) + (gx#stx-e (##unchecked-structure-ref _%stx116664%_ '1 '#f '#f)) + (if (##structure-instance-of? _%stx116664%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx116664%_ '1 '#f '#f) + _%stx116664%_)))) (define gx#stx-source - (lambda (_%stx116388%_) - (if (##structure-instance-of? _%stx116388%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx116388%_ '2 '#f '#f) + (lambda (_%stx116662%_) + (if (##structure-instance-of? _%stx116662%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx116662%_ '2 '#f '#f) '#f))) (define gx#stx-wrap-source - (lambda (_%stx116382%_ _%src116383%_) - (if (or (##structure-instance-of? _%stx116382%_ 'gerbil#AST::t) - (not _%src116383%_)) - _%stx116382%_ - (##structure gx#AST::t _%stx116382%_ _%src116383%_)))) + (lambda (_%stx116656%_ _%src116657%_) + (if (or (##structure-instance-of? _%stx116656%_ 'gerbil#AST::t) + (not _%src116657%_)) + _%stx116656%_ + (##structure gx#AST::t _%stx116656%_ _%src116657%_)))) (define gx#stx-datum? - (lambda (_%stx116380%_) (gx#self-quoting? (gx#stx-e _%stx116380%_)))) + (lambda (_%stx116654%_) (gx#self-quoting? (gx#stx-e _%stx116654%_)))) (define gx#self-quoting? - (lambda (_%x116363%_) - (let ((_%$e116365%_ (immediate? _%x116363%_))) - (if _%$e116365%_ - _%$e116365%_ - (let ((_%$e116368%_ (number? _%x116363%_))) - (if _%$e116368%_ - _%$e116368%_ - (let ((_%$e116371%_ (keyword? _%x116363%_))) - (if _%$e116371%_ - _%$e116371%_ - (let ((_%$e116374%_ (string? _%x116363%_))) - (if _%$e116374%_ - _%$e116374%_ - (let ((_%$e116377%_ (vector? _%x116363%_))) - (if _%$e116377%_ - _%$e116377%_ - (u8vector? _%x116363%_))))))))))))) + (lambda (_%x116637%_) + (let ((_%$e116639%_ (immediate? _%x116637%_))) + (if _%$e116639%_ + _%$e116639%_ + (let ((_%$e116642%_ (number? _%x116637%_))) + (if _%$e116642%_ + _%$e116642%_ + (let ((_%$e116645%_ (keyword? _%x116637%_))) + (if _%$e116645%_ + _%$e116645%_ + (let ((_%$e116648%_ (string? _%x116637%_))) + (if _%$e116648%_ + _%$e116648%_ + (let ((_%$e116651%_ (vector? _%x116637%_))) + (if _%$e116651%_ + _%$e116651%_ + (u8vector? _%x116637%_))))))))))))) (define gx#stx-boolean? - (lambda (_%e116361%_) (boolean? (gx#stx-e _%e116361%_)))) + (lambda (_%e116635%_) (boolean? (gx#stx-e _%e116635%_)))) (define gx#stx-keyword? - (lambda (_%e116359%_) (keyword? (gx#stx-e _%e116359%_)))) - (define gx#stx-char? (lambda (_%e116357%_) (char? (gx#stx-e _%e116357%_)))) + (lambda (_%e116633%_) (keyword? (gx#stx-e _%e116633%_)))) + (define gx#stx-char? (lambda (_%e116631%_) (char? (gx#stx-e _%e116631%_)))) (define gx#stx-number? - (lambda (_%e116355%_) (number? (gx#stx-e _%e116355%_)))) + (lambda (_%e116629%_) (number? (gx#stx-e _%e116629%_)))) (define gx#stx-fixnum? - (lambda (_%e116353%_) (fixnum? (gx#stx-e _%e116353%_)))) + (lambda (_%e116627%_) (fixnum? (gx#stx-e _%e116627%_)))) (define gx#stx-string? - (lambda (_%e116351%_) (string? (gx#stx-e _%e116351%_)))) - (define gx#stx-null? (lambda (_%e116349%_) (null? (gx#stx-e _%e116349%_)))) - (define gx#stx-pair? (lambda (_%e116347%_) (pair? (gx#stx-e _%e116347%_)))) + (lambda (_%e116625%_) (string? (gx#stx-e _%e116625%_)))) + (define gx#stx-null? (lambda (_%e116623%_) (null? (gx#stx-e _%e116623%_)))) + (define gx#stx-pair? (lambda (_%e116621%_) (pair? (gx#stx-e _%e116621%_)))) (define gx#stx-list? - (lambda (_%e116309%_) - (let* ((_%g116310116319%_ (gx#stx-e _%e116309%_)) - (_%E116313116323%_ + (lambda (_%e116583%_) + (let* ((_%g116584116593%_ (gx#stx-e _%e116583%_)) + (_%E116587116597%_ (lambda () (error '"No clause matching" - _%g116310116319%_ + _%g116584116593%_ '([_ . rest]) '(tail)) '#!void))) - (let ((_%K116315116339%_ - (lambda (_%rest116337%_) (gx#stx-list? _%rest116337%_))) - (_%K116314116329%_ - (lambda (_%tail116327%_) (null? _%tail116327%_)))) - (if (##pair? _%g116310116319%_) - (let* ((_%tl116317116342%_ (##cdr _%g116310116319%_)) - (_%rest116345%_ _%tl116317116342%_)) - (gx#stx-list? _%rest116345%_)) - (let ((_%tail116332%_ _%g116310116319%_)) - (null? _%tail116332%_))))))) + (let ((_%K116589116613%_ + (lambda (_%rest116611%_) (gx#stx-list? _%rest116611%_))) + (_%K116588116603%_ + (lambda (_%tail116601%_) (null? _%tail116601%_)))) + (if (##pair? _%g116584116593%_) + (let* ((_%tl116591116616%_ (##cdr _%g116584116593%_)) + (_%rest116619%_ _%tl116591116616%_)) + (gx#stx-list? _%rest116619%_)) + (let ((_%tail116606%_ _%g116584116593%_)) + (null? _%tail116606%_))))))) (define gx#stx-pair/null? - (lambda (_%e116302%_) - (let* ((_%e116304%_ (gx#stx-e _%e116302%_)) - (_%$e116306%_ (pair? _%e116304%_))) - (if _%$e116306%_ _%$e116306%_ (null? _%e116304%_))))) + (lambda (_%e116576%_) + (let* ((_%e116578%_ (gx#stx-e _%e116576%_)) + (_%$e116580%_ (pair? _%e116578%_))) + (if _%$e116580%_ _%$e116580%_ (null? _%e116578%_))))) (define gx#stx-vector? - (lambda (_%e116300%_) (vector? (gx#stx-e _%e116300%_)))) - (define gx#stx-box? (lambda (_%e116298%_) (box? (gx#stx-e _%e116298%_)))) + (lambda (_%e116574%_) (vector? (gx#stx-e _%e116574%_)))) + (define gx#stx-box? (lambda (_%e116572%_) (box? (gx#stx-e _%e116572%_)))) (define gx#stx-eq? - (lambda (_%x116295%_ _%y116296%_) - (eq? (gx#stx-e _%x116295%_) (gx#stx-e _%y116296%_)))) + (lambda (_%x116569%_ _%y116570%_) + (eq? (gx#stx-e _%x116569%_) (gx#stx-e _%y116570%_)))) (define gx#stx-eqv? - (lambda (_%x116292%_ _%y116293%_) - (eqv? (gx#stx-e _%x116292%_) (gx#stx-e _%y116293%_)))) + (lambda (_%x116566%_ _%y116567%_) + (eqv? (gx#stx-e _%x116566%_) (gx#stx-e _%y116567%_)))) (define gx#stx-equal? - (lambda (_%x116289%_ _%y116290%_) - (equal? (gx#stx-e _%x116289%_) (gx#stx-e _%y116290%_)))) - (define gx#stx-false? (lambda (_%x116287%_) (not (gx#stx-e _%x116287%_)))) + (lambda (_%x116563%_ _%y116564%_) + (equal? (gx#stx-e _%x116563%_) (gx#stx-e _%y116564%_)))) + (define gx#stx-false? (lambda (_%x116561%_) (not (gx#stx-e _%x116561%_)))) (define gx#stx-identifier - (lambda (_%template116284%_ . _%args116285%_) + (lambda (_%template116558%_ . _%args116559%_) (gx#datum->syntax__1 - _%template116284%_ - (apply make-symbol (gx#syntax->datum _%args116285%_)) - (gx#stx-source _%template116284%_)))) + _%template116558%_ + (apply make-symbol (gx#syntax->datum _%args116559%_)) + (gx#stx-source _%template116558%_)))) (define gx#stx-identifier-marks - (lambda (_%stx116282%_) - (gx#stx-identifier-marks* (gx#stx-unwrap__0 _%stx116282%_)))) + (lambda (_%stx116556%_) + (gx#stx-identifier-marks* (gx#stx-unwrap__0 _%stx116556%_)))) (define gx#stx-identifier-marks* - (lambda (_%stx116277%_) + (lambda (_%stx116551%_) (if (##structure-direct-instance-of? - _%stx116277%_ + _%stx116551%_ 'gx#identifier-wrap::t) - (##unchecked-structure-ref _%stx116277%_ '3 '#f '#f) + (##unchecked-structure-ref _%stx116551%_ '3 '#f '#f) (if (##structure-direct-instance-of? - _%stx116277%_ + _%stx116551%_ 'gx#syntax-quote::t) - (##unchecked-structure-ref _%stx116277%_ '4 '#f '#f) + (##unchecked-structure-ref _%stx116551%_ '4 '#f '#f) (error '"Bad wrap; expected unwrapped identifier" - _%stx116277%_))))) + _%stx116551%_))))) (define gx#stx-identifier-context - (lambda (_%stx116273%_) - (let ((_%stx116275%_ (gx#stx-unwrap__0 _%stx116273%_))) - (if (gx#identifier-quote? _%stx116275%_) - (##unchecked-structure-ref _%stx116275%_ '3 '#f '#f) + (lambda (_%stx116547%_) + (let ((_%stx116549%_ (gx#stx-unwrap__0 _%stx116547%_))) + (if (gx#identifier-quote? _%stx116549%_) + (##unchecked-structure-ref _%stx116549%_ '3 '#f '#f) '#f)))) (define gx#identifier-list? - (lambda (_%stx116228%_) - (let* ((_%g116229116239%_ (gx#stx-e _%stx116228%_)) - (_%else116232116247%_ (lambda () '#f))) - (let ((_%K116235116261%_ - (lambda (_%rest116258%_ _%hd116259%_) - (if (gx#identifier? _%hd116259%_) - (gx#identifier-list? _%rest116258%_) + (lambda (_%stx116502%_) + (let* ((_%g116503116513%_ (gx#stx-e _%stx116502%_)) + (_%else116506116521%_ (lambda () '#f))) + (let ((_%K116509116535%_ + (lambda (_%rest116532%_ _%hd116533%_) + (if (gx#identifier? _%hd116533%_) + (gx#identifier-list? _%rest116532%_) '#f))) - (_%K116234116252%_ (lambda () '#t))) - (let ((_%try-match116231116255%_ + (_%K116508116526%_ (lambda () '#t))) + (let ((_%try-match116505116529%_ (lambda () - (if (##null? _%g116229116239%_) - (_%K116234116252%_) - (_%else116232116247%_))))) - (if (##pair? _%g116229116239%_) - (let ((_%tl116237116266%_ (##cdr _%g116229116239%_)) - (_%hd116236116264%_ (##car _%g116229116239%_))) - (let ((_%hd116269%_ _%hd116236116264%_) - (_%rest116271%_ _%tl116237116266%_)) - (_%K116235116261%_ _%rest116271%_ _%hd116269%_))) - (_%try-match116231116255%_))))))) + (if (##null? _%g116503116513%_) + (_%K116508116526%_) + (_%else116506116521%_))))) + (if (##pair? _%g116503116513%_) + (let ((_%tl116511116540%_ (##cdr _%g116503116513%_)) + (_%hd116510116538%_ (##car _%g116503116513%_))) + (let ((_%hd116543%_ _%hd116510116538%_) + (_%rest116545%_ _%tl116511116540%_)) + (_%K116509116535%_ _%rest116545%_ _%hd116543%_))) + (_%try-match116505116529%_))))))) (define gx#genident__% - (lambda (_%e116205%_ _%src116206%_) + (lambda (_%e116479%_ _%src116480%_) (gx#stx-wrap-source - (gensym (let ((_%e116208%_ (gx#stx-e _%e116205%_))) - (if (interned-symbol? _%e116208%_) _%e116208%_ 'g))) - (let ((_%$e116210%_ (gx#stx-source _%e116205%_))) - (if _%$e116210%_ _%$e116210%_ _%src116206%_))))) + (gensym (let ((_%e116482%_ (gx#stx-e _%e116479%_))) + (if (interned-symbol? _%e116482%_) _%e116482%_ 'g))) + (let ((_%$e116484%_ (gx#stx-source _%e116479%_))) + (if _%$e116484%_ _%$e116484%_ _%src116480%_))))) (define gx#genident__0 (lambda () - (let* ((_%e116217%_ 'g) (_%src116219%_ '#f)) - (gx#genident__% _%e116217%_ _%src116219%_)))) + (let* ((_%e116491%_ 'g) (_%src116493%_ '#f)) + (gx#genident__% _%e116491%_ _%src116493%_)))) (define gx#genident__1 - (lambda (_%e116221%_) - (let ((_%src116223%_ '#f)) - (gx#genident__% _%e116221%_ _%src116223%_)))) + (lambda (_%e116495%_) + (let ((_%src116497%_ '#f)) + (gx#genident__% _%e116495%_ _%src116497%_)))) (define gx#genident - (lambda _g116688_ - (let ((_g116687_ (##length _g116688_))) - (cond ((##fx= _g116687_ 0) (apply gx#genident__0 _g116688_)) - ((##fx= _g116687_ 1) (apply gx#genident__1 _g116688_)) - ((##fx= _g116687_ 2) (apply gx#genident__% _g116688_)) + (lambda _g116962_ + (let ((_g116961_ (##length _g116962_))) + (cond ((##fx= _g116961_ 0) (apply gx#genident__0 _g116962_)) + ((##fx= _g116961_ 1) (apply gx#genident__1 _g116962_)) + ((##fx= _g116961_ 2) (apply gx#genident__% _g116962_)) (else (##raise-wrong-number-of-arguments-exception gx#genident - _g116688_)))))) + _g116962_)))))) (define gx#gentemps - (lambda (_%stx-lst116202%_) (gx#stx-map1 gx#genident _%stx-lst116202%_))) + (lambda (_%stx-lst116476%_) (gx#stx-map1 gx#genident _%stx-lst116476%_))) (define gx#syntax->list - (lambda (_%stx116200%_) (gx#stx-map1 values _%stx116200%_))) + (lambda (_%stx116474%_) (gx#stx-map1 values _%stx116474%_))) (define gx#stx-car - (lambda (_%stx116197%_) + (lambda (_%stx116471%_) (declare (safe)) - (car (gx#syntax-e _%stx116197%_)))) + (car (gx#syntax-e _%stx116471%_)))) (define gx#stx-cdr - (lambda (_%stx116194%_) + (lambda (_%stx116468%_) (declare (safe)) - (cdr (gx#syntax-e _%stx116194%_)))) + (cdr (gx#syntax-e _%stx116468%_)))) (define gx#stx-length - (lambda (_%stx116159%_) - (let _%lp116161%_ ((_%rest116163%_ _%stx116159%_) (_%n116164%_ '0)) - (let* ((_%g116165116173%_ (gx#stx-e _%rest116163%_)) - (_%else116167116181%_ (lambda () _%n116164%_)) - (_%K116169116186%_ - (lambda (_%rest116184%_) - (_%lp116161%_ _%rest116184%_ (##fx+ _%n116164%_ '1))))) - (if (##pair? _%g116165116173%_) - (let* ((_%tl116171116189%_ (##cdr _%g116165116173%_)) - (_%rest116192%_ _%tl116171116189%_)) - (_%K116169116186%_ _%rest116192%_)) - (_%else116167116181%_)))))) + (lambda (_%stx116433%_) + (let _%lp116435%_ ((_%rest116437%_ _%stx116433%_) (_%n116438%_ '0)) + (let* ((_%g116439116447%_ (gx#stx-e _%rest116437%_)) + (_%else116441116455%_ (lambda () _%n116438%_)) + (_%K116443116460%_ + (lambda (_%rest116458%_) + (_%lp116435%_ _%rest116458%_ (##fx+ _%n116438%_ '1))))) + (if (##pair? _%g116439116447%_) + (let* ((_%tl116445116463%_ (##cdr _%g116439116447%_)) + (_%rest116466%_ _%tl116445116463%_)) + (_%K116443116460%_ _%rest116466%_)) + (_%else116441116455%_)))))) (define gx#stx-for-each - (lambda _g116690_ - (let ((_g116689_ (##length _g116690_))) - (cond ((##fx= _g116689_ 2) (apply gx#stx-for-each1 _g116690_)) - ((##fx= _g116689_ 3) (apply gx#stx-for-each2 _g116690_)) + (lambda _g116964_ + (let ((_g116963_ (##length _g116964_))) + (cond ((##fx= _g116963_ 2) (apply gx#stx-for-each1 _g116964_)) + ((##fx= _g116963_ 3) (apply gx#stx-for-each2 _g116964_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-for-each - _g116690_)))))) + _g116964_)))))) (define gx#stx-for-each1 - (lambda (_%f116102%_ _%stx116103%_) - (if (procedure? _%f116102%_) + (lambda (_%f116376%_ _%stx116377%_) + (if (procedure? _%f116376%_) '#!void - (error '"expected procedure" _%f116102%_)) - (let _%lp116105%_ ((_%rest116107%_ _%stx116103%_)) - (let* ((_%g116108116118%_ (gx#syntax-e _%rest116107%_)) - (_%else116111116126%_ - (lambda () (_%f116102%_ _%rest116107%_)))) - (let ((_%K116114116140%_ - (lambda (_%rest116137%_ _%hd116138%_) - (_%f116102%_ _%hd116138%_) - (_%lp116105%_ _%rest116137%_))) - (_%K116113116131%_ (lambda () '#!void))) - (let ((_%try-match116110116134%_ + (error '"expected procedure" _%f116376%_)) + (let _%lp116379%_ ((_%rest116381%_ _%stx116377%_)) + (let* ((_%g116382116392%_ (gx#syntax-e _%rest116381%_)) + (_%else116385116400%_ + (lambda () (_%f116376%_ _%rest116381%_)))) + (let ((_%K116388116414%_ + (lambda (_%rest116411%_ _%hd116412%_) + (_%f116376%_ _%hd116412%_) + (_%lp116379%_ _%rest116411%_))) + (_%K116387116405%_ (lambda () '#!void))) + (let ((_%try-match116384116408%_ (lambda () - (if (##null? _%g116108116118%_) - (_%K116113116131%_) - (_%else116111116126%_))))) - (if (##pair? _%g116108116118%_) - (let ((_%tl116116116145%_ (##cdr _%g116108116118%_)) - (_%hd116115116143%_ (##car _%g116108116118%_))) - (let ((_%hd116148%_ _%hd116115116143%_) - (_%rest116150%_ _%tl116116116145%_)) - (_%K116114116140%_ _%rest116150%_ _%hd116148%_))) - (_%try-match116110116134%_)))))))) + (if (##null? _%g116382116392%_) + (_%K116387116405%_) + (_%else116385116400%_))))) + (if (##pair? _%g116382116392%_) + (let ((_%tl116390116419%_ (##cdr _%g116382116392%_)) + (_%hd116389116417%_ (##car _%g116382116392%_))) + (let ((_%hd116422%_ _%hd116389116417%_) + (_%rest116424%_ _%tl116390116419%_)) + (_%K116388116414%_ _%rest116424%_ _%hd116422%_))) + (_%try-match116384116408%_)))))))) (define gx#stx-for-each2 - (lambda (_%f116007%_ _%xstx116008%_ _%ystx116009%_) - (if (procedure? _%f116007%_) + (lambda (_%f116281%_ _%xstx116282%_ _%ystx116283%_) + (if (procedure? _%f116281%_) '#!void - (error '"expected procedure" _%f116007%_)) - (let _%lp116011%_ ((_%xrest116013%_ _%xstx116008%_) - (_%yrest116014%_ _%ystx116009%_)) - (let* ((_%g116015116025%_ (gx#syntax-e _%xrest116013%_)) - (_%else116018116033%_ (lambda () '#!void))) - (let ((_%K116021116090%_ - (lambda (_%xrest116059%_ _%xhd116060%_) - (let* ((_%g116061116068%_ (gx#syntax-e _%yrest116014%_)) - (_%E116063116072%_ + (error '"expected procedure" _%f116281%_)) + (let _%lp116285%_ ((_%xrest116287%_ _%xstx116282%_) + (_%yrest116288%_ _%ystx116283%_)) + (let* ((_%g116289116299%_ (gx#syntax-e _%xrest116287%_)) + (_%else116292116307%_ (lambda () '#!void))) + (let ((_%K116295116364%_ + (lambda (_%xrest116333%_ _%xhd116334%_) + (let* ((_%g116335116342%_ (gx#syntax-e _%yrest116288%_)) + (_%E116337116346%_ (lambda () (error '"No clause matching" - _%g116061116068%_ + _%g116335116342%_ '([yhd . yrest])) '#!void)) - (_%K116064116078%_ - (lambda (_%yrest116075%_ _%yhd116076%_) - (_%f116007%_ _%xhd116060%_ _%yhd116076%_) - (_%lp116011%_ - _%xrest116059%_ - _%yrest116075%_)))) - (if (##pair? _%g116061116068%_) - (let ((_%hd116065116081%_ (##car _%g116061116068%_)) - (_%tl116066116083%_ - (##cdr _%g116061116068%_))) - (let* ((_%yhd116086%_ _%hd116065116081%_) - (_%yrest116088%_ _%tl116066116083%_)) - (_%K116064116078%_ - _%yrest116088%_ - _%yhd116086%_))) - (_%E116063116072%_))))) - (_%K116020116053%_ + (_%K116338116352%_ + (lambda (_%yrest116349%_ _%yhd116350%_) + (_%f116281%_ _%xhd116334%_ _%yhd116350%_) + (_%lp116285%_ + _%xrest116333%_ + _%yrest116349%_)))) + (if (##pair? _%g116335116342%_) + (let ((_%hd116339116355%_ (##car _%g116335116342%_)) + (_%tl116340116357%_ + (##cdr _%g116335116342%_))) + (let* ((_%yhd116360%_ _%hd116339116355%_) + (_%yrest116362%_ _%tl116340116357%_)) + (_%K116338116352%_ + _%yrest116362%_ + _%yhd116360%_))) + (_%E116337116346%_))))) + (_%K116294116327%_ (lambda () - (let* ((_%yrest116037116042%_ _%yrest116014%_) - (_%E116039116046%_ + (let* ((_%yrest116311116316%_ _%yrest116288%_) + (_%E116313116320%_ (lambda () (error '"No clause matching" - _%yrest116037116042%_ + _%yrest116311116316%_ '((? (not stx-null?)))) '#!void)) - (_%K116040116050%_ + (_%K116314116324%_ (lambda () - (_%f116007%_ _%xrest116013%_ _%yrest116014%_)))) - (if (gx#stx-null? _%yrest116037116042%_) - (_%E116039116046%_) - (_%K116040116050%_)))))) - (let ((_%try-match116017116056%_ + (_%f116281%_ _%xrest116287%_ _%yrest116288%_)))) + (if (gx#stx-null? _%yrest116311116316%_) + (_%E116313116320%_) + (_%K116314116324%_)))))) + (let ((_%try-match116291116330%_ (lambda () - (if (null? _%g116015116025%_) - (_%else116018116033%_) - (_%K116020116053%_))))) - (if (##pair? _%g116015116025%_) - (let ((_%tl116023116095%_ (##cdr _%g116015116025%_)) - (_%hd116022116093%_ (##car _%g116015116025%_))) - (let ((_%xhd116098%_ _%hd116022116093%_) - (_%xrest116100%_ _%tl116023116095%_)) - (_%K116021116090%_ _%xrest116100%_ _%xhd116098%_))) - (_%try-match116017116056%_)))))))) + (if (null? _%g116289116299%_) + (_%else116292116307%_) + (_%K116294116327%_))))) + (if (##pair? _%g116289116299%_) + (let ((_%tl116297116369%_ (##cdr _%g116289116299%_)) + (_%hd116296116367%_ (##car _%g116289116299%_))) + (let ((_%xhd116372%_ _%hd116296116367%_) + (_%xrest116374%_ _%tl116297116369%_)) + (_%K116295116364%_ _%xrest116374%_ _%xhd116372%_))) + (_%try-match116291116330%_)))))))) (define gx#stx-map - (lambda _g116692_ - (let ((_g116691_ (##length _g116692_))) - (cond ((##fx= _g116691_ 2) (apply gx#stx-map1 _g116692_)) - ((##fx= _g116691_ 3) (apply gx#stx-map2 _g116692_)) + (lambda _g116966_ + (let ((_g116965_ (##length _g116966_))) + (cond ((##fx= _g116965_ 2) (apply gx#stx-map1 _g116966_)) + ((##fx= _g116965_ 3) (apply gx#stx-map2 _g116966_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-map - _g116692_)))))) + _g116966_)))))) (define gx#stx-map1 - (lambda (_%f115950%_ _%stx115951%_) - (if (procedure? _%f115950%_) + (lambda (_%f116224%_ _%stx116225%_) + (if (procedure? _%f116224%_) '#!void - (error '"expected procedure" _%f115950%_)) - (let _%recur115953%_ ((_%rest115955%_ _%stx115951%_)) - (let* ((_%g115956115966%_ (gx#syntax-e _%rest115955%_)) - (_%else115959115974%_ - (lambda () (_%f115950%_ _%rest115955%_)))) - (let ((_%K115962115988%_ - (lambda (_%rest115985%_ _%hd115986%_) - (cons (_%f115950%_ _%hd115986%_) - (_%recur115953%_ _%rest115985%_)))) - (_%K115961115979%_ (lambda () '()))) - (let ((_%try-match115958115982%_ + (error '"expected procedure" _%f116224%_)) + (let _%recur116227%_ ((_%rest116229%_ _%stx116225%_)) + (let* ((_%g116230116240%_ (gx#syntax-e _%rest116229%_)) + (_%else116233116248%_ + (lambda () (_%f116224%_ _%rest116229%_)))) + (let ((_%K116236116262%_ + (lambda (_%rest116259%_ _%hd116260%_) + (cons (_%f116224%_ _%hd116260%_) + (_%recur116227%_ _%rest116259%_)))) + (_%K116235116253%_ (lambda () '()))) + (let ((_%try-match116232116256%_ (lambda () - (if (##null? _%g115956115966%_) - (_%K115961115979%_) - (_%else115959115974%_))))) - (if (##pair? _%g115956115966%_) - (let ((_%tl115964115993%_ (##cdr _%g115956115966%_)) - (_%hd115963115991%_ (##car _%g115956115966%_))) - (let ((_%hd115996%_ _%hd115963115991%_) - (_%rest115998%_ _%tl115964115993%_)) - (_%K115962115988%_ _%rest115998%_ _%hd115996%_))) - (_%try-match115958115982%_)))))))) + (if (##null? _%g116230116240%_) + (_%K116235116253%_) + (_%else116233116248%_))))) + (if (##pair? _%g116230116240%_) + (let ((_%tl116238116267%_ (##cdr _%g116230116240%_)) + (_%hd116237116265%_ (##car _%g116230116240%_))) + (let ((_%hd116270%_ _%hd116237116265%_) + (_%rest116272%_ _%tl116238116267%_)) + (_%K116236116262%_ _%rest116272%_ _%hd116270%_))) + (_%try-match116232116256%_)))))))) (define gx#stx-map2 - (lambda (_%f115855%_ _%xstx115856%_ _%ystx115857%_) - (if (procedure? _%f115855%_) + (lambda (_%f116129%_ _%xstx116130%_ _%ystx116131%_) + (if (procedure? _%f116129%_) '#!void - (error '"expected procedure" _%f115855%_)) - (let _%recur115859%_ ((_%xrest115861%_ _%xstx115856%_) - (_%yrest115862%_ _%ystx115857%_)) - (let* ((_%g115863115873%_ (gx#syntax-e _%xrest115861%_)) - (_%else115866115881%_ (lambda () '()))) - (let ((_%K115869115938%_ - (lambda (_%xrest115907%_ _%xhd115908%_) - (let* ((_%g115909115916%_ (gx#syntax-e _%yrest115862%_)) - (_%E115911115920%_ + (error '"expected procedure" _%f116129%_)) + (let _%recur116133%_ ((_%xrest116135%_ _%xstx116130%_) + (_%yrest116136%_ _%ystx116131%_)) + (let* ((_%g116137116147%_ (gx#syntax-e _%xrest116135%_)) + (_%else116140116155%_ (lambda () '()))) + (let ((_%K116143116212%_ + (lambda (_%xrest116181%_ _%xhd116182%_) + (let* ((_%g116183116190%_ (gx#syntax-e _%yrest116136%_)) + (_%E116185116194%_ (lambda () (error '"No clause matching" - _%g115909115916%_ + _%g116183116190%_ '([yhd . yrest])) '#!void)) - (_%K115912115926%_ - (lambda (_%yrest115923%_ _%yhd115924%_) - (cons (_%f115855%_ _%xhd115908%_ _%yhd115924%_) - (_%recur115859%_ - _%xrest115907%_ - _%yrest115923%_))))) - (if (##pair? _%g115909115916%_) - (let ((_%hd115913115929%_ (##car _%g115909115916%_)) - (_%tl115914115931%_ - (##cdr _%g115909115916%_))) - (let* ((_%yhd115934%_ _%hd115913115929%_) - (_%yrest115936%_ _%tl115914115931%_)) - (_%K115912115926%_ - _%yrest115936%_ - _%yhd115934%_))) - (_%E115911115920%_))))) - (_%K115868115901%_ + (_%K116186116200%_ + (lambda (_%yrest116197%_ _%yhd116198%_) + (cons (_%f116129%_ _%xhd116182%_ _%yhd116198%_) + (_%recur116133%_ + _%xrest116181%_ + _%yrest116197%_))))) + (if (##pair? _%g116183116190%_) + (let ((_%hd116187116203%_ (##car _%g116183116190%_)) + (_%tl116188116205%_ + (##cdr _%g116183116190%_))) + (let* ((_%yhd116208%_ _%hd116187116203%_) + (_%yrest116210%_ _%tl116188116205%_)) + (_%K116186116200%_ + _%yrest116210%_ + _%yhd116208%_))) + (_%E116185116194%_))))) + (_%K116142116175%_ (lambda () - (let* ((_%yrest115885115890%_ _%yrest115862%_) - (_%E115887115894%_ + (let* ((_%yrest116159116164%_ _%yrest116136%_) + (_%E116161116168%_ (lambda () (error '"No clause matching" - _%yrest115885115890%_ + _%yrest116159116164%_ '((? (not stx-null?)))) '#!void)) - (_%K115888115898%_ + (_%K116162116172%_ (lambda () - (_%f115855%_ _%xrest115861%_ _%yrest115862%_)))) - (if (gx#stx-null? _%yrest115885115890%_) - (_%E115887115894%_) - (_%K115888115898%_)))))) - (let ((_%try-match115865115904%_ + (_%f116129%_ _%xrest116135%_ _%yrest116136%_)))) + (if (gx#stx-null? _%yrest116159116164%_) + (_%E116161116168%_) + (_%K116162116172%_)))))) + (let ((_%try-match116139116178%_ (lambda () - (if (null? _%g115863115873%_) - (_%else115866115881%_) - (_%K115868115901%_))))) - (if (##pair? _%g115863115873%_) - (let ((_%tl115871115943%_ (##cdr _%g115863115873%_)) - (_%hd115870115941%_ (##car _%g115863115873%_))) - (let ((_%xhd115946%_ _%hd115870115941%_) - (_%xrest115948%_ _%tl115871115943%_)) - (_%K115869115938%_ _%xrest115948%_ _%xhd115946%_))) - (_%try-match115865115904%_)))))))) + (if (null? _%g116137116147%_) + (_%else116140116155%_) + (_%K116142116175%_))))) + (if (##pair? _%g116137116147%_) + (let ((_%tl116145116217%_ (##cdr _%g116137116147%_)) + (_%hd116144116215%_ (##car _%g116137116147%_))) + (let ((_%xhd116220%_ _%hd116144116215%_) + (_%xrest116222%_ _%tl116145116217%_)) + (_%K116143116212%_ _%xrest116222%_ _%xhd116220%_))) + (_%try-match116139116178%_)))))))) (define gx#stx-andmap - (lambda (_%f115805%_ _%stx115806%_) - (if (procedure? _%f115805%_) + (lambda (_%f116079%_ _%stx116080%_) + (if (procedure? _%f116079%_) '#!void - (error '"expected procedure" _%f115805%_)) - (let _%lp115808%_ ((_%rest115810%_ _%stx115806%_)) - (let* ((_%g115811115821%_ (gx#syntax-e _%rest115810%_)) - (_%else115814115829%_ - (lambda () (_%f115805%_ _%rest115810%_)))) - (let ((_%K115817115843%_ - (lambda (_%rest115840%_ _%hd115841%_) - (if (_%f115805%_ _%hd115841%_) - (_%lp115808%_ _%rest115840%_) + (error '"expected procedure" _%f116079%_)) + (let _%lp116082%_ ((_%rest116084%_ _%stx116080%_)) + (let* ((_%g116085116095%_ (gx#syntax-e _%rest116084%_)) + (_%else116088116103%_ + (lambda () (_%f116079%_ _%rest116084%_)))) + (let ((_%K116091116117%_ + (lambda (_%rest116114%_ _%hd116115%_) + (if (_%f116079%_ _%hd116115%_) + (_%lp116082%_ _%rest116114%_) '#f))) - (_%K115816115834%_ (lambda () '#t))) - (let ((_%try-match115813115837%_ + (_%K116090116108%_ (lambda () '#t))) + (let ((_%try-match116087116111%_ (lambda () - (if (##null? _%g115811115821%_) - (_%K115816115834%_) - (_%else115814115829%_))))) - (if (##pair? _%g115811115821%_) - (let ((_%tl115819115848%_ (##cdr _%g115811115821%_)) - (_%hd115818115846%_ (##car _%g115811115821%_))) - (let ((_%hd115851%_ _%hd115818115846%_) - (_%rest115853%_ _%tl115819115848%_)) - (_%K115817115843%_ _%rest115853%_ _%hd115851%_))) - (_%try-match115813115837%_)))))))) + (if (##null? _%g116085116095%_) + (_%K116090116108%_) + (_%else116088116103%_))))) + (if (##pair? _%g116085116095%_) + (let ((_%tl116093116122%_ (##cdr _%g116085116095%_)) + (_%hd116092116120%_ (##car _%g116085116095%_))) + (let ((_%hd116125%_ _%hd116092116120%_) + (_%rest116127%_ _%tl116093116122%_)) + (_%K116091116117%_ _%rest116127%_ _%hd116125%_))) + (_%try-match116087116111%_)))))))) (define gx#stx-ormap - (lambda (_%f115752%_ _%stx115753%_) - (if (procedure? _%f115752%_) + (lambda (_%f116026%_ _%stx116027%_) + (if (procedure? _%f116026%_) '#!void - (error '"expected procedure" _%f115752%_)) - (let _%lp115755%_ ((_%rest115757%_ _%stx115753%_)) - (let* ((_%g115758115768%_ (gx#syntax-e _%rest115757%_)) - (_%else115761115776%_ - (lambda () (_%f115752%_ _%rest115757%_)))) - (let ((_%K115764115793%_ - (lambda (_%rest115787%_ _%hd115788%_) - (let ((_%$e115790%_ (_%f115752%_ _%hd115788%_))) - (if _%$e115790%_ - _%$e115790%_ - (_%lp115755%_ _%rest115787%_))))) - (_%K115763115781%_ (lambda () '#f))) - (let ((_%try-match115760115784%_ + (error '"expected procedure" _%f116026%_)) + (let _%lp116029%_ ((_%rest116031%_ _%stx116027%_)) + (let* ((_%g116032116042%_ (gx#syntax-e _%rest116031%_)) + (_%else116035116050%_ + (lambda () (_%f116026%_ _%rest116031%_)))) + (let ((_%K116038116067%_ + (lambda (_%rest116061%_ _%hd116062%_) + (let ((_%$e116064%_ (_%f116026%_ _%hd116062%_))) + (if _%$e116064%_ + _%$e116064%_ + (_%lp116029%_ _%rest116061%_))))) + (_%K116037116055%_ (lambda () '#f))) + (let ((_%try-match116034116058%_ (lambda () - (if (##null? _%g115758115768%_) - (_%K115763115781%_) - (_%else115761115776%_))))) - (if (##pair? _%g115758115768%_) - (let ((_%tl115766115798%_ (##cdr _%g115758115768%_)) - (_%hd115765115796%_ (##car _%g115758115768%_))) - (let ((_%hd115801%_ _%hd115765115796%_) - (_%rest115803%_ _%tl115766115798%_)) - (_%K115764115793%_ _%rest115803%_ _%hd115801%_))) - (_%try-match115760115784%_)))))))) + (if (##null? _%g116032116042%_) + (_%K116037116055%_) + (_%else116035116050%_))))) + (if (##pair? _%g116032116042%_) + (let ((_%tl116040116072%_ (##cdr _%g116032116042%_)) + (_%hd116039116070%_ (##car _%g116032116042%_))) + (let ((_%hd116075%_ _%hd116039116070%_) + (_%rest116077%_ _%tl116040116072%_)) + (_%K116038116067%_ _%rest116077%_ _%hd116075%_))) + (_%try-match116034116058%_)))))))) (define gx#stx-foldl - (lambda (_%f115700%_ _%iv115701%_ _%stx115702%_) - (if (procedure? _%f115700%_) + (lambda (_%f115974%_ _%iv115975%_ _%stx115976%_) + (if (procedure? _%f115974%_) '#!void - (error '"expected procedure" _%f115700%_)) - (let _%lp115704%_ ((_%r115706%_ _%iv115701%_) - (_%rest115707%_ _%stx115702%_)) - (let* ((_%g115708115718%_ (gx#syntax-e _%rest115707%_)) - (_%else115711115726%_ - (lambda () (_%f115700%_ _%rest115707%_ _%r115706%_)))) - (let ((_%K115714115740%_ - (lambda (_%rest115737%_ _%hd115738%_) - (_%lp115704%_ - (_%f115700%_ _%hd115738%_ _%r115706%_) - _%rest115737%_))) - (_%K115713115731%_ (lambda () _%r115706%_))) - (let ((_%try-match115710115734%_ + (error '"expected procedure" _%f115974%_)) + (let _%lp115978%_ ((_%r115980%_ _%iv115975%_) + (_%rest115981%_ _%stx115976%_)) + (let* ((_%g115982115992%_ (gx#syntax-e _%rest115981%_)) + (_%else115985116000%_ + (lambda () (_%f115974%_ _%rest115981%_ _%r115980%_)))) + (let ((_%K115988116014%_ + (lambda (_%rest116011%_ _%hd116012%_) + (_%lp115978%_ + (_%f115974%_ _%hd116012%_ _%r115980%_) + _%rest116011%_))) + (_%K115987116005%_ (lambda () _%r115980%_))) + (let ((_%try-match115984116008%_ (lambda () - (if (##null? _%g115708115718%_) - (_%K115713115731%_) - (_%else115711115726%_))))) - (if (##pair? _%g115708115718%_) - (let ((_%tl115716115745%_ (##cdr _%g115708115718%_)) - (_%hd115715115743%_ (##car _%g115708115718%_))) - (let ((_%hd115748%_ _%hd115715115743%_) - (_%rest115750%_ _%tl115716115745%_)) - (_%K115714115740%_ _%rest115750%_ _%hd115748%_))) - (_%try-match115710115734%_)))))))) + (if (##null? _%g115982115992%_) + (_%K115987116005%_) + (_%else115985116000%_))))) + (if (##pair? _%g115982115992%_) + (let ((_%tl115990116019%_ (##cdr _%g115982115992%_)) + (_%hd115989116017%_ (##car _%g115982115992%_))) + (let ((_%hd116022%_ _%hd115989116017%_) + (_%rest116024%_ _%tl115990116019%_)) + (_%K115988116014%_ _%rest116024%_ _%hd116022%_))) + (_%try-match115984116008%_)))))))) (define gx#stx-foldr - (lambda (_%f115649%_ _%iv115650%_ _%stx115651%_) - (if (procedure? _%f115649%_) + (lambda (_%f115923%_ _%iv115924%_ _%stx115925%_) + (if (procedure? _%f115923%_) '#!void - (error '"expected procedure" _%f115649%_)) - (let _%recur115653%_ ((_%rest115655%_ _%stx115651%_)) - (let* ((_%g115656115666%_ (gx#syntax-e _%rest115655%_)) - (_%else115659115674%_ - (lambda () (_%f115649%_ _%rest115655%_ _%iv115650%_)))) - (let ((_%K115662115688%_ - (lambda (_%rest115685%_ _%hd115686%_) - (_%f115649%_ - _%hd115686%_ - (_%recur115653%_ _%rest115685%_)))) - (_%K115661115679%_ (lambda () _%iv115650%_))) - (let ((_%try-match115658115682%_ + (error '"expected procedure" _%f115923%_)) + (let _%recur115927%_ ((_%rest115929%_ _%stx115925%_)) + (let* ((_%g115930115940%_ (gx#syntax-e _%rest115929%_)) + (_%else115933115948%_ + (lambda () (_%f115923%_ _%rest115929%_ _%iv115924%_)))) + (let ((_%K115936115962%_ + (lambda (_%rest115959%_ _%hd115960%_) + (_%f115923%_ + _%hd115960%_ + (_%recur115927%_ _%rest115959%_)))) + (_%K115935115953%_ (lambda () _%iv115924%_))) + (let ((_%try-match115932115956%_ (lambda () - (if (##null? _%g115656115666%_) - (_%K115661115679%_) - (_%else115659115674%_))))) - (if (##pair? _%g115656115666%_) - (let ((_%tl115664115693%_ (##cdr _%g115656115666%_)) - (_%hd115663115691%_ (##car _%g115656115666%_))) - (let ((_%hd115696%_ _%hd115663115691%_) - (_%rest115698%_ _%tl115664115693%_)) - (_%K115662115688%_ _%rest115698%_ _%hd115696%_))) - (_%try-match115658115682%_)))))))) + (if (##null? _%g115930115940%_) + (_%K115935115953%_) + (_%else115933115948%_))))) + (if (##pair? _%g115930115940%_) + (let ((_%tl115938115967%_ (##cdr _%g115930115940%_)) + (_%hd115937115965%_ (##car _%g115930115940%_))) + (let ((_%hd115970%_ _%hd115937115965%_) + (_%rest115972%_ _%tl115938115967%_)) + (_%K115936115962%_ _%rest115972%_ _%hd115970%_))) + (_%try-match115932115956%_)))))))) (define gx#stx-reverse - (lambda (_%stx115647%_) (gx#stx-foldl cons '() _%stx115647%_))) + (lambda (_%stx115921%_) (gx#stx-foldl cons '() _%stx115921%_))) (define gx#stx-last - (lambda (_%stx115608%_) - (let _%lp115610%_ ((_%rest115612%_ _%stx115608%_)) - (let* ((_%g115613115621%_ (gx#syntax-e _%rest115612%_)) - (_%else115615115629%_ (lambda () _%rest115612%_)) - (_%K115617115635%_ - (lambda (_%rest115632%_ _%hd115633%_) - (if (gx#stx-null? _%rest115632%_) - _%hd115633%_ - (_%lp115610%_ _%rest115632%_))))) - (if (##pair? _%g115613115621%_) - (let ((_%hd115618115638%_ (##car _%g115613115621%_)) - (_%tl115619115640%_ (##cdr _%g115613115621%_))) - (let* ((_%hd115643%_ _%hd115618115638%_) - (_%rest115645%_ _%tl115619115640%_)) - (_%K115617115635%_ _%rest115645%_ _%hd115643%_))) - (_%else115615115629%_)))))) + (lambda (_%stx115882%_) + (let _%lp115884%_ ((_%rest115886%_ _%stx115882%_)) + (let* ((_%g115887115895%_ (gx#syntax-e _%rest115886%_)) + (_%else115889115903%_ (lambda () _%rest115886%_)) + (_%K115891115909%_ + (lambda (_%rest115906%_ _%hd115907%_) + (if (gx#stx-null? _%rest115906%_) + _%hd115907%_ + (_%lp115884%_ _%rest115906%_))))) + (if (##pair? _%g115887115895%_) + (let ((_%hd115892115912%_ (##car _%g115887115895%_)) + (_%tl115893115914%_ (##cdr _%g115887115895%_))) + (let* ((_%hd115917%_ _%hd115892115912%_) + (_%rest115919%_ _%tl115893115914%_)) + (_%K115891115909%_ _%rest115919%_ _%hd115917%_))) + (_%else115889115903%_)))))) (define gx#stx-last-pair - (lambda (_%stx115579%_) - (let _%lp115581%_ ((_%hd115583%_ _%stx115579%_)) - (let* ((_%g115584115591%_ (gx#syntax-e _%hd115583%_)) - (_%E115586115595%_ + (lambda (_%stx115853%_) + (let _%lp115855%_ ((_%hd115857%_ _%stx115853%_)) + (let* ((_%g115858115865%_ (gx#syntax-e _%hd115857%_)) + (_%E115860115869%_ (lambda () (error '"No clause matching" - _%g115584115591%_ + _%g115858115865%_ '([_ . rest])) '#!void)) - (_%K115587115600%_ - (lambda (_%rest115598%_) - (if (gx#stx-pair? _%rest115598%_) - (_%lp115581%_ _%rest115598%_) - _%hd115583%_)))) - (if (##pair? _%g115584115591%_) - (let* ((_%tl115589115603%_ (##cdr _%g115584115591%_)) - (_%rest115606%_ _%tl115589115603%_)) - (_%K115587115600%_ _%rest115606%_)) - (_%E115586115595%_)))))) + (_%K115861115874%_ + (lambda (_%rest115872%_) + (if (gx#stx-pair? _%rest115872%_) + (_%lp115855%_ _%rest115872%_) + _%hd115857%_)))) + (if (##pair? _%g115858115865%_) + (let* ((_%tl115863115877%_ (##cdr _%g115858115865%_)) + (_%rest115880%_ _%tl115863115877%_)) + (_%K115861115874%_ _%rest115880%_)) + (_%E115860115869%_)))))) (define gx#stx-list-tail - (lambda (_%stx115548%_ _%k115549%_) - (let _%lp115551%_ ((_%rest115553%_ _%stx115548%_) - (_%k115554%_ _%k115549%_)) - (if (fxpositive? _%k115554%_) - (let* ((_%g115555115562%_ (gx#syntax-e _%rest115553%_)) - (_%E115557115566%_ + (lambda (_%stx115822%_ _%k115823%_) + (let _%lp115825%_ ((_%rest115827%_ _%stx115822%_) + (_%k115828%_ _%k115823%_)) + (if (fxpositive? _%k115828%_) + (let* ((_%g115829115836%_ (gx#syntax-e _%rest115827%_)) + (_%E115831115840%_ (lambda () (error '"No clause matching" - _%g115555115562%_ + _%g115829115836%_ '([_ . rest])) '#!void)) - (_%K115558115571%_ - (lambda (_%rest115569%_) - (_%lp115551%_ _%rest115569%_ (##fx- _%k115554%_ '1))))) - (if (##pair? _%g115555115562%_) - (let* ((_%tl115560115574%_ (##cdr _%g115555115562%_)) - (_%rest115577%_ _%tl115560115574%_)) - (_%K115558115571%_ _%rest115577%_)) - (_%E115557115566%_))) - _%rest115553%_)))) + (_%K115832115845%_ + (lambda (_%rest115843%_) + (_%lp115825%_ _%rest115843%_ (##fx- _%k115828%_ '1))))) + (if (##pair? _%g115829115836%_) + (let* ((_%tl115834115848%_ (##cdr _%g115829115836%_)) + (_%rest115851%_ _%tl115834115848%_)) + (_%K115832115845%_ _%rest115851%_)) + (_%E115831115840%_))) + _%rest115827%_)))) (define gx#stx-list-ref - (lambda (_%stx115545%_ _%k115546%_) - (gx#stx-car (gx#stx-list-tail _%stx115545%_ _%k115546%_)))) + (lambda (_%stx115819%_ _%k115820%_) + (gx#stx-car (gx#stx-list-tail _%stx115819%_ _%k115820%_)))) (define gx#stx-plist?__% - (lambda (_%stx115457%_ _%key?115458%_) - (if (procedure? _%key?115458%_) + (lambda (_%stx115731%_ _%key?115732%_) + (if (procedure? _%key?115732%_) '#!void - (error '"expected procedure" _%key?115458%_)) - (let _%lp115460%_ ((_%rest115462%_ _%stx115457%_)) - (let* ((_%g115463115473%_ (gx#stx-e _%rest115462%_)) - (_%else115466115481%_ (lambda () '#f))) - (let ((_%K115469115523%_ - (lambda (_%rest115492%_ _%hd115493%_) - (if (_%key?115458%_ _%hd115493%_) - (let* ((_%g115494115502%_ (gx#stx-e _%rest115492%_)) - (_%else115496115510%_ (lambda () '#f)) - (_%K115498115515%_ - (lambda (_%rest115513%_) - (_%lp115460%_ _%rest115513%_)))) - (if (##pair? _%g115494115502%_) - (let* ((_%tl115500115518%_ - (##cdr _%g115494115502%_)) - (_%rest115521%_ _%tl115500115518%_)) - (_%lp115460%_ _%rest115521%_)) - (_%else115496115510%_))) + (error '"expected procedure" _%key?115732%_)) + (let _%lp115734%_ ((_%rest115736%_ _%stx115731%_)) + (let* ((_%g115737115747%_ (gx#stx-e _%rest115736%_)) + (_%else115740115755%_ (lambda () '#f))) + (let ((_%K115743115797%_ + (lambda (_%rest115766%_ _%hd115767%_) + (if (_%key?115732%_ _%hd115767%_) + (let* ((_%g115768115776%_ (gx#stx-e _%rest115766%_)) + (_%else115770115784%_ (lambda () '#f)) + (_%K115772115789%_ + (lambda (_%rest115787%_) + (_%lp115734%_ _%rest115787%_)))) + (if (##pair? _%g115768115776%_) + (let* ((_%tl115774115792%_ + (##cdr _%g115768115776%_)) + (_%rest115795%_ _%tl115774115792%_)) + (_%lp115734%_ _%rest115795%_)) + (_%else115770115784%_))) '#f))) - (_%K115468115486%_ (lambda () '#t))) - (let ((_%try-match115465115489%_ + (_%K115742115760%_ (lambda () '#t))) + (let ((_%try-match115739115763%_ (lambda () - (if (##null? _%g115463115473%_) - (_%K115468115486%_) - (_%else115466115481%_))))) - (if (##pair? _%g115463115473%_) - (let ((_%tl115471115528%_ (##cdr _%g115463115473%_)) - (_%hd115470115526%_ (##car _%g115463115473%_))) - (let ((_%hd115531%_ _%hd115470115526%_) - (_%rest115533%_ _%tl115471115528%_)) - (_%K115469115523%_ _%rest115533%_ _%hd115531%_))) - (_%try-match115465115489%_)))))))) + (if (##null? _%g115737115747%_) + (_%K115742115760%_) + (_%else115740115755%_))))) + (if (##pair? _%g115737115747%_) + (let ((_%tl115745115802%_ (##cdr _%g115737115747%_)) + (_%hd115744115800%_ (##car _%g115737115747%_))) + (let ((_%hd115805%_ _%hd115744115800%_) + (_%rest115807%_ _%tl115745115802%_)) + (_%K115743115797%_ _%rest115807%_ _%hd115805%_))) + (_%try-match115739115763%_)))))))) (define gx#stx-plist?__0 - (lambda (_%stx115538%_) - (let ((_%key?115540%_ gx#stx-keyword?)) - (gx#stx-plist?__% _%stx115538%_ _%key?115540%_)))) + (lambda (_%stx115812%_) + (let ((_%key?115814%_ gx#stx-keyword?)) + (gx#stx-plist?__% _%stx115812%_ _%key?115814%_)))) (define gx#stx-plist? - (lambda _g116694_ - (let ((_g116693_ (##length _g116694_))) - (cond ((##fx= _g116693_ 1) (apply gx#stx-plist?__0 _g116694_)) - ((##fx= _g116693_ 2) (apply gx#stx-plist?__% _g116694_)) + (lambda _g116968_ + (let ((_g116967_ (##length _g116968_))) + (cond ((##fx= _g116967_ 1) (apply gx#stx-plist?__0 _g116968_)) + ((##fx= _g116967_ 2) (apply gx#stx-plist?__% _g116968_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-plist? - _g116694_)))))) + _g116968_)))))) (define gx#stx-getq__% - (lambda (_%key115375%_ _%stx115376%_ _%key=?115377%_) - (if (procedure? _%key=?115377%_) + (lambda (_%key115649%_ _%stx115650%_ _%key=?115651%_) + (if (procedure? _%key=?115651%_) '#!void - (error '"expected procedure" _%key=?115377%_)) - (let _%lp115379%_ ((_%rest115381%_ _%stx115376%_)) - (let* ((_%g115382115390%_ (gx#syntax-e _%rest115381%_)) - (_%else115384115398%_ (lambda () '#f)) - (_%K115386115432%_ - (lambda (_%rest115401%_ _%hd115402%_) - (let* ((_%g115403115410%_ (gx#syntax-e _%rest115401%_)) - (_%E115405115414%_ + (error '"expected procedure" _%key=?115651%_)) + (let _%lp115653%_ ((_%rest115655%_ _%stx115650%_)) + (let* ((_%g115656115664%_ (gx#syntax-e _%rest115655%_)) + (_%else115658115672%_ (lambda () '#f)) + (_%K115660115706%_ + (lambda (_%rest115675%_ _%hd115676%_) + (let* ((_%g115677115684%_ (gx#syntax-e _%rest115675%_)) + (_%E115679115688%_ (lambda () (error '"No clause matching" - _%g115403115410%_ + _%g115677115684%_ '([val . rest])) '#!void)) - (_%K115406115420%_ - (lambda (_%rest115417%_ _%val115418%_) - (if (_%key=?115377%_ _%hd115402%_ _%key115375%_) - _%val115418%_ - (_%lp115379%_ _%rest115417%_))))) - (if (##pair? _%g115403115410%_) - (let ((_%hd115407115423%_ (##car _%g115403115410%_)) - (_%tl115408115425%_ (##cdr _%g115403115410%_))) - (let* ((_%val115428%_ _%hd115407115423%_) - (_%rest115430%_ _%tl115408115425%_)) - (_%K115406115420%_ - _%rest115430%_ - _%val115428%_))) - (_%E115405115414%_)))))) - (if (##pair? _%g115382115390%_) - (let ((_%hd115387115435%_ (##car _%g115382115390%_)) - (_%tl115388115437%_ (##cdr _%g115382115390%_))) - (let* ((_%hd115440%_ _%hd115387115435%_) - (_%rest115442%_ _%tl115388115437%_)) - (_%K115386115432%_ _%rest115442%_ _%hd115440%_))) - (_%else115384115398%_)))))) + (_%K115680115694%_ + (lambda (_%rest115691%_ _%val115692%_) + (if (_%key=?115651%_ _%hd115676%_ _%key115649%_) + _%val115692%_ + (_%lp115653%_ _%rest115691%_))))) + (if (##pair? _%g115677115684%_) + (let ((_%hd115681115697%_ (##car _%g115677115684%_)) + (_%tl115682115699%_ (##cdr _%g115677115684%_))) + (let* ((_%val115702%_ _%hd115681115697%_) + (_%rest115704%_ _%tl115682115699%_)) + (_%K115680115694%_ + _%rest115704%_ + _%val115702%_))) + (_%E115679115688%_)))))) + (if (##pair? _%g115656115664%_) + (let ((_%hd115661115709%_ (##car _%g115656115664%_)) + (_%tl115662115711%_ (##cdr _%g115656115664%_))) + (let* ((_%hd115714%_ _%hd115661115709%_) + (_%rest115716%_ _%tl115662115711%_)) + (_%K115660115706%_ _%rest115716%_ _%hd115714%_))) + (_%else115658115672%_)))))) (define gx#stx-getq__0 - (lambda (_%key115447%_ _%stx115448%_) - (let ((_%key=?115450%_ gx#stx-eq?)) - (gx#stx-getq__% _%key115447%_ _%stx115448%_ _%key=?115450%_)))) + (lambda (_%key115721%_ _%stx115722%_) + (let ((_%key=?115724%_ gx#stx-eq?)) + (gx#stx-getq__% _%key115721%_ _%stx115722%_ _%key=?115724%_)))) (define gx#stx-getq - (lambda _g116696_ - (let ((_g116695_ (##length _g116696_))) - (cond ((##fx= _g116695_ 2) (apply gx#stx-getq__0 _g116696_)) - ((##fx= _g116695_ 3) (apply gx#stx-getq__% _g116696_)) + (lambda _g116970_ + (let ((_g116969_ (##length _g116970_))) + (cond ((##fx= _g116969_ 2) (apply gx#stx-getq__0 _g116970_)) + ((##fx= _g116969_ 3) (apply gx#stx-getq__% _g116970_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-getq - _g116696_)))))))) + _g116970_)))))))) diff --git a/src/bootstrap/gerbil/expander/stx~1.scm b/src/bootstrap/gerbil/expander/stx~1.scm index bf93afaf8..c82efe87e 100644 --- a/src/bootstrap/gerbil/expander/stx~1.scm +++ b/src/bootstrap/gerbil/expander/stx~1.scm @@ -1,344 +1,344 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gx[1]#_g116698_| + (define |gx[1]#_g116972_| (##structure gx#syntax-quote::t 'AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g116700_| + (define |gx[1]#_g116974_| (##structure gx#syntax-quote::t 'identifier-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g116702_| + (define |gx[1]#_g116976_| (##structure gx#syntax-quote::t 'make-identifier-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g116704_| + (define |gx[1]#_g116978_| (##structure gx#syntax-quote::t 'identifier-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g116706_| + (define |gx[1]#_g116980_| (##structure gx#syntax-quote::t 'identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g116707_| + (define |gx[1]#_g116981_| (##structure gx#syntax-quote::t 'identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g116708_| + (define |gx[1]#_g116982_| (##structure gx#syntax-quote::t 'identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g116710_| + (define |gx[1]#_g116984_| (##structure gx#syntax-quote::t 'identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116711_| + (define |gx[1]#_g116985_| (##structure gx#syntax-quote::t 'identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116712_| + (define |gx[1]#_g116986_| (##structure gx#syntax-quote::t 'identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116714_| + (define |gx[1]#_g116988_| (##structure gx#syntax-quote::t '&identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g116715_| + (define |gx[1]#_g116989_| (##structure gx#syntax-quote::t '&identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g116716_| + (define |gx[1]#_g116990_| (##structure gx#syntax-quote::t '&identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g116718_| + (define |gx[1]#_g116992_| (##structure gx#syntax-quote::t '&identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116719_| + (define |gx[1]#_g116993_| (##structure gx#syntax-quote::t '&identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116720_| + (define |gx[1]#_g116994_| (##structure gx#syntax-quote::t '&identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116723_| + (define |gx[1]#_g116997_| (##structure gx#syntax-quote::t 'syntax-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g116725_| + (define |gx[1]#_g116999_| (##structure gx#syntax-quote::t 'make-syntax-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g116727_| + (define |gx[1]#_g117001_| (##structure gx#syntax-quote::t 'syntax-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g116729_| + (define |gx[1]#_g117003_| (##structure gx#syntax-quote::t 'syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g116730_| + (define |gx[1]#_g117004_| (##structure gx#syntax-quote::t 'syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g116731_| + (define |gx[1]#_g117005_| (##structure gx#syntax-quote::t 'syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g116733_| + (define |gx[1]#_g117007_| (##structure gx#syntax-quote::t 'syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116734_| + (define |gx[1]#_g117008_| (##structure gx#syntax-quote::t 'syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116735_| + (define |gx[1]#_g117009_| (##structure gx#syntax-quote::t 'syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116737_| + (define |gx[1]#_g117011_| (##structure gx#syntax-quote::t '&syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g116738_| + (define |gx[1]#_g117012_| (##structure gx#syntax-quote::t '&syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g116739_| + (define |gx[1]#_g117013_| (##structure gx#syntax-quote::t '&syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g116741_| + (define |gx[1]#_g117015_| (##structure gx#syntax-quote::t '&syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116742_| + (define |gx[1]#_g117016_| (##structure gx#syntax-quote::t '&syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116743_| + (define |gx[1]#_g117017_| (##structure gx#syntax-quote::t '&syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116746_| + (define |gx[1]#_g117020_| (##structure gx#syntax-quote::t 'syntax-quote::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g116748_| + (define |gx[1]#_g117022_| (##structure gx#syntax-quote::t 'make-syntax-quote #f (gx#current-expander-context) '())) - (define |gx[1]#_g116750_| + (define |gx[1]#_g117024_| (##structure gx#syntax-quote::t 'syntax-quote? #f (gx#current-expander-context) '())) - (define |gx[1]#_g116752_| + (define |gx[1]#_g117026_| (##structure gx#syntax-quote::t 'syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g116753_| + (define |gx[1]#_g117027_| (##structure gx#syntax-quote::t 'syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g116754_| + (define |gx[1]#_g117028_| (##structure gx#syntax-quote::t 'syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g116755_| + (define |gx[1]#_g117029_| (##structure gx#syntax-quote::t 'syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g116757_| + (define |gx[1]#_g117031_| (##structure gx#syntax-quote::t 'syntax-quote-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116758_| + (define |gx[1]#_g117032_| (##structure gx#syntax-quote::t 'syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116759_| + (define |gx[1]#_g117033_| (##structure gx#syntax-quote::t 'syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116760_| + (define |gx[1]#_g117034_| (##structure gx#syntax-quote::t 'syntax-quote-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116762_| + (define |gx[1]#_g117036_| (##structure gx#syntax-quote::t '&syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g116763_| + (define |gx[1]#_g117037_| (##structure gx#syntax-quote::t '&syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g116764_| + (define |gx[1]#_g117038_| (##structure gx#syntax-quote::t '&syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g116765_| + (define |gx[1]#_g117039_| (##structure gx#syntax-quote::t '&syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g116767_| + (define |gx[1]#_g117041_| (##structure gx#syntax-quote::t '&syntax-quote-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116768_| + (define |gx[1]#_g117042_| (##structure gx#syntax-quote::t '&syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116769_| + (define |gx[1]#_g117043_| (##structure gx#syntax-quote::t '&syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116770_| + (define |gx[1]#_g117044_| (##structure gx#syntax-quote::t '&syntax-quote-source-set! @@ -347,7 +347,7 @@ '())) (begin (define |gx[:0:]#identifier-wrap| - (let ((__obj116680 + (let ((__obj116954 (let () (declare (not safe)) (##structure @@ -376,85 +376,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj116680 + __obj116954 'gx#identifier-wrap::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116680 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj116954 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116680 '(marks) '4 '#f '#f)) + (##unchecked-structure-set! __obj116954 '(marks) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj116680 + __obj116954 '(e source marks) '6 '#f '#f)) - (let ((__tmp116697 (cons |gx[1]#_g116698_| '()))) + (let ((__tmp116971 (cons |gx[1]#_g116972_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj116680 __tmp116697 '3 '#f '#f)) + (##unchecked-structure-set! __obj116954 __tmp116971 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116680 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj116954 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116680 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj116954 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116680 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj116954 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116680 '#f '11 '#f '#f)) - (let ((__tmp116699 |gx[1]#_g116700_|)) + (##unchecked-structure-set! __obj116954 '#f '11 '#f '#f)) + (let ((__tmp116973 |gx[1]#_g116974_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116680 __tmp116699 '12 '#f '#f)) - (let ((__tmp116701 |gx[1]#_g116702_|)) + (##unchecked-structure-set! __obj116954 __tmp116973 '12 '#f '#f)) + (let ((__tmp116975 |gx[1]#_g116976_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116680 __tmp116701 '13 '#f '#f)) - (let ((__tmp116703 |gx[1]#_g116704_|)) + (##unchecked-structure-set! __obj116954 __tmp116975 '13 '#f '#f)) + (let ((__tmp116977 |gx[1]#_g116978_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116680 __tmp116703 '14 '#f '#f)) - (let ((__tmp116705 - (cons (cons 'marks |gx[1]#_g116706_|) - (cons (cons 'e |gx[1]#_g116707_|) - (cons (cons 'source |gx[1]#_g116708_|) '()))))) + (##unchecked-structure-set! __obj116954 __tmp116977 '14 '#f '#f)) + (let ((__tmp116979 + (cons (cons 'marks |gx[1]#_g116980_|) + (cons (cons 'e |gx[1]#_g116981_|) + (cons (cons 'source |gx[1]#_g116982_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj116680 __tmp116705 '15 '#f '#f)) - (let ((__tmp116709 - (cons (cons 'marks |gx[1]#_g116710_|) - (cons (cons 'e |gx[1]#_g116711_|) - (cons (cons 'source |gx[1]#_g116712_|) '()))))) + (##unchecked-structure-set! __obj116954 __tmp116979 '15 '#f '#f)) + (let ((__tmp116983 + (cons (cons 'marks |gx[1]#_g116984_|) + (cons (cons 'e |gx[1]#_g116985_|) + (cons (cons 'source |gx[1]#_g116986_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj116680 __tmp116709 '16 '#f '#f)) - (let ((__tmp116713 - (cons (cons 'marks |gx[1]#_g116714_|) - (cons (cons 'e |gx[1]#_g116715_|) - (cons (cons 'source |gx[1]#_g116716_|) '()))))) + (##unchecked-structure-set! __obj116954 __tmp116983 '16 '#f '#f)) + (let ((__tmp116987 + (cons (cons 'marks |gx[1]#_g116988_|) + (cons (cons 'e |gx[1]#_g116989_|) + (cons (cons 'source |gx[1]#_g116990_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj116680 __tmp116713 '17 '#f '#f)) - (let ((__tmp116717 - (cons (cons 'marks |gx[1]#_g116718_|) - (cons (cons 'e |gx[1]#_g116719_|) - (cons (cons 'source |gx[1]#_g116720_|) '()))))) + (##unchecked-structure-set! __obj116954 __tmp116987 '17 '#f '#f)) + (let ((__tmp116991 + (cons (cons 'marks |gx[1]#_g116992_|) + (cons (cons 'e |gx[1]#_g116993_|) + (cons (cons 'source |gx[1]#_g116994_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj116680 __tmp116717 '18 '#f '#f)) + (##unchecked-structure-set! __obj116954 __tmp116991 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116680 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj116954 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116680 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj116954 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116680 '() '20 '#f '#f)) - __obj116680)) + (##unchecked-structure-set! __obj116954 '() '20 '#f '#f)) + __obj116954)) (define |gx[:0:]#syntax-wrap| - (let ((__obj116681 + (let ((__obj116955 (let () (declare (not safe)) (##structure @@ -483,80 +483,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj116681 + __obj116955 'gx#syntax-wrap::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116681 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj116955 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116681 '(mark) '4 '#f '#f)) + (##unchecked-structure-set! __obj116955 '(mark) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116681 '(e source mark) '6 '#f '#f)) - (let ((__tmp116721 (cons |gx[1]#_g116698_| '()))) + (##unchecked-structure-set! __obj116955 '(e source mark) '6 '#f '#f)) + (let ((__tmp116995 (cons |gx[1]#_g116972_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj116681 __tmp116721 '3 '#f '#f)) + (##unchecked-structure-set! __obj116955 __tmp116995 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116681 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj116955 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116681 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj116955 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116681 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj116955 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116681 '#f '11 '#f '#f)) - (let ((__tmp116722 |gx[1]#_g116723_|)) + (##unchecked-structure-set! __obj116955 '#f '11 '#f '#f)) + (let ((__tmp116996 |gx[1]#_g116997_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116681 __tmp116722 '12 '#f '#f)) - (let ((__tmp116724 |gx[1]#_g116725_|)) + (##unchecked-structure-set! __obj116955 __tmp116996 '12 '#f '#f)) + (let ((__tmp116998 |gx[1]#_g116999_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116681 __tmp116724 '13 '#f '#f)) - (let ((__tmp116726 |gx[1]#_g116727_|)) + (##unchecked-structure-set! __obj116955 __tmp116998 '13 '#f '#f)) + (let ((__tmp117000 |gx[1]#_g117001_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116681 __tmp116726 '14 '#f '#f)) - (let ((__tmp116728 - (cons (cons 'mark |gx[1]#_g116729_|) - (cons (cons 'e |gx[1]#_g116730_|) - (cons (cons 'source |gx[1]#_g116731_|) '()))))) + (##unchecked-structure-set! __obj116955 __tmp117000 '14 '#f '#f)) + (let ((__tmp117002 + (cons (cons 'mark |gx[1]#_g117003_|) + (cons (cons 'e |gx[1]#_g117004_|) + (cons (cons 'source |gx[1]#_g117005_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj116681 __tmp116728 '15 '#f '#f)) - (let ((__tmp116732 - (cons (cons 'mark |gx[1]#_g116733_|) - (cons (cons 'e |gx[1]#_g116734_|) - (cons (cons 'source |gx[1]#_g116735_|) '()))))) + (##unchecked-structure-set! __obj116955 __tmp117002 '15 '#f '#f)) + (let ((__tmp117006 + (cons (cons 'mark |gx[1]#_g117007_|) + (cons (cons 'e |gx[1]#_g117008_|) + (cons (cons 'source |gx[1]#_g117009_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj116681 __tmp116732 '16 '#f '#f)) - (let ((__tmp116736 - (cons (cons 'mark |gx[1]#_g116737_|) - (cons (cons 'e |gx[1]#_g116738_|) - (cons (cons 'source |gx[1]#_g116739_|) '()))))) + (##unchecked-structure-set! __obj116955 __tmp117006 '16 '#f '#f)) + (let ((__tmp117010 + (cons (cons 'mark |gx[1]#_g117011_|) + (cons (cons 'e |gx[1]#_g117012_|) + (cons (cons 'source |gx[1]#_g117013_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj116681 __tmp116736 '17 '#f '#f)) - (let ((__tmp116740 - (cons (cons 'mark |gx[1]#_g116741_|) - (cons (cons 'e |gx[1]#_g116742_|) - (cons (cons 'source |gx[1]#_g116743_|) '()))))) + (##unchecked-structure-set! __obj116955 __tmp117010 '17 '#f '#f)) + (let ((__tmp117014 + (cons (cons 'mark |gx[1]#_g117015_|) + (cons (cons 'e |gx[1]#_g117016_|) + (cons (cons 'source |gx[1]#_g117017_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj116681 __tmp116740 '18 '#f '#f)) + (##unchecked-structure-set! __obj116955 __tmp117014 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116681 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj116955 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116681 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj116955 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116681 '() '20 '#f '#f)) - __obj116681)) + (##unchecked-structure-set! __obj116955 '() '20 '#f '#f)) + __obj116955)) (define |gx[:0:]#syntax-quote| - (let ((__obj116682 + (let ((__obj116956 (let () (declare (not safe)) (##structure @@ -585,88 +585,88 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj116682 + __obj116956 'gx#syntax-quote::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116682 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj116956 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116682 '(context marks) '4 '#f '#f)) + (##unchecked-structure-set! __obj116956 '(context marks) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj116682 + __obj116956 '(e source context marks) '6 '#f '#f)) - (let ((__tmp116744 (cons |gx[1]#_g116698_| '()))) + (let ((__tmp117018 (cons |gx[1]#_g116972_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj116682 __tmp116744 '3 '#f '#f)) + (##unchecked-structure-set! __obj116956 __tmp117018 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116682 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj116956 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116682 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj116956 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116682 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj116956 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116682 '#f '11 '#f '#f)) - (let ((__tmp116745 |gx[1]#_g116746_|)) + (##unchecked-structure-set! __obj116956 '#f '11 '#f '#f)) + (let ((__tmp117019 |gx[1]#_g117020_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116682 __tmp116745 '12 '#f '#f)) - (let ((__tmp116747 |gx[1]#_g116748_|)) + (##unchecked-structure-set! __obj116956 __tmp117019 '12 '#f '#f)) + (let ((__tmp117021 |gx[1]#_g117022_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116682 __tmp116747 '13 '#f '#f)) - (let ((__tmp116749 |gx[1]#_g116750_|)) + (##unchecked-structure-set! __obj116956 __tmp117021 '13 '#f '#f)) + (let ((__tmp117023 |gx[1]#_g117024_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116682 __tmp116749 '14 '#f '#f)) - (let ((__tmp116751 - (cons (cons 'context |gx[1]#_g116752_|) - (cons (cons 'marks |gx[1]#_g116753_|) - (cons (cons 'e |gx[1]#_g116754_|) - (cons (cons 'source |gx[1]#_g116755_|) + (##unchecked-structure-set! __obj116956 __tmp117023 '14 '#f '#f)) + (let ((__tmp117025 + (cons (cons 'context |gx[1]#_g117026_|) + (cons (cons 'marks |gx[1]#_g117027_|) + (cons (cons 'e |gx[1]#_g117028_|) + (cons (cons 'source |gx[1]#_g117029_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj116682 __tmp116751 '15 '#f '#f)) - (let ((__tmp116756 - (cons (cons 'context |gx[1]#_g116757_|) - (cons (cons 'marks |gx[1]#_g116758_|) - (cons (cons 'e |gx[1]#_g116759_|) - (cons (cons 'source |gx[1]#_g116760_|) + (##unchecked-structure-set! __obj116956 __tmp117025 '15 '#f '#f)) + (let ((__tmp117030 + (cons (cons 'context |gx[1]#_g117031_|) + (cons (cons 'marks |gx[1]#_g117032_|) + (cons (cons 'e |gx[1]#_g117033_|) + (cons (cons 'source |gx[1]#_g117034_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj116682 __tmp116756 '16 '#f '#f)) - (let ((__tmp116761 - (cons (cons 'context |gx[1]#_g116762_|) - (cons (cons 'marks |gx[1]#_g116763_|) - (cons (cons 'e |gx[1]#_g116764_|) - (cons (cons 'source |gx[1]#_g116765_|) + (##unchecked-structure-set! __obj116956 __tmp117030 '16 '#f '#f)) + (let ((__tmp117035 + (cons (cons 'context |gx[1]#_g117036_|) + (cons (cons 'marks |gx[1]#_g117037_|) + (cons (cons 'e |gx[1]#_g117038_|) + (cons (cons 'source |gx[1]#_g117039_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj116682 __tmp116761 '17 '#f '#f)) - (let ((__tmp116766 - (cons (cons 'context |gx[1]#_g116767_|) - (cons (cons 'marks |gx[1]#_g116768_|) - (cons (cons 'e |gx[1]#_g116769_|) - (cons (cons 'source |gx[1]#_g116770_|) + (##unchecked-structure-set! __obj116956 __tmp117035 '17 '#f '#f)) + (let ((__tmp117040 + (cons (cons 'context |gx[1]#_g117041_|) + (cons (cons 'marks |gx[1]#_g117042_|) + (cons (cons 'e |gx[1]#_g117043_|) + (cons (cons 'source |gx[1]#_g117044_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj116682 __tmp116766 '18 '#f '#f)) + (##unchecked-structure-set! __obj116956 __tmp117040 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116682 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj116956 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116682 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj116956 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116682 '() '20 '#f '#f)) - __obj116682)))) + (##unchecked-structure-set! __obj116956 '() '20 '#f '#f)) + __obj116956)))) diff --git a/src/bootstrap/gerbil/expander/top~0.scm b/src/bootstrap/gerbil/expander/top~0.scm index 78b4d8d44..6e18aa953 100644 --- a/src/bootstrap/gerbil/expander/top~0.scm +++ b/src/bootstrap/gerbil/expander/top~0.scm @@ -1,397 +1,397 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/top::timestamp 1713044316) + (define gerbil/expander/top::timestamp 1713454411) (begin (declare (not safe)) (define gx#core-expand-begin% - (lambda (_%stx123733%_) - (letrec ((_%expand-special123735%_ - (lambda (_%hd123737%_ _%K123738%_ _%rest123739%_ _%r123740%_) - (_%K123738%_ - _%rest123739%_ - (cons (gx#core-expand-top _%hd123737%_) _%r123740%_))))) - (gx#core-expand-block__0 _%stx123733%_ _%expand-special123735%_)))) + (lambda (_%stx124007%_) + (letrec ((_%expand-special124009%_ + (lambda (_%hd124011%_ _%K124012%_ _%rest124013%_ _%r124014%_) + (_%K124012%_ + _%rest124013%_ + (cons (gx#core-expand-top _%hd124011%_) _%r124014%_))))) + (gx#core-expand-block__0 _%stx124007%_ _%expand-special124009%_)))) (define gx#core-expand-begin-syntax% - (lambda (_%stx123486%_) - (letrec ((_%expand-special123488%_ - (lambda (_%hd123608%_ _%K123609%_ _%rest123610%_ _%r123611%_) - (let* ((_%K123615%_ - (lambda (_%e123613%_) - (_%K123609%_ - _%rest123610%_ - (cons _%e123613%_ _%r123611%_)))) - (_%e123616123645%_ _%hd123608%_) - (_%E123640123649%_ + (lambda (_%stx123760%_) + (letrec ((_%expand-special123762%_ + (lambda (_%hd123882%_ _%K123883%_ _%rest123884%_ _%r123885%_) + (let* ((_%K123889%_ + (lambda (_%e123887%_) + (_%K123883%_ + _%rest123884%_ + (cons _%e123887%_ _%r123885%_)))) + (_%e123890123919%_ _%hd123882%_) + (_%E123914123923%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123616123645%_))) - (_%E123636123661%_ + _%e123890123919%_))) + (_%E123910123935%_ (lambda () - (if (gx#stx-pair? _%e123616123645%_) - (let ((_%e123641123653%_ - (gx#syntax-e _%e123616123645%_))) - (let ((_%hd123642123656%_ - (##car _%e123641123653%_)) - (_%tl123643123658%_ - (##cdr _%e123641123653%_))) + (if (gx#stx-pair? _%e123890123919%_) + (let ((_%e123915123927%_ + (gx#syntax-e _%e123890123919%_))) + (let ((_%hd123916123930%_ + (##car _%e123915123927%_)) + (_%tl123917123932%_ + (##cdr _%e123915123927%_))) (if (and (gx#identifier? - _%hd123642123656%_) + _%hd123916123930%_) (gx#core-identifier=? - _%hd123642123656%_ + _%hd123916123930%_ '%#define-runtime)) - (_%K123615%_ + (_%K123889%_ (gx#core-expand-define-runtime% - _%hd123608%_)) - (_%E123640123649%_)))) - (_%E123640123649%_)))) - (_%E123632123673%_ + _%hd123882%_)) + (_%E123914123923%_)))) + (_%E123914123923%_)))) + (_%E123906123947%_ (lambda () - (if (gx#stx-pair? _%e123616123645%_) - (let ((_%e123637123665%_ - (gx#syntax-e _%e123616123645%_))) - (let ((_%hd123638123668%_ - (##car _%e123637123665%_)) - (_%tl123639123670%_ - (##cdr _%e123637123665%_))) + (if (gx#stx-pair? _%e123890123919%_) + (let ((_%e123911123939%_ + (gx#syntax-e _%e123890123919%_))) + (let ((_%hd123912123942%_ + (##car _%e123911123939%_)) + (_%tl123913123944%_ + (##cdr _%e123911123939%_))) (if (and (gx#identifier? - _%hd123638123668%_) + _%hd123912123942%_) (gx#core-identifier=? - _%hd123638123668%_ + _%hd123912123942%_ '%#define-alias)) - (_%K123615%_ + (_%K123889%_ (gx#core-expand-define-alias% - _%hd123608%_)) - (_%E123636123661%_)))) - (_%E123636123661%_)))) - (_%E123622123685%_ + _%hd123882%_)) + (_%E123910123935%_)))) + (_%E123910123935%_)))) + (_%E123896123959%_ (lambda () - (if (gx#stx-pair? _%e123616123645%_) - (let ((_%e123633123677%_ - (gx#syntax-e _%e123616123645%_))) - (let ((_%hd123634123680%_ - (##car _%e123633123677%_)) - (_%tl123635123682%_ - (##cdr _%e123633123677%_))) + (if (gx#stx-pair? _%e123890123919%_) + (let ((_%e123907123951%_ + (gx#syntax-e _%e123890123919%_))) + (let ((_%hd123908123954%_ + (##car _%e123907123951%_)) + (_%tl123909123956%_ + (##cdr _%e123907123951%_))) (if (and (gx#identifier? - _%hd123634123680%_) + _%hd123908123954%_) (gx#core-identifier=? - _%hd123634123680%_ + _%hd123908123954%_ '%#define-syntax)) - (_%K123615%_ + (_%K123889%_ (gx#core-expand-define-syntax% - _%hd123608%_)) - (_%E123632123673%_)))) - (_%E123632123673%_)))) - (_%E123618123717%_ + _%hd123882%_)) + (_%E123906123947%_)))) + (_%E123906123947%_)))) + (_%E123892123991%_ (lambda () - (if (gx#stx-pair? _%e123616123645%_) - (let ((_%e123623123689%_ - (gx#syntax-e _%e123616123645%_))) - (let ((_%hd123624123692%_ - (##car _%e123623123689%_)) - (_%tl123625123694%_ - (##cdr _%e123623123689%_))) + (if (gx#stx-pair? _%e123890123919%_) + (let ((_%e123897123963%_ + (gx#syntax-e _%e123890123919%_))) + (let ((_%hd123898123966%_ + (##car _%e123897123963%_)) + (_%tl123899123968%_ + (##cdr _%e123897123963%_))) (if (and (gx#identifier? - _%hd123624123692%_) + _%hd123898123966%_) (gx#core-identifier=? - _%hd123624123692%_ + _%hd123898123966%_ '%#define-values)) - (if (gx#stx-pair? _%tl123625123694%_) - (let ((_%e123626123697%_ + (if (gx#stx-pair? _%tl123899123968%_) + (let ((_%e123900123971%_ (gx#syntax-e - _%tl123625123694%_))) - (let ((_%hd123627123700%_ - (##car _%e123626123697%_)) - (_%tl123628123702%_ - (##cdr _%e123626123697%_))) - (let ((_%hd-bind123705%_ - _%hd123627123700%_)) + _%tl123899123968%_))) + (let ((_%hd123901123974%_ + (##car _%e123900123971%_)) + (_%tl123902123976%_ + (##cdr _%e123900123971%_))) + (let ((_%hd-bind123979%_ + _%hd123901123974%_)) (if (gx#stx-pair? - _%tl123628123702%_) - (let ((_%e123629123707%_ + _%tl123902123976%_) + (let ((_%e123903123981%_ (gx#syntax-e - _%tl123628123702%_))) - (let ((_%hd123630123710%_ + _%tl123902123976%_))) + (let ((_%hd123904123984%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e123629123707%_)) - (_%tl123631123712%_ (##cdr _%e123629123707%_))) - (let ((_%expr123715%_ _%hd123630123710%_)) - (if (gx#stx-null? _%tl123631123712%_) - (if (gx#core-bind-values? _%hd-bind123705%_) + (##car _%e123903123981%_)) + (_%tl123905123986%_ (##cdr _%e123903123981%_))) + (let ((_%expr123989%_ _%hd123904123984%_)) + (if (gx#stx-null? _%tl123905123986%_) + (if (gx#core-bind-values? _%hd-bind123979%_) (begin - (gx#core-bind-values!__0 _%hd-bind123705%_) - (_%K123615%_ _%hd123608%_)) - (_%E123622123685%_)) - (_%E123622123685%_))))) - (_%E123622123685%_))))) + (gx#core-bind-values!__0 _%hd-bind123979%_) + (_%K123889%_ _%hd123882%_)) + (_%E123896123959%_)) + (_%E123896123959%_))))) + (_%E123896123959%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123622123685%_)) - (_%E123622123685%_)))) - (_%E123622123685%_)))) - (_%E123617123729%_ + (_%E123896123959%_)) + (_%E123896123959%_)))) + (_%E123896123959%_)))) + (_%E123891124003%_ (lambda () - (if (gx#stx-pair? _%e123616123645%_) - (let ((_%e123619123721%_ - (gx#syntax-e _%e123616123645%_))) - (let ((_%hd123620123724%_ - (##car _%e123619123721%_)) - (_%tl123621123726%_ - (##cdr _%e123619123721%_))) + (if (gx#stx-pair? _%e123890123919%_) + (let ((_%e123893123995%_ + (gx#syntax-e _%e123890123919%_))) + (let ((_%hd123894123998%_ + (##car _%e123893123995%_)) + (_%tl123895124000%_ + (##cdr _%e123893123995%_))) (if (and (gx#identifier? - _%hd123620123724%_) + _%hd123894123998%_) (gx#core-identifier=? - _%hd123620123724%_ + _%hd123894123998%_ '%#begin-syntax)) - (_%K123615%_ + (_%K123889%_ (gx#core-expand-begin-syntax% - _%hd123608%_)) - (_%E123618123717%_)))) - (_%E123618123717%_))))) - (_%E123617123729%_)))) - (_%eval-body123489%_ - (lambda (_%rbody123497%_) - (let _%lp123499%_ ((_%rest123501%_ _%rbody123497%_) - (_%body123502%_ '()) - (_%ebody123503%_ '())) - (let* ((_%rest123504123512%_ _%rest123501%_) - (_%else123506123520%_ + _%hd123882%_)) + (_%E123892123991%_)))) + (_%E123892123991%_))))) + (_%E123891124003%_)))) + (_%eval-body123763%_ + (lambda (_%rbody123771%_) + (let _%lp123773%_ ((_%rest123775%_ _%rbody123771%_) + (_%body123776%_ '()) + (_%ebody123777%_ '())) + (let* ((_%rest123778123786%_ _%rest123775%_) + (_%else123780123794%_ (lambda () - (values _%body123502%_ + (values _%body123776%_ (gx#eval-syntax* (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _%ebody123503%_) - (gx#stx-source _%stx123486%_)))))) - (_%K123508123596%_ - (lambda (_%rest123523%_ _%hd123524%_) - (let* ((_%e123525123542%_ _%hd123524%_) - (_%E123537123546%_ + _%ebody123777%_) + (gx#stx-source _%stx123760%_)))))) + (_%K123782123870%_ + (lambda (_%rest123797%_ _%hd123798%_) + (let* ((_%e123799123816%_ _%hd123798%_) + (_%E123811123820%_ (lambda () - (_%lp123499%_ - _%rest123523%_ - (cons _%hd123524%_ _%body123502%_) - (cons _%hd123524%_ - _%ebody123503%_)))) - (_%E123527123558%_ + (_%lp123773%_ + _%rest123797%_ + (cons _%hd123798%_ _%body123776%_) + (cons _%hd123798%_ + _%ebody123777%_)))) + (_%E123801123832%_ (lambda () - (if (gx#stx-pair? _%e123525123542%_) - (let ((_%e123538123550%_ + (if (gx#stx-pair? _%e123799123816%_) + (let ((_%e123812123824%_ (gx#syntax-e - _%e123525123542%_))) - (let ((_%hd123539123553%_ - (##car _%e123538123550%_)) - (_%tl123540123555%_ - (##cdr _%e123538123550%_))) + _%e123799123816%_))) + (let ((_%hd123813123827%_ + (##car _%e123812123824%_)) + (_%tl123814123829%_ + (##cdr _%e123812123824%_))) (if (and (gx#identifier? - _%hd123539123553%_) + _%hd123813123827%_) (gx#core-identifier=? - _%hd123539123553%_ + _%hd123813123827%_ '%#begin-syntax)) - (_%lp123499%_ - _%rest123523%_ - (cons _%hd123524%_ - _%body123502%_) - _%ebody123503%_) - (_%E123537123546%_)))) - (_%E123537123546%_)))) - (_%E123526123592%_ + (_%lp123773%_ + _%rest123797%_ + (cons _%hd123798%_ + _%body123776%_) + _%ebody123777%_) + (_%E123811123820%_)))) + (_%E123811123820%_)))) + (_%E123800123866%_ (lambda () - (if (gx#stx-pair? _%e123525123542%_) - (let ((_%e123528123562%_ + (if (gx#stx-pair? _%e123799123816%_) + (let ((_%e123802123836%_ (gx#syntax-e - _%e123525123542%_))) - (let ((_%hd123529123565%_ - (##car _%e123528123562%_)) - (_%tl123530123567%_ - (##cdr _%e123528123562%_))) + _%e123799123816%_))) + (let ((_%hd123803123839%_ + (##car _%e123802123836%_)) + (_%tl123804123841%_ + (##cdr _%e123802123836%_))) (if (and (gx#identifier? - _%hd123529123565%_) + _%hd123803123839%_) (gx#core-identifier=? - _%hd123529123565%_ + _%hd123803123839%_ '%#define-values)) (if (gx#stx-pair? - _%tl123530123567%_) - (let ((_%e123531123570%_ + _%tl123804123841%_) + (let ((_%e123805123844%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl123530123567%_))) - (let ((_%hd123532123573%_ (##car _%e123531123570%_)) - (_%tl123533123575%_ (##cdr _%e123531123570%_))) - (let ((_%hd-bind123578%_ _%hd123532123573%_)) - (if (gx#stx-pair? _%tl123533123575%_) - (let ((_%e123534123580%_ - (gx#syntax-e _%tl123533123575%_))) - (let ((_%hd123535123583%_ - (##car _%e123534123580%_)) - (_%tl123536123585%_ - (##cdr _%e123534123580%_))) - (let ((_%expr123588%_ _%hd123535123583%_)) - (if (gx#stx-null? _%tl123536123585%_) - (let ((_%ehd123590%_ + (gx#syntax-e _%tl123804123841%_))) + (let ((_%hd123806123847%_ (##car _%e123805123844%_)) + (_%tl123807123849%_ (##cdr _%e123805123844%_))) + (let ((_%hd-bind123852%_ _%hd123806123847%_)) + (if (gx#stx-pair? _%tl123807123849%_) + (let ((_%e123808123854%_ + (gx#syntax-e _%tl123807123849%_))) + (let ((_%hd123809123857%_ + (##car _%e123808123854%_)) + (_%tl123810123859%_ + (##cdr _%e123808123854%_))) + (let ((_%expr123862%_ _%hd123809123857%_)) + (if (gx#stx-null? _%tl123810123859%_) + (let ((_%ehd123864%_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values - _%hd-bind123578%_) + _%hd-bind123852%_) (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr123588%_) + _%expr123862%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%hd123524%_)))) - (_%lp123499%_ - _%rest123523%_ - (cons _%ehd123590%_ _%body123502%_) - (cons _%ehd123590%_ _%ebody123503%_))) - (_%E123527123558%_))))) - (_%E123527123558%_))))) - (_%E123527123558%_)) - (_%E123527123558%_)))) + (gx#stx-source _%hd123798%_)))) + (_%lp123773%_ + _%rest123797%_ + (cons _%ehd123864%_ _%body123776%_) + (cons _%ehd123864%_ _%ebody123777%_))) + (_%E123801123832%_))))) + (_%E123801123832%_))))) + (_%E123801123832%_)) + (_%E123801123832%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123527123558%_))))) - (_%E123526123592%_))))) - (if (##pair? _%rest123504123512%_) - (let ((_%hd123509123599%_ - (##car _%rest123504123512%_)) - (_%tl123510123601%_ - (##cdr _%rest123504123512%_))) - (let* ((_%hd123604%_ _%hd123509123599%_) - (_%rest123606%_ _%tl123510123601%_)) - (_%K123508123596%_ - _%rest123606%_ - _%hd123604%_))) - (_%else123506123520%_))))))) + (_%E123801123832%_))))) + (_%E123800123866%_))))) + (if (##pair? _%rest123778123786%_) + (let ((_%hd123783123873%_ + (##car _%rest123778123786%_)) + (_%tl123784123875%_ + (##cdr _%rest123778123786%_))) + (let* ((_%hd123878%_ _%hd123783123873%_) + (_%rest123880%_ _%tl123784123875%_)) + (_%K123782123870%_ + _%rest123880%_ + _%hd123878%_))) + (_%else123780123794%_))))))) (__call-with-parameters (lambda () - (let* ((_%rbody123492%_ + (let* ((_%rbody123766%_ (gx#core-expand-block__1 - _%stx123486%_ - _%expand-special123488%_ + _%stx123760%_ + _%expand-special123762%_ '#f)) - (_g123756_ (_%eval-body123489%_ _%rbody123492%_))) + (_g124030_ (_%eval-body123763%_ _%rbody123766%_))) (begin - (let ((_g123757_ - (if (##values? _g123756_) - (##vector-length _g123756_) + (let ((_g124031_ + (if (##values? _g124030_) + (##vector-length _g124030_) 1))) - (if (not (##fx= _g123757_ 2)) - (error "Context expects 2 values" _g123757_))) - (let ((_%expanded-body123494%_ (##vector-ref _g123756_ 0)) - (_%value123495%_ (##vector-ref _g123756_ 1))) + (if (not (##fx= _g124031_ 2)) + (error "Context expects 2 values" _g124031_))) + (let ((_%expanded-body123768%_ (##vector-ref _g124030_ 0)) + (_%value123769%_ (##vector-ref _g124030_ 1))) (gx#core-quote-syntax__1 (if (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - (gx#core-cons '%#begin-syntax _%expanded-body123494%_) + (gx#core-cons '%#begin-syntax _%expanded-body123768%_) (cons (gx#core-quote-syntax__0 '%#quote) - (cons _%value123495%_ '()))) - (gx#stx-source _%stx123486%_)))))) + (cons _%value123769%_ '()))) + (gx#stx-source _%stx123760%_)))))) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1))))) (define gx#core-expand-begin-foreign% - (lambda (_%stx123456%_) - (let* ((_%e123457123464%_ _%stx123456%_) - (_%E123459123468%_ + (lambda (_%stx123730%_) + (let* ((_%e123731123738%_ _%stx123730%_) + (_%E123733123742%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123457123464%_))) - (_%E123458123482%_ + _%e123731123738%_))) + (_%E123732123756%_ (lambda () - (if (gx#stx-pair? _%e123457123464%_) - (let ((_%e123460123472%_ - (gx#syntax-e _%e123457123464%_))) - (let ((_%hd123461123475%_ (##car _%e123460123472%_)) - (_%tl123462123477%_ (##cdr _%e123460123472%_))) - (let ((_%body123480%_ _%tl123462123477%_)) - (if (gx#stx-list? _%body123480%_) + (if (gx#stx-pair? _%e123731123738%_) + (let ((_%e123734123746%_ + (gx#syntax-e _%e123731123738%_))) + (let ((_%hd123735123749%_ (##car _%e123734123746%_)) + (_%tl123736123751%_ (##cdr _%e123734123746%_))) + (let ((_%body123754%_ _%tl123736123751%_)) + (if (gx#stx-list? _%body123754%_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin-foreign _%body123480%_) - (gx#stx-source _%stx123456%_)) - (_%E123459123468%_))))) - (_%E123459123468%_))))) - (_%E123458123482%_)))) + (gx#core-cons '%#begin-foreign _%body123754%_) + (gx#stx-source _%stx123730%_)) + (_%E123733123742%_))))) + (_%E123733123742%_))))) + (_%E123732123756%_)))) (define gx#core-expand-begin-module% - (lambda (_%stx123454%_) - (gx#raise-syntax-error '#f '"Illegal expansion" _%stx123454%_))) + (lambda (_%stx123728%_) + (gx#raise-syntax-error '#f '"Illegal expansion" _%stx123728%_))) (define gx#core-expand-begin-annotation% - (lambda (_%stx123400%_) - (let* ((_%e123401123414%_ _%stx123400%_) - (_%E123403123418%_ + (lambda (_%stx123674%_) + (let* ((_%e123675123688%_ _%stx123674%_) + (_%E123677123692%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123401123414%_))) - (_%E123402123450%_ + _%e123675123688%_))) + (_%E123676123724%_ (lambda () - (if (gx#stx-pair? _%e123401123414%_) - (let ((_%e123404123422%_ - (gx#syntax-e _%e123401123414%_))) - (let ((_%hd123405123425%_ (##car _%e123404123422%_)) - (_%tl123406123427%_ (##cdr _%e123404123422%_))) - (if (gx#stx-pair? _%tl123406123427%_) - (let ((_%e123407123430%_ - (gx#syntax-e _%tl123406123427%_))) - (let ((_%hd123408123433%_ - (##car _%e123407123430%_)) - (_%tl123409123435%_ - (##cdr _%e123407123430%_))) - (let ((_%ann123438%_ _%hd123408123433%_)) - (if (gx#stx-pair? _%tl123409123435%_) - (let ((_%e123410123440%_ + (if (gx#stx-pair? _%e123675123688%_) + (let ((_%e123678123696%_ + (gx#syntax-e _%e123675123688%_))) + (let ((_%hd123679123699%_ (##car _%e123678123696%_)) + (_%tl123680123701%_ (##cdr _%e123678123696%_))) + (if (gx#stx-pair? _%tl123680123701%_) + (let ((_%e123681123704%_ + (gx#syntax-e _%tl123680123701%_))) + (let ((_%hd123682123707%_ + (##car _%e123681123704%_)) + (_%tl123683123709%_ + (##cdr _%e123681123704%_))) + (let ((_%ann123712%_ _%hd123682123707%_)) + (if (gx#stx-pair? _%tl123683123709%_) + (let ((_%e123684123714%_ (gx#syntax-e - _%tl123409123435%_))) - (let ((_%hd123411123443%_ - (##car _%e123410123440%_)) - (_%tl123412123445%_ - (##cdr _%e123410123440%_))) - (let ((_%expr123448%_ - _%hd123411123443%_)) + _%tl123683123709%_))) + (let ((_%hd123685123717%_ + (##car _%e123684123714%_)) + (_%tl123686123719%_ + (##cdr _%e123684123714%_))) + (let ((_%expr123722%_ + _%hd123685123717%_)) (if (gx#stx-null? - _%tl123412123445%_) + _%tl123686123719%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _%ann123438%_ + (cons _%ann123712%_ (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr123448%_) + _%expr123722%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#stx-source - _%stx123400%_)) - (_%E123403123418%_))))) - (_%E123403123418%_))))) - (_%E123403123418%_)))) - (_%E123403123418%_))))) - (_%E123402123450%_)))) + _%stx123674%_)) + (_%E123677123692%_))))) + (_%E123677123692%_))))) + (_%E123677123692%_)))) + (_%E123677123692%_))))) + (_%E123676123724%_)))) (define gx#core-expand-local-block - (lambda (_%stx123124%_ _%body123125%_) - (letrec ((_%expand-special123127%_ - (lambda (_%hd123395%_ _%K123396%_ _%rest123397%_ _%r123398%_) - (_%K123396%_ + (lambda (_%stx123398%_ _%body123399%_) + (letrec ((_%expand-special123401%_ + (lambda (_%hd123669%_ _%K123670%_ _%rest123671%_ _%r123672%_) + (_%K123670%_ '() - (cons (_%expand-internal123128%_ - _%hd123395%_ - _%rest123397%_) - _%r123398%_)))) - (_%expand-internal123128%_ - (lambda (_%hd123391%_ _%rest123392%_) + (cons (_%expand-internal123402%_ + _%hd123669%_ + _%rest123671%_) + _%r123672%_)))) + (_%expand-internal123402%_ + (lambda (_%hd123665%_ _%rest123666%_) (__call-with-parameters (lambda () - (_%wrap-internal123130%_ + (_%wrap-internal123404%_ (gx#core-expand-block__1 (gx#stx-wrap-source - (cons '%#begin (cons _%hd123391%_ _%rest123392%_)) - (gx#stx-source _%stx123124%_)) - _%expand-internal-special123129%_ + (cons '%#begin (cons _%hd123665%_ _%rest123666%_)) + (gx#stx-source _%stx123398%_)) + _%expand-internal-special123403%_ '#f))) gx#current-expander-context - (let ((__obj123750 + (let ((__obj124024 (##structure gx#local-context::t '#f @@ -399,750 +399,750 @@ '#f '#f '#f))) - (gx#local-context:::init!__0 __obj123750) - __obj123750)))) - (_%expand-internal-special123129%_ - (lambda (_%hd123286%_ _%K123287%_ _%rest123288%_ _%r123289%_) - (let* ((_%e123290123315%_ _%hd123286%_) - (_%E123310123319%_ + (gx#local-context:::init!__0 __obj124024) + __obj124024)))) + (_%expand-internal-special123403%_ + (lambda (_%hd123560%_ _%K123561%_ _%rest123562%_ _%r123563%_) + (let* ((_%e123564123589%_ _%hd123560%_) + (_%E123584123593%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123290123315%_))) - (_%E123306123331%_ + _%e123564123589%_))) + (_%E123580123605%_ (lambda () - (if (gx#stx-pair? _%e123290123315%_) - (let ((_%e123311123323%_ - (gx#syntax-e _%e123290123315%_))) - (let ((_%hd123312123326%_ - (##car _%e123311123323%_)) - (_%tl123313123328%_ - (##cdr _%e123311123323%_))) + (if (gx#stx-pair? _%e123564123589%_) + (let ((_%e123585123597%_ + (gx#syntax-e _%e123564123589%_))) + (let ((_%hd123586123600%_ + (##car _%e123585123597%_)) + (_%tl123587123602%_ + (##cdr _%e123585123597%_))) (if (and (gx#identifier? - _%hd123312123326%_) + _%hd123586123600%_) (gx#core-identifier=? - _%hd123312123326%_ + _%hd123586123600%_ '%#declare)) - (_%K123287%_ - _%rest123288%_ + (_%K123561%_ + _%rest123562%_ (cons (gx#core-expand-declare% - _%hd123286%_) - _%r123289%_)) - (_%E123310123319%_)))) - (_%E123310123319%_)))) - (_%E123302123343%_ + _%hd123560%_) + _%r123563%_)) + (_%E123584123593%_)))) + (_%E123584123593%_)))) + (_%E123576123617%_ (lambda () - (if (gx#stx-pair? _%e123290123315%_) - (let ((_%e123307123335%_ - (gx#syntax-e _%e123290123315%_))) - (let ((_%hd123308123338%_ - (##car _%e123307123335%_)) - (_%tl123309123340%_ - (##cdr _%e123307123335%_))) + (if (gx#stx-pair? _%e123564123589%_) + (let ((_%e123581123609%_ + (gx#syntax-e _%e123564123589%_))) + (let ((_%hd123582123612%_ + (##car _%e123581123609%_)) + (_%tl123583123614%_ + (##cdr _%e123581123609%_))) (if (and (gx#identifier? - _%hd123308123338%_) + _%hd123582123612%_) (gx#core-identifier=? - _%hd123308123338%_ + _%hd123582123612%_ '%#define-alias)) (begin (gx#core-expand-define-alias% - _%hd123286%_) - (_%K123287%_ - _%rest123288%_ - _%r123289%_)) - (_%E123306123331%_)))) - (_%E123306123331%_)))) - (_%E123292123355%_ + _%hd123560%_) + (_%K123561%_ + _%rest123562%_ + _%r123563%_)) + (_%E123580123605%_)))) + (_%E123580123605%_)))) + (_%E123566123629%_ (lambda () - (if (gx#stx-pair? _%e123290123315%_) - (let ((_%e123303123347%_ - (gx#syntax-e _%e123290123315%_))) - (let ((_%hd123304123350%_ - (##car _%e123303123347%_)) - (_%tl123305123352%_ - (##cdr _%e123303123347%_))) + (if (gx#stx-pair? _%e123564123589%_) + (let ((_%e123577123621%_ + (gx#syntax-e _%e123564123589%_))) + (let ((_%hd123578123624%_ + (##car _%e123577123621%_)) + (_%tl123579123626%_ + (##cdr _%e123577123621%_))) (if (and (gx#identifier? - _%hd123304123350%_) + _%hd123578123624%_) (gx#core-identifier=? - _%hd123304123350%_ + _%hd123578123624%_ '%#define-syntax)) (begin (gx#core-expand-define-syntax% - _%hd123286%_) - (_%K123287%_ - _%rest123288%_ - _%r123289%_)) - (_%E123302123343%_)))) - (_%E123302123343%_)))) - (_%E123291123387%_ + _%hd123560%_) + (_%K123561%_ + _%rest123562%_ + _%r123563%_)) + (_%E123576123617%_)))) + (_%E123576123617%_)))) + (_%E123565123661%_ (lambda () - (if (gx#stx-pair? _%e123290123315%_) - (let ((_%e123293123359%_ - (gx#syntax-e _%e123290123315%_))) - (let ((_%hd123294123362%_ - (##car _%e123293123359%_)) - (_%tl123295123364%_ - (##cdr _%e123293123359%_))) + (if (gx#stx-pair? _%e123564123589%_) + (let ((_%e123567123633%_ + (gx#syntax-e _%e123564123589%_))) + (let ((_%hd123568123636%_ + (##car _%e123567123633%_)) + (_%tl123569123638%_ + (##cdr _%e123567123633%_))) (if (and (gx#identifier? - _%hd123294123362%_) + _%hd123568123636%_) (gx#core-identifier=? - _%hd123294123362%_ + _%hd123568123636%_ '%#define-values)) - (if (gx#stx-pair? _%tl123295123364%_) - (let ((_%e123296123367%_ + (if (gx#stx-pair? _%tl123569123638%_) + (let ((_%e123570123641%_ (gx#syntax-e - _%tl123295123364%_))) - (let ((_%hd123297123370%_ - (##car _%e123296123367%_)) - (_%tl123298123372%_ - (##cdr _%e123296123367%_))) - (let ((_%hd-bind123375%_ - _%hd123297123370%_)) + _%tl123569123638%_))) + (let ((_%hd123571123644%_ + (##car _%e123570123641%_)) + (_%tl123572123646%_ + (##cdr _%e123570123641%_))) + (let ((_%hd-bind123649%_ + _%hd123571123644%_)) (if (gx#stx-pair? - _%tl123298123372%_) - (let ((_%e123299123377%_ + _%tl123572123646%_) + (let ((_%e123573123651%_ (gx#syntax-e - _%tl123298123372%_))) - (let ((_%hd123300123380%_ + _%tl123572123646%_))) + (let ((_%hd123574123654%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e123299123377%_)) - (_%tl123301123382%_ (##cdr _%e123299123377%_))) - (let ((_%expr123385%_ _%hd123300123380%_)) - (if (gx#stx-null? _%tl123301123382%_) - (if (gx#core-bind-values? _%hd-bind123375%_) + (##car _%e123573123651%_)) + (_%tl123575123656%_ (##cdr _%e123573123651%_))) + (let ((_%expr123659%_ _%hd123574123654%_)) + (if (gx#stx-null? _%tl123575123656%_) + (if (gx#core-bind-values? _%hd-bind123649%_) (begin - (gx#core-bind-values!__0 _%hd-bind123375%_) - (_%K123287%_ - _%rest123288%_ - (cons _%hd123286%_ _%r123289%_))) - (_%E123292123355%_)) - (_%E123292123355%_))))) - (_%E123292123355%_))))) + (gx#core-bind-values!__0 _%hd-bind123649%_) + (_%K123561%_ + _%rest123562%_ + (cons _%hd123560%_ _%r123563%_))) + (_%E123566123629%_)) + (_%E123566123629%_))))) + (_%E123566123629%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123292123355%_)) - (_%E123292123355%_)))) - (_%E123292123355%_))))) - (_%E123291123387%_)))) - (_%wrap-internal123130%_ - (lambda (_%rbody123132%_) - (let _%lp123134%_ ((_%rest123136%_ _%rbody123132%_) - (_%decls123137%_ '()) - (_%bind123138%_ '()) - (_%body123139%_ '())) - (let* ((_%e123140123147%_ _%rest123136%_) - (_%E123142123196%_ + (_%E123566123629%_)) + (_%E123566123629%_)))) + (_%E123566123629%_))))) + (_%E123565123661%_)))) + (_%wrap-internal123404%_ + (lambda (_%rbody123406%_) + (let _%lp123408%_ ((_%rest123410%_ _%rbody123406%_) + (_%decls123411%_ '()) + (_%bind123412%_ '()) + (_%body123413%_ '())) + (let* ((_%e123414123421%_ _%rest123410%_) + (_%E123416123470%_ (lambda () - (let* ((_%body123191%_ - (let* ((_%body123150123160%_ - _%body123139%_) - (_%else123153123168%_ + (let* ((_%body123465%_ + (let* ((_%body123424123434%_ + _%body123413%_) + (_%else123427123442%_ (lambda () (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _%body123139%_) + _%body123413%_) (gx#stx-source - _%stx123124%_))))) - (let ((_%K123158123188%_ + _%stx123398%_))))) + (let ((_%K123432123462%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty body" - _%stx123124%_))) - (_%K123155123174%_ - (lambda (_%expr123172%_) - _%expr123172%_))) - (let ((_%try-match123152123184%_ + _%stx123398%_))) + (_%K123429123448%_ + (lambda (_%expr123446%_) + _%expr123446%_))) + (let ((_%try-match123426123458%_ (lambda () - (if (##pair? _%body123150123160%_) - (let ((_%tl123157123179%_ - (##cdr _%body123150123160%_)) - (_%hd123156123177%_ - (##car _%body123150123160%_))) - (if (##null? _%tl123157123179%_) - (let ((_%expr123182%_ + (if (##pair? _%body123424123434%_) + (let ((_%tl123431123453%_ + (##cdr _%body123424123434%_)) + (_%hd123430123451%_ + (##car _%body123424123434%_))) + (if (##null? _%tl123431123453%_) + (let ((_%expr123456%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd123156123177%_)) - (_%K123155123174%_ _%expr123182%_)) - (_%else123153123168%_))) - (_%else123153123168%_))))) + _%hd123430123451%_)) + (_%K123429123448%_ _%expr123456%_)) + (_%else123427123442%_))) + (_%else123427123442%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##null? _%body123150123160%_) - (_%K123158123188%_) - (_%try-match123152123184%_)))))) - (_%body123193%_ - (if (null? _%bind123138%_) - _%body123191%_ + (if (##null? _%body123424123434%_) + (_%K123432123462%_) + (_%try-match123426123458%_)))))) + (_%body123467%_ + (if (null? _%bind123412%_) + _%body123465%_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#letrec*-values) - (cons _%bind123138%_ - (cons _%body123191%_ + (cons _%bind123412%_ + (cons _%body123465%_ '()))) - (gx#stx-source _%stx123124%_))))) - (if (null? _%decls123137%_) - _%body123193%_ + (gx#stx-source _%stx123398%_))))) + (if (null? _%decls123411%_) + _%body123467%_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _%decls123137%_ - (cons _%body123193%_ '()))) - (gx#stx-source _%stx123124%_)))))) - (_%E123141123282%_ + (cons _%decls123411%_ + (cons _%body123467%_ '()))) + (gx#stx-source _%stx123398%_)))))) + (_%E123415123556%_ (lambda () - (if (gx#stx-pair? _%e123140123147%_) - (let ((_%e123143123200%_ - (gx#syntax-e _%e123140123147%_))) - (let ((_%hd123144123203%_ - (##car _%e123143123200%_)) - (_%tl123145123205%_ - (##cdr _%e123143123200%_))) - (let* ((_%hd123208%_ - _%hd123144123203%_) - (_%rest123210%_ - _%tl123145123205%_) - (_%e123211123228%_ _%hd123208%_) - (_%E123223123232%_ + (if (gx#stx-pair? _%e123414123421%_) + (let ((_%e123417123474%_ + (gx#syntax-e _%e123414123421%_))) + (let ((_%hd123418123477%_ + (##car _%e123417123474%_)) + (_%tl123419123479%_ + (##cdr _%e123417123474%_))) + (let* ((_%hd123482%_ + _%hd123418123477%_) + (_%rest123484%_ + _%tl123419123479%_) + (_%e123485123502%_ _%hd123482%_) + (_%E123497123506%_ (lambda () - (if (null? _%bind123138%_) - (_%lp123134%_ - _%rest123210%_ - _%decls123137%_ - _%bind123138%_ - (cons _%hd123208%_ - _%body123139%_)) - (_%lp123134%_ - _%rest123210%_ - _%decls123137%_ + (if (null? _%bind123412%_) + (_%lp123408%_ + _%rest123484%_ + _%decls123411%_ + _%bind123412%_ + (cons _%hd123482%_ + _%body123413%_)) + (_%lp123408%_ + _%rest123484%_ + _%decls123411%_ (cons (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%hd123208%_ '())) - _%bind123138%_) - _%body123139%_)))) + (cons _%hd123482%_ '())) + _%bind123412%_) + _%body123413%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123213123246%_ + (_%E123487123520%_ (lambda () (if (gx#stx-pair? - _%e123211123228%_) - (let ((_%e123224123236%_ + _%e123485123502%_) + (let ((_%e123498123510%_ (gx#syntax-e - _%e123211123228%_))) - (let ((_%hd123225123239%_ - (##car _%e123224123236%_)) - (_%tl123226123241%_ - (##cdr _%e123224123236%_))) + _%e123485123502%_))) + (let ((_%hd123499123513%_ + (##car _%e123498123510%_)) + (_%tl123500123515%_ + (##cdr _%e123498123510%_))) (if (and (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd123225123239%_) + _%hd123499123513%_) (gx#core-identifier=? - _%hd123225123239%_ + _%hd123499123513%_ '%#declare)) - (let ((_%xdecls123244%_ _%tl123226123241%_)) - (_%lp123134%_ - _%rest123210%_ - (gx#stx-foldr cons _%decls123137%_ _%xdecls123244%_) - _%bind123138%_ - _%body123139%_)) - (_%E123223123232%_)))) - (_%E123223123232%_)))) + (let ((_%xdecls123518%_ _%tl123500123515%_)) + (_%lp123408%_ + _%rest123484%_ + (gx#stx-foldr cons _%decls123411%_ _%xdecls123518%_) + _%bind123412%_ + _%body123413%_)) + (_%E123497123506%_)))) + (_%E123497123506%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123212123278%_ + (_%E123486123552%_ (lambda () (if (gx#stx-pair? - _%e123211123228%_) - (let ((_%e123214123250%_ + _%e123485123502%_) + (let ((_%e123488123524%_ (gx#syntax-e - _%e123211123228%_))) - (let ((_%hd123215123253%_ - (##car _%e123214123250%_)) - (_%tl123216123255%_ - (##cdr _%e123214123250%_))) + _%e123485123502%_))) + (let ((_%hd123489123527%_ + (##car _%e123488123524%_)) + (_%tl123490123529%_ + (##cdr _%e123488123524%_))) (if (and (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd123215123253%_) + _%hd123489123527%_) (gx#core-identifier=? - _%hd123215123253%_ + _%hd123489123527%_ '%#define-values)) - (if (gx#stx-pair? _%tl123216123255%_) - (let ((_%e123217123258%_ - (gx#syntax-e _%tl123216123255%_))) - (let ((_%hd123218123261%_ - (##car _%e123217123258%_)) - (_%tl123219123263%_ - (##cdr _%e123217123258%_))) - (let ((_%hd-bind123266%_ _%hd123218123261%_)) - (if (gx#stx-pair? _%tl123219123263%_) - (let ((_%e123220123268%_ - (gx#syntax-e _%tl123219123263%_))) - (let ((_%hd123221123271%_ - (##car _%e123220123268%_)) - (_%tl123222123273%_ - (##cdr _%e123220123268%_))) - (let ((_%expr123276%_ - _%hd123221123271%_)) - (if (gx#stx-null? _%tl123222123273%_) - (_%lp123134%_ - _%rest123210%_ - _%decls123137%_ + (if (gx#stx-pair? _%tl123490123529%_) + (let ((_%e123491123532%_ + (gx#syntax-e _%tl123490123529%_))) + (let ((_%hd123492123535%_ + (##car _%e123491123532%_)) + (_%tl123493123537%_ + (##cdr _%e123491123532%_))) + (let ((_%hd-bind123540%_ _%hd123492123535%_)) + (if (gx#stx-pair? _%tl123493123537%_) + (let ((_%e123494123542%_ + (gx#syntax-e _%tl123493123537%_))) + (let ((_%hd123495123545%_ + (##car _%e123494123542%_)) + (_%tl123496123547%_ + (##cdr _%e123494123542%_))) + (let ((_%expr123550%_ + _%hd123495123545%_)) + (if (gx#stx-null? _%tl123496123547%_) + (_%lp123408%_ + _%rest123484%_ + _%decls123411%_ (cons (cons (gx#core-quote-bind-values - _%hd-bind123266%_) + _%hd-bind123540%_) (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr123276%_) + _%expr123550%_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind123138%_) - _%body123139%_) - (_%E123213123246%_))))) - (_%E123213123246%_))))) - (_%E123213123246%_)) - (_%E123213123246%_)))) - (_%E123213123246%_))))) + _%bind123412%_) + _%body123413%_) + (_%E123487123520%_))))) + (_%E123487123520%_))))) + (_%E123487123520%_)) + (_%E123487123520%_)))) + (_%E123487123520%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123212123278%_)))) - (_%E123142123196%_))))) - (_%E123141123282%_)))))) + (_%E123486123552%_)))) + (_%E123416123470%_))))) + (_%E123415123556%_)))))) (gx#core-expand-block* (gx#stx-wrap-source - (cons '%#begin _%body123125%_) - (gx#stx-source _%stx123124%_)) - _%expand-special123127%_)))) + (cons '%#begin _%body123399%_) + (gx#stx-source _%stx123398%_)) + _%expand-special123401%_)))) (define gx#core-expand-declare% - (lambda (_%stx123062%_) - (let* ((_%e123063123070%_ _%stx123062%_) - (_%E123065123074%_ + (lambda (_%stx123336%_) + (let* ((_%e123337123344%_ _%stx123336%_) + (_%E123339123348%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123063123070%_))) - (_%E123064123120%_ + _%e123337123344%_))) + (_%E123338123394%_ (lambda () - (if (gx#stx-pair? _%e123063123070%_) - (let ((_%e123066123078%_ - (gx#syntax-e _%e123063123070%_))) - (let ((_%hd123067123081%_ (##car _%e123066123078%_)) - (_%tl123068123083%_ (##cdr _%e123066123078%_))) - (let ((_%body123086%_ _%tl123068123083%_)) - (if (gx#stx-list? _%body123086%_) + (if (gx#stx-pair? _%e123337123344%_) + (let ((_%e123340123352%_ + (gx#syntax-e _%e123337123344%_))) + (let ((_%hd123341123355%_ (##car _%e123340123352%_)) + (_%tl123342123357%_ (##cdr _%e123340123352%_))) + (let ((_%body123360%_ _%tl123342123357%_)) + (if (gx#stx-list? _%body123360%_) (gx#core-quote-syntax__1 (gx#core-cons '%#declare (gx#stx-map1 - (lambda (_%decl123088%_) - (let* ((_%e123089123096%_ _%decl123088%_) - (_%E123091123100%_ + (lambda (_%decl123362%_) + (let* ((_%e123363123370%_ _%decl123362%_) + (_%E123365123374%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123089123096%_))) - (_%E123090123116%_ + _%e123363123370%_))) + (_%E123364123390%_ (lambda () (if (gx#stx-pair? - _%e123089123096%_) - (let ((_%e123092123104%_ + _%e123363123370%_) + (let ((_%e123366123378%_ (gx#syntax-e - _%e123089123096%_))) - (let ((_%hd123093123107%_ - (##car _%e123092123104%_)) - (_%tl123094123109%_ - (##cdr _%e123092123104%_))) - (let* ((_%head123112%_ - _%hd123093123107%_) - (_%args123114%_ - _%tl123094123109%_)) + _%e123363123370%_))) + (let ((_%hd123367123381%_ + (##car _%e123366123378%_)) + (_%tl123368123383%_ + (##cdr _%e123366123378%_))) + (let* ((_%head123386%_ + _%hd123367123381%_) + (_%args123388%_ + _%tl123368123383%_)) (if (gx#stx-list? - _%args123114%_) + _%args123388%_) (gx#stx-map1 gx#core-quote-syntax - _%decl123088%_) - (_%E123091123100%_))))) - (_%E123091123100%_))))) - (_%E123090123116%_))) - _%body123086%_)) - (gx#stx-source _%stx123062%_)) - (_%E123065123074%_))))) - (_%E123065123074%_))))) - (_%E123064123120%_)))) + _%decl123362%_) + (_%E123365123374%_))))) + (_%E123365123374%_))))) + (_%E123364123390%_))) + _%body123360%_)) + (gx#stx-source _%stx123336%_)) + (_%E123339123348%_))))) + (_%E123339123348%_))))) + (_%E123338123394%_)))) (define gx#core-expand-extern% - (lambda (_%stx122966%_) - (let* ((_%e122967122974%_ _%stx122966%_) - (_%E122969122978%_ + (lambda (_%stx123240%_) + (let* ((_%e123241123248%_ _%stx123240%_) + (_%E123243123252%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122967122974%_))) - (_%E122968123058%_ + _%e123241123248%_))) + (_%E123242123332%_ (lambda () - (if (gx#stx-pair? _%e122967122974%_) - (let ((_%e122970122982%_ - (gx#syntax-e _%e122967122974%_))) - (let ((_%hd122971122985%_ (##car _%e122970122982%_)) - (_%tl122972122987%_ (##cdr _%e122970122982%_))) - (let ((_%body122990%_ _%tl122972122987%_)) - (let _%lp122992%_ ((_%rest122994%_ _%body122990%_) - (_%r122995%_ '())) - (let* ((_%e122996123010%_ _%rest122994%_) - (_%E123008123014%_ + (if (gx#stx-pair? _%e123241123248%_) + (let ((_%e123244123256%_ + (gx#syntax-e _%e123241123248%_))) + (let ((_%hd123245123259%_ (##car _%e123244123256%_)) + (_%tl123246123261%_ (##cdr _%e123244123256%_))) + (let ((_%body123264%_ _%tl123246123261%_)) + (let _%lp123266%_ ((_%rest123268%_ _%body123264%_) + (_%r123269%_ '())) + (let* ((_%e123270123284%_ _%rest123268%_) + (_%E123282123288%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; %#extern expects list of (internal external) identifier lists" - _%stx122966%_))) - (_%E122998123018%_ + _%stx123240%_))) + (_%E123272123292%_ (lambda () - (if (gx#stx-null? _%e122996123010%_) + (if (gx#stx-null? _%e123270123284%_) (gx#core-quote-syntax__1 (gx#core-cons '%#extern - (reverse _%r122995%_)) - (gx#stx-source _%stx122966%_)) - (_%E123008123014%_)))) - (_%E122997123054%_ + (reverse _%r123269%_)) + (gx#stx-source _%stx123240%_)) + (_%E123282123288%_)))) + (_%E123271123328%_ (lambda () - (if (gx#stx-pair? _%e122996123010%_) - (let ((_%e122999123022%_ + (if (gx#stx-pair? _%e123270123284%_) + (let ((_%e123273123296%_ (gx#syntax-e - _%e122996123010%_))) - (let ((_%hd123000123025%_ - (##car _%e122999123022%_)) - (_%tl123001123027%_ - (##cdr _%e122999123022%_))) + _%e123270123284%_))) + (let ((_%hd123274123299%_ + (##car _%e123273123296%_)) + (_%tl123275123301%_ + (##cdr _%e123273123296%_))) (if (gx#stx-pair? - _%hd123000123025%_) - (let ((_%e123002123030%_ + _%hd123274123299%_) + (let ((_%e123276123304%_ (gx#syntax-e - _%hd123000123025%_))) - (let ((_%hd123003123033%_ - (##car _%e123002123030%_)) - (_%tl123004123035%_ - (##cdr _%e123002123030%_))) - (let ((_%id123038%_ - _%hd123003123033%_)) + _%hd123274123299%_))) + (let ((_%hd123277123307%_ + (##car _%e123276123304%_)) + (_%tl123278123309%_ + (##cdr _%e123276123304%_))) + (let ((_%id123312%_ + _%hd123277123307%_)) (if (gx#stx-pair? - _%tl123004123035%_) - (let ((_%e123005123040%_ + _%tl123278123309%_) + (let ((_%e123279123314%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl123004123035%_))) - (let ((_%hd123006123043%_ (##car _%e123005123040%_)) - (_%tl123007123045%_ (##cdr _%e123005123040%_))) - (let ((_%eid123048%_ _%hd123006123043%_)) - (if (gx#stx-null? _%tl123007123045%_) - (let ((_%rest123050%_ _%tl123001123027%_)) - (if (and (gx#identifier? _%id123038%_) - (gx#identifier? _%eid123048%_)) - (let ((_%eid123052%_ - (gx#stx-e _%eid123048%_))) + (gx#syntax-e _%tl123278123309%_))) + (let ((_%hd123280123317%_ (##car _%e123279123314%_)) + (_%tl123281123319%_ (##cdr _%e123279123314%_))) + (let ((_%eid123322%_ _%hd123280123317%_)) + (if (gx#stx-null? _%tl123281123319%_) + (let ((_%rest123324%_ _%tl123275123301%_)) + (if (and (gx#identifier? _%id123312%_) + (gx#identifier? _%eid123322%_)) + (let ((_%eid123326%_ + (gx#stx-e _%eid123322%_))) (gx#core-bind-extern!__0 - _%id123038%_ - _%eid123052%_) - (_%lp122992%_ - _%rest123050%_ + _%id123312%_ + _%eid123326%_) + (_%lp123266%_ + _%rest123324%_ (cons (cons (gx#core-quote-syntax__0 - _%id123038%_) - (cons _%eid123052%_ '())) - _%r122995%_))) - (_%E122998123018%_))) - (_%E122998123018%_))))) - (_%E122998123018%_))))) + _%id123312%_) + (cons _%eid123326%_ '())) + _%r123269%_))) + (_%E123272123292%_))) + (_%E123272123292%_))))) + (_%E123272123292%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E122998123018%_)))) - (_%E122998123018%_))))) - (_%E122997123054%_)))))) - (_%E122969122978%_))))) - (_%E122968123058%_)))) + (_%E123272123292%_)))) + (_%E123272123292%_))))) + (_%E123271123328%_)))))) + (_%E123243123252%_))))) + (_%E123242123332%_)))) (define gx#core-expand-define-values% - (lambda (_%stx122912%_) - (let* ((_%e122913122926%_ _%stx122912%_) - (_%E122915122930%_ + (lambda (_%stx123186%_) + (let* ((_%e123187123200%_ _%stx123186%_) + (_%E123189123204%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122913122926%_))) - (_%E122914122962%_ + _%e123187123200%_))) + (_%E123188123236%_ (lambda () - (if (gx#stx-pair? _%e122913122926%_) - (let ((_%e122916122934%_ - (gx#syntax-e _%e122913122926%_))) - (let ((_%hd122917122937%_ (##car _%e122916122934%_)) - (_%tl122918122939%_ (##cdr _%e122916122934%_))) - (if (gx#stx-pair? _%tl122918122939%_) - (let ((_%e122919122942%_ - (gx#syntax-e _%tl122918122939%_))) - (let ((_%hd122920122945%_ - (##car _%e122919122942%_)) - (_%tl122921122947%_ - (##cdr _%e122919122942%_))) - (let ((_%hd122950%_ _%hd122920122945%_)) - (if (gx#stx-pair? _%tl122921122947%_) - (let ((_%e122922122952%_ + (if (gx#stx-pair? _%e123187123200%_) + (let ((_%e123190123208%_ + (gx#syntax-e _%e123187123200%_))) + (let ((_%hd123191123211%_ (##car _%e123190123208%_)) + (_%tl123192123213%_ (##cdr _%e123190123208%_))) + (if (gx#stx-pair? _%tl123192123213%_) + (let ((_%e123193123216%_ + (gx#syntax-e _%tl123192123213%_))) + (let ((_%hd123194123219%_ + (##car _%e123193123216%_)) + (_%tl123195123221%_ + (##cdr _%e123193123216%_))) + (let ((_%hd123224%_ _%hd123194123219%_)) + (if (gx#stx-pair? _%tl123195123221%_) + (let ((_%e123196123226%_ (gx#syntax-e - _%tl122921122947%_))) - (let ((_%hd122923122955%_ - (##car _%e122922122952%_)) - (_%tl122924122957%_ - (##cdr _%e122922122952%_))) - (let ((_%expr122960%_ - _%hd122923122955%_)) + _%tl123195123221%_))) + (let ((_%hd123197123229%_ + (##car _%e123196123226%_)) + (_%tl123198123231%_ + (##cdr _%e123196123226%_))) + (let ((_%expr123234%_ + _%hd123197123229%_)) (if (gx#stx-null? - _%tl122924122957%_) + _%tl123198123231%_) (if (gx#core-bind-values? - _%hd122950%_) + _%hd123224%_) (begin (gx#core-bind-values!__0 - _%hd122950%_) + _%hd123224%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd122950%_) - (cons (gx#core-expand-expression _%expr122960%_) + _%hd123224%_) + (cons (gx#core-expand-expression _%expr123234%_) '()))) - (gx#stx-source _%stx122912%_))) - (_%E122915122930%_)) + (gx#stx-source _%stx123186%_))) + (_%E123189123204%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E122915122930%_))))) - (_%E122915122930%_))))) - (_%E122915122930%_)))) - (_%E122915122930%_))))) - (_%E122914122962%_)))) + (_%E123189123204%_))))) + (_%E123189123204%_))))) + (_%E123189123204%_)))) + (_%E123189123204%_))))) + (_%E123188123236%_)))) (define gx#core-expand-define-runtime% - (lambda (_%stx122856%_) - (let* ((_%e122857122870%_ _%stx122856%_) - (_%E122859122874%_ + (lambda (_%stx123130%_) + (let* ((_%e123131123144%_ _%stx123130%_) + (_%E123133123148%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122857122870%_))) - (_%E122858122908%_ + _%e123131123144%_))) + (_%E123132123182%_ (lambda () - (if (gx#stx-pair? _%e122857122870%_) - (let ((_%e122860122878%_ - (gx#syntax-e _%e122857122870%_))) - (let ((_%hd122861122881%_ (##car _%e122860122878%_)) - (_%tl122862122883%_ (##cdr _%e122860122878%_))) - (if (gx#stx-pair? _%tl122862122883%_) - (let ((_%e122863122886%_ - (gx#syntax-e _%tl122862122883%_))) - (let ((_%hd122864122889%_ - (##car _%e122863122886%_)) - (_%tl122865122891%_ - (##cdr _%e122863122886%_))) - (let ((_%id122894%_ _%hd122864122889%_)) - (if (gx#stx-pair? _%tl122865122891%_) - (let ((_%e122866122896%_ + (if (gx#stx-pair? _%e123131123144%_) + (let ((_%e123134123152%_ + (gx#syntax-e _%e123131123144%_))) + (let ((_%hd123135123155%_ (##car _%e123134123152%_)) + (_%tl123136123157%_ (##cdr _%e123134123152%_))) + (if (gx#stx-pair? _%tl123136123157%_) + (let ((_%e123137123160%_ + (gx#syntax-e _%tl123136123157%_))) + (let ((_%hd123138123163%_ + (##car _%e123137123160%_)) + (_%tl123139123165%_ + (##cdr _%e123137123160%_))) + (let ((_%id123168%_ _%hd123138123163%_)) + (if (gx#stx-pair? _%tl123139123165%_) + (let ((_%e123140123170%_ (gx#syntax-e - _%tl122865122891%_))) - (let ((_%hd122867122899%_ - (##car _%e122866122896%_)) - (_%tl122868122901%_ - (##cdr _%e122866122896%_))) - (let ((_%binding-id122904%_ - _%hd122867122899%_)) + _%tl123139123165%_))) + (let ((_%hd123141123173%_ + (##car _%e123140123170%_)) + (_%tl123142123175%_ + (##cdr _%e123140123170%_))) + (let ((_%binding-id123178%_ + _%hd123141123173%_)) (if (gx#stx-null? - _%tl122868122901%_) + _%tl123142123175%_) (if (and (gx#identifier? - _%id122894%_) + _%id123168%_) (gx#identifier? - _%binding-id122904%_)) - (let ((_%eid122906%_ + _%binding-id123178%_)) + (let ((_%eid123180%_ (gx#stx-e - _%binding-id122904%_))) + _%binding-id123178%_))) (gx#core-bind-runtime-reference!__0 - _%id122894%_ - _%eid122906%_) + _%id123168%_ + _%eid123180%_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-runtime) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id122894%_) - (cons _%eid122906%_ '()))))) - (_%E122859122874%_)) + _%id123168%_) + (cons _%eid123180%_ '()))))) + (_%E123133123148%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E122859122874%_))))) - (_%E122859122874%_))))) - (_%E122859122874%_)))) - (_%E122859122874%_))))) - (_%E122858122908%_)))) + (_%E123133123148%_))))) + (_%E123133123148%_))))) + (_%E123133123148%_)))) + (_%E123133123148%_))))) + (_%E123132123182%_)))) (define gx#core-expand-define-syntax% - (lambda (_%stx122799%_) - (let* ((_%e122800122813%_ _%stx122799%_) - (_%E122802122817%_ + (lambda (_%stx123073%_) + (let* ((_%e123074123087%_ _%stx123073%_) + (_%E123076123091%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122800122813%_))) - (_%E122801122852%_ + _%e123074123087%_))) + (_%E123075123126%_ (lambda () - (if (gx#stx-pair? _%e122800122813%_) - (let ((_%e122803122821%_ - (gx#syntax-e _%e122800122813%_))) - (let ((_%hd122804122824%_ (##car _%e122803122821%_)) - (_%tl122805122826%_ (##cdr _%e122803122821%_))) - (if (gx#stx-pair? _%tl122805122826%_) - (let ((_%e122806122829%_ - (gx#syntax-e _%tl122805122826%_))) - (let ((_%hd122807122832%_ - (##car _%e122806122829%_)) - (_%tl122808122834%_ - (##cdr _%e122806122829%_))) - (let ((_%id122837%_ _%hd122807122832%_)) - (if (gx#stx-pair? _%tl122808122834%_) - (let ((_%e122809122839%_ + (if (gx#stx-pair? _%e123074123087%_) + (let ((_%e123077123095%_ + (gx#syntax-e _%e123074123087%_))) + (let ((_%hd123078123098%_ (##car _%e123077123095%_)) + (_%tl123079123100%_ (##cdr _%e123077123095%_))) + (if (gx#stx-pair? _%tl123079123100%_) + (let ((_%e123080123103%_ + (gx#syntax-e _%tl123079123100%_))) + (let ((_%hd123081123106%_ + (##car _%e123080123103%_)) + (_%tl123082123108%_ + (##cdr _%e123080123103%_))) + (let ((_%id123111%_ _%hd123081123106%_)) + (if (gx#stx-pair? _%tl123082123108%_) + (let ((_%e123083123113%_ (gx#syntax-e - _%tl122808122834%_))) - (let ((_%hd122810122842%_ - (##car _%e122809122839%_)) - (_%tl122811122844%_ - (##cdr _%e122809122839%_))) - (let ((_%expr122847%_ - _%hd122810122842%_)) + _%tl123082123108%_))) + (let ((_%hd123084123116%_ + (##car _%e123083123113%_)) + (_%tl123085123118%_ + (##cdr _%e123083123113%_))) + (let ((_%expr123121%_ + _%hd123084123116%_)) (if (gx#stx-null? - _%tl122811122844%_) + _%tl123085123118%_) (if (gx#identifier? - _%id122837%_) - (let ((_g123758_ + _%id123111%_) + (let ((_g124032_ (gx#core-expand-expression+1 - _%expr122847%_))) + _%expr123121%_))) (begin - (let ((_g123759_ + (let ((_g124033_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (##values? _g123758_) - (##vector-length _g123758_) + (if (##values? _g124032_) + (##vector-length _g124032_) 1))) - (if (not (##fx= _g123759_ 2)) - (error "Context expects 2 values" _g123759_))) - (let ((_%e-stx122849%_ (##vector-ref _g123758_ 0)) - (_%e122850%_ (##vector-ref _g123758_ 1))) + (if (not (##fx= _g124033_ 2)) + (error "Context expects 2 values" _g124033_))) + (let ((_%e-stx123123%_ (##vector-ref _g124032_ 0)) + (_%e123124%_ (##vector-ref _g124032_ 1))) (begin - (gx#core-bind-syntax!__0 _%id122837%_ _%e122850%_) + (gx#core-bind-syntax!__0 _%id123111%_ _%e123124%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons (gx#core-quote-syntax__0 _%id122837%_) - (cons _%e-stx122849%_ '()))) - (gx#stx-source _%stx122799%_)))))) - (_%E122802122817%_)) + (cons (gx#core-quote-syntax__0 _%id123111%_) + (cons _%e-stx123123%_ '()))) + (gx#stx-source _%stx123073%_)))))) + (_%E123076123091%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E122802122817%_))))) - (_%E122802122817%_))))) - (_%E122802122817%_)))) - (_%E122802122817%_))))) - (_%E122801122852%_)))) + (_%E123076123091%_))))) + (_%E123076123091%_))))) + (_%E123076123091%_)))) + (_%E123076123091%_))))) + (_%E123075123126%_)))) (define gx#core-expand-define-alias% - (lambda (_%stx122743%_) - (let* ((_%e122744122757%_ _%stx122743%_) - (_%E122746122761%_ + (lambda (_%stx123017%_) + (let* ((_%e123018123031%_ _%stx123017%_) + (_%E123020123035%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122744122757%_))) - (_%E122745122795%_ + _%e123018123031%_))) + (_%E123019123069%_ (lambda () - (if (gx#stx-pair? _%e122744122757%_) - (let ((_%e122747122765%_ - (gx#syntax-e _%e122744122757%_))) - (let ((_%hd122748122768%_ (##car _%e122747122765%_)) - (_%tl122749122770%_ (##cdr _%e122747122765%_))) - (if (gx#stx-pair? _%tl122749122770%_) - (let ((_%e122750122773%_ - (gx#syntax-e _%tl122749122770%_))) - (let ((_%hd122751122776%_ - (##car _%e122750122773%_)) - (_%tl122752122778%_ - (##cdr _%e122750122773%_))) - (let ((_%id122781%_ _%hd122751122776%_)) - (if (gx#stx-pair? _%tl122752122778%_) - (let ((_%e122753122783%_ + (if (gx#stx-pair? _%e123018123031%_) + (let ((_%e123021123039%_ + (gx#syntax-e _%e123018123031%_))) + (let ((_%hd123022123042%_ (##car _%e123021123039%_)) + (_%tl123023123044%_ (##cdr _%e123021123039%_))) + (if (gx#stx-pair? _%tl123023123044%_) + (let ((_%e123024123047%_ + (gx#syntax-e _%tl123023123044%_))) + (let ((_%hd123025123050%_ + (##car _%e123024123047%_)) + (_%tl123026123052%_ + (##cdr _%e123024123047%_))) + (let ((_%id123055%_ _%hd123025123050%_)) + (if (gx#stx-pair? _%tl123026123052%_) + (let ((_%e123027123057%_ (gx#syntax-e - _%tl122752122778%_))) - (let ((_%hd122754122786%_ - (##car _%e122753122783%_)) - (_%tl122755122788%_ - (##cdr _%e122753122783%_))) - (let ((_%alias-id122791%_ - _%hd122754122786%_)) + _%tl123026123052%_))) + (let ((_%hd123028123060%_ + (##car _%e123027123057%_)) + (_%tl123029123062%_ + (##cdr _%e123027123057%_))) + (let ((_%alias-id123065%_ + _%hd123028123060%_)) (if (gx#stx-null? - _%tl122755122788%_) + _%tl123029123062%_) (if (and (gx#identifier? - _%id122781%_) + _%id123055%_) (gx#identifier? - _%alias-id122791%_)) - (let ((_%alias-id122793%_ + _%alias-id123065%_)) + (let ((_%alias-id123067%_ (gx#core-quote-syntax__0 - _%alias-id122791%_))) + _%alias-id123065%_))) (gx#core-bind-alias!__0 - _%id122781%_ - _%alias-id122793%_) + _%id123055%_ + _%alias-id123067%_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-alias) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id122781%_) - (cons _%alias-id122793%_ '()))))) - (_%E122746122761%_)) + _%id123055%_) + (cons _%alias-id123067%_ '()))))) + (_%E123020123035%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E122746122761%_))))) - (_%E122746122761%_))))) - (_%E122746122761%_)))) - (_%E122746122761%_))))) - (_%E122745122795%_)))) + (_%E123020123035%_))))) + (_%E123020123035%_))))) + (_%E123020123035%_)))) + (_%E123020123035%_))))) + (_%E123019123069%_)))) (define gx#core-expand-lambda%__% - (lambda (_%stx122686%_ _%wrap?122687%_) - (let* ((_%e122688122698%_ _%stx122686%_) - (_%E122690122702%_ + (lambda (_%stx122960%_ _%wrap?122961%_) + (let* ((_%e122962122972%_ _%stx122960%_) + (_%E122964122976%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122688122698%_))) - (_%E122689122729%_ + _%e122962122972%_))) + (_%E122963123003%_ (lambda () - (if (gx#stx-pair? _%e122688122698%_) - (let ((_%e122691122706%_ - (gx#syntax-e _%e122688122698%_))) - (let ((_%hd122692122709%_ (##car _%e122691122706%_)) - (_%tl122693122711%_ (##cdr _%e122691122706%_))) - (if (gx#stx-pair? _%tl122693122711%_) - (let ((_%e122694122714%_ - (gx#syntax-e _%tl122693122711%_))) - (let ((_%hd122695122717%_ - (##car _%e122694122714%_)) - (_%tl122696122719%_ - (##cdr _%e122694122714%_))) - (let* ((_%hd122722%_ _%hd122695122717%_) - (_%body122724%_ _%tl122696122719%_)) - (if (gx#core-bind-values? _%hd122722%_) + (if (gx#stx-pair? _%e122962122972%_) + (let ((_%e122965122980%_ + (gx#syntax-e _%e122962122972%_))) + (let ((_%hd122966122983%_ (##car _%e122965122980%_)) + (_%tl122967122985%_ (##cdr _%e122965122980%_))) + (if (gx#stx-pair? _%tl122967122985%_) + (let ((_%e122968122988%_ + (gx#syntax-e _%tl122967122985%_))) + (let ((_%hd122969122991%_ + (##car _%e122968122988%_)) + (_%tl122970122993%_ + (##cdr _%e122968122988%_))) + (let* ((_%hd122996%_ _%hd122969122991%_) + (_%body122998%_ _%tl122970122993%_)) + (if (gx#core-bind-values? _%hd122996%_) (__call-with-parameters (lambda () (gx#core-bind-values!__0 - _%hd122722%_) - (let ((_%body122727%_ + _%hd122996%_) + (let ((_%body123001%_ (cons (gx#core-quote-bind-values - _%hd122722%_) + _%hd122996%_) (cons (gx#core-expand-local-block - _%stx122686%_ - _%body122724%_) + _%stx122960%_ + _%body122998%_) '())))) - (if _%wrap?122687%_ + (if _%wrap?122961%_ (gx#core-quote-syntax__1 (gx#core-cons '%#lambda - _%body122727%_) + _%body123001%_) (gx#stx-source - _%stx122686%_)) - _%body122727%_))) + _%stx122960%_)) + _%body123001%_))) gx#current-expander-context - (let ((__obj123751 + (let ((__obj124025 (##structure gx#local-context::t '#f @@ -1151,117 +1151,117 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj123751) - __obj123751)) - (_%E122690122702%_))))) - (_%E122690122702%_)))) - (_%E122690122702%_))))) - (_%E122689122729%_)))) + __obj124025) + __obj124025)) + (_%E122964122976%_))))) + (_%E122964122976%_)))) + (_%E122964122976%_))))) + (_%E122963123003%_)))) (define gx#core-expand-lambda%__0 - (lambda (_%stx122736%_) - (let ((_%wrap?122738%_ '#t)) - (gx#core-expand-lambda%__% _%stx122736%_ _%wrap?122738%_)))) + (lambda (_%stx123010%_) + (let ((_%wrap?123012%_ '#t)) + (gx#core-expand-lambda%__% _%stx123010%_ _%wrap?123012%_)))) (define gx#core-expand-lambda% - (lambda _g123761_ - (let ((_g123760_ (##length _g123761_))) - (cond ((##fx= _g123760_ 1) - (apply gx#core-expand-lambda%__0 _g123761_)) - ((##fx= _g123760_ 2) - (apply gx#core-expand-lambda%__% _g123761_)) + (lambda _g124035_ + (let ((_g124034_ (##length _g124035_))) + (cond ((##fx= _g124034_ 1) + (apply gx#core-expand-lambda%__0 _g124035_)) + ((##fx= _g124034_ 2) + (apply gx#core-expand-lambda%__% _g124035_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-lambda% - _g123761_)))))) + _g124035_)))))) (define gx#core-expand-case-lambda% - (lambda (_%stx122650%_) - (let* ((_%e122651122658%_ _%stx122650%_) - (_%E122653122662%_ + (lambda (_%stx122924%_) + (let* ((_%e122925122932%_ _%stx122924%_) + (_%E122927122936%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122651122658%_))) - (_%E122652122681%_ + _%e122925122932%_))) + (_%E122926122955%_ (lambda () - (if (gx#stx-pair? _%e122651122658%_) - (let ((_%e122654122666%_ - (gx#syntax-e _%e122651122658%_))) - (let ((_%hd122655122669%_ (##car _%e122654122666%_)) - (_%tl122656122671%_ (##cdr _%e122654122666%_))) - (let ((_%clauses122674%_ _%tl122656122671%_)) - (if (gx#stx-list? _%clauses122674%_) + (if (gx#stx-pair? _%e122925122932%_) + (let ((_%e122928122940%_ + (gx#syntax-e _%e122925122932%_))) + (let ((_%hd122929122943%_ (##car _%e122928122940%_)) + (_%tl122930122945%_ (##cdr _%e122928122940%_))) + (let ((_%clauses122948%_ _%tl122930122945%_)) + (if (gx#stx-list? _%clauses122948%_) (gx#core-quote-syntax__1 (gx#core-cons '%#case-lambda (gx#stx-map1 - (lambda (_%clause122676%_) + (lambda (_%clause122950%_) (gx#core-expand-lambda%__% (gx#stx-wrap-source (cons '%#case-lambda-clause - _%clause122676%_) - (let ((_%$e122678%_ + _%clause122950%_) + (let ((_%$e122952%_ (gx#stx-source - _%clause122676%_))) - (if _%$e122678%_ - _%$e122678%_ - (gx#stx-source _%stx122650%_)))) + _%clause122950%_))) + (if _%$e122952%_ + _%$e122952%_ + (gx#stx-source _%stx122924%_)))) '#f)) - _%clauses122674%_)) - (gx#stx-source _%stx122650%_)) - (_%E122653122662%_))))) - (_%E122653122662%_))))) - (_%E122652122681%_)))) + _%clauses122948%_)) + (gx#stx-source _%stx122924%_)) + (_%E122927122936%_))))) + (_%E122927122936%_))))) + (_%E122926122955%_)))) (define gx#core-expand-let-values% - (lambda (_%stx122604%_) - (let* ((_%e122605122615%_ _%stx122604%_) - (_%E122607122619%_ + (lambda (_%stx122878%_) + (let* ((_%e122879122889%_ _%stx122878%_) + (_%E122881122893%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122605122615%_))) - (_%E122606122646%_ + _%e122879122889%_))) + (_%E122880122920%_ (lambda () - (if (gx#stx-pair? _%e122605122615%_) - (let ((_%e122608122623%_ - (gx#syntax-e _%e122605122615%_))) - (let ((_%hd122609122626%_ (##car _%e122608122623%_)) - (_%tl122610122628%_ (##cdr _%e122608122623%_))) - (if (gx#stx-pair? _%tl122610122628%_) - (let ((_%e122611122631%_ - (gx#syntax-e _%tl122610122628%_))) - (let ((_%hd122612122634%_ - (##car _%e122611122631%_)) - (_%tl122613122636%_ - (##cdr _%e122611122631%_))) - (let* ((_%hd122639%_ _%hd122612122634%_) - (_%body122641%_ _%tl122613122636%_)) - (if (gx#core-expand-let-bind? _%hd122639%_) - (let ((_%expressions122643%_ + (if (gx#stx-pair? _%e122879122889%_) + (let ((_%e122882122897%_ + (gx#syntax-e _%e122879122889%_))) + (let ((_%hd122883122900%_ (##car _%e122882122897%_)) + (_%tl122884122902%_ (##cdr _%e122882122897%_))) + (if (gx#stx-pair? _%tl122884122902%_) + (let ((_%e122885122905%_ + (gx#syntax-e _%tl122884122902%_))) + (let ((_%hd122886122908%_ + (##car _%e122885122905%_)) + (_%tl122887122910%_ + (##cdr _%e122885122905%_))) + (let* ((_%hd122913%_ _%hd122886122908%_) + (_%body122915%_ _%tl122887122910%_)) + (if (gx#core-expand-let-bind? _%hd122913%_) + (let ((_%expressions122917%_ (gx#stx-map1 gx#core-expand-let-bind-expression - _%hd122639%_))) + _%hd122913%_))) (__call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _%hd122639%_) + _%hd122913%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#let-values) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _%hd122639%_ - _%expressions122643%_) + _%hd122913%_ + _%expressions122917%_) (cons (gx#core-expand-local-block ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%stx122604%_ - _%body122641%_) + _%stx122878%_ + _%body122915%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx122604%_))) + (gx#stx-source _%stx122878%_))) gx#current-expander-context - (let ((__obj123752 + (let ((__obj124026 (##structure gx#local-context::t '#f @@ -1270,59 +1270,59 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj123752) - __obj123752))) - (_%E122607122619%_))))) - (_%E122607122619%_)))) - (_%E122607122619%_))))) - (_%E122606122646%_)))) + __obj124026) + __obj124026))) + (_%E122881122893%_))))) + (_%E122881122893%_)))) + (_%E122881122893%_))))) + (_%E122880122920%_)))) (define gx#core-expand-letrec-values%__% - (lambda (_%stx122549%_ _%form122550%_) - (let* ((_%e122551122561%_ _%stx122549%_) - (_%E122553122565%_ + (lambda (_%stx122823%_ _%form122824%_) + (let* ((_%e122825122835%_ _%stx122823%_) + (_%E122827122839%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122551122561%_))) - (_%E122552122590%_ + _%e122825122835%_))) + (_%E122826122864%_ (lambda () - (if (gx#stx-pair? _%e122551122561%_) - (let ((_%e122554122569%_ - (gx#syntax-e _%e122551122561%_))) - (let ((_%hd122555122572%_ (##car _%e122554122569%_)) - (_%tl122556122574%_ (##cdr _%e122554122569%_))) - (if (gx#stx-pair? _%tl122556122574%_) - (let ((_%e122557122577%_ - (gx#syntax-e _%tl122556122574%_))) - (let ((_%hd122558122580%_ - (##car _%e122557122577%_)) - (_%tl122559122582%_ - (##cdr _%e122557122577%_))) - (let* ((_%hd122585%_ _%hd122558122580%_) - (_%body122587%_ _%tl122559122582%_)) - (if (gx#core-expand-let-bind? _%hd122585%_) + (if (gx#stx-pair? _%e122825122835%_) + (let ((_%e122828122843%_ + (gx#syntax-e _%e122825122835%_))) + (let ((_%hd122829122846%_ (##car _%e122828122843%_)) + (_%tl122830122848%_ (##cdr _%e122828122843%_))) + (if (gx#stx-pair? _%tl122830122848%_) + (let ((_%e122831122851%_ + (gx#syntax-e _%tl122830122848%_))) + (let ((_%hd122832122854%_ + (##car _%e122831122851%_)) + (_%tl122833122856%_ + (##cdr _%e122831122851%_))) + (let* ((_%hd122859%_ _%hd122832122854%_) + (_%body122861%_ _%tl122833122856%_)) + (if (gx#core-expand-let-bind? _%hd122859%_) (__call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _%hd122585%_) + _%hd122859%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 - _%form122550%_) + _%form122824%_) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _%hd122585%_ + _%hd122859%_ (gx#stx-map1 gx#core-expand-let-bind-expression - _%hd122585%_)) + _%hd122859%_)) (cons (gx#core-expand-local-block - _%stx122549%_ - _%body122587%_) + _%stx122823%_ + _%body122861%_) '()))) - (gx#stx-source _%stx122549%_))) + (gx#stx-source _%stx122823%_))) gx#current-expander-context - (let ((__obj123753 + (let ((__obj124027 (##structure gx#local-context::t '#f @@ -1331,200 +1331,200 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj123753) - __obj123753)) - (_%E122553122565%_))))) - (_%E122553122565%_)))) - (_%E122553122565%_))))) - (_%E122552122590%_)))) + __obj124027) + __obj124027)) + (_%E122827122839%_))))) + (_%E122827122839%_)))) + (_%E122827122839%_))))) + (_%E122826122864%_)))) (define gx#core-expand-letrec-values%__0 - (lambda (_%stx122597%_) - (let ((_%form122599%_ '%#letrec-values)) - (gx#core-expand-letrec-values%__% _%stx122597%_ _%form122599%_)))) + (lambda (_%stx122871%_) + (let ((_%form122873%_ '%#letrec-values)) + (gx#core-expand-letrec-values%__% _%stx122871%_ _%form122873%_)))) (define gx#core-expand-letrec-values% - (lambda _g123763_ - (let ((_g123762_ (##length _g123763_))) - (cond ((##fx= _g123762_ 1) - (apply gx#core-expand-letrec-values%__0 _g123763_)) - ((##fx= _g123762_ 2) - (apply gx#core-expand-letrec-values%__% _g123763_)) + (lambda _g124037_ + (let ((_g124036_ (##length _g124037_))) + (cond ((##fx= _g124036_ 1) + (apply gx#core-expand-letrec-values%__0 _g124037_)) + ((##fx= _g124036_ 2) + (apply gx#core-expand-letrec-values%__% _g124037_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-letrec-values% - _g123763_)))))) + _g124037_)))))) (define gx#core-expand-letrec*-values% - (lambda (_%stx122546%_) - (gx#core-expand-letrec-values%__% _%stx122546%_ '%#letrec*-values))) + (lambda (_%stx122820%_) + (gx#core-expand-letrec-values%__% _%stx122820%_ '%#letrec*-values))) (define gx#core-expand-let-bind? - (lambda (_%stx122503%_) - (if (gx#stx-list? _%stx122503%_) + (lambda (_%stx122777%_) + (if (gx#stx-list? _%stx122777%_) (gx#stx-andmap - (lambda (_%bind122505%_) - (let* ((_%e122506122516%_ _%bind122505%_) - (_%E122508122520%_ (lambda () '#f)) - (_%E122507122542%_ + (lambda (_%bind122779%_) + (let* ((_%e122780122790%_ _%bind122779%_) + (_%E122782122794%_ (lambda () '#f)) + (_%E122781122816%_ (lambda () - (if (gx#stx-pair? _%e122506122516%_) - (let ((_%e122509122524%_ - (gx#syntax-e _%e122506122516%_))) - (let ((_%hd122510122527%_ - (##car _%e122509122524%_)) - (_%tl122511122529%_ - (##cdr _%e122509122524%_))) - (let ((_%hd122532%_ _%hd122510122527%_)) - (if (gx#stx-pair? _%tl122511122529%_) - (let ((_%e122512122534%_ + (if (gx#stx-pair? _%e122780122790%_) + (let ((_%e122783122798%_ + (gx#syntax-e _%e122780122790%_))) + (let ((_%hd122784122801%_ + (##car _%e122783122798%_)) + (_%tl122785122803%_ + (##cdr _%e122783122798%_))) + (let ((_%hd122806%_ _%hd122784122801%_)) + (if (gx#stx-pair? _%tl122785122803%_) + (let ((_%e122786122808%_ (gx#syntax-e - _%tl122511122529%_))) - (let ((_%hd122513122537%_ - (##car _%e122512122534%_)) - (_%tl122514122539%_ - (##cdr _%e122512122534%_))) + _%tl122785122803%_))) + (let ((_%hd122787122811%_ + (##car _%e122786122808%_)) + (_%tl122788122813%_ + (##cdr _%e122786122808%_))) (if (gx#stx-null? - _%tl122514122539%_) + _%tl122788122813%_) (gx#core-bind-values? - _%hd122532%_) - (_%E122508122520%_)))) - (_%E122508122520%_))))) - (_%E122508122520%_))))) - (_%E122507122542%_))) - _%stx122503%_) + _%hd122806%_) + (_%E122782122794%_)))) + (_%E122782122794%_))))) + (_%E122782122794%_))))) + (_%E122781122816%_))) + _%stx122777%_) '#f))) (define gx#core-expand-let-bind-expression - (lambda (_%bind122462%_) - (let* ((_%e122463122473%_ _%bind122462%_) - (_%E122465122477%_ + (lambda (_%bind122736%_) + (let* ((_%e122737122747%_ _%bind122736%_) + (_%E122739122751%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122463122473%_))) - (_%E122464122499%_ + _%e122737122747%_))) + (_%E122738122773%_ (lambda () - (if (gx#stx-pair? _%e122463122473%_) - (let ((_%e122466122481%_ - (gx#syntax-e _%e122463122473%_))) - (let ((_%hd122467122484%_ (##car _%e122466122481%_)) - (_%tl122468122486%_ (##cdr _%e122466122481%_))) - (if (gx#stx-pair? _%tl122468122486%_) - (let ((_%e122469122489%_ - (gx#syntax-e _%tl122468122486%_))) - (let ((_%hd122470122492%_ - (##car _%e122469122489%_)) - (_%tl122471122494%_ - (##cdr _%e122469122489%_))) - (let ((_%expr122497%_ _%hd122470122492%_)) - (if (gx#stx-null? _%tl122471122494%_) + (if (gx#stx-pair? _%e122737122747%_) + (let ((_%e122740122755%_ + (gx#syntax-e _%e122737122747%_))) + (let ((_%hd122741122758%_ (##car _%e122740122755%_)) + (_%tl122742122760%_ (##cdr _%e122740122755%_))) + (if (gx#stx-pair? _%tl122742122760%_) + (let ((_%e122743122763%_ + (gx#syntax-e _%tl122742122760%_))) + (let ((_%hd122744122766%_ + (##car _%e122743122763%_)) + (_%tl122745122768%_ + (##cdr _%e122743122763%_))) + (let ((_%expr122771%_ _%hd122744122766%_)) + (if (gx#stx-null? _%tl122745122768%_) (gx#core-expand-expression - _%expr122497%_) - (_%E122465122477%_))))) - (_%E122465122477%_)))) - (_%E122465122477%_))))) - (_%E122464122499%_)))) + _%expr122771%_) + (_%E122739122751%_))))) + (_%E122739122751%_)))) + (_%E122739122751%_))))) + (_%E122738122773%_)))) (define gx#core-expand-let-bind-values! - (lambda (_%bind122421%_) - (let* ((_%e122422122432%_ _%bind122421%_) - (_%E122424122436%_ + (lambda (_%bind122695%_) + (let* ((_%e122696122706%_ _%bind122695%_) + (_%E122698122710%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122422122432%_))) - (_%E122423122458%_ + _%e122696122706%_))) + (_%E122697122732%_ (lambda () - (if (gx#stx-pair? _%e122422122432%_) - (let ((_%e122425122440%_ - (gx#syntax-e _%e122422122432%_))) - (let ((_%hd122426122443%_ (##car _%e122425122440%_)) - (_%tl122427122445%_ (##cdr _%e122425122440%_))) - (let ((_%hd122448%_ _%hd122426122443%_)) - (if (gx#stx-pair? _%tl122427122445%_) - (let ((_%e122428122450%_ - (gx#syntax-e _%tl122427122445%_))) - (let ((_%hd122429122453%_ - (##car _%e122428122450%_)) - (_%tl122430122455%_ - (##cdr _%e122428122450%_))) - (if (gx#stx-null? _%tl122430122455%_) - (gx#core-bind-values!__0 _%hd122448%_) - (_%E122424122436%_)))) - (_%E122424122436%_))))) - (_%E122424122436%_))))) - (_%E122423122458%_)))) + (if (gx#stx-pair? _%e122696122706%_) + (let ((_%e122699122714%_ + (gx#syntax-e _%e122696122706%_))) + (let ((_%hd122700122717%_ (##car _%e122699122714%_)) + (_%tl122701122719%_ (##cdr _%e122699122714%_))) + (let ((_%hd122722%_ _%hd122700122717%_)) + (if (gx#stx-pair? _%tl122701122719%_) + (let ((_%e122702122724%_ + (gx#syntax-e _%tl122701122719%_))) + (let ((_%hd122703122727%_ + (##car _%e122702122724%_)) + (_%tl122704122729%_ + (##cdr _%e122702122724%_))) + (if (gx#stx-null? _%tl122704122729%_) + (gx#core-bind-values!__0 _%hd122722%_) + (_%E122698122710%_)))) + (_%E122698122710%_))))) + (_%E122698122710%_))))) + (_%E122697122732%_)))) (define gx#core-expand-let-bind-quote - (lambda (_%bind122379%_ _%expr122380%_) - (let* ((_%e122381122391%_ _%bind122379%_) - (_%E122383122395%_ + (lambda (_%bind122653%_ _%expr122654%_) + (let* ((_%e122655122665%_ _%bind122653%_) + (_%E122657122669%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122381122391%_))) - (_%E122382122417%_ + _%e122655122665%_))) + (_%E122656122691%_ (lambda () - (if (gx#stx-pair? _%e122381122391%_) - (let ((_%e122384122399%_ - (gx#syntax-e _%e122381122391%_))) - (let ((_%hd122385122402%_ (##car _%e122384122399%_)) - (_%tl122386122404%_ (##cdr _%e122384122399%_))) - (let ((_%hd122407%_ _%hd122385122402%_)) - (if (gx#stx-pair? _%tl122386122404%_) - (let ((_%e122387122409%_ - (gx#syntax-e _%tl122386122404%_))) - (let ((_%hd122388122412%_ - (##car _%e122387122409%_)) - (_%tl122389122414%_ - (##cdr _%e122387122409%_))) - (if (gx#stx-null? _%tl122389122414%_) + (if (gx#stx-pair? _%e122655122665%_) + (let ((_%e122658122673%_ + (gx#syntax-e _%e122655122665%_))) + (let ((_%hd122659122676%_ (##car _%e122658122673%_)) + (_%tl122660122678%_ (##cdr _%e122658122673%_))) + (let ((_%hd122681%_ _%hd122659122676%_)) + (if (gx#stx-pair? _%tl122660122678%_) + (let ((_%e122661122683%_ + (gx#syntax-e _%tl122660122678%_))) + (let ((_%hd122662122686%_ + (##car _%e122661122683%_)) + (_%tl122663122688%_ + (##cdr _%e122661122683%_))) + (if (gx#stx-null? _%tl122663122688%_) (cons (gx#core-quote-bind-values - _%hd122407%_) - (cons _%expr122380%_ '())) - (_%E122383122395%_)))) - (_%E122383122395%_))))) - (_%E122383122395%_))))) - (_%E122382122417%_)))) + _%hd122681%_) + (cons _%expr122654%_ '())) + (_%E122657122669%_)))) + (_%E122657122669%_))))) + (_%E122657122669%_))))) + (_%E122656122691%_)))) (define gx#core-expand-let-syntax% - (lambda (_%stx122333%_) - (let* ((_%e122334122344%_ _%stx122333%_) - (_%E122336122348%_ + (lambda (_%stx122607%_) + (let* ((_%e122608122618%_ _%stx122607%_) + (_%E122610122622%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122334122344%_))) - (_%E122335122375%_ + _%e122608122618%_))) + (_%E122609122649%_ (lambda () - (if (gx#stx-pair? _%e122334122344%_) - (let ((_%e122337122352%_ - (gx#syntax-e _%e122334122344%_))) - (let ((_%hd122338122355%_ (##car _%e122337122352%_)) - (_%tl122339122357%_ (##cdr _%e122337122352%_))) - (if (gx#stx-pair? _%tl122339122357%_) - (let ((_%e122340122360%_ - (gx#syntax-e _%tl122339122357%_))) - (let ((_%hd122341122363%_ - (##car _%e122340122360%_)) - (_%tl122342122365%_ - (##cdr _%e122340122360%_))) - (let* ((_%hd122368%_ _%hd122341122363%_) - (_%body122370%_ _%tl122342122365%_)) + (if (gx#stx-pair? _%e122608122618%_) + (let ((_%e122611122626%_ + (gx#syntax-e _%e122608122618%_))) + (let ((_%hd122612122629%_ (##car _%e122611122626%_)) + (_%tl122613122631%_ (##cdr _%e122611122626%_))) + (if (gx#stx-pair? _%tl122613122631%_) + (let ((_%e122614122634%_ + (gx#syntax-e _%tl122613122631%_))) + (let ((_%hd122615122637%_ + (##car _%e122614122634%_)) + (_%tl122616122639%_ + (##cdr _%e122614122634%_))) + (let* ((_%hd122642%_ _%hd122615122637%_) + (_%body122644%_ _%tl122616122639%_)) (if (gx#core-expand-let-bind-syntax? - _%hd122368%_) - (let ((_%expanders122372%_ + _%hd122642%_) + (let ((_%expanders122646%_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _%hd122368%_))) + _%hd122642%_))) (__call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _%hd122368%_ - _%expanders122372%_) + _%hd122642%_ + _%expanders122646%_) (gx#core-expand-local-block - _%stx122333%_ - _%body122370%_)) + _%stx122607%_ + _%body122644%_)) gx#current-expander-context - (let ((__obj123754 + (let ((__obj124028 (##structure gx#local-context::t '#f @@ -1533,63 +1533,63 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj123754) - __obj123754))) - (_%E122336122348%_))))) - (_%E122336122348%_)))) - (_%E122336122348%_))))) - (_%E122335122375%_)))) + __obj124028) + __obj124028))) + (_%E122610122622%_))))) + (_%E122610122622%_)))) + (_%E122610122622%_))))) + (_%E122609122649%_)))) (define gx#core-expand-letrec-syntax% - (lambda (_%stx122282%_) - (let* ((_%e122283122293%_ _%stx122282%_) - (_%E122285122297%_ + (lambda (_%stx122556%_) + (let* ((_%e122557122567%_ _%stx122556%_) + (_%E122559122571%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122283122293%_))) - (_%E122284122329%_ + _%e122557122567%_))) + (_%E122558122603%_ (lambda () - (if (gx#stx-pair? _%e122283122293%_) - (let ((_%e122286122301%_ - (gx#syntax-e _%e122283122293%_))) - (let ((_%hd122287122304%_ (##car _%e122286122301%_)) - (_%tl122288122306%_ (##cdr _%e122286122301%_))) - (if (gx#stx-pair? _%tl122288122306%_) - (let ((_%e122289122309%_ - (gx#syntax-e _%tl122288122306%_))) - (let ((_%hd122290122312%_ - (##car _%e122289122309%_)) - (_%tl122291122314%_ - (##cdr _%e122289122309%_))) - (let* ((_%hd122317%_ _%hd122290122312%_) - (_%body122319%_ _%tl122291122314%_)) + (if (gx#stx-pair? _%e122557122567%_) + (let ((_%e122560122575%_ + (gx#syntax-e _%e122557122567%_))) + (let ((_%hd122561122578%_ (##car _%e122560122575%_)) + (_%tl122562122580%_ (##cdr _%e122560122575%_))) + (if (gx#stx-pair? _%tl122562122580%_) + (let ((_%e122563122583%_ + (gx#syntax-e _%tl122562122580%_))) + (let ((_%hd122564122586%_ + (##car _%e122563122583%_)) + (_%tl122565122588%_ + (##cdr _%e122563122583%_))) + (let* ((_%hd122591%_ _%hd122564122586%_) + (_%body122593%_ _%tl122565122588%_)) (if (gx#core-expand-let-bind-syntax? - _%hd122317%_) + _%hd122591%_) (__call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _%hd122317%_ + _%hd122591%_ (make-list - (gx#stx-length _%hd122317%_) + (gx#stx-length _%hd122591%_) '#!void)) (gx#stx-for-each2 - (lambda (_%g122321122324%_ - _%g122322122326%_) + (lambda (_%g122595122598%_ + _%g122596122600%_) (gx#core-expand-let-bind-syntax!__% - _%g122321122324%_ - _%g122322122326%_ + _%g122595122598%_ + _%g122596122600%_ '#t)) - _%hd122317%_ + _%hd122591%_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _%hd122317%_)) + _%hd122591%_)) (gx#core-expand-local-block - _%stx122282%_ - _%body122319%_)) + _%stx122556%_ + _%body122593%_)) gx#current-expander-context - (let ((__obj123755 + (let ((__obj124029 (##structure gx#local-context::t '#f @@ -1598,1725 +1598,1725 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj123755) - __obj123755)) - (_%E122285122297%_))))) - (_%E122285122297%_)))) - (_%E122285122297%_))))) - (_%E122284122329%_)))) + __obj124029) + __obj124029)) + (_%E122559122571%_))))) + (_%E122559122571%_)))) + (_%E122559122571%_))))) + (_%E122558122603%_)))) (define gx#core-expand-let-bind-syntax? - (lambda (_%stx122239%_) - (if (gx#stx-list? _%stx122239%_) + (lambda (_%stx122513%_) + (if (gx#stx-list? _%stx122513%_) (gx#stx-andmap - (lambda (_%bind122241%_) - (let* ((_%e122242122252%_ _%bind122241%_) - (_%E122244122256%_ (lambda () '#f)) - (_%E122243122278%_ + (lambda (_%bind122515%_) + (let* ((_%e122516122526%_ _%bind122515%_) + (_%E122518122530%_ (lambda () '#f)) + (_%E122517122552%_ (lambda () - (if (gx#stx-pair? _%e122242122252%_) - (let ((_%e122245122260%_ - (gx#syntax-e _%e122242122252%_))) - (let ((_%hd122246122263%_ - (##car _%e122245122260%_)) - (_%tl122247122265%_ - (##cdr _%e122245122260%_))) - (let ((_%hd122268%_ _%hd122246122263%_)) - (if (gx#stx-pair? _%tl122247122265%_) - (let ((_%e122248122270%_ + (if (gx#stx-pair? _%e122516122526%_) + (let ((_%e122519122534%_ + (gx#syntax-e _%e122516122526%_))) + (let ((_%hd122520122537%_ + (##car _%e122519122534%_)) + (_%tl122521122539%_ + (##cdr _%e122519122534%_))) + (let ((_%hd122542%_ _%hd122520122537%_)) + (if (gx#stx-pair? _%tl122521122539%_) + (let ((_%e122522122544%_ (gx#syntax-e - _%tl122247122265%_))) - (let ((_%hd122249122273%_ - (##car _%e122248122270%_)) - (_%tl122250122275%_ - (##cdr _%e122248122270%_))) + _%tl122521122539%_))) + (let ((_%hd122523122547%_ + (##car _%e122522122544%_)) + (_%tl122524122549%_ + (##cdr _%e122522122544%_))) (if (gx#stx-null? - _%tl122250122275%_) - (gx#identifier? _%hd122268%_) - (_%E122244122256%_)))) - (_%E122244122256%_))))) - (_%E122244122256%_))))) - (_%E122243122278%_))) - _%stx122239%_) + _%tl122524122549%_) + (gx#identifier? _%hd122542%_) + (_%E122518122530%_)))) + (_%E122518122530%_))))) + (_%E122518122530%_))))) + (_%E122517122552%_))) + _%stx122513%_) '#f))) (define gx#core-expand-let-bind-syntax-expression - (lambda (_%bind122195%_) - (let* ((_%e122196122206%_ _%bind122195%_) - (_%E122198122210%_ + (lambda (_%bind122469%_) + (let* ((_%e122470122480%_ _%bind122469%_) + (_%E122472122484%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122196122206%_))) - (_%E122197122235%_ + _%e122470122480%_))) + (_%E122471122509%_ (lambda () - (if (gx#stx-pair? _%e122196122206%_) - (let ((_%e122199122214%_ - (gx#syntax-e _%e122196122206%_))) - (let ((_%hd122200122217%_ (##car _%e122199122214%_)) - (_%tl122201122219%_ (##cdr _%e122199122214%_))) - (if (gx#stx-pair? _%tl122201122219%_) - (let ((_%e122202122222%_ - (gx#syntax-e _%tl122201122219%_))) - (let ((_%hd122203122225%_ - (##car _%e122202122222%_)) - (_%tl122204122227%_ - (##cdr _%e122202122222%_))) - (let ((_%expr122230%_ _%hd122203122225%_)) - (if (gx#stx-null? _%tl122204122227%_) - (let ((_g123764_ + (if (gx#stx-pair? _%e122470122480%_) + (let ((_%e122473122488%_ + (gx#syntax-e _%e122470122480%_))) + (let ((_%hd122474122491%_ (##car _%e122473122488%_)) + (_%tl122475122493%_ (##cdr _%e122473122488%_))) + (if (gx#stx-pair? _%tl122475122493%_) + (let ((_%e122476122496%_ + (gx#syntax-e _%tl122475122493%_))) + (let ((_%hd122477122499%_ + (##car _%e122476122496%_)) + (_%tl122478122501%_ + (##cdr _%e122476122496%_))) + (let ((_%expr122504%_ _%hd122477122499%_)) + (if (gx#stx-null? _%tl122478122501%_) + (let ((_g124038_ (gx#core-expand-expression+1 - _%expr122230%_))) + _%expr122504%_))) (begin - (let ((_g123765_ - (if (##values? _g123764_) + (let ((_g124039_ + (if (##values? _g124038_) (##vector-length - _g123764_) + _g124038_) 1))) - (if (not (##fx= _g123765_ 2)) + (if (not (##fx= _g124039_ 2)) (error "Context expects 2 values" - _g123765_))) - (let ((_%_122232%_ - (##vector-ref _g123764_ 0)) - (_%e122233%_ - (##vector-ref _g123764_ 1))) - _%e122233%_))) - (_%E122198122210%_))))) - (_%E122198122210%_)))) - (_%E122198122210%_))))) - (_%E122197122235%_)))) + _g124039_))) + (let ((_%_122506%_ + (##vector-ref _g124038_ 0)) + (_%e122507%_ + (##vector-ref _g124038_ 1))) + _%e122507%_))) + (_%E122472122484%_))))) + (_%E122472122484%_)))) + (_%E122472122484%_))))) + (_%E122471122509%_)))) (define gx#core-expand-let-bind-syntax!__% - (lambda (_%bind122140%_ _%e122141%_ _%rebind?122142%_) - (let* ((_%e122143122153%_ _%bind122140%_) - (_%E122145122157%_ + (lambda (_%bind122414%_ _%e122415%_ _%rebind?122416%_) + (let* ((_%e122417122427%_ _%bind122414%_) + (_%E122419122431%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122143122153%_))) - (_%E122144122179%_ + _%e122417122427%_))) + (_%E122418122453%_ (lambda () - (if (gx#stx-pair? _%e122143122153%_) - (let ((_%e122146122161%_ - (gx#syntax-e _%e122143122153%_))) - (let ((_%hd122147122164%_ (##car _%e122146122161%_)) - (_%tl122148122166%_ (##cdr _%e122146122161%_))) - (let ((_%id122169%_ _%hd122147122164%_)) - (if (gx#stx-pair? _%tl122148122166%_) - (let ((_%e122149122171%_ - (gx#syntax-e _%tl122148122166%_))) - (let ((_%hd122150122174%_ - (##car _%e122149122171%_)) - (_%tl122151122176%_ - (##cdr _%e122149122171%_))) - (if (gx#stx-null? _%tl122151122176%_) + (if (gx#stx-pair? _%e122417122427%_) + (let ((_%e122420122435%_ + (gx#syntax-e _%e122417122427%_))) + (let ((_%hd122421122438%_ (##car _%e122420122435%_)) + (_%tl122422122440%_ (##cdr _%e122420122435%_))) + (let ((_%id122443%_ _%hd122421122438%_)) + (if (gx#stx-pair? _%tl122422122440%_) + (let ((_%e122423122445%_ + (gx#syntax-e _%tl122422122440%_))) + (let ((_%hd122424122448%_ + (##car _%e122423122445%_)) + (_%tl122425122450%_ + (##cdr _%e122423122445%_))) + (if (gx#stx-null? _%tl122425122450%_) (gx#core-bind-syntax!__1 - _%id122169%_ - _%e122141%_ - _%rebind?122142%_) - (_%E122145122157%_)))) - (_%E122145122157%_))))) - (_%E122145122157%_))))) - (_%E122144122179%_)))) + _%id122443%_ + _%e122415%_ + _%rebind?122416%_) + (_%E122419122431%_)))) + (_%E122419122431%_))))) + (_%E122419122431%_))))) + (_%E122418122453%_)))) (define gx#core-expand-let-bind-syntax!__0 - (lambda (_%bind122186%_ _%e122187%_) - (let ((_%rebind?122189%_ '#f)) + (lambda (_%bind122460%_ _%e122461%_) + (let ((_%rebind?122463%_ '#f)) (gx#core-expand-let-bind-syntax!__% - _%bind122186%_ - _%e122187%_ - _%rebind?122189%_)))) + _%bind122460%_ + _%e122461%_ + _%rebind?122463%_)))) (define gx#core-expand-let-bind-syntax! - (lambda _g123767_ - (let ((_g123766_ (##length _g123767_))) - (cond ((##fx= _g123766_ 2) - (apply gx#core-expand-let-bind-syntax!__0 _g123767_)) - ((##fx= _g123766_ 3) - (apply gx#core-expand-let-bind-syntax!__% _g123767_)) + (lambda _g124041_ + (let ((_g124040_ (##length _g124041_))) + (cond ((##fx= _g124040_ 2) + (apply gx#core-expand-let-bind-syntax!__0 _g124041_)) + ((##fx= _g124040_ 3) + (apply gx#core-expand-let-bind-syntax!__% _g124041_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-let-bind-syntax! - _g123767_)))))) + _g124041_)))))) (define gx#core-expand-expression% - (lambda (_%stx122098%_) - (let* ((_%e122099122109%_ _%stx122098%_) - (_%E122101122113%_ + (lambda (_%stx122372%_) + (let* ((_%e122373122383%_ _%stx122372%_) + (_%E122375122387%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122099122109%_))) - (_%E122100122135%_ + _%e122373122383%_))) + (_%E122374122409%_ (lambda () - (if (gx#stx-pair? _%e122099122109%_) - (let ((_%e122102122117%_ - (gx#syntax-e _%e122099122109%_))) - (let ((_%hd122103122120%_ (##car _%e122102122117%_)) - (_%tl122104122122%_ (##cdr _%e122102122117%_))) - (if (gx#stx-pair? _%tl122104122122%_) - (let ((_%e122105122125%_ - (gx#syntax-e _%tl122104122122%_))) - (let ((_%hd122106122128%_ - (##car _%e122105122125%_)) - (_%tl122107122130%_ - (##cdr _%e122105122125%_))) - (let ((_%expr122133%_ _%hd122106122128%_)) - (if (gx#stx-null? _%tl122107122130%_) + (if (gx#stx-pair? _%e122373122383%_) + (let ((_%e122376122391%_ + (gx#syntax-e _%e122373122383%_))) + (let ((_%hd122377122394%_ (##car _%e122376122391%_)) + (_%tl122378122396%_ (##cdr _%e122376122391%_))) + (if (gx#stx-pair? _%tl122378122396%_) + (let ((_%e122379122399%_ + (gx#syntax-e _%tl122378122396%_))) + (let ((_%hd122380122402%_ + (##car _%e122379122399%_)) + (_%tl122381122404%_ + (##cdr _%e122379122399%_))) + (let ((_%expr122407%_ _%hd122380122402%_)) + (if (gx#stx-null? _%tl122381122404%_) (gx#core-expand-expression - _%expr122133%_) - (_%E122101122113%_))))) - (_%E122101122113%_)))) - (_%E122101122113%_))))) - (_%E122100122135%_)))) + _%expr122407%_) + (_%E122375122387%_))))) + (_%E122375122387%_)))) + (_%E122375122387%_))))) + (_%E122374122409%_)))) (define gx#core-expand-quote% - (lambda (_%stx122057%_) - (let* ((_%e122058122068%_ _%stx122057%_) - (_%E122060122072%_ + (lambda (_%stx122331%_) + (let* ((_%e122332122342%_ _%stx122331%_) + (_%E122334122346%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122058122068%_))) - (_%E122059122094%_ + _%e122332122342%_))) + (_%E122333122368%_ (lambda () - (if (gx#stx-pair? _%e122058122068%_) - (let ((_%e122061122076%_ - (gx#syntax-e _%e122058122068%_))) - (let ((_%hd122062122079%_ (##car _%e122061122076%_)) - (_%tl122063122081%_ (##cdr _%e122061122076%_))) - (if (gx#stx-pair? _%tl122063122081%_) - (let ((_%e122064122084%_ - (gx#syntax-e _%tl122063122081%_))) - (let ((_%hd122065122087%_ - (##car _%e122064122084%_)) - (_%tl122066122089%_ - (##cdr _%e122064122084%_))) - (let ((_%e122092%_ _%hd122065122087%_)) - (if (gx#stx-null? _%tl122066122089%_) + (if (gx#stx-pair? _%e122332122342%_) + (let ((_%e122335122350%_ + (gx#syntax-e _%e122332122342%_))) + (let ((_%hd122336122353%_ (##car _%e122335122350%_)) + (_%tl122337122355%_ (##cdr _%e122335122350%_))) + (if (gx#stx-pair? _%tl122337122355%_) + (let ((_%e122338122358%_ + (gx#syntax-e _%tl122337122355%_))) + (let ((_%hd122339122361%_ + (##car _%e122338122358%_)) + (_%tl122340122363%_ + (##cdr _%e122338122358%_))) + (let ((_%e122366%_ _%hd122339122361%_)) + (if (gx#stx-null? _%tl122340122363%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote) (cons (gx#syntax->datum - _%e122092%_) + _%e122366%_) '())) - (gx#stx-source _%stx122057%_)) - (_%E122060122072%_))))) - (_%E122060122072%_)))) - (_%E122060122072%_))))) - (_%E122059122094%_)))) + (gx#stx-source _%stx122331%_)) + (_%E122334122346%_))))) + (_%E122334122346%_)))) + (_%E122334122346%_))))) + (_%E122333122368%_)))) (define gx#core-expand-quote-syntax% - (lambda (_%stx122016%_) - (let* ((_%e122017122027%_ _%stx122016%_) - (_%E122019122031%_ + (lambda (_%stx122290%_) + (let* ((_%e122291122301%_ _%stx122290%_) + (_%E122293122305%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122017122027%_))) - (_%E122018122053%_ + _%e122291122301%_))) + (_%E122292122327%_ (lambda () - (if (gx#stx-pair? _%e122017122027%_) - (let ((_%e122020122035%_ - (gx#syntax-e _%e122017122027%_))) - (let ((_%hd122021122038%_ (##car _%e122020122035%_)) - (_%tl122022122040%_ (##cdr _%e122020122035%_))) - (if (gx#stx-pair? _%tl122022122040%_) - (let ((_%e122023122043%_ - (gx#syntax-e _%tl122022122040%_))) - (let ((_%hd122024122046%_ - (##car _%e122023122043%_)) - (_%tl122025122048%_ - (##cdr _%e122023122043%_))) - (let ((_%e122051%_ _%hd122024122046%_)) - (if (gx#stx-null? _%tl122025122048%_) + (if (gx#stx-pair? _%e122291122301%_) + (let ((_%e122294122309%_ + (gx#syntax-e _%e122291122301%_))) + (let ((_%hd122295122312%_ (##car _%e122294122309%_)) + (_%tl122296122314%_ (##cdr _%e122294122309%_))) + (if (gx#stx-pair? _%tl122296122314%_) + (let ((_%e122297122317%_ + (gx#syntax-e _%tl122296122314%_))) + (let ((_%hd122298122320%_ + (##car _%e122297122317%_)) + (_%tl122299122322%_ + (##cdr _%e122297122317%_))) + (let ((_%e122325%_ _%hd122298122320%_)) + (if (gx#stx-null? _%tl122299122322%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote-syntax) (cons (gx#core-quote-syntax__0 - _%e122051%_) + _%e122325%_) '())) - (gx#stx-source _%stx122016%_)) - (_%E122019122031%_))))) - (_%E122019122031%_)))) - (_%E122019122031%_))))) - (_%E122018122053%_)))) + (gx#stx-source _%stx122290%_)) + (_%E122293122305%_))))) + (_%E122293122305%_)))) + (_%E122293122305%_))))) + (_%E122292122327%_)))) (define gx#core-expand-call% - (lambda (_%stx121973%_) - (let* ((_%e121974121984%_ _%stx121973%_) - (_%E121976121988%_ + (lambda (_%stx122247%_) + (let* ((_%e122248122258%_ _%stx122247%_) + (_%E122250122262%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121974121984%_))) - (_%E121975122012%_ + _%e122248122258%_))) + (_%E122249122286%_ (lambda () - (if (gx#stx-pair? _%e121974121984%_) - (let ((_%e121977121992%_ - (gx#syntax-e _%e121974121984%_))) - (let ((_%hd121978121995%_ (##car _%e121977121992%_)) - (_%tl121979121997%_ (##cdr _%e121977121992%_))) - (if (gx#stx-pair? _%tl121979121997%_) - (let ((_%e121980122000%_ - (gx#syntax-e _%tl121979121997%_))) - (let ((_%hd121981122003%_ - (##car _%e121980122000%_)) - (_%tl121982122005%_ - (##cdr _%e121980122000%_))) - (let* ((_%rator122008%_ _%hd121981122003%_) - (_%args122010%_ _%tl121982122005%_)) - (if (gx#stx-list? _%args122010%_) + (if (gx#stx-pair? _%e122248122258%_) + (let ((_%e122251122266%_ + (gx#syntax-e _%e122248122258%_))) + (let ((_%hd122252122269%_ (##car _%e122251122266%_)) + (_%tl122253122271%_ (##cdr _%e122251122266%_))) + (if (gx#stx-pair? _%tl122253122271%_) + (let ((_%e122254122274%_ + (gx#syntax-e _%tl122253122271%_))) + (let ((_%hd122255122277%_ + (##car _%e122254122274%_)) + (_%tl122256122279%_ + (##cdr _%e122254122274%_))) + (let* ((_%rator122282%_ _%hd122255122277%_) + (_%args122284%_ _%tl122256122279%_)) + (if (gx#stx-list? _%args122284%_) (gx#core-quote-syntax__1 (gx#core-cons* '%#call (gx#core-expand-expression - _%rator122008%_) + _%rator122282%_) (gx#stx-map1 gx#core-expand-expression - _%args122010%_)) - (gx#stx-source _%stx121973%_)) - (_%E121976121988%_))))) - (_%E121976121988%_)))) - (_%E121976121988%_))))) - (_%E121975122012%_)))) + _%args122284%_)) + (gx#stx-source _%stx122247%_)) + (_%E122250122262%_))))) + (_%E122250122262%_)))) + (_%E122250122262%_))))) + (_%E122249122286%_)))) (define gx#core-expand-if% - (lambda (_%stx121906%_) - (let* ((_%e121907121923%_ _%stx121906%_) - (_%E121909121927%_ + (lambda (_%stx122180%_) + (let* ((_%e122181122197%_ _%stx122180%_) + (_%E122183122201%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121907121923%_))) - (_%E121908121969%_ + _%e122181122197%_))) + (_%E122182122243%_ (lambda () - (if (gx#stx-pair? _%e121907121923%_) - (let ((_%e121910121931%_ - (gx#syntax-e _%e121907121923%_))) - (let ((_%hd121911121934%_ (##car _%e121910121931%_)) - (_%tl121912121936%_ (##cdr _%e121910121931%_))) - (if (gx#stx-pair? _%tl121912121936%_) - (let ((_%e121913121939%_ - (gx#syntax-e _%tl121912121936%_))) - (let ((_%hd121914121942%_ - (##car _%e121913121939%_)) - (_%tl121915121944%_ - (##cdr _%e121913121939%_))) - (let ((_%test121947%_ _%hd121914121942%_)) - (if (gx#stx-pair? _%tl121915121944%_) - (let ((_%e121916121949%_ + (if (gx#stx-pair? _%e122181122197%_) + (let ((_%e122184122205%_ + (gx#syntax-e _%e122181122197%_))) + (let ((_%hd122185122208%_ (##car _%e122184122205%_)) + (_%tl122186122210%_ (##cdr _%e122184122205%_))) + (if (gx#stx-pair? _%tl122186122210%_) + (let ((_%e122187122213%_ + (gx#syntax-e _%tl122186122210%_))) + (let ((_%hd122188122216%_ + (##car _%e122187122213%_)) + (_%tl122189122218%_ + (##cdr _%e122187122213%_))) + (let ((_%test122221%_ _%hd122188122216%_)) + (if (gx#stx-pair? _%tl122189122218%_) + (let ((_%e122190122223%_ (gx#syntax-e - _%tl121915121944%_))) - (let ((_%hd121917121952%_ - (##car _%e121916121949%_)) - (_%tl121918121954%_ - (##cdr _%e121916121949%_))) - (let ((_%K121957%_ - _%hd121917121952%_)) + _%tl122189122218%_))) + (let ((_%hd122191122226%_ + (##car _%e122190122223%_)) + (_%tl122192122228%_ + (##cdr _%e122190122223%_))) + (let ((_%K122231%_ + _%hd122191122226%_)) (if (gx#stx-pair? - _%tl121918121954%_) - (let ((_%e121919121959%_ + _%tl122192122228%_) + (let ((_%e122193122233%_ (gx#syntax-e - _%tl121918121954%_))) - (let ((_%hd121920121962%_ - (##car _%e121919121959%_)) - (_%tl121921121964%_ - (##cdr _%e121919121959%_))) - (let ((_%E121967%_ - _%hd121920121962%_)) + _%tl122192122228%_))) + (let ((_%hd122194122236%_ + (##car _%e122193122233%_)) + (_%tl122195122238%_ + (##cdr _%e122193122233%_))) + (let ((_%E122241%_ + _%hd122194122236%_)) (if (gx#stx-null? - _%tl121921121964%_) + _%tl122195122238%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#if) - (cons (gx#core-expand-expression _%test121947%_) - (cons (gx#core-expand-expression _%K121957%_) + (cons (gx#core-expand-expression _%test122221%_) + (cons (gx#core-expand-expression _%K122231%_) (cons (gx#core-expand-expression - _%E121967%_) + _%E122241%_) '())))) - (gx#stx-source _%stx121906%_)) - (_%E121909121927%_))))) + (gx#stx-source _%stx122180%_)) + (_%E122183122201%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121909121927%_))))) - (_%E121909121927%_))))) - (_%E121909121927%_)))) - (_%E121909121927%_))))) - (_%E121908121969%_)))) + (_%E122183122201%_))))) + (_%E122183122201%_))))) + (_%E122183122201%_)))) + (_%E122183122201%_))))) + (_%E122182122243%_)))) (define gx#core-expand-ref% - (lambda (_%stx121865%_) - (let* ((_%e121866121876%_ _%stx121865%_) - (_%E121868121880%_ + (lambda (_%stx122139%_) + (let* ((_%e122140122150%_ _%stx122139%_) + (_%E122142122154%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121866121876%_))) - (_%E121867121902%_ + _%e122140122150%_))) + (_%E122141122176%_ (lambda () - (if (gx#stx-pair? _%e121866121876%_) - (let ((_%e121869121884%_ - (gx#syntax-e _%e121866121876%_))) - (let ((_%hd121870121887%_ (##car _%e121869121884%_)) - (_%tl121871121889%_ (##cdr _%e121869121884%_))) - (if (gx#stx-pair? _%tl121871121889%_) - (let ((_%e121872121892%_ - (gx#syntax-e _%tl121871121889%_))) - (let ((_%hd121873121895%_ - (##car _%e121872121892%_)) - (_%tl121874121897%_ - (##cdr _%e121872121892%_))) - (let ((_%id121900%_ _%hd121873121895%_)) - (if (gx#stx-null? _%tl121874121897%_) - (if (gx#identifier? _%id121900%_) + (if (gx#stx-pair? _%e122140122150%_) + (let ((_%e122143122158%_ + (gx#syntax-e _%e122140122150%_))) + (let ((_%hd122144122161%_ (##car _%e122143122158%_)) + (_%tl122145122163%_ (##cdr _%e122143122158%_))) + (if (gx#stx-pair? _%tl122145122163%_) + (let ((_%e122146122166%_ + (gx#syntax-e _%tl122145122163%_))) + (let ((_%hd122147122169%_ + (##car _%e122146122166%_)) + (_%tl122148122171%_ + (##cdr _%e122146122166%_))) + (let ((_%id122174%_ _%hd122147122169%_)) + (if (gx#stx-null? _%tl122148122171%_) + (if (gx#identifier? _%id122174%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#ref) (cons (gx#core-quote-runtime-ref - _%id121900%_ - _%stx121865%_) + _%id122174%_ + _%stx122139%_) '())) - (gx#stx-source _%stx121865%_)) - (_%E121868121880%_)) - (_%E121868121880%_))))) - (_%E121868121880%_)))) - (_%E121868121880%_))))) - (_%E121867121902%_)))) + (gx#stx-source _%stx122139%_)) + (_%E122142122154%_)) + (_%E122142122154%_))))) + (_%E122142122154%_)))) + (_%E122142122154%_))))) + (_%E122141122176%_)))) (define gx#core-expand-setq% - (lambda (_%stx121811%_) - (let* ((_%e121812121825%_ _%stx121811%_) - (_%E121814121829%_ + (lambda (_%stx122085%_) + (let* ((_%e122086122099%_ _%stx122085%_) + (_%E122088122103%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121812121825%_))) - (_%E121813121861%_ + _%e122086122099%_))) + (_%E122087122135%_ (lambda () - (if (gx#stx-pair? _%e121812121825%_) - (let ((_%e121815121833%_ - (gx#syntax-e _%e121812121825%_))) - (let ((_%hd121816121836%_ (##car _%e121815121833%_)) - (_%tl121817121838%_ (##cdr _%e121815121833%_))) - (if (gx#stx-pair? _%tl121817121838%_) - (let ((_%e121818121841%_ - (gx#syntax-e _%tl121817121838%_))) - (let ((_%hd121819121844%_ - (##car _%e121818121841%_)) - (_%tl121820121846%_ - (##cdr _%e121818121841%_))) - (let ((_%id121849%_ _%hd121819121844%_)) - (if (gx#stx-pair? _%tl121820121846%_) - (let ((_%e121821121851%_ + (if (gx#stx-pair? _%e122086122099%_) + (let ((_%e122089122107%_ + (gx#syntax-e _%e122086122099%_))) + (let ((_%hd122090122110%_ (##car _%e122089122107%_)) + (_%tl122091122112%_ (##cdr _%e122089122107%_))) + (if (gx#stx-pair? _%tl122091122112%_) + (let ((_%e122092122115%_ + (gx#syntax-e _%tl122091122112%_))) + (let ((_%hd122093122118%_ + (##car _%e122092122115%_)) + (_%tl122094122120%_ + (##cdr _%e122092122115%_))) + (let ((_%id122123%_ _%hd122093122118%_)) + (if (gx#stx-pair? _%tl122094122120%_) + (let ((_%e122095122125%_ (gx#syntax-e - _%tl121820121846%_))) - (let ((_%hd121822121854%_ - (##car _%e121821121851%_)) - (_%tl121823121856%_ - (##cdr _%e121821121851%_))) - (let ((_%expr121859%_ - _%hd121822121854%_)) + _%tl122094122120%_))) + (let ((_%hd122096122128%_ + (##car _%e122095122125%_)) + (_%tl122097122130%_ + (##cdr _%e122095122125%_))) + (let ((_%expr122133%_ + _%hd122096122128%_)) (if (gx#stx-null? - _%tl121823121856%_) + _%tl122097122130%_) (if (gx#identifier? - _%id121849%_) + _%id122123%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#set!) (cons (gx#core-quote-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id121849%_ - _%stx121811%_) - (cons (gx#core-expand-expression _%expr121859%_) + _%id122123%_ + _%stx122085%_) + (cons (gx#core-expand-expression _%expr122133%_) '()))) - (gx#stx-source _%stx121811%_)) - (_%E121814121829%_)) + (gx#stx-source _%stx122085%_)) + (_%E122088122103%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121814121829%_))))) - (_%E121814121829%_))))) - (_%E121814121829%_)))) - (_%E121814121829%_))))) - (_%E121813121861%_)))) + (_%E122088122103%_))))) + (_%E122088122103%_))))) + (_%E122088122103%_)))) + (_%E122088122103%_))))) + (_%E122087122135%_)))) (define gx#macro-expand-extern - (lambda (_%stx121656%_) - (letrec ((_%generate121658%_ - (lambda (_%body121688%_) - (let _%lp121690%_ ((_%rest121692%_ _%body121688%_) - (_%ns121693%_ + (lambda (_%stx121930%_) + (letrec ((_%generate121932%_ + (lambda (_%body121962%_) + (let _%lp121964%_ ((_%rest121966%_ _%body121962%_) + (_%ns121967%_ (gx#core-context-namespace__0)) - (_%r121694%_ '())) - (let* ((_%e121695121710%_ _%rest121692%_) - (_%E121708121714%_ + (_%r121968%_ '())) + (let* ((_%e121969121984%_ _%rest121966%_) + (_%E121982121988%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121695121710%_))) - (_%E121704121718%_ + _%e121969121984%_))) + (_%E121978121992%_ (lambda () - (if (gx#stx-null? _%e121695121710%_) - (reverse _%r121694%_) - (_%E121708121714%_)))) - (_%E121697121775%_ + (if (gx#stx-null? _%e121969121984%_) + (reverse _%r121968%_) + (_%E121982121988%_)))) + (_%E121971122049%_ (lambda () - (if (gx#stx-pair? _%e121695121710%_) - (let ((_%e121705121722%_ - (gx#syntax-e _%e121695121710%_))) - (let ((_%hd121706121725%_ - (##car _%e121705121722%_)) - (_%tl121707121727%_ - (##cdr _%e121705121722%_))) - (let* ((_%hd121730%_ - _%hd121706121725%_) - (_%rest121732%_ - _%tl121707121727%_)) - (if (gx#identifier? _%hd121730%_) - (_%lp121690%_ - _%rest121732%_ - _%ns121693%_ - (cons (cons _%hd121730%_ - (cons (if _%ns121693%_ + (if (gx#stx-pair? _%e121969121984%_) + (let ((_%e121979121996%_ + (gx#syntax-e _%e121969121984%_))) + (let ((_%hd121980121999%_ + (##car _%e121979121996%_)) + (_%tl121981122001%_ + (##cdr _%e121979121996%_))) + (let* ((_%hd122004%_ + _%hd121980121999%_) + (_%rest122006%_ + _%tl121981122001%_)) + (if (gx#identifier? _%hd122004%_) + (_%lp121964%_ + _%rest122006%_ + _%ns121967%_ + (cons (cons _%hd122004%_ + (cons (if _%ns121967%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-identifier - _%hd121730%_ - _%ns121693%_ + _%hd122004%_ + _%ns121967%_ '"#" - _%hd121730%_) - _%hd121730%_) + _%hd122004%_) + _%hd122004%_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r121694%_)) - (let* ((_%e121733121743%_ - _%hd121730%_) - (_%E121735121747%_ + _%r121968%_)) + (let* ((_%e122007122017%_ + _%hd122004%_) + (_%E122009122021%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121733121743%_))) - (_%E121734121771%_ + _%e122007122017%_))) + (_%E122008122045%_ (lambda () (if (gx#stx-pair? - _%e121733121743%_) - (let ((_%e121736121751%_ + _%e122007122017%_) + (let ((_%e122010122025%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%e121733121743%_))) - (let ((_%hd121737121754%_ (##car _%e121736121751%_)) - (_%tl121738121756%_ (##cdr _%e121736121751%_))) - (let ((_%id121759%_ _%hd121737121754%_)) - (if (gx#stx-pair? _%tl121738121756%_) - (let ((_%e121739121761%_ - (gx#syntax-e _%tl121738121756%_))) - (let ((_%hd121740121764%_ - (##car _%e121739121761%_)) - (_%tl121741121766%_ - (##cdr _%e121739121761%_))) - (let ((_%eid121769%_ _%hd121740121764%_)) - (if (gx#stx-null? _%tl121741121766%_) - (if (and (gx#identifier? _%id121759%_) + (gx#syntax-e _%e122007122017%_))) + (let ((_%hd122011122028%_ (##car _%e122010122025%_)) + (_%tl122012122030%_ (##cdr _%e122010122025%_))) + (let ((_%id122033%_ _%hd122011122028%_)) + (if (gx#stx-pair? _%tl122012122030%_) + (let ((_%e122013122035%_ + (gx#syntax-e _%tl122012122030%_))) + (let ((_%hd122014122038%_ + (##car _%e122013122035%_)) + (_%tl122015122040%_ + (##cdr _%e122013122035%_))) + (let ((_%eid122043%_ _%hd122014122038%_)) + (if (gx#stx-null? _%tl122015122040%_) + (if (and (gx#identifier? _%id122033%_) (gx#identifier? - _%eid121769%_)) - (_%lp121690%_ - _%rest121732%_ - _%ns121693%_ - (cons (cons _%id121759%_ - (cons _%eid121769%_ + _%eid122043%_)) + (_%lp121964%_ + _%rest122006%_ + _%ns121967%_ + (cons (cons _%id122033%_ + (cons _%eid122043%_ '())) - _%r121694%_)) - (_%E121735121747%_)) - (_%E121735121747%_))))) - (_%E121735121747%_))))) - (_%E121735121747%_))))) + _%r121968%_)) + (_%E122009122021%_)) + (_%E122009122021%_))))) + (_%E122009122021%_))))) + (_%E122009122021%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121734121771%_)))))) - (_%E121704121718%_)))) - (_%E121696121807%_ + (_%E122008122045%_)))))) + (_%E121978121992%_)))) + (_%E121970122081%_ (lambda () - (if (gx#stx-pair? _%e121695121710%_) - (let ((_%e121698121779%_ - (gx#syntax-e _%e121695121710%_))) - (let ((_%hd121699121782%_ - (##car _%e121698121779%_)) - (_%tl121700121784%_ - (##cdr _%e121698121779%_))) - (if (eq? (gx#stx-e _%hd121699121782%_) + (if (gx#stx-pair? _%e121969121984%_) + (let ((_%e121972122053%_ + (gx#syntax-e _%e121969121984%_))) + (let ((_%hd121973122056%_ + (##car _%e121972122053%_)) + (_%tl121974122058%_ + (##cdr _%e121972122053%_))) + (if (eq? (gx#stx-e _%hd121973122056%_) 'namespace:) (if (gx#stx-pair? - _%tl121700121784%_) - (let ((_%e121701121787%_ + _%tl121974122058%_) + (let ((_%e121975122061%_ (gx#syntax-e - _%tl121700121784%_))) - (let ((_%hd121702121790%_ - (##car _%e121701121787%_)) - (_%tl121703121792%_ - (##cdr _%e121701121787%_))) - (let* ((_%ns121795%_ - _%hd121702121790%_) - (_%rest121797%_ - _%tl121703121792%_) - (_%ns121805%_ + _%tl121974122058%_))) + (let ((_%hd121976122064%_ + (##car _%e121975122061%_)) + (_%tl121977122066%_ + (##cdr _%e121975122061%_))) + (let* ((_%ns122069%_ + _%hd121976122064%_) + (_%rest122071%_ + _%tl121977122066%_) + (_%ns122079%_ (if (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%ns121795%_) - (symbol->string (gx#stx-e _%ns121795%_)) - (if (or (gx#stx-string? _%ns121795%_) - (gx#stx-false? _%ns121795%_)) - (gx#stx-e _%ns121795%_) + _%ns122069%_) + (symbol->string (gx#stx-e _%ns122069%_)) + (if (or (gx#stx-string? _%ns122069%_) + (gx#stx-false? _%ns122069%_)) + (gx#stx-e _%ns122069%_) (gx#raise-syntax-error '#f '"Bad syntax; extern expects namespace identifier" - _%stx121656%_ - _%ns121795%_))))) - (_%lp121690%_ _%rest121797%_ _%ns121805%_ _%r121694%_)))) + _%stx121930%_ + _%ns122069%_))))) + (_%lp121964%_ _%rest122071%_ _%ns122079%_ _%r121968%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121697121775%_)) - (_%E121697121775%_)))) - (_%E121697121775%_))))) - (_%E121696121807%_)))))) - (let* ((_%e121659121666%_ _%stx121656%_) - (_%E121661121670%_ + (_%E121971122049%_)) + (_%E121971122049%_)))) + (_%E121971122049%_))))) + (_%E121970122081%_)))))) + (let* ((_%e121933121940%_ _%stx121930%_) + (_%E121935121944%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121659121666%_))) - (_%E121660121684%_ + _%e121933121940%_))) + (_%E121934121958%_ (lambda () - (if (gx#stx-pair? _%e121659121666%_) - (let ((_%e121662121674%_ - (gx#syntax-e _%e121659121666%_))) - (let ((_%hd121663121677%_ (##car _%e121662121674%_)) - (_%tl121664121679%_ (##cdr _%e121662121674%_))) - (let ((_%body121682%_ _%tl121664121679%_)) - (if (gx#stx-list? _%body121682%_) + (if (gx#stx-pair? _%e121933121940%_) + (let ((_%e121936121948%_ + (gx#syntax-e _%e121933121940%_))) + (let ((_%hd121937121951%_ (##car _%e121936121948%_)) + (_%tl121938121953%_ (##cdr _%e121936121948%_))) + (let ((_%body121956%_ _%tl121938121953%_)) + (if (gx#stx-list? _%body121956%_) (gx#core-cons '%#extern - (_%generate121658%_ _%body121682%_)) - (_%E121661121670%_))))) - (_%E121661121670%_))))) - (_%E121660121684%_))))) + (_%generate121932%_ _%body121956%_)) + (_%E121935121944%_))))) + (_%E121935121944%_))))) + (_%E121934121958%_))))) (define gx#macro-expand-define-values - (lambda (_%stx121602%_) - (let* ((_%e121603121616%_ _%stx121602%_) - (_%E121605121620%_ + (lambda (_%stx121876%_) + (let* ((_%e121877121890%_ _%stx121876%_) + (_%E121879121894%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121603121616%_))) - (_%E121604121652%_ + _%e121877121890%_))) + (_%E121878121926%_ (lambda () - (if (gx#stx-pair? _%e121603121616%_) - (let ((_%e121606121624%_ - (gx#syntax-e _%e121603121616%_))) - (let ((_%hd121607121627%_ (##car _%e121606121624%_)) - (_%tl121608121629%_ (##cdr _%e121606121624%_))) - (if (gx#stx-pair? _%tl121608121629%_) - (let ((_%e121609121632%_ - (gx#syntax-e _%tl121608121629%_))) - (let ((_%hd121610121635%_ - (##car _%e121609121632%_)) - (_%tl121611121637%_ - (##cdr _%e121609121632%_))) - (let ((_%hd121640%_ _%hd121610121635%_)) - (if (gx#stx-pair? _%tl121611121637%_) - (let ((_%e121612121642%_ + (if (gx#stx-pair? _%e121877121890%_) + (let ((_%e121880121898%_ + (gx#syntax-e _%e121877121890%_))) + (let ((_%hd121881121901%_ (##car _%e121880121898%_)) + (_%tl121882121903%_ (##cdr _%e121880121898%_))) + (if (gx#stx-pair? _%tl121882121903%_) + (let ((_%e121883121906%_ + (gx#syntax-e _%tl121882121903%_))) + (let ((_%hd121884121909%_ + (##car _%e121883121906%_)) + (_%tl121885121911%_ + (##cdr _%e121883121906%_))) + (let ((_%hd121914%_ _%hd121884121909%_)) + (if (gx#stx-pair? _%tl121885121911%_) + (let ((_%e121886121916%_ (gx#syntax-e - _%tl121611121637%_))) - (let ((_%hd121613121645%_ - (##car _%e121612121642%_)) - (_%tl121614121647%_ - (##cdr _%e121612121642%_))) - (let ((_%expr121650%_ - _%hd121613121645%_)) + _%tl121885121911%_))) + (let ((_%hd121887121919%_ + (##car _%e121886121916%_)) + (_%tl121888121921%_ + (##cdr _%e121886121916%_))) + (let ((_%expr121924%_ + _%hd121887121919%_)) (if (gx#stx-null? - _%tl121614121647%_) + _%tl121888121921%_) (if (gx#stx-andmap gx#identifier? - _%hd121640%_) + _%hd121914%_) (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< identity - _%hd121640%_) - (cons _%expr121650%_ '()))) - (_%E121605121620%_)) + _%hd121914%_) + (cons _%expr121924%_ '()))) + (_%E121879121894%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121605121620%_))))) - (_%E121605121620%_))))) - (_%E121605121620%_)))) - (_%E121605121620%_))))) - (_%E121604121652%_)))) + (_%E121879121894%_))))) + (_%E121879121894%_))))) + (_%E121879121894%_)))) + (_%E121879121894%_))))) + (_%E121878121926%_)))) (define gx#macro-expand-define-syntax - (lambda (_%stx121548%_) - (let* ((_%e121549121562%_ _%stx121548%_) - (_%E121551121566%_ + (lambda (_%stx121822%_) + (let* ((_%e121823121836%_ _%stx121822%_) + (_%E121825121840%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121549121562%_))) - (_%E121550121598%_ + _%e121823121836%_))) + (_%E121824121872%_ (lambda () - (if (gx#stx-pair? _%e121549121562%_) - (let ((_%e121552121570%_ - (gx#syntax-e _%e121549121562%_))) - (let ((_%hd121553121573%_ (##car _%e121552121570%_)) - (_%tl121554121575%_ (##cdr _%e121552121570%_))) - (if (gx#stx-pair? _%tl121554121575%_) - (let ((_%e121555121578%_ - (gx#syntax-e _%tl121554121575%_))) - (let ((_%hd121556121581%_ - (##car _%e121555121578%_)) - (_%tl121557121583%_ - (##cdr _%e121555121578%_))) - (let ((_%hd121586%_ _%hd121556121581%_)) - (if (gx#stx-pair? _%tl121557121583%_) - (let ((_%e121558121588%_ + (if (gx#stx-pair? _%e121823121836%_) + (let ((_%e121826121844%_ + (gx#syntax-e _%e121823121836%_))) + (let ((_%hd121827121847%_ (##car _%e121826121844%_)) + (_%tl121828121849%_ (##cdr _%e121826121844%_))) + (if (gx#stx-pair? _%tl121828121849%_) + (let ((_%e121829121852%_ + (gx#syntax-e _%tl121828121849%_))) + (let ((_%hd121830121855%_ + (##car _%e121829121852%_)) + (_%tl121831121857%_ + (##cdr _%e121829121852%_))) + (let ((_%hd121860%_ _%hd121830121855%_)) + (if (gx#stx-pair? _%tl121831121857%_) + (let ((_%e121832121862%_ (gx#syntax-e - _%tl121557121583%_))) - (let ((_%hd121559121591%_ - (##car _%e121558121588%_)) - (_%tl121560121593%_ - (##cdr _%e121558121588%_))) - (let ((_%expr121596%_ - _%hd121559121591%_)) + _%tl121831121857%_))) + (let ((_%hd121833121865%_ + (##car _%e121832121862%_)) + (_%tl121834121867%_ + (##cdr _%e121832121862%_))) + (let ((_%expr121870%_ + _%hd121833121865%_)) (if (gx#stx-null? - _%tl121560121593%_) + _%tl121834121867%_) (if (gx#identifier? - _%hd121586%_) + _%hd121860%_) (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons _%hd121586%_ + (cons _%hd121860%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr121596%_ '()))) - (_%E121551121566%_)) + (cons _%expr121870%_ '()))) + (_%E121825121840%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121551121566%_))))) - (_%E121551121566%_))))) - (_%E121551121566%_)))) - (_%E121551121566%_))))) - (_%E121550121598%_)))) + (_%E121825121840%_))))) + (_%E121825121840%_))))) + (_%E121825121840%_)))) + (_%E121825121840%_))))) + (_%E121824121872%_)))) (define gx#macro-expand-define-alias - (lambda (_%stx121494%_) - (let* ((_%e121495121508%_ _%stx121494%_) - (_%E121497121512%_ + (lambda (_%stx121768%_) + (let* ((_%e121769121782%_ _%stx121768%_) + (_%E121771121786%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121495121508%_))) - (_%E121496121544%_ + _%e121769121782%_))) + (_%E121770121818%_ (lambda () - (if (gx#stx-pair? _%e121495121508%_) - (let ((_%e121498121516%_ - (gx#syntax-e _%e121495121508%_))) - (let ((_%hd121499121519%_ (##car _%e121498121516%_)) - (_%tl121500121521%_ (##cdr _%e121498121516%_))) - (if (gx#stx-pair? _%tl121500121521%_) - (let ((_%e121501121524%_ - (gx#syntax-e _%tl121500121521%_))) - (let ((_%hd121502121527%_ - (##car _%e121501121524%_)) - (_%tl121503121529%_ - (##cdr _%e121501121524%_))) - (let ((_%id121532%_ _%hd121502121527%_)) - (if (gx#stx-pair? _%tl121503121529%_) - (let ((_%e121504121534%_ + (if (gx#stx-pair? _%e121769121782%_) + (let ((_%e121772121790%_ + (gx#syntax-e _%e121769121782%_))) + (let ((_%hd121773121793%_ (##car _%e121772121790%_)) + (_%tl121774121795%_ (##cdr _%e121772121790%_))) + (if (gx#stx-pair? _%tl121774121795%_) + (let ((_%e121775121798%_ + (gx#syntax-e _%tl121774121795%_))) + (let ((_%hd121776121801%_ + (##car _%e121775121798%_)) + (_%tl121777121803%_ + (##cdr _%e121775121798%_))) + (let ((_%id121806%_ _%hd121776121801%_)) + (if (gx#stx-pair? _%tl121777121803%_) + (let ((_%e121778121808%_ (gx#syntax-e - _%tl121503121529%_))) - (let ((_%hd121505121537%_ - (##car _%e121504121534%_)) - (_%tl121506121539%_ - (##cdr _%e121504121534%_))) - (let ((_%alias-id121542%_ - _%hd121505121537%_)) + _%tl121777121803%_))) + (let ((_%hd121779121811%_ + (##car _%e121778121808%_)) + (_%tl121780121813%_ + (##cdr _%e121778121808%_))) + (let ((_%alias-id121816%_ + _%hd121779121811%_)) (if (gx#stx-null? - _%tl121506121539%_) + _%tl121780121813%_) (if (and (gx#identifier? - _%id121532%_) + _%id121806%_) (gx#identifier? - _%alias-id121542%_)) + _%alias-id121816%_)) (cons (gx#core-quote-syntax__0 '%#define-alias) - (cons _%id121532%_ + (cons _%id121806%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%alias-id121542%_ '()))) - (_%E121497121512%_)) + (cons _%alias-id121816%_ '()))) + (_%E121771121786%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121497121512%_))))) - (_%E121497121512%_))))) - (_%E121497121512%_)))) - (_%E121497121512%_))))) - (_%E121496121544%_)))) + (_%E121771121786%_))))) + (_%E121771121786%_))))) + (_%E121771121786%_)))) + (_%E121771121786%_))))) + (_%E121770121818%_)))) (define gx#macro-expand-lambda% - (lambda (_%stx121451%_) - (let* ((_%e121452121462%_ _%stx121451%_) - (_%E121454121466%_ + (lambda (_%stx121725%_) + (let* ((_%e121726121736%_ _%stx121725%_) + (_%E121728121740%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121452121462%_))) - (_%E121453121490%_ + _%e121726121736%_))) + (_%E121727121764%_ (lambda () - (if (gx#stx-pair? _%e121452121462%_) - (let ((_%e121455121470%_ - (gx#syntax-e _%e121452121462%_))) - (let ((_%hd121456121473%_ (##car _%e121455121470%_)) - (_%tl121457121475%_ (##cdr _%e121455121470%_))) - (if (gx#stx-pair? _%tl121457121475%_) - (let ((_%e121458121478%_ - (gx#syntax-e _%tl121457121475%_))) - (let ((_%hd121459121481%_ - (##car _%e121458121478%_)) - (_%tl121460121483%_ - (##cdr _%e121458121478%_))) - (let* ((_%hd121486%_ _%hd121459121481%_) - (_%body121488%_ _%tl121460121483%_)) + (if (gx#stx-pair? _%e121726121736%_) + (let ((_%e121729121744%_ + (gx#syntax-e _%e121726121736%_))) + (let ((_%hd121730121747%_ (##car _%e121729121744%_)) + (_%tl121731121749%_ (##cdr _%e121729121744%_))) + (if (gx#stx-pair? _%tl121731121749%_) + (let ((_%e121732121752%_ + (gx#syntax-e _%tl121731121749%_))) + (let ((_%hd121733121755%_ + (##car _%e121732121752%_)) + (_%tl121734121757%_ + (##cdr _%e121732121752%_))) + (let* ((_%hd121760%_ _%hd121733121755%_) + (_%body121762%_ _%tl121734121757%_)) (if (and (gx#stx-andmap gx#identifier? - _%hd121486%_) - (gx#stx-list? _%body121488%_) + _%hd121760%_) + (gx#stx-list? _%body121762%_) (not (gx#stx-null? - _%body121488%_))) + _%body121762%_))) (gx#core-cons* '%#lambda - (gx#stx-map1 identity _%hd121486%_) - _%body121488%_) - (_%E121454121466%_))))) - (_%E121454121466%_)))) - (_%E121454121466%_))))) - (_%E121453121490%_)))) + (gx#stx-map1 identity _%hd121760%_) + _%body121762%_) + (_%E121728121740%_))))) + (_%E121728121740%_)))) + (_%E121728121740%_))))) + (_%E121727121764%_)))) (define gx#macro-expand-case-lambda - (lambda (_%stx121387%_) - (letrec ((_%generate121389%_ - (lambda (_%clause121419%_) - (let* ((_%e121420121427%_ _%clause121419%_) - (_%E121422121431%_ + (lambda (_%stx121661%_) + (letrec ((_%generate121663%_ + (lambda (_%clause121693%_) + (let* ((_%e121694121701%_ _%clause121693%_) + (_%E121696121705%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed clause" - _%stx121387%_ - _%clause121419%_))) - (_%E121421121447%_ + _%stx121661%_ + _%clause121693%_))) + (_%E121695121721%_ (lambda () - (if (gx#stx-pair? _%e121420121427%_) - (let ((_%e121423121435%_ - (gx#syntax-e _%e121420121427%_))) - (let ((_%hd121424121438%_ - (##car _%e121423121435%_)) - (_%tl121425121440%_ - (##cdr _%e121423121435%_))) - (let* ((_%hd121443%_ _%hd121424121438%_) - (_%body121445%_ - _%tl121425121440%_)) + (if (gx#stx-pair? _%e121694121701%_) + (let ((_%e121697121709%_ + (gx#syntax-e _%e121694121701%_))) + (let ((_%hd121698121712%_ + (##car _%e121697121709%_)) + (_%tl121699121714%_ + (##cdr _%e121697121709%_))) + (let* ((_%hd121717%_ _%hd121698121712%_) + (_%body121719%_ + _%tl121699121714%_)) (if (and (gx#stx-andmap gx#identifier? - _%hd121443%_) - (gx#stx-list? _%body121445%_) + _%hd121717%_) + (gx#stx-list? _%body121719%_) (not (gx#stx-null? - _%body121445%_))) + _%body121719%_))) (gx#stx-wrap-source (cons (gx#stx-map1 identity - _%hd121443%_) - _%body121445%_) - (gx#stx-source _%clause121419%_)) - (_%E121422121431%_))))) - (_%E121422121431%_))))) - (_%E121421121447%_))))) - (let* ((_%e121390121397%_ _%stx121387%_) - (_%E121392121401%_ + _%hd121717%_) + _%body121719%_) + (gx#stx-source _%clause121693%_)) + (_%E121696121705%_))))) + (_%E121696121705%_))))) + (_%E121695121721%_))))) + (let* ((_%e121664121671%_ _%stx121661%_) + (_%E121666121675%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121390121397%_))) - (_%E121391121415%_ + _%e121664121671%_))) + (_%E121665121689%_ (lambda () - (if (gx#stx-pair? _%e121390121397%_) - (let ((_%e121393121405%_ - (gx#syntax-e _%e121390121397%_))) - (let ((_%hd121394121408%_ (##car _%e121393121405%_)) - (_%tl121395121410%_ (##cdr _%e121393121405%_))) - (let ((_%clauses121413%_ _%tl121395121410%_)) - (if (gx#stx-list? _%clauses121413%_) + (if (gx#stx-pair? _%e121664121671%_) + (let ((_%e121667121679%_ + (gx#syntax-e _%e121664121671%_))) + (let ((_%hd121668121682%_ (##car _%e121667121679%_)) + (_%tl121669121684%_ (##cdr _%e121667121679%_))) + (let ((_%clauses121687%_ _%tl121669121684%_)) + (if (gx#stx-list? _%clauses121687%_) (gx#core-cons '%#case-lambda (gx#stx-map1 - _%generate121389%_ - _%clauses121413%_)) - (_%E121392121401%_))))) - (_%E121392121401%_))))) - (_%E121391121415%_))))) + _%generate121663%_ + _%clauses121687%_)) + (_%E121666121675%_))))) + (_%E121666121675%_))))) + (_%E121665121689%_))))) (define gx#macro-expand-let-values__% - (lambda (_%stx121288%_ _%form121289%_) - (letrec ((_%generate121291%_ - (lambda (_%bind121334%_) - (let* ((_%e121335121345%_ _%bind121334%_) - (_%E121337121349%_ + (lambda (_%stx121562%_ _%form121563%_) + (letrec ((_%generate121565%_ + (lambda (_%bind121608%_) + (let* ((_%e121609121619%_ _%bind121608%_) + (_%E121611121623%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed binding" - _%stx121288%_ - _%bind121334%_))) - (_%E121336121373%_ + _%stx121562%_ + _%bind121608%_))) + (_%E121610121647%_ (lambda () - (if (gx#stx-pair? _%e121335121345%_) - (let ((_%e121338121353%_ - (gx#syntax-e _%e121335121345%_))) - (let ((_%hd121339121356%_ - (##car _%e121338121353%_)) - (_%tl121340121358%_ - (##cdr _%e121338121353%_))) - (let ((_%ids121361%_ _%hd121339121356%_)) - (if (gx#stx-pair? _%tl121340121358%_) - (let ((_%e121341121363%_ + (if (gx#stx-pair? _%e121609121619%_) + (let ((_%e121612121627%_ + (gx#syntax-e _%e121609121619%_))) + (let ((_%hd121613121630%_ + (##car _%e121612121627%_)) + (_%tl121614121632%_ + (##cdr _%e121612121627%_))) + (let ((_%ids121635%_ _%hd121613121630%_)) + (if (gx#stx-pair? _%tl121614121632%_) + (let ((_%e121615121637%_ (gx#syntax-e - _%tl121340121358%_))) - (let ((_%hd121342121366%_ - (##car _%e121341121363%_)) - (_%tl121343121368%_ - (##cdr _%e121341121363%_))) - (let ((_%expr121371%_ - _%hd121342121366%_)) + _%tl121614121632%_))) + (let ((_%hd121616121640%_ + (##car _%e121615121637%_)) + (_%tl121617121642%_ + (##cdr _%e121615121637%_))) + (let ((_%expr121645%_ + _%hd121616121640%_)) (if (gx#stx-null? - _%tl121343121368%_) + _%tl121617121642%_) (if (gx#stx-andmap gx#identifier? - _%ids121361%_) + _%ids121635%_) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< identity - _%ids121361%_) - (cons _%expr121371%_ '())) - (_%E121337121349%_)) - (_%E121337121349%_))))) + _%ids121635%_) + (cons _%expr121645%_ '())) + (_%E121611121623%_)) + (_%E121611121623%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121337121349%_))))) - (_%E121337121349%_))))) - (_%E121336121373%_))))) - (let* ((_%e121292121302%_ _%stx121288%_) - (_%E121294121306%_ + (_%E121611121623%_))))) + (_%E121611121623%_))))) + (_%E121610121647%_))))) + (let* ((_%e121566121576%_ _%stx121562%_) + (_%E121568121580%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121292121302%_))) - (_%E121293121330%_ + _%e121566121576%_))) + (_%E121567121604%_ (lambda () - (if (gx#stx-pair? _%e121292121302%_) - (let ((_%e121295121310%_ - (gx#syntax-e _%e121292121302%_))) - (let ((_%hd121296121313%_ (##car _%e121295121310%_)) - (_%tl121297121315%_ (##cdr _%e121295121310%_))) - (if (gx#stx-pair? _%tl121297121315%_) - (let ((_%e121298121318%_ - (gx#syntax-e _%tl121297121315%_))) - (let ((_%hd121299121321%_ - (##car _%e121298121318%_)) - (_%tl121300121323%_ - (##cdr _%e121298121318%_))) - (let* ((_%hd121326%_ _%hd121299121321%_) - (_%body121328%_ _%tl121300121323%_)) - (if (and (gx#stx-list? _%hd121326%_) - (gx#stx-list? _%body121328%_) + (if (gx#stx-pair? _%e121566121576%_) + (let ((_%e121569121584%_ + (gx#syntax-e _%e121566121576%_))) + (let ((_%hd121570121587%_ (##car _%e121569121584%_)) + (_%tl121571121589%_ (##cdr _%e121569121584%_))) + (if (gx#stx-pair? _%tl121571121589%_) + (let ((_%e121572121592%_ + (gx#syntax-e _%tl121571121589%_))) + (let ((_%hd121573121595%_ + (##car _%e121572121592%_)) + (_%tl121574121597%_ + (##cdr _%e121572121592%_))) + (let* ((_%hd121600%_ _%hd121573121595%_) + (_%body121602%_ _%tl121574121597%_)) + (if (and (gx#stx-list? _%hd121600%_) + (gx#stx-list? _%body121602%_) (not (gx#stx-null? - _%body121328%_))) + _%body121602%_))) (gx#core-cons* - _%form121289%_ + _%form121563%_ (gx#stx-map1 - _%generate121291%_ - _%hd121326%_) - _%body121328%_) - (_%E121294121306%_))))) - (_%E121294121306%_)))) - (_%E121294121306%_))))) - (_%E121293121330%_))))) + _%generate121565%_ + _%hd121600%_) + _%body121602%_) + (_%E121568121580%_))))) + (_%E121568121580%_)))) + (_%E121568121580%_))))) + (_%E121567121604%_))))) (define gx#macro-expand-let-values__0 - (lambda (_%stx121380%_) - (let ((_%form121382%_ '%#let-values)) - (gx#macro-expand-let-values__% _%stx121380%_ _%form121382%_)))) + (lambda (_%stx121654%_) + (let ((_%form121656%_ '%#let-values)) + (gx#macro-expand-let-values__% _%stx121654%_ _%form121656%_)))) (define gx#macro-expand-let-values - (lambda _g123769_ - (let ((_g123768_ (##length _g123769_))) - (cond ((##fx= _g123768_ 1) - (apply gx#macro-expand-let-values__0 _g123769_)) - ((##fx= _g123768_ 2) - (apply gx#macro-expand-let-values__% _g123769_)) + (lambda _g124043_ + (let ((_g124042_ (##length _g124043_))) + (cond ((##fx= _g124042_ 1) + (apply gx#macro-expand-let-values__0 _g124043_)) + ((##fx= _g124042_ 2) + (apply gx#macro-expand-let-values__% _g124043_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-let-values - _g123769_)))))) + _g124043_)))))) (define gx#macro-expand-letrec-values - (lambda (_%stx121285%_) - (gx#macro-expand-let-values__% _%stx121285%_ '%#letrec-values))) + (lambda (_%stx121559%_) + (gx#macro-expand-let-values__% _%stx121559%_ '%#letrec-values))) (define gx#macro-expand-letrec*-values - (lambda (_%stx121283%_) - (gx#macro-expand-let-values__% _%stx121283%_ '%#letrec*-values))) + (lambda (_%stx121557%_) + (gx#macro-expand-let-values__% _%stx121557%_ '%#letrec*-values))) (define gx#macro-expand-if - (lambda (_%stx121174%_) - (let* ((_%e121175121201%_ _%stx121174%_) - (_%E121187121205%_ + (lambda (_%stx121448%_) + (let* ((_%e121449121475%_ _%stx121448%_) + (_%E121461121479%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e121175121201%_))) - (_%E121177121247%_ + _%e121449121475%_))) + (_%E121451121521%_ (lambda () - (if (gx#stx-pair? _%e121175121201%_) - (let ((_%e121188121209%_ - (gx#syntax-e _%e121175121201%_))) - (let ((_%hd121189121212%_ (##car _%e121188121209%_)) - (_%tl121190121214%_ (##cdr _%e121188121209%_))) - (if (gx#stx-pair? _%tl121190121214%_) - (let ((_%e121191121217%_ - (gx#syntax-e _%tl121190121214%_))) - (let ((_%hd121192121220%_ - (##car _%e121191121217%_)) - (_%tl121193121222%_ - (##cdr _%e121191121217%_))) - (let ((_%test121225%_ _%hd121192121220%_)) - (if (gx#stx-pair? _%tl121193121222%_) - (let ((_%e121194121227%_ + (if (gx#stx-pair? _%e121449121475%_) + (let ((_%e121462121483%_ + (gx#syntax-e _%e121449121475%_))) + (let ((_%hd121463121486%_ (##car _%e121462121483%_)) + (_%tl121464121488%_ (##cdr _%e121462121483%_))) + (if (gx#stx-pair? _%tl121464121488%_) + (let ((_%e121465121491%_ + (gx#syntax-e _%tl121464121488%_))) + (let ((_%hd121466121494%_ + (##car _%e121465121491%_)) + (_%tl121467121496%_ + (##cdr _%e121465121491%_))) + (let ((_%test121499%_ _%hd121466121494%_)) + (if (gx#stx-pair? _%tl121467121496%_) + (let ((_%e121468121501%_ (gx#syntax-e - _%tl121193121222%_))) - (let ((_%hd121195121230%_ - (##car _%e121194121227%_)) - (_%tl121196121232%_ - (##cdr _%e121194121227%_))) - (let ((_%K121235%_ - _%hd121195121230%_)) + _%tl121467121496%_))) + (let ((_%hd121469121504%_ + (##car _%e121468121501%_)) + (_%tl121470121506%_ + (##cdr _%e121468121501%_))) + (let ((_%K121509%_ + _%hd121469121504%_)) (if (gx#stx-pair? - _%tl121196121232%_) - (let ((_%e121197121237%_ + _%tl121470121506%_) + (let ((_%e121471121511%_ (gx#syntax-e - _%tl121196121232%_))) - (let ((_%hd121198121240%_ - (##car _%e121197121237%_)) - (_%tl121199121242%_ - (##cdr _%e121197121237%_))) - (let ((_%E121245%_ - _%hd121198121240%_)) + _%tl121470121506%_))) + (let ((_%hd121472121514%_ + (##car _%e121471121511%_)) + (_%tl121473121516%_ + (##cdr _%e121471121511%_))) + (let ((_%E121519%_ + _%hd121472121514%_)) (if (gx#stx-null? - _%tl121199121242%_) + _%tl121473121516%_) (gx#core-list '%#if - _%test121225%_ - _%K121235%_ - _%E121245%_) - (_%E121187121205%_))))) - (_%E121187121205%_))))) - (_%E121187121205%_))))) - (_%E121187121205%_)))) - (_%E121187121205%_)))) - (_%E121176121279%_ + _%test121499%_ + _%K121509%_ + _%E121519%_) + (_%E121461121479%_))))) + (_%E121461121479%_))))) + (_%E121461121479%_))))) + (_%E121461121479%_)))) + (_%E121461121479%_)))) + (_%E121450121553%_ (lambda () - (if (gx#stx-pair? _%e121175121201%_) - (let ((_%e121178121251%_ - (gx#syntax-e _%e121175121201%_))) - (let ((_%hd121179121254%_ (##car _%e121178121251%_)) - (_%tl121180121256%_ (##cdr _%e121178121251%_))) - (if (gx#stx-pair? _%tl121180121256%_) - (let ((_%e121181121259%_ - (gx#syntax-e _%tl121180121256%_))) - (let ((_%hd121182121262%_ - (##car _%e121181121259%_)) - (_%tl121183121264%_ - (##cdr _%e121181121259%_))) - (let ((_%test121267%_ _%hd121182121262%_)) - (if (gx#stx-pair? _%tl121183121264%_) - (let ((_%e121184121269%_ + (if (gx#stx-pair? _%e121449121475%_) + (let ((_%e121452121525%_ + (gx#syntax-e _%e121449121475%_))) + (let ((_%hd121453121528%_ (##car _%e121452121525%_)) + (_%tl121454121530%_ (##cdr _%e121452121525%_))) + (if (gx#stx-pair? _%tl121454121530%_) + (let ((_%e121455121533%_ + (gx#syntax-e _%tl121454121530%_))) + (let ((_%hd121456121536%_ + (##car _%e121455121533%_)) + (_%tl121457121538%_ + (##cdr _%e121455121533%_))) + (let ((_%test121541%_ _%hd121456121536%_)) + (if (gx#stx-pair? _%tl121457121538%_) + (let ((_%e121458121543%_ (gx#syntax-e - _%tl121183121264%_))) - (let ((_%hd121185121272%_ - (##car _%e121184121269%_)) - (_%tl121186121274%_ - (##cdr _%e121184121269%_))) - (let ((_%K121277%_ - _%hd121185121272%_)) + _%tl121457121538%_))) + (let ((_%hd121459121546%_ + (##car _%e121458121543%_)) + (_%tl121460121548%_ + (##cdr _%e121458121543%_))) + (let ((_%K121551%_ + _%hd121459121546%_)) (if (gx#stx-null? - _%tl121186121274%_) + _%tl121460121548%_) (gx#core-list '%#if - _%test121267%_ - _%K121277%_ + _%test121541%_ + _%K121551%_ '#!void) - (_%E121177121247%_))))) - (_%E121177121247%_))))) - (_%E121177121247%_)))) - (_%E121177121247%_))))) - (_%E121176121279%_)))) + (_%E121451121521%_))))) + (_%E121451121521%_))))) + (_%E121451121521%_)))) + (_%E121451121521%_))))) + (_%E121450121553%_)))) (define gx#free-identifier=? - (lambda (_%xid121159%_ _%yid121160%_) - (let ((_%xe121162%_ (gx#resolve-identifier__0 _%xid121159%_)) - (_%ye121163%_ (gx#resolve-identifier__0 _%yid121160%_))) - (if (and _%xe121162%_ _%ye121163%_) - (let ((_%$e121166%_ (eq? _%xe121162%_ _%ye121163%_))) - (if _%$e121166%_ - _%$e121166%_ - (if (##structure-instance-of? _%xe121162%_ 'gx#binding::t) + (lambda (_%xid121433%_ _%yid121434%_) + (let ((_%xe121436%_ (gx#resolve-identifier__0 _%xid121433%_)) + (_%ye121437%_ (gx#resolve-identifier__0 _%yid121434%_))) + (if (and _%xe121436%_ _%ye121437%_) + (let ((_%$e121440%_ (eq? _%xe121436%_ _%ye121437%_))) + (if _%$e121440%_ + _%$e121440%_ + (if (##structure-instance-of? _%xe121436%_ 'gx#binding::t) (if (##structure-instance-of? - _%ye121163%_ + _%ye121437%_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _%xe121162%_ + _%xe121436%_ '1 '#f '#f) (##unchecked-structure-ref - _%ye121163%_ + _%ye121437%_ '1 '#f '#f)) '#f) '#f))) - (if (or _%xe121162%_ _%ye121163%_) + (if (or _%xe121436%_ _%ye121437%_) '#f - (gx#stx-eq? _%xid121159%_ _%yid121160%_)))))) + (gx#stx-eq? _%xid121433%_ _%yid121434%_)))))) (define gx#bound-identifier=? - (lambda (_%xid121140%_ _%yid121141%_) - (letrec ((_%context121143%_ - (lambda (_%e121157%_) + (lambda (_%xid121414%_ _%yid121415%_) + (letrec ((_%context121417%_ + (lambda (_%e121431%_) (if (##structure-direct-instance-of? - _%e121157%_ + _%e121431%_ 'gx#syntax-quote::t) - (##unchecked-structure-ref _%e121157%_ '3 '#f '#f) + (##unchecked-structure-ref _%e121431%_ '3 '#f '#f) (gx#current-expander-context)))) - (_%marks121144%_ - (lambda (_%e121152%_) - (if (symbol? _%e121152%_) + (_%marks121418%_ + (lambda (_%e121426%_) + (if (symbol? _%e121426%_) '() (if (##structure-direct-instance-of? - _%e121152%_ + _%e121426%_ 'gx#identifier-wrap::t) - (##unchecked-structure-ref _%e121152%_ '3 '#f '#f) + (##unchecked-structure-ref _%e121426%_ '3 '#f '#f) (##unchecked-structure-ref - _%e121152%_ + _%e121426%_ '4 '#f '#f))))) - (_%unwrap121145%_ - (lambda (_%e121150%_) - (if (symbol? _%e121150%_) - _%e121150%_ - (gx#syntax-local-unwrap _%e121150%_))))) - (let ((_%x121147%_ (_%unwrap121145%_ _%xid121140%_)) - (_%y121148%_ (_%unwrap121145%_ _%yid121141%_))) - (if (gx#stx-eq? _%x121147%_ _%y121148%_) - (if (eq? (_%context121143%_ _%x121147%_) - (_%context121143%_ _%y121148%_)) - (equal? (_%marks121144%_ _%x121147%_) - (_%marks121144%_ _%y121148%_)) + (_%unwrap121419%_ + (lambda (_%e121424%_) + (if (symbol? _%e121424%_) + _%e121424%_ + (gx#syntax-local-unwrap _%e121424%_))))) + (let ((_%x121421%_ (_%unwrap121419%_ _%xid121414%_)) + (_%y121422%_ (_%unwrap121419%_ _%yid121415%_))) + (if (gx#stx-eq? _%x121421%_ _%y121422%_) + (if (eq? (_%context121417%_ _%x121421%_) + (_%context121417%_ _%y121422%_)) + (equal? (_%marks121418%_ _%x121421%_) + (_%marks121418%_ _%y121422%_)) '#f) '#f))))) (define gx#underscore? - (lambda (_%stx121138%_) - (if (gx#identifier? _%stx121138%_) - (gx#core-identifier=? _%stx121138%_ '_) + (lambda (_%stx121412%_) + (if (gx#identifier? _%stx121412%_) + (gx#core-identifier=? _%stx121412%_ '_) '#f))) (define gx#ellipsis? - (lambda (_%stx121136%_) - (if (gx#identifier? _%stx121136%_) - (gx#core-identifier=? _%stx121136%_ '...) + (lambda (_%stx121410%_) + (if (gx#identifier? _%stx121410%_) + (gx#core-identifier=? _%stx121410%_ '...) '#f))) (define gx#check-duplicate-identifiers__% - (lambda (_%stx121079%_ _%where121080%_) - (let _%lp121082%_ ((_%rest121084%_ (gx#syntax->list _%stx121079%_))) - (let* ((_%rest121085121093%_ _%rest121084%_) - (_%else121087121101%_ (lambda () '#t)) - (_%K121089121114%_ - (lambda (_%rest121104%_ _%hd121105%_) - (if (gx#identifier? _%hd121105%_) - (if (__find (lambda (_%g121107121109%_) + (lambda (_%stx121353%_ _%where121354%_) + (let _%lp121356%_ ((_%rest121358%_ (gx#syntax->list _%stx121353%_))) + (let* ((_%rest121359121367%_ _%rest121358%_) + (_%else121361121375%_ (lambda () '#t)) + (_%K121363121388%_ + (lambda (_%rest121378%_ _%hd121379%_) + (if (gx#identifier? _%hd121379%_) + (if (__find (lambda (_%g121381121383%_) (gx#bound-identifier=? - _%g121107121109%_ - _%hd121105%_)) - _%rest121104%_) + _%g121381121383%_ + _%hd121379%_)) + _%rest121378%_) (gx#raise-syntax-error '#f '"Duplicate identifier" - _%where121080%_ - _%hd121105%_) - (_%lp121082%_ _%rest121104%_)) + _%where121354%_ + _%hd121379%_) + (_%lp121356%_ _%rest121378%_)) (gx#raise-syntax-error '#f '"Bad identifier" - _%where121080%_ - _%hd121105%_))))) - (if (##pair? _%rest121085121093%_) - (let ((_%hd121090121117%_ (##car _%rest121085121093%_)) - (_%tl121091121119%_ (##cdr _%rest121085121093%_))) - (let* ((_%hd121122%_ _%hd121090121117%_) - (_%rest121124%_ _%tl121091121119%_)) - (_%K121089121114%_ _%rest121124%_ _%hd121122%_))) - (_%else121087121101%_)))))) + _%where121354%_ + _%hd121379%_))))) + (if (##pair? _%rest121359121367%_) + (let ((_%hd121364121391%_ (##car _%rest121359121367%_)) + (_%tl121365121393%_ (##cdr _%rest121359121367%_))) + (let* ((_%hd121396%_ _%hd121364121391%_) + (_%rest121398%_ _%tl121365121393%_)) + (_%K121363121388%_ _%rest121398%_ _%hd121396%_))) + (_%else121361121375%_)))))) (define gx#check-duplicate-identifiers__0 - (lambda (_%stx121129%_) - (let ((_%where121131%_ _%stx121129%_)) - (gx#check-duplicate-identifiers__% _%stx121129%_ _%where121131%_)))) + (lambda (_%stx121403%_) + (let ((_%where121405%_ _%stx121403%_)) + (gx#check-duplicate-identifiers__% _%stx121403%_ _%where121405%_)))) (define gx#check-duplicate-identifiers - (lambda _g123771_ - (let ((_g123770_ (##length _g123771_))) - (cond ((##fx= _g123770_ 1) - (apply gx#check-duplicate-identifiers__0 _g123771_)) - ((##fx= _g123770_ 2) - (apply gx#check-duplicate-identifiers__% _g123771_)) + (lambda _g124045_ + (let ((_g124044_ (##length _g124045_))) + (cond ((##fx= _g124044_ 1) + (apply gx#check-duplicate-identifiers__0 _g124045_)) + ((##fx= _g124044_ 2) + (apply gx#check-duplicate-identifiers__% _g124045_)) (else (##raise-wrong-number-of-arguments-exception gx#check-duplicate-identifiers - _g123771_)))))) + _g124045_)))))) (define gx#core-bind-values? - (lambda (_%stx121071%_) + (lambda (_%stx121345%_) (gx#stx-andmap - (lambda (_%x121073%_) - (let ((_%$e121075%_ (gx#identifier? _%x121073%_))) - (if _%$e121075%_ _%$e121075%_ (gx#stx-false? _%x121073%_)))) - _%stx121071%_))) + (lambda (_%x121347%_) + (let ((_%$e121349%_ (gx#identifier? _%x121347%_))) + (if _%$e121349%_ _%$e121349%_ (gx#stx-false? _%x121347%_)))) + _%stx121345%_))) (define gx#core-bind-values!__% - (lambda (_%stx121035%_ _%rebind?121036%_ _%phi121037%_ _%ctx121038%_) + (lambda (_%stx121309%_ _%rebind?121310%_ _%phi121311%_ _%ctx121312%_) (gx#stx-for-each1 - (lambda (_%id121040%_) - (if (gx#identifier? _%id121040%_) + (lambda (_%id121314%_) + (if (gx#identifier? _%id121314%_) (gx#core-bind-runtime!__% - _%id121040%_ - _%rebind?121036%_ - _%phi121037%_ - _%ctx121038%_) + _%id121314%_ + _%rebind?121310%_ + _%phi121311%_ + _%ctx121312%_) '#!void)) - _%stx121035%_))) + _%stx121309%_))) (define gx#core-bind-values!__0 - (lambda (_%stx121045%_) - (let* ((_%rebind?121047%_ '#f) - (_%phi121049%_ (gx#current-expander-phi)) - (_%ctx121051%_ (gx#current-expander-context))) + (lambda (_%stx121319%_) + (let* ((_%rebind?121321%_ '#f) + (_%phi121323%_ (gx#current-expander-phi)) + (_%ctx121325%_ (gx#current-expander-context))) (gx#core-bind-values!__% - _%stx121045%_ - _%rebind?121047%_ - _%phi121049%_ - _%ctx121051%_)))) + _%stx121319%_ + _%rebind?121321%_ + _%phi121323%_ + _%ctx121325%_)))) (define gx#core-bind-values!__1 - (lambda (_%stx121053%_ _%rebind?121054%_) - (let* ((_%phi121056%_ (gx#current-expander-phi)) - (_%ctx121058%_ (gx#current-expander-context))) + (lambda (_%stx121327%_ _%rebind?121328%_) + (let* ((_%phi121330%_ (gx#current-expander-phi)) + (_%ctx121332%_ (gx#current-expander-context))) (gx#core-bind-values!__% - _%stx121053%_ - _%rebind?121054%_ - _%phi121056%_ - _%ctx121058%_)))) + _%stx121327%_ + _%rebind?121328%_ + _%phi121330%_ + _%ctx121332%_)))) (define gx#core-bind-values!__2 - (lambda (_%stx121060%_ _%rebind?121061%_ _%phi121062%_) - (let ((_%ctx121064%_ (gx#current-expander-context))) + (lambda (_%stx121334%_ _%rebind?121335%_ _%phi121336%_) + (let ((_%ctx121338%_ (gx#current-expander-context))) (gx#core-bind-values!__% - _%stx121060%_ - _%rebind?121061%_ - _%phi121062%_ - _%ctx121064%_)))) + _%stx121334%_ + _%rebind?121335%_ + _%phi121336%_ + _%ctx121338%_)))) (define gx#core-bind-values! - (lambda _g123773_ - (let ((_g123772_ (##length _g123773_))) - (cond ((##fx= _g123772_ 1) (apply gx#core-bind-values!__0 _g123773_)) - ((##fx= _g123772_ 2) (apply gx#core-bind-values!__1 _g123773_)) - ((##fx= _g123772_ 3) (apply gx#core-bind-values!__2 _g123773_)) - ((##fx= _g123772_ 4) (apply gx#core-bind-values!__% _g123773_)) + (lambda _g124047_ + (let ((_g124046_ (##length _g124047_))) + (cond ((##fx= _g124046_ 1) (apply gx#core-bind-values!__0 _g124047_)) + ((##fx= _g124046_ 2) (apply gx#core-bind-values!__1 _g124047_)) + ((##fx= _g124046_ 3) (apply gx#core-bind-values!__2 _g124047_)) + ((##fx= _g124046_ 4) (apply gx#core-bind-values!__% _g124047_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-values! - _g123773_)))))) + _g124047_)))))) (define gx#core-quote-bind-values - (lambda (_%stx121030%_) + (lambda (_%stx121304%_) (gx#stx-map1 - (lambda (_%x121032%_) - (if (gx#identifier? _%x121032%_) - (gx#core-quote-syntax__0 _%x121032%_) + (lambda (_%x121306%_) + (if (gx#identifier? _%x121306%_) + (gx#core-quote-syntax__0 _%x121306%_) '#f)) - _%stx121030%_))) + _%stx121304%_))) (define gx#core-runtime-ref? - (lambda (_%stx121023%_) - (if (gx#identifier? _%stx121023%_) - (let* ((_%bind121025%_ (gx#resolve-identifier__0 _%stx121023%_)) - (_%$e121027%_ (not _%bind121025%_))) - (if _%$e121027%_ - _%$e121027%_ + (lambda (_%stx121297%_) + (if (gx#identifier? _%stx121297%_) + (let* ((_%bind121299%_ (gx#resolve-identifier__0 _%stx121297%_)) + (_%$e121301%_ (not _%bind121299%_))) + (if _%$e121301%_ + _%$e121301%_ (##structure-instance-of? - _%bind121025%_ + _%bind121299%_ 'gx#runtime-binding::t))) '#f))) (define gx#core-quote-runtime-ref - (lambda (_%id121012%_ _%form121013%_) - (let ((_%bind121015%_ (gx#resolve-identifier__0 _%id121012%_))) - (if (##structure-instance-of? _%bind121015%_ 'gx#runtime-binding::t) - (gx#core-quote-syntax__0 _%id121012%_) - (if (not _%bind121015%_) + (lambda (_%id121286%_ _%form121287%_) + (let ((_%bind121289%_ (gx#resolve-identifier__0 _%id121286%_))) + (if (##structure-instance-of? _%bind121289%_ 'gx#runtime-binding::t) + (gx#core-quote-syntax__0 _%id121286%_) + (if (not _%bind121289%_) (if (or (gx#core-context-rebind?__% (gx#core-context-top__0)) - (gx#core-extern-symbol? (gx#stx-e _%id121012%_))) - (gx#core-quote-syntax__0 _%id121012%_) + (gx#core-extern-symbol? (gx#stx-e _%id121286%_))) + (gx#core-quote-syntax__0 _%id121286%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%form121013%_ - _%id121012%_)) + _%form121287%_ + _%id121286%_)) (gx#raise-syntax-error '#f '"Bad syntax; not a runtime binding" - _%form121013%_ - _%id121012%_)))))) + _%form121287%_ + _%id121286%_)))))) (define gx#core-bind-runtime!__% - (lambda (_%id120967%_ _%rebind?120968%_ _%phi120969%_ _%ctx120970%_) - (let* ((_%key120972%_ (gx#core-identifier-key _%id120967%_)) - (_%eid120974%_ + (lambda (_%id121241%_ _%rebind?121242%_ _%phi121243%_ _%ctx121244%_) + (let* ((_%key121246%_ (gx#core-identifier-key _%id121241%_)) + (_%eid121248%_ (gx#make-binding-id__% - _%key120972%_ + _%key121246%_ '#f - _%phi120969%_ - _%ctx120970%_)) - (_%bind120980%_ + _%phi121243%_ + _%ctx121244%_)) + (_%bind121254%_ (if (##structure-instance-of? - _%ctx120970%_ + _%ctx121244%_ 'gx#module-context::t) (##structure gx#module-binding::t - _%eid120974%_ - _%key120972%_ - _%phi120969%_ - _%ctx120970%_) + _%eid121248%_ + _%key121246%_ + _%phi121243%_ + _%ctx121244%_) (if (##structure-instance-of? - _%ctx120970%_ + _%ctx121244%_ 'gx#top-context::t) (##structure gx#top-binding::t - _%eid120974%_ - _%key120972%_ - _%phi120969%_) + _%eid121248%_ + _%key121246%_ + _%phi121243%_) (if (##structure-instance-of? - _%ctx120970%_ + _%ctx121244%_ 'gx#local-context::t) (##structure gx#local-binding::t - _%eid120974%_ - _%key120972%_ - _%phi120969%_) + _%eid121248%_ + _%key121246%_ + _%phi121243%_) (##structure gx#runtime-binding::t - _%eid120974%_ - _%key120972%_ - _%phi120969%_)))))) + _%eid121248%_ + _%key121246%_ + _%phi121243%_)))))) (gx#bind-identifier!__% - _%id120967%_ - _%bind120980%_ - _%rebind?120968%_ - _%phi120969%_ - _%ctx120970%_)))) + _%id121241%_ + _%bind121254%_ + _%rebind?121242%_ + _%phi121243%_ + _%ctx121244%_)))) (define gx#core-bind-runtime!__0 - (lambda (_%id120986%_) - (let* ((_%rebind?120988%_ '#f) - (_%phi120990%_ (gx#current-expander-phi)) - (_%ctx120992%_ (gx#current-expander-context))) + (lambda (_%id121260%_) + (let* ((_%rebind?121262%_ '#f) + (_%phi121264%_ (gx#current-expander-phi)) + (_%ctx121266%_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _%id120986%_ - _%rebind?120988%_ - _%phi120990%_ - _%ctx120992%_)))) + _%id121260%_ + _%rebind?121262%_ + _%phi121264%_ + _%ctx121266%_)))) (define gx#core-bind-runtime!__1 - (lambda (_%id120994%_ _%rebind?120995%_) - (let* ((_%phi120997%_ (gx#current-expander-phi)) - (_%ctx120999%_ (gx#current-expander-context))) + (lambda (_%id121268%_ _%rebind?121269%_) + (let* ((_%phi121271%_ (gx#current-expander-phi)) + (_%ctx121273%_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _%id120994%_ - _%rebind?120995%_ - _%phi120997%_ - _%ctx120999%_)))) + _%id121268%_ + _%rebind?121269%_ + _%phi121271%_ + _%ctx121273%_)))) (define gx#core-bind-runtime!__2 - (lambda (_%id121001%_ _%rebind?121002%_ _%phi121003%_) - (let ((_%ctx121005%_ (gx#current-expander-context))) + (lambda (_%id121275%_ _%rebind?121276%_ _%phi121277%_) + (let ((_%ctx121279%_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _%id121001%_ - _%rebind?121002%_ - _%phi121003%_ - _%ctx121005%_)))) + _%id121275%_ + _%rebind?121276%_ + _%phi121277%_ + _%ctx121279%_)))) (define gx#core-bind-runtime! - (lambda _g123775_ - (let ((_g123774_ (##length _g123775_))) - (cond ((##fx= _g123774_ 1) - (apply gx#core-bind-runtime!__0 _g123775_)) - ((##fx= _g123774_ 2) - (apply gx#core-bind-runtime!__1 _g123775_)) - ((##fx= _g123774_ 3) - (apply gx#core-bind-runtime!__2 _g123775_)) - ((##fx= _g123774_ 4) - (apply gx#core-bind-runtime!__% _g123775_)) + (lambda _g124049_ + (let ((_g124048_ (##length _g124049_))) + (cond ((##fx= _g124048_ 1) + (apply gx#core-bind-runtime!__0 _g124049_)) + ((##fx= _g124048_ 2) + (apply gx#core-bind-runtime!__1 _g124049_)) + ((##fx= _g124048_ 3) + (apply gx#core-bind-runtime!__2 _g124049_)) + ((##fx= _g124048_ 4) + (apply gx#core-bind-runtime!__% _g124049_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime! - _g123775_)))))) + _g124049_)))))) (define gx#core-bind-runtime-reference!__% - (lambda (_%id120919%_ - _%eid120920%_ - _%rebind?120921%_ - _%phi120922%_ - _%ctx120923%_) - (let* ((_%key120925%_ (gx#core-identifier-key _%id120919%_)) - (_%bind120930%_ + (lambda (_%id121193%_ + _%eid121194%_ + _%rebind?121195%_ + _%phi121196%_ + _%ctx121197%_) + (let* ((_%key121199%_ (gx#core-identifier-key _%id121193%_)) + (_%bind121204%_ (if (##structure-instance-of? - _%ctx120923%_ + _%ctx121197%_ 'gx#module-context::t) (##structure gx#module-binding::t - _%eid120920%_ - _%key120925%_ - _%phi120922%_ - _%ctx120923%_) + _%eid121194%_ + _%key121199%_ + _%phi121196%_ + _%ctx121197%_) (if (##structure-instance-of? - _%ctx120923%_ + _%ctx121197%_ 'gx#top-context::t) (##structure gx#top-binding::t - _%eid120920%_ - _%key120925%_ - _%phi120922%_) + _%eid121194%_ + _%key121199%_ + _%phi121196%_) (##structure gx#runtime-binding::t - _%eid120920%_ - _%key120925%_ - _%phi120922%_))))) + _%eid121194%_ + _%key121199%_ + _%phi121196%_))))) (gx#bind-identifier!__% - _%id120919%_ - _%bind120930%_ - _%rebind?120921%_ - _%phi120922%_ - _%ctx120923%_)))) + _%id121193%_ + _%bind121204%_ + _%rebind?121195%_ + _%phi121196%_ + _%ctx121197%_)))) (define gx#core-bind-runtime-reference!__0 - (lambda (_%id120936%_ _%eid120937%_) - (let* ((_%rebind?120939%_ '#f) - (_%phi120941%_ (gx#current-expander-phi)) - (_%ctx120943%_ (gx#current-expander-context))) + (lambda (_%id121210%_ _%eid121211%_) + (let* ((_%rebind?121213%_ '#f) + (_%phi121215%_ (gx#current-expander-phi)) + (_%ctx121217%_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _%id120936%_ - _%eid120937%_ - _%rebind?120939%_ - _%phi120941%_ - _%ctx120943%_)))) + _%id121210%_ + _%eid121211%_ + _%rebind?121213%_ + _%phi121215%_ + _%ctx121217%_)))) (define gx#core-bind-runtime-reference!__1 - (lambda (_%id120945%_ _%eid120946%_ _%rebind?120947%_) - (let* ((_%phi120949%_ (gx#current-expander-phi)) - (_%ctx120951%_ (gx#current-expander-context))) + (lambda (_%id121219%_ _%eid121220%_ _%rebind?121221%_) + (let* ((_%phi121223%_ (gx#current-expander-phi)) + (_%ctx121225%_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _%id120945%_ - _%eid120946%_ - _%rebind?120947%_ - _%phi120949%_ - _%ctx120951%_)))) + _%id121219%_ + _%eid121220%_ + _%rebind?121221%_ + _%phi121223%_ + _%ctx121225%_)))) (define gx#core-bind-runtime-reference!__2 - (lambda (_%id120953%_ _%eid120954%_ _%rebind?120955%_ _%phi120956%_) - (let ((_%ctx120958%_ (gx#current-expander-context))) + (lambda (_%id121227%_ _%eid121228%_ _%rebind?121229%_ _%phi121230%_) + (let ((_%ctx121232%_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _%id120953%_ - _%eid120954%_ - _%rebind?120955%_ - _%phi120956%_ - _%ctx120958%_)))) + _%id121227%_ + _%eid121228%_ + _%rebind?121229%_ + _%phi121230%_ + _%ctx121232%_)))) (define gx#core-bind-runtime-reference! - (lambda _g123777_ - (let ((_g123776_ (##length _g123777_))) - (cond ((##fx= _g123776_ 2) - (apply gx#core-bind-runtime-reference!__0 _g123777_)) - ((##fx= _g123776_ 3) - (apply gx#core-bind-runtime-reference!__1 _g123777_)) - ((##fx= _g123776_ 4) - (apply gx#core-bind-runtime-reference!__2 _g123777_)) - ((##fx= _g123776_ 5) - (apply gx#core-bind-runtime-reference!__% _g123777_)) + (lambda _g124051_ + (let ((_g124050_ (##length _g124051_))) + (cond ((##fx= _g124050_ 2) + (apply gx#core-bind-runtime-reference!__0 _g124051_)) + ((##fx= _g124050_ 3) + (apply gx#core-bind-runtime-reference!__1 _g124051_)) + ((##fx= _g124050_ 4) + (apply gx#core-bind-runtime-reference!__2 _g124051_)) + ((##fx= _g124050_ 5) + (apply gx#core-bind-runtime-reference!__% _g124051_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime-reference! - _g123777_)))))) + _g124051_)))))) (define gx#core-bind-extern!__% - (lambda (_%id120879%_ - _%eid120880%_ - _%rebind?120881%_ - _%phi120882%_ - _%ctx120883%_) + (lambda (_%id121153%_ + _%eid121154%_ + _%rebind?121155%_ + _%phi121156%_ + _%ctx121157%_) (gx#bind-identifier!__% - _%id120879%_ + _%id121153%_ (##structure gx#extern-binding::t - _%eid120880%_ - (gx#core-identifier-key _%id120879%_) - _%phi120882%_) - _%rebind?120881%_ - _%phi120882%_ - _%ctx120883%_))) + _%eid121154%_ + (gx#core-identifier-key _%id121153%_) + _%phi121156%_) + _%rebind?121155%_ + _%phi121156%_ + _%ctx121157%_))) (define gx#core-bind-extern!__0 - (lambda (_%id120888%_ _%eid120889%_) - (let* ((_%rebind?120891%_ '#f) - (_%phi120893%_ (gx#current-expander-phi)) - (_%ctx120895%_ (gx#current-expander-context))) + (lambda (_%id121162%_ _%eid121163%_) + (let* ((_%rebind?121165%_ '#f) + (_%phi121167%_ (gx#current-expander-phi)) + (_%ctx121169%_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _%id120888%_ - _%eid120889%_ - _%rebind?120891%_ - _%phi120893%_ - _%ctx120895%_)))) + _%id121162%_ + _%eid121163%_ + _%rebind?121165%_ + _%phi121167%_ + _%ctx121169%_)))) (define gx#core-bind-extern!__1 - (lambda (_%id120897%_ _%eid120898%_ _%rebind?120899%_) - (let* ((_%phi120901%_ (gx#current-expander-phi)) - (_%ctx120903%_ (gx#current-expander-context))) + (lambda (_%id121171%_ _%eid121172%_ _%rebind?121173%_) + (let* ((_%phi121175%_ (gx#current-expander-phi)) + (_%ctx121177%_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _%id120897%_ - _%eid120898%_ - _%rebind?120899%_ - _%phi120901%_ - _%ctx120903%_)))) + _%id121171%_ + _%eid121172%_ + _%rebind?121173%_ + _%phi121175%_ + _%ctx121177%_)))) (define gx#core-bind-extern!__2 - (lambda (_%id120905%_ _%eid120906%_ _%rebind?120907%_ _%phi120908%_) - (let ((_%ctx120910%_ (gx#current-expander-context))) + (lambda (_%id121179%_ _%eid121180%_ _%rebind?121181%_ _%phi121182%_) + (let ((_%ctx121184%_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _%id120905%_ - _%eid120906%_ - _%rebind?120907%_ - _%phi120908%_ - _%ctx120910%_)))) + _%id121179%_ + _%eid121180%_ + _%rebind?121181%_ + _%phi121182%_ + _%ctx121184%_)))) (define gx#core-bind-extern! - (lambda _g123779_ - (let ((_g123778_ (##length _g123779_))) - (cond ((##fx= _g123778_ 2) (apply gx#core-bind-extern!__0 _g123779_)) - ((##fx= _g123778_ 3) (apply gx#core-bind-extern!__1 _g123779_)) - ((##fx= _g123778_ 4) (apply gx#core-bind-extern!__2 _g123779_)) - ((##fx= _g123778_ 5) (apply gx#core-bind-extern!__% _g123779_)) + (lambda _g124053_ + (let ((_g124052_ (##length _g124053_))) + (cond ((##fx= _g124052_ 2) (apply gx#core-bind-extern!__0 _g124053_)) + ((##fx= _g124052_ 3) (apply gx#core-bind-extern!__1 _g124053_)) + ((##fx= _g124052_ 4) (apply gx#core-bind-extern!__2 _g124053_)) + ((##fx= _g124052_ 5) (apply gx#core-bind-extern!__% _g124053_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-extern! - _g123779_)))))) + _g124053_)))))) (define gx#core-bind-syntax!__% - (lambda (_%id120833%_ - _%e120834%_ - _%rebind?120835%_ - _%phi120836%_ - _%ctx120837%_) + (lambda (_%id121107%_ + _%e121108%_ + _%rebind?121109%_ + _%phi121110%_ + _%ctx121111%_) (gx#bind-identifier!__% - _%id120833%_ - (let ((_%key120842%_ (gx#core-identifier-key _%id120833%_)) - (_%e120843%_ - (if (or (##structure-instance-of? _%e120834%_ 'gx#expander::t) + _%id121107%_ + (let ((_%key121116%_ (gx#core-identifier-key _%id121107%_)) + (_%e121117%_ + (if (or (##structure-instance-of? _%e121108%_ 'gx#expander::t) (##structure-instance-of? - _%e120834%_ + _%e121108%_ 'gx#expander-context::t)) - _%e120834%_ + _%e121108%_ (##structure gx#user-expander::t - _%e120834%_ - _%ctx120837%_ - _%phi120836%_)))) + _%e121108%_ + _%ctx121111%_ + _%phi121110%_)))) (##structure gx#syntax-binding::t (gx#make-binding-id__% - _%key120842%_ + _%key121116%_ '#t - _%phi120836%_ - _%ctx120837%_) - _%key120842%_ - _%phi120836%_ - _%e120843%_)) - _%rebind?120835%_ - _%phi120836%_ - _%ctx120837%_))) + _%phi121110%_ + _%ctx121111%_) + _%key121116%_ + _%phi121110%_ + _%e121117%_)) + _%rebind?121109%_ + _%phi121110%_ + _%ctx121111%_))) (define gx#core-bind-syntax!__0 - (lambda (_%id120848%_ _%e120849%_) - (let* ((_%rebind?120851%_ '#f) - (_%phi120853%_ (gx#current-expander-phi)) - (_%ctx120855%_ (gx#current-expander-context))) + (lambda (_%id121122%_ _%e121123%_) + (let* ((_%rebind?121125%_ '#f) + (_%phi121127%_ (gx#current-expander-phi)) + (_%ctx121129%_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _%id120848%_ - _%e120849%_ - _%rebind?120851%_ - _%phi120853%_ - _%ctx120855%_)))) + _%id121122%_ + _%e121123%_ + _%rebind?121125%_ + _%phi121127%_ + _%ctx121129%_)))) (define gx#core-bind-syntax!__1 - (lambda (_%id120857%_ _%e120858%_ _%rebind?120859%_) - (let* ((_%phi120861%_ (gx#current-expander-phi)) - (_%ctx120863%_ (gx#current-expander-context))) + (lambda (_%id121131%_ _%e121132%_ _%rebind?121133%_) + (let* ((_%phi121135%_ (gx#current-expander-phi)) + (_%ctx121137%_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _%id120857%_ - _%e120858%_ - _%rebind?120859%_ - _%phi120861%_ - _%ctx120863%_)))) + _%id121131%_ + _%e121132%_ + _%rebind?121133%_ + _%phi121135%_ + _%ctx121137%_)))) (define gx#core-bind-syntax!__2 - (lambda (_%id120865%_ _%e120866%_ _%rebind?120867%_ _%phi120868%_) - (let ((_%ctx120870%_ (gx#current-expander-context))) + (lambda (_%id121139%_ _%e121140%_ _%rebind?121141%_ _%phi121142%_) + (let ((_%ctx121144%_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _%id120865%_ - _%e120866%_ - _%rebind?120867%_ - _%phi120868%_ - _%ctx120870%_)))) + _%id121139%_ + _%e121140%_ + _%rebind?121141%_ + _%phi121142%_ + _%ctx121144%_)))) (define gx#core-bind-syntax! - (lambda _g123781_ - (let ((_g123780_ (##length _g123781_))) - (cond ((##fx= _g123780_ 2) (apply gx#core-bind-syntax!__0 _g123781_)) - ((##fx= _g123780_ 3) (apply gx#core-bind-syntax!__1 _g123781_)) - ((##fx= _g123780_ 4) (apply gx#core-bind-syntax!__2 _g123781_)) - ((##fx= _g123780_ 5) (apply gx#core-bind-syntax!__% _g123781_)) + (lambda _g124055_ + (let ((_g124054_ (##length _g124055_))) + (cond ((##fx= _g124054_ 2) (apply gx#core-bind-syntax!__0 _g124055_)) + ((##fx= _g124054_ 3) (apply gx#core-bind-syntax!__1 _g124055_)) + ((##fx= _g124054_ 4) (apply gx#core-bind-syntax!__2 _g124055_)) + ((##fx= _g124054_ 5) (apply gx#core-bind-syntax!__% _g124055_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-syntax! - _g123781_)))))) + _g124055_)))))) (define gx#core-bind-root-syntax!__% - (lambda (_%id120816%_ _%e120817%_ _%rebind?120818%_) + (lambda (_%id121090%_ _%e121091%_ _%rebind?121092%_) (gx#core-bind-syntax!__% - _%id120816%_ - _%e120817%_ - _%rebind?120818%_ + _%id121090%_ + _%e121091%_ + _%rebind?121092%_ '0 (gx#core-context-root__0)))) (define gx#core-bind-root-syntax!__0 - (lambda (_%id120823%_ _%e120824%_) - (let ((_%rebind?120826%_ '#f)) + (lambda (_%id121097%_ _%e121098%_) + (let ((_%rebind?121100%_ '#f)) (gx#core-bind-root-syntax!__% - _%id120823%_ - _%e120824%_ - _%rebind?120826%_)))) + _%id121097%_ + _%e121098%_ + _%rebind?121100%_)))) (define gx#core-bind-root-syntax! - (lambda _g123783_ - (let ((_g123782_ (##length _g123783_))) - (cond ((##fx= _g123782_ 2) - (apply gx#core-bind-root-syntax!__0 _g123783_)) - ((##fx= _g123782_ 3) - (apply gx#core-bind-root-syntax!__% _g123783_)) + (lambda _g124057_ + (let ((_g124056_ (##length _g124057_))) + (cond ((##fx= _g124056_ 2) + (apply gx#core-bind-root-syntax!__0 _g124057_)) + ((##fx= _g124056_ 3) + (apply gx#core-bind-root-syntax!__% _g124057_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-root-syntax! - _g123783_)))))) + _g124057_)))))) (define gx#core-bind-alias!__% - (lambda (_%id120774%_ - _%alias-id120775%_ - _%rebind?120776%_ - _%phi120777%_ - _%ctx120778%_) + (lambda (_%id121048%_ + _%alias-id121049%_ + _%rebind?121050%_ + _%phi121051%_ + _%ctx121052%_) (gx#bind-identifier!__% - _%id120774%_ - (let ((_%key120780%_ (gx#core-identifier-key _%id120774%_))) + _%id121048%_ + (let ((_%key121054%_ (gx#core-identifier-key _%id121048%_))) (##structure gx#alias-binding::t (gx#make-binding-id__% - _%key120780%_ + _%key121054%_ '#t - _%phi120777%_ - _%ctx120778%_) - _%key120780%_ - _%phi120777%_ - _%alias-id120775%_)) - _%rebind?120776%_ - _%phi120777%_ - _%ctx120778%_))) + _%phi121051%_ + _%ctx121052%_) + _%key121054%_ + _%phi121051%_ + _%alias-id121049%_)) + _%rebind?121050%_ + _%phi121051%_ + _%ctx121052%_))) (define gx#core-bind-alias!__0 - (lambda (_%id120785%_ _%alias-id120786%_) - (let* ((_%rebind?120788%_ '#f) - (_%phi120790%_ (gx#current-expander-phi)) - (_%ctx120792%_ (gx#current-expander-context))) + (lambda (_%id121059%_ _%alias-id121060%_) + (let* ((_%rebind?121062%_ '#f) + (_%phi121064%_ (gx#current-expander-phi)) + (_%ctx121066%_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _%id120785%_ - _%alias-id120786%_ - _%rebind?120788%_ - _%phi120790%_ - _%ctx120792%_)))) + _%id121059%_ + _%alias-id121060%_ + _%rebind?121062%_ + _%phi121064%_ + _%ctx121066%_)))) (define gx#core-bind-alias!__1 - (lambda (_%id120794%_ _%alias-id120795%_ _%rebind?120796%_) - (let* ((_%phi120798%_ (gx#current-expander-phi)) - (_%ctx120800%_ (gx#current-expander-context))) + (lambda (_%id121068%_ _%alias-id121069%_ _%rebind?121070%_) + (let* ((_%phi121072%_ (gx#current-expander-phi)) + (_%ctx121074%_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _%id120794%_ - _%alias-id120795%_ - _%rebind?120796%_ - _%phi120798%_ - _%ctx120800%_)))) + _%id121068%_ + _%alias-id121069%_ + _%rebind?121070%_ + _%phi121072%_ + _%ctx121074%_)))) (define gx#core-bind-alias!__2 - (lambda (_%id120802%_ _%alias-id120803%_ _%rebind?120804%_ _%phi120805%_) - (let ((_%ctx120807%_ (gx#current-expander-context))) + (lambda (_%id121076%_ _%alias-id121077%_ _%rebind?121078%_ _%phi121079%_) + (let ((_%ctx121081%_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _%id120802%_ - _%alias-id120803%_ - _%rebind?120804%_ - _%phi120805%_ - _%ctx120807%_)))) + _%id121076%_ + _%alias-id121077%_ + _%rebind?121078%_ + _%phi121079%_ + _%ctx121081%_)))) (define gx#core-bind-alias! - (lambda _g123785_ - (let ((_g123784_ (##length _g123785_))) - (cond ((##fx= _g123784_ 2) (apply gx#core-bind-alias!__0 _g123785_)) - ((##fx= _g123784_ 3) (apply gx#core-bind-alias!__1 _g123785_)) - ((##fx= _g123784_ 4) (apply gx#core-bind-alias!__2 _g123785_)) - ((##fx= _g123784_ 5) (apply gx#core-bind-alias!__% _g123785_)) + (lambda _g124059_ + (let ((_g124058_ (##length _g124059_))) + (cond ((##fx= _g124058_ 2) (apply gx#core-bind-alias!__0 _g124059_)) + ((##fx= _g124058_ 3) (apply gx#core-bind-alias!__1 _g124059_)) + ((##fx= _g124058_ 4) (apply gx#core-bind-alias!__2 _g124059_)) + ((##fx= _g124058_ 5) (apply gx#core-bind-alias!__% _g124059_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-alias! - _g123785_)))))) + _g124059_)))))) (define gx#make-binding-id__% - (lambda (_%key120724%_ _%syntax?120725%_ _%phi120726%_ _%ctx120727%_) - (if (uninterned-symbol? _%key120724%_) + (lambda (_%key120998%_ _%syntax?120999%_ _%phi121000%_ _%ctx121001%_) + (if (uninterned-symbol? _%key120998%_) (##gensym 'L) - (if (pair? _%key120724%_) - (gensym (##car _%key120724%_)) - (if (##structure-instance-of? _%ctx120727%_ 'gx#top-context::t) - (let ((_%ns120732%_ - (gx#core-context-namespace__% _%ctx120727%_))) - (if (and (fxzero? _%phi120726%_) (not _%syntax?120725%_)) - (if _%ns120732%_ - (make-symbol__1 _%ns120732%_ '"#" _%key120724%_) - _%key120724%_) - (if _%syntax?120725%_ + (if (pair? _%key120998%_) + (gensym (##car _%key120998%_)) + (if (##structure-instance-of? _%ctx121001%_ 'gx#top-context::t) + (let ((_%ns121006%_ + (gx#core-context-namespace__% _%ctx121001%_))) + (if (and (fxzero? _%phi121000%_) (not _%syntax?120999%_)) + (if _%ns121006%_ + (make-symbol__1 _%ns121006%_ '"#" _%key120998%_) + _%key120998%_) + (if _%syntax?120999%_ (make-symbol__1 - (let ((_%$e120736%_ _%ns120732%_)) - (if _%$e120736%_ _%$e120736%_ '"")) + (let ((_%$e121010%_ _%ns121006%_)) + (if _%$e121010%_ _%$e121010%_ '"")) '"[:" - (number->string _%phi120726%_) + (number->string _%phi121000%_) '":]#" - _%key120724%_) + _%key120998%_) (make-symbol__1 - (let ((_%$e120740%_ _%ns120732%_)) - (if _%$e120740%_ _%$e120740%_ '"")) + (let ((_%$e121014%_ _%ns121006%_)) + (if _%$e121014%_ _%$e121014%_ '"")) '"[" - (number->string _%phi120726%_) + (number->string _%phi121000%_) '"]#" - _%key120724%_)))) - (gensym _%key120724%_)))))) + _%key120998%_)))) + (gensym _%key120998%_)))))) (define gx#make-binding-id__0 - (lambda (_%key120747%_) - (let* ((_%syntax?120749%_ '#f) - (_%phi120751%_ (gx#current-expander-phi)) - (_%ctx120753%_ (gx#current-expander-context))) + (lambda (_%key121021%_) + (let* ((_%syntax?121023%_ '#f) + (_%phi121025%_ (gx#current-expander-phi)) + (_%ctx121027%_ (gx#current-expander-context))) (gx#make-binding-id__% - _%key120747%_ - _%syntax?120749%_ - _%phi120751%_ - _%ctx120753%_)))) + _%key121021%_ + _%syntax?121023%_ + _%phi121025%_ + _%ctx121027%_)))) (define gx#make-binding-id__1 - (lambda (_%key120755%_ _%syntax?120756%_) - (let* ((_%phi120758%_ (gx#current-expander-phi)) - (_%ctx120760%_ (gx#current-expander-context))) + (lambda (_%key121029%_ _%syntax?121030%_) + (let* ((_%phi121032%_ (gx#current-expander-phi)) + (_%ctx121034%_ (gx#current-expander-context))) (gx#make-binding-id__% - _%key120755%_ - _%syntax?120756%_ - _%phi120758%_ - _%ctx120760%_)))) + _%key121029%_ + _%syntax?121030%_ + _%phi121032%_ + _%ctx121034%_)))) (define gx#make-binding-id__2 - (lambda (_%key120762%_ _%syntax?120763%_ _%phi120764%_) - (let ((_%ctx120766%_ (gx#current-expander-context))) + (lambda (_%key121036%_ _%syntax?121037%_ _%phi121038%_) + (let ((_%ctx121040%_ (gx#current-expander-context))) (gx#make-binding-id__% - _%key120762%_ - _%syntax?120763%_ - _%phi120764%_ - _%ctx120766%_)))) + _%key121036%_ + _%syntax?121037%_ + _%phi121038%_ + _%ctx121040%_)))) (define gx#make-binding-id - (lambda _g123787_ - (let ((_g123786_ (##length _g123787_))) - (cond ((##fx= _g123786_ 1) (apply gx#make-binding-id__0 _g123787_)) - ((##fx= _g123786_ 2) (apply gx#make-binding-id__1 _g123787_)) - ((##fx= _g123786_ 3) (apply gx#make-binding-id__2 _g123787_)) - ((##fx= _g123786_ 4) (apply gx#make-binding-id__% _g123787_)) + (lambda _g124061_ + (let ((_g124060_ (##length _g124061_))) + (cond ((##fx= _g124060_ 1) (apply gx#make-binding-id__0 _g124061_)) + ((##fx= _g124060_ 2) (apply gx#make-binding-id__1 _g124061_)) + ((##fx= _g124060_ 3) (apply gx#make-binding-id__2 _g124061_)) + ((##fx= _g124060_ 4) (apply gx#make-binding-id__% _g124061_)) (else (##raise-wrong-number-of-arguments-exception gx#make-binding-id - _g123787_)))))))) + _g124061_)))))))) diff --git a/src/bootstrap/gerbil/runtime/c3~0.scm b/src/bootstrap/gerbil/runtime/c3~0.scm index 66ff2b798..c36c0b121 100644 --- a/src/bootstrap/gerbil/runtime/c3~0.scm +++ b/src/bootstrap/gerbil/runtime/c3~0.scm @@ -1,450 +1,450 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/c3::timestamp 1713044314) + (define gerbil/runtime/c3::timestamp 1713454409) (begin (define c4-linearize__% - (lambda (_%@@keywords93039%_ - _%get-precedence-list9303393040%_ - _%struct?9303493042%_ - _%eq9303593044%_ - _%get-name9303693046%_ - _%rhead93048%_ - _%supers93049%_) - (let* ((_%get-precedence-list93051%_ - (if (eq? _%get-precedence-list9303393040%_ absent-value) + (lambda (_%@@keywords93313%_ + _%get-precedence-list9330793314%_ + _%struct?9330893316%_ + _%eq9330993318%_ + _%get-name9331093320%_ + _%rhead93322%_ + _%supers93323%_) + (let* ((_%get-precedence-list93325%_ + (if (eq? _%get-precedence-list9330793314%_ absent-value) (error '"Missing required keyword argument" 'get-precedence-list:) - _%get-precedence-list9303393040%_)) - (_%struct?93053%_ - (if (eq? _%struct?9303493042%_ absent-value) + _%get-precedence-list9330793314%_)) + (_%struct?93327%_ + (if (eq? _%struct?9330893316%_ absent-value) (error '"Missing required keyword argument" 'struct:) - _%struct?9303493042%_)) - (_%eq93055%_ - (if (eq? _%eq9303593044%_ absent-value) eq? _%eq9303593044%_)) - (_%get-name93057%_ - (if (eq? _%get-name9303693046%_ absent-value) + _%struct?9330893316%_)) + (_%eq93329%_ + (if (eq? _%eq9330993318%_ absent-value) eq? _%eq9330993318%_)) + (_%get-name93331%_ + (if (eq? _%get-name9331093320%_ absent-value) identity - _%get-name9303693046%_))) - (letrec* ((_%pls93060%_ - (map _%get-precedence-list93051%_ _%supers93049%_)) - (_%sit93061%_ '()) - (_%get-names93062%_ - (lambda (_%lst93337%_) - (map _%get-name93057%_ _%lst93337%_))) - (_%err93063%_ - (lambda _%a93335%_ + _%get-name9331093320%_))) + (letrec* ((_%pls93334%_ + (map _%get-precedence-list93325%_ _%supers93323%_)) + (_%sit93335%_ '()) + (_%get-names93336%_ + (lambda (_%lst93611%_) + (map _%get-name93331%_ _%lst93611%_))) + (_%err93337%_ + (lambda _%a93609%_ (apply error '"Inconsistent precedence graph" 'head: - (_%get-names93062%_ (reverse _%rhead93048%_)) + (_%get-names93336%_ (reverse _%rhead93322%_)) 'precedence-lists: (let () (declare (not safe)) - (##map _%get-names93062%_ _%pls93060%_)) + (##map _%get-names93336%_ _%pls93334%_)) 'single-inheritance-tail: - (_%get-names93062%_ _%sit93061%_) - _%a93335%_))) - (_%same?93064%_ - (lambda (_%lst193332%_ _%lst293333%_) - (if (let ((__tmp93385 (length _%lst193332%_)) - (__tmp93384 (length _%lst293333%_))) + (_%get-names93336%_ _%sit93335%_) + _%a93609%_))) + (_%same?93338%_ + (lambda (_%lst193606%_ _%lst293607%_) + (if (let ((__tmp93659 (length _%lst193606%_)) + (__tmp93658 (length _%lst293607%_))) (declare (not safe)) - (##fx= __tmp93385 __tmp93384)) + (##fx= __tmp93659 __tmp93658)) (let () (declare (not safe)) - (andmap2 _%eq93055%_ _%lst193332%_ _%lst293333%_)) + (andmap2 _%eq93329%_ _%lst193606%_ _%lst293607%_)) '#f))) - (_%merge-sit!93065%_ - (lambda (_%sit293315%_) - (if (null? _%sit293315%_) + (_%merge-sit!93339%_ + (lambda (_%sit293589%_) + (if (null? _%sit293589%_) '#!void - (if (null? _%sit93061%_) - (set! _%sit93061%_ _%sit293315%_) - (let _%loop93320%_ ((_%t193322%_ _%sit93061%_) - (_%t293323%_ _%sit293315%_)) - (if (_%same?93064%_ _%t193322%_ _%sit293315%_) + (if (null? _%sit93335%_) + (set! _%sit93335%_ _%sit293589%_) + (let _%loop93594%_ ((_%t193596%_ _%sit93335%_) + (_%t293597%_ _%sit293589%_)) + (if (_%same?93338%_ _%t193596%_ _%sit293589%_) '#!void - (if (_%same?93064%_ - _%t293323%_ - _%sit93061%_) - (set! _%sit93061%_ _%sit293315%_) - (if (or (null? _%t193322%_) - (null? _%t293323%_)) - (_%err93063%_ + (if (_%same?93338%_ + _%t293597%_ + _%sit93335%_) + (set! _%sit93335%_ _%sit293589%_) + (if (or (null? _%t193596%_) + (null? _%t293597%_)) + (_%err93337%_ 'single-inheritance-incompatibility: - (cons (_%get-names93062%_ - _%sit93061%_) - (cons (_%get-names93062%_ - _%sit293315%_) + (cons (_%get-names93336%_ + _%sit93335%_) + (cons (_%get-names93336%_ + _%sit293589%_) '()))) - (_%loop93320%_ - (cdr _%t193322%_) - (cdr _%t293323%_)))))))))) - (_%rpls93066%_ - (let ((__tmp93386 - (lambda (_%pl93310%_) - (let ((_g93387_ + (_%loop93594%_ + (cdr _%t193596%_) + (cdr _%t293597%_)))))))))) + (_%rpls93340%_ + (let ((__tmp93660 + (lambda (_%pl93584%_) + (let ((_g93661_ (let () (declare (not safe)) (append-reverse-until - _%struct?93053%_ - _%pl93310%_ + _%struct?93327%_ + _%pl93584%_ '())))) (begin - (let ((_g93388_ + (let ((_g93662_ (let () (declare (not safe)) - (if (##values? _g93387_) - (##vector-length _g93387_) + (if (##values? _g93661_) + (##vector-length _g93661_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g93388_ 2))) + (##fx= _g93662_ 2))) (error "Context expects 2 values" - _g93388_))) - (let ((_%tl93312%_ + _g93662_))) + (let ((_%tl93586%_ (let () (declare (not safe)) - (##vector-ref _g93387_ 0))) - (_%rh93313%_ + (##vector-ref _g93661_ 0))) + (_%rh93587%_ (let () (declare (not safe)) - (##vector-ref _g93387_ 1)))) + (##vector-ref _g93661_ 1)))) (begin - (_%merge-sit!93065%_ _%tl93312%_) - _%rh93313%_))))))) + (_%merge-sit!93339%_ _%tl93586%_) + _%rh93587%_))))))) (declare (not safe)) - (##map __tmp93386 _%pls93060%_))) - (_%unsitr-rpl93067%_ - (lambda (_%rpl93256%_) - (let _%u93258%_ ((_%pl-rhead93260%_ _%rpl93256%_) - (_%pl-tail93261%_ '()) - (_%sit-rhead93262%_ - (reverse _%sit93061%_)) - (_%sit-tail93263%_ '())) - (let* ((_%pl-rhead9326493273%_ _%pl-rhead93260%_) - (_%E9326793277%_ + (##map __tmp93660 _%pls93334%_))) + (_%unsitr-rpl93341%_ + (lambda (_%rpl93530%_) + (let _%u93532%_ ((_%pl-rhead93534%_ _%rpl93530%_) + (_%pl-tail93535%_ '()) + (_%sit-rhead93536%_ + (reverse _%sit93335%_)) + (_%sit-tail93537%_ '())) + (let* ((_%pl-rhead9353893547%_ _%pl-rhead93534%_) + (_%E9354193551%_ (lambda () (error '"No clause matching" - _%pl-rhead9326493273%_ + _%pl-rhead9353893547%_ '([]) '([c . plrh])) '#!void))) - (let ((_%K9327193307%_ (lambda () _%pl-tail93261%_)) - (_%K9326893291%_ - (lambda (_%plrh93281%_ _%c93282%_) - (if (member _%c93282%_ - _%sit-tail93263%_ - _%eq93055%_) - (_%err93063%_ + (let ((_%K9354593581%_ (lambda () _%pl-tail93535%_)) + (_%K9354293565%_ + (lambda (_%plrh93555%_ _%c93556%_) + (if (member _%c93556%_ + _%sit-tail93537%_ + _%eq93329%_) + (_%err93337%_ 'precedence-list-head: - (_%get-names93062%_ - (reverse _%pl-rhead93260%_)) + (_%get-names93336%_ + (reverse _%pl-rhead93534%_)) 'precedence-list-tail: - (_%get-names93062%_ _%pl-tail93261%_) + (_%get-names93336%_ _%pl-tail93535%_) 'single-inheritance-head: - (_%get-names93062%_ - (reverse _%sit-rhead93262%_)) + (_%get-names93336%_ + (reverse _%sit-rhead93536%_)) 'single-inheritance-tail: - (_%get-names93062%_ _%sit-tail93263%_) + (_%get-names93336%_ _%sit-tail93537%_) 'super-out-of-order-vs-single-inheritance-tail: - (_%get-name93057%_ _%c93282%_)) - (let ((_g93389_ - (let ((__tmp93391 - (lambda (_%g9328393285%_) - (_%eq93055%_ - _%c93282%_ - _%g9328393285%_)))) + (_%get-name93331%_ _%c93556%_)) + (let ((_g93663_ + (let ((__tmp93665 + (lambda (_%g9355793559%_) + (_%eq93329%_ + _%c93556%_ + _%g9355793559%_)))) (declare (not safe)) (__append-reverse-until - __tmp93391 - _%sit-rhead93262%_ - _%sit-tail93263%_)))) + __tmp93665 + _%sit-rhead93536%_ + _%sit-tail93537%_)))) (begin - (let ((_g93390_ + (let ((_g93664_ (let () (declare (not safe)) - (if (##values? _g93389_) + (if (##values? _g93663_) (##vector-length - _g93389_) + _g93663_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g93390_ 2))) + (##fx= _g93664_ 2))) (error "Context expects 2 values" - _g93390_))) - (let ((_%sit-rh293288%_ + _g93664_))) + (let ((_%sit-rh293562%_ (let () (declare (not safe)) (##vector-ref - _g93389_ + _g93663_ 0))) - (_%sit-tl293289%_ + (_%sit-tl293563%_ (let () (declare (not safe)) (##vector-ref - _g93389_ + _g93663_ 1)))) - (if (null? _%sit-rh293288%_) - (_%u93258%_ - _%plrh93281%_ - (cons _%c93282%_ - _%pl-tail93261%_) + (if (null? _%sit-rh293562%_) + (_%u93532%_ + _%plrh93555%_ + (cons _%c93556%_ + _%pl-tail93535%_) '() - _%sit-tl293289%_) - (_%u93258%_ - _%plrh93281%_ - _%pl-tail93261%_ - (cdr _%sit-rh293288%_) - _%sit-tl293289%_))))))))) - (let ((_%try-match9326693303%_ + _%sit-tl293563%_) + (_%u93532%_ + _%plrh93555%_ + _%pl-tail93535%_ + (cdr _%sit-rh293562%_) + _%sit-tl293563%_))))))))) + (let ((_%try-match9354093577%_ (lambda () (if (let () (declare (not safe)) - (##pair? _%pl-rhead9326493273%_)) - (let ((_%tl9327093296%_ + (##pair? _%pl-rhead9353893547%_)) + (let ((_%tl9354493570%_ (let () (declare (not safe)) - (##cdr _%pl-rhead9326493273%_))) - (_%hd9326993294%_ + (##cdr _%pl-rhead9353893547%_))) + (_%hd9354393568%_ (let () (declare (not safe)) - (##car _%pl-rhead9326493273%_)))) - (let ((_%c93299%_ _%hd9326993294%_) - (_%plrh93301%_ - _%tl9327093296%_)) - (_%K9326893291%_ - _%plrh93301%_ - _%c93299%_))) - (_%E9326793277%_))))) + (##car _%pl-rhead9353893547%_)))) + (let ((_%c93573%_ _%hd9354393568%_) + (_%plrh93575%_ + _%tl9354493570%_)) + (_%K9354293565%_ + _%plrh93575%_ + _%c93573%_))) + (_%E9354193551%_))))) (if (let () (declare (not safe)) - (##null? _%pl-rhead9326493273%_)) - (_%K9327193307%_) - (_%try-match9326693303%_)))))))) - (_g93392_ - (let ((_g93393_ - (let ((__tmp93395 (reverse _%supers93049%_))) + (##null? _%pl-rhead9353893547%_)) + (_%K9354593581%_) + (_%try-match9354093577%_)))))))) + (_g93666_ + (let ((_g93667_ + (let ((__tmp93669 (reverse _%supers93323%_))) (declare (not safe)) - (append1! _%rpls93066%_ __tmp93395)))) + (append1! _%rpls93340%_ __tmp93669)))) #!void - _g93393_)) - (_g93396_ - (let ((_g93397_ - (set! _%pls93060%_ + _g93667_)) + (_g93670_ + (let ((_g93671_ + (set! _%pls93334%_ (let () (declare (not safe)) - (##map _%unsitr-rpl93067%_ - _%rpls93066%_))))) + (##map _%unsitr-rpl93341%_ + _%rpls93340%_))))) #!void - _g93397_)) - (_%c3-select-next93068%_ - (lambda (_%tails93206%_) - (let ((_%candidate?93212%_ - (lambda (_%c93208%_) - (let ((__tmp93399 - (lambda (_%tail93210%_) - (not (member _%c93208%_ - (cdr _%tail93210%_) - _%eq93055%_))))) + _g93671_)) + (_%c3-select-next93342%_ + (lambda (_%tails93480%_) + (let ((_%candidate?93486%_ + (lambda (_%c93482%_) + (let ((__tmp93673 + (lambda (_%tail93484%_) + (not (member _%c93482%_ + (cdr _%tail93484%_) + _%eq93329%_))))) (declare (not safe)) - (__andmap1 __tmp93399 _%tails93206%_))))) - (let _%loop93214%_ ((_%ts93216%_ _%tails93206%_)) - (let* ((_%ts9321793227%_ _%ts93216%_) - (_%else9321993235%_ - (lambda () (_%err93063%_))) - (_%K9322193241%_ - (lambda (_%rts93238%_ _%c93239%_) - (if (_%candidate?93212%_ _%c93239%_) - _%c93239%_ - (_%loop93214%_ _%rts93238%_))))) + (__andmap1 __tmp93673 _%tails93480%_))))) + (let _%loop93488%_ ((_%ts93490%_ _%tails93480%_)) + (let* ((_%ts9349193501%_ _%ts93490%_) + (_%else9349393509%_ + (lambda () (_%err93337%_))) + (_%K9349593515%_ + (lambda (_%rts93512%_ _%c93513%_) + (if (_%candidate?93486%_ _%c93513%_) + _%c93513%_ + (_%loop93488%_ _%rts93512%_))))) (if (let () (declare (not safe)) - (##pair? _%ts9321793227%_)) - (let ((_%hd9322293244%_ + (##pair? _%ts9349193501%_)) + (let ((_%hd9349693518%_ (let () (declare (not safe)) - (##car _%ts9321793227%_))) - (_%tl9322393246%_ + (##car _%ts9349193501%_))) + (_%tl9349793520%_ (let () (declare (not safe)) - (##cdr _%ts9321793227%_)))) + (##cdr _%ts9349193501%_)))) (if (let () (declare (not safe)) - (##pair? _%hd9322293244%_)) - (let* ((_%hd9322493249%_ + (##pair? _%hd9349693518%_)) + (let* ((_%hd9349893523%_ (let () (declare (not safe)) - (##car _%hd9322293244%_))) - (_%c93252%_ _%hd9322493249%_) - (_%rts93254%_ _%tl9322393246%_)) - (_%K9322193241%_ - _%rts93254%_ - _%c93252%_)) - (_%err93063%_))) - (_%err93063%_))))))) - (_%remove-next!93069%_ - (lambda (_%next93151%_ _%tails93152%_) - (let _%loop93154%_ ((_%t93156%_ _%tails93152%_)) - (let* ((_%t9315793168%_ _%t93156%_) - (_%E9316093172%_ + (##car _%hd9349693518%_))) + (_%c93526%_ _%hd9349893523%_) + (_%rts93528%_ _%tl9349793520%_)) + (_%K9349593515%_ + _%rts93528%_ + _%c93526%_)) + (_%err93337%_))) + (_%err93337%_))))))) + (_%remove-next!93343%_ + (lambda (_%next93425%_ _%tails93426%_) + (let _%loop93428%_ ((_%t93430%_ _%tails93426%_)) + (let* ((_%t9343193442%_ _%t93430%_) + (_%E9343493446%_ (lambda () (error '"No clause matching" - _%t9315793168%_ + _%t9343193442%_ '([]) '([[head . tail] . more])) '#!void))) - (let ((_%K9316693203%_ (lambda () _%tails93152%_)) - (_%K9316193180%_ - (lambda (_%more93176%_ - _%tail93177%_ - _%head93178%_) - (if (_%eq93055%_ - _%head93178%_ - _%next93151%_) - (set-car! _%t93156%_ _%tail93177%_) + (let ((_%K9344093477%_ (lambda () _%tails93426%_)) + (_%K9343593454%_ + (lambda (_%more93450%_ + _%tail93451%_ + _%head93452%_) + (if (_%eq93329%_ + _%head93452%_ + _%next93425%_) + (set-car! _%t93430%_ _%tail93451%_) '#!void) - (_%loop93154%_ _%more93176%_)))) - (let ((_%try-match9315993199%_ + (_%loop93428%_ _%more93450%_)))) + (let ((_%try-match9343393473%_ (lambda () (if (let () (declare (not safe)) - (##pair? _%t9315793168%_)) - (let ((_%tl9316393185%_ + (##pair? _%t9343193442%_)) + (let ((_%tl9343793459%_ (let () (declare (not safe)) - (##cdr _%t9315793168%_))) - (_%hd9316293183%_ + (##cdr _%t9343193442%_))) + (_%hd9343693457%_ (let () (declare (not safe)) - (##car _%t9315793168%_)))) + (##car _%t9343193442%_)))) (if (let () (declare (not safe)) - (##pair? _%hd9316293183%_)) - (let ((_%tl9316593190%_ + (##pair? _%hd9343693457%_)) + (let ((_%tl9343993464%_ (let () (declare (not safe)) - (##cdr _%hd9316293183%_))) - (_%hd9316493188%_ + (##cdr _%hd9343693457%_))) + (_%hd9343893462%_ (let () (declare (not safe)) - (##car _%hd9316293183%_)))) - (let ((_%head93193%_ - _%hd9316493188%_) - (_%tail93195%_ - _%tl9316593190%_) - (_%more93197%_ - _%tl9316393185%_)) - (_%K9316193180%_ - _%more93197%_ - _%tail93195%_ - _%head93193%_))) - (_%E9316093172%_))) - (_%E9316093172%_))))) + (##car _%hd9343693457%_)))) + (let ((_%head93467%_ + _%hd9343893462%_) + (_%tail93469%_ + _%tl9343993464%_) + (_%more93471%_ + _%tl9343793459%_)) + (_%K9343593454%_ + _%more93471%_ + _%tail93469%_ + _%head93467%_))) + (_%E9343493446%_))) + (_%E9343493446%_))))) (if (let () (declare (not safe)) - (##null? _%t9315793168%_)) - (_%K9316693203%_) - (_%try-match9315993199%_)))))))) - (_%precedence-list93070%_ - (let _%c3loop93101%_ ((_%rhead93103%_ _%rhead93048%_) - (_%tails93104%_ _%pls93060%_)) - (let* ((_%tails93106%_ + (##null? _%t9343193442%_)) + (_%K9344093477%_) + (_%try-match9343393473%_)))))))) + (_%precedence-list93344%_ + (let _%c3loop93375%_ ((_%rhead93377%_ _%rhead93322%_) + (_%tails93378%_ _%pls93334%_)) + (let* ((_%tails93380%_ (let () (declare (not safe)) - (remove-nulls! _%tails93104%_))) - (_%tails9310793117%_ _%tails93106%_) - (_%else9311093128%_ + (remove-nulls! _%tails93378%_))) + (_%tails9338193391%_ _%tails93380%_) + (_%else9338493402%_ (lambda () - (let ((_%next93125%_ - (_%c3-select-next93068%_ - _%tails93106%_))) - (_%c3loop93101%_ - (cons _%next93125%_ _%rhead93103%_) - (_%remove-next!93069%_ - _%next93125%_ - _%tails93106%_)))))) - (let ((_%K9311593148%_ + (let ((_%next93399%_ + (_%c3-select-next93342%_ + _%tails93380%_))) + (_%c3loop93375%_ + (cons _%next93399%_ _%rhead93377%_) + (_%remove-next!93343%_ + _%next93399%_ + _%tails93380%_)))))) + (let ((_%K9338993422%_ (lambda () (append-reverse - _%rhead93103%_ - _%sit93061%_))) - (_%K9311293134%_ - (lambda (_%tail93132%_) + _%rhead93377%_ + _%sit93335%_))) + (_%K9338693408%_ + (lambda (_%tail93406%_) (append-reverse - _%rhead93103%_ - (append _%tail93132%_ _%sit93061%_))))) - (let ((_%try-match9310993144%_ + _%rhead93377%_ + (append _%tail93406%_ _%sit93335%_))))) + (let ((_%try-match9338393418%_ (lambda () (if (let () (declare (not safe)) - (##pair? _%tails9310793117%_)) - (let ((_%tl9311493139%_ + (##pair? _%tails9338193391%_)) + (let ((_%tl9338893413%_ (let () (declare (not safe)) - (##cdr _%tails9310793117%_))) - (_%hd9311393137%_ + (##cdr _%tails9338193391%_))) + (_%hd9338793411%_ (let () (declare (not safe)) - (##car _%tails9310793117%_)))) + (##car _%tails9338193391%_)))) (if (let () (declare (not safe)) - (##null? _%tl9311493139%_)) - (let ((_%tail93142%_ - _%hd9311393137%_)) - (_%K9311293134%_ - _%tail93142%_)) - (_%else9311093128%_))) - (_%else9311093128%_))))) + (##null? _%tl9338893413%_)) + (let ((_%tail93416%_ + _%hd9338793411%_)) + (_%K9338693408%_ + _%tail93416%_)) + (_%else9338493402%_))) + (_%else9338493402%_))))) (if (let () (declare (not safe)) - (##null? _%tails9310793117%_)) - (_%K9311593148%_) - (_%try-match9310993144%_))))))) - (_%super-struct93071%_ - (let* ((_%sit9307293080%_ _%sit93061%_) - (_%else9307493088%_ (lambda () '#f)) - (_%K9307693093%_ (lambda (_%s93091%_) _%s93091%_))) + (##null? _%tails9338193391%_)) + (_%K9338993422%_) + (_%try-match9338393418%_))))))) + (_%super-struct93345%_ + (let* ((_%sit9334693354%_ _%sit93335%_) + (_%else9334893362%_ (lambda () '#f)) + (_%K9335093367%_ (lambda (_%s93365%_) _%s93365%_))) (if (let () (declare (not safe)) - (##pair? _%sit9307293080%_)) - (let* ((_%hd9307793096%_ + (##pair? _%sit9334693354%_)) + (let* ((_%hd9335193370%_ (let () (declare (not safe)) - (##car _%sit9307293080%_))) - (_%s93099%_ _%hd9307793096%_)) - (_%K9307693093%_ _%s93099%_)) - (_%else9307493088%_))))) - (values _%precedence-list93070%_ _%super-struct93071%_))))) + (##car _%sit9334693354%_))) + (_%s93373%_ _%hd9335193370%_)) + (_%K9335093367%_ _%s93373%_)) + (_%else9334893362%_))))) + (values _%precedence-list93344%_ _%super-struct93345%_))))) (define c4-linearize__@ - (lambda (_%@@keywords93342%_ . _%args93343%_) + (lambda (_%@@keywords93616%_ . _%args93617%_) (apply c4-linearize__% - _%@@keywords93342%_ + _%@@keywords93616%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords93342%_ + _%@@keywords93616%_ 'get-precedence-list: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords93342%_ + _%@@keywords93616%_ 'struct: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords93342%_ 'eq: absent-value)) + (symbolic-table-ref _%@@keywords93616%_ 'eq: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords93342%_ + _%@@keywords93616%_ 'get-name: absent-value)) - _%args93343%_))) + _%args93617%_))) (define c4-linearize - (lambda _%args9303793349%_ + (lambda _%args9331193623%_ (apply keyword-dispatch '#(#f get-name: struct: get-precedence-list: #f eq:) c4-linearize__@ - _%args9303793349%_))))) + _%args9331193623%_))))) diff --git a/src/bootstrap/gerbil/runtime/control~0.scm b/src/bootstrap/gerbil/runtime/control~0.scm index 95adcfa14..625f629e1 100644 --- a/src/bootstrap/gerbil/runtime/control~0.scm +++ b/src/bootstrap/gerbil/runtime/control~0.scm @@ -1,12 +1,12 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/control::timestamp 1713044314) + (define gerbil/runtime/control::timestamp 1713454409) (begin (define make-promise - (lambda (_%thunk92746%_) - (if (procedure? _%thunk92746%_) - (let ((_%thunk92750%_ _%thunk92746%_)) - (__make-promise _%thunk92750%_)) + (lambda (_%thunk93020%_) + (if (procedure? _%thunk93020%_) + (let ((_%thunk93024%_ _%thunk93020%_)) + (__make-promise _%thunk93024%_)) (begin (raise-contract-violation-error '"contract violation" @@ -15,19 +15,19 @@ 'contract: 'procedure? 'value: - _%thunk92746%_) + _%thunk93020%_) '#!void)))) (define __make-promise - (lambda (_%thunk92734%_) - (let ((_%thunk92737%_ _%thunk92734%_)) + (lambda (_%thunk93008%_) + (let ((_%thunk93011%_ _%thunk93008%_)) (declare (not safe)) - (##make-delay-promise _%thunk92737%_)))) + (##make-delay-promise _%thunk93011%_)))) (define call-with-parameters - (lambda (_%thunk92719%_ . _%rest92720%_) - (if (procedure? _%thunk92719%_) - (let ((_%thunk92724%_ _%thunk92719%_)) + (lambda (_%thunk92993%_ . _%rest92994%_) + (if (procedure? _%thunk92993%_) + (let ((_%thunk92998%_ _%thunk92993%_)) (declare (not safe)) - (##apply __call-with-parameters _%thunk92724%_ _%rest92720%_)) + (##apply __call-with-parameters _%thunk92998%_ _%rest92994%_)) (begin (raise-contract-violation-error '"contract violation" @@ -36,78 +36,78 @@ 'contract: 'procedure? 'value: - _%thunk92719%_) + _%thunk92993%_) '#!void)))) (define __call-with-parameters - (lambda (_%thunk92657%_ . _%rest92658%_) - (let* ((_%thunk92661%_ _%thunk92657%_) - (_%rest9266992680%_ _%rest92658%_) - (_%E9267292684%_ + (lambda (_%thunk92931%_ . _%rest92932%_) + (let* ((_%thunk92935%_ _%thunk92931%_) + (_%rest9294392954%_ _%rest92932%_) + (_%E9294692958%_ (lambda () (error '"No clause matching" - _%rest9266992680%_ + _%rest9294392954%_ '([param val . rest]) '([])) '#!void))) - (let ((_%K9267492700%_ - (lambda (_%rest92695%_ _%val92696%_ _%param92697%_) - (let ((__tmp92772 - (if (null? _%rest92695%_) - _%thunk92661%_ + (let ((_%K9294892974%_ + (lambda (_%rest92969%_ _%val92970%_ _%param92971%_) + (let ((__tmp93046 + (if (null? _%rest92969%_) + _%thunk92935%_ (lambda () (apply call-with-parameters - _%thunk92661%_ - _%rest92695%_))))) + _%thunk92935%_ + _%rest92969%_))))) (declare (not safe)) (##parameterize1 - _%param92697%_ - _%val92696%_ - __tmp92772)))) - (_%K9267392689%_ - (lambda () (let () (declare (not safe)) (_%thunk92661%_))))) - (let ((_%try-match9267192692%_ + _%param92971%_ + _%val92970%_ + __tmp93046)))) + (_%K9294792963%_ + (lambda () (let () (declare (not safe)) (_%thunk92935%_))))) + (let ((_%try-match9294592966%_ (lambda () (if (let () (declare (not safe)) - (##null? _%rest9266992680%_)) - (let () (declare (not safe)) (_%thunk92661%_)) - (_%E9267292684%_))))) - (if (let () (declare (not safe)) (##pair? _%rest9266992680%_)) - (let ((_%tl9267692705%_ + (##null? _%rest9294392954%_)) + (let () (declare (not safe)) (_%thunk92935%_)) + (_%E9294692958%_))))) + (if (let () (declare (not safe)) (##pair? _%rest9294392954%_)) + (let ((_%tl9295092979%_ (let () (declare (not safe)) - (##cdr _%rest9266992680%_))) - (_%hd9267592703%_ + (##cdr _%rest9294392954%_))) + (_%hd9294992977%_ (let () (declare (not safe)) - (##car _%rest9266992680%_)))) + (##car _%rest9294392954%_)))) (if (let () (declare (not safe)) - (##pair? _%tl9267692705%_)) - (let ((_%tl9267892712%_ + (##pair? _%tl9295092979%_)) + (let ((_%tl9295292986%_ (let () (declare (not safe)) - (##cdr _%tl9267692705%_))) - (_%hd9267792710%_ + (##cdr _%tl9295092979%_))) + (_%hd9295192984%_ (let () (declare (not safe)) - (##car _%tl9267692705%_)))) - (let ((_%param92708%_ _%hd9267592703%_) - (_%val92715%_ _%hd9267792710%_) - (_%rest92717%_ _%tl9267892712%_)) - (_%K9267492700%_ - _%rest92717%_ - _%val92715%_ - _%param92708%_))) - (_%E9267292684%_))) - (_%try-match9267192692%_))))))) + (##car _%tl9295092979%_)))) + (let ((_%param92982%_ _%hd9294992977%_) + (_%val92989%_ _%hd9295192984%_) + (_%rest92991%_ _%tl9295292986%_)) + (_%K9294892974%_ + _%rest92991%_ + _%val92989%_ + _%param92982%_))) + (_%E9294692958%_))) + (_%try-match9294592966%_))))))) (define with-unwind-protect - (lambda (_%K92632%_ _%fini92633%_) - (if (procedure? _%K92632%_) - (let ((_%K92637%_ _%K92632%_)) - (if (procedure? _%fini92633%_) - (let ((_%fini92647%_ _%fini92633%_)) - (__with-unwind-protect _%K92637%_ _%fini92647%_)) + (lambda (_%K92906%_ _%fini92907%_) + (if (procedure? _%K92906%_) + (let ((_%K92911%_ _%K92906%_)) + (if (procedure? _%fini92907%_) + (let ((_%fini92921%_ _%fini92907%_)) + (__with-unwind-protect _%K92911%_ _%fini92921%_)) (begin (raise-contract-violation-error '"contract violation" @@ -116,7 +116,7 @@ 'contract: 'procedure? 'value: - _%fini92633%_) + _%fini92907%_) '#!void))) (begin (raise-contract-violation-error @@ -126,226 +126,226 @@ 'contract: 'procedure? 'value: - _%K92632%_) + _%K92906%_) '#!void)))) (define __with-unwind-protect - (lambda (_%K92606%_ _%fini92607%_) - (let* ((_%K92610%_ _%K92606%_) - (_%fini92619%_ _%fini92607%_) - (_%once92628%_ '#f) - (__tmp92773 + (lambda (_%K92880%_ _%fini92881%_) + (let* ((_%K92884%_ _%K92880%_) + (_%fini92893%_ _%fini92881%_) + (_%once92902%_ '#f) + (__tmp93047 (lambda () (declare (not interrupts-enabled)) - (if _%once92628%_ + (if _%once92902%_ (error '"Cannot re-enter unwind protected block") - (set! _%once92628%_ '#t))))) + (set! _%once92902%_ '#t))))) (declare (not safe)) - (##dynamic-wind __tmp92773 _%K92610%_ _%fini92619%_)))) + (##dynamic-wind __tmp93047 _%K92884%_ _%fini92893%_)))) (define keyword-dispatch - (lambda (_%kwt92499%_ _%K92500%_ . _%all-args92501%_) - (if _%kwt92499%_ - (if (vector? _%kwt92499%_) + (lambda (_%kwt92773%_ _%K92774%_ . _%all-args92775%_) + (if _%kwt92773%_ + (if (vector? _%kwt92773%_) '#!void - (error '"keyword-dispatch: expected vector" _%kwt92499%_)) + (error '"keyword-dispatch: expected vector" _%kwt92773%_)) '#!void) - (if (procedure? _%K92500%_) + (if (procedure? _%K92774%_) '#!void - (error '"keyword-dispatch: expected procedure" _%K92500%_)) - (let ((_%keys92503%_ + (error '"keyword-dispatch: expected procedure" _%K92774%_)) + (let ((_%keys92777%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let _%lp92505%_ ((_%rest92507%_ _%all-args92501%_) - (_%args92508%_ '#f) - (_%tail92509%_ '#f)) - (let* ((_%rest9251092518%_ _%rest92507%_) - (_%else9251292526%_ + (let _%lp92779%_ ((_%rest92781%_ _%all-args92775%_) + (_%args92782%_ '#f) + (_%tail92783%_ '#f)) + (let* ((_%rest9278492792%_ _%rest92781%_) + (_%else9278692800%_ (lambda () - (if _%args92508%_ + (if _%args92782%_ (begin (let () (declare (not safe)) - (##set-cdr! _%tail92509%_ '())) - (let ((__tmp92774 - (cons _%keys92503%_ _%args92508%_))) + (##set-cdr! _%tail92783%_ '())) + (let ((__tmp93048 + (cons _%keys92777%_ _%args92782%_))) (declare (not safe)) - (##apply _%K92500%_ __tmp92774))) - (_%K92500%_ _%keys92503%_)))) - (_%K9251492594%_ - (lambda (_%hd-rest92529%_ _%hd92530%_) - (if (keyword? _%hd92530%_) - (let* ((_%hd-rest9253292539%_ _%hd-rest92529%_) - (_%E9253492543%_ + (##apply _%K92774%_ __tmp93048))) + (_%K92774%_ _%keys92777%_)))) + (_%K9278892868%_ + (lambda (_%hd-rest92803%_ _%hd92804%_) + (if (keyword? _%hd92804%_) + (let* ((_%hd-rest9280692813%_ _%hd-rest92803%_) + (_%E9280892817%_ (lambda () (error '"No clause matching" - _%hd-rest9253292539%_ + _%hd-rest9280692813%_ '([val . rest])) '#!void)) - (_%K9253592551%_ - (lambda (_%rest92546%_ _%val92547%_) - (if _%kwt92499%_ - (let ((_%pos92549%_ - (let ((__tmp92776 + (_%K9280992825%_ + (lambda (_%rest92820%_ _%val92821%_) + (if _%kwt92773%_ + (let ((_%pos92823%_ + (let ((__tmp93050 (let () (declare (not safe)) (##keyword-hash - _%hd92530%_))) - (__tmp92775 + _%hd92804%_))) + (__tmp93049 (let () (declare (not safe)) (##vector-length - _%kwt92499%_)))) + _%kwt92773%_)))) (declare (not safe)) (##fxmodulo - __tmp92776 - __tmp92775)))) - (if (eq? _%hd92530%_ + __tmp93050 + __tmp93049)))) + (if (eq? _%hd92804%_ (let () (declare (not safe)) (##vector-ref - _%kwt92499%_ - _%pos92549%_))) + _%kwt92773%_ + _%pos92823%_))) '#!void (error '"Unexpected keyword argument" - _%K92500%_ - _%hd92530%_))) + _%K92774%_ + _%hd92804%_))) '#!void) (if (eq? (let () (declare (not safe)) (symbolic-table-ref - _%keys92503%_ - _%hd92530%_ + _%keys92777%_ + _%hd92804%_ absent-value)) absent-value) '#!void (error '"Duplicate keyword argument" - _%K92500%_ - _%hd92530%_)) + _%K92774%_ + _%hd92804%_)) (let () (declare (not safe)) (symbolic-table-set! - _%keys92503%_ - _%hd92530%_ - _%val92547%_)) - (_%lp92505%_ - _%rest92546%_ - _%args92508%_ - _%tail92509%_)))) + _%keys92777%_ + _%hd92804%_ + _%val92821%_)) + (_%lp92779%_ + _%rest92820%_ + _%args92782%_ + _%tail92783%_)))) (if (let () (declare (not safe)) - (##pair? _%hd-rest9253292539%_)) - (let ((_%hd9253692554%_ + (##pair? _%hd-rest9280692813%_)) + (let ((_%hd9281092828%_ (let () (declare (not safe)) - (##car _%hd-rest9253292539%_))) - (_%tl9253792556%_ + (##car _%hd-rest9280692813%_))) + (_%tl9281192830%_ (let () (declare (not safe)) - (##cdr _%hd-rest9253292539%_)))) - (let* ((_%val92559%_ _%hd9253692554%_) - (_%rest92561%_ _%tl9253792556%_)) - (_%K9253592551%_ - _%rest92561%_ - _%val92559%_))) - (_%E9253492543%_))) - (if (eq? _%hd92530%_ '#!key) - (let* ((_%hd-rest9256392570%_ _%hd-rest92529%_) - (_%E9256592574%_ + (##cdr _%hd-rest9280692813%_)))) + (let* ((_%val92833%_ _%hd9281092828%_) + (_%rest92835%_ _%tl9281192830%_)) + (_%K9280992825%_ + _%rest92835%_ + _%val92833%_))) + (_%E9280892817%_))) + (if (eq? _%hd92804%_ '#!key) + (let* ((_%hd-rest9283792844%_ _%hd-rest92803%_) + (_%E9283992848%_ (lambda () (error '"No clause matching" - _%hd-rest9256392570%_ + _%hd-rest9283792844%_ '([val . rest])) '#!void)) - (_%K9256692580%_ - (lambda (_%rest92577%_ _%val92578%_) - (if _%args92508%_ + (_%K9284092854%_ + (lambda (_%rest92851%_ _%val92852%_) + (if _%args92782%_ (begin (let () (declare (not safe)) (##set-cdr! - _%tail92509%_ - _%hd-rest92529%_)) - (_%lp92505%_ - _%rest92577%_ - _%args92508%_ - _%hd-rest92529%_)) - (_%lp92505%_ - _%rest92577%_ - _%hd-rest92529%_ - _%hd-rest92529%_))))) + _%tail92783%_ + _%hd-rest92803%_)) + (_%lp92779%_ + _%rest92851%_ + _%args92782%_ + _%hd-rest92803%_)) + (_%lp92779%_ + _%rest92851%_ + _%hd-rest92803%_ + _%hd-rest92803%_))))) (if (let () (declare (not safe)) - (##pair? _%hd-rest9256392570%_)) - (let ((_%hd9256792583%_ + (##pair? _%hd-rest9283792844%_)) + (let ((_%hd9284192857%_ (let () (declare (not safe)) - (##car _%hd-rest9256392570%_))) - (_%tl9256892585%_ + (##car _%hd-rest9283792844%_))) + (_%tl9284292859%_ (let () (declare (not safe)) - (##cdr _%hd-rest9256392570%_)))) - (let* ((_%val92588%_ _%hd9256792583%_) - (_%rest92590%_ _%tl9256892585%_)) - (_%K9256692580%_ - _%rest92590%_ - _%val92588%_))) - (_%E9256592574%_))) - (if (eq? _%hd92530%_ '#!rest) - (if _%args92508%_ + (##cdr _%hd-rest9283792844%_)))) + (let* ((_%val92862%_ _%hd9284192857%_) + (_%rest92864%_ _%tl9284292859%_)) + (_%K9284092854%_ + _%rest92864%_ + _%val92862%_))) + (_%E9283992848%_))) + (if (eq? _%hd92804%_ '#!rest) + (if _%args92782%_ (begin (let () (declare (not safe)) (##set-cdr! - _%tail92509%_ - _%hd-rest92529%_)) - (let ((__tmp92777 - (cons _%keys92503%_ - _%args92508%_))) + _%tail92783%_ + _%hd-rest92803%_)) + (let ((__tmp93051 + (cons _%keys92777%_ + _%args92782%_))) (declare (not safe)) - (##apply _%K92500%_ __tmp92777))) - (let ((__tmp92778 - (cons _%keys92503%_ - _%hd-rest92529%_))) + (##apply _%K92774%_ __tmp93051))) + (let ((__tmp93052 + (cons _%keys92777%_ + _%hd-rest92803%_))) (declare (not safe)) - (##apply _%K92500%_ __tmp92778))) - (if _%args92508%_ + (##apply _%K92774%_ __tmp93052))) + (if _%args92782%_ (begin (let () (declare (not safe)) (##set-cdr! - _%tail92509%_ - _%rest92507%_)) - (_%lp92505%_ - _%hd-rest92529%_ - _%args92508%_ - _%rest92507%_)) - (_%lp92505%_ - _%hd-rest92529%_ - _%rest92507%_ - _%rest92507%_)))))))) - (if (let () (declare (not safe)) (##pair? _%rest9251092518%_)) - (let ((_%hd9251592597%_ + _%tail92783%_ + _%rest92781%_)) + (_%lp92779%_ + _%hd-rest92803%_ + _%args92782%_ + _%rest92781%_)) + (_%lp92779%_ + _%hd-rest92803%_ + _%rest92781%_ + _%rest92781%_)))))))) + (if (let () (declare (not safe)) (##pair? _%rest9278492792%_)) + (let ((_%hd9278992871%_ (let () (declare (not safe)) - (##car _%rest9251092518%_))) - (_%tl9251692599%_ + (##car _%rest9278492792%_))) + (_%tl9279092873%_ (let () (declare (not safe)) - (##cdr _%rest9251092518%_)))) - (let* ((_%hd92602%_ _%hd9251592597%_) - (_%hd-rest92604%_ _%tl9251692599%_)) - (_%K9251492594%_ _%hd-rest92604%_ _%hd92602%_))) - (_%else9251292526%_))))))) + (##cdr _%rest9278492792%_)))) + (let* ((_%hd92876%_ _%hd9278992871%_) + (_%hd-rest92878%_ _%tl9279092873%_)) + (_%K9278892868%_ _%hd-rest92878%_ _%hd92876%_))) + (_%else9278692800%_))))))) (define keyword-rest - (lambda (_%kwt92491%_ . _%drop92492%_) - (let ((_%rest92494%_ '())) - (let ((__tmp92779 - (lambda (_%k92496%_ _%v92497%_) + (lambda (_%kwt92765%_ . _%drop92766%_) + (let ((_%rest92768%_ '())) + (let ((__tmp93053 + (lambda (_%k92770%_ _%v92771%_) (if (let () (declare (not safe)) - (##memq _%k92496%_ _%drop92492%_)) + (##memq _%k92770%_ _%drop92766%_)) '#!void - (set! _%rest92494%_ - (cons _%k92496%_ - (cons _%v92497%_ _%rest92494%_))))))) + (set! _%rest92768%_ + (cons _%k92770%_ + (cons _%v92771%_ _%rest92768%_))))))) (declare (not safe)) - (raw-table-for-each _%kwt92491%_ __tmp92779)) - _%rest92494%_))))) + (raw-table-for-each _%kwt92765%_ __tmp93053)) + _%rest92768%_))))) diff --git a/src/bootstrap/gerbil/runtime/error.ssxi.ss b/src/bootstrap/gerbil/runtime/error.ssxi.ss index 21b2b0022..302ed0b8b 100644 --- a/src/bootstrap/gerbil/runtime/error.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/error.ssxi.ss @@ -62,8 +62,8 @@ package: gerbil/runtime #f #f #f - ((display-exception . Error::display-exception) - (:init! . Error:::init!)))) + ((:init! . Error:::init!) + (display-exception . Error::display-exception)))) (declare-type Error::t (optimizer-resolve-class '(typedecl Error::t) 'class::t)) diff --git a/src/bootstrap/gerbil/runtime/error~0.scm b/src/bootstrap/gerbil/runtime/error~0.scm index 5aadbb40f..e4c62c977 100644 --- a/src/bootstrap/gerbil/runtime/error~0.scm +++ b/src/bootstrap/gerbil/runtime/error~0.scm @@ -1,37 +1,37 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/error::timestamp 1713044314) + (define gerbil/runtime/error::timestamp 1713454409) (begin (define Exception::t - (let ((__tmp102459 (list))) + (let ((__tmp102733 (list))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#Exception::t 'Exception - __tmp102459 + __tmp102733 '() '() '#f))) (define Exception? (let () (declare (not safe)) (__make-class-predicate Exception::t))) (define make-Exception - (lambda _%$args102429%_ - (apply make-instance Exception::t _%$args102429%_))) + (lambda _%$args102703%_ + (apply make-instance Exception::t _%$args102703%_))) (define StackTrace::t - (let ((__tmp102460 (list))) + (let ((__tmp102734 (list))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#StackTrace::t 'StackTrace - __tmp102460 + __tmp102734 '(continuation) '() '#f))) (define StackTrace? (let () (declare (not safe)) (__make-class-predicate StackTrace::t))) (define make-StackTrace - (lambda _%$args102426%_ - (apply make-instance StackTrace::t _%$args102426%_))) + (lambda _%$args102700%_ + (apply make-instance StackTrace::t _%$args102700%_))) (define StackTrace-continuation (let () (declare (not safe)) @@ -49,19 +49,19 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator StackTrace::t 'continuation))) (define Error::t - (let ((__tmp102461 (list StackTrace::t Exception::t))) + (let ((__tmp102735 (list StackTrace::t Exception::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#Error::t 'Error - __tmp102461 + __tmp102735 '(message irritants where) '((transparent: . #t)) ':init!))) (define Error? (let () (declare (not safe)) (__make-class-predicate Error::t))) (define make-Error - (lambda _%$args102423%_ (apply make-instance Error::t _%$args102423%_))) + (lambda _%$args102697%_ (apply make-instance Error::t _%$args102697%_))) (define Error-message (let () (declare (not safe)) @@ -127,12 +127,12 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator Error::t 'continuation))) (define ContractViolation::t - (let ((__tmp102462 (list Error::t))) + (let ((__tmp102736 (list Error::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#ContractViolation::t 'ContractViolation - __tmp102462 + __tmp102736 '() '() '#f))) @@ -141,8 +141,8 @@ (declare (not safe)) (__make-class-predicate ContractViolation::t))) (define make-ContractViolation - (lambda _%$args102420%_ - (apply make-instance ContractViolation::t _%$args102420%_))) + (lambda _%$args102694%_ + (apply make-instance ContractViolation::t _%$args102694%_))) (define ContractViolation-message (let () (declare (not safe)) @@ -214,12 +214,12 @@ ContractViolation::t 'continuation))) (define RuntimeException::t - (let ((__tmp102463 (list StackTrace::t Exception::t))) + (let ((__tmp102737 (list StackTrace::t Exception::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#RuntimeException::t 'RuntimeException - __tmp102463 + __tmp102737 '(exception) '((transparent: . #t)) '#f))) @@ -228,8 +228,8 @@ (declare (not safe)) (__make-class-predicate RuntimeException::t))) (define make-RuntimeException - (lambda _%$args102417%_ - (apply make-instance RuntimeException::t _%$args102417%_))) + (lambda _%$args102691%_ + (apply make-instance RuntimeException::t _%$args102691%_))) (define RuntimeException-exception (let () (declare (not safe)) @@ -267,118 +267,118 @@ RuntimeException::t 'continuation))) (define gerbil-exception-handler-hook - (lambda (_%exn102412%_ _%continue102413%_) - (let ((_%exn102415%_ (wrap-runtime-exception _%exn102412%_))) + (lambda (_%exn102686%_ _%continue102687%_) + (let ((_%exn102689%_ (wrap-runtime-exception _%exn102686%_))) (declare (not safe)) - (##repl-exception-handler-hook _%exn102415%_ _%continue102413%_)))) + (##repl-exception-handler-hook _%exn102689%_ _%continue102687%_)))) (let () (declare (not safe)) (##primordial-exception-handler-hook-set! gerbil-exception-handler-hook)) (define raise - (lambda (_%exn102408%_) + (lambda (_%exn102682%_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _%exn102408%_)) + (class-instance? StackTrace::t _%exn102682%_)) (if (let () (declare (not safe)) - (unchecked-slot-ref _%exn102408%_ 'continuation)) + (unchecked-slot-ref _%exn102682%_ 'continuation)) '#!void - (let ((__tmp102464 - (lambda (_%cont102410%_) + (let ((__tmp102738 + (lambda (_%cont102684%_) (let () (declare (not safe)) (unchecked-slot-set! - _%exn102408%_ + _%exn102682%_ 'continuation - _%cont102410%_))))) + _%cont102684%_))))) (declare (not safe)) - (##continuation-capture __tmp102464))) + (##continuation-capture __tmp102738))) '#!void) - (let () (declare (not safe)) (##raise _%exn102408%_)))) + (let () (declare (not safe)) (##raise _%exn102682%_)))) (define error - (lambda (_%message102405%_ . _%irritants102406%_) - (raise (let ((__obj102456 + (lambda (_%message102679%_ . _%irritants102680%_) + (raise (let ((__obj102730 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj102456 - _%message102405%_ + __obj102730 + _%message102679%_ 'irritants: - _%irritants102406%_) - __obj102456)))) + _%irritants102680%_) + __obj102730)))) (define __raise-contract-violation-error__% - (lambda (_%@@keywords102377%_ - _%ctx102372102378%_ - _%contract-expr102373102380%_ - _%value102374102382%_ - _%message102384%_) - (let* ((_%ctx102386%_ - (if (eq? _%ctx102372102378%_ absent-value) + (lambda (_%@@keywords102651%_ + _%ctx102646102652%_ + _%contract-expr102647102654%_ + _%value102648102656%_ + _%message102658%_) + (let* ((_%ctx102660%_ + (if (eq? _%ctx102646102652%_ absent-value) '#f - _%ctx102372102378%_)) - (_%contract-expr102388%_ - (if (eq? _%contract-expr102373102380%_ absent-value) + _%ctx102646102652%_)) + (_%contract-expr102662%_ + (if (eq? _%contract-expr102647102654%_ absent-value) '#f - _%contract-expr102373102380%_)) - (_%value102390%_ - (if (eq? _%value102374102382%_ absent-value) + _%contract-expr102647102654%_)) + (_%value102664%_ + (if (eq? _%value102648102656%_ absent-value) '#f - _%value102374102382%_))) - (raise (let ((__obj102457 + _%value102648102656%_))) + (raise (let ((__obj102731 (let () (declare (not safe)) (##structure ContractViolation::t '#f '#f '#f '#f)))) (ContractViolation:::init! - __obj102457 - _%message102384%_ + __obj102731 + _%message102658%_ 'where: - _%ctx102386%_ + _%ctx102660%_ 'irritants: (cons 'contract: - (cons _%contract-expr102388%_ - (cons 'value: (cons _%value102390%_ '()))))) - __obj102457))))) + (cons _%contract-expr102662%_ + (cons 'value: (cons _%value102664%_ '()))))) + __obj102731))))) (define __raise-contract-violation-error__@ - (lambda (_%@@keywords102395%_ . _%args102396%_) + (lambda (_%@@keywords102669%_ . _%args102670%_) (apply __raise-contract-violation-error__% - _%@@keywords102395%_ + _%@@keywords102669%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords102395%_ + _%@@keywords102669%_ 'context: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords102395%_ + _%@@keywords102669%_ 'contract: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords102395%_ + _%@@keywords102669%_ 'value: absent-value)) - _%args102396%_))) + _%args102670%_))) (define __raise-contract-violation-error - (lambda _%args102375102402%_ + (lambda _%args102649102676%_ (apply keyword-dispatch '#(context: #f value: contract:) __raise-contract-violation-error__@ - _%args102375102402%_))) + _%args102649102676%_))) (set! raise-contract-violation-error __raise-contract-violation-error) (define contract-violation-error? ContractViolation?) (define with-exception-handler - (lambda (_%handler102346%_ _%thunk102347%_) - (if (procedure? _%handler102346%_) - (let ((_%handler102351%_ _%handler102346%_)) - (if (procedure? _%thunk102347%_) - (let ((_%thunk102361%_ _%thunk102347%_)) + (lambda (_%handler102620%_ _%thunk102621%_) + (if (procedure? _%handler102620%_) + (let ((_%handler102625%_ _%handler102620%_)) + (if (procedure? _%thunk102621%_) + (let ((_%thunk102635%_ _%thunk102621%_)) (__with-exception-handler - _%handler102351%_ - _%thunk102361%_)) + _%handler102625%_ + _%thunk102635%_)) (begin (raise-contract-violation-error '"contract violation" @@ -387,7 +387,7 @@ 'contract: 'procedure? 'value: - _%thunk102347%_) + _%thunk102621%_) '#!void))) (begin (raise-contract-violation-error @@ -397,26 +397,26 @@ 'contract: 'procedure? 'value: - _%handler102346%_) + _%handler102620%_) '#!void)))) (define __with-exception-handler - (lambda (_%handler102321%_ _%thunk102322%_) - (let* ((_%handler102325%_ _%handler102321%_) - (_%thunk102333%_ _%thunk102322%_) - (__tmp102465 - (lambda (_%exn102342%_) - (let ((_%exn102344%_ (wrap-runtime-exception _%exn102342%_))) + (lambda (_%handler102595%_ _%thunk102596%_) + (let* ((_%handler102599%_ _%handler102595%_) + (_%thunk102607%_ _%thunk102596%_) + (__tmp102739 + (lambda (_%exn102616%_) + (let ((_%exn102618%_ (wrap-runtime-exception _%exn102616%_))) (declare (not safe)) - (_%handler102325%_ _%exn102344%_))))) + (_%handler102599%_ _%exn102618%_))))) (declare (not safe)) - (##with-exception-handler __tmp102465 _%thunk102333%_)))) + (##with-exception-handler __tmp102739 _%thunk102607%_)))) (define with-catch - (lambda (_%handler102296%_ _%thunk102297%_) - (if (procedure? _%handler102296%_) - (let ((_%handler102301%_ _%handler102296%_)) - (if (procedure? _%thunk102297%_) - (let ((_%thunk102311%_ _%thunk102297%_)) - (__with-catch _%handler102301%_ _%thunk102311%_)) + (lambda (_%handler102570%_ _%thunk102571%_) + (if (procedure? _%handler102570%_) + (let ((_%handler102575%_ _%handler102570%_)) + (if (procedure? _%thunk102571%_) + (let ((_%thunk102585%_ _%thunk102571%_)) + (__with-catch _%handler102575%_ _%thunk102585%_)) (begin (raise-contract-violation-error '"contract violation" @@ -425,7 +425,7 @@ 'contract: 'procedure? 'value: - _%thunk102297%_) + _%thunk102571%_) '#!void))) (begin (raise-contract-violation-error @@ -435,38 +435,38 @@ 'contract: 'procedure? 'value: - _%handler102296%_) + _%handler102570%_) '#!void)))) (define __with-catch - (lambda (_%handler102271%_ _%thunk102272%_) - (let* ((_%handler102275%_ _%handler102271%_) - (_%thunk102283%_ _%thunk102272%_) - (__tmp102466 - (lambda (_%cont102292%_) + (lambda (_%handler102545%_ _%thunk102546%_) + (let* ((_%handler102549%_ _%handler102545%_) + (_%thunk102557%_ _%thunk102546%_) + (__tmp102740 + (lambda (_%cont102566%_) (__with-exception-handler - (lambda (_%exn102294%_) + (lambda (_%exn102568%_) (let () (declare (not safe)) (##continuation-graft - _%cont102292%_ - _%handler102275%_ - _%exn102294%_))) - _%thunk102283%_)))) + _%cont102566%_ + _%handler102549%_ + _%exn102568%_))) + _%thunk102557%_)))) (declare (not safe)) - (##continuation-capture __tmp102466)))) + (##continuation-capture __tmp102740)))) (define with-exception-catcher with-catch) (define wrap-runtime-exception - (lambda (_%exn102258%_) - (if (or (heap-overflow-exception? _%exn102258%_) - (stack-overflow-exception? _%exn102258%_)) - _%exn102258%_ + (lambda (_%exn102532%_) + (if (or (heap-overflow-exception? _%exn102532%_) + (stack-overflow-exception? _%exn102532%_)) + _%exn102532%_ (if (let () (declare (not safe)) - (class-instance? Exception::t _%exn102258%_)) - _%exn102258%_ - (if (macro-exception? _%exn102258%_) - (let ((_%rte102266%_ - (let ((__obj102458 + (class-instance? Exception::t _%exn102532%_)) + _%exn102532%_ + (if (macro-exception? _%exn102532%_) + (let ((_%rte102540%_ + (let ((__obj102732 (let () (declare (not safe)) (##structure @@ -476,141 +476,141 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj102458 - _%exn102258%_ + __obj102732 + _%exn102532%_ '2 '#f '#f)) - __obj102458))) - (let ((__tmp102467 - (lambda (_%cont102268%_) - (let ((__tmp102468 + __obj102732))) + (let ((__tmp102741 + (lambda (_%cont102542%_) + (let ((__tmp102742 (let () (declare (not safe)) - (##continuation-next _%cont102268%_)))) + (##continuation-next _%cont102542%_)))) (declare (not safe)) (unchecked-slot-set! - _%rte102266%_ + _%rte102540%_ 'continuation - __tmp102468))))) + __tmp102742))))) (declare (not safe)) - (##continuation-capture __tmp102467)) - _%rte102266%_) - _%exn102258%_))))) + (##continuation-capture __tmp102741)) + _%rte102540%_) + _%exn102532%_))))) (define exception? Exception?) (define error? Error?) (define error-object? - (lambda (_%obj102253%_) - (let ((_%$e102255%_ + (lambda (_%obj102527%_) + (let ((_%$e102529%_ (let () (declare (not safe)) - (class-instance? Error::t _%obj102253%_)))) - (if _%$e102255%_ _%$e102255%_ (error-exception? _%obj102253%_))))) + (class-instance? Error::t _%obj102527%_)))) + (if _%$e102529%_ _%$e102529%_ (error-exception? _%obj102527%_))))) (define error-message - (lambda (_%obj102246%_) - (let ((_%$e102248%_ + (lambda (_%obj102520%_) + (let ((_%$e102522%_ (let () (declare (not safe)) - (__slot-ref__% _%obj102246%_ 'message false)))) - (if _%$e102248%_ - _%$e102248%_ - (if (error-exception? _%obj102246%_) - (error-exception-message _%obj102246%_) + (__slot-ref__% _%obj102520%_ 'message false)))) + (if _%$e102522%_ + _%$e102522%_ + (if (error-exception? _%obj102520%_) + (error-exception-message _%obj102520%_) '#f))))) (define error-irritants - (lambda (_%obj102241%_) + (lambda (_%obj102515%_) (if (let () (declare (not safe)) - (class-instance? Error::t _%obj102241%_)) + (class-instance? Error::t _%obj102515%_)) (let () (declare (not safe)) - (unchecked-slot-ref _%obj102241%_ 'irritants)) - (if (error-exception? _%obj102241%_) - (error-exception-parameters _%obj102241%_) + (unchecked-slot-ref _%obj102515%_ 'irritants)) + (if (error-exception? _%obj102515%_) + (error-exception-parameters _%obj102515%_) '#f)))) (define error-trace - (lambda (_%obj102239%_) + (lambda (_%obj102513%_) (if (let () (declare (not safe)) - (class-instance? Error::t _%obj102239%_)) + (class-instance? Error::t _%obj102513%_)) (let () (declare (not safe)) - (unchecked-slot-ref _%obj102239%_ 'where)) + (unchecked-slot-ref _%obj102513%_ 'where)) '#f))) (define display-exception__% - (lambda (_%e102220%_ _%port102221%_) - (let ((_%$e102223%_ + (lambda (_%e102494%_ _%port102495%_) + (let ((_%$e102497%_ (let () (declare (not safe)) - (__method-ref _%e102220%_ 'display-exception)))) - (if _%$e102223%_ - ((lambda (_%f102226%_) (_%f102226%_ _%e102220%_ _%port102221%_)) - _%$e102223%_) + (__method-ref _%e102494%_ 'display-exception)))) + (if _%$e102497%_ + ((lambda (_%f102500%_) (_%f102500%_ _%e102494%_ _%port102495%_)) + _%$e102497%_) (let () (declare (not safe)) - (##default-display-exception _%e102220%_ _%port102221%_)))))) + (##default-display-exception _%e102494%_ _%port102495%_)))))) (define display-exception__0 - (lambda (_%e102232%_) - (let ((_%port102234%_ (current-error-port))) - (display-exception__% _%e102232%_ _%port102234%_)))) + (lambda (_%e102506%_) + (let ((_%port102508%_ (current-error-port))) + (display-exception__% _%e102506%_ _%port102508%_)))) (define display-exception - (lambda _g102470_ - (let ((_g102469_ (let () (declare (not safe)) (##length _g102470_)))) - (cond ((let () (declare (not safe)) (##fx= _g102469_ 1)) - (apply display-exception__0 _g102470_)) - ((let () (declare (not safe)) (##fx= _g102469_ 2)) - (apply display-exception__% _g102470_)) + (lambda _g102744_ + (let ((_g102743_ (let () (declare (not safe)) (##length _g102744_)))) + (cond ((let () (declare (not safe)) (##fx= _g102743_ 1)) + (apply display-exception__0 _g102744_)) + ((let () (declare (not safe)) (##fx= _g102743_ 2)) + (apply display-exception__% _g102744_)) (else (##raise-wrong-number-of-arguments-exception display-exception - _g102470_)))))) + _g102744_)))))) (let () (declare (not safe)) (##display-exception-hook-set! display-exception)) (define Error:::init! - (lambda (_%self100589102196%_ _%message102198%_ . _%rest102199%_) - (let* ((_%self102201%_ _%self100589102196%_) - (_%self102203%_ _%self102201%_) - (_%message102217%_ - (if (string? _%message102198%_) - _%message102198%_ + (lambda (_%self100863102470%_ _%message102472%_ . _%rest102473%_) + (let* ((_%self102475%_ _%self100863102470%_) + (_%self102477%_ _%self102475%_) + (_%message102491%_ + (if (string? _%message102472%_) + _%message102472%_ (call-with-output-string '"" - (lambda (_%g102212102214%_) - (display _%message102198%_ _%g102212102214%_)))))) + (lambda (_%g102486102488%_) + (display _%message102472%_ _%g102486102488%_)))))) (let () (declare (not safe)) - (unchecked-slot-set! _%self102203%_ 'message _%message102217%_)) - (apply class-instance-init! _%self102203%_ _%rest102199%_)))) + (unchecked-slot-set! _%self102477%_ 'message _%message102491%_)) + (apply class-instance-init! _%self102477%_ _%rest102473%_)))) (define Error:::init!::specialize - (lambda (__klass102431 __method-table102432) - (let ((__message102433 - (let ((__slot102434 + (lambda (__klass102705 __method-table102706) + (let ((__message102707 + (let ((__slot102708 (let () (declare (not safe)) - (class-slot-offset __klass102431 'message)))) - (if __slot102434 - __slot102434 + (class-slot-offset __klass102705 'message)))) + (if __slot102708 + __slot102708 (error '"Unknown slot" 'message))))) - (lambda (_%self100589102196%_ _%message102198%_ . _%rest102199%_) - (let* ((_%self102201%_ _%self100589102196%_) - (_%self102203%_ _%self102201%_) - (_%message102217%_ - (if (string? _%message102198%_) - _%message102198%_ + (lambda (_%self100863102470%_ _%message102472%_ . _%rest102473%_) + (let* ((_%self102475%_ _%self100863102470%_) + (_%self102477%_ _%self102475%_) + (_%message102491%_ + (if (string? _%message102472%_) + _%message102472%_ (call-with-output-string '"" - (lambda (_%g102212102214%_) - (display _%message102198%_ _%g102212102214%_)))))) + (lambda (_%g102486102488%_) + (display _%message102472%_ _%g102486102488%_)))))) (let () (declare (not safe)) (##unchecked-structure-set! - _%self102203%_ - _%message102217%_ - __message102433 + _%self102477%_ + _%message102491%_ + __message102707 '#f '#f)) - (apply class-instance-init! _%self102203%_ _%rest102199%_)))))) + (apply class-instance-init! _%self102477%_ _%rest102473%_)))))) (let () (declare (not safe)) (bind-specializer! Error:::init! Error:::init!::specialize)) @@ -627,224 +627,224 @@ '#f)) (define dump-stack-trace? (make-parameter '#f)) (define Error::display-exception - (lambda (_%self100590101918%_ _%port101920%_) - (let* ((_%self101922%_ _%self100590101918%_) - (_%self101924%_ _%self101922%_)) - (let ((_%tmp-port101934%_ (open-output-string)) - (_%display-error-newline101935%_ - (> (output-port-column _%port101920%_) '0))) - (fix-port-width! _%tmp-port101934%_) - (let ((__tmp102471 + (lambda (_%self100864102192%_ _%port102194%_) + (let* ((_%self102196%_ _%self100864102192%_) + (_%self102198%_ _%self102196%_)) + (let ((_%tmp-port102208%_ (open-output-string)) + (_%display-error-newline102209%_ + (> (output-port-column _%port102194%_) '0))) + (fix-port-width! _%tmp-port102208%_) + (let ((__tmp102745 (lambda () - (if _%display-error-newline101935%_ (newline) '#!void) + (if _%display-error-newline102209%_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_%$e101938%_ + (let ((_%$e102212%_ (let () (declare (not safe)) - (unchecked-slot-ref _%self101924%_ 'where)))) - (if _%$e101938%_ (display _%$e101938%_) (display '"?"))) - (let ((__tmp102472 - (let ((__tmp102473 + (unchecked-slot-ref _%self102198%_ 'where)))) + (if _%$e102212%_ (display _%$e102212%_) (display '"?"))) + (let ((__tmp102746 + (let ((__tmp102747 (let () (declare (not safe)) - (object-type _%self101924%_)))) + (object-type _%self102198%_)))) (declare (not safe)) - (##type-name __tmp102473)))) + (##type-name __tmp102747)))) (declare (not safe)) - (display* '" [" __tmp102472 '"]: ")) - (let ((__tmp102474 + (display* '" [" __tmp102746 '"]: ")) + (let ((__tmp102748 (let () (declare (not safe)) - (unchecked-slot-ref _%self101924%_ 'message)))) + (unchecked-slot-ref _%self102198%_ 'message)))) (declare (not safe)) - (displayln __tmp102474)) - (let ((_%irritants101942%_ + (displayln __tmp102748)) + (let ((_%irritants102216%_ (let () (declare (not safe)) - (unchecked-slot-ref _%self101924%_ 'irritants)))) - (if (null? _%irritants101942%_) + (unchecked-slot-ref _%self102198%_ 'irritants)))) + (if (null? _%irritants102216%_) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_%obj101944%_) - (if (u8vector? _%obj101944%_) - (let ((__tmp102475 + (lambda (_%obj102218%_) + (if (u8vector? _%obj102218%_) + (let ((__tmp102749 (cons ' (cons (let () (declare (not safe)) (##u8vector-length - _%obj101944%_)) + _%obj102218%_)) '())))) (declare (not safe)) - (##write __tmp102475)) + (##write __tmp102749)) (let () (declare (not safe)) - (##write _%obj101944%_))) + (##write _%obj102218%_))) (let () (declare (not safe)) (##write-char '#\space))) - _%irritants101942%_) + _%irritants102216%_) (newline)))) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont101945101947%_ + (let ((_%cont102219102221%_ (let () (declare (not safe)) (unchecked-slot-ref - _%self101924%_ + _%self102198%_ 'continuation)))) - (if _%cont101945101947%_ - (let ((_%cont101950%_ _%cont101945101947%_)) + (if _%cont102219102221%_ + (let ((_%cont102224%_ _%cont102219102221%_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) (display-continuation-backtrace - _%cont101950%_)) + _%cont102224%_)) '#f)) '#!void)))) (declare (not safe)) (__call-with-parameters - __tmp102471 + __tmp102745 current-output-port - _%tmp-port101934%_)) - (let ((__tmp102476 (get-output-string _%tmp-port101934%_))) + _%tmp-port102208%_)) + (let ((__tmp102750 (get-output-string _%tmp-port102208%_))) (declare (not safe)) - (##write-string __tmp102476 _%port101920%_)))))) + (##write-string __tmp102750 _%port102194%_)))))) (define Error::display-exception::specialize - (lambda (__klass102435 __method-table102436) - (let ((__where102437 - (let ((__slot102441 + (lambda (__klass102709 __method-table102710) + (let ((__continuation102711 + (let ((__slot102715 (let () (declare (not safe)) - (class-slot-offset __klass102435 'where)))) - (if __slot102441 - __slot102441 - (error '"Unknown slot" 'where)))) - (__message102438 - (let ((__slot102442 + (class-slot-offset __klass102709 'continuation)))) + (if __slot102715 + __slot102715 + (error '"Unknown slot" 'continuation)))) + (__message102712 + (let ((__slot102716 (let () (declare (not safe)) - (class-slot-offset __klass102435 'message)))) - (if __slot102442 - __slot102442 + (class-slot-offset __klass102709 'message)))) + (if __slot102716 + __slot102716 (error '"Unknown slot" 'message)))) - (__irritants102439 - (let ((__slot102443 + (__irritants102713 + (let ((__slot102717 (let () (declare (not safe)) - (class-slot-offset __klass102435 'irritants)))) - (if __slot102443 - __slot102443 + (class-slot-offset __klass102709 'irritants)))) + (if __slot102717 + __slot102717 (error '"Unknown slot" 'irritants)))) - (__continuation102440 - (let ((__slot102444 + (__where102714 + (let ((__slot102718 (let () (declare (not safe)) - (class-slot-offset __klass102435 'continuation)))) - (if __slot102444 - __slot102444 - (error '"Unknown slot" 'continuation))))) - (lambda (_%self100590101918%_ _%port101920%_) - (let* ((_%self101922%_ _%self100590101918%_) - (_%self101924%_ _%self101922%_)) - (let ((_%tmp-port101934%_ (open-output-string)) - (_%display-error-newline101935%_ - (> (output-port-column _%port101920%_) '0))) - (fix-port-width! _%tmp-port101934%_) - (let ((__tmp102477 + (class-slot-offset __klass102709 'where)))) + (if __slot102718 + __slot102718 + (error '"Unknown slot" 'where))))) + (lambda (_%self100864102192%_ _%port102194%_) + (let* ((_%self102196%_ _%self100864102192%_) + (_%self102198%_ _%self102196%_)) + (let ((_%tmp-port102208%_ (open-output-string)) + (_%display-error-newline102209%_ + (> (output-port-column _%port102194%_) '0))) + (fix-port-width! _%tmp-port102208%_) + (let ((__tmp102751 (lambda () - (if _%display-error-newline101935%_ (newline) '#!void) + (if _%display-error-newline102209%_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_%$e101938%_ + (let ((_%$e102212%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self101924%_ - __where102437 + _%self102198%_ + __where102714 '#f '#f)))) - (if _%$e101938%_ - (display _%$e101938%_) + (if _%$e102212%_ + (display _%$e102212%_) (display '"?"))) - (let ((__tmp102478 - (let ((__tmp102479 + (let ((__tmp102752 + (let ((__tmp102753 (let () (declare (not safe)) - (object-type _%self101924%_)))) + (object-type _%self102198%_)))) (declare (not safe)) - (##type-name __tmp102479)))) + (##type-name __tmp102753)))) (declare (not safe)) - (display* '" [" __tmp102478 '"]: ")) - (let ((__tmp102480 + (display* '" [" __tmp102752 '"]: ")) + (let ((__tmp102754 (let () (declare (not safe)) (##unchecked-structure-ref - _%self101924%_ - __message102438 + _%self102198%_ + __message102712 '#f '#f)))) (declare (not safe)) - (displayln __tmp102480)) - (let ((_%irritants101942%_ + (displayln __tmp102754)) + (let ((_%irritants102216%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self101924%_ - __irritants102439 + _%self102198%_ + __irritants102713 '#f '#f)))) - (if (null? _%irritants101942%_) + (if (null? _%irritants102216%_) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_%obj101944%_) - (if (u8vector? _%obj101944%_) - (let ((__tmp102481 + (lambda (_%obj102218%_) + (if (u8vector? _%obj102218%_) + (let ((__tmp102755 (cons ' (cons (let () (declare (not safe)) (##u8vector-length - _%obj101944%_)) + _%obj102218%_)) '())))) (declare (not safe)) - (##write __tmp102481)) + (##write __tmp102755)) (let () (declare (not safe)) - (##write _%obj101944%_))) + (##write _%obj102218%_))) (let () (declare (not safe)) (##write-char '#\space))) - _%irritants101942%_) + _%irritants102216%_) (newline)))) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont101945101947%_ + (let ((_%cont102219102221%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self101924%_ - __continuation102440 + _%self102198%_ + __continuation102711 '#f '#f)))) - (if _%cont101945101947%_ - (let ((_%cont101950%_ _%cont101945101947%_)) + (if _%cont102219102221%_ + (let ((_%cont102224%_ _%cont102219102221%_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) (display-continuation-backtrace - _%cont101950%_)) + _%cont102224%_)) '#f)) '#!void)))) (declare (not safe)) (__call-with-parameters - __tmp102477 + __tmp102751 current-output-port - _%tmp-port101934%_)) - (let ((__tmp102482 (get-output-string _%tmp-port101934%_))) + _%tmp-port102208%_)) + (let ((__tmp102756 (get-output-string _%tmp-port102208%_))) (declare (not safe)) - (##write-string __tmp102482 _%port101920%_)))))))) + (##write-string __tmp102756 _%port102194%_)))))))) (let () (declare (not safe)) (bind-specializer! @@ -858,90 +858,90 @@ Error::display-exception '#t)) (define RuntimeException::display-exception - (lambda (_%self100591101772%_ _%port101774%_) - (let* ((_%self101776%_ _%self100591101772%_) - (_%self101778%_ _%self101776%_) - (_%tmp-port101788%_ (open-output-string))) - (fix-port-width! _%tmp-port101788%_) - (let ((__tmp102483 + (lambda (_%self100865102046%_ _%port102048%_) + (let* ((_%self102050%_ _%self100865102046%_) + (_%self102052%_ _%self102050%_) + (_%tmp-port102062%_ (open-output-string))) + (fix-port-width! _%tmp-port102062%_) + (let ((__tmp102757 (let () (declare (not safe)) - (unchecked-slot-ref _%self101778%_ 'exception)))) + (unchecked-slot-ref _%self102052%_ 'exception)))) (declare (not safe)) - (##default-display-exception __tmp102483 _%tmp-port101788%_)) + (##default-display-exception __tmp102757 _%tmp-port102062%_)) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont101789101791%_ + (let ((_%cont102063102065%_ (let () (declare (not safe)) - (unchecked-slot-ref _%self101778%_ 'continuation)))) - (if _%cont101789101791%_ - (let ((_%cont101794%_ _%cont101789101791%_)) + (unchecked-slot-ref _%self102052%_ 'continuation)))) + (if _%cont102063102065%_ + (let ((_%cont102068%_ _%cont102063102065%_)) (display '"--- continuation backtrace:" - _%tmp-port101788%_) - (newline _%tmp-port101788%_) + _%tmp-port102062%_) + (newline _%tmp-port102062%_) (display-continuation-backtrace - _%cont101794%_ - _%tmp-port101788%_)) + _%cont102068%_ + _%tmp-port102062%_)) '#f)) '#!void) - (let ((__tmp102484 (get-output-string _%tmp-port101788%_))) + (let ((__tmp102758 (get-output-string _%tmp-port102062%_))) (declare (not safe)) - (##write-string __tmp102484 _%port101774%_))))) + (##write-string __tmp102758 _%port102048%_))))) (define RuntimeException::display-exception::specialize - (lambda (__klass102445 __method-table102446) - (let ((__exception102447 - (let ((__slot102449 + (lambda (__klass102719 __method-table102720) + (let ((__exception102721 + (let ((__slot102723 (let () (declare (not safe)) - (class-slot-offset __klass102445 'exception)))) - (if __slot102449 - __slot102449 + (class-slot-offset __klass102719 'exception)))) + (if __slot102723 + __slot102723 (error '"Unknown slot" 'exception)))) - (__continuation102448 - (let ((__slot102450 + (__continuation102722 + (let ((__slot102724 (let () (declare (not safe)) - (class-slot-offset __klass102445 'continuation)))) - (if __slot102450 - __slot102450 + (class-slot-offset __klass102719 'continuation)))) + (if __slot102724 + __slot102724 (error '"Unknown slot" 'continuation))))) - (lambda (_%self100591101772%_ _%port101774%_) - (let* ((_%self101776%_ _%self100591101772%_) - (_%self101778%_ _%self101776%_) - (_%tmp-port101788%_ (open-output-string))) - (fix-port-width! _%tmp-port101788%_) - (let ((__tmp102485 + (lambda (_%self100865102046%_ _%port102048%_) + (let* ((_%self102050%_ _%self100865102046%_) + (_%self102052%_ _%self102050%_) + (_%tmp-port102062%_ (open-output-string))) + (fix-port-width! _%tmp-port102062%_) + (let ((__tmp102759 (let () (declare (not safe)) (##unchecked-structure-ref - _%self101778%_ - __exception102447 + _%self102052%_ + __exception102721 '#f '#f)))) (declare (not safe)) - (##default-display-exception __tmp102485 _%tmp-port101788%_)) + (##default-display-exception __tmp102759 _%tmp-port102062%_)) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont101789101791%_ + (let ((_%cont102063102065%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self101778%_ - __continuation102448 + _%self102052%_ + __continuation102722 '#f '#f)))) - (if _%cont101789101791%_ - (let ((_%cont101794%_ _%cont101789101791%_)) + (if _%cont102063102065%_ + (let ((_%cont102068%_ _%cont102063102065%_)) (display '"--- continuation backtrace:" - _%tmp-port101788%_) - (newline _%tmp-port101788%_) + _%tmp-port102062%_) + (newline _%tmp-port102062%_) (display-continuation-backtrace - _%cont101794%_ - _%tmp-port101788%_)) + _%cont102068%_ + _%tmp-port102062%_)) '#f)) '#!void) - (let ((__tmp102486 (get-output-string _%tmp-port101788%_))) + (let ((__tmp102760 (get-output-string _%tmp-port102062%_))) (declare (not safe)) - (##write-string __tmp102486 _%port101774%_))))))) + (##write-string __tmp102760 _%port102048%_))))))) (let () (declare (not safe)) (bind-specializer! @@ -955,2636 +955,2636 @@ RuntimeException::display-exception '#f)) (define fix-port-width! - (lambda (_%port101644%_) - (if (macro-character-port? _%port101644%_) - (let ((_%old-width101646%_ - (macro-character-port-output-width _%port101644%_))) + (lambda (_%port101918%_) + (if (macro-character-port? _%port101918%_) + (let ((_%old-width101920%_ + (macro-character-port-output-width _%port101918%_))) (macro-character-port-output-width-set! - _%port101644%_ - (lambda (_%port101648%_) '256)) - _%old-width101646%_) + _%port101918%_ + (lambda (_%port101922%_) '256)) + _%old-width101920%_) '#!void))) (define reset-port-width! - (lambda (_%port101641%_ _%old-width101642%_) - (if (macro-character-port? _%port101641%_) + (lambda (_%port101915%_ _%old-width101916%_) + (if (macro-character-port? _%port101915%_) (macro-character-port-output-width-set! - _%port101641%_ - _%old-width101642%_) + _%port101915%_ + _%old-width101916%_) '#!void))) (define datum-parsing-exception-filepos - (lambda (_%e101639%_) - (macro-readenv-filepos (datum-parsing-exception-readenv _%e101639%_)))) + (lambda (_%e101913%_) + (macro-readenv-filepos (datum-parsing-exception-readenv _%e101913%_)))) (define abandoned-mutex-exception? - (lambda (_%exn101633%_) + (lambda (_%exn101907%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101633%_)) - (let ((_%e101636%_ + (class-instance? RuntimeException::t _%exn101907%_)) + (let ((_%e101910%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101633%_ 'exception)))) - (macro-abandoned-mutex-exception? _%e101636%_)) - (macro-abandoned-mutex-exception? _%exn101633%_)))) + (unchecked-slot-ref _%exn101907%_ 'exception)))) + (macro-abandoned-mutex-exception? _%e101910%_)) + (macro-abandoned-mutex-exception? _%exn101907%_)))) (define cfun-conversion-exception? - (lambda (_%exn101629%_) + (lambda (_%exn101903%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101629%_)) - (let ((_%e101631%_ + (class-instance? RuntimeException::t _%exn101903%_)) + (let ((_%e101905%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101629%_ 'exception)))) - (macro-cfun-conversion-exception? _%e101631%_)) - (macro-cfun-conversion-exception? _%exn101629%_)))) + (unchecked-slot-ref _%exn101903%_ 'exception)))) + (macro-cfun-conversion-exception? _%e101905%_)) + (macro-cfun-conversion-exception? _%exn101903%_)))) (define cfun-conversion-exception-arguments - (lambda (_%exn101625%_) + (lambda (_%exn101899%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101625%_)) - (let ((_%e101627%_ + (class-instance? RuntimeException::t _%exn101899%_)) + (let ((_%e101901%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101625%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e101627%_) - (macro-cfun-conversion-exception-arguments _%e101627%_) + (unchecked-slot-ref _%exn101899%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e101901%_) + (macro-cfun-conversion-exception-arguments _%e101901%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-arguments - (cons _%e101627%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn101625%_) - (macro-cfun-conversion-exception-arguments _%exn101625%_) + (cons _%e101901%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn101899%_) + (macro-cfun-conversion-exception-arguments _%exn101899%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-arguments - (cons _%exn101625%_ '()))))))) + (cons _%exn101899%_ '()))))))) (define cfun-conversion-exception-code - (lambda (_%exn101621%_) + (lambda (_%exn101895%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101621%_)) - (let ((_%e101623%_ + (class-instance? RuntimeException::t _%exn101895%_)) + (let ((_%e101897%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101621%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e101623%_) - (macro-cfun-conversion-exception-code _%e101623%_) + (unchecked-slot-ref _%exn101895%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e101897%_) + (macro-cfun-conversion-exception-code _%e101897%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-code - (cons _%e101623%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn101621%_) - (macro-cfun-conversion-exception-code _%exn101621%_) + (cons _%e101897%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn101895%_) + (macro-cfun-conversion-exception-code _%exn101895%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-code - (cons _%exn101621%_ '()))))))) + (cons _%exn101895%_ '()))))))) (define cfun-conversion-exception-message - (lambda (_%exn101617%_) + (lambda (_%exn101891%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101617%_)) - (let ((_%e101619%_ + (class-instance? RuntimeException::t _%exn101891%_)) + (let ((_%e101893%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101617%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e101619%_) - (macro-cfun-conversion-exception-message _%e101619%_) + (unchecked-slot-ref _%exn101891%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e101893%_) + (macro-cfun-conversion-exception-message _%e101893%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-message - (cons _%e101619%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn101617%_) - (macro-cfun-conversion-exception-message _%exn101617%_) + (cons _%e101893%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn101891%_) + (macro-cfun-conversion-exception-message _%exn101891%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-message - (cons _%exn101617%_ '()))))))) + (cons _%exn101891%_ '()))))))) (define cfun-conversion-exception-procedure - (lambda (_%exn101611%_) + (lambda (_%exn101885%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101611%_)) - (let ((_%e101614%_ + (class-instance? RuntimeException::t _%exn101885%_)) + (let ((_%e101888%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101611%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e101614%_) - (macro-cfun-conversion-exception-procedure _%e101614%_) + (unchecked-slot-ref _%exn101885%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e101888%_) + (macro-cfun-conversion-exception-procedure _%e101888%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-procedure - (cons _%e101614%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn101611%_) - (macro-cfun-conversion-exception-procedure _%exn101611%_) + (cons _%e101888%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn101885%_) + (macro-cfun-conversion-exception-procedure _%exn101885%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-procedure - (cons _%exn101611%_ '()))))))) + (cons _%exn101885%_ '()))))))) (define datum-parsing-exception? - (lambda (_%exn101607%_) + (lambda (_%exn101881%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101607%_)) - (let ((_%e101609%_ + (class-instance? RuntimeException::t _%exn101881%_)) + (let ((_%e101883%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101607%_ 'exception)))) - (macro-datum-parsing-exception? _%e101609%_)) - (macro-datum-parsing-exception? _%exn101607%_)))) + (unchecked-slot-ref _%exn101881%_ 'exception)))) + (macro-datum-parsing-exception? _%e101883%_)) + (macro-datum-parsing-exception? _%exn101881%_)))) (define datum-parsing-exception-kind - (lambda (_%exn101603%_) + (lambda (_%exn101877%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101603%_)) - (let ((_%e101605%_ + (class-instance? RuntimeException::t _%exn101877%_)) + (let ((_%e101879%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101603%_ 'exception)))) - (if (macro-datum-parsing-exception? _%e101605%_) - (macro-datum-parsing-exception-kind _%e101605%_) + (unchecked-slot-ref _%exn101877%_ 'exception)))) + (if (macro-datum-parsing-exception? _%e101879%_) + (macro-datum-parsing-exception-kind _%e101879%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-kind - (cons _%e101605%_ '()))))) - (if (macro-datum-parsing-exception? _%exn101603%_) - (macro-datum-parsing-exception-kind _%exn101603%_) + (cons _%e101879%_ '()))))) + (if (macro-datum-parsing-exception? _%exn101877%_) + (macro-datum-parsing-exception-kind _%exn101877%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-kind - (cons _%exn101603%_ '()))))))) + (cons _%exn101877%_ '()))))))) (define datum-parsing-exception-parameters - (lambda (_%exn101599%_) + (lambda (_%exn101873%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101599%_)) - (let ((_%e101601%_ + (class-instance? RuntimeException::t _%exn101873%_)) + (let ((_%e101875%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101599%_ 'exception)))) - (if (macro-datum-parsing-exception? _%e101601%_) - (macro-datum-parsing-exception-parameters _%e101601%_) + (unchecked-slot-ref _%exn101873%_ 'exception)))) + (if (macro-datum-parsing-exception? _%e101875%_) + (macro-datum-parsing-exception-parameters _%e101875%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-parameters - (cons _%e101601%_ '()))))) - (if (macro-datum-parsing-exception? _%exn101599%_) - (macro-datum-parsing-exception-parameters _%exn101599%_) + (cons _%e101875%_ '()))))) + (if (macro-datum-parsing-exception? _%exn101873%_) + (macro-datum-parsing-exception-parameters _%exn101873%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-parameters - (cons _%exn101599%_ '()))))))) + (cons _%exn101873%_ '()))))))) (define datum-parsing-exception-readenv - (lambda (_%exn101593%_) + (lambda (_%exn101867%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101593%_)) - (let ((_%e101596%_ + (class-instance? RuntimeException::t _%exn101867%_)) + (let ((_%e101870%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101593%_ 'exception)))) - (if (macro-datum-parsing-exception? _%e101596%_) - (macro-datum-parsing-exception-readenv _%e101596%_) + (unchecked-slot-ref _%exn101867%_ 'exception)))) + (if (macro-datum-parsing-exception? _%e101870%_) + (macro-datum-parsing-exception-readenv _%e101870%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-readenv - (cons _%e101596%_ '()))))) - (if (macro-datum-parsing-exception? _%exn101593%_) - (macro-datum-parsing-exception-readenv _%exn101593%_) + (cons _%e101870%_ '()))))) + (if (macro-datum-parsing-exception? _%exn101867%_) + (macro-datum-parsing-exception-readenv _%exn101867%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-readenv - (cons _%exn101593%_ '()))))))) + (cons _%exn101867%_ '()))))))) (define deadlock-exception? - (lambda (_%exn101587%_) + (lambda (_%exn101861%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101587%_)) - (let ((_%e101590%_ + (class-instance? RuntimeException::t _%exn101861%_)) + (let ((_%e101864%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101587%_ 'exception)))) - (macro-deadlock-exception? _%e101590%_)) - (macro-deadlock-exception? _%exn101587%_)))) + (unchecked-slot-ref _%exn101861%_ 'exception)))) + (macro-deadlock-exception? _%e101864%_)) + (macro-deadlock-exception? _%exn101861%_)))) (define divide-by-zero-exception? - (lambda (_%exn101583%_) + (lambda (_%exn101857%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101583%_)) - (let ((_%e101585%_ + (class-instance? RuntimeException::t _%exn101857%_)) + (let ((_%e101859%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101583%_ 'exception)))) - (macro-divide-by-zero-exception? _%e101585%_)) - (macro-divide-by-zero-exception? _%exn101583%_)))) + (unchecked-slot-ref _%exn101857%_ 'exception)))) + (macro-divide-by-zero-exception? _%e101859%_)) + (macro-divide-by-zero-exception? _%exn101857%_)))) (define divide-by-zero-exception-arguments - (lambda (_%exn101579%_) + (lambda (_%exn101853%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101579%_)) - (let ((_%e101581%_ + (class-instance? RuntimeException::t _%exn101853%_)) + (let ((_%e101855%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101579%_ 'exception)))) - (if (macro-divide-by-zero-exception? _%e101581%_) - (macro-divide-by-zero-exception-arguments _%e101581%_) + (unchecked-slot-ref _%exn101853%_ 'exception)))) + (if (macro-divide-by-zero-exception? _%e101855%_) + (macro-divide-by-zero-exception-arguments _%e101855%_) (error '"not an instance" 'divide-by-zero-exception? (cons 'divide-by-zero-exception-arguments - (cons _%e101581%_ '()))))) - (if (macro-divide-by-zero-exception? _%exn101579%_) - (macro-divide-by-zero-exception-arguments _%exn101579%_) + (cons _%e101855%_ '()))))) + (if (macro-divide-by-zero-exception? _%exn101853%_) + (macro-divide-by-zero-exception-arguments _%exn101853%_) (error '"not an instance" 'divide-by-zero-exception? (cons 'divide-by-zero-exception-arguments - (cons _%exn101579%_ '()))))))) + (cons _%exn101853%_ '()))))))) (define divide-by-zero-exception-procedure - (lambda (_%exn101573%_) + (lambda (_%exn101847%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101573%_)) - (let ((_%e101576%_ + (class-instance? RuntimeException::t _%exn101847%_)) + (let ((_%e101850%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101573%_ 'exception)))) - (if (macro-divide-by-zero-exception? _%e101576%_) - (macro-divide-by-zero-exception-procedure _%e101576%_) + (unchecked-slot-ref _%exn101847%_ 'exception)))) + (if (macro-divide-by-zero-exception? _%e101850%_) + (macro-divide-by-zero-exception-procedure _%e101850%_) (error '"not an instance" 'divide-by-zero-exception? (cons 'divide-by-zero-exception-procedure - (cons _%e101576%_ '()))))) - (if (macro-divide-by-zero-exception? _%exn101573%_) - (macro-divide-by-zero-exception-procedure _%exn101573%_) + (cons _%e101850%_ '()))))) + (if (macro-divide-by-zero-exception? _%exn101847%_) + (macro-divide-by-zero-exception-procedure _%exn101847%_) (error '"not an instance" 'divide-by-zero-exception? (cons 'divide-by-zero-exception-procedure - (cons _%exn101573%_ '()))))))) + (cons _%exn101847%_ '()))))))) (define error-exception? - (lambda (_%exn101569%_) + (lambda (_%exn101843%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101569%_)) - (let ((_%e101571%_ + (class-instance? RuntimeException::t _%exn101843%_)) + (let ((_%e101845%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101569%_ 'exception)))) - (macro-error-exception? _%e101571%_)) - (macro-error-exception? _%exn101569%_)))) + (unchecked-slot-ref _%exn101843%_ 'exception)))) + (macro-error-exception? _%e101845%_)) + (macro-error-exception? _%exn101843%_)))) (define error-exception-message - (lambda (_%exn101565%_) + (lambda (_%exn101839%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101565%_)) - (let ((_%e101567%_ + (class-instance? RuntimeException::t _%exn101839%_)) + (let ((_%e101841%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101565%_ 'exception)))) - (if (macro-error-exception? _%e101567%_) - (macro-error-exception-message _%e101567%_) + (unchecked-slot-ref _%exn101839%_ 'exception)))) + (if (macro-error-exception? _%e101841%_) + (macro-error-exception-message _%e101841%_) (error '"not an instance" 'error-exception? (cons 'error-exception-message - (cons _%e101567%_ '()))))) - (if (macro-error-exception? _%exn101565%_) - (macro-error-exception-message _%exn101565%_) + (cons _%e101841%_ '()))))) + (if (macro-error-exception? _%exn101839%_) + (macro-error-exception-message _%exn101839%_) (error '"not an instance" 'error-exception? (cons 'error-exception-message - (cons _%exn101565%_ '()))))))) + (cons _%exn101839%_ '()))))))) (define error-exception-parameters - (lambda (_%exn101559%_) + (lambda (_%exn101833%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101559%_)) - (let ((_%e101562%_ + (class-instance? RuntimeException::t _%exn101833%_)) + (let ((_%e101836%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101559%_ 'exception)))) - (if (macro-error-exception? _%e101562%_) - (macro-error-exception-parameters _%e101562%_) + (unchecked-slot-ref _%exn101833%_ 'exception)))) + (if (macro-error-exception? _%e101836%_) + (macro-error-exception-parameters _%e101836%_) (error '"not an instance" 'error-exception? (cons 'error-exception-parameters - (cons _%e101562%_ '()))))) - (if (macro-error-exception? _%exn101559%_) - (macro-error-exception-parameters _%exn101559%_) + (cons _%e101836%_ '()))))) + (if (macro-error-exception? _%exn101833%_) + (macro-error-exception-parameters _%exn101833%_) (error '"not an instance" 'error-exception? (cons 'error-exception-parameters - (cons _%exn101559%_ '()))))))) + (cons _%exn101833%_ '()))))))) (define expression-parsing-exception? - (lambda (_%exn101555%_) + (lambda (_%exn101829%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101555%_)) - (let ((_%e101557%_ + (class-instance? RuntimeException::t _%exn101829%_)) + (let ((_%e101831%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101555%_ 'exception)))) - (macro-expression-parsing-exception? _%e101557%_)) - (macro-expression-parsing-exception? _%exn101555%_)))) + (unchecked-slot-ref _%exn101829%_ 'exception)))) + (macro-expression-parsing-exception? _%e101831%_)) + (macro-expression-parsing-exception? _%exn101829%_)))) (define expression-parsing-exception-kind - (lambda (_%exn101551%_) + (lambda (_%exn101825%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101551%_)) - (let ((_%e101553%_ + (class-instance? RuntimeException::t _%exn101825%_)) + (let ((_%e101827%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101551%_ 'exception)))) - (if (macro-expression-parsing-exception? _%e101553%_) - (macro-expression-parsing-exception-kind _%e101553%_) + (unchecked-slot-ref _%exn101825%_ 'exception)))) + (if (macro-expression-parsing-exception? _%e101827%_) + (macro-expression-parsing-exception-kind _%e101827%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-kind - (cons _%e101553%_ '()))))) - (if (macro-expression-parsing-exception? _%exn101551%_) - (macro-expression-parsing-exception-kind _%exn101551%_) + (cons _%e101827%_ '()))))) + (if (macro-expression-parsing-exception? _%exn101825%_) + (macro-expression-parsing-exception-kind _%exn101825%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-kind - (cons _%exn101551%_ '()))))))) + (cons _%exn101825%_ '()))))))) (define expression-parsing-exception-parameters - (lambda (_%exn101547%_) + (lambda (_%exn101821%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101547%_)) - (let ((_%e101549%_ + (class-instance? RuntimeException::t _%exn101821%_)) + (let ((_%e101823%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101547%_ 'exception)))) - (if (macro-expression-parsing-exception? _%e101549%_) - (macro-expression-parsing-exception-parameters _%e101549%_) + (unchecked-slot-ref _%exn101821%_ 'exception)))) + (if (macro-expression-parsing-exception? _%e101823%_) + (macro-expression-parsing-exception-parameters _%e101823%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-parameters - (cons _%e101549%_ '()))))) - (if (macro-expression-parsing-exception? _%exn101547%_) - (macro-expression-parsing-exception-parameters _%exn101547%_) + (cons _%e101823%_ '()))))) + (if (macro-expression-parsing-exception? _%exn101821%_) + (macro-expression-parsing-exception-parameters _%exn101821%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-parameters - (cons _%exn101547%_ '()))))))) + (cons _%exn101821%_ '()))))))) (define expression-parsing-exception-source - (lambda (_%exn101541%_) + (lambda (_%exn101815%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101541%_)) - (let ((_%e101544%_ + (class-instance? RuntimeException::t _%exn101815%_)) + (let ((_%e101818%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101541%_ 'exception)))) - (if (macro-expression-parsing-exception? _%e101544%_) - (macro-expression-parsing-exception-source _%e101544%_) + (unchecked-slot-ref _%exn101815%_ 'exception)))) + (if (macro-expression-parsing-exception? _%e101818%_) + (macro-expression-parsing-exception-source _%e101818%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-source - (cons _%e101544%_ '()))))) - (if (macro-expression-parsing-exception? _%exn101541%_) - (macro-expression-parsing-exception-source _%exn101541%_) + (cons _%e101818%_ '()))))) + (if (macro-expression-parsing-exception? _%exn101815%_) + (macro-expression-parsing-exception-source _%exn101815%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-source - (cons _%exn101541%_ '()))))))) + (cons _%exn101815%_ '()))))))) (define file-exists-exception? - (lambda (_%exn101537%_) + (lambda (_%exn101811%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101537%_)) - (let ((_%e101539%_ + (class-instance? RuntimeException::t _%exn101811%_)) + (let ((_%e101813%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101537%_ 'exception)))) - (macro-file-exists-exception? _%e101539%_)) - (macro-file-exists-exception? _%exn101537%_)))) + (unchecked-slot-ref _%exn101811%_ 'exception)))) + (macro-file-exists-exception? _%e101813%_)) + (macro-file-exists-exception? _%exn101811%_)))) (define file-exists-exception-arguments - (lambda (_%exn101533%_) + (lambda (_%exn101807%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101533%_)) - (let ((_%e101535%_ + (class-instance? RuntimeException::t _%exn101807%_)) + (let ((_%e101809%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101533%_ 'exception)))) - (if (macro-file-exists-exception? _%e101535%_) - (macro-file-exists-exception-arguments _%e101535%_) + (unchecked-slot-ref _%exn101807%_ 'exception)))) + (if (macro-file-exists-exception? _%e101809%_) + (macro-file-exists-exception-arguments _%e101809%_) (error '"not an instance" 'file-exists-exception? (cons 'file-exists-exception-arguments - (cons _%e101535%_ '()))))) - (if (macro-file-exists-exception? _%exn101533%_) - (macro-file-exists-exception-arguments _%exn101533%_) + (cons _%e101809%_ '()))))) + (if (macro-file-exists-exception? _%exn101807%_) + (macro-file-exists-exception-arguments _%exn101807%_) (error '"not an instance" 'file-exists-exception? (cons 'file-exists-exception-arguments - (cons _%exn101533%_ '()))))))) + (cons _%exn101807%_ '()))))))) (define file-exists-exception-procedure - (lambda (_%exn101527%_) + (lambda (_%exn101801%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101527%_)) - (let ((_%e101530%_ + (class-instance? RuntimeException::t _%exn101801%_)) + (let ((_%e101804%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101527%_ 'exception)))) - (if (macro-file-exists-exception? _%e101530%_) - (macro-file-exists-exception-procedure _%e101530%_) + (unchecked-slot-ref _%exn101801%_ 'exception)))) + (if (macro-file-exists-exception? _%e101804%_) + (macro-file-exists-exception-procedure _%e101804%_) (error '"not an instance" 'file-exists-exception? (cons 'file-exists-exception-procedure - (cons _%e101530%_ '()))))) - (if (macro-file-exists-exception? _%exn101527%_) - (macro-file-exists-exception-procedure _%exn101527%_) + (cons _%e101804%_ '()))))) + (if (macro-file-exists-exception? _%exn101801%_) + (macro-file-exists-exception-procedure _%exn101801%_) (error '"not an instance" 'file-exists-exception? (cons 'file-exists-exception-procedure - (cons _%exn101527%_ '()))))))) + (cons _%exn101801%_ '()))))))) (define fixnum-overflow-exception? - (lambda (_%exn101523%_) + (lambda (_%exn101797%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101523%_)) - (let ((_%e101525%_ + (class-instance? RuntimeException::t _%exn101797%_)) + (let ((_%e101799%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101523%_ 'exception)))) - (macro-fixnum-overflow-exception? _%e101525%_)) - (macro-fixnum-overflow-exception? _%exn101523%_)))) + (unchecked-slot-ref _%exn101797%_ 'exception)))) + (macro-fixnum-overflow-exception? _%e101799%_)) + (macro-fixnum-overflow-exception? _%exn101797%_)))) (define fixnum-overflow-exception-arguments - (lambda (_%exn101519%_) + (lambda (_%exn101793%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101519%_)) - (let ((_%e101521%_ + (class-instance? RuntimeException::t _%exn101793%_)) + (let ((_%e101795%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101519%_ 'exception)))) - (if (macro-fixnum-overflow-exception? _%e101521%_) - (macro-fixnum-overflow-exception-arguments _%e101521%_) + (unchecked-slot-ref _%exn101793%_ 'exception)))) + (if (macro-fixnum-overflow-exception? _%e101795%_) + (macro-fixnum-overflow-exception-arguments _%e101795%_) (error '"not an instance" 'fixnum-overflow-exception? (cons 'fixnum-overflow-exception-arguments - (cons _%e101521%_ '()))))) - (if (macro-fixnum-overflow-exception? _%exn101519%_) - (macro-fixnum-overflow-exception-arguments _%exn101519%_) + (cons _%e101795%_ '()))))) + (if (macro-fixnum-overflow-exception? _%exn101793%_) + (macro-fixnum-overflow-exception-arguments _%exn101793%_) (error '"not an instance" 'fixnum-overflow-exception? (cons 'fixnum-overflow-exception-arguments - (cons _%exn101519%_ '()))))))) + (cons _%exn101793%_ '()))))))) (define fixnum-overflow-exception-procedure - (lambda (_%exn101513%_) + (lambda (_%exn101787%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101513%_)) - (let ((_%e101516%_ + (class-instance? RuntimeException::t _%exn101787%_)) + (let ((_%e101790%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101513%_ 'exception)))) - (if (macro-fixnum-overflow-exception? _%e101516%_) - (macro-fixnum-overflow-exception-procedure _%e101516%_) + (unchecked-slot-ref _%exn101787%_ 'exception)))) + (if (macro-fixnum-overflow-exception? _%e101790%_) + (macro-fixnum-overflow-exception-procedure _%e101790%_) (error '"not an instance" 'fixnum-overflow-exception? (cons 'fixnum-overflow-exception-procedure - (cons _%e101516%_ '()))))) - (if (macro-fixnum-overflow-exception? _%exn101513%_) - (macro-fixnum-overflow-exception-procedure _%exn101513%_) + (cons _%e101790%_ '()))))) + (if (macro-fixnum-overflow-exception? _%exn101787%_) + (macro-fixnum-overflow-exception-procedure _%exn101787%_) (error '"not an instance" 'fixnum-overflow-exception? (cons 'fixnum-overflow-exception-procedure - (cons _%exn101513%_ '()))))))) + (cons _%exn101787%_ '()))))))) (define heap-overflow-exception? - (lambda (_%exn101507%_) + (lambda (_%exn101781%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101507%_)) - (let ((_%e101510%_ + (class-instance? RuntimeException::t _%exn101781%_)) + (let ((_%e101784%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101507%_ 'exception)))) - (macro-heap-overflow-exception? _%e101510%_)) - (macro-heap-overflow-exception? _%exn101507%_)))) + (unchecked-slot-ref _%exn101781%_ 'exception)))) + (macro-heap-overflow-exception? _%e101784%_)) + (macro-heap-overflow-exception? _%exn101781%_)))) (define inactive-thread-exception? - (lambda (_%exn101503%_) + (lambda (_%exn101777%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101503%_)) - (let ((_%e101505%_ + (class-instance? RuntimeException::t _%exn101777%_)) + (let ((_%e101779%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101503%_ 'exception)))) - (macro-inactive-thread-exception? _%e101505%_)) - (macro-inactive-thread-exception? _%exn101503%_)))) + (unchecked-slot-ref _%exn101777%_ 'exception)))) + (macro-inactive-thread-exception? _%e101779%_)) + (macro-inactive-thread-exception? _%exn101777%_)))) (define inactive-thread-exception-arguments - (lambda (_%exn101499%_) + (lambda (_%exn101773%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101499%_)) - (let ((_%e101501%_ + (class-instance? RuntimeException::t _%exn101773%_)) + (let ((_%e101775%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101499%_ 'exception)))) - (if (macro-inactive-thread-exception? _%e101501%_) - (macro-inactive-thread-exception-arguments _%e101501%_) + (unchecked-slot-ref _%exn101773%_ 'exception)))) + (if (macro-inactive-thread-exception? _%e101775%_) + (macro-inactive-thread-exception-arguments _%e101775%_) (error '"not an instance" 'inactive-thread-exception? (cons 'inactive-thread-exception-arguments - (cons _%e101501%_ '()))))) - (if (macro-inactive-thread-exception? _%exn101499%_) - (macro-inactive-thread-exception-arguments _%exn101499%_) + (cons _%e101775%_ '()))))) + (if (macro-inactive-thread-exception? _%exn101773%_) + (macro-inactive-thread-exception-arguments _%exn101773%_) (error '"not an instance" 'inactive-thread-exception? (cons 'inactive-thread-exception-arguments - (cons _%exn101499%_ '()))))))) + (cons _%exn101773%_ '()))))))) (define inactive-thread-exception-procedure - (lambda (_%exn101493%_) + (lambda (_%exn101767%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101493%_)) - (let ((_%e101496%_ + (class-instance? RuntimeException::t _%exn101767%_)) + (let ((_%e101770%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101493%_ 'exception)))) - (if (macro-inactive-thread-exception? _%e101496%_) - (macro-inactive-thread-exception-procedure _%e101496%_) + (unchecked-slot-ref _%exn101767%_ 'exception)))) + (if (macro-inactive-thread-exception? _%e101770%_) + (macro-inactive-thread-exception-procedure _%e101770%_) (error '"not an instance" 'inactive-thread-exception? (cons 'inactive-thread-exception-procedure - (cons _%e101496%_ '()))))) - (if (macro-inactive-thread-exception? _%exn101493%_) - (macro-inactive-thread-exception-procedure _%exn101493%_) + (cons _%e101770%_ '()))))) + (if (macro-inactive-thread-exception? _%exn101767%_) + (macro-inactive-thread-exception-procedure _%exn101767%_) (error '"not an instance" 'inactive-thread-exception? (cons 'inactive-thread-exception-procedure - (cons _%exn101493%_ '()))))))) + (cons _%exn101767%_ '()))))))) (define initialized-thread-exception? - (lambda (_%exn101489%_) + (lambda (_%exn101763%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101489%_)) - (let ((_%e101491%_ + (class-instance? RuntimeException::t _%exn101763%_)) + (let ((_%e101765%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101489%_ 'exception)))) - (macro-initialized-thread-exception? _%e101491%_)) - (macro-initialized-thread-exception? _%exn101489%_)))) + (unchecked-slot-ref _%exn101763%_ 'exception)))) + (macro-initialized-thread-exception? _%e101765%_)) + (macro-initialized-thread-exception? _%exn101763%_)))) (define initialized-thread-exception-arguments - (lambda (_%exn101485%_) + (lambda (_%exn101759%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101485%_)) - (let ((_%e101487%_ + (class-instance? RuntimeException::t _%exn101759%_)) + (let ((_%e101761%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101485%_ 'exception)))) - (if (macro-initialized-thread-exception? _%e101487%_) - (macro-initialized-thread-exception-arguments _%e101487%_) + (unchecked-slot-ref _%exn101759%_ 'exception)))) + (if (macro-initialized-thread-exception? _%e101761%_) + (macro-initialized-thread-exception-arguments _%e101761%_) (error '"not an instance" 'initialized-thread-exception? (cons 'initialized-thread-exception-arguments - (cons _%e101487%_ '()))))) - (if (macro-initialized-thread-exception? _%exn101485%_) - (macro-initialized-thread-exception-arguments _%exn101485%_) + (cons _%e101761%_ '()))))) + (if (macro-initialized-thread-exception? _%exn101759%_) + (macro-initialized-thread-exception-arguments _%exn101759%_) (error '"not an instance" 'initialized-thread-exception? (cons 'initialized-thread-exception-arguments - (cons _%exn101485%_ '()))))))) + (cons _%exn101759%_ '()))))))) (define initialized-thread-exception-procedure - (lambda (_%exn101479%_) + (lambda (_%exn101753%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101479%_)) - (let ((_%e101482%_ + (class-instance? RuntimeException::t _%exn101753%_)) + (let ((_%e101756%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101479%_ 'exception)))) - (if (macro-initialized-thread-exception? _%e101482%_) - (macro-initialized-thread-exception-procedure _%e101482%_) + (unchecked-slot-ref _%exn101753%_ 'exception)))) + (if (macro-initialized-thread-exception? _%e101756%_) + (macro-initialized-thread-exception-procedure _%e101756%_) (error '"not an instance" 'initialized-thread-exception? (cons 'initialized-thread-exception-procedure - (cons _%e101482%_ '()))))) - (if (macro-initialized-thread-exception? _%exn101479%_) - (macro-initialized-thread-exception-procedure _%exn101479%_) + (cons _%e101756%_ '()))))) + (if (macro-initialized-thread-exception? _%exn101753%_) + (macro-initialized-thread-exception-procedure _%exn101753%_) (error '"not an instance" 'initialized-thread-exception? (cons 'initialized-thread-exception-procedure - (cons _%exn101479%_ '()))))))) + (cons _%exn101753%_ '()))))))) (define invalid-hash-number-exception? - (lambda (_%exn101475%_) + (lambda (_%exn101749%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101475%_)) - (let ((_%e101477%_ + (class-instance? RuntimeException::t _%exn101749%_)) + (let ((_%e101751%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101475%_ 'exception)))) - (macro-invalid-hash-number-exception? _%e101477%_)) - (macro-invalid-hash-number-exception? _%exn101475%_)))) + (unchecked-slot-ref _%exn101749%_ 'exception)))) + (macro-invalid-hash-number-exception? _%e101751%_)) + (macro-invalid-hash-number-exception? _%exn101749%_)))) (define invalid-hash-number-exception-arguments - (lambda (_%exn101471%_) + (lambda (_%exn101745%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101471%_)) - (let ((_%e101473%_ + (class-instance? RuntimeException::t _%exn101745%_)) + (let ((_%e101747%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101471%_ 'exception)))) - (if (macro-invalid-hash-number-exception? _%e101473%_) - (macro-invalid-hash-number-exception-arguments _%e101473%_) + (unchecked-slot-ref _%exn101745%_ 'exception)))) + (if (macro-invalid-hash-number-exception? _%e101747%_) + (macro-invalid-hash-number-exception-arguments _%e101747%_) (error '"not an instance" 'invalid-hash-number-exception? (cons 'invalid-hash-number-exception-arguments - (cons _%e101473%_ '()))))) - (if (macro-invalid-hash-number-exception? _%exn101471%_) - (macro-invalid-hash-number-exception-arguments _%exn101471%_) + (cons _%e101747%_ '()))))) + (if (macro-invalid-hash-number-exception? _%exn101745%_) + (macro-invalid-hash-number-exception-arguments _%exn101745%_) (error '"not an instance" 'invalid-hash-number-exception? (cons 'invalid-hash-number-exception-arguments - (cons _%exn101471%_ '()))))))) + (cons _%exn101745%_ '()))))))) (define invalid-hash-number-exception-procedure - (lambda (_%exn101465%_) + (lambda (_%exn101739%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101465%_)) - (let ((_%e101468%_ + (class-instance? RuntimeException::t _%exn101739%_)) + (let ((_%e101742%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101465%_ 'exception)))) - (if (macro-invalid-hash-number-exception? _%e101468%_) - (macro-invalid-hash-number-exception-procedure _%e101468%_) + (unchecked-slot-ref _%exn101739%_ 'exception)))) + (if (macro-invalid-hash-number-exception? _%e101742%_) + (macro-invalid-hash-number-exception-procedure _%e101742%_) (error '"not an instance" 'invalid-hash-number-exception? (cons 'invalid-hash-number-exception-procedure - (cons _%e101468%_ '()))))) - (if (macro-invalid-hash-number-exception? _%exn101465%_) - (macro-invalid-hash-number-exception-procedure _%exn101465%_) + (cons _%e101742%_ '()))))) + (if (macro-invalid-hash-number-exception? _%exn101739%_) + (macro-invalid-hash-number-exception-procedure _%exn101739%_) (error '"not an instance" 'invalid-hash-number-exception? (cons 'invalid-hash-number-exception-procedure - (cons _%exn101465%_ '()))))))) + (cons _%exn101739%_ '()))))))) (define invalid-utf8-encoding-exception? - (lambda (_%exn101461%_) + (lambda (_%exn101735%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101461%_)) - (let ((_%e101463%_ + (class-instance? RuntimeException::t _%exn101735%_)) + (let ((_%e101737%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101461%_ 'exception)))) - (macro-invalid-utf8-encoding-exception? _%e101463%_)) - (macro-invalid-utf8-encoding-exception? _%exn101461%_)))) + (unchecked-slot-ref _%exn101735%_ 'exception)))) + (macro-invalid-utf8-encoding-exception? _%e101737%_)) + (macro-invalid-utf8-encoding-exception? _%exn101735%_)))) (define invalid-utf8-encoding-exception-arguments - (lambda (_%exn101457%_) + (lambda (_%exn101731%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101457%_)) - (let ((_%e101459%_ + (class-instance? RuntimeException::t _%exn101731%_)) + (let ((_%e101733%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101457%_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _%e101459%_) - (macro-invalid-utf8-encoding-exception-arguments _%e101459%_) + (unchecked-slot-ref _%exn101731%_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _%e101733%_) + (macro-invalid-utf8-encoding-exception-arguments _%e101733%_) (error '"not an instance" 'invalid-utf8-encoding-exception? (cons 'invalid-utf8-encoding-exception-arguments - (cons _%e101459%_ '()))))) - (if (macro-invalid-utf8-encoding-exception? _%exn101457%_) - (macro-invalid-utf8-encoding-exception-arguments _%exn101457%_) + (cons _%e101733%_ '()))))) + (if (macro-invalid-utf8-encoding-exception? _%exn101731%_) + (macro-invalid-utf8-encoding-exception-arguments _%exn101731%_) (error '"not an instance" 'invalid-utf8-encoding-exception? (cons 'invalid-utf8-encoding-exception-arguments - (cons _%exn101457%_ '()))))))) + (cons _%exn101731%_ '()))))))) (define invalid-utf8-encoding-exception-procedure - (lambda (_%exn101451%_) + (lambda (_%exn101725%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101451%_)) - (let ((_%e101454%_ + (class-instance? RuntimeException::t _%exn101725%_)) + (let ((_%e101728%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101451%_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _%e101454%_) - (macro-invalid-utf8-encoding-exception-procedure _%e101454%_) + (unchecked-slot-ref _%exn101725%_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _%e101728%_) + (macro-invalid-utf8-encoding-exception-procedure _%e101728%_) (error '"not an instance" 'invalid-utf8-encoding-exception? (cons 'invalid-utf8-encoding-exception-procedure - (cons _%e101454%_ '()))))) - (if (macro-invalid-utf8-encoding-exception? _%exn101451%_) - (macro-invalid-utf8-encoding-exception-procedure _%exn101451%_) + (cons _%e101728%_ '()))))) + (if (macro-invalid-utf8-encoding-exception? _%exn101725%_) + (macro-invalid-utf8-encoding-exception-procedure _%exn101725%_) (error '"not an instance" 'invalid-utf8-encoding-exception? (cons 'invalid-utf8-encoding-exception-procedure - (cons _%exn101451%_ '()))))))) + (cons _%exn101725%_ '()))))))) (define join-timeout-exception? - (lambda (_%exn101447%_) + (lambda (_%exn101721%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101447%_)) - (let ((_%e101449%_ + (class-instance? RuntimeException::t _%exn101721%_)) + (let ((_%e101723%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101447%_ 'exception)))) - (macro-join-timeout-exception? _%e101449%_)) - (macro-join-timeout-exception? _%exn101447%_)))) + (unchecked-slot-ref _%exn101721%_ 'exception)))) + (macro-join-timeout-exception? _%e101723%_)) + (macro-join-timeout-exception? _%exn101721%_)))) (define join-timeout-exception-arguments - (lambda (_%exn101443%_) + (lambda (_%exn101717%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101443%_)) - (let ((_%e101445%_ + (class-instance? RuntimeException::t _%exn101717%_)) + (let ((_%e101719%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101443%_ 'exception)))) - (if (macro-join-timeout-exception? _%e101445%_) - (macro-join-timeout-exception-arguments _%e101445%_) + (unchecked-slot-ref _%exn101717%_ 'exception)))) + (if (macro-join-timeout-exception? _%e101719%_) + (macro-join-timeout-exception-arguments _%e101719%_) (error '"not an instance" 'join-timeout-exception? (cons 'join-timeout-exception-arguments - (cons _%e101445%_ '()))))) - (if (macro-join-timeout-exception? _%exn101443%_) - (macro-join-timeout-exception-arguments _%exn101443%_) + (cons _%e101719%_ '()))))) + (if (macro-join-timeout-exception? _%exn101717%_) + (macro-join-timeout-exception-arguments _%exn101717%_) (error '"not an instance" 'join-timeout-exception? (cons 'join-timeout-exception-arguments - (cons _%exn101443%_ '()))))))) + (cons _%exn101717%_ '()))))))) (define join-timeout-exception-procedure - (lambda (_%exn101437%_) + (lambda (_%exn101711%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101437%_)) - (let ((_%e101440%_ + (class-instance? RuntimeException::t _%exn101711%_)) + (let ((_%e101714%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101437%_ 'exception)))) - (if (macro-join-timeout-exception? _%e101440%_) - (macro-join-timeout-exception-procedure _%e101440%_) + (unchecked-slot-ref _%exn101711%_ 'exception)))) + (if (macro-join-timeout-exception? _%e101714%_) + (macro-join-timeout-exception-procedure _%e101714%_) (error '"not an instance" 'join-timeout-exception? (cons 'join-timeout-exception-procedure - (cons _%e101440%_ '()))))) - (if (macro-join-timeout-exception? _%exn101437%_) - (macro-join-timeout-exception-procedure _%exn101437%_) + (cons _%e101714%_ '()))))) + (if (macro-join-timeout-exception? _%exn101711%_) + (macro-join-timeout-exception-procedure _%exn101711%_) (error '"not an instance" 'join-timeout-exception? (cons 'join-timeout-exception-procedure - (cons _%exn101437%_ '()))))))) + (cons _%exn101711%_ '()))))))) (define keyword-expected-exception? - (lambda (_%exn101433%_) + (lambda (_%exn101707%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101433%_)) - (let ((_%e101435%_ + (class-instance? RuntimeException::t _%exn101707%_)) + (let ((_%e101709%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101433%_ 'exception)))) - (macro-keyword-expected-exception? _%e101435%_)) - (macro-keyword-expected-exception? _%exn101433%_)))) + (unchecked-slot-ref _%exn101707%_ 'exception)))) + (macro-keyword-expected-exception? _%e101709%_)) + (macro-keyword-expected-exception? _%exn101707%_)))) (define keyword-expected-exception-arguments - (lambda (_%exn101429%_) + (lambda (_%exn101703%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101429%_)) - (let ((_%e101431%_ + (class-instance? RuntimeException::t _%exn101703%_)) + (let ((_%e101705%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101429%_ 'exception)))) - (if (macro-keyword-expected-exception? _%e101431%_) - (macro-keyword-expected-exception-arguments _%e101431%_) + (unchecked-slot-ref _%exn101703%_ 'exception)))) + (if (macro-keyword-expected-exception? _%e101705%_) + (macro-keyword-expected-exception-arguments _%e101705%_) (error '"not an instance" 'keyword-expected-exception? (cons 'keyword-expected-exception-arguments - (cons _%e101431%_ '()))))) - (if (macro-keyword-expected-exception? _%exn101429%_) - (macro-keyword-expected-exception-arguments _%exn101429%_) + (cons _%e101705%_ '()))))) + (if (macro-keyword-expected-exception? _%exn101703%_) + (macro-keyword-expected-exception-arguments _%exn101703%_) (error '"not an instance" 'keyword-expected-exception? (cons 'keyword-expected-exception-arguments - (cons _%exn101429%_ '()))))))) + (cons _%exn101703%_ '()))))))) (define keyword-expected-exception-procedure - (lambda (_%exn101423%_) + (lambda (_%exn101697%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101423%_)) - (let ((_%e101426%_ + (class-instance? RuntimeException::t _%exn101697%_)) + (let ((_%e101700%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101423%_ 'exception)))) - (if (macro-keyword-expected-exception? _%e101426%_) - (macro-keyword-expected-exception-procedure _%e101426%_) + (unchecked-slot-ref _%exn101697%_ 'exception)))) + (if (macro-keyword-expected-exception? _%e101700%_) + (macro-keyword-expected-exception-procedure _%e101700%_) (error '"not an instance" 'keyword-expected-exception? (cons 'keyword-expected-exception-procedure - (cons _%e101426%_ '()))))) - (if (macro-keyword-expected-exception? _%exn101423%_) - (macro-keyword-expected-exception-procedure _%exn101423%_) + (cons _%e101700%_ '()))))) + (if (macro-keyword-expected-exception? _%exn101697%_) + (macro-keyword-expected-exception-procedure _%exn101697%_) (error '"not an instance" 'keyword-expected-exception? (cons 'keyword-expected-exception-procedure - (cons _%exn101423%_ '()))))))) + (cons _%exn101697%_ '()))))))) (define length-mismatch-exception? - (lambda (_%exn101419%_) + (lambda (_%exn101693%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101419%_)) - (let ((_%e101421%_ + (class-instance? RuntimeException::t _%exn101693%_)) + (let ((_%e101695%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101419%_ 'exception)))) - (macro-length-mismatch-exception? _%e101421%_)) - (macro-length-mismatch-exception? _%exn101419%_)))) + (unchecked-slot-ref _%exn101693%_ 'exception)))) + (macro-length-mismatch-exception? _%e101695%_)) + (macro-length-mismatch-exception? _%exn101693%_)))) (define length-mismatch-exception-arg-id - (lambda (_%exn101415%_) + (lambda (_%exn101689%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101415%_)) - (let ((_%e101417%_ + (class-instance? RuntimeException::t _%exn101689%_)) + (let ((_%e101691%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101415%_ 'exception)))) - (if (macro-length-mismatch-exception? _%e101417%_) - (macro-length-mismatch-exception-arg-id _%e101417%_) + (unchecked-slot-ref _%exn101689%_ 'exception)))) + (if (macro-length-mismatch-exception? _%e101691%_) + (macro-length-mismatch-exception-arg-id _%e101691%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-arg-id - (cons _%e101417%_ '()))))) - (if (macro-length-mismatch-exception? _%exn101415%_) - (macro-length-mismatch-exception-arg-id _%exn101415%_) + (cons _%e101691%_ '()))))) + (if (macro-length-mismatch-exception? _%exn101689%_) + (macro-length-mismatch-exception-arg-id _%exn101689%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-arg-id - (cons _%exn101415%_ '()))))))) + (cons _%exn101689%_ '()))))))) (define length-mismatch-exception-arguments - (lambda (_%exn101411%_) + (lambda (_%exn101685%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101411%_)) - (let ((_%e101413%_ + (class-instance? RuntimeException::t _%exn101685%_)) + (let ((_%e101687%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101411%_ 'exception)))) - (if (macro-length-mismatch-exception? _%e101413%_) - (macro-length-mismatch-exception-arguments _%e101413%_) + (unchecked-slot-ref _%exn101685%_ 'exception)))) + (if (macro-length-mismatch-exception? _%e101687%_) + (macro-length-mismatch-exception-arguments _%e101687%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-arguments - (cons _%e101413%_ '()))))) - (if (macro-length-mismatch-exception? _%exn101411%_) - (macro-length-mismatch-exception-arguments _%exn101411%_) + (cons _%e101687%_ '()))))) + (if (macro-length-mismatch-exception? _%exn101685%_) + (macro-length-mismatch-exception-arguments _%exn101685%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-arguments - (cons _%exn101411%_ '()))))))) + (cons _%exn101685%_ '()))))))) (define length-mismatch-exception-procedure - (lambda (_%exn101405%_) + (lambda (_%exn101679%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101405%_)) - (let ((_%e101408%_ + (class-instance? RuntimeException::t _%exn101679%_)) + (let ((_%e101682%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101405%_ 'exception)))) - (if (macro-length-mismatch-exception? _%e101408%_) - (macro-length-mismatch-exception-procedure _%e101408%_) + (unchecked-slot-ref _%exn101679%_ 'exception)))) + (if (macro-length-mismatch-exception? _%e101682%_) + (macro-length-mismatch-exception-procedure _%e101682%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-procedure - (cons _%e101408%_ '()))))) - (if (macro-length-mismatch-exception? _%exn101405%_) - (macro-length-mismatch-exception-procedure _%exn101405%_) + (cons _%e101682%_ '()))))) + (if (macro-length-mismatch-exception? _%exn101679%_) + (macro-length-mismatch-exception-procedure _%exn101679%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-procedure - (cons _%exn101405%_ '()))))))) + (cons _%exn101679%_ '()))))))) (define mailbox-receive-timeout-exception? - (lambda (_%exn101401%_) + (lambda (_%exn101675%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101401%_)) - (let ((_%e101403%_ + (class-instance? RuntimeException::t _%exn101675%_)) + (let ((_%e101677%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101401%_ 'exception)))) - (macro-mailbox-receive-timeout-exception? _%e101403%_)) - (macro-mailbox-receive-timeout-exception? _%exn101401%_)))) + (unchecked-slot-ref _%exn101675%_ 'exception)))) + (macro-mailbox-receive-timeout-exception? _%e101677%_)) + (macro-mailbox-receive-timeout-exception? _%exn101675%_)))) (define mailbox-receive-timeout-exception-arguments - (lambda (_%exn101397%_) + (lambda (_%exn101671%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101397%_)) - (let ((_%e101399%_ + (class-instance? RuntimeException::t _%exn101671%_)) + (let ((_%e101673%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101397%_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _%e101399%_) + (unchecked-slot-ref _%exn101671%_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _%e101673%_) (macro-mailbox-receive-timeout-exception-arguments - _%e101399%_) + _%e101673%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-arguments - (cons _%e101399%_ '()))))) - (if (macro-mailbox-receive-timeout-exception? _%exn101397%_) + (cons _%e101673%_ '()))))) + (if (macro-mailbox-receive-timeout-exception? _%exn101671%_) (macro-mailbox-receive-timeout-exception-arguments - _%exn101397%_) + _%exn101671%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-arguments - (cons _%exn101397%_ '()))))))) + (cons _%exn101671%_ '()))))))) (define mailbox-receive-timeout-exception-procedure - (lambda (_%exn101391%_) + (lambda (_%exn101665%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101391%_)) - (let ((_%e101394%_ + (class-instance? RuntimeException::t _%exn101665%_)) + (let ((_%e101668%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101391%_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _%e101394%_) + (unchecked-slot-ref _%exn101665%_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _%e101668%_) (macro-mailbox-receive-timeout-exception-procedure - _%e101394%_) + _%e101668%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-procedure - (cons _%e101394%_ '()))))) - (if (macro-mailbox-receive-timeout-exception? _%exn101391%_) + (cons _%e101668%_ '()))))) + (if (macro-mailbox-receive-timeout-exception? _%exn101665%_) (macro-mailbox-receive-timeout-exception-procedure - _%exn101391%_) + _%exn101665%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-procedure - (cons _%exn101391%_ '()))))))) + (cons _%exn101665%_ '()))))))) (define module-not-found-exception? - (lambda (_%exn101387%_) + (lambda (_%exn101661%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101387%_)) - (let ((_%e101389%_ + (class-instance? RuntimeException::t _%exn101661%_)) + (let ((_%e101663%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101387%_ 'exception)))) - (macro-module-not-found-exception? _%e101389%_)) - (macro-module-not-found-exception? _%exn101387%_)))) + (unchecked-slot-ref _%exn101661%_ 'exception)))) + (macro-module-not-found-exception? _%e101663%_)) + (macro-module-not-found-exception? _%exn101661%_)))) (define module-not-found-exception-arguments - (lambda (_%exn101383%_) + (lambda (_%exn101657%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101383%_)) - (let ((_%e101385%_ + (class-instance? RuntimeException::t _%exn101657%_)) + (let ((_%e101659%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101383%_ 'exception)))) - (if (macro-module-not-found-exception? _%e101385%_) - (macro-module-not-found-exception-arguments _%e101385%_) + (unchecked-slot-ref _%exn101657%_ 'exception)))) + (if (macro-module-not-found-exception? _%e101659%_) + (macro-module-not-found-exception-arguments _%e101659%_) (error '"not an instance" 'module-not-found-exception? (cons 'module-not-found-exception-arguments - (cons _%e101385%_ '()))))) - (if (macro-module-not-found-exception? _%exn101383%_) - (macro-module-not-found-exception-arguments _%exn101383%_) + (cons _%e101659%_ '()))))) + (if (macro-module-not-found-exception? _%exn101657%_) + (macro-module-not-found-exception-arguments _%exn101657%_) (error '"not an instance" 'module-not-found-exception? (cons 'module-not-found-exception-arguments - (cons _%exn101383%_ '()))))))) + (cons _%exn101657%_ '()))))))) (define module-not-found-exception-procedure - (lambda (_%exn101377%_) + (lambda (_%exn101651%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101377%_)) - (let ((_%e101380%_ + (class-instance? RuntimeException::t _%exn101651%_)) + (let ((_%e101654%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101377%_ 'exception)))) - (if (macro-module-not-found-exception? _%e101380%_) - (macro-module-not-found-exception-procedure _%e101380%_) + (unchecked-slot-ref _%exn101651%_ 'exception)))) + (if (macro-module-not-found-exception? _%e101654%_) + (macro-module-not-found-exception-procedure _%e101654%_) (error '"not an instance" 'module-not-found-exception? (cons 'module-not-found-exception-procedure - (cons _%e101380%_ '()))))) - (if (macro-module-not-found-exception? _%exn101377%_) - (macro-module-not-found-exception-procedure _%exn101377%_) + (cons _%e101654%_ '()))))) + (if (macro-module-not-found-exception? _%exn101651%_) + (macro-module-not-found-exception-procedure _%exn101651%_) (error '"not an instance" 'module-not-found-exception? (cons 'module-not-found-exception-procedure - (cons _%exn101377%_ '()))))))) + (cons _%exn101651%_ '()))))))) (define multiple-c-return-exception? - (lambda (_%exn101371%_) + (lambda (_%exn101645%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101371%_)) - (let ((_%e101374%_ + (class-instance? RuntimeException::t _%exn101645%_)) + (let ((_%e101648%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101371%_ 'exception)))) - (macro-multiple-c-return-exception? _%e101374%_)) - (macro-multiple-c-return-exception? _%exn101371%_)))) + (unchecked-slot-ref _%exn101645%_ 'exception)))) + (macro-multiple-c-return-exception? _%e101648%_)) + (macro-multiple-c-return-exception? _%exn101645%_)))) (define no-such-file-or-directory-exception? - (lambda (_%exn101367%_) + (lambda (_%exn101641%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101367%_)) - (let ((_%e101369%_ + (class-instance? RuntimeException::t _%exn101641%_)) + (let ((_%e101643%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101367%_ 'exception)))) - (macro-no-such-file-or-directory-exception? _%e101369%_)) - (macro-no-such-file-or-directory-exception? _%exn101367%_)))) + (unchecked-slot-ref _%exn101641%_ 'exception)))) + (macro-no-such-file-or-directory-exception? _%e101643%_)) + (macro-no-such-file-or-directory-exception? _%exn101641%_)))) (define no-such-file-or-directory-exception-arguments - (lambda (_%exn101363%_) + (lambda (_%exn101637%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101363%_)) - (let ((_%e101365%_ + (class-instance? RuntimeException::t _%exn101637%_)) + (let ((_%e101639%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101363%_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _%e101365%_) + (unchecked-slot-ref _%exn101637%_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _%e101639%_) (macro-no-such-file-or-directory-exception-arguments - _%e101365%_) + _%e101639%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-arguments - (cons _%e101365%_ '()))))) - (if (macro-no-such-file-or-directory-exception? _%exn101363%_) + (cons _%e101639%_ '()))))) + (if (macro-no-such-file-or-directory-exception? _%exn101637%_) (macro-no-such-file-or-directory-exception-arguments - _%exn101363%_) + _%exn101637%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-arguments - (cons _%exn101363%_ '()))))))) + (cons _%exn101637%_ '()))))))) (define no-such-file-or-directory-exception-procedure - (lambda (_%exn101357%_) + (lambda (_%exn101631%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101357%_)) - (let ((_%e101360%_ + (class-instance? RuntimeException::t _%exn101631%_)) + (let ((_%e101634%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101357%_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _%e101360%_) + (unchecked-slot-ref _%exn101631%_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _%e101634%_) (macro-no-such-file-or-directory-exception-procedure - _%e101360%_) + _%e101634%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-procedure - (cons _%e101360%_ '()))))) - (if (macro-no-such-file-or-directory-exception? _%exn101357%_) + (cons _%e101634%_ '()))))) + (if (macro-no-such-file-or-directory-exception? _%exn101631%_) (macro-no-such-file-or-directory-exception-procedure - _%exn101357%_) + _%exn101631%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-procedure - (cons _%exn101357%_ '()))))))) + (cons _%exn101631%_ '()))))))) (define noncontinuable-exception? - (lambda (_%exn101353%_) + (lambda (_%exn101627%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101353%_)) - (let ((_%e101355%_ + (class-instance? RuntimeException::t _%exn101627%_)) + (let ((_%e101629%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101353%_ 'exception)))) - (macro-noncontinuable-exception? _%e101355%_)) - (macro-noncontinuable-exception? _%exn101353%_)))) + (unchecked-slot-ref _%exn101627%_ 'exception)))) + (macro-noncontinuable-exception? _%e101629%_)) + (macro-noncontinuable-exception? _%exn101627%_)))) (define noncontinuable-exception-reason - (lambda (_%exn101347%_) + (lambda (_%exn101621%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101347%_)) - (let ((_%e101350%_ + (class-instance? RuntimeException::t _%exn101621%_)) + (let ((_%e101624%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101347%_ 'exception)))) - (if (macro-noncontinuable-exception? _%e101350%_) - (macro-noncontinuable-exception-reason _%e101350%_) + (unchecked-slot-ref _%exn101621%_ 'exception)))) + (if (macro-noncontinuable-exception? _%e101624%_) + (macro-noncontinuable-exception-reason _%e101624%_) (error '"not an instance" 'noncontinuable-exception? (cons 'noncontinuable-exception-reason - (cons _%e101350%_ '()))))) - (if (macro-noncontinuable-exception? _%exn101347%_) - (macro-noncontinuable-exception-reason _%exn101347%_) + (cons _%e101624%_ '()))))) + (if (macro-noncontinuable-exception? _%exn101621%_) + (macro-noncontinuable-exception-reason _%exn101621%_) (error '"not an instance" 'noncontinuable-exception? (cons 'noncontinuable-exception-reason - (cons _%exn101347%_ '()))))))) + (cons _%exn101621%_ '()))))))) (define nonempty-input-port-character-buffer-exception? - (lambda (_%exn101343%_) + (lambda (_%exn101617%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101343%_)) - (let ((_%e101345%_ + (class-instance? RuntimeException::t _%exn101617%_)) + (let ((_%e101619%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101343%_ 'exception)))) + (unchecked-slot-ref _%exn101617%_ 'exception)))) (macro-nonempty-input-port-character-buffer-exception? - _%e101345%_)) + _%e101619%_)) (macro-nonempty-input-port-character-buffer-exception? - _%exn101343%_)))) + _%exn101617%_)))) (define nonempty-input-port-character-buffer-exception-arguments - (lambda (_%exn101339%_) + (lambda (_%exn101613%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101339%_)) - (let ((_%e101341%_ + (class-instance? RuntimeException::t _%exn101613%_)) + (let ((_%e101615%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101339%_ 'exception)))) + (unchecked-slot-ref _%exn101613%_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _%e101341%_) + _%e101615%_) (macro-nonempty-input-port-character-buffer-exception-arguments - _%e101341%_) + _%e101615%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-arguments - (cons _%e101341%_ '()))))) + (cons _%e101615%_ '()))))) (if (macro-nonempty-input-port-character-buffer-exception? - _%exn101339%_) + _%exn101613%_) (macro-nonempty-input-port-character-buffer-exception-arguments - _%exn101339%_) + _%exn101613%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-arguments - (cons _%exn101339%_ '()))))))) + (cons _%exn101613%_ '()))))))) (define nonempty-input-port-character-buffer-exception-procedure - (lambda (_%exn101333%_) + (lambda (_%exn101607%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101333%_)) - (let ((_%e101336%_ + (class-instance? RuntimeException::t _%exn101607%_)) + (let ((_%e101610%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101333%_ 'exception)))) + (unchecked-slot-ref _%exn101607%_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _%e101336%_) + _%e101610%_) (macro-nonempty-input-port-character-buffer-exception-procedure - _%e101336%_) + _%e101610%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-procedure - (cons _%e101336%_ '()))))) + (cons _%e101610%_ '()))))) (if (macro-nonempty-input-port-character-buffer-exception? - _%exn101333%_) + _%exn101607%_) (macro-nonempty-input-port-character-buffer-exception-procedure - _%exn101333%_) + _%exn101607%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-procedure - (cons _%exn101333%_ '()))))))) + (cons _%exn101607%_ '()))))))) (define nonprocedure-operator-exception? - (lambda (_%exn101329%_) + (lambda (_%exn101603%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101329%_)) - (let ((_%e101331%_ + (class-instance? RuntimeException::t _%exn101603%_)) + (let ((_%e101605%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101329%_ 'exception)))) - (macro-nonprocedure-operator-exception? _%e101331%_)) - (macro-nonprocedure-operator-exception? _%exn101329%_)))) + (unchecked-slot-ref _%exn101603%_ 'exception)))) + (macro-nonprocedure-operator-exception? _%e101605%_)) + (macro-nonprocedure-operator-exception? _%exn101603%_)))) (define nonprocedure-operator-exception-arguments - (lambda (_%exn101325%_) + (lambda (_%exn101599%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101325%_)) - (let ((_%e101327%_ + (class-instance? RuntimeException::t _%exn101599%_)) + (let ((_%e101601%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101325%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e101327%_) - (macro-nonprocedure-operator-exception-arguments _%e101327%_) + (unchecked-slot-ref _%exn101599%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e101601%_) + (macro-nonprocedure-operator-exception-arguments _%e101601%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-arguments - (cons _%e101327%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn101325%_) - (macro-nonprocedure-operator-exception-arguments _%exn101325%_) + (cons _%e101601%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn101599%_) + (macro-nonprocedure-operator-exception-arguments _%exn101599%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-arguments - (cons _%exn101325%_ '()))))))) + (cons _%exn101599%_ '()))))))) (define nonprocedure-operator-exception-code - (lambda (_%exn101321%_) + (lambda (_%exn101595%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101321%_)) - (let ((_%e101323%_ + (class-instance? RuntimeException::t _%exn101595%_)) + (let ((_%e101597%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101321%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e101323%_) - (macro-nonprocedure-operator-exception-code _%e101323%_) + (unchecked-slot-ref _%exn101595%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e101597%_) + (macro-nonprocedure-operator-exception-code _%e101597%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-code - (cons _%e101323%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn101321%_) - (macro-nonprocedure-operator-exception-code _%exn101321%_) + (cons _%e101597%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn101595%_) + (macro-nonprocedure-operator-exception-code _%exn101595%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-code - (cons _%exn101321%_ '()))))))) + (cons _%exn101595%_ '()))))))) (define nonprocedure-operator-exception-operator - (lambda (_%exn101317%_) + (lambda (_%exn101591%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101317%_)) - (let ((_%e101319%_ + (class-instance? RuntimeException::t _%exn101591%_)) + (let ((_%e101593%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101317%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e101319%_) - (macro-nonprocedure-operator-exception-operator _%e101319%_) + (unchecked-slot-ref _%exn101591%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e101593%_) + (macro-nonprocedure-operator-exception-operator _%e101593%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-operator - (cons _%e101319%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn101317%_) - (macro-nonprocedure-operator-exception-operator _%exn101317%_) + (cons _%e101593%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn101591%_) + (macro-nonprocedure-operator-exception-operator _%exn101591%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-operator - (cons _%exn101317%_ '()))))))) + (cons _%exn101591%_ '()))))))) (define nonprocedure-operator-exception-rte - (lambda (_%exn101311%_) + (lambda (_%exn101585%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101311%_)) - (let ((_%e101314%_ + (class-instance? RuntimeException::t _%exn101585%_)) + (let ((_%e101588%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101311%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e101314%_) - (macro-nonprocedure-operator-exception-rte _%e101314%_) + (unchecked-slot-ref _%exn101585%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e101588%_) + (macro-nonprocedure-operator-exception-rte _%e101588%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-rte - (cons _%e101314%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn101311%_) - (macro-nonprocedure-operator-exception-rte _%exn101311%_) + (cons _%e101588%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn101585%_) + (macro-nonprocedure-operator-exception-rte _%exn101585%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-rte - (cons _%exn101311%_ '()))))))) + (cons _%exn101585%_ '()))))))) (define not-in-compilation-context-exception? - (lambda (_%exn101307%_) + (lambda (_%exn101581%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101307%_)) - (let ((_%e101309%_ + (class-instance? RuntimeException::t _%exn101581%_)) + (let ((_%e101583%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101307%_ 'exception)))) - (macro-not-in-compilation-context-exception? _%e101309%_)) - (macro-not-in-compilation-context-exception? _%exn101307%_)))) + (unchecked-slot-ref _%exn101581%_ 'exception)))) + (macro-not-in-compilation-context-exception? _%e101583%_)) + (macro-not-in-compilation-context-exception? _%exn101581%_)))) (define not-in-compilation-context-exception-arguments - (lambda (_%exn101303%_) + (lambda (_%exn101577%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101303%_)) - (let ((_%e101305%_ + (class-instance? RuntimeException::t _%exn101577%_)) + (let ((_%e101579%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101303%_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _%e101305%_) + (unchecked-slot-ref _%exn101577%_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _%e101579%_) (macro-not-in-compilation-context-exception-arguments - _%e101305%_) + _%e101579%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-arguments - (cons _%e101305%_ '()))))) - (if (macro-not-in-compilation-context-exception? _%exn101303%_) + (cons _%e101579%_ '()))))) + (if (macro-not-in-compilation-context-exception? _%exn101577%_) (macro-not-in-compilation-context-exception-arguments - _%exn101303%_) + _%exn101577%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-arguments - (cons _%exn101303%_ '()))))))) + (cons _%exn101577%_ '()))))))) (define not-in-compilation-context-exception-procedure - (lambda (_%exn101297%_) + (lambda (_%exn101571%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101297%_)) - (let ((_%e101300%_ + (class-instance? RuntimeException::t _%exn101571%_)) + (let ((_%e101574%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101297%_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _%e101300%_) + (unchecked-slot-ref _%exn101571%_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _%e101574%_) (macro-not-in-compilation-context-exception-procedure - _%e101300%_) + _%e101574%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-procedure - (cons _%e101300%_ '()))))) - (if (macro-not-in-compilation-context-exception? _%exn101297%_) + (cons _%e101574%_ '()))))) + (if (macro-not-in-compilation-context-exception? _%exn101571%_) (macro-not-in-compilation-context-exception-procedure - _%exn101297%_) + _%exn101571%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-procedure - (cons _%exn101297%_ '()))))))) + (cons _%exn101571%_ '()))))))) (define number-of-arguments-limit-exception? - (lambda (_%exn101293%_) + (lambda (_%exn101567%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101293%_)) - (let ((_%e101295%_ + (class-instance? RuntimeException::t _%exn101567%_)) + (let ((_%e101569%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101293%_ 'exception)))) - (macro-number-of-arguments-limit-exception? _%e101295%_)) - (macro-number-of-arguments-limit-exception? _%exn101293%_)))) + (unchecked-slot-ref _%exn101567%_ 'exception)))) + (macro-number-of-arguments-limit-exception? _%e101569%_)) + (macro-number-of-arguments-limit-exception? _%exn101567%_)))) (define number-of-arguments-limit-exception-arguments - (lambda (_%exn101289%_) + (lambda (_%exn101563%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101289%_)) - (let ((_%e101291%_ + (class-instance? RuntimeException::t _%exn101563%_)) + (let ((_%e101565%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101289%_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _%e101291%_) + (unchecked-slot-ref _%exn101563%_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _%e101565%_) (macro-number-of-arguments-limit-exception-arguments - _%e101291%_) + _%e101565%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-arguments - (cons _%e101291%_ '()))))) - (if (macro-number-of-arguments-limit-exception? _%exn101289%_) + (cons _%e101565%_ '()))))) + (if (macro-number-of-arguments-limit-exception? _%exn101563%_) (macro-number-of-arguments-limit-exception-arguments - _%exn101289%_) + _%exn101563%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-arguments - (cons _%exn101289%_ '()))))))) + (cons _%exn101563%_ '()))))))) (define number-of-arguments-limit-exception-procedure - (lambda (_%exn101283%_) + (lambda (_%exn101557%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101283%_)) - (let ((_%e101286%_ + (class-instance? RuntimeException::t _%exn101557%_)) + (let ((_%e101560%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101283%_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _%e101286%_) + (unchecked-slot-ref _%exn101557%_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _%e101560%_) (macro-number-of-arguments-limit-exception-procedure - _%e101286%_) + _%e101560%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-procedure - (cons _%e101286%_ '()))))) - (if (macro-number-of-arguments-limit-exception? _%exn101283%_) + (cons _%e101560%_ '()))))) + (if (macro-number-of-arguments-limit-exception? _%exn101557%_) (macro-number-of-arguments-limit-exception-procedure - _%exn101283%_) + _%exn101557%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-procedure - (cons _%exn101283%_ '()))))))) + (cons _%exn101557%_ '()))))))) (define os-exception? - (lambda (_%exn101279%_) + (lambda (_%exn101553%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101279%_)) - (let ((_%e101281%_ + (class-instance? RuntimeException::t _%exn101553%_)) + (let ((_%e101555%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101279%_ 'exception)))) - (macro-os-exception? _%e101281%_)) - (macro-os-exception? _%exn101279%_)))) + (unchecked-slot-ref _%exn101553%_ 'exception)))) + (macro-os-exception? _%e101555%_)) + (macro-os-exception? _%exn101553%_)))) (define os-exception-arguments - (lambda (_%exn101275%_) + (lambda (_%exn101549%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101275%_)) - (let ((_%e101277%_ + (class-instance? RuntimeException::t _%exn101549%_)) + (let ((_%e101551%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101275%_ 'exception)))) - (if (macro-os-exception? _%e101277%_) - (macro-os-exception-arguments _%e101277%_) + (unchecked-slot-ref _%exn101549%_ 'exception)))) + (if (macro-os-exception? _%e101551%_) + (macro-os-exception-arguments _%e101551%_) (error '"not an instance" 'os-exception? (cons 'os-exception-arguments - (cons _%e101277%_ '()))))) - (if (macro-os-exception? _%exn101275%_) - (macro-os-exception-arguments _%exn101275%_) + (cons _%e101551%_ '()))))) + (if (macro-os-exception? _%exn101549%_) + (macro-os-exception-arguments _%exn101549%_) (error '"not an instance" 'os-exception? (cons 'os-exception-arguments - (cons _%exn101275%_ '()))))))) + (cons _%exn101549%_ '()))))))) (define os-exception-code - (lambda (_%exn101271%_) + (lambda (_%exn101545%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101271%_)) - (let ((_%e101273%_ + (class-instance? RuntimeException::t _%exn101545%_)) + (let ((_%e101547%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101271%_ 'exception)))) - (if (macro-os-exception? _%e101273%_) - (macro-os-exception-code _%e101273%_) + (unchecked-slot-ref _%exn101545%_ 'exception)))) + (if (macro-os-exception? _%e101547%_) + (macro-os-exception-code _%e101547%_) (error '"not an instance" 'os-exception? - (cons 'os-exception-code (cons _%e101273%_ '()))))) - (if (macro-os-exception? _%exn101271%_) - (macro-os-exception-code _%exn101271%_) + (cons 'os-exception-code (cons _%e101547%_ '()))))) + (if (macro-os-exception? _%exn101545%_) + (macro-os-exception-code _%exn101545%_) (error '"not an instance" 'os-exception? - (cons 'os-exception-code (cons _%exn101271%_ '()))))))) + (cons 'os-exception-code (cons _%exn101545%_ '()))))))) (define os-exception-message - (lambda (_%exn101267%_) + (lambda (_%exn101541%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101267%_)) - (let ((_%e101269%_ + (class-instance? RuntimeException::t _%exn101541%_)) + (let ((_%e101543%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101267%_ 'exception)))) - (if (macro-os-exception? _%e101269%_) - (macro-os-exception-message _%e101269%_) + (unchecked-slot-ref _%exn101541%_ 'exception)))) + (if (macro-os-exception? _%e101543%_) + (macro-os-exception-message _%e101543%_) (error '"not an instance" 'os-exception? - (cons 'os-exception-message (cons _%e101269%_ '()))))) - (if (macro-os-exception? _%exn101267%_) - (macro-os-exception-message _%exn101267%_) + (cons 'os-exception-message (cons _%e101543%_ '()))))) + (if (macro-os-exception? _%exn101541%_) + (macro-os-exception-message _%exn101541%_) (error '"not an instance" 'os-exception? (cons 'os-exception-message - (cons _%exn101267%_ '()))))))) + (cons _%exn101541%_ '()))))))) (define os-exception-procedure - (lambda (_%exn101261%_) + (lambda (_%exn101535%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101261%_)) - (let ((_%e101264%_ + (class-instance? RuntimeException::t _%exn101535%_)) + (let ((_%e101538%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101261%_ 'exception)))) - (if (macro-os-exception? _%e101264%_) - (macro-os-exception-procedure _%e101264%_) + (unchecked-slot-ref _%exn101535%_ 'exception)))) + (if (macro-os-exception? _%e101538%_) + (macro-os-exception-procedure _%e101538%_) (error '"not an instance" 'os-exception? (cons 'os-exception-procedure - (cons _%e101264%_ '()))))) - (if (macro-os-exception? _%exn101261%_) - (macro-os-exception-procedure _%exn101261%_) + (cons _%e101538%_ '()))))) + (if (macro-os-exception? _%exn101535%_) + (macro-os-exception-procedure _%exn101535%_) (error '"not an instance" 'os-exception? (cons 'os-exception-procedure - (cons _%exn101261%_ '()))))))) + (cons _%exn101535%_ '()))))))) (define permission-denied-exception? - (lambda (_%exn101257%_) + (lambda (_%exn101531%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101257%_)) - (let ((_%e101259%_ + (class-instance? RuntimeException::t _%exn101531%_)) + (let ((_%e101533%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101257%_ 'exception)))) - (macro-permission-denied-exception? _%e101259%_)) - (macro-permission-denied-exception? _%exn101257%_)))) + (unchecked-slot-ref _%exn101531%_ 'exception)))) + (macro-permission-denied-exception? _%e101533%_)) + (macro-permission-denied-exception? _%exn101531%_)))) (define permission-denied-exception-arguments - (lambda (_%exn101253%_) + (lambda (_%exn101527%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101253%_)) - (let ((_%e101255%_ + (class-instance? RuntimeException::t _%exn101527%_)) + (let ((_%e101529%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101253%_ 'exception)))) - (if (macro-permission-denied-exception? _%e101255%_) - (macro-permission-denied-exception-arguments _%e101255%_) + (unchecked-slot-ref _%exn101527%_ 'exception)))) + (if (macro-permission-denied-exception? _%e101529%_) + (macro-permission-denied-exception-arguments _%e101529%_) (error '"not an instance" 'permission-denied-exception? (cons 'permission-denied-exception-arguments - (cons _%e101255%_ '()))))) - (if (macro-permission-denied-exception? _%exn101253%_) - (macro-permission-denied-exception-arguments _%exn101253%_) + (cons _%e101529%_ '()))))) + (if (macro-permission-denied-exception? _%exn101527%_) + (macro-permission-denied-exception-arguments _%exn101527%_) (error '"not an instance" 'permission-denied-exception? (cons 'permission-denied-exception-arguments - (cons _%exn101253%_ '()))))))) + (cons _%exn101527%_ '()))))))) (define permission-denied-exception-procedure - (lambda (_%exn101247%_) + (lambda (_%exn101521%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101247%_)) - (let ((_%e101250%_ + (class-instance? RuntimeException::t _%exn101521%_)) + (let ((_%e101524%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101247%_ 'exception)))) - (if (macro-permission-denied-exception? _%e101250%_) - (macro-permission-denied-exception-procedure _%e101250%_) + (unchecked-slot-ref _%exn101521%_ 'exception)))) + (if (macro-permission-denied-exception? _%e101524%_) + (macro-permission-denied-exception-procedure _%e101524%_) (error '"not an instance" 'permission-denied-exception? (cons 'permission-denied-exception-procedure - (cons _%e101250%_ '()))))) - (if (macro-permission-denied-exception? _%exn101247%_) - (macro-permission-denied-exception-procedure _%exn101247%_) + (cons _%e101524%_ '()))))) + (if (macro-permission-denied-exception? _%exn101521%_) + (macro-permission-denied-exception-procedure _%exn101521%_) (error '"not an instance" 'permission-denied-exception? (cons 'permission-denied-exception-procedure - (cons _%exn101247%_ '()))))))) + (cons _%exn101521%_ '()))))))) (define range-exception? - (lambda (_%exn101243%_) + (lambda (_%exn101517%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101243%_)) - (let ((_%e101245%_ + (class-instance? RuntimeException::t _%exn101517%_)) + (let ((_%e101519%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101243%_ 'exception)))) - (macro-range-exception? _%e101245%_)) - (macro-range-exception? _%exn101243%_)))) + (unchecked-slot-ref _%exn101517%_ 'exception)))) + (macro-range-exception? _%e101519%_)) + (macro-range-exception? _%exn101517%_)))) (define range-exception-arg-id - (lambda (_%exn101239%_) + (lambda (_%exn101513%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101239%_)) - (let ((_%e101241%_ + (class-instance? RuntimeException::t _%exn101513%_)) + (let ((_%e101515%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101239%_ 'exception)))) - (if (macro-range-exception? _%e101241%_) - (macro-range-exception-arg-id _%e101241%_) + (unchecked-slot-ref _%exn101513%_ 'exception)))) + (if (macro-range-exception? _%e101515%_) + (macro-range-exception-arg-id _%e101515%_) (error '"not an instance" 'range-exception? (cons 'range-exception-arg-id - (cons _%e101241%_ '()))))) - (if (macro-range-exception? _%exn101239%_) - (macro-range-exception-arg-id _%exn101239%_) + (cons _%e101515%_ '()))))) + (if (macro-range-exception? _%exn101513%_) + (macro-range-exception-arg-id _%exn101513%_) (error '"not an instance" 'range-exception? (cons 'range-exception-arg-id - (cons _%exn101239%_ '()))))))) + (cons _%exn101513%_ '()))))))) (define range-exception-arguments - (lambda (_%exn101235%_) + (lambda (_%exn101509%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101235%_)) - (let ((_%e101237%_ + (class-instance? RuntimeException::t _%exn101509%_)) + (let ((_%e101511%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101235%_ 'exception)))) - (if (macro-range-exception? _%e101237%_) - (macro-range-exception-arguments _%e101237%_) + (unchecked-slot-ref _%exn101509%_ 'exception)))) + (if (macro-range-exception? _%e101511%_) + (macro-range-exception-arguments _%e101511%_) (error '"not an instance" 'range-exception? (cons 'range-exception-arguments - (cons _%e101237%_ '()))))) - (if (macro-range-exception? _%exn101235%_) - (macro-range-exception-arguments _%exn101235%_) + (cons _%e101511%_ '()))))) + (if (macro-range-exception? _%exn101509%_) + (macro-range-exception-arguments _%exn101509%_) (error '"not an instance" 'range-exception? (cons 'range-exception-arguments - (cons _%exn101235%_ '()))))))) + (cons _%exn101509%_ '()))))))) (define range-exception-procedure - (lambda (_%exn101229%_) + (lambda (_%exn101503%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101229%_)) - (let ((_%e101232%_ + (class-instance? RuntimeException::t _%exn101503%_)) + (let ((_%e101506%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101229%_ 'exception)))) - (if (macro-range-exception? _%e101232%_) - (macro-range-exception-procedure _%e101232%_) + (unchecked-slot-ref _%exn101503%_ 'exception)))) + (if (macro-range-exception? _%e101506%_) + (macro-range-exception-procedure _%e101506%_) (error '"not an instance" 'range-exception? (cons 'range-exception-procedure - (cons _%e101232%_ '()))))) - (if (macro-range-exception? _%exn101229%_) - (macro-range-exception-procedure _%exn101229%_) + (cons _%e101506%_ '()))))) + (if (macro-range-exception? _%exn101503%_) + (macro-range-exception-procedure _%exn101503%_) (error '"not an instance" 'range-exception? (cons 'range-exception-procedure - (cons _%exn101229%_ '()))))))) + (cons _%exn101503%_ '()))))))) (define rpc-remote-error-exception? - (lambda (_%exn101225%_) + (lambda (_%exn101499%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101225%_)) - (let ((_%e101227%_ + (class-instance? RuntimeException::t _%exn101499%_)) + (let ((_%e101501%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101225%_ 'exception)))) - (macro-rpc-remote-error-exception? _%e101227%_)) - (macro-rpc-remote-error-exception? _%exn101225%_)))) + (unchecked-slot-ref _%exn101499%_ 'exception)))) + (macro-rpc-remote-error-exception? _%e101501%_)) + (macro-rpc-remote-error-exception? _%exn101499%_)))) (define rpc-remote-error-exception-arguments - (lambda (_%exn101221%_) + (lambda (_%exn101495%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101221%_)) - (let ((_%e101223%_ + (class-instance? RuntimeException::t _%exn101495%_)) + (let ((_%e101497%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101221%_ 'exception)))) - (if (macro-rpc-remote-error-exception? _%e101223%_) - (macro-rpc-remote-error-exception-arguments _%e101223%_) + (unchecked-slot-ref _%exn101495%_ 'exception)))) + (if (macro-rpc-remote-error-exception? _%e101497%_) + (macro-rpc-remote-error-exception-arguments _%e101497%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-arguments - (cons _%e101223%_ '()))))) - (if (macro-rpc-remote-error-exception? _%exn101221%_) - (macro-rpc-remote-error-exception-arguments _%exn101221%_) + (cons _%e101497%_ '()))))) + (if (macro-rpc-remote-error-exception? _%exn101495%_) + (macro-rpc-remote-error-exception-arguments _%exn101495%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-arguments - (cons _%exn101221%_ '()))))))) + (cons _%exn101495%_ '()))))))) (define rpc-remote-error-exception-message - (lambda (_%exn101217%_) + (lambda (_%exn101491%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101217%_)) - (let ((_%e101219%_ + (class-instance? RuntimeException::t _%exn101491%_)) + (let ((_%e101493%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101217%_ 'exception)))) - (if (macro-rpc-remote-error-exception? _%e101219%_) - (macro-rpc-remote-error-exception-message _%e101219%_) + (unchecked-slot-ref _%exn101491%_ 'exception)))) + (if (macro-rpc-remote-error-exception? _%e101493%_) + (macro-rpc-remote-error-exception-message _%e101493%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-message - (cons _%e101219%_ '()))))) - (if (macro-rpc-remote-error-exception? _%exn101217%_) - (macro-rpc-remote-error-exception-message _%exn101217%_) + (cons _%e101493%_ '()))))) + (if (macro-rpc-remote-error-exception? _%exn101491%_) + (macro-rpc-remote-error-exception-message _%exn101491%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-message - (cons _%exn101217%_ '()))))))) + (cons _%exn101491%_ '()))))))) (define rpc-remote-error-exception-procedure - (lambda (_%exn101211%_) + (lambda (_%exn101485%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101211%_)) - (let ((_%e101214%_ + (class-instance? RuntimeException::t _%exn101485%_)) + (let ((_%e101488%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101211%_ 'exception)))) - (if (macro-rpc-remote-error-exception? _%e101214%_) - (macro-rpc-remote-error-exception-procedure _%e101214%_) + (unchecked-slot-ref _%exn101485%_ 'exception)))) + (if (macro-rpc-remote-error-exception? _%e101488%_) + (macro-rpc-remote-error-exception-procedure _%e101488%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-procedure - (cons _%e101214%_ '()))))) - (if (macro-rpc-remote-error-exception? _%exn101211%_) - (macro-rpc-remote-error-exception-procedure _%exn101211%_) + (cons _%e101488%_ '()))))) + (if (macro-rpc-remote-error-exception? _%exn101485%_) + (macro-rpc-remote-error-exception-procedure _%exn101485%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-procedure - (cons _%exn101211%_ '()))))))) + (cons _%exn101485%_ '()))))))) (define scheduler-exception? - (lambda (_%exn101207%_) + (lambda (_%exn101481%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101207%_)) - (let ((_%e101209%_ + (class-instance? RuntimeException::t _%exn101481%_)) + (let ((_%e101483%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101207%_ 'exception)))) - (macro-scheduler-exception? _%e101209%_)) - (macro-scheduler-exception? _%exn101207%_)))) + (unchecked-slot-ref _%exn101481%_ 'exception)))) + (macro-scheduler-exception? _%e101483%_)) + (macro-scheduler-exception? _%exn101481%_)))) (define scheduler-exception-reason - (lambda (_%exn101201%_) + (lambda (_%exn101475%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101201%_)) - (let ((_%e101204%_ + (class-instance? RuntimeException::t _%exn101475%_)) + (let ((_%e101478%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101201%_ 'exception)))) - (if (macro-scheduler-exception? _%e101204%_) - (macro-scheduler-exception-reason _%e101204%_) + (unchecked-slot-ref _%exn101475%_ 'exception)))) + (if (macro-scheduler-exception? _%e101478%_) + (macro-scheduler-exception-reason _%e101478%_) (error '"not an instance" 'scheduler-exception? (cons 'scheduler-exception-reason - (cons _%e101204%_ '()))))) - (if (macro-scheduler-exception? _%exn101201%_) - (macro-scheduler-exception-reason _%exn101201%_) + (cons _%e101478%_ '()))))) + (if (macro-scheduler-exception? _%exn101475%_) + (macro-scheduler-exception-reason _%exn101475%_) (error '"not an instance" 'scheduler-exception? (cons 'scheduler-exception-reason - (cons _%exn101201%_ '()))))))) + (cons _%exn101475%_ '()))))))) (define sfun-conversion-exception? - (lambda (_%exn101197%_) + (lambda (_%exn101471%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101197%_)) - (let ((_%e101199%_ + (class-instance? RuntimeException::t _%exn101471%_)) + (let ((_%e101473%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101197%_ 'exception)))) - (macro-sfun-conversion-exception? _%e101199%_)) - (macro-sfun-conversion-exception? _%exn101197%_)))) + (unchecked-slot-ref _%exn101471%_ 'exception)))) + (macro-sfun-conversion-exception? _%e101473%_)) + (macro-sfun-conversion-exception? _%exn101471%_)))) (define sfun-conversion-exception-arguments - (lambda (_%exn101193%_) + (lambda (_%exn101467%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101193%_)) - (let ((_%e101195%_ + (class-instance? RuntimeException::t _%exn101467%_)) + (let ((_%e101469%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101193%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e101195%_) - (macro-sfun-conversion-exception-arguments _%e101195%_) + (unchecked-slot-ref _%exn101467%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e101469%_) + (macro-sfun-conversion-exception-arguments _%e101469%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-arguments - (cons _%e101195%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn101193%_) - (macro-sfun-conversion-exception-arguments _%exn101193%_) + (cons _%e101469%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn101467%_) + (macro-sfun-conversion-exception-arguments _%exn101467%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-arguments - (cons _%exn101193%_ '()))))))) + (cons _%exn101467%_ '()))))))) (define sfun-conversion-exception-code - (lambda (_%exn101189%_) + (lambda (_%exn101463%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101189%_)) - (let ((_%e101191%_ + (class-instance? RuntimeException::t _%exn101463%_)) + (let ((_%e101465%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101189%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e101191%_) - (macro-sfun-conversion-exception-code _%e101191%_) + (unchecked-slot-ref _%exn101463%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e101465%_) + (macro-sfun-conversion-exception-code _%e101465%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-code - (cons _%e101191%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn101189%_) - (macro-sfun-conversion-exception-code _%exn101189%_) + (cons _%e101465%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn101463%_) + (macro-sfun-conversion-exception-code _%exn101463%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-code - (cons _%exn101189%_ '()))))))) + (cons _%exn101463%_ '()))))))) (define sfun-conversion-exception-message - (lambda (_%exn101185%_) + (lambda (_%exn101459%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101185%_)) - (let ((_%e101187%_ + (class-instance? RuntimeException::t _%exn101459%_)) + (let ((_%e101461%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101185%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e101187%_) - (macro-sfun-conversion-exception-message _%e101187%_) + (unchecked-slot-ref _%exn101459%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e101461%_) + (macro-sfun-conversion-exception-message _%e101461%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-message - (cons _%e101187%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn101185%_) - (macro-sfun-conversion-exception-message _%exn101185%_) + (cons _%e101461%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn101459%_) + (macro-sfun-conversion-exception-message _%exn101459%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-message - (cons _%exn101185%_ '()))))))) + (cons _%exn101459%_ '()))))))) (define sfun-conversion-exception-procedure - (lambda (_%exn101179%_) + (lambda (_%exn101453%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101179%_)) - (let ((_%e101182%_ + (class-instance? RuntimeException::t _%exn101453%_)) + (let ((_%e101456%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101179%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e101182%_) - (macro-sfun-conversion-exception-procedure _%e101182%_) + (unchecked-slot-ref _%exn101453%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e101456%_) + (macro-sfun-conversion-exception-procedure _%e101456%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-procedure - (cons _%e101182%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn101179%_) - (macro-sfun-conversion-exception-procedure _%exn101179%_) + (cons _%e101456%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn101453%_) + (macro-sfun-conversion-exception-procedure _%exn101453%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-procedure - (cons _%exn101179%_ '()))))))) + (cons _%exn101453%_ '()))))))) (define stack-overflow-exception? - (lambda (_%exn101173%_) + (lambda (_%exn101447%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101173%_)) - (let ((_%e101176%_ + (class-instance? RuntimeException::t _%exn101447%_)) + (let ((_%e101450%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101173%_ 'exception)))) - (macro-stack-overflow-exception? _%e101176%_)) - (macro-stack-overflow-exception? _%exn101173%_)))) + (unchecked-slot-ref _%exn101447%_ 'exception)))) + (macro-stack-overflow-exception? _%e101450%_)) + (macro-stack-overflow-exception? _%exn101447%_)))) (define started-thread-exception? - (lambda (_%exn101169%_) + (lambda (_%exn101443%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101169%_)) - (let ((_%e101171%_ + (class-instance? RuntimeException::t _%exn101443%_)) + (let ((_%e101445%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101169%_ 'exception)))) - (macro-started-thread-exception? _%e101171%_)) - (macro-started-thread-exception? _%exn101169%_)))) + (unchecked-slot-ref _%exn101443%_ 'exception)))) + (macro-started-thread-exception? _%e101445%_)) + (macro-started-thread-exception? _%exn101443%_)))) (define started-thread-exception-arguments - (lambda (_%exn101165%_) + (lambda (_%exn101439%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101165%_)) - (let ((_%e101167%_ + (class-instance? RuntimeException::t _%exn101439%_)) + (let ((_%e101441%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101165%_ 'exception)))) - (if (macro-started-thread-exception? _%e101167%_) - (macro-started-thread-exception-arguments _%e101167%_) + (unchecked-slot-ref _%exn101439%_ 'exception)))) + (if (macro-started-thread-exception? _%e101441%_) + (macro-started-thread-exception-arguments _%e101441%_) (error '"not an instance" 'started-thread-exception? (cons 'started-thread-exception-arguments - (cons _%e101167%_ '()))))) - (if (macro-started-thread-exception? _%exn101165%_) - (macro-started-thread-exception-arguments _%exn101165%_) + (cons _%e101441%_ '()))))) + (if (macro-started-thread-exception? _%exn101439%_) + (macro-started-thread-exception-arguments _%exn101439%_) (error '"not an instance" 'started-thread-exception? (cons 'started-thread-exception-arguments - (cons _%exn101165%_ '()))))))) + (cons _%exn101439%_ '()))))))) (define started-thread-exception-procedure - (lambda (_%exn101159%_) + (lambda (_%exn101433%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101159%_)) - (let ((_%e101162%_ + (class-instance? RuntimeException::t _%exn101433%_)) + (let ((_%e101436%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101159%_ 'exception)))) - (if (macro-started-thread-exception? _%e101162%_) - (macro-started-thread-exception-procedure _%e101162%_) + (unchecked-slot-ref _%exn101433%_ 'exception)))) + (if (macro-started-thread-exception? _%e101436%_) + (macro-started-thread-exception-procedure _%e101436%_) (error '"not an instance" 'started-thread-exception? (cons 'started-thread-exception-procedure - (cons _%e101162%_ '()))))) - (if (macro-started-thread-exception? _%exn101159%_) - (macro-started-thread-exception-procedure _%exn101159%_) + (cons _%e101436%_ '()))))) + (if (macro-started-thread-exception? _%exn101433%_) + (macro-started-thread-exception-procedure _%exn101433%_) (error '"not an instance" 'started-thread-exception? (cons 'started-thread-exception-procedure - (cons _%exn101159%_ '()))))))) + (cons _%exn101433%_ '()))))))) (define terminated-thread-exception? - (lambda (_%exn101155%_) + (lambda (_%exn101429%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101155%_)) - (let ((_%e101157%_ + (class-instance? RuntimeException::t _%exn101429%_)) + (let ((_%e101431%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101155%_ 'exception)))) - (macro-terminated-thread-exception? _%e101157%_)) - (macro-terminated-thread-exception? _%exn101155%_)))) + (unchecked-slot-ref _%exn101429%_ 'exception)))) + (macro-terminated-thread-exception? _%e101431%_)) + (macro-terminated-thread-exception? _%exn101429%_)))) (define terminated-thread-exception-arguments - (lambda (_%exn101151%_) + (lambda (_%exn101425%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101151%_)) - (let ((_%e101153%_ + (class-instance? RuntimeException::t _%exn101425%_)) + (let ((_%e101427%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101151%_ 'exception)))) - (if (macro-terminated-thread-exception? _%e101153%_) - (macro-terminated-thread-exception-arguments _%e101153%_) + (unchecked-slot-ref _%exn101425%_ 'exception)))) + (if (macro-terminated-thread-exception? _%e101427%_) + (macro-terminated-thread-exception-arguments _%e101427%_) (error '"not an instance" 'terminated-thread-exception? (cons 'terminated-thread-exception-arguments - (cons _%e101153%_ '()))))) - (if (macro-terminated-thread-exception? _%exn101151%_) - (macro-terminated-thread-exception-arguments _%exn101151%_) + (cons _%e101427%_ '()))))) + (if (macro-terminated-thread-exception? _%exn101425%_) + (macro-terminated-thread-exception-arguments _%exn101425%_) (error '"not an instance" 'terminated-thread-exception? (cons 'terminated-thread-exception-arguments - (cons _%exn101151%_ '()))))))) + (cons _%exn101425%_ '()))))))) (define terminated-thread-exception-procedure - (lambda (_%exn101145%_) + (lambda (_%exn101419%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101145%_)) - (let ((_%e101148%_ + (class-instance? RuntimeException::t _%exn101419%_)) + (let ((_%e101422%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101145%_ 'exception)))) - (if (macro-terminated-thread-exception? _%e101148%_) - (macro-terminated-thread-exception-procedure _%e101148%_) + (unchecked-slot-ref _%exn101419%_ 'exception)))) + (if (macro-terminated-thread-exception? _%e101422%_) + (macro-terminated-thread-exception-procedure _%e101422%_) (error '"not an instance" 'terminated-thread-exception? (cons 'terminated-thread-exception-procedure - (cons _%e101148%_ '()))))) - (if (macro-terminated-thread-exception? _%exn101145%_) - (macro-terminated-thread-exception-procedure _%exn101145%_) + (cons _%e101422%_ '()))))) + (if (macro-terminated-thread-exception? _%exn101419%_) + (macro-terminated-thread-exception-procedure _%exn101419%_) (error '"not an instance" 'terminated-thread-exception? (cons 'terminated-thread-exception-procedure - (cons _%exn101145%_ '()))))))) + (cons _%exn101419%_ '()))))))) (define type-exception? - (lambda (_%exn101141%_) + (lambda (_%exn101415%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101141%_)) - (let ((_%e101143%_ + (class-instance? RuntimeException::t _%exn101415%_)) + (let ((_%e101417%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101141%_ 'exception)))) - (macro-type-exception? _%e101143%_)) - (macro-type-exception? _%exn101141%_)))) + (unchecked-slot-ref _%exn101415%_ 'exception)))) + (macro-type-exception? _%e101417%_)) + (macro-type-exception? _%exn101415%_)))) (define type-exception-arg-id - (lambda (_%exn101137%_) + (lambda (_%exn101411%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101137%_)) - (let ((_%e101139%_ + (class-instance? RuntimeException::t _%exn101411%_)) + (let ((_%e101413%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101137%_ 'exception)))) - (if (macro-type-exception? _%e101139%_) - (macro-type-exception-arg-id _%e101139%_) + (unchecked-slot-ref _%exn101411%_ 'exception)))) + (if (macro-type-exception? _%e101413%_) + (macro-type-exception-arg-id _%e101413%_) (error '"not an instance" 'type-exception? (cons 'type-exception-arg-id - (cons _%e101139%_ '()))))) - (if (macro-type-exception? _%exn101137%_) - (macro-type-exception-arg-id _%exn101137%_) + (cons _%e101413%_ '()))))) + (if (macro-type-exception? _%exn101411%_) + (macro-type-exception-arg-id _%exn101411%_) (error '"not an instance" 'type-exception? (cons 'type-exception-arg-id - (cons _%exn101137%_ '()))))))) + (cons _%exn101411%_ '()))))))) (define type-exception-arguments - (lambda (_%exn101133%_) + (lambda (_%exn101407%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101133%_)) - (let ((_%e101135%_ + (class-instance? RuntimeException::t _%exn101407%_)) + (let ((_%e101409%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101133%_ 'exception)))) - (if (macro-type-exception? _%e101135%_) - (macro-type-exception-arguments _%e101135%_) + (unchecked-slot-ref _%exn101407%_ 'exception)))) + (if (macro-type-exception? _%e101409%_) + (macro-type-exception-arguments _%e101409%_) (error '"not an instance" 'type-exception? (cons 'type-exception-arguments - (cons _%e101135%_ '()))))) - (if (macro-type-exception? _%exn101133%_) - (macro-type-exception-arguments _%exn101133%_) + (cons _%e101409%_ '()))))) + (if (macro-type-exception? _%exn101407%_) + (macro-type-exception-arguments _%exn101407%_) (error '"not an instance" 'type-exception? (cons 'type-exception-arguments - (cons _%exn101133%_ '()))))))) + (cons _%exn101407%_ '()))))))) (define type-exception-procedure - (lambda (_%exn101129%_) + (lambda (_%exn101403%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101129%_)) - (let ((_%e101131%_ + (class-instance? RuntimeException::t _%exn101403%_)) + (let ((_%e101405%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101129%_ 'exception)))) - (if (macro-type-exception? _%e101131%_) - (macro-type-exception-procedure _%e101131%_) + (unchecked-slot-ref _%exn101403%_ 'exception)))) + (if (macro-type-exception? _%e101405%_) + (macro-type-exception-procedure _%e101405%_) (error '"not an instance" 'type-exception? (cons 'type-exception-procedure - (cons _%e101131%_ '()))))) - (if (macro-type-exception? _%exn101129%_) - (macro-type-exception-procedure _%exn101129%_) + (cons _%e101405%_ '()))))) + (if (macro-type-exception? _%exn101403%_) + (macro-type-exception-procedure _%exn101403%_) (error '"not an instance" 'type-exception? (cons 'type-exception-procedure - (cons _%exn101129%_ '()))))))) + (cons _%exn101403%_ '()))))))) (define type-exception-type-id - (lambda (_%exn101123%_) + (lambda (_%exn101397%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101123%_)) - (let ((_%e101126%_ + (class-instance? RuntimeException::t _%exn101397%_)) + (let ((_%e101400%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101123%_ 'exception)))) - (if (macro-type-exception? _%e101126%_) - (macro-type-exception-type-id _%e101126%_) + (unchecked-slot-ref _%exn101397%_ 'exception)))) + (if (macro-type-exception? _%e101400%_) + (macro-type-exception-type-id _%e101400%_) (error '"not an instance" 'type-exception? (cons 'type-exception-type-id - (cons _%e101126%_ '()))))) - (if (macro-type-exception? _%exn101123%_) - (macro-type-exception-type-id _%exn101123%_) + (cons _%e101400%_ '()))))) + (if (macro-type-exception? _%exn101397%_) + (macro-type-exception-type-id _%exn101397%_) (error '"not an instance" 'type-exception? (cons 'type-exception-type-id - (cons _%exn101123%_ '()))))))) + (cons _%exn101397%_ '()))))))) (define unbound-global-exception? - (lambda (_%exn101119%_) + (lambda (_%exn101393%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101119%_)) - (let ((_%e101121%_ + (class-instance? RuntimeException::t _%exn101393%_)) + (let ((_%e101395%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101119%_ 'exception)))) - (macro-unbound-global-exception? _%e101121%_)) - (macro-unbound-global-exception? _%exn101119%_)))) + (unchecked-slot-ref _%exn101393%_ 'exception)))) + (macro-unbound-global-exception? _%e101395%_)) + (macro-unbound-global-exception? _%exn101393%_)))) (define unbound-global-exception-code - (lambda (_%exn101115%_) + (lambda (_%exn101389%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101115%_)) - (let ((_%e101117%_ + (class-instance? RuntimeException::t _%exn101389%_)) + (let ((_%e101391%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101115%_ 'exception)))) - (if (macro-unbound-global-exception? _%e101117%_) - (macro-unbound-global-exception-code _%e101117%_) + (unchecked-slot-ref _%exn101389%_ 'exception)))) + (if (macro-unbound-global-exception? _%e101391%_) + (macro-unbound-global-exception-code _%e101391%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-code - (cons _%e101117%_ '()))))) - (if (macro-unbound-global-exception? _%exn101115%_) - (macro-unbound-global-exception-code _%exn101115%_) + (cons _%e101391%_ '()))))) + (if (macro-unbound-global-exception? _%exn101389%_) + (macro-unbound-global-exception-code _%exn101389%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-code - (cons _%exn101115%_ '()))))))) + (cons _%exn101389%_ '()))))))) (define unbound-global-exception-rte - (lambda (_%exn101111%_) + (lambda (_%exn101385%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101111%_)) - (let ((_%e101113%_ + (class-instance? RuntimeException::t _%exn101385%_)) + (let ((_%e101387%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101111%_ 'exception)))) - (if (macro-unbound-global-exception? _%e101113%_) - (macro-unbound-global-exception-rte _%e101113%_) + (unchecked-slot-ref _%exn101385%_ 'exception)))) + (if (macro-unbound-global-exception? _%e101387%_) + (macro-unbound-global-exception-rte _%e101387%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-rte - (cons _%e101113%_ '()))))) - (if (macro-unbound-global-exception? _%exn101111%_) - (macro-unbound-global-exception-rte _%exn101111%_) + (cons _%e101387%_ '()))))) + (if (macro-unbound-global-exception? _%exn101385%_) + (macro-unbound-global-exception-rte _%exn101385%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-rte - (cons _%exn101111%_ '()))))))) + (cons _%exn101385%_ '()))))))) (define unbound-global-exception-variable - (lambda (_%exn101105%_) + (lambda (_%exn101379%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101105%_)) - (let ((_%e101108%_ + (class-instance? RuntimeException::t _%exn101379%_)) + (let ((_%e101382%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101105%_ 'exception)))) - (if (macro-unbound-global-exception? _%e101108%_) - (macro-unbound-global-exception-variable _%e101108%_) + (unchecked-slot-ref _%exn101379%_ 'exception)))) + (if (macro-unbound-global-exception? _%e101382%_) + (macro-unbound-global-exception-variable _%e101382%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-variable - (cons _%e101108%_ '()))))) - (if (macro-unbound-global-exception? _%exn101105%_) - (macro-unbound-global-exception-variable _%exn101105%_) + (cons _%e101382%_ '()))))) + (if (macro-unbound-global-exception? _%exn101379%_) + (macro-unbound-global-exception-variable _%exn101379%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-variable - (cons _%exn101105%_ '()))))))) + (cons _%exn101379%_ '()))))))) (define unbound-key-exception? - (lambda (_%exn101101%_) + (lambda (_%exn101375%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101101%_)) - (let ((_%e101103%_ + (class-instance? RuntimeException::t _%exn101375%_)) + (let ((_%e101377%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101101%_ 'exception)))) - (macro-unbound-key-exception? _%e101103%_)) - (macro-unbound-key-exception? _%exn101101%_)))) + (unchecked-slot-ref _%exn101375%_ 'exception)))) + (macro-unbound-key-exception? _%e101377%_)) + (macro-unbound-key-exception? _%exn101375%_)))) (define unbound-key-exception-arguments - (lambda (_%exn101097%_) + (lambda (_%exn101371%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101097%_)) - (let ((_%e101099%_ + (class-instance? RuntimeException::t _%exn101371%_)) + (let ((_%e101373%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101097%_ 'exception)))) - (if (macro-unbound-key-exception? _%e101099%_) - (macro-unbound-key-exception-arguments _%e101099%_) + (unchecked-slot-ref _%exn101371%_ 'exception)))) + (if (macro-unbound-key-exception? _%e101373%_) + (macro-unbound-key-exception-arguments _%e101373%_) (error '"not an instance" 'unbound-key-exception? (cons 'unbound-key-exception-arguments - (cons _%e101099%_ '()))))) - (if (macro-unbound-key-exception? _%exn101097%_) - (macro-unbound-key-exception-arguments _%exn101097%_) + (cons _%e101373%_ '()))))) + (if (macro-unbound-key-exception? _%exn101371%_) + (macro-unbound-key-exception-arguments _%exn101371%_) (error '"not an instance" 'unbound-key-exception? (cons 'unbound-key-exception-arguments - (cons _%exn101097%_ '()))))))) + (cons _%exn101371%_ '()))))))) (define unbound-key-exception-procedure - (lambda (_%exn101091%_) + (lambda (_%exn101365%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101091%_)) - (let ((_%e101094%_ + (class-instance? RuntimeException::t _%exn101365%_)) + (let ((_%e101368%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101091%_ 'exception)))) - (if (macro-unbound-key-exception? _%e101094%_) - (macro-unbound-key-exception-procedure _%e101094%_) + (unchecked-slot-ref _%exn101365%_ 'exception)))) + (if (macro-unbound-key-exception? _%e101368%_) + (macro-unbound-key-exception-procedure _%e101368%_) (error '"not an instance" 'unbound-key-exception? (cons 'unbound-key-exception-procedure - (cons _%e101094%_ '()))))) - (if (macro-unbound-key-exception? _%exn101091%_) - (macro-unbound-key-exception-procedure _%exn101091%_) + (cons _%e101368%_ '()))))) + (if (macro-unbound-key-exception? _%exn101365%_) + (macro-unbound-key-exception-procedure _%exn101365%_) (error '"not an instance" 'unbound-key-exception? (cons 'unbound-key-exception-procedure - (cons _%exn101091%_ '()))))))) + (cons _%exn101365%_ '()))))))) (define unbound-os-environment-variable-exception? - (lambda (_%exn101087%_) + (lambda (_%exn101361%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101087%_)) - (let ((_%e101089%_ + (class-instance? RuntimeException::t _%exn101361%_)) + (let ((_%e101363%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101087%_ 'exception)))) - (macro-unbound-os-environment-variable-exception? _%e101089%_)) - (macro-unbound-os-environment-variable-exception? _%exn101087%_)))) + (unchecked-slot-ref _%exn101361%_ 'exception)))) + (macro-unbound-os-environment-variable-exception? _%e101363%_)) + (macro-unbound-os-environment-variable-exception? _%exn101361%_)))) (define unbound-os-environment-variable-exception-arguments - (lambda (_%exn101083%_) + (lambda (_%exn101357%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101083%_)) - (let ((_%e101085%_ + (class-instance? RuntimeException::t _%exn101357%_)) + (let ((_%e101359%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101083%_ 'exception)))) + (unchecked-slot-ref _%exn101357%_ 'exception)))) (if (macro-unbound-os-environment-variable-exception? - _%e101085%_) + _%e101359%_) (macro-unbound-os-environment-variable-exception-arguments - _%e101085%_) + _%e101359%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-arguments - (cons _%e101085%_ '()))))) + (cons _%e101359%_ '()))))) (if (macro-unbound-os-environment-variable-exception? - _%exn101083%_) + _%exn101357%_) (macro-unbound-os-environment-variable-exception-arguments - _%exn101083%_) + _%exn101357%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-arguments - (cons _%exn101083%_ '()))))))) + (cons _%exn101357%_ '()))))))) (define unbound-os-environment-variable-exception-procedure - (lambda (_%exn101077%_) + (lambda (_%exn101351%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101077%_)) - (let ((_%e101080%_ + (class-instance? RuntimeException::t _%exn101351%_)) + (let ((_%e101354%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101077%_ 'exception)))) + (unchecked-slot-ref _%exn101351%_ 'exception)))) (if (macro-unbound-os-environment-variable-exception? - _%e101080%_) + _%e101354%_) (macro-unbound-os-environment-variable-exception-procedure - _%e101080%_) + _%e101354%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-procedure - (cons _%e101080%_ '()))))) + (cons _%e101354%_ '()))))) (if (macro-unbound-os-environment-variable-exception? - _%exn101077%_) + _%exn101351%_) (macro-unbound-os-environment-variable-exception-procedure - _%exn101077%_) + _%exn101351%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-procedure - (cons _%exn101077%_ '()))))))) + (cons _%exn101351%_ '()))))))) (define unbound-serial-number-exception? - (lambda (_%exn101073%_) + (lambda (_%exn101347%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101073%_)) - (let ((_%e101075%_ + (class-instance? RuntimeException::t _%exn101347%_)) + (let ((_%e101349%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101073%_ 'exception)))) - (macro-unbound-serial-number-exception? _%e101075%_)) - (macro-unbound-serial-number-exception? _%exn101073%_)))) + (unchecked-slot-ref _%exn101347%_ 'exception)))) + (macro-unbound-serial-number-exception? _%e101349%_)) + (macro-unbound-serial-number-exception? _%exn101347%_)))) (define unbound-serial-number-exception-arguments - (lambda (_%exn101069%_) + (lambda (_%exn101343%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101069%_)) - (let ((_%e101071%_ + (class-instance? RuntimeException::t _%exn101343%_)) + (let ((_%e101345%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101069%_ 'exception)))) - (if (macro-unbound-serial-number-exception? _%e101071%_) - (macro-unbound-serial-number-exception-arguments _%e101071%_) + (unchecked-slot-ref _%exn101343%_ 'exception)))) + (if (macro-unbound-serial-number-exception? _%e101345%_) + (macro-unbound-serial-number-exception-arguments _%e101345%_) (error '"not an instance" 'unbound-serial-number-exception? (cons 'unbound-serial-number-exception-arguments - (cons _%e101071%_ '()))))) - (if (macro-unbound-serial-number-exception? _%exn101069%_) - (macro-unbound-serial-number-exception-arguments _%exn101069%_) + (cons _%e101345%_ '()))))) + (if (macro-unbound-serial-number-exception? _%exn101343%_) + (macro-unbound-serial-number-exception-arguments _%exn101343%_) (error '"not an instance" 'unbound-serial-number-exception? (cons 'unbound-serial-number-exception-arguments - (cons _%exn101069%_ '()))))))) + (cons _%exn101343%_ '()))))))) (define unbound-serial-number-exception-procedure - (lambda (_%exn101063%_) + (lambda (_%exn101337%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101063%_)) - (let ((_%e101066%_ + (class-instance? RuntimeException::t _%exn101337%_)) + (let ((_%e101340%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101063%_ 'exception)))) - (if (macro-unbound-serial-number-exception? _%e101066%_) - (macro-unbound-serial-number-exception-procedure _%e101066%_) + (unchecked-slot-ref _%exn101337%_ 'exception)))) + (if (macro-unbound-serial-number-exception? _%e101340%_) + (macro-unbound-serial-number-exception-procedure _%e101340%_) (error '"not an instance" 'unbound-serial-number-exception? (cons 'unbound-serial-number-exception-procedure - (cons _%e101066%_ '()))))) - (if (macro-unbound-serial-number-exception? _%exn101063%_) - (macro-unbound-serial-number-exception-procedure _%exn101063%_) + (cons _%e101340%_ '()))))) + (if (macro-unbound-serial-number-exception? _%exn101337%_) + (macro-unbound-serial-number-exception-procedure _%exn101337%_) (error '"not an instance" 'unbound-serial-number-exception? (cons 'unbound-serial-number-exception-procedure - (cons _%exn101063%_ '()))))))) + (cons _%exn101337%_ '()))))))) (define uncaught-exception? - (lambda (_%exn101059%_) + (lambda (_%exn101333%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101059%_)) - (let ((_%e101061%_ + (class-instance? RuntimeException::t _%exn101333%_)) + (let ((_%e101335%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101059%_ 'exception)))) - (macro-uncaught-exception? _%e101061%_)) - (macro-uncaught-exception? _%exn101059%_)))) + (unchecked-slot-ref _%exn101333%_ 'exception)))) + (macro-uncaught-exception? _%e101335%_)) + (macro-uncaught-exception? _%exn101333%_)))) (define uncaught-exception-arguments - (lambda (_%exn101055%_) + (lambda (_%exn101329%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101055%_)) - (let ((_%e101057%_ + (class-instance? RuntimeException::t _%exn101329%_)) + (let ((_%e101331%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101055%_ 'exception)))) - (if (macro-uncaught-exception? _%e101057%_) - (macro-uncaught-exception-arguments _%e101057%_) + (unchecked-slot-ref _%exn101329%_ 'exception)))) + (if (macro-uncaught-exception? _%e101331%_) + (macro-uncaught-exception-arguments _%e101331%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-arguments - (cons _%e101057%_ '()))))) - (if (macro-uncaught-exception? _%exn101055%_) - (macro-uncaught-exception-arguments _%exn101055%_) + (cons _%e101331%_ '()))))) + (if (macro-uncaught-exception? _%exn101329%_) + (macro-uncaught-exception-arguments _%exn101329%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-arguments - (cons _%exn101055%_ '()))))))) + (cons _%exn101329%_ '()))))))) (define uncaught-exception-procedure - (lambda (_%exn101051%_) + (lambda (_%exn101325%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101051%_)) - (let ((_%e101053%_ + (class-instance? RuntimeException::t _%exn101325%_)) + (let ((_%e101327%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101051%_ 'exception)))) - (if (macro-uncaught-exception? _%e101053%_) - (macro-uncaught-exception-procedure _%e101053%_) + (unchecked-slot-ref _%exn101325%_ 'exception)))) + (if (macro-uncaught-exception? _%e101327%_) + (macro-uncaught-exception-procedure _%e101327%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-procedure - (cons _%e101053%_ '()))))) - (if (macro-uncaught-exception? _%exn101051%_) - (macro-uncaught-exception-procedure _%exn101051%_) + (cons _%e101327%_ '()))))) + (if (macro-uncaught-exception? _%exn101325%_) + (macro-uncaught-exception-procedure _%exn101325%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-procedure - (cons _%exn101051%_ '()))))))) + (cons _%exn101325%_ '()))))))) (define uncaught-exception-reason - (lambda (_%exn101045%_) + (lambda (_%exn101319%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101045%_)) - (let ((_%e101048%_ + (class-instance? RuntimeException::t _%exn101319%_)) + (let ((_%e101322%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101045%_ 'exception)))) - (if (macro-uncaught-exception? _%e101048%_) - (macro-uncaught-exception-reason _%e101048%_) + (unchecked-slot-ref _%exn101319%_ 'exception)))) + (if (macro-uncaught-exception? _%e101322%_) + (macro-uncaught-exception-reason _%e101322%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-reason - (cons _%e101048%_ '()))))) - (if (macro-uncaught-exception? _%exn101045%_) - (macro-uncaught-exception-reason _%exn101045%_) + (cons _%e101322%_ '()))))) + (if (macro-uncaught-exception? _%exn101319%_) + (macro-uncaught-exception-reason _%exn101319%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-reason - (cons _%exn101045%_ '()))))))) + (cons _%exn101319%_ '()))))))) (define uninitialized-thread-exception? - (lambda (_%exn101041%_) + (lambda (_%exn101315%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101041%_)) - (let ((_%e101043%_ + (class-instance? RuntimeException::t _%exn101315%_)) + (let ((_%e101317%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101041%_ 'exception)))) - (macro-uninitialized-thread-exception? _%e101043%_)) - (macro-uninitialized-thread-exception? _%exn101041%_)))) + (unchecked-slot-ref _%exn101315%_ 'exception)))) + (macro-uninitialized-thread-exception? _%e101317%_)) + (macro-uninitialized-thread-exception? _%exn101315%_)))) (define uninitialized-thread-exception-arguments - (lambda (_%exn101037%_) + (lambda (_%exn101311%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101037%_)) - (let ((_%e101039%_ + (class-instance? RuntimeException::t _%exn101311%_)) + (let ((_%e101313%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101037%_ 'exception)))) - (if (macro-uninitialized-thread-exception? _%e101039%_) - (macro-uninitialized-thread-exception-arguments _%e101039%_) + (unchecked-slot-ref _%exn101311%_ 'exception)))) + (if (macro-uninitialized-thread-exception? _%e101313%_) + (macro-uninitialized-thread-exception-arguments _%e101313%_) (error '"not an instance" 'uninitialized-thread-exception? (cons 'uninitialized-thread-exception-arguments - (cons _%e101039%_ '()))))) - (if (macro-uninitialized-thread-exception? _%exn101037%_) - (macro-uninitialized-thread-exception-arguments _%exn101037%_) + (cons _%e101313%_ '()))))) + (if (macro-uninitialized-thread-exception? _%exn101311%_) + (macro-uninitialized-thread-exception-arguments _%exn101311%_) (error '"not an instance" 'uninitialized-thread-exception? (cons 'uninitialized-thread-exception-arguments - (cons _%exn101037%_ '()))))))) + (cons _%exn101311%_ '()))))))) (define uninitialized-thread-exception-procedure - (lambda (_%exn101031%_) + (lambda (_%exn101305%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101031%_)) - (let ((_%e101034%_ + (class-instance? RuntimeException::t _%exn101305%_)) + (let ((_%e101308%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101031%_ 'exception)))) - (if (macro-uninitialized-thread-exception? _%e101034%_) - (macro-uninitialized-thread-exception-procedure _%e101034%_) + (unchecked-slot-ref _%exn101305%_ 'exception)))) + (if (macro-uninitialized-thread-exception? _%e101308%_) + (macro-uninitialized-thread-exception-procedure _%e101308%_) (error '"not an instance" 'uninitialized-thread-exception? (cons 'uninitialized-thread-exception-procedure - (cons _%e101034%_ '()))))) - (if (macro-uninitialized-thread-exception? _%exn101031%_) - (macro-uninitialized-thread-exception-procedure _%exn101031%_) + (cons _%e101308%_ '()))))) + (if (macro-uninitialized-thread-exception? _%exn101305%_) + (macro-uninitialized-thread-exception-procedure _%exn101305%_) (error '"not an instance" 'uninitialized-thread-exception? (cons 'uninitialized-thread-exception-procedure - (cons _%exn101031%_ '()))))))) + (cons _%exn101305%_ '()))))))) (define unknown-keyword-argument-exception? - (lambda (_%exn101027%_) + (lambda (_%exn101301%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101027%_)) - (let ((_%e101029%_ + (class-instance? RuntimeException::t _%exn101301%_)) + (let ((_%e101303%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101027%_ 'exception)))) - (macro-unknown-keyword-argument-exception? _%e101029%_)) - (macro-unknown-keyword-argument-exception? _%exn101027%_)))) + (unchecked-slot-ref _%exn101301%_ 'exception)))) + (macro-unknown-keyword-argument-exception? _%e101303%_)) + (macro-unknown-keyword-argument-exception? _%exn101301%_)))) (define unknown-keyword-argument-exception-arguments - (lambda (_%exn101023%_) + (lambda (_%exn101297%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101023%_)) - (let ((_%e101025%_ + (class-instance? RuntimeException::t _%exn101297%_)) + (let ((_%e101299%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101023%_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _%e101025%_) + (unchecked-slot-ref _%exn101297%_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _%e101299%_) (macro-unknown-keyword-argument-exception-arguments - _%e101025%_) + _%e101299%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-arguments - (cons _%e101025%_ '()))))) - (if (macro-unknown-keyword-argument-exception? _%exn101023%_) + (cons _%e101299%_ '()))))) + (if (macro-unknown-keyword-argument-exception? _%exn101297%_) (macro-unknown-keyword-argument-exception-arguments - _%exn101023%_) + _%exn101297%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-arguments - (cons _%exn101023%_ '()))))))) + (cons _%exn101297%_ '()))))))) (define unknown-keyword-argument-exception-procedure - (lambda (_%exn101017%_) + (lambda (_%exn101291%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101017%_)) - (let ((_%e101020%_ + (class-instance? RuntimeException::t _%exn101291%_)) + (let ((_%e101294%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101017%_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _%e101020%_) + (unchecked-slot-ref _%exn101291%_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _%e101294%_) (macro-unknown-keyword-argument-exception-procedure - _%e101020%_) + _%e101294%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-procedure - (cons _%e101020%_ '()))))) - (if (macro-unknown-keyword-argument-exception? _%exn101017%_) + (cons _%e101294%_ '()))))) + (if (macro-unknown-keyword-argument-exception? _%exn101291%_) (macro-unknown-keyword-argument-exception-procedure - _%exn101017%_) + _%exn101291%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-procedure - (cons _%exn101017%_ '()))))))) + (cons _%exn101291%_ '()))))))) (define unterminated-process-exception? - (lambda (_%exn101013%_) + (lambda (_%exn101287%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101013%_)) - (let ((_%e101015%_ + (class-instance? RuntimeException::t _%exn101287%_)) + (let ((_%e101289%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101013%_ 'exception)))) - (macro-unterminated-process-exception? _%e101015%_)) - (macro-unterminated-process-exception? _%exn101013%_)))) + (unchecked-slot-ref _%exn101287%_ 'exception)))) + (macro-unterminated-process-exception? _%e101289%_)) + (macro-unterminated-process-exception? _%exn101287%_)))) (define unterminated-process-exception-arguments - (lambda (_%exn101009%_) + (lambda (_%exn101283%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101009%_)) - (let ((_%e101011%_ + (class-instance? RuntimeException::t _%exn101283%_)) + (let ((_%e101285%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101009%_ 'exception)))) - (if (macro-unterminated-process-exception? _%e101011%_) - (macro-unterminated-process-exception-arguments _%e101011%_) + (unchecked-slot-ref _%exn101283%_ 'exception)))) + (if (macro-unterminated-process-exception? _%e101285%_) + (macro-unterminated-process-exception-arguments _%e101285%_) (error '"not an instance" 'unterminated-process-exception? (cons 'unterminated-process-exception-arguments - (cons _%e101011%_ '()))))) - (if (macro-unterminated-process-exception? _%exn101009%_) - (macro-unterminated-process-exception-arguments _%exn101009%_) + (cons _%e101285%_ '()))))) + (if (macro-unterminated-process-exception? _%exn101283%_) + (macro-unterminated-process-exception-arguments _%exn101283%_) (error '"not an instance" 'unterminated-process-exception? (cons 'unterminated-process-exception-arguments - (cons _%exn101009%_ '()))))))) + (cons _%exn101283%_ '()))))))) (define unterminated-process-exception-procedure - (lambda (_%exn101003%_) + (lambda (_%exn101277%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn101003%_)) - (let ((_%e101006%_ + (class-instance? RuntimeException::t _%exn101277%_)) + (let ((_%e101280%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn101003%_ 'exception)))) - (if (macro-unterminated-process-exception? _%e101006%_) - (macro-unterminated-process-exception-procedure _%e101006%_) + (unchecked-slot-ref _%exn101277%_ 'exception)))) + (if (macro-unterminated-process-exception? _%e101280%_) + (macro-unterminated-process-exception-procedure _%e101280%_) (error '"not an instance" 'unterminated-process-exception? (cons 'unterminated-process-exception-procedure - (cons _%e101006%_ '()))))) - (if (macro-unterminated-process-exception? _%exn101003%_) - (macro-unterminated-process-exception-procedure _%exn101003%_) + (cons _%e101280%_ '()))))) + (if (macro-unterminated-process-exception? _%exn101277%_) + (macro-unterminated-process-exception-procedure _%exn101277%_) (error '"not an instance" 'unterminated-process-exception? (cons 'unterminated-process-exception-procedure - (cons _%exn101003%_ '()))))))) + (cons _%exn101277%_ '()))))))) (define wrong-number-of-arguments-exception? - (lambda (_%exn100999%_) + (lambda (_%exn101273%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn100999%_)) - (let ((_%e101001%_ + (class-instance? RuntimeException::t _%exn101273%_)) + (let ((_%e101275%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn100999%_ 'exception)))) - (macro-wrong-number-of-arguments-exception? _%e101001%_)) - (macro-wrong-number-of-arguments-exception? _%exn100999%_)))) + (unchecked-slot-ref _%exn101273%_ 'exception)))) + (macro-wrong-number-of-arguments-exception? _%e101275%_)) + (macro-wrong-number-of-arguments-exception? _%exn101273%_)))) (define wrong-number-of-arguments-exception-arguments - (lambda (_%exn100995%_) + (lambda (_%exn101269%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn100995%_)) - (let ((_%e100997%_ + (class-instance? RuntimeException::t _%exn101269%_)) + (let ((_%e101271%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn100995%_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _%e100997%_) + (unchecked-slot-ref _%exn101269%_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _%e101271%_) (macro-wrong-number-of-arguments-exception-arguments - _%e100997%_) + _%e101271%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-arguments - (cons _%e100997%_ '()))))) - (if (macro-wrong-number-of-arguments-exception? _%exn100995%_) + (cons _%e101271%_ '()))))) + (if (macro-wrong-number-of-arguments-exception? _%exn101269%_) (macro-wrong-number-of-arguments-exception-arguments - _%exn100995%_) + _%exn101269%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-arguments - (cons _%exn100995%_ '()))))))) + (cons _%exn101269%_ '()))))))) (define wrong-number-of-arguments-exception-procedure - (lambda (_%exn100989%_) + (lambda (_%exn101263%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn100989%_)) - (let ((_%e100992%_ + (class-instance? RuntimeException::t _%exn101263%_)) + (let ((_%e101266%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn100989%_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _%e100992%_) + (unchecked-slot-ref _%exn101263%_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _%e101266%_) (macro-wrong-number-of-arguments-exception-procedure - _%e100992%_) + _%e101266%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-procedure - (cons _%e100992%_ '()))))) - (if (macro-wrong-number-of-arguments-exception? _%exn100989%_) + (cons _%e101266%_ '()))))) + (if (macro-wrong-number-of-arguments-exception? _%exn101263%_) (macro-wrong-number-of-arguments-exception-procedure - _%exn100989%_) + _%exn101263%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-procedure - (cons _%exn100989%_ '()))))))) + (cons _%exn101263%_ '()))))))) (define wrong-number-of-values-exception? - (lambda (_%exn100985%_) + (lambda (_%exn101259%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn100985%_)) - (let ((_%e100987%_ + (class-instance? RuntimeException::t _%exn101259%_)) + (let ((_%e101261%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn100985%_ 'exception)))) - (macro-wrong-number-of-values-exception? _%e100987%_)) - (macro-wrong-number-of-values-exception? _%exn100985%_)))) + (unchecked-slot-ref _%exn101259%_ 'exception)))) + (macro-wrong-number-of-values-exception? _%e101261%_)) + (macro-wrong-number-of-values-exception? _%exn101259%_)))) (define wrong-number-of-values-exception-code - (lambda (_%exn100981%_) + (lambda (_%exn101255%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn100981%_)) - (let ((_%e100983%_ + (class-instance? RuntimeException::t _%exn101255%_)) + (let ((_%e101257%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn100981%_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _%e100983%_) - (macro-wrong-number-of-values-exception-code _%e100983%_) + (unchecked-slot-ref _%exn101255%_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _%e101257%_) + (macro-wrong-number-of-values-exception-code _%e101257%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-code - (cons _%e100983%_ '()))))) - (if (macro-wrong-number-of-values-exception? _%exn100981%_) - (macro-wrong-number-of-values-exception-code _%exn100981%_) + (cons _%e101257%_ '()))))) + (if (macro-wrong-number-of-values-exception? _%exn101255%_) + (macro-wrong-number-of-values-exception-code _%exn101255%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-code - (cons _%exn100981%_ '()))))))) + (cons _%exn101255%_ '()))))))) (define wrong-number-of-values-exception-rte - (lambda (_%exn100977%_) + (lambda (_%exn101251%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn100977%_)) - (let ((_%e100979%_ + (class-instance? RuntimeException::t _%exn101251%_)) + (let ((_%e101253%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn100977%_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _%e100979%_) - (macro-wrong-number-of-values-exception-rte _%e100979%_) + (unchecked-slot-ref _%exn101251%_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _%e101253%_) + (macro-wrong-number-of-values-exception-rte _%e101253%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-rte - (cons _%e100979%_ '()))))) - (if (macro-wrong-number-of-values-exception? _%exn100977%_) - (macro-wrong-number-of-values-exception-rte _%exn100977%_) + (cons _%e101253%_ '()))))) + (if (macro-wrong-number-of-values-exception? _%exn101251%_) + (macro-wrong-number-of-values-exception-rte _%exn101251%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-rte - (cons _%exn100977%_ '()))))))) + (cons _%exn101251%_ '()))))))) (define wrong-number-of-values-exception-vals - (lambda (_%exn100971%_) + (lambda (_%exn101245%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn100971%_)) - (let ((_%e100974%_ + (class-instance? RuntimeException::t _%exn101245%_)) + (let ((_%e101248%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn100971%_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _%e100974%_) - (macro-wrong-number-of-values-exception-vals _%e100974%_) + (unchecked-slot-ref _%exn101245%_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _%e101248%_) + (macro-wrong-number-of-values-exception-vals _%e101248%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-vals - (cons _%e100974%_ '()))))) - (if (macro-wrong-number-of-values-exception? _%exn100971%_) - (macro-wrong-number-of-values-exception-vals _%exn100971%_) + (cons _%e101248%_ '()))))) + (if (macro-wrong-number-of-values-exception? _%exn101245%_) + (macro-wrong-number-of-values-exception-vals _%exn101245%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-vals - (cons _%exn100971%_ '()))))))) + (cons _%exn101245%_ '()))))))) (define wrong-processor-c-return-exception? - (lambda (_%exn100965%_) + (lambda (_%exn101239%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn100965%_)) - (let ((_%e100968%_ + (class-instance? RuntimeException::t _%exn101239%_)) + (let ((_%e101242%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn100965%_ 'exception)))) - (macro-wrong-processor-c-return-exception? _%e100968%_)) - (macro-wrong-processor-c-return-exception? _%exn100965%_)))))) + (unchecked-slot-ref _%exn101239%_ 'exception)))) + (macro-wrong-processor-c-return-exception? _%e101242%_)) + (macro-wrong-processor-c-return-exception? _%exn101239%_)))))) diff --git a/src/bootstrap/gerbil/runtime/error~1.scm b/src/bootstrap/gerbil/runtime/error~1.scm index e35e5f4fc..6dd840600 100644 --- a/src/bootstrap/gerbil/runtime/error~1.scm +++ b/src/bootstrap/gerbil/runtime/error~1.scm @@ -1,433 +1,433 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g102488_| + (define |[1]#_g102762_| (##structure gx#syntax-quote::t 'Exception::t #f (gx#current-expander-context) '())) - (define |[1]#_g102490_| + (define |[1]#_g102764_| (##structure gx#syntax-quote::t 'make-Exception #f (gx#current-expander-context) '())) - (define |[1]#_g102492_| + (define |[1]#_g102766_| (##structure gx#syntax-quote::t 'Exception? #f (gx#current-expander-context) '())) - (define |[1]#_g102494_| + (define |[1]#_g102768_| (##structure gx#syntax-quote::t 'StackTrace::t #f (gx#current-expander-context) '())) - (define |[1]#_g102496_| + (define |[1]#_g102770_| (##structure gx#syntax-quote::t 'make-StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g102498_| + (define |[1]#_g102772_| (##structure gx#syntax-quote::t 'StackTrace? #f (gx#current-expander-context) '())) - (define |[1]#_g102500_| + (define |[1]#_g102774_| (##structure gx#syntax-quote::t 'StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g102502_| + (define |[1]#_g102776_| (##structure gx#syntax-quote::t 'StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102504_| + (define |[1]#_g102778_| (##structure gx#syntax-quote::t '&StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g102506_| + (define |[1]#_g102780_| (##structure gx#syntax-quote::t '&StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102508_| + (define |[1]#_g102782_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g102509_| + (define |[1]#_g102783_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g102511_| + (define |[1]#_g102785_| (##structure gx#syntax-quote::t 'Error::t #f (gx#current-expander-context) '())) - (define |[1]#_g102513_| + (define |[1]#_g102787_| (##structure gx#syntax-quote::t 'make-Error #f (gx#current-expander-context) '())) - (define |[1]#_g102515_| + (define |[1]#_g102789_| (##structure gx#syntax-quote::t 'Error? #f (gx#current-expander-context) '())) - (define |[1]#_g102517_| + (define |[1]#_g102791_| (##structure gx#syntax-quote::t 'Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g102518_| + (define |[1]#_g102792_| (##structure gx#syntax-quote::t 'Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g102519_| + (define |[1]#_g102793_| (##structure gx#syntax-quote::t 'Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g102520_| + (define |[1]#_g102794_| (##structure gx#syntax-quote::t 'Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g102522_| + (define |[1]#_g102796_| (##structure gx#syntax-quote::t 'Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102523_| + (define |[1]#_g102797_| (##structure gx#syntax-quote::t 'Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102524_| + (define |[1]#_g102798_| (##structure gx#syntax-quote::t 'Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102525_| + (define |[1]#_g102799_| (##structure gx#syntax-quote::t 'Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102527_| + (define |[1]#_g102801_| (##structure gx#syntax-quote::t '&Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g102528_| + (define |[1]#_g102802_| (##structure gx#syntax-quote::t '&Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g102529_| + (define |[1]#_g102803_| (##structure gx#syntax-quote::t '&Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g102530_| + (define |[1]#_g102804_| (##structure gx#syntax-quote::t '&Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g102532_| + (define |[1]#_g102806_| (##structure gx#syntax-quote::t '&Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102533_| + (define |[1]#_g102807_| (##structure gx#syntax-quote::t '&Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102534_| + (define |[1]#_g102808_| (##structure gx#syntax-quote::t '&Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102535_| + (define |[1]#_g102809_| (##structure gx#syntax-quote::t '&Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102537_| + (define |[1]#_g102811_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g102539_| + (define |[1]#_g102813_| (##structure gx#syntax-quote::t 'ContractViolation::t #f (gx#current-expander-context) '())) - (define |[1]#_g102541_| + (define |[1]#_g102815_| (##structure gx#syntax-quote::t 'make-ContractViolation #f (gx#current-expander-context) '())) - (define |[1]#_g102543_| + (define |[1]#_g102817_| (##structure gx#syntax-quote::t 'ContractViolation? #f (gx#current-expander-context) '())) - (define |[1]#_g102545_| + (define |[1]#_g102819_| (##structure gx#syntax-quote::t 'ContractViolation-message #f (gx#current-expander-context) '())) - (define |[1]#_g102546_| + (define |[1]#_g102820_| (##structure gx#syntax-quote::t 'ContractViolation-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g102547_| + (define |[1]#_g102821_| (##structure gx#syntax-quote::t 'ContractViolation-where #f (gx#current-expander-context) '())) - (define |[1]#_g102548_| + (define |[1]#_g102822_| (##structure gx#syntax-quote::t 'ContractViolation-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g102550_| + (define |[1]#_g102824_| (##structure gx#syntax-quote::t 'ContractViolation-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102551_| + (define |[1]#_g102825_| (##structure gx#syntax-quote::t 'ContractViolation-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102552_| + (define |[1]#_g102826_| (##structure gx#syntax-quote::t 'ContractViolation-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102553_| + (define |[1]#_g102827_| (##structure gx#syntax-quote::t 'ContractViolation-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102555_| + (define |[1]#_g102829_| (##structure gx#syntax-quote::t '&ContractViolation-message #f (gx#current-expander-context) '())) - (define |[1]#_g102556_| + (define |[1]#_g102830_| (##structure gx#syntax-quote::t '&ContractViolation-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g102557_| + (define |[1]#_g102831_| (##structure gx#syntax-quote::t '&ContractViolation-where #f (gx#current-expander-context) '())) - (define |[1]#_g102558_| + (define |[1]#_g102832_| (##structure gx#syntax-quote::t '&ContractViolation-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g102560_| + (define |[1]#_g102834_| (##structure gx#syntax-quote::t '&ContractViolation-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102561_| + (define |[1]#_g102835_| (##structure gx#syntax-quote::t '&ContractViolation-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102562_| + (define |[1]#_g102836_| (##structure gx#syntax-quote::t '&ContractViolation-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102563_| + (define |[1]#_g102837_| (##structure gx#syntax-quote::t '&ContractViolation-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102566_| + (define |[1]#_g102840_| (##structure gx#syntax-quote::t 'RuntimeException::t #f (gx#current-expander-context) '())) - (define |[1]#_g102568_| + (define |[1]#_g102842_| (##structure gx#syntax-quote::t 'make-RuntimeException #f (gx#current-expander-context) '())) - (define |[1]#_g102570_| + (define |[1]#_g102844_| (##structure gx#syntax-quote::t 'RuntimeException? #f (gx#current-expander-context) '())) - (define |[1]#_g102572_| + (define |[1]#_g102846_| (##structure gx#syntax-quote::t 'RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g102573_| + (define |[1]#_g102847_| (##structure gx#syntax-quote::t 'RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g102575_| + (define |[1]#_g102849_| (##structure gx#syntax-quote::t 'RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102576_| + (define |[1]#_g102850_| (##structure gx#syntax-quote::t 'RuntimeException-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102578_| + (define |[1]#_g102852_| (##structure gx#syntax-quote::t '&RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g102579_| + (define |[1]#_g102853_| (##structure gx#syntax-quote::t '&RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g102581_| + (define |[1]#_g102855_| (##structure gx#syntax-quote::t '&RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g102582_| + (define |[1]#_g102856_| (##structure gx#syntax-quote::t '&RuntimeException-continuation-set! @@ -436,7 +436,7 @@ '())) (begin (define |[:0:]#Exception| - (let ((__obj102451 + (let ((__obj102725 (let () (declare (not safe)) (##structure @@ -465,68 +465,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj102451 + __obj102725 'gerbil/runtime/error#Exception::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102451 'Exception '2 '#f '#f)) + (##unchecked-structure-set! __obj102725 'Exception '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102451 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj102725 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102451 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj102725 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102451 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj102725 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102451 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj102725 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102451 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj102725 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102451 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj102725 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102451 '#f '11 '#f '#f)) - (let ((__tmp102487 |[1]#_g102488_|)) + (##unchecked-structure-set! __obj102725 '#f '11 '#f '#f)) + (let ((__tmp102761 |[1]#_g102762_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102451 __tmp102487 '12 '#f '#f)) - (let ((__tmp102489 |[1]#_g102490_|)) + (##unchecked-structure-set! __obj102725 __tmp102761 '12 '#f '#f)) + (let ((__tmp102763 |[1]#_g102764_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102451 __tmp102489 '13 '#f '#f)) - (let ((__tmp102491 |[1]#_g102492_|)) + (##unchecked-structure-set! __obj102725 __tmp102763 '13 '#f '#f)) + (let ((__tmp102765 |[1]#_g102766_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102451 __tmp102491 '14 '#f '#f)) + (##unchecked-structure-set! __obj102725 __tmp102765 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102451 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj102725 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102451 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj102725 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102451 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj102725 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102451 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj102725 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102451 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj102725 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102451 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj102725 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102451 '() '20 '#f '#f)) - __obj102451)) + (##unchecked-structure-set! __obj102725 '() '20 '#f '#f)) + __obj102725)) (define |[:0:]#StackTrace| - (let ((__obj102452 + (let ((__obj102726 (let () (declare (not safe)) (##structure @@ -555,68 +555,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj102452 + __obj102726 'gerbil/runtime/error#StackTrace::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102452 'StackTrace '2 '#f '#f)) + (##unchecked-structure-set! __obj102726 'StackTrace '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102452 '(continuation) '4 '#f '#f)) + (##unchecked-structure-set! __obj102726 '(continuation) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102452 '(continuation) '6 '#f '#f)) + (##unchecked-structure-set! __obj102726 '(continuation) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102452 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj102726 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102452 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj102726 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102452 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj102726 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102452 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj102726 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102452 '#f '11 '#f '#f)) - (let ((__tmp102493 |[1]#_g102494_|)) + (##unchecked-structure-set! __obj102726 '#f '11 '#f '#f)) + (let ((__tmp102767 |[1]#_g102768_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102452 __tmp102493 '12 '#f '#f)) - (let ((__tmp102495 |[1]#_g102496_|)) + (##unchecked-structure-set! __obj102726 __tmp102767 '12 '#f '#f)) + (let ((__tmp102769 |[1]#_g102770_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102452 __tmp102495 '13 '#f '#f)) - (let ((__tmp102497 |[1]#_g102498_|)) + (##unchecked-structure-set! __obj102726 __tmp102769 '13 '#f '#f)) + (let ((__tmp102771 |[1]#_g102772_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102452 __tmp102497 '14 '#f '#f)) - (let ((__tmp102499 (cons (cons 'continuation |[1]#_g102500_|) '()))) + (##unchecked-structure-set! __obj102726 __tmp102771 '14 '#f '#f)) + (let ((__tmp102773 (cons (cons 'continuation |[1]#_g102774_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj102452 __tmp102499 '15 '#f '#f)) - (let ((__tmp102501 (cons (cons 'continuation |[1]#_g102502_|) '()))) + (##unchecked-structure-set! __obj102726 __tmp102773 '15 '#f '#f)) + (let ((__tmp102775 (cons (cons 'continuation |[1]#_g102776_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj102452 __tmp102501 '16 '#f '#f)) - (let ((__tmp102503 (cons (cons 'continuation |[1]#_g102504_|) '()))) + (##unchecked-structure-set! __obj102726 __tmp102775 '16 '#f '#f)) + (let ((__tmp102777 (cons (cons 'continuation |[1]#_g102778_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj102452 __tmp102503 '17 '#f '#f)) - (let ((__tmp102505 (cons (cons 'continuation |[1]#_g102506_|) '()))) + (##unchecked-structure-set! __obj102726 __tmp102777 '17 '#f '#f)) + (let ((__tmp102779 (cons (cons 'continuation |[1]#_g102780_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj102452 __tmp102505 '18 '#f '#f)) + (##unchecked-structure-set! __obj102726 __tmp102779 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102452 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj102726 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102452 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj102726 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102452 '() '20 '#f '#f)) - __obj102452)) + (##unchecked-structure-set! __obj102726 '() '20 '#f '#f)) + __obj102726)) (define |[:0:]#Error| - (let ((__obj102453 + (let ((__obj102727 (let () (declare (not safe)) (##structure @@ -645,18 +645,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj102453 + __obj102727 'gerbil/runtime/error#Error::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102453 'Error '2 '#f '#f)) + (##unchecked-structure-set! __obj102727 'Error '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj102453 + __obj102727 '(message irritants where) '4 '#f @@ -664,79 +664,79 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj102453 + __obj102727 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp102507 (cons |[1]#_g102508_| (cons |[1]#_g102509_| '())))) + (let ((__tmp102781 (cons |[1]#_g102782_| (cons |[1]#_g102783_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj102453 __tmp102507 '3 '#f '#f)) + (##unchecked-structure-set! __obj102727 __tmp102781 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102453 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj102727 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102453 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj102727 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102453 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj102727 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102453 ':init! '11 '#f '#f)) - (let ((__tmp102510 |[1]#_g102511_|)) + (##unchecked-structure-set! __obj102727 ':init! '11 '#f '#f)) + (let ((__tmp102784 |[1]#_g102785_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102453 __tmp102510 '12 '#f '#f)) - (let ((__tmp102512 |[1]#_g102513_|)) + (##unchecked-structure-set! __obj102727 __tmp102784 '12 '#f '#f)) + (let ((__tmp102786 |[1]#_g102787_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102453 __tmp102512 '13 '#f '#f)) - (let ((__tmp102514 |[1]#_g102515_|)) + (##unchecked-structure-set! __obj102727 __tmp102786 '13 '#f '#f)) + (let ((__tmp102788 |[1]#_g102789_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102453 __tmp102514 '14 '#f '#f)) - (let ((__tmp102516 - (cons (cons 'message |[1]#_g102517_|) - (cons (cons 'irritants |[1]#_g102518_|) - (cons (cons 'where |[1]#_g102519_|) - (cons (cons 'continuation |[1]#_g102520_|) + (##unchecked-structure-set! __obj102727 __tmp102788 '14 '#f '#f)) + (let ((__tmp102790 + (cons (cons 'message |[1]#_g102791_|) + (cons (cons 'irritants |[1]#_g102792_|) + (cons (cons 'where |[1]#_g102793_|) + (cons (cons 'continuation |[1]#_g102794_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj102453 __tmp102516 '15 '#f '#f)) - (let ((__tmp102521 - (cons (cons 'message |[1]#_g102522_|) - (cons (cons 'irritants |[1]#_g102523_|) - (cons (cons 'where |[1]#_g102524_|) - (cons (cons 'continuation |[1]#_g102525_|) + (##unchecked-structure-set! __obj102727 __tmp102790 '15 '#f '#f)) + (let ((__tmp102795 + (cons (cons 'message |[1]#_g102796_|) + (cons (cons 'irritants |[1]#_g102797_|) + (cons (cons 'where |[1]#_g102798_|) + (cons (cons 'continuation |[1]#_g102799_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj102453 __tmp102521 '16 '#f '#f)) - (let ((__tmp102526 - (cons (cons 'message |[1]#_g102527_|) - (cons (cons 'irritants |[1]#_g102528_|) - (cons (cons 'where |[1]#_g102529_|) - (cons (cons 'continuation |[1]#_g102530_|) + (##unchecked-structure-set! __obj102727 __tmp102795 '16 '#f '#f)) + (let ((__tmp102800 + (cons (cons 'message |[1]#_g102801_|) + (cons (cons 'irritants |[1]#_g102802_|) + (cons (cons 'where |[1]#_g102803_|) + (cons (cons 'continuation |[1]#_g102804_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj102453 __tmp102526 '17 '#f '#f)) - (let ((__tmp102531 - (cons (cons 'message |[1]#_g102532_|) - (cons (cons 'irritants |[1]#_g102533_|) - (cons (cons 'where |[1]#_g102534_|) - (cons (cons 'continuation |[1]#_g102535_|) + (##unchecked-structure-set! __obj102727 __tmp102800 '17 '#f '#f)) + (let ((__tmp102805 + (cons (cons 'message |[1]#_g102806_|) + (cons (cons 'irritants |[1]#_g102807_|) + (cons (cons 'where |[1]#_g102808_|) + (cons (cons 'continuation |[1]#_g102809_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj102453 __tmp102531 '18 '#f '#f)) + (##unchecked-structure-set! __obj102727 __tmp102805 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102453 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj102727 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102453 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj102727 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102453 '() '20 '#f '#f)) - __obj102453)) + (##unchecked-structure-set! __obj102727 '() '20 '#f '#f)) + __obj102727)) (define |[:0:]#ContractViolation| - (let ((__obj102454 + (let ((__obj102728 (let () (declare (not safe)) (##structure @@ -765,7 +765,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj102454 + __obj102728 'gerbil/runtime/error#ContractViolation::t '1 '#f @@ -773,90 +773,90 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj102454 + __obj102728 'ContractViolation '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102454 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj102728 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj102454 + __obj102728 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp102536 (cons |[1]#_g102537_| '()))) + (let ((__tmp102810 (cons |[1]#_g102811_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj102454 __tmp102536 '3 '#f '#f)) + (##unchecked-structure-set! __obj102728 __tmp102810 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102454 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj102728 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102454 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj102728 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102454 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj102728 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102454 '#f '11 '#f '#f)) - (let ((__tmp102538 |[1]#_g102539_|)) + (##unchecked-structure-set! __obj102728 '#f '11 '#f '#f)) + (let ((__tmp102812 |[1]#_g102813_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102454 __tmp102538 '12 '#f '#f)) - (let ((__tmp102540 |[1]#_g102541_|)) + (##unchecked-structure-set! __obj102728 __tmp102812 '12 '#f '#f)) + (let ((__tmp102814 |[1]#_g102815_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102454 __tmp102540 '13 '#f '#f)) - (let ((__tmp102542 |[1]#_g102543_|)) + (##unchecked-structure-set! __obj102728 __tmp102814 '13 '#f '#f)) + (let ((__tmp102816 |[1]#_g102817_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102454 __tmp102542 '14 '#f '#f)) - (let ((__tmp102544 - (cons (cons 'message |[1]#_g102545_|) - (cons (cons 'irritants |[1]#_g102546_|) - (cons (cons 'where |[1]#_g102547_|) - (cons (cons 'continuation |[1]#_g102548_|) + (##unchecked-structure-set! __obj102728 __tmp102816 '14 '#f '#f)) + (let ((__tmp102818 + (cons (cons 'message |[1]#_g102819_|) + (cons (cons 'irritants |[1]#_g102820_|) + (cons (cons 'where |[1]#_g102821_|) + (cons (cons 'continuation |[1]#_g102822_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj102454 __tmp102544 '15 '#f '#f)) - (let ((__tmp102549 - (cons (cons 'message |[1]#_g102550_|) - (cons (cons 'irritants |[1]#_g102551_|) - (cons (cons 'where |[1]#_g102552_|) - (cons (cons 'continuation |[1]#_g102553_|) + (##unchecked-structure-set! __obj102728 __tmp102818 '15 '#f '#f)) + (let ((__tmp102823 + (cons (cons 'message |[1]#_g102824_|) + (cons (cons 'irritants |[1]#_g102825_|) + (cons (cons 'where |[1]#_g102826_|) + (cons (cons 'continuation |[1]#_g102827_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj102454 __tmp102549 '16 '#f '#f)) - (let ((__tmp102554 - (cons (cons 'message |[1]#_g102555_|) - (cons (cons 'irritants |[1]#_g102556_|) - (cons (cons 'where |[1]#_g102557_|) - (cons (cons 'continuation |[1]#_g102558_|) + (##unchecked-structure-set! __obj102728 __tmp102823 '16 '#f '#f)) + (let ((__tmp102828 + (cons (cons 'message |[1]#_g102829_|) + (cons (cons 'irritants |[1]#_g102830_|) + (cons (cons 'where |[1]#_g102831_|) + (cons (cons 'continuation |[1]#_g102832_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj102454 __tmp102554 '17 '#f '#f)) - (let ((__tmp102559 - (cons (cons 'message |[1]#_g102560_|) - (cons (cons 'irritants |[1]#_g102561_|) - (cons (cons 'where |[1]#_g102562_|) - (cons (cons 'continuation |[1]#_g102563_|) + (##unchecked-structure-set! __obj102728 __tmp102828 '17 '#f '#f)) + (let ((__tmp102833 + (cons (cons 'message |[1]#_g102834_|) + (cons (cons 'irritants |[1]#_g102835_|) + (cons (cons 'where |[1]#_g102836_|) + (cons (cons 'continuation |[1]#_g102837_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj102454 __tmp102559 '18 '#f '#f)) + (##unchecked-structure-set! __obj102728 __tmp102833 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102454 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj102728 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102454 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj102728 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102454 '() '20 '#f '#f)) - __obj102454)) + (##unchecked-structure-set! __obj102728 '() '20 '#f '#f)) + __obj102728)) (define |[:0:]#RuntimeException| - (let ((__obj102455 + (let ((__obj102729 (let () (declare (not safe)) (##structure @@ -885,7 +885,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj102455 + __obj102729 'gerbil/runtime/error#RuntimeException::t '1 '#f @@ -893,277 +893,277 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj102455 + __obj102729 'RuntimeException '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102455 '(exception) '4 '#f '#f)) + (##unchecked-structure-set! __obj102729 '(exception) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj102455 + __obj102729 '(continuation exception) '6 '#f '#f)) - (let ((__tmp102564 (cons |[1]#_g102508_| (cons |[1]#_g102509_| '())))) + (let ((__tmp102838 (cons |[1]#_g102782_| (cons |[1]#_g102783_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj102455 __tmp102564 '3 '#f '#f)) + (##unchecked-structure-set! __obj102729 __tmp102838 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102455 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj102729 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102455 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj102729 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102455 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj102729 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102455 '#f '11 '#f '#f)) - (let ((__tmp102565 |[1]#_g102566_|)) + (##unchecked-structure-set! __obj102729 '#f '11 '#f '#f)) + (let ((__tmp102839 |[1]#_g102840_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102455 __tmp102565 '12 '#f '#f)) - (let ((__tmp102567 |[1]#_g102568_|)) + (##unchecked-structure-set! __obj102729 __tmp102839 '12 '#f '#f)) + (let ((__tmp102841 |[1]#_g102842_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102455 __tmp102567 '13 '#f '#f)) - (let ((__tmp102569 |[1]#_g102570_|)) + (##unchecked-structure-set! __obj102729 __tmp102841 '13 '#f '#f)) + (let ((__tmp102843 |[1]#_g102844_|)) (declare (not safe)) - (##unchecked-structure-set! __obj102455 __tmp102569 '14 '#f '#f)) - (let ((__tmp102571 - (cons (cons 'exception |[1]#_g102572_|) - (cons (cons 'continuation |[1]#_g102573_|) '())))) + (##unchecked-structure-set! __obj102729 __tmp102843 '14 '#f '#f)) + (let ((__tmp102845 + (cons (cons 'exception |[1]#_g102846_|) + (cons (cons 'continuation |[1]#_g102847_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj102455 __tmp102571 '15 '#f '#f)) - (let ((__tmp102574 - (cons (cons 'exception |[1]#_g102575_|) - (cons (cons 'continuation |[1]#_g102576_|) '())))) + (##unchecked-structure-set! __obj102729 __tmp102845 '15 '#f '#f)) + (let ((__tmp102848 + (cons (cons 'exception |[1]#_g102849_|) + (cons (cons 'continuation |[1]#_g102850_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj102455 __tmp102574 '16 '#f '#f)) - (let ((__tmp102577 - (cons (cons 'exception |[1]#_g102578_|) - (cons (cons 'continuation |[1]#_g102579_|) '())))) + (##unchecked-structure-set! __obj102729 __tmp102848 '16 '#f '#f)) + (let ((__tmp102851 + (cons (cons 'exception |[1]#_g102852_|) + (cons (cons 'continuation |[1]#_g102853_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj102455 __tmp102577 '17 '#f '#f)) - (let ((__tmp102580 - (cons (cons 'exception |[1]#_g102581_|) - (cons (cons 'continuation |[1]#_g102582_|) '())))) + (##unchecked-structure-set! __obj102729 __tmp102851 '17 '#f '#f)) + (let ((__tmp102854 + (cons (cons 'exception |[1]#_g102855_|) + (cons (cons 'continuation |[1]#_g102856_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj102455 __tmp102580 '18 '#f '#f)) + (##unchecked-structure-set! __obj102729 __tmp102854 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102455 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj102729 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102455 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj102729 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj102455 '() '20 '#f '#f)) - __obj102455)) + (##unchecked-structure-set! __obj102729 '() '20 '#f '#f)) + __obj102729)) (define |[:0:]#defruntime-exception| - (lambda (_%stx100593%_) - (let* ((_%g100596100623%_ - (lambda (_%g100597100619%_) + (lambda (_%stx100867%_) + (let* ((_%g100870100897%_ + (lambda (_%g100871100893%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g100597100619%_))) - (_%g100595100859%_ - (lambda (_%g100597100627%_) - (if (gx#stx-pair? _%g100597100627%_) - (let ((_%e100600100630%_ - (gx#syntax-e _%g100597100627%_))) - (let ((_%hd100601100634%_ + _%g100871100893%_))) + (_%g100869101133%_ + (lambda (_%g100871100901%_) + (if (gx#stx-pair? _%g100871100901%_) + (let ((_%e100874100904%_ + (gx#syntax-e _%g100871100901%_))) + (let ((_%hd100875100908%_ (let () (declare (not safe)) - (##car _%e100600100630%_))) - (_%tl100602100637%_ + (##car _%e100874100904%_))) + (_%tl100876100911%_ (let () (declare (not safe)) - (##cdr _%e100600100630%_)))) - (if (gx#stx-pair? _%tl100602100637%_) - (let ((_%e100603100640%_ - (gx#syntax-e _%tl100602100637%_))) - (let ((_%hd100604100644%_ + (##cdr _%e100874100904%_)))) + (if (gx#stx-pair? _%tl100876100911%_) + (let ((_%e100877100914%_ + (gx#syntax-e _%tl100876100911%_))) + (let ((_%hd100878100918%_ (let () (declare (not safe)) - (##car _%e100603100640%_))) - (_%tl100605100647%_ + (##car _%e100877100914%_))) + (_%tl100879100921%_ (let () (declare (not safe)) - (##cdr _%e100603100640%_)))) - (if (gx#stx-pair? _%hd100604100644%_) - (let ((_%e100606100650%_ - (gx#syntax-e _%hd100604100644%_))) - (let ((_%hd100607100654%_ + (##cdr _%e100877100914%_)))) + (if (gx#stx-pair? _%hd100878100918%_) + (let ((_%e100880100924%_ + (gx#syntax-e _%hd100878100918%_))) + (let ((_%hd100881100928%_ (let () (declare (not safe)) - (##car _%e100606100650%_))) - (_%tl100608100657%_ + (##car _%e100880100924%_))) + (_%tl100882100931%_ (let () (declare (not safe)) - (##cdr _%e100606100650%_)))) + (##cdr _%e100880100924%_)))) (if (gx#stx-pair/null? - _%tl100608100657%_) - (let ((_g102583_ + _%tl100882100931%_) + (let ((_g102857_ (gx#syntax-split-splice - _%tl100608100657%_ + _%tl100882100931%_ '0))) (begin - (let ((_g102584_ + (let ((_g102858_ (let () (declare (not safe)) (if (##values? - _g102583_) + _g102857_) (##vector-length - _g102583_) + _g102857_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g102584_ 2))) - (error "Context expects 2 values" _g102584_))) + (##fx= _g102858_ 2))) + (error "Context expects 2 values" _g102858_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target100609100660%_ + (let ((_%target100883100934%_ (let () (declare (not safe)) (##vector-ref - _g102583_ + _g102857_ 0))) - (_%tl100611100663%_ + (_%tl100885100937%_ (let () (declare (not safe)) (##vector-ref - _g102583_ + _g102857_ 1)))) (if (gx#stx-null? - _%tl100611100663%_) - (letrec ((_%loop100612100666%_ + _%tl100885100937%_) + (letrec ((_%loop100886100940%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd100610100670%_ _%getf100616100673%_) - (if (gx#stx-pair? _%hd100610100670%_) - (let ((_%e100613100676%_ - (gx#syntax-e _%hd100610100670%_))) - (let ((_%lp-hd100614100680%_ + (lambda (_%hd100884100944%_ _%getf100890100947%_) + (if (gx#stx-pair? _%hd100884100944%_) + (let ((_%e100887100950%_ + (gx#syntax-e _%hd100884100944%_))) + (let ((_%lp-hd100888100954%_ (let () (declare (not safe)) - (##car _%e100613100676%_))) - (_%lp-tl100615100683%_ + (##car _%e100887100950%_))) + (_%lp-tl100889100957%_ (let () (declare (not safe)) - (##cdr _%e100613100676%_)))) - (_%loop100612100666%_ - _%lp-tl100615100683%_ - (cons _%lp-hd100614100680%_ - _%getf100616100673%_)))) - (let ((_%getf100617100686%_ - (reverse _%getf100616100673%_))) - (if (gx#stx-null? _%tl100605100647%_) - ((lambda (_%L100690%_ _%L100692%_) - (let* ((_%g100713100737%_ - (lambda (_%g100714100733%_) + (##cdr _%e100887100950%_)))) + (_%loop100886100940%_ + _%lp-tl100889100957%_ + (cons _%lp-hd100888100954%_ + _%getf100890100947%_)))) + (let ((_%getf100891100960%_ + (reverse _%getf100890100947%_))) + (if (gx#stx-null? _%tl100879100921%_) + ((lambda (_%L100964%_ _%L100966%_) + (let* ((_%g100987101011%_ + (lambda (_%g100988101007%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g100714100733%_))) - (_%g100712100844%_ - (lambda (_%g100714100741%_) + _%g100988101007%_))) + (_%g100986101118%_ + (lambda (_%g100988101015%_) (if (gx#stx-pair? - _%g100714100741%_) - (let ((_%e100717100744%_ + _%g100988101015%_) + (let ((_%e100991101018%_ (gx#syntax-e - _%g100714100741%_))) - (let ((_%hd100718100748%_ + _%g100988101015%_))) + (let ((_%hd100992101022%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e100717100744%_))) - (_%tl100719100751%_ + (##car _%e100991101018%_))) + (_%tl100993101025%_ (let () (declare (not safe)) - (##cdr _%e100717100744%_)))) - (if (gx#stx-pair? _%tl100719100751%_) - (let ((_%e100720100754%_ - (gx#syntax-e _%tl100719100751%_))) - (let ((_%hd100721100758%_ + (##cdr _%e100991101018%_)))) + (if (gx#stx-pair? _%tl100993101025%_) + (let ((_%e100994101028%_ + (gx#syntax-e _%tl100993101025%_))) + (let ((_%hd100995101032%_ (let () (declare (not safe)) - (##car _%e100720100754%_))) - (_%tl100722100761%_ + (##car _%e100994101028%_))) + (_%tl100996101035%_ (let () (declare (not safe)) - (##cdr _%e100720100754%_)))) - (if (gx#stx-pair/null? _%hd100721100758%_) - (let ((_g102585_ + (##cdr _%e100994101028%_)))) + (if (gx#stx-pair/null? _%hd100995101032%_) + (let ((_g102859_ (gx#syntax-split-splice - _%hd100721100758%_ + _%hd100995101032%_ '0))) (begin - (let ((_g102586_ + (let ((_g102860_ (let () (declare (not safe)) - (if (##values? _g102585_) - (##vector-length _g102585_) + (if (##values? _g102859_) + (##vector-length _g102859_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g102586_ 2))) + (##fx= _g102860_ 2))) (error "Context expects 2 values" - _g102586_))) - (let ((_%target100723100764%_ + _g102860_))) + (let ((_%target100997101038%_ (let () (declare (not safe)) - (##vector-ref _g102585_ 0))) - (_%tl100725100767%_ + (##vector-ref _g102859_ 0))) + (_%tl100999101041%_ (let () (declare (not safe)) - (##vector-ref _g102585_ 1)))) - (if (gx#stx-null? _%tl100725100767%_) - (letrec ((_%loop100726100770%_ - (lambda (_%hd100724100774%_ - _%macro-getf100730100777%_) + (##vector-ref _g102859_ 1)))) + (if (gx#stx-null? _%tl100999101041%_) + (letrec ((_%loop101000101044%_ + (lambda (_%hd100998101048%_ + _%macro-getf101004101051%_) (if (gx#stx-pair? - _%hd100724100774%_) - (let ((_%e100727100780%_ + _%hd100998101048%_) + (let ((_%e101001101054%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd100724100774%_))) - (let ((_%lp-hd100728100784%_ + _%hd100998101048%_))) + (let ((_%lp-hd101002101058%_ (let () (declare (not safe)) - (##car _%e100727100780%_))) - (_%lp-tl100729100787%_ + (##car _%e101001101054%_))) + (_%lp-tl101003101061%_ (let () (declare (not safe)) - (##cdr _%e100727100780%_)))) - (_%loop100726100770%_ - _%lp-tl100729100787%_ - (cons _%lp-hd100728100784%_ - _%macro-getf100730100777%_)))) - (let ((_%macro-getf100731100790%_ - (reverse _%macro-getf100730100777%_))) - (if (gx#stx-null? _%tl100722100761%_) - ((lambda (_%L100794%_ _%L100796%_) + (##cdr _%e101001101054%_)))) + (_%loop101000101044%_ + _%lp-tl101003101061%_ + (cons _%lp-hd101002101058%_ + _%macro-getf101004101051%_)))) + (let ((_%macro-getf101005101064%_ + (reverse _%macro-getf101004101051%_))) + (if (gx#stx-null? _%tl100996101035%_) + ((lambda (_%L101068%_ _%L101070%_) (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f 'extern) - (cons _%L100796%_ - (let ((__tmp102587 - (lambda (_%g100821100824%_ + (cons _%L101070%_ + (let ((__tmp102861 + (lambda (_%g101095101098%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g100822100827%_) - (cons _%g100821100824%_ _%g100822100827%_)))) + _%g101096101101%_) + (cons _%g101095101098%_ _%g101096101101%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp102587 + __tmp102861 '() - _%L100794%_)))) + _%L101068%_)))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L100692%_ + (cons (cons _%L100966%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1185,7 +1185,7 @@ (cons (gx#datum->syntax '#f 'exn) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L100796%_ + (cons (cons _%L101070%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1193,7 +1193,7 @@ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L100796%_ + (cons (cons _%L101070%_ (cons (gx#datum->syntax '#f 'exn) @@ -1203,23 +1203,23 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin (gx#syntax-check-splice-targets - _%L100690%_ - _%L100794%_ - _%L100690%_ - _%L100794%_ - _%L100690%_) - (let ((__tmp102588 - (lambda (_%g100815100830%_ - _%g100816100833%_ - _%g100817100835%_ - _%g100818100837%_ - _%g100819100839%_ - _%g100820100841%_) + _%L100964%_ + _%L101068%_ + _%L100964%_ + _%L101068%_ + _%L100964%_) + (let ((__tmp102862 + (lambda (_%g101089101104%_ + _%g101090101107%_ + _%g101091101109%_ + _%g101092101111%_ + _%g101093101113%_ + _%g101094101115%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons (cons _%g100815100830%_ + (cons (cons _%g101089101104%_ (cons (gx#datum->syntax '#f 'exn) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax @@ -1245,12 +1245,12 @@ '())) '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L100796%_ + (cons (cons _%L101070%_ (cons (gx#datum->syntax '#f 'e) '())) - (cons (cons _%g100816100833%_ + (cons (cons _%g101090101107%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1263,12 +1263,12 @@ 'error) (cons '"not an instance" (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L100692%_ '())) + (cons _%L100966%_ '())) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g100815100830%_ + (cons _%g101089101104%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (gx#datum->syntax '#f 'e) '()))) @@ -1278,10 +1278,10 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L100796%_ + (cons (cons _%L101070%_ (cons (gx#datum->syntax '#f 'exn) '())) - (cons (cons _%g100816100833%_ + (cons (cons _%g101090101107%_ (cons (gx#datum->syntax '#f 'exn) @@ -1294,10 +1294,10 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L100692%_ '())) + (cons _%L100966%_ '())) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g100815100830%_ '())) + (cons _%g101089101104%_ '())) (cons (gx#datum->syntax '#f 'exn) '()))) '())))) @@ -1306,148 +1306,148 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%g100820100841%_)))) + _%g101094101115%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr* - __tmp102588 + __tmp102862 '() - _%L100690%_ - _%L100794%_ - _%L100690%_ - _%L100794%_ - _%L100690%_))))))) - _%macro-getf100731100790%_ - _%hd100718100748%_) - (_%g100713100737%_ _%g100714100741%_))))))) + _%L100964%_ + _%L101068%_ + _%L100964%_ + _%L101068%_ + _%L100964%_))))))) + _%macro-getf101005101064%_ + _%hd100992101022%_) + (_%g100987101011%_ _%g100988101015%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop100726100770%_ - _%target100723100764%_ + (_%loop101000101044%_ + _%target100997101038%_ '())) - (_%g100713100737%_ - _%g100714100741%_))))) - (_%g100713100737%_ _%g100714100741%_)))) - (_%g100713100737%_ _%g100714100741%_)))) - (_%g100713100737%_ _%g100714100741%_))))) + (_%g100987101011%_ + _%g100988101015%_))))) + (_%g100987101011%_ _%g100988101015%_)))) + (_%g100987101011%_ _%g100988101015%_)))) + (_%g100987101011%_ _%g100988101015%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g100712100844%_ + (_%g100986101118%_ (list (gx#stx-identifier - _%L100692%_ + _%L100966%_ '"macro-" - _%L100692%_) - (map (lambda (_%f100848%_) + _%L100966%_) + (map (lambda (_%f101122%_) (gx#stx-identifier - _%f100848%_ + _%f101122%_ '"macro-" - _%f100848%_)) - (let ((__tmp102589 - (lambda (_%g100850100853%_ + _%f101122%_)) + (let ((__tmp102863 + (lambda (_%g101124101127%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g100851100856%_) - (cons _%g100850100853%_ _%g100851100856%_)))) + _%g101125101130%_) + (cons _%g101124101127%_ _%g101125101130%_)))) (declare (not safe)) - (__foldr1 __tmp102589 '() _%L100690%_))))))) + (__foldr1 __tmp102863 '() _%L100964%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%getf100617100686%_ - _%hd100607100654%_) - (_%g100596100623%_ - _%g100597100627%_))))))) - (_%loop100612100666%_ _%target100609100660%_ '())) - (_%g100596100623%_ _%g100597100627%_))))) + _%getf100891100960%_ + _%hd100881100928%_) + (_%g100870100897%_ + _%g100871100901%_))))))) + (_%loop100886100940%_ _%target100883100934%_ '())) + (_%g100870100897%_ _%g100871100901%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g100596100623%_ - _%g100597100627%_)))) - (_%g100596100623%_ _%g100597100627%_)))) - (_%g100596100623%_ _%g100597100627%_)))) - (_%g100596100623%_ _%g100597100627%_))))) - (_%g100595100859%_ _%stx100593%_)))) + (_%g100870100897%_ + _%g100871100901%_)))) + (_%g100870100897%_ _%g100871100901%_)))) + (_%g100870100897%_ _%g100871100901%_)))) + (_%g100870100897%_ _%g100871100901%_))))) + (_%g100869101133%_ _%stx100867%_)))) (define |[:0:]#defruntime-exceptions| - (lambda (_%$stx100865%_) - (let* ((_%g100869100889%_ - (lambda (_%g100870100885%_) + (lambda (_%$stx101139%_) + (let* ((_%g101143101163%_ + (lambda (_%g101144101159%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g100870100885%_))) - (_%g100868100960%_ - (lambda (_%g100870100893%_) - (if (gx#stx-pair? _%g100870100893%_) - (let ((_%e100872100896%_ - (gx#syntax-e _%g100870100893%_))) - (let ((_%hd100873100900%_ + _%g101144101159%_))) + (_%g101142101234%_ + (lambda (_%g101144101167%_) + (if (gx#stx-pair? _%g101144101167%_) + (let ((_%e101146101170%_ + (gx#syntax-e _%g101144101167%_))) + (let ((_%hd101147101174%_ (let () (declare (not safe)) - (##car _%e100872100896%_))) - (_%tl100874100903%_ + (##car _%e101146101170%_))) + (_%tl101148101177%_ (let () (declare (not safe)) - (##cdr _%e100872100896%_)))) - (if (gx#stx-pair/null? _%tl100874100903%_) - (let ((_g102590_ + (##cdr _%e101146101170%_)))) + (if (gx#stx-pair/null? _%tl101148101177%_) + (let ((_g102864_ (gx#syntax-split-splice - _%tl100874100903%_ + _%tl101148101177%_ '0))) (begin - (let ((_g102591_ + (let ((_g102865_ (let () (declare (not safe)) - (if (##values? _g102590_) - (##vector-length _g102590_) + (if (##values? _g102864_) + (##vector-length _g102864_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g102591_ 2))) + (##fx= _g102865_ 2))) (error "Context expects 2 values" - _g102591_))) - (let ((_%target100875100906%_ + _g102865_))) + (let ((_%target101149101180%_ (let () (declare (not safe)) - (##vector-ref _g102590_ 0))) - (_%tl100877100909%_ + (##vector-ref _g102864_ 0))) + (_%tl101151101183%_ (let () (declare (not safe)) - (##vector-ref _g102590_ 1)))) - (if (gx#stx-null? _%tl100877100909%_) - (letrec ((_%loop100878100912%_ - (lambda (_%hd100876100916%_ - _%defexn100882100919%_) + (##vector-ref _g102864_ 1)))) + (if (gx#stx-null? _%tl101151101183%_) + (letrec ((_%loop101152101186%_ + (lambda (_%hd101150101190%_ + _%defexn101156101193%_) (if (gx#stx-pair? - _%hd100876100916%_) - (let ((_%e100879100922%_ + _%hd101150101190%_) + (let ((_%e101153101196%_ (gx#syntax-e - _%hd100876100916%_))) - (let ((_%lp-hd100880100926%_ + _%hd101150101190%_))) + (let ((_%lp-hd101154101200%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%e100879100922%_))) - (_%lp-tl100881100929%_ + (##car _%e101153101196%_))) + (_%lp-tl101155101203%_ (let () (declare (not safe)) - (##cdr _%e100879100922%_)))) - (_%loop100878100912%_ - _%lp-tl100881100929%_ - (cons _%lp-hd100880100926%_ _%defexn100882100919%_)))) - (let ((_%defexn100883100932%_ - (reverse _%defexn100882100919%_))) - ((lambda (_%L100936%_) + (##cdr _%e101153101196%_)))) + (_%loop101152101186%_ + _%lp-tl101155101203%_ + (cons _%lp-hd101154101200%_ _%defexn101156101193%_)))) + (let ((_%defexn101157101206%_ + (reverse _%defexn101156101193%_))) + ((lambda (_%L101210%_) (cons (gx#datum->syntax '#f 'begin) - (let ((__tmp102592 - (lambda (_%g100951100954%_ _%g100952100957%_) + (let ((__tmp102866 + (lambda (_%g101225101228%_ _%g101226101231%_) (cons (cons (gx#datum->syntax '#f 'defruntime-exception) - (cons _%g100951100954%_ '())) - _%g100952100957%_)))) + (cons _%g101225101228%_ '())) + _%g101226101231%_)))) (declare (not safe)) - (__foldr1 __tmp102592 '() _%L100936%_)))) - _%defexn100883100932%_)))))) + (__foldr1 __tmp102866 '() _%L101210%_)))) + _%defexn101157101206%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop100878100912%_ - _%target100875100906%_ + (_%loop101152101186%_ + _%target101149101180%_ '())) - (_%g100869100889%_ - _%g100870100893%_))))) - (_%g100869100889%_ _%g100870100893%_)))) - (_%g100869100889%_ _%g100870100893%_))))) - (_%g100868100960%_ _%$stx100865%_)))))) + (_%g101143101163%_ + _%g101144101167%_))))) + (_%g101143101163%_ _%g101144101167%_)))) + (_%g101143101163%_ _%g101144101167%_))))) + (_%g101142101234%_ _%$stx101139%_)))))) diff --git a/src/bootstrap/gerbil/runtime/eval~0.scm b/src/bootstrap/gerbil/runtime/eval~0.scm index 6e1f1c276..67039c62d 100644 --- a/src/bootstrap/gerbil/runtime/eval~0.scm +++ b/src/bootstrap/gerbil/runtime/eval~0.scm @@ -1,22 +1,22 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/eval::timestamp 1713044315) + (define gerbil/runtime/eval::timestamp 1713454410) (begin (define __syntax::t - (let ((__tmp113438 (list)) (__tmp113437 (cons (cons 'struct: '#t) '()))) + (let ((__tmp113712 (list)) (__tmp113711 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__syntax::t '__syntax - __tmp113438 + __tmp113712 '(e id) - __tmp113437 + __tmp113711 '#f))) (define __syntax? (let () (declare (not safe)) (__make-class-predicate __syntax::t))) (define make-__syntax - (lambda _%$args113242%_ - (apply make-instance __syntax::t _%$args113242%_))) + (lambda _%$args113516%_ + (apply make-instance __syntax::t _%$args113516%_))) (define __syntax-e (let () (declare (not safe)) @@ -48,21 +48,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator __syntax::t 'id))) (define __core-form::t - (let ((__tmp113440 (list __syntax::t)) - (__tmp113439 (cons (cons 'struct: '#t) '()))) + (let ((__tmp113714 (list __syntax::t)) + (__tmp113713 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__core-form::t '__core-form - __tmp113440 + __tmp113714 '() - __tmp113439 + __tmp113713 '#f))) (define __core-form? (let () (declare (not safe)) (__make-class-predicate __core-form::t))) (define make-__core-form - (lambda _%$args113239%_ - (apply make-instance __core-form::t _%$args113239%_))) + (lambda _%$args113513%_ + (apply make-instance __core-form::t _%$args113513%_))) (define __core-form-e (let () (declare (not safe)) @@ -96,23 +96,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator __core-form::t 'id))) (define __core-expression::t - (let ((__tmp113442 (list __core-form::t)) - (__tmp113441 (cons (cons 'struct: '#t) '()))) + (let ((__tmp113716 (list __core-form::t)) + (__tmp113715 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__core-expression::t '__core-expression - __tmp113442 + __tmp113716 '() - __tmp113441 + __tmp113715 '#f))) (define __core-expression? (let () (declare (not safe)) (__make-class-predicate __core-expression::t))) (define make-__core-expression - (lambda _%$args113236%_ - (apply make-instance __core-expression::t _%$args113236%_))) + (lambda _%$args113510%_ + (apply make-instance __core-expression::t _%$args113510%_))) (define __core-expression-e (let () (declare (not safe)) @@ -146,23 +146,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator __core-expression::t 'id))) (define __core-special-form::t - (let ((__tmp113444 (list __core-form::t)) - (__tmp113443 (cons (cons 'struct: '#t) '()))) + (let ((__tmp113718 (list __core-form::t)) + (__tmp113717 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__core-special-form::t '__core-special-form - __tmp113444 + __tmp113718 '() - __tmp113443 + __tmp113717 '#f))) (define __core-special-form? (let () (declare (not safe)) (__make-class-predicate __core-special-form::t))) (define make-__core-special-form - (lambda _%$args113233%_ - (apply make-instance __core-special-form::t _%$args113233%_))) + (lambda _%$args113507%_ + (apply make-instance __core-special-form::t _%$args113507%_))) (define __core-special-form-e (let () (declare (not safe)) @@ -200,407 +200,407 @@ (define __current-compiler (make-parameter '#f)) (define __current-path (make-parameter '())) (define __core-resolve - (lambda (_%id113231%_) - (let ((__tmp113445 - (let () (declare (not safe)) (__AST-e _%id113231%_)))) + (lambda (_%id113505%_) + (let ((__tmp113719 + (let () (declare (not safe)) (__AST-e _%id113505%_)))) (declare (not safe)) - (__hash-get __core __tmp113445)))) + (__hash-get __core __tmp113719)))) (define __core-bound-id?__% - (lambda (_%id113214%_ _%is?113215%_) - (let ((_%$e113217%_ (__core-resolve _%id113214%_))) - (if _%$e113217%_ (_%is?113215%_ _%$e113217%_) '#f)))) + (lambda (_%id113488%_ _%is?113489%_) + (let ((_%$e113491%_ (__core-resolve _%id113488%_))) + (if _%$e113491%_ (_%is?113489%_ _%$e113491%_) '#f)))) (define __core-bound-id?__0 - (lambda (_%id113224%_) - (let ((_%is?113226%_ true)) - (__core-bound-id?__% _%id113224%_ _%is?113226%_)))) + (lambda (_%id113498%_) + (let ((_%is?113500%_ true)) + (__core-bound-id?__% _%id113498%_ _%is?113500%_)))) (define __core-bound-id? - (lambda _g113447_ - (let ((_g113446_ (let () (declare (not safe)) (##length _g113447_)))) - (cond ((let () (declare (not safe)) (##fx= _g113446_ 1)) - (apply __core-bound-id?__0 _g113447_)) - ((let () (declare (not safe)) (##fx= _g113446_ 2)) - (apply __core-bound-id?__% _g113447_)) + (lambda _g113721_ + (let ((_g113720_ (let () (declare (not safe)) (##length _g113721_)))) + (cond ((let () (declare (not safe)) (##fx= _g113720_ 1)) + (apply __core-bound-id?__0 _g113721_)) + ((let () (declare (not safe)) (##fx= _g113720_ 2)) + (apply __core-bound-id?__% _g113721_)) (else (##raise-wrong-number-of-arguments-exception __core-bound-id? - _g113447_)))))) + _g113721_)))))) (define __core-bind-syntax!__% - (lambda (_%id113197%_ _%e113198%_ _%make113199%_) - (let ((__tmp113448 + (lambda (_%id113471%_ _%e113472%_ _%make113473%_) + (let ((__tmp113722 (if (let () (declare (not safe)) (##structure-instance-of? - _%e113198%_ + _%e113472%_ 'gerbil/runtime/eval#__syntax::t)) - _%e113198%_ - (_%make113199%_ _%e113198%_ _%id113197%_)))) + _%e113472%_ + (_%make113473%_ _%e113472%_ _%id113471%_)))) (declare (not safe)) - (__hash-put! __core _%id113197%_ __tmp113448)))) + (__hash-put! __core _%id113471%_ __tmp113722)))) (define __core-bind-syntax!__0 - (lambda (_%id113204%_ _%e113205%_) - (let ((_%make113207%_ make-__syntax)) - (__core-bind-syntax!__% _%id113204%_ _%e113205%_ _%make113207%_)))) + (lambda (_%id113478%_ _%e113479%_) + (let ((_%make113481%_ make-__syntax)) + (__core-bind-syntax!__% _%id113478%_ _%e113479%_ _%make113481%_)))) (define __core-bind-syntax! - (lambda _g113450_ - (let ((_g113449_ (let () (declare (not safe)) (##length _g113450_)))) - (cond ((let () (declare (not safe)) (##fx= _g113449_ 2)) - (apply __core-bind-syntax!__0 _g113450_)) - ((let () (declare (not safe)) (##fx= _g113449_ 3)) - (apply __core-bind-syntax!__% _g113450_)) + (lambda _g113724_ + (let ((_g113723_ (let () (declare (not safe)) (##length _g113724_)))) + (cond ((let () (declare (not safe)) (##fx= _g113723_ 2)) + (apply __core-bind-syntax!__0 _g113724_)) + ((let () (declare (not safe)) (##fx= _g113723_ 3)) + (apply __core-bind-syntax!__% _g113724_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-syntax! - _g113450_)))))) + _g113724_)))))) (define __SRC__% - (lambda (_%e113177%_ _%src-stx113178%_) - (if (or (pair? _%e113177%_) (symbol? _%e113177%_)) - (let ((__tmp113451 + (lambda (_%e113451%_ _%src-stx113452%_) + (if (or (pair? _%e113451%_) (symbol? _%e113451%_)) + (let ((__tmp113725 (if (let () (declare (not safe)) (##structure-instance-of? - _%src-stx113178%_ + _%src-stx113452%_ 'gerbil#AST::t)) (__locat (let () (declare (not safe)) - (__AST-source _%src-stx113178%_))) + (__AST-source _%src-stx113452%_))) '#f))) (declare (not safe)) - (##make-source _%e113177%_ __tmp113451)) + (##make-source _%e113451%_ __tmp113725)) (if (let () (declare (not safe)) - (##structure-instance-of? _%e113177%_ 'gerbil#AST::t)) - (let ((__tmp113453 + (##structure-instance-of? _%e113451%_ 'gerbil#AST::t)) + (let ((__tmp113727 (let () (declare (not safe)) - (##unchecked-structure-ref _%e113177%_ '1 '#f '#f))) - (__tmp113452 + (##unchecked-structure-ref _%e113451%_ '1 '#f '#f))) + (__tmp113726 (__locat (let () (declare (not safe)) - (__AST-source _%e113177%_))))) + (__AST-source _%e113451%_))))) (declare (not safe)) - (##make-source __tmp113453 __tmp113452)) + (##make-source __tmp113727 __tmp113726)) (let () (declare (not safe)) - (error '"BUG! Cannot sourcify object" _%e113177%_)))))) + (error '"BUG! Cannot sourcify object" _%e113451%_)))))) (define __SRC__0 - (lambda (_%e113189%_) - (let ((_%src-stx113191%_ '#f)) - (__SRC__% _%e113189%_ _%src-stx113191%_)))) + (lambda (_%e113463%_) + (let ((_%src-stx113465%_ '#f)) + (__SRC__% _%e113463%_ _%src-stx113465%_)))) (define __SRC - (lambda _g113455_ - (let ((_g113454_ (let () (declare (not safe)) (##length _g113455_)))) - (cond ((let () (declare (not safe)) (##fx= _g113454_ 1)) - (apply __SRC__0 _g113455_)) - ((let () (declare (not safe)) (##fx= _g113454_ 2)) - (apply __SRC__% _g113455_)) + (lambda _g113729_ + (let ((_g113728_ (let () (declare (not safe)) (##length _g113729_)))) + (cond ((let () (declare (not safe)) (##fx= _g113728_ 1)) + (apply __SRC__0 _g113729_)) + ((let () (declare (not safe)) (##fx= _g113728_ 2)) + (apply __SRC__% _g113729_)) (else (##raise-wrong-number-of-arguments-exception __SRC - _g113455_)))))) + _g113729_)))))) (define __locat - (lambda (_%loc113174%_) - (if (let () (declare (not safe)) (##locat? _%loc113174%_)) - _%loc113174%_ + (lambda (_%loc113448%_) + (if (let () (declare (not safe)) (##locat? _%loc113448%_)) + _%loc113448%_ '#f))) (define __check-values - (lambda (_%obj113169%_ _%k113170%_) - (let ((_%count113172%_ - (if (let () (declare (not safe)) (##values? _%obj113169%_)) + (lambda (_%obj113443%_ _%k113444%_) + (let ((_%count113446%_ + (if (let () (declare (not safe)) (##values? _%obj113443%_)) (let () (declare (not safe)) - (##vector-length _%obj113169%_)) + (##vector-length _%obj113443%_)) '1))) - (if (fx= _%count113172%_ _%k113170%_) + (if (fx= _%count113446%_ _%k113444%_) '#!void - (let ((__tmp113457 - (if (fx< _%count113172%_ _%k113170%_) + (let ((__tmp113731 + (if (fx< _%count113446%_ _%k113444%_) '"Too few values for context" '"Too many values for context")) - (__tmp113456 + (__tmp113730 (if (let () (declare (not safe)) - (##values? _%obj113169%_)) + (##values? _%obj113443%_)) (let () (declare (not safe)) - (##vector->list _%obj113169%_)) - _%obj113169%_))) + (##vector->list _%obj113443%_)) + _%obj113443%_))) (declare (not safe)) - (error __tmp113457 __tmp113456 _%k113170%_)))))) + (error __tmp113731 __tmp113730 _%k113444%_)))))) (define __compile - (lambda (_%stx113138%_) - (let* ((_%$e113140%_ _%stx113138%_) - (_%$E113142113148%_ + (lambda (_%stx113412%_) + (let* ((_%$e113414%_ _%stx113412%_) + (_%$E113416113422%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113140%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113140%_)) - (let* ((_%$tgt113143113151%_ - (let () (declare (not safe)) (__AST-e _%$e113140%_))) - (_%$hd113144113154%_ + _%$e113414%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e113414%_)) + (let* ((_%$tgt113417113425%_ + (let () (declare (not safe)) (__AST-e _%$e113414%_))) + (_%$hd113418113428%_ (let () (declare (not safe)) - (##car _%$tgt113143113151%_))) - (_%$tl113145113157%_ + (##car _%$tgt113417113425%_))) + (_%$tl113419113431%_ (let () (declare (not safe)) - (##cdr _%$tgt113143113151%_))) - (_%form113161%_ _%$hd113144113154%_) - (_%$e113163%_ (__core-resolve _%form113161%_))) - (if _%$e113163%_ - ((lambda (_%bind113166%_) - ((##structure-ref _%bind113166%_ '1 __syntax::t '#f) - _%stx113138%_)) - _%$e113163%_) + (##cdr _%$tgt113417113425%_))) + (_%form113435%_ _%$hd113418113428%_) + (_%$e113437%_ (__core-resolve _%form113435%_))) + (if _%$e113437%_ + ((lambda (_%bind113440%_) + ((##structure-ref _%bind113440%_ '1 __syntax::t '#f) + _%stx113412%_)) + _%$e113437%_) (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; cannot resolve form" - _%stx113138%_ - _%form113161%_)))) - (_%$E113142113148%_))))) + _%stx113412%_ + _%form113435%_)))) + (_%$E113416113422%_))))) (define __compile-error__% - (lambda (_%stx113125%_ _%detail113126%_) + (lambda (_%stx113399%_ _%detail113400%_) (let () (declare (not safe)) (__raise-syntax-error 'compile '"Bad syntax; cannot compile" - _%stx113125%_ - _%detail113126%_)))) + _%stx113399%_ + _%detail113400%_)))) (define __compile-error__0 - (lambda (_%stx113131%_) - (let ((_%detail113133%_ '#f)) - (__compile-error__% _%stx113131%_ _%detail113133%_)))) + (lambda (_%stx113405%_) + (let ((_%detail113407%_ '#f)) + (__compile-error__% _%stx113405%_ _%detail113407%_)))) (define __compile-error - (lambda _g113459_ - (let ((_g113458_ (let () (declare (not safe)) (##length _g113459_)))) - (cond ((let () (declare (not safe)) (##fx= _g113458_ 1)) - (apply __compile-error__0 _g113459_)) - ((let () (declare (not safe)) (##fx= _g113458_ 2)) - (apply __compile-error__% _g113459_)) + (lambda _g113733_ + (let ((_g113732_ (let () (declare (not safe)) (##length _g113733_)))) + (cond ((let () (declare (not safe)) (##fx= _g113732_ 1)) + (apply __compile-error__0 _g113733_)) + ((let () (declare (not safe)) (##fx= _g113732_ 2)) + (apply __compile-error__% _g113733_)) (else (##raise-wrong-number-of-arguments-exception __compile-error - _g113459_)))))) + _g113733_)))))) (define __compile-ignore% - (lambda (_%stx113122%_) (__SRC__% ''#!void _%stx113122%_))) + (lambda (_%stx113396%_) (__SRC__% ''#!void _%stx113396%_))) (define __compile-begin% - (lambda (_%stx113097%_) - (let* ((_%$e113099%_ _%stx113097%_) - (_%$E113101113107%_ + (lambda (_%stx113371%_) + (let* ((_%$e113373%_ _%stx113371%_) + (_%$E113375113381%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113099%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113099%_)) - (let* ((_%$tgt113102113110%_ - (let () (declare (not safe)) (__AST-e _%$e113099%_))) - (_%$hd113103113113%_ + _%$e113373%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e113373%_)) + (let* ((_%$tgt113376113384%_ + (let () (declare (not safe)) (__AST-e _%$e113373%_))) + (_%$hd113377113387%_ (let () (declare (not safe)) - (##car _%$tgt113102113110%_))) - (_%$tl113104113116%_ + (##car _%$tgt113376113384%_))) + (_%$tl113378113390%_ (let () (declare (not safe)) - (##cdr _%$tgt113102113110%_))) - (_%body113120%_ _%$tl113104113116%_)) + (##cdr _%$tgt113376113384%_))) + (_%body113394%_ _%$tl113378113390%_)) (__SRC__% - (cons 'begin (map __compile _%body113120%_)) - _%stx113097%_)) - (_%$E113101113107%_))))) + (cons 'begin (map __compile _%body113394%_)) + _%stx113371%_)) + (_%$E113375113381%_))))) (define __compile-begin-foreign% - (lambda (_%stx113072%_) - (let* ((_%$e113074%_ _%stx113072%_) - (_%$E113076113082%_ + (lambda (_%stx113346%_) + (let* ((_%$e113348%_ _%stx113346%_) + (_%$E113350113356%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113074%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113074%_)) - (let* ((_%$tgt113077113085%_ - (let () (declare (not safe)) (__AST-e _%$e113074%_))) - (_%$hd113078113088%_ + _%$e113348%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e113348%_)) + (let* ((_%$tgt113351113359%_ + (let () (declare (not safe)) (__AST-e _%$e113348%_))) + (_%$hd113352113362%_ (let () (declare (not safe)) - (##car _%$tgt113077113085%_))) - (_%$tl113079113091%_ + (##car _%$tgt113351113359%_))) + (_%$tl113353113365%_ (let () (declare (not safe)) - (##cdr _%$tgt113077113085%_))) - (_%body113095%_ _%$tl113079113091%_)) + (##cdr _%$tgt113351113359%_))) + (_%body113369%_ _%$tl113353113365%_)) (__SRC__% (cons 'begin (let () (declare (not safe)) - (__AST->datum _%body113095%_))) - _%stx113072%_)) - (_%$E113076113082%_))))) + (__AST->datum _%body113369%_))) + _%stx113346%_)) + (_%$E113350113356%_))))) (define __compile-import% - (lambda (_%stx113047%_) - (let* ((_%$e113049%_ _%stx113047%_) - (_%$E113051113057%_ + (lambda (_%stx113321%_) + (let* ((_%$e113323%_ _%stx113321%_) + (_%$E113325113331%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113049%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113049%_)) - (let* ((_%$tgt113052113060%_ - (let () (declare (not safe)) (__AST-e _%$e113049%_))) - (_%$hd113053113063%_ + _%$e113323%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e113323%_)) + (let* ((_%$tgt113326113334%_ + (let () (declare (not safe)) (__AST-e _%$e113323%_))) + (_%$hd113327113337%_ (let () (declare (not safe)) - (##car _%$tgt113052113060%_))) - (_%$tl113054113066%_ + (##car _%$tgt113326113334%_))) + (_%$tl113328113340%_ (let () (declare (not safe)) - (##cdr _%$tgt113052113060%_))) - (_%body113070%_ _%$tl113054113066%_)) + (##cdr _%$tgt113326113334%_))) + (_%body113344%_ _%$tl113328113340%_)) (__SRC__% (cons '__eval-import - (cons (cons 'quote (cons _%body113070%_ '())) '())) - _%stx113047%_)) - (_%$E113051113057%_))))) + (cons (cons 'quote (cons _%body113344%_ '())) '())) + _%stx113321%_)) + (_%$E113325113331%_))))) (define __compile-begin-annotation% - (lambda (_%stx112994%_) - (let* ((_%$e112996%_ _%stx112994%_) - (_%$E112998113010%_ + (lambda (_%stx113268%_) + (let* ((_%$e113270%_ _%stx113268%_) + (_%$E113272113284%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112996%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e112996%_)) - (let* ((_%$tgt112999113013%_ - (let () (declare (not safe)) (__AST-e _%$e112996%_))) - (_%$hd113000113016%_ + _%$e113270%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e113270%_)) + (let* ((_%$tgt113273113287%_ + (let () (declare (not safe)) (__AST-e _%$e113270%_))) + (_%$hd113274113290%_ (let () (declare (not safe)) - (##car _%$tgt112999113013%_))) - (_%$tl113001113019%_ + (##car _%$tgt113273113287%_))) + (_%$tl113275113293%_ (let () (declare (not safe)) - (##cdr _%$tgt112999113013%_)))) + (##cdr _%$tgt113273113287%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113001113019%_)) - (let* ((_%$tgt113002113023%_ + (__AST-pair? _%$tl113275113293%_)) + (let* ((_%$tgt113276113297%_ (let () (declare (not safe)) - (__AST-e _%$tl113001113019%_))) - (_%$hd113003113026%_ + (__AST-e _%$tl113275113293%_))) + (_%$hd113277113300%_ (let () (declare (not safe)) - (##car _%$tgt113002113023%_))) - (_%$tl113004113029%_ + (##car _%$tgt113276113297%_))) + (_%$tl113278113303%_ (let () (declare (not safe)) - (##cdr _%$tgt113002113023%_))) - (_%ann113033%_ _%$hd113003113026%_)) + (##cdr _%$tgt113276113297%_))) + (_%ann113307%_ _%$hd113277113300%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113004113029%_)) - (let* ((_%$tgt113005113035%_ + (__AST-pair? _%$tl113278113303%_)) + (let* ((_%$tgt113279113309%_ (let () (declare (not safe)) - (__AST-e _%$tl113004113029%_))) - (_%$hd113006113038%_ + (__AST-e _%$tl113278113303%_))) + (_%$hd113280113312%_ (let () (declare (not safe)) - (##car _%$tgt113005113035%_))) - (_%$tl113007113041%_ + (##car _%$tgt113279113309%_))) + (_%$tl113281113315%_ (let () (declare (not safe)) - (##cdr _%$tgt113005113035%_))) - (_%expr113045%_ _%$hd113006113038%_)) + (##cdr _%$tgt113279113309%_))) + (_%expr113319%_ _%$hd113280113312%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113007113041%_)) + (__AST-e _%$tl113281113315%_)) '()) - (__compile _%expr113045%_) - (_%$E112998113010%_))) - (_%$E112998113010%_))) - (_%$E112998113010%_))) - (_%$E112998113010%_))))) + (__compile _%expr113319%_) + (_%$E113272113284%_))) + (_%$E113272113284%_))) + (_%$E113272113284%_))) + (_%$E113272113284%_))))) (define __compile-define-values% - (lambda (_%stx112885%_) - (let* ((_%$e112887%_ _%stx112885%_) - (_%$E112889112901%_ + (lambda (_%stx113159%_) + (let* ((_%$e113161%_ _%stx113159%_) + (_%$E113163113175%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112887%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e112887%_)) - (let* ((_%$tgt112890112904%_ - (let () (declare (not safe)) (__AST-e _%$e112887%_))) - (_%$hd112891112907%_ + _%$e113161%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e113161%_)) + (let* ((_%$tgt113164113178%_ + (let () (declare (not safe)) (__AST-e _%$e113161%_))) + (_%$hd113165113181%_ (let () (declare (not safe)) - (##car _%$tgt112890112904%_))) - (_%$tl112892112910%_ + (##car _%$tgt113164113178%_))) + (_%$tl113166113184%_ (let () (declare (not safe)) - (##cdr _%$tgt112890112904%_)))) + (##cdr _%$tgt113164113178%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112892112910%_)) - (let* ((_%$tgt112893112914%_ + (__AST-pair? _%$tl113166113184%_)) + (let* ((_%$tgt113167113188%_ (let () (declare (not safe)) - (__AST-e _%$tl112892112910%_))) - (_%$hd112894112917%_ + (__AST-e _%$tl113166113184%_))) + (_%$hd113168113191%_ (let () (declare (not safe)) - (##car _%$tgt112893112914%_))) - (_%$tl112895112920%_ + (##car _%$tgt113167113188%_))) + (_%$tl113169113194%_ (let () (declare (not safe)) - (##cdr _%$tgt112893112914%_))) - (_%hd112924%_ _%$hd112894112917%_)) + (##cdr _%$tgt113167113188%_))) + (_%hd113198%_ _%$hd113168113191%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112895112920%_)) - (let* ((_%$tgt112896112926%_ + (__AST-pair? _%$tl113169113194%_)) + (let* ((_%$tgt113170113200%_ (let () (declare (not safe)) - (__AST-e _%$tl112895112920%_))) - (_%$hd112897112929%_ + (__AST-e _%$tl113169113194%_))) + (_%$hd113171113203%_ (let () (declare (not safe)) - (##car _%$tgt112896112926%_))) - (_%$tl112898112932%_ + (##car _%$tgt113170113200%_))) + (_%$tl113172113206%_ (let () (declare (not safe)) - (##cdr _%$tgt112896112926%_))) - (_%expr112936%_ _%$hd112897112929%_)) + (##cdr _%$tgt113170113200%_))) + (_%expr113210%_ _%$hd113171113203%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl112898112932%_)) + (__AST-e _%$tl113172113206%_)) '()) - (let* ((_%$e112938%_ _%hd112924%_) - (_%$E112940112981%_ + (let* ((_%$e113212%_ _%hd113198%_) + (_%$E113214113255%_ (lambda () - (let ((_%$E112941112966%_ + (let ((_%$E113215113240%_ (lambda () - (let* ((_%$E112942112953%_ + (let* ((_%$E113216113227%_ (lambda () (let () (declare @@ -609,10 +609,10 @@ (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112938%_)))) - (_%ids112956%_ _%hd112924%_) - (_%len112958%_ (length _%ids112956%_)) - (_%tmp112960%_ + _%$e113212%_)))) + (_%ids113230%_ _%hd113198%_) + (_%len113232%_ (length _%ids113230%_)) + (_%tmp113234%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (__SRC__% @@ -620,1617 +620,1617 @@ (cons (__SRC__% ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'define - (cons _%tmp112960%_ - (cons (__compile _%expr112936%_) '()))) - _%stx112885%_) + (cons _%tmp113234%_ + (cons (__compile _%expr113210%_) '()))) + _%stx113159%_) (cons (__SRC__% (cons '__check-values - (cons _%tmp112960%_ - (cons _%len112958%_ '()))) - _%stx112885%_) - (let ((__tmp113460 - (let ((__tmp113462 - (lambda (_%id112963%_ - _%k112964%_) + (cons _%tmp113234%_ + (cons _%len113232%_ '()))) + _%stx113159%_) + (let ((__tmp113734 + (let ((__tmp113736 + (lambda (_%id113237%_ + _%k113238%_) (if (let () (declare (not safe)) - (__AST-e _%id112963%_)) + (__AST-e _%id113237%_)) (__SRC__% (cons 'define (cons (__SRC__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id112963%_) + _%id113237%_) (cons (cons '##vector-ref - (cons _%tmp112960%_ - (cons _%k112964%_ '()))) + (cons _%tmp113234%_ + (cons _%k113238%_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx112885%_) + _%stx113159%_) '#f))) - (__tmp113461 + (__tmp113735 (let () (declare (not safe)) - (##iota _%len112958%_)))) + (##iota _%len113232%_)))) (declare (not safe)) (__filter-map2 - __tmp113462 - _%ids112956%_ - __tmp113461)))) + __tmp113736 + _%ids113230%_ + __tmp113735)))) (declare (not safe)) - (__foldr1 cons '() __tmp113460))))) - _%stx112885%_))))) + (__foldr1 cons '() __tmp113734))))) + _%stx113159%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (__AST-pair? _%$e112938%_)) - (let* ((_%$tgt112943112969%_ + (__AST-pair? _%$e113212%_)) + (let* ((_%$tgt113217113243%_ (let () (declare (not safe)) - (__AST-e _%$e112938%_))) - (_%$hd112944112972%_ + (__AST-e _%$e113212%_))) + (_%$hd113218113246%_ (let () (declare (not safe)) - (##car _%$tgt112943112969%_))) - (_%$tl112945112975%_ + (##car _%$tgt113217113243%_))) + (_%$tl113219113249%_ (let () (declare (not safe)) - (##cdr _%$tgt112943112969%_))) - (_%id112979%_ - _%$hd112944112972%_)) + (##cdr _%$tgt113217113243%_))) + (_%id113253%_ + _%$hd113218113246%_)) (if (equal? (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (__AST-e _%$tl112945112975%_)) + (__AST-e _%$tl113219113249%_)) '()) (__SRC__% (cons 'define - (cons (__SRC__0 _%id112979%_) - (cons (__compile _%expr112936%_) '()))) - _%stx112885%_) - (_%$E112941112966%_))) + (cons (__SRC__0 _%id113253%_) + (cons (__compile _%expr113210%_) '()))) + _%stx113159%_) + (_%$E113215113240%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$E112941112966%_)))))) + (_%$E113215113240%_)))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e112938%_)) - (let* ((_%$tgt112946112984%_ + (__AST-pair? _%$e113212%_)) + (let* ((_%$tgt113220113258%_ (let () (declare (not safe)) - (__AST-e _%$e112938%_))) - (_%$hd112947112987%_ + (__AST-e _%$e113212%_))) + (_%$hd113221113261%_ (let () (declare (not safe)) - (##car _%$tgt112946112984%_))) - (_%$tl112948112990%_ + (##car _%$tgt113220113258%_))) + (_%$tl113222113264%_ (let () (declare (not safe)) - (##cdr _%$tgt112946112984%_)))) + (##cdr _%$tgt113220113258%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$hd112947112987%_)) + (__AST-e _%$hd113221113261%_)) '#f) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl112948112990%_)) + (__AST-e _%$tl113222113264%_)) '()) - (__compile _%expr112936%_) - (_%$E112940112981%_)) - (_%$E112940112981%_))) - (_%$E112940112981%_))) - (_%$E112889112901%_))) - (_%$E112889112901%_))) - (_%$E112889112901%_))) - (_%$E112889112901%_))))) + (__compile _%expr113210%_) + (_%$E113214113255%_)) + (_%$E113214113255%_))) + (_%$E113214113255%_))) + (_%$E113163113175%_))) + (_%$E113163113175%_))) + (_%$E113163113175%_))) + (_%$E113163113175%_))))) (define __compile-head-id - (lambda (_%e112883%_) + (lambda (_%e113157%_) (__SRC__0 - (if (let () (declare (not safe)) (__AST-e _%e112883%_)) - _%e112883%_ + (if (let () (declare (not safe)) (__AST-e _%e113157%_)) + _%e113157%_ (let () (declare (not safe)) (##gensym)))))) (define __compile-lambda-head - (lambda (_%hd112840%_) - (let _%recur112842%_ ((_%rest112844%_ _%hd112840%_)) - (let* ((_%$e112846%_ _%rest112844%_) - (_%$E112848112866%_ + (lambda (_%hd113114%_) + (let _%recur113116%_ ((_%rest113118%_ _%hd113114%_)) + (let* ((_%$e113120%_ _%rest113118%_) + (_%$E113122113140%_ (lambda () - (let ((_%$E112849112863%_ + (let ((_%$E113123113137%_ (lambda () - (let* ((_%$E112850112858%_ + (let* ((_%$E113124113132%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112846%_)))) - (_%tail112861%_ _%$e112846%_)) - (__compile-head-id _%tail112861%_))))) + _%$e113120%_)))) + (_%tail113135%_ _%$e113120%_)) + (__compile-head-id _%tail113135%_))))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$e112846%_)) + (__AST-e _%$e113120%_)) '()) '() - (_%$E112849112863%_)))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e112846%_)) - (let* ((_%$tgt112851112869%_ - (let () (declare (not safe)) (__AST-e _%$e112846%_))) - (_%$hd112852112872%_ + (_%$E113123113137%_)))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e113120%_)) + (let* ((_%$tgt113125113143%_ + (let () (declare (not safe)) (__AST-e _%$e113120%_))) + (_%$hd113126113146%_ (let () (declare (not safe)) - (##car _%$tgt112851112869%_))) - (_%$tl112853112875%_ + (##car _%$tgt113125113143%_))) + (_%$tl113127113149%_ (let () (declare (not safe)) - (##cdr _%$tgt112851112869%_))) - (_%hd112879%_ _%$hd112852112872%_) - (_%rest112881%_ _%$tl112853112875%_)) - (cons (__compile-head-id _%hd112879%_) - (_%recur112842%_ _%rest112881%_))) - (_%$E112848112866%_)))))) + (##cdr _%$tgt113125113143%_))) + (_%hd113153%_ _%$hd113126113146%_) + (_%rest113155%_ _%$tl113127113149%_)) + (cons (__compile-head-id _%hd113153%_) + (_%recur113116%_ _%rest113155%_))) + (_%$E113122113140%_)))))) (define __compile-lambda% - (lambda (_%stx112787%_) - (let* ((_%$e112789%_ _%stx112787%_) - (_%$E112791112803%_ + (lambda (_%stx113061%_) + (let* ((_%$e113063%_ _%stx113061%_) + (_%$E113065113077%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112789%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e112789%_)) - (let* ((_%$tgt112792112806%_ - (let () (declare (not safe)) (__AST-e _%$e112789%_))) - (_%$hd112793112809%_ + _%$e113063%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e113063%_)) + (let* ((_%$tgt113066113080%_ + (let () (declare (not safe)) (__AST-e _%$e113063%_))) + (_%$hd113067113083%_ (let () (declare (not safe)) - (##car _%$tgt112792112806%_))) - (_%$tl112794112812%_ + (##car _%$tgt113066113080%_))) + (_%$tl113068113086%_ (let () (declare (not safe)) - (##cdr _%$tgt112792112806%_)))) + (##cdr _%$tgt113066113080%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112794112812%_)) - (let* ((_%$tgt112795112816%_ + (__AST-pair? _%$tl113068113086%_)) + (let* ((_%$tgt113069113090%_ (let () (declare (not safe)) - (__AST-e _%$tl112794112812%_))) - (_%$hd112796112819%_ + (__AST-e _%$tl113068113086%_))) + (_%$hd113070113093%_ (let () (declare (not safe)) - (##car _%$tgt112795112816%_))) - (_%$tl112797112822%_ + (##car _%$tgt113069113090%_))) + (_%$tl113071113096%_ (let () (declare (not safe)) - (##cdr _%$tgt112795112816%_))) - (_%hd112826%_ _%$hd112796112819%_)) + (##cdr _%$tgt113069113090%_))) + (_%hd113100%_ _%$hd113070113093%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112797112822%_)) - (let* ((_%$tgt112798112828%_ + (__AST-pair? _%$tl113071113096%_)) + (let* ((_%$tgt113072113102%_ (let () (declare (not safe)) - (__AST-e _%$tl112797112822%_))) - (_%$hd112799112831%_ + (__AST-e _%$tl113071113096%_))) + (_%$hd113073113105%_ (let () (declare (not safe)) - (##car _%$tgt112798112828%_))) - (_%$tl112800112834%_ + (##car _%$tgt113072113102%_))) + (_%$tl113074113108%_ (let () (declare (not safe)) - (##cdr _%$tgt112798112828%_))) - (_%body112838%_ _%$hd112799112831%_)) + (##cdr _%$tgt113072113102%_))) + (_%body113112%_ _%$hd113073113105%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl112800112834%_)) + (__AST-e _%$tl113074113108%_)) '()) (__SRC__% (cons 'lambda (cons (__compile-lambda-head - _%hd112826%_) - (cons (__compile _%body112838%_) + _%hd113100%_) + (cons (__compile _%body113112%_) '()))) - _%stx112787%_) - (_%$E112791112803%_))) - (_%$E112791112803%_))) - (_%$E112791112803%_))) - (_%$E112791112803%_))))) + _%stx113061%_) + (_%$E113065113077%_))) + (_%$E113065113077%_))) + (_%$E113065113077%_))) + (_%$E113065113077%_))))) (define __compile-case-lambda% - (lambda (_%stx112579%_) - (letrec ((_%variadic?112581%_ - (lambda (_%hd112752%_) - (let* ((_%$e112754%_ _%hd112752%_) - (_%$E112756112772%_ + (lambda (_%stx112853%_) + (letrec ((_%variadic?112855%_ + (lambda (_%hd113026%_) + (let* ((_%$e113028%_ _%hd113026%_) + (_%$E113030113046%_ (lambda () - (let ((_%$E112757112769%_ + (let ((_%$E113031113043%_ (lambda () - (let ((_%$E112758112766%_ + (let ((_%$E113032113040%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112754%_))))) + _%$e113028%_))))) '#t)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$e112754%_)) + (__AST-e _%$e113028%_)) '()) '#f - (_%$E112757112769%_)))))) + (_%$E113031113043%_)))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e112754%_)) - (let* ((_%$tgt112759112775%_ + (__AST-pair? _%$e113028%_)) + (let* ((_%$tgt113033113049%_ (let () (declare (not safe)) - (__AST-e _%$e112754%_))) - (_%$hd112760112778%_ + (__AST-e _%$e113028%_))) + (_%$hd113034113052%_ (let () (declare (not safe)) - (##car _%$tgt112759112775%_))) - (_%$tl112761112781%_ + (##car _%$tgt113033113049%_))) + (_%$tl113035113055%_ (let () (declare (not safe)) - (##cdr _%$tgt112759112775%_))) - (_%rest112785%_ _%$tl112761112781%_)) - (_%variadic?112581%_ _%rest112785%_)) - (_%$E112756112772%_))))) - (_%arity112582%_ - (lambda (_%hd112717%_) - (let _%lp112719%_ ((_%rest112721%_ _%hd112717%_) - (_%k112722%_ '0)) - (let* ((_%$e112724%_ _%rest112721%_) - (_%$E112726112737%_ + (##cdr _%$tgt113033113049%_))) + (_%rest113059%_ _%$tl113035113055%_)) + (_%variadic?112855%_ _%rest113059%_)) + (_%$E113030113046%_))))) + (_%arity112856%_ + (lambda (_%hd112991%_) + (let _%lp112993%_ ((_%rest112995%_ _%hd112991%_) + (_%k112996%_ '0)) + (let* ((_%$e112998%_ _%rest112995%_) + (_%$E113000113011%_ (lambda () - (let ((_%$E112727112734%_ + (let ((_%$E113001113008%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112724%_))))) - _%k112722%_)))) + _%$e112998%_))))) + _%k112996%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$e112724%_)) - (let* ((_%$tgt112728112740%_ + (__AST-pair? _%$e112998%_)) + (let* ((_%$tgt113002113014%_ (let () (declare (not safe)) - (__AST-e _%$e112724%_))) - (_%$hd112729112743%_ + (__AST-e _%$e112998%_))) + (_%$hd113003113017%_ (let () (declare (not safe)) - (##car _%$tgt112728112740%_))) - (_%$tl112730112746%_ + (##car _%$tgt113002113014%_))) + (_%$tl113004113020%_ (let () (declare (not safe)) - (##cdr _%$tgt112728112740%_))) - (_%rest112750%_ _%$tl112730112746%_)) - (_%lp112719%_ - _%rest112750%_ + (##cdr _%$tgt113002113014%_))) + (_%rest113024%_ _%$tl113004113020%_)) + (_%lp112993%_ + _%rest113024%_ (let () (declare (not safe)) - (##fx+ _%k112722%_ '1)))) - (_%$E112726112737%_)))))) - (_%generate112583%_ - (lambda (_%rest112644%_ _%args112645%_ _%len112646%_) - (let* ((_%$e112648%_ _%rest112644%_) - (_%$E112650112661%_ + (##fx+ _%k112996%_ '1)))) + (_%$E113000113011%_)))))) + (_%generate112857%_ + (lambda (_%rest112918%_ _%args112919%_ _%len112920%_) + (let* ((_%$e112922%_ _%rest112918%_) + (_%$E112924112935%_ (lambda () - (let ((_%$E112651112658%_ + (let ((_%$E112925112932%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112648%_))))) + _%$e112922%_))))) (__SRC__% (cons 'error (cons '"No clause matching arguments" - (cons _%args112645%_ '()))) - _%stx112579%_))))) + (cons _%args112919%_ '()))) + _%stx112853%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e112648%_)) - (let* ((_%$tgt112652112664%_ + (__AST-pair? _%$e112922%_)) + (let* ((_%$tgt112926112938%_ (let () (declare (not safe)) - (__AST-e _%$e112648%_))) - (_%$hd112653112667%_ + (__AST-e _%$e112922%_))) + (_%$hd112927112941%_ (let () (declare (not safe)) - (##car _%$tgt112652112664%_))) - (_%$tl112654112670%_ + (##car _%$tgt112926112938%_))) + (_%$tl112928112944%_ (let () (declare (not safe)) - (##cdr _%$tgt112652112664%_))) - (_%clause112674%_ _%$hd112653112667%_) - (_%rest112676%_ _%$tl112654112670%_) - (_%$e112678%_ _%clause112674%_) - (_%$E112680112689%_ + (##cdr _%$tgt112926112938%_))) + (_%clause112948%_ _%$hd112927112941%_) + (_%rest112950%_ _%$tl112928112944%_) + (_%$e112952%_ _%clause112948%_) + (_%$E112954112963%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112678%_))))) + _%$e112952%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e112678%_)) - (let* ((_%$tgt112681112692%_ + (__AST-pair? _%$e112952%_)) + (let* ((_%$tgt112955112966%_ (let () (declare (not safe)) - (__AST-e _%$e112678%_))) - (_%$hd112682112695%_ + (__AST-e _%$e112952%_))) + (_%$hd112956112969%_ (let () (declare (not safe)) - (##car _%$tgt112681112692%_))) - (_%$tl112683112698%_ + (##car _%$tgt112955112966%_))) + (_%$tl112957112972%_ (let () (declare (not safe)) - (##cdr _%$tgt112681112692%_))) - (_%hd112702%_ _%$hd112682112695%_)) + (##cdr _%$tgt112955112966%_))) + (_%hd112976%_ _%$hd112956112969%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112683112698%_)) - (let* ((_%$tgt112684112704%_ + (__AST-pair? _%$tl112957112972%_)) + (let* ((_%$tgt112958112978%_ (let () (declare (not safe)) - (__AST-e _%$tl112683112698%_))) - (_%$hd112685112707%_ + (__AST-e _%$tl112957112972%_))) + (_%$hd112959112981%_ (let () (declare (not safe)) - (##car _%$tgt112684112704%_))) - (_%$tl112686112710%_ + (##car _%$tgt112958112978%_))) + (_%$tl112960112984%_ (let () (declare (not safe)) - (##cdr _%$tgt112684112704%_)))) + (##cdr _%$tgt112958112978%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl112686112710%_)) + (__AST-e _%$tl112960112984%_)) '()) - (let ((_%clen112714%_ - (_%arity112582%_ - _%hd112702%_)) - (_%cmp112715%_ - (if (_%variadic?112581%_ - _%hd112702%_) + (let ((_%clen112988%_ + (_%arity112856%_ + _%hd112976%_)) + (_%cmp112989%_ + (if (_%variadic?112855%_ + _%hd112976%_) 'fx>= 'fx=))) (__SRC__% (cons 'if - (cons (cons _%cmp112715%_ + (cons (cons _%cmp112989%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%len112646%_ (cons _%clen112714%_ '()))) + (cons _%len112920%_ (cons _%clen112988%_ '()))) (cons (__SRC__% (cons '##apply (cons (__compile-lambda% - (cons '%#lambda _%clause112674%_)) - (cons _%args112645%_ '()))) - _%stx112579%_) - (cons (_%generate112583%_ - _%rest112676%_ - _%args112645%_ - _%len112646%_) + (cons '%#lambda _%clause112948%_)) + (cons _%args112919%_ '()))) + _%stx112853%_) + (cons (_%generate112857%_ + _%rest112950%_ + _%args112919%_ + _%len112920%_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx112579%_)) - (_%$E112680112689%_))) - (_%$E112680112689%_))) - (_%$E112680112689%_))) - (_%$E112650112661%_)))))) - (let* ((_%$e112585%_ _%stx112579%_) - (_%$E112587112619%_ + _%stx112853%_)) + (_%$E112954112963%_))) + (_%$E112954112963%_))) + (_%$E112954112963%_))) + (_%$E112924112935%_)))))) + (let* ((_%$e112859%_ _%stx112853%_) + (_%$E112861112893%_ (lambda () - (let ((_%$E112588112601%_ + (let ((_%$E112862112875%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112585%_))))) + _%$e112859%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e112585%_)) - (let* ((_%$tgt112589112604%_ + (__AST-pair? _%$e112859%_)) + (let* ((_%$tgt112863112878%_ (let () (declare (not safe)) - (__AST-e _%$e112585%_))) - (_%$hd112590112607%_ + (__AST-e _%$e112859%_))) + (_%$hd112864112881%_ (let () (declare (not safe)) - (##car _%$tgt112589112604%_))) - (_%$tl112591112610%_ + (##car _%$tgt112863112878%_))) + (_%$tl112865112884%_ (let () (declare (not safe)) - (##cdr _%$tgt112589112604%_))) - (_%clauses112614%_ _%$tl112591112610%_)) - (let ((_%args112616%_ + (##cdr _%$tgt112863112878%_))) + (_%clauses112888%_ _%$tl112865112884%_)) + (let ((_%args112890%_ (__SRC__% (let () (declare (not safe)) (##gensym)) - _%stx112579%_)) - (_%len112617%_ + _%stx112853%_)) + (_%len112891%_ (__SRC__% (let () (declare (not safe)) (##gensym)) - _%stx112579%_))) + _%stx112853%_))) (__SRC__% (cons 'lambda - (cons _%args112616%_ + (cons _%args112890%_ (cons (__SRC__% (cons 'let - (cons (cons (cons _%len112617%_ + (cons (cons (cons _%len112891%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (__SRC__% (cons '##length - (cons _%args112616%_ '())) - _%stx112579%_) + (cons _%args112890%_ '())) + _%stx112853%_) '())) '()) - (cons (_%generate112583%_ - _%clauses112614%_ - _%args112616%_ - _%len112617%_) + (cons (_%generate112857%_ + _%clauses112888%_ + _%args112890%_ + _%len112891%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx112579%_) + _%stx112853%_) '()))) - _%stx112579%_))) - (_%$E112588112601%_)))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e112585%_)) - (let* ((_%$tgt112592112622%_ - (let () (declare (not safe)) (__AST-e _%$e112585%_))) - (_%$hd112593112625%_ + _%stx112853%_))) + (_%$E112862112875%_)))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e112859%_)) + (let* ((_%$tgt112866112896%_ + (let () (declare (not safe)) (__AST-e _%$e112859%_))) + (_%$hd112867112899%_ (let () (declare (not safe)) - (##car _%$tgt112592112622%_))) - (_%$tl112594112628%_ + (##car _%$tgt112866112896%_))) + (_%$tl112868112902%_ (let () (declare (not safe)) - (##cdr _%$tgt112592112622%_)))) + (##cdr _%$tgt112866112896%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112594112628%_)) - (let* ((_%$tgt112595112632%_ + (__AST-pair? _%$tl112868112902%_)) + (let* ((_%$tgt112869112906%_ (let () (declare (not safe)) - (__AST-e _%$tl112594112628%_))) - (_%$hd112596112635%_ + (__AST-e _%$tl112868112902%_))) + (_%$hd112870112909%_ (let () (declare (not safe)) - (##car _%$tgt112595112632%_))) - (_%$tl112597112638%_ + (##car _%$tgt112869112906%_))) + (_%$tl112871112912%_ (let () (declare (not safe)) - (##cdr _%$tgt112595112632%_))) - (_%clause112642%_ _%$hd112596112635%_)) + (##cdr _%$tgt112869112906%_))) + (_%clause112916%_ _%$hd112870112909%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl112597112638%_)) + (__AST-e _%$tl112871112912%_)) '()) (__compile-lambda% - (cons '%#lambda _%clause112642%_)) - (_%$E112587112619%_))) - (_%$E112587112619%_))) - (_%$E112587112619%_)))))) + (cons '%#lambda _%clause112916%_)) + (_%$E112861112893%_))) + (_%$E112861112893%_))) + (_%$E112861112893%_)))))) (define __compile-let-form - (lambda (_%stx112348%_ _%compile-simple112349%_ _%compile-values112350%_) - (letrec ((_%simple-bind?112352%_ - (lambda (_%hd112537%_) - (let* ((_%hd112538112548%_ _%hd112537%_) - (_%else112541112556%_ (lambda () '#f))) - (let ((_%K112544112569%_ (lambda (_%id112567%_) '#t)) - (_%K112543112561%_ (lambda () '#t))) - (let ((_%try-match112540112564%_ + (lambda (_%stx112622%_ _%compile-simple112623%_ _%compile-values112624%_) + (letrec ((_%simple-bind?112626%_ + (lambda (_%hd112811%_) + (let* ((_%hd112812112822%_ _%hd112811%_) + (_%else112815112830%_ (lambda () '#f))) + (let ((_%K112818112843%_ (lambda (_%id112841%_) '#t)) + (_%K112817112835%_ (lambda () '#t))) + (let ((_%try-match112814112838%_ (lambda () (if (let () (declare (not safe)) - (##eq? _%hd112538112548%_ '#f)) - (_%K112543112561%_) - (_%else112541112556%_))))) + (##eq? _%hd112812112822%_ '#f)) + (_%K112817112835%_) + (_%else112815112830%_))))) (if (let () (declare (not safe)) - (##pair? _%hd112538112548%_)) - (let ((_%tl112546112574%_ + (##pair? _%hd112812112822%_)) + (let ((_%tl112820112848%_ (let () (declare (not safe)) - (##cdr _%hd112538112548%_))) - (_%hd112545112572%_ + (##cdr _%hd112812112822%_))) + (_%hd112819112846%_ (let () (declare (not safe)) - (##car _%hd112538112548%_)))) + (##car _%hd112812112822%_)))) (if (let () (declare (not safe)) - (##null? _%tl112546112574%_)) - (let ((_%id112577%_ _%hd112545112572%_)) - (_%K112544112569%_ _%id112577%_)) - (_%try-match112540112564%_))) - (_%try-match112540112564%_))))))) - (_%car-e112353%_ - (lambda (_%hd112535%_) - (if (pair? _%hd112535%_) - (let () (declare (not safe)) (##car _%hd112535%_)) - _%hd112535%_)))) - (let* ((_%$e112355%_ _%stx112348%_) - (_%$E112357112500%_ + (##null? _%tl112820112848%_)) + (let ((_%id112851%_ _%hd112819112846%_)) + (_%K112818112843%_ _%id112851%_)) + (_%try-match112814112838%_))) + (_%try-match112814112838%_))))))) + (_%car-e112627%_ + (lambda (_%hd112809%_) + (if (pair? _%hd112809%_) + (let () (declare (not safe)) (##car _%hd112809%_)) + _%hd112809%_)))) + (let* ((_%$e112629%_ _%stx112622%_) + (_%$E112631112774%_ (lambda () - (let ((_%$E112358112380%_ + (let ((_%$E112632112654%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112355%_))))) + _%$e112629%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e112355%_)) - (let* ((_%$tgt112359112383%_ + (__AST-pair? _%$e112629%_)) + (let* ((_%$tgt112633112657%_ (let () (declare (not safe)) - (__AST-e _%$e112355%_))) - (_%$hd112360112386%_ + (__AST-e _%$e112629%_))) + (_%$hd112634112660%_ (let () (declare (not safe)) - (##car _%$tgt112359112383%_))) - (_%$tl112361112389%_ + (##car _%$tgt112633112657%_))) + (_%$tl112635112663%_ (let () (declare (not safe)) - (##cdr _%$tgt112359112383%_)))) + (##cdr _%$tgt112633112657%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112361112389%_)) - (let* ((_%$tgt112362112393%_ + (__AST-pair? _%$tl112635112663%_)) + (let* ((_%$tgt112636112667%_ (let () (declare (not safe)) - (__AST-e _%$tl112361112389%_))) - (_%$hd112363112396%_ + (__AST-e _%$tl112635112663%_))) + (_%$hd112637112670%_ (let () (declare (not safe)) - (##car _%$tgt112362112393%_))) - (_%$tl112364112399%_ + (##car _%$tgt112636112667%_))) + (_%$tl112638112673%_ (let () (declare (not safe)) - (##cdr _%$tgt112362112393%_))) - (_%hd112403%_ _%$hd112363112396%_)) + (##cdr _%$tgt112636112667%_))) + (_%hd112677%_ _%$hd112637112670%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112364112399%_)) - (let* ((_%$tgt112365112405%_ + (__AST-pair? _%$tl112638112673%_)) + (let* ((_%$tgt112639112679%_ (let () (declare (not safe)) - (__AST-e _%$tl112364112399%_))) - (_%$hd112366112408%_ + (__AST-e _%$tl112638112673%_))) + (_%$hd112640112682%_ (let () (declare (not safe)) - (##car _%$tgt112365112405%_))) - (_%$tl112367112411%_ + (##car _%$tgt112639112679%_))) + (_%$tl112641112685%_ (let () (declare (not safe)) - (##cdr _%$tgt112365112405%_))) - (_%body112415%_ - _%$hd112366112408%_)) + (##cdr _%$tgt112639112679%_))) + (_%body112689%_ + _%$hd112640112682%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl112367112411%_)) + (__AST-e _%$tl112641112685%_)) '()) - (let* ((_%hd-ids112455%_ - (map (lambda (_%bind112417%_) - (let* ((_%$e112419%_ + (let* ((_%hd-ids112729%_ + (map (lambda (_%bind112691%_) + (let* ((_%$e112693%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%bind112417%_) - (_%$E112421112430%_ + _%bind112691%_) + (_%$E112695112704%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112419%_))))) + _%$e112693%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e112419%_)) - (let* ((_%$tgt112422112433%_ + (__AST-pair? _%$e112693%_)) + (let* ((_%$tgt112696112707%_ (let () (declare (not safe)) - (__AST-e _%$e112419%_))) - (_%$hd112423112436%_ + (__AST-e _%$e112693%_))) + (_%$hd112697112710%_ (let () (declare (not safe)) - (##car _%$tgt112422112433%_))) - (_%$tl112424112439%_ + (##car _%$tgt112696112707%_))) + (_%$tl112698112713%_ (let () (declare (not safe)) - (##cdr _%$tgt112422112433%_))) - (_%ids112443%_ _%$hd112423112436%_)) + (##cdr _%$tgt112696112707%_))) + (_%ids112717%_ _%$hd112697112710%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112424112439%_)) - (let* ((_%$tgt112425112445%_ + (__AST-pair? _%$tl112698112713%_)) + (let* ((_%$tgt112699112719%_ (let () (declare (not safe)) - (__AST-e _%$tl112424112439%_))) - (_%$hd112426112448%_ + (__AST-e _%$tl112698112713%_))) + (_%$hd112700112722%_ (let () (declare (not safe)) - (##car _%$tgt112425112445%_))) - (_%$tl112427112451%_ + (##car _%$tgt112699112719%_))) + (_%$tl112701112725%_ (let () (declare (not safe)) - (##cdr _%$tgt112425112445%_)))) + (##cdr _%$tgt112699112719%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl112427112451%_)) + (__AST-e _%$tl112701112725%_)) '()) - _%ids112443%_ - (_%$E112421112430%_))) - (_%$E112421112430%_))) - (_%$E112421112430%_)))) - _%hd112403%_)) + _%ids112717%_ + (_%$E112695112704%_))) + (_%$E112695112704%_))) + (_%$E112695112704%_)))) + _%hd112677%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%exprs112495%_ - (map (lambda (_%bind112457%_) - (let* ((_%$e112459%_ + (_%exprs112769%_ + (map (lambda (_%bind112731%_) + (let* ((_%$e112733%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%bind112457%_) - (_%$E112461112470%_ + _%bind112731%_) + (_%$E112735112744%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112459%_))))) + _%$e112733%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e112459%_)) - (let* ((_%$tgt112462112473%_ + (__AST-pair? _%$e112733%_)) + (let* ((_%$tgt112736112747%_ (let () (declare (not safe)) - (__AST-e _%$e112459%_))) - (_%$hd112463112476%_ + (__AST-e _%$e112733%_))) + (_%$hd112737112750%_ (let () (declare (not safe)) - (##car _%$tgt112462112473%_))) - (_%$tl112464112479%_ + (##car _%$tgt112736112747%_))) + (_%$tl112738112753%_ (let () (declare (not safe)) - (##cdr _%$tgt112462112473%_)))) + (##cdr _%$tgt112736112747%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112464112479%_)) - (let* ((_%$tgt112465112483%_ + (__AST-pair? _%$tl112738112753%_)) + (let* ((_%$tgt112739112757%_ (let () (declare (not safe)) - (__AST-e _%$tl112464112479%_))) - (_%$hd112466112486%_ + (__AST-e _%$tl112738112753%_))) + (_%$hd112740112760%_ (let () (declare (not safe)) - (##car _%$tgt112465112483%_))) - (_%$tl112467112489%_ + (##car _%$tgt112739112757%_))) + (_%$tl112741112763%_ (let () (declare (not safe)) - (##cdr _%$tgt112465112483%_))) - (_%expr112493%_ _%$hd112466112486%_)) + (##cdr _%$tgt112739112757%_))) + (_%expr112767%_ _%$hd112740112760%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl112467112489%_)) + (__AST-e _%$tl112741112763%_)) '()) - (__compile _%expr112493%_) - (_%$E112461112470%_))) - (_%$E112461112470%_))) - (_%$E112461112470%_)))) - _%hd112403%_)) + (__compile _%expr112767%_) + (_%$E112735112744%_))) + (_%$E112735112744%_))) + (_%$E112735112744%_)))) + _%hd112677%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%body112497%_ + (_%body112771%_ (__compile - _%body112415%_))) + _%body112689%_))) (if (let () (declare (not safe)) (__andmap1 - _%simple-bind?112352%_ - _%hd-ids112455%_)) - (_%compile-simple112349%_ + _%simple-bind?112626%_ + _%hd-ids112729%_)) + (_%compile-simple112623%_ (let () (declare (not safe)) - (##map _%car-e112353%_ - _%hd-ids112455%_)) - _%exprs112495%_ - _%body112497%_) - (_%compile-values112350%_ - _%hd-ids112455%_ - _%exprs112495%_ - _%body112497%_))) - (_%$E112358112380%_))) - (_%$E112358112380%_))) - (_%$E112358112380%_))) - (_%$E112358112380%_)))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e112355%_)) - (let* ((_%$tgt112368112503%_ - (let () (declare (not safe)) (__AST-e _%$e112355%_))) - (_%$hd112369112506%_ + (##map _%car-e112627%_ + _%hd-ids112729%_)) + _%exprs112769%_ + _%body112771%_) + (_%compile-values112624%_ + _%hd-ids112729%_ + _%exprs112769%_ + _%body112771%_))) + (_%$E112632112654%_))) + (_%$E112632112654%_))) + (_%$E112632112654%_))) + (_%$E112632112654%_)))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e112629%_)) + (let* ((_%$tgt112642112777%_ + (let () (declare (not safe)) (__AST-e _%$e112629%_))) + (_%$hd112643112780%_ (let () (declare (not safe)) - (##car _%$tgt112368112503%_))) - (_%$tl112370112509%_ + (##car _%$tgt112642112777%_))) + (_%$tl112644112783%_ (let () (declare (not safe)) - (##cdr _%$tgt112368112503%_)))) + (##cdr _%$tgt112642112777%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112370112509%_)) - (let* ((_%$tgt112371112513%_ + (__AST-pair? _%$tl112644112783%_)) + (let* ((_%$tgt112645112787%_ (let () (declare (not safe)) - (__AST-e _%$tl112370112509%_))) - (_%$hd112372112516%_ + (__AST-e _%$tl112644112783%_))) + (_%$hd112646112790%_ (let () (declare (not safe)) - (##car _%$tgt112371112513%_))) - (_%$tl112373112519%_ + (##car _%$tgt112645112787%_))) + (_%$tl112647112793%_ (let () (declare (not safe)) - (##cdr _%$tgt112371112513%_)))) + (##cdr _%$tgt112645112787%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$hd112372112516%_)) + (__AST-e _%$hd112646112790%_)) '()) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112373112519%_)) - (let* ((_%$tgt112374112523%_ + (__AST-pair? _%$tl112647112793%_)) + (let* ((_%$tgt112648112797%_ (let () (declare (not safe)) - (__AST-e _%$tl112373112519%_))) - (_%$hd112375112526%_ + (__AST-e _%$tl112647112793%_))) + (_%$hd112649112800%_ (let () (declare (not safe)) - (##car _%$tgt112374112523%_))) - (_%$tl112376112529%_ + (##car _%$tgt112648112797%_))) + (_%$tl112650112803%_ (let () (declare (not safe)) - (##cdr _%$tgt112374112523%_))) - (_%body112533%_ _%$hd112375112526%_)) + (##cdr _%$tgt112648112797%_))) + (_%body112807%_ _%$hd112649112800%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl112376112529%_)) + (__AST-e _%$tl112650112803%_)) '()) - (__compile _%body112533%_) - (_%$E112357112500%_))) - (_%$E112357112500%_)) - (_%$E112357112500%_))) - (_%$E112357112500%_))) - (_%$E112357112500%_)))))) + (__compile _%body112807%_) + (_%$E112631112774%_))) + (_%$E112631112774%_)) + (_%$E112631112774%_))) + (_%$E112631112774%_))) + (_%$E112631112774%_)))))) (define __compile-let-values% - (lambda (_%stx112160%_) - (letrec ((_%compile-simple112162%_ - (lambda (_%hd-ids112344%_ _%exprs112345%_ _%body112346%_) + (lambda (_%stx112434%_) + (letrec ((_%compile-simple112436%_ + (lambda (_%hd-ids112618%_ _%exprs112619%_ _%body112620%_) (__SRC__% (cons 'let - (cons (let ((__tmp113463 + (cons (let ((__tmp113737 (map __compile-head-id - _%hd-ids112344%_))) + _%hd-ids112618%_))) (declare (not safe)) - (##map list __tmp113463 _%exprs112345%_)) - (cons _%body112346%_ '()))) - _%stx112160%_))) - (_%compile-values112163%_ - (lambda (_%hd-ids112259%_ _%exprs112260%_ _%body112261%_) - (let _%lp112263%_ ((_%rest112265%_ _%hd-ids112259%_) - (_%exprs112266%_ _%exprs112260%_) - (_%bind112267%_ '()) - (_%post112268%_ '())) - (let* ((_%rest112269112283%_ _%rest112265%_) - (_%else112272112291%_ + (##map list __tmp113737 _%exprs112619%_)) + (cons _%body112620%_ '()))) + _%stx112434%_))) + (_%compile-values112437%_ + (lambda (_%hd-ids112533%_ _%exprs112534%_ _%body112535%_) + (let _%lp112537%_ ((_%rest112539%_ _%hd-ids112533%_) + (_%exprs112540%_ _%exprs112534%_) + (_%bind112541%_ '()) + (_%post112542%_ '())) + (let* ((_%rest112543112557%_ _%rest112539%_) + (_%else112546112565%_ (lambda () (__SRC__% (cons 'let - (cons (reverse _%bind112267%_) - (cons (_%compile-post112164%_ - _%post112268%_ - _%body112261%_) + (cons (reverse _%bind112541%_) + (cons (_%compile-post112438%_ + _%post112542%_ + _%body112535%_) '()))) - _%stx112160%_)))) - (let ((_%K112277112327%_ - (lambda (_%rest112324%_ _%id112325%_) - (_%lp112263%_ - _%rest112324%_ - (cdr _%exprs112266%_) - (cons (cons (__compile-head-id _%id112325%_) - (cons (car _%exprs112266%_) '())) - _%bind112267%_) - _%post112268%_))) - (_%K112274112309%_ - (lambda (_%rest112295%_ _%hd112296%_) + _%stx112434%_)))) + (let ((_%K112551112601%_ + (lambda (_%rest112598%_ _%id112599%_) + (_%lp112537%_ + _%rest112598%_ + (cdr _%exprs112540%_) + (cons (cons (__compile-head-id _%id112599%_) + (cons (car _%exprs112540%_) '())) + _%bind112541%_) + _%post112542%_))) + (_%K112548112583%_ + (lambda (_%rest112569%_ _%hd112570%_) (if (let () (declare (not safe)) - (__AST-id? _%hd112296%_)) - (_%lp112263%_ - _%rest112295%_ - (cdr _%exprs112266%_) + (__AST-id? _%hd112570%_)) + (_%lp112537%_ + _%rest112569%_ + (cdr _%exprs112540%_) (cons (cons (__compile-head-id - _%hd112296%_) + _%hd112570%_) (cons (cons 'values->list - (cons (car _%exprs112266%_) + (cons (car _%exprs112540%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind112267%_) - _%post112268%_) - (if (list? _%hd112296%_) - (let* ((_%len112300%_ + _%bind112541%_) + _%post112542%_) + (if (list? _%hd112570%_) + (let* ((_%len112574%_ (let () (declare (not safe)) - (##length _%hd112296%_))) - (_%tmp112302%_ + (##length _%hd112570%_))) + (_%tmp112576%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) - (_%lp112263%_ - _%rest112295%_ - (cdr _%exprs112266%_) - (cons (cons _%tmp112302%_ - (cons (car _%exprs112266%_) + (_%lp112537%_ + _%rest112569%_ + (cdr _%exprs112540%_) + (cons (cons _%tmp112576%_ + (cons (car _%exprs112540%_) '())) - _%bind112267%_) - (cons (cons _%tmp112302%_ - (cons _%len112300%_ - (let ((__tmp113465 + _%bind112541%_) + (cons (cons _%tmp112576%_ + (cons _%len112574%_ + (let ((__tmp113739 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%id112305%_ _%k112306%_) + (lambda (_%id112579%_ _%k112580%_) (if (let () (declare (not safe)) - (__AST-e _%id112305%_)) - (cons (__SRC__0 _%id112305%_) _%k112306%_) + (__AST-e _%id112579%_)) + (cons (__SRC__0 _%id112579%_) _%k112580%_) '#f))) - (__tmp113464 + (__tmp113738 (let () (declare (not safe)) - (##iota _%len112300%_)))) + (##iota _%len112574%_)))) (declare (not safe)) - (__filter-map2 __tmp113465 _%hd112296%_ __tmp113464)))) + (__filter-map2 __tmp113739 _%hd112570%_ __tmp113738)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%post112268%_))) + _%post112542%_))) (__compile-error__% - _%stx112160%_ - _%hd112296%_)))))) + _%stx112434%_ + _%hd112570%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest112269112283%_)) - (let ((_%tl112279112332%_ + (##pair? _%rest112543112557%_)) + (let ((_%tl112553112606%_ (let () (declare (not safe)) - (##cdr _%rest112269112283%_))) - (_%hd112278112330%_ + (##cdr _%rest112543112557%_))) + (_%hd112552112604%_ (let () (declare (not safe)) - (##car _%rest112269112283%_)))) + (##car _%rest112543112557%_)))) (if (let () (declare (not safe)) - (##pair? _%hd112278112330%_)) - (let ((_%tl112281112337%_ + (##pair? _%hd112552112604%_)) + (let ((_%tl112555112611%_ (let () (declare (not safe)) - (##cdr _%hd112278112330%_))) - (_%hd112280112335%_ + (##cdr _%hd112552112604%_))) + (_%hd112554112609%_ (let () (declare (not safe)) - (##car _%hd112278112330%_)))) + (##car _%hd112552112604%_)))) (if (let () (declare (not safe)) - (##null? _%tl112281112337%_)) - (let ((_%id112340%_ - _%hd112280112335%_) - (_%rest112342%_ - _%tl112279112332%_)) - (_%K112277112327%_ - _%rest112342%_ - _%id112340%_)) - (let ((_%hd112317%_ - _%hd112278112330%_) - (_%rest112319%_ - _%tl112279112332%_)) - (_%K112274112309%_ - _%rest112319%_ - _%hd112317%_)))) - (let ((_%hd112317%_ _%hd112278112330%_) - (_%rest112319%_ _%tl112279112332%_)) - (_%K112274112309%_ - _%rest112319%_ - _%hd112317%_)))) - (_%else112272112291%_))))))) - (_%compile-post112164%_ - (lambda (_%post112166%_ _%body112167%_) - (let _%lp112169%_ ((_%rest112171%_ _%post112166%_) - (_%check112172%_ '()) - (_%bind112173%_ '())) - (let* ((_%rest112174112186%_ _%rest112171%_) - (_%else112176112194%_ + (##null? _%tl112555112611%_)) + (let ((_%id112614%_ + _%hd112554112609%_) + (_%rest112616%_ + _%tl112553112606%_)) + (_%K112551112601%_ + _%rest112616%_ + _%id112614%_)) + (let ((_%hd112591%_ + _%hd112552112604%_) + (_%rest112593%_ + _%tl112553112606%_)) + (_%K112548112583%_ + _%rest112593%_ + _%hd112591%_)))) + (let ((_%hd112591%_ _%hd112552112604%_) + (_%rest112593%_ _%tl112553112606%_)) + (_%K112548112583%_ + _%rest112593%_ + _%hd112591%_)))) + (_%else112546112565%_))))))) + (_%compile-post112438%_ + (lambda (_%post112440%_ _%body112441%_) + (let _%lp112443%_ ((_%rest112445%_ _%post112440%_) + (_%check112446%_ '()) + (_%bind112447%_ '())) + (let* ((_%rest112448112460%_ _%rest112445%_) + (_%else112450112468%_ (lambda () (__SRC__% (cons 'begin - (let ((__tmp113466 + (let ((__tmp113740 (cons (__SRC__% (cons 'let - (cons _%bind112173%_ + (cons _%bind112447%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%body112167%_ '()))) + (cons _%body112441%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx112160%_) + _%stx112434%_) '()))) (declare (not safe)) (__foldr1 cons - __tmp113466 - _%check112172%_))) - _%stx112160%_))) - (_%K112178112233%_ - (lambda (_%rest112197%_ - _%init112198%_ - _%len112199%_ - _%tmp112200%_) - (_%lp112169%_ - _%rest112197%_ + __tmp113740 + _%check112446%_))) + _%stx112434%_))) + (_%K112452112507%_ + (lambda (_%rest112471%_ + _%init112472%_ + _%len112473%_ + _%tmp112474%_) + (_%lp112443%_ + _%rest112471%_ (cons (__SRC__% (cons '__check-values - (cons _%tmp112200%_ - (cons _%len112199%_ '()))) - _%stx112160%_) - _%check112172%_) - (let ((__tmp113467 - (lambda (_%hd112202%_ _%r112203%_) - (let* ((_%hd112204112211%_ - _%hd112202%_) - (_%E112206112215%_ + (cons _%tmp112474%_ + (cons _%len112473%_ '()))) + _%stx112434%_) + _%check112446%_) + (let ((__tmp113741 + (lambda (_%hd112476%_ _%r112477%_) + (let* ((_%hd112478112485%_ + _%hd112476%_) + (_%E112480112489%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%hd112204112211%_ + _%hd112478112485%_ '([id . k]))) '#!void)) - (_%K112207112221%_ - (lambda (_%k112218%_ - _%id112219%_) - (cons (cons _%id112219%_ + (_%K112481112495%_ + (lambda (_%k112492%_ + _%id112493%_) + (cons (cons _%id112493%_ (cons (cons '##vector-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%tmp112200%_ - (cons _%k112218%_ '()))) + (cons _%tmp112474%_ + (cons _%k112492%_ '()))) '())) - _%r112203%_)))) + _%r112477%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%hd112204112211%_)) - (let ((_%hd112208112224%_ + (##pair? _%hd112478112485%_)) + (let ((_%hd112482112498%_ (let () (declare (not safe)) - (##car _%hd112204112211%_))) - (_%tl112209112226%_ + (##car _%hd112478112485%_))) + (_%tl112483112500%_ (let () (declare (not safe)) - (##cdr _%hd112204112211%_)))) - (let* ((_%id112229%_ - _%hd112208112224%_) - (_%k112231%_ - _%tl112209112226%_)) - (_%K112207112221%_ - _%k112231%_ - _%id112229%_))) - (_%E112206112215%_)))))) + (##cdr _%hd112478112485%_)))) + (let* ((_%id112503%_ + _%hd112482112498%_) + (_%k112505%_ + _%tl112483112500%_)) + (_%K112481112495%_ + _%k112505%_ + _%id112503%_))) + (_%E112480112489%_)))))) (declare (not safe)) (__foldr1 - __tmp113467 - _%bind112173%_ - _%init112198%_)))))) + __tmp113741 + _%bind112447%_ + _%init112472%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest112174112186%_)) - (let ((_%hd112179112236%_ + (##pair? _%rest112448112460%_)) + (let ((_%hd112453112510%_ (let () (declare (not safe)) - (##car _%rest112174112186%_))) - (_%tl112180112238%_ + (##car _%rest112448112460%_))) + (_%tl112454112512%_ (let () (declare (not safe)) - (##cdr _%rest112174112186%_)))) + (##cdr _%rest112448112460%_)))) (if (let () (declare (not safe)) - (##pair? _%hd112179112236%_)) - (let ((_%hd112181112241%_ + (##pair? _%hd112453112510%_)) + (let ((_%hd112455112515%_ (let () (declare (not safe)) - (##car _%hd112179112236%_))) - (_%tl112182112243%_ + (##car _%hd112453112510%_))) + (_%tl112456112517%_ (let () (declare (not safe)) - (##cdr _%hd112179112236%_)))) - (let ((_%tmp112246%_ _%hd112181112241%_)) + (##cdr _%hd112453112510%_)))) + (let ((_%tmp112520%_ _%hd112455112515%_)) (if (let () (declare (not safe)) - (##pair? _%tl112182112243%_)) - (let ((_%hd112183112248%_ + (##pair? _%tl112456112517%_)) + (let ((_%hd112457112522%_ (let () (declare (not safe)) - (##car _%tl112182112243%_))) - (_%tl112184112250%_ + (##car _%tl112456112517%_))) + (_%tl112458112524%_ (let () (declare (not safe)) - (##cdr _%tl112182112243%_)))) - (let* ((_%len112253%_ - _%hd112183112248%_) - (_%init112255%_ - _%tl112184112250%_) - (_%rest112257%_ - _%tl112180112238%_)) - (_%K112178112233%_ - _%rest112257%_ - _%init112255%_ - _%len112253%_ - _%tmp112246%_))) - (_%else112176112194%_)))) - (_%else112176112194%_))) - (_%else112176112194%_))))))) + (##cdr _%tl112456112517%_)))) + (let* ((_%len112527%_ + _%hd112457112522%_) + (_%init112529%_ + _%tl112458112524%_) + (_%rest112531%_ + _%tl112454112512%_)) + (_%K112452112507%_ + _%rest112531%_ + _%init112529%_ + _%len112527%_ + _%tmp112520%_))) + (_%else112450112468%_)))) + (_%else112450112468%_))) + (_%else112450112468%_))))))) (__compile-let-form - _%stx112160%_ - _%compile-simple112162%_ - _%compile-values112163%_)))) + _%stx112434%_ + _%compile-simple112436%_ + _%compile-values112437%_)))) (define __compile-letrec-values% - (lambda (_%stx111957%_) - (letrec ((_%compile-simple111959%_ - (lambda (_%hd-ids112156%_ _%exprs112157%_ _%body112158%_) + (lambda (_%stx112231%_) + (letrec ((_%compile-simple112233%_ + (lambda (_%hd-ids112430%_ _%exprs112431%_ _%body112432%_) (__SRC__% (cons 'letrec - (cons (let ((__tmp113468 + (cons (let ((__tmp113742 (map __compile-head-id - _%hd-ids112156%_))) + _%hd-ids112430%_))) (declare (not safe)) - (##map list __tmp113468 _%exprs112157%_)) - (cons _%body112158%_ '()))) - _%stx111957%_))) - (_%compile-values111960%_ - (lambda (_%hd-ids112067%_ _%exprs112068%_ _%body112069%_) - (let _%lp112071%_ ((_%rest112073%_ _%hd-ids112067%_) - (_%exprs112074%_ _%exprs112068%_) - (_%pre112075%_ '()) - (_%bind112076%_ '()) - (_%post112077%_ '())) - (let* ((_%rest112078112092%_ _%rest112073%_) - (_%else112081112100%_ + (##map list __tmp113742 _%exprs112431%_)) + (cons _%body112432%_ '()))) + _%stx112231%_))) + (_%compile-values112234%_ + (lambda (_%hd-ids112341%_ _%exprs112342%_ _%body112343%_) + (let _%lp112345%_ ((_%rest112347%_ _%hd-ids112341%_) + (_%exprs112348%_ _%exprs112342%_) + (_%pre112349%_ '()) + (_%bind112350%_ '()) + (_%post112351%_ '())) + (let* ((_%rest112352112366%_ _%rest112347%_) + (_%else112355112374%_ (lambda () - (_%compile-inner111961%_ - _%pre112075%_ - _%bind112076%_ - _%post112077%_ - _%body112069%_)))) - (let ((_%K112086112139%_ - (lambda (_%rest112136%_ _%id112137%_) - (_%lp112071%_ - _%rest112136%_ - (cdr _%exprs112074%_) - _%pre112075%_ - (cons (cons (__compile-head-id _%id112137%_) - (cons (car _%exprs112074%_) '())) - _%bind112076%_) - _%post112077%_))) - (_%K112083112121%_ - (lambda (_%rest112104%_ _%hd112105%_) + (_%compile-inner112235%_ + _%pre112349%_ + _%bind112350%_ + _%post112351%_ + _%body112343%_)))) + (let ((_%K112360112413%_ + (lambda (_%rest112410%_ _%id112411%_) + (_%lp112345%_ + _%rest112410%_ + (cdr _%exprs112348%_) + _%pre112349%_ + (cons (cons (__compile-head-id _%id112411%_) + (cons (car _%exprs112348%_) '())) + _%bind112350%_) + _%post112351%_))) + (_%K112357112395%_ + (lambda (_%rest112378%_ _%hd112379%_) (if (let () (declare (not safe)) - (__AST-id? _%hd112105%_)) - (_%lp112071%_ - _%rest112104%_ - (cdr _%exprs112074%_) - _%pre112075%_ + (__AST-id? _%hd112379%_)) + (_%lp112345%_ + _%rest112378%_ + (cdr _%exprs112348%_) + _%pre112349%_ (cons (cons (__compile-head-id - _%hd112105%_) + _%hd112379%_) (cons (cons 'values->list - (cons (car _%exprs112074%_) + (cons (car _%exprs112348%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind112076%_) - _%post112077%_) - (if (list? _%hd112105%_) - (let* ((_%len112109%_ + _%bind112350%_) + _%post112351%_) + (if (list? _%hd112379%_) + (let* ((_%len112383%_ (let () (declare (not safe)) - (##length _%hd112105%_))) - (_%tmp112111%_ + (##length _%hd112379%_))) + (_%tmp112385%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) - (_%lp112071%_ - _%rest112104%_ - (cdr _%exprs112074%_) - (let ((__tmp113469 - (lambda (_%id112114%_ - _%r112115%_) + (_%lp112345%_ + _%rest112378%_ + (cdr _%exprs112348%_) + (let ((__tmp113743 + (lambda (_%id112388%_ + _%r112389%_) (if (let () (declare (not safe)) - (__AST-e _%id112114%_)) + (__AST-e _%id112388%_)) (cons (cons (__SRC__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id112114%_) + _%id112388%_) (cons (cons 'quote (cons '#!void '())) '())) - _%r112115%_) - _%r112115%_)))) + _%r112389%_) + _%r112389%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 - __tmp113469 - _%pre112075%_ - _%hd112105%_)) - (cons (cons _%tmp112111%_ - (cons (car _%exprs112074%_) + __tmp113743 + _%pre112349%_ + _%hd112379%_)) + (cons (cons _%tmp112385%_ + (cons (car _%exprs112348%_) '())) - _%bind112076%_) - (cons (cons _%tmp112111%_ - (cons _%len112109%_ - (let ((__tmp113471 + _%bind112350%_) + (cons (cons _%tmp112385%_ + (cons _%len112383%_ + (let ((__tmp113745 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%id112117%_ _%k112118%_) + (lambda (_%id112391%_ _%k112392%_) (if (let () (declare (not safe)) - (__AST-e _%id112117%_)) - (cons (__SRC__0 _%id112117%_) _%k112118%_) + (__AST-e _%id112391%_)) + (cons (__SRC__0 _%id112391%_) _%k112392%_) '#f))) - (__tmp113470 + (__tmp113744 (let () (declare (not safe)) - (##iota _%len112109%_)))) + (##iota _%len112383%_)))) (declare (not safe)) - (__filter-map2 __tmp113471 _%hd112105%_ __tmp113470)))) + (__filter-map2 __tmp113745 _%hd112379%_ __tmp113744)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%post112077%_))) + _%post112351%_))) (__compile-error__% - _%stx111957%_ - _%hd112105%_)))))) + _%stx112231%_ + _%hd112379%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest112078112092%_)) - (let ((_%tl112088112144%_ + (##pair? _%rest112352112366%_)) + (let ((_%tl112362112418%_ (let () (declare (not safe)) - (##cdr _%rest112078112092%_))) - (_%hd112087112142%_ + (##cdr _%rest112352112366%_))) + (_%hd112361112416%_ (let () (declare (not safe)) - (##car _%rest112078112092%_)))) + (##car _%rest112352112366%_)))) (if (let () (declare (not safe)) - (##pair? _%hd112087112142%_)) - (let ((_%tl112090112149%_ + (##pair? _%hd112361112416%_)) + (let ((_%tl112364112423%_ (let () (declare (not safe)) - (##cdr _%hd112087112142%_))) - (_%hd112089112147%_ + (##cdr _%hd112361112416%_))) + (_%hd112363112421%_ (let () (declare (not safe)) - (##car _%hd112087112142%_)))) + (##car _%hd112361112416%_)))) (if (let () (declare (not safe)) - (##null? _%tl112090112149%_)) - (let ((_%id112152%_ - _%hd112089112147%_) - (_%rest112154%_ - _%tl112088112144%_)) - (_%K112086112139%_ - _%rest112154%_ - _%id112152%_)) - (let ((_%hd112129%_ - _%hd112087112142%_) - (_%rest112131%_ - _%tl112088112144%_)) - (_%K112083112121%_ - _%rest112131%_ - _%hd112129%_)))) - (let ((_%hd112129%_ _%hd112087112142%_) - (_%rest112131%_ _%tl112088112144%_)) - (_%K112083112121%_ - _%rest112131%_ - _%hd112129%_)))) - (_%else112081112100%_))))))) - (_%compile-inner111961%_ - (lambda (_%pre112062%_ - _%bind112063%_ - _%post112064%_ - _%body112065%_) - (if (null? _%pre112062%_) - (_%compile-bind111962%_ - _%bind112063%_ - _%post112064%_ - _%body112065%_) + (##null? _%tl112364112423%_)) + (let ((_%id112426%_ + _%hd112363112421%_) + (_%rest112428%_ + _%tl112362112418%_)) + (_%K112360112413%_ + _%rest112428%_ + _%id112426%_)) + (let ((_%hd112403%_ + _%hd112361112416%_) + (_%rest112405%_ + _%tl112362112418%_)) + (_%K112357112395%_ + _%rest112405%_ + _%hd112403%_)))) + (let ((_%hd112403%_ _%hd112361112416%_) + (_%rest112405%_ _%tl112362112418%_)) + (_%K112357112395%_ + _%rest112405%_ + _%hd112403%_)))) + (_%else112355112374%_))))))) + (_%compile-inner112235%_ + (lambda (_%pre112336%_ + _%bind112337%_ + _%post112338%_ + _%body112339%_) + (if (null? _%pre112336%_) + (_%compile-bind112236%_ + _%bind112337%_ + _%post112338%_ + _%body112339%_) (__SRC__% (cons 'let - (cons (reverse _%pre112062%_) - (cons (_%compile-bind111962%_ - _%bind112063%_ - _%post112064%_ - _%body112065%_) + (cons (reverse _%pre112336%_) + (cons (_%compile-bind112236%_ + _%bind112337%_ + _%post112338%_ + _%body112339%_) '()))) - _%stx111957%_)))) - (_%compile-bind111962%_ - (lambda (_%bind112058%_ _%post112059%_ _%body112060%_) + _%stx112231%_)))) + (_%compile-bind112236%_ + (lambda (_%bind112332%_ _%post112333%_ _%body112334%_) (__SRC__% (cons 'letrec - (cons (reverse _%bind112058%_) - (cons (_%compile-post111963%_ - _%post112059%_ - _%body112060%_) + (cons (reverse _%bind112332%_) + (cons (_%compile-post112237%_ + _%post112333%_ + _%body112334%_) '()))) - _%stx111957%_))) - (_%compile-post111963%_ - (lambda (_%post111965%_ _%body111966%_) - (let _%lp111968%_ ((_%rest111970%_ _%post111965%_) - (_%check111971%_ '()) - (_%bind111972%_ '())) - (let* ((_%rest111973111985%_ _%rest111970%_) - (_%else111975111993%_ + _%stx112231%_))) + (_%compile-post112237%_ + (lambda (_%post112239%_ _%body112240%_) + (let _%lp112242%_ ((_%rest112244%_ _%post112239%_) + (_%check112245%_ '()) + (_%bind112246%_ '())) + (let* ((_%rest112247112259%_ _%rest112244%_) + (_%else112249112267%_ (lambda () (__SRC__% (cons 'begin - (let ((__tmp113472 - (let ((__tmp113473 - (cons _%body111966%_ + (let ((__tmp113746 + (let ((__tmp113747 + (cons _%body112240%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp113473 - _%bind111972%_)))) + __tmp113747 + _%bind112246%_)))) (declare (not safe)) (__foldr1 cons - __tmp113472 - _%check111971%_))) - _%stx111957%_))) - (_%K111977112032%_ - (lambda (_%rest111996%_ - _%init111997%_ - _%len111998%_ - _%tmp111999%_) - (_%lp111968%_ - _%rest111996%_ + __tmp113746 + _%check112245%_))) + _%stx112231%_))) + (_%K112251112306%_ + (lambda (_%rest112270%_ + _%init112271%_ + _%len112272%_ + _%tmp112273%_) + (_%lp112242%_ + _%rest112270%_ (cons (__SRC__% (cons '__check-values - (cons _%tmp111999%_ - (cons _%len111998%_ '()))) - _%stx111957%_) - _%check111971%_) - (let ((__tmp113474 - (lambda (_%hd112001%_ _%r112002%_) - (let* ((_%hd112003112010%_ - _%hd112001%_) - (_%E112005112014%_ + (cons _%tmp112273%_ + (cons _%len112272%_ '()))) + _%stx112231%_) + _%check112245%_) + (let ((__tmp113748 + (lambda (_%hd112275%_ _%r112276%_) + (let* ((_%hd112277112284%_ + _%hd112275%_) + (_%E112279112288%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%hd112003112010%_ + _%hd112277112284%_ '([id . k]))) '#!void)) - (_%K112006112020%_ - (lambda (_%k112017%_ - _%id112018%_) + (_%K112280112294%_ + (lambda (_%k112291%_ + _%id112292%_) (cons (cons 'set! - (cons _%id112018%_ + (cons _%id112292%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '##vector-ref - (cons _%tmp111999%_ - (cons _%k112017%_ '()))) + (cons _%tmp112273%_ + (cons _%k112291%_ '()))) '()))) - _%r112002%_)))) + _%r112276%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _%hd112003112010%_)) - (let ((_%hd112007112023%_ + (##pair? _%hd112277112284%_)) + (let ((_%hd112281112297%_ (let () (declare (not safe)) - (##car _%hd112003112010%_))) - (_%tl112008112025%_ + (##car _%hd112277112284%_))) + (_%tl112282112299%_ (let () (declare (not safe)) - (##cdr _%hd112003112010%_)))) - (let* ((_%id112028%_ - _%hd112007112023%_) - (_%k112030%_ - _%tl112008112025%_)) - (_%K112006112020%_ - _%k112030%_ - _%id112028%_))) - (_%E112005112014%_)))))) + (##cdr _%hd112277112284%_)))) + (let* ((_%id112302%_ + _%hd112281112297%_) + (_%k112304%_ + _%tl112282112299%_)) + (_%K112280112294%_ + _%k112304%_ + _%id112302%_))) + (_%E112279112288%_)))))) (declare (not safe)) (__foldr1 - __tmp113474 - _%bind111972%_ - _%init111997%_)))))) + __tmp113748 + _%bind112246%_ + _%init112271%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest111973111985%_)) - (let ((_%hd111978112035%_ + (##pair? _%rest112247112259%_)) + (let ((_%hd112252112309%_ (let () (declare (not safe)) - (##car _%rest111973111985%_))) - (_%tl111979112037%_ + (##car _%rest112247112259%_))) + (_%tl112253112311%_ (let () (declare (not safe)) - (##cdr _%rest111973111985%_)))) + (##cdr _%rest112247112259%_)))) (if (let () (declare (not safe)) - (##pair? _%hd111978112035%_)) - (let ((_%hd111980112040%_ + (##pair? _%hd112252112309%_)) + (let ((_%hd112254112314%_ (let () (declare (not safe)) - (##car _%hd111978112035%_))) - (_%tl111981112042%_ + (##car _%hd112252112309%_))) + (_%tl112255112316%_ (let () (declare (not safe)) - (##cdr _%hd111978112035%_)))) - (let ((_%tmp112045%_ _%hd111980112040%_)) + (##cdr _%hd112252112309%_)))) + (let ((_%tmp112319%_ _%hd112254112314%_)) (if (let () (declare (not safe)) - (##pair? _%tl111981112042%_)) - (let ((_%hd111982112047%_ + (##pair? _%tl112255112316%_)) + (let ((_%hd112256112321%_ (let () (declare (not safe)) - (##car _%tl111981112042%_))) - (_%tl111983112049%_ + (##car _%tl112255112316%_))) + (_%tl112257112323%_ (let () (declare (not safe)) - (##cdr _%tl111981112042%_)))) - (let* ((_%len112052%_ - _%hd111982112047%_) - (_%init112054%_ - _%tl111983112049%_) - (_%rest112056%_ - _%tl111979112037%_)) - (_%K111977112032%_ - _%rest112056%_ - _%init112054%_ - _%len112052%_ - _%tmp112045%_))) - (_%else111975111993%_)))) - (_%else111975111993%_))) - (_%else111975111993%_))))))) + (##cdr _%tl112255112316%_)))) + (let* ((_%len112326%_ + _%hd112256112321%_) + (_%init112328%_ + _%tl112257112323%_) + (_%rest112330%_ + _%tl112253112311%_)) + (_%K112251112306%_ + _%rest112330%_ + _%init112328%_ + _%len112326%_ + _%tmp112319%_))) + (_%else112249112267%_)))) + (_%else112249112267%_))) + (_%else112249112267%_))))))) (__compile-let-form - _%stx111957%_ - _%compile-simple111959%_ - _%compile-values111960%_)))) + _%stx112231%_ + _%compile-simple112233%_ + _%compile-values112234%_)))) (define __compile-letrec*-values% - (lambda (_%stx111708%_) - (letrec ((_%compile-simple111710%_ - (lambda (_%hd-ids111953%_ _%exprs111954%_ _%body111955%_) + (lambda (_%stx111982%_) + (letrec ((_%compile-simple111984%_ + (lambda (_%hd-ids112227%_ _%exprs112228%_ _%body112229%_) (__SRC__% (cons 'letrec* - (cons (let ((__tmp113475 + (cons (let ((__tmp113749 (map __compile-head-id - _%hd-ids111953%_))) + _%hd-ids112227%_))) (declare (not safe)) - (##map list __tmp113475 _%exprs111954%_)) - (cons _%body111955%_ '()))) - _%stx111708%_))) - (_%compile-values111711%_ - (lambda (_%hd-ids111860%_ _%exprs111861%_ _%body111862%_) - (let _%lp111864%_ ((_%rest111866%_ _%hd-ids111860%_) - (_%exprs111867%_ _%exprs111861%_) - (_%bind111868%_ '()) - (_%post111869%_ '())) - (let* ((_%rest111870111884%_ _%rest111866%_) - (_%else111873111892%_ + (##map list __tmp113749 _%exprs112228%_)) + (cons _%body112229%_ '()))) + _%stx111982%_))) + (_%compile-values111985%_ + (lambda (_%hd-ids112134%_ _%exprs112135%_ _%body112136%_) + (let _%lp112138%_ ((_%rest112140%_ _%hd-ids112134%_) + (_%exprs112141%_ _%exprs112135%_) + (_%bind112142%_ '()) + (_%post112143%_ '())) + (let* ((_%rest112144112158%_ _%rest112140%_) + (_%else112147112166%_ (lambda () - (_%compile-bind111712%_ - _%bind111868%_ - _%post111869%_ - _%body111862%_)))) - (let ((_%K111878111936%_ - (lambda (_%rest111931%_ _%hd111932%_) + (_%compile-bind111986%_ + _%bind112142%_ + _%post112143%_ + _%body112136%_)))) + (let ((_%K112152112210%_ + (lambda (_%rest112205%_ _%hd112206%_) (if (let () (declare (not safe)) - (__AST-id? _%hd111932%_)) - (let ((_%id111934%_ - (__SRC__0 _%hd111932%_))) - (_%lp111864%_ - _%rest111931%_ - (cdr _%exprs111867%_) - (cons (cons _%id111934%_ + (__AST-id? _%hd112206%_)) + (let ((_%id112208%_ + (__SRC__0 _%hd112206%_))) + (_%lp112138%_ + _%rest112205%_ + (cdr _%exprs112141%_) + (cons (cons _%id112208%_ (cons (cons 'quote (cons '#!void ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind111868%_) - (cons (cons _%id111934%_ - (cons (car _%exprs111867%_) + _%bind112142%_) + (cons (cons _%id112208%_ + (cons (car _%exprs112141%_) '())) - _%post111869%_))) - (_%lp111864%_ - _%rest111931%_ - (cdr _%exprs111867%_) - _%bind111868%_ + _%post112143%_))) + (_%lp112138%_ + _%rest112205%_ + (cdr _%exprs112141%_) + _%bind112142%_ (cons (cons '#f - (cons (car _%exprs111867%_) + (cons (car _%exprs112141%_) '())) - _%post111869%_))))) - (_%K111875111916%_ - (lambda (_%rest111896%_ _%hd111897%_) + _%post112143%_))))) + (_%K112149112190%_ + (lambda (_%rest112170%_ _%hd112171%_) (if (let () (declare (not safe)) - (__AST-id? _%hd111897%_)) - (let ((_%id111900%_ - (__SRC__0 _%hd111897%_))) - (_%lp111864%_ - _%rest111896%_ - (cdr _%exprs111867%_) - (cons (cons _%id111900%_ + (__AST-id? _%hd112171%_)) + (let ((_%id112174%_ + (__SRC__0 _%hd112171%_))) + (_%lp112138%_ + _%rest112170%_ + (cdr _%exprs112141%_) + (cons (cons _%id112174%_ (cons (cons 'quote (cons '#!void ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind111868%_) - (cons (cons _%id111900%_ + _%bind112142%_) + (cons (cons _%id112174%_ (cons (cons 'values->list - (cons (car _%exprs111867%_) + (cons (car _%exprs112141%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%post111869%_))) + _%post112143%_))) (if (let () (declare (not safe)) - (__AST-e _%hd111897%_)) - (if (list? _%hd111897%_) - (let* ((_%len111904%_ + (__AST-e _%hd112171%_)) + (if (list? _%hd112171%_) + (let* ((_%len112178%_ (let () (declare (not safe)) (##length - _%hd111897%_))) - (_%tmp111906%_ + _%hd112171%_))) + (_%tmp112180%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) - (_%lp111864%_ - _%rest111896%_ - (cdr _%exprs111867%_) - (let ((__tmp113476 - (lambda (_%id111909%_ - _%r111910%_) + (_%lp112138%_ + _%rest112170%_ + (cdr _%exprs112141%_) + (let ((__tmp113750 + (lambda (_%id112183%_ + _%r112184%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (__AST-e _%id111909%_)) - (cons (cons (__SRC__0 _%id111909%_) + (__AST-e _%id112183%_)) + (cons (cons (__SRC__0 _%id112183%_) (cons (cons 'quote (cons '#!void '())) '())) - _%r111910%_) - _%r111910%_)))) + _%r112184%_) + _%r112184%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 - __tmp113476 - _%bind111868%_ - _%hd111897%_)) - (cons (cons _%tmp111906%_ - (cons (car _%exprs111867%_) + __tmp113750 + _%bind112142%_ + _%hd112171%_)) + (cons (cons _%tmp112180%_ + (cons (car _%exprs112141%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%len111904%_ - (let ((__tmp113478 - (lambda (_%id111912%_ _%k111913%_) + (cons _%len112178%_ + (let ((__tmp113752 + (lambda (_%id112186%_ _%k112187%_) (if (let () (declare (not safe)) - (__AST-e _%id111912%_)) - (cons (__SRC__0 _%id111912%_) - _%k111913%_) + (__AST-e _%id112186%_)) + (cons (__SRC__0 _%id112186%_) + _%k112187%_) '#f))) - (__tmp113477 + (__tmp113751 (let () (declare (not safe)) - (##iota _%len111904%_)))) + (##iota _%len112178%_)))) (declare (not safe)) (__filter-map2 - __tmp113478 - _%hd111897%_ - __tmp113477))))) - _%post111869%_))) + __tmp113752 + _%hd112171%_ + __tmp113751))))) + _%post112143%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (__compile-error__% - _%stx111708%_ - _%hd111897%_)) - (_%lp111864%_ - _%rest111896%_ - (cdr _%exprs111867%_) - _%bind111868%_ + _%stx111982%_ + _%hd112171%_)) + (_%lp112138%_ + _%rest112170%_ + (cdr _%exprs112141%_) + _%bind112142%_ (cons (cons '#f - (cons (car _%exprs111867%_) + (cons (car _%exprs112141%_) '())) - _%post111869%_))))))) + _%post112143%_))))))) (if (let () (declare (not safe)) - (##pair? _%rest111870111884%_)) - (let ((_%tl111880111941%_ + (##pair? _%rest112144112158%_)) + (let ((_%tl112154112215%_ (let () (declare (not safe)) - (##cdr _%rest111870111884%_))) - (_%hd111879111939%_ + (##cdr _%rest112144112158%_))) + (_%hd112153112213%_ (let () (declare (not safe)) - (##car _%rest111870111884%_)))) + (##car _%rest112144112158%_)))) (if (let () (declare (not safe)) - (##pair? _%hd111879111939%_)) - (let ((_%tl111882111946%_ + (##pair? _%hd112153112213%_)) + (let ((_%tl112156112220%_ (let () (declare (not safe)) - (##cdr _%hd111879111939%_))) - (_%hd111881111944%_ + (##cdr _%hd112153112213%_))) + (_%hd112155112218%_ (let () (declare (not safe)) - (##car _%hd111879111939%_)))) + (##car _%hd112153112213%_)))) (if (let () (declare (not safe)) - (##null? _%tl111882111946%_)) - (let ((_%hd111949%_ - _%hd111881111944%_) - (_%rest111951%_ - _%tl111880111941%_)) - (_%K111878111936%_ - _%rest111951%_ - _%hd111949%_)) - (let ((_%hd111924%_ - _%hd111879111939%_) - (_%rest111926%_ - _%tl111880111941%_)) - (_%K111875111916%_ - _%rest111926%_ - _%hd111924%_)))) - (let ((_%hd111924%_ _%hd111879111939%_) - (_%rest111926%_ _%tl111880111941%_)) - (_%K111875111916%_ - _%rest111926%_ - _%hd111924%_)))) - (_%else111873111892%_))))))) - (_%compile-bind111712%_ - (lambda (_%bind111856%_ _%post111857%_ _%body111858%_) + (##null? _%tl112156112220%_)) + (let ((_%hd112223%_ + _%hd112155112218%_) + (_%rest112225%_ + _%tl112154112215%_)) + (_%K112152112210%_ + _%rest112225%_ + _%hd112223%_)) + (let ((_%hd112198%_ + _%hd112153112213%_) + (_%rest112200%_ + _%tl112154112215%_)) + (_%K112149112190%_ + _%rest112200%_ + _%hd112198%_)))) + (let ((_%hd112198%_ _%hd112153112213%_) + (_%rest112200%_ _%tl112154112215%_)) + (_%K112149112190%_ + _%rest112200%_ + _%hd112198%_)))) + (_%else112147112166%_))))))) + (_%compile-bind111986%_ + (lambda (_%bind112130%_ _%post112131%_ _%body112132%_) (__SRC__% (cons 'let - (cons (reverse _%bind111856%_) - (cons (_%compile-post111713%_ - _%post111857%_ - _%body111858%_) + (cons (reverse _%bind112130%_) + (cons (_%compile-post111987%_ + _%post112131%_ + _%body112132%_) '()))) - _%stx111708%_))) - (_%compile-post111713%_ - (lambda (_%post111715%_ _%body111716%_) + _%stx111982%_))) + (_%compile-post111987%_ + (lambda (_%post111989%_ _%body111990%_) (__SRC__% (cons 'begin - (let ((__tmp113479 - (let ((__tmp113481 - (lambda (_%hd111718%_ _%r111719%_) - (let* ((_%hd111720111743%_ - _%hd111718%_) - (_%E111724111747%_ + (let ((__tmp113753 + (let ((__tmp113755 + (lambda (_%hd111992%_ _%r111993%_) + (let* ((_%hd111994112017%_ + _%hd111992%_) + (_%E111998112021%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%hd111720111743%_ + _%hd111994112017%_ '([#f expr]) '([id expr]) '([tmp @@ -2241,567 +2241,567 @@ init]))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#!void))) - (let ((_%K111737111841%_ - (lambda (_%expr111839%_) - (cons _%expr111839%_ - _%r111719%_))) - (_%K111732111819%_ - (lambda (_%expr111816%_ - _%id111817%_) + (let ((_%K112011112115%_ + (lambda (_%expr112113%_) + (cons _%expr112113%_ + _%r111993%_))) + (_%K112006112093%_ + (lambda (_%expr112090%_ + _%id112091%_) (cons (__SRC__% (cons 'set! ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id111817%_ (cons _%expr111816%_ '()))) - _%stx111708%_) - _%r111719%_))) + (cons _%id112091%_ (cons _%expr112090%_ '()))) + _%stx111982%_) + _%r111993%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K111725111786%_ - (lambda (_%init111751%_ - _%len111752%_ - _%expr111753%_ - _%tmp111754%_) + (_%K111999112060%_ + (lambda (_%init112025%_ + _%len112026%_ + _%expr112027%_ + _%tmp112028%_) (cons (__SRC__% (cons 'let ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons _%tmp111754%_ - (cons _%expr111753%_ '())) + (cons (cons (cons _%tmp112028%_ + (cons _%expr112027%_ '())) '()) (cons (__SRC__% (cons '__check-values - (cons _%tmp111754%_ - (cons _%len111752%_ '()))) - _%stx111708%_) - (let ((__tmp113482 - (map (lambda (_%hd111756%_) - (let* ((_%hd111757111764%_ - _%hd111756%_) - (_%E111759111768%_ + (cons _%tmp112028%_ + (cons _%len112026%_ '()))) + _%stx111982%_) + (let ((__tmp113756 + (map (lambda (_%hd112030%_) + (let* ((_%hd112031112038%_ + _%hd112030%_) + (_%E112033112042%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (error '"No clause matching" - _%hd111757111764%_ + _%hd112031112038%_ '([id . k]))) '#!void)) - (_%K111760111774%_ - (lambda (_%k111771%_ _%id111772%_) + (_%K112034112048%_ + (lambda (_%k112045%_ _%id112046%_) (__SRC__% (cons 'set! - (cons _%id111772%_ + (cons _%id112046%_ (cons (cons '##vector-ref - (cons _%tmp111754%_ - (cons _%k111771%_ '()))) + (cons _%tmp112028%_ + (cons _%k112045%_ '()))) '()))) - _%stx111708%_)))) - (if (let () (declare (not safe)) (##pair? _%hd111757111764%_)) - (let ((_%hd111761111777%_ + _%stx111982%_)))) + (if (let () (declare (not safe)) (##pair? _%hd112031112038%_)) + (let ((_%hd112035112051%_ (let () (declare (not safe)) - (##car _%hd111757111764%_))) - (_%tl111762111779%_ + (##car _%hd112031112038%_))) + (_%tl112036112053%_ (let () (declare (not safe)) - (##cdr _%hd111757111764%_)))) - (let* ((_%id111782%_ _%hd111761111777%_) - (_%k111784%_ _%tl111762111779%_)) - (_%K111760111774%_ _%k111784%_ _%id111782%_))) - (_%E111759111768%_)))) + (##cdr _%hd112031112038%_)))) + (let* ((_%id112056%_ _%hd112035112051%_) + (_%k112058%_ _%tl112036112053%_)) + (_%K112034112048%_ _%k112058%_ _%id112056%_))) + (_%E112033112042%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%init111751%_))) + _%init112025%_))) (declare (not safe)) - (__foldr1 cons '() __tmp113482))))) - _%stx111708%_) - _%r111719%_)))) + (__foldr1 cons '() __tmp113756))))) + _%stx111982%_) + _%r111993%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__match113335113336%_ - (lambda (_%hd111726111789%_ - _%tl111727111791%_ - _%hd111728111796%_ - _%tl111729111798%_) - (let ((_%tmp111794%_ - _%hd111726111789%_) - (_%expr111801%_ - _%hd111728111796%_)) - (_%E111724111747%_)))) - (_%__match113329113330%_ - (lambda (_%hd111726111789%_ - _%tl111727111791%_) - (let ((_%tmp111794%_ - _%hd111726111789%_)) - (_%E111724111747%_))))) + (let* ((_%__match113609113610%_ + (lambda (_%hd112000112063%_ + _%tl112001112065%_ + _%hd112002112070%_ + _%tl112003112072%_) + (let ((_%tmp112068%_ + _%hd112000112063%_) + (_%expr112075%_ + _%hd112002112070%_)) + (_%E111998112021%_)))) + (_%__match113603113604%_ + (lambda (_%hd112000112063%_ + _%tl112001112065%_) + (let ((_%tmp112068%_ + _%hd112000112063%_)) + (_%E111998112021%_))))) (if (let () (declare (not safe)) - (##pair? _%hd111720111743%_)) - (let ((_%tl111739111846%_ + (##pair? _%hd111994112017%_)) + (let ((_%tl112013112120%_ (let () (declare (not safe)) - (##cdr _%hd111720111743%_))) - (_%hd111738111844%_ + (##cdr _%hd111994112017%_))) + (_%hd112012112118%_ (let () (declare (not safe)) - (##car _%hd111720111743%_)))) + (##car _%hd111994112017%_)))) (if (let () (declare (not safe)) - (##eq? _%hd111738111844%_ + (##eq? _%hd112012112118%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f)) (if (let () (declare (not safe)) - (##pair? _%tl111739111846%_)) - (let ((_%tl111741111851%_ + (##pair? _%tl112013112120%_)) + (let ((_%tl112015112125%_ (let () (declare (not safe)) - (##cdr _%tl111739111846%_))) - (_%hd111740111849%_ + (##cdr _%tl112013112120%_))) + (_%hd112014112123%_ (let () (declare (not safe)) - (##car _%tl111739111846%_)))) + (##car _%tl112013112120%_)))) (if (let () (declare (not safe)) - (##null? _%tl111741111851%_)) - (let ((_%expr111854%_ _%hd111740111849%_)) - (_%K111737111841%_ _%expr111854%_)) + (##null? _%tl112015112125%_)) + (let ((_%expr112128%_ _%hd112014112123%_)) + (_%K112011112115%_ _%expr112128%_)) (if (let () (declare (not safe)) - (##pair? _%tl111741111851%_)) - (let ((_%tl111731111805%_ + (##pair? _%tl112015112125%_)) + (let ((_%tl112005112079%_ (let () (declare (not safe)) - (##cdr _%tl111741111851%_))) - (_%hd111730111803%_ + (##cdr _%tl112015112125%_))) + (_%hd112004112077%_ (let () (declare (not safe)) - (##car _%tl111741111851%_)))) - (let ((_%tmp111794%_ _%hd111738111844%_) - (_%expr111801%_ _%hd111740111849%_) - (_%len111808%_ _%hd111730111803%_) - (_%init111810%_ _%tl111731111805%_)) - (_%K111725111786%_ - _%init111810%_ - _%len111808%_ - _%expr111801%_ - _%tmp111794%_))) - (_%__match113335113336%_ - _%hd111738111844%_ - _%tl111739111846%_ - _%hd111740111849%_ - _%tl111741111851%_)))) - (_%__match113329113330%_ - _%hd111738111844%_ - _%tl111739111846%_)) + (##car _%tl112015112125%_)))) + (let ((_%tmp112068%_ _%hd112012112118%_) + (_%expr112075%_ _%hd112014112123%_) + (_%len112082%_ _%hd112004112077%_) + (_%init112084%_ _%tl112005112079%_)) + (_%K111999112060%_ + _%init112084%_ + _%len112082%_ + _%expr112075%_ + _%tmp112068%_))) + (_%__match113609113610%_ + _%hd112012112118%_ + _%tl112013112120%_ + _%hd112014112123%_ + _%tl112015112125%_)))) + (_%__match113603113604%_ + _%hd112012112118%_ + _%tl112013112120%_)) (if (let () (declare (not safe)) - (##pair? _%tl111739111846%_)) - (let ((_%tl111736111831%_ + (##pair? _%tl112013112120%_)) + (let ((_%tl112010112105%_ (let () (declare (not safe)) - (##cdr _%tl111739111846%_))) - (_%hd111735111829%_ + (##cdr _%tl112013112120%_))) + (_%hd112009112103%_ (let () (declare (not safe)) - (##car _%tl111739111846%_)))) + (##car _%tl112013112120%_)))) (if (let () (declare (not safe)) - (##null? _%tl111736111831%_)) - (let ((_%id111827%_ _%hd111738111844%_) - (_%expr111834%_ _%hd111735111829%_)) - (_%K111732111819%_ _%expr111834%_ _%id111827%_)) + (##null? _%tl112010112105%_)) + (let ((_%id112101%_ _%hd112012112118%_) + (_%expr112108%_ _%hd112009112103%_)) + (_%K112006112093%_ _%expr112108%_ _%id112101%_)) (if (let () (declare (not safe)) - (##pair? _%tl111736111831%_)) - (let ((_%tl111731111805%_ + (##pair? _%tl112010112105%_)) + (let ((_%tl112005112079%_ (let () (declare (not safe)) - (##cdr _%tl111736111831%_))) - (_%hd111730111803%_ + (##cdr _%tl112010112105%_))) + (_%hd112004112077%_ (let () (declare (not safe)) - (##car _%tl111736111831%_)))) - (let ((_%tmp111794%_ _%hd111738111844%_) - (_%expr111801%_ _%hd111735111829%_) - (_%len111808%_ _%hd111730111803%_) - (_%init111810%_ _%tl111731111805%_)) - (_%K111725111786%_ - _%init111810%_ - _%len111808%_ - _%expr111801%_ - _%tmp111794%_))) - (_%__match113335113336%_ - _%hd111738111844%_ - _%tl111739111846%_ - _%hd111735111829%_ - _%tl111736111831%_)))) - (_%__match113329113330%_ - _%hd111738111844%_ - _%tl111739111846%_)))) + (##car _%tl112010112105%_)))) + (let ((_%tmp112068%_ _%hd112012112118%_) + (_%expr112075%_ _%hd112009112103%_) + (_%len112082%_ _%hd112004112077%_) + (_%init112084%_ _%tl112005112079%_)) + (_%K111999112060%_ + _%init112084%_ + _%len112082%_ + _%expr112075%_ + _%tmp112068%_))) + (_%__match113609113610%_ + _%hd112012112118%_ + _%tl112013112120%_ + _%hd112009112103%_ + _%tl112010112105%_)))) + (_%__match113603113604%_ + _%hd112012112118%_ + _%tl112013112120%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E111724111747%_))))))) - (__tmp113480 (list _%body111716%_))) + (_%E111998112021%_))))))) + (__tmp113754 (list _%body111990%_))) (declare (not safe)) (__foldl1 - __tmp113481 - __tmp113480 - _%post111715%_)))) + __tmp113755 + __tmp113754 + _%post111989%_)))) (declare (not safe)) - (__foldr1 cons '() __tmp113479))) - _%stx111708%_)))) + (__foldr1 cons '() __tmp113753))) + _%stx111982%_)))) (__compile-let-form - _%stx111708%_ - _%compile-simple111710%_ - _%compile-values111711%_)))) + _%stx111982%_ + _%compile-simple111984%_ + _%compile-values111985%_)))) (define __compile-call% - (lambda (_%stx111668%_) - (let* ((_%$e111670%_ _%stx111668%_) - (_%$E111672111681%_ + (lambda (_%stx111942%_) + (let* ((_%$e111944%_ _%stx111942%_) + (_%$E111946111955%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111670%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e111670%_)) - (let* ((_%$tgt111673111684%_ - (let () (declare (not safe)) (__AST-e _%$e111670%_))) - (_%$hd111674111687%_ + _%$e111944%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e111944%_)) + (let* ((_%$tgt111947111958%_ + (let () (declare (not safe)) (__AST-e _%$e111944%_))) + (_%$hd111948111961%_ (let () (declare (not safe)) - (##car _%$tgt111673111684%_))) - (_%$tl111675111690%_ + (##car _%$tgt111947111958%_))) + (_%$tl111949111964%_ (let () (declare (not safe)) - (##cdr _%$tgt111673111684%_)))) + (##cdr _%$tgt111947111958%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl111675111690%_)) - (let* ((_%$tgt111676111694%_ + (__AST-pair? _%$tl111949111964%_)) + (let* ((_%$tgt111950111968%_ (let () (declare (not safe)) - (__AST-e _%$tl111675111690%_))) - (_%$hd111677111697%_ + (__AST-e _%$tl111949111964%_))) + (_%$hd111951111971%_ (let () (declare (not safe)) - (##car _%$tgt111676111694%_))) - (_%$tl111678111700%_ + (##car _%$tgt111950111968%_))) + (_%$tl111952111974%_ (let () (declare (not safe)) - (##cdr _%$tgt111676111694%_))) - (_%rator111704%_ _%$hd111677111697%_) - (_%rands111706%_ _%$tl111678111700%_)) + (##cdr _%$tgt111950111968%_))) + (_%rator111978%_ _%$hd111951111971%_) + (_%rands111980%_ _%$tl111952111974%_)) (__SRC__% - (cons (__compile _%rator111704%_) - (map __compile _%rands111706%_)) - _%stx111668%_)) - (_%$E111672111681%_))) - (_%$E111672111681%_))))) + (cons (__compile _%rator111978%_) + (map __compile _%rands111980%_)) + _%stx111942%_)) + (_%$E111946111955%_))) + (_%$E111946111955%_))))) (define __compile-ref% - (lambda (_%stx111630%_) - (let* ((_%$e111632%_ _%stx111630%_) - (_%$E111634111643%_ + (lambda (_%stx111904%_) + (let* ((_%$e111906%_ _%stx111904%_) + (_%$E111908111917%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111632%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e111632%_)) - (let* ((_%$tgt111635111646%_ - (let () (declare (not safe)) (__AST-e _%$e111632%_))) - (_%$hd111636111649%_ + _%$e111906%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e111906%_)) + (let* ((_%$tgt111909111920%_ + (let () (declare (not safe)) (__AST-e _%$e111906%_))) + (_%$hd111910111923%_ (let () (declare (not safe)) - (##car _%$tgt111635111646%_))) - (_%$tl111637111652%_ + (##car _%$tgt111909111920%_))) + (_%$tl111911111926%_ (let () (declare (not safe)) - (##cdr _%$tgt111635111646%_)))) + (##cdr _%$tgt111909111920%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl111637111652%_)) - (let* ((_%$tgt111638111656%_ + (__AST-pair? _%$tl111911111926%_)) + (let* ((_%$tgt111912111930%_ (let () (declare (not safe)) - (__AST-e _%$tl111637111652%_))) - (_%$hd111639111659%_ + (__AST-e _%$tl111911111926%_))) + (_%$hd111913111933%_ (let () (declare (not safe)) - (##car _%$tgt111638111656%_))) - (_%$tl111640111662%_ + (##car _%$tgt111912111930%_))) + (_%$tl111914111936%_ (let () (declare (not safe)) - (##cdr _%$tgt111638111656%_))) - (_%id111666%_ _%$hd111639111659%_)) + (##cdr _%$tgt111912111930%_))) + (_%id111940%_ _%$hd111913111933%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl111640111662%_)) + (__AST-e _%$tl111914111936%_)) '()) - (__SRC__% _%id111666%_ _%stx111630%_) - (_%$E111634111643%_))) - (_%$E111634111643%_))) - (_%$E111634111643%_))))) + (__SRC__% _%id111940%_ _%stx111904%_) + (_%$E111908111917%_))) + (_%$E111908111917%_))) + (_%$E111908111917%_))))) (define __compile-setq% - (lambda (_%stx111577%_) - (let* ((_%$e111579%_ _%stx111577%_) - (_%$E111581111593%_ + (lambda (_%stx111851%_) + (let* ((_%$e111853%_ _%stx111851%_) + (_%$E111855111867%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111579%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e111579%_)) - (let* ((_%$tgt111582111596%_ - (let () (declare (not safe)) (__AST-e _%$e111579%_))) - (_%$hd111583111599%_ + _%$e111853%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e111853%_)) + (let* ((_%$tgt111856111870%_ + (let () (declare (not safe)) (__AST-e _%$e111853%_))) + (_%$hd111857111873%_ (let () (declare (not safe)) - (##car _%$tgt111582111596%_))) - (_%$tl111584111602%_ + (##car _%$tgt111856111870%_))) + (_%$tl111858111876%_ (let () (declare (not safe)) - (##cdr _%$tgt111582111596%_)))) + (##cdr _%$tgt111856111870%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl111584111602%_)) - (let* ((_%$tgt111585111606%_ + (__AST-pair? _%$tl111858111876%_)) + (let* ((_%$tgt111859111880%_ (let () (declare (not safe)) - (__AST-e _%$tl111584111602%_))) - (_%$hd111586111609%_ + (__AST-e _%$tl111858111876%_))) + (_%$hd111860111883%_ (let () (declare (not safe)) - (##car _%$tgt111585111606%_))) - (_%$tl111587111612%_ + (##car _%$tgt111859111880%_))) + (_%$tl111861111886%_ (let () (declare (not safe)) - (##cdr _%$tgt111585111606%_))) - (_%id111616%_ _%$hd111586111609%_)) + (##cdr _%$tgt111859111880%_))) + (_%id111890%_ _%$hd111860111883%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl111587111612%_)) - (let* ((_%$tgt111588111618%_ + (__AST-pair? _%$tl111861111886%_)) + (let* ((_%$tgt111862111892%_ (let () (declare (not safe)) - (__AST-e _%$tl111587111612%_))) - (_%$hd111589111621%_ + (__AST-e _%$tl111861111886%_))) + (_%$hd111863111895%_ (let () (declare (not safe)) - (##car _%$tgt111588111618%_))) - (_%$tl111590111624%_ + (##car _%$tgt111862111892%_))) + (_%$tl111864111898%_ (let () (declare (not safe)) - (##cdr _%$tgt111588111618%_))) - (_%expr111628%_ _%$hd111589111621%_)) + (##cdr _%$tgt111862111892%_))) + (_%expr111902%_ _%$hd111863111895%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl111590111624%_)) + (__AST-e _%$tl111864111898%_)) '()) (__SRC__% (cons 'set! (cons (__SRC__% - _%id111616%_ - _%stx111577%_) - (cons (__compile _%expr111628%_) + _%id111890%_ + _%stx111851%_) + (cons (__compile _%expr111902%_) '()))) - _%stx111577%_) - (_%$E111581111593%_))) - (_%$E111581111593%_))) - (_%$E111581111593%_))) - (_%$E111581111593%_))))) + _%stx111851%_) + (_%$E111855111867%_))) + (_%$E111855111867%_))) + (_%$E111855111867%_))) + (_%$E111855111867%_))))) (define __compile-if% - (lambda (_%stx111509%_) - (let* ((_%$e111511%_ _%stx111509%_) - (_%$E111513111528%_ + (lambda (_%stx111783%_) + (let* ((_%$e111785%_ _%stx111783%_) + (_%$E111787111802%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111511%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e111511%_)) - (let* ((_%$tgt111514111531%_ - (let () (declare (not safe)) (__AST-e _%$e111511%_))) - (_%$hd111515111534%_ + _%$e111785%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e111785%_)) + (let* ((_%$tgt111788111805%_ + (let () (declare (not safe)) (__AST-e _%$e111785%_))) + (_%$hd111789111808%_ (let () (declare (not safe)) - (##car _%$tgt111514111531%_))) - (_%$tl111516111537%_ + (##car _%$tgt111788111805%_))) + (_%$tl111790111811%_ (let () (declare (not safe)) - (##cdr _%$tgt111514111531%_)))) + (##cdr _%$tgt111788111805%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl111516111537%_)) - (let* ((_%$tgt111517111541%_ + (__AST-pair? _%$tl111790111811%_)) + (let* ((_%$tgt111791111815%_ (let () (declare (not safe)) - (__AST-e _%$tl111516111537%_))) - (_%$hd111518111544%_ + (__AST-e _%$tl111790111811%_))) + (_%$hd111792111818%_ (let () (declare (not safe)) - (##car _%$tgt111517111541%_))) - (_%$tl111519111547%_ + (##car _%$tgt111791111815%_))) + (_%$tl111793111821%_ (let () (declare (not safe)) - (##cdr _%$tgt111517111541%_))) - (_%p111551%_ _%$hd111518111544%_)) + (##cdr _%$tgt111791111815%_))) + (_%p111825%_ _%$hd111792111818%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl111519111547%_)) - (let* ((_%$tgt111520111553%_ + (__AST-pair? _%$tl111793111821%_)) + (let* ((_%$tgt111794111827%_ (let () (declare (not safe)) - (__AST-e _%$tl111519111547%_))) - (_%$hd111521111556%_ + (__AST-e _%$tl111793111821%_))) + (_%$hd111795111830%_ (let () (declare (not safe)) - (##car _%$tgt111520111553%_))) - (_%$tl111522111559%_ + (##car _%$tgt111794111827%_))) + (_%$tl111796111833%_ (let () (declare (not safe)) - (##cdr _%$tgt111520111553%_))) - (_%t111563%_ _%$hd111521111556%_)) + (##cdr _%$tgt111794111827%_))) + (_%t111837%_ _%$hd111795111830%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl111522111559%_)) - (let* ((_%$tgt111523111565%_ + (__AST-pair? _%$tl111796111833%_)) + (let* ((_%$tgt111797111839%_ (let () (declare (not safe)) - (__AST-e _%$tl111522111559%_))) - (_%$hd111524111568%_ + (__AST-e _%$tl111796111833%_))) + (_%$hd111798111842%_ (let () (declare (not safe)) - (##car _%$tgt111523111565%_))) - (_%$tl111525111571%_ + (##car _%$tgt111797111839%_))) + (_%$tl111799111845%_ (let () (declare (not safe)) - (##cdr _%$tgt111523111565%_))) - (_%f111575%_ _%$hd111524111568%_)) + (##cdr _%$tgt111797111839%_))) + (_%f111849%_ _%$hd111798111842%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl111525111571%_)) + (__AST-e _%$tl111799111845%_)) '()) (__SRC__% (cons 'if - (cons (__compile _%p111551%_) + (cons (__compile _%p111825%_) (cons (__compile - _%t111563%_) + _%t111837%_) (cons (__compile - _%f111575%_) + _%f111849%_) '())))) - _%stx111509%_) - (_%$E111513111528%_))) - (_%$E111513111528%_))) - (_%$E111513111528%_))) - (_%$E111513111528%_))) - (_%$E111513111528%_))))) + _%stx111783%_) + (_%$E111787111802%_))) + (_%$E111787111802%_))) + (_%$E111787111802%_))) + (_%$E111787111802%_))) + (_%$E111787111802%_))))) (define __compile-quote% - (lambda (_%stx111471%_) - (let* ((_%$e111473%_ _%stx111471%_) - (_%$E111475111484%_ + (lambda (_%stx111745%_) + (let* ((_%$e111747%_ _%stx111745%_) + (_%$E111749111758%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111473%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e111473%_)) - (let* ((_%$tgt111476111487%_ - (let () (declare (not safe)) (__AST-e _%$e111473%_))) - (_%$hd111477111490%_ + _%$e111747%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e111747%_)) + (let* ((_%$tgt111750111761%_ + (let () (declare (not safe)) (__AST-e _%$e111747%_))) + (_%$hd111751111764%_ (let () (declare (not safe)) - (##car _%$tgt111476111487%_))) - (_%$tl111478111493%_ + (##car _%$tgt111750111761%_))) + (_%$tl111752111767%_ (let () (declare (not safe)) - (##cdr _%$tgt111476111487%_)))) + (##cdr _%$tgt111750111761%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl111478111493%_)) - (let* ((_%$tgt111479111497%_ + (__AST-pair? _%$tl111752111767%_)) + (let* ((_%$tgt111753111771%_ (let () (declare (not safe)) - (__AST-e _%$tl111478111493%_))) - (_%$hd111480111500%_ + (__AST-e _%$tl111752111767%_))) + (_%$hd111754111774%_ (let () (declare (not safe)) - (##car _%$tgt111479111497%_))) - (_%$tl111481111503%_ + (##car _%$tgt111753111771%_))) + (_%$tl111755111777%_ (let () (declare (not safe)) - (##cdr _%$tgt111479111497%_))) - (_%e111507%_ _%$hd111480111500%_)) + (##cdr _%$tgt111753111771%_))) + (_%e111781%_ _%$hd111754111774%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl111481111503%_)) + (__AST-e _%$tl111755111777%_)) '()) (__SRC__% (cons 'quote (cons (let () (declare (not safe)) - (__AST->datum _%e111507%_)) + (__AST->datum _%e111781%_)) '())) - _%stx111471%_) - (_%$E111475111484%_))) - (_%$E111475111484%_))) - (_%$E111475111484%_))))) + _%stx111745%_) + (_%$E111749111758%_))) + (_%$E111749111758%_))) + (_%$E111749111758%_))))) (define __compile-quote-syntax% - (lambda (_%stx111433%_) - (let* ((_%$e111435%_ _%stx111433%_) - (_%$E111437111446%_ + (lambda (_%stx111707%_) + (let* ((_%$e111709%_ _%stx111707%_) + (_%$E111711111720%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111435%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e111435%_)) - (let* ((_%$tgt111438111449%_ - (let () (declare (not safe)) (__AST-e _%$e111435%_))) - (_%$hd111439111452%_ + _%$e111709%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e111709%_)) + (let* ((_%$tgt111712111723%_ + (let () (declare (not safe)) (__AST-e _%$e111709%_))) + (_%$hd111713111726%_ (let () (declare (not safe)) - (##car _%$tgt111438111449%_))) - (_%$tl111440111455%_ + (##car _%$tgt111712111723%_))) + (_%$tl111714111729%_ (let () (declare (not safe)) - (##cdr _%$tgt111438111449%_)))) + (##cdr _%$tgt111712111723%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl111440111455%_)) - (let* ((_%$tgt111441111459%_ + (__AST-pair? _%$tl111714111729%_)) + (let* ((_%$tgt111715111733%_ (let () (declare (not safe)) - (__AST-e _%$tl111440111455%_))) - (_%$hd111442111462%_ + (__AST-e _%$tl111714111729%_))) + (_%$hd111716111736%_ (let () (declare (not safe)) - (##car _%$tgt111441111459%_))) - (_%$tl111443111465%_ + (##car _%$tgt111715111733%_))) + (_%$tl111717111739%_ (let () (declare (not safe)) - (##cdr _%$tgt111441111459%_))) - (_%e111469%_ _%$hd111442111462%_)) + (##cdr _%$tgt111715111733%_))) + (_%e111743%_ _%$hd111716111736%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl111443111465%_)) + (__AST-e _%$tl111717111739%_)) '()) (__SRC__% - (cons 'quote (cons _%e111469%_ '())) - _%stx111433%_) - (_%$E111437111446%_))) - (_%$E111437111446%_))) - (_%$E111437111446%_))))) + (cons 'quote (cons _%e111743%_ '())) + _%stx111707%_) + (_%$E111711111720%_))) + (_%$E111711111720%_))) + (_%$E111711111720%_))))) (__core-bind-syntax!__% '%#begin __compile-begin% make-__core-special-form) (__core-bind-syntax!__% '%#begin-syntax diff --git a/src/bootstrap/gerbil/runtime/eval~1.scm b/src/bootstrap/gerbil/runtime/eval~1.scm index 7043004ce..dd688db75 100644 --- a/src/bootstrap/gerbil/runtime/eval~1.scm +++ b/src/bootstrap/gerbil/runtime/eval~1.scm @@ -1,321 +1,321 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g113484_| + (define |[1]#_g113758_| (##structure gx#syntax-quote::t '__syntax::t #f (gx#current-expander-context) '())) - (define |[1]#_g113486_| + (define |[1]#_g113760_| (##structure gx#syntax-quote::t 'make-__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g113488_| + (define |[1]#_g113762_| (##structure gx#syntax-quote::t '__syntax? #f (gx#current-expander-context) '())) - (define |[1]#_g113490_| + (define |[1]#_g113764_| (##structure gx#syntax-quote::t '__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g113491_| + (define |[1]#_g113765_| (##structure gx#syntax-quote::t '__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g113493_| + (define |[1]#_g113767_| (##structure gx#syntax-quote::t '__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113494_| + (define |[1]#_g113768_| (##structure gx#syntax-quote::t '__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113496_| + (define |[1]#_g113770_| (##structure gx#syntax-quote::t '&__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g113497_| + (define |[1]#_g113771_| (##structure gx#syntax-quote::t '&__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g113499_| + (define |[1]#_g113773_| (##structure gx#syntax-quote::t '&__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113500_| + (define |[1]#_g113774_| (##structure gx#syntax-quote::t '&__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113502_| + (define |[1]#_g113776_| (##structure gx#syntax-quote::t '__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g113504_| + (define |[1]#_g113778_| (##structure gx#syntax-quote::t '__core-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g113506_| + (define |[1]#_g113780_| (##structure gx#syntax-quote::t 'make-__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g113508_| + (define |[1]#_g113782_| (##structure gx#syntax-quote::t '__core-form? #f (gx#current-expander-context) '())) - (define |[1]#_g113510_| + (define |[1]#_g113784_| (##structure gx#syntax-quote::t '__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g113511_| + (define |[1]#_g113785_| (##structure gx#syntax-quote::t '__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g113513_| + (define |[1]#_g113787_| (##structure gx#syntax-quote::t '__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113514_| + (define |[1]#_g113788_| (##structure gx#syntax-quote::t '__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113516_| + (define |[1]#_g113790_| (##structure gx#syntax-quote::t '&__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g113517_| + (define |[1]#_g113791_| (##structure gx#syntax-quote::t '&__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g113519_| + (define |[1]#_g113793_| (##structure gx#syntax-quote::t '&__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113520_| + (define |[1]#_g113794_| (##structure gx#syntax-quote::t '&__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113522_| + (define |[1]#_g113796_| (##structure gx#syntax-quote::t '__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g113524_| + (define |[1]#_g113798_| (##structure gx#syntax-quote::t '__core-expression::t #f (gx#current-expander-context) '())) - (define |[1]#_g113526_| + (define |[1]#_g113800_| (##structure gx#syntax-quote::t 'make-__core-expression #f (gx#current-expander-context) '())) - (define |[1]#_g113528_| + (define |[1]#_g113802_| (##structure gx#syntax-quote::t '__core-expression? #f (gx#current-expander-context) '())) - (define |[1]#_g113530_| + (define |[1]#_g113804_| (##structure gx#syntax-quote::t '__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g113531_| + (define |[1]#_g113805_| (##structure gx#syntax-quote::t '__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g113533_| + (define |[1]#_g113807_| (##structure gx#syntax-quote::t '__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113534_| + (define |[1]#_g113808_| (##structure gx#syntax-quote::t '__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113536_| + (define |[1]#_g113810_| (##structure gx#syntax-quote::t '&__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g113537_| + (define |[1]#_g113811_| (##structure gx#syntax-quote::t '&__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g113539_| + (define |[1]#_g113813_| (##structure gx#syntax-quote::t '&__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113540_| + (define |[1]#_g113814_| (##structure gx#syntax-quote::t '&__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113543_| + (define |[1]#_g113817_| (##structure gx#syntax-quote::t '__core-special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g113545_| + (define |[1]#_g113819_| (##structure gx#syntax-quote::t 'make-__core-special-form #f (gx#current-expander-context) '())) - (define |[1]#_g113547_| + (define |[1]#_g113821_| (##structure gx#syntax-quote::t '__core-special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g113549_| + (define |[1]#_g113823_| (##structure gx#syntax-quote::t '__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g113550_| + (define |[1]#_g113824_| (##structure gx#syntax-quote::t '__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g113552_| + (define |[1]#_g113826_| (##structure gx#syntax-quote::t '__core-special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113553_| + (define |[1]#_g113827_| (##structure gx#syntax-quote::t '__core-special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113555_| + (define |[1]#_g113829_| (##structure gx#syntax-quote::t '&__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g113556_| + (define |[1]#_g113830_| (##structure gx#syntax-quote::t '&__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g113558_| + (define |[1]#_g113832_| (##structure gx#syntax-quote::t '&__core-special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113559_| + (define |[1]#_g113833_| (##structure gx#syntax-quote::t '&__core-special-form-id-set! @@ -324,7 +324,7 @@ '())) (begin (define |[:0:]#__syntax| - (let ((__obj113433 + (let ((__obj113707 (let () (declare (not safe)) (##structure @@ -353,76 +353,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113433 + __obj113707 'gerbil/runtime/eval#__syntax::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113433 '__syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj113707 '__syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113433 '(e id) '4 '#f '#f)) + (##unchecked-structure-set! __obj113707 '(e id) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113433 '(e id) '6 '#f '#f)) + (##unchecked-structure-set! __obj113707 '(e id) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113433 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj113707 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113433 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj113707 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113433 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj113707 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113433 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj113707 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113433 '#f '11 '#f '#f)) - (let ((__tmp113483 |[1]#_g113484_|)) + (##unchecked-structure-set! __obj113707 '#f '11 '#f '#f)) + (let ((__tmp113757 |[1]#_g113758_|)) (declare (not safe)) - (##unchecked-structure-set! __obj113433 __tmp113483 '12 '#f '#f)) - (let ((__tmp113485 |[1]#_g113486_|)) + (##unchecked-structure-set! __obj113707 __tmp113757 '12 '#f '#f)) + (let ((__tmp113759 |[1]#_g113760_|)) (declare (not safe)) - (##unchecked-structure-set! __obj113433 __tmp113485 '13 '#f '#f)) - (let ((__tmp113487 |[1]#_g113488_|)) + (##unchecked-structure-set! __obj113707 __tmp113759 '13 '#f '#f)) + (let ((__tmp113761 |[1]#_g113762_|)) (declare (not safe)) - (##unchecked-structure-set! __obj113433 __tmp113487 '14 '#f '#f)) - (let ((__tmp113489 - (cons (cons 'e |[1]#_g113490_|) - (cons (cons 'id |[1]#_g113491_|) '())))) + (##unchecked-structure-set! __obj113707 __tmp113761 '14 '#f '#f)) + (let ((__tmp113763 + (cons (cons 'e |[1]#_g113764_|) + (cons (cons 'id |[1]#_g113765_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113433 __tmp113489 '15 '#f '#f)) - (let ((__tmp113492 - (cons (cons 'e |[1]#_g113493_|) - (cons (cons 'id |[1]#_g113494_|) '())))) + (##unchecked-structure-set! __obj113707 __tmp113763 '15 '#f '#f)) + (let ((__tmp113766 + (cons (cons 'e |[1]#_g113767_|) + (cons (cons 'id |[1]#_g113768_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113433 __tmp113492 '16 '#f '#f)) - (let ((__tmp113495 - (cons (cons 'e |[1]#_g113496_|) - (cons (cons 'id |[1]#_g113497_|) '())))) + (##unchecked-structure-set! __obj113707 __tmp113766 '16 '#f '#f)) + (let ((__tmp113769 + (cons (cons 'e |[1]#_g113770_|) + (cons (cons 'id |[1]#_g113771_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113433 __tmp113495 '17 '#f '#f)) - (let ((__tmp113498 - (cons (cons 'e |[1]#_g113499_|) - (cons (cons 'id |[1]#_g113500_|) '())))) + (##unchecked-structure-set! __obj113707 __tmp113769 '17 '#f '#f)) + (let ((__tmp113772 + (cons (cons 'e |[1]#_g113773_|) + (cons (cons 'id |[1]#_g113774_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113433 __tmp113498 '18 '#f '#f)) + (##unchecked-structure-set! __obj113707 __tmp113772 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113433 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj113707 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113433 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj113707 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113433 '() '20 '#f '#f)) - __obj113433)) + (##unchecked-structure-set! __obj113707 '() '20 '#f '#f)) + __obj113707)) (define |[:0:]#__core-form| - (let ((__obj113434 + (let ((__obj113708 (let () (declare (not safe)) (##structure @@ -451,76 +451,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113434 + __obj113708 'gerbil/runtime/eval#__core-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113434 '__core-form '2 '#f '#f)) + (##unchecked-structure-set! __obj113708 '__core-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113434 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj113708 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113434 '(e id) '6 '#f '#f)) - (let ((__tmp113501 (cons |[1]#_g113502_| '()))) + (##unchecked-structure-set! __obj113708 '(e id) '6 '#f '#f)) + (let ((__tmp113775 (cons |[1]#_g113776_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj113434 __tmp113501 '3 '#f '#f)) + (##unchecked-structure-set! __obj113708 __tmp113775 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113434 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj113708 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113434 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj113708 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113434 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj113708 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113434 '#f '11 '#f '#f)) - (let ((__tmp113503 |[1]#_g113504_|)) + (##unchecked-structure-set! __obj113708 '#f '11 '#f '#f)) + (let ((__tmp113777 |[1]#_g113778_|)) (declare (not safe)) - (##unchecked-structure-set! __obj113434 __tmp113503 '12 '#f '#f)) - (let ((__tmp113505 |[1]#_g113506_|)) + (##unchecked-structure-set! __obj113708 __tmp113777 '12 '#f '#f)) + (let ((__tmp113779 |[1]#_g113780_|)) (declare (not safe)) - (##unchecked-structure-set! __obj113434 __tmp113505 '13 '#f '#f)) - (let ((__tmp113507 |[1]#_g113508_|)) + (##unchecked-structure-set! __obj113708 __tmp113779 '13 '#f '#f)) + (let ((__tmp113781 |[1]#_g113782_|)) (declare (not safe)) - (##unchecked-structure-set! __obj113434 __tmp113507 '14 '#f '#f)) - (let ((__tmp113509 - (cons (cons 'e |[1]#_g113510_|) - (cons (cons 'id |[1]#_g113511_|) '())))) + (##unchecked-structure-set! __obj113708 __tmp113781 '14 '#f '#f)) + (let ((__tmp113783 + (cons (cons 'e |[1]#_g113784_|) + (cons (cons 'id |[1]#_g113785_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113434 __tmp113509 '15 '#f '#f)) - (let ((__tmp113512 - (cons (cons 'e |[1]#_g113513_|) - (cons (cons 'id |[1]#_g113514_|) '())))) + (##unchecked-structure-set! __obj113708 __tmp113783 '15 '#f '#f)) + (let ((__tmp113786 + (cons (cons 'e |[1]#_g113787_|) + (cons (cons 'id |[1]#_g113788_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113434 __tmp113512 '16 '#f '#f)) - (let ((__tmp113515 - (cons (cons 'e |[1]#_g113516_|) - (cons (cons 'id |[1]#_g113517_|) '())))) + (##unchecked-structure-set! __obj113708 __tmp113786 '16 '#f '#f)) + (let ((__tmp113789 + (cons (cons 'e |[1]#_g113790_|) + (cons (cons 'id |[1]#_g113791_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113434 __tmp113515 '17 '#f '#f)) - (let ((__tmp113518 - (cons (cons 'e |[1]#_g113519_|) - (cons (cons 'id |[1]#_g113520_|) '())))) + (##unchecked-structure-set! __obj113708 __tmp113789 '17 '#f '#f)) + (let ((__tmp113792 + (cons (cons 'e |[1]#_g113793_|) + (cons (cons 'id |[1]#_g113794_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113434 __tmp113518 '18 '#f '#f)) + (##unchecked-structure-set! __obj113708 __tmp113792 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113434 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj113708 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113434 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj113708 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113434 '() '20 '#f '#f)) - __obj113434)) + (##unchecked-structure-set! __obj113708 '() '20 '#f '#f)) + __obj113708)) (define |[:0:]#__core-expression| - (let ((__obj113435 + (let ((__obj113709 (let () (declare (not safe)) (##structure @@ -549,7 +549,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113435 + __obj113709 'gerbil/runtime/eval#__core-expression::t '1 '#f @@ -557,73 +557,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113435 + __obj113709 '__core-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113435 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj113709 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113435 '(e id) '6 '#f '#f)) - (let ((__tmp113521 (cons |[1]#_g113522_| '()))) + (##unchecked-structure-set! __obj113709 '(e id) '6 '#f '#f)) + (let ((__tmp113795 (cons |[1]#_g113796_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj113435 __tmp113521 '3 '#f '#f)) + (##unchecked-structure-set! __obj113709 __tmp113795 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113435 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj113709 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113435 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj113709 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113435 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj113709 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113435 '#f '11 '#f '#f)) - (let ((__tmp113523 |[1]#_g113524_|)) + (##unchecked-structure-set! __obj113709 '#f '11 '#f '#f)) + (let ((__tmp113797 |[1]#_g113798_|)) (declare (not safe)) - (##unchecked-structure-set! __obj113435 __tmp113523 '12 '#f '#f)) - (let ((__tmp113525 |[1]#_g113526_|)) + (##unchecked-structure-set! __obj113709 __tmp113797 '12 '#f '#f)) + (let ((__tmp113799 |[1]#_g113800_|)) (declare (not safe)) - (##unchecked-structure-set! __obj113435 __tmp113525 '13 '#f '#f)) - (let ((__tmp113527 |[1]#_g113528_|)) + (##unchecked-structure-set! __obj113709 __tmp113799 '13 '#f '#f)) + (let ((__tmp113801 |[1]#_g113802_|)) (declare (not safe)) - (##unchecked-structure-set! __obj113435 __tmp113527 '14 '#f '#f)) - (let ((__tmp113529 - (cons (cons 'e |[1]#_g113530_|) - (cons (cons 'id |[1]#_g113531_|) '())))) + (##unchecked-structure-set! __obj113709 __tmp113801 '14 '#f '#f)) + (let ((__tmp113803 + (cons (cons 'e |[1]#_g113804_|) + (cons (cons 'id |[1]#_g113805_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113435 __tmp113529 '15 '#f '#f)) - (let ((__tmp113532 - (cons (cons 'e |[1]#_g113533_|) - (cons (cons 'id |[1]#_g113534_|) '())))) + (##unchecked-structure-set! __obj113709 __tmp113803 '15 '#f '#f)) + (let ((__tmp113806 + (cons (cons 'e |[1]#_g113807_|) + (cons (cons 'id |[1]#_g113808_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113435 __tmp113532 '16 '#f '#f)) - (let ((__tmp113535 - (cons (cons 'e |[1]#_g113536_|) - (cons (cons 'id |[1]#_g113537_|) '())))) + (##unchecked-structure-set! __obj113709 __tmp113806 '16 '#f '#f)) + (let ((__tmp113809 + (cons (cons 'e |[1]#_g113810_|) + (cons (cons 'id |[1]#_g113811_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113435 __tmp113535 '17 '#f '#f)) - (let ((__tmp113538 - (cons (cons 'e |[1]#_g113539_|) - (cons (cons 'id |[1]#_g113540_|) '())))) + (##unchecked-structure-set! __obj113709 __tmp113809 '17 '#f '#f)) + (let ((__tmp113812 + (cons (cons 'e |[1]#_g113813_|) + (cons (cons 'id |[1]#_g113814_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113435 __tmp113538 '18 '#f '#f)) + (##unchecked-structure-set! __obj113709 __tmp113812 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113435 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj113709 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113435 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj113709 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113435 '() '20 '#f '#f)) - __obj113435)) + (##unchecked-structure-set! __obj113709 '() '20 '#f '#f)) + __obj113709)) (define |[:0:]#__core-special-form| - (let ((__obj113436 + (let ((__obj113710 (let () (declare (not safe)) (##structure @@ -652,7 +652,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113436 + __obj113710 'gerbil/runtime/eval#__core-special-form::t '1 '#f @@ -660,391 +660,391 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113436 + __obj113710 '__core-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113436 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj113710 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113436 '(e id) '6 '#f '#f)) - (let ((__tmp113541 (cons |[1]#_g113522_| '()))) + (##unchecked-structure-set! __obj113710 '(e id) '6 '#f '#f)) + (let ((__tmp113815 (cons |[1]#_g113796_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj113436 __tmp113541 '3 '#f '#f)) + (##unchecked-structure-set! __obj113710 __tmp113815 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113436 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj113710 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113436 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj113710 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113436 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj113710 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113436 '#f '11 '#f '#f)) - (let ((__tmp113542 |[1]#_g113543_|)) + (##unchecked-structure-set! __obj113710 '#f '11 '#f '#f)) + (let ((__tmp113816 |[1]#_g113817_|)) (declare (not safe)) - (##unchecked-structure-set! __obj113436 __tmp113542 '12 '#f '#f)) - (let ((__tmp113544 |[1]#_g113545_|)) + (##unchecked-structure-set! __obj113710 __tmp113816 '12 '#f '#f)) + (let ((__tmp113818 |[1]#_g113819_|)) (declare (not safe)) - (##unchecked-structure-set! __obj113436 __tmp113544 '13 '#f '#f)) - (let ((__tmp113546 |[1]#_g113547_|)) + (##unchecked-structure-set! __obj113710 __tmp113818 '13 '#f '#f)) + (let ((__tmp113820 |[1]#_g113821_|)) (declare (not safe)) - (##unchecked-structure-set! __obj113436 __tmp113546 '14 '#f '#f)) - (let ((__tmp113548 - (cons (cons 'e |[1]#_g113549_|) - (cons (cons 'id |[1]#_g113550_|) '())))) + (##unchecked-structure-set! __obj113710 __tmp113820 '14 '#f '#f)) + (let ((__tmp113822 + (cons (cons 'e |[1]#_g113823_|) + (cons (cons 'id |[1]#_g113824_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113436 __tmp113548 '15 '#f '#f)) - (let ((__tmp113551 - (cons (cons 'e |[1]#_g113552_|) - (cons (cons 'id |[1]#_g113553_|) '())))) + (##unchecked-structure-set! __obj113710 __tmp113822 '15 '#f '#f)) + (let ((__tmp113825 + (cons (cons 'e |[1]#_g113826_|) + (cons (cons 'id |[1]#_g113827_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113436 __tmp113551 '16 '#f '#f)) - (let ((__tmp113554 - (cons (cons 'e |[1]#_g113555_|) - (cons (cons 'id |[1]#_g113556_|) '())))) + (##unchecked-structure-set! __obj113710 __tmp113825 '16 '#f '#f)) + (let ((__tmp113828 + (cons (cons 'e |[1]#_g113829_|) + (cons (cons 'id |[1]#_g113830_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113436 __tmp113554 '17 '#f '#f)) - (let ((__tmp113557 - (cons (cons 'e |[1]#_g113558_|) - (cons (cons 'id |[1]#_g113559_|) '())))) + (##unchecked-structure-set! __obj113710 __tmp113828 '17 '#f '#f)) + (let ((__tmp113831 + (cons (cons 'e |[1]#_g113832_|) + (cons (cons 'id |[1]#_g113833_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj113436 __tmp113557 '18 '#f '#f)) + (##unchecked-structure-set! __obj113710 __tmp113831 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113436 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj113710 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113436 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj113710 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj113436 '() '20 '#f '#f)) - __obj113436)) + (##unchecked-structure-set! __obj113710 '() '20 '#f '#f)) + __obj113710)) (define |[:0:]#defcore-forms| - (lambda (_%stx110978%_) - (letrec ((_%generate110981%_ - (lambda (_%id111345%_ _%compile111347%_ _%make111348%_) - (let* ((_%g111350111369%_ - (lambda (_%g111351111365%_) + (lambda (_%stx111252%_) + (letrec ((_%generate111255%_ + (lambda (_%id111619%_ _%compile111621%_ _%make111622%_) + (let* ((_%g111624111643%_ + (lambda (_%g111625111639%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111351111365%_))) - (_%g111349111428%_ - (lambda (_%g111351111373%_) - (if (gx#stx-pair? _%g111351111373%_) - (let ((_%e111355111376%_ - (gx#syntax-e _%g111351111373%_))) - (let ((_%hd111356111380%_ + _%g111625111639%_))) + (_%g111623111702%_ + (lambda (_%g111625111647%_) + (if (gx#stx-pair? _%g111625111647%_) + (let ((_%e111629111650%_ + (gx#syntax-e _%g111625111647%_))) + (let ((_%hd111630111654%_ (let () (declare (not safe)) - (##car _%e111355111376%_))) - (_%tl111357111383%_ + (##car _%e111629111650%_))) + (_%tl111631111657%_ (let () (declare (not safe)) - (##cdr _%e111355111376%_)))) - (if (gx#stx-pair? _%tl111357111383%_) - (let ((_%e111358111386%_ + (##cdr _%e111629111650%_)))) + (if (gx#stx-pair? _%tl111631111657%_) + (let ((_%e111632111660%_ (gx#syntax-e - _%tl111357111383%_))) - (let ((_%hd111359111390%_ + _%tl111631111657%_))) + (let ((_%hd111633111664%_ (let () (declare (not safe)) - (##car _%e111358111386%_))) - (_%tl111360111393%_ + (##car _%e111632111660%_))) + (_%tl111634111667%_ (let () (declare (not safe)) - (##cdr _%e111358111386%_)))) + (##cdr _%e111632111660%_)))) (if (gx#stx-pair? - _%tl111360111393%_) - (let ((_%e111361111396%_ + _%tl111634111667%_) + (let ((_%e111635111670%_ (gx#syntax-e - _%tl111360111393%_))) - (let ((_%hd111362111400%_ + _%tl111634111667%_))) + (let ((_%hd111636111674%_ (let () (declare (not safe)) - (##car _%e111361111396%_))) - (_%tl111363111403%_ + (##car _%e111635111670%_))) + (_%tl111637111677%_ (let () (declare (not safe)) - (##cdr _%e111361111396%_)))) + (##cdr _%e111635111670%_)))) (if (gx#stx-null? - _%tl111363111403%_) - ((lambda (_%L111406%_ + _%tl111637111677%_) + ((lambda (_%L111680%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L111408%_ - _%L111409%_) + _%L111682%_ + _%L111683%_) (cons (gx#datum->syntax '#f '__core-bind-syntax!) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L111409%_ '())) - (cons _%L111408%_ (cons _%L111406%_ '()))))) - _%hd111362111400%_ - _%hd111359111390%_ - _%hd111356111380%_) - (_%g111350111369%_ _%g111351111373%_)))) + (cons _%L111683%_ '())) + (cons _%L111682%_ (cons _%L111680%_ '()))))) + _%hd111636111674%_ + _%hd111633111664%_ + _%hd111630111654%_) + (_%g111624111643%_ _%g111625111647%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g111350111369%_ - _%g111351111373%_)))) - (_%g111350111369%_ - _%g111351111373%_)))) - (_%g111350111369%_ _%g111351111373%_))))) - (_%g111349111428%_ - (list _%id111345%_ + (_%g111624111643%_ + _%g111625111647%_)))) + (_%g111624111643%_ + _%g111625111647%_)))) + (_%g111624111643%_ _%g111625111647%_))))) + (_%g111623111702%_ + (list _%id111619%_ (gx#stx-identifier - _%id111345%_ + _%id111619%_ '"__" - _%compile111347%_) - _%make111348%_)))))) - (let* ((_%g110984111004%_ - (lambda (_%g110985111000%_) + _%compile111621%_) + _%make111622%_)))))) + (let* ((_%g111258111278%_ + (lambda (_%g111259111274%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110985111000%_))) - (_%g110983111341%_ - (lambda (_%g110985111008%_) - (if (gx#stx-pair? _%g110985111008%_) - (let ((_%e110987111011%_ - (gx#syntax-e _%g110985111008%_))) - (let ((_%hd110988111015%_ + _%g111259111274%_))) + (_%g111257111615%_ + (lambda (_%g111259111282%_) + (if (gx#stx-pair? _%g111259111282%_) + (let ((_%e111261111285%_ + (gx#syntax-e _%g111259111282%_))) + (let ((_%hd111262111289%_ (let () (declare (not safe)) - (##car _%e110987111011%_))) - (_%tl110989111018%_ + (##car _%e111261111285%_))) + (_%tl111263111292%_ (let () (declare (not safe)) - (##cdr _%e110987111011%_)))) - (if (gx#stx-pair/null? _%tl110989111018%_) - (let ((_g113560_ + (##cdr _%e111261111285%_)))) + (if (gx#stx-pair/null? _%tl111263111292%_) + (let ((_g113834_ (gx#syntax-split-splice - _%tl110989111018%_ + _%tl111263111292%_ '0))) (begin - (let ((_g113561_ + (let ((_g113835_ (let () (declare (not safe)) - (if (##values? _g113560_) - (##vector-length _g113560_) + (if (##values? _g113834_) + (##vector-length _g113834_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g113561_ 2))) + (##fx= _g113835_ 2))) (error "Context expects 2 values" - _g113561_))) - (let ((_%target110990111021%_ + _g113835_))) + (let ((_%target111264111295%_ (let () (declare (not safe)) - (##vector-ref _g113560_ 0))) - (_%tl110992111024%_ + (##vector-ref _g113834_ 0))) + (_%tl111266111298%_ (let () (declare (not safe)) - (##vector-ref _g113560_ 1)))) - (if (gx#stx-null? _%tl110992111024%_) - (letrec ((_%loop110993111027%_ - (lambda (_%hd110991111031%_ - _%form110997111034%_) + (##vector-ref _g113834_ 1)))) + (if (gx#stx-null? _%tl111266111298%_) + (letrec ((_%loop111267111301%_ + (lambda (_%hd111265111305%_ + _%form111271111308%_) (if (gx#stx-pair? - _%hd110991111031%_) - (let ((_%e110994111037%_ + _%hd111265111305%_) + (let ((_%e111268111311%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd110991111031%_))) - (let ((_%lp-hd110995111041%_ + (gx#syntax-e _%hd111265111305%_))) + (let ((_%lp-hd111269111315%_ (let () (declare (not safe)) - (##car _%e110994111037%_))) - (_%lp-tl110996111044%_ + (##car _%e111268111311%_))) + (_%lp-tl111270111318%_ (let () (declare (not safe)) - (##cdr _%e110994111037%_)))) - (_%loop110993111027%_ - _%lp-tl110996111044%_ - (cons _%lp-hd110995111041%_ _%form110997111034%_)))) - (let ((_%form110998111047%_ (reverse _%form110997111034%_))) - ((lambda (_%L111051%_) - (let _%lp111069%_ ((_%rest111072%_ - (let ((__tmp113562 - (lambda (_%g111332111335%_ - _%g111333111338%_) - (cons _%g111332111335%_ - _%g111333111338%_)))) + (##cdr _%e111268111311%_)))) + (_%loop111267111301%_ + _%lp-tl111270111318%_ + (cons _%lp-hd111269111315%_ _%form111271111308%_)))) + (let ((_%form111272111321%_ (reverse _%form111271111308%_))) + ((lambda (_%L111325%_) + (let _%lp111343%_ ((_%rest111346%_ + (let ((__tmp113836 + (lambda (_%g111606111609%_ + _%g111607111612%_) + (cons _%g111606111609%_ + _%g111607111612%_)))) (declare (not safe)) (__foldr1 - __tmp113562 + __tmp113836 '() - _%L111051%_))) - (_%body111074%_ '())) - (let* ((_%__stx113340113341%_ _%rest111072%_) - (_%g111079111126%_ + _%L111325%_))) + (_%body111348%_ '())) + (let* ((_%__stx113614113615%_ _%rest111346%_) + (_%g111353111400%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx113340113341%_)))) - (let ((_%__kont113343113344%_ - (lambda (_%L111307%_ _%L111309%_ _%L111310%_) - (_%lp111069%_ - _%L111307%_ - (cons (_%generate110981%_ - _%L111310%_ - _%L111309%_ + _%__stx113614113615%_)))) + (let ((_%__kont113617113618%_ + (lambda (_%L111581%_ _%L111583%_ _%L111584%_) + (_%lp111343%_ + _%L111581%_ + (cons (_%generate111255%_ + _%L111584%_ + _%L111583%_ (gx#datum->syntax '#f 'make-__core-expression)) - _%body111074%_)))) - (_%__kont113345113346%_ - (lambda (_%L111234%_ _%L111236%_ _%L111237%_) - (_%lp111069%_ - _%L111234%_ - (cons (_%generate110981%_ - _%L111237%_ - _%L111236%_ + _%body111348%_)))) + (_%__kont113619113620%_ + (lambda (_%L111508%_ _%L111510%_ _%L111511%_) + (_%lp111343%_ + _%L111508%_ + (cons (_%generate111255%_ + _%L111511%_ + _%L111510%_ (gx#datum->syntax '#f 'make-__core-special-form)) - _%body111074%_)))) - (_%__kont113347113348%_ - (lambda (_%L111164%_ _%L111166%_) - (_%lp111069%_ - _%L111164%_ - (cons (_%generate110981%_ - _%L111166%_ + _%body111348%_)))) + (_%__kont113621113622%_ + (lambda (_%L111438%_ _%L111440%_) + (_%lp111343%_ + _%L111438%_ + (cons (_%generate111255%_ + _%L111440%_ (gx#datum->syntax '#f 'compile-error) (gx#datum->syntax '#f 'make-__core-form)) - _%body111074%_)))) - (_%__kont113349113350%_ + _%body111348%_)))) + (_%__kont113623113624%_ (lambda () - (cons 'begin (reverse _%body111074%_))))) - (let ((_%g111078111137%_ + (cons 'begin (reverse _%body111348%_))))) + (let ((_%g111352111411%_ (lambda () - (if (gx#stx-null? _%__stx113340113341%_) - (_%__kont113349113350%_) + (if (gx#stx-null? _%__stx113614113615%_) + (_%__kont113623113624%_) (let () (declare (not safe)) - (_%g111079111126%_)))))) - (if (gx#stx-pair? _%__stx113340113341%_) - (let ((_%e111084111263%_ - (gx#syntax-e _%__stx113340113341%_))) - (let ((_%tl111086111270%_ + (_%g111353111400%_)))))) + (if (gx#stx-pair? _%__stx113614113615%_) + (let ((_%e111358111537%_ + (gx#syntax-e _%__stx113614113615%_))) + (let ((_%tl111360111544%_ (let () (declare (not safe)) - (##cdr _%e111084111263%_))) - (_%hd111085111267%_ + (##cdr _%e111358111537%_))) + (_%hd111359111541%_ (let () (declare (not safe)) - (##car _%e111084111263%_)))) - (if (gx#stx-pair? _%hd111085111267%_) - (let ((_%e111087111273%_ + (##car _%e111358111537%_)))) + (if (gx#stx-pair? _%hd111359111541%_) + (let ((_%e111361111547%_ (gx#syntax-e - _%hd111085111267%_))) - (let ((_%tl111089111280%_ + _%hd111359111541%_))) + (let ((_%tl111363111554%_ (let () (declare (not safe)) - (##cdr _%e111087111273%_))) - (_%hd111088111277%_ + (##cdr _%e111361111547%_))) + (_%hd111362111551%_ (let () (declare (not safe)) - (##car _%e111087111273%_)))) + (##car _%e111361111547%_)))) (if (gx#stx-pair? - _%tl111089111280%_) - (let ((_%e111090111283%_ + _%tl111363111554%_) + (let ((_%e111364111557%_ (gx#syntax-e - _%tl111089111280%_))) - (let ((_%tl111092111290%_ + _%tl111363111554%_))) + (let ((_%tl111366111564%_ (let () (declare (not safe)) - (##cdr _%e111090111283%_))) - (_%hd111091111287%_ + (##cdr _%e111364111557%_))) + (_%hd111365111561%_ (let () (declare (not safe)) - (##car _%e111090111283%_)))) + (##car _%e111364111557%_)))) (if (gx#stx-datum? - _%hd111091111287%_) - (let ((_%e111093111293%_ + _%hd111365111561%_) + (let ((_%e111367111567%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _%hd111091111287%_))) - (if (equal? _%e111093111293%_ 'expr:) - (if (gx#stx-pair? _%tl111092111290%_) - (let ((_%e111094111297%_ - (gx#syntax-e _%tl111092111290%_))) - (let ((_%tl111096111304%_ + (gx#stx-e _%hd111365111561%_))) + (if (equal? _%e111367111567%_ 'expr:) + (if (gx#stx-pair? _%tl111366111564%_) + (let ((_%e111368111571%_ + (gx#syntax-e _%tl111366111564%_))) + (let ((_%tl111370111578%_ (let () (declare (not safe)) - (##cdr _%e111094111297%_))) - (_%hd111095111301%_ + (##cdr _%e111368111571%_))) + (_%hd111369111575%_ (let () (declare (not safe)) - (##car _%e111094111297%_)))) - (if (gx#stx-null? _%tl111096111304%_) - (_%__kont113343113344%_ - _%tl111086111270%_ - _%hd111095111301%_ - _%hd111088111277%_) + (##car _%e111368111571%_)))) + (if (gx#stx-null? _%tl111370111578%_) + (_%__kont113617113618%_ + _%tl111360111544%_ + _%hd111369111575%_ + _%hd111362111551%_) (let () (declare (not safe)) - (_%g111079111126%_))))) - (let () (declare (not safe)) (_%g111079111126%_))) - (if (equal? _%e111093111293%_ 'special:) - (if (gx#stx-pair? _%tl111092111290%_) - (let ((_%e111110111224%_ - (gx#syntax-e _%tl111092111290%_))) - (let ((_%tl111112111231%_ + (_%g111353111400%_))))) + (let () (declare (not safe)) (_%g111353111400%_))) + (if (equal? _%e111367111567%_ 'special:) + (if (gx#stx-pair? _%tl111366111564%_) + (let ((_%e111384111498%_ + (gx#syntax-e _%tl111366111564%_))) + (let ((_%tl111386111505%_ (let () (declare (not safe)) - (##cdr _%e111110111224%_))) - (_%hd111111111228%_ + (##cdr _%e111384111498%_))) + (_%hd111385111502%_ (let () (declare (not safe)) - (##car _%e111110111224%_)))) - (if (gx#stx-null? _%tl111112111231%_) - (_%__kont113345113346%_ - _%tl111086111270%_ - _%hd111111111228%_ - _%hd111088111277%_) + (##car _%e111384111498%_)))) + (if (gx#stx-null? _%tl111386111505%_) + (_%__kont113619113620%_ + _%tl111360111544%_ + _%hd111385111502%_ + _%hd111362111551%_) (let () (declare (not safe)) - (_%g111079111126%_))))) + (_%g111353111400%_))))) (let () (declare (not safe)) - (_%g111079111126%_))) + (_%g111353111400%_))) (let () (declare (not safe)) - (_%g111079111126%_))))) - (let () (declare (not safe)) (_%g111079111126%_))))) + (_%g111353111400%_))))) + (let () (declare (not safe)) (_%g111353111400%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl111089111280%_) - (_%__kont113347113348%_ - _%tl111086111270%_ - _%hd111088111277%_) + _%tl111363111554%_) + (_%__kont113621113622%_ + _%tl111360111544%_ + _%hd111362111551%_) (let () (declare (not safe)) - (_%g111079111126%_)))))) + (_%g111353111400%_)))))) (let () (declare (not safe)) - (_%g111079111126%_))))) + (_%g111353111400%_))))) (let () (declare (not safe)) - (_%g111078111137%_)))))))) - _%form110998111047%_)))))) + (_%g111352111411%_)))))))) + _%form111272111321%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop110993111027%_ - _%target110990111021%_ + (_%loop111267111301%_ + _%target111264111295%_ '())) - (_%g110984111004%_ - _%g110985111008%_))))) - (_%g110984111004%_ _%g110985111008%_)))) - (_%g110984111004%_ _%g110985111008%_))))) - (_%g110983111341%_ _%stx110978%_))))))) + (_%g111258111278%_ + _%g111259111282%_))))) + (_%g111258111278%_ _%g111259111282%_)))) + (_%g111258111278%_ _%g111259111282%_))))) + (_%g111257111615%_ _%stx111252%_))))))) diff --git a/src/bootstrap/gerbil/runtime/gambit~0.scm b/src/bootstrap/gerbil/runtime/gambit~0.scm index 94daf4834..053cd3d28 100644 --- a/src/bootstrap/gerbil/runtime/gambit~0.scm +++ b/src/bootstrap/gerbil/runtime/gambit~0.scm @@ -1,4 +1,4 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/gambit::timestamp 1713044313) + (define gerbil/runtime/gambit::timestamp 1713454408) (let () (declare (not safe)) (##void))) diff --git a/src/bootstrap/gerbil/runtime/hash.ssi b/src/bootstrap/gerbil/runtime/hash.ssi index 25cf288fe..fcd1e429e 100644 --- a/src/bootstrap/gerbil/runtime/hash.ssi +++ b/src/bootstrap/gerbil/runtime/hash.ssi @@ -167,56 +167,56 @@ namespace: #f (%#define-runtime is-hash-table? is-hash-table?) (%#define-syntax deflocked-hash-method |[:0:]#deflocked-hash-method|) (%#define-runtime - _%locked-hash-table::ref103842%_ - _%locked-hash-table::ref103841%_) + _%locked-hash-table::ref104116%_ + _%locked-hash-table::ref104115%_) (%#define-runtime - _%locked-hash-table::set!103845%_ - _%locked-hash-table::set!103844%_) + _%locked-hash-table::set!104119%_ + _%locked-hash-table::set!104118%_) (%#define-runtime - _%locked-hash-table::update!103848%_ - _%locked-hash-table::update!103847%_) + _%locked-hash-table::update!104122%_ + _%locked-hash-table::update!104121%_) (%#define-runtime - _%locked-hash-table::delete!103851%_ - _%locked-hash-table::delete!103850%_) + _%locked-hash-table::delete!104125%_ + _%locked-hash-table::delete!104124%_) (%#define-runtime - _%locked-hash-table::for-each103854%_ - _%locked-hash-table::for-each103853%_) + _%locked-hash-table::for-each104128%_ + _%locked-hash-table::for-each104127%_) (%#define-runtime - _%locked-hash-table::length103857%_ - _%locked-hash-table::length103856%_) + _%locked-hash-table::length104131%_ + _%locked-hash-table::length104130%_) (%#define-runtime - _%locked-hash-table::copy103860%_ - _%locked-hash-table::copy103859%_) + _%locked-hash-table::copy104134%_ + _%locked-hash-table::copy104133%_) (%#define-runtime - _%locked-hash-table::clear!103863%_ - _%locked-hash-table::clear!103862%_) + _%locked-hash-table::clear!104137%_ + _%locked-hash-table::clear!104136%_) (%#define-syntax defchecked-hash-method |[:0:]#defchecked-hash-method|) (%#define-runtime - _%checked-hash-table::ref104077%_ - _%checked-hash-table::ref104076%_) + _%checked-hash-table::ref104351%_ + _%checked-hash-table::ref104350%_) (%#define-runtime - _%checked-hash-table::set!104080%_ - _%checked-hash-table::set!104079%_) + _%checked-hash-table::set!104354%_ + _%checked-hash-table::set!104353%_) (%#define-runtime - _%checked-hash-table::update!104083%_ - _%checked-hash-table::update!104082%_) + _%checked-hash-table::update!104357%_ + _%checked-hash-table::update!104356%_) (%#define-runtime - _%checked-hash-table::delete!104086%_ - _%checked-hash-table::delete!104085%_) + _%checked-hash-table::delete!104360%_ + _%checked-hash-table::delete!104359%_) (%#define-runtime - _%checked-hash-table::for-each104089%_ - _%checked-hash-table::for-each104088%_) + _%checked-hash-table::for-each104363%_ + _%checked-hash-table::for-each104362%_) (%#define-runtime - _%checked-hash-table::length104092%_ - _%checked-hash-table::length104091%_) + _%checked-hash-table::length104366%_ + _%checked-hash-table::length104365%_) (%#define-runtime - _%checked-hash-table::copy104095%_ - _%checked-hash-table::copy104094%_) + _%checked-hash-table::copy104369%_ + _%checked-hash-table::copy104368%_) (%#define-runtime - _%checked-hash-table::clear!104098%_ - _%checked-hash-table::clear!104097%_) + _%checked-hash-table::clear!104372%_ + _%checked-hash-table::clear!104371%_) (%#define-runtime make-generic-hash-table make-generic-hash-table) (%#begin (%#define-runtime make-hash-table__% make-hash-table__%) (%#define-runtime make-hash-table__@ make-hash-table__@) diff --git a/src/bootstrap/gerbil/runtime/hash.ssxi.ss b/src/bootstrap/gerbil/runtime/hash.ssxi.ss index b5a76e1a6..94ed68e31 100644 --- a/src/bootstrap/gerbil/runtime/hash.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/hash.ssxi.ss @@ -706,14 +706,14 @@ package: gerbil/runtime #t #f #f - ((ref . _%locked-hash-table::ref103841%_) - (set! . _%locked-hash-table::set!103844%_) - (for-each . _%locked-hash-table::for-each103853%_) - (clear! . _%locked-hash-table::clear!103862%_) - (length . _%locked-hash-table::length103856%_) - (copy . _%locked-hash-table::copy103859%_) - (update! . _%locked-hash-table::update!103847%_) - (delete! . _%locked-hash-table::delete!103850%_)))) + ((clear! . _%locked-hash-table::clear!104136%_) + (for-each . _%locked-hash-table::for-each104127%_) + (ref . _%locked-hash-table::ref104115%_) + (set! . _%locked-hash-table::set!104118%_) + (delete! . _%locked-hash-table::delete!104124%_) + (update! . _%locked-hash-table::update!104121%_) + (copy . _%locked-hash-table::copy104133%_) + (length . _%locked-hash-table::length104130%_)))) (declare-type locked-hash-table::t (optimizer-resolve-class '(typedecl locked-hash-table::t) 'class::t)) @@ -755,14 +755,14 @@ package: gerbil/runtime #t #f #f - ((ref . _%checked-hash-table::ref104076%_) - (set! . _%checked-hash-table::set!104079%_) - (for-each . _%checked-hash-table::for-each104088%_) - (clear! . _%checked-hash-table::clear!104097%_) - (length . _%checked-hash-table::length104091%_) - (copy . _%checked-hash-table::copy104094%_) - (update! . _%checked-hash-table::update!104082%_) - (delete! . _%checked-hash-table::delete!104085%_)))) + ((clear! . _%checked-hash-table::clear!104371%_) + (for-each . _%checked-hash-table::for-each104362%_) + (ref . _%checked-hash-table::ref104350%_) + (set! . _%checked-hash-table::set!104353%_) + (delete! . _%checked-hash-table::delete!104359%_) + (update! . _%checked-hash-table::update!104356%_) + (copy . _%checked-hash-table::copy104368%_) + (length . _%checked-hash-table::length104365%_)))) (declare-type checked-hash-table::t (optimizer-resolve-class '(typedecl checked-hash-table::t) 'class::t)) @@ -901,7 +901,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::ref103841%_ + _%locked-hash-table::ref104115%_ (@lambda 3 #f signature: @@ -916,7 +916,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::set!103844%_ + _%locked-hash-table::set!104118%_ (@lambda 3 #f signature: @@ -931,7 +931,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::update!103847%_ + _%locked-hash-table::update!104121%_ (@lambda 4 #f signature: @@ -946,7 +946,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::delete!103850%_ + _%locked-hash-table::delete!104124%_ (@lambda 2 #f signature: @@ -961,7 +961,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::for-each103853%_ + _%locked-hash-table::for-each104127%_ (@lambda 2 #f signature: @@ -976,7 +976,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::length103856%_ + _%locked-hash-table::length104130%_ (@lambda 1 #f signature: @@ -991,7 +991,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::copy103859%_ + _%locked-hash-table::copy104133%_ (@lambda 1 #f signature: @@ -1006,7 +1006,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::clear!103862%_ + _%locked-hash-table::clear!104136%_ (@lambda 1 #f signature: @@ -1021,7 +1021,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::ref104076%_ + _%checked-hash-table::ref104350%_ (@lambda 3 #f signature: @@ -1036,7 +1036,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::set!104079%_ + _%checked-hash-table::set!104353%_ (@lambda 3 #f signature: @@ -1051,7 +1051,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::update!104082%_ + _%checked-hash-table::update!104356%_ (@lambda 4 #f signature: @@ -1066,7 +1066,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::delete!104085%_ + _%checked-hash-table::delete!104359%_ (@lambda 2 #f signature: @@ -1081,7 +1081,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::for-each104088%_ + _%checked-hash-table::for-each104362%_ (@lambda 2 #f signature: @@ -1096,7 +1096,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::length104091%_ + _%checked-hash-table::length104365%_ (@lambda 1 #f signature: @@ -1111,7 +1111,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::copy104094%_ + _%checked-hash-table::copy104368%_ (@lambda 1 #f signature: @@ -1126,7 +1126,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::clear!104097%_ + _%checked-hash-table::clear!104371%_ (@lambda 1 #f signature: diff --git a/src/bootstrap/gerbil/runtime/hash~0.scm b/src/bootstrap/gerbil/runtime/hash~0.scm index 73317f01c..db8837bd7 100644 --- a/src/bootstrap/gerbil/runtime/hash~0.scm +++ b/src/bootstrap/gerbil/runtime/hash~0.scm @@ -1,14 +1,14 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/hash::timestamp 1713044315) + (define gerbil/runtime/hash::timestamp 1713454410) (begin (define UnboundKeyError::t - (let ((__tmp108528 (list Error::t))) + (let ((__tmp108802 (list Error::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#UnboundKeyError::t 'UnboundKeyError - __tmp108528 + __tmp108802 '() '() ':init!))) @@ -17,8 +17,8 @@ (declare (not safe)) (__make-class-predicate UnboundKeyError::t))) (define make-UnboundKeyError - (lambda _%$args108508%_ - (apply make-instance UnboundKeyError::t _%$args108508%_))) + (lambda _%$args108782%_ + (apply make-instance UnboundKeyError::t _%$args108782%_))) (define UnboundKeyError-message (let () (declare (not safe)) @@ -96,32 +96,32 @@ UnboundKeyError:::init! '#f)) (define raise-unbound-key-error - (lambda (_%where108382%_ _%message108383%_ . _%irritants108384%_) - (let ((__tmp108529 - (let ((__obj108522 + (lambda (_%where108656%_ _%message108657%_ . _%irritants108658%_) + (let ((__tmp108803 + (let ((__obj108796 (let () (declare (not safe)) (##structure UnboundKeyError::t '#f '#f '#f '#f)))) (let () (declare (not safe)) (UnboundKeyError:::init! - __obj108522 - _%message108383%_ + __obj108796 + _%message108657%_ 'where: - _%where108382%_ + _%where108656%_ 'irritants: - _%irritants108384%_)) - __obj108522))) + _%irritants108658%_)) + __obj108796))) (declare (not safe)) - (raise __tmp108529)))) + (raise __tmp108803)))) (define unbound-key-error? UnboundKeyError?) (define HashTable::t - (let ((__tmp108530 (cons interface-instance::t '()))) + (let ((__tmp108804 (cons interface-instance::t '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#HashTable::t 'HashTable - __tmp108530 + __tmp108804 '(clear! copy delete! for-each length ref set! update!) '((final: . #t) (struct: . #t)) '#f))) @@ -133,143 +133,143 @@ HashTable::t '(clear! copy delete! for-each length ref set! update!)))) (define make-HashTable - (lambda (_%obj108380%_) + (lambda (_%obj108654%_) (let () (declare (not safe)) - (cast HashTable::interface _%obj108380%_)))) + (cast HashTable::interface _%obj108654%_)))) (define try-HashTable - (lambda (_%obj108378%_) + (lambda (_%obj108652%_) (let () (declare (not safe)) - (try-cast HashTable::interface _%obj108378%_)))) + (try-cast HashTable::interface _%obj108652%_)))) (define HashTable? - (lambda (_%obj108376%_) - (let ((__tmp108531 + (lambda (_%obj108650%_) + (let ((__tmp108805 (let () (declare (not safe)) (##type-id HashTable::t)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj108376%_ __tmp108531)))) + (##structure-direct-instance-of? _%obj108650%_ __tmp108805)))) (define is-HashTable? - (lambda (_%obj108374%_) + (lambda (_%obj108648%_) (if (let () (declare (not safe)) - (satisfies? HashTable::interface _%obj108374%_)) + (satisfies? HashTable::interface _%obj108648%_)) '#t '#f))) (define HashTable-clear! - (lambda (_%self108358%_) - (let* ((_%self108363%_ - (let ((_%$obj108360%_ _%self108358%_)) + (lambda (_%self108632%_) + (let* ((_%self108637%_ + (let ((_%$obj108634%_ _%self108632%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj108360%_)) + (##structure? _%$obj108634%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj108360%_))) + (##structure-type _%$obj108634%_))) '#t) - _%$obj108360%_ + _%$obj108634%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj108360%_))))) - (_%self108365%_ _%self108363%_)) - (&HashTable-clear! _%self108365%_)))) + (cast HashTable::interface _%$obj108634%_))))) + (_%self108639%_ _%self108637%_)) + (&HashTable-clear! _%self108639%_)))) (define &HashTable-clear! - (lambda (_%self108343%_) - (let ((_%self108345%_ _%self108343%_)) + (lambda (_%self108617%_) + (let ((_%self108619%_ _%self108617%_)) (declare (not safe)) - (let ((_%obj108355%_ - (##unchecked-structure-ref _%self108345%_ '1 '#f 'clear!)) - (_%f108356%_ - (##unchecked-structure-ref _%self108345%_ '2 '#f 'clear!))) - (_%f108356%_ _%obj108355%_))))) + (let ((_%obj108629%_ + (##unchecked-structure-ref _%self108619%_ '1 '#f 'clear!)) + (_%f108630%_ + (##unchecked-structure-ref _%self108619%_ '2 '#f 'clear!))) + (_%f108630%_ _%obj108629%_))))) (define HashTable-copy - (lambda (_%self108327%_) - (let* ((_%self108332%_ - (let ((_%$obj108329%_ _%self108327%_)) + (lambda (_%self108601%_) + (let* ((_%self108606%_ + (let ((_%$obj108603%_ _%self108601%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj108329%_)) + (##structure? _%$obj108603%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj108329%_))) + (##structure-type _%$obj108603%_))) '#t) - _%$obj108329%_ + _%$obj108603%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj108329%_))))) - (_%self108334%_ _%self108332%_)) - (__HashTable-copy _%self108334%_)))) + (cast HashTable::interface _%$obj108603%_))))) + (_%self108608%_ _%self108606%_)) + (__HashTable-copy _%self108608%_)))) (define __HashTable-copy - (lambda (_%self108314%_) - (let* ((_%self108316%_ _%self108314%_) - (_%$obj108324%_ (&HashTable-copy _%self108316%_))) - (if (and (let () (declare (not safe)) (##structure? _%$obj108324%_)) + (lambda (_%self108588%_) + (let* ((_%self108590%_ _%self108588%_) + (_%$obj108598%_ (&HashTable-copy _%self108590%_))) + (if (and (let () (declare (not safe)) (##structure? _%$obj108598%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj108324%_))) + (##structure-type _%$obj108598%_))) '#t) - _%$obj108324%_ + _%$obj108598%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj108324%_)))))) + (cast HashTable::interface _%$obj108598%_)))))) (define &HashTable-copy - (lambda (_%self108299%_) - (let ((_%self108301%_ _%self108299%_)) + (lambda (_%self108573%_) + (let ((_%self108575%_ _%self108573%_)) (declare (not safe)) - (let ((_%obj108311%_ - (##unchecked-structure-ref _%self108301%_ '1 '#f 'copy)) - (_%f108312%_ - (##unchecked-structure-ref _%self108301%_ '3 '#f 'copy))) - (_%f108312%_ _%obj108311%_))))) + (let ((_%obj108585%_ + (##unchecked-structure-ref _%self108575%_ '1 '#f 'copy)) + (_%f108586%_ + (##unchecked-structure-ref _%self108575%_ '3 '#f 'copy))) + (_%f108586%_ _%obj108585%_))))) (define HashTable-delete! - (lambda (_%self108282%_ _%key108283%_) - (let* ((_%self108288%_ - (let ((_%$obj108285%_ _%self108282%_)) + (lambda (_%self108556%_ _%key108557%_) + (let* ((_%self108562%_ + (let ((_%$obj108559%_ _%self108556%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj108285%_)) + (##structure? _%$obj108559%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj108285%_))) + (##structure-type _%$obj108559%_))) '#t) - _%$obj108285%_ + _%$obj108559%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj108285%_))))) - (_%self108290%_ _%self108288%_)) - (&HashTable-delete! _%self108290%_ _%key108283%_)))) + (cast HashTable::interface _%$obj108559%_))))) + (_%self108564%_ _%self108562%_)) + (&HashTable-delete! _%self108564%_ _%key108557%_)))) (define &HashTable-delete! - (lambda (_%self108266%_ _%key108267%_) - (let ((_%self108269%_ _%self108266%_)) + (lambda (_%self108540%_ _%key108541%_) + (let ((_%self108543%_ _%self108540%_)) (declare (not safe)) - (let ((_%obj108279%_ - (##unchecked-structure-ref _%self108269%_ '1 '#f 'delete!)) - (_%f108280%_ - (##unchecked-structure-ref _%self108269%_ '4 '#f 'delete!))) - (_%f108280%_ _%obj108279%_ _%key108267%_))))) + (let ((_%obj108553%_ + (##unchecked-structure-ref _%self108543%_ '1 '#f 'delete!)) + (_%f108554%_ + (##unchecked-structure-ref _%self108543%_ '4 '#f 'delete!))) + (_%f108554%_ _%obj108553%_ _%key108541%_))))) (define HashTable-for-each - (lambda (_%self108239%_ _%proc108240%_) - (let* ((_%self108245%_ - (let ((_%$obj108242%_ _%self108239%_)) + (lambda (_%self108513%_ _%proc108514%_) + (let* ((_%self108519%_ + (let ((_%$obj108516%_ _%self108513%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj108242%_)) + (##structure? _%$obj108516%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj108242%_))) + (##structure-type _%$obj108516%_))) '#t) - _%$obj108242%_ + _%$obj108516%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj108242%_))))) - (_%self108247%_ _%self108245%_)) - (if (procedure? _%proc108240%_) - (let ((_%proc108256%_ _%proc108240%_)) - (&HashTable-for-each _%self108247%_ _%proc108256%_)) + (cast HashTable::interface _%$obj108516%_))))) + (_%self108521%_ _%self108519%_)) + (if (procedure? _%proc108514%_) + (let ((_%proc108530%_ _%proc108514%_)) + (&HashTable-for-each _%self108521%_ _%proc108530%_)) (begin (raise-contract-violation-error '"contract violation" @@ -278,127 +278,127 @@ 'contract: 'procedure? 'value: - _%proc108240%_) + _%proc108514%_) '#!void))))) (define &HashTable-for-each - (lambda (_%self108215%_ _%proc108216%_) - (let* ((_%self108218%_ _%self108215%_) (_%proc108225%_ _%proc108216%_)) + (lambda (_%self108489%_ _%proc108490%_) + (let* ((_%self108492%_ _%self108489%_) (_%proc108499%_ _%proc108490%_)) (declare (not safe)) - (let ((_%obj108236%_ - (##unchecked-structure-ref _%self108218%_ '1 '#f 'for-each)) - (_%f108237%_ - (##unchecked-structure-ref _%self108218%_ '5 '#f 'for-each))) - (_%f108237%_ _%obj108236%_ _%proc108225%_))))) + (let ((_%obj108510%_ + (##unchecked-structure-ref _%self108492%_ '1 '#f 'for-each)) + (_%f108511%_ + (##unchecked-structure-ref _%self108492%_ '5 '#f 'for-each))) + (_%f108511%_ _%obj108510%_ _%proc108499%_))))) (define HashTable-length - (lambda (_%self108199%_) - (let* ((_%self108204%_ - (let ((_%$obj108201%_ _%self108199%_)) + (lambda (_%self108473%_) + (let* ((_%self108478%_ + (let ((_%$obj108475%_ _%self108473%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj108201%_)) + (##structure? _%$obj108475%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj108201%_))) + (##structure-type _%$obj108475%_))) '#t) - _%$obj108201%_ + _%$obj108475%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj108201%_))))) - (_%self108206%_ _%self108204%_)) - (__HashTable-length _%self108206%_)))) + (cast HashTable::interface _%$obj108475%_))))) + (_%self108480%_ _%self108478%_)) + (__HashTable-length _%self108480%_)))) (define __HashTable-length - (lambda (_%self108186%_) - (let* ((_%self108188%_ _%self108186%_) - (_%val108196%_ (&HashTable-length _%self108188%_))) - _%val108196%_))) + (lambda (_%self108460%_) + (let* ((_%self108462%_ _%self108460%_) + (_%val108470%_ (&HashTable-length _%self108462%_))) + _%val108470%_))) (define &HashTable-length - (lambda (_%self108171%_) - (let ((_%self108173%_ _%self108171%_)) + (lambda (_%self108445%_) + (let ((_%self108447%_ _%self108445%_)) (declare (not safe)) - (let ((_%obj108183%_ - (##unchecked-structure-ref _%self108173%_ '1 '#f 'length)) - (_%f108184%_ - (##unchecked-structure-ref _%self108173%_ '6 '#f 'length))) - (_%f108184%_ _%obj108183%_))))) + (let ((_%obj108457%_ + (##unchecked-structure-ref _%self108447%_ '1 '#f 'length)) + (_%f108458%_ + (##unchecked-structure-ref _%self108447%_ '6 '#f 'length))) + (_%f108458%_ _%obj108457%_))))) (define HashTable-ref - (lambda (_%self108153%_ _%key108154%_ _%default108155%_) - (let* ((_%self108160%_ - (let ((_%$obj108157%_ _%self108153%_)) + (lambda (_%self108427%_ _%key108428%_ _%default108429%_) + (let* ((_%self108434%_ + (let ((_%$obj108431%_ _%self108427%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj108157%_)) + (##structure? _%$obj108431%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj108157%_))) + (##structure-type _%$obj108431%_))) '#t) - _%$obj108157%_ + _%$obj108431%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj108157%_))))) - (_%self108162%_ _%self108160%_)) - (&HashTable-ref _%self108162%_ _%key108154%_ _%default108155%_)))) + (cast HashTable::interface _%$obj108431%_))))) + (_%self108436%_ _%self108434%_)) + (&HashTable-ref _%self108436%_ _%key108428%_ _%default108429%_)))) (define &HashTable-ref - (lambda (_%self108136%_ _%key108137%_ _%default108138%_) - (let ((_%self108140%_ _%self108136%_)) + (lambda (_%self108410%_ _%key108411%_ _%default108412%_) + (let ((_%self108414%_ _%self108410%_)) (declare (not safe)) - (let ((_%obj108150%_ - (##unchecked-structure-ref _%self108140%_ '1 '#f 'ref)) - (_%f108151%_ - (##unchecked-structure-ref _%self108140%_ '7 '#f 'ref))) - (_%f108151%_ _%obj108150%_ _%key108137%_ _%default108138%_))))) + (let ((_%obj108424%_ + (##unchecked-structure-ref _%self108414%_ '1 '#f 'ref)) + (_%f108425%_ + (##unchecked-structure-ref _%self108414%_ '7 '#f 'ref))) + (_%f108425%_ _%obj108424%_ _%key108411%_ _%default108412%_))))) (define HashTable-set! - (lambda (_%self108118%_ _%key108119%_ _%value108120%_) - (let* ((_%self108125%_ - (let ((_%$obj108122%_ _%self108118%_)) + (lambda (_%self108392%_ _%key108393%_ _%value108394%_) + (let* ((_%self108399%_ + (let ((_%$obj108396%_ _%self108392%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj108122%_)) + (##structure? _%$obj108396%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj108122%_))) + (##structure-type _%$obj108396%_))) '#t) - _%$obj108122%_ + _%$obj108396%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj108122%_))))) - (_%self108127%_ _%self108125%_)) - (&HashTable-set! _%self108127%_ _%key108119%_ _%value108120%_)))) + (cast HashTable::interface _%$obj108396%_))))) + (_%self108401%_ _%self108399%_)) + (&HashTable-set! _%self108401%_ _%key108393%_ _%value108394%_)))) (define &HashTable-set! - (lambda (_%self108101%_ _%key108102%_ _%value108103%_) - (let ((_%self108105%_ _%self108101%_)) + (lambda (_%self108375%_ _%key108376%_ _%value108377%_) + (let ((_%self108379%_ _%self108375%_)) (declare (not safe)) - (let ((_%obj108115%_ - (##unchecked-structure-ref _%self108105%_ '1 '#f 'set!)) - (_%f108116%_ - (##unchecked-structure-ref _%self108105%_ '8 '#f 'set!))) - (_%f108116%_ _%obj108115%_ _%key108102%_ _%value108103%_))))) + (let ((_%obj108389%_ + (##unchecked-structure-ref _%self108379%_ '1 '#f 'set!)) + (_%f108390%_ + (##unchecked-structure-ref _%self108379%_ '8 '#f 'set!))) + (_%f108390%_ _%obj108389%_ _%key108376%_ _%value108377%_))))) (define HashTable-update! - (lambda (_%self108072%_ _%key108073%_ _%proc108074%_ _%default108075%_) - (let* ((_%self108080%_ - (let ((_%$obj108077%_ _%self108072%_)) + (lambda (_%self108346%_ _%key108347%_ _%proc108348%_ _%default108349%_) + (let* ((_%self108354%_ + (let ((_%$obj108351%_ _%self108346%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj108077%_)) + (##structure? _%$obj108351%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj108077%_))) + (##structure-type _%$obj108351%_))) '#t) - _%$obj108077%_ + _%$obj108351%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj108077%_))))) - (_%self108082%_ _%self108080%_)) - (if (procedure? _%proc108074%_) - (let ((_%proc108091%_ _%proc108074%_)) + (cast HashTable::interface _%$obj108351%_))))) + (_%self108356%_ _%self108354%_)) + (if (procedure? _%proc108348%_) + (let ((_%proc108365%_ _%proc108348%_)) (&HashTable-update! - _%self108082%_ - _%key108073%_ - _%proc108091%_ - _%default108075%_)) + _%self108356%_ + _%key108347%_ + _%proc108365%_ + _%default108349%_)) (begin (raise-contract-violation-error '"contract violation" @@ -407,28 +407,28 @@ 'contract: 'procedure? 'value: - _%proc108074%_) + _%proc108348%_) '#!void))))) (define &HashTable-update! - (lambda (_%self108044%_ _%key108045%_ _%proc108046%_ _%default108047%_) - (let* ((_%self108049%_ _%self108044%_) (_%proc108056%_ _%proc108046%_)) + (lambda (_%self108318%_ _%key108319%_ _%proc108320%_ _%default108321%_) + (let* ((_%self108323%_ _%self108318%_) (_%proc108330%_ _%proc108320%_)) (declare (not safe)) - (let ((_%obj108067%_ - (##unchecked-structure-ref _%self108049%_ '1 '#f 'update!)) - (_%f108069%_ - (##unchecked-structure-ref _%self108049%_ '9 '#f 'update!))) - (_%f108069%_ - _%obj108067%_ - _%key108045%_ - _%proc108056%_ - _%default108047%_))))) + (let ((_%obj108341%_ + (##unchecked-structure-ref _%self108323%_ '1 '#f 'update!)) + (_%f108343%_ + (##unchecked-structure-ref _%self108323%_ '9 '#f 'update!))) + (_%f108343%_ + _%obj108341%_ + _%key108319%_ + _%proc108330%_ + _%default108321%_))))) (define Locker::t - (let ((__tmp108532 (cons interface-instance::t '()))) + (let ((__tmp108806 (cons interface-instance::t '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#Locker::t 'Locker - __tmp108532 + __tmp108806 '(read-lock! read-unlock! write-lock! write-unlock!) '((final: . #t) (struct: . #t)) '#f))) @@ -440,162 +440,162 @@ Locker::t '(read-lock! read-unlock! write-lock! write-unlock!)))) (define make-Locker - (lambda (_%obj108042%_) - (let () (declare (not safe)) (cast Locker::interface _%obj108042%_)))) + (lambda (_%obj108316%_) + (let () (declare (not safe)) (cast Locker::interface _%obj108316%_)))) (define try-Locker - (lambda (_%obj108040%_) + (lambda (_%obj108314%_) (let () (declare (not safe)) - (try-cast Locker::interface _%obj108040%_)))) + (try-cast Locker::interface _%obj108314%_)))) (define Locker? - (lambda (_%obj108038%_) - (let ((__tmp108533 + (lambda (_%obj108312%_) + (let ((__tmp108807 (let () (declare (not safe)) (##type-id Locker::t)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj108038%_ __tmp108533)))) + (##structure-direct-instance-of? _%obj108312%_ __tmp108807)))) (define is-Locker? - (lambda (_%obj108036%_) + (lambda (_%obj108310%_) (if (let () (declare (not safe)) - (satisfies? Locker::interface _%obj108036%_)) + (satisfies? Locker::interface _%obj108310%_)) '#t '#f))) (define Locker-read-lock! - (lambda (_%self108020%_) - (let* ((_%self108025%_ - (let ((_%$obj108022%_ _%self108020%_)) + (lambda (_%self108294%_) + (let* ((_%self108299%_ + (let ((_%$obj108296%_ _%self108294%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj108022%_)) + (##structure? _%$obj108296%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj108022%_))) + (##structure-type _%$obj108296%_))) '#t) - _%$obj108022%_ + _%$obj108296%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj108022%_))))) - (_%self108027%_ _%self108025%_)) - (&Locker-read-lock! _%self108027%_)))) + (cast Locker::interface _%$obj108296%_))))) + (_%self108301%_ _%self108299%_)) + (&Locker-read-lock! _%self108301%_)))) (define &Locker-read-lock! - (lambda (_%self108005%_) - (let ((_%self108007%_ _%self108005%_)) + (lambda (_%self108279%_) + (let ((_%self108281%_ _%self108279%_)) (declare (not safe)) - (let ((_%obj108017%_ - (##unchecked-structure-ref _%self108007%_ '1 '#f 'read-lock!)) - (_%f108018%_ + (let ((_%obj108291%_ + (##unchecked-structure-ref _%self108281%_ '1 '#f 'read-lock!)) + (_%f108292%_ (##unchecked-structure-ref - _%self108007%_ + _%self108281%_ '2 '#f 'read-lock!))) - (_%f108018%_ _%obj108017%_))))) + (_%f108292%_ _%obj108291%_))))) (define Locker-read-unlock! - (lambda (_%self107989%_) - (let* ((_%self107994%_ - (let ((_%$obj107991%_ _%self107989%_)) + (lambda (_%self108263%_) + (let* ((_%self108268%_ + (let ((_%$obj108265%_ _%self108263%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj107991%_)) + (##structure? _%$obj108265%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj107991%_))) + (##structure-type _%$obj108265%_))) '#t) - _%$obj107991%_ + _%$obj108265%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj107991%_))))) - (_%self107996%_ _%self107994%_)) - (&Locker-read-unlock! _%self107996%_)))) + (cast Locker::interface _%$obj108265%_))))) + (_%self108270%_ _%self108268%_)) + (&Locker-read-unlock! _%self108270%_)))) (define &Locker-read-unlock! - (lambda (_%self107974%_) - (let ((_%self107976%_ _%self107974%_)) + (lambda (_%self108248%_) + (let ((_%self108250%_ _%self108248%_)) (declare (not safe)) - (let ((_%obj107986%_ + (let ((_%obj108260%_ (##unchecked-structure-ref - _%self107976%_ + _%self108250%_ '1 '#f 'read-unlock!)) - (_%f107987%_ + (_%f108261%_ (##unchecked-structure-ref - _%self107976%_ + _%self108250%_ '3 '#f 'read-unlock!))) - (_%f107987%_ _%obj107986%_))))) + (_%f108261%_ _%obj108260%_))))) (define Locker-write-lock! - (lambda (_%self107958%_) - (let* ((_%self107963%_ - (let ((_%$obj107960%_ _%self107958%_)) + (lambda (_%self108232%_) + (let* ((_%self108237%_ + (let ((_%$obj108234%_ _%self108232%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj107960%_)) + (##structure? _%$obj108234%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj107960%_))) + (##structure-type _%$obj108234%_))) '#t) - _%$obj107960%_ + _%$obj108234%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj107960%_))))) - (_%self107965%_ _%self107963%_)) - (&Locker-write-lock! _%self107965%_)))) + (cast Locker::interface _%$obj108234%_))))) + (_%self108239%_ _%self108237%_)) + (&Locker-write-lock! _%self108239%_)))) (define &Locker-write-lock! - (lambda (_%self107943%_) - (let ((_%self107945%_ _%self107943%_)) + (lambda (_%self108217%_) + (let ((_%self108219%_ _%self108217%_)) (declare (not safe)) - (let ((_%obj107955%_ + (let ((_%obj108229%_ (##unchecked-structure-ref - _%self107945%_ + _%self108219%_ '1 '#f 'write-lock!)) - (_%f107956%_ + (_%f108230%_ (##unchecked-structure-ref - _%self107945%_ + _%self108219%_ '4 '#f 'write-lock!))) - (_%f107956%_ _%obj107955%_))))) + (_%f108230%_ _%obj108229%_))))) (define Locker-write-unlock! - (lambda (_%self107927%_) - (let* ((_%self107932%_ - (let ((_%$obj107929%_ _%self107927%_)) + (lambda (_%self108201%_) + (let* ((_%self108206%_ + (let ((_%$obj108203%_ _%self108201%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj107929%_)) + (##structure? _%$obj108203%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj107929%_))) + (##structure-type _%$obj108203%_))) '#t) - _%$obj107929%_ + _%$obj108203%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj107929%_))))) - (_%self107934%_ _%self107932%_)) - (&Locker-write-unlock! _%self107934%_)))) + (cast Locker::interface _%$obj108203%_))))) + (_%self108208%_ _%self108206%_)) + (&Locker-write-unlock! _%self108208%_)))) (define &Locker-write-unlock! - (lambda (_%self107910%_) - (let ((_%self107912%_ _%self107910%_)) + (lambda (_%self108184%_) + (let ((_%self108186%_ _%self108184%_)) (declare (not safe)) - (let ((_%obj107922%_ + (let ((_%obj108196%_ (##unchecked-structure-ref - _%self107912%_ + _%self108186%_ '1 '#f 'write-unlock!)) - (_%f107924%_ + (_%f108198%_ (##unchecked-structure-ref - _%self107912%_ + _%self108186%_ '5 '#f 'write-unlock!))) - (_%f107924%_ _%obj107922%_))))) + (_%f108198%_ _%obj108196%_))))) (let () (declare (not safe)) (bind-method!__0 __table::t 'ref raw-table-ref)) @@ -645,195 +645,195 @@ (declare (not safe)) (bind-method!__0 __gc-table::t 'clear! gc-table-clear!)) (define gambit-table-update! - (lambda (_%table107903%_ - _%key107904%_ - _%update107905%_ - _%default107906%_) - (let ((_%result107908%_ - (table-ref _%table107903%_ _%key107904%_ _%default107906%_))) + (lambda (_%table108177%_ + _%key108178%_ + _%update108179%_ + _%default108180%_) + (let ((_%result108182%_ + (table-ref _%table108177%_ _%key108178%_ _%default108180%_))) (table-set! - _%table107903%_ - _%key107904%_ - (_%update107905%_ _%default107906%_))))) + _%table108177%_ + _%key108178%_ + (_%update108179%_ _%default108180%_))))) (define gambit-table-for-each - (lambda (_%table107900%_ _%proc107901%_) - (table-for-each _%proc107901%_ _%table107900%_))) + (lambda (_%table108174%_ _%proc108175%_) + (table-for-each _%proc108175%_ _%table108174%_))) (define gambit-table-clear! - (lambda (_%table107898%_) + (lambda (_%table108172%_) (let () (declare (not safe)) - (##unchecked-structure-set! _%table107898%_ '0 '5 '#f '#f)))) - (let ((__tmp108534 (macro-type-table))) + (##unchecked-structure-set! _%table108172%_ '0 '5 '#f '#f)))) + (let ((__tmp108808 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp108534 'ref table-ref)) - (let ((__tmp108535 (macro-type-table))) + (bind-method!__0 __tmp108808 'ref table-ref)) + (let ((__tmp108809 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp108535 'set! table-set!)) - (let ((__tmp108536 (macro-type-table))) + (bind-method!__0 __tmp108809 'set! table-set!)) + (let ((__tmp108810 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp108536 'update! gambit-table-update!)) - (let ((__tmp108537 (macro-type-table))) + (bind-method!__0 __tmp108810 'update! gambit-table-update!)) + (let ((__tmp108811 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp108537 'delete! table-set!)) - (let ((__tmp108538 (macro-type-table))) + (bind-method!__0 __tmp108811 'delete! table-set!)) + (let ((__tmp108812 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp108538 'for-each gambit-table-for-each)) - (let ((__tmp108539 (macro-type-table))) + (bind-method!__0 __tmp108812 'for-each gambit-table-for-each)) + (let ((__tmp108813 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp108539 'length table-length)) - (let ((__tmp108540 (macro-type-table))) + (bind-method!__0 __tmp108813 'length table-length)) + (let ((__tmp108814 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp108540 'copy table-copy)) - (let ((__tmp108541 (macro-type-table))) + (bind-method!__0 __tmp108814 'copy table-copy)) + (let ((__tmp108815 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp108541 'clear! gambit-table-clear!)) + (bind-method!__0 __tmp108815 'clear! gambit-table-clear!)) (define hash-table::t - (let* ((_%slots107880%_ '(table count free hash test seed)) - (_%slot-vector107882%_ (list->vector (cons '#f _%slots107880%_))) - (_%slot-table107889%_ - (let ((_%slot-table107884%_ + (let* ((_%slots108154%_ '(table count free hash test seed)) + (_%slot-vector108156%_ (list->vector (cons '#f _%slots108154%_))) + (_%slot-table108163%_ + (let ((_%slot-table108158%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp108544 - (lambda (_%slot107886%_ _%field107887%_) + (let ((__tmp108818 + (lambda (_%slot108160%_ _%field108161%_) (let () (declare (not safe)) (symbolic-table-set! - _%slot-table107884%_ - _%slot107886%_ - _%field107887%_)) - (let ((__tmp108545 + _%slot-table108158%_ + _%slot108160%_ + _%field108161%_)) + (let ((__tmp108819 (let () (declare (not safe)) - (symbol->keyword _%slot107886%_)))) + (symbol->keyword _%slot108160%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table107884%_ - __tmp108545 - _%field107887%_)))) - (__tmp108542 - (let ((__tmp108543 + _%slot-table108158%_ + __tmp108819 + _%field108161%_)))) + (__tmp108816 + (let ((__tmp108817 (let () (declare (not safe)) - (##length _%slots107880%_)))) + (##length _%slots108154%_)))) (declare (not safe)) - (##iota __tmp108543 '1)))) + (##iota __tmp108817 '1)))) (declare (not safe)) - (##for-each __tmp108544 _%slots107880%_ __tmp108542)) - _%slot-table107884%_)) - (_%flags107891%_ + (##for-each __tmp108818 _%slots108154%_ __tmp108816)) + _%slot-table108158%_)) + (_%flags108165%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_%fields107893%_ '#()) - (_%properties107895%_ + (_%fields108167%_ '#()) + (_%properties108169%_ (cons (cons 'direct-slots: (let () (declare (not safe)) - (__foldr1 cons '() _%slots107880%_))) + (__foldr1 cons '() _%slots108154%_))) (cons (cons 'struct: '#t) '()))) - (__tmp108546 (cons object::t (cons t::t '())))) + (__tmp108820 (cons object::t (cons t::t '())))) (declare (not safe)) (##structure class::t 'gerbil#hash-table::t 'hash-table - _%flags107891%_ + _%flags108165%_ __table::t - _%fields107893%_ - __tmp108546 - _%slot-vector107882%_ - _%slot-table107889%_ - _%properties107895%_ + _%fields108167%_ + __tmp108820 + _%slot-vector108156%_ + _%slot-table108163%_ + _%properties108169%_ '#f '#f))) (define gc-hash-table::t - (let* ((_%slots107862%_ '(gcht immediate)) - (_%slot-vector107864%_ (list->vector (cons '#f _%slots107862%_))) - (_%slot-table107871%_ - (let ((_%slot-table107866%_ + (let* ((_%slots108136%_ '(gcht immediate)) + (_%slot-vector108138%_ (list->vector (cons '#f _%slots108136%_))) + (_%slot-table108145%_ + (let ((_%slot-table108140%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp108549 - (lambda (_%slot107868%_ _%field107869%_) + (let ((__tmp108823 + (lambda (_%slot108142%_ _%field108143%_) (let () (declare (not safe)) (symbolic-table-set! - _%slot-table107866%_ - _%slot107868%_ - _%field107869%_)) - (let ((__tmp108550 + _%slot-table108140%_ + _%slot108142%_ + _%field108143%_)) + (let ((__tmp108824 (let () (declare (not safe)) - (symbol->keyword _%slot107868%_)))) + (symbol->keyword _%slot108142%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table107866%_ - __tmp108550 - _%field107869%_)))) - (__tmp108547 - (let ((__tmp108548 + _%slot-table108140%_ + __tmp108824 + _%field108143%_)))) + (__tmp108821 + (let ((__tmp108822 (let () (declare (not safe)) - (##length _%slots107862%_)))) + (##length _%slots108136%_)))) (declare (not safe)) - (##iota __tmp108548 '1)))) + (##iota __tmp108822 '1)))) (declare (not safe)) - (##for-each __tmp108549 _%slots107862%_ __tmp108547)) - _%slot-table107866%_)) - (_%flags107873%_ + (##for-each __tmp108823 _%slots108136%_ __tmp108821)) + _%slot-table108140%_)) + (_%flags108147%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_%fields107875%_ '#()) - (_%properties107877%_ + (_%fields108149%_ '#()) + (_%properties108151%_ (cons (cons 'direct-slots: (let () (declare (not safe)) - (__foldr1 cons '() _%slots107862%_))) + (__foldr1 cons '() _%slots108136%_))) (cons (cons 'struct: '#t) '()))) - (__tmp108551 (cons object::t (cons t::t '())))) + (__tmp108825 (cons object::t (cons t::t '())))) (declare (not safe)) (##structure class::t 'gerbil#gc-hash-table::t 'hash-table - _%flags107873%_ + _%flags108147%_ __gc-table::t - _%fields107875%_ - __tmp108551 - _%slot-vector107864%_ - _%slot-table107871%_ - _%properties107877%_ + _%fields108149%_ + __tmp108825 + _%slot-vector108138%_ + _%slot-table108145%_ + _%properties108151%_ '#f '#f))) (define locked-hash-table::t - (let ((__tmp108553 (list)) - (__tmp108552 + (let ((__tmp108827 (list)) + (__tmp108826 (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#locked-hash-table::t 'locked-hash-table - __tmp108553 + __tmp108827 '(table lock) - __tmp108552 + __tmp108826 '#f))) (define locked-hash-table? (let () (declare (not safe)) (__make-class-predicate locked-hash-table::t))) (define make-locked-hash-table - (lambda _%$args107859%_ - (apply make-instance locked-hash-table::t _%$args107859%_))) + (lambda _%$args108133%_ + (apply make-instance locked-hash-table::t _%$args108133%_))) (define locked-hash-table-table (let () (declare (not safe)) @@ -867,24 +867,24 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator locked-hash-table::t 'lock))) (define checked-hash-table::t - (let ((__tmp108555 (list)) - (__tmp108554 + (let ((__tmp108829 (list)) + (__tmp108828 (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#checked-hash-table::t 'checked-hash-table - __tmp108555 + __tmp108829 '(table key-check) - __tmp108554 + __tmp108828 '#f))) (define checked-hash-table? (let () (declare (not safe)) (__make-class-predicate checked-hash-table::t))) (define make-checked-hash-table - (lambda _%$args107856%_ - (apply make-instance checked-hash-table::t _%$args107856%_))) + (lambda _%$args108130%_ + (apply make-instance checked-hash-table::t _%$args108130%_))) (define checked-hash-table-table (let () (declare (not safe)) @@ -922,91 +922,91 @@ checked-hash-table::t 'key-check))) (define eq-hash-table::t - (let ((__tmp108557 (list hash-table::t)) - (__tmp108556 (cons (cons 'struct: '#t) '()))) + (let ((__tmp108831 (list hash-table::t)) + (__tmp108830 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#eq-hash-table 'hash-table - __tmp108557 + __tmp108831 '() - __tmp108556 + __tmp108830 '#f))) (define eq-hash-table? (let () (declare (not safe)) (__make-class-predicate eq-hash-table::t))) (define make-eq-hash-table - (lambda _%$args107853%_ - (apply make-instance eq-hash-table::t _%$args107853%_))) + (lambda _%$args108127%_ + (apply make-instance eq-hash-table::t _%$args108127%_))) (define eqv-hash-table::t - (let ((__tmp108559 (list hash-table::t)) - (__tmp108558 (cons (cons 'struct: '#t) '()))) + (let ((__tmp108833 (list hash-table::t)) + (__tmp108832 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#eqv-hash-table 'hash-table - __tmp108559 + __tmp108833 '() - __tmp108558 + __tmp108832 '#f))) (define eqv-hash-table? (let () (declare (not safe)) (__make-class-predicate eqv-hash-table::t))) (define make-eqv-hash-table - (lambda _%$args107850%_ - (apply make-instance eqv-hash-table::t _%$args107850%_))) + (lambda _%$args108124%_ + (apply make-instance eqv-hash-table::t _%$args108124%_))) (define symbol-hash-table::t - (let ((__tmp108561 (list hash-table::t)) - (__tmp108560 (cons (cons 'struct: '#t) '()))) + (let ((__tmp108835 (list hash-table::t)) + (__tmp108834 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#symbol-hash-table 'hash-table - __tmp108561 + __tmp108835 '() - __tmp108560 + __tmp108834 '#f))) (define symbol-hash-table? (let () (declare (not safe)) (__make-class-predicate symbol-hash-table::t))) (define make-symbol-hash-table - (lambda _%$args107847%_ - (apply make-instance symbol-hash-table::t _%$args107847%_))) + (lambda _%$args108121%_ + (apply make-instance symbol-hash-table::t _%$args108121%_))) (define string-hash-table::t - (let ((__tmp108563 (list hash-table::t)) - (__tmp108562 (cons (cons 'struct: '#t) '()))) + (let ((__tmp108837 (list hash-table::t)) + (__tmp108836 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#string-hash-table 'hash-table - __tmp108563 + __tmp108837 '() - __tmp108562 + __tmp108836 '#f))) (define string-hash-table? (let () (declare (not safe)) (__make-class-predicate string-hash-table::t))) (define make-string-hash-table - (lambda _%$args107844%_ - (apply make-instance string-hash-table::t _%$args107844%_))) + (lambda _%$args108118%_ + (apply make-instance string-hash-table::t _%$args108118%_))) (define immediate-hash-table::t - (let ((__tmp108565 (list hash-table::t)) - (__tmp108564 (cons (cons 'struct: '#t) '()))) + (let ((__tmp108839 (list hash-table::t)) + (__tmp108838 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#immediate-hash-table::t 'hash-table - __tmp108565 + __tmp108839 '() - __tmp108564 + __tmp108838 '#f))) (define immediate-hash-table? (let () (declare (not safe)) (__make-class-predicate immediate-hash-table::t))) (define make-immediate-hash-table - (lambda _%$args107841%_ - (apply make-instance immediate-hash-table::t _%$args107841%_))) + (lambda _%$args108115%_ + (apply make-instance immediate-hash-table::t _%$args108115%_))) (let () (declare (not safe)) (bind-method!__0 hash-table::t 'ref raw-table-ref)) @@ -1123,406 +1123,406 @@ (bind-method!__0 gc-hash-table::t 'clear! gc-table-clear!)) (define hash-table? HashTable?) (define is-hash-table? is-HashTable?) - (define _%locked-hash-table::ref103841%_ - (lambda (_%self103840107815%_ _%key107817%_ _%default107818%_) - (let* ((_%self107820%_ _%self103840107815%_) - (_%self107823%_ _%self107820%_)) - (let ((_%h107833%_ + (define _%locked-hash-table::ref104115%_ + (lambda (_%self104114108089%_ _%key108091%_ _%default108092%_) + (let* ((_%self108094%_ _%self104114108089%_) + (_%self108097%_ _%self108094%_)) + (let ((_%h108107%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self107823%_ '1 '#f '#f))) - (_%l107835%_ + (##unchecked-structure-ref _%self108097%_ '1 '#f '#f))) + (_%l108109%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self107823%_ '2 '#f '#f)))) - (let ((__tmp108568 (lambda () (&Locker-read-lock! _%l107835%_))) - (__tmp108567 + (##unchecked-structure-ref _%self108097%_ '2 '#f '#f)))) + (let ((__tmp108842 (lambda () (&Locker-read-lock! _%l108109%_))) + (__tmp108841 (lambda () (&HashTable-ref - _%h107833%_ - _%key107817%_ - _%default107818%_))) - (__tmp108566 (lambda () (&Locker-read-unlock! _%l107835%_)))) + _%h108107%_ + _%key108091%_ + _%default108092%_))) + (__tmp108840 (lambda () (&Locker-read-unlock! _%l108109%_)))) (declare (not safe)) - (##dynamic-wind __tmp108568 __tmp108567 __tmp108566)))))) + (##dynamic-wind __tmp108842 __tmp108841 __tmp108840)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'ref - _%locked-hash-table::ref103841%_ + _%locked-hash-table::ref104115%_ '#f)) - (define _%locked-hash-table::set!103844%_ - (lambda (_%self103843107666%_ _%key107668%_ _%value107669%_) - (let* ((_%self107671%_ _%self103843107666%_) - (_%self107674%_ _%self107671%_)) - (let ((_%h107684%_ + (define _%locked-hash-table::set!104118%_ + (lambda (_%self104117107940%_ _%key107942%_ _%value107943%_) + (let* ((_%self107945%_ _%self104117107940%_) + (_%self107948%_ _%self107945%_)) + (let ((_%h107958%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self107674%_ '1 '#f '#f))) - (_%l107686%_ + (##unchecked-structure-ref _%self107948%_ '1 '#f '#f))) + (_%l107960%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self107674%_ '2 '#f '#f)))) - (let ((__tmp108571 (lambda () (&Locker-write-lock! _%l107686%_))) - (__tmp108570 + (##unchecked-structure-ref _%self107948%_ '2 '#f '#f)))) + (let ((__tmp108845 (lambda () (&Locker-write-lock! _%l107960%_))) + (__tmp108844 (lambda () (&HashTable-set! - _%h107684%_ - _%key107668%_ - _%value107669%_))) - (__tmp108569 - (lambda () (&Locker-write-unlock! _%l107686%_)))) + _%h107958%_ + _%key107942%_ + _%value107943%_))) + (__tmp108843 + (lambda () (&Locker-write-unlock! _%l107960%_)))) (declare (not safe)) - (##dynamic-wind __tmp108571 __tmp108570 __tmp108569)))))) + (##dynamic-wind __tmp108845 __tmp108844 __tmp108843)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'set! - _%locked-hash-table::set!103844%_ + _%locked-hash-table::set!104118%_ '#f)) - (define _%locked-hash-table::update!103847%_ - (lambda (_%self103846107516%_ - _%key107518%_ - _%update107519%_ - _%default107520%_) - (let* ((_%self107522%_ _%self103846107516%_) - (_%self107525%_ _%self107522%_)) - (let ((_%h107535%_ + (define _%locked-hash-table::update!104121%_ + (lambda (_%self104120107790%_ + _%key107792%_ + _%update107793%_ + _%default107794%_) + (let* ((_%self107796%_ _%self104120107790%_) + (_%self107799%_ _%self107796%_)) + (let ((_%h107809%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self107525%_ '1 '#f '#f))) - (_%l107537%_ + (##unchecked-structure-ref _%self107799%_ '1 '#f '#f))) + (_%l107811%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self107525%_ '2 '#f '#f)))) - (let ((__tmp108574 (lambda () (&Locker-write-lock! _%l107537%_))) - (__tmp108573 + (##unchecked-structure-ref _%self107799%_ '2 '#f '#f)))) + (let ((__tmp108848 (lambda () (&Locker-write-lock! _%l107811%_))) + (__tmp108847 (lambda () (&HashTable-update! - _%h107535%_ - _%key107518%_ - _%update107519%_ - _%default107520%_))) - (__tmp108572 - (lambda () (&Locker-write-unlock! _%l107537%_)))) + _%h107809%_ + _%key107792%_ + _%update107793%_ + _%default107794%_))) + (__tmp108846 + (lambda () (&Locker-write-unlock! _%l107811%_)))) (declare (not safe)) - (##dynamic-wind __tmp108574 __tmp108573 __tmp108572)))))) + (##dynamic-wind __tmp108848 __tmp108847 __tmp108846)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'update! - _%locked-hash-table::update!103847%_ + _%locked-hash-table::update!104121%_ '#f)) - (define _%locked-hash-table::delete!103850%_ - (lambda (_%self103849107368%_ _%key107370%_) - (let* ((_%self107372%_ _%self103849107368%_) - (_%self107375%_ _%self107372%_)) - (let ((_%h107385%_ + (define _%locked-hash-table::delete!104124%_ + (lambda (_%self104123107642%_ _%key107644%_) + (let* ((_%self107646%_ _%self104123107642%_) + (_%self107649%_ _%self107646%_)) + (let ((_%h107659%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self107375%_ '1 '#f '#f))) - (_%l107387%_ + (##unchecked-structure-ref _%self107649%_ '1 '#f '#f))) + (_%l107661%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self107375%_ '2 '#f '#f)))) - (let ((__tmp108577 (lambda () (&Locker-write-lock! _%l107387%_))) - (__tmp108576 - (lambda () (&HashTable-delete! _%h107385%_ _%key107370%_))) - (__tmp108575 - (lambda () (&Locker-write-unlock! _%l107387%_)))) + (##unchecked-structure-ref _%self107649%_ '2 '#f '#f)))) + (let ((__tmp108851 (lambda () (&Locker-write-lock! _%l107661%_))) + (__tmp108850 + (lambda () (&HashTable-delete! _%h107659%_ _%key107644%_))) + (__tmp108849 + (lambda () (&Locker-write-unlock! _%l107661%_)))) (declare (not safe)) - (##dynamic-wind __tmp108577 __tmp108576 __tmp108575)))))) + (##dynamic-wind __tmp108851 __tmp108850 __tmp108849)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'delete! - _%locked-hash-table::delete!103850%_ + _%locked-hash-table::delete!104124%_ '#f)) - (define _%locked-hash-table::for-each103853%_ - (lambda (_%self103852107220%_ _%proc107222%_) - (let* ((_%self107224%_ _%self103852107220%_) - (_%self107227%_ _%self107224%_)) - (let ((_%h107237%_ + (define _%locked-hash-table::for-each104127%_ + (lambda (_%self104126107494%_ _%proc107496%_) + (let* ((_%self107498%_ _%self104126107494%_) + (_%self107501%_ _%self107498%_)) + (let ((_%h107511%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self107227%_ '1 '#f '#f))) - (_%l107239%_ + (##unchecked-structure-ref _%self107501%_ '1 '#f '#f))) + (_%l107513%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self107227%_ '2 '#f '#f)))) - (let ((__tmp108580 (lambda () (&Locker-read-lock! _%l107239%_))) - (__tmp108579 + (##unchecked-structure-ref _%self107501%_ '2 '#f '#f)))) + (let ((__tmp108854 (lambda () (&Locker-read-lock! _%l107513%_))) + (__tmp108853 (lambda () - (&HashTable-for-each _%h107237%_ _%proc107222%_))) - (__tmp108578 (lambda () (&Locker-read-unlock! _%l107239%_)))) + (&HashTable-for-each _%h107511%_ _%proc107496%_))) + (__tmp108852 (lambda () (&Locker-read-unlock! _%l107513%_)))) (declare (not safe)) - (##dynamic-wind __tmp108580 __tmp108579 __tmp108578)))))) + (##dynamic-wind __tmp108854 __tmp108853 __tmp108852)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'for-each - _%locked-hash-table::for-each103853%_ + _%locked-hash-table::for-each104127%_ '#f)) - (define _%locked-hash-table::length103856%_ - (lambda (_%self103855107073%_) - (let* ((_%self107076%_ _%self103855107073%_) - (_%self107079%_ _%self107076%_)) - (let ((_%h107089%_ + (define _%locked-hash-table::length104130%_ + (lambda (_%self104129107347%_) + (let* ((_%self107350%_ _%self104129107347%_) + (_%self107353%_ _%self107350%_)) + (let ((_%h107363%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self107079%_ '1 '#f '#f))) - (_%l107091%_ + (##unchecked-structure-ref _%self107353%_ '1 '#f '#f))) + (_%l107365%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self107079%_ '2 '#f '#f)))) - (let ((__tmp108583 (lambda () (&Locker-read-lock! _%l107091%_))) - (__tmp108582 (lambda () (&HashTable-length _%h107089%_))) - (__tmp108581 (lambda () (&Locker-read-unlock! _%l107091%_)))) + (##unchecked-structure-ref _%self107353%_ '2 '#f '#f)))) + (let ((__tmp108857 (lambda () (&Locker-read-lock! _%l107365%_))) + (__tmp108856 (lambda () (&HashTable-length _%h107363%_))) + (__tmp108855 (lambda () (&Locker-read-unlock! _%l107365%_)))) (declare (not safe)) - (##dynamic-wind __tmp108583 __tmp108582 __tmp108581)))))) + (##dynamic-wind __tmp108857 __tmp108856 __tmp108855)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'length - _%locked-hash-table::length103856%_ + _%locked-hash-table::length104130%_ '#f)) - (define _%locked-hash-table::copy103859%_ - (lambda (_%self103858106926%_) - (let* ((_%self106929%_ _%self103858106926%_) - (_%self106932%_ _%self106929%_)) - (let ((_%h106942%_ + (define _%locked-hash-table::copy104133%_ + (lambda (_%self104132107200%_) + (let* ((_%self107203%_ _%self104132107200%_) + (_%self107206%_ _%self107203%_)) + (let ((_%h107216%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self106932%_ '1 '#f '#f))) - (_%l106944%_ + (##unchecked-structure-ref _%self107206%_ '1 '#f '#f))) + (_%l107218%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self106932%_ '2 '#f '#f)))) - (let ((__tmp108586 (lambda () (&Locker-read-lock! _%l106944%_))) - (__tmp108585 (lambda () (&HashTable-copy _%h106942%_))) - (__tmp108584 (lambda () (&Locker-read-unlock! _%l106944%_)))) + (##unchecked-structure-ref _%self107206%_ '2 '#f '#f)))) + (let ((__tmp108860 (lambda () (&Locker-read-lock! _%l107218%_))) + (__tmp108859 (lambda () (&HashTable-copy _%h107216%_))) + (__tmp108858 (lambda () (&Locker-read-unlock! _%l107218%_)))) (declare (not safe)) - (##dynamic-wind __tmp108586 __tmp108585 __tmp108584)))))) + (##dynamic-wind __tmp108860 __tmp108859 __tmp108858)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'copy - _%locked-hash-table::copy103859%_ + _%locked-hash-table::copy104133%_ '#f)) - (define _%locked-hash-table::clear!103862%_ - (lambda (_%self103861106779%_) - (let* ((_%self106782%_ _%self103861106779%_) - (_%self106785%_ _%self106782%_)) - (let ((_%h106795%_ + (define _%locked-hash-table::clear!104136%_ + (lambda (_%self104135107053%_) + (let* ((_%self107056%_ _%self104135107053%_) + (_%self107059%_ _%self107056%_)) + (let ((_%h107069%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self106785%_ '1 '#f '#f))) - (_%l106797%_ + (##unchecked-structure-ref _%self107059%_ '1 '#f '#f))) + (_%l107071%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self106785%_ '2 '#f '#f)))) - (let ((__tmp108589 (lambda () (&Locker-write-lock! _%l106797%_))) - (__tmp108588 (lambda () (&HashTable-clear! _%h106795%_))) - (__tmp108587 - (lambda () (&Locker-write-unlock! _%l106797%_)))) + (##unchecked-structure-ref _%self107059%_ '2 '#f '#f)))) + (let ((__tmp108863 (lambda () (&Locker-write-lock! _%l107071%_))) + (__tmp108862 (lambda () (&HashTable-clear! _%h107069%_))) + (__tmp108861 + (lambda () (&Locker-write-unlock! _%l107071%_)))) (declare (not safe)) - (##dynamic-wind __tmp108589 __tmp108588 __tmp108587)))))) + (##dynamic-wind __tmp108863 __tmp108862 __tmp108861)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'clear! - _%locked-hash-table::clear!103862%_ + _%locked-hash-table::clear!104136%_ '#f)) - (let ((__tmp108590 (macro-type-mutex))) + (let ((__tmp108864 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp108590 'read-lock! mutex-lock!)) - (let ((__tmp108591 (macro-type-mutex))) + (bind-method!__0 __tmp108864 'read-lock! mutex-lock!)) + (let ((__tmp108865 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp108591 'read-unlock! mutex-unlock!)) - (let ((__tmp108592 (macro-type-mutex))) + (bind-method!__0 __tmp108865 'read-unlock! mutex-unlock!)) + (let ((__tmp108866 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp108592 'write-lock! mutex-lock!)) - (let ((__tmp108593 (macro-type-mutex))) + (bind-method!__0 __tmp108866 'write-lock! mutex-lock!)) + (let ((__tmp108867 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp108593 'write-unlock! mutex-unlock!)) - (define _%checked-hash-table::ref104076%_ - (lambda (_%self104075106629%_ _%key106631%_ _%default106632%_) - (let* ((_%self106634%_ _%self104075106629%_) - (_%self106636%_ _%self106634%_)) + (bind-method!__0 __tmp108867 'write-unlock! mutex-unlock!)) + (define _%checked-hash-table::ref104350%_ + (lambda (_%self104349106903%_ _%key106905%_ _%default106906%_) + (let* ((_%self106908%_ _%self104349106903%_) + (_%self106910%_ _%self106908%_)) (declare (not safe)) - (let ((_%h106647%_ - (##unchecked-structure-ref _%self106636%_ '1 '#f '#f)) - (_%key?106649%_ - (##unchecked-structure-ref _%self106636%_ '2 '#f '#f))) - (if ((lambda (_%key?106652%_ _%key106653%_ _%default106654%_) - (_%key?106652%_ _%key106653%_)) - _%key?106649%_ - _%key106631%_ - _%default106632%_) - (&HashTable-ref _%h106647%_ _%key106631%_ _%default106632%_) + (let ((_%h106921%_ + (##unchecked-structure-ref _%self106910%_ '1 '#f '#f)) + (_%key?106923%_ + (##unchecked-structure-ref _%self106910%_ '2 '#f '#f))) + (if ((lambda (_%key?106926%_ _%key106927%_ _%default106928%_) + (_%key?106926%_ _%key106927%_)) + _%key?106923%_ + _%key106905%_ + _%default106906%_) + (&HashTable-ref _%h106921%_ _%key106905%_ _%default106906%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-ref 'value: - (cons _%key106631%_ (cons _%default106632%_ '()))) + (cons _%key106905%_ (cons _%default106906%_ '()))) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t 'ref - _%checked-hash-table::ref104076%_ + _%checked-hash-table::ref104350%_ '#f)) - (define _%checked-hash-table::set!104079%_ - (lambda (_%self104078106479%_ _%key106481%_ _%value106482%_) - (let* ((_%self106484%_ _%self104078106479%_) - (_%self106486%_ _%self106484%_)) + (define _%checked-hash-table::set!104353%_ + (lambda (_%self104352106753%_ _%key106755%_ _%value106756%_) + (let* ((_%self106758%_ _%self104352106753%_) + (_%self106760%_ _%self106758%_)) (declare (not safe)) - (let ((_%h106497%_ - (##unchecked-structure-ref _%self106486%_ '1 '#f '#f)) - (_%key?106499%_ - (##unchecked-structure-ref _%self106486%_ '2 '#f '#f))) - (if ((lambda (_%key?106502%_ _%key106503%_ _%value106504%_) - (_%key?106502%_ _%key106503%_)) - _%key?106499%_ - _%key106481%_ - _%value106482%_) - (&HashTable-set! _%h106497%_ _%key106481%_ _%value106482%_) + (let ((_%h106771%_ + (##unchecked-structure-ref _%self106760%_ '1 '#f '#f)) + (_%key?106773%_ + (##unchecked-structure-ref _%self106760%_ '2 '#f '#f))) + (if ((lambda (_%key?106776%_ _%key106777%_ _%value106778%_) + (_%key?106776%_ _%key106777%_)) + _%key?106773%_ + _%key106755%_ + _%value106756%_) + (&HashTable-set! _%h106771%_ _%key106755%_ _%value106756%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-set! 'value: - (cons _%key106481%_ (cons _%value106482%_ '()))) + (cons _%key106755%_ (cons _%value106756%_ '()))) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t 'set! - _%checked-hash-table::set!104079%_ + _%checked-hash-table::set!104353%_ '#f)) - (define _%checked-hash-table::update!104082%_ - (lambda (_%self104081106327%_ - _%key106329%_ - _%update106330%_ - _%default106331%_) - (let* ((_%self106333%_ _%self104081106327%_) - (_%self106335%_ _%self106333%_)) + (define _%checked-hash-table::update!104356%_ + (lambda (_%self104355106601%_ + _%key106603%_ + _%update106604%_ + _%default106605%_) + (let* ((_%self106607%_ _%self104355106601%_) + (_%self106609%_ _%self106607%_)) (declare (not safe)) - (let ((_%h106346%_ - (##unchecked-structure-ref _%self106335%_ '1 '#f '#f)) - (_%key?106348%_ - (##unchecked-structure-ref _%self106335%_ '2 '#f '#f))) - (if ((lambda (_%key?106351%_ - _%key106352%_ - _%update106353%_ - _%default106354%_) - (_%key?106351%_ _%key106352%_)) - _%key?106348%_ - _%key106329%_ - _%update106330%_ - _%default106331%_) + (let ((_%h106620%_ + (##unchecked-structure-ref _%self106609%_ '1 '#f '#f)) + (_%key?106622%_ + (##unchecked-structure-ref _%self106609%_ '2 '#f '#f))) + (if ((lambda (_%key?106625%_ + _%key106626%_ + _%update106627%_ + _%default106628%_) + (_%key?106625%_ _%key106626%_)) + _%key?106622%_ + _%key106603%_ + _%update106604%_ + _%default106605%_) (&HashTable-update! - _%h106346%_ - _%key106329%_ - _%update106330%_ - _%default106331%_) + _%h106620%_ + _%key106603%_ + _%update106604%_ + _%default106605%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-update! 'value: - (cons _%key106329%_ - (cons _%update106330%_ (cons _%default106331%_ '())))) + (cons _%key106603%_ + (cons _%update106604%_ (cons _%default106605%_ '())))) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t 'update! - _%checked-hash-table::update!104082%_ + _%checked-hash-table::update!104356%_ '#f)) - (define _%checked-hash-table::delete!104085%_ - (lambda (_%self104084106179%_ _%key106181%_) - (let* ((_%self106183%_ _%self104084106179%_) - (_%self106185%_ _%self106183%_)) + (define _%checked-hash-table::delete!104359%_ + (lambda (_%self104358106453%_ _%key106455%_) + (let* ((_%self106457%_ _%self104358106453%_) + (_%self106459%_ _%self106457%_)) (declare (not safe)) - (let ((_%h106196%_ - (##unchecked-structure-ref _%self106185%_ '1 '#f '#f)) - (_%key?106198%_ - (##unchecked-structure-ref _%self106185%_ '2 '#f '#f))) - (if ((lambda (_%key?106201%_ _%key106202%_) - (_%key?106201%_ _%key106202%_)) - _%key?106198%_ - _%key106181%_) - (&HashTable-delete! _%h106196%_ _%key106181%_) + (let ((_%h106470%_ + (##unchecked-structure-ref _%self106459%_ '1 '#f '#f)) + (_%key?106472%_ + (##unchecked-structure-ref _%self106459%_ '2 '#f '#f))) + (if ((lambda (_%key?106475%_ _%key106476%_) + (_%key?106475%_ _%key106476%_)) + _%key?106472%_ + _%key106455%_) + (&HashTable-delete! _%h106470%_ _%key106455%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-delete! 'value: - (cons _%key106181%_ '())) + (cons _%key106455%_ '())) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t 'delete! - _%checked-hash-table::delete!104085%_ + _%checked-hash-table::delete!104359%_ '#f)) - (define _%checked-hash-table::for-each104088%_ - (lambda (_%self104087106031%_ _%proc106033%_) - (let* ((_%self106035%_ _%self104087106031%_) - (_%self106037%_ _%self106035%_)) + (define _%checked-hash-table::for-each104362%_ + (lambda (_%self104361106305%_ _%proc106307%_) + (let* ((_%self106309%_ _%self104361106305%_) + (_%self106311%_ _%self106309%_)) (declare (not safe)) - (let ((_%h106048%_ - (##unchecked-structure-ref _%self106037%_ '1 '#f '#f)) - (_%key?106050%_ - (##unchecked-structure-ref _%self106037%_ '2 '#f '#f))) - (if ((lambda (_%key?106053%_ _%proc106054%_) '#t) - _%key?106050%_ - _%proc106033%_) - (&HashTable-for-each _%h106048%_ _%proc106033%_) + (let ((_%h106322%_ + (##unchecked-structure-ref _%self106311%_ '1 '#f '#f)) + (_%key?106324%_ + (##unchecked-structure-ref _%self106311%_ '2 '#f '#f))) + (if ((lambda (_%key?106327%_ _%proc106328%_) '#t) + _%key?106324%_ + _%proc106307%_) + (&HashTable-for-each _%h106322%_ _%proc106307%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-for-each 'value: - (cons _%proc106033%_ '())) + (cons _%proc106307%_ '())) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t 'for-each - _%checked-hash-table::for-each104088%_ + _%checked-hash-table::for-each104362%_ '#f)) - (define _%checked-hash-table::length104091%_ - (lambda (_%self104090105887%_) - (let* ((_%self105890%_ _%self104090105887%_) - (_%self105892%_ _%self105890%_)) + (define _%checked-hash-table::length104365%_ + (lambda (_%self104364106161%_) + (let* ((_%self106164%_ _%self104364106161%_) + (_%self106166%_ _%self106164%_)) (declare (not safe)) - (let ((_%h105903%_ - (##unchecked-structure-ref _%self105892%_ '1 '#f '#f)) - (_%key?105905%_ - (##unchecked-structure-ref _%self105892%_ '2 '#f '#f))) + (let ((_%h106177%_ + (##unchecked-structure-ref _%self106166%_ '1 '#f '#f)) + (_%key?106179%_ + (##unchecked-structure-ref _%self106166%_ '2 '#f '#f))) (if '#!void - (&HashTable-length _%h105903%_) + (&HashTable-length _%h106177%_) (begin (raise-contract-violation-error '"invalid key" @@ -1536,19 +1536,19 @@ (__bind-method!__% checked-hash-table::t 'length - _%checked-hash-table::length104091%_ + _%checked-hash-table::length104365%_ '#f)) - (define _%checked-hash-table::copy104094%_ - (lambda (_%self104093105743%_) - (let* ((_%self105746%_ _%self104093105743%_) - (_%self105748%_ _%self105746%_)) + (define _%checked-hash-table::copy104368%_ + (lambda (_%self104367106017%_) + (let* ((_%self106020%_ _%self104367106017%_) + (_%self106022%_ _%self106020%_)) (declare (not safe)) - (let ((_%h105759%_ - (##unchecked-structure-ref _%self105748%_ '1 '#f '#f)) - (_%key?105761%_ - (##unchecked-structure-ref _%self105748%_ '2 '#f '#f))) + (let ((_%h106033%_ + (##unchecked-structure-ref _%self106022%_ '1 '#f '#f)) + (_%key?106035%_ + (##unchecked-structure-ref _%self106022%_ '2 '#f '#f))) (if '#!void - (&HashTable-copy _%h105759%_) + (&HashTable-copy _%h106033%_) (begin (raise-contract-violation-error '"invalid key" @@ -1562,19 +1562,19 @@ (__bind-method!__% checked-hash-table::t 'copy - _%checked-hash-table::copy104094%_ + _%checked-hash-table::copy104368%_ '#f)) - (define _%checked-hash-table::clear!104097%_ - (lambda (_%self104096105599%_) - (let* ((_%self105602%_ _%self104096105599%_) - (_%self105604%_ _%self105602%_)) + (define _%checked-hash-table::clear!104371%_ + (lambda (_%self104370105873%_) + (let* ((_%self105876%_ _%self104370105873%_) + (_%self105878%_ _%self105876%_)) (declare (not safe)) - (let ((_%h105615%_ - (##unchecked-structure-ref _%self105604%_ '1 '#f '#f)) - (_%key?105617%_ - (##unchecked-structure-ref _%self105604%_ '2 '#f '#f))) + (let ((_%h105889%_ + (##unchecked-structure-ref _%self105878%_ '1 '#f '#f)) + (_%key?105891%_ + (##unchecked-structure-ref _%self105878%_ '2 '#f '#f))) (if '#!void - (&HashTable-clear! _%h105615%_) + (&HashTable-clear! _%h105889%_) (begin (raise-contract-violation-error '"invalid key" @@ -1588,394 +1588,394 @@ (__bind-method!__% checked-hash-table::t 'clear! - _%checked-hash-table::clear!104097%_ + _%checked-hash-table::clear!104371%_ '#f)) (define make-generic-hash-table - (lambda (_%table105469%_ - _%count105470%_ - _%free105471%_ - _%hash105472%_ - _%test105473%_ - _%seed105474%_) + (lambda (_%table105743%_ + _%count105744%_ + _%free105745%_ + _%hash105746%_ + _%test105747%_ + _%seed105748%_) (let () (declare (not safe)) (##structure hash-table::t - _%table105469%_ - _%count105470%_ - _%free105471%_ - _%hash105472%_ - _%test105473%_ - _%seed105474%_)))) + _%table105743%_ + _%count105744%_ + _%free105745%_ + _%hash105746%_ + _%test105747%_ + _%seed105748%_)))) (define make-hash-table__% - (lambda (_%@@keywords105230%_ - _%size-hint105220105231%_ - _%seed105221105233%_ - _%test105222105235%_ - _%hash105223105237%_ - _%lock105224105239%_ - _%check105225105241%_ - _%weak-keys105226105243%_ - _%weak-values105227105245%_) - (let* ((_%size-hint105248%_ - (if (eq? _%size-hint105220105231%_ absent-value) + (lambda (_%@@keywords105504%_ + _%size-hint105494105505%_ + _%seed105495105507%_ + _%test105496105509%_ + _%hash105497105511%_ + _%lock105498105513%_ + _%check105499105515%_ + _%weak-keys105500105517%_ + _%weak-values105501105519%_) + (let* ((_%size-hint105522%_ + (if (eq? _%size-hint105494105505%_ absent-value) '#f - _%size-hint105220105231%_)) - (_%seed105250%_ - (if (eq? _%seed105221105233%_ absent-value) + _%size-hint105494105505%_)) + (_%seed105524%_ + (if (eq? _%seed105495105507%_ absent-value) '#f - _%seed105221105233%_)) - (_%test105252%_ - (if (eq? _%test105222105235%_ absent-value) + _%seed105495105507%_)) + (_%test105526%_ + (if (eq? _%test105496105509%_ absent-value) equal? - _%test105222105235%_)) - (_%hash105254%_ - (if (eq? _%hash105223105237%_ absent-value) + _%test105496105509%_)) + (_%hash105528%_ + (if (eq? _%hash105497105511%_ absent-value) '#f - _%hash105223105237%_)) - (_%lock105256%_ - (if (eq? _%lock105224105239%_ absent-value) + _%hash105497105511%_)) + (_%lock105530%_ + (if (eq? _%lock105498105513%_ absent-value) '#f - _%lock105224105239%_)) - (_%check105258%_ - (if (eq? _%check105225105241%_ absent-value) + _%lock105498105513%_)) + (_%check105532%_ + (if (eq? _%check105499105515%_ absent-value) '#f - _%check105225105241%_)) - (_%weak-keys105260%_ - (if (eq? _%weak-keys105226105243%_ absent-value) + _%check105499105515%_)) + (_%weak-keys105534%_ + (if (eq? _%weak-keys105500105517%_ absent-value) '#f - _%weak-keys105226105243%_)) - (_%weak-values105262%_ - (if (eq? _%weak-values105227105245%_ absent-value) + _%weak-keys105500105517%_)) + (_%weak-values105536%_ + (if (eq? _%weak-values105501105519%_ absent-value) '#f - _%weak-values105227105245%_))) - (letrec ((_%table-seed105265%_ + _%weak-values105501105519%_))) + (letrec ((_%table-seed105539%_ (lambda () - (if (fixnum? _%seed105250%_) - _%seed105250%_ + (if (fixnum? _%seed105524%_) + _%seed105524%_ (random-integer (macro-max-fixnum32))))) - (_%wrap-lock105266%_ - (lambda (_%ht105443%_) - (let ((_%ht105446%_ _%ht105443%_)) - (_%__wrap-lock105267%_ _%ht105446%_)))) - (_%__wrap-lock105267%_ - (lambda (_%ht105425%_) - (let ((_%ht105428%_ _%ht105425%_)) - (if _%lock105256%_ - (let ((_%$obj105440%_ - (let ((__tmp108594 - (let ((_%$obj105437%_ - _%lock105256%_)) + (_%wrap-lock105540%_ + (lambda (_%ht105717%_) + (let ((_%ht105720%_ _%ht105717%_)) + (_%__wrap-lock105541%_ _%ht105720%_)))) + (_%__wrap-lock105541%_ + (lambda (_%ht105699%_) + (let ((_%ht105702%_ _%ht105699%_)) + (if _%lock105530%_ + (let ((_%$obj105714%_ + (let ((__tmp108868 + (let ((_%$obj105711%_ + _%lock105530%_)) (if (and (let () (declare (not safe)) (##structure? - _%$obj105437%_)) + _%$obj105711%_)) (eq? Locker::t (let () (declare (not safe)) (##structure-type - _%$obj105437%_))) + _%$obj105711%_))) '#t) - _%$obj105437%_ + _%$obj105711%_ (let () (declare (not safe)) (cast Locker::interface - _%$obj105437%_)))))) + _%$obj105711%_)))))) (declare (not safe)) (##structure locked-hash-table::t - _%ht105428%_ - __tmp108594)))) + _%ht105702%_ + __tmp108868)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj105440%_)) + (##structure? _%$obj105714%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj105440%_))) + _%$obj105714%_))) '#t) - _%$obj105440%_ + _%$obj105714%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj105440%_)))) - _%ht105428%_)))) - (_%wrap-checked105268%_ - (lambda (_%ht105412%_ _%implicit105413%_) - (let ((_%ht105416%_ _%ht105412%_)) - (_%__wrap-checked105269%_ - _%ht105416%_ - _%implicit105413%_)))) - (_%__wrap-checked105269%_ - (lambda (_%ht105385%_ _%implicit105386%_) - (let ((_%ht105389%_ _%ht105385%_)) - (if _%check105258%_ - (let ((_%$obj105409%_ - (let ((__tmp108595 - (if (procedure? _%check105258%_) - _%check105258%_ - _%implicit105386%_))) + _%$obj105714%_)))) + _%ht105702%_)))) + (_%wrap-checked105542%_ + (lambda (_%ht105686%_ _%implicit105687%_) + (let ((_%ht105690%_ _%ht105686%_)) + (_%__wrap-checked105543%_ + _%ht105690%_ + _%implicit105687%_)))) + (_%__wrap-checked105543%_ + (lambda (_%ht105659%_ _%implicit105660%_) + (let ((_%ht105663%_ _%ht105659%_)) + (if _%check105532%_ + (let ((_%$obj105683%_ + (let ((__tmp108869 + (if (procedure? _%check105532%_) + _%check105532%_ + _%implicit105660%_))) (declare (not safe)) (##structure checked-hash-table::t - _%ht105389%_ - __tmp108595)))) + _%ht105663%_ + __tmp108869)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj105409%_)) + (##structure? _%$obj105683%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj105409%_))) + _%$obj105683%_))) '#t) - _%$obj105409%_ + _%$obj105683%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj105409%_)))) - _%ht105389%_)))) - (_%make105270%_ - (lambda (_%kons105369%_ - _%key?105370%_ - _%hash105371%_ - _%test105372%_) - (let* ((_%size105375%_ + _%$obj105683%_)))) + _%ht105663%_)))) + (_%make105544%_ + (lambda (_%kons105643%_ + _%key?105644%_ + _%hash105645%_ + _%test105646%_) + (let* ((_%size105649%_ (let () (declare (not safe)) (raw-table-size-hint->size - _%size-hint105248%_))) - (_%table105377%_ - (let ((__tmp108596 (macro-unused-obj))) + _%size-hint105522%_))) + (_%table105651%_ + (let ((__tmp108870 (macro-unused-obj))) (declare (not safe)) - (##make-vector _%size105375%_ __tmp108596))) - (_%ht105382%_ - (let ((_%$obj105379%_ - (_%kons105369%_ - _%table105377%_ + (##make-vector _%size105649%_ __tmp108870))) + (_%ht105656%_ + (let ((_%$obj105653%_ + (_%kons105643%_ + _%table105651%_ '0 (let () (declare (not safe)) - (##fxquotient _%size105375%_ '2)) - _%hash105371%_ - _%test105372%_ - (_%table-seed105265%_)))) + (##fxquotient _%size105649%_ '2)) + _%hash105645%_ + _%test105646%_ + (_%table-seed105539%_)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj105379%_)) + (##structure? _%$obj105653%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj105379%_))) + _%$obj105653%_))) '#t) - _%$obj105379%_ + _%$obj105653%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj105379%_)))))) - (_%__wrap-checked105269%_ - (_%__wrap-lock105267%_ _%ht105382%_) - _%key?105370%_)))) - (_%make-gc-hash-table105271%_ + _%$obj105653%_)))))) + (_%__wrap-checked105543%_ + (_%__wrap-lock105541%_ _%ht105656%_) + _%key?105644%_)))) + (_%make-gc-hash-table105545%_ (lambda () - (let ((_%ht105367%_ - (let ((_%$obj105364%_ + (let ((_%ht105641%_ + (let ((_%$obj105638%_ (let () (declare (not safe)) (make-gc-table__1 - _%size-hint105248%_ + _%size-hint105522%_ gc-hash-table::t)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj105364%_)) + (##structure? _%$obj105638%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj105364%_))) + _%$obj105638%_))) '#t) - _%$obj105364%_ + _%$obj105638%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj105364%_)))))) - (_%__wrap-checked105269%_ - (_%__wrap-lock105267%_ _%ht105367%_) + _%$obj105638%_)))))) + (_%__wrap-checked105543%_ + (_%__wrap-lock105541%_ _%ht105641%_) true)))) - (_%make-gambit-table105272%_ + (_%make-gambit-table105546%_ (lambda () - (let* ((_%size105341%_ - (let ((_%$e105338%_ _%size-hint105248%_)) - (if _%$e105338%_ - _%$e105338%_ + (let* ((_%size105615%_ + (let ((_%$e105612%_ _%size-hint105522%_)) + (if _%$e105612%_ + _%$e105612%_ (macro-absent-obj)))) - (_%test105346%_ - (let ((_%$e105343%_ _%test105252%_)) - (if _%$e105343%_ _%$e105343%_ equal?))) - (_%hash105354%_ - (let ((_%$e105348%_ _%hash105254%_)) - (if _%$e105348%_ - _%$e105348%_ - (if (eq? _%test105346%_ eq?) + (_%test105620%_ + (let ((_%$e105617%_ _%test105526%_)) + (if _%$e105617%_ _%$e105617%_ equal?))) + (_%hash105628%_ + (let ((_%$e105622%_ _%hash105528%_)) + (if _%$e105622%_ + _%$e105622%_ + (if (eq? _%test105620%_ eq?) eq?-hash - (if (eq? _%test105346%_ eqv?) + (if (eq? _%test105620%_ eqv?) eqv?-hash equal?-hash))))) - (_%ht105359%_ - (let ((_%$obj105356%_ + (_%ht105633%_ + (let ((_%$obj105630%_ (make-table 'size: - _%size105341%_ + _%size105615%_ 'test: - _%test105346%_ + _%test105620%_ 'hash: - _%hash105354%_ + _%hash105628%_ 'weak-keys: - _%weak-keys105260%_ + _%weak-keys105534%_ 'weak-values: - _%weak-values105262%_))) + _%weak-values105536%_))) (if (and (let () (declare (not safe)) - (##structure? _%$obj105356%_)) + (##structure? _%$obj105630%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj105356%_))) + _%$obj105630%_))) '#t) - _%$obj105356%_ + _%$obj105630%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj105356%_)))))) - (_%__wrap-checked105269%_ - (_%__wrap-lock105267%_ _%ht105359%_) + _%$obj105630%_)))))) + (_%__wrap-checked105543%_ + (_%__wrap-lock105541%_ _%ht105633%_) true))))) - (if (or _%weak-keys105260%_ _%weak-values105262%_) - (_%make-gambit-table105272%_) - (if (and (or (eq? _%test105252%_ eq?) - (eq? _%test105252%_ ##eq?)) - (or (not _%hash105254%_) - (eq? _%hash105254%_ eq?-hash) - (eq? _%hash105254%_ eq-hash)) - (not _%seed105250%_)) - (_%make-gc-hash-table105271%_) - (if (and (or (eq? _%test105252%_ eq?) - (eq? _%test105252%_ ##eq?)) - (or (not _%hash105254%_) - (eq? _%hash105254%_ eq?-hash) - (eq? _%hash105254%_ eq-hash))) - (_%make105270%_ make-eq-hash-table true eq-hash eq?) - (if (and (or (eq? _%test105252%_ eqv?) - (eq? _%test105252%_ ##eqv?)) - (or (not _%hash105254%_) - (eq? _%hash105254%_ eqv?-hash) - (eq? _%hash105254%_ eqv-hash))) - (_%make105270%_ + (if (or _%weak-keys105534%_ _%weak-values105536%_) + (_%make-gambit-table105546%_) + (if (and (or (eq? _%test105526%_ eq?) + (eq? _%test105526%_ ##eq?)) + (or (not _%hash105528%_) + (eq? _%hash105528%_ eq?-hash) + (eq? _%hash105528%_ eq-hash)) + (not _%seed105524%_)) + (_%make-gc-hash-table105545%_) + (if (and (or (eq? _%test105526%_ eq?) + (eq? _%test105526%_ ##eq?)) + (or (not _%hash105528%_) + (eq? _%hash105528%_ eq?-hash) + (eq? _%hash105528%_ eq-hash))) + (_%make105544%_ make-eq-hash-table true eq-hash eq?) + (if (and (or (eq? _%test105526%_ eqv?) + (eq? _%test105526%_ ##eqv?)) + (or (not _%hash105528%_) + (eq? _%hash105528%_ eqv?-hash) + (eq? _%hash105528%_ eqv-hash))) + (_%make105544%_ make-eqv-hash-table true eqv-hash eqv?) - (if (and (or (eq? _%test105252%_ eq?) - (eq? _%test105252%_ ##eq?)) - (or (eq? _%hash105254%_ symbolic-hash) - (eq? _%hash105254%_ ##symbol-hash))) - (_%make105270%_ + (if (and (or (eq? _%test105526%_ eq?) + (eq? _%test105526%_ ##eq?)) + (or (eq? _%hash105528%_ symbolic-hash) + (eq? _%hash105528%_ ##symbol-hash))) + (_%make105544%_ make-symbol-hash-table symbolic? symbolic-hash eq?) - (if (and (or (eq? _%test105252%_ eq?) - (eq? _%test105252%_ ##eq?)) - (eq? _%hash105254%_ immediate-hash)) - (_%make105270%_ + (if (and (or (eq? _%test105526%_ eq?) + (eq? _%test105526%_ ##eq?)) + (eq? _%hash105528%_ immediate-hash)) + (_%make105544%_ make-immediate-hash-table immediate? immediate-hash eq?) - (if (and (or (eq? _%test105252%_ equal?) - (eq? _%test105252%_ ##equal?) - (eq? _%test105252%_ string=?) - (eq? _%test105252%_ + (if (and (or (eq? _%test105526%_ equal?) + (eq? _%test105526%_ ##equal?) + (eq? _%test105526%_ string=?) + (eq? _%test105526%_ ##string=?)) - (or (eq? _%hash105254%_ + (or (eq? _%hash105528%_ string-hash) - (eq? _%hash105254%_ + (eq? _%hash105528%_ ##string=?-hash))) - (_%make105270%_ + (_%make105544%_ make-string-hash-table string? string-hash ##string=?) - (if (and (eq? _%test105252%_ equal?) - (not _%hash105254%_)) - (_%make105270%_ + (if (and (eq? _%test105526%_ equal?) + (not _%hash105528%_)) + (_%make105544%_ make-generic-hash-table true equal?-hash equal?) - (if (procedure? _%test105252%_) - (if (procedure? _%hash105254%_) - (_%make105270%_ + (if (procedure? _%test105526%_) + (if (procedure? _%hash105528%_) + (_%make105544%_ make-generic-hash-table true - _%hash105254%_ - _%test105252%_) + _%hash105528%_ + _%test105526%_) (let () (let () (declare (not safe)) (error '"bad hash table hash function; expected procedure" - _%hash105254%_)) + _%hash105528%_)) '#!void)) (let () (let () (declare (not safe)) (error '"bad hash table test function; expected procedure" - _%test105252%_)) + _%test105526%_)) '#!void)))))))))))))) (define make-hash-table__@ - (lambda (_%@@keywords105459%_ . _%args105460%_) + (lambda (_%@@keywords105733%_ . _%args105734%_) (apply make-hash-table__% - _%@@keywords105459%_ + _%@@keywords105733%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords105459%_ 'size: absent-value)) + (symbolic-table-ref _%@@keywords105733%_ 'size: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords105459%_ 'seed: absent-value)) + (symbolic-table-ref _%@@keywords105733%_ 'seed: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords105459%_ 'test: absent-value)) + (symbolic-table-ref _%@@keywords105733%_ 'test: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords105459%_ 'hash: absent-value)) + (symbolic-table-ref _%@@keywords105733%_ 'hash: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords105459%_ 'lock: absent-value)) + (symbolic-table-ref _%@@keywords105733%_ 'lock: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords105459%_ + _%@@keywords105733%_ 'check: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords105459%_ + _%@@keywords105733%_ 'weak-keys: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords105459%_ + _%@@keywords105733%_ 'weak-values: absent-value)) - _%args105460%_))) + _%args105734%_))) (define make-hash-table - (lambda _%args105228105466%_ + (lambda _%args105502105740%_ (apply keyword-dispatch '#(#f #f @@ -2018,531 +2018,531 @@ #f #f) make-hash-table__@ - _%args105228105466%_))) + _%args105502105740%_))) (define make-hash-table-eq - (lambda _%args105217%_ - (apply make-hash-table 'test: eq? _%args105217%_))) + (lambda _%args105491%_ + (apply make-hash-table 'test: eq? _%args105491%_))) (define make-hash-table-eqv - (lambda _%args105215%_ - (apply make-hash-table 'test: eqv? _%args105215%_))) + (lambda _%args105489%_ + (apply make-hash-table 'test: eqv? _%args105489%_))) (define make-hash-table-symbolic - (lambda _%args105213%_ + (lambda _%args105487%_ (apply make-hash-table 'test: eq? 'hash: symbolic-hash - _%args105213%_))) + _%args105487%_))) (define make-hash-table-string - (lambda _%args105211%_ + (lambda _%args105485%_ (apply make-hash-table 'test: string=? 'hash: string-hash - _%args105211%_))) + _%args105485%_))) (define make-hash-table-immediate - (lambda _%args105209%_ + (lambda _%args105483%_ (apply make-hash-table 'test: eq? 'hash: immediate-hash - _%args105209%_))) + _%args105483%_))) (define list->hash-table - (lambda (_%lst105206%_ . _%args105207%_) + (lambda (_%lst105480%_ . _%args105481%_) (list->hash-table! - _%lst105206%_ + _%lst105480%_ (apply make-hash-table 'size: - (length _%lst105206%_) - _%args105207%_)))) + (length _%lst105480%_) + _%args105481%_)))) (define list->hash-table-eq - (lambda (_%lst105203%_ . _%args105204%_) + (lambda (_%lst105477%_ . _%args105478%_) (list->hash-table! - _%lst105203%_ + _%lst105477%_ (apply make-hash-table-eq 'size: - (length _%lst105203%_) - _%args105204%_)))) + (length _%lst105477%_) + _%args105478%_)))) (define list->hash-table-eqv - (lambda (_%lst105200%_ . _%args105201%_) + (lambda (_%lst105474%_ . _%args105475%_) (list->hash-table! - _%lst105200%_ + _%lst105474%_ (apply make-hash-table-eqv 'size: - (length _%lst105200%_) - _%args105201%_)))) + (length _%lst105474%_) + _%args105475%_)))) (define list->hash-table-symbolic - (lambda (_%lst105197%_ . _%args105198%_) + (lambda (_%lst105471%_ . _%args105472%_) (list->hash-table! - _%lst105197%_ + _%lst105471%_ (apply make-hash-table-symbolic 'size: - (length _%lst105197%_) - _%args105198%_)))) + (length _%lst105471%_) + _%args105472%_)))) (define list->hash-table-string - (lambda (_%lst105194%_ . _%args105195%_) + (lambda (_%lst105468%_ . _%args105469%_) (list->hash-table! - _%lst105194%_ + _%lst105468%_ (apply make-hash-table-string 'size: - (length _%lst105194%_) - _%args105195%_)))) + (length _%lst105468%_) + _%args105469%_)))) (define list->hash-table-immediate - (lambda (_%lst105191%_ . _%args105192%_) + (lambda (_%lst105465%_ . _%args105466%_) (list->hash-table! - _%lst105191%_ + _%lst105465%_ (apply make-hash-table-immediate 'size: - (length _%lst105191%_) - _%args105192%_)))) + (length _%lst105465%_) + _%args105466%_)))) (define list->hash-table! - (lambda (_%lst105158%_ _%h105159%_) + (lambda (_%lst105432%_ _%h105433%_) (for-each - (lambda (_%el105161%_) - (let* ((_%el105162105169%_ _%el105161%_) - (_%E105164105173%_ + (lambda (_%el105435%_) + (let* ((_%el105436105443%_ _%el105435%_) + (_%E105438105447%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%el105162105169%_ + _%el105436105443%_ '([k . v]))) '#!void)) - (_%K105165105179%_ - (lambda (_%v105176%_ _%k105177%_) - (&HashTable-set! _%h105159%_ _%k105177%_ _%v105176%_)))) - (if (let () (declare (not safe)) (##pair? _%el105162105169%_)) - (let ((_%hd105166105182%_ + (_%K105439105453%_ + (lambda (_%v105450%_ _%k105451%_) + (&HashTable-set! _%h105433%_ _%k105451%_ _%v105450%_)))) + (if (let () (declare (not safe)) (##pair? _%el105436105443%_)) + (let ((_%hd105440105456%_ (let () (declare (not safe)) - (##car _%el105162105169%_))) - (_%tl105167105184%_ + (##car _%el105436105443%_))) + (_%tl105441105458%_ (let () (declare (not safe)) - (##cdr _%el105162105169%_)))) - (let* ((_%k105187%_ _%hd105166105182%_) - (_%v105189%_ _%tl105167105184%_)) - (_%K105165105179%_ _%v105189%_ _%k105187%_))) - (_%E105164105173%_)))) - _%lst105158%_) - _%h105159%_)) + (##cdr _%el105436105443%_)))) + (let* ((_%k105461%_ _%hd105440105456%_) + (_%v105463%_ _%tl105441105458%_)) + (_%K105439105453%_ _%v105463%_ _%k105461%_))) + (_%E105438105447%_)))) + _%lst105432%_) + _%h105433%_)) (define plist->hash-table - (lambda (_%lst105155%_ . _%args105156%_) + (lambda (_%lst105429%_ . _%args105430%_) (plist->hash-table! - _%lst105155%_ + _%lst105429%_ (apply make-hash-table 'size: - (length _%lst105155%_) - _%args105156%_)))) + (length _%lst105429%_) + _%args105430%_)))) (define plist->hash-table-eq - (lambda (_%lst105152%_ . _%args105153%_) + (lambda (_%lst105426%_ . _%args105427%_) (plist->hash-table! - _%lst105152%_ + _%lst105426%_ (apply make-hash-table-eq 'size: - (length _%lst105152%_) - _%args105153%_)))) + (length _%lst105426%_) + _%args105427%_)))) (define plist->hash-table-eqv - (lambda (_%lst105149%_ . _%args105150%_) + (lambda (_%lst105423%_ . _%args105424%_) (plist->hash-table! - _%lst105149%_ + _%lst105423%_ (apply make-hash-table-eqv 'size: - (length _%lst105149%_) - _%args105150%_)))) + (length _%lst105423%_) + _%args105424%_)))) (define plist->hash-table-symbolic - (lambda (_%lst105146%_ . _%args105147%_) + (lambda (_%lst105420%_ . _%args105421%_) (plist->hash-table! - _%lst105146%_ + _%lst105420%_ (apply make-hash-table-symbolic 'size: - (length _%lst105146%_) - _%args105147%_)))) + (length _%lst105420%_) + _%args105421%_)))) (define plist->hash-table-string - (lambda (_%lst105143%_ . _%args105144%_) + (lambda (_%lst105417%_ . _%args105418%_) (plist->hash-table! - _%lst105143%_ + _%lst105417%_ (apply make-hash-table-string 'size: - (length _%lst105143%_) - _%args105144%_)))) + (length _%lst105417%_) + _%args105418%_)))) (define plist->hash-table-immediate - (lambda (_%lst105140%_ . _%args105141%_) + (lambda (_%lst105414%_ . _%args105415%_) (plist->hash-table! - _%lst105140%_ + _%lst105414%_ (apply make-hash-table-immediate 'size: - (length _%lst105140%_) - _%args105141%_)))) + (length _%lst105414%_) + _%args105415%_)))) (define plist->hash-table! - (lambda (_%lst105080%_ _%h105081%_) - (let _%loop105083%_ ((_%rest105085%_ _%lst105080%_)) - (let* ((_%rest105086105098%_ _%rest105085%_) - (_%else105089105106%_ + (lambda (_%lst105354%_ _%h105355%_) + (let _%loop105357%_ ((_%rest105359%_ _%lst105354%_)) + (let* ((_%rest105360105372%_ _%rest105359%_) + (_%else105363105380%_ (lambda () (let () (declare (not safe)) (error '"bad property list -- uneven list" - _%lst105080%_))))) - (let ((_%K105092105121%_ - (lambda (_%rest105117%_ _%val105118%_ _%key105119%_) - (&HashTable-set! _%h105081%_ _%key105119%_ _%val105118%_) - (_%loop105083%_ _%rest105117%_))) - (_%K105091105111%_ (lambda () _%h105081%_))) - (let ((_%try-match105088105114%_ + _%lst105354%_))))) + (let ((_%K105366105395%_ + (lambda (_%rest105391%_ _%val105392%_ _%key105393%_) + (&HashTable-set! _%h105355%_ _%key105393%_ _%val105392%_) + (_%loop105357%_ _%rest105391%_))) + (_%K105365105385%_ (lambda () _%h105355%_))) + (let ((_%try-match105362105388%_ (lambda () (if (let () (declare (not safe)) - (##null? _%rest105086105098%_)) - (_%K105091105111%_) - (_%else105089105106%_))))) + (##null? _%rest105360105372%_)) + (_%K105365105385%_) + (_%else105363105380%_))))) (if (let () (declare (not safe)) - (##pair? _%rest105086105098%_)) - (let ((_%tl105094105126%_ + (##pair? _%rest105360105372%_)) + (let ((_%tl105368105400%_ (let () (declare (not safe)) - (##cdr _%rest105086105098%_))) - (_%hd105093105124%_ + (##cdr _%rest105360105372%_))) + (_%hd105367105398%_ (let () (declare (not safe)) - (##car _%rest105086105098%_)))) + (##car _%rest105360105372%_)))) (if (let () (declare (not safe)) - (##pair? _%tl105094105126%_)) - (let ((_%tl105096105133%_ + (##pair? _%tl105368105400%_)) + (let ((_%tl105370105407%_ (let () (declare (not safe)) - (##cdr _%tl105094105126%_))) - (_%hd105095105131%_ + (##cdr _%tl105368105400%_))) + (_%hd105369105405%_ (let () (declare (not safe)) - (##car _%tl105094105126%_)))) - (let ((_%key105129%_ _%hd105093105124%_) - (_%val105136%_ _%hd105095105131%_) - (_%rest105138%_ _%tl105096105133%_)) - (_%K105092105121%_ - _%rest105138%_ - _%val105136%_ - _%key105129%_))) - (_%else105089105106%_))) - (_%try-match105088105114%_)))))))) + (##car _%tl105368105400%_)))) + (let ((_%key105403%_ _%hd105367105398%_) + (_%val105410%_ _%hd105369105405%_) + (_%rest105412%_ _%tl105370105407%_)) + (_%K105366105395%_ + _%rest105412%_ + _%val105410%_ + _%key105403%_))) + (_%else105363105380%_))) + (_%try-match105362105388%_)))))))) (define hash-length - (lambda (_%h105062%_) - (let* ((_%h105068%_ - (let ((_%$obj105065%_ _%h105062%_)) + (lambda (_%h105336%_) + (let* ((_%h105342%_ + (let ((_%$obj105339%_ _%h105336%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105065%_)) + (##structure? _%$obj105339%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105065%_))) + (##structure-type _%$obj105339%_))) '#t) - _%$obj105065%_ + _%$obj105339%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105065%_))))) - (_%h105070%_ _%h105068%_)) - (__hash-length _%h105070%_)))) + (cast HashTable::interface _%$obj105339%_))))) + (_%h105344%_ _%h105342%_)) + (__hash-length _%h105344%_)))) (define __hash-length - (lambda (_%h105050%_) - (let ((_%h105053%_ _%h105050%_)) (__HashTable-length _%h105053%_)))) + (lambda (_%h105324%_) + (let ((_%h105327%_ _%h105324%_)) (__HashTable-length _%h105327%_)))) (define hash-ref__% - (lambda (_%h105018%_ _%key105019%_ _%default105020%_) - (let* ((_%h105026%_ - (let ((_%$obj105023%_ _%h105018%_)) + (lambda (_%h105292%_ _%key105293%_ _%default105294%_) + (let* ((_%h105300%_ + (let ((_%$obj105297%_ _%h105292%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105023%_)) + (##structure? _%$obj105297%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105023%_))) + (##structure-type _%$obj105297%_))) '#t) - _%$obj105023%_ + _%$obj105297%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105023%_))))) - (_%h105028%_ _%h105026%_)) - (__hash-ref__% _%h105028%_ _%key105019%_ _%default105020%_)))) + (cast HashTable::interface _%$obj105297%_))))) + (_%h105302%_ _%h105300%_)) + (__hash-ref__% _%h105302%_ _%key105293%_ _%default105294%_)))) (define hash-ref__0 - (lambda (_%h105041%_ _%key105042%_) - (let ((_%default105044%_ (macro-absent-obj))) - (hash-ref__% _%h105041%_ _%key105042%_ _%default105044%_)))) + (lambda (_%h105315%_ _%key105316%_) + (let ((_%default105318%_ (macro-absent-obj))) + (hash-ref__% _%h105315%_ _%key105316%_ _%default105318%_)))) (define hash-ref - (lambda _g108598_ - (let ((_g108597_ (let () (declare (not safe)) (##length _g108598_)))) - (cond ((let () (declare (not safe)) (##fx= _g108597_ 2)) - (apply hash-ref__0 _g108598_)) - ((let () (declare (not safe)) (##fx= _g108597_ 3)) - (apply hash-ref__% _g108598_)) + (lambda _g108872_ + (let ((_g108871_ (let () (declare (not safe)) (##length _g108872_)))) + (cond ((let () (declare (not safe)) (##fx= _g108871_ 2)) + (apply hash-ref__0 _g108872_)) + ((let () (declare (not safe)) (##fx= _g108871_ 3)) + (apply hash-ref__% _g108872_)) (else (##raise-wrong-number-of-arguments-exception hash-ref - _g108598_)))))) + _g108872_)))))) (define __hash-ref__% - (lambda (_%h104989%_ _%key104990%_ _%default104991%_) - (let* ((_%h104994%_ _%h104989%_) - (_%result105003%_ - (&HashTable-ref _%h104994%_ _%key104990%_ _%default104991%_))) - (if (eq? _%result105003%_ (macro-absent-obj)) + (lambda (_%h105263%_ _%key105264%_ _%default105265%_) + (let* ((_%h105268%_ _%h105263%_) + (_%result105277%_ + (&HashTable-ref _%h105268%_ _%key105264%_ _%default105265%_))) + (if (eq? _%result105277%_ (macro-absent-obj)) (raise-unbound-key-error 'hash-ref '"unknown hash key" 'hash: - _%h104994%_ + _%h105268%_ 'key: - _%key104990%_) - _%result105003%_)))) + _%key105264%_) + _%result105277%_)))) (define __hash-ref__0 - (lambda (_%h105008%_ _%key105009%_) - (let ((_%default105011%_ (macro-absent-obj))) - (__hash-ref__% _%h105008%_ _%key105009%_ _%default105011%_)))) + (lambda (_%h105282%_ _%key105283%_) + (let ((_%default105285%_ (macro-absent-obj))) + (__hash-ref__% _%h105282%_ _%key105283%_ _%default105285%_)))) (define __hash-ref - (lambda _g108600_ - (let ((_g108599_ (let () (declare (not safe)) (##length _g108600_)))) - (cond ((let () (declare (not safe)) (##fx= _g108599_ 2)) - (apply __hash-ref__0 _g108600_)) - ((let () (declare (not safe)) (##fx= _g108599_ 3)) - (apply __hash-ref__% _g108600_)) + (lambda _g108874_ + (let ((_g108873_ (let () (declare (not safe)) (##length _g108874_)))) + (cond ((let () (declare (not safe)) (##fx= _g108873_ 2)) + (apply __hash-ref__0 _g108874_)) + ((let () (declare (not safe)) (##fx= _g108873_ 3)) + (apply __hash-ref__% _g108874_)) (else (##raise-wrong-number-of-arguments-exception __hash-ref - _g108600_)))))) + _g108874_)))))) (define hash-get - (lambda (_%h104969%_ _%key104970%_) - (let* ((_%h104976%_ - (let ((_%$obj104973%_ _%h104969%_)) + (lambda (_%h105243%_ _%key105244%_) + (let* ((_%h105250%_ + (let ((_%$obj105247%_ _%h105243%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104973%_)) + (##structure? _%$obj105247%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj104973%_))) + (##structure-type _%$obj105247%_))) '#t) - _%$obj104973%_ + _%$obj105247%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj104973%_))))) - (_%h104978%_ _%h104976%_)) - (__hash-get _%h104978%_ _%key104970%_)))) + (cast HashTable::interface _%$obj105247%_))))) + (_%h105252%_ _%h105250%_)) + (__hash-get _%h105252%_ _%key105244%_)))) (define __hash-get - (lambda (_%h104956%_ _%key104957%_) - (let ((_%h104960%_ _%h104956%_)) - (&HashTable-ref _%h104960%_ _%key104957%_ '#f)))) + (lambda (_%h105230%_ _%key105231%_) + (let ((_%h105234%_ _%h105230%_)) + (&HashTable-ref _%h105234%_ _%key105231%_ '#f)))) (define hash-put! - (lambda (_%h104936%_ _%key104937%_ _%value104938%_) - (let* ((_%h104944%_ - (let ((_%$obj104941%_ _%h104936%_)) + (lambda (_%h105210%_ _%key105211%_ _%value105212%_) + (let* ((_%h105218%_ + (let ((_%$obj105215%_ _%h105210%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104941%_)) + (##structure? _%$obj105215%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj104941%_))) + (##structure-type _%$obj105215%_))) '#t) - _%$obj104941%_ + _%$obj105215%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj104941%_))))) - (_%h104946%_ _%h104944%_)) - (__hash-put! _%h104946%_ _%key104937%_ _%value104938%_)))) + (cast HashTable::interface _%$obj105215%_))))) + (_%h105220%_ _%h105218%_)) + (__hash-put! _%h105220%_ _%key105211%_ _%value105212%_)))) (define __hash-put! - (lambda (_%h104922%_ _%key104923%_ _%value104924%_) - (let ((_%h104927%_ _%h104922%_)) - (&HashTable-set! _%h104927%_ _%key104923%_ _%value104924%_)))) + (lambda (_%h105196%_ _%key105197%_ _%value105198%_) + (let ((_%h105201%_ _%h105196%_)) + (&HashTable-set! _%h105201%_ _%key105197%_ _%value105198%_)))) (define hash-update!__% - (lambda (_%h104887%_ _%key104888%_ _%update104889%_ _%default104890%_) - (let* ((_%h104896%_ - (let ((_%$obj104893%_ _%h104887%_)) + (lambda (_%h105161%_ _%key105162%_ _%update105163%_ _%default105164%_) + (let* ((_%h105170%_ + (let ((_%$obj105167%_ _%h105161%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104893%_)) + (##structure? _%$obj105167%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj104893%_))) + (##structure-type _%$obj105167%_))) '#t) - _%$obj104893%_ + _%$obj105167%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj104893%_))))) - (_%h104898%_ _%h104896%_)) + (cast HashTable::interface _%$obj105167%_))))) + (_%h105172%_ _%h105170%_)) (__hash-update!__% - _%h104898%_ - _%key104888%_ - _%update104889%_ - _%default104890%_)))) + _%h105172%_ + _%key105162%_ + _%update105163%_ + _%default105164%_)))) (define hash-update!__0 - (lambda (_%h104911%_ _%key104912%_ _%update104913%_) - (let ((_%default104915%_ '#!void)) + (lambda (_%h105185%_ _%key105186%_ _%update105187%_) + (let ((_%default105189%_ '#!void)) (hash-update!__% - _%h104911%_ - _%key104912%_ - _%update104913%_ - _%default104915%_)))) + _%h105185%_ + _%key105186%_ + _%update105187%_ + _%default105189%_)))) (define hash-update! - (lambda _g108602_ - (let ((_g108601_ (let () (declare (not safe)) (##length _g108602_)))) - (cond ((let () (declare (not safe)) (##fx= _g108601_ 3)) - (apply hash-update!__0 _g108602_)) - ((let () (declare (not safe)) (##fx= _g108601_ 4)) - (apply hash-update!__% _g108602_)) + (lambda _g108876_ + (let ((_g108875_ (let () (declare (not safe)) (##length _g108876_)))) + (cond ((let () (declare (not safe)) (##fx= _g108875_ 3)) + (apply hash-update!__0 _g108876_)) + ((let () (declare (not safe)) (##fx= _g108875_ 4)) + (apply hash-update!__% _g108876_)) (else (##raise-wrong-number-of-arguments-exception hash-update! - _g108602_)))))) + _g108876_)))))) (define __hash-update!__% - (lambda (_%h104857%_ _%key104858%_ _%update104859%_ _%default104860%_) - (let ((_%h104863%_ _%h104857%_)) + (lambda (_%h105131%_ _%key105132%_ _%update105133%_ _%default105134%_) + (let ((_%h105137%_ _%h105131%_)) (HashTable-update! - _%h104863%_ - _%key104858%_ - _%update104859%_ - _%default104860%_)))) + _%h105137%_ + _%key105132%_ + _%update105133%_ + _%default105134%_)))) (define __hash-update!__0 - (lambda (_%h104875%_ _%key104876%_ _%update104877%_) - (let ((_%default104879%_ '#!void)) + (lambda (_%h105149%_ _%key105150%_ _%update105151%_) + (let ((_%default105153%_ '#!void)) (__hash-update!__% - _%h104875%_ - _%key104876%_ - _%update104877%_ - _%default104879%_)))) + _%h105149%_ + _%key105150%_ + _%update105151%_ + _%default105153%_)))) (define __hash-update! - (lambda _g108604_ - (let ((_g108603_ (let () (declare (not safe)) (##length _g108604_)))) - (cond ((let () (declare (not safe)) (##fx= _g108603_ 3)) - (apply __hash-update!__0 _g108604_)) - ((let () (declare (not safe)) (##fx= _g108603_ 4)) - (apply __hash-update!__% _g108604_)) + (lambda _g108878_ + (let ((_g108877_ (let () (declare (not safe)) (##length _g108878_)))) + (cond ((let () (declare (not safe)) (##fx= _g108877_ 3)) + (apply __hash-update!__0 _g108878_)) + ((let () (declare (not safe)) (##fx= _g108877_ 4)) + (apply __hash-update!__% _g108878_)) (else (##raise-wrong-number-of-arguments-exception __hash-update! - _g108604_)))))) + _g108878_)))))) (define hash-remove! - (lambda (_%h104837%_ _%key104838%_) - (let* ((_%h104844%_ - (let ((_%$obj104841%_ _%h104837%_)) + (lambda (_%h105111%_ _%key105112%_) + (let* ((_%h105118%_ + (let ((_%$obj105115%_ _%h105111%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104841%_)) + (##structure? _%$obj105115%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj104841%_))) + (##structure-type _%$obj105115%_))) '#t) - _%$obj104841%_ + _%$obj105115%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj104841%_))))) - (_%h104846%_ _%h104844%_)) - (__hash-remove! _%h104846%_ _%key104838%_)))) + (cast HashTable::interface _%$obj105115%_))))) + (_%h105120%_ _%h105118%_)) + (__hash-remove! _%h105120%_ _%key105112%_)))) (define __hash-remove! - (lambda (_%h104824%_ _%key104825%_) - (let ((_%h104828%_ _%h104824%_)) - (&HashTable-delete! _%h104828%_ _%key104825%_)))) + (lambda (_%h105098%_ _%key105099%_) + (let ((_%h105102%_ _%h105098%_)) + (&HashTable-delete! _%h105102%_ _%key105099%_)))) (define hash-key? - (lambda (_%h104805%_ _%k104806%_) - (let* ((_%h104812%_ - (let ((_%$obj104809%_ _%h104805%_)) + (lambda (_%h105079%_ _%k105080%_) + (let* ((_%h105086%_ + (let ((_%$obj105083%_ _%h105079%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104809%_)) + (##structure? _%$obj105083%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj104809%_))) + (##structure-type _%$obj105083%_))) '#t) - _%$obj104809%_ + _%$obj105083%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj104809%_))))) - (_%h104814%_ _%h104812%_)) - (__hash-key? _%h104814%_ _%k104806%_)))) + (cast HashTable::interface _%$obj105083%_))))) + (_%h105088%_ _%h105086%_)) + (__hash-key? _%h105088%_ _%k105080%_)))) (define __hash-key? - (lambda (_%h104792%_ _%k104793%_) - (let ((_%h104796%_ _%h104792%_)) - (not (eq? (&HashTable-ref _%h104796%_ _%k104793%_ absent-value) + (lambda (_%h105066%_ _%k105067%_) + (let ((_%h105070%_ _%h105066%_)) + (not (eq? (&HashTable-ref _%h105070%_ _%k105067%_ absent-value) absent-value))))) (define hash->list - (lambda (_%h104774%_) - (let* ((_%h104780%_ - (let ((_%$obj104777%_ _%h104774%_)) + (lambda (_%h105048%_) + (let* ((_%h105054%_ + (let ((_%$obj105051%_ _%h105048%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104777%_)) + (##structure? _%$obj105051%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj104777%_))) + (##structure-type _%$obj105051%_))) '#t) - _%$obj104777%_ + _%$obj105051%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj104777%_))))) - (_%h104782%_ _%h104780%_)) - (__hash->list _%h104782%_)))) + (cast HashTable::interface _%$obj105051%_))))) + (_%h105056%_ _%h105054%_)) + (__hash->list _%h105056%_)))) (define __hash->list - (lambda (_%h104757%_) - (let* ((_%h104760%_ _%h104757%_) (_%lst104769%_ '())) + (lambda (_%h105031%_) + (let* ((_%h105034%_ _%h105031%_) (_%lst105043%_ '())) (&HashTable-for-each - _%h104760%_ - (lambda (_%k104771%_ _%v104772%_) - (set! _%lst104769%_ - (cons (cons _%k104771%_ _%v104772%_) _%lst104769%_)))) - _%lst104769%_))) + _%h105034%_ + (lambda (_%k105045%_ _%v105046%_) + (set! _%lst105043%_ + (cons (cons _%k105045%_ _%v105046%_) _%lst105043%_)))) + _%lst105043%_))) (define hash->plist - (lambda (_%h104739%_) - (let* ((_%h104745%_ - (let ((_%$obj104742%_ _%h104739%_)) + (lambda (_%h105013%_) + (let* ((_%h105019%_ + (let ((_%$obj105016%_ _%h105013%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104742%_)) + (##structure? _%$obj105016%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj104742%_))) + (##structure-type _%$obj105016%_))) '#t) - _%$obj104742%_ + _%$obj105016%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj104742%_))))) - (_%h104747%_ _%h104745%_)) - (__hash->plist _%h104747%_)))) + (cast HashTable::interface _%$obj105016%_))))) + (_%h105021%_ _%h105019%_)) + (__hash->plist _%h105021%_)))) (define __hash->plist - (lambda (_%h104722%_) - (let* ((_%h104725%_ _%h104722%_) (_%lst104734%_ '())) + (lambda (_%h104996%_) + (let* ((_%h104999%_ _%h104996%_) (_%lst105008%_ '())) (&HashTable-for-each - _%h104725%_ - (lambda (_%k104736%_ _%v104737%_) - (set! _%lst104734%_ - (cons _%k104736%_ (cons _%v104737%_ _%lst104734%_))))) - _%lst104734%_))) + _%h104999%_ + (lambda (_%k105010%_ _%v105011%_) + (set! _%lst105008%_ + (cons _%k105010%_ (cons _%v105011%_ _%lst105008%_))))) + _%lst105008%_))) (define hash-for-each - (lambda (_%proc104693%_ _%h104694%_) - (if (procedure? _%proc104693%_) - (let* ((_%proc104698%_ _%proc104693%_) - (_%h104710%_ - (let ((_%$obj104707%_ _%h104694%_)) + (lambda (_%proc104967%_ _%h104968%_) + (if (procedure? _%proc104967%_) + (let* ((_%proc104972%_ _%proc104967%_) + (_%h104984%_ + (let ((_%$obj104981%_ _%h104968%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104707%_)) + (##structure? _%$obj104981%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj104707%_))) + (##structure-type _%$obj104981%_))) '#t) - _%$obj104707%_ + _%$obj104981%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj104707%_))))) - (_%h104712%_ _%h104710%_)) - (__hash-for-each _%proc104698%_ _%h104712%_)) + (cast HashTable::interface _%$obj104981%_))))) + (_%h104986%_ _%h104984%_)) + (__hash-for-each _%proc104972%_ _%h104986%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2551,32 +2551,32 @@ 'contract: 'procedure? 'value: - _%proc104693%_) + _%proc104967%_) '#!void)))) (define __hash-for-each - (lambda (_%proc104672%_ _%h104673%_) - (let* ((_%proc104676%_ _%proc104672%_) (_%h104684%_ _%h104673%_)) - (&HashTable-for-each _%h104684%_ _%proc104676%_)))) + (lambda (_%proc104946%_ _%h104947%_) + (let* ((_%proc104950%_ _%proc104946%_) (_%h104958%_ _%h104947%_)) + (&HashTable-for-each _%h104958%_ _%proc104950%_)))) (define hash-map - (lambda (_%proc104643%_ _%h104644%_) - (if (procedure? _%proc104643%_) - (let* ((_%proc104648%_ _%proc104643%_) - (_%h104660%_ - (let ((_%$obj104657%_ _%h104644%_)) + (lambda (_%proc104917%_ _%h104918%_) + (if (procedure? _%proc104917%_) + (let* ((_%proc104922%_ _%proc104917%_) + (_%h104934%_ + (let ((_%$obj104931%_ _%h104918%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104657%_)) + (##structure? _%$obj104931%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj104657%_))) + (##structure-type _%$obj104931%_))) '#t) - _%$obj104657%_ + _%$obj104931%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj104657%_))))) - (_%h104662%_ _%h104660%_)) - (__hash-map _%proc104648%_ _%h104662%_)) + (cast HashTable::interface _%$obj104931%_))))) + (_%h104936%_ _%h104934%_)) + (__hash-map _%proc104922%_ _%h104936%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2585,42 +2585,42 @@ 'contract: 'procedure? 'value: - _%proc104643%_) + _%proc104917%_) '#!void)))) (define __hash-map - (lambda (_%proc104617%_ _%h104618%_) - (let* ((_%proc104621%_ _%proc104617%_) - (_%h104629%_ _%h104618%_) - (_%result104638%_ '())) + (lambda (_%proc104891%_ _%h104892%_) + (let* ((_%proc104895%_ _%proc104891%_) + (_%h104903%_ _%h104892%_) + (_%result104912%_ '())) (&HashTable-for-each - _%h104629%_ - (lambda (_%k104640%_ _%v104641%_) - (set! _%result104638%_ + _%h104903%_ + (lambda (_%k104914%_ _%v104915%_) + (set! _%result104912%_ (cons (let () (declare (not safe)) - (_%proc104621%_ _%k104640%_ _%v104641%_)) - _%result104638%_)))) - _%result104638%_))) + (_%proc104895%_ _%k104914%_ _%v104915%_)) + _%result104912%_)))) + _%result104912%_))) (define hash-fold - (lambda (_%proc104587%_ _%iv104588%_ _%h104589%_) - (if (procedure? _%proc104587%_) - (let* ((_%proc104593%_ _%proc104587%_) - (_%h104605%_ - (let ((_%$obj104602%_ _%h104589%_)) + (lambda (_%proc104861%_ _%iv104862%_ _%h104863%_) + (if (procedure? _%proc104861%_) + (let* ((_%proc104867%_ _%proc104861%_) + (_%h104879%_ + (let ((_%$obj104876%_ _%h104863%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104602%_)) + (##structure? _%$obj104876%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj104602%_))) + (##structure-type _%$obj104876%_))) '#t) - _%$obj104602%_ + _%$obj104876%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj104602%_))))) - (_%h104607%_ _%h104605%_)) - (__hash-fold _%proc104593%_ _%iv104588%_ _%h104607%_)) + (cast HashTable::interface _%$obj104876%_))))) + (_%h104881%_ _%h104879%_)) + (__hash-fold _%proc104867%_ _%iv104862%_ _%h104881%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2629,47 +2629,47 @@ 'contract: 'procedure? 'value: - _%proc104587%_) + _%proc104861%_) '#!void)))) (define __hash-fold - (lambda (_%proc104560%_ _%iv104561%_ _%h104562%_) - (let* ((_%proc104565%_ _%proc104560%_) - (_%h104573%_ _%h104562%_) - (_%result104582%_ _%iv104561%_)) + (lambda (_%proc104834%_ _%iv104835%_ _%h104836%_) + (let* ((_%proc104839%_ _%proc104834%_) + (_%h104847%_ _%h104836%_) + (_%result104856%_ _%iv104835%_)) (&HashTable-for-each - _%h104573%_ - (lambda (_%k104584%_ _%v104585%_) - (set! _%result104582%_ + _%h104847%_ + (lambda (_%k104858%_ _%v104859%_) + (set! _%result104856%_ (let () (declare (not safe)) - (_%proc104565%_ - _%k104584%_ - _%v104585%_ - _%result104582%_))))) - _%result104582%_))) + (_%proc104839%_ + _%k104858%_ + _%v104859%_ + _%result104856%_))))) + _%result104856%_))) (define hash-find__% - (lambda (_%proc104518%_ _%h104519%_ _%default-value104520%_) - (if (procedure? _%proc104518%_) - (let* ((_%proc104524%_ _%proc104518%_) - (_%h104536%_ - (let ((_%$obj104533%_ _%h104519%_)) + (lambda (_%proc104792%_ _%h104793%_ _%default-value104794%_) + (if (procedure? _%proc104792%_) + (let* ((_%proc104798%_ _%proc104792%_) + (_%h104810%_ + (let ((_%$obj104807%_ _%h104793%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104533%_)) + (##structure? _%$obj104807%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj104533%_))) + (##structure-type _%$obj104807%_))) '#t) - _%$obj104533%_ + _%$obj104807%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj104533%_))))) - (_%h104538%_ _%h104536%_)) + (cast HashTable::interface _%$obj104807%_))))) + (_%h104812%_ _%h104810%_)) (__hash-find__% - _%proc104524%_ - _%h104538%_ - _%default-value104520%_)) + _%proc104798%_ + _%h104812%_ + _%default-value104794%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2678,229 +2678,229 @@ 'contract: 'procedure? 'value: - _%proc104518%_) + _%proc104792%_) '#!void)))) (define hash-find__0 - (lambda (_%proc104551%_ _%h104552%_) - (let ((_%default-value104554%_ '#f)) - (hash-find__% _%proc104551%_ _%h104552%_ _%default-value104554%_)))) + (lambda (_%proc104825%_ _%h104826%_) + (let ((_%default-value104828%_ '#f)) + (hash-find__% _%proc104825%_ _%h104826%_ _%default-value104828%_)))) (define hash-find - (lambda _g108606_ - (let ((_g108605_ (let () (declare (not safe)) (##length _g108606_)))) - (cond ((let () (declare (not safe)) (##fx= _g108605_ 2)) - (apply hash-find__0 _g108606_)) - ((let () (declare (not safe)) (##fx= _g108605_ 3)) - (apply hash-find__% _g108606_)) + (lambda _g108880_ + (let ((_g108879_ (let () (declare (not safe)) (##length _g108880_)))) + (cond ((let () (declare (not safe)) (##fx= _g108879_ 2)) + (apply hash-find__0 _g108880_)) + ((let () (declare (not safe)) (##fx= _g108879_ 3)) + (apply hash-find__% _g108880_)) (else (##raise-wrong-number-of-arguments-exception hash-find - _g108606_)))))) + _g108880_)))))) (define __hash-find__% - (lambda (_%proc104475%_ _%h104476%_ _%default-value104477%_) - (let* ((_%proc104480%_ _%proc104475%_) - (_%h104488%_ _%h104476%_) - (__tmp108607 - (lambda (_%return104497%_) + (lambda (_%proc104749%_ _%h104750%_ _%default-value104751%_) + (let* ((_%proc104754%_ _%proc104749%_) + (_%h104762%_ _%h104750%_) + (__tmp108881 + (lambda (_%return104771%_) (&HashTable-for-each - _%h104488%_ - (lambda (_%k104499%_ _%v104500%_) - (let ((_%$e104502%_ + _%h104762%_ + (lambda (_%k104773%_ _%v104774%_) + (let ((_%$e104776%_ (let () (declare (not safe)) - (_%proc104480%_ _%k104499%_ _%v104500%_)))) - (if _%$e104502%_ - (_%return104497%_ _%$e104502%_) + (_%proc104754%_ _%k104773%_ _%v104774%_)))) + (if _%$e104776%_ + (_%return104771%_ _%$e104776%_) '#!void)))) - _%default-value104477%_))) + _%default-value104751%_))) (declare (not safe)) - (##call-with-current-continuation __tmp108607)))) + (##call-with-current-continuation __tmp108881)))) (define __hash-find__0 - (lambda (_%proc104508%_ _%h104509%_) - (let ((_%default-value104511%_ '#f)) + (lambda (_%proc104782%_ _%h104783%_) + (let ((_%default-value104785%_ '#f)) (__hash-find__% - _%proc104508%_ - _%h104509%_ - _%default-value104511%_)))) + _%proc104782%_ + _%h104783%_ + _%default-value104785%_)))) (define __hash-find - (lambda _g108609_ - (let ((_g108608_ (let () (declare (not safe)) (##length _g108609_)))) - (cond ((let () (declare (not safe)) (##fx= _g108608_ 2)) - (apply __hash-find__0 _g108609_)) - ((let () (declare (not safe)) (##fx= _g108608_ 3)) - (apply __hash-find__% _g108609_)) + (lambda _g108883_ + (let ((_g108882_ (let () (declare (not safe)) (##length _g108883_)))) + (cond ((let () (declare (not safe)) (##fx= _g108882_ 2)) + (apply __hash-find__0 _g108883_)) + ((let () (declare (not safe)) (##fx= _g108882_ 3)) + (apply __hash-find__% _g108883_)) (else (##raise-wrong-number-of-arguments-exception __hash-find - _g108609_)))))) + _g108883_)))))) (define hash-keys - (lambda (_%h104456%_) - (let* ((_%h104462%_ - (let ((_%$obj104459%_ _%h104456%_)) + (lambda (_%h104730%_) + (let* ((_%h104736%_ + (let ((_%$obj104733%_ _%h104730%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104459%_)) + (##structure? _%$obj104733%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj104459%_))) + (##structure-type _%$obj104733%_))) '#t) - _%$obj104459%_ + _%$obj104733%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj104459%_))))) - (_%h104464%_ _%h104462%_)) - (__hash-keys _%h104464%_)))) + (cast HashTable::interface _%$obj104733%_))))) + (_%h104738%_ _%h104736%_)) + (__hash-keys _%h104738%_)))) (define __hash-keys - (lambda (_%h104439%_) - (let* ((_%h104442%_ _%h104439%_) (_%result104451%_ '())) + (lambda (_%h104713%_) + (let* ((_%h104716%_ _%h104713%_) (_%result104725%_ '())) (&HashTable-for-each - _%h104442%_ - (lambda (_%k104453%_ _%v104454%_) - (set! _%result104451%_ (cons _%k104453%_ _%result104451%_)))) - _%result104451%_))) + _%h104716%_ + (lambda (_%k104727%_ _%v104728%_) + (set! _%result104725%_ (cons _%k104727%_ _%result104725%_)))) + _%result104725%_))) (define hash-values - (lambda (_%h104421%_) - (let* ((_%h104427%_ - (let ((_%$obj104424%_ _%h104421%_)) + (lambda (_%h104695%_) + (let* ((_%h104701%_ + (let ((_%$obj104698%_ _%h104695%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104424%_)) + (##structure? _%$obj104698%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj104424%_))) + (##structure-type _%$obj104698%_))) '#t) - _%$obj104424%_ + _%$obj104698%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj104424%_))))) - (_%h104429%_ _%h104427%_)) - (__hash-values _%h104429%_)))) + (cast HashTable::interface _%$obj104698%_))))) + (_%h104703%_ _%h104701%_)) + (__hash-values _%h104703%_)))) (define __hash-values - (lambda (_%h104404%_) - (let* ((_%h104407%_ _%h104404%_) (_%result104416%_ '())) + (lambda (_%h104678%_) + (let* ((_%h104681%_ _%h104678%_) (_%result104690%_ '())) (&HashTable-for-each - _%h104407%_ - (lambda (_%k104418%_ _%v104419%_) - (set! _%result104416%_ (cons _%v104419%_ _%result104416%_)))) - _%result104416%_))) + _%h104681%_ + (lambda (_%k104692%_ _%v104693%_) + (set! _%result104690%_ (cons _%v104693%_ _%result104690%_)))) + _%result104690%_))) (define hash-copy - (lambda (_%h104386%_) - (let* ((_%h104392%_ - (let ((_%$obj104389%_ _%h104386%_)) + (lambda (_%h104660%_) + (let* ((_%h104666%_ + (let ((_%$obj104663%_ _%h104660%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104389%_)) + (##structure? _%$obj104663%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj104389%_))) + (##structure-type _%$obj104663%_))) '#t) - _%$obj104389%_ + _%$obj104663%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj104389%_))))) - (_%h104394%_ _%h104392%_)) - (__hash-copy _%h104394%_)))) + (cast HashTable::interface _%$obj104663%_))))) + (_%h104668%_ _%h104666%_)) + (__hash-copy _%h104668%_)))) (define __hash-copy - (lambda (_%h104374%_) - (let ((_%h104377%_ _%h104374%_)) (__HashTable-copy _%h104377%_)))) + (lambda (_%h104648%_) + (let ((_%h104651%_ _%h104648%_)) (__HashTable-copy _%h104651%_)))) (define hash-clear! - (lambda (_%h104356%_) - (let* ((_%h104362%_ - (let ((_%$obj104359%_ _%h104356%_)) + (lambda (_%h104630%_) + (let* ((_%h104636%_ + (let ((_%$obj104633%_ _%h104630%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104359%_)) + (##structure? _%$obj104633%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj104359%_))) + (##structure-type _%$obj104633%_))) '#t) - _%$obj104359%_ + _%$obj104633%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj104359%_))))) - (_%h104364%_ _%h104362%_)) - (__hash-clear! _%h104364%_)))) + (cast HashTable::interface _%$obj104633%_))))) + (_%h104638%_ _%h104636%_)) + (__hash-clear! _%h104638%_)))) (define __hash-clear! - (lambda (_%h104344%_) - (let ((_%h104347%_ _%h104344%_)) (&HashTable-clear! _%h104347%_)))) + (lambda (_%h104618%_) + (let ((_%h104621%_ _%h104618%_)) (&HashTable-clear! _%h104621%_)))) (define hash-merge - (lambda (_%h104325%_ . _%rest104326%_) - (let* ((_%h104332%_ - (let ((_%$obj104329%_ _%h104325%_)) + (lambda (_%h104599%_ . _%rest104600%_) + (let* ((_%h104606%_ + (let ((_%$obj104603%_ _%h104599%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104329%_)) + (##structure? _%$obj104603%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj104329%_))) + (##structure-type _%$obj104603%_))) '#t) - _%$obj104329%_ + _%$obj104603%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj104329%_))))) - (_%h104334%_ _%h104332%_)) + (cast HashTable::interface _%$obj104603%_))))) + (_%h104608%_ _%h104606%_)) (declare (not safe)) - (##apply __hash-merge _%h104334%_ _%rest104326%_)))) + (##apply __hash-merge _%h104608%_ _%rest104600%_)))) (define __hash-merge - (lambda (_%h104310%_ . _%rest104311%_) - (let* ((_%h104314%_ _%h104310%_) - (_%copy104323%_ (__HashTable-copy _%h104314%_))) - (apply hash-merge! _%copy104323%_ _%rest104311%_) - _%copy104323%_))) + (lambda (_%h104584%_ . _%rest104585%_) + (let* ((_%h104588%_ _%h104584%_) + (_%copy104597%_ (__HashTable-copy _%h104588%_))) + (apply hash-merge! _%copy104597%_ _%rest104585%_) + _%copy104597%_))) (define hash-merge! - (lambda (_%h104291%_ . _%rest104292%_) - (let* ((_%h104298%_ - (let ((_%$obj104295%_ _%h104291%_)) + (lambda (_%h104565%_ . _%rest104566%_) + (let* ((_%h104572%_ + (let ((_%$obj104569%_ _%h104565%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104295%_)) + (##structure? _%$obj104569%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj104295%_))) + (##structure-type _%$obj104569%_))) '#t) - _%$obj104295%_ + _%$obj104569%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj104295%_))))) - (_%h104300%_ _%h104298%_)) + (cast HashTable::interface _%$obj104569%_))))) + (_%h104574%_ _%h104572%_)) (declare (not safe)) - (##apply __hash-merge! _%h104300%_ _%rest104292%_)))) + (##apply __hash-merge! _%h104574%_ _%rest104566%_)))) (define __hash-merge! - (lambda (_%h104254%_ . _%rest104255%_) - (let ((_%h104258%_ _%h104254%_)) - (let ((__tmp108610 - (lambda (_%hr104267%_) - (let* ((_%hr104273%_ - (let ((_%$obj104270%_ _%hr104267%_)) + (lambda (_%h104528%_ . _%rest104529%_) + (let ((_%h104532%_ _%h104528%_)) + (let ((__tmp108884 + (lambda (_%hr104541%_) + (let* ((_%hr104547%_ + (let ((_%$obj104544%_ _%hr104541%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj104270%_)) + (##structure? _%$obj104544%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj104270%_))) + _%$obj104544%_))) '#t) - _%$obj104270%_ + _%$obj104544%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj104270%_))))) - (_%hr104275%_ _%hr104273%_)) + _%$obj104544%_))))) + (_%hr104549%_ _%hr104547%_)) (&HashTable-for-each - _%hr104275%_ - (lambda (_%k104288%_ _%v104289%_) - (if (__hash-key? _%h104258%_ _%k104288%_) + _%hr104549%_ + (lambda (_%k104562%_ _%v104563%_) + (if (__hash-key? _%h104532%_ _%k104562%_) '#!void (&HashTable-set! - _%h104258%_ - _%k104288%_ - _%v104289%_)))))))) + _%h104532%_ + _%k104562%_ + _%v104563%_)))))))) (declare (not safe)) - (##for-each __tmp108610 _%rest104255%_)) - _%h104258%_))))) + (##for-each __tmp108884 _%rest104529%_)) + _%h104532%_))))) diff --git a/src/bootstrap/gerbil/runtime/hash~1.scm b/src/bootstrap/gerbil/runtime/hash~1.scm index c47390a7f..5a91664cb 100644 --- a/src/bootstrap/gerbil/runtime/hash~1.scm +++ b/src/bootstrap/gerbil/runtime/hash~1.scm @@ -1,552 +1,552 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g108612_| + (define |[1]#_g108886_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g108614_| + (define |[1]#_g108888_| (##structure gx#syntax-quote::t 'UnboundKeyError::t #f (gx#current-expander-context) '())) - (define |[1]#_g108616_| + (define |[1]#_g108890_| (##structure gx#syntax-quote::t 'make-UnboundKeyError #f (gx#current-expander-context) '())) - (define |[1]#_g108618_| + (define |[1]#_g108892_| (##structure gx#syntax-quote::t 'UnboundKeyError? #f (gx#current-expander-context) '())) - (define |[1]#_g108620_| + (define |[1]#_g108894_| (##structure gx#syntax-quote::t 'UnboundKeyError-message #f (gx#current-expander-context) '())) - (define |[1]#_g108621_| + (define |[1]#_g108895_| (##structure gx#syntax-quote::t 'UnboundKeyError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g108622_| + (define |[1]#_g108896_| (##structure gx#syntax-quote::t 'UnboundKeyError-where #f (gx#current-expander-context) '())) - (define |[1]#_g108623_| + (define |[1]#_g108897_| (##structure gx#syntax-quote::t 'UnboundKeyError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g108625_| + (define |[1]#_g108899_| (##structure gx#syntax-quote::t 'UnboundKeyError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108626_| + (define |[1]#_g108900_| (##structure gx#syntax-quote::t 'UnboundKeyError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108627_| + (define |[1]#_g108901_| (##structure gx#syntax-quote::t 'UnboundKeyError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108628_| + (define |[1]#_g108902_| (##structure gx#syntax-quote::t 'UnboundKeyError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108630_| + (define |[1]#_g108904_| (##structure gx#syntax-quote::t '&UnboundKeyError-message #f (gx#current-expander-context) '())) - (define |[1]#_g108631_| + (define |[1]#_g108905_| (##structure gx#syntax-quote::t '&UnboundKeyError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g108632_| + (define |[1]#_g108906_| (##structure gx#syntax-quote::t '&UnboundKeyError-where #f (gx#current-expander-context) '())) - (define |[1]#_g108633_| + (define |[1]#_g108907_| (##structure gx#syntax-quote::t '&UnboundKeyError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g108635_| + (define |[1]#_g108909_| (##structure gx#syntax-quote::t '&UnboundKeyError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108636_| + (define |[1]#_g108910_| (##structure gx#syntax-quote::t '&UnboundKeyError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108637_| + (define |[1]#_g108911_| (##structure gx#syntax-quote::t '&UnboundKeyError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108638_| + (define |[1]#_g108912_| (##structure gx#syntax-quote::t '&UnboundKeyError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108640_| + (define |[1]#_g108914_| (##structure gx#syntax-quote::t 'HashTable #f (gx#current-expander-context) '())) - (define |[1]#_g108642_| + (define |[1]#_g108916_| (##structure gx#syntax-quote::t 'HashTable::t #f (gx#current-expander-context) '())) - (define |[1]#_g108644_| + (define |[1]#_g108918_| (##structure gx#syntax-quote::t 'HashTable::interface #f (gx#current-expander-context) '())) - (define |[1]#_g108646_| + (define |[1]#_g108920_| (##structure gx#syntax-quote::t 'make-HashTable #f (gx#current-expander-context) '())) - (define |[1]#_g108648_| + (define |[1]#_g108922_| (##structure gx#syntax-quote::t 'try-HashTable #f (gx#current-expander-context) '())) - (define |[1]#_g108650_| + (define |[1]#_g108924_| (##structure gx#syntax-quote::t 'HashTable? #f (gx#current-expander-context) '())) - (define |[1]#_g108652_| + (define |[1]#_g108926_| (##structure gx#syntax-quote::t 'is-HashTable? #f (gx#current-expander-context) '())) - (define |[1]#_g108654_| + (define |[1]#_g108928_| (##structure gx#syntax-quote::t 'HashTable-clear! #f (gx#current-expander-context) '())) - (define |[1]#_g108655_| + (define |[1]#_g108929_| (##structure gx#syntax-quote::t 'HashTable-copy #f (gx#current-expander-context) '())) - (define |[1]#_g108656_| + (define |[1]#_g108930_| (##structure gx#syntax-quote::t 'HashTable-delete! #f (gx#current-expander-context) '())) - (define |[1]#_g108657_| + (define |[1]#_g108931_| (##structure gx#syntax-quote::t 'HashTable-for-each #f (gx#current-expander-context) '())) - (define |[1]#_g108658_| + (define |[1]#_g108932_| (##structure gx#syntax-quote::t 'HashTable-length #f (gx#current-expander-context) '())) - (define |[1]#_g108659_| + (define |[1]#_g108933_| (##structure gx#syntax-quote::t 'HashTable-ref #f (gx#current-expander-context) '())) - (define |[1]#_g108660_| + (define |[1]#_g108934_| (##structure gx#syntax-quote::t 'HashTable-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108661_| + (define |[1]#_g108935_| (##structure gx#syntax-quote::t 'HashTable-update! #f (gx#current-expander-context) '())) - (define |[1]#_g108663_| + (define |[1]#_g108937_| (##structure gx#syntax-quote::t '&HashTable-clear! #f (gx#current-expander-context) '())) - (define |[1]#_g108664_| + (define |[1]#_g108938_| (##structure gx#syntax-quote::t '&HashTable-copy #f (gx#current-expander-context) '())) - (define |[1]#_g108665_| + (define |[1]#_g108939_| (##structure gx#syntax-quote::t '&HashTable-delete! #f (gx#current-expander-context) '())) - (define |[1]#_g108666_| + (define |[1]#_g108940_| (##structure gx#syntax-quote::t '&HashTable-for-each #f (gx#current-expander-context) '())) - (define |[1]#_g108667_| + (define |[1]#_g108941_| (##structure gx#syntax-quote::t '&HashTable-length #f (gx#current-expander-context) '())) - (define |[1]#_g108668_| + (define |[1]#_g108942_| (##structure gx#syntax-quote::t '&HashTable-ref #f (gx#current-expander-context) '())) - (define |[1]#_g108669_| + (define |[1]#_g108943_| (##structure gx#syntax-quote::t '&HashTable-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108670_| + (define |[1]#_g108944_| (##structure gx#syntax-quote::t '&HashTable-update! #f (gx#current-expander-context) '())) - (define |[1]#_g108672_| + (define |[1]#_g108946_| (##structure gx#syntax-quote::t 'Locker::t #f (gx#current-expander-context) '())) - (define |[1]#_g108674_| + (define |[1]#_g108948_| (##structure gx#syntax-quote::t 'Locker::interface #f (gx#current-expander-context) '())) - (define |[1]#_g108676_| + (define |[1]#_g108950_| (##structure gx#syntax-quote::t 'make-Locker #f (gx#current-expander-context) '())) - (define |[1]#_g108678_| + (define |[1]#_g108952_| (##structure gx#syntax-quote::t 'try-Locker #f (gx#current-expander-context) '())) - (define |[1]#_g108680_| + (define |[1]#_g108954_| (##structure gx#syntax-quote::t 'Locker? #f (gx#current-expander-context) '())) - (define |[1]#_g108682_| + (define |[1]#_g108956_| (##structure gx#syntax-quote::t 'is-Locker? #f (gx#current-expander-context) '())) - (define |[1]#_g108684_| + (define |[1]#_g108958_| (##structure gx#syntax-quote::t 'Locker-read-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g108685_| + (define |[1]#_g108959_| (##structure gx#syntax-quote::t 'Locker-read-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g108686_| + (define |[1]#_g108960_| (##structure gx#syntax-quote::t 'Locker-write-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g108687_| + (define |[1]#_g108961_| (##structure gx#syntax-quote::t 'Locker-write-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g108689_| + (define |[1]#_g108963_| (##structure gx#syntax-quote::t '&Locker-read-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g108690_| + (define |[1]#_g108964_| (##structure gx#syntax-quote::t '&Locker-read-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g108691_| + (define |[1]#_g108965_| (##structure gx#syntax-quote::t '&Locker-write-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g108692_| + (define |[1]#_g108966_| (##structure gx#syntax-quote::t '&Locker-write-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g108694_| + (define |[1]#_g108968_| (##structure gx#syntax-quote::t 'locked-hash-table::t #f (gx#current-expander-context) '())) - (define |[1]#_g108696_| + (define |[1]#_g108970_| (##structure gx#syntax-quote::t 'make-locked-hash-table #f (gx#current-expander-context) '())) - (define |[1]#_g108698_| + (define |[1]#_g108972_| (##structure gx#syntax-quote::t 'locked-hash-table? #f (gx#current-expander-context) '())) - (define |[1]#_g108700_| + (define |[1]#_g108974_| (##structure gx#syntax-quote::t 'locked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g108701_| + (define |[1]#_g108975_| (##structure gx#syntax-quote::t 'locked-hash-table-lock #f (gx#current-expander-context) '())) - (define |[1]#_g108703_| + (define |[1]#_g108977_| (##structure gx#syntax-quote::t 'locked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108704_| + (define |[1]#_g108978_| (##structure gx#syntax-quote::t 'locked-hash-table-lock-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108706_| + (define |[1]#_g108980_| (##structure gx#syntax-quote::t '&locked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g108707_| + (define |[1]#_g108981_| (##structure gx#syntax-quote::t '&locked-hash-table-lock #f (gx#current-expander-context) '())) - (define |[1]#_g108709_| + (define |[1]#_g108983_| (##structure gx#syntax-quote::t '&locked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108710_| + (define |[1]#_g108984_| (##structure gx#syntax-quote::t '&locked-hash-table-lock-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108712_| + (define |[1]#_g108986_| (##structure gx#syntax-quote::t 'checked-hash-table::t #f (gx#current-expander-context) '())) - (define |[1]#_g108714_| + (define |[1]#_g108988_| (##structure gx#syntax-quote::t 'make-checked-hash-table #f (gx#current-expander-context) '())) - (define |[1]#_g108716_| + (define |[1]#_g108990_| (##structure gx#syntax-quote::t 'checked-hash-table? #f (gx#current-expander-context) '())) - (define |[1]#_g108718_| + (define |[1]#_g108992_| (##structure gx#syntax-quote::t 'checked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g108719_| + (define |[1]#_g108993_| (##structure gx#syntax-quote::t 'checked-hash-table-key-check #f (gx#current-expander-context) '())) - (define |[1]#_g108721_| + (define |[1]#_g108995_| (##structure gx#syntax-quote::t 'checked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108722_| + (define |[1]#_g108996_| (##structure gx#syntax-quote::t 'checked-hash-table-key-check-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108724_| + (define |[1]#_g108998_| (##structure gx#syntax-quote::t '&checked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g108725_| + (define |[1]#_g108999_| (##structure gx#syntax-quote::t '&checked-hash-table-key-check #f (gx#current-expander-context) '())) - (define |[1]#_g108727_| + (define |[1]#_g109001_| (##structure gx#syntax-quote::t '&checked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108728_| + (define |[1]#_g109002_| (##structure gx#syntax-quote::t '&checked-hash-table-key-check-set! @@ -555,7 +555,7 @@ '())) (begin (define |[:0:]#UnboundKeyError| - (let ((__obj108521 + (let ((__obj108795 (let () (declare (not safe)) (##structure @@ -584,104 +584,104 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108521 + __obj108795 'gerbil/runtime/hash#UnboundKeyError::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108521 'UnboundKeyError '2 '#f '#f)) + (##unchecked-structure-set! __obj108795 'UnboundKeyError '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108521 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj108795 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj108521 + __obj108795 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp108611 (cons |[1]#_g108612_| '()))) + (let ((__tmp108885 (cons |[1]#_g108886_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj108521 __tmp108611 '3 '#f '#f)) + (##unchecked-structure-set! __obj108795 __tmp108885 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108521 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj108795 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108521 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj108795 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108521 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj108795 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108521 ':init! '11 '#f '#f)) - (let ((__tmp108613 |[1]#_g108614_|)) + (##unchecked-structure-set! __obj108795 ':init! '11 '#f '#f)) + (let ((__tmp108887 |[1]#_g108888_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108521 __tmp108613 '12 '#f '#f)) - (let ((__tmp108615 |[1]#_g108616_|)) + (##unchecked-structure-set! __obj108795 __tmp108887 '12 '#f '#f)) + (let ((__tmp108889 |[1]#_g108890_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108521 __tmp108615 '13 '#f '#f)) - (let ((__tmp108617 |[1]#_g108618_|)) + (##unchecked-structure-set! __obj108795 __tmp108889 '13 '#f '#f)) + (let ((__tmp108891 |[1]#_g108892_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108521 __tmp108617 '14 '#f '#f)) - (let ((__tmp108619 - (cons (cons 'message |[1]#_g108620_|) - (cons (cons 'irritants |[1]#_g108621_|) - (cons (cons 'where |[1]#_g108622_|) - (cons (cons 'continuation |[1]#_g108623_|) + (##unchecked-structure-set! __obj108795 __tmp108891 '14 '#f '#f)) + (let ((__tmp108893 + (cons (cons 'message |[1]#_g108894_|) + (cons (cons 'irritants |[1]#_g108895_|) + (cons (cons 'where |[1]#_g108896_|) + (cons (cons 'continuation |[1]#_g108897_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj108521 __tmp108619 '15 '#f '#f)) - (let ((__tmp108624 - (cons (cons 'message |[1]#_g108625_|) - (cons (cons 'irritants |[1]#_g108626_|) - (cons (cons 'where |[1]#_g108627_|) - (cons (cons 'continuation |[1]#_g108628_|) + (##unchecked-structure-set! __obj108795 __tmp108893 '15 '#f '#f)) + (let ((__tmp108898 + (cons (cons 'message |[1]#_g108899_|) + (cons (cons 'irritants |[1]#_g108900_|) + (cons (cons 'where |[1]#_g108901_|) + (cons (cons 'continuation |[1]#_g108902_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj108521 __tmp108624 '16 '#f '#f)) - (let ((__tmp108629 - (cons (cons 'message |[1]#_g108630_|) - (cons (cons 'irritants |[1]#_g108631_|) - (cons (cons 'where |[1]#_g108632_|) - (cons (cons 'continuation |[1]#_g108633_|) + (##unchecked-structure-set! __obj108795 __tmp108898 '16 '#f '#f)) + (let ((__tmp108903 + (cons (cons 'message |[1]#_g108904_|) + (cons (cons 'irritants |[1]#_g108905_|) + (cons (cons 'where |[1]#_g108906_|) + (cons (cons 'continuation |[1]#_g108907_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj108521 __tmp108629 '17 '#f '#f)) - (let ((__tmp108634 - (cons (cons 'message |[1]#_g108635_|) - (cons (cons 'irritants |[1]#_g108636_|) - (cons (cons 'where |[1]#_g108637_|) - (cons (cons 'continuation |[1]#_g108638_|) + (##unchecked-structure-set! __obj108795 __tmp108903 '17 '#f '#f)) + (let ((__tmp108908 + (cons (cons 'message |[1]#_g108909_|) + (cons (cons 'irritants |[1]#_g108910_|) + (cons (cons 'where |[1]#_g108911_|) + (cons (cons 'continuation |[1]#_g108912_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj108521 __tmp108634 '18 '#f '#f)) + (##unchecked-structure-set! __obj108795 __tmp108908 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108521 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj108795 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108521 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj108795 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108521 '() '20 '#f '#f)) - __obj108521)) + (##unchecked-structure-set! __obj108795 '() '20 '#f '#f)) + __obj108795)) (define |[:0:]#@HashTable| - (let ((__obj108523 + (let ((__obj108797 (let () (declare (not safe)) (##structure |gerbil/core/contract~TypeReference[1]#type-reference::t| '#f)))) - (let ((__tmp108639 |[1]#_g108640_|)) + (let ((__tmp108913 |[1]#_g108914_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108523 __tmp108639 '1 '#f '#f)) - __obj108523)) + (##unchecked-structure-set! __obj108797 __tmp108913 '1 '#f '#f)) + __obj108797)) (define |[:0:]#HashTable| - (let ((__obj108524 + (let ((__obj108798 (let () (declare (not safe)) (##structure @@ -699,14 +699,14 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108524 'HashTable '1 '#f '#f)) + (##unchecked-structure-set! __obj108798 'HashTable '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108524 '() '2 '#f '#f)) + (##unchecked-structure-set! __obj108798 '() '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj108524 + __obj108798 '((clear! () :void) (copy () @HashTable) (delete! (key) :void) @@ -718,51 +718,51 @@ '3 '#f '#f)) - (let ((__tmp108641 |[1]#_g108642_|)) + (let ((__tmp108915 |[1]#_g108916_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108524 __tmp108641 '4 '#f '#f)) - (let ((__tmp108643 |[1]#_g108644_|)) + (##unchecked-structure-set! __obj108798 __tmp108915 '4 '#f '#f)) + (let ((__tmp108917 |[1]#_g108918_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108524 __tmp108643 '5 '#f '#f)) - (let ((__tmp108645 |[1]#_g108646_|)) + (##unchecked-structure-set! __obj108798 __tmp108917 '5 '#f '#f)) + (let ((__tmp108919 |[1]#_g108920_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108524 __tmp108645 '6 '#f '#f)) - (let ((__tmp108647 |[1]#_g108648_|)) + (##unchecked-structure-set! __obj108798 __tmp108919 '6 '#f '#f)) + (let ((__tmp108921 |[1]#_g108922_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108524 __tmp108647 '7 '#f '#f)) - (let ((__tmp108649 |[1]#_g108650_|)) + (##unchecked-structure-set! __obj108798 __tmp108921 '7 '#f '#f)) + (let ((__tmp108923 |[1]#_g108924_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108524 __tmp108649 '8 '#f '#f)) - (let ((__tmp108651 |[1]#_g108652_|)) + (##unchecked-structure-set! __obj108798 __tmp108923 '8 '#f '#f)) + (let ((__tmp108925 |[1]#_g108926_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108524 __tmp108651 '9 '#f '#f)) - (let ((__tmp108653 - (cons |[1]#_g108654_| - (cons |[1]#_g108655_| - (cons |[1]#_g108656_| - (cons |[1]#_g108657_| - (cons |[1]#_g108658_| - (cons |[1]#_g108659_| - (cons |[1]#_g108660_| - (cons |[1]#_g108661_| + (##unchecked-structure-set! __obj108798 __tmp108925 '9 '#f '#f)) + (let ((__tmp108927 + (cons |[1]#_g108928_| + (cons |[1]#_g108929_| + (cons |[1]#_g108930_| + (cons |[1]#_g108931_| + (cons |[1]#_g108932_| + (cons |[1]#_g108933_| + (cons |[1]#_g108934_| + (cons |[1]#_g108935_| '())))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj108524 __tmp108653 '10 '#f '#f)) - (let ((__tmp108662 - (cons |[1]#_g108663_| - (cons |[1]#_g108664_| - (cons |[1]#_g108665_| - (cons |[1]#_g108666_| - (cons |[1]#_g108667_| - (cons |[1]#_g108668_| - (cons |[1]#_g108669_| - (cons |[1]#_g108670_| + (##unchecked-structure-set! __obj108798 __tmp108927 '10 '#f '#f)) + (let ((__tmp108936 + (cons |[1]#_g108937_| + (cons |[1]#_g108938_| + (cons |[1]#_g108939_| + (cons |[1]#_g108940_| + (cons |[1]#_g108941_| + (cons |[1]#_g108942_| + (cons |[1]#_g108943_| + (cons |[1]#_g108944_| '())))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj108524 __tmp108662 '11 '#f '#f)) - __obj108524)) + (##unchecked-structure-set! __obj108798 __tmp108936 '11 '#f '#f)) + __obj108798)) (define |[:0:]#Locker| - (let ((__obj108525 + (let ((__obj108799 (let () (declare (not safe)) (##structure @@ -780,14 +780,14 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108525 'Locker '1 '#f '#f)) + (##unchecked-structure-set! __obj108799 'Locker '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108525 '() '2 '#f '#f)) + (##unchecked-structure-set! __obj108799 '() '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj108525 + __obj108799 '((read-lock! () :void) (read-unlock! () :void) (write-lock! () :void) @@ -795,41 +795,41 @@ '3 '#f '#f)) - (let ((__tmp108671 |[1]#_g108672_|)) + (let ((__tmp108945 |[1]#_g108946_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108525 __tmp108671 '4 '#f '#f)) - (let ((__tmp108673 |[1]#_g108674_|)) + (##unchecked-structure-set! __obj108799 __tmp108945 '4 '#f '#f)) + (let ((__tmp108947 |[1]#_g108948_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108525 __tmp108673 '5 '#f '#f)) - (let ((__tmp108675 |[1]#_g108676_|)) + (##unchecked-structure-set! __obj108799 __tmp108947 '5 '#f '#f)) + (let ((__tmp108949 |[1]#_g108950_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108525 __tmp108675 '6 '#f '#f)) - (let ((__tmp108677 |[1]#_g108678_|)) + (##unchecked-structure-set! __obj108799 __tmp108949 '6 '#f '#f)) + (let ((__tmp108951 |[1]#_g108952_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108525 __tmp108677 '7 '#f '#f)) - (let ((__tmp108679 |[1]#_g108680_|)) + (##unchecked-structure-set! __obj108799 __tmp108951 '7 '#f '#f)) + (let ((__tmp108953 |[1]#_g108954_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108525 __tmp108679 '8 '#f '#f)) - (let ((__tmp108681 |[1]#_g108682_|)) + (##unchecked-structure-set! __obj108799 __tmp108953 '8 '#f '#f)) + (let ((__tmp108955 |[1]#_g108956_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108525 __tmp108681 '9 '#f '#f)) - (let ((__tmp108683 - (cons |[1]#_g108684_| - (cons |[1]#_g108685_| - (cons |[1]#_g108686_| - (cons |[1]#_g108687_| '())))))) + (##unchecked-structure-set! __obj108799 __tmp108955 '9 '#f '#f)) + (let ((__tmp108957 + (cons |[1]#_g108958_| + (cons |[1]#_g108959_| + (cons |[1]#_g108960_| + (cons |[1]#_g108961_| '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj108525 __tmp108683 '10 '#f '#f)) - (let ((__tmp108688 - (cons |[1]#_g108689_| - (cons |[1]#_g108690_| - (cons |[1]#_g108691_| - (cons |[1]#_g108692_| '())))))) + (##unchecked-structure-set! __obj108799 __tmp108957 '10 '#f '#f)) + (let ((__tmp108962 + (cons |[1]#_g108963_| + (cons |[1]#_g108964_| + (cons |[1]#_g108965_| + (cons |[1]#_g108966_| '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj108525 __tmp108688 '11 '#f '#f)) - __obj108525)) + (##unchecked-structure-set! __obj108799 __tmp108962 '11 '#f '#f)) + __obj108799)) (define |[:0:]#locked-hash-table| - (let ((__obj108526 + (let ((__obj108800 (let () (declare (not safe)) (##structure @@ -858,7 +858,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108526 + __obj108800 'gerbil/runtime/hash#locked-hash-table::t '1 '#f @@ -866,73 +866,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108526 + __obj108800 'locked-hash-table '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108526 '(table lock) '4 '#f '#f)) + (##unchecked-structure-set! __obj108800 '(table lock) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108526 '(table lock) '6 '#f '#f)) + (##unchecked-structure-set! __obj108800 '(table lock) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108526 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj108800 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108526 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj108800 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108526 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj108800 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108526 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj108800 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108526 '#f '11 '#f '#f)) - (let ((__tmp108693 |[1]#_g108694_|)) + (##unchecked-structure-set! __obj108800 '#f '11 '#f '#f)) + (let ((__tmp108967 |[1]#_g108968_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108526 __tmp108693 '12 '#f '#f)) - (let ((__tmp108695 |[1]#_g108696_|)) + (##unchecked-structure-set! __obj108800 __tmp108967 '12 '#f '#f)) + (let ((__tmp108969 |[1]#_g108970_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108526 __tmp108695 '13 '#f '#f)) - (let ((__tmp108697 |[1]#_g108698_|)) + (##unchecked-structure-set! __obj108800 __tmp108969 '13 '#f '#f)) + (let ((__tmp108971 |[1]#_g108972_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108526 __tmp108697 '14 '#f '#f)) - (let ((__tmp108699 - (cons (cons 'table |[1]#_g108700_|) - (cons (cons 'lock |[1]#_g108701_|) '())))) + (##unchecked-structure-set! __obj108800 __tmp108971 '14 '#f '#f)) + (let ((__tmp108973 + (cons (cons 'table |[1]#_g108974_|) + (cons (cons 'lock |[1]#_g108975_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj108526 __tmp108699 '15 '#f '#f)) - (let ((__tmp108702 - (cons (cons 'table |[1]#_g108703_|) - (cons (cons 'lock |[1]#_g108704_|) '())))) + (##unchecked-structure-set! __obj108800 __tmp108973 '15 '#f '#f)) + (let ((__tmp108976 + (cons (cons 'table |[1]#_g108977_|) + (cons (cons 'lock |[1]#_g108978_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj108526 __tmp108702 '16 '#f '#f)) - (let ((__tmp108705 - (cons (cons 'table |[1]#_g108706_|) - (cons (cons 'lock |[1]#_g108707_|) '())))) + (##unchecked-structure-set! __obj108800 __tmp108976 '16 '#f '#f)) + (let ((__tmp108979 + (cons (cons 'table |[1]#_g108980_|) + (cons (cons 'lock |[1]#_g108981_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj108526 __tmp108705 '17 '#f '#f)) - (let ((__tmp108708 - (cons (cons 'table |[1]#_g108709_|) - (cons (cons 'lock |[1]#_g108710_|) '())))) + (##unchecked-structure-set! __obj108800 __tmp108979 '17 '#f '#f)) + (let ((__tmp108982 + (cons (cons 'table |[1]#_g108983_|) + (cons (cons 'lock |[1]#_g108984_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj108526 __tmp108708 '18 '#f '#f)) + (##unchecked-structure-set! __obj108800 __tmp108982 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108526 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj108800 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108526 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj108800 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108526 '() '20 '#f '#f)) - __obj108526)) + (##unchecked-structure-set! __obj108800 '() '20 '#f '#f)) + __obj108800)) (define |[:0:]#checked-hash-table| - (let ((__obj108527 + (let ((__obj108801 (let () (declare (not safe)) (##structure @@ -961,7 +961,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108527 + __obj108801 'gerbil/runtime/hash#checked-hash-table::t '1 '#f @@ -969,7 +969,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108527 + __obj108801 'checked-hash-table '2 '#f @@ -977,7 +977,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108527 + __obj108801 '(table key-check) '4 '#f @@ -985,210 +985,210 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108527 + __obj108801 '(table key-check) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108527 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj108801 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108527 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj108801 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108527 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj108801 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108527 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj108801 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108527 '#f '11 '#f '#f)) - (let ((__tmp108711 |[1]#_g108712_|)) + (##unchecked-structure-set! __obj108801 '#f '11 '#f '#f)) + (let ((__tmp108985 |[1]#_g108986_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108527 __tmp108711 '12 '#f '#f)) - (let ((__tmp108713 |[1]#_g108714_|)) + (##unchecked-structure-set! __obj108801 __tmp108985 '12 '#f '#f)) + (let ((__tmp108987 |[1]#_g108988_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108527 __tmp108713 '13 '#f '#f)) - (let ((__tmp108715 |[1]#_g108716_|)) + (##unchecked-structure-set! __obj108801 __tmp108987 '13 '#f '#f)) + (let ((__tmp108989 |[1]#_g108990_|)) (declare (not safe)) - (##unchecked-structure-set! __obj108527 __tmp108715 '14 '#f '#f)) - (let ((__tmp108717 - (cons (cons 'table |[1]#_g108718_|) - (cons (cons 'key-check |[1]#_g108719_|) '())))) + (##unchecked-structure-set! __obj108801 __tmp108989 '14 '#f '#f)) + (let ((__tmp108991 + (cons (cons 'table |[1]#_g108992_|) + (cons (cons 'key-check |[1]#_g108993_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj108527 __tmp108717 '15 '#f '#f)) - (let ((__tmp108720 - (cons (cons 'table |[1]#_g108721_|) - (cons (cons 'key-check |[1]#_g108722_|) '())))) + (##unchecked-structure-set! __obj108801 __tmp108991 '15 '#f '#f)) + (let ((__tmp108994 + (cons (cons 'table |[1]#_g108995_|) + (cons (cons 'key-check |[1]#_g108996_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj108527 __tmp108720 '16 '#f '#f)) - (let ((__tmp108723 - (cons (cons 'table |[1]#_g108724_|) - (cons (cons 'key-check |[1]#_g108725_|) '())))) + (##unchecked-structure-set! __obj108801 __tmp108994 '16 '#f '#f)) + (let ((__tmp108997 + (cons (cons 'table |[1]#_g108998_|) + (cons (cons 'key-check |[1]#_g108999_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj108527 __tmp108723 '17 '#f '#f)) - (let ((__tmp108726 - (cons (cons 'table |[1]#_g108727_|) - (cons (cons 'key-check |[1]#_g108728_|) '())))) + (##unchecked-structure-set! __obj108801 __tmp108997 '17 '#f '#f)) + (let ((__tmp109000 + (cons (cons 'table |[1]#_g109001_|) + (cons (cons 'key-check |[1]#_g109002_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj108527 __tmp108726 '18 '#f '#f)) + (##unchecked-structure-set! __obj108801 __tmp109000 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108527 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj108801 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108527 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj108801 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj108527 '() '20 '#f '#f)) - __obj108527)) + (##unchecked-structure-set! __obj108801 '() '20 '#f '#f)) + __obj108801)) (define |[:0:]#deflocked-hash-method| - (lambda (_%$stx103645%_) - (let* ((_%g103649103688%_ - (lambda (_%g103650103684%_) + (lambda (_%$stx103919%_) + (let* ((_%g103923103962%_ + (lambda (_%g103924103958%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g103650103684%_))) - (_%g103648103836%_ - (lambda (_%g103650103692%_) - (if (gx#stx-pair? _%g103650103692%_) - (let ((_%e103656103695%_ - (gx#syntax-e _%g103650103692%_))) - (let ((_%hd103657103699%_ + _%g103924103958%_))) + (_%g103922104110%_ + (lambda (_%g103924103966%_) + (if (gx#stx-pair? _%g103924103966%_) + (let ((_%e103930103969%_ + (gx#syntax-e _%g103924103966%_))) + (let ((_%hd103931103973%_ (let () (declare (not safe)) - (##car _%e103656103695%_))) - (_%tl103658103702%_ + (##car _%e103930103969%_))) + (_%tl103932103976%_ (let () (declare (not safe)) - (##cdr _%e103656103695%_)))) - (if (gx#stx-pair? _%tl103658103702%_) - (let ((_%e103659103705%_ - (gx#syntax-e _%tl103658103702%_))) - (let ((_%hd103660103709%_ + (##cdr _%e103930103969%_)))) + (if (gx#stx-pair? _%tl103932103976%_) + (let ((_%e103933103979%_ + (gx#syntax-e _%tl103932103976%_))) + (let ((_%hd103934103983%_ (let () (declare (not safe)) - (##car _%e103659103705%_))) - (_%tl103661103712%_ + (##car _%e103933103979%_))) + (_%tl103935103986%_ (let () (declare (not safe)) - (##cdr _%e103659103705%_)))) - (if (gx#stx-pair? _%hd103660103709%_) - (let ((_%e103662103715%_ - (gx#syntax-e _%hd103660103709%_))) - (let ((_%hd103663103719%_ + (##cdr _%e103933103979%_)))) + (if (gx#stx-pair? _%hd103934103983%_) + (let ((_%e103936103989%_ + (gx#syntax-e _%hd103934103983%_))) + (let ((_%hd103937103993%_ (let () (declare (not safe)) - (##car _%e103662103715%_))) - (_%tl103664103722%_ + (##car _%e103936103989%_))) + (_%tl103938103996%_ (let () (declare (not safe)) - (##cdr _%e103662103715%_)))) + (##cdr _%e103936103989%_)))) (if (gx#stx-pair/null? - _%tl103664103722%_) - (let ((_g108729_ + _%tl103938103996%_) + (let ((_g109003_ (gx#syntax-split-splice - _%tl103664103722%_ + _%tl103938103996%_ '0))) (begin - (let ((_g108730_ + (let ((_g109004_ (let () (declare (not safe)) (if (##values? - _g108729_) + _g109003_) (##vector-length - _g108729_) + _g109003_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g108730_ 2))) - (error "Context expects 2 values" _g108730_))) + (##fx= _g109004_ 2))) + (error "Context expects 2 values" _g109004_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target103665103725%_ + (let ((_%target103939103999%_ (let () (declare (not safe)) (##vector-ref - _g108729_ + _g109003_ 0))) - (_%tl103667103728%_ + (_%tl103941104002%_ (let () (declare (not safe)) (##vector-ref - _g108729_ + _g109003_ 1)))) (if (gx#stx-null? - _%tl103667103728%_) - (letrec ((_%loop103668103731%_ + _%tl103941104002%_) + (letrec ((_%loop103942104005%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd103666103735%_ _%arg103672103738%_) - (if (gx#stx-pair? _%hd103666103735%_) - (let ((_%e103669103741%_ - (gx#syntax-e _%hd103666103735%_))) - (let ((_%lp-hd103670103745%_ + (lambda (_%hd103940104009%_ _%arg103946104012%_) + (if (gx#stx-pair? _%hd103940104009%_) + (let ((_%e103943104015%_ + (gx#syntax-e _%hd103940104009%_))) + (let ((_%lp-hd103944104019%_ (let () (declare (not safe)) - (##car _%e103669103741%_))) - (_%lp-tl103671103748%_ + (##car _%e103943104015%_))) + (_%lp-tl103945104022%_ (let () (declare (not safe)) - (##cdr _%e103669103741%_)))) - (_%loop103668103731%_ - _%lp-tl103671103748%_ - (cons _%lp-hd103670103745%_ - _%arg103672103738%_)))) - (let ((_%arg103673103751%_ - (reverse _%arg103672103738%_))) - (if (gx#stx-pair? _%tl103661103712%_) - (let ((_%e103674103755%_ - (gx#syntax-e _%tl103661103712%_))) - (let ((_%hd103675103759%_ + (##cdr _%e103943104015%_)))) + (_%loop103942104005%_ + _%lp-tl103945104022%_ + (cons _%lp-hd103944104019%_ + _%arg103946104012%_)))) + (let ((_%arg103947104025%_ + (reverse _%arg103946104012%_))) + (if (gx#stx-pair? _%tl103935103986%_) + (let ((_%e103948104029%_ + (gx#syntax-e _%tl103935103986%_))) + (let ((_%hd103949104033%_ (let () (declare (not safe)) - (##car _%e103674103755%_))) - (_%tl103676103762%_ + (##car _%e103948104029%_))) + (_%tl103950104036%_ (let () (declare (not safe)) - (##cdr _%e103674103755%_)))) - (if (gx#stx-pair? _%tl103676103762%_) - (let ((_%e103677103765%_ + (##cdr _%e103948104029%_)))) + (if (gx#stx-pair? _%tl103950104036%_) + (let ((_%e103951104039%_ (gx#syntax-e - _%tl103676103762%_))) - (let ((_%hd103678103769%_ + _%tl103950104036%_))) + (let ((_%hd103952104043%_ (let () (declare (not safe)) - (##car _%e103677103765%_))) - (_%tl103679103772%_ + (##car _%e103951104039%_))) + (_%tl103953104046%_ (let () (declare (not safe)) - (##cdr _%e103677103765%_)))) + (##cdr _%e103951104039%_)))) (if (gx#stx-pair? - _%tl103679103772%_) - (let ((_%e103680103775%_ + _%tl103953104046%_) + (let ((_%e103954104049%_ (gx#syntax-e - _%tl103679103772%_))) - (let ((_%hd103681103779%_ + _%tl103953104046%_))) + (let ((_%hd103955104053%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e103680103775%_))) - (_%tl103682103782%_ + (##car _%e103954104049%_))) + (_%tl103956104056%_ (let () (declare (not safe)) - (##cdr _%e103680103775%_)))) - (if (gx#stx-null? _%tl103682103782%_) - ((lambda (_%L103785%_ - _%L103787%_ - _%L103788%_ - _%L103789%_ - _%L103790%_) + (##cdr _%e103954104049%_)))) + (if (gx#stx-null? _%tl103956104056%_) + ((lambda (_%L104059%_ + _%L104061%_ + _%L104062%_ + _%L104063%_ + _%L104064%_) (cons (gx#datum->syntax '#f 'defmethod) (cons (cons (gx#datum->syntax '#f '@method) - (cons _%L103790%_ + (cons _%L104064%_ (cons (gx#datum->syntax '#f 'locked-hash-table) @@ -1197,12 +1197,12 @@ (cons (cons (gx#datum->syntax '#f 'self) - (let ((__tmp108731 + (let ((__tmp109005 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g103821103824%_ _%g103822103827%_) - (cons _%g103821103824%_ _%g103822103827%_)))) + (lambda (_%g104095104098%_ _%g104096104101%_) + (cons _%g104095104098%_ _%g104096104101%_)))) (declare (not safe)) - (__foldr1 __tmp108731 '() _%L103789%_))) + (__foldr1 __tmp109005 '() _%L104063%_))) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (cons (gx#datum->syntax '#f 'h) (cons (cons (gx#datum->syntax @@ -1231,7 +1231,7 @@ (cons (cons (gx#datum->syntax '#f 'cut) - (cons _%L103788%_ + (cons _%L104062%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1241,18 +1241,18 @@ (cons (cons (gx#datum->syntax '#f 'cut) - (cons _%L103787%_ + (cons _%L104061%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'h) - (let ((__tmp108732 - (lambda (_%g103819103830%_ - _%g103820103833%_) - (cons _%g103819103830%_ - _%g103820103833%_)))) + (let ((__tmp109006 + (lambda (_%g104093104104%_ + _%g104094104107%_) + (cons _%g104093104104%_ + _%g104094104107%_)))) (declare (not safe)) - (__foldr1 __tmp108732 '() _%L103789%_))))) + (__foldr1 __tmp109006 '() _%L104063%_))))) (cons (cons (gx#datum->syntax '#f 'cut) - (cons _%L103785%_ + (cons _%L104059%_ (cons (gx#datum->syntax '#f 'l) '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1260,175 +1260,175 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd103681103779%_ - _%hd103678103769%_ - _%hd103675103759%_ - _%arg103673103751%_ - _%hd103663103719%_) - (_%g103649103688%_ _%g103650103692%_)))) - (_%g103649103688%_ _%g103650103692%_)))) + _%hd103955104053%_ + _%hd103952104043%_ + _%hd103949104033%_ + _%arg103947104025%_ + _%hd103937103993%_) + (_%g103923103962%_ _%g103924103966%_)))) + (_%g103923103962%_ _%g103924103966%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g103649103688%_ - _%g103650103692%_)))) - (_%g103649103688%_ - _%g103650103692%_))))))) - (_%loop103668103731%_ _%target103665103725%_ '())) - (_%g103649103688%_ _%g103650103692%_))))) + (_%g103923103962%_ + _%g103924103966%_)))) + (_%g103923103962%_ + _%g103924103966%_))))))) + (_%loop103942104005%_ _%target103939103999%_ '())) + (_%g103923103962%_ _%g103924103966%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g103649103688%_ - _%g103650103692%_)))) - (_%g103649103688%_ _%g103650103692%_)))) - (_%g103649103688%_ _%g103650103692%_)))) - (_%g103649103688%_ _%g103650103692%_))))) - (_%g103648103836%_ _%$stx103645%_)))) + (_%g103923103962%_ + _%g103924103966%_)))) + (_%g103923103962%_ _%g103924103966%_)))) + (_%g103923103962%_ _%g103924103966%_)))) + (_%g103923103962%_ _%g103924103966%_))))) + (_%g103922104110%_ _%$stx103919%_)))) (define |[:0:]#defchecked-hash-method| - (lambda (_%$stx103865%_) - (let* ((_%g103869103908%_ - (lambda (_%g103870103904%_) + (lambda (_%$stx104139%_) + (let* ((_%g104143104182%_ + (lambda (_%g104144104178%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g103870103904%_))) - (_%g103868104071%_ - (lambda (_%g103870103912%_) - (if (gx#stx-pair? _%g103870103912%_) - (let ((_%e103876103915%_ - (gx#syntax-e _%g103870103912%_))) - (let ((_%hd103877103919%_ + _%g104144104178%_))) + (_%g104142104345%_ + (lambda (_%g104144104186%_) + (if (gx#stx-pair? _%g104144104186%_) + (let ((_%e104150104189%_ + (gx#syntax-e _%g104144104186%_))) + (let ((_%hd104151104193%_ (let () (declare (not safe)) - (##car _%e103876103915%_))) - (_%tl103878103922%_ + (##car _%e104150104189%_))) + (_%tl104152104196%_ (let () (declare (not safe)) - (##cdr _%e103876103915%_)))) - (if (gx#stx-pair? _%tl103878103922%_) - (let ((_%e103879103925%_ - (gx#syntax-e _%tl103878103922%_))) - (let ((_%hd103880103929%_ + (##cdr _%e104150104189%_)))) + (if (gx#stx-pair? _%tl104152104196%_) + (let ((_%e104153104199%_ + (gx#syntax-e _%tl104152104196%_))) + (let ((_%hd104154104203%_ (let () (declare (not safe)) - (##car _%e103879103925%_))) - (_%tl103881103932%_ + (##car _%e104153104199%_))) + (_%tl104155104206%_ (let () (declare (not safe)) - (##cdr _%e103879103925%_)))) - (if (gx#stx-pair? _%hd103880103929%_) - (let ((_%e103882103935%_ - (gx#syntax-e _%hd103880103929%_))) - (let ((_%hd103883103939%_ + (##cdr _%e104153104199%_)))) + (if (gx#stx-pair? _%hd104154104203%_) + (let ((_%e104156104209%_ + (gx#syntax-e _%hd104154104203%_))) + (let ((_%hd104157104213%_ (let () (declare (not safe)) - (##car _%e103882103935%_))) - (_%tl103884103942%_ + (##car _%e104156104209%_))) + (_%tl104158104216%_ (let () (declare (not safe)) - (##cdr _%e103882103935%_)))) - (if (gx#stx-pair? _%tl103884103942%_) - (let ((_%e103885103945%_ + (##cdr _%e104156104209%_)))) + (if (gx#stx-pair? _%tl104158104216%_) + (let ((_%e104159104219%_ (gx#syntax-e - _%tl103884103942%_))) - (let ((_%hd103886103949%_ + _%tl104158104216%_))) + (let ((_%hd104160104223%_ (let () (declare (not safe)) - (##car _%e103885103945%_))) - (_%tl103887103952%_ + (##car _%e104159104219%_))) + (_%tl104161104226%_ (let () (declare (not safe)) - (##cdr _%e103885103945%_)))) + (##cdr _%e104159104219%_)))) (if (gx#stx-pair/null? - _%tl103887103952%_) - (let ((_g108733_ + _%tl104161104226%_) + (let ((_g109007_ (gx#syntax-split-splice - _%tl103887103952%_ + _%tl104161104226%_ '0))) (begin - (let ((_g108734_ + (let ((_g109008_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g108733_) - (##vector-length _g108733_) + (if (##values? _g109007_) + (##vector-length _g109007_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g108734_ 2))) - (error "Context expects 2 values" _g108734_))) - (let ((_%target103888103955%_ + (if (not (let () (declare (not safe)) (##fx= _g109008_ 2))) + (error "Context expects 2 values" _g109008_))) + (let ((_%target104162104229%_ (let () (declare (not safe)) - (##vector-ref _g108733_ 0))) - (_%tl103890103958%_ + (##vector-ref _g109007_ 0))) + (_%tl104164104232%_ (let () (declare (not safe)) - (##vector-ref _g108733_ 1)))) - (if (gx#stx-null? _%tl103890103958%_) - (letrec ((_%loop103891103961%_ - (lambda (_%hd103889103965%_ - _%arg103895103968%_) - (if (gx#stx-pair? _%hd103889103965%_) - (let ((_%e103892103971%_ + (##vector-ref _g109007_ 1)))) + (if (gx#stx-null? _%tl104164104232%_) + (letrec ((_%loop104165104235%_ + (lambda (_%hd104163104239%_ + _%arg104169104242%_) + (if (gx#stx-pair? _%hd104163104239%_) + (let ((_%e104166104245%_ (gx#syntax-e - _%hd103889103965%_))) - (let ((_%lp-hd103893103975%_ + _%hd104163104239%_))) + (let ((_%lp-hd104167104249%_ (let () (declare (not safe)) - (##car _%e103892103971%_))) - (_%lp-tl103894103978%_ + (##car _%e104166104245%_))) + (_%lp-tl104168104252%_ (let () (declare (not safe)) - (##cdr _%e103892103971%_)))) - (_%loop103891103961%_ - _%lp-tl103894103978%_ - (cons _%lp-hd103893103975%_ - _%arg103895103968%_)))) - (let ((_%arg103896103981%_ - (reverse _%arg103895103968%_))) - (if (gx#stx-pair? _%tl103881103932%_) - (let ((_%e103897103985%_ + (##cdr _%e104166104245%_)))) + (_%loop104165104235%_ + _%lp-tl104168104252%_ + (cons _%lp-hd104167104249%_ + _%arg104169104242%_)))) + (let ((_%arg104170104255%_ + (reverse _%arg104169104242%_))) + (if (gx#stx-pair? _%tl104155104206%_) + (let ((_%e104171104259%_ (gx#syntax-e - _%tl103881103932%_))) - (let ((_%hd103898103989%_ + _%tl104155104206%_))) + (let ((_%hd104172104263%_ (let () (declare (not safe)) - (##car _%e103897103985%_))) - (_%tl103899103992%_ + (##car _%e104171104259%_))) + (_%tl104173104266%_ (let () (declare (not safe)) - (##cdr _%e103897103985%_)))) + (##cdr _%e104171104259%_)))) (if (gx#stx-pair? - _%tl103899103992%_) - (let ((_%e103900103995%_ + _%tl104173104266%_) + (let ((_%e104174104269%_ (gx#syntax-e - _%tl103899103992%_))) - (let ((_%hd103901103999%_ + _%tl104173104266%_))) + (let ((_%hd104175104273%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e103900103995%_))) - (_%tl103902104002%_ + (##car _%e104174104269%_))) + (_%tl104176104276%_ (let () (declare (not safe)) - (##cdr _%e103900103995%_)))) - (if (gx#stx-null? _%tl103902104002%_) - ((lambda (_%L104005%_ - _%L104007%_ - _%L104008%_ - _%L104009%_ - _%L104010%_) + (##cdr _%e104174104269%_)))) + (if (gx#stx-null? _%tl104176104276%_) + ((lambda (_%L104279%_ + _%L104281%_ + _%L104282%_ + _%L104283%_ + _%L104284%_) (cons (gx#datum->syntax '#f 'defmethod) (cons (cons (gx#datum->syntax '#f '@method) - (cons _%L104010%_ + (cons _%L104284%_ (cons (gx#datum->syntax '#f 'checked-hash-table) '()))) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L104009%_ - (let ((__tmp108735 + (cons (cons _%L104283%_ + (let ((__tmp109009 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g104044104047%_ _%g104045104050%_) - (cons _%g104044104047%_ _%g104045104050%_)))) + (lambda (_%g104318104321%_ _%g104319104324%_) + (cons _%g104318104321%_ _%g104319104324%_)))) (declare (not safe)) - (__foldr1 __tmp108735 '() _%L104008%_))) + (__foldr1 __tmp109009 '() _%L104282%_))) (cons (cons (gx#datum->syntax '#f 'declare) (cons (cons (gx#datum->syntax '#f 'not) (cons (gx#datum->syntax '#f 'safe) '())) @@ -1438,7 +1438,7 @@ (cons (cons (gx#datum->syntax '#f '&checked-hash-table-table) - (cons _%L104009%_ + (cons _%L104283%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) @@ -1450,32 +1450,32 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '&checked-hash-table-key-check) - (cons _%L104009%_ '())) + (cons _%L104283%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L104007%_ + (cons (cons _%L104281%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'key?) - (let ((__tmp108736 - (lambda (_%g104042104053%_ - _%g104043104056%_) - (cons _%g104042104053%_ - _%g104043104056%_)))) + (let ((__tmp109010 + (lambda (_%g104316104327%_ + _%g104317104330%_) + (cons _%g104316104327%_ + _%g104317104330%_)))) (declare (not safe)) - (__foldr1 __tmp108736 '() _%L104008%_)))) - (cons (cons _%L104005%_ + (__foldr1 __tmp109010 '() _%L104282%_)))) + (cons (cons _%L104279%_ (cons (gx#datum->syntax '#f 'h) - (let ((__tmp108737 - (lambda (_%g104040104059%_ - _%g104041104062%_) - (cons _%g104040104059%_ - _%g104041104062%_)))) + (let ((__tmp109011 + (lambda (_%g104314104333%_ + _%g104315104336%_) + (cons _%g104314104333%_ + _%g104315104336%_)))) (declare (not safe)) - (__foldr1 __tmp108737 '() _%L104008%_)))) + (__foldr1 __tmp109011 '() _%L104282%_)))) (cons (cons (gx#datum->syntax '#f 'abort!) (cons (cons (gx#datum->syntax '#f @@ -1486,19 +1486,19 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L104005%_ '())) + (cons _%L104279%_ '())) (cons 'value: (cons (cons (gx#datum->syntax '#f '@list) - (let ((__tmp108738 - (lambda (_%g104038104065%_ - _%g104039104068%_) - (cons _%g104038104065%_ - _%g104039104068%_)))) + (let ((__tmp109012 + (lambda (_%g104312104339%_ + _%g104313104342%_) + (cons _%g104312104339%_ + _%g104313104342%_)))) (declare (not safe)) (__foldr1 - __tmp108738 + __tmp109012 '() - _%L104008%_))) + _%L104282%_))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -1508,158 +1508,158 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd103901103999%_ - _%hd103898103989%_ - _%arg103896103981%_ - _%hd103886103949%_ - _%hd103883103939%_) - (_%g103869103908%_ _%g103870103912%_)))) - (_%g103869103908%_ _%g103870103912%_)))) + _%hd104175104273%_ + _%hd104172104263%_ + _%arg104170104255%_ + _%hd104160104223%_ + _%hd104157104213%_) + (_%g104143104182%_ _%g104144104186%_)))) + (_%g104143104182%_ _%g104144104186%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g103869103908%_ - _%g103870103912%_))))))) - (_%loop103891103961%_ _%target103888103955%_ '())) - (_%g103869103908%_ _%g103870103912%_))))) - (_%g103869103908%_ _%g103870103912%_)))) + (_%g104143104182%_ + _%g104144104186%_))))))) + (_%loop104165104235%_ _%target104162104229%_ '())) + (_%g104143104182%_ _%g104144104186%_))))) + (_%g104143104182%_ _%g104144104186%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g103869103908%_ - _%g103870103912%_)))) - (_%g103869103908%_ _%g103870103912%_)))) - (_%g103869103908%_ _%g103870103912%_)))) - (_%g103869103908%_ _%g103870103912%_))))) - (_%g103868104071%_ _%$stx103865%_)))) + (_%g104143104182%_ + _%g104144104186%_)))) + (_%g104143104182%_ _%g104144104186%_)))) + (_%g104143104182%_ _%g104144104186%_)))) + (_%g104143104182%_ _%g104144104186%_))))) + (_%g104142104345%_ _%$stx104139%_)))) (define |[:0:]#defhash-method| - (lambda (_%$stx104100%_) - (let* ((_%g104104104136%_ - (lambda (_%g104105104132%_) + (lambda (_%$stx104374%_) + (let* ((_%g104378104410%_ + (lambda (_%g104379104406%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g104105104132%_))) - (_%g104103104249%_ - (lambda (_%g104105104140%_) - (if (gx#stx-pair? _%g104105104140%_) - (let ((_%e104110104143%_ - (gx#syntax-e _%g104105104140%_))) - (let ((_%hd104111104147%_ + _%g104379104406%_))) + (_%g104377104523%_ + (lambda (_%g104379104414%_) + (if (gx#stx-pair? _%g104379104414%_) + (let ((_%e104384104417%_ + (gx#syntax-e _%g104379104414%_))) + (let ((_%hd104385104421%_ (let () (declare (not safe)) - (##car _%e104110104143%_))) - (_%tl104112104150%_ + (##car _%e104384104417%_))) + (_%tl104386104424%_ (let () (declare (not safe)) - (##cdr _%e104110104143%_)))) - (if (gx#stx-pair? _%tl104112104150%_) - (let ((_%e104113104153%_ - (gx#syntax-e _%tl104112104150%_))) - (let ((_%hd104114104157%_ + (##cdr _%e104384104417%_)))) + (if (gx#stx-pair? _%tl104386104424%_) + (let ((_%e104387104427%_ + (gx#syntax-e _%tl104386104424%_))) + (let ((_%hd104388104431%_ (let () (declare (not safe)) - (##car _%e104113104153%_))) - (_%tl104115104160%_ + (##car _%e104387104427%_))) + (_%tl104389104434%_ (let () (declare (not safe)) - (##cdr _%e104113104153%_)))) - (if (gx#stx-pair? _%hd104114104157%_) - (let ((_%e104116104163%_ - (gx#syntax-e _%hd104114104157%_))) - (let ((_%hd104117104167%_ + (##cdr _%e104387104427%_)))) + (if (gx#stx-pair? _%hd104388104431%_) + (let ((_%e104390104437%_ + (gx#syntax-e _%hd104388104431%_))) + (let ((_%hd104391104441%_ (let () (declare (not safe)) - (##car _%e104116104163%_))) - (_%tl104118104170%_ + (##car _%e104390104437%_))) + (_%tl104392104444%_ (let () (declare (not safe)) - (##cdr _%e104116104163%_)))) - (if (gx#stx-pair? _%tl104118104170%_) - (let ((_%e104119104173%_ + (##cdr _%e104390104437%_)))) + (if (gx#stx-pair? _%tl104392104444%_) + (let ((_%e104393104447%_ (gx#syntax-e - _%tl104118104170%_))) - (let ((_%hd104120104177%_ + _%tl104392104444%_))) + (let ((_%hd104394104451%_ (let () (declare (not safe)) - (##car _%e104119104173%_))) - (_%tl104121104180%_ + (##car _%e104393104447%_))) + (_%tl104395104454%_ (let () (declare (not safe)) - (##cdr _%e104119104173%_)))) + (##cdr _%e104393104447%_)))) (if (gx#stx-pair/null? - _%tl104115104160%_) - (let ((_g108739_ + _%tl104389104434%_) + (let ((_g109013_ (gx#syntax-split-splice - _%tl104115104160%_ + _%tl104389104434%_ '0))) (begin - (let ((_g108740_ + (let ((_g109014_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g108739_) - (##vector-length _g108739_) + (if (##values? _g109013_) + (##vector-length _g109013_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g108740_ 2))) - (error "Context expects 2 values" _g108740_))) - (let ((_%target104122104183%_ + (if (not (let () (declare (not safe)) (##fx= _g109014_ 2))) + (error "Context expects 2 values" _g109014_))) + (let ((_%target104396104457%_ (let () (declare (not safe)) - (##vector-ref _g108739_ 0))) - (_%tl104124104186%_ + (##vector-ref _g109013_ 0))) + (_%tl104398104460%_ (let () (declare (not safe)) - (##vector-ref _g108739_ 1)))) - (if (gx#stx-null? _%tl104124104186%_) - (letrec ((_%loop104125104189%_ - (lambda (_%hd104123104193%_ - _%body104129104196%_) - (if (gx#stx-pair? _%hd104123104193%_) - (let ((_%e104126104199%_ + (##vector-ref _g109013_ 1)))) + (if (gx#stx-null? _%tl104398104460%_) + (letrec ((_%loop104399104463%_ + (lambda (_%hd104397104467%_ + _%body104403104470%_) + (if (gx#stx-pair? _%hd104397104467%_) + (let ((_%e104400104473%_ (gx#syntax-e - _%hd104123104193%_))) - (let ((_%lp-hd104127104203%_ + _%hd104397104467%_))) + (let ((_%lp-hd104401104477%_ (let () (declare (not safe)) - (##car _%e104126104199%_))) - (_%lp-tl104128104206%_ + (##car _%e104400104473%_))) + (_%lp-tl104402104480%_ (let () (declare (not safe)) - (##cdr _%e104126104199%_)))) - (_%loop104125104189%_ - _%lp-tl104128104206%_ - (cons _%lp-hd104127104203%_ - _%body104129104196%_)))) - (let ((_%body104130104209%_ - (reverse _%body104129104196%_))) - ((lambda (_%L104213%_ - _%L104215%_ - _%L104216%_ - _%L104217%_) + (##cdr _%e104400104473%_)))) + (_%loop104399104463%_ + _%lp-tl104402104480%_ + (cons _%lp-hd104401104477%_ + _%body104403104470%_)))) + (let ((_%body104404104483%_ + (reverse _%body104403104470%_))) + ((lambda (_%L104487%_ + _%L104489%_ + _%L104490%_ + _%L104491%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L104217%_ - (cons (cons _%L104216%_ + (cons (cons _%L104491%_ + (cons (cons _%L104490%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f ':) (cons (gx#datum->syntax '#f 'HashTable) '()))) - _%L104215%_)) - (let ((__tmp108741 - (lambda (_%g104240104243%_ _%g104241104246%_) - (cons _%g104240104243%_ _%g104241104246%_)))) + _%L104489%_)) + (let ((__tmp109015 + (lambda (_%g104514104517%_ _%g104515104520%_) + (cons _%g104514104517%_ _%g104515104520%_)))) (declare (not safe)) - (__foldr1 __tmp108741 '() _%L104213%_))))) + (__foldr1 __tmp109015 '() _%L104487%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body104130104209%_ - _%tl104121104180%_ - _%hd104120104177%_ - _%hd104117104167%_)))))) - (_%loop104125104189%_ _%target104122104183%_ '())) - (_%g104104104136%_ _%g104105104140%_))))) - (_%g104104104136%_ _%g104105104140%_)))) + _%body104404104483%_ + _%tl104395104454%_ + _%hd104394104451%_ + _%hd104391104441%_)))))) + (_%loop104399104463%_ _%target104396104457%_ '())) + (_%g104378104410%_ _%g104379104414%_))))) + (_%g104378104410%_ _%g104379104414%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g104104104136%_ - _%g104105104140%_)))) - (_%g104104104136%_ _%g104105104140%_)))) - (_%g104104104136%_ _%g104105104140%_)))) - (_%g104104104136%_ _%g104105104140%_))))) - (_%g104103104249%_ _%$stx104100%_)))))) + (_%g104378104410%_ + _%g104379104414%_)))) + (_%g104378104410%_ _%g104379104414%_)))) + (_%g104378104410%_ _%g104379104414%_)))) + (_%g104378104410%_ _%g104379104414%_))))) + (_%g104377104523%_ _%$stx104374%_)))))) diff --git a/src/bootstrap/gerbil/runtime/init~0.scm b/src/bootstrap/gerbil/runtime/init~0.scm index f41e59249..b30c20e51 100644 --- a/src/bootstrap/gerbil/runtime/init~0.scm +++ b/src/bootstrap/gerbil/runtime/init~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/init::timestamp 1713044315) + (define gerbil/runtime/init::timestamp 1713454410) (begin (define __scheme-source (make-parameter '#f)) (define __load-gxi @@ -8,314 +8,314 @@ (let () (declare (not safe)) (__current-compiler __compile-top)) (let () (declare (not safe)) (__current-expander gx#core-expand)) (set! __eval-module gx#core-eval-module) - (letrec* ((_%+readtable+113903%_ __*readtable*)) - (let* ((_%core113905%_ (gx#import-module ':gerbil/core)) - (_%pre113907%_ (gx#make-prelude-context _%core113905%_))) - (gx#current-expander-module-prelude _%pre113907%_) - (gx#core-bind-root-syntax! ': _%pre113907%_ '#t) + (letrec* ((_%+readtable+114177%_ __*readtable*)) + (let* ((_%core114179%_ (gx#import-module ':gerbil/core)) + (_%pre114181%_ (gx#make-prelude-context _%core114179%_))) + (gx#current-expander-module-prelude _%pre114181%_) + (gx#core-bind-root-syntax! ': _%pre114181%_ '#t) (gx#eval-syntax '(import :gerbil/core))) (gx#current-expander-compile __compile-top-source) (let () (declare (not safe)) (##expand-source-set! __expand-source)) (let () (declare (not safe)) (##macro-descr-set! __macro-descr)) (let () (declare (not safe)) (##main-readtable-set! __*readtable*)) - (let ((__tmp113914 - (lambda (_%port113910%_) + (let ((__tmp114188 + (lambda (_%port114184%_) (input-port-readtable-set! - _%port113910%_ - _%+readtable+113903%_))) - (__tmp113913 (list ##stdin-port ##console-port))) + _%port114184%_ + _%+readtable+114177%_))) + (__tmp114187 (list ##stdin-port ##console-port))) (declare (not safe)) - (##for-each __tmp113914 __tmp113913)) - (let ((__tmp113916 - (lambda (_%port113912%_) + (##for-each __tmp114188 __tmp114187)) + (let ((__tmp114190 + (lambda (_%port114186%_) (output-port-readtable-set! - _%port113912%_ + _%port114186%_ (readtable-sharing-allowed?-set - (output-port-readtable _%port113912%_) + (output-port-readtable _%port114186%_) '#t)))) - (__tmp113915 (list ##stdout-port ##console-port))) + (__tmp114189 (list ##stdout-port ##console-port))) (declare (not safe)) - (##for-each __tmp113916 __tmp113915))))) - (define __gxi-init-interactive! (lambda (_%cmdline113900%_) '#!void)) + (##for-each __tmp114190 __tmp114189))))) + (define __gxi-init-interactive! (lambda (_%cmdline114174%_) '#!void)) (define load-scheme - (lambda (_%path113895%_) - (let ((__tmp113917 + (lambda (_%path114169%_) + (let ((__tmp114191 (lambda () - (let ((__tmp113918 (lambda _%args113898%_ '#f))) + (let ((__tmp114192 (lambda _%args114172%_ '#f))) (declare (not safe)) - (##load _%path113895%_ __tmp113918 '#t '#t '#f))))) + (##load _%path114169%_ __tmp114192 '#t '#t '#f))))) (declare (not safe)) (__call-with-parameters - __tmp113917 + __tmp114191 __scheme-source - _%path113895%_)))) + _%path114169%_)))) (define __expand-source - (lambda (_%src113877%_) - (letrec ((_%expand113879%_ - (lambda (_%src113893%_) + (lambda (_%src114151%_) + (letrec ((_%expand114153%_ + (lambda (_%src114167%_) (__compile-top - (gx#core-expand (__source->syntax _%src113893%_))))) - (_%no-expand113880%_ - (lambda (_%src113886%_) + (gx#core-expand (__source->syntax _%src114167%_))))) + (_%no-expand114154%_ + (lambda (_%src114160%_) (if (let () (declare (not safe)) (__scheme-source)) - _%src113886%_ + _%src114160%_ (if (let () (declare (not safe)) - (##source? _%src113886%_)) - (let ((_%code113890%_ + (##source? _%src114160%_)) + (let ((_%code114164%_ (let () (declare (not safe)) - (##source-code _%src113886%_)))) - (if (pair? _%code113890%_) + (##source-code _%src114160%_)))) + (if (pair? _%code114164%_) (if (eq? '__noexpand: (let () (declare (not safe)) - (##car _%code113890%_))) + (##car _%code114164%_))) (let () (declare (not safe)) - (##cdr _%code113890%_)) + (##cdr _%code114164%_)) '#f) '#f)) '#f))))) - (let ((_%$e113882%_ (_%no-expand113880%_ _%src113877%_))) - (if _%$e113882%_ _%$e113882%_ (_%expand113879%_ _%src113877%_)))))) + (let ((_%$e114156%_ (_%no-expand114154%_ _%src114151%_))) + (if _%$e114156%_ _%$e114156%_ (_%expand114153%_ _%src114151%_)))))) (define __macro-descr - (lambda (_%src113863%_ _%def-syntax?113864%_) - (letrec ((_%fail!113866%_ + (lambda (_%src114137%_ _%def-syntax?114138%_) + (letrec ((_%fail!114140%_ (lambda () (let () (declare (not safe)) (##raise-expression-parsing-exception 'ill-formed-macro-transformer - _%src113863%_)))) - (_%make-descr113867%_ - (lambda (_%size113871%_) - (let ((_%expander113874%_ - (let ((__tmp113919 + _%src114137%_)))) + (_%make-descr114141%_ + (lambda (_%size114145%_) + (let ((_%expander114148%_ + (let ((__tmp114193 (lambda () (let () (declare (not safe)) (##eval-top - _%src113863%_ + _%src114137%_ ##interaction-cte))))) (declare (not safe)) (__call-with-parameters - __tmp113919 + __tmp114193 __scheme-source 'macro)))) - (if (procedure? _%expander113874%_) + (if (procedure? _%expander114148%_) (let () (declare (not safe)) (##make-macro-descr - _%def-syntax?113864%_ - _%size113871%_ - _%expander113874%_ - _%src113863%_)) - (_%fail!113866%_)))))) - (if _%def-syntax?113864%_ - (_%make-descr113867%_ '-1) - (let ((_%code113869%_ + _%def-syntax?114138%_ + _%size114145%_ + _%expander114148%_ + _%src114137%_)) + (_%fail!114140%_)))))) + (if _%def-syntax?114138%_ + (_%make-descr114141%_ '-1) + (let ((_%code114143%_ (let () (declare (not safe)) - (##source-code _%src113863%_)))) - (if (and (let () (declare (not safe)) (##pair? _%code113869%_)) - (let ((__tmp113920 - (let ((__tmp113921 - (let ((__tmp113922 + (##source-code _%src114137%_)))) + (if (and (let () (declare (not safe)) (##pair? _%code114143%_)) + (let ((__tmp114194 + (let ((__tmp114195 + (let ((__tmp114196 (let () (declare (not safe)) - (##car _%code113869%_)))) + (##car _%code114143%_)))) (declare (not safe)) (##sourcify - __tmp113922 - _%src113863%_)))) + __tmp114196 + _%src114137%_)))) (declare (not safe)) - (##source-code __tmp113921)))) + (##source-code __tmp114195)))) (declare (not safe)) - (##memq __tmp113920 '(##lambda lambda)))) + (##memq __tmp114194 '(##lambda lambda)))) (begin (let () (declare (not safe)) - (##shape _%src113863%_ _%src113863%_ '-3)) - (_%make-descr113867%_ - (let ((__tmp113923 - (let ((__tmp113924 + (##shape _%src114137%_ _%src114137%_ '-3)) + (_%make-descr114141%_ + (let ((__tmp114197 + (let ((__tmp114198 (let () (declare (not safe)) - (##cadr _%code113869%_)))) + (##cadr _%code114143%_)))) (declare (not safe)) - (##sourcify __tmp113924 _%src113863%_)))) + (##sourcify __tmp114198 _%src114137%_)))) (declare (not safe)) - (##form-size __tmp113923)))) - (_%fail!113866%_))))))) + (##form-size __tmp114197)))) + (_%fail!114140%_))))))) (define __source->syntax - (lambda (_%src113852%_) - (let _%recur113854%_ ((_%e113856%_ _%src113852%_)) - (if (let () (declare (not safe)) (##source? _%e113856%_)) - (let ((__tmp113926 - (_%recur113854%_ + (lambda (_%src114126%_) + (let _%recur114128%_ ((_%e114130%_ _%src114126%_)) + (if (let () (declare (not safe)) (##source? _%e114130%_)) + (let ((__tmp114200 + (_%recur114128%_ (let () (declare (not safe)) - (##source-code _%e113856%_)))) - (__tmp113925 + (##source-code _%e114130%_)))) + (__tmp114199 (let () (declare (not safe)) - (##source-locat _%e113856%_)))) + (##source-locat _%e114130%_)))) (declare (not safe)) - (##structure AST::t __tmp113926 __tmp113925)) - (if (pair? _%e113856%_) - (cons (_%recur113854%_ - (let () (declare (not safe)) (##car _%e113856%_))) - (_%recur113854%_ - (let () (declare (not safe)) (##cdr _%e113856%_)))) - (if (vector? _%e113856%_) - (vector-map _%recur113854%_ _%e113856%_) - (if (box? _%e113856%_) - (box (_%recur113854%_ (unbox _%e113856%_))) - _%e113856%_))))))) + (##structure AST::t __tmp114200 __tmp114199)) + (if (pair? _%e114130%_) + (cons (_%recur114128%_ + (let () (declare (not safe)) (##car _%e114130%_))) + (_%recur114128%_ + (let () (declare (not safe)) (##cdr _%e114130%_)))) + (if (vector? _%e114130%_) + (vector-map _%recur114128%_ _%e114130%_) + (if (box? _%e114130%_) + (box (_%recur114128%_ (unbox _%e114130%_))) + _%e114130%_))))))) (define __compile-top-source - (lambda (_%stx113850%_) - (cons '__noexpand: (__compile-top _%stx113850%_)))) + (lambda (_%stx114124%_) + (cons '__noexpand: (__compile-top _%stx114124%_)))) (define __compile-top - (lambda (_%stx113848%_) - (let ((__tmp113927 (gx#core-compile-top-syntax _%stx113848%_))) + (lambda (_%stx114122%_) + (let ((__tmp114201 (gx#core-compile-top-syntax _%stx114122%_))) (declare (not safe)) - (__compile __tmp113927)))) + (__compile __tmp114201)))) (define __modstate (let () (declare (not safe)) (make-hash-table-eq))) (define __modstate-mx (make-mutex 'import)) (define __modstate-cv (make-condition-variable 'import)) (define __eval-import - (lambda (_%in113810%_) - (letrec ((_%import1113812%_ - (lambda (_%in113833%_ _%phi113834%_) - (if (gx#module-import? _%in113833%_) - (let ((_%iphi113837%_ - (fx+ _%phi113834%_ - (gx#module-import-phi _%in113833%_)))) + (lambda (_%in114084%_) + (letrec ((_%import1114086%_ + (lambda (_%in114107%_ _%phi114108%_) + (if (gx#module-import? _%in114107%_) + (let ((_%iphi114111%_ + (fx+ _%phi114108%_ + (gx#module-import-phi _%in114107%_)))) (if (let () (declare (not safe)) - (##fxzero? _%iphi113837%_)) - (_%eval1113813%_ + (##fxzero? _%iphi114111%_)) + (_%eval1114087%_ (gx#module-export-context - (gx#module-import-source _%in113833%_))) + (gx#module-import-source _%in114107%_))) '#!void)) - (if (gx#module-context? _%in113833%_) - (if (fxzero? _%phi113834%_) - (_%eval1113813%_ _%in113833%_) + (if (gx#module-context? _%in114107%_) + (if (fxzero? _%phi114108%_) + (_%eval1114087%_ _%in114107%_) '#!void) - (if (gx#import-set? _%in113833%_) - (let ((_%iphi113841%_ - (fx+ _%phi113834%_ - (gx#import-set-phi _%in113833%_)))) + (if (gx#import-set? _%in114107%_) + (let ((_%iphi114115%_ + (fx+ _%phi114108%_ + (gx#import-set-phi _%in114107%_)))) (if (let () (declare (not safe)) - (##fxzero? _%iphi113841%_)) - (_%eval1113813%_ - (gx#import-set-source _%in113833%_)) + (##fxzero? _%iphi114115%_)) + (_%eval1114087%_ + (gx#import-set-source _%in114107%_)) (if (let () (declare (not safe)) - (##fxpositive? _%iphi113841%_)) + (##fxpositive? _%iphi114115%_)) (for-each - (lambda (_%in113845%_) - (_%import1113812%_ - _%in113845%_ - _%iphi113841%_)) + (lambda (_%in114119%_) + (_%import1114086%_ + _%in114119%_ + _%iphi114115%_)) (gx#module-context-import (gx#import-set-source - _%in113833%_))) + _%in114107%_))) '#!void))) (let () (declare (not safe)) (error '"Unexpected import" - _%in113833%_))))))) - (_%eval1113813%_ - (lambda (_%ctx113817%_) + _%in114107%_))))))) + (_%eval1114087%_ + (lambda (_%ctx114091%_) (mutex-lock! __modstate-mx) - (let ((_%$e113819%_ + (let ((_%$e114093%_ (let () (declare (not safe)) - (__hash-get __modstate _%ctx113817%_)))) - (if _%$e113819%_ - ((lambda (_%state113822%_) - (let ((_%$e113824%_ (car _%state113822%_))) - (if (eq? 'forcing _%$e113824%_) + (__hash-get __modstate _%ctx114091%_)))) + (if _%$e114093%_ + ((lambda (_%state114096%_) + (let ((_%$e114098%_ (car _%state114096%_))) + (if (eq? 'forcing _%$e114098%_) (begin (mutex-unlock! __modstate-mx __modstate-cv) - (_%eval1113813%_ _%ctx113817%_)) - (if (eq? 'ready _%$e113824%_) + (_%eval1114087%_ _%ctx114091%_)) + (if (eq? 'ready _%$e114098%_) (begin (mutex-unlock! __modstate-mx) - (cadr _%state113822%_)) - (if (eq? 'error _%$e113824%_) + (cadr _%state114096%_)) + (if (eq? 'error _%$e114098%_) (begin (mutex-unlock! __modstate-mx) - (let ((__tmp113928 - (cadr _%state113822%_))) + (let ((__tmp114202 + (cadr _%state114096%_))) (declare (not safe)) - (raise __tmp113928))) + (raise __tmp114202))) (begin (mutex-unlock! __modstate-mx) (let () (declare (not safe)) (error '"internal error; unexpected module state" - _%state113822%_)))))))) - _%$e113819%_) + _%state114096%_)))))))) + _%$e114093%_) (let () (let () (declare (not safe)) (__hash-put! __modstate - _%ctx113817%_ + _%ctx114091%_ '(forcing))) (mutex-unlock! __modstate-mx) - (let ((__tmp113931 - (lambda (_%exn113828%_) + (let ((__tmp114205 + (lambda (_%exn114102%_) (mutex-lock! __modstate-mx) - (let ((__tmp113932 + (let ((__tmp114206 (cons 'error - (cons _%exn113828%_ '())))) + (cons _%exn114102%_ '())))) (declare (not safe)) (__hash-put! __modstate - _%ctx113817%_ - __tmp113932)) + _%ctx114091%_ + __tmp114206)) (condition-variable-broadcast! __modstate-cv) (mutex-unlock! __modstate-mx) (let () (declare (not safe)) - (raise _%exn113828%_)))) - (__tmp113929 + (raise _%exn114102%_)))) + (__tmp114203 (lambda () - (let ((_%result113831%_ - (__eval-module _%ctx113817%_))) + (let ((_%result114105%_ + (__eval-module _%ctx114091%_))) (mutex-lock! __modstate-mx) - (let ((__tmp113930 + (let ((__tmp114204 (cons 'ready - (cons _%result113831%_ + (cons _%result114105%_ '())))) (declare (not safe)) (__hash-put! __modstate - _%ctx113817%_ - __tmp113930)) + _%ctx114091%_ + __tmp114204)) (condition-variable-broadcast! __modstate-cv) (mutex-unlock! __modstate-mx) - _%result113831%_)))) + _%result114105%_)))) (declare (not safe)) - (__with-catch __tmp113931 __tmp113929)))))))) - (if (pair? _%in113810%_) - (let ((__tmp113933 - (lambda (_%in113815%_) - (_%import1113812%_ _%in113815%_ '0)))) + (__with-catch __tmp114205 __tmp114203)))))))) + (if (pair? _%in114084%_) + (let ((__tmp114207 + (lambda (_%in114089%_) + (_%import1114086%_ _%in114089%_ '0)))) (declare (not safe)) - (##for-each __tmp113933 _%in113810%_)) - (_%import1113812%_ _%in113810%_ '0))))) + (##for-each __tmp114207 _%in114084%_)) + (_%import1114086%_ _%in114084%_ '0))))) (define __eval-module - (lambda (_%obj113808%_) (gx#core-eval-module _%obj113808%_))) + (lambda (_%obj114082%_) (gx#core-eval-module _%obj114082%_))) (define __interrupt-handler (lambda () (if (let () (declare (not safe)) (##getenv '"GERBIL_DEBUG" '#f)) @@ -323,86 +323,86 @@ (newline (current-error-port)) (display '"--- continuation backtrace:" (current-error-port)) (newline (current-error-port)) - (let* ((_%stack-trace-head113804%_ - (let ((_%$e113801%_ + (let* ((_%stack-trace-head114078%_ + (let ((_%$e114075%_ (string->number (let () (declare (not safe)) (##getenv '"GERBIL_DEBUG_STACKTRACE" '"10"))))) - (if _%$e113801%_ _%$e113801%_ '10))) - (__tmp113934 - (lambda (_%cont113806%_) + (if _%$e114075%_ _%$e114075%_ '10))) + (__tmp114208 + (lambda (_%cont114080%_) (display-continuation-backtrace - _%cont113806%_ + _%cont114080%_ (current-error-port) '1 '1 '0 - _%stack-trace-head113804%_)))) + _%stack-trace-head114078%_)))) (declare (not safe)) - (##continuation-capture __tmp113934))) + (##continuation-capture __tmp114208))) '#!void) (let () (declare (not safe)) (##default-user-interrupt-handler)))) (define gerbil-runtime-init! - (lambda (_%builtin-modules113777%_) + (lambda (_%builtin-modules114051%_) (if __runtime-initialized '#!void (begin (let () (declare (not safe)) (dump-stack-trace? '#t)) - (let* ((_%home113779%_ + (let* ((_%home114053%_ (let () (declare (not safe)) (gerbil-home))) - (_%libdir113781%_ (path-expand '"lib" _%home113779%_)) - (_%userpath113783%_ + (_%libdir114055%_ (path-expand '"lib" _%home114053%_)) + (_%userpath114057%_ (path-expand '"lib" (let () (declare (not safe)) (gerbil-path)))) - (_%loadpath113785%_ + (_%loadpath114059%_ (if (let () (declare (not safe)) (##getenv '"GERBIL_BUILD_PREFIX" '#f)) - (cons _%libdir113781%_ '()) - (cons _%userpath113783%_ - (cons _%libdir113781%_ '())))) - (_%loadpath113795%_ - (let ((_%$e113787%_ + (cons _%libdir114055%_ '()) + (cons _%userpath114057%_ + (cons _%libdir114055%_ '())))) + (_%loadpath114069%_ + (let ((_%$e114061%_ (let () (declare (not safe)) (##getenv '"GERBIL_LOADPATH" '#f)))) - (if _%$e113787%_ - ((lambda (_%envvar113790%_) - (let ((__tmp113935 - (let ((__tmp113937 - (lambda (_%x113792%_) + (if _%$e114061%_ + ((lambda (_%envvar114064%_) + (let ((__tmp114209 + (let ((__tmp114211 + (lambda (_%x114066%_) (not (let () (declare (not safe)) (string-empty? - _%x113792%_))))) - (__tmp113936 + _%x114066%_))))) + (__tmp114210 (let () (declare (not safe)) (string-split - _%envvar113790%_ + _%envvar114064%_ '#\:)))) (declare (not safe)) - (##filter __tmp113937 __tmp113936)))) + (##filter __tmp114211 __tmp114210)))) (declare (not safe)) - (##append __tmp113935 _%loadpath113785%_))) - _%$e113787%_) - _%loadpath113785%_)))) + (##append __tmp114209 _%loadpath114059%_))) + _%$e114061%_) + _%loadpath114059%_)))) (declare (not safe)) - (__set-load-path! _%loadpath113795%_)) + (__set-load-path! _%loadpath114069%_)) (for-each - (lambda (_%mod113798%_) + (lambda (_%mod114072%_) (let () (declare (not safe)) - (__hash-put! __modules _%mod113798%_ 'builtin)) - (let ((__tmp113938 + (__hash-put! __modules _%mod114072%_ 'builtin)) + (let ((__tmp114212 (let () (declare (not safe)) - (##string-append _%mod113798%_ '"~0")))) + (##string-append _%mod114072%_ '"~0")))) (declare (not safe)) - (__hash-put! __modules __tmp113938 'builtin))) - _%builtin-modules113777%_) + (__hash-put! __modules __tmp114212 'builtin))) + _%builtin-modules114051%_) (current-user-interrupt-handler __interrupt-handler) (current-readtable __*readtable*) (random-source-randomize! default-random-source) diff --git a/src/bootstrap/gerbil/runtime/interface~0.scm b/src/bootstrap/gerbil/runtime/interface~0.scm index 5534f4583..6bf816455 100644 --- a/src/bootstrap/gerbil/runtime/interface~0.scm +++ b/src/bootstrap/gerbil/runtime/interface~0.scm @@ -1,22 +1,22 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/interface::timestamp 1713044315) + (define gerbil/runtime/interface::timestamp 1713454409) (begin (define CastError::t - (let ((__tmp103552 (list Error::t))) + (let ((__tmp103826 (list Error::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/interface#CastError::t 'CastError - __tmp103552 + __tmp103826 '() '() ':init!))) (define CastError? (let () (declare (not safe)) (__make-class-predicate CastError::t))) (define make-CastError - (lambda _%$args103545%_ - (apply make-instance CastError::t _%$args103545%_))) + (lambda _%$args103819%_ + (apply make-instance CastError::t _%$args103819%_))) (define CastError-message (let () (declare (not safe)) @@ -86,34 +86,34 @@ (declare (not safe)) (__bind-method!__% CastError::t ':init! CastError:::init! '#f)) (define raise-cast-error - (lambda (_%where103419%_ _%message103420%_ . _%irritants103421%_) - (let ((__tmp103553 - (let ((__obj103548 + (lambda (_%where103693%_ _%message103694%_ . _%irritants103695%_) + (let ((__tmp103827 + (let ((__obj103822 (let () (declare (not safe)) (##structure CastError::t '#f '#f '#f '#f)))) (let () (declare (not safe)) (CastError:::init! - __obj103548 - _%message103420%_ + __obj103822 + _%message103694%_ 'where: - _%where103419%_ + _%where103693%_ 'irritants: - _%irritants103421%_)) - __obj103548))) + _%irritants103695%_)) + __obj103822))) (declare (not safe)) - (raise __tmp103553)))) + (raise __tmp103827)))) (define interface-cast-error? CastError?) (define interface-instance::t - (let ((__tmp103555 (list)) (__tmp103554 (cons (cons 'struct: '#t) '()))) + (let ((__tmp103829 (list)) (__tmp103828 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#interface-instance::t 'interface-instance - __tmp103555 + __tmp103829 '(__object) - __tmp103554 + __tmp103828 '#f))) (define interface-instance? (let () @@ -138,24 +138,24 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator interface-instance::t '__object))) (define interface-descriptor::t - (let ((__tmp103557 (list)) - (__tmp103556 + (let ((__tmp103831 (list)) + (__tmp103830 (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())))) (declare (not safe)) (__make-class-type 'gerbil/runtime/interface#interface-descriptor::t 'interface-descriptor - __tmp103557 + __tmp103831 '(type methods) - __tmp103556 + __tmp103830 '#f))) (define interface-descriptor? (let () (declare (not safe)) (__make-class-predicate interface-descriptor::t))) (define make-interface-descriptor - (lambda _%$args103416%_ - (apply make-instance interface-descriptor::t _%$args103416%_))) + (lambda _%$args103690%_ + (apply make-instance interface-descriptor::t _%$args103690%_))) (define interface-descriptor-type (let () (declare (not safe)) @@ -193,553 +193,553 @@ interface-descriptor::t 'methods))) (define __interface-hash-key - (lambda (_%key103414%_) - (let ((__tmp103559 + (lambda (_%key103688%_) + (let ((__tmp103833 (macro-slot '1 - (let () (declare (not safe)) (##car _%key103414%_)))) - (__tmp103558 + (let () (declare (not safe)) (##car _%key103688%_)))) + (__tmp103832 (macro-slot '1 - (let () (declare (not safe)) (##cdr _%key103414%_))))) + (let () (declare (not safe)) (##cdr _%key103688%_))))) (declare (not safe)) - (##fxxor __tmp103559 __tmp103558)))) + (##fxxor __tmp103833 __tmp103832)))) (define __interface-test-key - (lambda (_%a103411%_ _%b103412%_) - (if (let ((__tmp103561 - (let () (declare (not safe)) (##car _%a103411%_))) - (__tmp103560 - (let () (declare (not safe)) (##car _%b103412%_)))) + (lambda (_%a103685%_ _%b103686%_) + (if (let ((__tmp103835 + (let () (declare (not safe)) (##car _%a103685%_))) + (__tmp103834 + (let () (declare (not safe)) (##car _%b103686%_)))) (declare (not safe)) - (##eq? __tmp103561 __tmp103560)) - (let ((__tmp103563 - (let () (declare (not safe)) (##cdr _%a103411%_))) - (__tmp103562 - (let () (declare (not safe)) (##cdr _%b103412%_)))) + (##eq? __tmp103835 __tmp103834)) + (let ((__tmp103837 + (let () (declare (not safe)) (##cdr _%a103685%_))) + (__tmp103836 + (let () (declare (not safe)) (##cdr _%b103686%_)))) (declare (not safe)) - (##eq? __tmp103563 __tmp103562)) + (##eq? __tmp103837 __tmp103836)) '#f))) (define make-prototype-table__% - (lambda (_%size-hint103392%_ _%seed103394%_) + (lambda (_%size-hint103666%_ _%seed103668%_) (let () (declare (not safe)) (make-raw-table__% - _%size-hint103392%_ + _%size-hint103666%_ __interface-hash-key __interface-test-key - _%seed103394%_)))) + _%seed103668%_)))) (define make-prototype-table__0 (lambda () - (let* ((_%size-hint103400%_ '#f) (_%seed103402%_ '0)) - (make-prototype-table__% _%size-hint103400%_ _%seed103402%_)))) + (let* ((_%size-hint103674%_ '#f) (_%seed103676%_ '0)) + (make-prototype-table__% _%size-hint103674%_ _%seed103676%_)))) (define make-prototype-table__1 - (lambda (_%size-hint103404%_) - (let ((_%seed103406%_ '0)) - (make-prototype-table__% _%size-hint103404%_ _%seed103406%_)))) + (lambda (_%size-hint103678%_) + (let ((_%seed103680%_ '0)) + (make-prototype-table__% _%size-hint103678%_ _%seed103680%_)))) (define make-prototype-table - (lambda _g103565_ - (let ((_g103564_ (let () (declare (not safe)) (##length _g103565_)))) - (cond ((let () (declare (not safe)) (##fx= _g103564_ 0)) - (apply make-prototype-table__0 _g103565_)) - ((let () (declare (not safe)) (##fx= _g103564_ 1)) - (apply make-prototype-table__1 _g103565_)) - ((let () (declare (not safe)) (##fx= _g103564_ 2)) - (apply make-prototype-table__% _g103565_)) + (lambda _g103839_ + (let ((_g103838_ (let () (declare (not safe)) (##length _g103839_)))) + (cond ((let () (declare (not safe)) (##fx= _g103838_ 0)) + (apply make-prototype-table__0 _g103839_)) + ((let () (declare (not safe)) (##fx= _g103838_ 1)) + (apply make-prototype-table__1 _g103839_)) + ((let () (declare (not safe)) (##fx= _g103838_ 2)) + (apply make-prototype-table__% _g103839_)) (else (##raise-wrong-number-of-arguments-exception make-prototype-table - _g103565_)))))) + _g103839_)))))) (define prototype-table-ref - (lambda (_%tab103345%_ _%key103346%_ _%default103347%_) - (let ((_%table103349%_ - (let () (declare (not safe)) (&raw-table-table _%tab103345%_))) - (_%seed103350%_ - (let () (declare (not safe)) (&raw-table-seed _%tab103345%_)))) - (let* ((_%h103352%_ - (fxxor (__interface-hash-key _%key103346%_) _%seed103350%_)) - (_%size103355%_ (vector-length _%table103349%_)) - (_%entries103358%_ + (lambda (_%tab103619%_ _%key103620%_ _%default103621%_) + (let ((_%table103623%_ + (let () (declare (not safe)) (&raw-table-table _%tab103619%_))) + (_%seed103624%_ + (let () (declare (not safe)) (&raw-table-seed _%tab103619%_)))) + (let* ((_%h103626%_ + (fxxor (__interface-hash-key _%key103620%_) _%seed103624%_)) + (_%size103629%_ (vector-length _%table103623%_)) + (_%entries103632%_ (let () (declare (not safe)) - (##fxquotient _%size103355%_ '2))) - (_%start103361%_ - (let ((__tmp103566 + (##fxquotient _%size103629%_ '2))) + (_%start103635%_ + (let ((__tmp103840 (let () (declare (not safe)) - (##fxmodulo _%h103352%_ _%entries103358%_)))) + (##fxmodulo _%h103626%_ _%entries103632%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp103566 '1)))) - (let _%loop103365%_ ((_%probe103368%_ _%start103361%_) - (_%i103370%_ '1) - (_%deleted103372%_ '#f)) - (let ((_%k103375%_ (vector-ref _%table103349%_ _%probe103368%_))) - (if (eq? _%k103375%_ (macro-unused-obj)) - _%default103347%_ - (if (eq? _%k103375%_ (macro-deleted-obj)) - (_%loop103365%_ - (let ((_%next-probe103380%_ - (fx+ _%start103361%_ - _%i103370%_ - (fx* _%i103370%_ _%i103370%_)))) + (##fxarithmetic-shift-left __tmp103840 '1)))) + (let _%loop103639%_ ((_%probe103642%_ _%start103635%_) + (_%i103644%_ '1) + (_%deleted103646%_ '#f)) + (let ((_%k103649%_ (vector-ref _%table103623%_ _%probe103642%_))) + (if (eq? _%k103649%_ (macro-unused-obj)) + _%default103621%_ + (if (eq? _%k103649%_ (macro-deleted-obj)) + (_%loop103639%_ + (let ((_%next-probe103654%_ + (fx+ _%start103635%_ + _%i103644%_ + (fx* _%i103644%_ _%i103644%_)))) (declare (not safe)) - (##fxmodulo _%next-probe103380%_ _%size103355%_)) - (let () (declare (not safe)) (##fx+ _%i103370%_ '1)) - (let ((_%$e103383%_ _%deleted103372%_)) - (if _%$e103383%_ _%$e103383%_ _%probe103368%_))) - (if (__interface-test-key _%key103346%_ _%k103375%_) + (##fxmodulo _%next-probe103654%_ _%size103629%_)) + (let () (declare (not safe)) (##fx+ _%i103644%_ '1)) + (let ((_%$e103657%_ _%deleted103646%_)) + (if _%$e103657%_ _%$e103657%_ _%probe103642%_))) + (if (__interface-test-key _%key103620%_ _%k103649%_) (vector-ref - _%table103349%_ + _%table103623%_ (let () (declare (not safe)) - (##fx+ _%probe103368%_ '1))) - (_%loop103365%_ - (let ((_%next-probe103388%_ - (fx+ _%start103361%_ - _%i103370%_ - (fx* _%i103370%_ _%i103370%_)))) + (##fx+ _%probe103642%_ '1))) + (_%loop103639%_ + (let ((_%next-probe103662%_ + (fx+ _%start103635%_ + _%i103644%_ + (fx* _%i103644%_ _%i103644%_)))) (declare (not safe)) (##fxmodulo - _%next-probe103388%_ - _%size103355%_)) + _%next-probe103662%_ + _%size103629%_)) (let () (declare (not safe)) - (##fx+ _%i103370%_ '1)) - _%deleted103372%_)))))))))) + (##fx+ _%i103644%_ '1)) + _%deleted103646%_)))))))))) (define prototype-table-set! - (lambda (_%tab103341%_ _%key103342%_ _%value103343%_) - (if (let ((__tmp103569 + (lambda (_%tab103615%_ _%key103616%_ _%value103617%_) + (if (let ((__tmp103843 (let () (declare (not safe)) - (&raw-table-free _%tab103341%_))) - (__tmp103567 - (let ((__tmp103568 + (&raw-table-free _%tab103615%_))) + (__tmp103841 + (let ((__tmp103842 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab103341%_))))) + (&raw-table-table _%tab103615%_))))) (declare (not safe)) - (##fxquotient __tmp103568 '4)))) + (##fxquotient __tmp103842 '4)))) (declare (not safe)) - (##fx< __tmp103569 __tmp103567)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab103341%_)) + (##fx< __tmp103843 __tmp103841)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab103615%_)) '#!void) - (__prototype-table-set! _%tab103341%_ _%key103342%_ _%value103343%_))) + (__prototype-table-set! _%tab103615%_ _%key103616%_ _%value103617%_))) (define __prototype-table-set! - (lambda (_%tab103292%_ _%key103293%_ _%value103294%_) - (let ((_%table103297%_ - (let () (declare (not safe)) (&raw-table-table _%tab103292%_))) - (_%seed103298%_ - (let () (declare (not safe)) (&raw-table-seed _%tab103292%_)))) - (let* ((_%h103300%_ - (fxxor (__interface-hash-key _%key103293%_) _%seed103298%_)) - (_%size103303%_ (vector-length _%table103297%_)) - (_%entries103306%_ + (lambda (_%tab103566%_ _%key103567%_ _%value103568%_) + (let ((_%table103571%_ + (let () (declare (not safe)) (&raw-table-table _%tab103566%_))) + (_%seed103572%_ + (let () (declare (not safe)) (&raw-table-seed _%tab103566%_)))) + (let* ((_%h103574%_ + (fxxor (__interface-hash-key _%key103567%_) _%seed103572%_)) + (_%size103577%_ (vector-length _%table103571%_)) + (_%entries103580%_ (let () (declare (not safe)) - (##fxquotient _%size103303%_ '2))) - (_%start103309%_ - (let ((__tmp103570 + (##fxquotient _%size103577%_ '2))) + (_%start103583%_ + (let ((__tmp103844 (let () (declare (not safe)) - (##fxmodulo _%h103300%_ _%entries103306%_)))) + (##fxmodulo _%h103574%_ _%entries103580%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp103570 '1)))) - (let _%loop103313%_ ((_%probe103316%_ _%start103309%_) - (_%i103318%_ '1) - (_%deleted103320%_ '#f)) - (let ((_%k103323%_ (vector-ref _%table103297%_ _%probe103316%_))) - (if (eq? _%k103323%_ (macro-unused-obj)) - (if _%deleted103320%_ + (##fxarithmetic-shift-left __tmp103844 '1)))) + (let _%loop103587%_ ((_%probe103590%_ _%start103583%_) + (_%i103592%_ '1) + (_%deleted103594%_ '#f)) + (let ((_%k103597%_ (vector-ref _%table103571%_ _%probe103590%_))) + (if (eq? _%k103597%_ (macro-unused-obj)) + (if _%deleted103594%_ (begin (vector-set! - _%table103297%_ - _%deleted103320%_ - _%key103293%_) + _%table103571%_ + _%deleted103594%_ + _%key103567%_) (vector-set! - _%table103297%_ + _%table103571%_ (let () (declare (not safe)) - (##fx+ _%deleted103320%_ '1)) - _%value103294%_) + (##fx+ _%deleted103594%_ '1)) + _%value103568%_) ((lambda () - (let ((__tmp103571 - (let ((__tmp103572 + (let ((__tmp103845 + (let ((__tmp103846 (let () (declare (not safe)) (&raw-table-count - _%tab103292%_)))) + _%tab103566%_)))) (declare (not safe)) - (##fx+ __tmp103572 '1)))) + (##fx+ __tmp103846 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab103292%_ - __tmp103571))))) + _%tab103566%_ + __tmp103845))))) (begin (vector-set! - _%table103297%_ - _%probe103316%_ - _%key103293%_) + _%table103571%_ + _%probe103590%_ + _%key103567%_) (vector-set! - _%table103297%_ + _%table103571%_ (let () (declare (not safe)) - (##fx+ _%probe103316%_ '1)) - _%value103294%_) + (##fx+ _%probe103590%_ '1)) + _%value103568%_) ((lambda () - (let ((__tmp103573 - (let ((__tmp103574 + (let ((__tmp103847 + (let ((__tmp103848 (let () (declare (not safe)) - (&raw-table-free _%tab103292%_)))) + (&raw-table-free _%tab103566%_)))) (declare (not safe)) - (##fx- __tmp103574 '1)))) + (##fx- __tmp103848 '1)))) (declare (not safe)) (&raw-table-free-set! - _%tab103292%_ - __tmp103573)) - (let ((__tmp103575 - (let ((__tmp103576 + _%tab103566%_ + __tmp103847)) + (let ((__tmp103849 + (let ((__tmp103850 (let () (declare (not safe)) (&raw-table-count - _%tab103292%_)))) + _%tab103566%_)))) (declare (not safe)) - (##fx+ __tmp103576 '1)))) + (##fx+ __tmp103850 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab103292%_ - __tmp103575)))))) - (if (eq? _%k103323%_ (macro-deleted-obj)) - (_%loop103313%_ - (let ((_%next-probe103330%_ - (fx+ _%start103309%_ - _%i103318%_ - (fx* _%i103318%_ _%i103318%_)))) + _%tab103566%_ + __tmp103849)))))) + (if (eq? _%k103597%_ (macro-deleted-obj)) + (_%loop103587%_ + (let ((_%next-probe103604%_ + (fx+ _%start103583%_ + _%i103592%_ + (fx* _%i103592%_ _%i103592%_)))) (declare (not safe)) - (##fxmodulo _%next-probe103330%_ _%size103303%_)) - (let () (declare (not safe)) (##fx+ _%i103318%_ '1)) - (let ((_%$e103333%_ _%deleted103320%_)) - (if _%$e103333%_ _%$e103333%_ _%probe103316%_))) - (if (__interface-test-key _%key103293%_ _%k103323%_) + (##fxmodulo _%next-probe103604%_ _%size103577%_)) + (let () (declare (not safe)) (##fx+ _%i103592%_ '1)) + (let ((_%$e103607%_ _%deleted103594%_)) + (if _%$e103607%_ _%$e103607%_ _%probe103590%_))) + (if (__interface-test-key _%key103567%_ _%k103597%_) (let () (vector-set! - _%table103297%_ - _%probe103316%_ - _%key103293%_) + _%table103571%_ + _%probe103590%_ + _%key103567%_) (vector-set! - _%table103297%_ + _%table103571%_ (let () (declare (not safe)) - (##fx+ _%probe103316%_ '1)) - _%value103294%_)) - (_%loop103313%_ - (let ((_%next-probe103338%_ - (fx+ _%start103309%_ - _%i103318%_ - (fx* _%i103318%_ _%i103318%_)))) + (##fx+ _%probe103590%_ '1)) + _%value103568%_)) + (_%loop103587%_ + (let ((_%next-probe103612%_ + (fx+ _%start103583%_ + _%i103592%_ + (fx* _%i103592%_ _%i103592%_)))) (declare (not safe)) (##fxmodulo - _%next-probe103338%_ - _%size103303%_)) + _%next-probe103612%_ + _%size103577%_)) (let () (declare (not safe)) - (##fx+ _%i103318%_ '1)) - _%deleted103320%_)))))))))) + (##fx+ _%i103592%_ '1)) + _%deleted103594%_)))))))))) (define prototype-table-update! - (lambda (_%tab103287%_ - _%key103288%_ - _%prototype-table-update!103289%_ - _%default103290%_) - (if (let ((__tmp103579 + (lambda (_%tab103561%_ + _%key103562%_ + _%prototype-table-update!103563%_ + _%default103564%_) + (if (let ((__tmp103853 (let () (declare (not safe)) - (&raw-table-free _%tab103287%_))) - (__tmp103577 - (let ((__tmp103578 + (&raw-table-free _%tab103561%_))) + (__tmp103851 + (let ((__tmp103852 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab103287%_))))) + (&raw-table-table _%tab103561%_))))) (declare (not safe)) - (##fxquotient __tmp103578 '4)))) + (##fxquotient __tmp103852 '4)))) (declare (not safe)) - (##fx< __tmp103579 __tmp103577)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab103287%_)) + (##fx< __tmp103853 __tmp103851)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab103561%_)) '#!void) (__prototype-table-update! - _%tab103287%_ - _%key103288%_ - _%prototype-table-update!103289%_ - _%default103290%_))) + _%tab103561%_ + _%key103562%_ + _%prototype-table-update!103563%_ + _%default103564%_))) (define __prototype-table-update! - (lambda (_%tab103237%_ - _%key103238%_ - _%prototype-table-update!103239%_ - _%default103240%_) - (let ((_%table103243%_ - (let () (declare (not safe)) (&raw-table-table _%tab103237%_))) - (_%seed103244%_ - (let () (declare (not safe)) (&raw-table-seed _%tab103237%_)))) - (let* ((_%h103246%_ - (fxxor (__interface-hash-key _%key103238%_) _%seed103244%_)) - (_%size103249%_ (vector-length _%table103243%_)) - (_%entries103252%_ + (lambda (_%tab103511%_ + _%key103512%_ + _%prototype-table-update!103513%_ + _%default103514%_) + (let ((_%table103517%_ + (let () (declare (not safe)) (&raw-table-table _%tab103511%_))) + (_%seed103518%_ + (let () (declare (not safe)) (&raw-table-seed _%tab103511%_)))) + (let* ((_%h103520%_ + (fxxor (__interface-hash-key _%key103512%_) _%seed103518%_)) + (_%size103523%_ (vector-length _%table103517%_)) + (_%entries103526%_ (let () (declare (not safe)) - (##fxquotient _%size103249%_ '2))) - (_%start103255%_ - (let ((__tmp103580 + (##fxquotient _%size103523%_ '2))) + (_%start103529%_ + (let ((__tmp103854 (let () (declare (not safe)) - (##fxmodulo _%h103246%_ _%entries103252%_)))) + (##fxmodulo _%h103520%_ _%entries103526%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp103580 '1)))) - (let _%loop103259%_ ((_%probe103262%_ _%start103255%_) - (_%i103264%_ '1) - (_%deleted103266%_ '#f)) - (let ((_%k103269%_ (vector-ref _%table103243%_ _%probe103262%_))) - (if (eq? _%k103269%_ (macro-unused-obj)) - (if _%deleted103266%_ + (##fxarithmetic-shift-left __tmp103854 '1)))) + (let _%loop103533%_ ((_%probe103536%_ _%start103529%_) + (_%i103538%_ '1) + (_%deleted103540%_ '#f)) + (let ((_%k103543%_ (vector-ref _%table103517%_ _%probe103536%_))) + (if (eq? _%k103543%_ (macro-unused-obj)) + (if _%deleted103540%_ (begin (vector-set! - _%table103243%_ - _%deleted103266%_ - _%key103238%_) + _%table103517%_ + _%deleted103540%_ + _%key103512%_) (vector-set! - _%table103243%_ + _%table103517%_ (let () (declare (not safe)) - (##fx+ _%deleted103266%_ '1)) - (_%prototype-table-update!103239%_ - _%default103240%_)) + (##fx+ _%deleted103540%_ '1)) + (_%prototype-table-update!103513%_ + _%default103514%_)) ((lambda () - (let ((__tmp103581 - (let ((__tmp103582 + (let ((__tmp103855 + (let ((__tmp103856 (let () (declare (not safe)) (&raw-table-count - _%tab103237%_)))) + _%tab103511%_)))) (declare (not safe)) - (##fx+ __tmp103582 '1)))) + (##fx+ __tmp103856 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab103237%_ - __tmp103581))))) + _%tab103511%_ + __tmp103855))))) (begin (vector-set! - _%table103243%_ - _%probe103262%_ - _%key103238%_) + _%table103517%_ + _%probe103536%_ + _%key103512%_) (vector-set! - _%table103243%_ + _%table103517%_ (let () (declare (not safe)) - (##fx+ _%probe103262%_ '1)) - (_%prototype-table-update!103239%_ - _%default103240%_)) + (##fx+ _%probe103536%_ '1)) + (_%prototype-table-update!103513%_ + _%default103514%_)) ((lambda () - (let ((__tmp103583 - (let ((__tmp103584 + (let ((__tmp103857 + (let ((__tmp103858 (let () (declare (not safe)) - (&raw-table-free _%tab103237%_)))) + (&raw-table-free _%tab103511%_)))) (declare (not safe)) - (##fx- __tmp103584 '1)))) + (##fx- __tmp103858 '1)))) (declare (not safe)) (&raw-table-free-set! - _%tab103237%_ - __tmp103583)) - (let ((__tmp103585 - (let ((__tmp103586 + _%tab103511%_ + __tmp103857)) + (let ((__tmp103859 + (let ((__tmp103860 (let () (declare (not safe)) (&raw-table-count - _%tab103237%_)))) + _%tab103511%_)))) (declare (not safe)) - (##fx+ __tmp103586 '1)))) + (##fx+ __tmp103860 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab103237%_ - __tmp103585)))))) - (if (eq? _%k103269%_ (macro-deleted-obj)) - (_%loop103259%_ - (let ((_%next-probe103276%_ - (fx+ _%start103255%_ - _%i103264%_ - (fx* _%i103264%_ _%i103264%_)))) + _%tab103511%_ + __tmp103859)))))) + (if (eq? _%k103543%_ (macro-deleted-obj)) + (_%loop103533%_ + (let ((_%next-probe103550%_ + (fx+ _%start103529%_ + _%i103538%_ + (fx* _%i103538%_ _%i103538%_)))) (declare (not safe)) - (##fxmodulo _%next-probe103276%_ _%size103249%_)) - (let () (declare (not safe)) (##fx+ _%i103264%_ '1)) - (let ((_%$e103279%_ _%deleted103266%_)) - (if _%$e103279%_ _%$e103279%_ _%probe103262%_))) - (if (__interface-test-key _%key103238%_ _%k103269%_) + (##fxmodulo _%next-probe103550%_ _%size103523%_)) + (let () (declare (not safe)) (##fx+ _%i103538%_ '1)) + (let ((_%$e103553%_ _%deleted103540%_)) + (if _%$e103553%_ _%$e103553%_ _%probe103536%_))) + (if (__interface-test-key _%key103512%_ _%k103543%_) (let () (vector-set! - _%table103243%_ - _%probe103262%_ - _%key103238%_) + _%table103517%_ + _%probe103536%_ + _%key103512%_) (vector-set! - _%table103243%_ + _%table103517%_ (let () (declare (not safe)) - (##fx+ _%probe103262%_ '1)) - (_%prototype-table-update!103239%_ + (##fx+ _%probe103536%_ '1)) + (_%prototype-table-update!103513%_ (vector-ref - _%table103243%_ + _%table103517%_ (let () (declare (not safe)) - (##fx+ _%probe103262%_ '1)))))) - (_%loop103259%_ - (let ((_%next-probe103284%_ - (fx+ _%start103255%_ - _%i103264%_ - (fx* _%i103264%_ _%i103264%_)))) + (##fx+ _%probe103536%_ '1)))))) + (_%loop103533%_ + (let ((_%next-probe103558%_ + (fx+ _%start103529%_ + _%i103538%_ + (fx* _%i103538%_ _%i103538%_)))) (declare (not safe)) (##fxmodulo - _%next-probe103284%_ - _%size103249%_)) + _%next-probe103558%_ + _%size103523%_)) (let () (declare (not safe)) - (##fx+ _%i103264%_ '1)) - _%deleted103266%_)))))))))) + (##fx+ _%i103538%_ '1)) + _%deleted103540%_)))))))))) (define prototype-table-delete! - (lambda (_%tab103192%_ _%key103194%_) - (let ((_%table103197%_ - (let () (declare (not safe)) (&raw-table-table _%tab103192%_))) - (_%seed103199%_ - (let () (declare (not safe)) (&raw-table-seed _%tab103192%_)))) - (let* ((_%h103202%_ - (fxxor (__interface-hash-key _%key103194%_) _%seed103199%_)) - (_%size103205%_ (vector-length _%table103197%_)) - (_%entries103208%_ + (lambda (_%tab103466%_ _%key103468%_) + (let ((_%table103471%_ + (let () (declare (not safe)) (&raw-table-table _%tab103466%_))) + (_%seed103473%_ + (let () (declare (not safe)) (&raw-table-seed _%tab103466%_)))) + (let* ((_%h103476%_ + (fxxor (__interface-hash-key _%key103468%_) _%seed103473%_)) + (_%size103479%_ (vector-length _%table103471%_)) + (_%entries103482%_ (let () (declare (not safe)) - (##fxquotient _%size103205%_ '2))) - (_%start103211%_ - (let ((__tmp103587 + (##fxquotient _%size103479%_ '2))) + (_%start103485%_ + (let ((__tmp103861 (let () (declare (not safe)) - (##fxmodulo _%h103202%_ _%entries103208%_)))) + (##fxmodulo _%h103476%_ _%entries103482%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp103587 '1)))) - (let _%loop103215%_ ((_%probe103218%_ _%start103211%_) - (_%i103220%_ '1)) - (let ((_%k103223%_ (vector-ref _%table103197%_ _%probe103218%_))) - (if (eq? _%k103223%_ (macro-unused-obj)) + (##fxarithmetic-shift-left __tmp103861 '1)))) + (let _%loop103489%_ ((_%probe103492%_ _%start103485%_) + (_%i103494%_ '1)) + (let ((_%k103497%_ (vector-ref _%table103471%_ _%probe103492%_))) + (if (eq? _%k103497%_ (macro-unused-obj)) '#!void - (if (eq? _%k103223%_ (macro-deleted-obj)) - (_%loop103215%_ - (let ((_%next-probe103228%_ - (fx+ _%start103211%_ - _%i103220%_ - (fx* _%i103220%_ _%i103220%_)))) + (if (eq? _%k103497%_ (macro-deleted-obj)) + (_%loop103489%_ + (let ((_%next-probe103502%_ + (fx+ _%start103485%_ + _%i103494%_ + (fx* _%i103494%_ _%i103494%_)))) (declare (not safe)) - (##fxmodulo _%next-probe103228%_ _%size103205%_)) - (let () (declare (not safe)) (##fx+ _%i103220%_ '1))) - (if (__interface-test-key _%key103194%_ _%k103223%_) + (##fxmodulo _%next-probe103502%_ _%size103479%_)) + (let () (declare (not safe)) (##fx+ _%i103494%_ '1))) + (if (__interface-test-key _%key103468%_ _%k103497%_) (let () (vector-set! - _%table103197%_ - _%probe103218%_ + _%table103471%_ + _%probe103492%_ (macro-deleted-obj)) (vector-set! - _%table103197%_ + _%table103471%_ (let () (declare (not safe)) - (##fx+ _%probe103218%_ '1)) + (##fx+ _%probe103492%_ '1)) (macro-absent-obj)) ((lambda () - (let ((__tmp103588 - (let ((__tmp103589 + (let ((__tmp103862 + (let ((__tmp103863 (let () (declare (not safe)) (&raw-table-count - _%tab103192%_)))) + _%tab103466%_)))) (declare (not safe)) - (##fx- __tmp103589 '1)))) + (##fx- __tmp103863 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab103192%_ - __tmp103588))))) - (_%loop103215%_ - (let ((_%next-probe103234%_ - (fx+ _%start103211%_ - _%i103220%_ - (fx* _%i103220%_ _%i103220%_)))) + _%tab103466%_ + __tmp103862))))) + (_%loop103489%_ + (let ((_%next-probe103508%_ + (fx+ _%start103485%_ + _%i103494%_ + (fx* _%i103494%_ _%i103494%_)))) (declare (not safe)) (##fxmodulo - _%next-probe103234%_ - _%size103205%_)) + _%next-probe103508%_ + _%size103479%_)) (let () (declare (not safe)) - (##fx+ _%i103220%_ '1)))))))))))) + (##fx+ _%i103494%_ '1)))))))))))) (define __interface-prototypes-mx (vector '0)) (define __interface-prototypes (make-prototype-table__% '#f '0)) (define __interface-prototypes-key (cons '#f '#f)) (define interface-subclass? - (lambda (_%klass103184%_) - (let ((_%super103185103187%_ - (let () (declare (not safe)) (##type-super _%klass103184%_)))) - (if _%super103185103187%_ - (let ((_%super103190%_ _%super103185103187%_)) - (eq? (let () (declare (not safe)) (##type-id _%super103190%_)) + (lambda (_%klass103458%_) + (let ((_%super103459103461%_ + (let () (declare (not safe)) (##type-super _%klass103458%_)))) + (if _%super103459103461%_ + (let ((_%super103464%_ _%super103459103461%_)) + (eq? (let () (declare (not safe)) (##type-id _%super103464%_)) (let () (declare (not safe)) (##type-id interface-instance::t)))) '#f)))) (define create-prototype - (lambda (_%descriptor103069%_ _%klass103070%_ _%obj-klass103071%_) - (let ((_%method-table103073%_ + (lambda (_%descriptor103343%_ _%klass103344%_ _%obj-klass103345%_) + (let ((_%method-table103347%_ (let () (declare (not safe)) - (specialize-class _%obj-klass103071%_)))) - (let _%loop103076%_ ((_%rest103079%_ + (specialize-class _%obj-klass103345%_)))) + (let _%loop103350%_ ((_%rest103353%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%descriptor103069%_ + _%descriptor103343%_ '2 '#f '#f))) - (_%count103081%_ '0) - (_%methods103083%_ '())) - (let* ((_%rest103085103093%_ _%rest103079%_) - (_%else103087103155%_ + (_%count103355%_ '0) + (_%methods103357%_ '())) + (let* ((_%rest103359103367%_ _%rest103353%_) + (_%else103361103429%_ (lambda () - (let ((_%prototype103101%_ - (let ((__obj103550 - (let ((__tmp103590 + (let ((_%prototype103375%_ + (let ((__obj103824 + (let ((__tmp103864 (let () (declare (not safe)) - (##fx+ _%count103081%_ '2)))) + (##fx+ _%count103355%_ '2)))) (declare (not safe)) (##make-structure - _%klass103070%_ - __tmp103590)))) + _%klass103344%_ + __tmp103864)))) (let () (declare (not safe)) - (object-fill! __obj103550 '#f)) - __obj103550))) - (let _%loop103104%_ ((_%rest103106%_ _%methods103083%_) - (_%off103107%_ + (object-fill! __obj103824 '#f)) + __obj103824))) + (let _%loop103378%_ ((_%rest103380%_ _%methods103357%_) + (_%off103381%_ (let () (declare (not safe)) - (##fx+ _%count103081%_ '1)))) - (let* ((_%rest103109103117%_ _%rest103106%_) - (_%else103111103136%_ + (##fx+ _%count103355%_ '1)))) + (let* ((_%rest103383103391%_ _%rest103380%_) + (_%else103385103410%_ (lambda () - (let ((_%prototype-key103125%_ + (let ((_%prototype-key103399%_ (cons (let () (declare (not safe)) - (##type-id _%klass103070%_)) + (##type-id _%klass103344%_)) (let () (declare (not safe)) (##type-id - _%obj-klass103071%_))))) + _%obj-klass103345%_))))) (let () (declare (not interrupts-enabled)) - (let _%again103130%_ () - (if (let ((__tmp103591 + (let _%again103404%_ () + (if (let ((__tmp103865 (let () (declare (not safe)) (##vector-cas! @@ -748,17 +748,17 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp103591 '0)) + (##fx= __tmp103865 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again103130%_))))) + (_%again103404%_))))) (prototype-table-set! __interface-prototypes - _%prototype-key103125%_ - _%prototype103101%_) + _%prototype-key103399%_ + _%prototype103375%_) (let () (declare (not safe)) (##vector-cas! @@ -766,151 +766,151 @@ '0 '0 '1)) - ((lambda (_%prototype103134%_) - _%prototype103134%_) - _%prototype103101%_)))) - (_%K103113103143%_ - (lambda (_%rest103139%_ _%method103140%_) + ((lambda (_%prototype103408%_) + _%prototype103408%_) + _%prototype103375%_)))) + (_%K103387103417%_ + (lambda (_%rest103413%_ _%method103414%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%prototype103101%_ - _%method103140%_ - _%off103107%_ - _%klass103070%_ + _%prototype103375%_ + _%method103414%_ + _%off103381%_ + _%klass103344%_ '#f)) - (_%loop103104%_ - _%rest103139%_ + (_%loop103378%_ + _%rest103413%_ (let () (declare (not safe)) - (##fx- _%off103107%_ '1)))))) + (##fx- _%off103381%_ '1)))))) (if (let () (declare (not safe)) - (##pair? _%rest103109103117%_)) - (let ((_%hd103114103146%_ + (##pair? _%rest103383103391%_)) + (let ((_%hd103388103420%_ (let () (declare (not safe)) - (##car _%rest103109103117%_))) - (_%tl103115103148%_ + (##car _%rest103383103391%_))) + (_%tl103389103422%_ (let () (declare (not safe)) - (##cdr _%rest103109103117%_)))) - (let* ((_%method103151%_ _%hd103114103146%_) - (_%rest103153%_ _%tl103115103148%_)) - (_%K103113103143%_ - _%rest103153%_ - _%method103151%_))) - (_%else103111103136%_))))))) - (_%K103089103172%_ - (lambda (_%rest103158%_ _%method-name103159%_) - (let ((_%$e103162%_ + (##cdr _%rest103383103391%_)))) + (let* ((_%method103425%_ _%hd103388103420%_) + (_%rest103427%_ _%tl103389103422%_)) + (_%K103387103417%_ + _%rest103427%_ + _%method103425%_))) + (_%else103385103410%_))))))) + (_%K103363103446%_ + (lambda (_%rest103432%_ _%method-name103433%_) + (let ((_%$e103436%_ (let () (declare (not safe)) (symbolic-table-ref - _%method-table103073%_ - _%method-name103159%_ + _%method-table103347%_ + _%method-name103433%_ '#f)))) - (if _%$e103162%_ - ((lambda (_%method103165%_) - (_%loop103076%_ - _%rest103158%_ + (if _%$e103436%_ + ((lambda (_%method103439%_) + (_%loop103350%_ + _%rest103432%_ (let () (declare (not safe)) - (##fx+ _%count103081%_ '1)) - (cons _%method103165%_ _%methods103083%_))) - _%$e103162%_) - ((lambda (_%klass103168%_ - _%obj-klass103169%_ - _%method-name103170%_) + (##fx+ _%count103355%_ '1)) + (cons _%method103439%_ _%methods103357%_))) + _%$e103436%_) + ((lambda (_%klass103442%_ + _%obj-klass103443%_ + _%method-name103444%_) (raise-cast-error 'create-prototype '"cannot create interface instance; missing method" 'interface: - _%klass103168%_ + _%klass103442%_ 'interface-id: (let () (declare (not safe)) - (##type-id _%klass103168%_)) + (##type-id _%klass103442%_)) 'class: - _%obj-klass103169%_ + _%obj-klass103443%_ 'class-id: (let () (declare (not safe)) - (##type-id _%obj-klass103169%_)) + (##type-id _%obj-klass103443%_)) 'method: - _%method-name103170%_) + _%method-name103444%_) '#!void) - _%klass103070%_ - _%obj-klass103071%_ - _%method-name103159%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest103085103093%_)) - (let ((_%hd103090103175%_ + _%klass103344%_ + _%obj-klass103345%_ + _%method-name103433%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest103359103367%_)) + (let ((_%hd103364103449%_ (let () (declare (not safe)) - (##car _%rest103085103093%_))) - (_%tl103091103177%_ + (##car _%rest103359103367%_))) + (_%tl103365103451%_ (let () (declare (not safe)) - (##cdr _%rest103085103093%_)))) - (let* ((_%method-name103180%_ _%hd103090103175%_) - (_%rest103182%_ _%tl103091103177%_)) - (_%K103089103172%_ - _%rest103182%_ - _%method-name103180%_))) - (_%else103087103155%_))))))) + (##cdr _%rest103359103367%_)))) + (let* ((_%method-name103454%_ _%hd103364103449%_) + (_%rest103456%_ _%tl103365103451%_)) + (_%K103363103446%_ + _%rest103456%_ + _%method-name103454%_))) + (_%else103361103429%_))))))) (define try-create-prototype - (lambda (_%descriptor102954%_ _%klass102955%_ _%obj-klass102956%_) - (let ((_%method-table102958%_ + (lambda (_%descriptor103228%_ _%klass103229%_ _%obj-klass103230%_) + (let ((_%method-table103232%_ (let () (declare (not safe)) - (specialize-class _%obj-klass102956%_)))) - (let _%loop102961%_ ((_%rest102964%_ + (specialize-class _%obj-klass103230%_)))) + (let _%loop103235%_ ((_%rest103238%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%descriptor102954%_ + _%descriptor103228%_ '2 '#f '#f))) - (_%count102966%_ '0) - (_%methods102968%_ '())) - (let* ((_%rest102970102978%_ _%rest102964%_) - (_%else102972103040%_ + (_%count103240%_ '0) + (_%methods103242%_ '())) + (let* ((_%rest103244103252%_ _%rest103238%_) + (_%else103246103314%_ (lambda () - (let ((_%prototype102986%_ - (let ((__obj103551 - (let ((__tmp103592 + (let ((_%prototype103260%_ + (let ((__obj103825 + (let ((__tmp103866 (let () (declare (not safe)) - (##fx+ _%count102966%_ '2)))) + (##fx+ _%count103240%_ '2)))) (declare (not safe)) (##make-structure - _%klass102955%_ - __tmp103592)))) + _%klass103229%_ + __tmp103866)))) (let () (declare (not safe)) - (object-fill! __obj103551 '#f)) - __obj103551))) - (let _%loop102989%_ ((_%rest102991%_ _%methods102968%_) - (_%off102992%_ + (object-fill! __obj103825 '#f)) + __obj103825))) + (let _%loop103263%_ ((_%rest103265%_ _%methods103242%_) + (_%off103266%_ (let () (declare (not safe)) - (##fx+ _%count102966%_ '1)))) - (let* ((_%rest102994103002%_ _%rest102991%_) - (_%else102996103021%_ + (##fx+ _%count103240%_ '1)))) + (let* ((_%rest103268103276%_ _%rest103265%_) + (_%else103270103295%_ (lambda () - (let ((_%prototype-key103010%_ + (let ((_%prototype-key103284%_ (cons (let () (declare (not safe)) - (##type-id _%klass102955%_)) + (##type-id _%klass103229%_)) (let () (declare (not safe)) (##type-id - _%obj-klass102956%_))))) + _%obj-klass103230%_))))) (let () (declare (not interrupts-enabled)) - (let _%again103015%_ () - (if (let ((__tmp103593 + (let _%again103289%_ () + (if (let ((__tmp103867 (let () (declare (not safe)) (##vector-cas! @@ -919,17 +919,17 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp103593 '0)) + (##fx= __tmp103867 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again103015%_))))) + (_%again103289%_))))) (prototype-table-set! __interface-prototypes - _%prototype-key103010%_ - _%prototype102986%_) + _%prototype-key103284%_ + _%prototype103260%_) (let () (declare (not safe)) (##vector-cas! @@ -937,112 +937,112 @@ '0 '0 '1)) - ((lambda (_%prototype103019%_) - _%prototype103019%_) - _%prototype102986%_)))) - (_%K102998103028%_ - (lambda (_%rest103024%_ _%method103025%_) + ((lambda (_%prototype103293%_) + _%prototype103293%_) + _%prototype103260%_)))) + (_%K103272103302%_ + (lambda (_%rest103298%_ _%method103299%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%prototype102986%_ - _%method103025%_ - _%off102992%_ - _%klass102955%_ + _%prototype103260%_ + _%method103299%_ + _%off103266%_ + _%klass103229%_ '#f)) - (_%loop102989%_ - _%rest103024%_ + (_%loop103263%_ + _%rest103298%_ (let () (declare (not safe)) - (##fx- _%off102992%_ '1)))))) + (##fx- _%off103266%_ '1)))))) (if (let () (declare (not safe)) - (##pair? _%rest102994103002%_)) - (let ((_%hd102999103031%_ + (##pair? _%rest103268103276%_)) + (let ((_%hd103273103305%_ (let () (declare (not safe)) - (##car _%rest102994103002%_))) - (_%tl103000103033%_ + (##car _%rest103268103276%_))) + (_%tl103274103307%_ (let () (declare (not safe)) - (##cdr _%rest102994103002%_)))) - (let* ((_%method103036%_ _%hd102999103031%_) - (_%rest103038%_ _%tl103000103033%_)) - (_%K102998103028%_ - _%rest103038%_ - _%method103036%_))) - (_%else102996103021%_))))))) - (_%K102974103057%_ - (lambda (_%rest103043%_ _%method-name103044%_) - (let ((_%$e103047%_ + (##cdr _%rest103268103276%_)))) + (let* ((_%method103310%_ _%hd103273103305%_) + (_%rest103312%_ _%tl103274103307%_)) + (_%K103272103302%_ + _%rest103312%_ + _%method103310%_))) + (_%else103270103295%_))))))) + (_%K103248103331%_ + (lambda (_%rest103317%_ _%method-name103318%_) + (let ((_%$e103321%_ (let () (declare (not safe)) (symbolic-table-ref - _%method-table102958%_ - _%method-name103044%_ + _%method-table103232%_ + _%method-name103318%_ '#f)))) - (if _%$e103047%_ - ((lambda (_%method103050%_) - (_%loop102961%_ - _%rest103043%_ + (if _%$e103321%_ + ((lambda (_%method103324%_) + (_%loop103235%_ + _%rest103317%_ (let () (declare (not safe)) - (##fx+ _%count102966%_ '1)) - (cons _%method103050%_ _%methods102968%_))) - _%$e103047%_) - ((lambda (_%klass103053%_ - _%obj-klass103054%_ - _%method-name103055%_) + (##fx+ _%count103240%_ '1)) + (cons _%method103324%_ _%methods103242%_))) + _%$e103321%_) + ((lambda (_%klass103327%_ + _%obj-klass103328%_ + _%method-name103329%_) '#f) - _%klass102955%_ - _%obj-klass102956%_ - _%method-name103044%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest102970102978%_)) - (let ((_%hd102975103060%_ + _%klass103229%_ + _%obj-klass103230%_ + _%method-name103318%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest103244103252%_)) + (let ((_%hd103249103334%_ (let () (declare (not safe)) - (##car _%rest102970102978%_))) - (_%tl102976103062%_ + (##car _%rest103244103252%_))) + (_%tl103250103336%_ (let () (declare (not safe)) - (##cdr _%rest102970102978%_)))) - (let* ((_%method-name103065%_ _%hd102975103060%_) - (_%rest103067%_ _%tl102976103062%_)) - (_%K102974103057%_ - _%rest103067%_ - _%method-name103065%_))) - (_%else102972103040%_))))))) + (##cdr _%rest103244103252%_)))) + (let* ((_%method-name103339%_ _%hd103249103334%_) + (_%rest103341%_ _%tl103250103336%_)) + (_%K103248103331%_ + _%rest103341%_ + _%method-name103339%_))) + (_%else103246103314%_))))))) (define cast - (lambda (_%descriptor102912%_ _%obj102914%_) + (lambda (_%descriptor103186%_ _%obj103188%_) (declare (not interrupts-enabled)) - (let* ((_%klass102918%_ + (let* ((_%klass103192%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%descriptor102912%_ '1 '#f '#f))) - (_%klass-id102921%_ - (let () (declare (not safe)) (##type-id _%klass102918%_))) - (_%obj-klass102924%_ - (let () (declare (not safe)) (class-of _%obj102914%_))) - (_%obj-klass-id102927%_ - (let () (declare (not safe)) (##type-id _%obj-klass102924%_)))) + (##unchecked-structure-ref _%descriptor103186%_ '1 '#f '#f))) + (_%klass-id103195%_ + (let () (declare (not safe)) (##type-id _%klass103192%_))) + (_%obj-klass103198%_ + (let () (declare (not safe)) (class-of _%obj103188%_))) + (_%obj-klass-id103201%_ + (let () (declare (not safe)) (##type-id _%obj-klass103198%_)))) (if (let () (declare (not safe)) - (##eq? _%klass-id102921%_ _%obj-klass-id102927%_)) - _%obj102914%_ - (if (interface-subclass? _%obj-klass102924%_) - (cast _%descriptor102912%_ + (##eq? _%klass-id103195%_ _%obj-klass-id103201%_)) + _%obj103188%_ + (if (interface-subclass? _%obj-klass103198%_) + (cast _%descriptor103186%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%obj102914%_ + _%obj103188%_ '1 '#f '#f))) (let () (let () (declare (not interrupts-enabled)) - (let _%again102936%_ () - (if (let ((__tmp103594 + (let _%again103210%_ () + (if (let ((__tmp103868 (let () (declare (not safe)) (##vector-cas! @@ -1051,29 +1051,29 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp103594 '0)) + (##fx= __tmp103868 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again102936%_))))) + (_%again103210%_))))) (let () (declare (not safe)) (##set-car! __interface-prototypes-key - _%klass-id102921%_)) + _%klass-id103195%_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _%obj-klass-id102927%_)) - (let ((_%prototype102947%_ - (let ((_%$e102940%_ + _%obj-klass-id103201%_)) + (let ((_%prototype103221%_ + (let ((_%$e103214%_ (prototype-table-ref __interface-prototypes __interface-prototypes-key '#f))) - (if _%$e102940%_ - ((lambda (_%prototype102943%_) + (if _%$e103214%_ + ((lambda (_%prototype103217%_) (let () (declare (not safe)) (##vector-cas! @@ -1081,8 +1081,8 @@ '0 '0 '1)) - _%prototype102943%_) - _%$e102940%_) + _%prototype103217%_) + _%$e103214%_) (let () (let () (declare (not safe)) @@ -1092,53 +1092,53 @@ '0 '1)) (create-prototype - _%descriptor102912%_ - _%klass102918%_ - _%obj-klass102924%_)))))) - ((lambda (_%prototype102949%_ _%obj102950%_) - (let ((_%instance102952%_ + _%descriptor103186%_ + _%klass103192%_ + _%obj-klass103198%_)))))) + ((lambda (_%prototype103223%_ _%obj103224%_) + (let ((_%instance103226%_ (let () (declare (not safe)) - (##structure-copy _%prototype102949%_)))) + (##structure-copy _%prototype103223%_)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%instance102952%_ - _%obj102950%_ + _%instance103226%_ + _%obj103224%_ '1 '#f 'cast)) - _%instance102952%_)) - _%prototype102947%_ - _%obj102914%_)))))))) + _%instance103226%_)) + _%prototype103221%_ + _%obj103188%_)))))))) (define try-cast - (lambda (_%descriptor102870%_ _%obj102872%_) + (lambda (_%descriptor103144%_ _%obj103146%_) (declare (not interrupts-enabled)) - (let* ((_%klass102876%_ + (let* ((_%klass103150%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%descriptor102870%_ '1 '#f '#f))) - (_%klass-id102879%_ - (let () (declare (not safe)) (##type-id _%klass102876%_))) - (_%obj-klass102882%_ - (let () (declare (not safe)) (class-of _%obj102872%_))) - (_%obj-klass-id102885%_ - (let () (declare (not safe)) (##type-id _%obj-klass102882%_)))) + (##unchecked-structure-ref _%descriptor103144%_ '1 '#f '#f))) + (_%klass-id103153%_ + (let () (declare (not safe)) (##type-id _%klass103150%_))) + (_%obj-klass103156%_ + (let () (declare (not safe)) (class-of _%obj103146%_))) + (_%obj-klass-id103159%_ + (let () (declare (not safe)) (##type-id _%obj-klass103156%_)))) (if (let () (declare (not safe)) - (##eq? _%klass-id102879%_ _%obj-klass-id102885%_)) - _%obj102872%_ - (if (interface-subclass? _%obj-klass102882%_) + (##eq? _%klass-id103153%_ _%obj-klass-id103159%_)) + _%obj103146%_ + (if (interface-subclass? _%obj-klass103156%_) (try-cast - _%descriptor102870%_ + _%descriptor103144%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%obj102872%_ '1 '#f '#f))) + (##unchecked-structure-ref _%obj103146%_ '1 '#f '#f))) (let () (let () (declare (not interrupts-enabled)) - (let _%again102894%_ () - (if (let ((__tmp103595 + (let _%again103168%_ () + (if (let ((__tmp103869 (let () (declare (not safe)) (##vector-cas! @@ -1147,29 +1147,29 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp103595 '0)) + (##fx= __tmp103869 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again102894%_))))) + (_%again103168%_))))) (let () (declare (not safe)) (##set-car! __interface-prototypes-key - _%klass-id102879%_)) + _%klass-id103153%_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _%obj-klass-id102885%_)) - (let ((_%prototype102905%_ - (let ((_%$e102898%_ + _%obj-klass-id103159%_)) + (let ((_%prototype103179%_ + (let ((_%$e103172%_ (prototype-table-ref __interface-prototypes __interface-prototypes-key '#f))) - (if _%$e102898%_ - ((lambda (_%prototype102901%_) + (if _%$e103172%_ + ((lambda (_%prototype103175%_) (let () (declare (not safe)) (##vector-cas! @@ -1177,8 +1177,8 @@ '0 '0 '1)) - _%prototype102901%_) - _%$e102898%_) + _%prototype103175%_) + _%$e103172%_) (let () (let () (declare (not safe)) @@ -1188,55 +1188,55 @@ '0 '1)) (try-create-prototype - _%descriptor102870%_ - _%klass102876%_ - _%obj-klass102882%_)))))) - ((lambda (_%prototype102907%_ _%obj102908%_) - (if _%prototype102907%_ - (let ((_%instance102910%_ + _%descriptor103144%_ + _%klass103150%_ + _%obj-klass103156%_)))))) + ((lambda (_%prototype103181%_ _%obj103182%_) + (if _%prototype103181%_ + (let ((_%instance103184%_ (let () (declare (not safe)) - (##structure-copy _%prototype102907%_)))) + (##structure-copy _%prototype103181%_)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%instance102910%_ - _%obj102908%_ + _%instance103184%_ + _%obj103182%_ '1 '#f 'cast)) - _%instance102910%_) + _%instance103184%_) '#f)) - _%prototype102905%_ - _%obj102872%_)))))))) + _%prototype103179%_ + _%obj103146%_)))))))) (define satisfies? - (lambda (_%descriptor102830%_ _%obj102832%_) + (lambda (_%descriptor103104%_ _%obj103106%_) (declare (not interrupts-enabled)) - (let* ((_%klass102836%_ + (let* ((_%klass103110%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%descriptor102830%_ '1 '#f '#f))) - (_%klass-id102839%_ - (let () (declare (not safe)) (##type-id _%klass102836%_))) - (_%obj-klass102842%_ - (let () (declare (not safe)) (class-of _%obj102832%_))) - (_%obj-klass-id102845%_ - (let () (declare (not safe)) (##type-id _%obj-klass102842%_)))) + (##unchecked-structure-ref _%descriptor103104%_ '1 '#f '#f))) + (_%klass-id103113%_ + (let () (declare (not safe)) (##type-id _%klass103110%_))) + (_%obj-klass103116%_ + (let () (declare (not safe)) (class-of _%obj103106%_))) + (_%obj-klass-id103119%_ + (let () (declare (not safe)) (##type-id _%obj-klass103116%_)))) (if (let () (declare (not safe)) - (##eq? _%klass-id102839%_ _%obj-klass-id102845%_)) - _%obj102832%_ - (if (interface-subclass? _%obj-klass102842%_) + (##eq? _%klass-id103113%_ _%obj-klass-id103119%_)) + _%obj103106%_ + (if (interface-subclass? _%obj-klass103116%_) (satisfies? - _%descriptor102830%_ + _%descriptor103104%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%obj102832%_ '1 '#f '#f))) + (##unchecked-structure-ref _%obj103106%_ '1 '#f '#f))) (let () (let () (declare (not interrupts-enabled)) - (let _%again102854%_ () - (if (let ((__tmp103596 + (let _%again103128%_ () + (if (let ((__tmp103870 (let () (declare (not safe)) (##vector-cas! @@ -1245,29 +1245,29 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp103596 '0)) + (##fx= __tmp103870 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again102854%_))))) + (_%again103128%_))))) (let () (declare (not safe)) (##set-car! __interface-prototypes-key - _%klass-id102839%_)) + _%klass-id103113%_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _%obj-klass-id102845%_)) - (let ((_%prototype102865%_ - (let ((_%$e102858%_ + _%obj-klass-id103119%_)) + (let ((_%prototype103139%_ + (let ((_%$e103132%_ (prototype-table-ref __interface-prototypes __interface-prototypes-key '#f))) - (if _%$e102858%_ - ((lambda (_%prototype102861%_) + (if _%$e103132%_ + ((lambda (_%prototype103135%_) (let () (declare (not safe)) (##vector-cas! @@ -1275,8 +1275,8 @@ '0 '0 '1)) - _%prototype102861%_) - _%$e102858%_) + _%prototype103135%_) + _%$e103132%_) (let () (let () (declare (not safe)) @@ -1286,10 +1286,10 @@ '0 '1)) (try-create-prototype - _%descriptor102830%_ - _%klass102836%_ - _%obj-klass102842%_)))))) - ((lambda (_%prototype102867%_ _%obj102868%_) - (if _%prototype102867%_ '#t '#f)) - _%prototype102865%_ - _%obj102832%_)))))))))) + _%descriptor103104%_ + _%klass103110%_ + _%obj-klass103116%_)))))) + ((lambda (_%prototype103141%_ _%obj103142%_) + (if _%prototype103141%_ '#t '#f)) + _%prototype103139%_ + _%obj103106%_)))))))))) diff --git a/src/bootstrap/gerbil/runtime/interface~1.scm b/src/bootstrap/gerbil/runtime/interface~1.scm index fc75856ce..2c41dfd94 100644 --- a/src/bootstrap/gerbil/runtime/interface~1.scm +++ b/src/bootstrap/gerbil/runtime/interface~1.scm @@ -1,216 +1,216 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g103598_| + (define |[1]#_g103872_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g103600_| + (define |[1]#_g103874_| (##structure gx#syntax-quote::t 'CastError::t #f (gx#current-expander-context) '())) - (define |[1]#_g103602_| + (define |[1]#_g103876_| (##structure gx#syntax-quote::t 'make-CastError #f (gx#current-expander-context) '())) - (define |[1]#_g103604_| + (define |[1]#_g103878_| (##structure gx#syntax-quote::t 'CastError? #f (gx#current-expander-context) '())) - (define |[1]#_g103606_| + (define |[1]#_g103880_| (##structure gx#syntax-quote::t 'CastError-message #f (gx#current-expander-context) '())) - (define |[1]#_g103607_| + (define |[1]#_g103881_| (##structure gx#syntax-quote::t 'CastError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g103608_| + (define |[1]#_g103882_| (##structure gx#syntax-quote::t 'CastError-where #f (gx#current-expander-context) '())) - (define |[1]#_g103609_| + (define |[1]#_g103883_| (##structure gx#syntax-quote::t 'CastError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g103611_| + (define |[1]#_g103885_| (##structure gx#syntax-quote::t 'CastError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103612_| + (define |[1]#_g103886_| (##structure gx#syntax-quote::t 'CastError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103613_| + (define |[1]#_g103887_| (##structure gx#syntax-quote::t 'CastError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103614_| + (define |[1]#_g103888_| (##structure gx#syntax-quote::t 'CastError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103616_| + (define |[1]#_g103890_| (##structure gx#syntax-quote::t '&CastError-message #f (gx#current-expander-context) '())) - (define |[1]#_g103617_| + (define |[1]#_g103891_| (##structure gx#syntax-quote::t '&CastError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g103618_| + (define |[1]#_g103892_| (##structure gx#syntax-quote::t '&CastError-where #f (gx#current-expander-context) '())) - (define |[1]#_g103619_| + (define |[1]#_g103893_| (##structure gx#syntax-quote::t '&CastError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g103621_| + (define |[1]#_g103895_| (##structure gx#syntax-quote::t '&CastError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103622_| + (define |[1]#_g103896_| (##structure gx#syntax-quote::t '&CastError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103623_| + (define |[1]#_g103897_| (##structure gx#syntax-quote::t '&CastError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103624_| + (define |[1]#_g103898_| (##structure gx#syntax-quote::t '&CastError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103626_| + (define |[1]#_g103900_| (##structure gx#syntax-quote::t 'interface-descriptor::t #f (gx#current-expander-context) '())) - (define |[1]#_g103628_| + (define |[1]#_g103902_| (##structure gx#syntax-quote::t 'make-interface-descriptor #f (gx#current-expander-context) '())) - (define |[1]#_g103630_| + (define |[1]#_g103904_| (##structure gx#syntax-quote::t 'interface-descriptor? #f (gx#current-expander-context) '())) - (define |[1]#_g103632_| + (define |[1]#_g103906_| (##structure gx#syntax-quote::t 'interface-descriptor-type #f (gx#current-expander-context) '())) - (define |[1]#_g103633_| + (define |[1]#_g103907_| (##structure gx#syntax-quote::t 'interface-descriptor-methods #f (gx#current-expander-context) '())) - (define |[1]#_g103635_| + (define |[1]#_g103909_| (##structure gx#syntax-quote::t 'interface-descriptor-type-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103636_| + (define |[1]#_g103910_| (##structure gx#syntax-quote::t 'interface-descriptor-methods-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103638_| + (define |[1]#_g103912_| (##structure gx#syntax-quote::t '&interface-descriptor-type #f (gx#current-expander-context) '())) - (define |[1]#_g103639_| + (define |[1]#_g103913_| (##structure gx#syntax-quote::t '&interface-descriptor-methods #f (gx#current-expander-context) '())) - (define |[1]#_g103641_| + (define |[1]#_g103915_| (##structure gx#syntax-quote::t '&interface-descriptor-type-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103642_| + (define |[1]#_g103916_| (##structure gx#syntax-quote::t '&interface-descriptor-methods-set! @@ -219,7 +219,7 @@ '())) (begin (define |[:0:]#CastError| - (let ((__obj103547 + (let ((__obj103821 (let () (declare (not safe)) (##structure @@ -248,93 +248,93 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103547 + __obj103821 'gerbil/runtime/interface#CastError::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103547 'CastError '2 '#f '#f)) + (##unchecked-structure-set! __obj103821 'CastError '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103547 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj103821 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103547 + __obj103821 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp103597 (cons |[1]#_g103598_| '()))) + (let ((__tmp103871 (cons |[1]#_g103872_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj103547 __tmp103597 '3 '#f '#f)) + (##unchecked-structure-set! __obj103821 __tmp103871 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103547 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj103821 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103547 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj103821 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103547 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj103821 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103547 ':init! '11 '#f '#f)) - (let ((__tmp103599 |[1]#_g103600_|)) + (##unchecked-structure-set! __obj103821 ':init! '11 '#f '#f)) + (let ((__tmp103873 |[1]#_g103874_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103547 __tmp103599 '12 '#f '#f)) - (let ((__tmp103601 |[1]#_g103602_|)) + (##unchecked-structure-set! __obj103821 __tmp103873 '12 '#f '#f)) + (let ((__tmp103875 |[1]#_g103876_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103547 __tmp103601 '13 '#f '#f)) - (let ((__tmp103603 |[1]#_g103604_|)) + (##unchecked-structure-set! __obj103821 __tmp103875 '13 '#f '#f)) + (let ((__tmp103877 |[1]#_g103878_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103547 __tmp103603 '14 '#f '#f)) - (let ((__tmp103605 - (cons (cons 'message |[1]#_g103606_|) - (cons (cons 'irritants |[1]#_g103607_|) - (cons (cons 'where |[1]#_g103608_|) - (cons (cons 'continuation |[1]#_g103609_|) + (##unchecked-structure-set! __obj103821 __tmp103877 '14 '#f '#f)) + (let ((__tmp103879 + (cons (cons 'message |[1]#_g103880_|) + (cons (cons 'irritants |[1]#_g103881_|) + (cons (cons 'where |[1]#_g103882_|) + (cons (cons 'continuation |[1]#_g103883_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj103547 __tmp103605 '15 '#f '#f)) - (let ((__tmp103610 - (cons (cons 'message |[1]#_g103611_|) - (cons (cons 'irritants |[1]#_g103612_|) - (cons (cons 'where |[1]#_g103613_|) - (cons (cons 'continuation |[1]#_g103614_|) + (##unchecked-structure-set! __obj103821 __tmp103879 '15 '#f '#f)) + (let ((__tmp103884 + (cons (cons 'message |[1]#_g103885_|) + (cons (cons 'irritants |[1]#_g103886_|) + (cons (cons 'where |[1]#_g103887_|) + (cons (cons 'continuation |[1]#_g103888_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj103547 __tmp103610 '16 '#f '#f)) - (let ((__tmp103615 - (cons (cons 'message |[1]#_g103616_|) - (cons (cons 'irritants |[1]#_g103617_|) - (cons (cons 'where |[1]#_g103618_|) - (cons (cons 'continuation |[1]#_g103619_|) + (##unchecked-structure-set! __obj103821 __tmp103884 '16 '#f '#f)) + (let ((__tmp103889 + (cons (cons 'message |[1]#_g103890_|) + (cons (cons 'irritants |[1]#_g103891_|) + (cons (cons 'where |[1]#_g103892_|) + (cons (cons 'continuation |[1]#_g103893_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj103547 __tmp103615 '17 '#f '#f)) - (let ((__tmp103620 - (cons (cons 'message |[1]#_g103621_|) - (cons (cons 'irritants |[1]#_g103622_|) - (cons (cons 'where |[1]#_g103623_|) - (cons (cons 'continuation |[1]#_g103624_|) + (##unchecked-structure-set! __obj103821 __tmp103889 '17 '#f '#f)) + (let ((__tmp103894 + (cons (cons 'message |[1]#_g103895_|) + (cons (cons 'irritants |[1]#_g103896_|) + (cons (cons 'where |[1]#_g103897_|) + (cons (cons 'continuation |[1]#_g103898_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj103547 __tmp103620 '18 '#f '#f)) + (##unchecked-structure-set! __obj103821 __tmp103894 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103547 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj103821 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103547 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj103821 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103547 '() '20 '#f '#f)) - __obj103547)) + (##unchecked-structure-set! __obj103821 '() '20 '#f '#f)) + __obj103821)) (define |[:0:]#interface-descriptor| - (let ((__obj103549 + (let ((__obj103823 (let () (declare (not safe)) (##structure @@ -363,7 +363,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103549 + __obj103823 'gerbil/runtime/interface#interface-descriptor::t '1 '#f @@ -371,157 +371,157 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103549 + __obj103823 'interface-descriptor '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103549 '(type methods) '4 '#f '#f)) + (##unchecked-structure-set! __obj103823 '(type methods) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103549 '(type methods) '6 '#f '#f)) + (##unchecked-structure-set! __obj103823 '(type methods) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103549 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj103823 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103549 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj103823 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103549 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj103823 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103549 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj103823 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103549 '#f '11 '#f '#f)) - (let ((__tmp103625 |[1]#_g103626_|)) + (##unchecked-structure-set! __obj103823 '#f '11 '#f '#f)) + (let ((__tmp103899 |[1]#_g103900_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103549 __tmp103625 '12 '#f '#f)) - (let ((__tmp103627 |[1]#_g103628_|)) + (##unchecked-structure-set! __obj103823 __tmp103899 '12 '#f '#f)) + (let ((__tmp103901 |[1]#_g103902_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103549 __tmp103627 '13 '#f '#f)) - (let ((__tmp103629 |[1]#_g103630_|)) + (##unchecked-structure-set! __obj103823 __tmp103901 '13 '#f '#f)) + (let ((__tmp103903 |[1]#_g103904_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103549 __tmp103629 '14 '#f '#f)) - (let ((__tmp103631 - (cons (cons 'type |[1]#_g103632_|) - (cons (cons 'methods |[1]#_g103633_|) '())))) + (##unchecked-structure-set! __obj103823 __tmp103903 '14 '#f '#f)) + (let ((__tmp103905 + (cons (cons 'type |[1]#_g103906_|) + (cons (cons 'methods |[1]#_g103907_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj103549 __tmp103631 '15 '#f '#f)) - (let ((__tmp103634 - (cons (cons 'type |[1]#_g103635_|) - (cons (cons 'methods |[1]#_g103636_|) '())))) + (##unchecked-structure-set! __obj103823 __tmp103905 '15 '#f '#f)) + (let ((__tmp103908 + (cons (cons 'type |[1]#_g103909_|) + (cons (cons 'methods |[1]#_g103910_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj103549 __tmp103634 '16 '#f '#f)) - (let ((__tmp103637 - (cons (cons 'type |[1]#_g103638_|) - (cons (cons 'methods |[1]#_g103639_|) '())))) + (##unchecked-structure-set! __obj103823 __tmp103908 '16 '#f '#f)) + (let ((__tmp103911 + (cons (cons 'type |[1]#_g103912_|) + (cons (cons 'methods |[1]#_g103913_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj103549 __tmp103637 '17 '#f '#f)) - (let ((__tmp103640 - (cons (cons 'type |[1]#_g103641_|) - (cons (cons 'methods |[1]#_g103642_|) '())))) + (##unchecked-structure-set! __obj103823 __tmp103911 '17 '#f '#f)) + (let ((__tmp103914 + (cons (cons 'type |[1]#_g103915_|) + (cons (cons 'methods |[1]#_g103916_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj103549 __tmp103640 '18 '#f '#f)) + (##unchecked-structure-set! __obj103823 __tmp103914 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103549 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj103823 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103549 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj103823 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103549 '() '20 '#f '#f)) - __obj103549)) + (##unchecked-structure-set! __obj103823 '() '20 '#f '#f)) + __obj103823)) (define |[:0:]#do-create-prototype| - (lambda (_%$stx102595%_) - (let* ((_%g102599102629%_ - (lambda (_%g102600102625%_) + (lambda (_%$stx102869%_) + (let* ((_%g102873102903%_ + (lambda (_%g102874102899%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g102600102625%_))) - (_%g102598102727%_ - (lambda (_%g102600102633%_) - (if (gx#stx-pair? _%g102600102633%_) - (let ((_%e102606102636%_ - (gx#syntax-e _%g102600102633%_))) - (let ((_%hd102607102640%_ + _%g102874102899%_))) + (_%g102872103001%_ + (lambda (_%g102874102907%_) + (if (gx#stx-pair? _%g102874102907%_) + (let ((_%e102880102910%_ + (gx#syntax-e _%g102874102907%_))) + (let ((_%hd102881102914%_ (let () (declare (not safe)) - (##car _%e102606102636%_))) - (_%tl102608102643%_ + (##car _%e102880102910%_))) + (_%tl102882102917%_ (let () (declare (not safe)) - (##cdr _%e102606102636%_)))) - (if (gx#stx-pair? _%tl102608102643%_) - (let ((_%e102609102646%_ - (gx#syntax-e _%tl102608102643%_))) - (let ((_%hd102610102650%_ + (##cdr _%e102880102910%_)))) + (if (gx#stx-pair? _%tl102882102917%_) + (let ((_%e102883102920%_ + (gx#syntax-e _%tl102882102917%_))) + (let ((_%hd102884102924%_ (let () (declare (not safe)) - (##car _%e102609102646%_))) - (_%tl102611102653%_ + (##car _%e102883102920%_))) + (_%tl102885102927%_ (let () (declare (not safe)) - (##cdr _%e102609102646%_)))) - (if (gx#stx-pair? _%tl102611102653%_) - (let ((_%e102612102656%_ - (gx#syntax-e _%tl102611102653%_))) - (let ((_%hd102613102660%_ + (##cdr _%e102883102920%_)))) + (if (gx#stx-pair? _%tl102885102927%_) + (let ((_%e102886102930%_ + (gx#syntax-e _%tl102885102927%_))) + (let ((_%hd102887102934%_ (let () (declare (not safe)) - (##car _%e102612102656%_))) - (_%tl102614102663%_ + (##car _%e102886102930%_))) + (_%tl102888102937%_ (let () (declare (not safe)) - (##cdr _%e102612102656%_)))) - (if (gx#stx-pair? _%tl102614102663%_) - (let ((_%e102615102666%_ + (##cdr _%e102886102930%_)))) + (if (gx#stx-pair? _%tl102888102937%_) + (let ((_%e102889102940%_ (gx#syntax-e - _%tl102614102663%_))) - (let ((_%hd102616102670%_ + _%tl102888102937%_))) + (let ((_%hd102890102944%_ (let () (declare (not safe)) - (##car _%e102615102666%_))) - (_%tl102617102673%_ + (##car _%e102889102940%_))) + (_%tl102891102947%_ (let () (declare (not safe)) - (##cdr _%e102615102666%_)))) + (##cdr _%e102889102940%_)))) (if (gx#stx-pair? - _%tl102617102673%_) - (let ((_%e102618102676%_ + _%tl102891102947%_) + (let ((_%e102892102950%_ (gx#syntax-e - _%tl102617102673%_))) - (let ((_%hd102619102680%_ + _%tl102891102947%_))) + (let ((_%hd102893102954%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e102618102676%_))) - (_%tl102620102683%_ + (##car _%e102892102950%_))) + (_%tl102894102957%_ (let () (declare (not safe)) - (##cdr _%e102618102676%_)))) - (if (gx#stx-pair? _%tl102620102683%_) - (let ((_%e102621102686%_ - (gx#syntax-e _%tl102620102683%_))) - (let ((_%hd102622102690%_ + (##cdr _%e102892102950%_)))) + (if (gx#stx-pair? _%tl102894102957%_) + (let ((_%e102895102960%_ + (gx#syntax-e _%tl102894102957%_))) + (let ((_%hd102896102964%_ (let () (declare (not safe)) - (##car _%e102621102686%_))) - (_%tl102623102693%_ + (##car _%e102895102960%_))) + (_%tl102897102967%_ (let () (declare (not safe)) - (##cdr _%e102621102686%_)))) - (if (gx#stx-null? _%tl102623102693%_) - ((lambda (_%L102696%_ - _%L102698%_ - _%L102699%_ - _%L102700%_ - _%L102701%_) + (##cdr _%e102895102960%_)))) + (if (gx#stx-null? _%tl102897102967%_) + ((lambda (_%L102970%_ + _%L102972%_ + _%L102973%_ + _%L102974%_ + _%L102975%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f @@ -529,7 +529,7 @@ (cons (cons (gx#datum->syntax '#f 'specialize-class) - (cons _%L102699%_ + (cons _%L102973%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) @@ -547,7 +547,7 @@ (cons (cons (gx#datum->syntax '#f '&interface-descriptor-methods) - (cons _%L102701%_ '())) + (cons _%L102975%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'count) (cons '0 '())) @@ -613,10 +613,10 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'else) - (cons (cons _%L102696%_ - (cons _%L102700%_ + (cons (cons _%L102970%_ + (cons _%L102974%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L102699%_ + (cons _%L102973%_ (cons (gx#datum->syntax '#f 'method-name) '())))) '())) @@ -635,7 +635,7 @@ (cons (cons (gx#datum->syntax '#f 'make-object) - (cons _%L102700%_ + (cons _%L102974%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '##fx+) (cons (gx#datum->syntax '#f 'count) @@ -679,7 +679,7 @@ (cons (gx#datum->syntax '#f 'prototype) (cons (gx#datum->syntax '#f 'method) (cons (gx#datum->syntax '#f 'off) - (cons _%L102700%_ + (cons _%L102974%_ (cons '#f '())))))) (cons (cons (gx#datum->syntax '#f 'loop) (cons (gx#datum->syntax '#f 'rest) @@ -710,9 +710,9 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##type-id) - (cons _%L102700%_ '())) + (cons _%L102974%_ '())) (cons (cons (gx#datum->syntax '#f '##type-id) - (cons _%L102699%_ '())) + (cons _%L102973%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -741,7 +741,7 @@ '#f '__interface-prototypes-mx) '())) - (cons (cons _%L102698%_ + (cons (cons _%L102972%_ (cons (gx#datum->syntax '#f 'prototype) '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -757,85 +757,85 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd102622102690%_ - _%hd102619102680%_ - _%hd102616102670%_ - _%hd102613102660%_ - _%hd102610102650%_) - (_%g102599102629%_ _%g102600102633%_)))) - (_%g102599102629%_ _%g102600102633%_)))) - (_%g102599102629%_ _%g102600102633%_)))) + _%hd102896102964%_ + _%hd102893102954%_ + _%hd102890102944%_ + _%hd102887102934%_ + _%hd102884102924%_) + (_%g102873102903%_ _%g102874102907%_)))) + (_%g102873102903%_ _%g102874102907%_)))) + (_%g102873102903%_ _%g102874102907%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g102599102629%_ - _%g102600102633%_)))) - (_%g102599102629%_ _%g102600102633%_)))) - (_%g102599102629%_ _%g102600102633%_)))) - (_%g102599102629%_ _%g102600102633%_))))) - (_%g102598102727%_ _%$stx102595%_)))) + (_%g102873102903%_ + _%g102874102907%_)))) + (_%g102873102903%_ _%g102874102907%_)))) + (_%g102873102903%_ _%g102874102907%_)))) + (_%g102873102903%_ _%g102874102907%_))))) + (_%g102872103001%_ _%$stx102869%_)))) (define |[:0:]#defcast| - (lambda (_%$stx102731%_) - (let* ((_%g102735102757%_ - (lambda (_%g102736102753%_) + (lambda (_%$stx103005%_) + (let* ((_%g103009103031%_ + (lambda (_%g103010103027%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g102736102753%_))) - (_%g102734102826%_ - (lambda (_%g102736102761%_) - (if (gx#stx-pair? _%g102736102761%_) - (let ((_%e102740102764%_ - (gx#syntax-e _%g102736102761%_))) - (let ((_%hd102741102768%_ + _%g103010103027%_))) + (_%g103008103100%_ + (lambda (_%g103010103035%_) + (if (gx#stx-pair? _%g103010103035%_) + (let ((_%e103014103038%_ + (gx#syntax-e _%g103010103035%_))) + (let ((_%hd103015103042%_ (let () (declare (not safe)) - (##car _%e102740102764%_))) - (_%tl102742102771%_ + (##car _%e103014103038%_))) + (_%tl103016103045%_ (let () (declare (not safe)) - (##cdr _%e102740102764%_)))) - (if (gx#stx-pair? _%tl102742102771%_) - (let ((_%e102743102774%_ - (gx#syntax-e _%tl102742102771%_))) - (let ((_%hd102744102778%_ + (##cdr _%e103014103038%_)))) + (if (gx#stx-pair? _%tl103016103045%_) + (let ((_%e103017103048%_ + (gx#syntax-e _%tl103016103045%_))) + (let ((_%hd103018103052%_ (let () (declare (not safe)) - (##car _%e102743102774%_))) - (_%tl102745102781%_ + (##car _%e103017103048%_))) + (_%tl103019103055%_ (let () (declare (not safe)) - (##cdr _%e102743102774%_)))) - (if (gx#stx-pair? _%tl102745102781%_) - (let ((_%e102746102784%_ - (gx#syntax-e _%tl102745102781%_))) - (let ((_%hd102747102788%_ + (##cdr _%e103017103048%_)))) + (if (gx#stx-pair? _%tl103019103055%_) + (let ((_%e103020103058%_ + (gx#syntax-e _%tl103019103055%_))) + (let ((_%hd103021103062%_ (let () (declare (not safe)) - (##car _%e102746102784%_))) - (_%tl102748102791%_ + (##car _%e103020103058%_))) + (_%tl103022103065%_ (let () (declare (not safe)) - (##cdr _%e102746102784%_)))) - (if (gx#stx-pair? _%tl102748102791%_) - (let ((_%e102749102794%_ + (##cdr _%e103020103058%_)))) + (if (gx#stx-pair? _%tl103022103065%_) + (let ((_%e103023103068%_ (gx#syntax-e - _%tl102748102791%_))) - (let ((_%hd102750102798%_ + _%tl103022103065%_))) + (let ((_%hd103024103072%_ (let () (declare (not safe)) - (##car _%e102749102794%_))) - (_%tl102751102801%_ + (##car _%e103023103068%_))) + (_%tl103025103075%_ (let () (declare (not safe)) - (##cdr _%e102749102794%_)))) + (##cdr _%e103023103068%_)))) (if (gx#stx-null? - _%tl102751102801%_) - ((lambda (_%L102804%_ - _%L102806%_ - _%L102807%_) + _%tl103025103075%_) + ((lambda (_%L103078%_ + _%L103080%_ + _%L103081%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L102807%_ + (cons (cons _%L103081%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'descriptor) (cons (gx#datum->syntax '#f 'obj) @@ -905,7 +905,7 @@ '#f 'obj-klass) '())) - (cons (cons _%L102807%_ + (cons (cons _%L103081%_ (cons (gx#datum->syntax '#f 'descriptor) @@ -982,7 +982,7 @@ '#f '__interface-prototypes-mx) '())) - (cons (cons _%L102806%_ + (cons (cons _%L103080%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -994,7 +994,7 @@ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L102804%_ + (cons (cons _%L103078%_ (cons (gx#datum->syntax '#f 'prototype) @@ -1011,14 +1011,14 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%hd102750102798%_ - _%hd102747102788%_ - _%hd102744102778%_) - (_%g102735102757%_ _%g102736102761%_)))) + _%hd103024103072%_ + _%hd103021103062%_ + _%hd103018103052%_) + (_%g103009103031%_ _%g103010103035%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g102735102757%_ - _%g102736102761%_)))) - (_%g102735102757%_ _%g102736102761%_)))) - (_%g102735102757%_ _%g102736102761%_)))) - (_%g102735102757%_ _%g102736102761%_))))) - (_%g102734102826%_ _%$stx102731%_)))))) + (_%g103009103031%_ + _%g103010103035%_)))) + (_%g103009103031%_ _%g103010103035%_)))) + (_%g103009103031%_ _%g103010103035%_)))) + (_%g103009103031%_ _%g103010103035%_))))) + (_%g103008103100%_ _%$stx103005%_)))))) diff --git a/src/bootstrap/gerbil/runtime/loader~0.scm b/src/bootstrap/gerbil/runtime/loader~0.scm index 7bf80d76b..b0c6eec10 100644 --- a/src/bootstrap/gerbil/runtime/loader~0.scm +++ b/src/bootstrap/gerbil/runtime/loader~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/loader::timestamp 1713044315) + (define gerbil/runtime/loader::timestamp 1713454410) (begin (define __modules (let () @@ -20,24 +20,24 @@ (define __load-path '()) (define load-path (lambda () __load-path)) (define add-load-path! - (lambda _%paths113763%_ - (if (let () (declare (not safe)) (__andmap1 string? _%paths113763%_)) + (lambda _%paths114037%_ + (if (let () (declare (not safe)) (__andmap1 string? _%paths114037%_)) '#!void (let () (declare (not safe)) (error '"bad load path; expected list of paths" - _%paths113763%_))) - (let ((__tmp113769 - (lambda (_%p113765%_) - (set! __load-path (cons _%p113765%_ __load-path)))) - (__tmp113768 (reverse! _%paths113763%_))) + _%paths114037%_))) + (let ((__tmp114043 + (lambda (_%p114039%_) + (set! __load-path (cons _%p114039%_ __load-path)))) + (__tmp114042 (reverse! _%paths114037%_))) (declare (not safe)) - (##for-each __tmp113769 __tmp113768)))) + (##for-each __tmp114043 __tmp114042)))) (define set-load-path! - (lambda (_%paths113749%_) - (if (list? _%paths113749%_) - (let ((_%paths113753%_ _%paths113749%_)) - (__set-load-path! _%paths113753%_)) + (lambda (_%paths114023%_) + (if (list? _%paths114023%_) + (let ((_%paths114027%_ _%paths114023%_)) + (__set-load-path! _%paths114027%_)) (begin (raise-contract-violation-error '"contract violation" @@ -46,23 +46,23 @@ 'contract: 'list? 'value: - _%paths113749%_) + _%paths114023%_) '#!void)))) (define __set-load-path! - (lambda (_%paths113737%_) - (let ((_%paths113740%_ _%paths113737%_)) - (if (let () (declare (not safe)) (__andmap1 string? _%paths113740%_)) + (lambda (_%paths114011%_) + (let ((_%paths114014%_ _%paths114011%_)) + (if (let () (declare (not safe)) (__andmap1 string? _%paths114014%_)) '#!void (let () (declare (not safe)) (error '"bad load path; expected list of paths" - _%paths113740%_))) - (set! __load-path _%paths113740%_)))) + _%paths114014%_))) + (set! __load-path _%paths114014%_)))) (define load-module - (lambda (_%modpath113723%_) - (if (string? _%modpath113723%_) - (let ((_%modpath113727%_ _%modpath113723%_)) - (__load-module _%modpath113727%_)) + (lambda (_%modpath113997%_) + (if (string? _%modpath113997%_) + (let ((_%modpath114001%_ _%modpath113997%_)) + (__load-module _%modpath114001%_)) (begin (raise-contract-violation-error '"contract violation" @@ -71,93 +71,93 @@ 'contract: 'string? 'value: - _%modpath113723%_) + _%modpath113997%_) '#!void)))) (define __load-module - (lambda (_%modpath113688%_) - (let ((_%modpath113691%_ _%modpath113688%_)) + (lambda (_%modpath113962%_) + (let ((_%modpath113965%_ _%modpath113962%_)) (mutex-lock! __load-mx) - (let ((_%$e113700%_ + (let ((_%$e113974%_ (let () (declare (not safe)) - (__hash-get __modules _%modpath113691%_)))) - (if _%$e113700%_ - ((lambda (_%state113703%_) - (if (or (eq? 'builtin _%state113703%_) - (string? _%state113703%_)) - (let () (mutex-unlock! __load-mx) _%state113703%_) - (if (eq? 'loading _%state113703%_) + (__hash-get __modules _%modpath113965%_)))) + (if _%$e113974%_ + ((lambda (_%state113977%_) + (if (or (eq? 'builtin _%state113977%_) + (string? _%state113977%_)) + (let () (mutex-unlock! __load-mx) _%state113977%_) + (if (eq? 'loading _%state113977%_) (let () (mutex-unlock! __load-mx __load-cv) - (__load-module _%modpath113691%_)) - (if (and (pair? _%state113703%_) + (__load-module _%modpath113965%_)) + (if (and (pair? _%state113977%_) (eq? (let () (declare (not safe)) - (##car _%state113703%_)) + (##car _%state113977%_)) 'error)) (let () (mutex-unlock! __load-mx) - (let ((__tmp113770 (cadr _%state113703%_))) + (let ((__tmp114044 (cadr _%state113977%_))) (declare (not safe)) - (raise __tmp113770))) + (raise __tmp114044))) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"inernal error; unexpected loading state" - _%state113703%_))))))) - _%$e113700%_) - (let ((_%$e113712%_ (__find-library-module _%modpath113691%_))) - (if _%$e113712%_ - ((lambda (_%path113715%_) + _%state113977%_))))))) + _%$e113974%_) + (let ((_%$e113986%_ (__find-library-module _%modpath113965%_))) + (if _%$e113986%_ + ((lambda (_%path113989%_) (let () (declare (not safe)) - (__hash-put! __modules _%modpath113691%_ 'loading)) + (__hash-put! __modules _%modpath113965%_ 'loading)) (mutex-unlock! __load-mx) - (let ((__tmp113772 - (lambda (_%exn113717%_) + (let ((__tmp114046 + (lambda (_%exn113991%_) (mutex-lock! __load-mx) - (let ((__tmp113773 + (let ((__tmp114047 (cons 'error - (cons _%exn113717%_ '())))) + (cons _%exn113991%_ '())))) (declare (not safe)) (__hash-put! __modules - _%modpath113691%_ - __tmp113773)) + _%modpath113965%_ + __tmp114047)) (condition-variable-broadcast! __load-cv) (mutex-unlock! __load-mx) (let () (declare (not safe)) - (raise _%exn113717%_)))) - (__tmp113771 + (raise _%exn113991%_)))) + (__tmp114045 (lambda () - (let ((_%loaded-path113720%_ - (load _%path113715%_))) + (let ((_%loaded-path113994%_ + (load _%path113989%_))) (mutex-lock! __load-mx) (let () (declare (not safe)) (__hash-put! __modules - _%modpath113691%_ - _%loaded-path113720%_)) + _%modpath113965%_ + _%loaded-path113994%_)) (condition-variable-broadcast! __load-cv) (mutex-unlock! __load-mx) - _%loaded-path113720%_)))) + _%loaded-path113994%_)))) (declare (not safe)) - (__with-catch __tmp113772 __tmp113771))) - _%$e113712%_) + (__with-catch __tmp114046 __tmp114045))) + _%$e113986%_) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"module not found" - _%modpath113691%_)))))))))) + _%modpath113965%_)))))))))) (define reload-module! - (lambda (_%modpath113674%_) - (if (string? _%modpath113674%_) - (let ((_%modpath113678%_ _%modpath113674%_)) - (__reload-module! _%modpath113678%_)) + (lambda (_%modpath113948%_) + (if (string? _%modpath113948%_) + (let ((_%modpath113952%_ _%modpath113948%_)) + (__reload-module! _%modpath113952%_)) (begin (raise-contract-violation-error '"contract violation" @@ -166,138 +166,138 @@ 'contract: 'string? 'value: - _%modpath113674%_) + _%modpath113948%_) '#!void)))) (define __reload-module! - (lambda (_%modpath113645%_) - (let ((_%modpath113648%_ _%modpath113645%_)) + (lambda (_%modpath113919%_) + (let ((_%modpath113922%_ _%modpath113919%_)) (mutex-lock! __load-mx) - (let ((_%$e113658%_ + (let ((_%$e113932%_ (let () (declare (not safe)) - (__hash-get __modules _%modpath113648%_)))) - (if _%$e113658%_ - ((lambda (_%state113661%_) - (if (eq? _%state113661%_ 'builtin) + (__hash-get __modules _%modpath113922%_)))) + (if _%$e113932%_ + ((lambda (_%state113935%_) + (if (eq? _%state113935%_ 'builtin) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"cannot reload builtin module" - _%modpath113648%_))) - (if (eq? 'loading _%state113661%_) + _%modpath113922%_))) + (if (eq? 'loading _%state113935%_) (let () (mutex-unlock! __load-mx __load-cv) (let () (declare (not safe)) (error '"module is still loading"))) - (if (string? _%state113661%_) - (let ((_%latest-path113666%_ + (if (string? _%state113935%_) + (let ((_%latest-path113940%_ (__find-library-module - _%modpath113648%_))) + _%modpath113922%_))) (if (or (equal? (path-extension - _%state113661%_) + _%state113935%_) '".scm") - (not (equal? _%state113661%_ - _%latest-path113666%_))) + (not (equal? _%state113935%_ + _%latest-path113940%_))) (begin (let () (declare (not safe)) (__hash-remove! __modules - _%modpath113648%_)) + _%modpath113922%_)) (mutex-unlock! __load-mx) - (__load-module _%modpath113648%_)) + (__load-module _%modpath113922%_)) '#!void)) - (if (and (pair? _%state113661%_) + (if (and (pair? _%state113935%_) (eq? (let () (declare (not safe)) - (##car _%state113661%_)) + (##car _%state113935%_)) 'error)) (let () (let () (declare (not safe)) (__hash-remove! __modules - _%modpath113648%_)) + _%modpath113922%_)) (mutex-unlock! __load-mx) - (__load-module _%modpath113648%_)) + (__load-module _%modpath113922%_)) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"inernal error; unexpected loading state" - _%state113661%_)))))))) - _%$e113658%_) + _%state113935%_)))))))) + _%$e113932%_) (let () (mutex-unlock! __load-mx) - (__load-module _%modpath113648%_))))))) + (__load-module _%modpath113922%_))))))) (define __find-library-module - (lambda (_%modpath113579%_) - (letrec ((_%find-compiled-file113581%_ - (lambda (_%npath113634%_) - (let ((_%basepath113636%_ + (lambda (_%modpath113853%_) + (letrec ((_%find-compiled-file113855%_ + (lambda (_%npath113908%_) + (let ((_%basepath113910%_ (let () (declare (not safe)) - (##string-append _%npath113634%_ '".o")))) - (let _%lp113638%_ ((_%current113640%_ '#f) - (_%n113641%_ '1)) - (let ((_%next113643%_ - (let ((__tmp113774 - (number->string _%n113641%_))) + (##string-append _%npath113908%_ '".o")))) + (let _%lp113912%_ ((_%current113914%_ '#f) + (_%n113915%_ '1)) + (let ((_%next113917%_ + (let ((__tmp114048 + (number->string _%n113915%_))) (declare (not safe)) (##string-append - _%basepath113636%_ - __tmp113774)))) + _%basepath113910%_ + __tmp114048)))) (if (let () (declare (not safe)) - (##file-exists? _%next113643%_)) - (_%lp113638%_ - _%next113643%_ + (##file-exists? _%next113917%_)) + (_%lp113912%_ + _%next113917%_ (let () (declare (not safe)) - (##fx+ _%n113641%_ '1))) - _%current113640%_)))))) - (_%find-source-file113582%_ - (lambda (_%npath113630%_) - (let ((_%spath113632%_ + (##fx+ _%n113915%_ '1))) + _%current113914%_)))))) + (_%find-source-file113856%_ + (lambda (_%npath113904%_) + (let ((_%spath113906%_ (let () (declare (not safe)) - (##string-append _%npath113630%_ '".scm")))) + (##string-append _%npath113904%_ '".scm")))) (if (let () (declare (not safe)) - (##file-exists? _%spath113632%_)) - _%spath113632%_ + (##file-exists? _%spath113906%_)) + _%spath113906%_ '#f))))) - (let _%lp113584%_ ((_%rest113586%_ (load-path))) - (let* ((_%rest113587113595%_ _%rest113586%_) - (_%else113589113603%_ (lambda () '#f)) - (_%K113591113618%_ - (lambda (_%rest113606%_ _%dir113607%_) - (let* ((_%npath113609%_ + (let _%lp113858%_ ((_%rest113860%_ (load-path))) + (let* ((_%rest113861113869%_ _%rest113860%_) + (_%else113863113877%_ (lambda () '#f)) + (_%K113865113892%_ + (lambda (_%rest113880%_ _%dir113881%_) + (let* ((_%npath113883%_ (path-expand - _%modpath113579%_ - (path-expand _%dir113607%_))) - (_%$e113611%_ - (_%find-compiled-file113581%_ _%npath113609%_))) - (if _%$e113611%_ - (path-normalize _%$e113611%_) - (let ((_%$e113614%_ - (_%find-source-file113582%_ - _%npath113609%_))) - (if _%$e113614%_ - (path-normalize _%$e113614%_) - (_%lp113584%_ _%rest113606%_)))))))) - (if (let () (declare (not safe)) (##pair? _%rest113587113595%_)) - (let ((_%hd113592113621%_ + _%modpath113853%_ + (path-expand _%dir113881%_))) + (_%$e113885%_ + (_%find-compiled-file113855%_ _%npath113883%_))) + (if _%$e113885%_ + (path-normalize _%$e113885%_) + (let ((_%$e113888%_ + (_%find-source-file113856%_ + _%npath113883%_))) + (if _%$e113888%_ + (path-normalize _%$e113888%_) + (_%lp113858%_ _%rest113880%_)))))))) + (if (let () (declare (not safe)) (##pair? _%rest113861113869%_)) + (let ((_%hd113866113895%_ (let () (declare (not safe)) - (##car _%rest113587113595%_))) - (_%tl113593113623%_ + (##car _%rest113861113869%_))) + (_%tl113867113897%_ (let () (declare (not safe)) - (##cdr _%rest113587113595%_)))) - (let* ((_%dir113626%_ _%hd113592113621%_) - (_%rest113628%_ _%tl113593113623%_)) - (_%K113591113618%_ _%rest113628%_ _%dir113626%_))) - (_%else113589113603%_))))))))) + (##cdr _%rest113861113869%_)))) + (let* ((_%dir113900%_ _%hd113866113895%_) + (_%rest113902%_ _%tl113867113897%_)) + (_%K113865113892%_ _%rest113902%_ _%dir113900%_))) + (_%else113863113877%_))))))))) diff --git a/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm b/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm index 6f54afc2e..b096b9d65 100644 --- a/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm +++ b/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/mop-system-classes::timestamp 1713044314) + (define gerbil/runtime/mop-system-classes::timestamp 1713454409) (begin (declare (not optimize-dead-definitions @@ -53,141 +53,141 @@ (define immediate::t (let () (declare (not safe)) (__make-system-class 'immediate '()))) (define char::t - (let ((__tmp100496 (cons immediate::t '()))) + (let ((__tmp100770 (cons immediate::t '()))) (declare (not safe)) - (__make-system-class 'char __tmp100496))) + (__make-system-class 'char __tmp100770))) (define boolean::t - (let ((__tmp100497 (cons immediate::t '()))) + (let ((__tmp100771 (cons immediate::t '()))) (declare (not safe)) - (__make-system-class 'boolean __tmp100497))) + (__make-system-class 'boolean __tmp100771))) (define atom::t - (let ((__tmp100498 (cons immediate::t '()))) + (let ((__tmp100772 (cons immediate::t '()))) (declare (not safe)) - (__make-system-class 'atom __tmp100498))) + (__make-system-class 'atom __tmp100772))) (define void::t - (let ((__tmp100499 (cons atom::t '()))) + (let ((__tmp100773 (cons atom::t '()))) (declare (not safe)) - (__make-system-class 'void __tmp100499))) + (__make-system-class 'void __tmp100773))) (define eof::t - (let ((__tmp100500 (cons atom::t '()))) + (let ((__tmp100774 (cons atom::t '()))) (declare (not safe)) - (__make-system-class 'eof __tmp100500))) + (__make-system-class 'eof __tmp100774))) (define true::t - (let ((__tmp100501 (cons boolean::t (cons atom::t '())))) + (let ((__tmp100775 (cons boolean::t (cons atom::t '())))) (declare (not safe)) - (__make-system-class 'true __tmp100501))) + (__make-system-class 'true __tmp100775))) (define false::t - (let ((__tmp100502 (cons boolean::t (cons atom::t '())))) + (let ((__tmp100776 (cons boolean::t (cons atom::t '())))) (declare (not safe)) - (__make-system-class 'false __tmp100502))) + (__make-system-class 'false __tmp100776))) (define special::t - (let ((__tmp100503 (cons atom::t '()))) + (let ((__tmp100777 (cons atom::t '()))) (declare (not safe)) - (__make-system-class 'special __tmp100503))) + (__make-system-class 'special __tmp100777))) (define number::t (let () (declare (not safe)) (__make-system-class 'number '()))) (define real::t - (let ((__tmp100504 (cons number::t '()))) + (let ((__tmp100778 (cons number::t '()))) (declare (not safe)) - (__make-system-class 'real __tmp100504))) + (__make-system-class 'real __tmp100778))) (define integer::t - (let ((__tmp100505 (cons real::t '()))) + (let ((__tmp100779 (cons real::t '()))) (declare (not safe)) - (__make-system-class 'integer __tmp100505))) + (__make-system-class 'integer __tmp100779))) (define fixnum::t - (let ((__tmp100506 (cons integer::t (cons immediate::t '())))) + (let ((__tmp100780 (cons integer::t (cons immediate::t '())))) (declare (not safe)) - (__make-system-class 'fixnum __tmp100506))) + (__make-system-class 'fixnum __tmp100780))) (define bignum::t - (let ((__tmp100507 (cons integer::t '()))) + (let ((__tmp100781 (cons integer::t '()))) (declare (not safe)) - (__make-system-class 'bignum __tmp100507))) + (__make-system-class 'bignum __tmp100781))) (define ratnum::t - (let ((__tmp100508 (cons real::t '()))) + (let ((__tmp100782 (cons real::t '()))) (declare (not safe)) - (__make-system-class 'ratnum __tmp100508))) + (__make-system-class 'ratnum __tmp100782))) (define flonum::t - (let ((__tmp100509 (cons real::t '()))) + (let ((__tmp100783 (cons real::t '()))) (declare (not safe)) - (__make-system-class 'flonum __tmp100509))) + (__make-system-class 'flonum __tmp100783))) (define cpxnum::t - (let ((__tmp100510 (cons number::t '()))) + (let ((__tmp100784 (cons number::t '()))) (declare (not safe)) - (__make-system-class 'cpxnum __tmp100510))) + (__make-system-class 'cpxnum __tmp100784))) (define symbolic::t (let () (declare (not safe)) (__make-system-class 'symbolic '()))) (define symbol::t - (let ((__tmp100511 (cons symbolic::t '()))) + (let ((__tmp100785 (cons symbolic::t '()))) (declare (not safe)) - (__make-system-class 'symbol __tmp100511))) + (__make-system-class 'symbol __tmp100785))) (define keyword::t - (let ((__tmp100512 (cons symbolic::t '()))) + (let ((__tmp100786 (cons symbolic::t '()))) (declare (not safe)) - (__make-system-class 'keyword __tmp100512))) + (__make-system-class 'keyword __tmp100786))) (define list::t (let () (declare (not safe)) (__make-system-class 'list '()))) (define pair::t - (let ((__tmp100513 (cons list::t '()))) + (let ((__tmp100787 (cons list::t '()))) (declare (not safe)) - (__make-system-class 'pair __tmp100513))) + (__make-system-class 'pair __tmp100787))) (define null::t - (let ((__tmp100514 (cons list::t (cons atom::t '())))) + (let ((__tmp100788 (cons list::t (cons atom::t '())))) (declare (not safe)) - (__make-system-class 'null __tmp100514))) + (__make-system-class 'null __tmp100788))) (define sequence::t (let () (declare (not safe)) (__make-system-class 'sequence '()))) (define vector::t - (let ((__tmp100515 (cons sequence::t '()))) + (let ((__tmp100789 (cons sequence::t '()))) (declare (not safe)) - (__make-system-class 'vector __tmp100515))) + (__make-system-class 'vector __tmp100789))) (define string::t - (let ((__tmp100516 (cons sequence::t '()))) + (let ((__tmp100790 (cons sequence::t '()))) (declare (not safe)) - (__make-system-class 'string __tmp100516))) + (__make-system-class 'string __tmp100790))) (define hvector::t - (let ((__tmp100517 (cons sequence::t '()))) + (let ((__tmp100791 (cons sequence::t '()))) (declare (not safe)) - (__make-system-class 'hvector __tmp100517))) + (__make-system-class 'hvector __tmp100791))) (define u8vector::t - (let ((__tmp100518 (cons hvector::t '()))) + (let ((__tmp100792 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u8vector __tmp100518))) + (__make-system-class 'u8vector __tmp100792))) (define s8vector::t - (let ((__tmp100519 (cons hvector::t '()))) + (let ((__tmp100793 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's8vector __tmp100519))) + (__make-system-class 's8vector __tmp100793))) (define u16vector::t - (let ((__tmp100520 (cons hvector::t '()))) + (let ((__tmp100794 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u16vector __tmp100520))) + (__make-system-class 'u16vector __tmp100794))) (define s16vector::t - (let ((__tmp100521 (cons hvector::t '()))) + (let ((__tmp100795 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's16vector __tmp100521))) + (__make-system-class 's16vector __tmp100795))) (define u32vector::t - (let ((__tmp100522 (cons hvector::t '()))) + (let ((__tmp100796 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u32vector __tmp100522))) + (__make-system-class 'u32vector __tmp100796))) (define s32vector::t - (let ((__tmp100523 (cons hvector::t '()))) + (let ((__tmp100797 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's32vector __tmp100523))) + (__make-system-class 's32vector __tmp100797))) (define u64vector::t - (let ((__tmp100524 (cons hvector::t '()))) + (let ((__tmp100798 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u64vector __tmp100524))) + (__make-system-class 'u64vector __tmp100798))) (define s64vector::t - (let ((__tmp100525 (cons hvector::t '()))) + (let ((__tmp100799 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's64vector __tmp100525))) + (__make-system-class 's64vector __tmp100799))) (define f32vector::t - (let ((__tmp100526 (cons hvector::t '()))) + (let ((__tmp100800 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'f32vector __tmp100526))) + (__make-system-class 'f32vector __tmp100800))) (define f64vector::t - (let ((__tmp100527 (cons hvector::t '()))) + (let ((__tmp100801 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'f64vector __tmp100527))) + (__make-system-class 'f64vector __tmp100801))) (define values::t (let () (declare (not safe)) (__make-system-class 'values '()))) (define box::t @@ -207,294 +207,294 @@ (define return::t (let () (declare (not safe)) (__make-system-class 'return '()))) (define time::t - (let ((__tmp100528 (macro-type-time))) + (let ((__tmp100802 (macro-type-time))) (declare (not safe)) - (__shadow-class __tmp100528))) + (__shadow-class __tmp100802))) (define thread::t - (let ((__tmp100529 (macro-type-thread))) + (let ((__tmp100803 (macro-type-thread))) (declare (not safe)) - (__shadow-class __tmp100529))) + (__shadow-class __tmp100803))) (define thread-group::t - (let ((__tmp100530 (macro-type-tgroup))) + (let ((__tmp100804 (macro-type-tgroup))) (declare (not safe)) - (__shadow-class __tmp100530))) + (__shadow-class __tmp100804))) (define mutex::t - (let ((__tmp100531 (macro-type-mutex))) + (let ((__tmp100805 (macro-type-mutex))) (declare (not safe)) - (__shadow-class __tmp100531))) + (__shadow-class __tmp100805))) (define condvar::t - (let ((__tmp100532 (macro-type-condvar))) + (let ((__tmp100806 (macro-type-condvar))) (declare (not safe)) - (__shadow-class __tmp100532))) + (__shadow-class __tmp100806))) (define port::t - (let ((__tmp100533 (macro-type-port))) + (let ((__tmp100807 (macro-type-port))) (declare (not safe)) - (__shadow-class __tmp100533))) + (__shadow-class __tmp100807))) (define object-port::t - (let ((__tmp100534 (macro-type-object-port))) + (let ((__tmp100808 (macro-type-object-port))) (declare (not safe)) - (__shadow-class __tmp100534))) + (__shadow-class __tmp100808))) (define character-port::t - (let ((__tmp100535 (macro-type-character-port))) + (let ((__tmp100809 (macro-type-character-port))) (declare (not safe)) - (__shadow-class __tmp100535))) + (__shadow-class __tmp100809))) (define byte-port::t - (let ((__tmp100536 (macro-type-byte-port))) + (let ((__tmp100810 (macro-type-byte-port))) (declare (not safe)) - (__shadow-class __tmp100536))) + (__shadow-class __tmp100810))) (define device-port::t - (let ((__tmp100537 (macro-type-device-port))) + (let ((__tmp100811 (macro-type-device-port))) (declare (not safe)) - (__shadow-class __tmp100537))) + (__shadow-class __tmp100811))) (define vector-port::t - (let ((__tmp100538 (macro-type-vector-port))) + (let ((__tmp100812 (macro-type-vector-port))) (declare (not safe)) - (__shadow-class __tmp100538))) + (__shadow-class __tmp100812))) (define string-port::t - (let ((__tmp100539 (macro-type-string-port))) + (let ((__tmp100813 (macro-type-string-port))) (declare (not safe)) - (__shadow-class __tmp100539))) + (__shadow-class __tmp100813))) (define u8vector-port::t - (let ((__tmp100540 (macro-type-u8vector-port))) + (let ((__tmp100814 (macro-type-u8vector-port))) (declare (not safe)) - (__shadow-class __tmp100540))) + (__shadow-class __tmp100814))) (define raw-device-port::t - (let ((__tmp100541 (macro-type-raw-device-port))) + (let ((__tmp100815 (macro-type-raw-device-port))) (declare (not safe)) - (__shadow-class __tmp100541))) + (__shadow-class __tmp100815))) (define tcp-server-port::t - (let ((__tmp100542 (macro-type-tcp-server-port))) + (let ((__tmp100816 (macro-type-tcp-server-port))) (declare (not safe)) - (__shadow-class __tmp100542))) + (__shadow-class __tmp100816))) (define udp-port::t - (let ((__tmp100543 (macro-type-udp-port))) + (let ((__tmp100817 (macro-type-udp-port))) (declare (not safe)) - (__shadow-class __tmp100543))) + (__shadow-class __tmp100817))) (define directory-port::t - (let ((__tmp100544 (macro-type-directory-port))) + (let ((__tmp100818 (macro-type-directory-port))) (declare (not safe)) - (__shadow-class __tmp100544))) + (__shadow-class __tmp100818))) (define event-queue-port::t - (let ((__tmp100545 (macro-type-event-queue-port))) + (let ((__tmp100819 (macro-type-event-queue-port))) (declare (not safe)) - (__shadow-class __tmp100545))) + (__shadow-class __tmp100819))) (define table::t - (let ((__tmp100546 (macro-type-table))) + (let ((__tmp100820 (macro-type-table))) (declare (not safe)) - (__shadow-class __tmp100546))) + (__shadow-class __tmp100820))) (define readenv::t - (let ((__tmp100547 (macro-type-readenv))) + (let ((__tmp100821 (macro-type-readenv))) (declare (not safe)) - (__shadow-class __tmp100547))) + (__shadow-class __tmp100821))) (define writeenv::t - (let ((__tmp100548 (macro-type-writeenv))) + (let ((__tmp100822 (macro-type-writeenv))) (declare (not safe)) - (__shadow-class __tmp100548))) + (__shadow-class __tmp100822))) (define readtable::t - (let ((__tmp100549 (macro-type-readtable))) + (let ((__tmp100823 (macro-type-readtable))) (declare (not safe)) - (__shadow-class __tmp100549))) + (__shadow-class __tmp100823))) (define processor::t - (let ((__tmp100550 (macro-type-processor))) + (let ((__tmp100824 (macro-type-processor))) (declare (not safe)) - (__shadow-class __tmp100550))) + (__shadow-class __tmp100824))) (define vm::t - (let ((__tmp100551 (macro-type-vm))) + (let ((__tmp100825 (macro-type-vm))) (declare (not safe)) - (__shadow-class __tmp100551))) + (__shadow-class __tmp100825))) (define file-info::t - (let ((__tmp100552 (macro-type-file-info))) + (let ((__tmp100826 (macro-type-file-info))) (declare (not safe)) - (__shadow-class __tmp100552))) + (__shadow-class __tmp100826))) (define socket-info::t - (let ((__tmp100553 (macro-type-socket-info))) + (let ((__tmp100827 (macro-type-socket-info))) (declare (not safe)) - (__shadow-class __tmp100553))) + (__shadow-class __tmp100827))) (define address-info::t - (let ((__tmp100554 (macro-type-address-info))) + (let ((__tmp100828 (macro-type-address-info))) (declare (not safe)) - (__shadow-class __tmp100554))) + (__shadow-class __tmp100828))) (define atom? - (lambda (_%obj100495%_) - (if (let () (declare (not safe)) (immediate? _%obj100495%_)) - (if (char? _%obj100495%_) '#f (not (fixnum? _%obj100495%_))) + (lambda (_%obj100769%_) + (if (let () (declare (not safe)) (immediate? _%obj100769%_)) + (if (char? _%obj100769%_) '#f (not (fixnum? _%obj100769%_))) '#f))) (define special? - (lambda (_%obj100493%_) - (if (let ((__tmp100555 - (let () (declare (not safe)) (##type _%obj100493%_)))) + (lambda (_%obj100767%_) + (if (let ((__tmp100829 + (let () (declare (not safe)) (##type _%obj100767%_)))) (declare (not safe)) - (##fx= __tmp100555 '2)) - (if (char? _%obj100493%_) + (##fx= __tmp100829 '2)) + (if (char? _%obj100767%_) '#f - (if (null? _%obj100493%_) + (if (null? _%obj100767%_) '#f - (if (boolean? _%obj100493%_) + (if (boolean? _%obj100767%_) '#f - (if (eq? _%obj100493%_ '#!void) + (if (eq? _%obj100767%_ '#!void) '#f - (not (eof-object? _%obj100493%_)))))) + (not (eof-object? _%obj100767%_)))))) '#f))) (define sequence? - (lambda (_%obj100485%_) - (let ((_%$e100487%_ (vector? _%obj100485%_))) - (if _%$e100487%_ - _%$e100487%_ - (let ((_%$e100490%_ (string? _%obj100485%_))) - (if _%$e100490%_ _%$e100490%_ (hvector? _%obj100485%_))))))) + (lambda (_%obj100759%_) + (let ((_%$e100761%_ (vector? _%obj100759%_))) + (if _%$e100761%_ + _%$e100761%_ + (let ((_%$e100764%_ (string? _%obj100759%_))) + (if _%$e100764%_ _%$e100764%_ (hvector? _%obj100759%_))))))) (define hvector? - (lambda (_%obj100456%_) - (let ((_%$e100458%_ (u8vector? _%obj100456%_))) - (if _%$e100458%_ - _%$e100458%_ - (let ((_%$e100461%_ (s8vector? _%obj100456%_))) - (if _%$e100461%_ - _%$e100461%_ - (let ((_%$e100464%_ (u16vector? _%obj100456%_))) - (if _%$e100464%_ - _%$e100464%_ - (let ((_%$e100467%_ (s16vector? _%obj100456%_))) - (if _%$e100467%_ - _%$e100467%_ - (let ((_%$e100470%_ - (u32vector? _%obj100456%_))) - (if _%$e100470%_ - _%$e100470%_ - (let ((_%$e100473%_ - (s32vector? _%obj100456%_))) - (if _%$e100473%_ - _%$e100473%_ - (let ((_%$e100476%_ - (u64vector? _%obj100456%_))) - (if _%$e100476%_ - _%$e100476%_ - (let ((_%$e100479%_ + (lambda (_%obj100730%_) + (let ((_%$e100732%_ (u8vector? _%obj100730%_))) + (if _%$e100732%_ + _%$e100732%_ + (let ((_%$e100735%_ (s8vector? _%obj100730%_))) + (if _%$e100735%_ + _%$e100735%_ + (let ((_%$e100738%_ (u16vector? _%obj100730%_))) + (if _%$e100738%_ + _%$e100738%_ + (let ((_%$e100741%_ (s16vector? _%obj100730%_))) + (if _%$e100741%_ + _%$e100741%_ + (let ((_%$e100744%_ + (u32vector? _%obj100730%_))) + (if _%$e100744%_ + _%$e100744%_ + (let ((_%$e100747%_ + (s32vector? _%obj100730%_))) + (if _%$e100747%_ + _%$e100747%_ + (let ((_%$e100750%_ + (u64vector? _%obj100730%_))) + (if _%$e100750%_ + _%$e100750%_ + (let ((_%$e100753%_ (s64vector? - _%obj100456%_))) - (if _%$e100479%_ - _%$e100479%_ - (let ((_%$e100482%_ + _%obj100730%_))) + (if _%$e100753%_ + _%$e100753%_ + (let ((_%$e100756%_ (f32vector? - _%obj100456%_))) - (if _%$e100482%_ - _%$e100482%_ + _%obj100730%_))) + (if _%$e100756%_ + _%$e100756%_ (f64vector? - _%obj100456%_))))))))))))))))))))) + _%obj100730%_))))))))))))))))))))) (define weak? - (lambda (_%obj100454%_) - (if (let () (declare (not safe)) (##subtyped? _%obj100454%_)) - (eq? (let () (declare (not safe)) (##subtype _%obj100454%_)) + (lambda (_%obj100728%_) + (if (let () (declare (not safe)) (##subtyped? _%obj100728%_)) + (eq? (let () (declare (not safe)) (##subtype _%obj100728%_)) (macro-subtype-weak)) '#f))) (define object-port? - (lambda (_%obj100452%_) - (let ((__tmp100556 - (let ((__tmp100557 (macro-type-object-port))) + (lambda (_%obj100726%_) + (let ((__tmp100830 + (let ((__tmp100831 (macro-type-object-port))) (declare (not safe)) - (##type-id __tmp100557)))) + (##type-id __tmp100831)))) (declare (not safe)) - (##structure-instance-of? _%obj100452%_ __tmp100556)))) + (##structure-instance-of? _%obj100726%_ __tmp100830)))) (define character-port? - (lambda (_%obj100450%_) - (let ((__tmp100558 - (let ((__tmp100559 (macro-type-character-port))) + (lambda (_%obj100724%_) + (let ((__tmp100832 + (let ((__tmp100833 (macro-type-character-port))) (declare (not safe)) - (##type-id __tmp100559)))) + (##type-id __tmp100833)))) (declare (not safe)) - (##structure-instance-of? _%obj100450%_ __tmp100558)))) + (##structure-instance-of? _%obj100724%_ __tmp100832)))) (define device-port? - (lambda (_%obj100448%_) - (let ((__tmp100560 - (let ((__tmp100561 (macro-type-device-port))) + (lambda (_%obj100722%_) + (let ((__tmp100834 + (let ((__tmp100835 (macro-type-device-port))) (declare (not safe)) - (##type-id __tmp100561)))) + (##type-id __tmp100835)))) (declare (not safe)) - (##structure-instance-of? _%obj100448%_ __tmp100560)))) + (##structure-instance-of? _%obj100722%_ __tmp100834)))) (define vector-port? - (lambda (_%obj100446%_) - (let ((__tmp100562 - (let ((__tmp100563 (macro-type-vector-port))) + (lambda (_%obj100720%_) + (let ((__tmp100836 + (let ((__tmp100837 (macro-type-vector-port))) (declare (not safe)) - (##type-id __tmp100563)))) + (##type-id __tmp100837)))) (declare (not safe)) - (##structure-instance-of? _%obj100446%_ __tmp100562)))) + (##structure-instance-of? _%obj100720%_ __tmp100836)))) (define string-port? - (lambda (_%obj100444%_) - (let ((__tmp100564 - (let ((__tmp100565 (macro-type-string-port))) + (lambda (_%obj100718%_) + (let ((__tmp100838 + (let ((__tmp100839 (macro-type-string-port))) (declare (not safe)) - (##type-id __tmp100565)))) + (##type-id __tmp100839)))) (declare (not safe)) - (##structure-instance-of? _%obj100444%_ __tmp100564)))) + (##structure-instance-of? _%obj100718%_ __tmp100838)))) (define u8vector-port? - (lambda (_%obj100442%_) - (let ((__tmp100566 - (let ((__tmp100567 (macro-type-u8vector-port))) + (lambda (_%obj100716%_) + (let ((__tmp100840 + (let ((__tmp100841 (macro-type-u8vector-port))) (declare (not safe)) - (##type-id __tmp100567)))) + (##type-id __tmp100841)))) (declare (not safe)) - (##structure-instance-of? _%obj100442%_ __tmp100566)))) + (##structure-instance-of? _%obj100716%_ __tmp100840)))) (define raw-device-port? - (lambda (_%obj100440%_) - (let ((__tmp100568 - (let ((__tmp100569 (macro-type-raw-device-port))) + (lambda (_%obj100714%_) + (let ((__tmp100842 + (let ((__tmp100843 (macro-type-raw-device-port))) (declare (not safe)) - (##type-id __tmp100569)))) + (##type-id __tmp100843)))) (declare (not safe)) - (##structure-instance-of? _%obj100440%_ __tmp100568)))) + (##structure-instance-of? _%obj100714%_ __tmp100842)))) (define tcp-server-port? - (lambda (_%obj100438%_) - (let ((__tmp100570 - (let ((__tmp100571 (macro-type-tcp-server-port))) + (lambda (_%obj100712%_) + (let ((__tmp100844 + (let ((__tmp100845 (macro-type-tcp-server-port))) (declare (not safe)) - (##type-id __tmp100571)))) + (##type-id __tmp100845)))) (declare (not safe)) - (##structure-instance-of? _%obj100438%_ __tmp100570)))) + (##structure-instance-of? _%obj100712%_ __tmp100844)))) (define udp-port? - (lambda (_%obj100436%_) - (let ((__tmp100572 - (let ((__tmp100573 (macro-type-udp-port))) + (lambda (_%obj100710%_) + (let ((__tmp100846 + (let ((__tmp100847 (macro-type-udp-port))) (declare (not safe)) - (##type-id __tmp100573)))) + (##type-id __tmp100847)))) (declare (not safe)) - (##structure-instance-of? _%obj100436%_ __tmp100572)))) + (##structure-instance-of? _%obj100710%_ __tmp100846)))) (define directory-port? - (lambda (_%obj100434%_) - (let ((__tmp100574 - (let ((__tmp100575 (macro-type-directory-port))) + (lambda (_%obj100708%_) + (let ((__tmp100848 + (let ((__tmp100849 (macro-type-directory-port))) (declare (not safe)) - (##type-id __tmp100575)))) + (##type-id __tmp100849)))) (declare (not safe)) - (##structure-instance-of? _%obj100434%_ __tmp100574)))) + (##structure-instance-of? _%obj100708%_ __tmp100848)))) (define event-queue-port? - (lambda (_%obj100432%_) - (let ((__tmp100576 - (let ((__tmp100577 (macro-type-event-queue-port))) + (lambda (_%obj100706%_) + (let ((__tmp100850 + (let ((__tmp100851 (macro-type-event-queue-port))) (declare (not safe)) - (##type-id __tmp100577)))) + (##type-id __tmp100851)))) (declare (not safe)) - (##structure-instance-of? _%obj100432%_ __tmp100576)))) + (##structure-instance-of? _%obj100706%_ __tmp100850)))) (define readenv? - (lambda (_%obj100430%_) - (let ((__tmp100578 - (let ((__tmp100579 (macro-type-readenv))) + (lambda (_%obj100704%_) + (let ((__tmp100852 + (let ((__tmp100853 (macro-type-readenv))) (declare (not safe)) - (##type-id __tmp100579)))) + (##type-id __tmp100853)))) (declare (not safe)) - (##structure-instance-of? _%obj100430%_ __tmp100578)))) + (##structure-instance-of? _%obj100704%_ __tmp100852)))) (define writeenv? - (lambda (_%obj100428%_) - (let ((__tmp100580 - (let ((__tmp100581 (macro-type-writeenv))) + (lambda (_%obj100702%_) + (let ((__tmp100854 + (let ((__tmp100855 (macro-type-writeenv))) (declare (not safe)) - (##type-id __tmp100581)))) + (##type-id __tmp100855)))) (declare (not safe)) - (##structure-instance-of? _%obj100428%_ __tmp100580)))) + (##structure-instance-of? _%obj100702%_ __tmp100854)))) (define vm? - (lambda (_%obj100426%_) - (let ((__tmp100582 - (let ((__tmp100583 (macro-type-vm))) + (lambda (_%obj100700%_) + (let ((__tmp100856 + (let ((__tmp100857 (macro-type-vm))) (declare (not safe)) - (##type-id __tmp100583)))) + (##type-id __tmp100857)))) (declare (not safe)) - (##structure-instance-of? _%obj100426%_ __tmp100582)))))) + (##structure-instance-of? _%obj100700%_ __tmp100856)))))) diff --git a/src/bootstrap/gerbil/runtime/mop-system-classes~1.scm b/src/bootstrap/gerbil/runtime/mop-system-classes~1.scm index cee3cfc27..df3cba7b8 100644 --- a/src/bootstrap/gerbil/runtime/mop-system-classes~1.scm +++ b/src/bootstrap/gerbil/runtime/mop-system-classes~1.scm @@ -1,208 +1,208 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g100584_| + (define |[1]#_g100858_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) (define |[:0:]#defpred| - (lambda (_%stx100211%_) - (let* ((_%g100214100252%_ - (lambda (_%g100215100248%_) + (lambda (_%stx100485%_) + (let* ((_%g100488100526%_ + (lambda (_%g100489100522%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g100215100248%_))) - (_%g100213100421%_ - (lambda (_%g100215100256%_) - (if (gx#stx-pair? _%g100215100256%_) - (let ((_%e100220100259%_ (gx#syntax-e _%g100215100256%_))) - (let ((_%hd100221100263%_ + _%g100489100522%_))) + (_%g100487100695%_ + (lambda (_%g100489100530%_) + (if (gx#stx-pair? _%g100489100530%_) + (let ((_%e100494100533%_ (gx#syntax-e _%g100489100530%_))) + (let ((_%hd100495100537%_ (let () (declare (not safe)) - (##car _%e100220100259%_))) - (_%tl100222100266%_ + (##car _%e100494100533%_))) + (_%tl100496100540%_ (let () (declare (not safe)) - (##cdr _%e100220100259%_)))) - (if (gx#stx-pair? _%tl100222100266%_) - (let ((_%e100223100269%_ - (gx#syntax-e _%tl100222100266%_))) - (let ((_%hd100224100273%_ + (##cdr _%e100494100533%_)))) + (if (gx#stx-pair? _%tl100496100540%_) + (let ((_%e100497100543%_ + (gx#syntax-e _%tl100496100540%_))) + (let ((_%hd100498100547%_ (let () (declare (not safe)) - (##car _%e100223100269%_))) - (_%tl100225100276%_ + (##car _%e100497100543%_))) + (_%tl100499100550%_ (let () (declare (not safe)) - (##cdr _%e100223100269%_)))) - (if (gx#stx-pair? _%hd100224100273%_) - (let ((_%e100226100279%_ - (gx#syntax-e _%hd100224100273%_))) - (let ((_%hd100227100283%_ + (##cdr _%e100497100543%_)))) + (if (gx#stx-pair? _%hd100498100547%_) + (let ((_%e100500100553%_ + (gx#syntax-e _%hd100498100547%_))) + (let ((_%hd100501100557%_ (let () (declare (not safe)) - (##car _%e100226100279%_))) - (_%tl100228100286%_ + (##car _%e100500100553%_))) + (_%tl100502100560%_ (let () (declare (not safe)) - (##cdr _%e100226100279%_)))) - (if (gx#stx-pair? _%tl100228100286%_) - (let ((_%e100229100289%_ + (##cdr _%e100500100553%_)))) + (if (gx#stx-pair? _%tl100502100560%_) + (let ((_%e100503100563%_ (gx#syntax-e - _%tl100228100286%_))) - (let ((_%hd100230100293%_ + _%tl100502100560%_))) + (let ((_%hd100504100567%_ (let () (declare (not safe)) - (##car _%e100229100289%_))) - (_%tl100231100296%_ + (##car _%e100503100563%_))) + (_%tl100505100570%_ (let () (declare (not safe)) - (##cdr _%e100229100289%_)))) + (##cdr _%e100503100563%_)))) (if (gx#stx-null? - _%tl100231100296%_) + _%tl100505100570%_) (if (gx#stx-pair? - _%tl100225100276%_) - (let ((_%e100232100299%_ + _%tl100499100550%_) + (let ((_%e100506100573%_ (gx#syntax-e - _%tl100225100276%_))) - (let ((_%hd100233100303%_ + _%tl100499100550%_))) + (let ((_%hd100507100577%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%e100232100299%_))) - (_%tl100234100306%_ + (##car _%e100506100573%_))) + (_%tl100508100580%_ (let () (declare (not safe)) - (##cdr _%e100232100299%_)))) - (if (gx#identifier? _%hd100233100303%_) + (##cdr _%e100506100573%_)))) + (if (gx#identifier? _%hd100507100577%_) (if (gx#free-identifier=? - |[1]#_g100584_| - _%hd100233100303%_) - (if (gx#stx-pair? _%tl100234100306%_) - (let ((_%e100235100309%_ - (gx#syntax-e _%tl100234100306%_))) - (let ((_%hd100236100313%_ + |[1]#_g100858_| + _%hd100507100577%_) + (if (gx#stx-pair? _%tl100508100580%_) + (let ((_%e100509100583%_ + (gx#syntax-e _%tl100508100580%_))) + (let ((_%hd100510100587%_ (let () (declare (not safe)) - (##car _%e100235100309%_))) - (_%tl100237100316%_ + (##car _%e100509100583%_))) + (_%tl100511100590%_ (let () (declare (not safe)) - (##cdr _%e100235100309%_)))) - (if (gx#stx-pair/null? _%tl100237100316%_) - (let ((_g100585_ + (##cdr _%e100509100583%_)))) + (if (gx#stx-pair/null? _%tl100511100590%_) + (let ((_g100859_ (gx#syntax-split-splice - _%tl100237100316%_ + _%tl100511100590%_ '0))) (begin - (let ((_g100586_ + (let ((_g100860_ (let () (declare (not safe)) - (if (##values? _g100585_) + (if (##values? _g100859_) (##vector-length - _g100585_) + _g100859_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g100586_ 2))) + (##fx= _g100860_ 2))) (error "Context expects 2 values" - _g100586_))) - (let ((_%target100238100319%_ + _g100860_))) + (let ((_%target100512100593%_ (let () (declare (not safe)) (##vector-ref - _g100585_ + _g100859_ 0))) - (_%tl100240100322%_ + (_%tl100514100596%_ (let () (declare (not safe)) (##vector-ref - _g100585_ + _g100859_ 1)))) (if (gx#stx-null? - _%tl100240100322%_) - (letrec ((_%loop100241100325%_ - (lambda (_%hd100239100329%_ + _%tl100514100596%_) + (letrec ((_%loop100515100599%_ + (lambda (_%hd100513100603%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body100245100332%_) - (if (gx#stx-pair? _%hd100239100329%_) - (let ((_%e100242100335%_ - (gx#syntax-e _%hd100239100329%_))) - (let ((_%lp-hd100243100339%_ + _%body100519100606%_) + (if (gx#stx-pair? _%hd100513100603%_) + (let ((_%e100516100609%_ + (gx#syntax-e _%hd100513100603%_))) + (let ((_%lp-hd100517100613%_ (let () (declare (not safe)) - (##car _%e100242100335%_))) - (_%lp-tl100244100342%_ + (##car _%e100516100609%_))) + (_%lp-tl100518100616%_ (let () (declare (not safe)) - (##cdr _%e100242100335%_)))) - (_%loop100241100325%_ - _%lp-tl100244100342%_ - (cons _%lp-hd100243100339%_ - _%body100245100332%_)))) - (let ((_%body100246100345%_ - (reverse _%body100245100332%_))) - ((lambda (_%L100349%_ - _%L100351%_ - _%L100352%_ - _%L100353%_) - (let* ((_%g100382100390%_ - (lambda (_%g100383100386%_) + (##cdr _%e100516100609%_)))) + (_%loop100515100599%_ + _%lp-tl100518100616%_ + (cons _%lp-hd100517100613%_ + _%body100519100606%_)))) + (let ((_%body100520100619%_ + (reverse _%body100519100606%_))) + ((lambda (_%L100623%_ + _%L100625%_ + _%L100626%_ + _%L100627%_) + (let* ((_%g100656100664%_ + (lambda (_%g100657100660%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g100383100386%_))) - (_%g100381100417%_ - (lambda (_%g100383100394%_) - ((lambda (_%L100397%_) + _%g100657100660%_))) + (_%g100655100691%_ + (lambda (_%g100657100668%_) + ((lambda (_%L100671%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L100353%_ + (cons _%L100627%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@predicate) - (cons _%L100397%_ '())) + (cons _%L100671%_ '())) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L100352%_ '()) - (let ((__tmp100587 - (lambda (_%g100408100411%_ + (cons (cons _%L100626%_ '()) + (let ((__tmp100861 + (lambda (_%g100682100685%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g100409100414%_) - (cons _%g100408100411%_ _%g100409100414%_)))) + _%g100683100688%_) + (cons _%g100682100685%_ _%g100683100688%_)))) (declare (not safe)) - (__foldr1 __tmp100587 '() _%L100349%_)))) + (__foldr1 __tmp100861 '() _%L100623%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g100383100394%_)))) - (_%g100381100417%_ + _%g100657100668%_)))) + (_%g100655100691%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx100211%_ - _%L100351%_))))) - _%body100246100345%_ - _%hd100236100313%_ - _%hd100230100293%_ - _%hd100227100283%_)))))) + _%stx100485%_ + _%L100625%_))))) + _%body100520100619%_ + _%hd100510100587%_ + _%hd100504100567%_ + _%hd100501100557%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop100241100325%_ - _%target100238100319%_ + (_%loop100515100599%_ + _%target100512100593%_ '())) - (_%g100214100252%_ - _%g100215100256%_))))) - (_%g100214100252%_ - _%g100215100256%_)))) - (_%g100214100252%_ _%g100215100256%_)) - (_%g100214100252%_ _%g100215100256%_)) - (_%g100214100252%_ _%g100215100256%_)))) - (_%g100214100252%_ _%g100215100256%_)) + (_%g100488100526%_ + _%g100489100530%_))))) + (_%g100488100526%_ + _%g100489100530%_)))) + (_%g100488100526%_ _%g100489100530%_)) + (_%g100488100526%_ _%g100489100530%_)) + (_%g100488100526%_ _%g100489100530%_)))) + (_%g100488100526%_ _%g100489100530%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g100214100252%_ - _%g100215100256%_)))) - (_%g100214100252%_ - _%g100215100256%_)))) - (_%g100214100252%_ _%g100215100256%_)))) - (_%g100214100252%_ _%g100215100256%_)))) - (_%g100214100252%_ _%g100215100256%_))))) - (_%g100213100421%_ _%stx100211%_))))) + (_%g100488100526%_ + _%g100489100530%_)))) + (_%g100488100526%_ + _%g100489100530%_)))) + (_%g100488100526%_ _%g100489100530%_)))) + (_%g100488100526%_ _%g100489100530%_)))) + (_%g100488100526%_ _%g100489100530%_))))) + (_%g100487100695%_ _%stx100485%_))))) diff --git a/src/bootstrap/gerbil/runtime/mop~0.scm b/src/bootstrap/gerbil/runtime/mop~0.scm index c743bef18..d92bb85b6 100644 --- a/src/bootstrap/gerbil/runtime/mop~0.scm +++ b/src/bootstrap/gerbil/runtime/mop~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/mop::timestamp 1713044314) + (define gerbil/runtime/mop::timestamp 1713454409) (begin (define type-flag-opaque '1) (define type-flag-extensible '2) @@ -12,14 +12,14 @@ (define class-type-flag-metaclass '4096) (define class-type-flag-system '8192) (define t::t - (let ((_%flags98593%_ + (let ((_%flags98867%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-id class-type-flag-system))) - (_%properties98594%_ '((direct-slots:) (system: . #t))) - (_%slot-table98595%_ + (_%properties98868%_ '((direct-slots:) (system: . #t))) + (_%slot-table98869%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) @@ -27,17 +27,17 @@ '#f 't 't - _%flags98593%_ + _%flags98867%_ '#f '#() '() '#(#f) - _%slot-table98595%_ - _%properties98594%_ + _%slot-table98869%_ + _%properties98868%_ '#f '#f)))) (define class::t - (let* ((_%slots98569%_ + (let* ((_%slots98843%_ '(id name super flags @@ -48,122 +48,122 @@ properties constructor methods)) - (_%slot-vector98571%_ (list->vector (cons '#f _%slots98569%_))) - (_%slot-table98578%_ - (let ((_%slot-table98573%_ + (_%slot-vector98845%_ (list->vector (cons '#f _%slots98843%_))) + (_%slot-table98852%_ + (let ((_%slot-table98847%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp100036 - (lambda (_%slot98575%_ _%field98576%_) + (let ((__tmp100310 + (lambda (_%slot98849%_ _%field98850%_) (let () (declare (not safe)) (symbolic-table-set! - _%slot-table98573%_ - _%slot98575%_ - _%field98576%_)) - (let ((__tmp100037 + _%slot-table98847%_ + _%slot98849%_ + _%field98850%_)) + (let ((__tmp100311 (let () (declare (not safe)) - (symbol->keyword _%slot98575%_)))) + (symbol->keyword _%slot98849%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table98573%_ - __tmp100037 - _%field98576%_)))) - (__tmp100034 - (let ((__tmp100035 + _%slot-table98847%_ + __tmp100311 + _%field98850%_)))) + (__tmp100308 + (let ((__tmp100309 (let () (declare (not safe)) - (##length _%slots98569%_)))) + (##length _%slots98843%_)))) (declare (not safe)) - (##iota __tmp100035 '1)))) + (##iota __tmp100309 '1)))) (declare (not safe)) - (##for-each __tmp100036 _%slots98569%_ __tmp100034)) - _%slot-table98573%_)) - (_%flags98580%_ + (##for-each __tmp100310 _%slots98843%_ __tmp100308)) + _%slot-table98847%_)) + (_%flags98854%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_%fields98586%_ + (_%fields98860%_ (list->vector - (let ((__tmp100038 - (map (lambda (_%g9858198583%_) - (list _%g9858198583%_ '5 '#f)) - (drop _%slots98569%_ '5)))) + (let ((__tmp100312 + (map (lambda (_%g9885598857%_) + (list _%g9885598857%_ '5 '#f)) + (drop _%slots98843%_ '5)))) (declare (not safe)) - (##apply append __tmp100038)))) - (_%properties98588%_ + (##apply append __tmp100312)))) + (_%properties98862%_ (cons (cons 'direct-slots: (let () (declare (not safe)) - (__foldr1 cons '() _%slots98569%_))) + (__foldr1 cons '() _%slots98843%_))) (cons (cons 'struct: '#t) '()))) - (_%t98590%_ - (let ((__tmp100039 (cons t::t '()))) + (_%t98864%_ + (let ((__tmp100313 (cons t::t '()))) (declare (not safe)) (##structure '#f 'class 'class - _%flags98580%_ + _%flags98854%_ ##type-type - _%fields98586%_ - __tmp100039 - _%slot-vector98571%_ - _%slot-table98578%_ - _%properties98588%_ + _%fields98860%_ + __tmp100313 + _%slot-vector98845%_ + _%slot-table98852%_ + _%properties98862%_ '#f '#f)))) (let () (declare (not safe)) - (##structure-type-set! _%t98590%_ _%t98590%_)) - _%t98590%_)) + (##structure-type-set! _%t98864%_ _%t98864%_)) + _%t98864%_)) (let () (declare (not safe)) (##structure-type-set! t::t class::t)) (define object::t - (let ((_%flags98565%_ + (let ((_%flags98839%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-id class-type-flag-system))) - (_%properties98566%_ '((direct-slots:) (system: . #t))) - (_%slot-table98567%_ + (_%properties98840%_ '((direct-slots:) (system: . #t))) + (_%slot-table98841%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp100040 (cons t::t '()))) + (let ((__tmp100314 (cons t::t '()))) (declare (not safe)) (##structure class::t 'object 'object - _%flags98565%_ + _%flags98839%_ '#f '#() - __tmp100040 + __tmp100314 '#(#f) - _%slot-table98567%_ - _%properties98566%_ + _%slot-table98841%_ + _%properties98840%_ '#f '#f)))) (define class-type? - (lambda (_%obj98563%_) + (lambda (_%obj98837%_) (let () (declare (not safe)) - (##structure-instance-of? _%obj98563%_ 'class)))) + (##structure-instance-of? _%obj98837%_ 'class)))) (define class-type=? - (lambda (_%x98538%_ _%y98539%_) + (lambda (_%x98812%_ _%y98813%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%x98538%_ 'class)) - (let ((_%x98543%_ _%x98538%_)) + (##structure-instance-of? _%x98812%_ 'class)) + (let ((_%x98817%_ _%x98812%_)) (if (let () (declare (not safe)) - (##structure-instance-of? _%y98539%_ 'class)) - (let ((_%y98553%_ _%y98539%_)) - (__class-type=? _%x98543%_ _%y98553%_)) + (##structure-instance-of? _%y98813%_ 'class)) + (let ((_%y98827%_ _%y98813%_)) + (__class-type=? _%x98817%_ _%y98827%_)) (begin (raise-contract-violation-error '"contract violation" @@ -172,7 +172,7 @@ 'contract: 'class-type? 'value: - _%y98539%_) + _%y98813%_) '#!void))) (begin (raise-contract-violation-error @@ -182,22 +182,22 @@ 'contract: 'class-type? 'value: - _%x98538%_) + _%x98812%_) '#!void)))) (define __class-type=? - (lambda (_%x98517%_ _%y98518%_) - (let* ((_%x98521%_ _%x98517%_) (_%y98529%_ _%y98518%_)) + (lambda (_%x98791%_ _%y98792%_) + (let* ((_%x98795%_ _%x98791%_) (_%y98803%_ _%y98792%_)) (eq? (let () (declare (not safe)) - (##unchecked-structure-ref _%x98521%_ '1 '#f '#f)) + (##unchecked-structure-ref _%x98795%_ '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-ref _%y98529%_ '1 '#f '#f)))))) + (##unchecked-structure-ref _%y98803%_ '1 '#f '#f)))))) (define type-opaque? - (lambda (_%type98503%_) - (if (let () (declare (not safe)) (##type? _%type98503%_)) - (let ((_%type98507%_ _%type98503%_)) - (__type-opaque? _%type98507%_)) + (lambda (_%type98777%_) + (if (let () (declare (not safe)) (##type? _%type98777%_)) + (let ((_%type98781%_ _%type98777%_)) + (__type-opaque? _%type98781%_)) (begin (raise-contract-violation-error '"contract violation" @@ -206,25 +206,25 @@ 'contract: '##type? 'value: - _%type98503%_) + _%type98777%_) '#!void)))) (define __type-opaque? - (lambda (_%type98491%_) - (let* ((_%type98494%_ _%type98491%_) - (__tmp100041 - (let ((__tmp100042 + (lambda (_%type98765%_) + (let* ((_%type98768%_ _%type98765%_) + (__tmp100315 + (let ((__tmp100316 (let () (declare (not safe)) - (##type-flags _%type98494%_)))) + (##type-flags _%type98768%_)))) (declare (not safe)) - (##fxand __tmp100042 type-flag-opaque)))) + (##fxand __tmp100316 type-flag-opaque)))) (declare (not safe)) - (##fx= __tmp100041 type-flag-opaque)))) + (##fx= __tmp100315 type-flag-opaque)))) (define type-extensible? - (lambda (_%type98477%_) - (if (let () (declare (not safe)) (##type? _%type98477%_)) - (let ((_%type98481%_ _%type98477%_)) - (__type-extensible? _%type98481%_)) + (lambda (_%type98751%_) + (if (let () (declare (not safe)) (##type? _%type98751%_)) + (let ((_%type98755%_ _%type98751%_)) + (__type-extensible? _%type98755%_)) (begin (raise-contract-violation-error '"contract violation" @@ -233,27 +233,27 @@ 'contract: '##type? 'value: - _%type98477%_) + _%type98751%_) '#!void)))) (define __type-extensible? - (lambda (_%type98465%_) - (let* ((_%type98468%_ _%type98465%_) - (__tmp100043 - (let ((__tmp100044 + (lambda (_%type98739%_) + (let* ((_%type98742%_ _%type98739%_) + (__tmp100317 + (let ((__tmp100318 (let () (declare (not safe)) - (##type-flags _%type98468%_)))) + (##type-flags _%type98742%_)))) (declare (not safe)) - (##fxand __tmp100044 type-flag-extensible)))) + (##fxand __tmp100318 type-flag-extensible)))) (declare (not safe)) - (##fx= __tmp100043 type-flag-extensible)))) + (##fx= __tmp100317 type-flag-extensible)))) (define class-type-final? - (lambda (_%type98451%_) + (lambda (_%type98725%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type98451%_ 'class)) - (let ((_%type98455%_ _%type98451%_)) - (__class-type-final? _%type98455%_)) + (##structure-instance-of? _%type98725%_ 'class)) + (let ((_%type98729%_ _%type98725%_)) + (__class-type-final? _%type98729%_)) (begin (raise-contract-violation-error '"contract violation" @@ -262,27 +262,27 @@ 'contract: 'class-type? 'value: - _%type98451%_) + _%type98725%_) '#!void)))) (define __class-type-final? - (lambda (_%type98439%_) - (let* ((_%type98442%_ _%type98439%_) - (__tmp100045 - (let ((__tmp100046 + (lambda (_%type98713%_) + (let* ((_%type98716%_ _%type98713%_) + (__tmp100319 + (let ((__tmp100320 (let () (declare (not safe)) - (##type-flags _%type98442%_)))) + (##type-flags _%type98716%_)))) (declare (not safe)) - (##fxand __tmp100046 type-flag-extensible)))) + (##fxand __tmp100320 type-flag-extensible)))) (declare (not safe)) - (##fx= __tmp100045 '0)))) + (##fx= __tmp100319 '0)))) (define class-type-struct? - (lambda (_%klass98425%_) + (lambda (_%klass98699%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98425%_ 'class)) - (let ((_%klass98429%_ _%klass98425%_)) - (__class-type-struct? _%klass98429%_)) + (##structure-instance-of? _%klass98699%_ 'class)) + (let ((_%klass98703%_ _%klass98699%_)) + (__class-type-struct? _%klass98703%_)) (begin (raise-contract-violation-error '"contract violation" @@ -291,27 +291,27 @@ 'contract: 'class-type? 'value: - _%klass98425%_) + _%klass98699%_) '#!void)))) (define __class-type-struct? - (lambda (_%klass98413%_) - (let* ((_%klass98416%_ _%klass98413%_) - (__tmp100047 - (let ((__tmp100048 + (lambda (_%klass98687%_) + (let* ((_%klass98690%_ _%klass98687%_) + (__tmp100321 + (let ((__tmp100322 (let () (declare (not safe)) - (##type-flags _%klass98416%_)))) + (##type-flags _%klass98690%_)))) (declare (not safe)) - (##fxand __tmp100048 class-type-flag-struct)))) + (##fxand __tmp100322 class-type-flag-struct)))) (declare (not safe)) - (##fx= __tmp100047 class-type-flag-struct)))) + (##fx= __tmp100321 class-type-flag-struct)))) (define class-type-sealed? - (lambda (_%klass98399%_) + (lambda (_%klass98673%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98399%_ 'class)) - (let ((_%klass98403%_ _%klass98399%_)) - (__class-type-sealed? _%klass98403%_)) + (##structure-instance-of? _%klass98673%_ 'class)) + (let ((_%klass98677%_ _%klass98673%_)) + (__class-type-sealed? _%klass98677%_)) (begin (raise-contract-violation-error '"contract violation" @@ -320,27 +320,27 @@ 'contract: 'class-type? 'value: - _%klass98399%_) + _%klass98673%_) '#!void)))) (define __class-type-sealed? - (lambda (_%klass98387%_) - (let* ((_%klass98390%_ _%klass98387%_) - (__tmp100049 - (let ((__tmp100050 + (lambda (_%klass98661%_) + (let* ((_%klass98664%_ _%klass98661%_) + (__tmp100323 + (let ((__tmp100324 (let () (declare (not safe)) - (##type-flags _%klass98390%_)))) + (##type-flags _%klass98664%_)))) (declare (not safe)) - (##fxand __tmp100050 class-type-flag-sealed)))) + (##fxand __tmp100324 class-type-flag-sealed)))) (declare (not safe)) - (##fx= __tmp100049 class-type-flag-sealed)))) + (##fx= __tmp100323 class-type-flag-sealed)))) (define class-type-metaclass? - (lambda (_%klass98373%_) + (lambda (_%klass98647%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98373%_ 'class)) - (let ((_%klass98377%_ _%klass98373%_)) - (__class-type-metaclass? _%klass98377%_)) + (##structure-instance-of? _%klass98647%_ 'class)) + (let ((_%klass98651%_ _%klass98647%_)) + (__class-type-metaclass? _%klass98651%_)) (begin (raise-contract-violation-error '"contract violation" @@ -349,27 +349,27 @@ 'contract: 'class-type? 'value: - _%klass98373%_) + _%klass98647%_) '#!void)))) (define __class-type-metaclass? - (lambda (_%klass98361%_) - (let* ((_%klass98364%_ _%klass98361%_) - (__tmp100051 - (let ((__tmp100052 + (lambda (_%klass98635%_) + (let* ((_%klass98638%_ _%klass98635%_) + (__tmp100325 + (let ((__tmp100326 (let () (declare (not safe)) - (##type-flags _%klass98364%_)))) + (##type-flags _%klass98638%_)))) (declare (not safe)) - (##fxand __tmp100052 class-type-flag-metaclass)))) + (##fxand __tmp100326 class-type-flag-metaclass)))) (declare (not safe)) - (##fx= __tmp100051 class-type-flag-metaclass)))) + (##fx= __tmp100325 class-type-flag-metaclass)))) (define class-type-system? - (lambda (_%klass98347%_) + (lambda (_%klass98621%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98347%_ 'class)) - (let ((_%klass98351%_ _%klass98347%_)) - (__class-type-system? _%klass98351%_)) + (##structure-instance-of? _%klass98621%_ 'class)) + (let ((_%klass98625%_ _%klass98621%_)) + (__class-type-system? _%klass98625%_)) (begin (raise-contract-violation-error '"contract violation" @@ -378,574 +378,574 @@ 'contract: 'class-type? 'value: - _%klass98347%_) + _%klass98621%_) '#!void)))) (define __class-type-system? - (lambda (_%klass98335%_) - (let* ((_%klass98338%_ _%klass98335%_) - (__tmp100053 - (let ((__tmp100054 + (lambda (_%klass98609%_) + (let* ((_%klass98612%_ _%klass98609%_) + (__tmp100327 + (let ((__tmp100328 (let () (declare (not safe)) - (##type-flags _%klass98338%_)))) + (##type-flags _%klass98612%_)))) (declare (not safe)) - (##fxand __tmp100054 class-type-flag-system)))) + (##fxand __tmp100328 class-type-flag-system)))) (declare (not safe)) - (##fx= __tmp100053 class-type-flag-system)))) + (##fx= __tmp100327 class-type-flag-system)))) (define make-class-type-descriptor - (lambda (_%type-id98220%_ - _%type-name98221%_ - _%type-super98222%_ - _%precedence-list98223%_ - _%slot-vector98224%_ - _%properties98225%_ - _%constructor98226%_ - _%slot-table98227%_ - _%methods98228%_) - (letrec ((_%make-props!98231%_ - (lambda (_%key98304%_) - (letrec* ((_%ht98306%_ + (lambda (_%type-id98494%_ + _%type-name98495%_ + _%type-super98496%_ + _%precedence-list98497%_ + _%slot-vector98498%_ + _%properties98499%_ + _%constructor98500%_ + _%slot-table98501%_ + _%methods98502%_) + (letrec ((_%make-props!98505%_ + (lambda (_%key98578%_) + (letrec* ((_%ht98580%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) - (_%put-slots!98307%_ - (lambda (_%ht98328%_ _%slots98329%_) + (_%put-slots!98581%_ + (lambda (_%ht98602%_ _%slots98603%_) (for-each - (lambda (_%g9833098332%_) + (lambda (_%g9860498606%_) (let () (declare (not safe)) (symbolic-table-set! - _%ht98328%_ - _%g9833098332%_ + _%ht98602%_ + _%g9860498606%_ '#t))) - _%slots98329%_))) - (_%put-alist!98308%_ - (lambda (_%ht98317%_ - _%key98318%_ - _%alist98319%_) - (let ((_%$e98321%_ + _%slots98603%_))) + (_%put-alist!98582%_ + (lambda (_%ht98591%_ + _%key98592%_ + _%alist98593%_) + (let ((_%$e98595%_ (let () (declare (not safe)) (agetq__0 - _%key98318%_ - _%alist98319%_)))) - (if _%$e98321%_ - ((lambda (_%g9832398325%_) - (_%put-slots!98307%_ - _%ht98317%_ - _%g9832398325%_)) - _%$e98321%_) + _%key98592%_ + _%alist98593%_)))) + (if _%$e98595%_ + ((lambda (_%g9859798599%_) + (_%put-slots!98581%_ + _%ht98591%_ + _%g9859798599%_)) + _%$e98595%_) '#!void))))) - (_%put-alist!98308%_ - _%ht98306%_ - _%key98304%_ - _%properties98225%_) + (_%put-alist!98582%_ + _%ht98580%_ + _%key98578%_ + _%properties98499%_) (for-each - (lambda (_%mixin98310%_) - (let ((_%alist98312%_ + (lambda (_%mixin98584%_) + (let ((_%alist98586%_ (##structure-ref - _%mixin98310%_ + _%mixin98584%_ '9 class::t '#f))) (if (or (let () (declare (not safe)) - (agetq__0 'transparent: _%alist98312%_)) + (agetq__0 'transparent: _%alist98586%_)) (eq? '#t (let () (declare (not safe)) (agetq__0 - _%key98304%_ - _%alist98312%_)))) - (_%put-slots!98307%_ - _%ht98306%_ - (class-type-slot-list _%mixin98310%_)) - (_%put-alist!98308%_ - _%ht98306%_ - _%key98304%_ - _%alist98312%_)))) - _%precedence-list98223%_) - _%ht98306%_)))) - (let* ((_%transparent?98233%_ + _%key98578%_ + _%alist98586%_)))) + (_%put-slots!98581%_ + _%ht98580%_ + (class-type-slot-list _%mixin98584%_)) + (_%put-alist!98582%_ + _%ht98580%_ + _%key98578%_ + _%alist98586%_)))) + _%precedence-list98497%_) + _%ht98580%_)))) + (let* ((_%transparent?98507%_ (let () (declare (not safe)) - (agetq__0 'transparent: _%properties98225%_))) - (_%all-slots-printable?98238%_ - (let ((_%$e98235%_ _%transparent?98233%_)) - (if _%$e98235%_ - _%$e98235%_ + (agetq__0 'transparent: _%properties98499%_))) + (_%all-slots-printable?98512%_ + (let ((_%$e98509%_ _%transparent?98507%_)) + (if _%$e98509%_ + _%$e98509%_ (eq? '#t (let () (declare (not safe)) - (agetq__0 'print: _%properties98225%_)))))) - (_%printable98240%_ - (if (not _%all-slots-printable?98238%_) - (_%make-props!98231%_ 'print:) + (agetq__0 'print: _%properties98499%_)))))) + (_%printable98514%_ + (if (not _%all-slots-printable?98512%_) + (_%make-props!98505%_ 'print:) '#f)) - (_%all-slots-equalable?98245%_ - (let ((_%$e98242%_ _%transparent?98233%_)) - (if _%$e98242%_ - _%$e98242%_ + (_%all-slots-equalable?98519%_ + (let ((_%$e98516%_ _%transparent?98507%_)) + (if _%$e98516%_ + _%$e98516%_ (eq? '#t (let () (declare (not safe)) - (agetq__0 'equal: _%properties98225%_)))))) - (_%equalable98247%_ - (if (not _%all-slots-equalable?98245%_) - (_%make-props!98231%_ 'equal:) + (agetq__0 'equal: _%properties98499%_)))))) + (_%equalable98521%_ + (if (not _%all-slots-equalable?98519%_) + (_%make-props!98505%_ 'equal:) '#f)) - (_%first-new-field98249%_ + (_%first-new-field98523%_ (if (let () (declare (not safe)) - (##structure-instance-of? _%type-super98222%_ 'class)) - (let ((__tmp100055 + (##structure-instance-of? _%type-super98496%_ 'class)) + (let ((__tmp100329 (let () (declare (not safe)) (##unchecked-structure-ref - _%type-super98222%_ + _%type-super98496%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp100055)) + (##vector-length __tmp100329)) '1)) - (_%field-info-length98251%_ - (let ((__tmp100056 - (let ((__tmp100057 + (_%field-info-length98525%_ + (let ((__tmp100330 + (let ((__tmp100331 (let () (declare (not safe)) - (##vector-length _%slot-vector98224%_)))) + (##vector-length _%slot-vector98498%_)))) (declare (not safe)) - (##fx- __tmp100057 _%first-new-field98249%_)))) + (##fx- __tmp100331 _%first-new-field98523%_)))) (declare (not safe)) - (##fx* '3 __tmp100056))) - (_%field-info98253%_ + (##fx* '3 __tmp100330))) + (_%field-info98527%_ (let () (declare (not safe)) - (##make-vector _%field-info-length98251%_ '#f))) - (_%struct?98255%_ + (##make-vector _%field-info-length98525%_ '#f))) + (_%struct?98529%_ (let () (declare (not safe)) - (agetq__0 'struct: _%properties98225%_))) - (_%final?98257%_ + (agetq__0 'struct: _%properties98499%_))) + (_%final?98531%_ (let () (declare (not safe)) - (agetq__0 'final: _%properties98225%_))) - (_%metaclass98265%_ - (let ((_%metaclass9825898260%_ + (agetq__0 'final: _%properties98499%_))) + (_%metaclass98539%_ + (let ((_%metaclass9853298534%_ (let () (declare (not safe)) - (agetq__0 'metaclass: _%properties98225%_)))) - (if _%metaclass9825898260%_ - (let ((_%metaclass98263%_ _%metaclass9825898260%_)) + (agetq__0 'metaclass: _%properties98499%_)))) + (if _%metaclass9853298534%_ + (let ((_%metaclass98537%_ _%metaclass9853298534%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%metaclass98263%_ + _%metaclass98537%_ 'class)) '#!void (error '"metaclass is not a class type" 'class: - _%type-id98220%_ + _%type-id98494%_ 'metaclass: - _%metaclass98263%_)) - _%metaclass98263%_) + _%metaclass98537%_)) + _%metaclass98537%_) '#f))) - (_%system?98267%_ + (_%system?98541%_ (let () (declare (not safe)) - (agetq__0 'system: _%properties98225%_))) - (_%opaque?98272%_ - (let ((_%$e98269%_ (not _%all-slots-equalable?98245%_))) - (if _%$e98269%_ - _%$e98269%_ - (if _%type-super98222%_ - (__type-opaque? _%type-super98222%_) + (agetq__0 'system: _%properties98499%_))) + (_%opaque?98546%_ + (let ((_%$e98543%_ (not _%all-slots-equalable?98519%_))) + (if _%$e98543%_ + _%$e98543%_ + (if _%type-super98496%_ + (__type-opaque? _%type-super98496%_) '#f)))) - (_%type-flags98274%_ - (let ((__tmp100062 - (if _%final?98257%_ '0 type-flag-extensible)) - (__tmp100061 (if _%opaque?98272%_ type-flag-opaque '0)) - (__tmp100060 - (if _%struct?98255%_ class-type-flag-struct '0)) - (__tmp100059 - (if _%metaclass98265%_ class-type-flag-metaclass '0)) - (__tmp100058 - (if _%system?98267%_ class-type-flag-system '0))) + (_%type-flags98548%_ + (let ((__tmp100336 + (if _%final?98531%_ '0 type-flag-extensible)) + (__tmp100335 (if _%opaque?98546%_ type-flag-opaque '0)) + (__tmp100334 + (if _%struct?98529%_ class-type-flag-struct '0)) + (__tmp100333 + (if _%metaclass98539%_ class-type-flag-metaclass '0)) + (__tmp100332 + (if _%system?98541%_ class-type-flag-system '0))) (declare (not safe)) (##fxior type-flag-id type-flag-concrete - __tmp100062 - __tmp100061 - __tmp100060 - __tmp100059 - __tmp100058))) - (_%precedence-list98282%_ - (let ((_%$e98276%_ (memq t::t _%precedence-list98223%_))) - (if _%$e98276%_ - ((lambda (_%tail98279%_) - (if (null? (cdr _%tail98279%_)) - _%precedence-list98223%_ + __tmp100336 + __tmp100335 + __tmp100334 + __tmp100333 + __tmp100332))) + (_%precedence-list98556%_ + (let ((_%$e98550%_ (memq t::t _%precedence-list98497%_))) + (if _%$e98550%_ + ((lambda (_%tail98553%_) + (if (null? (cdr _%tail98553%_)) + _%precedence-list98497%_ (error '"BUG: t::t is not last in the precedence list" 'precedence-list: - _%precedence-list98223%_))) - _%$e98276%_) - (let ((__tmp100063 (cons t::t '()))) + _%precedence-list98497%_))) + _%$e98550%_) + (let ((__tmp100337 (cons t::t '()))) (declare (not safe)) - (##append _%precedence-list98223%_ __tmp100063)))))) - (let _%loop98285%_ ((_%i98287%_ _%first-new-field98249%_) - (_%j98288%_ '0)) + (##append _%precedence-list98497%_ __tmp100337)))))) + (let _%loop98559%_ ((_%i98561%_ _%first-new-field98523%_) + (_%j98562%_ '0)) (if (let () (declare (not safe)) - (##fx< _%j98288%_ _%field-info-length98251%_)) - (let* ((_%slot98290%_ + (##fx< _%j98562%_ _%field-info-length98525%_)) + (let* ((_%slot98564%_ (let () (declare (not safe)) - (##vector-ref _%slot-vector98224%_ _%i98287%_))) - (_%flags98298%_ - (if _%transparent?98233%_ + (##vector-ref _%slot-vector98498%_ _%i98561%_))) + (_%flags98572%_ + (if _%transparent?98507%_ '0 - (let ((__tmp100065 - (if (or _%all-slots-printable?98238%_ + (let ((__tmp100339 + (if (or _%all-slots-printable?98512%_ (let () (declare (not safe)) (symbolic-table-ref - _%printable98240%_ - _%slot98290%_ + _%printable98514%_ + _%slot98564%_ '#f))) '0 '1)) - (__tmp100064 - (if (or _%all-slots-equalable?98245%_ + (__tmp100338 + (if (or _%all-slots-equalable?98519%_ (let () (declare (not safe)) (symbolic-table-ref - _%equalable98247%_ - _%slot98290%_ + _%equalable98521%_ + _%slot98564%_ '#f))) '0 '4))) (declare (not safe)) - (##fxior __tmp100065 __tmp100064))))) - (vector-set! _%field-info98253%_ _%j98288%_ _%slot98290%_) + (##fxior __tmp100339 __tmp100338))))) + (vector-set! _%field-info98527%_ _%j98562%_ _%slot98564%_) (vector-set! - _%field-info98253%_ - (let () (declare (not safe)) (##fx+ _%j98288%_ '1)) - _%flags98298%_) - (_%loop98285%_ - (let () (declare (not safe)) (##fx+ _%i98287%_ '1)) - (let () (declare (not safe)) (##fx+ _%j98288%_ '3)))) + _%field-info98527%_ + (let () (declare (not safe)) (##fx+ _%j98562%_ '1)) + _%flags98572%_) + (_%loop98559%_ + (let () (declare (not safe)) (##fx+ _%i98561%_ '1)) + (let () (declare (not safe)) (##fx+ _%j98562%_ '3)))) '#!void)) - (if _%metaclass98265%_ - (let ((_%val98301%_ + (if _%metaclass98539%_ + (let ((_%val98575%_ (make-instance - _%metaclass98265%_ - _%type-id98220%_ - _%type-name98221%_ - _%type-flags98274%_ - _%type-super98222%_ - _%field-info98253%_ - _%precedence-list98282%_ - _%slot-vector98224%_ - _%slot-table98227%_ - _%properties98225%_ - _%constructor98226%_ - _%methods98228%_))) + _%metaclass98539%_ + _%type-id98494%_ + _%type-name98495%_ + _%type-flags98548%_ + _%type-super98496%_ + _%field-info98527%_ + _%precedence-list98556%_ + _%slot-vector98498%_ + _%slot-table98501%_ + _%properties98499%_ + _%constructor98500%_ + _%methods98502%_))) (if (let () (declare (not safe)) - (##structure-instance-of? _%val98301%_ 'class)) - _%val98301%_ - (error '"bad cast" class::t _%val98301%_))) + (##structure-instance-of? _%val98575%_ 'class)) + _%val98575%_ + (error '"bad cast" class::t _%val98575%_))) (let () (declare (not safe)) (##structure class::t - _%type-id98220%_ - _%type-name98221%_ - _%type-flags98274%_ - _%type-super98222%_ - _%field-info98253%_ - _%precedence-list98282%_ - _%slot-vector98224%_ - _%slot-table98227%_ - _%properties98225%_ - _%constructor98226%_ - _%methods98228%_))))))) + _%type-id98494%_ + _%type-name98495%_ + _%type-flags98548%_ + _%type-super98496%_ + _%field-info98527%_ + _%precedence-list98556%_ + _%slot-vector98498%_ + _%slot-table98501%_ + _%properties98499%_ + _%constructor98500%_ + _%methods98502%_))))))) (define class-type-id - (lambda (_%klass98218%_) - (##structure-ref _%klass98218%_ '1 class::t 'id))) + (lambda (_%klass98492%_) + (##structure-ref _%klass98492%_ '1 class::t 'id))) (define &class-type-id - (lambda (_%klass98216%_) + (lambda (_%klass98490%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass98216%_ '1 class::t 'id)))) + (##unchecked-structure-ref _%klass98490%_ '1 class::t 'id)))) (define class-type-id-set! - (lambda (_%klass98213%_ _%val98214%_) - (##structure-set! _%klass98213%_ _%val98214%_ '1 class::t 'id))) + (lambda (_%klass98487%_ _%val98488%_) + (##structure-set! _%klass98487%_ _%val98488%_ '1 class::t 'id))) (define &class-type-id-set! - (lambda (_%klass98208%_ _%val98210%_) + (lambda (_%klass98482%_ _%val98484%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass98208%_ - _%val98210%_ + _%klass98482%_ + _%val98484%_ '1 class::t 'id)))) (define class-type-name - (lambda (_%klass98206%_) - (##structure-ref _%klass98206%_ '2 class::t 'name))) + (lambda (_%klass98480%_) + (##structure-ref _%klass98480%_ '2 class::t 'name))) (define &class-type-name - (lambda (_%klass98204%_) + (lambda (_%klass98478%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass98204%_ '2 class::t 'name)))) + (##unchecked-structure-ref _%klass98478%_ '2 class::t 'name)))) (define class-type-name-set! - (lambda (_%klass98201%_ _%val98202%_) - (##structure-set! _%klass98201%_ _%val98202%_ '2 class::t 'name))) + (lambda (_%klass98475%_ _%val98476%_) + (##structure-set! _%klass98475%_ _%val98476%_ '2 class::t 'name))) (define &class-type-name-set! - (lambda (_%klass98196%_ _%val98198%_) + (lambda (_%klass98470%_ _%val98472%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass98196%_ - _%val98198%_ + _%klass98470%_ + _%val98472%_ '2 class::t 'name)))) (define class-type-flags - (lambda (_%klass98194%_) - (##structure-ref _%klass98194%_ '3 class::t 'flags))) + (lambda (_%klass98468%_) + (##structure-ref _%klass98468%_ '3 class::t 'flags))) (define &class-type-flags - (lambda (_%klass98192%_) + (lambda (_%klass98466%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass98192%_ '3 class::t 'flags)))) + (##unchecked-structure-ref _%klass98466%_ '3 class::t 'flags)))) (define class-type-flags-set! - (lambda (_%klass98189%_ _%val98190%_) - (##structure-set! _%klass98189%_ _%val98190%_ '3 class::t 'flags))) + (lambda (_%klass98463%_ _%val98464%_) + (##structure-set! _%klass98463%_ _%val98464%_ '3 class::t 'flags))) (define &class-type-flags-set! - (lambda (_%klass98184%_ _%val98186%_) + (lambda (_%klass98458%_ _%val98460%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass98184%_ - _%val98186%_ + _%klass98458%_ + _%val98460%_ '3 class::t 'flags)))) (define class-type-super - (lambda (_%klass98182%_) - (##structure-ref _%klass98182%_ '4 class::t 'super))) + (lambda (_%klass98456%_) + (##structure-ref _%klass98456%_ '4 class::t 'super))) (define &class-type-super - (lambda (_%klass98180%_) + (lambda (_%klass98454%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass98180%_ '4 class::t 'super)))) + (##unchecked-structure-ref _%klass98454%_ '4 class::t 'super)))) (define class-type-super-set! - (lambda (_%klass98177%_ _%val98178%_) - (##structure-set! _%klass98177%_ _%val98178%_ '4 class::t 'super))) + (lambda (_%klass98451%_ _%val98452%_) + (##structure-set! _%klass98451%_ _%val98452%_ '4 class::t 'super))) (define &class-type-super-set! - (lambda (_%klass98172%_ _%val98174%_) + (lambda (_%klass98446%_ _%val98448%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass98172%_ - _%val98174%_ + _%klass98446%_ + _%val98448%_ '4 class::t 'super)))) (define class-type-fields - (lambda (_%klass98170%_) - (##structure-ref _%klass98170%_ '5 class::t 'fields))) + (lambda (_%klass98444%_) + (##structure-ref _%klass98444%_ '5 class::t 'fields))) (define &class-type-fields - (lambda (_%klass98168%_) + (lambda (_%klass98442%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass98168%_ '5 class::t 'fields)))) + (##unchecked-structure-ref _%klass98442%_ '5 class::t 'fields)))) (define class-type-fields-set! - (lambda (_%klass98165%_ _%val98166%_) - (##structure-set! _%klass98165%_ _%val98166%_ '5 class::t 'fields))) + (lambda (_%klass98439%_ _%val98440%_) + (##structure-set! _%klass98439%_ _%val98440%_ '5 class::t 'fields))) (define &class-type-fields-set! - (lambda (_%klass98160%_ _%val98162%_) + (lambda (_%klass98434%_ _%val98436%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass98160%_ - _%val98162%_ + _%klass98434%_ + _%val98436%_ '5 class::t 'fields)))) (define class-type-precedence-list - (lambda (_%klass98158%_) - (##structure-ref _%klass98158%_ '6 class::t 'precedence-list))) + (lambda (_%klass98432%_) + (##structure-ref _%klass98432%_ '6 class::t 'precedence-list))) (define &class-type-precedence-list - (lambda (_%klass98156%_) + (lambda (_%klass98430%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass98156%_ + _%klass98430%_ '6 class::t 'precedence-list)))) (define class-type-precedence-list-set! - (lambda (_%klass98153%_ _%val98154%_) + (lambda (_%klass98427%_ _%val98428%_) (##structure-set! - _%klass98153%_ - _%val98154%_ + _%klass98427%_ + _%val98428%_ '6 class::t 'precedence-list))) (define &class-type-precedence-list-set! - (lambda (_%klass98148%_ _%val98150%_) + (lambda (_%klass98422%_ _%val98424%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass98148%_ - _%val98150%_ + _%klass98422%_ + _%val98424%_ '6 class::t 'precedence-list)))) (define class-type-slot-vector - (lambda (_%klass98146%_) - (##structure-ref _%klass98146%_ '7 class::t 'slot-vector))) + (lambda (_%klass98420%_) + (##structure-ref _%klass98420%_ '7 class::t 'slot-vector))) (define &class-type-slot-vector - (lambda (_%klass98144%_) + (lambda (_%klass98418%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass98144%_ + _%klass98418%_ '7 class::t 'slot-vector)))) (define class-type-slot-vector-set! - (lambda (_%klass98141%_ _%val98142%_) + (lambda (_%klass98415%_ _%val98416%_) (##structure-set! - _%klass98141%_ - _%val98142%_ + _%klass98415%_ + _%val98416%_ '7 class::t 'slot-vector))) (define &class-type-slot-vector-set! - (lambda (_%klass98136%_ _%val98138%_) + (lambda (_%klass98410%_ _%val98412%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass98136%_ - _%val98138%_ + _%klass98410%_ + _%val98412%_ '7 class::t 'slot-vector)))) (define class-type-slot-table - (lambda (_%klass98134%_) - (##structure-ref _%klass98134%_ '8 class::t 'slot-table))) + (lambda (_%klass98408%_) + (##structure-ref _%klass98408%_ '8 class::t 'slot-table))) (define &class-type-slot-table - (lambda (_%klass98132%_) + (lambda (_%klass98406%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass98132%_ '8 class::t 'slot-table)))) + (##unchecked-structure-ref _%klass98406%_ '8 class::t 'slot-table)))) (define class-type-slot-table-set! - (lambda (_%klass98129%_ _%val98130%_) + (lambda (_%klass98403%_ _%val98404%_) (##structure-set! - _%klass98129%_ - _%val98130%_ + _%klass98403%_ + _%val98404%_ '8 class::t 'slot-table))) (define &class-type-slot-table-set! - (lambda (_%klass98124%_ _%val98126%_) + (lambda (_%klass98398%_ _%val98400%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass98124%_ - _%val98126%_ + _%klass98398%_ + _%val98400%_ '8 class::t 'slot-table)))) (define class-type-properties - (lambda (_%klass98122%_) - (##structure-ref _%klass98122%_ '9 class::t 'properties))) + (lambda (_%klass98396%_) + (##structure-ref _%klass98396%_ '9 class::t 'properties))) (define &class-type-properties - (lambda (_%klass98120%_) + (lambda (_%klass98394%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass98120%_ '9 class::t 'properties)))) + (##unchecked-structure-ref _%klass98394%_ '9 class::t 'properties)))) (define class-type-properties-set! - (lambda (_%klass98117%_ _%val98118%_) + (lambda (_%klass98391%_ _%val98392%_) (##structure-set! - _%klass98117%_ - _%val98118%_ + _%klass98391%_ + _%val98392%_ '9 class::t 'properties))) (define &class-type-properties-set! - (lambda (_%klass98112%_ _%val98114%_) + (lambda (_%klass98386%_ _%val98388%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass98112%_ - _%val98114%_ + _%klass98386%_ + _%val98388%_ '9 class::t 'properties)))) (define class-type-constructor - (lambda (_%klass98110%_) - (##structure-ref _%klass98110%_ '10 class::t 'constructor))) + (lambda (_%klass98384%_) + (##structure-ref _%klass98384%_ '10 class::t 'constructor))) (define &class-type-constructor - (lambda (_%klass98108%_) + (lambda (_%klass98382%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass98108%_ + _%klass98382%_ '10 class::t 'constructor)))) (define class-type-constructor-set! - (lambda (_%klass98105%_ _%val98106%_) + (lambda (_%klass98379%_ _%val98380%_) (##structure-set! - _%klass98105%_ - _%val98106%_ + _%klass98379%_ + _%val98380%_ '10 class::t 'constructor))) (define &class-type-constructor-set! - (lambda (_%klass98100%_ _%val98102%_) + (lambda (_%klass98374%_ _%val98376%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass98100%_ - _%val98102%_ + _%klass98374%_ + _%val98376%_ '10 class::t 'constructor)))) (define class-type-methods - (lambda (_%klass98098%_) - (##structure-ref _%klass98098%_ '11 class::t 'methods))) + (lambda (_%klass98372%_) + (##structure-ref _%klass98372%_ '11 class::t 'methods))) (define &class-type-methods - (lambda (_%klass98096%_) + (lambda (_%klass98370%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass98096%_ '11 class::t 'methods)))) + (##unchecked-structure-ref _%klass98370%_ '11 class::t 'methods)))) (define class-type-methods-set! - (lambda (_%klass98093%_ _%val98094%_) - (##structure-set! _%klass98093%_ _%val98094%_ '11 class::t 'methods))) + (lambda (_%klass98367%_ _%val98368%_) + (##structure-set! _%klass98367%_ _%val98368%_ '11 class::t 'methods))) (define &class-type-methods-set! - (lambda (_%klass98088%_ _%val98090%_) + (lambda (_%klass98362%_ _%val98364%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass98088%_ - _%val98090%_ + _%klass98362%_ + _%val98364%_ '11 class::t 'methods)))) (define class-type-slot-list - (lambda (_%klass98074%_) + (lambda (_%klass98348%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98074%_ 'class)) - (let ((_%klass98078%_ _%klass98074%_)) - (__class-type-slot-list _%klass98078%_)) + (##structure-instance-of? _%klass98348%_ 'class)) + (let ((_%klass98352%_ _%klass98348%_)) + (__class-type-slot-list _%klass98352%_)) (begin (raise-contract-violation-error '"contract violation" @@ -954,22 +954,22 @@ 'contract: 'class-type? 'value: - _%klass98074%_) + _%klass98348%_) '#!void)))) (define __class-type-slot-list - (lambda (_%klass98062%_) - (let ((_%klass98065%_ _%klass98062%_)) + (lambda (_%klass98336%_) + (let ((_%klass98339%_ _%klass98336%_)) (cdr (vector->list (let () (declare (not safe)) - (##unchecked-structure-ref _%klass98065%_ '7 '#f '#f))))))) + (##unchecked-structure-ref _%klass98339%_ '7 '#f '#f))))))) (define class-type-field-count - (lambda (_%klass98048%_) + (lambda (_%klass98322%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98048%_ 'class)) - (let ((_%klass98052%_ _%klass98048%_)) - (__class-type-field-count _%klass98052%_)) + (##structure-instance-of? _%klass98322%_ 'class)) + (let ((_%klass98326%_ _%klass98322%_)) + (__class-type-field-count _%klass98326%_)) (begin (raise-contract-violation-error '"contract violation" @@ -978,31 +978,31 @@ 'contract: 'class-type? 'value: - _%klass98048%_) + _%klass98322%_) '#!void)))) (define __class-type-field-count - (lambda (_%klass98036%_) - (let* ((_%klass98039%_ _%klass98036%_) - (__tmp100066 - (let ((__tmp100067 + (lambda (_%klass98310%_) + (let* ((_%klass98313%_ _%klass98310%_) + (__tmp100340 + (let ((__tmp100341 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass98039%_ + _%klass98313%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp100067)))) + (##vector-length __tmp100341)))) (declare (not safe)) - (##fx- __tmp100066 '1)))) + (##fx- __tmp100340 '1)))) (define class-type-seal! - (lambda (_%klass98022%_) + (lambda (_%klass98296%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98022%_ 'class)) - (let ((_%klass98026%_ _%klass98022%_)) - (__class-type-seal! _%klass98026%_)) + (##structure-instance-of? _%klass98296%_ 'class)) + (let ((_%klass98300%_ _%klass98296%_)) + (__class-type-seal! _%klass98300%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1011,42 +1011,42 @@ 'contract: 'class-type? 'value: - _%klass98022%_) + _%klass98296%_) '#!void)))) (define __class-type-seal! - (lambda (_%klass98010%_) - (let ((_%klass98013%_ _%klass98010%_)) - (let ((__tmp100068 - (let ((__tmp100069 + (lambda (_%klass98284%_) + (let ((_%klass98287%_ _%klass98284%_)) + (let ((__tmp100342 + (let ((__tmp100343 (let () (declare (not safe)) - (##type-flags _%klass98013%_)))) + (##type-flags _%klass98287%_)))) (declare (not safe)) - (##fxior class-type-flag-sealed __tmp100069)))) + (##fxior class-type-flag-sealed __tmp100343)))) (declare (not safe)) (##unchecked-structure-set! - _%klass98013%_ - __tmp100068 + _%klass98287%_ + __tmp100342 '3 class::t class-type-seal!)) '#!void))) (define substruct? - (lambda (_%maybe-sub-struct97985%_ _%maybe-super-struct97986%_) + (lambda (_%maybe-sub-struct98259%_ _%maybe-super-struct98260%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%maybe-sub-struct97985%_ 'class)) - (let ((_%maybe-sub-struct97990%_ _%maybe-sub-struct97985%_)) + (##structure-instance-of? _%maybe-sub-struct98259%_ 'class)) + (let ((_%maybe-sub-struct98264%_ _%maybe-sub-struct98259%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%maybe-super-struct97986%_ + _%maybe-super-struct98260%_ 'class)) - (let ((_%maybe-super-struct98000%_ - _%maybe-super-struct97986%_)) + (let ((_%maybe-super-struct98274%_ + _%maybe-super-struct98260%_)) (__substruct? - _%maybe-sub-struct97990%_ - _%maybe-super-struct98000%_)) + _%maybe-sub-struct98264%_ + _%maybe-super-struct98274%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1055,7 +1055,7 @@ 'contract: 'class-type? 'value: - _%maybe-super-struct97986%_) + _%maybe-super-struct98260%_) '#!void))) (begin (raise-contract-violation-error @@ -1065,300 +1065,300 @@ 'contract: 'class-type? 'value: - _%maybe-sub-struct97985%_) + _%maybe-sub-struct98259%_) '#!void)))) (define __substruct? - (lambda (_%maybe-sub-struct97954%_ _%maybe-super-struct97955%_) - (let* ((_%maybe-sub-struct97958%_ _%maybe-sub-struct97954%_) - (_%maybe-super-struct97966%_ _%maybe-super-struct97955%_) - (_%maybe-super-struct-id97975%_ + (lambda (_%maybe-sub-struct98228%_ _%maybe-super-struct98229%_) + (let* ((_%maybe-sub-struct98232%_ _%maybe-sub-struct98228%_) + (_%maybe-super-struct98240%_ _%maybe-super-struct98229%_) + (_%maybe-super-struct-id98249%_ (let () (declare (not safe)) - (##type-id _%maybe-super-struct97966%_)))) - (let _%lp97977%_ ((_%super-struct97979%_ _%maybe-sub-struct97958%_)) - (if (not _%super-struct97979%_) + (##type-id _%maybe-super-struct98240%_)))) + (let _%lp98251%_ ((_%super-struct98253%_ _%maybe-sub-struct98232%_)) + (if (not _%super-struct98253%_) '#f - (if (eq? _%maybe-super-struct-id97975%_ + (if (eq? _%maybe-super-struct-id98249%_ (let () (declare (not safe)) - (##type-id _%super-struct97979%_))) + (##type-id _%super-struct98253%_))) '#t - (_%lp97977%_ + (_%lp98251%_ (let () (declare (not safe)) - (##type-super _%super-struct97979%_))))))))) + (##type-super _%super-struct98253%_))))))))) (define base-struct/1 - (lambda (_%klass97949%_) + (lambda (_%klass98223%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97949%_ 'class)) - (if (__class-type-struct? _%klass97949%_) - _%klass97949%_ - (let () (declare (not safe)) (##type-super _%klass97949%_))) - (if (not _%klass97949%_) + (##structure-instance-of? _%klass98223%_ 'class)) + (if (__class-type-struct? _%klass98223%_) + _%klass98223%_ + (let () (declare (not safe)) (##type-super _%klass98223%_))) + (if (not _%klass98223%_) '#f - (error '"not a class or false" _%klass97949%_))))) + (error '"not a class or false" _%klass98223%_))))) (define base-struct/2 - (lambda (_%klass197934%_ _%klass297935%_) - (let ((_%s197937%_ (base-struct/1 _%klass197934%_)) - (_%s297938%_ (base-struct/1 _%klass297935%_))) - (if (or (not _%s197937%_) - (and _%s297938%_ (substruct? _%s197937%_ _%s297938%_))) - _%s297938%_ - (if (or (not _%s297938%_) - (and _%s197937%_ (substruct? _%s297938%_ _%s197937%_))) - _%s197937%_ + (lambda (_%klass198208%_ _%klass298209%_) + (let ((_%s198211%_ (base-struct/1 _%klass198208%_)) + (_%s298212%_ (base-struct/1 _%klass298209%_))) + (if (or (not _%s198211%_) + (and _%s298212%_ (substruct? _%s198211%_ _%s298212%_))) + _%s298212%_ + (if (or (not _%s298212%_) + (and _%s198211%_ (substruct? _%s298212%_ _%s198211%_))) + _%s198211%_ (error '"bad mixin: incompatible struct bases" - _%klass197934%_ - _%klass297935%_ - _%s197937%_ - _%s297938%_)))))) + _%klass198208%_ + _%klass298209%_ + _%s198211%_ + _%s298212%_)))))) (define base-struct/list - (lambda (_%all-supers97818%_) - (let* ((_%all-supers9781997844%_ _%all-supers97818%_) - (_%E9782497848%_ + (lambda (_%all-supers98092%_) + (let* ((_%all-supers9809398118%_ _%all-supers98092%_) + (_%E9809898122%_ (lambda () (error '"No clause matching" - _%all-supers9781997844%_ + _%all-supers9809398118%_ '([]) '([x]) '([x y]) '([x y ...])) '#!void))) - (let ((_%K9784297931%_ (lambda () '#f)) - (_%K9783997917%_ - (lambda (_%x97915%_) (base-struct/1 _%x97915%_))) - (_%K9783497894%_ - (lambda (_%y97891%_ _%x97892%_) - (base-struct/2 _%x97892%_ _%y97891%_))) - (_%K9782597855%_ - (lambda (_%y97852%_ _%x97853%_) + (let ((_%K9811698205%_ (lambda () '#f)) + (_%K9811398191%_ + (lambda (_%x98189%_) (base-struct/1 _%x98189%_))) + (_%K9810898168%_ + (lambda (_%y98165%_ _%x98166%_) + (base-struct/2 _%x98166%_ _%y98165%_))) + (_%K9809998129%_ + (lambda (_%y98126%_ _%x98127%_) (let () (declare (not safe)) - (__foldr1 base-struct/2 _%x97853%_ _%y97852%_))))) - (let* ((_%__match100028100029%_ - (lambda (_%hd9782697858%_ _%tl9782797860%_) - (let ((_%x97863%_ _%hd9782697858%_)) - (letrec ((_%splice-rest9782997865%_ - (lambda (_%rest9783397872%_ _%y97874%_) + (__foldr1 base-struct/2 _%x98127%_ _%y98126%_))))) + (let* ((_%__match100302100303%_ + (lambda (_%hd9810098132%_ _%tl9810198134%_) + (let ((_%x98137%_ _%hd9810098132%_)) + (letrec ((_%splice-rest9810398139%_ + (lambda (_%rest9810798146%_ _%y98148%_) (if (let () (declare (not safe)) - (##null? _%rest9783397872%_)) - (_%K9782597855%_ _%y97874%_ _%x97863%_) - (_%E9782497848%_)))) - (_%splice-try9783197867%_ - (lambda (_%hd9783297876%_ - _%rest9783397878%_ - _%y9782897879%_) - (let ((_%y97882%_ _%hd9783297876%_)) - (_%splice-loop9783097869%_ + (##null? _%rest9810798146%_)) + (_%K9809998129%_ _%y98148%_ _%x98137%_) + (_%E9809898122%_)))) + (_%splice-try9810598141%_ + (lambda (_%hd9810698150%_ + _%rest9810798152%_ + _%y9810298153%_) + (let ((_%y98156%_ _%hd9810698150%_)) + (_%splice-loop9810498143%_ (let () (declare (not safe)) - (##cdr _%rest9783397878%_)) - (cons _%y97882%_ _%y9782897879%_))))) - (_%splice-loop9783097869%_ - (lambda (_%rest9783397884%_ _%y9782897885%_) - (if (pair? _%rest9783397884%_) - (_%splice-try9783197867%_ + (##cdr _%rest9810798152%_)) + (cons _%y98156%_ _%y9810298153%_))))) + (_%splice-loop9810498143%_ + (lambda (_%rest9810798158%_ _%y9810298159%_) + (if (pair? _%rest9810798158%_) + (_%splice-try9810598141%_ (let () (declare (not safe)) - (##car _%rest9783397884%_)) - _%rest9783397884%_ - _%y9782897885%_) - (_%splice-rest9782997865%_ - _%rest9783397884%_ - (reverse _%y9782897885%_)))))) - (_%splice-loop9783097869%_ _%tl9782797860%_ '()))))) - (_%try-match9782197927%_ + (##car _%rest9810798158%_)) + _%rest9810798158%_ + _%y9810298159%_) + (_%splice-rest9810398139%_ + _%rest9810798158%_ + (reverse _%y9810298159%_)))))) + (_%splice-loop9810498143%_ _%tl9810198134%_ '()))))) + (_%try-match9809598201%_ (lambda () (if (let () (declare (not safe)) - (##pair? _%all-supers9781997844%_)) - (let ((_%tl9784197922%_ + (##pair? _%all-supers9809398118%_)) + (let ((_%tl9811598196%_ (let () (declare (not safe)) - (##cdr _%all-supers9781997844%_))) - (_%hd9784097920%_ + (##cdr _%all-supers9809398118%_))) + (_%hd9811498194%_ (let () (declare (not safe)) - (##car _%all-supers9781997844%_)))) + (##car _%all-supers9809398118%_)))) (if (let () (declare (not safe)) - (##null? _%tl9784197922%_)) - (let ((_%x97925%_ _%hd9784097920%_)) - (base-struct/1 _%x97925%_)) + (##null? _%tl9811598196%_)) + (let ((_%x98199%_ _%hd9811498194%_)) + (base-struct/1 _%x98199%_)) (if (let () (declare (not safe)) - (##pair? _%tl9784197922%_)) - (let ((_%tl9783897906%_ + (##pair? _%tl9811598196%_)) + (let ((_%tl9811298180%_ (let () (declare (not safe)) - (##cdr _%tl9784197922%_))) - (_%hd9783797904%_ + (##cdr _%tl9811598196%_))) + (_%hd9811198178%_ (let () (declare (not safe)) - (##car _%tl9784197922%_)))) + (##car _%tl9811598196%_)))) (if (let () (declare (not safe)) - (##null? _%tl9783897906%_)) - (let ((_%x97902%_ _%hd9784097920%_) - (_%y97909%_ _%hd9783797904%_)) - (_%K9783497894%_ - _%y97909%_ - _%x97902%_)) - (_%__match100028100029%_ - _%hd9784097920%_ - _%tl9784197922%_))) - (_%__match100028100029%_ - _%hd9784097920%_ - _%tl9784197922%_)))) - (_%E9782497848%_))))) + (##null? _%tl9811298180%_)) + (let ((_%x98176%_ _%hd9811498194%_) + (_%y98183%_ _%hd9811198178%_)) + (_%K9810898168%_ + _%y98183%_ + _%x98176%_)) + (_%__match100302100303%_ + _%hd9811498194%_ + _%tl9811598196%_))) + (_%__match100302100303%_ + _%hd9811498194%_ + _%tl9811598196%_)))) + (_%E9809898122%_))))) (if (let () (declare (not safe)) - (##null? _%all-supers9781997844%_)) - (_%K9784297931%_) - (_%try-match9782197927%_))))))) + (##null? _%all-supers9809398118%_)) + (_%K9811698205%_) + (_%try-match9809598201%_))))))) (define base-struct - (lambda _%all-supers97816%_ (base-struct/list _%all-supers97816%_))) + (lambda _%all-supers98090%_ (base-struct/list _%all-supers98090%_))) (define find-super-constructor - (lambda (_%super97767%_) - (let _%lp97769%_ ((_%rest97771%_ _%super97767%_) - (_%constructor97772%_ '#f)) - (let* ((_%rest9777397781%_ _%rest97771%_) - (_%else9777597789%_ (lambda () _%constructor97772%_)) - (_%K9777797804%_ - (lambda (_%rest97792%_ _%hd97793%_) - (let ((_%$e97795%_ + (lambda (_%super98041%_) + (let _%lp98043%_ ((_%rest98045%_ _%super98041%_) + (_%constructor98046%_ '#f)) + (let* ((_%rest9804798055%_ _%rest98045%_) + (_%else9804998063%_ (lambda () _%constructor98046%_)) + (_%K9805198078%_ + (lambda (_%rest98066%_ _%hd98067%_) + (let ((_%$e98069%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd97793%_ + _%hd98067%_ '10 '#f '#f)))) - (if _%$e97795%_ - ((lambda (_%xconstructor97798%_) - (if (or (not _%constructor97772%_) - (eq? _%constructor97772%_ - _%xconstructor97798%_)) - (_%lp97769%_ - _%rest97792%_ - _%xconstructor97798%_) + (if _%$e98069%_ + ((lambda (_%xconstructor98072%_) + (if (or (not _%constructor98046%_) + (eq? _%constructor98046%_ + _%xconstructor98072%_)) + (_%lp98043%_ + _%rest98066%_ + _%xconstructor98072%_) (error '"conflicting implicit constructors" - _%constructor97772%_ - _%xconstructor97798%_))) - _%$e97795%_) - (_%lp97769%_ _%rest97792%_ _%constructor97772%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest9777397781%_)) - (let ((_%hd9777897807%_ + _%constructor98046%_ + _%xconstructor98072%_))) + _%$e98069%_) + (_%lp98043%_ _%rest98066%_ _%constructor98046%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest9804798055%_)) + (let ((_%hd9805298081%_ (let () (declare (not safe)) - (##car _%rest9777397781%_))) - (_%tl9777997809%_ + (##car _%rest9804798055%_))) + (_%tl9805398083%_ (let () (declare (not safe)) - (##cdr _%rest9777397781%_)))) - (let* ((_%hd97812%_ _%hd9777897807%_) - (_%rest97814%_ _%tl9777997809%_)) - (_%K9777797804%_ _%rest97814%_ _%hd97812%_))) - (_%else9777597789%_)))))) + (##cdr _%rest9804798055%_)))) + (let* ((_%hd98086%_ _%hd9805298081%_) + (_%rest98088%_ _%tl9805398083%_)) + (_%K9805198078%_ _%rest98088%_ _%hd98086%_))) + (_%else9804998063%_)))))) (define compute-class-slots - (lambda (_%class-precedence-list97743%_ _%direct-slots97744%_) - (let* ((_%next-slot97746%_ '1) - (_%slot-table97748%_ + (lambda (_%class-precedence-list98017%_ _%direct-slots98018%_) + (let* ((_%next-slot98020%_ '1) + (_%slot-table98022%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) - (_%r-slots97750%_ '(__class)) - (_%process-slot97754%_ - (lambda (_%slot97752%_) - (if (symbol? _%slot97752%_) + (_%r-slots98024%_ '(__class)) + (_%process-slot98028%_ + (lambda (_%slot98026%_) + (if (symbol? _%slot98026%_) '#!void - (error '"invalid slot name" _%slot97752%_)) + (error '"invalid slot name" _%slot98026%_)) (if (eq? (let () (declare (not safe)) (symbolic-table-ref - _%slot-table97748%_ - _%slot97752%_ + _%slot-table98022%_ + _%slot98026%_ absent-value)) absent-value) (begin (let () (declare (not safe)) (symbolic-table-set! - _%slot-table97748%_ - _%slot97752%_ - _%next-slot97746%_)) - (let ((__tmp100070 + _%slot-table98022%_ + _%slot98026%_ + _%next-slot98020%_)) + (let ((__tmp100344 (let () (declare (not safe)) - (symbol->keyword _%slot97752%_)))) + (symbol->keyword _%slot98026%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table97748%_ - __tmp100070 - _%next-slot97746%_)) - (set! _%r-slots97750%_ - (cons _%slot97752%_ _%r-slots97750%_)) - (set! _%next-slot97746%_ + _%slot-table98022%_ + __tmp100344 + _%next-slot98020%_)) + (set! _%r-slots98024%_ + (cons _%slot98026%_ _%r-slots98024%_)) + (set! _%next-slot98020%_ (let () (declare (not safe)) - (##fx+ _%next-slot97746%_ '1)))) + (##fx+ _%next-slot98020%_ '1)))) '#!void))) - (_%process-slots97760%_ - (lambda (_%g9775597757%_) - (for-each _%process-slot97754%_ _%g9775597757%_)))) - (let ((__tmp100072 - (lambda (_%mixin97763%_) - (_%process-slots97760%_ - (let ((__tmp100073 + (_%process-slots98034%_ + (lambda (_%g9802998031%_) + (for-each _%process-slot98028%_ _%g9802998031%_)))) + (let ((__tmp100346 + (lambda (_%mixin98037%_) + (_%process-slots98034%_ + (let ((__tmp100347 (let () (declare (not safe)) (##unchecked-structure-ref - _%mixin97763%_ + _%mixin98037%_ '9 '#f '#f)))) (declare (not safe)) - (agetq__% 'direct-slots: __tmp100073 '()))))) - (__tmp100071 (reverse _%class-precedence-list97743%_))) + (agetq__% 'direct-slots: __tmp100347 '()))))) + (__tmp100345 (reverse _%class-precedence-list98017%_))) (declare (not safe)) - (##for-each __tmp100072 __tmp100071)) - (_%process-slots97760%_ _%direct-slots97744%_) - (let ((_%slot-vector97765%_ + (##for-each __tmp100346 __tmp100345)) + (_%process-slots98034%_ _%direct-slots98018%_) + (let ((_%slot-vector98039%_ (list->vector - (let () (declare (not safe)) (##reverse _%r-slots97750%_))))) - (values _%slot-vector97765%_ _%slot-table97748%_))))) + (let () (declare (not safe)) (##reverse _%r-slots98024%_))))) + (values _%slot-vector98039%_ _%slot-table98022%_))))) (define make-class-type - (lambda (_%id97668%_ - _%name97669%_ - _%direct-supers97670%_ - _%direct-slots97671%_ - _%properties97672%_ - _%constructor97673%_) - (if (symbol? _%id97668%_) - (let ((_%id97677%_ _%id97668%_)) - (if (symbol? _%name97669%_) - (let ((_%name97687%_ _%name97669%_)) - (if (list? _%direct-supers97670%_) - (let ((_%direct-supers97697%_ _%direct-supers97670%_)) - (if (list? _%direct-slots97671%_) - (let ((_%direct-slots97707%_ - _%direct-slots97671%_)) - (if (list? _%properties97672%_) - (let ((_%properties97717%_ - _%properties97672%_)) - (if ((lambda (_%$obj97726%_) - (or (not _%$obj97726%_) - (symbol? _%$obj97726%_))) - _%constructor97673%_) - (let ((_%constructor97733%_ - _%constructor97673%_)) + (lambda (_%id97942%_ + _%name97943%_ + _%direct-supers97944%_ + _%direct-slots97945%_ + _%properties97946%_ + _%constructor97947%_) + (if (symbol? _%id97942%_) + (let ((_%id97951%_ _%id97942%_)) + (if (symbol? _%name97943%_) + (let ((_%name97961%_ _%name97943%_)) + (if (list? _%direct-supers97944%_) + (let ((_%direct-supers97971%_ _%direct-supers97944%_)) + (if (list? _%direct-slots97945%_) + (let ((_%direct-slots97981%_ + _%direct-slots97945%_)) + (if (list? _%properties97946%_) + (let ((_%properties97991%_ + _%properties97946%_)) + (if ((lambda (_%$obj98000%_) + (or (not _%$obj98000%_) + (symbol? _%$obj98000%_))) + _%constructor97947%_) + (let ((_%constructor98007%_ + _%constructor97947%_)) (__make-class-type - _%id97677%_ - _%name97687%_ - _%direct-supers97697%_ - _%direct-slots97707%_ - _%properties97717%_ - _%constructor97733%_)) + _%id97951%_ + _%name97961%_ + _%direct-supers97971%_ + _%direct-slots97981%_ + _%properties97991%_ + _%constructor98007%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1367,7 +1367,7 @@ 'contract: '(? (or not symbol?)) 'value: - _%constructor97673%_) + _%constructor97947%_) '#!void))) (begin (raise-contract-violation-error @@ -1377,7 +1377,7 @@ 'contract: 'list? 'value: - _%properties97672%_) + _%properties97946%_) '#!void))) (begin (raise-contract-violation-error @@ -1387,7 +1387,7 @@ 'contract: 'list? 'value: - _%direct-slots97671%_) + _%direct-slots97945%_) '#!void))) (begin (raise-contract-violation-error @@ -1397,7 +1397,7 @@ 'contract: 'list? 'value: - _%direct-supers97670%_) + _%direct-supers97944%_) '#!void))) (begin (raise-contract-violation-error @@ -1407,7 +1407,7 @@ 'contract: 'symbol? 'value: - _%name97669%_) + _%name97943%_) '#!void))) (begin (raise-contract-violation-error @@ -1417,167 +1417,167 @@ 'contract: 'symbol? 'value: - _%id97668%_) + _%id97942%_) '#!void)))) (define __make-class-type - (lambda (_%id97537%_ - _%name97538%_ - _%direct-supers97539%_ - _%direct-slots97540%_ - _%properties97541%_ - _%constructor97542%_) - (let* ((_%id97545%_ _%id97537%_) - (_%name97553%_ _%name97538%_) - (_%direct-supers97561%_ _%direct-supers97539%_) - (_%direct-slots97569%_ _%direct-slots97540%_) - (_%properties97577%_ _%properties97541%_) - (_%constructor97585%_ _%constructor97542%_)) - (let ((_%$e97597%_ - (let ((__tmp100074 - (lambda (_%$obj97594%_) + (lambda (_%id97811%_ + _%name97812%_ + _%direct-supers97813%_ + _%direct-slots97814%_ + _%properties97815%_ + _%constructor97816%_) + (let* ((_%id97819%_ _%id97811%_) + (_%name97827%_ _%name97812%_) + (_%direct-supers97835%_ _%direct-supers97813%_) + (_%direct-slots97843%_ _%direct-slots97814%_) + (_%properties97851%_ _%properties97815%_) + (_%constructor97859%_ _%constructor97816%_)) + (let ((_%$e97871%_ + (let ((__tmp100348 + (lambda (_%$obj97868%_) (not (let () (declare (not safe)) (##structure-instance-of? - _%$obj97594%_ + _%$obj97868%_ 'class)))))) (declare (not safe)) - (__find __tmp100074 _%direct-supers97561%_)))) - (if _%$e97597%_ - ((lambda (_%g9759997601%_) + (__find __tmp100348 _%direct-supers97835%_)))) + (if _%$e97871%_ + ((lambda (_%g9787397875%_) (error '"Illegal super class; not a class descriptor" - _%g9759997601%_)) - _%$e97597%_) - (let ((_%$e97604%_ + _%g9787397875%_)) + _%$e97871%_) + (let ((_%$e97878%_ (let () (declare (not safe)) - (__find __class-type-final? _%direct-supers97561%_)))) - (if _%$e97604%_ - ((lambda (_%g9760697608%_) - (error '"Cannot extend final class" _%g9760697608%_)) - _%$e97604%_) + (__find __class-type-final? _%direct-supers97835%_)))) + (if _%$e97878%_ + ((lambda (_%g9788097882%_) + (error '"Cannot extend final class" _%g9788097882%_)) + _%$e97878%_) '#!void)))) - (let ((_g100075_ (compute-precedence-list _%direct-supers97561%_))) + (let ((_g100349_ (compute-precedence-list _%direct-supers97835%_))) (begin - (let ((_g100076_ + (let ((_g100350_ (let () (declare (not safe)) - (if (##values? _g100075_) - (##vector-length _g100075_) + (if (##values? _g100349_) + (##vector-length _g100349_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g100076_ 2))) - (error "Context expects 2 values" _g100076_))) - (let ((_%precedence-list97611%_ - (let () (declare (not safe)) (##vector-ref _g100075_ 0))) - (_%struct-super97612%_ - (let () (declare (not safe)) (##vector-ref _g100075_ 1)))) - (let ((_g100077_ + (if (not (let () (declare (not safe)) (##fx= _g100350_ 2))) + (error "Context expects 2 values" _g100350_))) + (let ((_%precedence-list97885%_ + (let () (declare (not safe)) (##vector-ref _g100349_ 0))) + (_%struct-super97886%_ + (let () (declare (not safe)) (##vector-ref _g100349_ 1)))) + (let ((_g100351_ (compute-class-slots - _%precedence-list97611%_ - _%direct-slots97569%_))) + _%precedence-list97885%_ + _%direct-slots97843%_))) (begin - (let ((_g100078_ + (let ((_g100352_ (let () (declare (not safe)) - (if (##values? _g100077_) - (##vector-length _g100077_) + (if (##values? _g100351_) + (##vector-length _g100351_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g100078_ 2))) - (error "Context expects 2 values" _g100078_))) - (let ((_%slot-vector97614%_ + (##fx= _g100352_ 2))) + (error "Context expects 2 values" _g100352_))) + (let ((_%slot-vector97888%_ (let () (declare (not safe)) - (##vector-ref _g100077_ 0))) - (_%slot-table97615%_ + (##vector-ref _g100351_ 0))) + (_%slot-table97889%_ (let () (declare (not safe)) - (##vector-ref _g100077_ 1)))) - (let* ((_%properties97617%_ - (cons (cons 'direct-slots: _%direct-slots97569%_) + (##vector-ref _g100351_ 1)))) + (let* ((_%properties97891%_ + (cons (cons 'direct-slots: _%direct-slots97843%_) (cons (cons 'direct-supers: - _%direct-supers97561%_) - _%properties97577%_))) - (_%constructor*97622%_ - (let ((_%$e97619%_ _%constructor97585%_)) - (if _%$e97619%_ - _%$e97619%_ + _%direct-supers97835%_) + _%properties97851%_))) + (_%constructor*97896%_ + (let ((_%$e97893%_ _%constructor97859%_)) + (if _%$e97893%_ + _%$e97893%_ (find-super-constructor - _%direct-supers97561%_)))) - (_%precedence-list97665%_ + _%direct-supers97835%_)))) + (_%precedence-list97939%_ (if (or (let () (declare (not safe)) (agetq__0 'system: - _%properties97617%_)) + _%properties97891%_)) (memq object::t - _%precedence-list97611%_)) - _%precedence-list97611%_ - (let _%loop97627%_ ((_%tail97629%_ - _%precedence-list97611%_) - (_%head97630%_ '())) - (let* ((_%tail9763197639%_ _%tail97629%_) - (_%else9763397647%_ + _%precedence-list97885%_)) + _%precedence-list97885%_ + (let _%loop97901%_ ((_%tail97903%_ + _%precedence-list97885%_) + (_%head97904%_ '())) + (let* ((_%tail9790597913%_ _%tail97903%_) + (_%else9790797921%_ (lambda () - (let ((__tmp100079 + (let ((__tmp100353 (cons object::t (cons t::t '())))) (declare (not safe)) (__foldl1 cons - __tmp100079 - _%head97630%_)))) - (_%K9763597653%_ - (lambda (_%rest97650%_ _%hd97651%_) - (if (eq? _%hd97651%_ t::t) - (let ((__tmp100080 + __tmp100353 + _%head97904%_)))) + (_%K9790997927%_ + (lambda (_%rest97924%_ _%hd97925%_) + (if (eq? _%hd97925%_ t::t) + (let ((__tmp100354 (cons object::t - _%tail97629%_))) + _%tail97903%_))) (declare (not safe)) (__foldl1 cons - __tmp100080 - _%head97630%_)) - (_%loop97627%_ - _%rest97650%_ - (cons _%hd97651%_ - _%head97630%_)))))) + __tmp100354 + _%head97904%_)) + (_%loop97901%_ + _%rest97924%_ + (cons _%hd97925%_ + _%head97904%_)))))) (if (let () (declare (not safe)) - (##pair? _%tail9763197639%_)) - (let ((_%hd9763697656%_ + (##pair? _%tail9790597913%_)) + (let ((_%hd9791097930%_ (let () (declare (not safe)) - (##car _%tail9763197639%_))) - (_%tl9763797658%_ + (##car _%tail9790597913%_))) + (_%tl9791197932%_ (let () (declare (not safe)) - (##cdr _%tail9763197639%_)))) - (let* ((_%hd97661%_ - _%hd9763697656%_) - (_%rest97663%_ - _%tl9763797658%_)) - (_%K9763597653%_ - _%rest97663%_ - _%hd97661%_))) - (_%else9763397647%_))))))) + (##cdr _%tail9790597913%_)))) + (let* ((_%hd97935%_ + _%hd9791097930%_) + (_%rest97937%_ + _%tl9791197932%_)) + (_%K9790997927%_ + _%rest97937%_ + _%hd97935%_))) + (_%else9790797921%_))))))) (make-class-type-descriptor - _%id97545%_ - _%name97553%_ - _%struct-super97612%_ - _%precedence-list97665%_ - _%slot-vector97614%_ - _%properties97617%_ - _%constructor*97622%_ - _%slot-table97615%_ + _%id97819%_ + _%name97827%_ + _%struct-super97886%_ + _%precedence-list97939%_ + _%slot-vector97888%_ + _%properties97891%_ + _%constructor*97896%_ + _%slot-table97889%_ '#f))))))))))) (define class-precedence-list - (lambda (_%klass97523%_) + (lambda (_%klass97797%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97523%_ 'class)) - (let ((_%klass97527%_ _%klass97523%_)) - (__class-precedence-list _%klass97527%_)) + (##structure-instance-of? _%klass97797%_ 'class)) + (let ((_%klass97801%_ _%klass97797%_)) + (__class-precedence-list _%klass97801%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1586,17 +1586,17 @@ 'contract: 'class-type? 'value: - _%klass97523%_) + _%klass97797%_) '#!void)))) (define __class-precedence-list - (lambda (_%klass97511%_) - (let ((_%klass97514%_ _%klass97511%_)) - (cons _%klass97514%_ + (lambda (_%klass97785%_) + (let ((_%klass97788%_ _%klass97785%_)) + (cons _%klass97788%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass97514%_ '6 '#f '#f)))))) + (##unchecked-structure-ref _%klass97788%_ '6 '#f '#f)))))) (define compute-precedence-list - (lambda (_%direct-supers97508%_) + (lambda (_%direct-supers97782%_) (let () (declare (not safe)) (c4-linearize__% @@ -1606,14 +1606,14 @@ eq? ##type-name '() - _%direct-supers97508%_)))) + _%direct-supers97782%_)))) (define make-class-predicate - (lambda (_%klass97494%_) + (lambda (_%klass97768%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97494%_ 'class)) - (let ((_%klass97498%_ _%klass97494%_)) - (__make-class-predicate _%klass97498%_)) + (##structure-instance-of? _%klass97768%_ 'class)) + (let ((_%klass97772%_ _%klass97768%_)) + (__make-class-predicate _%klass97772%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1622,36 +1622,36 @@ 'contract: 'class-type? 'value: - _%klass97494%_) + _%klass97768%_) '#!void)))) (define __make-class-predicate - (lambda (_%klass97465%_) - (let* ((_%klass97468%_ _%klass97465%_) - (_%tid97477%_ - (let () (declare (not safe)) (##type-id _%klass97468%_)))) - (if (__class-type-final? _%klass97468%_) - (lambda (_%g9747997481%_) + (lambda (_%klass97739%_) + (let* ((_%klass97742%_ _%klass97739%_) + (_%tid97751%_ + (let () (declare (not safe)) (##type-id _%klass97742%_)))) + (if (__class-type-final? _%klass97742%_) + (lambda (_%g9775397755%_) (let () (declare (not safe)) (##structure-direct-instance-of? - _%g9747997481%_ - _%tid97477%_))) - (if (__class-type-struct? _%klass97468%_) - (lambda (_%g9748497486%_) + _%g9775397755%_ + _%tid97751%_))) + (if (__class-type-struct? _%klass97742%_) + (lambda (_%g9775897760%_) (let () (declare (not safe)) - (##structure-instance-of? _%g9748497486%_ _%tid97477%_))) - (lambda (_%g9748997491%_) - (__class-instance? _%klass97468%_ _%g9748997491%_))))))) + (##structure-instance-of? _%g9775897760%_ _%tid97751%_))) + (lambda (_%g9776397765%_) + (__class-instance? _%klass97742%_ _%g9776397765%_))))))) (define make-class-slot-accessor - (lambda (_%klass97440%_ _%slot97441%_) + (lambda (_%klass97714%_ _%slot97715%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97440%_ 'class)) - (let ((_%klass97445%_ _%klass97440%_)) - (if (symbol? _%slot97441%_) - (let ((_%slot97455%_ _%slot97441%_)) - (__make-class-slot-accessor _%klass97445%_ _%slot97455%_)) + (##structure-instance-of? _%klass97714%_ 'class)) + (let ((_%klass97719%_ _%klass97714%_)) + (if (symbol? _%slot97715%_) + (let ((_%slot97729%_ _%slot97715%_)) + (__make-class-slot-accessor _%klass97719%_ _%slot97729%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1660,7 +1660,7 @@ 'contract: 'symbol? 'value: - _%slot97441%_) + _%slot97715%_) '#!void))) (begin (raise-contract-violation-error @@ -1670,78 +1670,78 @@ 'contract: 'class-type? 'value: - _%klass97440%_) + _%klass97714%_) '#!void)))) (define __make-class-slot-accessor - (lambda (_%klass97408%_ _%slot97409%_) - (let* ((_%klass97412%_ _%klass97408%_) - (_%slot97420%_ _%slot97409%_) - (_%field97429%_ - (let ((__tmp100081 + (lambda (_%klass97682%_ _%slot97683%_) + (let* ((_%klass97686%_ _%klass97682%_) + (_%slot97694%_ _%slot97683%_) + (_%field97703%_ + (let ((__tmp100355 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass97412%_ + _%klass97686%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp100081 _%slot97420%_ '#f)))) - (if (not _%field97429%_) + (symbolic-table-ref __tmp100355 _%slot97694%_ '#f)))) + (if (not _%field97703%_) (let () (error '"unknown slot" 'class: - _%klass97412%_ + _%klass97686%_ 'slot: - _%slot97420%_) + _%slot97694%_) '#!void) - (if (__class-type-final? _%klass97412%_) + (if (__class-type-final? _%klass97686%_) (make-final-slot-accessor - _%klass97412%_ - _%slot97420%_ - _%field97429%_) - (if (__class-type-struct? _%klass97412%_) + _%klass97686%_ + _%slot97694%_ + _%field97703%_) + (if (__class-type-struct? _%klass97686%_) (make-struct-slot-accessor - _%klass97412%_ - _%slot97420%_ - _%field97429%_) - (if (let ((_%strukt97435%_ - (base-struct/1 _%klass97412%_))) + _%klass97686%_ + _%slot97694%_ + _%field97703%_) + (if (let ((_%strukt97709%_ + (base-struct/1 _%klass97686%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt97435%_ + _%strukt97709%_ 'class)) - (let ((__tmp100082 - (let ((__tmp100083 + (let ((__tmp100356 + (let ((__tmp100357 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt97435%_ + _%strukt97709%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp100083)))) + (##vector-length __tmp100357)))) (declare (not safe)) - (##fx< _%field97429%_ __tmp100082)))) + (##fx< _%field97703%_ __tmp100356)))) (make-struct-subclass-slot-accessor - _%klass97412%_ - _%slot97420%_ - _%field97429%_) + _%klass97686%_ + _%slot97694%_ + _%field97703%_) (make-class-cached-slot-accessor - _%klass97412%_ - _%slot97420%_ - _%field97429%_)))))))) + _%klass97686%_ + _%slot97694%_ + _%field97703%_)))))))) (define make-class-slot-mutator - (lambda (_%klass97383%_ _%slot97384%_) + (lambda (_%klass97657%_ _%slot97658%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97383%_ 'class)) - (let ((_%klass97388%_ _%klass97383%_)) - (if (symbol? _%slot97384%_) - (let ((_%slot97398%_ _%slot97384%_)) - (__make-class-slot-mutator _%klass97388%_ _%slot97398%_)) + (##structure-instance-of? _%klass97657%_ 'class)) + (let ((_%klass97662%_ _%klass97657%_)) + (if (symbol? _%slot97658%_) + (let ((_%slot97672%_ _%slot97658%_)) + (__make-class-slot-mutator _%klass97662%_ _%slot97672%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1750,7 +1750,7 @@ 'contract: 'symbol? 'value: - _%slot97384%_) + _%slot97658%_) '#!void))) (begin (raise-contract-violation-error @@ -1760,80 +1760,80 @@ 'contract: 'class-type? 'value: - _%klass97383%_) + _%klass97657%_) '#!void)))) (define __make-class-slot-mutator - (lambda (_%klass97351%_ _%slot97352%_) - (let* ((_%klass97355%_ _%klass97351%_) - (_%slot97363%_ _%slot97352%_) - (_%field97372%_ - (let ((__tmp100084 + (lambda (_%klass97625%_ _%slot97626%_) + (let* ((_%klass97629%_ _%klass97625%_) + (_%slot97637%_ _%slot97626%_) + (_%field97646%_ + (let ((__tmp100358 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass97355%_ + _%klass97629%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp100084 _%slot97363%_ '#f)))) - (if (not _%field97372%_) + (symbolic-table-ref __tmp100358 _%slot97637%_ '#f)))) + (if (not _%field97646%_) (let () (error '"unknown slot" 'class: - _%klass97355%_ + _%klass97629%_ 'slot: - _%slot97363%_) + _%slot97637%_) '#!void) - (if (__class-type-final? _%klass97355%_) + (if (__class-type-final? _%klass97629%_) (make-final-slot-mutator - _%klass97355%_ - _%slot97363%_ - _%field97372%_) - (if (__class-type-struct? _%klass97355%_) + _%klass97629%_ + _%slot97637%_ + _%field97646%_) + (if (__class-type-struct? _%klass97629%_) (make-struct-slot-mutator - _%klass97355%_ - _%slot97363%_ - _%field97372%_) - (if (let ((_%strukt97378%_ - (base-struct/1 _%klass97355%_))) + _%klass97629%_ + _%slot97637%_ + _%field97646%_) + (if (let ((_%strukt97652%_ + (base-struct/1 _%klass97629%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt97378%_ + _%strukt97652%_ 'class)) - (let ((__tmp100085 - (let ((__tmp100086 + (let ((__tmp100359 + (let ((__tmp100360 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt97378%_ + _%strukt97652%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp100086)))) + (##vector-length __tmp100360)))) (declare (not safe)) - (##fx< _%field97372%_ __tmp100085)))) + (##fx< _%field97646%_ __tmp100359)))) (make-struct-subclass-slot-mutator - _%klass97355%_ - _%slot97363%_ - _%field97372%_) + _%klass97629%_ + _%slot97637%_ + _%field97646%_) (make-class-cached-slot-mutator - _%klass97355%_ - _%slot97363%_ - _%field97372%_)))))))) + _%klass97629%_ + _%slot97637%_ + _%field97646%_)))))))) (define make-class-slot-unchecked-accessor - (lambda (_%klass97326%_ _%slot97327%_) + (lambda (_%klass97600%_ _%slot97601%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97326%_ 'class)) - (let ((_%klass97331%_ _%klass97326%_)) - (if (symbol? _%slot97327%_) - (let ((_%slot97341%_ _%slot97327%_)) + (##structure-instance-of? _%klass97600%_ 'class)) + (let ((_%klass97605%_ _%klass97600%_)) + (if (symbol? _%slot97601%_) + (let ((_%slot97615%_ _%slot97601%_)) (__make-class-slot-unchecked-accessor - _%klass97331%_ - _%slot97341%_)) + _%klass97605%_ + _%slot97615%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1842,7 +1842,7 @@ 'contract: 'symbol? 'value: - _%slot97327%_) + _%slot97601%_) '#!void))) (begin (raise-contract-violation-error @@ -1852,80 +1852,80 @@ 'contract: 'class-type? 'value: - _%klass97326%_) + _%klass97600%_) '#!void)))) (define __make-class-slot-unchecked-accessor - (lambda (_%klass97294%_ _%slot97295%_) - (let* ((_%klass97298%_ _%klass97294%_) - (_%slot97306%_ _%slot97295%_) - (_%field97315%_ - (let ((__tmp100087 + (lambda (_%klass97568%_ _%slot97569%_) + (let* ((_%klass97572%_ _%klass97568%_) + (_%slot97580%_ _%slot97569%_) + (_%field97589%_ + (let ((__tmp100361 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass97298%_ + _%klass97572%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp100087 _%slot97306%_ '#f)))) - (if (not _%field97315%_) + (symbolic-table-ref __tmp100361 _%slot97580%_ '#f)))) + (if (not _%field97589%_) (let () (error '"unknown slot" 'class: - _%klass97298%_ + _%klass97572%_ 'slot: - _%slot97306%_) + _%slot97580%_) '#!void) - (if (__class-type-final? _%klass97298%_) + (if (__class-type-final? _%klass97572%_) (make-struct-slot-unchecked-accessor - _%klass97298%_ - _%slot97306%_ - _%field97315%_) - (if (__class-type-struct? _%klass97298%_) + _%klass97572%_ + _%slot97580%_ + _%field97589%_) + (if (__class-type-struct? _%klass97572%_) (make-struct-slot-unchecked-accessor - _%klass97298%_ - _%slot97306%_ - _%field97315%_) - (if (let ((_%strukt97321%_ - (base-struct/1 _%klass97298%_))) + _%klass97572%_ + _%slot97580%_ + _%field97589%_) + (if (let ((_%strukt97595%_ + (base-struct/1 _%klass97572%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt97321%_ + _%strukt97595%_ 'class)) - (let ((__tmp100088 - (let ((__tmp100089 + (let ((__tmp100362 + (let ((__tmp100363 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt97321%_ + _%strukt97595%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp100089)))) + (##vector-length __tmp100363)))) (declare (not safe)) - (##fx< _%field97315%_ __tmp100088)))) + (##fx< _%field97589%_ __tmp100362)))) (make-struct-slot-unchecked-accessor - _%klass97298%_ - _%slot97306%_ - _%field97315%_) + _%klass97572%_ + _%slot97580%_ + _%field97589%_) (make-class-cached-slot-unchecked-accessor - _%klass97298%_ - _%slot97306%_ - _%field97315%_)))))))) + _%klass97572%_ + _%slot97580%_ + _%field97589%_)))))))) (define make-class-slot-unchecked-mutator - (lambda (_%klass97269%_ _%slot97270%_) + (lambda (_%klass97543%_ _%slot97544%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97269%_ 'class)) - (let ((_%klass97274%_ _%klass97269%_)) - (if (symbol? _%slot97270%_) - (let ((_%slot97284%_ _%slot97270%_)) + (##structure-instance-of? _%klass97543%_ 'class)) + (let ((_%klass97548%_ _%klass97543%_)) + (if (symbol? _%slot97544%_) + (let ((_%slot97558%_ _%slot97544%_)) (__make-class-slot-unchecked-mutator - _%klass97274%_ - _%slot97284%_)) + _%klass97548%_ + _%slot97558%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1934,7 +1934,7 @@ 'contract: 'symbol? 'value: - _%slot97270%_) + _%slot97544%_) '#!void))) (begin (raise-contract-violation-error @@ -1944,221 +1944,221 @@ 'contract: 'class-type? 'value: - _%klass97269%_) + _%klass97543%_) '#!void)))) (define __make-class-slot-unchecked-mutator - (lambda (_%klass97237%_ _%slot97238%_) - (let* ((_%klass97241%_ _%klass97237%_) - (_%slot97249%_ _%slot97238%_) - (_%field97258%_ - (let ((__tmp100090 + (lambda (_%klass97511%_ _%slot97512%_) + (let* ((_%klass97515%_ _%klass97511%_) + (_%slot97523%_ _%slot97512%_) + (_%field97532%_ + (let ((__tmp100364 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass97241%_ + _%klass97515%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp100090 _%slot97249%_ '#f)))) - (if (not _%field97258%_) + (symbolic-table-ref __tmp100364 _%slot97523%_ '#f)))) + (if (not _%field97532%_) (let () (error '"unknown slot" 'class: - _%klass97241%_ + _%klass97515%_ 'slot: - _%slot97249%_) + _%slot97523%_) '#!void) - (if (__class-type-final? _%klass97241%_) + (if (__class-type-final? _%klass97515%_) (make-struct-slot-unchecked-mutator - _%klass97241%_ - _%slot97249%_ - _%field97258%_) - (if (__class-type-struct? _%klass97241%_) + _%klass97515%_ + _%slot97523%_ + _%field97532%_) + (if (__class-type-struct? _%klass97515%_) (make-struct-slot-unchecked-mutator - _%klass97241%_ - _%slot97249%_ - _%field97258%_) - (if (let ((_%strukt97264%_ - (base-struct/1 _%klass97241%_))) + _%klass97515%_ + _%slot97523%_ + _%field97532%_) + (if (let ((_%strukt97538%_ + (base-struct/1 _%klass97515%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt97264%_ + _%strukt97538%_ 'class)) - (let ((__tmp100091 - (let ((__tmp100092 + (let ((__tmp100365 + (let ((__tmp100366 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt97264%_ + _%strukt97538%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp100092)))) + (##vector-length __tmp100366)))) (declare (not safe)) - (##fx< _%field97258%_ __tmp100091)))) + (##fx< _%field97532%_ __tmp100365)))) (make-struct-slot-unchecked-mutator - _%klass97241%_ - _%slot97249%_ - _%field97258%_) + _%klass97515%_ + _%slot97523%_ + _%field97532%_) (make-class-cached-slot-unchecked-mutator - _%klass97241%_ - _%slot97249%_ - _%field97258%_)))))))) + _%klass97515%_ + _%slot97523%_ + _%field97532%_)))))))) (define not-an-instance__% - (lambda (_%object97221%_ _%class97222%_ _%slot97223%_) + (lambda (_%object97495%_ _%class97496%_ _%slot97497%_) (apply error '"not an instance" 'object: - _%object97221%_ + _%object97495%_ 'class: - _%class97222%_ - (if _%slot97223%_ (cons 'slot: (cons _%slot97223%_ '())) '())))) + _%class97496%_ + (if _%slot97497%_ (cons 'slot: (cons _%slot97497%_ '())) '())))) (define not-an-instance__0 - (lambda (_%object97228%_ _%class97229%_) - (let ((_%slot97231%_ '#f)) - (not-an-instance__% _%object97228%_ _%class97229%_ _%slot97231%_)))) + (lambda (_%object97502%_ _%class97503%_) + (let ((_%slot97505%_ '#f)) + (not-an-instance__% _%object97502%_ _%class97503%_ _%slot97505%_)))) (define not-an-instance - (lambda _g100094_ - (let ((_g100093_ (let () (declare (not safe)) (##length _g100094_)))) - (cond ((let () (declare (not safe)) (##fx= _g100093_ 2)) - (apply not-an-instance__0 _g100094_)) - ((let () (declare (not safe)) (##fx= _g100093_ 3)) - (apply not-an-instance__% _g100094_)) + (lambda _g100368_ + (let ((_g100367_ (let () (declare (not safe)) (##length _g100368_)))) + (cond ((let () (declare (not safe)) (##fx= _g100367_ 2)) + (apply not-an-instance__0 _g100368_)) + ((let () (declare (not safe)) (##fx= _g100367_ 3)) + (apply not-an-instance__% _g100368_)) (else (##raise-wrong-number-of-arguments-exception not-an-instance - _g100094_)))))) + _g100368_)))))) (define make-final-slot-accessor - (lambda (_%klass97214%_ _%slot97215%_ _%field97216%_) - (lambda (_%obj97218%_) + (lambda (_%klass97488%_ _%slot97489%_ _%field97490%_) + (lambda (_%obj97492%_) (##direct-structure-ref - _%obj97218%_ - _%field97216%_ - _%klass97214%_ - _%slot97215%_)))) + _%obj97492%_ + _%field97490%_ + _%klass97488%_ + _%slot97489%_)))) (define make-final-slot-mutator - (lambda (_%klass97207%_ _%slot97208%_ _%field97209%_) - (lambda (_%obj97211%_ _%val97212%_) + (lambda (_%klass97481%_ _%slot97482%_ _%field97483%_) + (lambda (_%obj97485%_ _%val97486%_) (##direct-structure-set! - _%obj97211%_ - _%val97212%_ - _%field97209%_ - _%klass97207%_ - _%slot97208%_)))) + _%obj97485%_ + _%val97486%_ + _%field97483%_ + _%klass97481%_ + _%slot97482%_)))) (define make-struct-slot-accessor - (lambda (_%klass97201%_ _%slot97202%_ _%field97203%_) - (lambda (_%obj97205%_) + (lambda (_%klass97475%_ _%slot97476%_ _%field97477%_) + (lambda (_%obj97479%_) (##structure-ref - _%obj97205%_ - _%field97203%_ - _%klass97201%_ - _%slot97202%_)))) + _%obj97479%_ + _%field97477%_ + _%klass97475%_ + _%slot97476%_)))) (define make-struct-slot-mutator - (lambda (_%klass97194%_ _%slot97195%_ _%field97196%_) - (lambda (_%obj97198%_ _%val97199%_) + (lambda (_%klass97468%_ _%slot97469%_ _%field97470%_) + (lambda (_%obj97472%_ _%val97473%_) (##structure-set! - _%obj97198%_ - _%val97199%_ - _%field97196%_ - _%klass97194%_ - _%slot97195%_)))) + _%obj97472%_ + _%val97473%_ + _%field97470%_ + _%klass97468%_ + _%slot97469%_)))) (define make-struct-slot-unchecked-accessor - (lambda (_%klass97188%_ _%slot97189%_ _%field97190%_) - (lambda (_%obj97192%_) + (lambda (_%klass97462%_ _%slot97463%_ _%field97464%_) + (lambda (_%obj97466%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%obj97192%_ - _%field97190%_ - _%klass97188%_ - _%slot97189%_))))) + _%obj97466%_ + _%field97464%_ + _%klass97462%_ + _%slot97463%_))))) (define make-struct-slot-unchecked-mutator - (lambda (_%klass97181%_ _%slot97182%_ _%field97183%_) - (lambda (_%obj97185%_ _%val97186%_) + (lambda (_%klass97455%_ _%slot97456%_ _%field97457%_) + (lambda (_%obj97459%_ _%val97460%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%obj97185%_ - _%val97186%_ - _%field97183%_ - _%klass97181%_ - _%slot97182%_))))) + _%obj97459%_ + _%val97460%_ + _%field97457%_ + _%klass97455%_ + _%slot97456%_))))) (define make-struct-subclass-slot-accessor - (lambda (_%klass97175%_ _%slot97176%_ _%field97177%_) - (lambda (_%obj97179%_) - (if (class-instance? _%klass97175%_ _%obj97179%_) - (unchecked-slot-ref _%obj97179%_ _%field97177%_) + (lambda (_%klass97449%_ _%slot97450%_ _%field97451%_) + (lambda (_%obj97453%_) + (if (class-instance? _%klass97449%_ _%obj97453%_) + (unchecked-slot-ref _%obj97453%_ _%field97451%_) (not-an-instance__% - _%obj97179%_ - _%klass97175%_ - _%slot97176%_))))) + _%obj97453%_ + _%klass97449%_ + _%slot97450%_))))) (define make-struct-subclass-slot-mutator - (lambda (_%klass97168%_ _%slot97169%_ _%field97170%_) - (lambda (_%obj97172%_ _%val97173%_) - (if (class-instance? _%klass97168%_ _%obj97172%_) - (unchecked-field-set! _%obj97172%_ _%field97170%_ _%val97173%_) + (lambda (_%klass97442%_ _%slot97443%_ _%field97444%_) + (lambda (_%obj97446%_ _%val97447%_) + (if (class-instance? _%klass97442%_ _%obj97446%_) + (unchecked-field-set! _%obj97446%_ _%field97444%_ _%val97447%_) (not-an-instance__% - _%obj97172%_ - _%klass97168%_ - _%slot97169%_))))) + _%obj97446%_ + _%klass97442%_ + _%slot97443%_))))) (define make-class-cached-slot-accessor - (lambda (_%klass97159%_ _%slot97160%_ _%field97161%_) - (lambda (_%obj97163%_) - (if (let ((__tmp100095 - (let () (declare (not safe)) (##type-id _%klass97159%_)))) + (lambda (_%klass97433%_ _%slot97434%_ _%field97435%_) + (lambda (_%obj97437%_) + (if (let ((__tmp100369 + (let () (declare (not safe)) (##type-id _%klass97433%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj97163%_ __tmp100095)) - (unchecked-field-ref _%obj97163%_ _%field97161%_) - (if (class-instance? _%klass97159%_ _%obj97163%_) - (unchecked-slot-ref _%obj97163%_ _%slot97160%_) + (##structure-direct-instance-of? _%obj97437%_ __tmp100369)) + (unchecked-field-ref _%obj97437%_ _%field97435%_) + (if (class-instance? _%klass97433%_ _%obj97437%_) + (unchecked-slot-ref _%obj97437%_ _%slot97434%_) (not-an-instance__% - _%obj97163%_ - _%klass97159%_ - _%slot97160%_)))))) + _%obj97437%_ + _%klass97433%_ + _%slot97434%_)))))) (define make-class-cached-slot-mutator - (lambda (_%klass97149%_ _%slot97150%_ _%field97151%_) - (lambda (_%obj97153%_ _%val97154%_) - (if (let ((__tmp100096 - (let () (declare (not safe)) (##type-id _%klass97149%_)))) + (lambda (_%klass97423%_ _%slot97424%_ _%field97425%_) + (lambda (_%obj97427%_ _%val97428%_) + (if (let ((__tmp100370 + (let () (declare (not safe)) (##type-id _%klass97423%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj97153%_ __tmp100096)) - (unchecked-field-set! _%obj97153%_ _%field97151%_ _%val97154%_) - (if (class-instance? _%klass97149%_ _%obj97153%_) - (unchecked-slot-set! _%obj97153%_ _%slot97150%_ _%val97154%_) + (##structure-direct-instance-of? _%obj97427%_ __tmp100370)) + (unchecked-field-set! _%obj97427%_ _%field97425%_ _%val97428%_) + (if (class-instance? _%klass97423%_ _%obj97427%_) + (unchecked-slot-set! _%obj97427%_ _%slot97424%_ _%val97428%_) (not-an-instance__% - _%obj97153%_ - _%klass97149%_ - _%slot97150%_)))))) + _%obj97427%_ + _%klass97423%_ + _%slot97424%_)))))) (define make-class-cached-slot-unchecked-accessor - (lambda (_%klass97143%_ _%slot97144%_ _%field97145%_) - (lambda (_%obj97147%_) - (if (let ((__tmp100097 - (let () (declare (not safe)) (##type-id _%klass97143%_)))) + (lambda (_%klass97417%_ _%slot97418%_ _%field97419%_) + (lambda (_%obj97421%_) + (if (let ((__tmp100371 + (let () (declare (not safe)) (##type-id _%klass97417%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj97147%_ __tmp100097)) - (unchecked-field-ref _%obj97147%_ _%field97145%_) - (unchecked-slot-ref _%obj97147%_ _%slot97144%_))))) + (##structure-direct-instance-of? _%obj97421%_ __tmp100371)) + (unchecked-field-ref _%obj97421%_ _%field97419%_) + (unchecked-slot-ref _%obj97421%_ _%slot97418%_))))) (define make-class-cached-slot-unchecked-mutator - (lambda (_%klass97136%_ _%slot97137%_ _%field97138%_) - (lambda (_%obj97140%_ _%val97141%_) - (if (let ((__tmp100098 - (let () (declare (not safe)) (##type-id _%klass97136%_)))) + (lambda (_%klass97410%_ _%slot97411%_ _%field97412%_) + (lambda (_%obj97414%_ _%val97415%_) + (if (let ((__tmp100372 + (let () (declare (not safe)) (##type-id _%klass97410%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj97140%_ __tmp100098)) - (unchecked-field-set! _%obj97140%_ _%field97138%_ _%val97141%_) - (unchecked-slot-set! _%obj97140%_ _%slot97137%_ _%val97141%_))))) + (##structure-direct-instance-of? _%obj97414%_ __tmp100372)) + (unchecked-field-set! _%obj97414%_ _%field97412%_ _%val97415%_) + (unchecked-slot-set! _%obj97414%_ _%slot97411%_ _%val97415%_))))) (define class-slot-offset - (lambda (_%klass97111%_ _%slot97112%_) + (lambda (_%klass97385%_ _%slot97386%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97111%_ 'class)) - (let ((_%klass97116%_ _%klass97111%_)) - (if (let () (declare (not safe)) (symbolic? _%slot97112%_)) - (let ((_%slot97126%_ _%slot97112%_)) - (__class-slot-offset _%klass97116%_ _%slot97126%_)) + (##structure-instance-of? _%klass97385%_ 'class)) + (let ((_%klass97390%_ _%klass97385%_)) + (if (let () (declare (not safe)) (symbolic? _%slot97386%_)) + (let ((_%slot97400%_ _%slot97386%_)) + (__class-slot-offset _%klass97390%_ _%slot97400%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2167,7 +2167,7 @@ 'contract: 'symbolic? 'value: - _%slot97112%_) + _%slot97386%_) '#!void))) (begin (raise-contract-violation-error @@ -2177,30 +2177,30 @@ 'contract: 'class-type? 'value: - _%klass97111%_) + _%klass97385%_) '#!void)))) (define __class-slot-offset - (lambda (_%klass97090%_ _%slot97091%_) - (let* ((_%klass97094%_ _%klass97090%_) - (_%slot97102%_ _%slot97091%_) - (__tmp100099 + (lambda (_%klass97364%_ _%slot97365%_) + (let* ((_%klass97368%_ _%klass97364%_) + (_%slot97376%_ _%slot97365%_) + (__tmp100373 (let () (declare (not safe)) - (##unchecked-structure-ref _%klass97094%_ '8 '#f '#f)))) + (##unchecked-structure-ref _%klass97368%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp100099 _%slot97102%_ '#f)))) + (symbolic-table-ref __tmp100373 _%slot97376%_ '#f)))) (define class-slot-ref - (lambda (_%klass97064%_ _%obj97065%_ _%slot97066%_) + (lambda (_%klass97338%_ _%obj97339%_ _%slot97340%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97064%_ 'class)) - (let ((_%klass97070%_ _%klass97064%_)) - (if (let () (declare (not safe)) (symbolic? _%slot97066%_)) - (let ((_%slot97080%_ _%slot97066%_)) + (##structure-instance-of? _%klass97338%_ 'class)) + (let ((_%klass97344%_ _%klass97338%_)) + (if (let () (declare (not safe)) (symbolic? _%slot97340%_)) + (let ((_%slot97354%_ _%slot97340%_)) (__class-slot-ref - _%klass97070%_ - _%obj97065%_ - _%slot97080%_)) + _%klass97344%_ + _%obj97339%_ + _%slot97354%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2209,7 +2209,7 @@ 'contract: 'symbolic? 'value: - _%slot97066%_) + _%slot97340%_) '#!void))) (begin (raise-contract-violation-error @@ -2219,38 +2219,38 @@ 'contract: 'class-type? 'value: - _%klass97064%_) + _%klass97338%_) '#!void)))) (define __class-slot-ref - (lambda (_%klass97040%_ _%obj97041%_ _%slot97042%_) - (let* ((_%klass97045%_ _%klass97040%_) (_%slot97053%_ _%slot97042%_)) - (if (__class-instance? _%klass97045%_ _%obj97041%_) - (let ((_%off97062%_ + (lambda (_%klass97314%_ _%obj97315%_ _%slot97316%_) + (let* ((_%klass97319%_ _%klass97314%_) (_%slot97327%_ _%slot97316%_)) + (if (__class-instance? _%klass97319%_ _%obj97315%_) + (let ((_%off97336%_ (class-slot-offset (let () (declare (not safe)) - (##structure-type _%obj97041%_)) - _%slot97053%_))) + (##structure-type _%obj97315%_)) + _%slot97327%_))) (declare (not safe)) (##unchecked-structure-ref - _%obj97041%_ - _%off97062%_ - _%klass97045%_ - _%slot97053%_)) - (not-an-instance__0 _%obj97041%_ _%klass97045%_))))) + _%obj97315%_ + _%off97336%_ + _%klass97319%_ + _%slot97327%_)) + (not-an-instance__0 _%obj97315%_ _%klass97319%_))))) (define class-slot-set! - (lambda (_%klass97013%_ _%obj97014%_ _%slot97015%_ _%val97016%_) + (lambda (_%klass97287%_ _%obj97288%_ _%slot97289%_ _%val97290%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97013%_ 'class)) - (let ((_%klass97020%_ _%klass97013%_)) - (if (let () (declare (not safe)) (symbolic? _%slot97015%_)) - (let ((_%slot97030%_ _%slot97015%_)) + (##structure-instance-of? _%klass97287%_ 'class)) + (let ((_%klass97294%_ _%klass97287%_)) + (if (let () (declare (not safe)) (symbolic? _%slot97289%_)) + (let ((_%slot97304%_ _%slot97289%_)) (__class-slot-set! - _%klass97020%_ - _%obj97014%_ - _%slot97030%_ - _%val97016%_)) + _%klass97294%_ + _%obj97288%_ + _%slot97304%_ + _%val97290%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2259,7 +2259,7 @@ 'contract: 'symbolic? 'value: - _%slot97015%_) + _%slot97289%_) '#!void))) (begin (raise-contract-violation-error @@ -2269,69 +2269,69 @@ 'contract: 'class-type? 'value: - _%klass97013%_) + _%klass97287%_) '#!void)))) (define __class-slot-set! - (lambda (_%klass96988%_ _%obj96989%_ _%slot96990%_ _%val96991%_) - (let* ((_%klass96994%_ _%klass96988%_) (_%slot97002%_ _%slot96990%_)) - (if (__class-instance? _%klass96994%_ _%obj96989%_) - (let ((_%off97011%_ + (lambda (_%klass97262%_ _%obj97263%_ _%slot97264%_ _%val97265%_) + (let* ((_%klass97268%_ _%klass97262%_) (_%slot97276%_ _%slot97264%_)) + (if (__class-instance? _%klass97268%_ _%obj97263%_) + (let ((_%off97285%_ (class-slot-offset (let () (declare (not safe)) - (##structure-type _%obj96989%_)) - _%slot97002%_))) + (##structure-type _%obj97263%_)) + _%slot97276%_))) (declare (not safe)) (##unchecked-structure-set! - _%obj96989%_ - _%val96991%_ - _%off97011%_ - _%klass96994%_ - _%slot97002%_)) - (not-an-instance__0 _%obj96989%_ _%klass96994%_))))) + _%obj97263%_ + _%val97265%_ + _%off97285%_ + _%klass97268%_ + _%slot97276%_)) + (not-an-instance__0 _%obj97263%_ _%klass97268%_))))) (define unchecked-field-ref - (lambda (_%obj96985%_ _%off96986%_) - (let ((__tmp100100 - (let () (declare (not safe)) (##structure-type _%obj96985%_)))) + (lambda (_%obj97259%_ _%off97260%_) + (let ((__tmp100374 + (let () (declare (not safe)) (##structure-type _%obj97259%_)))) (declare (not safe)) (##unchecked-structure-ref - _%obj96985%_ - _%off96986%_ - __tmp100100 + _%obj97259%_ + _%off97260%_ + __tmp100374 '#f)))) (define unchecked-field-set! - (lambda (_%obj96981%_ _%off96982%_ _%val96983%_) - (let ((__tmp100101 - (let () (declare (not safe)) (##structure-type _%obj96981%_)))) + (lambda (_%obj97255%_ _%off97256%_ _%val97257%_) + (let ((__tmp100375 + (let () (declare (not safe)) (##structure-type _%obj97255%_)))) (declare (not safe)) (##unchecked-structure-set! - _%obj96981%_ - _%val96983%_ - _%off96982%_ - __tmp100101 + _%obj97255%_ + _%val97257%_ + _%off97256%_ + __tmp100375 '#f)))) (define unchecked-slot-ref - (lambda (_%obj96978%_ _%slot96979%_) + (lambda (_%obj97252%_ _%slot97253%_) (unchecked-field-ref - _%obj96978%_ + _%obj97252%_ (__class-slot-offset - (let () (declare (not safe)) (##structure-type _%obj96978%_)) - _%slot96979%_)))) + (let () (declare (not safe)) (##structure-type _%obj97252%_)) + _%slot97253%_)))) (define unchecked-slot-set! - (lambda (_%obj96974%_ _%slot96975%_ _%val96976%_) + (lambda (_%obj97248%_ _%slot97249%_ _%val97250%_) (unchecked-field-set! - _%obj96974%_ + _%obj97248%_ (__class-slot-offset - (let () (declare (not safe)) (##structure-type _%obj96974%_)) - _%slot96975%_) - _%val96976%_))) + (let () (declare (not safe)) (##structure-type _%obj97248%_)) + _%slot97249%_) + _%val97250%_))) (define slot-ref__% - (lambda (_%obj96936%_ _%slot96937%_ _%E96938%_) - (if (symbol? _%slot96937%_) - (let ((_%slot96942%_ _%slot96937%_)) - (if (procedure? _%E96938%_) - (let ((_%E96952%_ _%E96938%_)) - (__slot-ref__% _%obj96936%_ _%slot96942%_ _%E96952%_)) + (lambda (_%obj97210%_ _%slot97211%_ _%E97212%_) + (if (symbol? _%slot97211%_) + (let ((_%slot97216%_ _%slot97211%_)) + (if (procedure? _%E97212%_) + (let ((_%E97226%_ _%E97212%_)) + (__slot-ref__% _%obj97210%_ _%slot97216%_ _%E97226%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2340,7 +2340,7 @@ 'contract: 'procedure? 'value: - _%E96938%_) + _%E97212%_) '#!void))) (begin (raise-contract-violation-error @@ -2350,63 +2350,63 @@ 'contract: 'symbol? 'value: - _%slot96937%_) + _%slot97211%_) '#!void)))) (define slot-ref__0 - (lambda (_%obj96965%_ _%slot96966%_) - (let ((_%E96968%_ __slot-error)) - (slot-ref__% _%obj96965%_ _%slot96966%_ _%E96968%_)))) + (lambda (_%obj97239%_ _%slot97240%_) + (let ((_%E97242%_ __slot-error)) + (slot-ref__% _%obj97239%_ _%slot97240%_ _%E97242%_)))) (define slot-ref - (lambda _g100103_ - (let ((_g100102_ (let () (declare (not safe)) (##length _g100103_)))) - (cond ((let () (declare (not safe)) (##fx= _g100102_ 2)) - (apply slot-ref__0 _g100103_)) - ((let () (declare (not safe)) (##fx= _g100102_ 3)) - (apply slot-ref__% _g100103_)) + (lambda _g100377_ + (let ((_g100376_ (let () (declare (not safe)) (##length _g100377_)))) + (cond ((let () (declare (not safe)) (##fx= _g100376_ 2)) + (apply slot-ref__0 _g100377_)) + ((let () (declare (not safe)) (##fx= _g100376_ 3)) + (apply slot-ref__% _g100377_)) (else (##raise-wrong-number-of-arguments-exception slot-ref - _g100103_)))))) + _g100377_)))))) (define __slot-ref__% - (lambda (_%obj96892%_ _%slot96893%_ _%E96894%_) - (let* ((_%slot96897%_ _%slot96893%_) - (_%E96905%_ _%E96894%_) - (_%klass96914%_ (class-of _%obj96892%_)) - (_%$e96917%_ - (__class-slot-offset _%klass96914%_ _%slot96897%_))) - (if _%$e96917%_ - ((lambda (_%off96920%_) - (unchecked-field-ref _%obj96892%_ _%off96920%_)) - _%$e96917%_) + (lambda (_%obj97166%_ _%slot97167%_ _%E97168%_) + (let* ((_%slot97171%_ _%slot97167%_) + (_%E97179%_ _%E97168%_) + (_%klass97188%_ (class-of _%obj97166%_)) + (_%$e97191%_ + (__class-slot-offset _%klass97188%_ _%slot97171%_))) + (if _%$e97191%_ + ((lambda (_%off97194%_) + (unchecked-field-ref _%obj97166%_ _%off97194%_)) + _%$e97191%_) (let () (declare (not safe)) - (_%E96905%_ _%obj96892%_ _%slot96897%_)))))) + (_%E97179%_ _%obj97166%_ _%slot97171%_)))))) (define __slot-ref__0 - (lambda (_%obj96926%_ _%slot96927%_) - (let ((_%E96929%_ __slot-error)) - (__slot-ref__% _%obj96926%_ _%slot96927%_ _%E96929%_)))) + (lambda (_%obj97200%_ _%slot97201%_) + (let ((_%E97203%_ __slot-error)) + (__slot-ref__% _%obj97200%_ _%slot97201%_ _%E97203%_)))) (define __slot-ref - (lambda _g100105_ - (let ((_g100104_ (let () (declare (not safe)) (##length _g100105_)))) - (cond ((let () (declare (not safe)) (##fx= _g100104_ 2)) - (apply __slot-ref__0 _g100105_)) - ((let () (declare (not safe)) (##fx= _g100104_ 3)) - (apply __slot-ref__% _g100105_)) + (lambda _g100379_ + (let ((_g100378_ (let () (declare (not safe)) (##length _g100379_)))) + (cond ((let () (declare (not safe)) (##fx= _g100378_ 2)) + (apply __slot-ref__0 _g100379_)) + ((let () (declare (not safe)) (##fx= _g100378_ 3)) + (apply __slot-ref__% _g100379_)) (else (##raise-wrong-number-of-arguments-exception __slot-ref - _g100105_)))))) + _g100379_)))))) (define slot-set!__% - (lambda (_%obj96850%_ _%slot96851%_ _%val96852%_ _%E96853%_) - (if (symbol? _%slot96851%_) - (let ((_%slot96857%_ _%slot96851%_)) - (if (procedure? _%E96853%_) - (let ((_%E96867%_ _%E96853%_)) + (lambda (_%obj97124%_ _%slot97125%_ _%val97126%_ _%E97127%_) + (if (symbol? _%slot97125%_) + (let ((_%slot97131%_ _%slot97125%_)) + (if (procedure? _%E97127%_) + (let ((_%E97141%_ _%E97127%_)) (__slot-set!__% - _%obj96850%_ - _%slot96857%_ - _%val96852%_ - _%E96867%_)) + _%obj97124%_ + _%slot97131%_ + _%val97126%_ + _%E97141%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2415,7 +2415,7 @@ 'contract: 'procedure? 'value: - _%E96853%_) + _%E97127%_) '#!void))) (begin (raise-contract-violation-error @@ -2425,79 +2425,79 @@ 'contract: 'symbol? 'value: - _%slot96851%_) + _%slot97125%_) '#!void)))) (define slot-set!__0 - (lambda (_%obj96880%_ _%slot96881%_ _%val96882%_) - (let ((_%E96884%_ __slot-error)) - (slot-set!__% _%obj96880%_ _%slot96881%_ _%val96882%_ _%E96884%_)))) + (lambda (_%obj97154%_ _%slot97155%_ _%val97156%_) + (let ((_%E97158%_ __slot-error)) + (slot-set!__% _%obj97154%_ _%slot97155%_ _%val97156%_ _%E97158%_)))) (define slot-set! - (lambda _g100107_ - (let ((_g100106_ (let () (declare (not safe)) (##length _g100107_)))) - (cond ((let () (declare (not safe)) (##fx= _g100106_ 3)) - (apply slot-set!__0 _g100107_)) - ((let () (declare (not safe)) (##fx= _g100106_ 4)) - (apply slot-set!__% _g100107_)) + (lambda _g100381_ + (let ((_g100380_ (let () (declare (not safe)) (##length _g100381_)))) + (cond ((let () (declare (not safe)) (##fx= _g100380_ 3)) + (apply slot-set!__0 _g100381_)) + ((let () (declare (not safe)) (##fx= _g100380_ 4)) + (apply slot-set!__% _g100381_)) (else (##raise-wrong-number-of-arguments-exception slot-set! - _g100107_)))))) + _g100381_)))))) (define __slot-set!__% - (lambda (_%obj96803%_ _%slot96804%_ _%val96805%_ _%E96806%_) - (let* ((_%slot96809%_ _%slot96804%_) - (_%E96817%_ _%E96806%_) - (_%klass96826%_ (class-of _%obj96803%_)) - (_%$e96829%_ - (__class-slot-offset _%klass96826%_ _%slot96809%_))) - (if _%$e96829%_ - ((lambda (_%off96832%_) - (unchecked-field-set! _%obj96803%_ _%off96832%_ _%val96805%_)) - _%$e96829%_) + (lambda (_%obj97077%_ _%slot97078%_ _%val97079%_ _%E97080%_) + (let* ((_%slot97083%_ _%slot97078%_) + (_%E97091%_ _%E97080%_) + (_%klass97100%_ (class-of _%obj97077%_)) + (_%$e97103%_ + (__class-slot-offset _%klass97100%_ _%slot97083%_))) + (if _%$e97103%_ + ((lambda (_%off97106%_) + (unchecked-field-set! _%obj97077%_ _%off97106%_ _%val97079%_)) + _%$e97103%_) (let () (declare (not safe)) - (_%E96817%_ _%obj96803%_ _%slot96809%_)))))) + (_%E97091%_ _%obj97077%_ _%slot97083%_)))))) (define __slot-set!__0 - (lambda (_%obj96838%_ _%slot96839%_ _%val96840%_) - (let ((_%E96842%_ __slot-error)) + (lambda (_%obj97112%_ _%slot97113%_ _%val97114%_) + (let ((_%E97116%_ __slot-error)) (__slot-set!__% - _%obj96838%_ - _%slot96839%_ - _%val96840%_ - _%E96842%_)))) + _%obj97112%_ + _%slot97113%_ + _%val97114%_ + _%E97116%_)))) (define __slot-set! - (lambda _g100109_ - (let ((_g100108_ (let () (declare (not safe)) (##length _g100109_)))) - (cond ((let () (declare (not safe)) (##fx= _g100108_ 3)) - (apply __slot-set!__0 _g100109_)) - ((let () (declare (not safe)) (##fx= _g100108_ 4)) - (apply __slot-set!__% _g100109_)) + (lambda _g100383_ + (let ((_g100382_ (let () (declare (not safe)) (##length _g100383_)))) + (cond ((let () (declare (not safe)) (##fx= _g100382_ 3)) + (apply __slot-set!__0 _g100383_)) + ((let () (declare (not safe)) (##fx= _g100382_ 4)) + (apply __slot-set!__% _g100383_)) (else (##raise-wrong-number-of-arguments-exception __slot-set! - _g100109_)))))) + _g100383_)))))) (define __slot-error - (lambda (_%obj96799%_ _%slot96800%_) + (lambda (_%obj97073%_ _%slot97074%_) (error '"Cannot find slot" 'object: - _%obj96799%_ + _%obj97073%_ 'slot: - _%slot96800%_))) + _%slot97074%_))) (define subclass? - (lambda (_%maybe-sub-class96774%_ _%maybe-super-class96775%_) + (lambda (_%maybe-sub-class97048%_ _%maybe-super-class97049%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%maybe-sub-class96774%_ 'class)) - (let ((_%maybe-sub-class96779%_ _%maybe-sub-class96774%_)) + (##structure-instance-of? _%maybe-sub-class97048%_ 'class)) + (let ((_%maybe-sub-class97053%_ _%maybe-sub-class97048%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%maybe-super-class96775%_ + _%maybe-super-class97049%_ 'class)) - (let ((_%maybe-super-class96789%_ - _%maybe-super-class96775%_)) + (let ((_%maybe-super-class97063%_ + _%maybe-super-class97049%_)) (__subclass? - _%maybe-sub-class96779%_ - _%maybe-super-class96789%_)) + _%maybe-sub-class97053%_ + _%maybe-super-class97063%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2506,7 +2506,7 @@ 'contract: 'class-type? 'value: - _%maybe-super-class96775%_) + _%maybe-super-class97049%_) '#!void))) (begin (raise-contract-violation-error @@ -2516,71 +2516,71 @@ 'contract: 'class-type? 'value: - _%maybe-sub-class96774%_) + _%maybe-sub-class97048%_) '#!void)))) (define __subclass? - (lambda (_%maybe-sub-class96746%_ _%maybe-super-class96747%_) - (let* ((_%maybe-sub-class96750%_ _%maybe-sub-class96746%_) - (_%maybe-super-class96758%_ _%maybe-super-class96747%_) - (_%maybe-super-class-id96767%_ + (lambda (_%maybe-sub-class97020%_ _%maybe-super-class97021%_) + (let* ((_%maybe-sub-class97024%_ _%maybe-sub-class97020%_) + (_%maybe-super-class97032%_ _%maybe-super-class97021%_) + (_%maybe-super-class-id97041%_ (let () (declare (not safe)) - (##type-id _%maybe-super-class96758%_))) - (_%$e96769%_ - (eq? _%maybe-super-class-id96767%_ + (##type-id _%maybe-super-class97032%_))) + (_%$e97043%_ + (eq? _%maybe-super-class-id97041%_ (let () (declare (not safe)) - (##type-id _%maybe-sub-class96750%_))))) - (if _%$e96769%_ - _%$e96769%_ - (let ((__tmp100111 - (lambda (_%super-class96772%_) + (##type-id _%maybe-sub-class97024%_))))) + (if _%$e97043%_ + _%$e97043%_ + (let ((__tmp100385 + (lambda (_%super-class97046%_) (eq? (let () (declare (not safe)) - (##type-id _%super-class96772%_)) - _%maybe-super-class-id96767%_))) - (__tmp100110 + (##type-id _%super-class97046%_)) + _%maybe-super-class-id97041%_))) + (__tmp100384 (let () (declare (not safe)) (##unchecked-structure-ref - _%maybe-sub-class96750%_ + _%maybe-sub-class97024%_ '6 '#f '#f)))) (declare (not safe)) - (__ormap1 __tmp100111 __tmp100110)))))) + (__ormap1 __tmp100385 __tmp100384)))))) (define object? - (lambda (_%o96743%_) - (if (let () (declare (not safe)) (##structure? _%o96743%_)) - (let ((__tmp100112 + (lambda (_%o97017%_) + (if (let () (declare (not safe)) (##structure? _%o97017%_)) + (let ((__tmp100386 (let () (declare (not safe)) - (##structure-type _%o96743%_)))) + (##structure-type _%o97017%_)))) (declare (not safe)) - (##structure-instance-of? __tmp100112 'class)) + (##structure-instance-of? __tmp100386 'class)) '#f))) (define object-type - (lambda (_%o96738%_) - (if (let () (declare (not safe)) (##structure? _%o96738%_)) - (let ((_%klass96741%_ + (lambda (_%o97012%_) + (if (let () (declare (not safe)) (##structure? _%o97012%_)) + (let ((_%klass97015%_ (let () (declare (not safe)) - (##structure-type _%o96738%_)))) + (##structure-type _%o97012%_)))) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96741%_ 'class)) - _%klass96741%_ + (##structure-instance-of? _%klass97015%_ 'class)) + _%klass97015%_ (begin - (error '"not an object" _%o96738%_ _%klass96741%_) + (error '"not an object" _%o97012%_ _%klass97015%_) '#!void))) - (begin (error '"not an object" _%o96738%_) '#!void)))) + (begin (error '"not an object" _%o97012%_) '#!void)))) (define direct-instance? - (lambda (_%klass96723%_ _%obj96724%_) + (lambda (_%klass96997%_ _%obj96998%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96723%_ 'class)) - (let ((_%klass96728%_ _%klass96723%_)) - (__direct-instance? _%klass96728%_ _%obj96724%_)) + (##structure-instance-of? _%klass96997%_ 'class)) + (let ((_%klass97002%_ _%klass96997%_)) + (__direct-instance? _%klass97002%_ _%obj96998%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2589,28 +2589,28 @@ 'contract: 'class-type? 'value: - _%klass96723%_) + _%klass96997%_) '#!void)))) (define __direct-instance? - (lambda (_%klass96710%_ _%obj96711%_) - (let* ((_%klass96714%_ _%klass96710%_) - (__tmp100113 - (let () (declare (not safe)) (##type-id _%klass96714%_)))) + (lambda (_%klass96984%_ _%obj96985%_) + (let* ((_%klass96988%_ _%klass96984%_) + (__tmp100387 + (let () (declare (not safe)) (##type-id _%klass96988%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj96711%_ __tmp100113)))) + (##structure-direct-instance-of? _%obj96985%_ __tmp100387)))) (define immediate-instance-of? - (lambda (_%klass96706%_ _%obj96707%_) - (if (let () (declare (not safe)) (##structure? _%obj96707%_)) - (eq? _%klass96706%_ - (let () (declare (not safe)) (##structure-type _%obj96707%_))) + (lambda (_%klass96980%_ _%obj96981%_) + (if (let () (declare (not safe)) (##structure? _%obj96981%_)) + (eq? _%klass96980%_ + (let () (declare (not safe)) (##structure-type _%obj96981%_))) '#f))) (define struct-instance? - (lambda (_%klass96691%_ _%obj96692%_) + (lambda (_%klass96965%_ _%obj96966%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96691%_ 'class)) - (let ((_%klass96696%_ _%klass96691%_)) - (__struct-instance? _%klass96696%_ _%obj96692%_)) + (##structure-instance-of? _%klass96965%_ 'class)) + (let ((_%klass96970%_ _%klass96965%_)) + (__struct-instance? _%klass96970%_ _%obj96966%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2619,22 +2619,22 @@ 'contract: 'class-type? 'value: - _%klass96691%_) + _%klass96965%_) '#!void)))) (define __struct-instance? - (lambda (_%klass96678%_ _%obj96679%_) - (let* ((_%klass96682%_ _%klass96678%_) - (__tmp100114 - (let () (declare (not safe)) (##type-id _%klass96682%_)))) + (lambda (_%klass96952%_ _%obj96953%_) + (let* ((_%klass96956%_ _%klass96952%_) + (__tmp100388 + (let () (declare (not safe)) (##type-id _%klass96956%_)))) (declare (not safe)) - (##structure-instance-of? _%obj96679%_ __tmp100114)))) + (##structure-instance-of? _%obj96953%_ __tmp100388)))) (define class-instance? - (lambda (_%klass96663%_ _%obj96664%_) + (lambda (_%klass96937%_ _%obj96938%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96663%_ 'class)) - (let ((_%klass96668%_ _%klass96663%_)) - (__class-instance? _%klass96668%_ _%obj96664%_)) + (##structure-instance-of? _%klass96937%_ 'class)) + (let ((_%klass96942%_ _%klass96937%_)) + (__class-instance? _%klass96942%_ _%obj96938%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2643,22 +2643,22 @@ 'contract: 'class-type? 'value: - _%klass96663%_) + _%klass96937%_) '#!void)))) (define __class-instance? - (lambda (_%klass96648%_ _%obj96649%_) - (let* ((_%klass96652%_ _%klass96648%_) - (_%type96661%_ (class-of _%obj96649%_))) - (__subclass? _%type96661%_ _%klass96652%_)))) + (lambda (_%klass96922%_ _%obj96923%_) + (let* ((_%klass96926%_ _%klass96922%_) + (_%type96935%_ (class-of _%obj96923%_))) + (__subclass? _%type96935%_ _%klass96926%_)))) (define make-object - (lambda (_%klass96623%_ _%k96624%_) + (lambda (_%klass96897%_ _%k96898%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96623%_ 'class)) - (let ((_%klass96628%_ _%klass96623%_)) - (if (fixnum? _%k96624%_) - (let ((_%k96638%_ _%k96624%_)) - (__make-object _%klass96628%_ _%k96638%_)) + (##structure-instance-of? _%klass96897%_ 'class)) + (let ((_%klass96902%_ _%klass96897%_)) + (if (fixnum? _%k96898%_) + (let ((_%k96912%_ _%k96898%_)) + (__make-object _%klass96902%_ _%k96912%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2667,7 +2667,7 @@ 'contract: 'fixnum? 'value: - _%k96624%_) + _%k96898%_) '#!void))) (begin (raise-contract-violation-error @@ -2677,27 +2677,27 @@ 'contract: 'class-type? 'value: - _%klass96623%_) + _%klass96897%_) '#!void)))) (define __make-object - (lambda (_%klass96600%_ _%k96601%_) - (let* ((_%klass96604%_ _%klass96600%_) (_%k96612%_ _%k96601%_)) - (if (__class-type-system? _%klass96604%_) + (lambda (_%klass96874%_ _%k96875%_) + (let* ((_%klass96878%_ _%klass96874%_) (_%k96886%_ _%k96875%_)) + (if (__class-type-system? _%klass96878%_) (begin (error '"cannot instantiate system class" 'class: - _%klass96604%_) + _%klass96878%_) '#!void) - (let ((_%obj96621%_ + (let ((_%obj96895%_ (let () (declare (not safe)) - (##make-structure _%klass96604%_ _%k96612%_)))) - (object-fill! _%obj96621%_ '#f)))))) + (##make-structure _%klass96878%_ _%k96886%_)))) + (object-fill! _%obj96895%_ '#f)))))) (define object-fill! - (lambda (_%obj96585%_ _%fill96586%_) + (lambda (_%obj96859%_ _%fill96860%_) (if '#t - (let ((_%obj96590%_ _%obj96585%_)) - (__object-fill! _%obj96590%_ _%fill96586%_)) + (let ((_%obj96864%_ _%obj96859%_)) + (__object-fill! _%obj96864%_ _%fill96860%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2706,38 +2706,38 @@ 'contract: 'true 'value: - _%obj96585%_) + _%obj96859%_) '#!void)))) (define __object-fill! - (lambda (_%obj96567%_ _%fill96568%_) - (let ((_%obj96571%_ _%obj96567%_)) - (let _%loop96580%_ ((_%i96582%_ - (let ((__tmp100115 + (lambda (_%obj96841%_ _%fill96842%_) + (let ((_%obj96845%_ _%obj96841%_)) + (let _%loop96854%_ ((_%i96856%_ + (let ((__tmp100389 (let () (declare (not safe)) - (##structure-length _%obj96571%_)))) + (##structure-length _%obj96845%_)))) (declare (not safe)) - (##fx- __tmp100115 '1)))) - (if (let () (declare (not safe)) (##fx> _%i96582%_ '0)) + (##fx- __tmp100389 '1)))) + (if (let () (declare (not safe)) (##fx> _%i96856%_ '0)) (begin (let () (declare (not safe)) (##unchecked-structure-set! - _%obj96571%_ - _%fill96568%_ - _%i96582%_ + _%obj96845%_ + _%fill96842%_ + _%i96856%_ '#f '#f)) - (_%loop96580%_ - (let () (declare (not safe)) (##fx- _%i96582%_ '1)))) - _%obj96571%_))))) + (_%loop96854%_ + (let () (declare (not safe)) (##fx- _%i96856%_ '1)))) + _%obj96845%_))))) (define new-instance - (lambda (_%klass96553%_) + (lambda (_%klass96827%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96553%_ 'class)) - (let ((_%klass96557%_ _%klass96553%_)) - (__new-instance _%klass96557%_)) + (##structure-instance-of? _%klass96827%_ 'class)) + (let ((_%klass96831%_ _%klass96827%_)) + (__new-instance _%klass96831%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2746,35 +2746,35 @@ 'contract: 'class-type? 'value: - _%klass96553%_) + _%klass96827%_) '#!void)))) (define __new-instance - (lambda (_%klass96541%_) - (let* ((_%klass96544%_ _%klass96541%_) - (__obj100030 - (let ((__tmp100116 - (let ((__tmp100117 + (lambda (_%klass96815%_) + (let* ((_%klass96818%_ _%klass96815%_) + (__obj100304 + (let ((__tmp100390 + (let ((__tmp100391 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass96544%_ + _%klass96818%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp100117)))) + (##vector-length __tmp100391)))) (declare (not safe)) - (##make-structure _%klass96544%_ __tmp100116)))) - (object-fill! __obj100030 '#f) - __obj100030))) + (##make-structure _%klass96818%_ __tmp100390)))) + (object-fill! __obj100304 '#f) + __obj100304))) (define make-instance - (lambda (_%klass96526%_ . _%args96527%_) + (lambda (_%klass96800%_ . _%args96801%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96526%_ 'class)) - (let ((_%klass96531%_ _%klass96526%_)) + (##structure-instance-of? _%klass96800%_ 'class)) + (let ((_%klass96805%_ _%klass96800%_)) (declare (not safe)) - (##apply __make-instance _%klass96531%_ _%args96527%_)) + (##apply __make-instance _%klass96805%_ _%args96801%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2783,64 +2783,64 @@ 'contract: 'class-type? 'value: - _%klass96526%_) + _%klass96800%_) '#!void)))) (define __make-instance - (lambda (_%klass96498%_ . _%args96499%_) - (let* ((_%klass96502%_ _%klass96498%_) - (_%$e96511%_ + (lambda (_%klass96772%_ . _%args96773%_) + (let* ((_%klass96776%_ _%klass96772%_) + (_%$e96785%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass96502%_ '10 '#f '#f)))) - (if _%$e96511%_ - ((lambda (_%kons-id96514%_) - (let ((_%obj96516%_ (__new-instance _%klass96502%_))) + (##unchecked-structure-ref _%klass96776%_ '10 '#f '#f)))) + (if _%$e96785%_ + ((lambda (_%kons-id96788%_) + (let ((_%obj96790%_ (__new-instance _%klass96776%_))) (___constructor-init! - _%klass96502%_ - _%kons-id96514%_ - _%obj96516%_ - _%args96499%_) - _%obj96516%_)) - _%$e96511%_) - (if (__class-type-metaclass? _%klass96502%_) - (let ((_%obj96519%_ (__new-instance _%klass96502%_))) + _%klass96776%_ + _%kons-id96788%_ + _%obj96790%_ + _%args96773%_) + _%obj96790%_)) + _%$e96785%_) + (if (__class-type-metaclass? _%klass96776%_) + (let ((_%obj96793%_ (__new-instance _%klass96776%_))) (__metaclass-instance-init! - _%klass96502%_ - _%obj96519%_ - _%args96499%_) - _%obj96519%_) - (if (__class-type-struct? _%klass96502%_) - (if (let ((__tmp100119 - (__class-type-field-count _%klass96502%_)) - (__tmp100118 + _%klass96776%_ + _%obj96793%_ + _%args96773%_) + _%obj96793%_) + (if (__class-type-struct? _%klass96776%_) + (if (let ((__tmp100393 + (__class-type-field-count _%klass96776%_)) + (__tmp100392 (let () (declare (not safe)) - (##length _%args96499%_)))) + (##length _%args96773%_)))) (declare (not safe)) - (##fx= __tmp100119 __tmp100118)) - (apply ##structure _%klass96502%_ _%args96499%_) + (##fx= __tmp100393 __tmp100392)) + (apply ##structure _%klass96776%_ _%args96773%_) (let () (error '"arguments don't match object size" 'class: - _%klass96502%_ + _%klass96776%_ 'slots: - (__class-type-slot-list _%klass96502%_) + (__class-type-slot-list _%klass96776%_) 'args: - _%args96499%_) + _%args96773%_) '#!void)) - (let ((_%obj96522%_ (__new-instance _%klass96502%_))) + (let ((_%obj96796%_ (__new-instance _%klass96776%_))) (___class-instance-init! - _%klass96502%_ - _%obj96522%_ - _%args96499%_) - _%obj96522%_))))))) + _%klass96776%_ + _%obj96796%_ + _%args96773%_) + _%obj96796%_))))))) (define make-class-instance make-instance) (define struct-instance-init! - (lambda (_%obj96483%_ . _%args96484%_) + (lambda (_%obj96757%_ . _%args96758%_) (if '#t - (let ((_%obj96488%_ _%obj96483%_)) + (let ((_%obj96762%_ _%obj96757%_)) (declare (not safe)) - (##apply __struct-instance-init! _%obj96488%_ _%args96484%_)) + (##apply __struct-instance-init! _%obj96762%_ _%args96758%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2849,56 +2849,56 @@ 'contract: 'true 'value: - _%obj96483%_) + _%obj96757%_) '#!void)))) (define __struct-instance-init! - (lambda (_%obj96470%_ . _%args96471%_) - (let ((_%obj96474%_ _%obj96470%_)) - (if (let ((__tmp100121 - (let () (declare (not safe)) (##length _%args96471%_))) - (__tmp100120 + (lambda (_%obj96744%_ . _%args96745%_) + (let ((_%obj96748%_ _%obj96744%_)) + (if (let ((__tmp100395 + (let () (declare (not safe)) (##length _%args96745%_))) + (__tmp100394 (let () (declare (not safe)) - (##structure-length _%obj96474%_)))) + (##structure-length _%obj96748%_)))) (declare (not safe)) - (##fx< __tmp100121 __tmp100120)) - (___struct-instance-init! _%obj96474%_ _%args96471%_) + (##fx< __tmp100395 __tmp100394)) + (___struct-instance-init! _%obj96748%_ _%args96745%_) (error '"too many arguments for struct" 'object: - _%obj96474%_ + _%obj96748%_ 'args: - _%args96471%_)) + _%args96745%_)) '#!void))) (define ___struct-instance-init! - (lambda (_%obj96429%_ _%args96430%_) - (let _%lp96432%_ ((_%k96434%_ '1) (_%rest96435%_ _%args96430%_)) - (let* ((_%rest9643696444%_ _%rest96435%_) - (_%else9643896452%_ (lambda () _%obj96429%_)) - (_%K9644096458%_ - (lambda (_%rest96455%_ _%hd96456%_) - (unchecked-field-set! _%obj96429%_ _%k96434%_ _%hd96456%_) - (_%lp96432%_ - (let () (declare (not safe)) (##fx+ _%k96434%_ '1)) - _%rest96455%_)))) - (if (let () (declare (not safe)) (##pair? _%rest9643696444%_)) - (let ((_%hd9644196461%_ + (lambda (_%obj96703%_ _%args96704%_) + (let _%lp96706%_ ((_%k96708%_ '1) (_%rest96709%_ _%args96704%_)) + (let* ((_%rest9671096718%_ _%rest96709%_) + (_%else9671296726%_ (lambda () _%obj96703%_)) + (_%K9671496732%_ + (lambda (_%rest96729%_ _%hd96730%_) + (unchecked-field-set! _%obj96703%_ _%k96708%_ _%hd96730%_) + (_%lp96706%_ + (let () (declare (not safe)) (##fx+ _%k96708%_ '1)) + _%rest96729%_)))) + (if (let () (declare (not safe)) (##pair? _%rest9671096718%_)) + (let ((_%hd9671596735%_ (let () (declare (not safe)) - (##car _%rest9643696444%_))) - (_%tl9644296463%_ + (##car _%rest9671096718%_))) + (_%tl9671696737%_ (let () (declare (not safe)) - (##cdr _%rest9643696444%_)))) - (let* ((_%hd96466%_ _%hd9644196461%_) - (_%rest96468%_ _%tl9644296463%_)) - (_%K9644096458%_ _%rest96468%_ _%hd96466%_))) - (_%else9643896452%_)))))) + (##cdr _%rest9671096718%_)))) + (let* ((_%hd96740%_ _%hd9671596735%_) + (_%rest96742%_ _%tl9671696737%_)) + (_%K9671496732%_ _%rest96742%_ _%hd96740%_))) + (_%else9671296726%_)))))) (define class-instance-init! - (lambda (_%obj96414%_ . _%args96415%_) + (lambda (_%obj96688%_ . _%args96689%_) (if '#t - (let ((_%obj96419%_ _%obj96414%_)) + (let ((_%obj96693%_ _%obj96688%_)) (declare (not safe)) - (##apply __class-instance-init! _%obj96419%_ _%args96415%_)) + (##apply __class-instance-init! _%obj96693%_ _%args96689%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2907,104 +2907,104 @@ 'contract: 'true 'value: - _%obj96414%_) + _%obj96688%_) '#!void)))) (define __class-instance-init! - (lambda (_%obj96401%_ . _%args96402%_) - (let ((_%obj96405%_ _%obj96401%_)) + (lambda (_%obj96675%_ . _%args96676%_) + (let ((_%obj96679%_ _%obj96675%_)) (___class-instance-init! - (let () (declare (not safe)) (##structure-type _%obj96405%_)) - _%obj96405%_ - _%args96402%_) + (let () (declare (not safe)) (##structure-type _%obj96679%_)) + _%obj96679%_ + _%args96676%_) '#!void))) (define ___class-instance-init! - (lambda (_%klass96343%_ _%obj96344%_ _%args96345%_) - (let _%lp96347%_ ((_%rest96349%_ _%args96345%_)) - (let* ((_%rest9635096360%_ _%rest96349%_) - (_%else9635296368%_ + (lambda (_%klass96617%_ _%obj96618%_ _%args96619%_) + (let _%lp96621%_ ((_%rest96623%_ _%args96619%_)) + (let* ((_%rest9662496634%_ _%rest96623%_) + (_%else9662696642%_ (lambda () - (if (null? _%rest96349%_) - _%obj96344%_ + (if (null? _%rest96623%_) + _%obj96618%_ (error '"unexpected class initializer arguments" 'class: - _%klass96343%_ + _%klass96617%_ 'rest: - _%rest96349%_)))) - (_%K9635496382%_ - (lambda (_%rest96371%_ _%val96372%_ _%key96373%_) - (if (keyword? _%key96373%_) - (let ((_%$e96376%_ + _%rest96623%_)))) + (_%K9662896656%_ + (lambda (_%rest96645%_ _%val96646%_ _%key96647%_) + (if (keyword? _%key96647%_) + (let ((_%$e96650%_ (__class-slot-offset - _%klass96343%_ - _%key96373%_))) - (if _%$e96376%_ - ((lambda (_%off96379%_) + _%klass96617%_ + _%key96647%_))) + (if _%$e96650%_ + ((lambda (_%off96653%_) (unchecked-field-set! - _%obj96344%_ - _%off96379%_ - _%val96372%_) - (_%lp96347%_ _%rest96371%_)) - _%$e96376%_) + _%obj96618%_ + _%off96653%_ + _%val96646%_) + (_%lp96621%_ _%rest96645%_)) + _%$e96650%_) (error '"unknown slot" 'class: - _%klass96343%_ + _%klass96617%_ 'slot: - _%key96373%_))) + _%key96647%_))) (error '"non keyword slot initializer" 'slot: - _%key96373%_))))) - (if (let () (declare (not safe)) (##pair? _%rest9635096360%_)) - (let ((_%hd9635596385%_ + _%key96647%_))))) + (if (let () (declare (not safe)) (##pair? _%rest9662496634%_)) + (let ((_%hd9662996659%_ (let () (declare (not safe)) - (##car _%rest9635096360%_))) - (_%tl9635696387%_ + (##car _%rest9662496634%_))) + (_%tl9663096661%_ (let () (declare (not safe)) - (##cdr _%rest9635096360%_)))) - (let ((_%key96390%_ _%hd9635596385%_)) + (##cdr _%rest9662496634%_)))) + (let ((_%key96664%_ _%hd9662996659%_)) (if (let () (declare (not safe)) - (##pair? _%tl9635696387%_)) - (let ((_%hd9635796392%_ + (##pair? _%tl9663096661%_)) + (let ((_%hd9663196666%_ (let () (declare (not safe)) - (##car _%tl9635696387%_))) - (_%tl9635896394%_ + (##car _%tl9663096661%_))) + (_%tl9663296668%_ (let () (declare (not safe)) - (##cdr _%tl9635696387%_)))) - (let* ((_%val96397%_ _%hd9635796392%_) - (_%rest96399%_ _%tl9635896394%_)) - (_%K9635496382%_ - _%rest96399%_ - _%val96397%_ - _%key96390%_))) - (_%else9635296368%_)))) - (_%else9635296368%_)))))) + (##cdr _%tl9663096661%_)))) + (let* ((_%val96671%_ _%hd9663196666%_) + (_%rest96673%_ _%tl9663296668%_)) + (_%K9662896656%_ + _%rest96673%_ + _%val96671%_ + _%key96664%_))) + (_%else9662696642%_)))) + (_%else9662696642%_)))))) (define __metaclass-instance-init! - (lambda (_%klass96339%_ _%obj96340%_ _%args96341%_) + (lambda (_%klass96613%_ _%obj96614%_ _%args96615%_) (apply call-method - _%klass96339%_ + _%klass96613%_ 'instance-init! - _%obj96340%_ - _%args96341%_))) + _%obj96614%_ + _%args96615%_))) (define constructor-init! - (lambda (_%klass96302%_ _%kons-id96303%_ _%obj96304%_ . _%args96305%_) + (lambda (_%klass96576%_ _%kons-id96577%_ _%obj96578%_ . _%args96579%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96302%_ 'class)) - (let ((_%klass96309%_ _%klass96302%_)) - (if (symbol? _%kons-id96303%_) - (let ((_%kons-id96319%_ _%kons-id96303%_)) + (##structure-instance-of? _%klass96576%_ 'class)) + (let ((_%klass96583%_ _%klass96576%_)) + (if (symbol? _%kons-id96577%_) + (let ((_%kons-id96593%_ _%kons-id96577%_)) (if '#t - (let ((_%obj96329%_ _%obj96304%_)) + (let ((_%obj96603%_ _%obj96578%_)) (declare (not safe)) (##apply __constructor-init! - _%klass96309%_ - _%kons-id96319%_ - _%obj96329%_ - _%args96305%_)) + _%klass96583%_ + _%kons-id96593%_ + _%obj96603%_ + _%args96579%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3013,7 +3013,7 @@ 'contract: 'true 'value: - _%obj96304%_) + _%obj96578%_) '#!void))) (begin (raise-contract-violation-error @@ -3023,7 +3023,7 @@ 'contract: 'symbol? 'value: - _%kons-id96303%_) + _%kons-id96577%_) '#!void))) (begin (raise-contract-violation-error @@ -3033,38 +3033,38 @@ 'contract: 'class-type? 'value: - _%klass96302%_) + _%klass96576%_) '#!void)))) (define __constructor-init! - (lambda (_%klass96271%_ _%kons-id96272%_ _%obj96273%_ . _%args96274%_) - (let* ((_%klass96277%_ _%klass96271%_) - (_%kons-id96285%_ _%kons-id96272%_) - (_%obj96293%_ _%obj96273%_)) + (lambda (_%klass96545%_ _%kons-id96546%_ _%obj96547%_ . _%args96548%_) + (let* ((_%klass96551%_ _%klass96545%_) + (_%kons-id96559%_ _%kons-id96546%_) + (_%obj96567%_ _%obj96547%_)) (___constructor-init! - _%klass96277%_ - _%kons-id96285%_ - _%obj96293%_ - _%args96274%_) + _%klass96551%_ + _%kons-id96559%_ + _%obj96567%_ + _%args96548%_) '#!void))) (define ___constructor-init! - (lambda (_%klass96260%_ _%kons-id96261%_ _%obj96262%_ _%args96263%_) - (let ((_%$e96265%_ - (__find-method _%klass96260%_ _%obj96262%_ _%kons-id96261%_))) - (if _%$e96265%_ - ((lambda (_%kons96268%_) - (apply _%kons96268%_ _%obj96262%_ _%args96263%_) - _%obj96262%_) - _%$e96265%_) + (lambda (_%klass96534%_ _%kons-id96535%_ _%obj96536%_ _%args96537%_) + (let ((_%$e96539%_ + (__find-method _%klass96534%_ _%obj96536%_ _%kons-id96535%_))) + (if _%$e96539%_ + ((lambda (_%kons96542%_) + (apply _%kons96542%_ _%obj96536%_ _%args96537%_) + _%obj96536%_) + _%$e96539%_) (error '"missing constructor" 'class: - _%klass96260%_ + _%klass96534%_ 'method: - _%kons-id96261%_))))) + _%kons-id96535%_))))) (define struct-copy - (lambda (_%struct96246%_) + (lambda (_%struct96520%_) (if '#t - (let ((_%struct96250%_ _%struct96246%_)) - (__struct-copy _%struct96250%_)) + (let ((_%struct96524%_ _%struct96520%_)) + (__struct-copy _%struct96524%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3073,17 +3073,17 @@ 'contract: 'true 'value: - _%struct96246%_) + _%struct96520%_) '#!void)))) (define __struct-copy - (lambda (_%struct96234%_) - (let ((_%struct96237%_ _%struct96234%_)) + (lambda (_%struct96508%_) + (let ((_%struct96511%_ _%struct96508%_)) (declare (not safe)) - (##structure-copy _%struct96237%_)))) + (##structure-copy _%struct96511%_)))) (define struct->list - (lambda (_%obj96220%_) + (lambda (_%obj96494%_) (if '#t - (let ((_%obj96224%_ _%obj96220%_)) (__struct->list _%obj96224%_)) + (let ((_%obj96498%_ _%obj96494%_)) (__struct->list _%obj96498%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3092,17 +3092,17 @@ 'contract: 'true 'value: - _%obj96220%_) + _%obj96494%_) '#!void)))) (define __struct->list - (lambda (_%obj96208%_) - (let ((_%obj96211%_ _%obj96208%_)) + (lambda (_%obj96482%_) + (let ((_%obj96485%_ _%obj96482%_)) (declare (not safe)) - (##vector->list _%obj96211%_)))) + (##vector->list _%obj96485%_)))) (define class->list - (lambda (_%obj96194%_) + (lambda (_%obj96468%_) (if '#t - (let ((_%obj96198%_ _%obj96194%_)) (__class->list _%obj96198%_)) + (let ((_%obj96472%_ _%obj96468%_)) (__class->list _%obj96472%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3111,47 +3111,47 @@ 'contract: 'true 'value: - _%obj96194%_) + _%obj96468%_) '#!void)))) (define __class->list - (lambda (_%obj96170%_) - (let* ((_%obj96173%_ _%obj96170%_) - (_%klass96182%_ - (let () (declare (not safe)) (##structure-type _%obj96173%_))) - (_%slot-vector96184%_ + (lambda (_%obj96444%_) + (let* ((_%obj96447%_ _%obj96444%_) + (_%klass96456%_ + (let () (declare (not safe)) (##structure-type _%obj96447%_))) + (_%slot-vector96458%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass96182%_ '7 '#f '#f)))) - (let _%loop96186%_ ((_%index96188%_ - (let ((__tmp100122 + (##unchecked-structure-ref _%klass96456%_ '7 '#f '#f)))) + (let _%loop96460%_ ((_%index96462%_ + (let ((__tmp100396 (let () (declare (not safe)) (##vector-length - _%slot-vector96184%_)))) + _%slot-vector96458%_)))) (declare (not safe)) - (##fx- __tmp100122 '1))) - (_%plist96189%_ '())) - (if (let () (declare (not safe)) (##fx< _%index96188%_ '1)) - (cons _%klass96182%_ _%plist96189%_) - (let ((_%slot96192%_ + (##fx- __tmp100396 '1))) + (_%plist96463%_ '())) + (if (let () (declare (not safe)) (##fx< _%index96462%_ '1)) + (cons _%klass96456%_ _%plist96463%_) + (let ((_%slot96466%_ (let () (declare (not safe)) - (##vector-ref _%slot-vector96184%_ _%index96188%_)))) - (_%loop96186%_ - (let () (declare (not safe)) (##fx- _%index96188%_ '1)) + (##vector-ref _%slot-vector96458%_ _%index96462%_)))) + (_%loop96460%_ + (let () (declare (not safe)) (##fx- _%index96462%_ '1)) (cons (let () (declare (not safe)) - (symbol->keyword _%slot96192%_)) + (symbol->keyword _%slot96466%_)) (cons (unchecked-field-ref - _%obj96173%_ - _%index96188%_) - _%plist96189%_))))))))) + _%obj96447%_ + _%index96462%_) + _%plist96463%_))))))))) (define call-method - (lambda (_%obj96154%_ _%id96155%_ . _%args96156%_) - (if (symbol? _%id96155%_) - (let ((_%id96160%_ _%id96155%_)) + (lambda (_%obj96428%_ _%id96429%_ . _%args96430%_) + (if (symbol? _%id96429%_) + (let ((_%id96434%_ _%id96429%_)) (declare (not safe)) - (##apply __call-method _%obj96154%_ _%id96160%_ _%args96156%_)) + (##apply __call-method _%obj96428%_ _%id96434%_ _%args96430%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3160,27 +3160,27 @@ 'contract: 'symbol? 'value: - _%id96155%_) + _%id96429%_) '#!void)))) (define __call-method - (lambda (_%obj96123%_ _%id96124%_ . _%args96125%_) - (let* ((_%id96128%_ _%id96124%_) - (_%$e96137%_ (__method-ref _%obj96123%_ _%id96128%_))) - (if _%$e96137%_ - ((lambda (_%method96140%_) - (let ((_%method96142%_ _%method96140%_)) - (apply _%method96142%_ _%obj96123%_ _%args96125%_))) - _%$e96137%_) + (lambda (_%obj96397%_ _%id96398%_ . _%args96399%_) + (let* ((_%id96402%_ _%id96398%_) + (_%$e96411%_ (__method-ref _%obj96397%_ _%id96402%_))) + (if _%$e96411%_ + ((lambda (_%method96414%_) + (let ((_%method96416%_ _%method96414%_)) + (apply _%method96416%_ _%obj96397%_ _%args96399%_))) + _%$e96411%_) (error '"cannot find method" 'object: - _%obj96123%_ + _%obj96397%_ 'method: - _%id96128%_))))) + _%id96402%_))))) (define method-ref - (lambda (_%obj96108%_ _%id96109%_) - (if (symbol? _%id96109%_) - (let ((_%id96113%_ _%id96109%_)) - (__method-ref _%obj96108%_ _%id96113%_)) + (lambda (_%obj96382%_ _%id96383%_) + (if (symbol? _%id96383%_) + (let ((_%id96387%_ _%id96383%_)) + (__method-ref _%obj96382%_ _%id96387%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3189,29 +3189,29 @@ 'contract: 'symbol? 'value: - _%id96109%_) + _%id96383%_) '#!void)))) (define __method-ref - (lambda (_%obj96095%_ _%id96096%_) - (let ((_%id96099%_ _%id96096%_)) - (__find-method (class-of _%obj96095%_) _%obj96095%_ _%id96099%_)))) + (lambda (_%obj96369%_ _%id96370%_) + (let ((_%id96373%_ _%id96370%_)) + (__find-method (class-of _%obj96369%_) _%obj96369%_ _%id96373%_)))) (define checked-method-ref - (lambda (_%obj96088%_ _%id96089%_) - (let ((_%$e96092%_ (method-ref _%obj96088%_ _%id96089%_))) - (if _%$e96092%_ - _%$e96092%_ + (lambda (_%obj96362%_ _%id96363%_) + (let ((_%$e96366%_ (method-ref _%obj96362%_ _%id96363%_))) + (if _%$e96366%_ + _%$e96366%_ (begin (error '"missing method" 'object: - _%obj96088%_ + _%obj96362%_ 'method: - _%id96089%_) + _%id96363%_) '#!void))))) (define bound-method-ref - (lambda (_%obj96073%_ _%id96074%_) - (if (symbol? _%id96074%_) - (let ((_%id96078%_ _%id96074%_)) - (__bound-method-ref _%obj96073%_ _%id96078%_)) + (lambda (_%obj96347%_ _%id96348%_) + (if (symbol? _%id96348%_) + (let ((_%id96352%_ _%id96348%_)) + (__bound-method-ref _%obj96347%_ _%id96352%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3220,24 +3220,24 @@ 'contract: 'symbol? 'value: - _%id96074%_) + _%id96348%_) '#!void)))) (define __bound-method-ref - (lambda (_%obj96041%_ _%id96042%_) - (let* ((_%id96045%_ _%id96042%_) - (_%$e96054%_ (__method-ref _%obj96041%_ _%id96045%_))) - (if _%$e96054%_ - ((lambda (_%method96057%_) - (let ((_%method96059%_ _%method96057%_)) - (lambda _%args96070%_ - (apply _%method96059%_ _%obj96041%_ _%args96070%_)))) - _%$e96054%_) + (lambda (_%obj96315%_ _%id96316%_) + (let* ((_%id96319%_ _%id96316%_) + (_%$e96328%_ (__method-ref _%obj96315%_ _%id96319%_))) + (if _%$e96328%_ + ((lambda (_%method96331%_) + (let ((_%method96333%_ _%method96331%_)) + (lambda _%args96344%_ + (apply _%method96333%_ _%obj96315%_ _%args96344%_)))) + _%$e96328%_) '#f)))) (define checked-bound-method-ref - (lambda (_%obj96026%_ _%id96027%_) - (if (symbol? _%id96027%_) - (let ((_%id96031%_ _%id96027%_)) - (__checked-bound-method-ref _%obj96026%_ _%id96031%_)) + (lambda (_%obj96300%_ _%id96301%_) + (if (symbol? _%id96301%_) + (let ((_%id96305%_ _%id96301%_)) + (__checked-bound-method-ref _%obj96300%_ _%id96305%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3246,23 +3246,23 @@ 'contract: 'symbol? 'value: - _%id96027%_) + _%id96301%_) '#!void)))) (define __checked-bound-method-ref - (lambda (_%obj96009%_ _%id96010%_) - (let* ((_%id96013%_ _%id96010%_) - (_%method96022%_ (checked-method-ref _%obj96009%_ _%id96013%_))) - (lambda _%args96024%_ - (apply _%method96022%_ _%obj96009%_ _%args96024%_))))) + (lambda (_%obj96283%_ _%id96284%_) + (let* ((_%id96287%_ _%id96284%_) + (_%method96296%_ (checked-method-ref _%obj96283%_ _%id96287%_))) + (lambda _%args96298%_ + (apply _%method96296%_ _%obj96283%_ _%args96298%_))))) (define find-method - (lambda (_%klass95983%_ _%obj95984%_ _%id95985%_) + (lambda (_%klass96257%_ _%obj96258%_ _%id96259%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass95983%_ 'class)) - (let ((_%klass95989%_ _%klass95983%_)) - (if (symbol? _%id95985%_) - (let ((_%id95999%_ _%id95985%_)) - (__find-method _%klass95989%_ _%obj95984%_ _%id95999%_)) + (##structure-instance-of? _%klass96257%_ 'class)) + (let ((_%klass96263%_ _%klass96257%_)) + (if (symbol? _%id96259%_) + (let ((_%id96273%_ _%id96259%_)) + (__find-method _%klass96263%_ _%obj96258%_ _%id96273%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3271,7 +3271,7 @@ 'contract: 'symbol? 'value: - _%id95985%_) + _%id96259%_) '#!void))) (begin (raise-contract-violation-error @@ -3281,27 +3281,27 @@ 'contract: 'class-type? 'value: - _%klass95983%_) + _%klass96257%_) '#!void)))) (define __find-method - (lambda (_%klass95956%_ _%obj95957%_ _%id95958%_) - (let* ((_%klass95961%_ _%klass95956%_) - (_%id95969%_ _%id95958%_) - (_%$e95978%_ - (__direct-method-ref _%klass95961%_ _%obj95957%_ _%id95969%_))) - (if _%$e95978%_ - _%$e95978%_ - (if (__class-type-sealed? _%klass95961%_) + (lambda (_%klass96230%_ _%obj96231%_ _%id96232%_) + (let* ((_%klass96235%_ _%klass96230%_) + (_%id96243%_ _%id96232%_) + (_%$e96252%_ + (__direct-method-ref _%klass96235%_ _%obj96231%_ _%id96243%_))) + (if _%$e96252%_ + _%$e96252%_ + (if (__class-type-sealed? _%klass96235%_) '#f (__mixin-method-ref - _%klass95961%_ - _%obj95957%_ - _%id95969%_)))))) + _%klass96235%_ + _%obj96231%_ + _%id96243%_)))))) (define mixin-find-method - (lambda (_%mixins95940%_ _%obj95941%_ _%id95942%_) - (if (symbol? _%id95942%_) - (let ((_%id95946%_ _%id95942%_)) - (__mixin-find-method _%mixins95940%_ _%obj95941%_ _%id95946%_)) + (lambda (_%mixins96214%_ _%obj96215%_ _%id96216%_) + (if (symbol? _%id96216%_) + (let ((_%id96220%_ _%id96216%_)) + (__mixin-find-method _%mixins96214%_ _%obj96215%_ _%id96220%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3310,31 +3310,31 @@ 'contract: 'symbol? 'value: - _%id95942%_) + _%id96216%_) '#!void)))) (define __mixin-find-method - (lambda (_%mixins95922%_ _%obj95923%_ _%id95924%_) - (let* ((_%id95927%_ _%id95924%_) - (__tmp100123 - (lambda (_%g9593595937%_) + (lambda (_%mixins96196%_ _%obj96197%_ _%id96198%_) + (let* ((_%id96201%_ _%id96198%_) + (__tmp100397 + (lambda (_%g9620996211%_) (direct-method-ref - _%g9593595937%_ - _%obj95923%_ - _%id95927%_)))) + _%g9620996211%_ + _%obj96197%_ + _%id96201%_)))) (declare (not safe)) - (__ormap1 __tmp100123 _%mixins95922%_)))) + (__ormap1 __tmp100397 _%mixins96196%_)))) (define direct-method-ref - (lambda (_%klass95896%_ _%obj95897%_ _%id95898%_) + (lambda (_%klass96170%_ _%obj96171%_ _%id96172%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass95896%_ 'class)) - (let ((_%klass95902%_ _%klass95896%_)) - (if (symbol? _%id95898%_) - (let ((_%id95912%_ _%id95898%_)) + (##structure-instance-of? _%klass96170%_ 'class)) + (let ((_%klass96176%_ _%klass96170%_)) + (if (symbol? _%id96172%_) + (let ((_%id96186%_ _%id96172%_)) (__direct-method-ref - _%klass95902%_ - _%obj95897%_ - _%id95912%_)) + _%klass96176%_ + _%obj96171%_ + _%id96186%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3343,7 +3343,7 @@ 'contract: 'symbol? 'value: - _%id95898%_) + _%id96172%_) '#!void))) (begin (raise-contract-violation-error @@ -3353,98 +3353,98 @@ 'contract: 'class-type? 'value: - _%klass95896%_) + _%klass96170%_) '#!void)))) (define __direct-method-ref - (lambda (_%klass95850%_ _%obj95851%_ _%id95852%_) - (let* ((_%klass95855%_ _%klass95850%_) (_%id95863%_ _%id95852%_)) - (letrec ((_%metaclass-resolve-method95872%_ + (lambda (_%klass96124%_ _%obj96125%_ _%id96126%_) + (let* ((_%klass96129%_ _%klass96124%_) (_%id96137%_ _%id96126%_)) + (letrec ((_%metaclass-resolve-method96146%_ (lambda () - (let ((__method100031 - (__method-ref _%klass95855%_ 'direct-method-ref))) - (if __method100031 + (let ((__method100305 + (__method-ref _%klass96129%_ 'direct-method-ref))) + (if __method100305 (let () (declare (not safe)) - (__method100031 - _%klass95855%_ - _%obj95851%_ - _%id95863%_)) + (__method100305 + _%klass96129%_ + _%obj96125%_ + _%id96137%_)) (begin (error '"Missing method" - _%klass95855%_ + _%klass96129%_ 'direct-method-ref) '#!void))))) - (_%metaclass-resolve-method!95873%_ + (_%metaclass-resolve-method!96147%_ (lambda () - (let ((_%method95893%_ - (_%metaclass-resolve-method95872%_))) - (let ((__tmp100125 + (let ((_%method96167%_ + (_%metaclass-resolve-method96146%_))) + (let ((__tmp100399 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass95855%_ + _%klass96129%_ '11 '#f '#f))) - (__tmp100124 - (if _%method95893%_ 'resolved 'unknown))) + (__tmp100398 + (if _%method96167%_ 'resolved 'unknown))) (declare (not safe)) (symbolic-table-set! - __tmp100125 - _%id95863%_ - __tmp100124)) - _%method95893%_)))) - (let ((_%$e95875%_ + __tmp100399 + _%id96137%_ + __tmp100398)) + _%method96167%_)))) + (let ((_%$e96149%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass95855%_ '11 '#f '#f)))) - (if _%$e95875%_ - ((lambda (_%ht95878%_) - (let ((_%method95880%_ + (##unchecked-structure-ref _%klass96129%_ '11 '#f '#f)))) + (if _%$e96149%_ + ((lambda (_%ht96152%_) + (let ((_%method96154%_ (let () (declare (not safe)) (symbolic-table-ref - _%ht95878%_ - _%id95863%_ + _%ht96152%_ + _%id96137%_ '#f)))) - (if (procedure? _%method95880%_) - _%method95880%_ - (if (__class-type-metaclass? _%klass95855%_) - (let ((_%$e95884%_ _%method95880%_)) - (if (eq? 'resolved _%$e95884%_) - (_%metaclass-resolve-method95872%_) - (if (eq? 'unknown _%$e95884%_) + (if (procedure? _%method96154%_) + _%method96154%_ + (if (__class-type-metaclass? _%klass96129%_) + (let ((_%$e96158%_ _%method96154%_)) + (if (eq? 'resolved _%$e96158%_) + (_%metaclass-resolve-method96146%_) + (if (eq? 'unknown _%$e96158%_) '#f - (_%metaclass-resolve-method!95873%_)))) + (_%metaclass-resolve-method!96147%_)))) '#f)))) - _%$e95875%_) - (if (__class-type-metaclass? _%klass95855%_) - (let ((_%tab95889%_ + _%$e96149%_) + (if (__class-type-metaclass? _%klass96129%_) + (let ((_%tab96163%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass95855%_ - _%tab95889%_ + _%klass96129%_ + _%tab96163%_ '11 '#f '#f)) - (_%metaclass-resolve-method!95873%_)) + (_%metaclass-resolve-method!96147%_)) '#f))))))) (define mixin-method-ref - (lambda (_%klass95824%_ _%obj95825%_ _%id95826%_) + (lambda (_%klass96098%_ _%obj96099%_ _%id96100%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass95824%_ 'class)) - (let ((_%klass95830%_ _%klass95824%_)) - (if (symbol? _%id95826%_) - (let ((_%id95840%_ _%id95826%_)) + (##structure-instance-of? _%klass96098%_ 'class)) + (let ((_%klass96104%_ _%klass96098%_)) + (if (symbol? _%id96100%_) + (let ((_%id96114%_ _%id96100%_)) (__mixin-method-ref - _%klass95830%_ - _%obj95825%_ - _%id95840%_)) + _%klass96104%_ + _%obj96099%_ + _%id96114%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3453,7 +3453,7 @@ 'contract: 'symbol? 'value: - _%id95826%_) + _%id96100%_) '#!void))) (begin (raise-contract-violation-error @@ -3463,28 +3463,28 @@ 'contract: 'class-type? 'value: - _%klass95824%_) + _%klass96098%_) '#!void)))) (define __mixin-method-ref - (lambda (_%klass95802%_ _%obj95803%_ _%id95804%_) - (let* ((_%klass95807%_ _%klass95802%_) (_%id95815%_ _%id95804%_)) + (lambda (_%klass96076%_ _%obj96077%_ _%id96078%_) + (let* ((_%klass96081%_ _%klass96076%_) (_%id96089%_ _%id96078%_)) (__mixin-find-method (let () (declare (not safe)) - (##unchecked-structure-ref _%klass95807%_ '6 '#f '#f)) - _%obj95803%_ - _%id95815%_)))) + (##unchecked-structure-ref _%klass96081%_ '6 '#f '#f)) + _%obj96077%_ + _%id96089%_)))) (define bind-method!__% - (lambda (_%klass95761%_ _%id95762%_ _%proc95763%_ _%rebind?95764%_) - (if (symbol? _%id95762%_) - (let ((_%id95768%_ _%id95762%_)) - (if (procedure? _%proc95763%_) - (let ((_%proc95778%_ _%proc95763%_)) + (lambda (_%klass96035%_ _%id96036%_ _%proc96037%_ _%rebind?96038%_) + (if (symbol? _%id96036%_) + (let ((_%id96042%_ _%id96036%_)) + (if (procedure? _%proc96037%_) + (let ((_%proc96052%_ _%proc96037%_)) (__bind-method!__% - _%klass95761%_ - _%id95768%_ - _%proc95778%_ - _%rebind?95764%_)) + _%klass96035%_ + _%id96042%_ + _%proc96052%_ + _%rebind?96038%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3493,7 +3493,7 @@ 'contract: 'procedure? 'value: - _%proc95763%_) + _%proc96037%_) '#!void))) (begin (raise-contract-violation-error @@ -3503,1071 +3503,1071 @@ 'contract: 'symbol? 'value: - _%id95762%_) + _%id96036%_) '#!void)))) (define bind-method!__0 - (lambda (_%klass95791%_ _%id95792%_ _%proc95793%_) - (let ((_%rebind?95795%_ '#f)) + (lambda (_%klass96065%_ _%id96066%_ _%proc96067%_) + (let ((_%rebind?96069%_ '#f)) (bind-method!__% - _%klass95791%_ - _%id95792%_ - _%proc95793%_ - _%rebind?95795%_)))) + _%klass96065%_ + _%id96066%_ + _%proc96067%_ + _%rebind?96069%_)))) (define bind-method! - (lambda _g100127_ - (let ((_g100126_ (let () (declare (not safe)) (##length _g100127_)))) - (cond ((let () (declare (not safe)) (##fx= _g100126_ 3)) - (apply bind-method!__0 _g100127_)) - ((let () (declare (not safe)) (##fx= _g100126_ 4)) - (apply bind-method!__% _g100127_)) + (lambda _g100401_ + (let ((_g100400_ (let () (declare (not safe)) (##length _g100401_)))) + (cond ((let () (declare (not safe)) (##fx= _g100400_ 3)) + (apply bind-method!__0 _g100401_)) + ((let () (declare (not safe)) (##fx= _g100400_ 4)) + (apply bind-method!__% _g100401_)) (else (##raise-wrong-number-of-arguments-exception bind-method! - _g100127_)))))) + _g100401_)))))) (define __bind-method!__% - (lambda (_%klass95712%_ _%id95713%_ _%proc95714%_ _%rebind?95715%_) - (let* ((_%id95718%_ _%id95713%_) (_%proc95726%_ _%proc95714%_)) - (letrec ((_%bind!95735%_ - (lambda (_%ht95744%_) - (if (and (not _%rebind?95715%_) + (lambda (_%klass95986%_ _%id95987%_ _%proc95988%_ _%rebind?95989%_) + (let* ((_%id95992%_ _%id95987%_) (_%proc96000%_ _%proc95988%_)) + (letrec ((_%bind!96009%_ + (lambda (_%ht96018%_) + (if (and (not _%rebind?95989%_) (let () (declare (not safe)) (symbolic-table-ref - _%ht95744%_ - _%id95718%_ + _%ht96018%_ + _%id95992%_ '#f))) (error '"method already bound" 'class: - _%klass95712%_ + _%klass95986%_ 'method: - _%id95718%_) + _%id95992%_) (begin (let () (declare (not safe)) (symbolic-table-set! - _%ht95744%_ - _%id95718%_ - _%proc95726%_)) + _%ht96018%_ + _%id95992%_ + _%proc96000%_)) '#!void))))) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass95712%_ 'class)) - (let ((_%ht95738%_ + (##structure-instance-of? _%klass95986%_ 'class)) + (let ((_%ht96012%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass95712%_ + _%klass95986%_ '11 '#f '#f)))) - (if _%ht95738%_ - (_%bind!95735%_ _%ht95738%_) - (let ((_%ht95740%_ + (if _%ht96012%_ + (_%bind!96009%_ _%ht96012%_) + (let ((_%ht96014%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass95712%_ - _%ht95740%_ + _%klass95986%_ + _%ht96014%_ '11 '#f '#f)) - (_%bind!95735%_ _%ht95740%_)))) - (if (let () (declare (not safe)) (##type? _%klass95712%_)) + (_%bind!96009%_ _%ht96014%_)))) + (if (let () (declare (not safe)) (##type? _%klass95986%_)) (__bind-method!__% - (__shadow-class _%klass95712%_) - _%id95718%_ - _%proc95726%_ - _%rebind?95715%_) + (__shadow-class _%klass95986%_) + _%id95992%_ + _%proc96000%_ + _%rebind?95989%_) (error '"bad class; expected class or builtin type" - _%klass95712%_))))))) + _%klass95986%_))))))) (define __bind-method!__0 - (lambda (_%klass95749%_ _%id95750%_ _%proc95751%_) - (let ((_%rebind?95753%_ '#f)) + (lambda (_%klass96023%_ _%id96024%_ _%proc96025%_) + (let ((_%rebind?96027%_ '#f)) (__bind-method!__% - _%klass95749%_ - _%id95750%_ - _%proc95751%_ - _%rebind?95753%_)))) + _%klass96023%_ + _%id96024%_ + _%proc96025%_ + _%rebind?96027%_)))) (define __bind-method! - (lambda _g100129_ - (let ((_g100128_ (let () (declare (not safe)) (##length _g100129_)))) - (cond ((let () (declare (not safe)) (##fx= _g100128_ 3)) - (apply __bind-method!__0 _g100129_)) - ((let () (declare (not safe)) (##fx= _g100128_ 4)) - (apply __bind-method!__% _g100129_)) + (lambda _g100403_ + (let ((_g100402_ (let () (declare (not safe)) (##length _g100403_)))) + (cond ((let () (declare (not safe)) (##fx= _g100402_ 3)) + (apply __bind-method!__0 _g100403_)) + ((let () (declare (not safe)) (##fx= _g100402_ 4)) + (apply __bind-method!__% _g100403_)) (else (##raise-wrong-number-of-arguments-exception __bind-method! - _g100129_)))))) + _g100403_)))))) (define make-method-specializer-table__% - (lambda (_%size-hint95692%_ _%seed95694%_) + (lambda (_%size-hint95966%_ _%seed95968%_) (let () (declare (not safe)) (make-raw-table__% - _%size-hint95692%_ + _%size-hint95966%_ procedure-hash eq? - _%seed95694%_)))) + _%seed95968%_)))) (define make-method-specializer-table__0 (lambda () - (let* ((_%size-hint95700%_ '#f) (_%seed95702%_ '0)) + (let* ((_%size-hint95974%_ '#f) (_%seed95976%_ '0)) (make-method-specializer-table__% - _%size-hint95700%_ - _%seed95702%_)))) + _%size-hint95974%_ + _%seed95976%_)))) (define make-method-specializer-table__1 - (lambda (_%size-hint95704%_) - (let ((_%seed95706%_ '0)) + (lambda (_%size-hint95978%_) + (let ((_%seed95980%_ '0)) (make-method-specializer-table__% - _%size-hint95704%_ - _%seed95706%_)))) + _%size-hint95978%_ + _%seed95980%_)))) (define make-method-specializer-table - (lambda _g100131_ - (let ((_g100130_ (let () (declare (not safe)) (##length _g100131_)))) - (cond ((let () (declare (not safe)) (##fx= _g100130_ 0)) - (apply make-method-specializer-table__0 _g100131_)) - ((let () (declare (not safe)) (##fx= _g100130_ 1)) - (apply make-method-specializer-table__1 _g100131_)) - ((let () (declare (not safe)) (##fx= _g100130_ 2)) - (apply make-method-specializer-table__% _g100131_)) + (lambda _g100405_ + (let ((_g100404_ (let () (declare (not safe)) (##length _g100405_)))) + (cond ((let () (declare (not safe)) (##fx= _g100404_ 0)) + (apply make-method-specializer-table__0 _g100405_)) + ((let () (declare (not safe)) (##fx= _g100404_ 1)) + (apply make-method-specializer-table__1 _g100405_)) + ((let () (declare (not safe)) (##fx= _g100404_ 2)) + (apply make-method-specializer-table__% _g100405_)) (else (##raise-wrong-number-of-arguments-exception make-method-specializer-table - _g100131_)))))) + _g100405_)))))) (define method-specializer-table-ref - (lambda (_%tab95645%_ _%key95646%_ _%default95647%_) - (let ((_%table95649%_ - (let () (declare (not safe)) (&raw-table-table _%tab95645%_))) - (_%seed95650%_ - (let () (declare (not safe)) (&raw-table-seed _%tab95645%_)))) - (let* ((_%h95652%_ + (lambda (_%tab95919%_ _%key95920%_ _%default95921%_) + (let ((_%table95923%_ + (let () (declare (not safe)) (&raw-table-table _%tab95919%_))) + (_%seed95924%_ + (let () (declare (not safe)) (&raw-table-seed _%tab95919%_)))) + (let* ((_%h95926%_ (fxxor (let () (declare (not safe)) - (procedure-hash _%key95646%_)) - _%seed95650%_)) - (_%size95655%_ (vector-length _%table95649%_)) - (_%entries95658%_ + (procedure-hash _%key95920%_)) + _%seed95924%_)) + (_%size95929%_ (vector-length _%table95923%_)) + (_%entries95932%_ (let () (declare (not safe)) - (##fxquotient _%size95655%_ '2))) - (_%start95661%_ - (let ((__tmp100132 + (##fxquotient _%size95929%_ '2))) + (_%start95935%_ + (let ((__tmp100406 (let () (declare (not safe)) - (##fxmodulo _%h95652%_ _%entries95658%_)))) + (##fxmodulo _%h95926%_ _%entries95932%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp100132 '1)))) - (let _%loop95665%_ ((_%probe95668%_ _%start95661%_) - (_%i95670%_ '1) - (_%deleted95672%_ '#f)) - (let ((_%k95675%_ (vector-ref _%table95649%_ _%probe95668%_))) - (if (eq? _%k95675%_ (macro-unused-obj)) - _%default95647%_ - (if (eq? _%k95675%_ (macro-deleted-obj)) - (_%loop95665%_ - (let ((_%next-probe95680%_ - (fx+ _%start95661%_ - _%i95670%_ - (fx* _%i95670%_ _%i95670%_)))) + (##fxarithmetic-shift-left __tmp100406 '1)))) + (let _%loop95939%_ ((_%probe95942%_ _%start95935%_) + (_%i95944%_ '1) + (_%deleted95946%_ '#f)) + (let ((_%k95949%_ (vector-ref _%table95923%_ _%probe95942%_))) + (if (eq? _%k95949%_ (macro-unused-obj)) + _%default95921%_ + (if (eq? _%k95949%_ (macro-deleted-obj)) + (_%loop95939%_ + (let ((_%next-probe95954%_ + (fx+ _%start95935%_ + _%i95944%_ + (fx* _%i95944%_ _%i95944%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95680%_ _%size95655%_)) - (let () (declare (not safe)) (##fx+ _%i95670%_ '1)) - (let ((_%$e95683%_ _%deleted95672%_)) - (if _%$e95683%_ _%$e95683%_ _%probe95668%_))) - (if (eq? _%key95646%_ _%k95675%_) + (##fxmodulo _%next-probe95954%_ _%size95929%_)) + (let () (declare (not safe)) (##fx+ _%i95944%_ '1)) + (let ((_%$e95957%_ _%deleted95946%_)) + (if _%$e95957%_ _%$e95957%_ _%probe95942%_))) + (if (eq? _%key95920%_ _%k95949%_) (vector-ref - _%table95649%_ + _%table95923%_ (let () (declare (not safe)) - (##fx+ _%probe95668%_ '1))) - (_%loop95665%_ - (let ((_%next-probe95688%_ - (fx+ _%start95661%_ - _%i95670%_ - (fx* _%i95670%_ _%i95670%_)))) + (##fx+ _%probe95942%_ '1))) + (_%loop95939%_ + (let ((_%next-probe95962%_ + (fx+ _%start95935%_ + _%i95944%_ + (fx* _%i95944%_ _%i95944%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95688%_ _%size95655%_)) + (##fxmodulo _%next-probe95962%_ _%size95929%_)) (let () (declare (not safe)) - (##fx+ _%i95670%_ '1)) - _%deleted95672%_)))))))))) + (##fx+ _%i95944%_ '1)) + _%deleted95946%_)))))))))) (define method-specializer-table-set! - (lambda (_%tab95641%_ _%key95642%_ _%value95643%_) - (if (let ((__tmp100135 + (lambda (_%tab95915%_ _%key95916%_ _%value95917%_) + (if (let ((__tmp100409 (let () (declare (not safe)) - (&raw-table-free _%tab95641%_))) - (__tmp100133 - (let ((__tmp100134 + (&raw-table-free _%tab95915%_))) + (__tmp100407 + (let ((__tmp100408 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab95641%_))))) + (&raw-table-table _%tab95915%_))))) (declare (not safe)) - (##fxquotient __tmp100134 '4)))) + (##fxquotient __tmp100408 '4)))) (declare (not safe)) - (##fx< __tmp100135 __tmp100133)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab95641%_)) + (##fx< __tmp100409 __tmp100407)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab95915%_)) '#!void) (__method-specializer-table-set! - _%tab95641%_ - _%key95642%_ - _%value95643%_))) + _%tab95915%_ + _%key95916%_ + _%value95917%_))) (define __method-specializer-table-set! - (lambda (_%tab95592%_ _%key95593%_ _%value95594%_) - (let ((_%table95597%_ - (let () (declare (not safe)) (&raw-table-table _%tab95592%_))) - (_%seed95598%_ - (let () (declare (not safe)) (&raw-table-seed _%tab95592%_)))) - (let* ((_%h95600%_ + (lambda (_%tab95866%_ _%key95867%_ _%value95868%_) + (let ((_%table95871%_ + (let () (declare (not safe)) (&raw-table-table _%tab95866%_))) + (_%seed95872%_ + (let () (declare (not safe)) (&raw-table-seed _%tab95866%_)))) + (let* ((_%h95874%_ (fxxor (let () (declare (not safe)) - (procedure-hash _%key95593%_)) - _%seed95598%_)) - (_%size95603%_ (vector-length _%table95597%_)) - (_%entries95606%_ + (procedure-hash _%key95867%_)) + _%seed95872%_)) + (_%size95877%_ (vector-length _%table95871%_)) + (_%entries95880%_ (let () (declare (not safe)) - (##fxquotient _%size95603%_ '2))) - (_%start95609%_ - (let ((__tmp100136 + (##fxquotient _%size95877%_ '2))) + (_%start95883%_ + (let ((__tmp100410 (let () (declare (not safe)) - (##fxmodulo _%h95600%_ _%entries95606%_)))) + (##fxmodulo _%h95874%_ _%entries95880%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp100136 '1)))) - (let _%loop95613%_ ((_%probe95616%_ _%start95609%_) - (_%i95618%_ '1) - (_%deleted95620%_ '#f)) - (let ((_%k95623%_ (vector-ref _%table95597%_ _%probe95616%_))) - (if (eq? _%k95623%_ (macro-unused-obj)) - (if _%deleted95620%_ + (##fxarithmetic-shift-left __tmp100410 '1)))) + (let _%loop95887%_ ((_%probe95890%_ _%start95883%_) + (_%i95892%_ '1) + (_%deleted95894%_ '#f)) + (let ((_%k95897%_ (vector-ref _%table95871%_ _%probe95890%_))) + (if (eq? _%k95897%_ (macro-unused-obj)) + (if _%deleted95894%_ (begin (vector-set! - _%table95597%_ - _%deleted95620%_ - _%key95593%_) + _%table95871%_ + _%deleted95894%_ + _%key95867%_) (vector-set! - _%table95597%_ + _%table95871%_ (let () (declare (not safe)) - (##fx+ _%deleted95620%_ '1)) - _%value95594%_) + (##fx+ _%deleted95894%_ '1)) + _%value95868%_) ((lambda () - (let ((__tmp100137 - (let ((__tmp100138 + (let ((__tmp100411 + (let ((__tmp100412 (let () (declare (not safe)) - (&raw-table-count _%tab95592%_)))) + (&raw-table-count _%tab95866%_)))) (declare (not safe)) - (##fx+ __tmp100138 '1)))) + (##fx+ __tmp100412 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab95592%_ - __tmp100137))))) + _%tab95866%_ + __tmp100411))))) (begin (vector-set! - _%table95597%_ - _%probe95616%_ - _%key95593%_) + _%table95871%_ + _%probe95890%_ + _%key95867%_) (vector-set! - _%table95597%_ + _%table95871%_ (let () (declare (not safe)) - (##fx+ _%probe95616%_ '1)) - _%value95594%_) + (##fx+ _%probe95890%_ '1)) + _%value95868%_) ((lambda () - (let ((__tmp100139 - (let ((__tmp100140 + (let ((__tmp100413 + (let ((__tmp100414 (let () (declare (not safe)) - (&raw-table-free _%tab95592%_)))) + (&raw-table-free _%tab95866%_)))) (declare (not safe)) - (##fx- __tmp100140 '1)))) + (##fx- __tmp100414 '1)))) (declare (not safe)) - (&raw-table-free-set! _%tab95592%_ __tmp100139)) - (let ((__tmp100141 - (let ((__tmp100142 + (&raw-table-free-set! _%tab95866%_ __tmp100413)) + (let ((__tmp100415 + (let ((__tmp100416 (let () (declare (not safe)) - (&raw-table-count _%tab95592%_)))) + (&raw-table-count _%tab95866%_)))) (declare (not safe)) - (##fx+ __tmp100142 '1)))) + (##fx+ __tmp100416 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab95592%_ - __tmp100141)))))) - (if (eq? _%k95623%_ (macro-deleted-obj)) - (_%loop95613%_ - (let ((_%next-probe95630%_ - (fx+ _%start95609%_ - _%i95618%_ - (fx* _%i95618%_ _%i95618%_)))) + _%tab95866%_ + __tmp100415)))))) + (if (eq? _%k95897%_ (macro-deleted-obj)) + (_%loop95887%_ + (let ((_%next-probe95904%_ + (fx+ _%start95883%_ + _%i95892%_ + (fx* _%i95892%_ _%i95892%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95630%_ _%size95603%_)) - (let () (declare (not safe)) (##fx+ _%i95618%_ '1)) - (let ((_%$e95633%_ _%deleted95620%_)) - (if _%$e95633%_ _%$e95633%_ _%probe95616%_))) - (if (eq? _%key95593%_ _%k95623%_) + (##fxmodulo _%next-probe95904%_ _%size95877%_)) + (let () (declare (not safe)) (##fx+ _%i95892%_ '1)) + (let ((_%$e95907%_ _%deleted95894%_)) + (if _%$e95907%_ _%$e95907%_ _%probe95890%_))) + (if (eq? _%key95867%_ _%k95897%_) (let () (vector-set! - _%table95597%_ - _%probe95616%_ - _%key95593%_) + _%table95871%_ + _%probe95890%_ + _%key95867%_) (vector-set! - _%table95597%_ + _%table95871%_ (let () (declare (not safe)) - (##fx+ _%probe95616%_ '1)) - _%value95594%_)) - (_%loop95613%_ - (let ((_%next-probe95638%_ - (fx+ _%start95609%_ - _%i95618%_ - (fx* _%i95618%_ _%i95618%_)))) + (##fx+ _%probe95890%_ '1)) + _%value95868%_)) + (_%loop95887%_ + (let ((_%next-probe95912%_ + (fx+ _%start95883%_ + _%i95892%_ + (fx* _%i95892%_ _%i95892%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95638%_ _%size95603%_)) + (##fxmodulo _%next-probe95912%_ _%size95877%_)) (let () (declare (not safe)) - (##fx+ _%i95618%_ '1)) - _%deleted95620%_)))))))))) + (##fx+ _%i95892%_ '1)) + _%deleted95894%_)))))))))) (define method-specializer-table-update! - (lambda (_%tab95587%_ - _%key95588%_ - _%method-specializer-table-update!95589%_ - _%default95590%_) - (if (let ((__tmp100145 + (lambda (_%tab95861%_ + _%key95862%_ + _%method-specializer-table-update!95863%_ + _%default95864%_) + (if (let ((__tmp100419 (let () (declare (not safe)) - (&raw-table-free _%tab95587%_))) - (__tmp100143 - (let ((__tmp100144 + (&raw-table-free _%tab95861%_))) + (__tmp100417 + (let ((__tmp100418 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab95587%_))))) + (&raw-table-table _%tab95861%_))))) (declare (not safe)) - (##fxquotient __tmp100144 '4)))) + (##fxquotient __tmp100418 '4)))) (declare (not safe)) - (##fx< __tmp100145 __tmp100143)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab95587%_)) + (##fx< __tmp100419 __tmp100417)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab95861%_)) '#!void) (__method-specializer-table-update! - _%tab95587%_ - _%key95588%_ - _%method-specializer-table-update!95589%_ - _%default95590%_))) + _%tab95861%_ + _%key95862%_ + _%method-specializer-table-update!95863%_ + _%default95864%_))) (define __method-specializer-table-update! - (lambda (_%tab95537%_ - _%key95538%_ - _%method-specializer-table-update!95539%_ - _%default95540%_) - (let ((_%table95543%_ - (let () (declare (not safe)) (&raw-table-table _%tab95537%_))) - (_%seed95544%_ - (let () (declare (not safe)) (&raw-table-seed _%tab95537%_)))) - (let* ((_%h95546%_ + (lambda (_%tab95811%_ + _%key95812%_ + _%method-specializer-table-update!95813%_ + _%default95814%_) + (let ((_%table95817%_ + (let () (declare (not safe)) (&raw-table-table _%tab95811%_))) + (_%seed95818%_ + (let () (declare (not safe)) (&raw-table-seed _%tab95811%_)))) + (let* ((_%h95820%_ (fxxor (let () (declare (not safe)) - (procedure-hash _%key95538%_)) - _%seed95544%_)) - (_%size95549%_ (vector-length _%table95543%_)) - (_%entries95552%_ + (procedure-hash _%key95812%_)) + _%seed95818%_)) + (_%size95823%_ (vector-length _%table95817%_)) + (_%entries95826%_ (let () (declare (not safe)) - (##fxquotient _%size95549%_ '2))) - (_%start95555%_ - (let ((__tmp100146 + (##fxquotient _%size95823%_ '2))) + (_%start95829%_ + (let ((__tmp100420 (let () (declare (not safe)) - (##fxmodulo _%h95546%_ _%entries95552%_)))) + (##fxmodulo _%h95820%_ _%entries95826%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp100146 '1)))) - (let _%loop95559%_ ((_%probe95562%_ _%start95555%_) - (_%i95564%_ '1) - (_%deleted95566%_ '#f)) - (let ((_%k95569%_ (vector-ref _%table95543%_ _%probe95562%_))) - (if (eq? _%k95569%_ (macro-unused-obj)) - (if _%deleted95566%_ + (##fxarithmetic-shift-left __tmp100420 '1)))) + (let _%loop95833%_ ((_%probe95836%_ _%start95829%_) + (_%i95838%_ '1) + (_%deleted95840%_ '#f)) + (let ((_%k95843%_ (vector-ref _%table95817%_ _%probe95836%_))) + (if (eq? _%k95843%_ (macro-unused-obj)) + (if _%deleted95840%_ (begin (vector-set! - _%table95543%_ - _%deleted95566%_ - _%key95538%_) + _%table95817%_ + _%deleted95840%_ + _%key95812%_) (vector-set! - _%table95543%_ + _%table95817%_ (let () (declare (not safe)) - (##fx+ _%deleted95566%_ '1)) - (_%method-specializer-table-update!95539%_ - _%default95540%_)) + (##fx+ _%deleted95840%_ '1)) + (_%method-specializer-table-update!95813%_ + _%default95814%_)) ((lambda () - (let ((__tmp100147 - (let ((__tmp100148 + (let ((__tmp100421 + (let ((__tmp100422 (let () (declare (not safe)) - (&raw-table-count _%tab95537%_)))) + (&raw-table-count _%tab95811%_)))) (declare (not safe)) - (##fx+ __tmp100148 '1)))) + (##fx+ __tmp100422 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab95537%_ - __tmp100147))))) + _%tab95811%_ + __tmp100421))))) (begin (vector-set! - _%table95543%_ - _%probe95562%_ - _%key95538%_) + _%table95817%_ + _%probe95836%_ + _%key95812%_) (vector-set! - _%table95543%_ + _%table95817%_ (let () (declare (not safe)) - (##fx+ _%probe95562%_ '1)) - (_%method-specializer-table-update!95539%_ - _%default95540%_)) + (##fx+ _%probe95836%_ '1)) + (_%method-specializer-table-update!95813%_ + _%default95814%_)) ((lambda () - (let ((__tmp100149 - (let ((__tmp100150 + (let ((__tmp100423 + (let ((__tmp100424 (let () (declare (not safe)) - (&raw-table-free _%tab95537%_)))) + (&raw-table-free _%tab95811%_)))) (declare (not safe)) - (##fx- __tmp100150 '1)))) + (##fx- __tmp100424 '1)))) (declare (not safe)) - (&raw-table-free-set! _%tab95537%_ __tmp100149)) - (let ((__tmp100151 - (let ((__tmp100152 + (&raw-table-free-set! _%tab95811%_ __tmp100423)) + (let ((__tmp100425 + (let ((__tmp100426 (let () (declare (not safe)) - (&raw-table-count _%tab95537%_)))) + (&raw-table-count _%tab95811%_)))) (declare (not safe)) - (##fx+ __tmp100152 '1)))) + (##fx+ __tmp100426 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab95537%_ - __tmp100151)))))) - (if (eq? _%k95569%_ (macro-deleted-obj)) - (_%loop95559%_ - (let ((_%next-probe95576%_ - (fx+ _%start95555%_ - _%i95564%_ - (fx* _%i95564%_ _%i95564%_)))) + _%tab95811%_ + __tmp100425)))))) + (if (eq? _%k95843%_ (macro-deleted-obj)) + (_%loop95833%_ + (let ((_%next-probe95850%_ + (fx+ _%start95829%_ + _%i95838%_ + (fx* _%i95838%_ _%i95838%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95576%_ _%size95549%_)) - (let () (declare (not safe)) (##fx+ _%i95564%_ '1)) - (let ((_%$e95579%_ _%deleted95566%_)) - (if _%$e95579%_ _%$e95579%_ _%probe95562%_))) - (if (eq? _%key95538%_ _%k95569%_) + (##fxmodulo _%next-probe95850%_ _%size95823%_)) + (let () (declare (not safe)) (##fx+ _%i95838%_ '1)) + (let ((_%$e95853%_ _%deleted95840%_)) + (if _%$e95853%_ _%$e95853%_ _%probe95836%_))) + (if (eq? _%key95812%_ _%k95843%_) (let () (vector-set! - _%table95543%_ - _%probe95562%_ - _%key95538%_) + _%table95817%_ + _%probe95836%_ + _%key95812%_) (vector-set! - _%table95543%_ + _%table95817%_ (let () (declare (not safe)) - (##fx+ _%probe95562%_ '1)) - (_%method-specializer-table-update!95539%_ + (##fx+ _%probe95836%_ '1)) + (_%method-specializer-table-update!95813%_ (vector-ref - _%table95543%_ + _%table95817%_ (let () (declare (not safe)) - (##fx+ _%probe95562%_ '1)))))) - (_%loop95559%_ - (let ((_%next-probe95584%_ - (fx+ _%start95555%_ - _%i95564%_ - (fx* _%i95564%_ _%i95564%_)))) + (##fx+ _%probe95836%_ '1)))))) + (_%loop95833%_ + (let ((_%next-probe95858%_ + (fx+ _%start95829%_ + _%i95838%_ + (fx* _%i95838%_ _%i95838%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95584%_ _%size95549%_)) + (##fxmodulo _%next-probe95858%_ _%size95823%_)) (let () (declare (not safe)) - (##fx+ _%i95564%_ '1)) - _%deleted95566%_)))))))))) + (##fx+ _%i95838%_ '1)) + _%deleted95840%_)))))))))) (define method-specializer-table-delete! - (lambda (_%tab95492%_ _%key95494%_) - (let ((_%table95497%_ - (let () (declare (not safe)) (&raw-table-table _%tab95492%_))) - (_%seed95499%_ - (let () (declare (not safe)) (&raw-table-seed _%tab95492%_)))) - (let* ((_%h95502%_ + (lambda (_%tab95766%_ _%key95768%_) + (let ((_%table95771%_ + (let () (declare (not safe)) (&raw-table-table _%tab95766%_))) + (_%seed95773%_ + (let () (declare (not safe)) (&raw-table-seed _%tab95766%_)))) + (let* ((_%h95776%_ (fxxor (let () (declare (not safe)) - (procedure-hash _%key95494%_)) - _%seed95499%_)) - (_%size95505%_ (vector-length _%table95497%_)) - (_%entries95508%_ + (procedure-hash _%key95768%_)) + _%seed95773%_)) + (_%size95779%_ (vector-length _%table95771%_)) + (_%entries95782%_ (let () (declare (not safe)) - (##fxquotient _%size95505%_ '2))) - (_%start95511%_ - (let ((__tmp100153 + (##fxquotient _%size95779%_ '2))) + (_%start95785%_ + (let ((__tmp100427 (let () (declare (not safe)) - (##fxmodulo _%h95502%_ _%entries95508%_)))) + (##fxmodulo _%h95776%_ _%entries95782%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp100153 '1)))) - (let _%loop95515%_ ((_%probe95518%_ _%start95511%_) - (_%i95520%_ '1)) - (let ((_%k95523%_ (vector-ref _%table95497%_ _%probe95518%_))) - (if (eq? _%k95523%_ (macro-unused-obj)) + (##fxarithmetic-shift-left __tmp100427 '1)))) + (let _%loop95789%_ ((_%probe95792%_ _%start95785%_) + (_%i95794%_ '1)) + (let ((_%k95797%_ (vector-ref _%table95771%_ _%probe95792%_))) + (if (eq? _%k95797%_ (macro-unused-obj)) '#!void - (if (eq? _%k95523%_ (macro-deleted-obj)) - (_%loop95515%_ - (let ((_%next-probe95528%_ - (fx+ _%start95511%_ - _%i95520%_ - (fx* _%i95520%_ _%i95520%_)))) + (if (eq? _%k95797%_ (macro-deleted-obj)) + (_%loop95789%_ + (let ((_%next-probe95802%_ + (fx+ _%start95785%_ + _%i95794%_ + (fx* _%i95794%_ _%i95794%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95528%_ _%size95505%_)) - (let () (declare (not safe)) (##fx+ _%i95520%_ '1))) - (if (eq? _%key95494%_ _%k95523%_) + (##fxmodulo _%next-probe95802%_ _%size95779%_)) + (let () (declare (not safe)) (##fx+ _%i95794%_ '1))) + (if (eq? _%key95768%_ _%k95797%_) (let () (vector-set! - _%table95497%_ - _%probe95518%_ + _%table95771%_ + _%probe95792%_ (macro-deleted-obj)) (vector-set! - _%table95497%_ + _%table95771%_ (let () (declare (not safe)) - (##fx+ _%probe95518%_ '1)) + (##fx+ _%probe95792%_ '1)) (macro-absent-obj)) ((lambda () - (let ((__tmp100154 - (let ((__tmp100155 + (let ((__tmp100428 + (let ((__tmp100429 (let () (declare (not safe)) (&raw-table-count - _%tab95492%_)))) + _%tab95766%_)))) (declare (not safe)) - (##fx- __tmp100155 '1)))) + (##fx- __tmp100429 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab95492%_ - __tmp100154))))) - (_%loop95515%_ - (let ((_%next-probe95534%_ - (fx+ _%start95511%_ - _%i95520%_ - (fx* _%i95520%_ _%i95520%_)))) + _%tab95766%_ + __tmp100428))))) + (_%loop95789%_ + (let ((_%next-probe95808%_ + (fx+ _%start95785%_ + _%i95794%_ + (fx* _%i95794%_ _%i95794%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95534%_ _%size95505%_)) + (##fxmodulo _%next-probe95808%_ _%size95779%_)) (let () (declare (not safe)) - (##fx+ _%i95520%_ '1)))))))))))) + (##fx+ _%i95794%_ '1)))))))))))) (define __method-specializers (make-method-specializer-table__% '#f '0)) (define __method-specializers-mx (vector '0)) (define bind-specializer! - (lambda (_%method-proc95483%_ _%specializer95484%_) + (lambda (_%method-proc95757%_ _%specializer95758%_) (let () (declare (not interrupts-enabled)) - (let _%again95488%_ () - (if (let ((__tmp100156 + (let _%again95762%_ () + (if (let ((__tmp100430 (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp100156 '0)) + (##fx= __tmp100430 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again95488%_))))) + (_%again95762%_))))) (method-specializer-table-set! __method-specializers - _%method-proc95483%_ - _%specializer95484%_) + _%method-proc95757%_ + _%specializer95758%_) (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '0 '1)))) (define __lookup-method-specializer - (lambda (_%proc95473%_) + (lambda (_%proc95747%_) (let () (declare (not interrupts-enabled)) - (let _%again95477%_ () - (if (let ((__tmp100157 + (let _%again95751%_ () + (if (let ((__tmp100431 (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp100157 '0)) + (##fx= __tmp100431 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again95477%_))))) - (let ((_%specializer95481%_ + (_%again95751%_))))) + (let ((_%specializer95755%_ (method-specializer-table-ref __method-specializers - _%proc95473%_ + _%proc95747%_ '#f))) (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '0 '1)) - _%specializer95481%_))) + _%specializer95755%_))) (define __class-specializer-hash-key - (lambda (_%klass95471%_) - (let ((__tmp100158 - (let () (declare (not safe)) (##type-id _%klass95471%_)))) + (lambda (_%klass95745%_) + (let ((__tmp100432 + (let () (declare (not safe)) (##type-id _%klass95745%_)))) (declare (not safe)) - (symbolic-hash __tmp100158)))) + (symbolic-hash __tmp100432)))) (define make-class-specializer-table__% - (lambda (_%size-hint95452%_ _%seed95454%_) + (lambda (_%size-hint95726%_ _%seed95728%_) (let () (declare (not safe)) (make-raw-table__% - _%size-hint95452%_ + _%size-hint95726%_ __class-specializer-hash-key eq? - _%seed95454%_)))) + _%seed95728%_)))) (define make-class-specializer-table__0 (lambda () - (let* ((_%size-hint95460%_ '#f) (_%seed95462%_ '0)) - (make-class-specializer-table__% _%size-hint95460%_ _%seed95462%_)))) + (let* ((_%size-hint95734%_ '#f) (_%seed95736%_ '0)) + (make-class-specializer-table__% _%size-hint95734%_ _%seed95736%_)))) (define make-class-specializer-table__1 - (lambda (_%size-hint95464%_) - (let ((_%seed95466%_ '0)) - (make-class-specializer-table__% _%size-hint95464%_ _%seed95466%_)))) + (lambda (_%size-hint95738%_) + (let ((_%seed95740%_ '0)) + (make-class-specializer-table__% _%size-hint95738%_ _%seed95740%_)))) (define make-class-specializer-table - (lambda _g100160_ - (let ((_g100159_ (let () (declare (not safe)) (##length _g100160_)))) - (cond ((let () (declare (not safe)) (##fx= _g100159_ 0)) - (apply make-class-specializer-table__0 _g100160_)) - ((let () (declare (not safe)) (##fx= _g100159_ 1)) - (apply make-class-specializer-table__1 _g100160_)) - ((let () (declare (not safe)) (##fx= _g100159_ 2)) - (apply make-class-specializer-table__% _g100160_)) + (lambda _g100434_ + (let ((_g100433_ (let () (declare (not safe)) (##length _g100434_)))) + (cond ((let () (declare (not safe)) (##fx= _g100433_ 0)) + (apply make-class-specializer-table__0 _g100434_)) + ((let () (declare (not safe)) (##fx= _g100433_ 1)) + (apply make-class-specializer-table__1 _g100434_)) + ((let () (declare (not safe)) (##fx= _g100433_ 2)) + (apply make-class-specializer-table__% _g100434_)) (else (##raise-wrong-number-of-arguments-exception make-class-specializer-table - _g100160_)))))) + _g100434_)))))) (define class-specializer-table-ref - (lambda (_%tab95405%_ _%key95406%_ _%default95407%_) - (let ((_%table95409%_ - (let () (declare (not safe)) (&raw-table-table _%tab95405%_))) - (_%seed95410%_ - (let () (declare (not safe)) (&raw-table-seed _%tab95405%_)))) - (let* ((_%h95412%_ - (fxxor (__class-specializer-hash-key _%key95406%_) - _%seed95410%_)) - (_%size95415%_ (vector-length _%table95409%_)) - (_%entries95418%_ + (lambda (_%tab95679%_ _%key95680%_ _%default95681%_) + (let ((_%table95683%_ + (let () (declare (not safe)) (&raw-table-table _%tab95679%_))) + (_%seed95684%_ + (let () (declare (not safe)) (&raw-table-seed _%tab95679%_)))) + (let* ((_%h95686%_ + (fxxor (__class-specializer-hash-key _%key95680%_) + _%seed95684%_)) + (_%size95689%_ (vector-length _%table95683%_)) + (_%entries95692%_ (let () (declare (not safe)) - (##fxquotient _%size95415%_ '2))) - (_%start95421%_ - (let ((__tmp100161 + (##fxquotient _%size95689%_ '2))) + (_%start95695%_ + (let ((__tmp100435 (let () (declare (not safe)) - (##fxmodulo _%h95412%_ _%entries95418%_)))) + (##fxmodulo _%h95686%_ _%entries95692%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp100161 '1)))) - (let _%loop95425%_ ((_%probe95428%_ _%start95421%_) - (_%i95430%_ '1) - (_%deleted95432%_ '#f)) - (let ((_%k95435%_ (vector-ref _%table95409%_ _%probe95428%_))) - (if (eq? _%k95435%_ (macro-unused-obj)) - _%default95407%_ - (if (eq? _%k95435%_ (macro-deleted-obj)) - (_%loop95425%_ - (let ((_%next-probe95440%_ - (fx+ _%start95421%_ - _%i95430%_ - (fx* _%i95430%_ _%i95430%_)))) + (##fxarithmetic-shift-left __tmp100435 '1)))) + (let _%loop95699%_ ((_%probe95702%_ _%start95695%_) + (_%i95704%_ '1) + (_%deleted95706%_ '#f)) + (let ((_%k95709%_ (vector-ref _%table95683%_ _%probe95702%_))) + (if (eq? _%k95709%_ (macro-unused-obj)) + _%default95681%_ + (if (eq? _%k95709%_ (macro-deleted-obj)) + (_%loop95699%_ + (let ((_%next-probe95714%_ + (fx+ _%start95695%_ + _%i95704%_ + (fx* _%i95704%_ _%i95704%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95440%_ _%size95415%_)) - (let () (declare (not safe)) (##fx+ _%i95430%_ '1)) - (let ((_%$e95443%_ _%deleted95432%_)) - (if _%$e95443%_ _%$e95443%_ _%probe95428%_))) - (if (eq? _%key95406%_ _%k95435%_) + (##fxmodulo _%next-probe95714%_ _%size95689%_)) + (let () (declare (not safe)) (##fx+ _%i95704%_ '1)) + (let ((_%$e95717%_ _%deleted95706%_)) + (if _%$e95717%_ _%$e95717%_ _%probe95702%_))) + (if (eq? _%key95680%_ _%k95709%_) (vector-ref - _%table95409%_ + _%table95683%_ (let () (declare (not safe)) - (##fx+ _%probe95428%_ '1))) - (_%loop95425%_ - (let ((_%next-probe95448%_ - (fx+ _%start95421%_ - _%i95430%_ - (fx* _%i95430%_ _%i95430%_)))) + (##fx+ _%probe95702%_ '1))) + (_%loop95699%_ + (let ((_%next-probe95722%_ + (fx+ _%start95695%_ + _%i95704%_ + (fx* _%i95704%_ _%i95704%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95448%_ _%size95415%_)) + (##fxmodulo _%next-probe95722%_ _%size95689%_)) (let () (declare (not safe)) - (##fx+ _%i95430%_ '1)) - _%deleted95432%_)))))))))) + (##fx+ _%i95704%_ '1)) + _%deleted95706%_)))))))))) (define class-specializer-table-set! - (lambda (_%tab95401%_ _%key95402%_ _%value95403%_) - (if (let ((__tmp100164 + (lambda (_%tab95675%_ _%key95676%_ _%value95677%_) + (if (let ((__tmp100438 (let () (declare (not safe)) - (&raw-table-free _%tab95401%_))) - (__tmp100162 - (let ((__tmp100163 + (&raw-table-free _%tab95675%_))) + (__tmp100436 + (let ((__tmp100437 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab95401%_))))) + (&raw-table-table _%tab95675%_))))) (declare (not safe)) - (##fxquotient __tmp100163 '4)))) + (##fxquotient __tmp100437 '4)))) (declare (not safe)) - (##fx< __tmp100164 __tmp100162)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab95401%_)) + (##fx< __tmp100438 __tmp100436)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab95675%_)) '#!void) (__class-specializer-table-set! - _%tab95401%_ - _%key95402%_ - _%value95403%_))) + _%tab95675%_ + _%key95676%_ + _%value95677%_))) (define __class-specializer-table-set! - (lambda (_%tab95352%_ _%key95353%_ _%value95354%_) - (let ((_%table95357%_ - (let () (declare (not safe)) (&raw-table-table _%tab95352%_))) - (_%seed95358%_ - (let () (declare (not safe)) (&raw-table-seed _%tab95352%_)))) - (let* ((_%h95360%_ - (fxxor (__class-specializer-hash-key _%key95353%_) - _%seed95358%_)) - (_%size95363%_ (vector-length _%table95357%_)) - (_%entries95366%_ + (lambda (_%tab95626%_ _%key95627%_ _%value95628%_) + (let ((_%table95631%_ + (let () (declare (not safe)) (&raw-table-table _%tab95626%_))) + (_%seed95632%_ + (let () (declare (not safe)) (&raw-table-seed _%tab95626%_)))) + (let* ((_%h95634%_ + (fxxor (__class-specializer-hash-key _%key95627%_) + _%seed95632%_)) + (_%size95637%_ (vector-length _%table95631%_)) + (_%entries95640%_ (let () (declare (not safe)) - (##fxquotient _%size95363%_ '2))) - (_%start95369%_ - (let ((__tmp100165 + (##fxquotient _%size95637%_ '2))) + (_%start95643%_ + (let ((__tmp100439 (let () (declare (not safe)) - (##fxmodulo _%h95360%_ _%entries95366%_)))) + (##fxmodulo _%h95634%_ _%entries95640%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp100165 '1)))) - (let _%loop95373%_ ((_%probe95376%_ _%start95369%_) - (_%i95378%_ '1) - (_%deleted95380%_ '#f)) - (let ((_%k95383%_ (vector-ref _%table95357%_ _%probe95376%_))) - (if (eq? _%k95383%_ (macro-unused-obj)) - (if _%deleted95380%_ + (##fxarithmetic-shift-left __tmp100439 '1)))) + (let _%loop95647%_ ((_%probe95650%_ _%start95643%_) + (_%i95652%_ '1) + (_%deleted95654%_ '#f)) + (let ((_%k95657%_ (vector-ref _%table95631%_ _%probe95650%_))) + (if (eq? _%k95657%_ (macro-unused-obj)) + (if _%deleted95654%_ (begin (vector-set! - _%table95357%_ - _%deleted95380%_ - _%key95353%_) + _%table95631%_ + _%deleted95654%_ + _%key95627%_) (vector-set! - _%table95357%_ + _%table95631%_ (let () (declare (not safe)) - (##fx+ _%deleted95380%_ '1)) - _%value95354%_) + (##fx+ _%deleted95654%_ '1)) + _%value95628%_) ((lambda () - (let ((__tmp100166 - (let ((__tmp100167 + (let ((__tmp100440 + (let ((__tmp100441 (let () (declare (not safe)) - (&raw-table-count _%tab95352%_)))) + (&raw-table-count _%tab95626%_)))) (declare (not safe)) - (##fx+ __tmp100167 '1)))) + (##fx+ __tmp100441 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab95352%_ - __tmp100166))))) + _%tab95626%_ + __tmp100440))))) (begin (vector-set! - _%table95357%_ - _%probe95376%_ - _%key95353%_) + _%table95631%_ + _%probe95650%_ + _%key95627%_) (vector-set! - _%table95357%_ + _%table95631%_ (let () (declare (not safe)) - (##fx+ _%probe95376%_ '1)) - _%value95354%_) + (##fx+ _%probe95650%_ '1)) + _%value95628%_) ((lambda () - (let ((__tmp100168 - (let ((__tmp100169 + (let ((__tmp100442 + (let ((__tmp100443 (let () (declare (not safe)) - (&raw-table-free _%tab95352%_)))) + (&raw-table-free _%tab95626%_)))) (declare (not safe)) - (##fx- __tmp100169 '1)))) + (##fx- __tmp100443 '1)))) (declare (not safe)) - (&raw-table-free-set! _%tab95352%_ __tmp100168)) - (let ((__tmp100170 - (let ((__tmp100171 + (&raw-table-free-set! _%tab95626%_ __tmp100442)) + (let ((__tmp100444 + (let ((__tmp100445 (let () (declare (not safe)) - (&raw-table-count _%tab95352%_)))) + (&raw-table-count _%tab95626%_)))) (declare (not safe)) - (##fx+ __tmp100171 '1)))) + (##fx+ __tmp100445 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab95352%_ - __tmp100170)))))) - (if (eq? _%k95383%_ (macro-deleted-obj)) - (_%loop95373%_ - (let ((_%next-probe95390%_ - (fx+ _%start95369%_ - _%i95378%_ - (fx* _%i95378%_ _%i95378%_)))) + _%tab95626%_ + __tmp100444)))))) + (if (eq? _%k95657%_ (macro-deleted-obj)) + (_%loop95647%_ + (let ((_%next-probe95664%_ + (fx+ _%start95643%_ + _%i95652%_ + (fx* _%i95652%_ _%i95652%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95390%_ _%size95363%_)) - (let () (declare (not safe)) (##fx+ _%i95378%_ '1)) - (let ((_%$e95393%_ _%deleted95380%_)) - (if _%$e95393%_ _%$e95393%_ _%probe95376%_))) - (if (eq? _%key95353%_ _%k95383%_) + (##fxmodulo _%next-probe95664%_ _%size95637%_)) + (let () (declare (not safe)) (##fx+ _%i95652%_ '1)) + (let ((_%$e95667%_ _%deleted95654%_)) + (if _%$e95667%_ _%$e95667%_ _%probe95650%_))) + (if (eq? _%key95627%_ _%k95657%_) (let () (vector-set! - _%table95357%_ - _%probe95376%_ - _%key95353%_) + _%table95631%_ + _%probe95650%_ + _%key95627%_) (vector-set! - _%table95357%_ + _%table95631%_ (let () (declare (not safe)) - (##fx+ _%probe95376%_ '1)) - _%value95354%_)) - (_%loop95373%_ - (let ((_%next-probe95398%_ - (fx+ _%start95369%_ - _%i95378%_ - (fx* _%i95378%_ _%i95378%_)))) + (##fx+ _%probe95650%_ '1)) + _%value95628%_)) + (_%loop95647%_ + (let ((_%next-probe95672%_ + (fx+ _%start95643%_ + _%i95652%_ + (fx* _%i95652%_ _%i95652%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95398%_ _%size95363%_)) + (##fxmodulo _%next-probe95672%_ _%size95637%_)) (let () (declare (not safe)) - (##fx+ _%i95378%_ '1)) - _%deleted95380%_)))))))))) + (##fx+ _%i95652%_ '1)) + _%deleted95654%_)))))))))) (define class-specializer-table-update! - (lambda (_%tab95347%_ - _%key95348%_ - _%class-specializer-table-update!95349%_ - _%default95350%_) - (if (let ((__tmp100174 + (lambda (_%tab95621%_ + _%key95622%_ + _%class-specializer-table-update!95623%_ + _%default95624%_) + (if (let ((__tmp100448 (let () (declare (not safe)) - (&raw-table-free _%tab95347%_))) - (__tmp100172 - (let ((__tmp100173 + (&raw-table-free _%tab95621%_))) + (__tmp100446 + (let ((__tmp100447 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab95347%_))))) + (&raw-table-table _%tab95621%_))))) (declare (not safe)) - (##fxquotient __tmp100173 '4)))) + (##fxquotient __tmp100447 '4)))) (declare (not safe)) - (##fx< __tmp100174 __tmp100172)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab95347%_)) + (##fx< __tmp100448 __tmp100446)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab95621%_)) '#!void) (__class-specializer-table-update! - _%tab95347%_ - _%key95348%_ - _%class-specializer-table-update!95349%_ - _%default95350%_))) + _%tab95621%_ + _%key95622%_ + _%class-specializer-table-update!95623%_ + _%default95624%_))) (define __class-specializer-table-update! - (lambda (_%tab95297%_ - _%key95298%_ - _%class-specializer-table-update!95299%_ - _%default95300%_) - (let ((_%table95303%_ - (let () (declare (not safe)) (&raw-table-table _%tab95297%_))) - (_%seed95304%_ - (let () (declare (not safe)) (&raw-table-seed _%tab95297%_)))) - (let* ((_%h95306%_ - (fxxor (__class-specializer-hash-key _%key95298%_) - _%seed95304%_)) - (_%size95309%_ (vector-length _%table95303%_)) - (_%entries95312%_ + (lambda (_%tab95571%_ + _%key95572%_ + _%class-specializer-table-update!95573%_ + _%default95574%_) + (let ((_%table95577%_ + (let () (declare (not safe)) (&raw-table-table _%tab95571%_))) + (_%seed95578%_ + (let () (declare (not safe)) (&raw-table-seed _%tab95571%_)))) + (let* ((_%h95580%_ + (fxxor (__class-specializer-hash-key _%key95572%_) + _%seed95578%_)) + (_%size95583%_ (vector-length _%table95577%_)) + (_%entries95586%_ (let () (declare (not safe)) - (##fxquotient _%size95309%_ '2))) - (_%start95315%_ - (let ((__tmp100175 + (##fxquotient _%size95583%_ '2))) + (_%start95589%_ + (let ((__tmp100449 (let () (declare (not safe)) - (##fxmodulo _%h95306%_ _%entries95312%_)))) + (##fxmodulo _%h95580%_ _%entries95586%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp100175 '1)))) - (let _%loop95319%_ ((_%probe95322%_ _%start95315%_) - (_%i95324%_ '1) - (_%deleted95326%_ '#f)) - (let ((_%k95329%_ (vector-ref _%table95303%_ _%probe95322%_))) - (if (eq? _%k95329%_ (macro-unused-obj)) - (if _%deleted95326%_ + (##fxarithmetic-shift-left __tmp100449 '1)))) + (let _%loop95593%_ ((_%probe95596%_ _%start95589%_) + (_%i95598%_ '1) + (_%deleted95600%_ '#f)) + (let ((_%k95603%_ (vector-ref _%table95577%_ _%probe95596%_))) + (if (eq? _%k95603%_ (macro-unused-obj)) + (if _%deleted95600%_ (begin (vector-set! - _%table95303%_ - _%deleted95326%_ - _%key95298%_) + _%table95577%_ + _%deleted95600%_ + _%key95572%_) (vector-set! - _%table95303%_ + _%table95577%_ (let () (declare (not safe)) - (##fx+ _%deleted95326%_ '1)) - (_%class-specializer-table-update!95299%_ - _%default95300%_)) + (##fx+ _%deleted95600%_ '1)) + (_%class-specializer-table-update!95573%_ + _%default95574%_)) ((lambda () - (let ((__tmp100176 - (let ((__tmp100177 + (let ((__tmp100450 + (let ((__tmp100451 (let () (declare (not safe)) - (&raw-table-count _%tab95297%_)))) + (&raw-table-count _%tab95571%_)))) (declare (not safe)) - (##fx+ __tmp100177 '1)))) + (##fx+ __tmp100451 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab95297%_ - __tmp100176))))) + _%tab95571%_ + __tmp100450))))) (begin (vector-set! - _%table95303%_ - _%probe95322%_ - _%key95298%_) + _%table95577%_ + _%probe95596%_ + _%key95572%_) (vector-set! - _%table95303%_ + _%table95577%_ (let () (declare (not safe)) - (##fx+ _%probe95322%_ '1)) - (_%class-specializer-table-update!95299%_ - _%default95300%_)) + (##fx+ _%probe95596%_ '1)) + (_%class-specializer-table-update!95573%_ + _%default95574%_)) ((lambda () - (let ((__tmp100178 - (let ((__tmp100179 + (let ((__tmp100452 + (let ((__tmp100453 (let () (declare (not safe)) - (&raw-table-free _%tab95297%_)))) + (&raw-table-free _%tab95571%_)))) (declare (not safe)) - (##fx- __tmp100179 '1)))) + (##fx- __tmp100453 '1)))) (declare (not safe)) - (&raw-table-free-set! _%tab95297%_ __tmp100178)) - (let ((__tmp100180 - (let ((__tmp100181 + (&raw-table-free-set! _%tab95571%_ __tmp100452)) + (let ((__tmp100454 + (let ((__tmp100455 (let () (declare (not safe)) - (&raw-table-count _%tab95297%_)))) + (&raw-table-count _%tab95571%_)))) (declare (not safe)) - (##fx+ __tmp100181 '1)))) + (##fx+ __tmp100455 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab95297%_ - __tmp100180)))))) - (if (eq? _%k95329%_ (macro-deleted-obj)) - (_%loop95319%_ - (let ((_%next-probe95336%_ - (fx+ _%start95315%_ - _%i95324%_ - (fx* _%i95324%_ _%i95324%_)))) + _%tab95571%_ + __tmp100454)))))) + (if (eq? _%k95603%_ (macro-deleted-obj)) + (_%loop95593%_ + (let ((_%next-probe95610%_ + (fx+ _%start95589%_ + _%i95598%_ + (fx* _%i95598%_ _%i95598%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95336%_ _%size95309%_)) - (let () (declare (not safe)) (##fx+ _%i95324%_ '1)) - (let ((_%$e95339%_ _%deleted95326%_)) - (if _%$e95339%_ _%$e95339%_ _%probe95322%_))) - (if (eq? _%key95298%_ _%k95329%_) + (##fxmodulo _%next-probe95610%_ _%size95583%_)) + (let () (declare (not safe)) (##fx+ _%i95598%_ '1)) + (let ((_%$e95613%_ _%deleted95600%_)) + (if _%$e95613%_ _%$e95613%_ _%probe95596%_))) + (if (eq? _%key95572%_ _%k95603%_) (let () (vector-set! - _%table95303%_ - _%probe95322%_ - _%key95298%_) + _%table95577%_ + _%probe95596%_ + _%key95572%_) (vector-set! - _%table95303%_ + _%table95577%_ (let () (declare (not safe)) - (##fx+ _%probe95322%_ '1)) - (_%class-specializer-table-update!95299%_ + (##fx+ _%probe95596%_ '1)) + (_%class-specializer-table-update!95573%_ (vector-ref - _%table95303%_ + _%table95577%_ (let () (declare (not safe)) - (##fx+ _%probe95322%_ '1)))))) - (_%loop95319%_ - (let ((_%next-probe95344%_ - (fx+ _%start95315%_ - _%i95324%_ - (fx* _%i95324%_ _%i95324%_)))) + (##fx+ _%probe95596%_ '1)))))) + (_%loop95593%_ + (let ((_%next-probe95618%_ + (fx+ _%start95589%_ + _%i95598%_ + (fx* _%i95598%_ _%i95598%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95344%_ _%size95309%_)) + (##fxmodulo _%next-probe95618%_ _%size95583%_)) (let () (declare (not safe)) - (##fx+ _%i95324%_ '1)) - _%deleted95326%_)))))))))) + (##fx+ _%i95598%_ '1)) + _%deleted95600%_)))))))))) (define class-specializer-table-delete! - (lambda (_%tab95252%_ _%key95254%_) - (let ((_%table95257%_ - (let () (declare (not safe)) (&raw-table-table _%tab95252%_))) - (_%seed95259%_ - (let () (declare (not safe)) (&raw-table-seed _%tab95252%_)))) - (let* ((_%h95262%_ - (fxxor (__class-specializer-hash-key _%key95254%_) - _%seed95259%_)) - (_%size95265%_ (vector-length _%table95257%_)) - (_%entries95268%_ + (lambda (_%tab95526%_ _%key95528%_) + (let ((_%table95531%_ + (let () (declare (not safe)) (&raw-table-table _%tab95526%_))) + (_%seed95533%_ + (let () (declare (not safe)) (&raw-table-seed _%tab95526%_)))) + (let* ((_%h95536%_ + (fxxor (__class-specializer-hash-key _%key95528%_) + _%seed95533%_)) + (_%size95539%_ (vector-length _%table95531%_)) + (_%entries95542%_ (let () (declare (not safe)) - (##fxquotient _%size95265%_ '2))) - (_%start95271%_ - (let ((__tmp100182 + (##fxquotient _%size95539%_ '2))) + (_%start95545%_ + (let ((__tmp100456 (let () (declare (not safe)) - (##fxmodulo _%h95262%_ _%entries95268%_)))) + (##fxmodulo _%h95536%_ _%entries95542%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp100182 '1)))) - (let _%loop95275%_ ((_%probe95278%_ _%start95271%_) - (_%i95280%_ '1)) - (let ((_%k95283%_ (vector-ref _%table95257%_ _%probe95278%_))) - (if (eq? _%k95283%_ (macro-unused-obj)) + (##fxarithmetic-shift-left __tmp100456 '1)))) + (let _%loop95549%_ ((_%probe95552%_ _%start95545%_) + (_%i95554%_ '1)) + (let ((_%k95557%_ (vector-ref _%table95531%_ _%probe95552%_))) + (if (eq? _%k95557%_ (macro-unused-obj)) '#!void - (if (eq? _%k95283%_ (macro-deleted-obj)) - (_%loop95275%_ - (let ((_%next-probe95288%_ - (fx+ _%start95271%_ - _%i95280%_ - (fx* _%i95280%_ _%i95280%_)))) + (if (eq? _%k95557%_ (macro-deleted-obj)) + (_%loop95549%_ + (let ((_%next-probe95562%_ + (fx+ _%start95545%_ + _%i95554%_ + (fx* _%i95554%_ _%i95554%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95288%_ _%size95265%_)) - (let () (declare (not safe)) (##fx+ _%i95280%_ '1))) - (if (eq? _%key95254%_ _%k95283%_) + (##fxmodulo _%next-probe95562%_ _%size95539%_)) + (let () (declare (not safe)) (##fx+ _%i95554%_ '1))) + (if (eq? _%key95528%_ _%k95557%_) (let () (vector-set! - _%table95257%_ - _%probe95278%_ + _%table95531%_ + _%probe95552%_ (macro-deleted-obj)) (vector-set! - _%table95257%_ + _%table95531%_ (let () (declare (not safe)) - (##fx+ _%probe95278%_ '1)) + (##fx+ _%probe95552%_ '1)) (macro-absent-obj)) ((lambda () - (let ((__tmp100183 - (let ((__tmp100184 + (let ((__tmp100457 + (let ((__tmp100458 (let () (declare (not safe)) (&raw-table-count - _%tab95252%_)))) + _%tab95526%_)))) (declare (not safe)) - (##fx- __tmp100184 '1)))) + (##fx- __tmp100458 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab95252%_ - __tmp100183))))) - (_%loop95275%_ - (let ((_%next-probe95294%_ - (fx+ _%start95271%_ - _%i95280%_ - (fx* _%i95280%_ _%i95280%_)))) + _%tab95526%_ + __tmp100457))))) + (_%loop95549%_ + (let ((_%next-probe95568%_ + (fx+ _%start95545%_ + _%i95554%_ + (fx* _%i95554%_ _%i95554%_)))) (declare (not safe)) - (##fxmodulo _%next-probe95294%_ _%size95265%_)) + (##fxmodulo _%next-probe95568%_ _%size95539%_)) (let () (declare (not safe)) - (##fx+ _%i95280%_ '1)))))))))))) + (##fx+ _%i95554%_ '1)))))))))))) (define __class-specializers-mx (vector '0)) (define __class-specializers (make-class-specializer-table__% '#f '0)) (define __class-specializers-key (cons '#f '#f)) (define specialize-class - (lambda (_%klass95238%_) + (lambda (_%klass95512%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass95238%_ 'class)) - (let ((_%klass95242%_ _%klass95238%_)) - (__specialize-class _%klass95242%_)) + (##structure-instance-of? _%klass95512%_ 'class)) + (let ((_%klass95516%_ _%klass95512%_)) + (__specialize-class _%klass95516%_)) (begin (raise-contract-violation-error '"contract violation" @@ -4576,192 +4576,192 @@ 'contract: 'class-type? 'value: - _%klass95238%_) + _%klass95512%_) '#!void)))) (define __specialize-class - (lambda (_%klass95220%_) - (let* ((_%klass95223%_ _%klass95220%_) - (_%$e95232%_ (__lookup-class-specializer _%klass95223%_))) - (if _%$e95232%_ - _%$e95232%_ - (let ((_%method-table95236%_ - (___specialize-class _%klass95223%_))) + (lambda (_%klass95494%_) + (let* ((_%klass95497%_ _%klass95494%_) + (_%$e95506%_ (__lookup-class-specializer _%klass95497%_))) + (if _%$e95506%_ + _%$e95506%_ + (let ((_%method-table95510%_ + (___specialize-class _%klass95497%_))) (__bind-class-specializer! - _%klass95223%_ - _%method-table95236%_) - _%method-table95236%_))))) + _%klass95497%_ + _%method-table95510%_) + _%method-table95510%_))))) (define __lookup-class-specializer - (lambda (_%klass95210%_) + (lambda (_%klass95484%_) (let () (declare (not interrupts-enabled)) - (let _%again95214%_ () - (if (let ((__tmp100185 + (let _%again95488%_ () + (if (let ((__tmp100459 (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp100185 '0)) + (##fx= __tmp100459 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again95214%_))))) - (let ((_%method-table95218%_ + (_%again95488%_))))) + (let ((_%method-table95492%_ (class-specializer-table-ref __class-specializers - _%klass95210%_ + _%klass95484%_ '#f))) (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '0 '1)) - _%method-table95218%_))) + _%method-table95492%_))) (define __bind-class-specializer! - (lambda (_%klass95201%_ _%method-table95202%_) + (lambda (_%klass95475%_ _%method-table95476%_) (let () (declare (not interrupts-enabled)) - (let _%again95206%_ () - (if (let ((__tmp100186 + (let _%again95480%_ () + (if (let ((__tmp100460 (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp100186 '0)) + (##fx= __tmp100460 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again95206%_))))) + (_%again95480%_))))) (class-specializer-table-set! __class-specializers - _%klass95201%_ - _%method-table95202%_) + _%klass95475%_ + _%method-table95476%_) (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '0 '1)))) (define __specialize-method - (lambda (_%klass95185%_ - _%method-table95186%_ - _%method95187%_ - _%proc95188%_) - (let ((_%$e95190%_ + (lambda (_%klass95459%_ + _%method-table95460%_ + _%method95461%_ + _%proc95462%_) + (let ((_%$e95464%_ (let () (declare (not safe)) (symbolic-table-ref - _%method-table95186%_ - _%method95187%_ + _%method-table95460%_ + _%method95461%_ '#f)))) - (if _%$e95190%_ - _%$e95190%_ - (let ((_%$e95193%_ (__lookup-method-specializer _%proc95188%_))) - (if _%$e95193%_ - ((lambda (_%specialize95196%_) - (let ((_%specialized-proc95198%_ - (_%specialize95196%_ - _%klass95185%_ - _%method-table95186%_))) + (if _%$e95464%_ + _%$e95464%_ + (let ((_%$e95467%_ (__lookup-method-specializer _%proc95462%_))) + (if _%$e95467%_ + ((lambda (_%specialize95470%_) + (let ((_%specialized-proc95472%_ + (_%specialize95470%_ + _%klass95459%_ + _%method-table95460%_))) (declare (not safe)) (symbolic-table-set! - _%method-table95186%_ - _%method95187%_ - _%specialized-proc95198%_))) - _%$e95193%_) + _%method-table95460%_ + _%method95461%_ + _%specialized-proc95472%_))) + _%$e95467%_) (let () (declare (not safe)) (symbolic-table-set! - _%method-table95186%_ - _%method95187%_ - _%proc95188%_)))))))) + _%method-table95460%_ + _%method95461%_ + _%proc95462%_)))))))) (define ___specialize-class - (lambda (_%klass95127%_) + (lambda (_%klass95401%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass95127%_ 'class)) - (if (__class-type-metaclass? _%klass95127%_) - (let ((__method100032 - (__method-ref _%klass95127%_ 'specialize-class))) - (if __method100032 + (##structure-instance-of? _%klass95401%_ 'class)) + (if (__class-type-metaclass? _%klass95401%_) + (let ((__method100306 + (__method-ref _%klass95401%_ 'specialize-class))) + (if __method100306 (let () (declare (not safe)) - (__method100032 _%klass95127%_)) + (__method100306 _%klass95401%_)) (begin (error '"Missing method" - _%klass95127%_ + _%klass95401%_ 'specialize-class) '#!void))) - (if (let ((__tmp100187 + (if (let ((__tmp100461 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass95127%_ + _%klass95401%_ '6 '#f '#f)))) (declare (not safe)) - (__find class-type-metaclass? __tmp100187)) + (__find class-type-metaclass? __tmp100461)) (error '"cannot specialize class that extends metaclass without a metaclass" - _%klass95127%_) - (let ((_%method-table95133%_ + _%klass95401%_) + (let ((_%method-table95407%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let _%loop95135%_ ((_%rest95137%_ + (let _%loop95409%_ ((_%rest95411%_ (__class-precedence-list - _%klass95127%_))) - (let* ((_%rest9513895146%_ _%rest95137%_) - (_%else9514095154%_ - (lambda () _%method-table95133%_)) - (_%K9514295173%_ - (lambda (_%rest95157%_ _%xklass95158%_) - (let ((_%xmethod-table9515995161%_ + _%klass95401%_))) + (let* ((_%rest9541295420%_ _%rest95411%_) + (_%else9541495428%_ + (lambda () _%method-table95407%_)) + (_%K9541695447%_ + (lambda (_%rest95431%_ _%xklass95432%_) + (let ((_%xmethod-table9543395435%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%xklass95158%_ + _%xklass95432%_ '11 '#f '#f)))) - (if _%xmethod-table9515995161%_ - (let* ((_%xmethod-table95164%_ - _%xmethod-table9515995161%_) - (__tmp100188 - (lambda (_%g9516595168%_ - _%g9516695170%_) + (if _%xmethod-table9543395435%_ + (let* ((_%xmethod-table95438%_ + _%xmethod-table9543395435%_) + (__tmp100462 + (lambda (_%g9543995442%_ + _%g9544095444%_) (__specialize-method - _%klass95127%_ - _%method-table95133%_ - _%g9516595168%_ - _%g9516695170%_)))) + _%klass95401%_ + _%method-table95407%_ + _%g9543995442%_ + _%g9544095444%_)))) (declare (not safe)) (raw-table-for-each - _%xmethod-table95164%_ - __tmp100188)) + _%xmethod-table95438%_ + __tmp100462)) '#f)) - (_%loop95135%_ _%rest95157%_)))) + (_%loop95409%_ _%rest95431%_)))) (if (let () (declare (not safe)) - (##pair? _%rest9513895146%_)) - (let ((_%hd9514395176%_ + (##pair? _%rest9541295420%_)) + (let ((_%hd9541795450%_ (let () (declare (not safe)) - (##car _%rest9513895146%_))) - (_%tl9514495178%_ + (##car _%rest9541295420%_))) + (_%tl9541895452%_ (let () (declare (not safe)) - (##cdr _%rest9513895146%_)))) - (let* ((_%xklass95181%_ _%hd9514395176%_) - (_%rest95183%_ _%tl9514495178%_)) - (_%K9514295173%_ - _%rest95183%_ - _%xklass95181%_))) - (_%else9514095154%_))))))) - (if (let () (declare (not safe)) (##type? _%klass95127%_)) - (__specialize-class (__shadow-class _%klass95127%_)) - (error '"bad class; cannot specialize" _%klass95127%_))))) + (##cdr _%rest9541295420%_)))) + (let* ((_%xklass95455%_ _%hd9541795450%_) + (_%rest95457%_ _%tl9541895452%_)) + (_%K9541695447%_ + _%rest95457%_ + _%xklass95455%_))) + (_%else9541495428%_))))))) + (if (let () (declare (not safe)) (##type? _%klass95401%_)) + (__specialize-class (__shadow-class _%klass95401%_)) + (error '"bad class; cannot specialize" _%klass95401%_))))) (define seal-class! - (lambda (_%klass95113%_) + (lambda (_%klass95387%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass95113%_ 'class)) - (let ((_%klass95117%_ _%klass95113%_)) - (__seal-class! _%klass95117%_)) + (##structure-instance-of? _%klass95387%_ 'class)) + (let ((_%klass95391%_ _%klass95387%_)) + (__seal-class! _%klass95391%_)) (begin (raise-contract-violation-error '"contract violation" @@ -4770,60 +4770,60 @@ 'contract: 'class-type? 'value: - _%klass95113%_) + _%klass95387%_) '#!void)))) (define __seal-class! - (lambda (_%klass95096%_) - (let ((_%klass95099%_ _%klass95096%_)) - (if (__class-type-sealed? _%klass95099%_) + (lambda (_%klass95370%_) + (let ((_%klass95373%_ _%klass95370%_)) + (if (__class-type-sealed? _%klass95373%_) '#!void (begin - (if (__class-type-final? _%klass95099%_) + (if (__class-type-final? _%klass95373%_) '#!void - (error '"cannot seal non-final class" _%klass95099%_)) - (if (__class-type-metaclass? _%klass95099%_) - (let ((__method100033 - (__method-ref _%klass95099%_ 'seal-class!))) - (if __method100033 + (error '"cannot seal non-final class" _%klass95373%_)) + (if (__class-type-metaclass? _%klass95373%_) + (let ((__method100307 + (__method-ref _%klass95373%_ 'seal-class!))) + (if __method100307 (let () (declare (not safe)) - (__method100033 _%klass95099%_)) + (__method100307 _%klass95373%_)) (begin (error '"Missing method" - _%klass95099%_ + _%klass95373%_ 'seal-class!) '#!void))) - (if (let ((__tmp100189 + (if (let ((__tmp100463 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass95099%_ + _%klass95373%_ '6 '#f '#f)))) (declare (not safe)) - (__find class-type-metaclass? __tmp100189)) + (__find class-type-metaclass? __tmp100463)) (error '"cannot seal class that extends metaclass without a metaclass" - _%klass95099%_) - (let ((_%method-table95111%_ - (__specialize-class _%klass95099%_))) + _%klass95373%_) + (let ((_%method-table95385%_ + (__specialize-class _%klass95373%_))) (declare (not safe)) (##unchecked-structure-set! - _%klass95099%_ - _%method-table95111%_ + _%klass95373%_ + _%method-table95385%_ '11 '#f '#f)))) - (__class-type-seal! _%klass95099%_)))))) + (__class-type-seal! _%klass95373%_)))))) (define next-method - (lambda (_%subklass95070%_ _%obj95071%_ _%id95072%_) + (lambda (_%subklass95344%_ _%obj95345%_ _%id95346%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%subklass95070%_ 'class)) - (let ((_%subklass95076%_ _%subklass95070%_)) - (if (symbol? _%id95072%_) - (let ((_%id95086%_ _%id95072%_)) - (__next-method _%subklass95076%_ _%obj95071%_ _%id95086%_)) + (##structure-instance-of? _%subklass95344%_ 'class)) + (let ((_%subklass95350%_ _%subklass95344%_)) + (if (symbol? _%id95346%_) + (let ((_%id95360%_ _%id95346%_)) + (__next-method _%subklass95350%_ _%obj95345%_ _%id95360%_)) (begin (raise-contract-violation-error '"contract violation" @@ -4832,7 +4832,7 @@ 'contract: 'symbol? 'value: - _%id95072%_) + _%id95346%_) '#!void))) (begin (raise-contract-violation-error @@ -4842,63 +4842,63 @@ 'contract: 'class-type? 'value: - _%subklass95070%_) + _%subklass95344%_) '#!void)))) (define __next-method - (lambda (_%subklass95007%_ _%obj95008%_ _%id95009%_) - (let* ((_%subklass95012%_ _%subklass95007%_) (_%id95020%_ _%id95009%_)) - (letrec ((_%find-next-method95029%_ - (lambda (_%klass95031%_) - (let _%lp95033%_ ((_%rest95035%_ + (lambda (_%subklass95281%_ _%obj95282%_ _%id95283%_) + (let* ((_%subklass95286%_ _%subklass95281%_) (_%id95294%_ _%id95283%_)) + (letrec ((_%find-next-method95303%_ + (lambda (_%klass95305%_) + (let _%lp95307%_ ((_%rest95309%_ (class-precedence-list - _%klass95031%_))) - (let* ((_%rest9503695044%_ _%rest95035%_) - (_%else9503895052%_ (lambda () '#f)) - (_%K9504095058%_ - (lambda (_%rest95055%_ _%klass95056%_) + _%klass95305%_))) + (let* ((_%rest9531095318%_ _%rest95309%_) + (_%else9531295326%_ (lambda () '#f)) + (_%K9531495332%_ + (lambda (_%rest95329%_ _%klass95330%_) (if (eq? (let () (declare (not safe)) - (##type-id _%subklass95012%_)) + (##type-id _%subklass95286%_)) (let () (declare (not safe)) - (##type-id _%klass95056%_))) + (##type-id _%klass95330%_))) (__mixin-find-method - _%rest95055%_ - _%obj95008%_ - _%id95020%_) - (_%lp95033%_ _%rest95055%_))))) + _%rest95329%_ + _%obj95282%_ + _%id95294%_) + (_%lp95307%_ _%rest95329%_))))) (if (let () (declare (not safe)) - (##pair? _%rest9503695044%_)) - (let ((_%hd9504195061%_ + (##pair? _%rest9531095318%_)) + (let ((_%hd9531595335%_ (let () (declare (not safe)) - (##car _%rest9503695044%_))) - (_%tl9504295063%_ + (##car _%rest9531095318%_))) + (_%tl9531695337%_ (let () (declare (not safe)) - (##cdr _%rest9503695044%_)))) - (let* ((_%klass95066%_ _%hd9504195061%_) - (_%rest95068%_ _%tl9504295063%_)) - (_%K9504095058%_ - _%rest95068%_ - _%klass95066%_))) - (_%else9503895052%_))))))) - (_%find-next-method95029%_ (class-of _%obj95008%_)))))) + (##cdr _%rest9531095318%_)))) + (let* ((_%klass95340%_ _%hd9531595335%_) + (_%rest95342%_ _%tl9531695337%_)) + (_%K9531495332%_ + _%rest95342%_ + _%klass95340%_))) + (_%else9531295326%_))))))) + (_%find-next-method95303%_ (class-of _%obj95282%_)))))) (define call-next-method - (lambda (_%subklass94980%_ _%obj94981%_ _%id94982%_ . _%args94983%_) + (lambda (_%subklass95254%_ _%obj95255%_ _%id95256%_ . _%args95257%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%subklass94980%_ 'class)) - (let ((_%subklass94987%_ _%subklass94980%_)) - (if (symbol? _%id94982%_) - (let ((_%id94997%_ _%id94982%_)) + (##structure-instance-of? _%subklass95254%_ 'class)) + (let ((_%subklass95261%_ _%subklass95254%_)) + (if (symbol? _%id95256%_) + (let ((_%id95271%_ _%id95256%_)) (declare (not safe)) (##apply __call-next-method - _%subklass94987%_ - _%obj94981%_ - _%id94997%_ - _%args94983%_)) + _%subklass95261%_ + _%obj95255%_ + _%id95271%_ + _%args95257%_)) (begin (raise-contract-violation-error '"contract violation" @@ -4907,7 +4907,7 @@ 'contract: 'symbol? 'value: - _%id94982%_) + _%id95256%_) '#!void))) (begin (raise-contract-violation-error @@ -4917,126 +4917,126 @@ 'contract: 'class-type? 'value: - _%subklass94980%_) + _%subklass95254%_) '#!void)))) (define __call-next-method - (lambda (_%subklass94951%_ _%obj94952%_ _%id94953%_ . _%args94954%_) - (let* ((_%subklass94957%_ _%subklass94951%_) - (_%id94965%_ _%id94953%_) - (_%$e94974%_ - (__next-method _%subklass94957%_ _%obj94952%_ _%id94965%_))) - (if _%$e94974%_ - ((lambda (_%methodf94977%_) - (apply _%methodf94977%_ _%obj94952%_ _%args94954%_)) - _%$e94974%_) + (lambda (_%subklass95225%_ _%obj95226%_ _%id95227%_ . _%args95228%_) + (let* ((_%subklass95231%_ _%subklass95225%_) + (_%id95239%_ _%id95227%_) + (_%$e95248%_ + (__next-method _%subklass95231%_ _%obj95226%_ _%id95239%_))) + (if _%$e95248%_ + ((lambda (_%methodf95251%_) + (apply _%methodf95251%_ _%obj95226%_ _%args95228%_)) + _%$e95248%_) (error '"cannot find next method" 'object: - _%obj94952%_ + _%obj95226%_ 'method: - _%id94965%_))))) + _%id95239%_))))) (define write-style - (lambda (_%we94949%_) (macro-writeenv-style _%we94949%_))) + (lambda (_%we95223%_) (macro-writeenv-style _%we95223%_))) (define write-object - (lambda (_%we94940%_ _%obj94941%_) - (let ((_%$e94943%_ (__method-ref _%obj94941%_ ':wr))) - (if _%$e94943%_ - ((lambda (_%method94946%_) - (_%method94946%_ _%obj94941%_ _%we94940%_)) - _%$e94943%_) + (lambda (_%we95214%_ _%obj95215%_) + (let ((_%$e95217%_ (__method-ref _%obj95215%_ ':wr))) + (if _%$e95217%_ + ((lambda (_%method95220%_) + (_%method95220%_ _%obj95215%_ _%we95214%_)) + _%$e95217%_) (let () (declare (not safe)) - (##default-wr _%we94940%_ _%obj94941%_)))))) + (##default-wr _%we95214%_ _%obj95215%_)))))) (define __shadow-classes (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) (define __shadow-classes-mx (vector '0)) (define __shadow-class - (lambda (_%type94855%_) - (letrec ((_%shadow-type-id94857%_ - (lambda (_%type94938%_) - (let ((__tmp100190 + (lambda (_%type95129%_) + (letrec ((_%shadow-type-id95131%_ + (lambda (_%type95212%_) + (let ((__tmp100464 (let () (declare (not safe)) - (##type-name _%type94938%_)))) + (##type-name _%type95212%_)))) (declare (not safe)) - (make-symbol__1 __tmp100190 '"::t")))) - (_%shadow-type-name94858%_ - (lambda (_%type94936%_) - (let () (declare (not safe)) (##type-name _%type94936%_)))) - (_%make-shadow-class94859%_ - (lambda (_%type94928%_ _%precedence-list94929%_) - (let* ((_%super94931%_ - (if (pair? _%precedence-list94929%_) + (make-symbol__1 __tmp100464 '"::t")))) + (_%shadow-type-name95132%_ + (lambda (_%type95210%_) + (let () (declare (not safe)) (##type-name _%type95210%_)))) + (_%make-shadow-class95133%_ + (lambda (_%type95202%_ _%precedence-list95203%_) + (let* ((_%super95205%_ + (if (pair? _%precedence-list95203%_) (cons (let () (declare (not safe)) - (##car _%precedence-list94929%_)) + (##car _%precedence-list95203%_)) '()) '())) - (_%klass94933%_ + (_%klass95207%_ (make-class-type - (_%shadow-type-id94857%_ _%type94928%_) + (_%shadow-type-id95131%_ _%type95202%_) (let () (declare (not safe)) - (##type-name _%type94928%_)) - _%super94931%_ + (##type-name _%type95202%_)) + _%super95205%_ '() (cons (cons 'struct: '#t) (cons (cons 'system: '#t) - (if (__type-extensible? _%type94928%_) + (if (__type-extensible? _%type95202%_) '() (cons (cons 'final: '#t) '())))) '#f))) - (let ((__tmp100191 + (let ((__tmp100465 (let () (declare (not safe)) - (##type-id _%type94928%_)))) + (##type-id _%type95202%_)))) (declare (not safe)) (symbolic-table-set! __shadow-classes - __tmp100191 - _%klass94933%_)) - _%klass94933%_)))) + __tmp100465 + _%klass95207%_)) + _%klass95207%_)))) (let () (declare (not interrupts-enabled)) - (let _%again94863%_ () - (if (let ((__tmp100192 + (let _%again95137%_ () + (if (let ((__tmp100466 (let () (declare (not safe)) (##vector-cas! __shadow-classes-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp100192 '0)) + (##fx= __tmp100466 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again94863%_))))) - (let ((_%$e94867%_ - (let ((__tmp100193 + (_%again95137%_))))) + (let ((_%$e95141%_ + (let ((__tmp100467 (let () (declare (not safe)) - (##type-id _%type94855%_)))) + (##type-id _%type95129%_)))) (declare (not safe)) - (symbolic-table-ref __shadow-classes __tmp100193 '#f)))) - (if _%$e94867%_ - ((lambda (_%klass94870%_) + (symbolic-table-ref __shadow-classes __tmp100467 '#f)))) + (if _%$e95141%_ + ((lambda (_%klass95144%_) (let () (declare (not safe)) (##vector-cas! __shadow-classes-mx '0 '0 '1)) - _%klass94870%_) - _%$e94867%_) - (let _%loop94873%_ ((_%super94875%_ + _%klass95144%_) + _%$e95141%_) + (let _%loop95147%_ ((_%super95149%_ (let () (declare (not safe)) - (##type-super _%type94855%_))) - (_%hierarchy94876%_ '())) - (if (not _%super94875%_) - (let _%loop94879%_ ((_%rest94881%_ _%hierarchy94876%_) - (_%precedence-list94882%_ '())) - (let* ((_%rest9488394891%_ _%rest94881%_) - (_%else9488594901%_ + (##type-super _%type95129%_))) + (_%hierarchy95150%_ '())) + (if (not _%super95149%_) + (let _%loop95153%_ ((_%rest95155%_ _%hierarchy95150%_) + (_%precedence-list95156%_ '())) + (let* ((_%rest9515795165%_ _%rest95155%_) + (_%else9515995175%_ (lambda () - (let ((_%klass94899%_ - (_%make-shadow-class94859%_ - _%type94855%_ - _%precedence-list94882%_))) + (let ((_%klass95173%_ + (_%make-shadow-class95133%_ + _%type95129%_ + _%precedence-list95156%_))) (let () (declare (not safe)) (##vector-cas! @@ -5044,110 +5044,110 @@ '0 '0 '1)) - _%klass94899%_))) - (_%K9488794915%_ - (lambda (_%rest94904%_ _%type94905%_) - (let ((_%$e94907%_ - (let ((__tmp100194 + _%klass95173%_))) + (_%K9516195189%_ + (lambda (_%rest95178%_ _%type95179%_) + (let ((_%$e95181%_ + (let ((__tmp100468 (let () (declare (not safe)) - (##type-id _%type94905%_)))) + (##type-id _%type95179%_)))) (declare (not safe)) (symbolic-table-ref __shadow-classes - __tmp100194 + __tmp100468 '#f)))) - (if _%$e94907%_ - ((lambda (_%klass94910%_) - (_%loop94879%_ - _%rest94904%_ - (cons _%klass94910%_ - _%precedence-list94882%_))) - _%$e94907%_) - (let ((_%klass94913%_ - (_%make-shadow-class94859%_ - _%type94905%_ - _%precedence-list94882%_))) - (_%loop94879%_ - _%rest94904%_ - (cons _%klass94913%_ - _%precedence-list94882%_)))))))) + (if _%$e95181%_ + ((lambda (_%klass95184%_) + (_%loop95153%_ + _%rest95178%_ + (cons _%klass95184%_ + _%precedence-list95156%_))) + _%$e95181%_) + (let ((_%klass95187%_ + (_%make-shadow-class95133%_ + _%type95179%_ + _%precedence-list95156%_))) + (_%loop95153%_ + _%rest95178%_ + (cons _%klass95187%_ + _%precedence-list95156%_)))))))) (if (let () (declare (not safe)) - (##pair? _%rest9488394891%_)) - (let ((_%hd9488894918%_ + (##pair? _%rest9515795165%_)) + (let ((_%hd9516295192%_ (let () (declare (not safe)) - (##car _%rest9488394891%_))) - (_%tl9488994920%_ + (##car _%rest9515795165%_))) + (_%tl9516395194%_ (let () (declare (not safe)) - (##cdr _%rest9488394891%_)))) - (let* ((_%type94923%_ _%hd9488894918%_) - (_%rest94925%_ _%tl9488994920%_)) - (_%K9488794915%_ - _%rest94925%_ - _%type94923%_))) - (_%else9488594901%_)))) - (_%loop94873%_ + (##cdr _%rest9515795165%_)))) + (let* ((_%type95197%_ _%hd9516295192%_) + (_%rest95199%_ _%tl9516395194%_)) + (_%K9516195189%_ + _%rest95199%_ + _%type95197%_))) + (_%else9515995175%_)))) + (_%loop95147%_ (let () (declare (not safe)) - (##type-super _%super94875%_)) - (cons _%super94875%_ _%hierarchy94876%_))))))))) + (##type-super _%super95149%_)) + (cons _%super95149%_ _%hierarchy95150%_))))))))) (define class-of - (lambda (_%obj94828%_) + (lambda (_%obj95102%_) (let () (declare (not interrupts-enabled)) - (let ((_%t94832%_ - (let () (declare (not safe)) (##type _%obj94828%_)))) - (if (fx= _%t94832%_ (macro-type-subtyped)) - (let ((_%st94835%_ - (let () (declare (not safe)) (##subtype _%obj94828%_)))) - (if (fx= _%st94835%_ (macro-subtype-structure)) - (let ((_%klass94838%_ + (let ((_%t95106%_ + (let () (declare (not safe)) (##type _%obj95102%_)))) + (if (fx= _%t95106%_ (macro-type-subtyped)) + (let ((_%st95109%_ + (let () (declare (not safe)) (##subtype _%obj95102%_)))) + (if (fx= _%st95109%_ (macro-subtype-structure)) + (let ((_%klass95112%_ (let () (declare (not safe)) - (##structure-type _%obj94828%_)))) + (##structure-type _%obj95102%_)))) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass94838%_ 'class)) - _%klass94838%_ - (__shadow-class _%klass94838%_))) - (if (fx= _%st94835%_ (macro-subtype-boxvalues)) - (if (let ((__tmp100195 + (##structure-instance-of? _%klass95112%_ 'class)) + _%klass95112%_ + (__shadow-class _%klass95112%_))) + (if (fx= _%st95109%_ (macro-subtype-boxvalues)) + (if (let ((__tmp100469 (let () (declare (not safe)) - (##vector-length _%obj94828%_)))) + (##vector-length _%obj95102%_)))) (declare (not safe)) - (##fx= __tmp100195 '1)) + (##fx= __tmp100469 '1)) (__system-class 'box) (__system-class 'values)) - (let ((_%$e94841%_ + (let ((_%$e95115%_ (let () (declare (not safe)) - (##vector-ref __subtype-id _%st94835%_)))) - (if _%$e94841%_ - (__system-class _%$e94841%_) + (##vector-ref __subtype-id _%st95109%_)))) + (if _%$e95115%_ + (__system-class _%$e95115%_) (error '"unknown class" 'subtype: - _%st94835%_ + _%st95109%_ 'object: - _%obj94828%_)))))) - (if (fx= _%t94832%_ (macro-type-mem2)) + _%obj95102%_)))))) + (if (fx= _%t95106%_ (macro-type-mem2)) (__system-class 'pair) - (if (fx= _%t94832%_ (macro-type-fixnum)) + (if (fx= _%t95106%_ (macro-type-fixnum)) (__system-class 'fixnum) - (if (char? _%obj94828%_) + (if (char? _%obj95102%_) (__system-class 'char) - (if (eq? _%obj94828%_ '()) + (if (eq? _%obj95102%_ '()) (__system-class 'null) - (if (eq? _%obj94828%_ '#f) + (if (eq? _%obj95102%_ '#f) (__system-class 'boolean) - (if (eq? _%obj94828%_ '#t) + (if (eq? _%obj95102%_ '#t) (__system-class 'boolean) - (if (eq? _%obj94828%_ '#!void) + (if (eq? _%obj95102%_ '#!void) (__system-class 'void) - (if (eq? _%obj94828%_ '#!eof) + (if (eq? _%obj95102%_ '#!eof) (__system-class 'eof) (__system-class 'special)))))))))))))) @@ -5181,25 +5181,25 @@ (define __system-classes (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) (define __system-class - (lambda (_%id94822%_) - (let ((_%$e94824%_ + (lambda (_%id95096%_) + (let ((_%$e95098%_ (let () (declare (not safe)) - (symbolic-table-ref __system-classes _%id94822%_ '#f)))) - (if _%$e94824%_ - _%$e94824%_ - (error '"unknown system class" _%id94822%_))))) + (symbolic-table-ref __system-classes _%id95096%_ '#f)))) + (if _%$e95098%_ + _%$e95098%_ + (error '"unknown system class" _%id95096%_))))) (define __make-system-class - (lambda (_%id94817%_ _%super94818%_) - (let ((_%klass94820%_ + (lambda (_%id95091%_ _%super95092%_) + (let ((_%klass95094%_ (make-class-type - _%id94817%_ - _%id94817%_ - _%super94818%_ + _%id95091%_ + _%id95091%_ + _%super95092%_ '() '((system: . #t)) '#f))) (let () (declare (not safe)) - (symbolic-table-set! __system-classes _%id94817%_ _%klass94820%_)) - _%klass94820%_))))) + (symbolic-table-set! __system-classes _%id95091%_ _%klass95094%_)) + _%klass95094%_))))) diff --git a/src/bootstrap/gerbil/runtime/mop~1.scm b/src/bootstrap/gerbil/runtime/mop~1.scm index ba223dfb2..aa55cc847 100644 --- a/src/bootstrap/gerbil/runtime/mop~1.scm +++ b/src/bootstrap/gerbil/runtime/mop~1.scm @@ -1,309 +1,309 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |[:0:]#fxflag-set?| - (lambda (_%$stx93402%_) - (let* ((_%__stx9990699907%_ _%$stx93402%_) - (_%g9340793436%_ + (lambda (_%$stx93676%_) + (let* ((_%__stx100180100181%_ _%$stx93676%_) + (_%g9368193710%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9990699907%_)))) - (let ((_%__kont9990999910%_ - (lambda (_%L93529%_ _%L93531%_) + _%__stx100180100181%_)))) + (let ((_%__kont100183100184%_ + (lambda (_%L93803%_ _%L93805%_) (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L93531%_ (cons _%L93529%_ '()))) - (cons _%L93529%_ '()))))) - (_%__kont9991199912%_ - (lambda (_%L93473%_ _%L93475%_) + (cons _%L93805%_ (cons _%L93803%_ '()))) + (cons _%L93803%_ '()))))) + (_%__kont100185100186%_ + (lambda (_%L93747%_ _%L93749%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L93473%_ (cons _%L93473%_ '())) + (cons (cons _%L93747%_ (cons _%L93747%_ '())) (cons (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L93475%_ - (cons _%L93473%_ + (cons _%L93749%_ + (cons _%L93747%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L93473%_ '()))) + (cons _%L93747%_ '()))) '())))))) - (let ((_%__match9993399934%_ - (lambda (_%e9341193499%_ - _%hd9341293503%_ - _%tl9341393506%_ - _%e9341493509%_ - _%hd9341593513%_ - _%tl9341693516%_ - _%e9341793519%_ - _%hd9341893523%_ - _%tl9341993526%_) - (let ((_%L93529%_ _%hd9341893523%_) - (_%L93531%_ _%hd9341593513%_)) - (if (or (gx#identifier? _%L93529%_) - (gx#stx-fixnum? _%L93529%_)) - (_%__kont9990999910%_ _%L93529%_ _%L93531%_) - (_%__kont9991199912%_ - _%hd9341893523%_ - _%hd9341593513%_)))))) - (if (gx#stx-pair? _%__stx9990699907%_) - (let ((_%e9341193499%_ (gx#syntax-e _%__stx9990699907%_))) - (let ((_%tl9341393506%_ - (let () (declare (not safe)) (##cdr _%e9341193499%_))) - (_%hd9341293503%_ + (let ((_%__match100207100208%_ + (lambda (_%e9368593773%_ + _%hd9368693777%_ + _%tl9368793780%_ + _%e9368893783%_ + _%hd9368993787%_ + _%tl9369093790%_ + _%e9369193793%_ + _%hd9369293797%_ + _%tl9369393800%_) + (let ((_%L93803%_ _%hd9369293797%_) + (_%L93805%_ _%hd9368993787%_)) + (if (or (gx#identifier? _%L93803%_) + (gx#stx-fixnum? _%L93803%_)) + (_%__kont100183100184%_ _%L93803%_ _%L93805%_) + (_%__kont100185100186%_ + _%hd9369293797%_ + _%hd9368993787%_)))))) + (if (gx#stx-pair? _%__stx100180100181%_) + (let ((_%e9368593773%_ (gx#syntax-e _%__stx100180100181%_))) + (let ((_%tl9368793780%_ + (let () (declare (not safe)) (##cdr _%e9368593773%_))) + (_%hd9368693777%_ (let () (declare (not safe)) - (##car _%e9341193499%_)))) - (if (gx#stx-pair? _%tl9341393506%_) - (let ((_%e9341493509%_ (gx#syntax-e _%tl9341393506%_))) - (let ((_%tl9341693516%_ + (##car _%e9368593773%_)))) + (if (gx#stx-pair? _%tl9368793780%_) + (let ((_%e9368893783%_ (gx#syntax-e _%tl9368793780%_))) + (let ((_%tl9369093790%_ (let () (declare (not safe)) - (##cdr _%e9341493509%_))) - (_%hd9341593513%_ + (##cdr _%e9368893783%_))) + (_%hd9368993787%_ (let () (declare (not safe)) - (##car _%e9341493509%_)))) - (if (gx#stx-pair? _%tl9341693516%_) - (let ((_%e9341793519%_ - (gx#syntax-e _%tl9341693516%_))) - (let ((_%tl9341993526%_ + (##car _%e9368893783%_)))) + (if (gx#stx-pair? _%tl9369093790%_) + (let ((_%e9369193793%_ + (gx#syntax-e _%tl9369093790%_))) + (let ((_%tl9369393800%_ (let () (declare (not safe)) - (##cdr _%e9341793519%_))) - (_%hd9341893523%_ + (##cdr _%e9369193793%_))) + (_%hd9369293797%_ (let () (declare (not safe)) - (##car _%e9341793519%_)))) - (if (gx#stx-null? _%tl9341993526%_) - (_%__match9993399934%_ - _%e9341193499%_ - _%hd9341293503%_ - _%tl9341393506%_ - _%e9341493509%_ - _%hd9341593513%_ - _%tl9341693516%_ - _%e9341793519%_ - _%hd9341893523%_ - _%tl9341993526%_) + (##car _%e9369193793%_)))) + (if (gx#stx-null? _%tl9369393800%_) + (_%__match100207100208%_ + _%e9368593773%_ + _%hd9368693777%_ + _%tl9368793780%_ + _%e9368893783%_ + _%hd9368993787%_ + _%tl9369093790%_ + _%e9369193793%_ + _%hd9369293797%_ + _%tl9369393800%_) (let () (declare (not safe)) - (_%g9340793436%_))))) + (_%g9368193710%_))))) (let () (declare (not safe)) - (_%g9340793436%_))))) - (let () (declare (not safe)) (_%g9340793436%_))))) - (let () (declare (not safe)) (_%g9340793436%_)))))))) + (_%g9368193710%_))))) + (let () (declare (not safe)) (_%g9368193710%_))))) + (let () (declare (not safe)) (_%g9368193710%_)))))))) (define |[:0:]#fxflag-unset?| - (lambda (_%$stx93554%_) - (let* ((_%__stx9995699957%_ _%$stx93554%_) - (_%g9355993588%_ + (lambda (_%$stx93828%_) + (let* ((_%__stx100230100231%_ _%$stx93828%_) + (_%g9383393862%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9995699957%_)))) - (let ((_%__kont9995999960%_ - (lambda (_%L93680%_ _%L93682%_) + _%__stx100230100231%_)))) + (let ((_%__kont100233100234%_ + (lambda (_%L93954%_ _%L93956%_) (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L93682%_ (cons _%L93680%_ '()))) + (cons _%L93956%_ (cons _%L93954%_ '()))) (cons '0 '()))))) - (_%__kont9996199962%_ - (lambda (_%L93625%_ _%L93627%_) + (_%__kont100235100236%_ + (lambda (_%L93899%_ _%L93901%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L93625%_ (cons _%L93625%_ '())) + (cons (cons _%L93899%_ (cons _%L93899%_ '())) (cons (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L93627%_ - (cons _%L93625%_ + (cons _%L93901%_ + (cons _%L93899%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '0 '()))) '())))))) - (let ((_%__match9998399984%_ - (lambda (_%e9356393650%_ - _%hd9356493654%_ - _%tl9356593657%_ - _%e9356693660%_ - _%hd9356793664%_ - _%tl9356893667%_ - _%e9356993670%_ - _%hd9357093674%_ - _%tl9357193677%_) - (let ((_%L93680%_ _%hd9357093674%_) - (_%L93682%_ _%hd9356793664%_)) - (if (or (gx#identifier? _%L93680%_) - (gx#stx-fixnum? _%L93680%_)) - (_%__kont9995999960%_ _%L93680%_ _%L93682%_) - (_%__kont9996199962%_ - _%hd9357093674%_ - _%hd9356793664%_)))))) - (if (gx#stx-pair? _%__stx9995699957%_) - (let ((_%e9356393650%_ (gx#syntax-e _%__stx9995699957%_))) - (let ((_%tl9356593657%_ - (let () (declare (not safe)) (##cdr _%e9356393650%_))) - (_%hd9356493654%_ + (let ((_%__match100257100258%_ + (lambda (_%e9383793924%_ + _%hd9383893928%_ + _%tl9383993931%_ + _%e9384093934%_ + _%hd9384193938%_ + _%tl9384293941%_ + _%e9384393944%_ + _%hd9384493948%_ + _%tl9384593951%_) + (let ((_%L93954%_ _%hd9384493948%_) + (_%L93956%_ _%hd9384193938%_)) + (if (or (gx#identifier? _%L93954%_) + (gx#stx-fixnum? _%L93954%_)) + (_%__kont100233100234%_ _%L93954%_ _%L93956%_) + (_%__kont100235100236%_ + _%hd9384493948%_ + _%hd9384193938%_)))))) + (if (gx#stx-pair? _%__stx100230100231%_) + (let ((_%e9383793924%_ (gx#syntax-e _%__stx100230100231%_))) + (let ((_%tl9383993931%_ + (let () (declare (not safe)) (##cdr _%e9383793924%_))) + (_%hd9383893928%_ (let () (declare (not safe)) - (##car _%e9356393650%_)))) - (if (gx#stx-pair? _%tl9356593657%_) - (let ((_%e9356693660%_ (gx#syntax-e _%tl9356593657%_))) - (let ((_%tl9356893667%_ + (##car _%e9383793924%_)))) + (if (gx#stx-pair? _%tl9383993931%_) + (let ((_%e9384093934%_ (gx#syntax-e _%tl9383993931%_))) + (let ((_%tl9384293941%_ (let () (declare (not safe)) - (##cdr _%e9356693660%_))) - (_%hd9356793664%_ + (##cdr _%e9384093934%_))) + (_%hd9384193938%_ (let () (declare (not safe)) - (##car _%e9356693660%_)))) - (if (gx#stx-pair? _%tl9356893667%_) - (let ((_%e9356993670%_ - (gx#syntax-e _%tl9356893667%_))) - (let ((_%tl9357193677%_ + (##car _%e9384093934%_)))) + (if (gx#stx-pair? _%tl9384293941%_) + (let ((_%e9384393944%_ + (gx#syntax-e _%tl9384293941%_))) + (let ((_%tl9384593951%_ (let () (declare (not safe)) - (##cdr _%e9356993670%_))) - (_%hd9357093674%_ + (##cdr _%e9384393944%_))) + (_%hd9384493948%_ (let () (declare (not safe)) - (##car _%e9356993670%_)))) - (if (gx#stx-null? _%tl9357193677%_) - (_%__match9998399984%_ - _%e9356393650%_ - _%hd9356493654%_ - _%tl9356593657%_ - _%e9356693660%_ - _%hd9356793664%_ - _%tl9356893667%_ - _%e9356993670%_ - _%hd9357093674%_ - _%tl9357193677%_) + (##car _%e9384393944%_)))) + (if (gx#stx-null? _%tl9384593951%_) + (_%__match100257100258%_ + _%e9383793924%_ + _%hd9383893928%_ + _%tl9383993931%_ + _%e9384093934%_ + _%hd9384193938%_ + _%tl9384293941%_ + _%e9384393944%_ + _%hd9384493948%_ + _%tl9384593951%_) (let () (declare (not safe)) - (_%g9355993588%_))))) + (_%g9383393862%_))))) (let () (declare (not safe)) - (_%g9355993588%_))))) - (let () (declare (not safe)) (_%g9355993588%_))))) - (let () (declare (not safe)) (_%g9355993588%_)))))))) + (_%g9383393862%_))))) + (let () (declare (not safe)) (_%g9383393862%_))))) + (let () (declare (not safe)) (_%g9383393862%_)))))))) (define |[:0:]#defrefset| - (lambda (_%stx93705%_) - (let* ((_%g9370893729%_ - (lambda (_%g9370993725%_) + (lambda (_%stx93979%_) + (let* ((_%g9398294003%_ + (lambda (_%g9398393999%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9370993725%_))) - (_%g9370793957%_ - (lambda (_%g9370993733%_) - (if (gx#stx-pair? _%g9370993733%_) - (let ((_%e9371293736%_ (gx#syntax-e _%g9370993733%_))) - (let ((_%hd9371393740%_ + _%g9398393999%_))) + (_%g9398194231%_ + (lambda (_%g9398394007%_) + (if (gx#stx-pair? _%g9398394007%_) + (let ((_%e9398694010%_ (gx#syntax-e _%g9398394007%_))) + (let ((_%hd9398794014%_ (let () (declare (not safe)) - (##car _%e9371293736%_))) - (_%tl9371493743%_ + (##car _%e9398694010%_))) + (_%tl9398894017%_ (let () (declare (not safe)) - (##cdr _%e9371293736%_)))) - (if (gx#stx-pair? _%tl9371493743%_) - (let ((_%e9371593746%_ - (gx#syntax-e _%tl9371493743%_))) - (let ((_%hd9371693750%_ + (##cdr _%e9398694010%_)))) + (if (gx#stx-pair? _%tl9398894017%_) + (let ((_%e9398994020%_ + (gx#syntax-e _%tl9398894017%_))) + (let ((_%hd9399094024%_ (let () (declare (not safe)) - (##car _%e9371593746%_))) - (_%tl9371793753%_ + (##car _%e9398994020%_))) + (_%tl9399194027%_ (let () (declare (not safe)) - (##cdr _%e9371593746%_)))) - (if (gx#stx-pair? _%hd9371693750%_) - (let ((_%e9371893756%_ - (gx#syntax-e _%hd9371693750%_))) - (let ((_%hd9371993760%_ + (##cdr _%e9398994020%_)))) + (if (gx#stx-pair? _%hd9399094024%_) + (let ((_%e9399294030%_ + (gx#syntax-e _%hd9399094024%_))) + (let ((_%hd9399394034%_ (let () (declare (not safe)) - (##car _%e9371893756%_))) - (_%tl9372093763%_ + (##car _%e9399294030%_))) + (_%tl9399494037%_ (let () (declare (not safe)) - (##cdr _%e9371893756%_)))) - (if (gx#stx-pair? _%tl9372093763%_) - (let ((_%e9372193766%_ + (##cdr _%e9399294030%_)))) + (if (gx#stx-pair? _%tl9399494037%_) + (let ((_%e9399594040%_ (gx#syntax-e - _%tl9372093763%_))) - (let ((_%hd9372293770%_ + _%tl9399494037%_))) + (let ((_%hd9399694044%_ (let () (declare (not safe)) - (##car _%e9372193766%_))) - (_%tl9372393773%_ + (##car _%e9399594040%_))) + (_%tl9399794047%_ (let () (declare (not safe)) - (##cdr _%e9372193766%_)))) + (##cdr _%e9399594040%_)))) (if (gx#stx-null? - _%tl9372393773%_) + _%tl9399794047%_) (if (gx#stx-null? - _%tl9371793753%_) - ((lambda (_%L93776%_ + _%tl9399194027%_) + ((lambda (_%L94050%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L93778%_) - (let* ((_%g9379693804%_ - (lambda (_%g9379793800%_) + _%L94052%_) + (let* ((_%g9407094078%_ + (lambda (_%g9407194074%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9379793800%_))) - (_%g9379593953%_ - (lambda (_%g9379793808%_) - ((lambda (_%L93811%_) - (let* ((_%g9382393831%_ - (lambda (_%g9382493827%_) + _%g9407194074%_))) + (_%g9406994227%_ + (lambda (_%g9407194082%_) + ((lambda (_%L94085%_) + (let* ((_%g9409794105%_ + (lambda (_%g9409894101%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9382493827%_))) - (_%g9382293949%_ - (lambda (_%g9382493835%_) - ((lambda (_%L93838%_) - (let* ((_%g9385193859%_ - (lambda (_%g9385293855%_) + _%g9409894101%_))) + (_%g9409694223%_ + (lambda (_%g9409894109%_) + ((lambda (_%L94112%_) + (let* ((_%g9412594133%_ + (lambda (_%g9412694129%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9385293855%_))) - (_%g9385093945%_ - (lambda (_%g9385293863%_) - ((lambda (_%L93866%_) - (let* ((_%g9387993887%_ + _%g9412694129%_))) + (_%g9412494219%_ + (lambda (_%g9412694137%_) + ((lambda (_%L94140%_) + (let* ((_%g9415394161%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g9388093883%_) + (lambda (_%g9415494157%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9388093883%_))) - (_%g9387893941%_ - (lambda (_%g9388093891%_) - ((lambda (_%L93894%_) - (let* ((_%g9390793915%_ - (lambda (_%g9390893911%_) + _%g9415494157%_))) + (_%g9415294215%_ + (lambda (_%g9415494165%_) + ((lambda (_%L94168%_) + (let* ((_%g9418194189%_ + (lambda (_%g9418294185%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9390893911%_))) - (_%g9390693937%_ - (lambda (_%g9390893919%_) - ((lambda (_%L93922%_) + _%g9418294185%_))) + (_%g9418094211%_ + (lambda (_%g9418294193%_) + ((lambda (_%L94196%_) (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L93838%_ + (cons _%L94112%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f @@ -311,8 +311,8 @@ (cons (cons (gx#datum->syntax '#f '@mop.accessor) - (cons _%L93811%_ - (cons _%L93778%_ + (cons _%L94085%_ + (cons _%L94052%_ (cons '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) @@ -327,7 +327,7 @@ '()) (cons (cons (gx#datum->syntax '#f '##structure-ref) (cons (gx#datum->syntax '#f 'klass) - (cons _%L93776%_ + (cons _%L94050%_ (cons (gx#datum->syntax '#f 'class::t) @@ -335,7 +335,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L93778%_ '())) + (cons _%L94052%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -343,15 +343,15 @@ '()))) '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L93866%_ + (cons _%L94140%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.accessor) - (cons _%L93811%_ - (cons _%L93778%_ + (cons _%L94085%_ + (cons _%L94052%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '#f '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -364,7 +364,7 @@ '#f '##unchecked-structure-ref) (cons (gx#datum->syntax '#f 'klass) - (cons _%L93776%_ + (cons _%L94050%_ (cons (gx#datum->syntax '#f 'class::t) @@ -372,7 +372,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L93778%_ '())) + (cons _%L94052%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -380,7 +380,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L93894%_ + (cons _%L94168%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -388,7 +388,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.mutator) - (cons _%L93811%_ (cons _%L93778%_ (cons '#t '())))) + (cons _%L94085%_ (cons _%L94052%_ (cons '#t '())))) (cons (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f 'klass) (cons (gx#datum->syntax '#f 'val) @@ -402,11 +402,11 @@ (cons (gx#datum->syntax '#f 'val) - (cons _%L93776%_ + (cons _%L94050%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'class::t) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L93778%_ '())) + (cons _%L94052%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -414,7 +414,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L93922%_ + (cons _%L94196%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -422,8 +422,8 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.mutator) - (cons _%L93811%_ - (cons _%L93778%_ (cons '#f '())))) + (cons _%L94085%_ + (cons _%L94052%_ (cons '#f '())))) (cons (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f 'klass) (cons (gx#datum->syntax @@ -440,10 +440,10 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'val) - (cons _%L93776%_ + (cons _%L94050%_ (cons (gx#datum->syntax '#f 'class::t) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L93778%_ '())) + (cons _%L94052%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -452,270 +452,270 @@ '()))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g9390893919%_)))) - (_%g9390693937%_ + _%g9418294193%_)))) + (_%g9418094211%_ (gx#stx-identifier - _%L93778%_ + _%L94052%_ '"&" - _%L93894%_)))) - _%g9388093891%_)))) - (_%g9387893941%_ - (gx#stx-identifier _%L93778%_ _%L93838%_ '"-set!")))) - _%g9385293863%_)))) + _%L94168%_)))) + _%g9415494165%_)))) + (_%g9415294215%_ + (gx#stx-identifier _%L94052%_ _%L94112%_ '"-set!")))) + _%g9412694137%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9385093945%_ + (_%g9412494219%_ (gx#stx-identifier - _%L93778%_ + _%L94052%_ '"&" - _%L93838%_)))) - _%g9382493835%_)))) - (_%g9382293949%_ + _%L94112%_)))) + _%g9409894109%_)))) + (_%g9409694223%_ (gx#stx-identifier - _%L93778%_ + _%L94052%_ '"class-type-" - _%L93778%_)))) - _%g9379793808%_)))) - (_%g9379593953%_ (gx#core-quote-syntax 'class::t)))) - _%hd9372293770%_ - _%hd9371993760%_) - (_%g9370893729%_ _%g9370993733%_)) + _%L94052%_)))) + _%g9407194082%_)))) + (_%g9406994227%_ (gx#core-quote-syntax 'class::t)))) + _%hd9399694044%_ + _%hd9399394034%_) + (_%g9398294003%_ _%g9398394007%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9370893729%_ - _%g9370993733%_)))) - (_%g9370893729%_ - _%g9370993733%_)))) - (_%g9370893729%_ _%g9370993733%_)))) - (_%g9370893729%_ _%g9370993733%_)))) - (_%g9370893729%_ _%g9370993733%_))))) - (_%g9370793957%_ _%stx93705%_)))) + (_%g9398294003%_ + _%g9398394007%_)))) + (_%g9398294003%_ + _%g9398394007%_)))) + (_%g9398294003%_ _%g9398394007%_)))) + (_%g9398294003%_ _%g9398394007%_)))) + (_%g9398294003%_ _%g9398394007%_))))) + (_%g9398194231%_ _%stx93979%_)))) (define |[:0:]#defrefset*| - (lambda (_%$stx93961%_) - (let* ((_%g9396593994%_ - (lambda (_%g9396693990%_) + (lambda (_%$stx94235%_) + (let* ((_%g9423994268%_ + (lambda (_%g9424094264%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9396693990%_))) - (_%g9396494094%_ - (lambda (_%g9396693998%_) - (if (gx#stx-pair? _%g9396693998%_) - (let ((_%e9396994001%_ (gx#syntax-e _%g9396693998%_))) - (let ((_%hd9397094005%_ + _%g9424094264%_))) + (_%g9423894368%_ + (lambda (_%g9424094272%_) + (if (gx#stx-pair? _%g9424094272%_) + (let ((_%e9424394275%_ (gx#syntax-e _%g9424094272%_))) + (let ((_%hd9424494279%_ (let () (declare (not safe)) - (##car _%e9396994001%_))) - (_%tl9397194008%_ + (##car _%e9424394275%_))) + (_%tl9424594282%_ (let () (declare (not safe)) - (##cdr _%e9396994001%_)))) - (if (gx#stx-pair/null? _%tl9397194008%_) - (let ((_g100196_ + (##cdr _%e9424394275%_)))) + (if (gx#stx-pair/null? _%tl9424594282%_) + (let ((_g100470_ (gx#syntax-split-splice - _%tl9397194008%_ + _%tl9424594282%_ '0))) (begin - (let ((_g100197_ + (let ((_g100471_ (let () (declare (not safe)) - (if (##values? _g100196_) - (##vector-length _g100196_) + (if (##values? _g100470_) + (##vector-length _g100470_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g100197_ 2))) + (##fx= _g100471_ 2))) (error "Context expects 2 values" - _g100197_))) - (let ((_%target9397294011%_ + _g100471_))) + (let ((_%target9424694285%_ (let () (declare (not safe)) - (##vector-ref _g100196_ 0))) - (_%tl9397494014%_ + (##vector-ref _g100470_ 0))) + (_%tl9424894288%_ (let () (declare (not safe)) - (##vector-ref _g100196_ 1)))) - (if (gx#stx-null? _%tl9397494014%_) - (letrec ((_%loop9397594017%_ - (lambda (_%hd9397394021%_ - _%field9397994024%_ - _%slot9398094026%_) + (##vector-ref _g100470_ 1)))) + (if (gx#stx-null? _%tl9424894288%_) + (letrec ((_%loop9424994291%_ + (lambda (_%hd9424794295%_ + _%field9425394298%_ + _%slot9425494300%_) (if (gx#stx-pair? - _%hd9397394021%_) - (let ((_%e9397694029%_ + _%hd9424794295%_) + (let ((_%e9425094303%_ (gx#syntax-e - _%hd9397394021%_))) - (let ((_%lp-hd9397794033%_ + _%hd9424794295%_))) + (let ((_%lp-hd9425194307%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e9397694029%_))) - (_%lp-tl9397894036%_ - (let () (declare (not safe)) (##cdr _%e9397694029%_)))) - (if (gx#stx-pair? _%lp-hd9397794033%_) - (let ((_%e9398394039%_ - (gx#syntax-e _%lp-hd9397794033%_))) - (let ((_%hd9398494043%_ + (##car _%e9425094303%_))) + (_%lp-tl9425294310%_ + (let () (declare (not safe)) (##cdr _%e9425094303%_)))) + (if (gx#stx-pair? _%lp-hd9425194307%_) + (let ((_%e9425794313%_ + (gx#syntax-e _%lp-hd9425194307%_))) + (let ((_%hd9425894317%_ (let () (declare (not safe)) - (##car _%e9398394039%_))) - (_%tl9398594046%_ + (##car _%e9425794313%_))) + (_%tl9425994320%_ (let () (declare (not safe)) - (##cdr _%e9398394039%_)))) - (if (gx#stx-pair? _%tl9398594046%_) - (let ((_%e9398694049%_ - (gx#syntax-e _%tl9398594046%_))) - (let ((_%hd9398794053%_ + (##cdr _%e9425794313%_)))) + (if (gx#stx-pair? _%tl9425994320%_) + (let ((_%e9426094323%_ + (gx#syntax-e _%tl9425994320%_))) + (let ((_%hd9426194327%_ (let () (declare (not safe)) - (##car _%e9398694049%_))) - (_%tl9398894056%_ + (##car _%e9426094323%_))) + (_%tl9426294330%_ (let () (declare (not safe)) - (##cdr _%e9398694049%_)))) - (if (gx#stx-null? _%tl9398894056%_) - (_%loop9397594017%_ - _%lp-tl9397894036%_ - (cons _%hd9398794053%_ - _%field9397994024%_) - (cons _%hd9398494043%_ - _%slot9398094026%_)) - (_%g9396593994%_ _%g9396693998%_)))) - (_%g9396593994%_ _%g9396693998%_)))) - (_%g9396593994%_ _%g9396693998%_)))) - (let ((_%field9398194059%_ (reverse _%field9397994024%_)) - (_%slot9398294062%_ (reverse _%slot9398094026%_))) - ((lambda (_%L94065%_ _%L94067%_) + (##cdr _%e9426094323%_)))) + (if (gx#stx-null? _%tl9426294330%_) + (_%loop9424994291%_ + _%lp-tl9425294310%_ + (cons _%hd9426194327%_ + _%field9425394298%_) + (cons _%hd9425894317%_ + _%slot9425494300%_)) + (_%g9423994268%_ _%g9424094272%_)))) + (_%g9423994268%_ _%g9424094272%_)))) + (_%g9423994268%_ _%g9424094272%_)))) + (let ((_%field9425594333%_ (reverse _%field9425394298%_)) + (_%slot9425694336%_ (reverse _%slot9425494300%_))) + ((lambda (_%L94339%_ _%L94341%_) (cons (gx#datum->syntax '#f 'begin) (begin (gx#syntax-check-splice-targets - _%L94065%_ - _%L94067%_) - (let ((__tmp100198 - (lambda (_%g9408294086%_ - _%g9408394089%_ - _%g9408494091%_) + _%L94339%_ + _%L94341%_) + (let ((__tmp100472 + (lambda (_%g9435694360%_ + _%g9435794363%_ + _%g9435894365%_) (cons (cons (gx#datum->syntax '#f 'defrefset) - (cons (cons _%g9408394089%_ - (cons _%g9408294086%_ + (cons (cons _%g9435794363%_ + (cons _%g9435694360%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g9408494091%_)))) + _%g9435894365%_)))) (declare (not safe)) (__foldr2 - __tmp100198 + __tmp100472 '() - _%L94065%_ - _%L94067%_))))) - _%field9398194059%_ - _%slot9398294062%_)))))) + _%L94339%_ + _%L94341%_))))) + _%field9425594333%_ + _%slot9425694336%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop9397594017%_ - _%target9397294011%_ + (_%loop9424994291%_ + _%target9424694285%_ '() '())) - (_%g9396593994%_ _%g9396693998%_))))) - (_%g9396593994%_ _%g9396693998%_)))) - (_%g9396593994%_ _%g9396693998%_))))) - (_%g9396494094%_ _%$stx93961%_)))) + (_%g9423994268%_ _%g9424094272%_))))) + (_%g9423994268%_ _%g9424094272%_)))) + (_%g9423994268%_ _%g9424094272%_))))) + (_%g9423894368%_ _%$stx94235%_)))) (define |[:0:]#if-class-slot-field| - (lambda (_%$stx94099%_) - (let* ((_%g9410394137%_ - (lambda (_%g9410494133%_) + (lambda (_%$stx94373%_) + (let* ((_%g9437794411%_ + (lambda (_%g9437894407%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9410494133%_))) - (_%g9410294248%_ - (lambda (_%g9410494141%_) - (if (gx#stx-pair? _%g9410494141%_) - (let ((_%e9411194144%_ (gx#syntax-e _%g9410494141%_))) - (let ((_%hd9411294148%_ + _%g9437894407%_))) + (_%g9437694522%_ + (lambda (_%g9437894415%_) + (if (gx#stx-pair? _%g9437894415%_) + (let ((_%e9438594418%_ (gx#syntax-e _%g9437894415%_))) + (let ((_%hd9438694422%_ (let () (declare (not safe)) - (##car _%e9411194144%_))) - (_%tl9411394151%_ + (##car _%e9438594418%_))) + (_%tl9438794425%_ (let () (declare (not safe)) - (##cdr _%e9411194144%_)))) - (if (gx#stx-pair? _%tl9411394151%_) - (let ((_%e9411494154%_ - (gx#syntax-e _%tl9411394151%_))) - (let ((_%hd9411594158%_ + (##cdr _%e9438594418%_)))) + (if (gx#stx-pair? _%tl9438794425%_) + (let ((_%e9438894428%_ + (gx#syntax-e _%tl9438794425%_))) + (let ((_%hd9438994432%_ (let () (declare (not safe)) - (##car _%e9411494154%_))) - (_%tl9411694161%_ + (##car _%e9438894428%_))) + (_%tl9439094435%_ (let () (declare (not safe)) - (##cdr _%e9411494154%_)))) - (if (gx#stx-pair? _%tl9411694161%_) - (let ((_%e9411794164%_ - (gx#syntax-e _%tl9411694161%_))) - (let ((_%hd9411894168%_ + (##cdr _%e9438894428%_)))) + (if (gx#stx-pair? _%tl9439094435%_) + (let ((_%e9439194438%_ + (gx#syntax-e _%tl9439094435%_))) + (let ((_%hd9439294442%_ (let () (declare (not safe)) - (##car _%e9411794164%_))) - (_%tl9411994171%_ + (##car _%e9439194438%_))) + (_%tl9439394445%_ (let () (declare (not safe)) - (##cdr _%e9411794164%_)))) - (if (gx#stx-pair? _%tl9411994171%_) - (let ((_%e9412094174%_ + (##cdr _%e9439194438%_)))) + (if (gx#stx-pair? _%tl9439394445%_) + (let ((_%e9439494448%_ (gx#syntax-e - _%tl9411994171%_))) - (let ((_%hd9412194178%_ + _%tl9439394445%_))) + (let ((_%hd9439594452%_ (let () (declare (not safe)) - (##car _%e9412094174%_))) - (_%tl9412294181%_ + (##car _%e9439494448%_))) + (_%tl9439694455%_ (let () (declare (not safe)) - (##cdr _%e9412094174%_)))) + (##cdr _%e9439494448%_)))) (if (gx#stx-pair? - _%tl9412294181%_) - (let ((_%e9412394184%_ + _%tl9439694455%_) + (let ((_%e9439794458%_ (gx#syntax-e - _%tl9412294181%_))) - (let ((_%hd9412494188%_ + _%tl9439694455%_))) + (let ((_%hd9439894462%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9412394184%_))) - (_%tl9412594191%_ - (let () (declare (not safe)) (##cdr _%e9412394184%_)))) - (if (gx#stx-pair? _%tl9412594191%_) - (let ((_%e9412694194%_ (gx#syntax-e _%tl9412594191%_))) - (let ((_%hd9412794198%_ + (##car _%e9439794458%_))) + (_%tl9439994465%_ + (let () (declare (not safe)) (##cdr _%e9439794458%_)))) + (if (gx#stx-pair? _%tl9439994465%_) + (let ((_%e9440094468%_ (gx#syntax-e _%tl9439994465%_))) + (let ((_%hd9440194472%_ (let () (declare (not safe)) - (##car _%e9412694194%_))) - (_%tl9412894201%_ + (##car _%e9440094468%_))) + (_%tl9440294475%_ (let () (declare (not safe)) - (##cdr _%e9412694194%_)))) - (if (gx#stx-pair? _%tl9412894201%_) - (let ((_%e9412994204%_ - (gx#syntax-e _%tl9412894201%_))) - (let ((_%hd9413094208%_ + (##cdr _%e9440094468%_)))) + (if (gx#stx-pair? _%tl9440294475%_) + (let ((_%e9440394478%_ + (gx#syntax-e _%tl9440294475%_))) + (let ((_%hd9440494482%_ (let () (declare (not safe)) - (##car _%e9412994204%_))) - (_%tl9413194211%_ + (##car _%e9440394478%_))) + (_%tl9440594485%_ (let () (declare (not safe)) - (##cdr _%e9412994204%_)))) - (if (gx#stx-null? _%tl9413194211%_) - ((lambda (_%L94214%_ - _%L94216%_ - _%L94217%_ - _%L94218%_ - _%L94219%_ - _%L94220%_) + (##cdr _%e9440394478%_)))) + (if (gx#stx-null? _%tl9440594485%_) + ((lambda (_%L94488%_ + _%L94490%_ + _%L94491%_ + _%L94492%_ + _%L94493%_ + _%L94494%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f @@ -727,8 +727,8 @@ (cons (cons (gx#datum->syntax '#f '&class-type-slot-table) - (cons _%L94220%_ '())) - (cons _%L94219%_ (cons '#f '())))) + (cons _%L94494%_ '())) + (cons _%L94493%_ (cons '#f '())))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -747,18 +747,18 @@ (cons '"unknown slot" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'class: - (cons _%L94220%_ - (cons 'slot: (cons _%L94219%_ '())))))) + (cons _%L94494%_ + (cons 'slot: (cons _%L94493%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())) (cons (cons (cons (gx#datum->syntax '#f 'class-type-final?) - (cons _%L94220%_ '())) - (cons (cons _%L94218%_ - (cons _%L94220%_ - (cons _%L94219%_ + (cons _%L94494%_ '())) + (cons (cons _%L94492%_ + (cons _%L94494%_ + (cons _%L94493%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'field) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -766,11 +766,11 @@ (cons (cons (cons (gx#datum->syntax '#f 'class-type-struct?) - (cons _%L94220%_ '())) - (cons (cons _%L94217%_ - (cons _%L94220%_ + (cons _%L94494%_ '())) + (cons (cons _%L94491%_ + (cons _%L94494%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L94219%_ + (cons _%L94493%_ (cons (gx#datum->syntax '#f 'field) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -784,7 +784,7 @@ (cons (cons (gx#datum->syntax '#f 'base-struct/1) - (cons _%L94220%_ '())) + (cons _%L94494%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'and) (cons (cons (gx#datum->syntax @@ -817,10 +817,10 @@ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L94216%_ + (cons (cons _%L94490%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L94220%_ - (cons _%L94219%_ + (cons _%L94494%_ + (cons _%L94493%_ (cons (gx#datum->syntax '#f 'field) '())))) '())) @@ -828,10 +828,10 @@ (cons (cons (gx#datum->syntax '#f 'else) - (cons (cons _%L94214%_ + (cons (cons _%L94488%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L94220%_ - (cons _%L94219%_ + (cons _%L94494%_ + (cons _%L94493%_ (cons (gx#datum->syntax '#f 'field) '())))) '())) @@ -839,99 +839,99 @@ '())))))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9413094208%_ - _%hd9412794198%_ - _%hd9412494188%_ - _%hd9412194178%_ - _%hd9411894168%_ - _%hd9411594158%_) - (_%g9410394137%_ _%g9410494141%_)))) - (_%g9410394137%_ _%g9410494141%_)))) - (_%g9410394137%_ _%g9410494141%_)))) + _%hd9440494482%_ + _%hd9440194472%_ + _%hd9439894462%_ + _%hd9439594452%_ + _%hd9439294442%_ + _%hd9438994432%_) + (_%g9437794411%_ _%g9437894415%_)))) + (_%g9437794411%_ _%g9437894415%_)))) + (_%g9437794411%_ _%g9437894415%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9410394137%_ - _%g9410494141%_)))) - (_%g9410394137%_ - _%g9410494141%_)))) - (_%g9410394137%_ _%g9410494141%_)))) - (_%g9410394137%_ _%g9410494141%_)))) - (_%g9410394137%_ _%g9410494141%_))))) - (_%g9410294248%_ _%$stx94099%_)))) + (_%g9437794411%_ + _%g9437894415%_)))) + (_%g9437794411%_ + _%g9437894415%_)))) + (_%g9437794411%_ _%g9437894415%_)))) + (_%g9437794411%_ _%g9437894415%_)))) + (_%g9437794411%_ _%g9437894415%_))))) + (_%g9437694522%_ _%$stx94373%_)))) (define |[:0:]#__slot-e| - (lambda (_%$stx94252%_) - (let* ((_%g9425694282%_ - (lambda (_%g9425794278%_) + (lambda (_%$stx94526%_) + (let* ((_%g9453094556%_ + (lambda (_%g9453194552%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9425794278%_))) - (_%g9425594365%_ - (lambda (_%g9425794286%_) - (if (gx#stx-pair? _%g9425794286%_) - (let ((_%e9426294289%_ (gx#syntax-e _%g9425794286%_))) - (let ((_%hd9426394293%_ + _%g9453194552%_))) + (_%g9452994639%_ + (lambda (_%g9453194560%_) + (if (gx#stx-pair? _%g9453194560%_) + (let ((_%e9453694563%_ (gx#syntax-e _%g9453194560%_))) + (let ((_%hd9453794567%_ (let () (declare (not safe)) - (##car _%e9426294289%_))) - (_%tl9426494296%_ + (##car _%e9453694563%_))) + (_%tl9453894570%_ (let () (declare (not safe)) - (##cdr _%e9426294289%_)))) - (if (gx#stx-pair? _%tl9426494296%_) - (let ((_%e9426594299%_ - (gx#syntax-e _%tl9426494296%_))) - (let ((_%hd9426694303%_ + (##cdr _%e9453694563%_)))) + (if (gx#stx-pair? _%tl9453894570%_) + (let ((_%e9453994573%_ + (gx#syntax-e _%tl9453894570%_))) + (let ((_%hd9454094577%_ (let () (declare (not safe)) - (##car _%e9426594299%_))) - (_%tl9426794306%_ + (##car _%e9453994573%_))) + (_%tl9454194580%_ (let () (declare (not safe)) - (##cdr _%e9426594299%_)))) - (if (gx#stx-pair? _%tl9426794306%_) - (let ((_%e9426894309%_ - (gx#syntax-e _%tl9426794306%_))) - (let ((_%hd9426994313%_ + (##cdr _%e9453994573%_)))) + (if (gx#stx-pair? _%tl9454194580%_) + (let ((_%e9454294583%_ + (gx#syntax-e _%tl9454194580%_))) + (let ((_%hd9454394587%_ (let () (declare (not safe)) - (##car _%e9426894309%_))) - (_%tl9427094316%_ + (##car _%e9454294583%_))) + (_%tl9454494590%_ (let () (declare (not safe)) - (##cdr _%e9426894309%_)))) - (if (gx#stx-pair? _%tl9427094316%_) - (let ((_%e9427194319%_ + (##cdr _%e9454294583%_)))) + (if (gx#stx-pair? _%tl9454494590%_) + (let ((_%e9454594593%_ (gx#syntax-e - _%tl9427094316%_))) - (let ((_%hd9427294323%_ + _%tl9454494590%_))) + (let ((_%hd9454694597%_ (let () (declare (not safe)) - (##car _%e9427194319%_))) - (_%tl9427394326%_ + (##car _%e9454594593%_))) + (_%tl9454794600%_ (let () (declare (not safe)) - (##cdr _%e9427194319%_)))) + (##cdr _%e9454594593%_)))) (if (gx#stx-pair? - _%tl9427394326%_) - (let ((_%e9427494329%_ + _%tl9454794600%_) + (let ((_%e9454894603%_ (gx#syntax-e - _%tl9427394326%_))) - (let ((_%hd9427594333%_ + _%tl9454794600%_))) + (let ((_%hd9454994607%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9427494329%_))) - (_%tl9427694336%_ - (let () (declare (not safe)) (##cdr _%e9427494329%_)))) - (if (gx#stx-null? _%tl9427694336%_) - ((lambda (_%L94339%_ _%L94341%_ _%L94342%_ _%L94343%_) + (##car _%e9454894603%_))) + (_%tl9455094610%_ + (let () (declare (not safe)) (##cdr _%e9454894603%_)))) + (if (gx#stx-null? _%tl9455094610%_) + ((lambda (_%L94613%_ _%L94615%_ _%L94616%_ _%L94617%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'klass) (cons (cons (gx#datum->syntax '#f 'class-of) - (cons _%L94343%_ '())) + (cons _%L94617%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'cond) (cons (cons (cons (gx#datum->syntax @@ -939,289 +939,289 @@ '#f 'class-slot-offset) (cons (gx#datum->syntax '#f 'klass) - (cons _%L94342%_ '()))) - (cons (gx#datum->syntax '#f '=>) (cons _%L94341%_ '()))) + (cons _%L94616%_ '()))) + (cons (gx#datum->syntax '#f '=>) (cons _%L94615%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'else) - (cons (cons _%L94339%_ - (cons _%L94343%_ (cons _%L94342%_ '()))) + (cons (cons _%L94613%_ + (cons _%L94617%_ (cons _%L94616%_ '()))) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd9427594333%_ - _%hd9427294323%_ - _%hd9426994313%_ - _%hd9426694303%_) - (_%g9425694282%_ _%g9425794286%_)))) + _%hd9454994607%_ + _%hd9454694597%_ + _%hd9454394587%_ + _%hd9454094577%_) + (_%g9453094556%_ _%g9453194560%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9425694282%_ - _%g9425794286%_)))) - (_%g9425694282%_ - _%g9425794286%_)))) - (_%g9425694282%_ _%g9425794286%_)))) - (_%g9425694282%_ _%g9425794286%_)))) - (_%g9425694282%_ _%g9425794286%_))))) - (_%g9425594365%_ _%$stx94252%_)))) + (_%g9453094556%_ + _%g9453194560%_)))) + (_%g9453094556%_ + _%g9453194560%_)))) + (_%g9453094556%_ _%g9453194560%_)))) + (_%g9453094556%_ _%g9453194560%_)))) + (_%g9453094556%_ _%g9453194560%_))))) + (_%g9452994639%_ _%$stx94526%_)))) (define |[:0:]#defsubtype| - (lambda (_%$stx94369%_) - (let* ((_%g9437394402%_ - (lambda (_%g9437494398%_) + (lambda (_%$stx94643%_) + (let* ((_%g9464794676%_ + (lambda (_%g9464894672%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9437494398%_))) - (_%g9437294502%_ - (lambda (_%g9437494406%_) - (if (gx#stx-pair? _%g9437494406%_) - (let ((_%e9437794409%_ (gx#syntax-e _%g9437494406%_))) - (let ((_%hd9437894413%_ + _%g9464894672%_))) + (_%g9464694776%_ + (lambda (_%g9464894680%_) + (if (gx#stx-pair? _%g9464894680%_) + (let ((_%e9465194683%_ (gx#syntax-e _%g9464894680%_))) + (let ((_%hd9465294687%_ (let () (declare (not safe)) - (##car _%e9437794409%_))) - (_%tl9437994416%_ + (##car _%e9465194683%_))) + (_%tl9465394690%_ (let () (declare (not safe)) - (##cdr _%e9437794409%_)))) - (if (gx#stx-pair/null? _%tl9437994416%_) - (let ((_g100199_ + (##cdr _%e9465194683%_)))) + (if (gx#stx-pair/null? _%tl9465394690%_) + (let ((_g100473_ (gx#syntax-split-splice - _%tl9437994416%_ + _%tl9465394690%_ '0))) (begin - (let ((_g100200_ + (let ((_g100474_ (let () (declare (not safe)) - (if (##values? _g100199_) - (##vector-length _g100199_) + (if (##values? _g100473_) + (##vector-length _g100473_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g100200_ 2))) + (##fx= _g100474_ 2))) (error "Context expects 2 values" - _g100200_))) - (let ((_%target9438094419%_ + _g100474_))) + (let ((_%target9465494693%_ (let () (declare (not safe)) - (##vector-ref _g100199_ 0))) - (_%tl9438294422%_ + (##vector-ref _g100473_ 0))) + (_%tl9465694696%_ (let () (declare (not safe)) - (##vector-ref _g100199_ 1)))) - (if (gx#stx-null? _%tl9438294422%_) - (letrec ((_%loop9438394425%_ - (lambda (_%hd9438194429%_ - _%name9438794432%_ - _%t9438894434%_) + (##vector-ref _g100473_ 1)))) + (if (gx#stx-null? _%tl9465694696%_) + (letrec ((_%loop9465794699%_ + (lambda (_%hd9465594703%_ + _%name9466194706%_ + _%t9466294708%_) (if (gx#stx-pair? - _%hd9438194429%_) - (let ((_%e9438494437%_ + _%hd9465594703%_) + (let ((_%e9465894711%_ (gx#syntax-e - _%hd9438194429%_))) - (let ((_%lp-hd9438594441%_ + _%hd9465594703%_))) + (let ((_%lp-hd9465994715%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e9438494437%_))) - (_%lp-tl9438694444%_ - (let () (declare (not safe)) (##cdr _%e9438494437%_)))) - (if (gx#stx-pair? _%lp-hd9438594441%_) - (let ((_%e9439194447%_ - (gx#syntax-e _%lp-hd9438594441%_))) - (let ((_%hd9439294451%_ + (##car _%e9465894711%_))) + (_%lp-tl9466094718%_ + (let () (declare (not safe)) (##cdr _%e9465894711%_)))) + (if (gx#stx-pair? _%lp-hd9465994715%_) + (let ((_%e9466594721%_ + (gx#syntax-e _%lp-hd9465994715%_))) + (let ((_%hd9466694725%_ (let () (declare (not safe)) - (##car _%e9439194447%_))) - (_%tl9439394454%_ + (##car _%e9466594721%_))) + (_%tl9466794728%_ (let () (declare (not safe)) - (##cdr _%e9439194447%_)))) - (if (gx#stx-pair? _%tl9439394454%_) - (let ((_%e9439494457%_ - (gx#syntax-e _%tl9439394454%_))) - (let ((_%hd9439594461%_ + (##cdr _%e9466594721%_)))) + (if (gx#stx-pair? _%tl9466794728%_) + (let ((_%e9466894731%_ + (gx#syntax-e _%tl9466794728%_))) + (let ((_%hd9466994735%_ (let () (declare (not safe)) - (##car _%e9439494457%_))) - (_%tl9439694464%_ + (##car _%e9466894731%_))) + (_%tl9467094738%_ (let () (declare (not safe)) - (##cdr _%e9439494457%_)))) - (if (gx#stx-null? _%tl9439694464%_) - (_%loop9438394425%_ - _%lp-tl9438694444%_ - (cons _%hd9439594461%_ - _%name9438794432%_) - (cons _%hd9439294451%_ _%t9438894434%_)) - (_%g9437394402%_ _%g9437494406%_)))) - (_%g9437394402%_ _%g9437494406%_)))) - (_%g9437394402%_ _%g9437494406%_)))) - (let ((_%name9438994467%_ (reverse _%name9438794432%_)) - (_%t9439094470%_ (reverse _%t9438894434%_))) - ((lambda (_%L94473%_ _%L94475%_) + (##cdr _%e9466894731%_)))) + (if (gx#stx-null? _%tl9467094738%_) + (_%loop9465794699%_ + _%lp-tl9466094718%_ + (cons _%hd9466994735%_ + _%name9466194706%_) + (cons _%hd9466694725%_ _%t9466294708%_)) + (_%g9464794676%_ _%g9464894680%_)))) + (_%g9464794676%_ _%g9464894680%_)))) + (_%g9464794676%_ _%g9464894680%_)))) + (let ((_%name9466394741%_ (reverse _%name9466194706%_)) + (_%t9466494744%_ (reverse _%t9466294708%_))) + ((lambda (_%L94747%_ _%L94749%_) (cons (gx#datum->syntax '#f 'begin) (begin (gx#syntax-check-splice-targets - _%L94473%_ - _%L94475%_) - (let ((__tmp100201 - (lambda (_%g9449094494%_ - _%g9449194497%_ - _%g9449294499%_) + _%L94747%_ + _%L94749%_) + (let ((__tmp100475 + (lambda (_%g9476494768%_ + _%g9476594771%_ + _%g9476694773%_) (cons (cons (gx#datum->syntax '#f 'vector-set!) (cons (gx#datum->syntax '#f '__subtype-id) - (cons _%g9449194497%_ + (cons _%g9476594771%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g9449094494%_ '())) + (cons _%g9476494768%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g9449294499%_)))) + _%g9476694773%_)))) (declare (not safe)) (__foldr2 - __tmp100201 + __tmp100475 '() - _%L94473%_ - _%L94475%_))))) - _%name9438994467%_ - _%t9439094470%_)))))) + _%L94747%_ + _%L94749%_))))) + _%name9466394741%_ + _%t9466494744%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop9438394425%_ - _%target9438094419%_ + (_%loop9465794699%_ + _%target9465494693%_ '() '())) - (_%g9437394402%_ _%g9437494406%_))))) - (_%g9437394402%_ _%g9437494406%_)))) - (_%g9437394402%_ _%g9437494406%_))))) - (_%g9437294502%_ _%$stx94369%_)))) + (_%g9464794676%_ _%g9464894680%_))))) + (_%g9464794676%_ _%g9464894680%_)))) + (_%g9464794676%_ _%g9464894680%_))))) + (_%g9464694776%_ _%$stx94643%_)))) (define |[:0:]#defsystem-class| - (lambda (_%$stx94507%_) - (let* ((_%g9451194542%_ - (lambda (_%g9451294538%_) + (lambda (_%$stx94781%_) + (let* ((_%g9478594816%_ + (lambda (_%g9478694812%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9451294538%_))) - (_%g9451094661%_ - (lambda (_%g9451294546%_) - (if (gx#stx-pair? _%g9451294546%_) - (let ((_%e9451694549%_ (gx#syntax-e _%g9451294546%_))) - (let ((_%hd9451794553%_ + _%g9478694812%_))) + (_%g9478494935%_ + (lambda (_%g9478694820%_) + (if (gx#stx-pair? _%g9478694820%_) + (let ((_%e9479094823%_ (gx#syntax-e _%g9478694820%_))) + (let ((_%hd9479194827%_ (let () (declare (not safe)) - (##car _%e9451694549%_))) - (_%tl9451894556%_ + (##car _%e9479094823%_))) + (_%tl9479294830%_ (let () (declare (not safe)) - (##cdr _%e9451694549%_)))) - (if (gx#stx-pair? _%tl9451894556%_) - (let ((_%e9451994559%_ - (gx#syntax-e _%tl9451894556%_))) - (let ((_%hd9452094563%_ + (##cdr _%e9479094823%_)))) + (if (gx#stx-pair? _%tl9479294830%_) + (let ((_%e9479394833%_ + (gx#syntax-e _%tl9479294830%_))) + (let ((_%hd9479494837%_ (let () (declare (not safe)) - (##car _%e9451994559%_))) - (_%tl9452194566%_ + (##car _%e9479394833%_))) + (_%tl9479594840%_ (let () (declare (not safe)) - (##cdr _%e9451994559%_)))) - (if (gx#stx-pair? _%tl9452194566%_) - (let ((_%e9452294569%_ - (gx#syntax-e _%tl9452194566%_))) - (let ((_%hd9452394573%_ + (##cdr _%e9479394833%_)))) + (if (gx#stx-pair? _%tl9479594840%_) + (let ((_%e9479694843%_ + (gx#syntax-e _%tl9479594840%_))) + (let ((_%hd9479794847%_ (let () (declare (not safe)) - (##car _%e9452294569%_))) - (_%tl9452494576%_ + (##car _%e9479694843%_))) + (_%tl9479894850%_ (let () (declare (not safe)) - (##cdr _%e9452294569%_)))) - (if (gx#stx-pair? _%tl9452494576%_) - (let ((_%e9452594579%_ + (##cdr _%e9479694843%_)))) + (if (gx#stx-pair? _%tl9479894850%_) + (let ((_%e9479994853%_ (gx#syntax-e - _%tl9452494576%_))) - (let ((_%hd9452694583%_ + _%tl9479894850%_))) + (let ((_%hd9480094857%_ (let () (declare (not safe)) - (##car _%e9452594579%_))) - (_%tl9452794586%_ + (##car _%e9479994853%_))) + (_%tl9480194860%_ (let () (declare (not safe)) - (##cdr _%e9452594579%_)))) + (##cdr _%e9479994853%_)))) (if (gx#stx-pair/null? - _%hd9452694583%_) - (let ((_g100202_ + _%hd9480094857%_) + (let ((_g100476_ (gx#syntax-split-splice - _%hd9452694583%_ + _%hd9480094857%_ '0))) (begin - (let ((_g100203_ + (let ((_g100477_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g100202_) - (##vector-length _g100202_) + (if (##values? _g100476_) + (##vector-length _g100476_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g100203_ 2))) - (error "Context expects 2 values" _g100203_))) - (let ((_%target9452894589%_ + (if (not (let () (declare (not safe)) (##fx= _g100477_ 2))) + (error "Context expects 2 values" _g100477_))) + (let ((_%target9480294863%_ (let () (declare (not safe)) - (##vector-ref _g100202_ 0))) - (_%tl9453094592%_ + (##vector-ref _g100476_ 0))) + (_%tl9480494866%_ (let () (declare (not safe)) - (##vector-ref _g100202_ 1)))) - (if (gx#stx-null? _%tl9453094592%_) - (letrec ((_%loop9453194595%_ - (lambda (_%hd9452994599%_ _%super9453594602%_) - (if (gx#stx-pair? _%hd9452994599%_) - (let ((_%e9453294605%_ - (gx#syntax-e _%hd9452994599%_))) - (let ((_%lp-hd9453394609%_ + (##vector-ref _g100476_ 1)))) + (if (gx#stx-null? _%tl9480494866%_) + (letrec ((_%loop9480594869%_ + (lambda (_%hd9480394873%_ _%super9480994876%_) + (if (gx#stx-pair? _%hd9480394873%_) + (let ((_%e9480694879%_ + (gx#syntax-e _%hd9480394873%_))) + (let ((_%lp-hd9480794883%_ (let () (declare (not safe)) - (##car _%e9453294605%_))) - (_%lp-tl9453494612%_ + (##car _%e9480694879%_))) + (_%lp-tl9480894886%_ (let () (declare (not safe)) - (##cdr _%e9453294605%_)))) - (_%loop9453194595%_ - _%lp-tl9453494612%_ - (cons _%lp-hd9453394609%_ - _%super9453594602%_)))) - (let ((_%super9453694615%_ - (reverse _%super9453594602%_))) - (if (gx#stx-null? _%tl9452794586%_) - ((lambda (_%L94619%_ - _%L94621%_ - _%L94622%_) + (##cdr _%e9480694879%_)))) + (_%loop9480594869%_ + _%lp-tl9480894886%_ + (cons _%lp-hd9480794883%_ + _%super9480994876%_)))) + (let ((_%super9481094889%_ + (reverse _%super9480994876%_))) + (if (gx#stx-null? _%tl9480194860%_) + ((lambda (_%L94893%_ + _%L94895%_ + _%L94896%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L94622%_ + (cons _%L94896%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.system) - (cons _%L94621%_ - (cons (let ((__tmp100204 - (lambda (_%g9464694649%_ + (cons _%L94895%_ + (cons (let ((__tmp100478 + (lambda (_%g9492094923%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g9464794652%_) - (cons _%g9464694649%_ _%g9464794652%_)))) + _%g9492194926%_) + (cons _%g9492094923%_ _%g9492194926%_)))) (declare (not safe)) - (__foldr1 __tmp100204 '() _%L94619%_)) + (__foldr1 __tmp100478 '() _%L94893%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -1230,189 +1230,189 @@ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L94621%_ + (cons _%L94895%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons (gx#datum->syntax '#f '@list) - (let ((__tmp100205 - (lambda (_%g9464494655%_ _%g9464594658%_) - (cons _%g9464494655%_ _%g9464594658%_)))) + (let ((__tmp100479 + (lambda (_%g9491894929%_ _%g9491994932%_) + (cons _%g9491894929%_ _%g9491994932%_)))) (declare (not safe)) - (__foldr1 __tmp100205 '() _%L94619%_))) + (__foldr1 __tmp100479 '() _%L94893%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%super9453694615%_ - _%hd9452394573%_ - _%hd9452094563%_) - (_%g9451194542%_ - _%g9451294546%_))))))) - (_%loop9453194595%_ _%target9452894589%_ '())) - (_%g9451194542%_ _%g9451294546%_))))) + _%super9481094889%_ + _%hd9479794847%_ + _%hd9479494837%_) + (_%g9478594816%_ + _%g9478694820%_))))))) + (_%loop9480594869%_ _%target9480294863%_ '())) + (_%g9478594816%_ _%g9478694820%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9451194542%_ - _%g9451294546%_)))) - (_%g9451194542%_ - _%g9451294546%_)))) - (_%g9451194542%_ _%g9451294546%_)))) - (_%g9451194542%_ _%g9451294546%_)))) - (_%g9451194542%_ _%g9451294546%_))))) - (_%g9451094661%_ _%$stx94507%_)))) + (_%g9478594816%_ + _%g9478694820%_)))) + (_%g9478594816%_ + _%g9478694820%_)))) + (_%g9478594816%_ _%g9478694820%_)))) + (_%g9478594816%_ _%g9478694820%_)))) + (_%g9478594816%_ _%g9478694820%_))))) + (_%g9478494935%_ _%$stx94781%_)))) (define |[:0:]#defshadow-class| - (lambda (_%$stx94666%_) - (let* ((_%g9467094701%_ - (lambda (_%g9467194697%_) + (lambda (_%$stx94940%_) + (let* ((_%g9494494975%_ + (lambda (_%g9494594971%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9467194697%_))) - (_%g9466994812%_ - (lambda (_%g9467194705%_) - (if (gx#stx-pair? _%g9467194705%_) - (let ((_%e9467594708%_ (gx#syntax-e _%g9467194705%_))) - (let ((_%hd9467694712%_ + _%g9494594971%_))) + (_%g9494395086%_ + (lambda (_%g9494594979%_) + (if (gx#stx-pair? _%g9494594979%_) + (let ((_%e9494994982%_ (gx#syntax-e _%g9494594979%_))) + (let ((_%hd9495094986%_ (let () (declare (not safe)) - (##car _%e9467594708%_))) - (_%tl9467794715%_ + (##car _%e9494994982%_))) + (_%tl9495194989%_ (let () (declare (not safe)) - (##cdr _%e9467594708%_)))) - (if (gx#stx-pair? _%tl9467794715%_) - (let ((_%e9467894718%_ - (gx#syntax-e _%tl9467794715%_))) - (let ((_%hd9467994722%_ + (##cdr _%e9494994982%_)))) + (if (gx#stx-pair? _%tl9495194989%_) + (let ((_%e9495294992%_ + (gx#syntax-e _%tl9495194989%_))) + (let ((_%hd9495394996%_ (let () (declare (not safe)) - (##car _%e9467894718%_))) - (_%tl9468094725%_ + (##car _%e9495294992%_))) + (_%tl9495494999%_ (let () (declare (not safe)) - (##cdr _%e9467894718%_)))) - (if (gx#stx-pair? _%tl9468094725%_) - (let ((_%e9468194728%_ - (gx#syntax-e _%tl9468094725%_))) - (let ((_%hd9468294732%_ + (##cdr _%e9495294992%_)))) + (if (gx#stx-pair? _%tl9495494999%_) + (let ((_%e9495595002%_ + (gx#syntax-e _%tl9495494999%_))) + (let ((_%hd9495695006%_ (let () (declare (not safe)) - (##car _%e9468194728%_))) - (_%tl9468394735%_ + (##car _%e9495595002%_))) + (_%tl9495795009%_ (let () (declare (not safe)) - (##cdr _%e9468194728%_)))) + (##cdr _%e9495595002%_)))) (if (gx#stx-pair/null? - _%hd9468294732%_) - (let ((_g100206_ + _%hd9495695006%_) + (let ((_g100480_ (gx#syntax-split-splice - _%hd9468294732%_ + _%hd9495695006%_ '0))) (begin - (let ((_g100207_ + (let ((_g100481_ (let () (declare (not safe)) (if (##values? - _g100206_) + _g100480_) (##vector-length - _g100206_) + _g100480_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g100207_ + (##fx= _g100481_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g100207_))) + (error "Context expects 2 values" _g100481_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target9468494738%_ + (let ((_%target9495895012%_ (let () (declare (not safe)) (##vector-ref - _g100206_ + _g100480_ 0))) - (_%tl9468694741%_ + (_%tl9496095015%_ (let () (declare (not safe)) (##vector-ref - _g100206_ + _g100480_ 1)))) (if (gx#stx-null? - _%tl9468694741%_) - (letrec ((_%loop9468794744%_ - (lambda (_%hd9468594748%_ + _%tl9496095015%_) + (letrec ((_%loop9496195018%_ + (lambda (_%hd9495995022%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%super9469194751%_) - (if (gx#stx-pair? _%hd9468594748%_) - (let ((_%e9468894754%_ - (gx#syntax-e _%hd9468594748%_))) - (let ((_%lp-hd9468994758%_ + _%super9496595025%_) + (if (gx#stx-pair? _%hd9495995022%_) + (let ((_%e9496295028%_ + (gx#syntax-e _%hd9495995022%_))) + (let ((_%lp-hd9496395032%_ (let () (declare (not safe)) - (##car _%e9468894754%_))) - (_%lp-tl9469094761%_ + (##car _%e9496295028%_))) + (_%lp-tl9496495035%_ (let () (declare (not safe)) - (##cdr _%e9468894754%_)))) - (_%loop9468794744%_ - _%lp-tl9469094761%_ - (cons _%lp-hd9468994758%_ - _%super9469194751%_)))) - (let ((_%super9469294764%_ - (reverse _%super9469194751%_))) - (if (gx#stx-pair? _%tl9468394735%_) - (let ((_%e9469394768%_ - (gx#syntax-e _%tl9468394735%_))) - (let ((_%hd9469494772%_ + (##cdr _%e9496295028%_)))) + (_%loop9496195018%_ + _%lp-tl9496495035%_ + (cons _%lp-hd9496395032%_ + _%super9496595025%_)))) + (let ((_%super9496695038%_ + (reverse _%super9496595025%_))) + (if (gx#stx-pair? _%tl9495795009%_) + (let ((_%e9496795042%_ + (gx#syntax-e _%tl9495795009%_))) + (let ((_%hd9496895046%_ (let () (declare (not safe)) - (##car _%e9469394768%_))) - (_%tl9469594775%_ + (##car _%e9496795042%_))) + (_%tl9496995049%_ (let () (declare (not safe)) - (##cdr _%e9469394768%_)))) - (if (gx#stx-null? _%tl9469594775%_) - ((lambda (_%L94778%_ - _%L94780%_ - _%L94781%_) + (##cdr _%e9496795042%_)))) + (if (gx#stx-null? _%tl9496995049%_) + ((lambda (_%L95052%_ + _%L95054%_ + _%L95055%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L94781%_ + (cons _%L95055%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.system) - (cons _%L94781%_ - (cons (let ((__tmp100208 - (lambda (_%g9480394806%_ + (cons _%L95055%_ + (cons (let ((__tmp100482 + (lambda (_%g9507795080%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g9480494809%_) - (cons _%g9480394806%_ _%g9480494809%_)))) + _%g9507895083%_) + (cons _%g9507795080%_ _%g9507895083%_)))) (declare (not safe)) - (__foldr1 __tmp100208 '() _%L94780%_)) + (__foldr1 __tmp100482 '() _%L95054%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f '__shadow-class) - (cons _%L94778%_ '())) + (cons _%L95052%_ '())) '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9469494772%_ - _%super9469294764%_ - _%hd9467994722%_) - (_%g9467094701%_ - _%g9467194705%_)))) - (_%g9467094701%_ _%g9467194705%_))))))) - (_%loop9468794744%_ _%target9468494738%_ '())) - (_%g9467094701%_ _%g9467194705%_))))) + _%hd9496895046%_ + _%super9496695038%_ + _%hd9495394996%_) + (_%g9494494975%_ + _%g9494594979%_)))) + (_%g9494494975%_ _%g9494594979%_))))))) + (_%loop9496195018%_ _%target9495895012%_ '())) + (_%g9494494975%_ _%g9494594979%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9467094701%_ - _%g9467194705%_)))) - (_%g9467094701%_ _%g9467194705%_)))) - (_%g9467094701%_ _%g9467194705%_)))) - (_%g9467094701%_ _%g9467194705%_))))) - (_%g9466994812%_ _%$stx94666%_))))) + (_%g9494494975%_ + _%g9494594979%_)))) + (_%g9494494975%_ _%g9494594979%_)))) + (_%g9494494975%_ _%g9494594979%_)))) + (_%g9494494975%_ _%g9494594979%_))))) + (_%g9494395086%_ _%$stx94940%_))))) diff --git a/src/bootstrap/gerbil/runtime/repl~0.scm b/src/bootstrap/gerbil/runtime/repl~0.scm index dc9d676ae..c57b7f174 100644 --- a/src/bootstrap/gerbil/runtime/repl~0.scm +++ b/src/bootstrap/gerbil/runtime/repl~0.scm @@ -1,30 +1,30 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/repl::timestamp 1713044315) + (define gerbil/runtime/repl::timestamp 1713454410) (define replx (lambda () - (letrec ((_%write-reason113565%_ - (lambda (_%exn113571%_) - (lambda (_%cont113573%_ _%port113574%_) + (letrec ((_%write-reason113839%_ + (lambda (_%exn113845%_) + (lambda (_%cont113847%_ _%port113848%_) (let () (declare (not safe)) (##display-exception-in-context - _%exn113571%_ - _%cont113573%_ - _%port113574%_)) + _%exn113845%_ + _%cont113847%_ + _%port113848%_)) '#f)))) - (let ((__tmp113575 - (lambda (_%exn113567%_) - (let ((__tmp113576 - (lambda (_%cont113569%_) - (let ((__tmp113577 - (_%write-reason113565%_ _%exn113567%_))) + (let ((__tmp113849 + (lambda (_%exn113841%_) + (let ((__tmp113850 + (lambda (_%cont113843%_) + (let ((__tmp113851 + (_%write-reason113839%_ _%exn113841%_))) (declare (not safe)) (##repl-within - _%cont113569%_ - __tmp113577 - _%exn113567%_))))) + _%cont113843%_ + __tmp113851 + _%exn113841%_))))) (declare (not safe)) - (##continuation-capture __tmp113576))))) + (##continuation-capture __tmp113850))))) (declare (not safe)) - (with-exception-handler __tmp113575 ##repl)))))) + (with-exception-handler __tmp113849 ##repl)))))) diff --git a/src/bootstrap/gerbil/runtime/syntax~0.scm b/src/bootstrap/gerbil/runtime/syntax~0.scm index 837ec391f..e887a64b6 100644 --- a/src/bootstrap/gerbil/runtime/syntax~0.scm +++ b/src/bootstrap/gerbil/runtime/syntax~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/syntax::timestamp 1713044315) + (define gerbil/runtime/syntax::timestamp 1713454410) (begin (declare (not safe)) (define SyntaxError::t @@ -13,8 +13,8 @@ '#f)) (define SyntaxError? (__make-class-predicate SyntaxError::t)) (define make-SyntaxError - (lambda _%$args110802%_ - (apply make-instance SyntaxError::t _%$args110802%_))) + (lambda _%$args111076%_ + (apply make-instance SyntaxError::t _%$args111076%_))) (define SyntaxError-message (__make-class-slot-accessor SyntaxError::t 'message)) (define SyntaxError-irritants @@ -71,115 +71,115 @@ (define &SyntaxError-continuation-set! (__make-class-slot-unchecked-mutator SyntaxError::t 'continuation)) (define SyntaxError::display-exception - (lambda (_%self110303110684%_ _%port110686%_) - (let* ((_%self110688%_ _%self110303110684%_) - (_%self110690%_ _%self110688%_)) - (letrec ((_%location110700%_ + (lambda (_%self110577110958%_ _%port110960%_) + (let* ((_%self110962%_ _%self110577110958%_) + (_%self110964%_ _%self110962%_)) + (letrec ((_%location110974%_ (lambda () - (let _%lp110762%_ ((_%rest110764%_ + (let _%lp111036%_ ((_%rest111038%_ (##unchecked-structure-ref - _%self110690%_ + _%self110964%_ '3 '#f '#f))) - (let* ((_%rest110765110773%_ _%rest110764%_) - (_%else110767110781%_ (lambda () '#f)) - (_%K110769110790%_ - (lambda (_%rest110784%_ _%hd110785%_) - (let ((_%$e110787%_ - (__AST-source _%hd110785%_))) - (if _%$e110787%_ - _%$e110787%_ - (_%lp110762%_ _%rest110784%_)))))) - (if (##pair? _%rest110765110773%_) - (let ((_%hd110770110793%_ - (##car _%rest110765110773%_)) - (_%tl110771110795%_ - (##cdr _%rest110765110773%_))) - (let* ((_%hd110798%_ _%hd110770110793%_) - (_%rest110800%_ _%tl110771110795%_)) - (_%K110769110790%_ - _%rest110800%_ - _%hd110798%_))) - (_%else110767110781%_))))))) + (let* ((_%rest111039111047%_ _%rest111038%_) + (_%else111041111055%_ (lambda () '#f)) + (_%K111043111064%_ + (lambda (_%rest111058%_ _%hd111059%_) + (let ((_%$e111061%_ + (__AST-source _%hd111059%_))) + (if _%$e111061%_ + _%$e111061%_ + (_%lp111036%_ _%rest111058%_)))))) + (if (##pair? _%rest111039111047%_) + (let ((_%hd111044111067%_ + (##car _%rest111039111047%_)) + (_%tl111045111069%_ + (##cdr _%rest111039111047%_))) + (let* ((_%hd111072%_ _%hd111044111067%_) + (_%rest111074%_ _%tl111045111069%_)) + (_%K111043111064%_ + _%rest111074%_ + _%hd111072%_))) + (_%else111041111055%_))))))) (__call-with-parameters (lambda () (newline) (display '"*** ERROR IN ") - (let ((_%$e110703%_ (_%location110700%_))) - (if _%$e110703%_ - ((lambda (_%where110706%_) - (##display-locat _%where110706%_ '#t _%port110686%_)) - _%$e110703%_) + (let ((_%$e110977%_ (_%location110974%_))) + (if _%$e110977%_ + ((lambda (_%where110980%_) + (##display-locat _%where110980%_ '#t _%port110960%_)) + _%$e110977%_) (display '"?"))) (newline) (display '"--- Syntax Error") - (let ((_%$e110709%_ - (##unchecked-structure-ref _%self110690%_ '4 '#f '#f))) - (if _%$e110709%_ - ((lambda (_%where110712%_) + (let ((_%$e110983%_ + (##unchecked-structure-ref _%self110964%_ '4 '#f '#f))) + (if _%$e110983%_ + ((lambda (_%where110986%_) (displayln '" at " - _%where110712%_ + _%where110986%_ '": " (##unchecked-structure-ref - _%self110690%_ + _%self110964%_ '2 '#f '#f))) - _%$e110709%_) + _%$e110983%_) (displayln '": " - (##unchecked-structure-ref _%self110690%_ '2 '#f '#f)))) - (let* ((_%self.irritants110714110722%_ - (##unchecked-structure-ref _%self110690%_ '3 '#f '#f)) - (_%else110716110730%_ (lambda () '#!void)) - (_%K110718110743%_ - (lambda (_%rest110733%_ _%stx110734%_) + (##unchecked-structure-ref _%self110964%_ '2 '#f '#f)))) + (let* ((_%self.irritants110988110996%_ + (##unchecked-structure-ref _%self110964%_ '3 '#f '#f)) + (_%else110990111004%_ (lambda () '#!void)) + (_%K110992111017%_ + (lambda (_%rest111007%_ _%stx111008%_) (display '"... form: ") - (__pp-syntax _%stx110734%_) + (__pp-syntax _%stx111008%_) (for-each - (lambda (_%detail110736%_) + (lambda (_%detail111010%_) (display '"... detail: ") - (##write (__AST->datum _%detail110736%_)) - (let ((_%$e110738%_ - (__AST-source _%detail110736%_))) - (if _%$e110738%_ - ((lambda (_%loc110741%_) + (##write (__AST->datum _%detail111010%_)) + (let ((_%$e111012%_ + (__AST-source _%detail111010%_))) + (if _%$e111012%_ + ((lambda (_%loc111015%_) (display '" at ") (##display-locat - _%loc110741%_ + _%loc111015%_ '#t - _%port110686%_)) - _%$e110738%_) + _%port110960%_)) + _%$e111012%_) '#!void)) (newline)) - _%rest110733%_)))) - (if (##pair? _%self.irritants110714110722%_) - (let ((_%hd110719110746%_ - (##car _%self.irritants110714110722%_)) - (_%tl110720110748%_ - (##cdr _%self.irritants110714110722%_))) - (let* ((_%stx110751%_ _%hd110719110746%_) - (_%rest110753%_ _%tl110720110748%_)) - (_%K110718110743%_ _%rest110753%_ _%stx110751%_))) + _%rest111007%_)))) + (if (##pair? _%self.irritants110988110996%_) + (let ((_%hd110993111020%_ + (##car _%self.irritants110988110996%_)) + (_%tl110994111022%_ + (##cdr _%self.irritants110988110996%_))) + (let* ((_%stx111025%_ _%hd110993111020%_) + (_%rest111027%_ _%tl110994111022%_)) + (_%K110992111017%_ _%rest111027%_ _%stx111025%_))) '#!void)) (if (##getenv '"GERBIL_DEBUG" '#f) - (let ((_%cont110754110756%_ + (let ((_%cont111028111030%_ (##unchecked-structure-ref - _%self110690%_ + _%self110964%_ '1 '#f '#f))) - (if _%cont110754110756%_ - (let ((_%cont110759%_ _%cont110754110756%_)) + (if _%cont111028111030%_ + (let ((_%cont111033%_ _%cont111028111030%_)) (display '"--- continuation backtrace:") (newline) - (display-continuation-backtrace _%cont110759%_)) + (display-continuation-backtrace _%cont111033%_)) '#f)) '#!void)) current-output-port - _%port110686%_))))) + _%port110960%_))))) (__bind-method!__% SyntaxError::t 'display-exception @@ -187,37 +187,37 @@ '#f) (__seal-class! SyntaxError::t) (define make-syntax-error - (lambda (_%message110555%_ - _%irritants110556%_ - _%where110557%_ - _%context110558%_ - _%marks110559%_ - _%phi110560%_) - (let ((__obj110899 + (lambda (_%message110829%_ + _%irritants110830%_ + _%where110831%_ + _%context110832%_ + _%marks110833%_ + _%phi110834%_) + (let ((__obj111173 (##structure SyntaxError::t '#f '#f '#f '#f '#f '#f '#f))) - (##unchecked-structure-set! __obj110899 _%message110555%_ '2 '#f '#f) + (##unchecked-structure-set! __obj111173 _%message110829%_ '2 '#f '#f) (##unchecked-structure-set! - __obj110899 - _%irritants110556%_ + __obj111173 + _%irritants110830%_ '3 '#f '#f) - (##unchecked-structure-set! __obj110899 _%where110557%_ '4 '#f '#f) - (##unchecked-structure-set! __obj110899 _%context110558%_ '5 '#f '#f) - (##unchecked-structure-set! __obj110899 _%marks110559%_ '7 '#f '#f) - (##unchecked-structure-set! __obj110899 _%phi110560%_ '6 '#f '#f) - __obj110899))) + (##unchecked-structure-set! __obj111173 _%where110831%_ '4 '#f '#f) + (##unchecked-structure-set! __obj111173 _%context110832%_ '5 '#f '#f) + (##unchecked-structure-set! __obj111173 _%marks110833%_ '7 '#f '#f) + (##unchecked-structure-set! __obj111173 _%phi110834%_ '6 '#f '#f) + __obj111173))) (define syntax-error? SyntaxError?) (define __raise-syntax-error - (lambda (_%where110550%_ - _%message110551%_ - _%stx110552%_ + (lambda (_%where110824%_ + _%message110825%_ + _%stx110826%_ . - _%details110553%_) + _%details110827%_) (raise (make-syntax-error - _%message110551%_ - (cons _%stx110552%_ _%details110553%_) - _%where110550%_ + _%message110825%_ + (cons _%stx110826%_ _%details110827%_) + _%where110824%_ '#f '#f '#f)))) @@ -231,7 +231,7 @@ '#f)) (define AST? (__make-class-predicate AST::t)) (define make-AST - (lambda _%$args110547%_ (apply make-instance AST::t _%$args110547%_))) + (lambda _%$args110821%_ (apply make-instance AST::t _%$args110821%_))) (define AST-e (__make-class-slot-accessor AST::t 'e)) (define AST-source (__make-class-slot-accessor AST::t 'source)) (define AST-e-set! (__make-class-slot-mutator AST::t 'e)) @@ -242,167 +242,167 @@ (define &AST-source-set! (__make-class-slot-unchecked-mutator AST::t 'source)) (define __AST-e - (lambda (_%stx110545%_) - (if (##structure-instance-of? _%stx110545%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx110545%_ '1 '#f '#f) - _%stx110545%_))) + (lambda (_%stx110819%_) + (if (##structure-instance-of? _%stx110819%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx110819%_ '1 '#f '#f) + _%stx110819%_))) (define __AST-source - (lambda (_%stx110536%_) - (let _%lp110538%_ ((_%src110540%_ _%stx110536%_)) - (if (##structure-instance-of? _%src110540%_ 'gerbil#AST::t) - (_%lp110538%_ - (##unchecked-structure-ref _%src110540%_ '2 '#f '#f)) - (if (##locat? _%src110540%_) _%src110540%_ '#f))))) + (lambda (_%stx110810%_) + (let _%lp110812%_ ((_%src110814%_ _%stx110810%_)) + (if (##structure-instance-of? _%src110814%_ 'gerbil#AST::t) + (_%lp110812%_ + (##unchecked-structure-ref _%src110814%_ '2 '#f '#f)) + (if (##locat? _%src110814%_) _%src110814%_ '#f))))) (define __AST - (lambda (_%e110528%_ _%src-stx110529%_) - (let ((_%src110531%_ (__AST-source _%src-stx110529%_))) - (if (or (##structure-instance-of? _%e110528%_ 'gerbil#AST::t) - (not _%src110531%_)) - _%e110528%_ - (##structure AST::t _%e110528%_ _%src110531%_))))) + (lambda (_%e110802%_ _%src-stx110803%_) + (let ((_%src110805%_ (__AST-source _%src-stx110803%_))) + (if (or (##structure-instance-of? _%e110802%_ 'gerbil#AST::t) + (not _%src110805%_)) + _%e110802%_ + (##structure AST::t _%e110802%_ _%src110805%_))))) (define __AST-eq? - (lambda (_%stx110525%_ _%obj110526%_) - (eq? (__AST-e _%stx110525%_) _%obj110526%_))) + (lambda (_%stx110799%_ _%obj110800%_) + (eq? (__AST-e _%stx110799%_) _%obj110800%_))) (define __AST-pair? - (lambda (_%stx110523%_) (pair? (__AST-e _%stx110523%_)))) + (lambda (_%stx110797%_) (pair? (__AST-e _%stx110797%_)))) (define __AST-null? - (lambda (_%stx110521%_) (null? (__AST-e _%stx110521%_)))) + (lambda (_%stx110795%_) (null? (__AST-e _%stx110795%_)))) (define __AST-datum? - (lambda (_%stx110502%_) - (let* ((_%e110504%_ (__AST-e _%stx110502%_)) - (_%$e110506%_ (number? _%e110504%_))) - (if _%$e110506%_ - _%$e110506%_ - (let ((_%$e110509%_ (string? _%e110504%_))) - (if _%$e110509%_ - _%$e110509%_ - (let ((_%$e110512%_ (char? _%e110504%_))) - (if _%$e110512%_ - _%$e110512%_ - (let ((_%$e110515%_ (keyword? _%e110504%_))) - (if _%$e110515%_ - _%$e110515%_ - (let ((_%$e110518%_ (boolean? _%e110504%_))) - (if _%$e110518%_ - _%$e110518%_ - (eq? _%e110504%_ '#!void))))))))))))) + (lambda (_%stx110776%_) + (let* ((_%e110778%_ (__AST-e _%stx110776%_)) + (_%$e110780%_ (number? _%e110778%_))) + (if _%$e110780%_ + _%$e110780%_ + (let ((_%$e110783%_ (string? _%e110778%_))) + (if _%$e110783%_ + _%$e110783%_ + (let ((_%$e110786%_ (char? _%e110778%_))) + (if _%$e110786%_ + _%$e110786%_ + (let ((_%$e110789%_ (keyword? _%e110778%_))) + (if _%$e110789%_ + _%$e110789%_ + (let ((_%$e110792%_ (boolean? _%e110778%_))) + (if _%$e110792%_ + _%$e110792%_ + (eq? _%e110778%_ '#!void))))))))))))) (define __AST-id? - (lambda (_%stx110500%_) (symbol? (__AST-e _%stx110500%_)))) + (lambda (_%stx110774%_) (symbol? (__AST-e _%stx110774%_)))) (define __AST-id-list?__% - (lambda (_%stx110451%_ _%tail?110452%_) - (let _%lp110454%_ ((_%rest110456%_ _%stx110451%_)) - (let* ((_%$e110458%_ _%rest110456%_) - (_%$E110460110473%_ + (lambda (_%stx110725%_ _%tail?110726%_) + (let _%lp110728%_ ((_%rest110730%_ _%stx110725%_)) + (let* ((_%$e110732%_ _%rest110730%_) + (_%$E110734110747%_ (lambda () - (let* ((_%$E110461110468%_ + (let* ((_%$E110735110742%_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e110458%_))) - (_%rest110471%_ _%$e110458%_)) - (_%tail?110452%_ _%rest110471%_))))) - (if (__AST-pair? _%$e110458%_) - (let* ((_%$tgt110462110476%_ (__AST-e _%$e110458%_)) - (_%$hd110463110479%_ (##car _%$tgt110462110476%_)) - (_%$tl110464110482%_ (##cdr _%$tgt110462110476%_)) - (_%hd110486%_ _%$hd110463110479%_) - (_%rest110488%_ _%$tl110464110482%_)) - (if (__AST-id? _%hd110486%_) - (_%lp110454%_ _%rest110488%_) + _%$e110732%_))) + (_%rest110745%_ _%$e110732%_)) + (_%tail?110726%_ _%rest110745%_))))) + (if (__AST-pair? _%$e110732%_) + (let* ((_%$tgt110736110750%_ (__AST-e _%$e110732%_)) + (_%$hd110737110753%_ (##car _%$tgt110736110750%_)) + (_%$tl110738110756%_ (##cdr _%$tgt110736110750%_)) + (_%hd110760%_ _%$hd110737110753%_) + (_%rest110762%_ _%$tl110738110756%_)) + (if (__AST-id? _%hd110760%_) + (_%lp110728%_ _%rest110762%_) '#f)) - (_%$E110460110473%_)))))) + (_%$E110734110747%_)))))) (define __AST-id-list?__0 - (lambda (_%stx110493%_) - (let ((_%tail?110495%_ __AST-null?)) - (__AST-id-list?__% _%stx110493%_ _%tail?110495%_)))) + (lambda (_%stx110767%_) + (let ((_%tail?110769%_ __AST-null?)) + (__AST-id-list?__% _%stx110767%_ _%tail?110769%_)))) (define __AST-id-list? - (lambda _g110902_ - (let ((_g110901_ (##length _g110902_))) - (cond ((##fx= _g110901_ 1) (apply __AST-id-list?__0 _g110902_)) - ((##fx= _g110901_ 2) (apply __AST-id-list?__% _g110902_)) + (lambda _g111176_ + (let ((_g111175_ (##length _g111176_))) + (cond ((##fx= _g111175_ 1) (apply __AST-id-list?__0 _g111176_)) + ((##fx= _g111175_ 2) (apply __AST-id-list?__% _g111176_)) (else (##raise-wrong-number-of-arguments-exception __AST-id-list? - _g110902_)))))) + _g111176_)))))) (define __AST-bind-list? - (lambda (_%stx110443%_) + (lambda (_%stx110717%_) (__AST-id-list?__% - _%stx110443%_ - (lambda (_%e110445%_) - (let ((_%$e110447%_ (__AST-null? _%e110445%_))) - (if _%$e110447%_ _%$e110447%_ (__AST-id? _%e110445%_))))))) + _%stx110717%_ + (lambda (_%e110719%_) + (let ((_%$e110721%_ (__AST-null? _%e110719%_))) + (if _%$e110721%_ _%$e110721%_ (__AST-id? _%e110719%_))))))) (define __AST-list?__% - (lambda (_%stx110396%_ _%tail?110397%_) - (let _%lp110399%_ ((_%rest110401%_ _%stx110396%_)) - (let* ((_%$e110403%_ _%rest110401%_) - (_%$E110405110418%_ + (lambda (_%stx110670%_ _%tail?110671%_) + (let _%lp110673%_ ((_%rest110675%_ _%stx110670%_)) + (let* ((_%$e110677%_ _%rest110675%_) + (_%$E110679110692%_ (lambda () - (let* ((_%$E110406110413%_ + (let* ((_%$E110680110687%_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e110403%_))) - (_%rest110416%_ _%$e110403%_)) - (_%tail?110397%_ _%rest110416%_))))) - (if (__AST-pair? _%$e110403%_) - (let* ((_%$tgt110407110421%_ (__AST-e _%$e110403%_)) - (_%$hd110408110424%_ (##car _%$tgt110407110421%_)) - (_%$tl110409110427%_ (##cdr _%$tgt110407110421%_)) - (_%rest110431%_ _%$tl110409110427%_)) - (_%lp110399%_ _%rest110431%_)) - (_%$E110405110418%_)))))) + _%$e110677%_))) + (_%rest110690%_ _%$e110677%_)) + (_%tail?110671%_ _%rest110690%_))))) + (if (__AST-pair? _%$e110677%_) + (let* ((_%$tgt110681110695%_ (__AST-e _%$e110677%_)) + (_%$hd110682110698%_ (##car _%$tgt110681110695%_)) + (_%$tl110683110701%_ (##cdr _%$tgt110681110695%_)) + (_%rest110705%_ _%$tl110683110701%_)) + (_%lp110673%_ _%rest110705%_)) + (_%$E110679110692%_)))))) (define __AST-list?__0 - (lambda (_%stx110436%_) - (let ((_%tail?110438%_ __AST-null?)) - (__AST-list?__% _%stx110436%_ _%tail?110438%_)))) + (lambda (_%stx110710%_) + (let ((_%tail?110712%_ __AST-null?)) + (__AST-list?__% _%stx110710%_ _%tail?110712%_)))) (define __AST-list? - (lambda _g110904_ - (let ((_g110903_ (##length _g110904_))) - (cond ((##fx= _g110903_ 1) (apply __AST-list?__0 _g110904_)) - ((##fx= _g110903_ 2) (apply __AST-list?__% _g110904_)) + (lambda _g111178_ + (let ((_g111177_ (##length _g111178_))) + (cond ((##fx= _g111177_ 1) (apply __AST-list?__0 _g111178_)) + ((##fx= _g111177_ 2) (apply __AST-list?__% _g111178_)) (else (##raise-wrong-number-of-arguments-exception __AST-list? - _g110904_)))))) + _g111178_)))))) (define __AST->list - (lambda (_%stx110361%_) - (let* ((_%$e110363%_ _%stx110361%_) - (_%$E110365110378%_ + (lambda (_%stx110635%_) + (let* ((_%$e110637%_ _%stx110635%_) + (_%$E110639110652%_ (lambda () - (let* ((_%$E110366110373%_ + (let* ((_%$E110640110647%_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e110363%_))) - (_%rest110376%_ _%$e110363%_)) - (__AST-e _%rest110376%_))))) - (if (__AST-pair? _%$e110363%_) - (let* ((_%$tgt110367110381%_ (__AST-e _%$e110363%_)) - (_%$hd110368110384%_ (##car _%$tgt110367110381%_)) - (_%$tl110369110387%_ (##cdr _%$tgt110367110381%_)) - (_%hd110391%_ _%$hd110368110384%_) - (_%rest110393%_ _%$tl110369110387%_)) - (cons _%hd110391%_ (__AST->list _%rest110393%_))) - (_%$E110365110378%_))))) + _%$e110637%_))) + (_%rest110650%_ _%$e110637%_)) + (__AST-e _%rest110650%_))))) + (if (__AST-pair? _%$e110637%_) + (let* ((_%$tgt110641110655%_ (__AST-e _%$e110637%_)) + (_%$hd110642110658%_ (##car _%$tgt110641110655%_)) + (_%$tl110643110661%_ (##cdr _%$tgt110641110655%_)) + (_%hd110665%_ _%$hd110642110658%_) + (_%rest110667%_ _%$tl110643110661%_)) + (cons _%hd110665%_ (__AST->list _%rest110667%_))) + (_%$E110639110652%_))))) (define __AST->datum - (lambda (_%stx110354%_) - (if (##structure-instance-of? _%stx110354%_ 'gerbil#AST::t) - (__AST->datum (__AST-e _%stx110354%_)) - (if (pair? _%stx110354%_) - (cons (__AST->datum (##car _%stx110354%_)) - (__AST->datum (##cdr _%stx110354%_))) - (if (vector? _%stx110354%_) - (vector-map __AST->datum _%stx110354%_) - (if (box? _%stx110354%_) - (box (__AST->datum (unbox _%stx110354%_))) - _%stx110354%_)))))) + (lambda (_%stx110628%_) + (if (##structure-instance-of? _%stx110628%_ 'gerbil#AST::t) + (__AST->datum (__AST-e _%stx110628%_)) + (if (pair? _%stx110628%_) + (cons (__AST->datum (##car _%stx110628%_)) + (__AST->datum (##cdr _%stx110628%_))) + (if (vector? _%stx110628%_) + (vector-map __AST->datum _%stx110628%_) + (if (box? _%stx110628%_) + (box (__AST->datum (unbox _%stx110628%_))) + _%stx110628%_)))))) (define get-readenv - (lambda (_%port110352%_) + (lambda (_%port110626%_) (##make-readenv - _%port110352%_ + _%port110626%_ (current-readtable) __wrap-syntax __unwrap-syntax @@ -410,93 +410,93 @@ '() '#f))) (define read-syntax__% - (lambda (_%in110340%_) - (let ((_%e110342%_ (##read-datum-or-eof (get-readenv _%in110340%_)))) - (if (eof-object? (__AST-e _%e110342%_)) - (__AST-e _%e110342%_) - _%e110342%_)))) + (lambda (_%in110614%_) + (let ((_%e110616%_ (##read-datum-or-eof (get-readenv _%in110614%_)))) + (if (eof-object? (__AST-e _%e110616%_)) + (__AST-e _%e110616%_) + _%e110616%_)))) (define read-syntax__0 (lambda () - (let ((_%in110348%_ (current-input-port))) - (read-syntax__% _%in110348%_)))) + (let ((_%in110622%_ (current-input-port))) + (read-syntax__% _%in110622%_)))) (define read-syntax - (lambda _g110906_ - (let ((_g110905_ (##length _g110906_))) - (cond ((##fx= _g110905_ 0) (apply read-syntax__0 _g110906_)) - ((##fx= _g110905_ 1) (apply read-syntax__% _g110906_)) + (lambda _g111180_ + (let ((_g111179_ (##length _g111180_))) + (cond ((##fx= _g111179_ 0) (apply read-syntax__0 _g111180_)) + ((##fx= _g111179_ 1) (apply read-syntax__% _g111180_)) (else (##raise-wrong-number-of-arguments-exception read-syntax - _g110906_)))))) + _g111180_)))))) (define read-syntax-from-file - (lambda (_%path110335%_) - (let ((_%r110337%_ + (lambda (_%path110609%_) + (let ((_%r110611%_ (##read-all-as-a-begin-expr-from-path - (path-normalize _%path110335%_) + (path-normalize _%path110609%_) (current-readtable) __wrap-syntax __unwrap-syntax))) - (if (vector? _%r110337%_) - (cdr (__AST-e (vector-ref _%r110337%_ '1))) - (error (err-code->string _%r110337%_) _%path110335%_))))) + (if (vector? _%r110611%_) + (cdr (__AST-e (vector-ref _%r110611%_ '1))) + (error (err-code->string _%r110611%_) _%path110609%_))))) (define __wrap-syntax - (lambda (_%re110332%_ _%e110333%_) - (if (eof-object? _%e110333%_) - _%e110333%_ - (##structure AST::t _%e110333%_ (##readenv->locat _%re110332%_))))) + (lambda (_%re110606%_ _%e110607%_) + (if (eof-object? _%e110607%_) + _%e110607%_ + (##structure AST::t _%e110607%_ (##readenv->locat _%re110606%_))))) (define __unwrap-syntax - (lambda (_%re110329%_ _%e110330%_) (__AST-e _%e110330%_))) + (lambda (_%re110603%_ _%e110604%_) (__AST-e _%e110604%_))) (define __pp-syntax - (lambda (_%stx110327%_) (pp (__AST->datum _%stx110327%_)))) + (lambda (_%stx110601%_) (pp (__AST->datum _%stx110601%_)))) (define __make-readtable (lambda () - (let ((_%rt110325%_ (##make-standard-readtable))) - (macro-readtable-write-extended-read-macros?-set! _%rt110325%_ '#t) - (macro-readtable-bracket-handler-set! _%rt110325%_ '@list) - (macro-readtable-brace-handler-set! _%rt110325%_ '@method) + (let ((_%rt110599%_ (##make-standard-readtable))) + (macro-readtable-write-extended-read-macros?-set! _%rt110599%_ '#t) + (macro-readtable-bracket-handler-set! _%rt110599%_ '@list) + (macro-readtable-brace-handler-set! _%rt110599%_ '@method) (##readtable-char-sharp-handler-set! - _%rt110325%_ + _%rt110599%_ '#\! __read-sharp-bang) - _%rt110325%_))) + _%rt110599%_))) (define __readtable-bracket-keyword-set! - (lambda (_%rt110321%_ _%kw110322%_) - (macro-readtable-bracket-handler-set! _%rt110321%_ _%kw110322%_))) + (lambda (_%rt110595%_ _%kw110596%_) + (macro-readtable-bracket-handler-set! _%rt110595%_ _%kw110596%_))) (define __readtable-brace-keyword-set! - (lambda (_%rt110318%_ _%kw110319%_) - (macro-readtable-brace-handler-set! _%rt110318%_ _%kw110319%_))) + (lambda (_%rt110592%_ _%kw110593%_) + (macro-readtable-brace-handler-set! _%rt110592%_ _%kw110593%_))) (define __read-sharp-bang - (lambda (_%re110309%_ _%next110310%_ _%start-pos110311%_) - (if (eq? _%start-pos110311%_ '0) - (let* ((_%line110313%_ + (lambda (_%re110583%_ _%next110584%_ _%start-pos110585%_) + (if (eq? _%start-pos110585%_ '0) + (let* ((_%line110587%_ (##read-line - (macro-readenv-port _%re110309%_) + (macro-readenv-port _%re110583%_) '#\newline '#f ##max-fixnum)) - (_%script-line110315%_ + (_%script-line110589%_ (substring - _%line110313%_ + _%line110587%_ '1 - (string-length _%line110313%_)))) + (string-length _%line110587%_)))) (macro-readenv-script-line-set! - _%re110309%_ - _%script-line110315%_) + _%re110583%_ + _%script-line110589%_) (##script-marker)) (##read-sharp-bang - _%re110309%_ - _%next110310%_ - _%start-pos110311%_)))) + _%re110583%_ + _%next110584%_ + _%start-pos110585%_)))) (set! ##readtable-setup-for-language! void) (define __*readtable* (__make-readtable)) (define source-location? ##locat?) (define source-location-path? - (lambda (_%obj110307%_) - (if (source-location? _%obj110307%_) - (string? (##locat-container _%obj110307%_)) + (lambda (_%obj110581%_) + (if (source-location? _%obj110581%_) + (string? (##locat-container _%obj110581%_)) '#f))) (define source-location-path - (lambda (_%obj110305%_) - (if (##locat? _%obj110305%_) - (##container->path (##locat-container _%obj110305%_)) + (lambda (_%obj110579%_) + (if (##locat? _%obj110579%_) + (##container->path (##locat-container _%obj110579%_)) '#f))))) diff --git a/src/bootstrap/gerbil/runtime/syntax~1.scm b/src/bootstrap/gerbil/runtime/syntax~1.scm index e073d612a..e4feab93c 100644 --- a/src/bootstrap/gerbil/runtime/syntax~1.scm +++ b/src/bootstrap/gerbil/runtime/syntax~1.scm @@ -1,314 +1,314 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g110915_| + (define |[1]#_g111189_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |[1]#_g110918_| + (define |[1]#_g111192_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g110919_| + (define |[1]#_g111193_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g110921_| + (define |[1]#_g111195_| (##structure gx#syntax-quote::t 'SyntaxError::t #f (gx#current-expander-context) '())) - (define |[1]#_g110923_| + (define |[1]#_g111197_| (##structure gx#syntax-quote::t 'make-SyntaxError #f (gx#current-expander-context) '())) - (define |[1]#_g110925_| + (define |[1]#_g111199_| (##structure gx#syntax-quote::t 'SyntaxError? #f (gx#current-expander-context) '())) - (define |[1]#_g110927_| + (define |[1]#_g111201_| (##structure gx#syntax-quote::t 'SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g110928_| + (define |[1]#_g111202_| (##structure gx#syntax-quote::t 'SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g110929_| + (define |[1]#_g111203_| (##structure gx#syntax-quote::t 'SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g110930_| + (define |[1]#_g111204_| (##structure gx#syntax-quote::t 'SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g110931_| + (define |[1]#_g111205_| (##structure gx#syntax-quote::t 'SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g110932_| + (define |[1]#_g111206_| (##structure gx#syntax-quote::t 'SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g110933_| + (define |[1]#_g111207_| (##structure gx#syntax-quote::t 'SyntaxError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g110935_| + (define |[1]#_g111209_| (##structure gx#syntax-quote::t 'SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110936_| + (define |[1]#_g111210_| (##structure gx#syntax-quote::t 'SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110937_| + (define |[1]#_g111211_| (##structure gx#syntax-quote::t 'SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110938_| + (define |[1]#_g111212_| (##structure gx#syntax-quote::t 'SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110939_| + (define |[1]#_g111213_| (##structure gx#syntax-quote::t 'SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110940_| + (define |[1]#_g111214_| (##structure gx#syntax-quote::t 'SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110941_| + (define |[1]#_g111215_| (##structure gx#syntax-quote::t 'SyntaxError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110943_| + (define |[1]#_g111217_| (##structure gx#syntax-quote::t '&SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g110944_| + (define |[1]#_g111218_| (##structure gx#syntax-quote::t '&SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g110945_| + (define |[1]#_g111219_| (##structure gx#syntax-quote::t '&SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g110946_| + (define |[1]#_g111220_| (##structure gx#syntax-quote::t '&SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g110947_| + (define |[1]#_g111221_| (##structure gx#syntax-quote::t '&SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g110948_| + (define |[1]#_g111222_| (##structure gx#syntax-quote::t '&SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g110949_| + (define |[1]#_g111223_| (##structure gx#syntax-quote::t '&SyntaxError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g110951_| + (define |[1]#_g111225_| (##structure gx#syntax-quote::t '&SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110952_| + (define |[1]#_g111226_| (##structure gx#syntax-quote::t '&SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110953_| + (define |[1]#_g111227_| (##structure gx#syntax-quote::t '&SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110954_| + (define |[1]#_g111228_| (##structure gx#syntax-quote::t '&SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110955_| + (define |[1]#_g111229_| (##structure gx#syntax-quote::t '&SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110956_| + (define |[1]#_g111230_| (##structure gx#syntax-quote::t '&SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110957_| + (define |[1]#_g111231_| (##structure gx#syntax-quote::t '&SyntaxError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110959_| + (define |[1]#_g111233_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |[1]#_g110961_| + (define |[1]#_g111235_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |[1]#_g110963_| + (define |[1]#_g111237_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |[1]#_g110965_| + (define |[1]#_g111239_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g110966_| + (define |[1]#_g111240_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g110968_| + (define |[1]#_g111242_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110969_| + (define |[1]#_g111243_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110971_| + (define |[1]#_g111245_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g110972_| + (define |[1]#_g111246_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g110974_| + (define |[1]#_g111248_| (##structure gx#syntax-quote::t '&AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110975_| + (define |[1]#_g111249_| (##structure gx#syntax-quote::t '&AST-source-set! @@ -317,291 +317,291 @@ '())) (begin (define |[:0:]#core-ast-case| - (lambda (_%$stx109185%_) - (let* ((_%g109189109213%_ - (lambda (_%g109190109209%_) + (lambda (_%$stx109459%_) + (let* ((_%g109463109487%_ + (lambda (_%g109464109483%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g109190109209%_))) - (_%g109188109299%_ - (lambda (_%g109190109217%_) - (if (gx#stx-pair? _%g109190109217%_) - (let ((_%e109193109220%_ - (gx#syntax-e _%g109190109217%_))) - (let ((_%hd109194109224%_ + _%g109464109483%_))) + (_%g109462109573%_ + (lambda (_%g109464109491%_) + (if (gx#stx-pair? _%g109464109491%_) + (let ((_%e109467109494%_ + (gx#syntax-e _%g109464109491%_))) + (let ((_%hd109468109498%_ (let () (declare (not safe)) - (##car _%e109193109220%_))) - (_%tl109195109227%_ + (##car _%e109467109494%_))) + (_%tl109469109501%_ (let () (declare (not safe)) - (##cdr _%e109193109220%_)))) - (if (gx#stx-pair? _%tl109195109227%_) - (let ((_%e109196109230%_ - (gx#syntax-e _%tl109195109227%_))) - (let ((_%hd109197109234%_ + (##cdr _%e109467109494%_)))) + (if (gx#stx-pair? _%tl109469109501%_) + (let ((_%e109470109504%_ + (gx#syntax-e _%tl109469109501%_))) + (let ((_%hd109471109508%_ (let () (declare (not safe)) - (##car _%e109196109230%_))) - (_%tl109198109237%_ + (##car _%e109470109504%_))) + (_%tl109472109511%_ (let () (declare (not safe)) - (##cdr _%e109196109230%_)))) - (if (gx#stx-pair/null? _%tl109198109237%_) - (let ((_g110907_ + (##cdr _%e109470109504%_)))) + (if (gx#stx-pair/null? _%tl109472109511%_) + (let ((_g111181_ (gx#syntax-split-splice - _%tl109198109237%_ + _%tl109472109511%_ '0))) (begin - (let ((_g110908_ + (let ((_g111182_ (let () (declare (not safe)) - (if (##values? _g110907_) + (if (##values? _g111181_) (##vector-length - _g110907_) + _g111181_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g110908_ 2))) + (##fx= _g111182_ 2))) (error "Context expects 2 values" - _g110908_))) - (let ((_%target109199109240%_ + _g111182_))) + (let ((_%target109473109514%_ (let () (declare (not safe)) - (##vector-ref _g110907_ 0))) - (_%tl109201109243%_ + (##vector-ref _g111181_ 0))) + (_%tl109475109517%_ (let () (declare (not safe)) (##vector-ref - _g110907_ + _g111181_ 1)))) (if (gx#stx-null? - _%tl109201109243%_) - (letrec ((_%loop109202109246%_ - (lambda (_%hd109200109250%_ + _%tl109475109517%_) + (letrec ((_%loop109476109520%_ + (lambda (_%hd109474109524%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body109206109253%_) - (if (gx#stx-pair? _%hd109200109250%_) - (let ((_%e109203109256%_ - (gx#syntax-e _%hd109200109250%_))) - (let ((_%lp-hd109204109260%_ + _%body109480109527%_) + (if (gx#stx-pair? _%hd109474109524%_) + (let ((_%e109477109530%_ + (gx#syntax-e _%hd109474109524%_))) + (let ((_%lp-hd109478109534%_ (let () (declare (not safe)) - (##car _%e109203109256%_))) - (_%lp-tl109205109263%_ + (##car _%e109477109530%_))) + (_%lp-tl109479109537%_ (let () (declare (not safe)) - (##cdr _%e109203109256%_)))) - (_%loop109202109246%_ - _%lp-tl109205109263%_ - (cons _%lp-hd109204109260%_ - _%body109206109253%_)))) - (let ((_%body109207109266%_ - (reverse _%body109206109253%_))) - ((lambda (_%L109270%_ _%L109272%_) + (##cdr _%e109477109530%_)))) + (_%loop109476109520%_ + _%lp-tl109479109537%_ + (cons _%lp-hd109478109534%_ + _%body109480109527%_)))) + (let ((_%body109481109540%_ + (reverse _%body109480109527%_))) + ((lambda (_%L109544%_ _%L109546%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) - (cons _%L109272%_ '())) + (cons _%L109546%_ '())) (cons (cons (gx#datum->syntax '#f 'core-ast-case%) (cons (gx#datum->syntax '#f '$e) - (let ((__tmp110909 + (let ((__tmp111183 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g109290109293%_ _%g109291109296%_) - (cons _%g109290109293%_ _%g109291109296%_)))) + (lambda (_%g109564109567%_ _%g109565109570%_) + (cons _%g109564109567%_ _%g109565109570%_)))) (declare (not safe)) - (__foldr1 __tmp110909 '() _%L109270%_)))) + (__foldr1 __tmp111183 '() _%L109544%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%body109207109266%_ - _%hd109197109234%_)))))) + _%body109481109540%_ + _%hd109471109508%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop109202109246%_ - _%target109199109240%_ + (_%loop109476109520%_ + _%target109473109514%_ '())) - (_%g109189109213%_ - _%g109190109217%_))))) - (_%g109189109213%_ _%g109190109217%_)))) - (_%g109189109213%_ _%g109190109217%_)))) - (_%g109189109213%_ _%g109190109217%_))))) - (_%g109188109299%_ _%$stx109185%_)))) + (_%g109463109487%_ + _%g109464109491%_))))) + (_%g109463109487%_ _%g109464109491%_)))) + (_%g109463109487%_ _%g109464109491%_)))) + (_%g109463109487%_ _%g109464109491%_))))) + (_%g109462109573%_ _%$stx109459%_)))) (define |[:0:]#core-ast-case%| - (lambda (_%stx109304%_) - (letrec ((_%generate1109307%_ - (lambda (_%hd109848%_ - _%tgt109850%_ - _%K109851%_ - _%E109852%_ - _%kws109853%_) - (let* ((_%g109855109863%_ - (lambda (_%g109856109859%_) + (lambda (_%stx109578%_) + (letrec ((_%generate1109581%_ + (lambda (_%hd110122%_ + _%tgt110124%_ + _%K110125%_ + _%E110126%_ + _%kws110127%_) + (let* ((_%g110129110137%_ + (lambda (_%g110130110133%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g109856109859%_))) - (_%g109854110298%_ - (lambda (_%g109856109867%_) - ((lambda (_%L109870%_) - (let* ((_%__stx110805110806%_ _%hd109848%_) - (_%g109884109898%_ + _%g110130110133%_))) + (_%g110128110572%_ + (lambda (_%g110130110141%_) + ((lambda (_%L110144%_) + (let* ((_%__stx111079111080%_ _%hd110122%_) + (_%g110158110172%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx110805110806%_)))) - (let ((_%__kont110808110809%_ - (lambda (_%L110120%_ _%L110122%_) - (let* ((_%g110133110141%_ - (lambda (_%g110134110137%_) + _%__stx111079111080%_)))) + (let ((_%__kont111082111083%_ + (lambda (_%L110394%_ _%L110396%_) + (let* ((_%g110407110415%_ + (lambda (_%g110408110411%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110134110137%_))) - (_%g110132110290%_ - (lambda (_%g110134110145%_) - ((lambda (_%L110148%_) - (let* ((_%g110160110168%_ + _%g110408110411%_))) + (_%g110406110564%_ + (lambda (_%g110408110419%_) + ((lambda (_%L110422%_) + (let* ((_%g110434110442%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g110161110164%_) + (lambda (_%g110435110438%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110161110164%_))) - (_%g110159110286%_ - (lambda (_%g110161110172%_) - ((lambda (_%L110175%_) - (let* ((_%g110188110196%_ - (lambda (_%g110189110192%_) + _%g110435110438%_))) + (_%g110433110560%_ + (lambda (_%g110435110446%_) + ((lambda (_%L110449%_) + (let* ((_%g110462110470%_ + (lambda (_%g110463110466%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110189110192%_))) - (_%g110187110282%_ - (lambda (_%g110189110200%_) - ((lambda (_%L110203%_) - (let* ((_%g110216110224%_ - (lambda (_%g110217110220%_) + _%g110463110466%_))) + (_%g110461110556%_ + (lambda (_%g110463110474%_) + ((lambda (_%L110477%_) + (let* ((_%g110490110498%_ + (lambda (_%g110491110494%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110217110220%_))) - (_%g110215110278%_ - (lambda (_%g110217110228%_) - ((lambda (_%L110231%_) - (let* ((_%g110244110252%_ - (lambda (_%g110245110248%_) + _%g110491110494%_))) + (_%g110489110552%_ + (lambda (_%g110491110502%_) + ((lambda (_%L110505%_) + (let* ((_%g110518110526%_ + (lambda (_%g110519110522%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110245110248%_))) - (_%g110243110274%_ - (lambda (_%g110245110256%_) - ((lambda (_%L110259%_) + _%g110519110522%_))) + (_%g110517110548%_ + (lambda (_%g110519110530%_) + ((lambda (_%L110533%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '__AST-pair?) - (cons _%L109870%_ '())) + (cons _%L110144%_ '())) (cons (cons (gx#datum->syntax '#f 'let*) - (cons (cons (cons _%L110148%_ + (cons (cons (cons _%L110422%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '__AST-e) - (cons _%L109870%_ '())) + (cons _%L110144%_ '())) '())) - (cons (cons _%L110175%_ + (cons (cons _%L110449%_ (cons (cons (gx#datum->syntax '#f '##car) - (cons _%L110148%_ '())) + (cons _%L110422%_ '())) '())) - (cons (cons _%L110203%_ + (cons (cons _%L110477%_ (cons (cons (gx#datum->syntax '#f '##cdr) - (cons _%L110148%_ '())) + (cons _%L110422%_ '())) '())) '()))) - (cons _%L110231%_ '()))) + (cons _%L110505%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L110259%_ '()))))) - _%g110245110256%_)))) - (_%g110243110274%_ _%E109852%_))) - _%g110217110228%_)))) + (cons _%L110533%_ '()))))) + _%g110519110530%_)))) + (_%g110517110548%_ _%E110126%_))) + _%g110491110502%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g110215110278%_ - (_%generate1109307%_ - _%L110122%_ - _%L110175%_ - (_%generate1109307%_ - _%L110120%_ - _%L110203%_ - _%K109851%_ - _%E109852%_ - _%kws109853%_) - _%E109852%_ - _%kws109853%_)))) - _%g110189110200%_)))) - (_%g110187110282%_ (gx#genident '$tl)))) - _%g110161110172%_)))) - (_%g110159110286%_ (gx#genident '$hd)))) - _%g110134110145%_)))) + (_%g110489110552%_ + (_%generate1109581%_ + _%L110396%_ + _%L110449%_ + (_%generate1109581%_ + _%L110394%_ + _%L110477%_ + _%K110125%_ + _%E110126%_ + _%kws110127%_) + _%E110126%_ + _%kws110127%_)))) + _%g110463110474%_)))) + (_%g110461110556%_ (gx#genident '$tl)))) + _%g110435110446%_)))) + (_%g110433110560%_ (gx#genident '$hd)))) + _%g110408110419%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g110132110290%_ + (_%g110406110564%_ (gx#genident '$tgt))))) - (_%__kont110810110811%_ - (lambda (_%L109987%_) - (if (gx#underscore? _%L109987%_) - _%K109851%_ - (if (let ((__tmp110911 - (lambda (_%g109997109999%_) + (_%__kont111084111085%_ + (lambda (_%L110261%_) + (if (gx#underscore? _%L110261%_) + _%K110125%_ + (if (let ((__tmp111185 + (lambda (_%g110271110273%_) (gx#bound-identifier=? - _%g109997109999%_ - _%L109987%_))) - (__tmp110910 + _%g110271110273%_ + _%L110261%_))) + (__tmp111184 (gx#syntax->list - _%kws109853%_))) + _%kws110127%_))) (declare (not safe)) - (__find __tmp110911 - __tmp110910)) - (let* ((_%g110005110020%_ - (lambda (_%g110006110016%_) + (__find __tmp111185 + __tmp111184)) + (let* ((_%g110279110294%_ + (lambda (_%g110280110290%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110006110016%_))) - (_%g110004110066%_ - (lambda (_%g110006110024%_) + _%g110280110290%_))) + (_%g110278110340%_ + (lambda (_%g110280110298%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g110006110024%_) - (let ((_%e110009110027%_ - (gx#syntax-e _%g110006110024%_))) - (let ((_%hd110010110031%_ + _%g110280110298%_) + (let ((_%e110283110301%_ + (gx#syntax-e _%g110280110298%_))) + (let ((_%hd110284110305%_ (let () (declare (not safe)) - (##car _%e110009110027%_))) - (_%tl110011110034%_ + (##car _%e110283110301%_))) + (_%tl110285110308%_ (let () (declare (not safe)) - (##cdr _%e110009110027%_)))) - (if (gx#stx-pair? _%tl110011110034%_) - (let ((_%e110012110037%_ - (gx#syntax-e _%tl110011110034%_))) - (let ((_%hd110013110041%_ + (##cdr _%e110283110301%_)))) + (if (gx#stx-pair? _%tl110285110308%_) + (let ((_%e110286110311%_ + (gx#syntax-e _%tl110285110308%_))) + (let ((_%hd110287110315%_ (let () (declare (not safe)) - (##car _%e110012110037%_))) - (_%tl110014110044%_ + (##car _%e110286110311%_))) + (_%tl110288110318%_ (let () (declare (not safe)) - (##cdr _%e110012110037%_)))) - (if (gx#stx-null? _%tl110014110044%_) - ((lambda (_%L110047%_ _%L110049%_) + (##cdr _%e110286110311%_)))) + (if (gx#stx-null? _%tl110288110318%_) + ((lambda (_%L110321%_ _%L110323%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f @@ -610,85 +610,85 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '__AST-id?) - (cons _%L109870%_ '())) + (cons _%L110144%_ '())) (cons (cons (gx#datum->syntax '#f 'eq?) (cons (cons (gx#datum->syntax '#f '__AST-e) - (cons _%L109870%_ '())) + (cons _%L110144%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L109987%_ + (cons _%L110261%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) - (cons _%L110049%_ (cons _%L110047%_ '()))))) + (cons _%L110323%_ (cons _%L110321%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd110013110041%_ - _%hd110010110031%_) - (_%g110005110020%_ - _%g110006110024%_)))) - (_%g110005110020%_ _%g110006110024%_)))) - (_%g110005110020%_ _%g110006110024%_))))) - (_%g110004110066%_ (list _%K109851%_ _%E109852%_))) + _%hd110287110315%_ + _%hd110284110305%_) + (_%g110279110294%_ + _%g110280110298%_)))) + (_%g110279110294%_ _%g110280110298%_)))) + (_%g110279110294%_ _%g110280110298%_))))) + (_%g110278110340%_ (list _%K110125%_ _%E110126%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%g110072110080%_ - (lambda (_%g110073110076%_) + (let* ((_%g110346110354%_ + (lambda (_%g110347110350%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110073110076%_))) - (_%g110071110099%_ - (lambda (_%g110073110084%_) - ((lambda (_%L110087%_) + _%g110347110350%_))) + (_%g110345110373%_ + (lambda (_%g110347110358%_) + ((lambda (_%L110361%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L109987%_ - (cons _%L109870%_ '())) + (cons (cons (cons _%L110261%_ + (cons _%L110144%_ '())) '()) - (cons _%L110087%_ '())))) - _%g110073110084%_)))) - (_%g110071110099%_ _%K109851%_)))))) + (cons _%L110361%_ '())))) + _%g110347110358%_)))) + (_%g110345110373%_ _%K110125%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont110812110813%_ - (lambda (_%L109905%_) - (let* ((_%g109916109931%_ - (lambda (_%g109917109927%_) + (_%__kont111086111087%_ + (lambda (_%L110179%_) + (let* ((_%g110190110205%_ + (lambda (_%g110191110201%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g109917109927%_))) - (_%g109915109976%_ - (lambda (_%g109917109935%_) + _%g110191110201%_))) + (_%g110189110250%_ + (lambda (_%g110191110209%_) (if (gx#stx-pair? - _%g109917109935%_) - (let ((_%e109920109938%_ + _%g110191110209%_) + (let ((_%e110194110212%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g109917109935%_))) - (let ((_%hd109921109942%_ + (gx#syntax-e _%g110191110209%_))) + (let ((_%hd110195110216%_ (let () (declare (not safe)) - (##car _%e109920109938%_))) - (_%tl109922109945%_ + (##car _%e110194110212%_))) + (_%tl110196110219%_ (let () (declare (not safe)) - (##cdr _%e109920109938%_)))) - (if (gx#stx-pair? _%tl109922109945%_) - (let ((_%e109923109948%_ - (gx#syntax-e _%tl109922109945%_))) - (let ((_%hd109924109952%_ + (##cdr _%e110194110212%_)))) + (if (gx#stx-pair? _%tl110196110219%_) + (let ((_%e110197110222%_ + (gx#syntax-e _%tl110196110219%_))) + (let ((_%hd110198110226%_ (let () (declare (not safe)) - (##car _%e109923109948%_))) - (_%tl109925109955%_ + (##car _%e110197110222%_))) + (_%tl110199110229%_ (let () (declare (not safe)) - (##cdr _%e109923109948%_)))) - (if (gx#stx-null? _%tl109925109955%_) - ((lambda (_%L109958%_ _%L109960%_) + (##cdr _%e110197110222%_)))) + (if (gx#stx-null? _%tl110199110229%_) + ((lambda (_%L110232%_ _%L110234%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f @@ -697,524 +697,524 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '__AST-e) - (cons _%L109870%_ '())) + (cons _%L110144%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L109905%_ '())) + (cons _%L110179%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L109960%_ - (cons _%L109958%_ + (cons _%L110234%_ + (cons _%L110232%_ '()))))) - _%hd109924109952%_ - _%hd109921109942%_) - (_%g109916109931%_ _%g109917109935%_)))) - (_%g109916109931%_ _%g109917109935%_)))) - (_%g109916109931%_ _%g109917109935%_))))) + _%hd110198110226%_ + _%hd110195110216%_) + (_%g110190110205%_ _%g110191110209%_)))) + (_%g110190110205%_ _%g110191110209%_)))) + (_%g110190110205%_ _%g110191110209%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g109915109976%_ - (list _%K109851%_ - _%E109852%_)))))) - (let ((_%g109882110103%_ + (_%g110189110250%_ + (list _%K110125%_ + _%E110126%_)))))) + (let ((_%g110156110377%_ (lambda () - (let ((_%L109987%_ - _%__stx110805110806%_)) + (let ((_%L110261%_ + _%__stx111079111080%_)) (if (gx#identifier? - _%L109987%_) - (_%__kont110810110811%_ - _%L109987%_) - (_%__kont110812110813%_ - _%__stx110805110806%_)))))) - (if (gx#stx-pair? _%__stx110805110806%_) - (let ((_%e109888110110%_ + _%L110261%_) + (_%__kont111084111085%_ + _%L110261%_) + (_%__kont111086111087%_ + _%__stx111079111080%_)))))) + (if (gx#stx-pair? _%__stx111079111080%_) + (let ((_%e110162110384%_ (gx#syntax-e - _%__stx110805110806%_))) - (let ((_%tl109890110117%_ + _%__stx111079111080%_))) + (let ((_%tl110164110391%_ (let () (declare (not safe)) - (##cdr _%e109888110110%_))) - (_%hd109889110114%_ + (##cdr _%e110162110384%_))) + (_%hd110163110388%_ (let () (declare (not safe)) - (##car _%e109888110110%_)))) - (_%__kont110808110809%_ - _%tl109890110117%_ - _%hd109889110114%_))) + (##car _%e110162110384%_)))) + (_%__kont111082111083%_ + _%tl110164110391%_ + _%hd110163110388%_))) (let () (declare (not safe)) - (_%g109882110103%_))))))) - _%g109856109867%_)))) - (_%g109854110298%_ _%tgt109850%_))))) - (let* ((_%g109310109338%_ - (lambda (_%g109311109334%_) + (_%g110156110377%_))))))) + _%g110130110141%_)))) + (_%g110128110572%_ _%tgt110124%_))))) + (let* ((_%g109584109612%_ + (lambda (_%g109585109608%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g109311109334%_))) - (_%g109309109844%_ - (lambda (_%g109311109342%_) - (if (gx#stx-pair? _%g109311109342%_) - (let ((_%e109315109345%_ - (gx#syntax-e _%g109311109342%_))) - (let ((_%hd109316109349%_ + _%g109585109608%_))) + (_%g109583110118%_ + (lambda (_%g109585109616%_) + (if (gx#stx-pair? _%g109585109616%_) + (let ((_%e109589109619%_ + (gx#syntax-e _%g109585109616%_))) + (let ((_%hd109590109623%_ (let () (declare (not safe)) - (##car _%e109315109345%_))) - (_%tl109317109352%_ + (##car _%e109589109619%_))) + (_%tl109591109626%_ (let () (declare (not safe)) - (##cdr _%e109315109345%_)))) - (if (gx#stx-pair? _%tl109317109352%_) - (let ((_%e109318109355%_ - (gx#syntax-e _%tl109317109352%_))) - (let ((_%hd109319109359%_ + (##cdr _%e109589109619%_)))) + (if (gx#stx-pair? _%tl109591109626%_) + (let ((_%e109592109629%_ + (gx#syntax-e _%tl109591109626%_))) + (let ((_%hd109593109633%_ (let () (declare (not safe)) - (##car _%e109318109355%_))) - (_%tl109320109362%_ + (##car _%e109592109629%_))) + (_%tl109594109636%_ (let () (declare (not safe)) - (##cdr _%e109318109355%_)))) - (if (gx#stx-pair? _%tl109320109362%_) - (let ((_%e109321109365%_ + (##cdr _%e109592109629%_)))) + (if (gx#stx-pair? _%tl109594109636%_) + (let ((_%e109595109639%_ (gx#syntax-e - _%tl109320109362%_))) - (let ((_%hd109322109369%_ + _%tl109594109636%_))) + (let ((_%hd109596109643%_ (let () (declare (not safe)) - (##car _%e109321109365%_))) - (_%tl109323109372%_ + (##car _%e109595109639%_))) + (_%tl109597109646%_ (let () (declare (not safe)) - (##cdr _%e109321109365%_)))) + (##cdr _%e109595109639%_)))) (if (gx#stx-pair/null? - _%tl109323109372%_) - (let ((_g110912_ + _%tl109597109646%_) + (let ((_g111186_ (gx#syntax-split-splice - _%tl109323109372%_ + _%tl109597109646%_ '0))) (begin - (let ((_g110913_ + (let ((_g111187_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g110912_) - (##vector-length _g110912_) + _g111186_) + (##vector-length _g111186_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g110913_ 2))) - (error "Context expects 2 values" _g110913_))) + (if (not (let () (declare (not safe)) (##fx= _g111187_ 2))) + (error "Context expects 2 values" _g111187_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target109324109375%_ + (let ((_%target109598109649%_ (let () (declare (not safe)) (##vector-ref - _g110912_ + _g111186_ 0))) - (_%tl109326109378%_ + (_%tl109600109652%_ (let () (declare (not safe)) (##vector-ref - _g110912_ + _g111186_ 1)))) (if (gx#stx-null? - _%tl109326109378%_) - (letrec ((_%loop109327109381%_ + _%tl109600109652%_) + (letrec ((_%loop109601109655%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd109325109385%_ _%clause109331109388%_) - (if (gx#stx-pair? _%hd109325109385%_) - (let ((_%e109328109391%_ - (gx#syntax-e _%hd109325109385%_))) - (let ((_%lp-hd109329109395%_ + (lambda (_%hd109599109659%_ _%clause109605109662%_) + (if (gx#stx-pair? _%hd109599109659%_) + (let ((_%e109602109665%_ + (gx#syntax-e _%hd109599109659%_))) + (let ((_%lp-hd109603109669%_ (let () (declare (not safe)) - (##car _%e109328109391%_))) - (_%lp-tl109330109398%_ + (##car _%e109602109665%_))) + (_%lp-tl109604109672%_ (let () (declare (not safe)) - (##cdr _%e109328109391%_)))) - (_%loop109327109381%_ - _%lp-tl109330109398%_ - (cons _%lp-hd109329109395%_ - _%clause109331109388%_)))) - (let ((_%clause109332109401%_ - (reverse _%clause109331109388%_))) - ((lambda (_%L109405%_ - _%L109407%_ - _%L109408%_) - (let _%recur109430%_ ((_%rest109433%_ - (let ((__tmp110916 + (##cdr _%e109602109665%_)))) + (_%loop109601109655%_ + _%lp-tl109604109672%_ + (cons _%lp-hd109603109669%_ + _%clause109605109662%_)))) + (let ((_%clause109606109675%_ + (reverse _%clause109605109662%_))) + ((lambda (_%L109679%_ + _%L109681%_ + _%L109682%_) + (let _%recur109704%_ ((_%rest109707%_ + (let ((__tmp111190 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g109835109838%_ _%g109836109841%_) - (cons _%g109835109838%_ _%g109836109841%_)))) + (lambda (_%g110109110112%_ _%g110110110115%_) + (cons _%g110109110112%_ _%g110110110115%_)))) (declare (not safe)) - (__foldr1 __tmp110916 '() _%L109405%_)))) + (__foldr1 __tmp111190 '() _%L109679%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%rest109435109444%_ - _%rest109433%_) - (_%E109438109450%_ + (let* ((_%rest109709109718%_ + _%rest109707%_) + (_%E109712109724%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest109435109444%_ + _%rest109709109718%_ '([hd . rest]) '([]))) '#!void))) - (let ((_%K109440109820%_ - (lambda (_%rest109466%_ - _%hd109468%_) - (let* ((_%g109470109478%_ - (lambda (_%g109471109474%_) + (let ((_%K109714110094%_ + (lambda (_%rest109740%_ + _%hd109742%_) + (let* ((_%g109744109752%_ + (lambda (_%g109745109748%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g109471109474%_))) - (_%g109469109816%_ - (lambda (_%g109471109482%_) - ((lambda (_%L109485%_) + _%g109745109748%_))) + (_%g109743110090%_ + (lambda (_%g109745109756%_) + ((lambda (_%L109759%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g109503109511%_ - (lambda (_%g109504109507%_) + (let* ((_%g109777109785%_ + (lambda (_%g109778109781%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g109504109507%_))) - (_%g109502109812%_ - (lambda (_%g109504109515%_) - ((lambda (_%L109518%_) - (let* ((_%g109531109539%_ - (lambda (_%g109532109535%_) + _%g109778109781%_))) + (_%g109776110086%_ + (lambda (_%g109778109789%_) + ((lambda (_%L109792%_) + (let* ((_%g109805109813%_ + (lambda (_%g109806109809%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g109532109535%_))) - (_%g109530109808%_ - (lambda (_%g109532109543%_) - ((lambda (_%L109546%_) - (let* ((_%g109559109567%_ - (lambda (_%g109560109563%_) + _%g109806109809%_))) + (_%g109804110082%_ + (lambda (_%g109806109817%_) + ((lambda (_%L109820%_) + (let* ((_%g109833109841%_ + (lambda (_%g109834109837%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g109560109563%_))) - (_%g109558109589%_ - (lambda (_%g109560109571%_) - ((lambda (_%L109574%_) + _%g109834109837%_))) + (_%g109832109863%_ + (lambda (_%g109834109845%_) + ((lambda (_%L109848%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let) - (cons (cons _%L109485%_ + (cons (cons _%L109759%_ (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _%L109546%_ + (cons _%L109820%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons _%L109574%_ '())))) - _%g109560109571%_)))) + (cons _%L109848%_ '())))) + _%g109834109845%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g109558109589%_ - (let* ((_%__stx110823110824%_ - _%hd109468%_) - (_%g109595109635%_ + (_%g109832109863%_ + (let* ((_%__stx111097111098%_ + _%hd109742%_) + (_%g109869109909%_ (lambda () (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%__stx110823110824%_)))) - (let ((_%__kont110826110827%_ - (lambda (_%L109781%_) + _%__stx111097111098%_)))) + (let ((_%__kont111100111101%_ + (lambda (_%L110055%_) (cons (gx#datum->syntax '#f 'begin) - (let ((__tmp110914 - (lambda (_%g109795109798%_ - _%g109796109801%_) - (cons _%g109795109798%_ - _%g109796109801%_)))) + (let ((__tmp111188 + (lambda (_%g110069110072%_ + _%g110070110075%_) + (cons _%g110069110072%_ + _%g110070110075%_)))) (declare (not safe)) - (__foldr1 __tmp110914 '() _%L109781%_))))) - (_%__kont110830110831%_ - (lambda (_%L109719%_ _%L109721%_) - (_%generate1109307%_ - _%L109721%_ - _%L109408%_ - _%L109719%_ - _%L109518%_ - _%L109407%_))) - (_%__kont110832110833%_ - (lambda (_%L109672%_ _%L109674%_ _%L109675%_) - (_%generate1109307%_ - _%L109675%_ - _%L109408%_ + (__foldr1 __tmp111188 '() _%L110055%_))))) + (_%__kont111104111105%_ + (lambda (_%L109993%_ _%L109995%_) + (_%generate1109581%_ + _%L109995%_ + _%L109682%_ + _%L109993%_ + _%L109792%_ + _%L109681%_))) + (_%__kont111106111107%_ + (lambda (_%L109946%_ _%L109948%_ _%L109949%_) + (_%generate1109581%_ + _%L109949%_ + _%L109682%_ (cons (gx#datum->syntax '#f 'if) - (cons _%L109674%_ - (cons _%L109672%_ - (cons _%L109518%_ '())))) - _%L109518%_ - _%L109407%_)))) - (let ((_%__match110852110853%_ - (lambda (_%e109598109741%_ - _%hd109599109745%_ - _%tl109600109748%_ - _%__splice110828110829%_ - _%target109601109751%_ - _%tl109603109754%_) - (letrec ((_%loop109604109757%_ - (lambda (_%hd109602109761%_ - _%expr109608109764%_) - (if (gx#stx-pair? _%hd109602109761%_) - (let ((_%e109605109767%_ + (cons _%L109948%_ + (cons _%L109946%_ + (cons _%L109792%_ '())))) + _%L109792%_ + _%L109681%_)))) + (let ((_%__match111126111127%_ + (lambda (_%e109872110015%_ + _%hd109873110019%_ + _%tl109874110022%_ + _%__splice111102111103%_ + _%target109875110025%_ + _%tl109877110028%_) + (letrec ((_%loop109878110031%_ + (lambda (_%hd109876110035%_ + _%expr109882110038%_) + (if (gx#stx-pair? _%hd109876110035%_) + (let ((_%e109879110041%_ (gx#syntax-e - _%hd109602109761%_))) - (let ((_%lp-tl109607109774%_ + _%hd109876110035%_))) + (let ((_%lp-tl109881110048%_ (let () (declare (not safe)) - (##cdr _%e109605109767%_))) - (_%lp-hd109606109771%_ + (##cdr _%e109879110041%_))) + (_%lp-hd109880110045%_ (let () (declare (not safe)) - (##car _%e109605109767%_)))) - (_%loop109604109757%_ - _%lp-tl109607109774%_ - (cons _%lp-hd109606109771%_ - _%expr109608109764%_)))) - (let ((_%expr109609109777%_ - (reverse _%expr109608109764%_))) - (_%__kont110826110827%_ - _%expr109609109777%_)))))) - (_%loop109604109757%_ - _%target109601109751%_ + (##car _%e109879110041%_)))) + (_%loop109878110031%_ + _%lp-tl109881110048%_ + (cons _%lp-hd109880110045%_ + _%expr109882110038%_)))) + (let ((_%expr109883110051%_ + (reverse _%expr109882110038%_))) + (_%__kont111100111101%_ + _%expr109883110051%_)))))) + (_%loop109878110031%_ + _%target109875110025%_ '()))))) - (if (gx#stx-pair? _%__stx110823110824%_) - (let ((_%e109598109741%_ - (gx#syntax-e _%__stx110823110824%_))) - (let ((_%tl109600109748%_ + (if (gx#stx-pair? _%__stx111097111098%_) + (let ((_%e109872110015%_ + (gx#syntax-e _%__stx111097111098%_))) + (let ((_%tl109874110022%_ (let () (declare (not safe)) - (##cdr _%e109598109741%_))) - (_%hd109599109745%_ + (##cdr _%e109872110015%_))) + (_%hd109873110019%_ (let () (declare (not safe)) - (##car _%e109598109741%_)))) - (if (gx#identifier? _%hd109599109745%_) + (##car _%e109872110015%_)))) + (if (gx#identifier? _%hd109873110019%_) (if (gx#free-identifier=? - |[1]#_g110915_| - _%hd109599109745%_) - (if (gx#stx-pair/null? _%tl109600109748%_) - (let ((_%__splice110828110829%_ + |[1]#_g111189_| + _%hd109873110019%_) + (if (gx#stx-pair/null? _%tl109874110022%_) + (let ((_%__splice111102111103%_ (gx#syntax-split-splice - _%tl109600109748%_ + _%tl109874110022%_ '0))) - (let ((_%tl109603109754%_ + (let ((_%tl109877110028%_ (let () (declare (not safe)) (##vector-ref - _%__splice110828110829%_ + _%__splice111102111103%_ '1))) - (_%target109601109751%_ + (_%target109875110025%_ (let () (declare (not safe)) (##vector-ref - _%__splice110828110829%_ + _%__splice111102111103%_ '0)))) (if (gx#stx-null? - _%tl109603109754%_) - (_%__match110852110853%_ - _%e109598109741%_ - _%hd109599109745%_ - _%tl109600109748%_ - _%__splice110828110829%_ - _%target109601109751%_ - _%tl109603109754%_) + _%tl109877110028%_) + (_%__match111126111127%_ + _%e109872110015%_ + _%hd109873110019%_ + _%tl109874110022%_ + _%__splice111102111103%_ + _%target109875110025%_ + _%tl109877110028%_) (if (gx#stx-pair? - _%tl109600109748%_) - (let ((_%e109615109709%_ + _%tl109874110022%_) + (let ((_%e109889109983%_ (gx#syntax-e - _%tl109600109748%_))) - (let ((_%tl109617109716%_ + _%tl109874110022%_))) + (let ((_%tl109891109990%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e109615109709%_))) - (_%hd109616109713%_ - (let () (declare (not safe)) (##car _%e109615109709%_)))) - (if (gx#stx-null? _%tl109617109716%_) - (_%__kont110830110831%_ - _%hd109616109713%_ - _%hd109599109745%_) - (if (gx#stx-pair? _%tl109617109716%_) - (let ((_%e109627109662%_ - (gx#syntax-e _%tl109617109716%_))) - (let ((_%tl109629109669%_ + (##cdr _%e109889109983%_))) + (_%hd109890109987%_ + (let () (declare (not safe)) (##car _%e109889109983%_)))) + (if (gx#stx-null? _%tl109891109990%_) + (_%__kont111104111105%_ + _%hd109890109987%_ + _%hd109873110019%_) + (if (gx#stx-pair? _%tl109891109990%_) + (let ((_%e109901109936%_ + (gx#syntax-e _%tl109891109990%_))) + (let ((_%tl109903109943%_ (let () (declare (not safe)) - (##cdr _%e109627109662%_))) - (_%hd109628109666%_ + (##cdr _%e109901109936%_))) + (_%hd109902109940%_ (let () (declare (not safe)) - (##car _%e109627109662%_)))) - (if (gx#stx-null? _%tl109629109669%_) - (_%__kont110832110833%_ - _%hd109628109666%_ - _%hd109616109713%_ - _%hd109599109745%_) + (##car _%e109901109936%_)))) + (if (gx#stx-null? _%tl109903109943%_) + (_%__kont111106111107%_ + _%hd109902109940%_ + _%hd109890109987%_ + _%hd109873110019%_) (let () (declare (not safe)) - (_%g109595109635%_))))) - (let () (declare (not safe)) (_%g109595109635%_)))))) + (_%g109869109909%_))))) + (let () (declare (not safe)) (_%g109869109909%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g109595109635%_)))))) - (if (gx#stx-pair? _%tl109600109748%_) - (let ((_%e109615109709%_ + (_%g109869109909%_)))))) + (if (gx#stx-pair? _%tl109874110022%_) + (let ((_%e109889109983%_ (gx#syntax-e - _%tl109600109748%_))) - (let ((_%tl109617109716%_ + _%tl109874110022%_))) + (let ((_%tl109891109990%_ (let () (declare (not safe)) - (##cdr _%e109615109709%_))) - (_%hd109616109713%_ + (##cdr _%e109889109983%_))) + (_%hd109890109987%_ (let () (declare (not safe)) - (##car _%e109615109709%_)))) + (##car _%e109889109983%_)))) (if (gx#stx-null? - _%tl109617109716%_) - (_%__kont110830110831%_ - _%hd109616109713%_ - _%hd109599109745%_) + _%tl109891109990%_) + (_%__kont111104111105%_ + _%hd109890109987%_ + _%hd109873110019%_) (if (gx#stx-pair? - _%tl109617109716%_) - (let ((_%e109627109662%_ + _%tl109891109990%_) + (let ((_%e109901109936%_ (gx#syntax-e - _%tl109617109716%_))) - (let ((_%tl109629109669%_ + _%tl109891109990%_))) + (let ((_%tl109903109943%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##cdr _%e109627109662%_))) - (_%hd109628109666%_ + (##cdr _%e109901109936%_))) + (_%hd109902109940%_ (let () (declare (not safe)) - (##car _%e109627109662%_)))) - (if (gx#stx-null? _%tl109629109669%_) - (_%__kont110832110833%_ - _%hd109628109666%_ - _%hd109616109713%_ - _%hd109599109745%_) - (let () (declare (not safe)) (_%g109595109635%_))))) - (let () (declare (not safe)) (_%g109595109635%_)))))) + (##car _%e109901109936%_)))) + (if (gx#stx-null? _%tl109903109943%_) + (_%__kont111106111107%_ + _%hd109902109940%_ + _%hd109890109987%_ + _%hd109873110019%_) + (let () (declare (not safe)) (_%g109869109909%_))))) + (let () (declare (not safe)) (_%g109869109909%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g109595109635%_)))) - (if (gx#stx-pair? _%tl109600109748%_) - (let ((_%e109615109709%_ + (_%g109869109909%_)))) + (if (gx#stx-pair? _%tl109874110022%_) + (let ((_%e109889109983%_ (gx#syntax-e - _%tl109600109748%_))) - (let ((_%tl109617109716%_ + _%tl109874110022%_))) + (let ((_%tl109891109990%_ (let () (declare (not safe)) - (##cdr _%e109615109709%_))) - (_%hd109616109713%_ + (##cdr _%e109889109983%_))) + (_%hd109890109987%_ (let () (declare (not safe)) - (##car _%e109615109709%_)))) + (##car _%e109889109983%_)))) (if (gx#stx-null? - _%tl109617109716%_) - (_%__kont110830110831%_ - _%hd109616109713%_ - _%hd109599109745%_) + _%tl109891109990%_) + (_%__kont111104111105%_ + _%hd109890109987%_ + _%hd109873110019%_) (if (gx#stx-pair? - _%tl109617109716%_) - (let ((_%e109627109662%_ + _%tl109891109990%_) + (let ((_%e109901109936%_ (gx#syntax-e - _%tl109617109716%_))) - (let ((_%tl109629109669%_ + _%tl109891109990%_))) + (let ((_%tl109903109943%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e109627109662%_))) - (_%hd109628109666%_ - (let () (declare (not safe)) (##car _%e109627109662%_)))) - (if (gx#stx-null? _%tl109629109669%_) - (_%__kont110832110833%_ - _%hd109628109666%_ - _%hd109616109713%_ - _%hd109599109745%_) - (let () (declare (not safe)) (_%g109595109635%_))))) + (##cdr _%e109901109936%_))) + (_%hd109902109940%_ + (let () (declare (not safe)) (##car _%e109901109936%_)))) + (if (gx#stx-null? _%tl109903109943%_) + (_%__kont111106111107%_ + _%hd109902109940%_ + _%hd109890109987%_ + _%hd109873110019%_) + (let () (declare (not safe)) (_%g109869109909%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g109595109635%_)))))) + (_%g109869109909%_)))))) (let () (declare (not safe)) - (_%g109595109635%_)))) - (if (gx#stx-pair? _%tl109600109748%_) - (let ((_%e109615109709%_ - (gx#syntax-e _%tl109600109748%_))) - (let ((_%tl109617109716%_ + (_%g109869109909%_)))) + (if (gx#stx-pair? _%tl109874110022%_) + (let ((_%e109889109983%_ + (gx#syntax-e _%tl109874110022%_))) + (let ((_%tl109891109990%_ (let () (declare (not safe)) - (##cdr _%e109615109709%_))) - (_%hd109616109713%_ + (##cdr _%e109889109983%_))) + (_%hd109890109987%_ (let () (declare (not safe)) - (##car _%e109615109709%_)))) - (if (gx#stx-null? _%tl109617109716%_) - (_%__kont110830110831%_ - _%hd109616109713%_ - _%hd109599109745%_) + (##car _%e109889109983%_)))) + (if (gx#stx-null? _%tl109891109990%_) + (_%__kont111104111105%_ + _%hd109890109987%_ + _%hd109873110019%_) (if (gx#stx-pair? - _%tl109617109716%_) - (let ((_%e109627109662%_ + _%tl109891109990%_) + (let ((_%e109901109936%_ (gx#syntax-e - _%tl109617109716%_))) - (let ((_%tl109629109669%_ + _%tl109891109990%_))) + (let ((_%tl109903109943%_ (let () (declare (not safe)) - (##cdr _%e109627109662%_))) - (_%hd109628109666%_ + (##cdr _%e109901109936%_))) + (_%hd109902109940%_ (let () (declare (not safe)) - (##car _%e109627109662%_)))) + (##car _%e109901109936%_)))) (if (gx#stx-null? - _%tl109629109669%_) - (_%__kont110832110833%_ - _%hd109628109666%_ - _%hd109616109713%_ - _%hd109599109745%_) + _%tl109903109943%_) + (_%__kont111106111107%_ + _%hd109902109940%_ + _%hd109890109987%_ + _%hd109873110019%_) (let () (declare (not safe)) - (_%g109595109635%_))))) + (_%g109869109909%_))))) (let () (declare (not safe)) - (_%g109595109635%_)))))) + (_%g109869109909%_)))))) (let () (declare (not safe)) - (_%g109595109635%_)))))) + (_%g109869109909%_)))))) (let () (declare (not safe)) - (_%g109595109635%_))))))))) + (_%g109869109909%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g109532109543%_)))) - (_%g109530109808%_ - (_%recur109430%_ _%rest109466%_)))) - _%g109504109515%_)))) - (_%g109502109812%_ (cons _%L109485%_ '())))) - _%g109471109482%_)))) - (_%g109469109816%_ (gx#genident '$E))))) + _%g109806109817%_)))) + (_%g109804110082%_ + (_%recur109704%_ _%rest109740%_)))) + _%g109778109789%_)))) + (_%g109776110086%_ (cons _%L109759%_ '())))) + _%g109745109756%_)))) + (_%g109743110090%_ (gx#genident '$E))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K109439109458%_ + (_%K109713109732%_ (lambda () (cons (gx#datum->syntax '#f @@ -1222,52 +1222,52 @@ (cons '#f (cons '"Bad syntax; malformed ast clause" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L109408%_ '()))))))) + (cons _%L109682%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%try-match109437109462%_ + (let ((_%try-match109711109736%_ (lambda () (if (let () (declare (not safe)) - (##null? _%rest109435109444%_)) - (_%K109439109458%_) - (_%E109438109450%_))))) + (##null? _%rest109709109718%_)) + (_%K109713109732%_) + (_%E109712109724%_))))) (if (let () (declare (not safe)) - (##pair? _%rest109435109444%_)) - (let ((_%tl109442109827%_ + (##pair? _%rest109709109718%_)) + (let ((_%tl109716110101%_ (let () (declare (not safe)) - (##cdr _%rest109435109444%_))) - (_%hd109441109824%_ + (##cdr _%rest109709109718%_))) + (_%hd109715110098%_ (let () (declare (not safe)) - (##car _%rest109435109444%_)))) - (let ((_%hd109830%_ - _%hd109441109824%_) - (_%rest109833%_ - _%tl109442109827%_)) - (_%K109440109820%_ - _%rest109833%_ - _%hd109830%_))) - (_%try-match109437109462%_))))))) - _%clause109332109401%_ - _%hd109322109369%_ - _%hd109319109359%_)))))) - (_%loop109327109381%_ _%target109324109375%_ '())) - (_%g109310109338%_ _%g109311109342%_))))) + (##car _%rest109709109718%_)))) + (let ((_%hd110104%_ + _%hd109715110098%_) + (_%rest110107%_ + _%tl109716110101%_)) + (_%K109714110094%_ + _%rest110107%_ + _%hd110104%_))) + (_%try-match109711109736%_))))))) + _%clause109606109675%_ + _%hd109596109643%_ + _%hd109593109633%_)))))) + (_%loop109601109655%_ _%target109598109649%_ '())) + (_%g109584109612%_ _%g109585109616%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g109310109338%_ - _%g109311109342%_)))) - (_%g109310109338%_ - _%g109311109342%_)))) - (_%g109310109338%_ _%g109311109342%_)))) - (_%g109310109338%_ _%g109311109342%_))))) - (_%g109309109844%_ _%stx109304%_))))) + (_%g109584109612%_ + _%g109585109616%_)))) + (_%g109584109612%_ + _%g109585109616%_)))) + (_%g109584109612%_ _%g109585109616%_)))) + (_%g109584109612%_ _%g109585109616%_))))) + (_%g109583110118%_ _%stx109578%_))))) (define |[:0:]#SyntaxError| - (let ((__obj110898 + (let ((__obj111172 (let () (declare (not safe)) (##structure @@ -1296,18 +1296,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110898 + __obj111172 'gerbil/runtime/syntax#SyntaxError::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110898 'SyntaxError '2 '#f '#f)) + (##unchecked-structure-set! __obj111172 'SyntaxError '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj110898 + __obj111172 '(message irritants where context phi marks) '4 '#f @@ -1315,99 +1315,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110898 + __obj111172 '(continuation message irritants where context phi marks) '6 '#f '#f)) - (let ((__tmp110917 (cons |[1]#_g110918_| (cons |[1]#_g110919_| '())))) + (let ((__tmp111191 (cons |[1]#_g111192_| (cons |[1]#_g111193_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj110898 __tmp110917 '3 '#f '#f)) + (##unchecked-structure-set! __obj111172 __tmp111191 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110898 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj111172 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110898 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj111172 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110898 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj111172 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110898 '#f '11 '#f '#f)) - (let ((__tmp110920 |[1]#_g110921_|)) + (##unchecked-structure-set! __obj111172 '#f '11 '#f '#f)) + (let ((__tmp111194 |[1]#_g111195_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110898 __tmp110920 '12 '#f '#f)) - (let ((__tmp110922 |[1]#_g110923_|)) + (##unchecked-structure-set! __obj111172 __tmp111194 '12 '#f '#f)) + (let ((__tmp111196 |[1]#_g111197_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110898 __tmp110922 '13 '#f '#f)) - (let ((__tmp110924 |[1]#_g110925_|)) + (##unchecked-structure-set! __obj111172 __tmp111196 '13 '#f '#f)) + (let ((__tmp111198 |[1]#_g111199_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110898 __tmp110924 '14 '#f '#f)) - (let ((__tmp110926 - (cons (cons 'message |[1]#_g110927_|) - (cons (cons 'irritants |[1]#_g110928_|) - (cons (cons 'where |[1]#_g110929_|) - (cons (cons 'context |[1]#_g110930_|) - (cons (cons 'phi |[1]#_g110931_|) + (##unchecked-structure-set! __obj111172 __tmp111198 '14 '#f '#f)) + (let ((__tmp111200 + (cons (cons 'message |[1]#_g111201_|) + (cons (cons 'irritants |[1]#_g111202_|) + (cons (cons 'where |[1]#_g111203_|) + (cons (cons 'context |[1]#_g111204_|) + (cons (cons 'phi |[1]#_g111205_|) (cons (cons 'marks - |[1]#_g110932_|) + |[1]#_g111206_|) (cons (cons 'continuation - |[1]#_g110933_|) + |[1]#_g111207_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj110898 __tmp110926 '15 '#f '#f)) - (let ((__tmp110934 - (cons (cons 'message |[1]#_g110935_|) - (cons (cons 'irritants |[1]#_g110936_|) - (cons (cons 'where |[1]#_g110937_|) - (cons (cons 'context |[1]#_g110938_|) - (cons (cons 'phi |[1]#_g110939_|) + (##unchecked-structure-set! __obj111172 __tmp111200 '15 '#f '#f)) + (let ((__tmp111208 + (cons (cons 'message |[1]#_g111209_|) + (cons (cons 'irritants |[1]#_g111210_|) + (cons (cons 'where |[1]#_g111211_|) + (cons (cons 'context |[1]#_g111212_|) + (cons (cons 'phi |[1]#_g111213_|) (cons (cons 'marks - |[1]#_g110940_|) + |[1]#_g111214_|) (cons (cons 'continuation - |[1]#_g110941_|) + |[1]#_g111215_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj110898 __tmp110934 '16 '#f '#f)) - (let ((__tmp110942 - (cons (cons 'message |[1]#_g110943_|) - (cons (cons 'irritants |[1]#_g110944_|) - (cons (cons 'where |[1]#_g110945_|) - (cons (cons 'context |[1]#_g110946_|) - (cons (cons 'phi |[1]#_g110947_|) + (##unchecked-structure-set! __obj111172 __tmp111208 '16 '#f '#f)) + (let ((__tmp111216 + (cons (cons 'message |[1]#_g111217_|) + (cons (cons 'irritants |[1]#_g111218_|) + (cons (cons 'where |[1]#_g111219_|) + (cons (cons 'context |[1]#_g111220_|) + (cons (cons 'phi |[1]#_g111221_|) (cons (cons 'marks - |[1]#_g110948_|) + |[1]#_g111222_|) (cons (cons 'continuation - |[1]#_g110949_|) + |[1]#_g111223_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj110898 __tmp110942 '17 '#f '#f)) - (let ((__tmp110950 - (cons (cons 'message |[1]#_g110951_|) - (cons (cons 'irritants |[1]#_g110952_|) - (cons (cons 'where |[1]#_g110953_|) - (cons (cons 'context |[1]#_g110954_|) - (cons (cons 'phi |[1]#_g110955_|) + (##unchecked-structure-set! __obj111172 __tmp111216 '17 '#f '#f)) + (let ((__tmp111224 + (cons (cons 'message |[1]#_g111225_|) + (cons (cons 'irritants |[1]#_g111226_|) + (cons (cons 'where |[1]#_g111227_|) + (cons (cons 'context |[1]#_g111228_|) + (cons (cons 'phi |[1]#_g111229_|) (cons (cons 'marks - |[1]#_g110956_|) + |[1]#_g111230_|) (cons (cons 'continuation - |[1]#_g110957_|) + |[1]#_g111231_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj110898 __tmp110950 '18 '#f '#f)) + (##unchecked-structure-set! __obj111172 __tmp111224 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110898 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj111172 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110898 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj111172 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110898 '() '20 '#f '#f)) - __obj110898)) + (##unchecked-structure-set! __obj111172 '() '20 '#f '#f)) + __obj111172)) (define |[:0:]#AST| - (let ((__obj110900 + (let ((__obj111174 (let () (declare (not safe)) (##structure @@ -1435,67 +1435,67 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110900 'gerbil#AST::t '1 '#f '#f)) + (##unchecked-structure-set! __obj111174 'gerbil#AST::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110900 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj111174 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110900 '(e source) '4 '#f '#f)) + (##unchecked-structure-set! __obj111174 '(e source) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110900 '(e source) '6 '#f '#f)) + (##unchecked-structure-set! __obj111174 '(e source) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110900 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj111174 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110900 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj111174 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110900 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj111174 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110900 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj111174 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110900 '#f '11 '#f '#f)) - (let ((__tmp110958 |[1]#_g110959_|)) + (##unchecked-structure-set! __obj111174 '#f '11 '#f '#f)) + (let ((__tmp111232 |[1]#_g111233_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110900 __tmp110958 '12 '#f '#f)) - (let ((__tmp110960 |[1]#_g110961_|)) + (##unchecked-structure-set! __obj111174 __tmp111232 '12 '#f '#f)) + (let ((__tmp111234 |[1]#_g111235_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110900 __tmp110960 '13 '#f '#f)) - (let ((__tmp110962 |[1]#_g110963_|)) + (##unchecked-structure-set! __obj111174 __tmp111234 '13 '#f '#f)) + (let ((__tmp111236 |[1]#_g111237_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110900 __tmp110962 '14 '#f '#f)) - (let ((__tmp110964 - (cons (cons 'e |[1]#_g110965_|) - (cons (cons 'source |[1]#_g110966_|) '())))) + (##unchecked-structure-set! __obj111174 __tmp111236 '14 '#f '#f)) + (let ((__tmp111238 + (cons (cons 'e |[1]#_g111239_|) + (cons (cons 'source |[1]#_g111240_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj110900 __tmp110964 '15 '#f '#f)) - (let ((__tmp110967 - (cons (cons 'e |[1]#_g110968_|) - (cons (cons 'source |[1]#_g110969_|) '())))) + (##unchecked-structure-set! __obj111174 __tmp111238 '15 '#f '#f)) + (let ((__tmp111241 + (cons (cons 'e |[1]#_g111242_|) + (cons (cons 'source |[1]#_g111243_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj110900 __tmp110967 '16 '#f '#f)) - (let ((__tmp110970 - (cons (cons 'e |[1]#_g110971_|) - (cons (cons 'source |[1]#_g110972_|) '())))) + (##unchecked-structure-set! __obj111174 __tmp111241 '16 '#f '#f)) + (let ((__tmp111244 + (cons (cons 'e |[1]#_g111245_|) + (cons (cons 'source |[1]#_g111246_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj110900 __tmp110970 '17 '#f '#f)) - (let ((__tmp110973 - (cons (cons 'e |[1]#_g110974_|) - (cons (cons 'source |[1]#_g110975_|) '())))) + (##unchecked-structure-set! __obj111174 __tmp111244 '17 '#f '#f)) + (let ((__tmp111247 + (cons (cons 'e |[1]#_g111248_|) + (cons (cons 'source |[1]#_g111249_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj110900 __tmp110973 '18 '#f '#f)) + (##unchecked-structure-set! __obj111174 __tmp111247 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110900 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj111174 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110900 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj111174 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110900 '() '20 '#f '#f)) - __obj110900)))) + (##unchecked-structure-set! __obj111174 '() '20 '#f '#f)) + __obj111174)))) diff --git a/src/bootstrap/gerbil/runtime/system~0.scm b/src/bootstrap/gerbil/runtime/system~0.scm index 51ac81d25..398ca5a02 100644 --- a/src/bootstrap/gerbil/runtime/system~0.scm +++ b/src/bootstrap/gerbil/runtime/system~0.scm @@ -1,18 +1,18 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/system::timestamp 1713044314) + (define gerbil/runtime/system::timestamp 1713454409) (begin - (define gerbil-version-string (lambda () '"v0.18.1-104-g01eec2b8e")) + (define gerbil-version-string (lambda () '"v0.18.1-110-g2544c9061")) (define gerbil-system-manifest (cons (cons '"Gerbil" (gerbil-version-string)) (cons (cons '"Gambit" (system-version-string)) '()))) (define __build-manifest gerbil-system-manifest) (define build-manifest (lambda () __build-manifest)) (define build-manifest-set! - (lambda (_%new-value93005%_) - (if (list? _%new-value93005%_) - (let ((_%new-value93009%_ _%new-value93005%_)) - (__build-manifest-set! _%new-value93009%_)) + (lambda (_%new-value93279%_) + (if (list? _%new-value93279%_) + (let ((_%new-value93283%_ _%new-value93279%_)) + (__build-manifest-set! _%new-value93283%_)) (begin (raise-contract-violation-error '"contract violation" @@ -21,21 +21,21 @@ 'contract: 'list? 'value: - _%new-value93005%_) + _%new-value93279%_) '#!void)))) (define __build-manifest-set! - (lambda (_%new-value92992%_) - (let ((_%new-value92996%_ _%new-value92992%_)) - (set! __build-manifest _%new-value92996%_)))) + (lambda (_%new-value93266%_) + (let ((_%new-value93270%_ _%new-value93266%_)) + (set! __build-manifest _%new-value93270%_)))) (define display-build-manifest__% - (lambda (_%manifest92952%_ _%port92953%_) - (if (list? _%manifest92952%_) - (let ((_%manifest92957%_ _%manifest92952%_)) - (if (port? _%port92953%_) - (let ((_%port92967%_ _%port92953%_)) + (lambda (_%manifest93226%_ _%port93227%_) + (if (list? _%manifest93226%_) + (let ((_%manifest93231%_ _%manifest93226%_)) + (if (port? _%port93227%_) + (let ((_%port93241%_ _%port93227%_)) (__display-build-manifest__% - _%manifest92957%_ - _%port92967%_)) + _%manifest93231%_ + _%port93241%_)) (begin (raise-contract-violation-error '"contract violation" @@ -44,7 +44,7 @@ 'contract: 'port? 'value: - _%port92953%_) + _%port93227%_) '#!void))) (begin (raise-contract-violation-error @@ -54,111 +54,111 @@ 'contract: 'list? 'value: - _%manifest92952%_) + _%manifest93226%_) '#!void)))) (define display-build-manifest__0 (lambda () - (let* ((_%manifest92981%_ __build-manifest) - (_%port92983%_ (current-output-port))) - (__display-build-manifest__% _%manifest92981%_ _%port92983%_)))) + (let* ((_%manifest93255%_ __build-manifest) + (_%port93257%_ (current-output-port))) + (__display-build-manifest__% _%manifest93255%_ _%port93257%_)))) (define display-build-manifest__1 - (lambda (_%manifest92985%_) - (let ((_%port92987%_ (current-output-port))) - (display-build-manifest__% _%manifest92985%_ _%port92987%_)))) + (lambda (_%manifest93259%_) + (let ((_%port93261%_ (current-output-port))) + (display-build-manifest__% _%manifest93259%_ _%port93261%_)))) (define display-build-manifest - (lambda _g93021_ - (let ((_g93020_ (let () (declare (not safe)) (##length _g93021_)))) - (cond ((let () (declare (not safe)) (##fx= _g93020_ 0)) - (apply display-build-manifest__0 _g93021_)) - ((let () (declare (not safe)) (##fx= _g93020_ 1)) - (apply display-build-manifest__1 _g93021_)) - ((let () (declare (not safe)) (##fx= _g93020_ 2)) - (apply display-build-manifest__% _g93021_)) + (lambda _g93295_ + (let ((_g93294_ (let () (declare (not safe)) (##length _g93295_)))) + (cond ((let () (declare (not safe)) (##fx= _g93294_ 0)) + (apply display-build-manifest__0 _g93295_)) + ((let () (declare (not safe)) (##fx= _g93294_ 1)) + (apply display-build-manifest__1 _g93295_)) + ((let () (declare (not safe)) (##fx= _g93294_ 2)) + (apply display-build-manifest__% _g93295_)) (else (##raise-wrong-number-of-arguments-exception display-build-manifest - _g93021_)))))) + _g93295_)))))) (define __display-build-manifest__% - (lambda (_%manifest92874%_ _%port92875%_) - (let* ((_%manifest92878%_ _%manifest92874%_) - (_%port92886%_ _%port92875%_)) - (let ((_%p92899%_ - (lambda (_%g9289492896%_) - (display _%g9289492896%_ _%port92886%_))) - (_%l92900%_ - (let () (declare (not safe)) (##length _%manifest92878%_))) - (_%i92901%_ '0)) - (let ((__tmp93022 - (lambda (_%layer92903%_) - (if (zero? _%i92901%_) + (lambda (_%manifest93148%_ _%port93149%_) + (let* ((_%manifest93152%_ _%manifest93148%_) + (_%port93160%_ _%port93149%_)) + (let ((_%p93173%_ + (lambda (_%g9316893170%_) + (display _%g9316893170%_ _%port93160%_))) + (_%l93174%_ + (let () (declare (not safe)) (##length _%manifest93152%_))) + (_%i93175%_ '0)) + (let ((__tmp93296 + (lambda (_%layer93177%_) + (if (zero? _%i93175%_) '#!void - (if (= _%i92901%_ '1) - (_%p92899%_ '" on ") - (_%p92899%_ '", "))) - (let* ((_%layer9290792914%_ _%layer92903%_) - (_%E9290992918%_ + (if (= _%i93175%_ '1) + (_%p93173%_ '" on ") + (_%p93173%_ '", "))) + (let* ((_%layer9318193188%_ _%layer93177%_) + (_%E9318393192%_ (lambda () (error '"No clause matching" - _%layer9290792914%_ + _%layer9318193188%_ '([name . version])) '#!void)) - (_%K9291092924%_ - (lambda (_%version92921%_ _%name92922%_) - (_%p92899%_ _%name92922%_) - (_%p92899%_ '" ") - (_%p92899%_ _%version92921%_)))) + (_%K9318493198%_ + (lambda (_%version93195%_ _%name93196%_) + (_%p93173%_ _%name93196%_) + (_%p93173%_ '" ") + (_%p93173%_ _%version93195%_)))) (if (let () (declare (not safe)) - (##pair? _%layer9290792914%_)) - (let ((_%hd9291192927%_ + (##pair? _%layer9318193188%_)) + (let ((_%hd9318593201%_ (let () (declare (not safe)) - (##car _%layer9290792914%_))) - (_%tl9291292929%_ + (##car _%layer9318193188%_))) + (_%tl9318693203%_ (let () (declare (not safe)) - (##cdr _%layer9290792914%_)))) - (let* ((_%name92932%_ _%hd9291192927%_) - (_%version92934%_ _%tl9291292929%_)) - (_%K9291092924%_ - _%version92934%_ - _%name92932%_))) - (_%E9290992918%_))) - (set! _%i92901%_ (+ _%i92901%_ '1))))) + (##cdr _%layer9318193188%_)))) + (let* ((_%name93206%_ _%hd9318593201%_) + (_%version93208%_ _%tl9318693203%_)) + (_%K9318493198%_ + _%version93208%_ + _%name93206%_))) + (_%E9318393192%_))) + (set! _%i93175%_ (+ _%i93175%_ '1))))) (declare (not safe)) - (##for-each __tmp93022 _%manifest92878%_)))))) + (##for-each __tmp93296 _%manifest93152%_)))))) (define __display-build-manifest__0 (lambda () - (let* ((_%manifest92940%_ __build-manifest) - (_%port92942%_ (current-output-port))) - (__display-build-manifest__% _%manifest92940%_ _%port92942%_)))) + (let* ((_%manifest93214%_ __build-manifest) + (_%port93216%_ (current-output-port))) + (__display-build-manifest__% _%manifest93214%_ _%port93216%_)))) (define __display-build-manifest__1 - (lambda (_%manifest92944%_) - (let ((_%port92946%_ (current-output-port))) - (__display-build-manifest__% _%manifest92944%_ _%port92946%_)))) + (lambda (_%manifest93218%_) + (let ((_%port93220%_ (current-output-port))) + (__display-build-manifest__% _%manifest93218%_ _%port93220%_)))) (define __display-build-manifest - (lambda _g93024_ - (let ((_g93023_ (let () (declare (not safe)) (##length _g93024_)))) - (cond ((let () (declare (not safe)) (##fx= _g93023_ 0)) - (apply __display-build-manifest__0 _g93024_)) - ((let () (declare (not safe)) (##fx= _g93023_ 1)) - (apply __display-build-manifest__1 _g93024_)) - ((let () (declare (not safe)) (##fx= _g93023_ 2)) - (apply __display-build-manifest__% _g93024_)) + (lambda _g93298_ + (let ((_g93297_ (let () (declare (not safe)) (##length _g93298_)))) + (cond ((let () (declare (not safe)) (##fx= _g93297_ 0)) + (apply __display-build-manifest__0 _g93298_)) + ((let () (declare (not safe)) (##fx= _g93297_ 1)) + (apply __display-build-manifest__1 _g93298_)) + ((let () (declare (not safe)) (##fx= _g93297_ 2)) + (apply __display-build-manifest__% _g93298_)) (else (##raise-wrong-number-of-arguments-exception __display-build-manifest - _g93024_)))))) + _g93298_)))))) (define build-manifest/layer - (lambda (_%layer92869%_) - (let ((_%l92871%_ (assoc _%layer92869%_ __build-manifest))) - (if _%l92871%_ (cons _%l92871%_ '()) '())))) + (lambda (_%layer93143%_) + (let ((_%l93145%_ (assoc _%layer93143%_ __build-manifest))) + (if _%l93145%_ (cons _%l93145%_ '()) '())))) (define build-manifest/head (lambda () (cons (car __build-manifest) '()))) (define build-manifest-string__% - (lambda (_%manifest92846%_) - (if (list? _%manifest92846%_) - (let ((_%manifest92850%_ _%manifest92846%_)) - (__build-manifest-string__% _%manifest92850%_)) + (lambda (_%manifest93120%_) + (if (list? _%manifest93120%_) + (let ((_%manifest93124%_ _%manifest93120%_)) + (__build-manifest-string__% _%manifest93124%_)) (begin (raise-contract-violation-error '"contract violation" @@ -167,54 +167,54 @@ 'contract: 'list? 'value: - _%manifest92846%_) + _%manifest93120%_) '#!void)))) (define build-manifest-string__0 (lambda () - (let ((_%manifest92864%_ __build-manifest)) - (__build-manifest-string__% _%manifest92864%_)))) + (let ((_%manifest93138%_ __build-manifest)) + (__build-manifest-string__% _%manifest93138%_)))) (define build-manifest-string - (lambda _g93026_ - (let ((_g93025_ (let () (declare (not safe)) (##length _g93026_)))) - (cond ((let () (declare (not safe)) (##fx= _g93025_ 0)) - (apply build-manifest-string__0 _g93026_)) - ((let () (declare (not safe)) (##fx= _g93025_ 1)) - (apply build-manifest-string__% _g93026_)) + (lambda _g93300_ + (let ((_g93299_ (let () (declare (not safe)) (##length _g93300_)))) + (cond ((let () (declare (not safe)) (##fx= _g93299_ 0)) + (apply build-manifest-string__0 _g93300_)) + ((let () (declare (not safe)) (##fx= _g93299_ 1)) + (apply build-manifest-string__% _g93300_)) (else (##raise-wrong-number-of-arguments-exception build-manifest-string - _g93026_)))))) + _g93300_)))))) (define __build-manifest-string__% - (lambda (_%manifest92823%_) - (let ((_%manifest92826%_ _%manifest92823%_)) + (lambda (_%manifest93097%_) + (let ((_%manifest93100%_ _%manifest93097%_)) (call-with-output-string '() - (lambda (_%p92835%_) - (display-build-manifest__% _%manifest92826%_ _%p92835%_)))))) + (lambda (_%p93109%_) + (display-build-manifest__% _%manifest93100%_ _%p93109%_)))))) (define __build-manifest-string__0 (lambda () - (let ((_%manifest92841%_ __build-manifest)) - (__build-manifest-string__% _%manifest92841%_)))) + (let ((_%manifest93115%_ __build-manifest)) + (__build-manifest-string__% _%manifest93115%_)))) (define __build-manifest-string - (lambda _g93028_ - (let ((_g93027_ (let () (declare (not safe)) (##length _g93028_)))) - (cond ((let () (declare (not safe)) (##fx= _g93027_ 0)) - (apply __build-manifest-string__0 _g93028_)) - ((let () (declare (not safe)) (##fx= _g93027_ 1)) - (apply __build-manifest-string__% _g93028_)) + (lambda _g93302_ + (let ((_g93301_ (let () (declare (not safe)) (##length _g93302_)))) + (cond ((let () (declare (not safe)) (##fx= _g93301_ 0)) + (apply __build-manifest-string__0 _g93302_)) + ((let () (declare (not safe)) (##fx= _g93301_ 1)) + (apply __build-manifest-string__% _g93302_)) (else (##raise-wrong-number-of-arguments-exception __build-manifest-string - _g93028_)))))) + _g93302_)))))) (define gerbil-system-version-string (lambda () (__build-manifest-string__% gerbil-system-manifest))) (define __gerbil-greeting (gerbil-system-version-string)) (define gerbil-greeting (lambda () __gerbil-greeting)) (define gerbil-greeting-set! - (lambda (_%new-value92805%_) - (if (string? _%new-value92805%_) - (let ((_%new-value92809%_ _%new-value92805%_)) - (__gerbil-greeting-set! _%new-value92809%_)) + (lambda (_%new-value93079%_) + (if (string? _%new-value93079%_) + (let ((_%new-value93083%_ _%new-value93079%_)) + (__gerbil-greeting-set! _%new-value93083%_)) (begin (raise-contract-violation-error '"contract violation" @@ -223,34 +223,34 @@ 'contract: 'string? 'value: - _%new-value92805%_) + _%new-value93079%_) '#!void)))) (define __gerbil-greeting-set! - (lambda (_%new-value92791%_) - (let ((_%new-value92795%_ _%new-value92791%_)) - (set! __gerbil-greeting _%new-value92795%_)))) + (lambda (_%new-value93065%_) + (let ((_%new-value93069%_ _%new-value93065%_)) + (set! __gerbil-greeting _%new-value93069%_)))) (define gerbil-system (lambda () 'gerbil-gambit)) (define gerbil-home (lambda () - (let ((_%$e92787%_ + (let ((_%$e93061%_ (let () (declare (not safe)) (##getenv '"GERBIL_HOME" '#f)))) - (if _%$e92787%_ _%$e92787%_ (path-expand '"~~"))))) + (if _%$e93061%_ _%$e93061%_ (path-expand '"~~"))))) (define gerbil-path (lambda () - (let ((_%$e92783%_ + (let ((_%$e93057%_ (let () (declare (not safe)) (##getenv '"GERBIL_PATH" '#f)))) - (if _%$e92783%_ _%$e92783%_ (path-expand '"~/.gerbil"))))) + (if _%$e93057%_ _%$e93057%_ (path-expand '"~/.gerbil"))))) (define __smp? '#!void) (define gerbil-runtime-smp? (lambda () (if (eq? __smp? '#!void) (set! __smp? - (if (let ((__tmp93029 - (let ((__tmp93030 (configure-command-string))) + (if (let ((__tmp93303 + (let ((__tmp93304 (configure-command-string))) (declare (not safe)) - (__string-split __tmp93030 '#\')))) + (__string-split __tmp93304 '#\')))) (declare (not safe)) - (##member '"--enable-smp" __tmp93029)) + (##member '"--enable-smp" __tmp93303)) '#t '#f)) '#!void) diff --git a/src/bootstrap/gerbil/runtime/table~0.scm b/src/bootstrap/gerbil/runtime/table~0.scm index ec20aa54b..4dcdafd75 100644 --- a/src/bootstrap/gerbil/runtime/table~0.scm +++ b/src/bootstrap/gerbil/runtime/table~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/table::timestamp 1713044314) + (define gerbil/runtime/table::timestamp 1713454409) (begin (declare (not safe)) (define __table::t.id 'gerbil#__table::t) @@ -13,1979 +13,1979 @@ '#f '#(table 5 #f count 5 #f free 5 #f hash 5 #f test 5 #f seed 5 #f))) (define &raw-table-table - (lambda (_%tab92475%_) + (lambda (_%tab92749%_) (##unchecked-structure-ref - _%tab92475%_ + _%tab92749%_ '1 __table::t 'raw-table-table))) (define &raw-table-count - (lambda (_%tab92473%_) + (lambda (_%tab92747%_) (##unchecked-structure-ref - _%tab92473%_ + _%tab92747%_ '2 __table::t 'raw-table-count))) (define &raw-table-free - (lambda (_%tab92471%_) + (lambda (_%tab92745%_) (##unchecked-structure-ref - _%tab92471%_ + _%tab92745%_ '3 __table::t 'raw-table-free))) (define &raw-table-hash - (lambda (_%tab92469%_) + (lambda (_%tab92743%_) (##unchecked-structure-ref - _%tab92469%_ + _%tab92743%_ '4 __table::t 'raw-table-hash))) (define &raw-table-test - (lambda (_%tab92467%_) + (lambda (_%tab92741%_) (##unchecked-structure-ref - _%tab92467%_ + _%tab92741%_ '5 __table::t 'raw-table-test))) (define &raw-table-seed - (lambda (_%tab92465%_) + (lambda (_%tab92739%_) (##unchecked-structure-ref - _%tab92465%_ + _%tab92739%_ '6 __table::t 'raw-table-seed))) (define &raw-table-table-set! - (lambda (_%tab92462%_ _%val92463%_) + (lambda (_%tab92736%_ _%val92737%_) (##unchecked-structure-set! - _%tab92462%_ - _%val92463%_ + _%tab92736%_ + _%val92737%_ '1 __table::t 'raw-table-table-set!))) (define &raw-table-count-set! - (lambda (_%tab92459%_ _%val92460%_) + (lambda (_%tab92733%_ _%val92734%_) (##unchecked-structure-set! - _%tab92459%_ - _%val92460%_ + _%tab92733%_ + _%val92734%_ '2 __table::t 'raw-table-count-set!))) (define &raw-table-free-set! - (lambda (_%tab92456%_ _%val92457%_) + (lambda (_%tab92730%_ _%val92731%_) (##unchecked-structure-set! - _%tab92456%_ - _%val92457%_ + _%tab92730%_ + _%val92731%_ '3 __table::t 'raw-table-free-set!))) (define &raw-table-hash-set! - (lambda (_%tab92453%_ _%val92454%_) + (lambda (_%tab92727%_ _%val92728%_) (##unchecked-structure-set! - _%tab92453%_ - _%val92454%_ + _%tab92727%_ + _%val92728%_ '4 __table::t 'raw-table-hash-set!))) (define &raw-table-test-set! - (lambda (_%tab92450%_ _%val92451%_) + (lambda (_%tab92724%_ _%val92725%_) (##unchecked-structure-set! - _%tab92450%_ - _%val92451%_ + _%tab92724%_ + _%val92725%_ '5 __table::t 'raw-table-test-set!))) (define &raw-table-seed-set! - (lambda (_%tab92447%_ _%val92448%_) + (lambda (_%tab92721%_ _%val92722%_) (##unchecked-structure-set! - _%tab92447%_ - _%val92448%_ + _%tab92721%_ + _%val92722%_ '6 __table::t 'raw-table-seed-set!))) (define raw-table-size-hint->size - (lambda (_%size-hint92445%_) - (if (and (fixnum? _%size-hint92445%_) (##fx> _%size-hint92445%_ '0)) - (##fx* (fxmax '2 (expt '2 (integer-length _%size-hint92445%_))) '4) + (lambda (_%size-hint92719%_) + (if (and (fixnum? _%size-hint92719%_) (##fx> _%size-hint92719%_ '0)) + (##fx* (fxmax '2 (expt '2 (integer-length _%size-hint92719%_))) '4) '16))) (define make-raw-table__% - (lambda (_%size-hint92421%_ _%hash92422%_ _%test92423%_ _%seed92424%_) - (let* ((_%size92426%_ (raw-table-size-hint->size _%size-hint92421%_)) - (_%table92428%_ - (##make-vector _%size92426%_ (macro-unused-obj)))) + (lambda (_%size-hint92695%_ _%hash92696%_ _%test92697%_ _%seed92698%_) + (let* ((_%size92700%_ (raw-table-size-hint->size _%size-hint92695%_)) + (_%table92702%_ + (##make-vector _%size92700%_ (macro-unused-obj)))) (##structure __table::t - _%table92428%_ + _%table92702%_ '0 - (##fxquotient _%size92426%_ '2) - _%hash92422%_ - _%test92423%_ - _%seed92424%_)))) + (##fxquotient _%size92700%_ '2) + _%hash92696%_ + _%test92697%_ + _%seed92698%_)))) (define make-raw-table__0 - (lambda (_%size-hint92434%_ _%hash92435%_ _%test92436%_) - (let ((_%seed92438%_ '0)) + (lambda (_%size-hint92708%_ _%hash92709%_ _%test92710%_) + (let ((_%seed92712%_ '0)) (make-raw-table__% - _%size-hint92434%_ - _%hash92435%_ - _%test92436%_ - _%seed92438%_)))) + _%size-hint92708%_ + _%hash92709%_ + _%test92710%_ + _%seed92712%_)))) (define make-raw-table - (lambda _g92477_ - (let ((_g92476_ (##length _g92477_))) - (cond ((##fx= _g92476_ 3) (apply make-raw-table__0 _g92477_)) - ((##fx= _g92476_ 4) (apply make-raw-table__% _g92477_)) + (lambda _g92751_ + (let ((_g92750_ (##length _g92751_))) + (cond ((##fx= _g92750_ 3) (apply make-raw-table__0 _g92751_)) + ((##fx= _g92750_ 4) (apply make-raw-table__% _g92751_)) (else (##raise-wrong-number-of-arguments-exception make-raw-table - _g92477_)))))) + _g92751_)))))) (define raw-table-ref - (lambda (_%tab92372%_ _%key92373%_ _%default92374%_) - (let ((_%table92376%_ (&raw-table-table _%tab92372%_)) - (_%seed92377%_ (&raw-table-seed _%tab92372%_)) - (_%hash92378%_ (&raw-table-hash _%tab92372%_)) - (_%test92379%_ (&raw-table-test _%tab92372%_))) - (let* ((_%h92381%_ - (fxxor (_%hash92378%_ _%key92373%_) _%seed92377%_)) - (_%size92384%_ (vector-length _%table92376%_)) - (_%entries92387%_ (##fxquotient _%size92384%_ '2)) - (_%start92390%_ + (lambda (_%tab92646%_ _%key92647%_ _%default92648%_) + (let ((_%table92650%_ (&raw-table-table _%tab92646%_)) + (_%seed92651%_ (&raw-table-seed _%tab92646%_)) + (_%hash92652%_ (&raw-table-hash _%tab92646%_)) + (_%test92653%_ (&raw-table-test _%tab92646%_))) + (let* ((_%h92655%_ + (fxxor (_%hash92652%_ _%key92647%_) _%seed92651%_)) + (_%size92658%_ (vector-length _%table92650%_)) + (_%entries92661%_ (##fxquotient _%size92658%_ '2)) + (_%start92664%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92381%_ _%entries92387%_) + (##fxmodulo _%h92655%_ _%entries92661%_) '1))) - (let _%loop92394%_ ((_%probe92397%_ _%start92390%_) - (_%i92399%_ '1) - (_%deleted92401%_ '#f)) - (let ((_%k92404%_ (vector-ref _%table92376%_ _%probe92397%_))) - (if (eq? _%k92404%_ (macro-unused-obj)) - _%default92374%_ - (if (eq? _%k92404%_ (macro-deleted-obj)) - (_%loop92394%_ - (let ((_%next-probe92409%_ - (fx+ _%start92390%_ - _%i92399%_ - (fx* _%i92399%_ _%i92399%_)))) - (##fxmodulo _%next-probe92409%_ _%size92384%_)) - (##fx+ _%i92399%_ '1) - (let ((_%$e92412%_ _%deleted92401%_)) - (if _%$e92412%_ _%$e92412%_ _%probe92397%_))) - (if (_%test92379%_ _%key92373%_ _%k92404%_) + (let _%loop92668%_ ((_%probe92671%_ _%start92664%_) + (_%i92673%_ '1) + (_%deleted92675%_ '#f)) + (let ((_%k92678%_ (vector-ref _%table92650%_ _%probe92671%_))) + (if (eq? _%k92678%_ (macro-unused-obj)) + _%default92648%_ + (if (eq? _%k92678%_ (macro-deleted-obj)) + (_%loop92668%_ + (let ((_%next-probe92683%_ + (fx+ _%start92664%_ + _%i92673%_ + (fx* _%i92673%_ _%i92673%_)))) + (##fxmodulo _%next-probe92683%_ _%size92658%_)) + (##fx+ _%i92673%_ '1) + (let ((_%$e92686%_ _%deleted92675%_)) + (if _%$e92686%_ _%$e92686%_ _%probe92671%_))) + (if (_%test92653%_ _%key92647%_ _%k92678%_) (vector-ref - _%table92376%_ - (##fx+ _%probe92397%_ '1)) - (_%loop92394%_ - (let ((_%next-probe92417%_ - (fx+ _%start92390%_ - _%i92399%_ - (fx* _%i92399%_ _%i92399%_)))) - (##fxmodulo _%next-probe92417%_ _%size92384%_)) - (##fx+ _%i92399%_ '1) - _%deleted92401%_)))))))))) + _%table92650%_ + (##fx+ _%probe92671%_ '1)) + (_%loop92668%_ + (let ((_%next-probe92691%_ + (fx+ _%start92664%_ + _%i92673%_ + (fx* _%i92673%_ _%i92673%_)))) + (##fxmodulo _%next-probe92691%_ _%size92658%_)) + (##fx+ _%i92673%_ '1) + _%deleted92675%_)))))))))) (define raw-table-set! - (lambda (_%tab92368%_ _%key92369%_ _%value92370%_) - (if (##fx< (&raw-table-free _%tab92368%_) + (lambda (_%tab92642%_ _%key92643%_ _%value92644%_) + (if (##fx< (&raw-table-free _%tab92642%_) (##fxquotient - (vector-length (&raw-table-table _%tab92368%_)) + (vector-length (&raw-table-table _%tab92642%_)) '4)) - (__raw-table-rehash! _%tab92368%_) + (__raw-table-rehash! _%tab92642%_) '#!void) - (__raw-table-set! _%tab92368%_ _%key92369%_ _%value92370%_))) + (__raw-table-set! _%tab92642%_ _%key92643%_ _%value92644%_))) (define raw-table-update! - (lambda (_%tab92363%_ _%key92364%_ _%update92365%_ _%default92366%_) - (if (##fx< (&raw-table-free _%tab92363%_) + (lambda (_%tab92637%_ _%key92638%_ _%update92639%_ _%default92640%_) + (if (##fx< (&raw-table-free _%tab92637%_) (##fxquotient - (vector-length (&raw-table-table _%tab92363%_)) + (vector-length (&raw-table-table _%tab92637%_)) '4)) - (__raw-table-rehash! _%tab92363%_) + (__raw-table-rehash! _%tab92637%_) '#!void) (__raw-table-update! - _%tab92363%_ - _%key92364%_ - _%update92365%_ - _%default92366%_))) + _%tab92637%_ + _%key92638%_ + _%update92639%_ + _%default92640%_))) (define raw-table-delete! - (lambda (_%tab92320%_ _%key92321%_) - (let ((_%table92323%_ (&raw-table-table _%tab92320%_)) - (_%seed92324%_ (&raw-table-seed _%tab92320%_)) - (_%hash92325%_ (&raw-table-hash _%tab92320%_)) - (_%test92326%_ (&raw-table-test _%tab92320%_))) - (let* ((_%h92328%_ - (fxxor (_%hash92325%_ _%key92321%_) _%seed92324%_)) - (_%size92331%_ (vector-length _%table92323%_)) - (_%entries92334%_ (##fxquotient _%size92331%_ '2)) - (_%start92337%_ + (lambda (_%tab92594%_ _%key92595%_) + (let ((_%table92597%_ (&raw-table-table _%tab92594%_)) + (_%seed92598%_ (&raw-table-seed _%tab92594%_)) + (_%hash92599%_ (&raw-table-hash _%tab92594%_)) + (_%test92600%_ (&raw-table-test _%tab92594%_))) + (let* ((_%h92602%_ + (fxxor (_%hash92599%_ _%key92595%_) _%seed92598%_)) + (_%size92605%_ (vector-length _%table92597%_)) + (_%entries92608%_ (##fxquotient _%size92605%_ '2)) + (_%start92611%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92328%_ _%entries92334%_) + (##fxmodulo _%h92602%_ _%entries92608%_) '1))) - (let _%loop92341%_ ((_%probe92344%_ _%start92337%_) - (_%i92346%_ '1)) - (let ((_%k92349%_ (vector-ref _%table92323%_ _%probe92344%_))) - (if (eq? _%k92349%_ (macro-unused-obj)) + (let _%loop92615%_ ((_%probe92618%_ _%start92611%_) + (_%i92620%_ '1)) + (let ((_%k92623%_ (vector-ref _%table92597%_ _%probe92618%_))) + (if (eq? _%k92623%_ (macro-unused-obj)) '#!void - (if (eq? _%k92349%_ (macro-deleted-obj)) - (_%loop92341%_ - (let ((_%next-probe92354%_ - (fx+ _%start92337%_ - _%i92346%_ - (fx* _%i92346%_ _%i92346%_)))) - (##fxmodulo _%next-probe92354%_ _%size92331%_)) - (##fx+ _%i92346%_ '1)) - (if (_%test92326%_ _%key92321%_ _%k92349%_) + (if (eq? _%k92623%_ (macro-deleted-obj)) + (_%loop92615%_ + (let ((_%next-probe92628%_ + (fx+ _%start92611%_ + _%i92620%_ + (fx* _%i92620%_ _%i92620%_)))) + (##fxmodulo _%next-probe92628%_ _%size92605%_)) + (##fx+ _%i92620%_ '1)) + (if (_%test92600%_ _%key92595%_ _%k92623%_) (let () (vector-set! - _%table92323%_ - _%probe92344%_ + _%table92597%_ + _%probe92618%_ (macro-deleted-obj)) (vector-set! - _%table92323%_ - (##fx+ _%probe92344%_ '1) + _%table92597%_ + (##fx+ _%probe92618%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab92320%_ - (##fx- (&raw-table-count _%tab92320%_) + _%tab92594%_ + (##fx- (&raw-table-count _%tab92594%_) '1))))) - (_%loop92341%_ - (let ((_%next-probe92360%_ - (fx+ _%start92337%_ - _%i92346%_ - (fx* _%i92346%_ _%i92346%_)))) - (##fxmodulo _%next-probe92360%_ _%size92331%_)) - (##fx+ _%i92346%_ '1))))))))))) + (_%loop92615%_ + (let ((_%next-probe92634%_ + (fx+ _%start92611%_ + _%i92620%_ + (fx* _%i92620%_ _%i92620%_)))) + (##fxmodulo _%next-probe92634%_ _%size92605%_)) + (##fx+ _%i92620%_ '1))))))))))) (define raw-table-for-each - (lambda (_%tab92304%_ _%proc92305%_) - (let* ((_%table92307%_ (&raw-table-table _%tab92304%_)) - (_%size92309%_ (vector-length _%table92307%_))) - (let _%loop92312%_ ((_%i92314%_ '0)) - (if (##fx< _%i92314%_ _%size92309%_) + (lambda (_%tab92578%_ _%proc92579%_) + (let* ((_%table92581%_ (&raw-table-table _%tab92578%_)) + (_%size92583%_ (vector-length _%table92581%_))) + (let _%loop92586%_ ((_%i92588%_ '0)) + (if (##fx< _%i92588%_ _%size92583%_) (begin - (let ((_%key92316%_ (vector-ref _%table92307%_ _%i92314%_))) - (if (if (eq? _%key92316%_ (macro-unused-obj)) + (let ((_%key92590%_ (vector-ref _%table92581%_ _%i92588%_))) + (if (if (eq? _%key92590%_ (macro-unused-obj)) '#f - (not (eq? _%key92316%_ (macro-deleted-obj)))) - (let ((_%value92318%_ + (not (eq? _%key92590%_ (macro-deleted-obj)))) + (let ((_%value92592%_ (vector-ref - _%table92307%_ - (##fx+ _%i92314%_ '1)))) - (_%proc92305%_ _%key92316%_ _%value92318%_)) + _%table92581%_ + (##fx+ _%i92588%_ '1)))) + (_%proc92579%_ _%key92590%_ _%value92592%_)) '#!void)) - (_%loop92312%_ (##fx+ _%i92314%_ '2))) + (_%loop92586%_ (##fx+ _%i92588%_ '2))) '#!void))))) (define raw-table-copy - (lambda (_%tab92300%_) - (let ((_%new-tab92302%_ (##structure-copy _%tab92300%_))) + (lambda (_%tab92574%_) + (let ((_%new-tab92576%_ (##structure-copy _%tab92574%_))) (&raw-table-table-set! - _%new-tab92302%_ - (vector-copy (&raw-table-table _%tab92300%_))) - _%new-tab92302%_))) + _%new-tab92576%_ + (vector-copy (&raw-table-table _%tab92574%_))) + _%new-tab92576%_))) (define raw-table-clear! - (lambda (_%tab92298%_) - (vector-fill! (&raw-table-table _%tab92298%_) (macro-unused-obj)) - (&raw-table-count-set! _%tab92298%_ '0) + (lambda (_%tab92572%_) + (vector-fill! (&raw-table-table _%tab92572%_) (macro-unused-obj)) + (&raw-table-count-set! _%tab92572%_ '0) (&raw-table-free-set! - _%tab92298%_ - (##fxquotient (vector-length (&raw-table-table _%tab92298%_)) '2)))) + _%tab92572%_ + (##fxquotient (vector-length (&raw-table-table _%tab92572%_)) '2)))) (define __raw-table-set! - (lambda (_%tab92248%_ _%key92249%_ _%value92250%_) - (let ((_%table92252%_ (&raw-table-table _%tab92248%_)) - (_%seed92253%_ (&raw-table-seed _%tab92248%_)) - (_%hash92254%_ (&raw-table-hash _%tab92248%_)) - (_%test92255%_ (&raw-table-test _%tab92248%_))) - (let* ((_%h92257%_ - (fxxor (_%hash92254%_ _%key92249%_) _%seed92253%_)) - (_%size92260%_ (vector-length _%table92252%_)) - (_%entries92263%_ (##fxquotient _%size92260%_ '2)) - (_%start92266%_ + (lambda (_%tab92522%_ _%key92523%_ _%value92524%_) + (let ((_%table92526%_ (&raw-table-table _%tab92522%_)) + (_%seed92527%_ (&raw-table-seed _%tab92522%_)) + (_%hash92528%_ (&raw-table-hash _%tab92522%_)) + (_%test92529%_ (&raw-table-test _%tab92522%_))) + (let* ((_%h92531%_ + (fxxor (_%hash92528%_ _%key92523%_) _%seed92527%_)) + (_%size92534%_ (vector-length _%table92526%_)) + (_%entries92537%_ (##fxquotient _%size92534%_ '2)) + (_%start92540%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92257%_ _%entries92263%_) + (##fxmodulo _%h92531%_ _%entries92537%_) '1))) - (let _%loop92270%_ ((_%probe92273%_ _%start92266%_) - (_%i92275%_ '1) - (_%deleted92277%_ '#f)) - (let ((_%k92280%_ (vector-ref _%table92252%_ _%probe92273%_))) - (if (eq? _%k92280%_ (macro-unused-obj)) - (if _%deleted92277%_ + (let _%loop92544%_ ((_%probe92547%_ _%start92540%_) + (_%i92549%_ '1) + (_%deleted92551%_ '#f)) + (let ((_%k92554%_ (vector-ref _%table92526%_ _%probe92547%_))) + (if (eq? _%k92554%_ (macro-unused-obj)) + (if _%deleted92551%_ (begin (vector-set! - _%table92252%_ - _%deleted92277%_ - _%key92249%_) + _%table92526%_ + _%deleted92551%_ + _%key92523%_) (vector-set! - _%table92252%_ - (##fx+ _%deleted92277%_ '1) - _%value92250%_) + _%table92526%_ + (##fx+ _%deleted92551%_ '1) + _%value92524%_) ((lambda () (&raw-table-count-set! - _%tab92248%_ - (##fx+ (&raw-table-count _%tab92248%_) '1))))) + _%tab92522%_ + (##fx+ (&raw-table-count _%tab92522%_) '1))))) (begin (vector-set! - _%table92252%_ - _%probe92273%_ - _%key92249%_) + _%table92526%_ + _%probe92547%_ + _%key92523%_) (vector-set! - _%table92252%_ - (##fx+ _%probe92273%_ '1) - _%value92250%_) + _%table92526%_ + (##fx+ _%probe92547%_ '1) + _%value92524%_) ((lambda () (&raw-table-free-set! - _%tab92248%_ - (##fx- (&raw-table-free _%tab92248%_) '1)) + _%tab92522%_ + (##fx- (&raw-table-free _%tab92522%_) '1)) (&raw-table-count-set! - _%tab92248%_ - (##fx+ (&raw-table-count _%tab92248%_) '1)))))) - (if (eq? _%k92280%_ (macro-deleted-obj)) - (_%loop92270%_ - (let ((_%next-probe92287%_ - (fx+ _%start92266%_ - _%i92275%_ - (fx* _%i92275%_ _%i92275%_)))) - (##fxmodulo _%next-probe92287%_ _%size92260%_)) - (##fx+ _%i92275%_ '1) - (let ((_%$e92290%_ _%deleted92277%_)) - (if _%$e92290%_ _%$e92290%_ _%probe92273%_))) - (if (_%test92255%_ _%key92249%_ _%k92280%_) + _%tab92522%_ + (##fx+ (&raw-table-count _%tab92522%_) '1)))))) + (if (eq? _%k92554%_ (macro-deleted-obj)) + (_%loop92544%_ + (let ((_%next-probe92561%_ + (fx+ _%start92540%_ + _%i92549%_ + (fx* _%i92549%_ _%i92549%_)))) + (##fxmodulo _%next-probe92561%_ _%size92534%_)) + (##fx+ _%i92549%_ '1) + (let ((_%$e92564%_ _%deleted92551%_)) + (if _%$e92564%_ _%$e92564%_ _%probe92547%_))) + (if (_%test92529%_ _%key92523%_ _%k92554%_) (let () (vector-set! - _%table92252%_ - _%probe92273%_ - _%key92249%_) + _%table92526%_ + _%probe92547%_ + _%key92523%_) (vector-set! - _%table92252%_ - (##fx+ _%probe92273%_ '1) - _%value92250%_)) - (_%loop92270%_ - (let ((_%next-probe92295%_ - (fx+ _%start92266%_ - _%i92275%_ - (fx* _%i92275%_ _%i92275%_)))) - (##fxmodulo _%next-probe92295%_ _%size92260%_)) - (##fx+ _%i92275%_ '1) - _%deleted92277%_)))))))))) + _%table92526%_ + (##fx+ _%probe92547%_ '1) + _%value92524%_)) + (_%loop92544%_ + (let ((_%next-probe92569%_ + (fx+ _%start92540%_ + _%i92549%_ + (fx* _%i92549%_ _%i92549%_)))) + (##fxmodulo _%next-probe92569%_ _%size92534%_)) + (##fx+ _%i92549%_ '1) + _%deleted92551%_)))))))))) (define __raw-table-update! - (lambda (_%tab92197%_ _%key92198%_ _%update92199%_ _%default92200%_) - (let ((_%table92202%_ (&raw-table-table _%tab92197%_)) - (_%seed92203%_ (&raw-table-seed _%tab92197%_)) - (_%hash92204%_ (&raw-table-hash _%tab92197%_)) - (_%test92205%_ (&raw-table-test _%tab92197%_))) - (let* ((_%h92207%_ - (fxxor (_%hash92204%_ _%key92198%_) _%seed92203%_)) - (_%size92210%_ (vector-length _%table92202%_)) - (_%entries92213%_ (##fxquotient _%size92210%_ '2)) - (_%start92216%_ + (lambda (_%tab92471%_ _%key92472%_ _%update92473%_ _%default92474%_) + (let ((_%table92476%_ (&raw-table-table _%tab92471%_)) + (_%seed92477%_ (&raw-table-seed _%tab92471%_)) + (_%hash92478%_ (&raw-table-hash _%tab92471%_)) + (_%test92479%_ (&raw-table-test _%tab92471%_))) + (let* ((_%h92481%_ + (fxxor (_%hash92478%_ _%key92472%_) _%seed92477%_)) + (_%size92484%_ (vector-length _%table92476%_)) + (_%entries92487%_ (##fxquotient _%size92484%_ '2)) + (_%start92490%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92207%_ _%entries92213%_) + (##fxmodulo _%h92481%_ _%entries92487%_) '1))) - (let _%loop92220%_ ((_%probe92223%_ _%start92216%_) - (_%i92225%_ '1) - (_%deleted92227%_ '#f)) - (let ((_%k92230%_ (vector-ref _%table92202%_ _%probe92223%_))) - (if (eq? _%k92230%_ (macro-unused-obj)) - (if _%deleted92227%_ + (let _%loop92494%_ ((_%probe92497%_ _%start92490%_) + (_%i92499%_ '1) + (_%deleted92501%_ '#f)) + (let ((_%k92504%_ (vector-ref _%table92476%_ _%probe92497%_))) + (if (eq? _%k92504%_ (macro-unused-obj)) + (if _%deleted92501%_ (begin (vector-set! - _%table92202%_ - _%deleted92227%_ - _%key92198%_) + _%table92476%_ + _%deleted92501%_ + _%key92472%_) (vector-set! - _%table92202%_ - (##fx+ _%deleted92227%_ '1) - (_%update92199%_ _%default92200%_)) + _%table92476%_ + (##fx+ _%deleted92501%_ '1) + (_%update92473%_ _%default92474%_)) ((lambda () (&raw-table-count-set! - _%tab92197%_ - (##fx+ (&raw-table-count _%tab92197%_) '1))))) + _%tab92471%_ + (##fx+ (&raw-table-count _%tab92471%_) '1))))) (begin (vector-set! - _%table92202%_ - _%probe92223%_ - _%key92198%_) + _%table92476%_ + _%probe92497%_ + _%key92472%_) (vector-set! - _%table92202%_ - (##fx+ _%probe92223%_ '1) - (_%update92199%_ _%default92200%_)) + _%table92476%_ + (##fx+ _%probe92497%_ '1) + (_%update92473%_ _%default92474%_)) ((lambda () (&raw-table-free-set! - _%tab92197%_ - (##fx- (&raw-table-free _%tab92197%_) '1)) + _%tab92471%_ + (##fx- (&raw-table-free _%tab92471%_) '1)) (&raw-table-count-set! - _%tab92197%_ - (##fx+ (&raw-table-count _%tab92197%_) '1)))))) - (if (eq? _%k92230%_ (macro-deleted-obj)) - (_%loop92220%_ - (let ((_%next-probe92237%_ - (fx+ _%start92216%_ - _%i92225%_ - (fx* _%i92225%_ _%i92225%_)))) - (##fxmodulo _%next-probe92237%_ _%size92210%_)) - (##fx+ _%i92225%_ '1) - (let ((_%$e92240%_ _%deleted92227%_)) - (if _%$e92240%_ _%$e92240%_ _%probe92223%_))) - (if (_%test92205%_ _%key92198%_ _%k92230%_) + _%tab92471%_ + (##fx+ (&raw-table-count _%tab92471%_) '1)))))) + (if (eq? _%k92504%_ (macro-deleted-obj)) + (_%loop92494%_ + (let ((_%next-probe92511%_ + (fx+ _%start92490%_ + _%i92499%_ + (fx* _%i92499%_ _%i92499%_)))) + (##fxmodulo _%next-probe92511%_ _%size92484%_)) + (##fx+ _%i92499%_ '1) + (let ((_%$e92514%_ _%deleted92501%_)) + (if _%$e92514%_ _%$e92514%_ _%probe92497%_))) + (if (_%test92479%_ _%key92472%_ _%k92504%_) (let () (vector-set! - _%table92202%_ - _%probe92223%_ - _%key92198%_) + _%table92476%_ + _%probe92497%_ + _%key92472%_) (vector-set! - _%table92202%_ - (##fx+ _%probe92223%_ '1) - (_%update92199%_ + _%table92476%_ + (##fx+ _%probe92497%_ '1) + (_%update92473%_ (vector-ref - _%table92202%_ - (##fx+ _%probe92223%_ '1))))) - (_%loop92220%_ - (let ((_%next-probe92245%_ - (fx+ _%start92216%_ - _%i92225%_ - (fx* _%i92225%_ _%i92225%_)))) - (##fxmodulo _%next-probe92245%_ _%size92210%_)) - (##fx+ _%i92225%_ '1) - _%deleted92227%_)))))))))) + _%table92476%_ + (##fx+ _%probe92497%_ '1))))) + (_%loop92494%_ + (let ((_%next-probe92519%_ + (fx+ _%start92490%_ + _%i92499%_ + (fx* _%i92499%_ _%i92499%_)))) + (##fxmodulo _%next-probe92519%_ _%size92484%_)) + (##fx+ _%i92499%_ '1) + _%deleted92501%_)))))))))) (define __raw-table-rehash! - (lambda (_%tab92178%_) - (let* ((_%old-table92180%_ (&raw-table-table _%tab92178%_)) - (_%old-size92182%_ (vector-length _%old-table92180%_)) - (_%new-size92184%_ - (if (##fx< (&raw-table-count _%tab92178%_) - (##fxquotient _%old-size92182%_ '4)) - (vector-length _%old-table92180%_) - (##fx* '2 (vector-length _%old-table92180%_)))) - (_%new-table92186%_ - (##make-vector _%new-size92184%_ (macro-unused-obj)))) - (&raw-table-table-set! _%tab92178%_ _%new-table92186%_) - (&raw-table-count-set! _%tab92178%_ '0) + (lambda (_%tab92452%_) + (let* ((_%old-table92454%_ (&raw-table-table _%tab92452%_)) + (_%old-size92456%_ (vector-length _%old-table92454%_)) + (_%new-size92458%_ + (if (##fx< (&raw-table-count _%tab92452%_) + (##fxquotient _%old-size92456%_ '4)) + (vector-length _%old-table92454%_) + (##fx* '2 (vector-length _%old-table92454%_)))) + (_%new-table92460%_ + (##make-vector _%new-size92458%_ (macro-unused-obj)))) + (&raw-table-table-set! _%tab92452%_ _%new-table92460%_) + (&raw-table-count-set! _%tab92452%_ '0) (&raw-table-free-set! - _%tab92178%_ - (##fxquotient _%new-size92184%_ '2)) - (let _%lp92189%_ ((_%i92191%_ '0)) - (if (##fx< _%i92191%_ _%old-size92182%_) + _%tab92452%_ + (##fxquotient _%new-size92458%_ '2)) + (let _%lp92463%_ ((_%i92465%_ '0)) + (if (##fx< _%i92465%_ _%old-size92456%_) (begin - (let ((_%key92193%_ - (vector-ref _%old-table92180%_ _%i92191%_))) - (if (if (eq? _%key92193%_ (macro-unused-obj)) + (let ((_%key92467%_ + (vector-ref _%old-table92454%_ _%i92465%_))) + (if (if (eq? _%key92467%_ (macro-unused-obj)) '#f - (not (eq? _%key92193%_ (macro-deleted-obj)))) - (let ((_%value92195%_ + (not (eq? _%key92467%_ (macro-deleted-obj)))) + (let ((_%value92469%_ (vector-ref - _%old-table92180%_ - (##fx+ _%i92191%_ '1)))) + _%old-table92454%_ + (##fx+ _%i92465%_ '1)))) (__raw-table-set! - _%tab92178%_ - _%key92193%_ - _%value92195%_)) + _%tab92452%_ + _%key92467%_ + _%value92469%_)) '#!void)) - (_%lp92189%_ (##fx+ _%i92191%_ '2))) + (_%lp92463%_ (##fx+ _%i92465%_ '2))) '#!void))))) (define eq-hash - (lambda (_%obj92170%_) - (let ((_%t92172%_ (##type _%obj92170%_))) - (if (##fx= (##fxand _%t92172%_ '1) '0) - (fxand (##type-cast _%obj92170%_ (macro-type-fixnum)) + (lambda (_%obj92444%_) + (let ((_%t92446%_ (##type _%obj92444%_))) + (if (##fx= (##fxand _%t92446%_ '1) '0) + (fxand (##type-cast _%obj92444%_ (macro-type-fixnum)) (macro-max-fixnum32)) - (if (symbolic? _%obj92170%_) - (symbolic-hash _%obj92170%_) - (if (procedure? _%obj92170%_) - (procedure-hash _%obj92170%_) - (fxand (__eq-hash _%obj92170%_) + (if (symbolic? _%obj92444%_) + (symbolic-hash _%obj92444%_) + (if (procedure? _%obj92444%_) + (procedure-hash _%obj92444%_) + (fxand (__eq-hash _%obj92444%_) (macro-max-fixnum32)))))))) (define procedure-hash - (lambda (_%obj92166%_) - (let ((_%h92168%_ - (if (##closure? _%obj92166%_) - (__eq-hash _%obj92166%_) - (##type-cast _%obj92166%_ '0)))) - (fxand _%h92168%_ (macro-max-fixnum32))))) + (lambda (_%obj92440%_) + (let ((_%h92442%_ + (if (##closure? _%obj92440%_) + (__eq-hash _%obj92440%_) + (##type-cast _%obj92440%_ '0)))) + (fxand _%h92442%_ (macro-max-fixnum32))))) (define __eq-hash - (lambda (_%obj92163%_) + (lambda (_%obj92437%_) (declare (not interrupts-enabled)) - (__object->eq-hash _%obj92163%_))) + (__object->eq-hash _%obj92437%_))) (define eqv-hash - (lambda (_%obj92153%_) - (letrec ((_%combine92155%_ - (lambda (_%a92160%_ _%b92161%_) - (fxand (##fx* (##fx+ _%a92160%_ + (lambda (_%obj92427%_) + (letrec ((_%combine92429%_ + (lambda (_%a92434%_ _%b92435%_) + (fxand (##fx* (##fx+ _%a92434%_ (fxarithmetic-shift-left - _%b92161%_ + _%b92435%_ '1)) '331804471) (macro-max-fixnum32)))) - (_%hash92156%_ - (lambda (_%obj92158%_) + (_%hash92430%_ + (lambda (_%obj92432%_) (macro-number-dispatch - _%obj92158%_ - (eq-hash _%obj92158%_) - (fxand _%obj92158%_ (macro-max-fixnum32)) - (modulo _%obj92158%_ '331804481) - (_%combine92155%_ - (_%hash92156%_ (macro-ratnum-numerator _%obj92158%_)) - (_%hash92156%_ (macro-ratnum-denominator _%obj92158%_))) - (_%combine92155%_ - (##u16vector-ref _%obj92158%_ '0) - (_%combine92155%_ - (##u16vector-ref _%obj92158%_ '1) - (_%combine92155%_ - (##u16vector-ref _%obj92158%_ '2) - (##u16vector-ref _%obj92158%_ '3)))) - (_%combine92155%_ - (_%hash92156%_ (macro-cpxnum-real _%obj92158%_)) - (_%hash92156%_ (macro-cpxnum-imag _%obj92158%_))))))) - (_%hash92156%_ _%obj92153%_)))) + _%obj92432%_ + (eq-hash _%obj92432%_) + (fxand _%obj92432%_ (macro-max-fixnum32)) + (modulo _%obj92432%_ '331804481) + (_%combine92429%_ + (_%hash92430%_ (macro-ratnum-numerator _%obj92432%_)) + (_%hash92430%_ (macro-ratnum-denominator _%obj92432%_))) + (_%combine92429%_ + (##u16vector-ref _%obj92432%_ '0) + (_%combine92429%_ + (##u16vector-ref _%obj92432%_ '1) + (_%combine92429%_ + (##u16vector-ref _%obj92432%_ '2) + (##u16vector-ref _%obj92432%_ '3)))) + (_%combine92429%_ + (_%hash92430%_ (macro-cpxnum-real _%obj92432%_)) + (_%hash92430%_ (macro-cpxnum-imag _%obj92432%_))))))) + (_%hash92430%_ _%obj92427%_)))) (define symbolic? - (lambda (_%obj92148%_) - (let ((_%$e92150%_ (symbol? _%obj92148%_))) - (if _%$e92150%_ _%$e92150%_ (keyword? _%obj92148%_))))) - (define symbolic-hash (lambda (_%obj92146%_) (macro-slot '1 _%obj92146%_))) - (define string-hash (lambda (_%obj92144%_) (##string=?-hash _%obj92144%_))) + (lambda (_%obj92422%_) + (let ((_%$e92424%_ (symbol? _%obj92422%_))) + (if _%$e92424%_ _%$e92424%_ (keyword? _%obj92422%_))))) + (define symbolic-hash (lambda (_%obj92420%_) (macro-slot '1 _%obj92420%_))) + (define string-hash (lambda (_%obj92418%_) (##string=?-hash _%obj92418%_))) (define immediate-hash - (lambda (_%obj92142%_) (##type-cast _%obj92142%_ (macro-type-fixnum)))) + (lambda (_%obj92416%_) (##type-cast _%obj92416%_ (macro-type-fixnum)))) (define make-eq-table__% - (lambda (_%size-hint92123%_ _%seed92125%_) - (make-raw-table__% _%size-hint92123%_ eq-hash eq? _%seed92125%_))) + (lambda (_%size-hint92397%_ _%seed92399%_) + (make-raw-table__% _%size-hint92397%_ eq-hash eq? _%seed92399%_))) (define make-eq-table__0 (lambda () - (let* ((_%size-hint92131%_ '#f) (_%seed92133%_ '0)) - (make-eq-table__% _%size-hint92131%_ _%seed92133%_)))) + (let* ((_%size-hint92405%_ '#f) (_%seed92407%_ '0)) + (make-eq-table__% _%size-hint92405%_ _%seed92407%_)))) (define make-eq-table__1 - (lambda (_%size-hint92135%_) - (let ((_%seed92137%_ '0)) - (make-eq-table__% _%size-hint92135%_ _%seed92137%_)))) + (lambda (_%size-hint92409%_) + (let ((_%seed92411%_ '0)) + (make-eq-table__% _%size-hint92409%_ _%seed92411%_)))) (define make-eq-table - (lambda _g92479_ - (let ((_g92478_ (##length _g92479_))) - (cond ((##fx= _g92478_ 0) (apply make-eq-table__0 _g92479_)) - ((##fx= _g92478_ 1) (apply make-eq-table__1 _g92479_)) - ((##fx= _g92478_ 2) (apply make-eq-table__% _g92479_)) + (lambda _g92753_ + (let ((_g92752_ (##length _g92753_))) + (cond ((##fx= _g92752_ 0) (apply make-eq-table__0 _g92753_)) + ((##fx= _g92752_ 1) (apply make-eq-table__1 _g92753_)) + ((##fx= _g92752_ 2) (apply make-eq-table__% _g92753_)) (else (##raise-wrong-number-of-arguments-exception make-eq-table - _g92479_)))))) + _g92753_)))))) (define eq-table-ref - (lambda (_%tab92076%_ _%key92077%_ _%default92078%_) - (let ((_%table92080%_ (&raw-table-table _%tab92076%_)) - (_%seed92081%_ (&raw-table-seed _%tab92076%_))) - (let* ((_%h92083%_ (fxxor (eq-hash _%key92077%_) _%seed92081%_)) - (_%size92086%_ (vector-length _%table92080%_)) - (_%entries92089%_ (##fxquotient _%size92086%_ '2)) - (_%start92092%_ + (lambda (_%tab92350%_ _%key92351%_ _%default92352%_) + (let ((_%table92354%_ (&raw-table-table _%tab92350%_)) + (_%seed92355%_ (&raw-table-seed _%tab92350%_))) + (let* ((_%h92357%_ (fxxor (eq-hash _%key92351%_) _%seed92355%_)) + (_%size92360%_ (vector-length _%table92354%_)) + (_%entries92363%_ (##fxquotient _%size92360%_ '2)) + (_%start92366%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92083%_ _%entries92089%_) + (##fxmodulo _%h92357%_ _%entries92363%_) '1))) - (let _%loop92096%_ ((_%probe92099%_ _%start92092%_) - (_%i92101%_ '1) - (_%deleted92103%_ '#f)) - (let ((_%k92106%_ (vector-ref _%table92080%_ _%probe92099%_))) - (if (eq? _%k92106%_ (macro-unused-obj)) - _%default92078%_ - (if (eq? _%k92106%_ (macro-deleted-obj)) - (_%loop92096%_ - (let ((_%next-probe92111%_ - (fx+ _%start92092%_ - _%i92101%_ - (fx* _%i92101%_ _%i92101%_)))) - (##fxmodulo _%next-probe92111%_ _%size92086%_)) - (##fx+ _%i92101%_ '1) - (let ((_%$e92114%_ _%deleted92103%_)) - (if _%$e92114%_ _%$e92114%_ _%probe92099%_))) - (if (eq? _%key92077%_ _%k92106%_) + (let _%loop92370%_ ((_%probe92373%_ _%start92366%_) + (_%i92375%_ '1) + (_%deleted92377%_ '#f)) + (let ((_%k92380%_ (vector-ref _%table92354%_ _%probe92373%_))) + (if (eq? _%k92380%_ (macro-unused-obj)) + _%default92352%_ + (if (eq? _%k92380%_ (macro-deleted-obj)) + (_%loop92370%_ + (let ((_%next-probe92385%_ + (fx+ _%start92366%_ + _%i92375%_ + (fx* _%i92375%_ _%i92375%_)))) + (##fxmodulo _%next-probe92385%_ _%size92360%_)) + (##fx+ _%i92375%_ '1) + (let ((_%$e92388%_ _%deleted92377%_)) + (if _%$e92388%_ _%$e92388%_ _%probe92373%_))) + (if (eq? _%key92351%_ _%k92380%_) (vector-ref - _%table92080%_ - (##fx+ _%probe92099%_ '1)) - (_%loop92096%_ - (let ((_%next-probe92119%_ - (fx+ _%start92092%_ - _%i92101%_ - (fx* _%i92101%_ _%i92101%_)))) - (##fxmodulo _%next-probe92119%_ _%size92086%_)) - (##fx+ _%i92101%_ '1) - _%deleted92103%_)))))))))) + _%table92354%_ + (##fx+ _%probe92373%_ '1)) + (_%loop92370%_ + (let ((_%next-probe92393%_ + (fx+ _%start92366%_ + _%i92375%_ + (fx* _%i92375%_ _%i92375%_)))) + (##fxmodulo _%next-probe92393%_ _%size92360%_)) + (##fx+ _%i92375%_ '1) + _%deleted92377%_)))))))))) (define eq-table-set! - (lambda (_%tab92072%_ _%key92073%_ _%value92074%_) - (if (##fx< (&raw-table-free _%tab92072%_) + (lambda (_%tab92346%_ _%key92347%_ _%value92348%_) + (if (##fx< (&raw-table-free _%tab92346%_) (##fxquotient - (vector-length (&raw-table-table _%tab92072%_)) + (vector-length (&raw-table-table _%tab92346%_)) '4)) - (__raw-table-rehash! _%tab92072%_) + (__raw-table-rehash! _%tab92346%_) '#!void) - (__eq-table-set! _%tab92072%_ _%key92073%_ _%value92074%_))) + (__eq-table-set! _%tab92346%_ _%key92347%_ _%value92348%_))) (define __eq-table-set! - (lambda (_%tab92023%_ _%key92024%_ _%value92025%_) - (let ((_%table92028%_ (&raw-table-table _%tab92023%_)) - (_%seed92029%_ (&raw-table-seed _%tab92023%_))) - (let* ((_%h92031%_ (fxxor (eq-hash _%key92024%_) _%seed92029%_)) - (_%size92034%_ (vector-length _%table92028%_)) - (_%entries92037%_ (##fxquotient _%size92034%_ '2)) - (_%start92040%_ + (lambda (_%tab92297%_ _%key92298%_ _%value92299%_) + (let ((_%table92302%_ (&raw-table-table _%tab92297%_)) + (_%seed92303%_ (&raw-table-seed _%tab92297%_))) + (let* ((_%h92305%_ (fxxor (eq-hash _%key92298%_) _%seed92303%_)) + (_%size92308%_ (vector-length _%table92302%_)) + (_%entries92311%_ (##fxquotient _%size92308%_ '2)) + (_%start92314%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92031%_ _%entries92037%_) + (##fxmodulo _%h92305%_ _%entries92311%_) '1))) - (let _%loop92044%_ ((_%probe92047%_ _%start92040%_) - (_%i92049%_ '1) - (_%deleted92051%_ '#f)) - (let ((_%k92054%_ (vector-ref _%table92028%_ _%probe92047%_))) - (if (eq? _%k92054%_ (macro-unused-obj)) - (if _%deleted92051%_ + (let _%loop92318%_ ((_%probe92321%_ _%start92314%_) + (_%i92323%_ '1) + (_%deleted92325%_ '#f)) + (let ((_%k92328%_ (vector-ref _%table92302%_ _%probe92321%_))) + (if (eq? _%k92328%_ (macro-unused-obj)) + (if _%deleted92325%_ (begin (vector-set! - _%table92028%_ - _%deleted92051%_ - _%key92024%_) + _%table92302%_ + _%deleted92325%_ + _%key92298%_) (vector-set! - _%table92028%_ - (##fx+ _%deleted92051%_ '1) - _%value92025%_) + _%table92302%_ + (##fx+ _%deleted92325%_ '1) + _%value92299%_) ((lambda () (&raw-table-count-set! - _%tab92023%_ - (##fx+ (&raw-table-count _%tab92023%_) '1))))) + _%tab92297%_ + (##fx+ (&raw-table-count _%tab92297%_) '1))))) (begin (vector-set! - _%table92028%_ - _%probe92047%_ - _%key92024%_) + _%table92302%_ + _%probe92321%_ + _%key92298%_) (vector-set! - _%table92028%_ - (##fx+ _%probe92047%_ '1) - _%value92025%_) + _%table92302%_ + (##fx+ _%probe92321%_ '1) + _%value92299%_) ((lambda () (&raw-table-free-set! - _%tab92023%_ - (##fx- (&raw-table-free _%tab92023%_) '1)) + _%tab92297%_ + (##fx- (&raw-table-free _%tab92297%_) '1)) (&raw-table-count-set! - _%tab92023%_ - (##fx+ (&raw-table-count _%tab92023%_) '1)))))) - (if (eq? _%k92054%_ (macro-deleted-obj)) - (_%loop92044%_ - (let ((_%next-probe92061%_ - (fx+ _%start92040%_ - _%i92049%_ - (fx* _%i92049%_ _%i92049%_)))) - (##fxmodulo _%next-probe92061%_ _%size92034%_)) - (##fx+ _%i92049%_ '1) - (let ((_%$e92064%_ _%deleted92051%_)) - (if _%$e92064%_ _%$e92064%_ _%probe92047%_))) - (if (eq? _%key92024%_ _%k92054%_) + _%tab92297%_ + (##fx+ (&raw-table-count _%tab92297%_) '1)))))) + (if (eq? _%k92328%_ (macro-deleted-obj)) + (_%loop92318%_ + (let ((_%next-probe92335%_ + (fx+ _%start92314%_ + _%i92323%_ + (fx* _%i92323%_ _%i92323%_)))) + (##fxmodulo _%next-probe92335%_ _%size92308%_)) + (##fx+ _%i92323%_ '1) + (let ((_%$e92338%_ _%deleted92325%_)) + (if _%$e92338%_ _%$e92338%_ _%probe92321%_))) + (if (eq? _%key92298%_ _%k92328%_) (let () (vector-set! - _%table92028%_ - _%probe92047%_ - _%key92024%_) + _%table92302%_ + _%probe92321%_ + _%key92298%_) (vector-set! - _%table92028%_ - (##fx+ _%probe92047%_ '1) - _%value92025%_)) - (_%loop92044%_ - (let ((_%next-probe92069%_ - (fx+ _%start92040%_ - _%i92049%_ - (fx* _%i92049%_ _%i92049%_)))) - (##fxmodulo _%next-probe92069%_ _%size92034%_)) - (##fx+ _%i92049%_ '1) - _%deleted92051%_)))))))))) + _%table92302%_ + (##fx+ _%probe92321%_ '1) + _%value92299%_)) + (_%loop92318%_ + (let ((_%next-probe92343%_ + (fx+ _%start92314%_ + _%i92323%_ + (fx* _%i92323%_ _%i92323%_)))) + (##fxmodulo _%next-probe92343%_ _%size92308%_)) + (##fx+ _%i92323%_ '1) + _%deleted92325%_)))))))))) (define eq-table-update! - (lambda (_%tab92018%_ - _%key92019%_ - _%eq-table-update!92020%_ - _%default92021%_) - (if (##fx< (&raw-table-free _%tab92018%_) + (lambda (_%tab92292%_ + _%key92293%_ + _%eq-table-update!92294%_ + _%default92295%_) + (if (##fx< (&raw-table-free _%tab92292%_) (##fxquotient - (vector-length (&raw-table-table _%tab92018%_)) + (vector-length (&raw-table-table _%tab92292%_)) '4)) - (__raw-table-rehash! _%tab92018%_) + (__raw-table-rehash! _%tab92292%_) '#!void) (__eq-table-update! - _%tab92018%_ - _%key92019%_ - _%eq-table-update!92020%_ - _%default92021%_))) + _%tab92292%_ + _%key92293%_ + _%eq-table-update!92294%_ + _%default92295%_))) (define __eq-table-update! - (lambda (_%tab91968%_ - _%key91969%_ - _%eq-table-update!91970%_ - _%default91971%_) - (let ((_%table91974%_ (&raw-table-table _%tab91968%_)) - (_%seed91975%_ (&raw-table-seed _%tab91968%_))) - (let* ((_%h91977%_ (fxxor (eq-hash _%key91969%_) _%seed91975%_)) - (_%size91980%_ (vector-length _%table91974%_)) - (_%entries91983%_ (##fxquotient _%size91980%_ '2)) - (_%start91986%_ + (lambda (_%tab92242%_ + _%key92243%_ + _%eq-table-update!92244%_ + _%default92245%_) + (let ((_%table92248%_ (&raw-table-table _%tab92242%_)) + (_%seed92249%_ (&raw-table-seed _%tab92242%_))) + (let* ((_%h92251%_ (fxxor (eq-hash _%key92243%_) _%seed92249%_)) + (_%size92254%_ (vector-length _%table92248%_)) + (_%entries92257%_ (##fxquotient _%size92254%_ '2)) + (_%start92260%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91977%_ _%entries91983%_) + (##fxmodulo _%h92251%_ _%entries92257%_) '1))) - (let _%loop91990%_ ((_%probe91993%_ _%start91986%_) - (_%i91995%_ '1) - (_%deleted91997%_ '#f)) - (let ((_%k92000%_ (vector-ref _%table91974%_ _%probe91993%_))) - (if (eq? _%k92000%_ (macro-unused-obj)) - (if _%deleted91997%_ + (let _%loop92264%_ ((_%probe92267%_ _%start92260%_) + (_%i92269%_ '1) + (_%deleted92271%_ '#f)) + (let ((_%k92274%_ (vector-ref _%table92248%_ _%probe92267%_))) + (if (eq? _%k92274%_ (macro-unused-obj)) + (if _%deleted92271%_ (begin (vector-set! - _%table91974%_ - _%deleted91997%_ - _%key91969%_) + _%table92248%_ + _%deleted92271%_ + _%key92243%_) (vector-set! - _%table91974%_ - (##fx+ _%deleted91997%_ '1) - (_%eq-table-update!91970%_ _%default91971%_)) + _%table92248%_ + (##fx+ _%deleted92271%_ '1) + (_%eq-table-update!92244%_ _%default92245%_)) ((lambda () (&raw-table-count-set! - _%tab91968%_ - (##fx+ (&raw-table-count _%tab91968%_) '1))))) + _%tab92242%_ + (##fx+ (&raw-table-count _%tab92242%_) '1))))) (begin (vector-set! - _%table91974%_ - _%probe91993%_ - _%key91969%_) + _%table92248%_ + _%probe92267%_ + _%key92243%_) (vector-set! - _%table91974%_ - (##fx+ _%probe91993%_ '1) - (_%eq-table-update!91970%_ _%default91971%_)) + _%table92248%_ + (##fx+ _%probe92267%_ '1) + (_%eq-table-update!92244%_ _%default92245%_)) ((lambda () (&raw-table-free-set! - _%tab91968%_ - (##fx- (&raw-table-free _%tab91968%_) '1)) + _%tab92242%_ + (##fx- (&raw-table-free _%tab92242%_) '1)) (&raw-table-count-set! - _%tab91968%_ - (##fx+ (&raw-table-count _%tab91968%_) '1)))))) - (if (eq? _%k92000%_ (macro-deleted-obj)) - (_%loop91990%_ - (let ((_%next-probe92007%_ - (fx+ _%start91986%_ - _%i91995%_ - (fx* _%i91995%_ _%i91995%_)))) - (##fxmodulo _%next-probe92007%_ _%size91980%_)) - (##fx+ _%i91995%_ '1) - (let ((_%$e92010%_ _%deleted91997%_)) - (if _%$e92010%_ _%$e92010%_ _%probe91993%_))) - (if (eq? _%key91969%_ _%k92000%_) + _%tab92242%_ + (##fx+ (&raw-table-count _%tab92242%_) '1)))))) + (if (eq? _%k92274%_ (macro-deleted-obj)) + (_%loop92264%_ + (let ((_%next-probe92281%_ + (fx+ _%start92260%_ + _%i92269%_ + (fx* _%i92269%_ _%i92269%_)))) + (##fxmodulo _%next-probe92281%_ _%size92254%_)) + (##fx+ _%i92269%_ '1) + (let ((_%$e92284%_ _%deleted92271%_)) + (if _%$e92284%_ _%$e92284%_ _%probe92267%_))) + (if (eq? _%key92243%_ _%k92274%_) (let () (vector-set! - _%table91974%_ - _%probe91993%_ - _%key91969%_) + _%table92248%_ + _%probe92267%_ + _%key92243%_) (vector-set! - _%table91974%_ - (##fx+ _%probe91993%_ '1) - (_%eq-table-update!91970%_ + _%table92248%_ + (##fx+ _%probe92267%_ '1) + (_%eq-table-update!92244%_ (vector-ref - _%table91974%_ - (##fx+ _%probe91993%_ '1))))) - (_%loop91990%_ - (let ((_%next-probe92015%_ - (fx+ _%start91986%_ - _%i91995%_ - (fx* _%i91995%_ _%i91995%_)))) - (##fxmodulo _%next-probe92015%_ _%size91980%_)) - (##fx+ _%i91995%_ '1) - _%deleted91997%_)))))))))) + _%table92248%_ + (##fx+ _%probe92267%_ '1))))) + (_%loop92264%_ + (let ((_%next-probe92289%_ + (fx+ _%start92260%_ + _%i92269%_ + (fx* _%i92269%_ _%i92269%_)))) + (##fxmodulo _%next-probe92289%_ _%size92254%_)) + (##fx+ _%i92269%_ '1) + _%deleted92271%_)))))))))) (define eq-table-delete! - (lambda (_%tab91923%_ _%key91925%_) - (let ((_%table91928%_ (&raw-table-table _%tab91923%_)) - (_%seed91930%_ (&raw-table-seed _%tab91923%_))) - (let* ((_%h91933%_ (fxxor (eq-hash _%key91925%_) _%seed91930%_)) - (_%size91936%_ (vector-length _%table91928%_)) - (_%entries91939%_ (##fxquotient _%size91936%_ '2)) - (_%start91942%_ + (lambda (_%tab92197%_ _%key92199%_) + (let ((_%table92202%_ (&raw-table-table _%tab92197%_)) + (_%seed92204%_ (&raw-table-seed _%tab92197%_))) + (let* ((_%h92207%_ (fxxor (eq-hash _%key92199%_) _%seed92204%_)) + (_%size92210%_ (vector-length _%table92202%_)) + (_%entries92213%_ (##fxquotient _%size92210%_ '2)) + (_%start92216%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91933%_ _%entries91939%_) + (##fxmodulo _%h92207%_ _%entries92213%_) '1))) - (let _%loop91946%_ ((_%probe91949%_ _%start91942%_) - (_%i91951%_ '1)) - (let ((_%k91954%_ (vector-ref _%table91928%_ _%probe91949%_))) - (if (eq? _%k91954%_ (macro-unused-obj)) + (let _%loop92220%_ ((_%probe92223%_ _%start92216%_) + (_%i92225%_ '1)) + (let ((_%k92228%_ (vector-ref _%table92202%_ _%probe92223%_))) + (if (eq? _%k92228%_ (macro-unused-obj)) '#!void - (if (eq? _%k91954%_ (macro-deleted-obj)) - (_%loop91946%_ - (let ((_%next-probe91959%_ - (fx+ _%start91942%_ - _%i91951%_ - (fx* _%i91951%_ _%i91951%_)))) - (##fxmodulo _%next-probe91959%_ _%size91936%_)) - (##fx+ _%i91951%_ '1)) - (if (eq? _%key91925%_ _%k91954%_) + (if (eq? _%k92228%_ (macro-deleted-obj)) + (_%loop92220%_ + (let ((_%next-probe92233%_ + (fx+ _%start92216%_ + _%i92225%_ + (fx* _%i92225%_ _%i92225%_)))) + (##fxmodulo _%next-probe92233%_ _%size92210%_)) + (##fx+ _%i92225%_ '1)) + (if (eq? _%key92199%_ _%k92228%_) (let () (vector-set! - _%table91928%_ - _%probe91949%_ + _%table92202%_ + _%probe92223%_ (macro-deleted-obj)) (vector-set! - _%table91928%_ - (##fx+ _%probe91949%_ '1) + _%table92202%_ + (##fx+ _%probe92223%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab91923%_ - (##fx- (&raw-table-count _%tab91923%_) + _%tab92197%_ + (##fx- (&raw-table-count _%tab92197%_) '1))))) - (_%loop91946%_ - (let ((_%next-probe91965%_ - (fx+ _%start91942%_ - _%i91951%_ - (fx* _%i91951%_ _%i91951%_)))) - (##fxmodulo _%next-probe91965%_ _%size91936%_)) - (##fx+ _%i91951%_ '1))))))))))) + (_%loop92220%_ + (let ((_%next-probe92239%_ + (fx+ _%start92216%_ + _%i92225%_ + (fx* _%i92225%_ _%i92225%_)))) + (##fxmodulo _%next-probe92239%_ _%size92210%_)) + (##fx+ _%i92225%_ '1))))))))))) (define make-eqv-table__% - (lambda (_%size-hint91904%_ _%seed91906%_) - (make-raw-table__% _%size-hint91904%_ eqv-hash eqv? _%seed91906%_))) + (lambda (_%size-hint92178%_ _%seed92180%_) + (make-raw-table__% _%size-hint92178%_ eqv-hash eqv? _%seed92180%_))) (define make-eqv-table__0 (lambda () - (let* ((_%size-hint91912%_ '#f) (_%seed91914%_ '0)) - (make-eqv-table__% _%size-hint91912%_ _%seed91914%_)))) + (let* ((_%size-hint92186%_ '#f) (_%seed92188%_ '0)) + (make-eqv-table__% _%size-hint92186%_ _%seed92188%_)))) (define make-eqv-table__1 - (lambda (_%size-hint91916%_) - (let ((_%seed91918%_ '0)) - (make-eqv-table__% _%size-hint91916%_ _%seed91918%_)))) + (lambda (_%size-hint92190%_) + (let ((_%seed92192%_ '0)) + (make-eqv-table__% _%size-hint92190%_ _%seed92192%_)))) (define make-eqv-table - (lambda _g92481_ - (let ((_g92480_ (##length _g92481_))) - (cond ((##fx= _g92480_ 0) (apply make-eqv-table__0 _g92481_)) - ((##fx= _g92480_ 1) (apply make-eqv-table__1 _g92481_)) - ((##fx= _g92480_ 2) (apply make-eqv-table__% _g92481_)) + (lambda _g92755_ + (let ((_g92754_ (##length _g92755_))) + (cond ((##fx= _g92754_ 0) (apply make-eqv-table__0 _g92755_)) + ((##fx= _g92754_ 1) (apply make-eqv-table__1 _g92755_)) + ((##fx= _g92754_ 2) (apply make-eqv-table__% _g92755_)) (else (##raise-wrong-number-of-arguments-exception make-eqv-table - _g92481_)))))) + _g92755_)))))) (define eqv-table-ref - (lambda (_%tab91857%_ _%key91858%_ _%default91859%_) - (let ((_%table91861%_ (&raw-table-table _%tab91857%_)) - (_%seed91862%_ (&raw-table-seed _%tab91857%_))) - (let* ((_%h91864%_ (fxxor (eqv-hash _%key91858%_) _%seed91862%_)) - (_%size91867%_ (vector-length _%table91861%_)) - (_%entries91870%_ (##fxquotient _%size91867%_ '2)) - (_%start91873%_ + (lambda (_%tab92131%_ _%key92132%_ _%default92133%_) + (let ((_%table92135%_ (&raw-table-table _%tab92131%_)) + (_%seed92136%_ (&raw-table-seed _%tab92131%_))) + (let* ((_%h92138%_ (fxxor (eqv-hash _%key92132%_) _%seed92136%_)) + (_%size92141%_ (vector-length _%table92135%_)) + (_%entries92144%_ (##fxquotient _%size92141%_ '2)) + (_%start92147%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91864%_ _%entries91870%_) + (##fxmodulo _%h92138%_ _%entries92144%_) '1))) - (let _%loop91877%_ ((_%probe91880%_ _%start91873%_) - (_%i91882%_ '1) - (_%deleted91884%_ '#f)) - (let ((_%k91887%_ (vector-ref _%table91861%_ _%probe91880%_))) - (if (eq? _%k91887%_ (macro-unused-obj)) - _%default91859%_ - (if (eq? _%k91887%_ (macro-deleted-obj)) - (_%loop91877%_ - (let ((_%next-probe91892%_ - (fx+ _%start91873%_ - _%i91882%_ - (fx* _%i91882%_ _%i91882%_)))) - (##fxmodulo _%next-probe91892%_ _%size91867%_)) - (##fx+ _%i91882%_ '1) - (let ((_%$e91895%_ _%deleted91884%_)) - (if _%$e91895%_ _%$e91895%_ _%probe91880%_))) - (if (eqv? _%key91858%_ _%k91887%_) + (let _%loop92151%_ ((_%probe92154%_ _%start92147%_) + (_%i92156%_ '1) + (_%deleted92158%_ '#f)) + (let ((_%k92161%_ (vector-ref _%table92135%_ _%probe92154%_))) + (if (eq? _%k92161%_ (macro-unused-obj)) + _%default92133%_ + (if (eq? _%k92161%_ (macro-deleted-obj)) + (_%loop92151%_ + (let ((_%next-probe92166%_ + (fx+ _%start92147%_ + _%i92156%_ + (fx* _%i92156%_ _%i92156%_)))) + (##fxmodulo _%next-probe92166%_ _%size92141%_)) + (##fx+ _%i92156%_ '1) + (let ((_%$e92169%_ _%deleted92158%_)) + (if _%$e92169%_ _%$e92169%_ _%probe92154%_))) + (if (eqv? _%key92132%_ _%k92161%_) (vector-ref - _%table91861%_ - (##fx+ _%probe91880%_ '1)) - (_%loop91877%_ - (let ((_%next-probe91900%_ - (fx+ _%start91873%_ - _%i91882%_ - (fx* _%i91882%_ _%i91882%_)))) - (##fxmodulo _%next-probe91900%_ _%size91867%_)) - (##fx+ _%i91882%_ '1) - _%deleted91884%_)))))))))) + _%table92135%_ + (##fx+ _%probe92154%_ '1)) + (_%loop92151%_ + (let ((_%next-probe92174%_ + (fx+ _%start92147%_ + _%i92156%_ + (fx* _%i92156%_ _%i92156%_)))) + (##fxmodulo _%next-probe92174%_ _%size92141%_)) + (##fx+ _%i92156%_ '1) + _%deleted92158%_)))))))))) (define eqv-table-set! - (lambda (_%tab91853%_ _%key91854%_ _%value91855%_) - (if (##fx< (&raw-table-free _%tab91853%_) + (lambda (_%tab92127%_ _%key92128%_ _%value92129%_) + (if (##fx< (&raw-table-free _%tab92127%_) (##fxquotient - (vector-length (&raw-table-table _%tab91853%_)) + (vector-length (&raw-table-table _%tab92127%_)) '4)) - (__raw-table-rehash! _%tab91853%_) + (__raw-table-rehash! _%tab92127%_) '#!void) - (__eqv-table-set! _%tab91853%_ _%key91854%_ _%value91855%_))) + (__eqv-table-set! _%tab92127%_ _%key92128%_ _%value92129%_))) (define __eqv-table-set! - (lambda (_%tab91804%_ _%key91805%_ _%value91806%_) - (let ((_%table91809%_ (&raw-table-table _%tab91804%_)) - (_%seed91810%_ (&raw-table-seed _%tab91804%_))) - (let* ((_%h91812%_ (fxxor (eqv-hash _%key91805%_) _%seed91810%_)) - (_%size91815%_ (vector-length _%table91809%_)) - (_%entries91818%_ (##fxquotient _%size91815%_ '2)) - (_%start91821%_ + (lambda (_%tab92078%_ _%key92079%_ _%value92080%_) + (let ((_%table92083%_ (&raw-table-table _%tab92078%_)) + (_%seed92084%_ (&raw-table-seed _%tab92078%_))) + (let* ((_%h92086%_ (fxxor (eqv-hash _%key92079%_) _%seed92084%_)) + (_%size92089%_ (vector-length _%table92083%_)) + (_%entries92092%_ (##fxquotient _%size92089%_ '2)) + (_%start92095%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91812%_ _%entries91818%_) + (##fxmodulo _%h92086%_ _%entries92092%_) '1))) - (let _%loop91825%_ ((_%probe91828%_ _%start91821%_) - (_%i91830%_ '1) - (_%deleted91832%_ '#f)) - (let ((_%k91835%_ (vector-ref _%table91809%_ _%probe91828%_))) - (if (eq? _%k91835%_ (macro-unused-obj)) - (if _%deleted91832%_ + (let _%loop92099%_ ((_%probe92102%_ _%start92095%_) + (_%i92104%_ '1) + (_%deleted92106%_ '#f)) + (let ((_%k92109%_ (vector-ref _%table92083%_ _%probe92102%_))) + (if (eq? _%k92109%_ (macro-unused-obj)) + (if _%deleted92106%_ (begin (vector-set! - _%table91809%_ - _%deleted91832%_ - _%key91805%_) + _%table92083%_ + _%deleted92106%_ + _%key92079%_) (vector-set! - _%table91809%_ - (##fx+ _%deleted91832%_ '1) - _%value91806%_) + _%table92083%_ + (##fx+ _%deleted92106%_ '1) + _%value92080%_) ((lambda () (&raw-table-count-set! - _%tab91804%_ - (##fx+ (&raw-table-count _%tab91804%_) '1))))) + _%tab92078%_ + (##fx+ (&raw-table-count _%tab92078%_) '1))))) (begin (vector-set! - _%table91809%_ - _%probe91828%_ - _%key91805%_) + _%table92083%_ + _%probe92102%_ + _%key92079%_) (vector-set! - _%table91809%_ - (##fx+ _%probe91828%_ '1) - _%value91806%_) + _%table92083%_ + (##fx+ _%probe92102%_ '1) + _%value92080%_) ((lambda () (&raw-table-free-set! - _%tab91804%_ - (##fx- (&raw-table-free _%tab91804%_) '1)) + _%tab92078%_ + (##fx- (&raw-table-free _%tab92078%_) '1)) (&raw-table-count-set! - _%tab91804%_ - (##fx+ (&raw-table-count _%tab91804%_) '1)))))) - (if (eq? _%k91835%_ (macro-deleted-obj)) - (_%loop91825%_ - (let ((_%next-probe91842%_ - (fx+ _%start91821%_ - _%i91830%_ - (fx* _%i91830%_ _%i91830%_)))) - (##fxmodulo _%next-probe91842%_ _%size91815%_)) - (##fx+ _%i91830%_ '1) - (let ((_%$e91845%_ _%deleted91832%_)) - (if _%$e91845%_ _%$e91845%_ _%probe91828%_))) - (if (eqv? _%key91805%_ _%k91835%_) + _%tab92078%_ + (##fx+ (&raw-table-count _%tab92078%_) '1)))))) + (if (eq? _%k92109%_ (macro-deleted-obj)) + (_%loop92099%_ + (let ((_%next-probe92116%_ + (fx+ _%start92095%_ + _%i92104%_ + (fx* _%i92104%_ _%i92104%_)))) + (##fxmodulo _%next-probe92116%_ _%size92089%_)) + (##fx+ _%i92104%_ '1) + (let ((_%$e92119%_ _%deleted92106%_)) + (if _%$e92119%_ _%$e92119%_ _%probe92102%_))) + (if (eqv? _%key92079%_ _%k92109%_) (let () (vector-set! - _%table91809%_ - _%probe91828%_ - _%key91805%_) + _%table92083%_ + _%probe92102%_ + _%key92079%_) (vector-set! - _%table91809%_ - (##fx+ _%probe91828%_ '1) - _%value91806%_)) - (_%loop91825%_ - (let ((_%next-probe91850%_ - (fx+ _%start91821%_ - _%i91830%_ - (fx* _%i91830%_ _%i91830%_)))) - (##fxmodulo _%next-probe91850%_ _%size91815%_)) - (##fx+ _%i91830%_ '1) - _%deleted91832%_)))))))))) + _%table92083%_ + (##fx+ _%probe92102%_ '1) + _%value92080%_)) + (_%loop92099%_ + (let ((_%next-probe92124%_ + (fx+ _%start92095%_ + _%i92104%_ + (fx* _%i92104%_ _%i92104%_)))) + (##fxmodulo _%next-probe92124%_ _%size92089%_)) + (##fx+ _%i92104%_ '1) + _%deleted92106%_)))))))))) (define eqv-table-update! - (lambda (_%tab91799%_ - _%key91800%_ - _%eqv-table-update!91801%_ - _%default91802%_) - (if (##fx< (&raw-table-free _%tab91799%_) + (lambda (_%tab92073%_ + _%key92074%_ + _%eqv-table-update!92075%_ + _%default92076%_) + (if (##fx< (&raw-table-free _%tab92073%_) (##fxquotient - (vector-length (&raw-table-table _%tab91799%_)) + (vector-length (&raw-table-table _%tab92073%_)) '4)) - (__raw-table-rehash! _%tab91799%_) + (__raw-table-rehash! _%tab92073%_) '#!void) (__eqv-table-update! - _%tab91799%_ - _%key91800%_ - _%eqv-table-update!91801%_ - _%default91802%_))) + _%tab92073%_ + _%key92074%_ + _%eqv-table-update!92075%_ + _%default92076%_))) (define __eqv-table-update! - (lambda (_%tab91749%_ - _%key91750%_ - _%eqv-table-update!91751%_ - _%default91752%_) - (let ((_%table91755%_ (&raw-table-table _%tab91749%_)) - (_%seed91756%_ (&raw-table-seed _%tab91749%_))) - (let* ((_%h91758%_ (fxxor (eqv-hash _%key91750%_) _%seed91756%_)) - (_%size91761%_ (vector-length _%table91755%_)) - (_%entries91764%_ (##fxquotient _%size91761%_ '2)) - (_%start91767%_ + (lambda (_%tab92023%_ + _%key92024%_ + _%eqv-table-update!92025%_ + _%default92026%_) + (let ((_%table92029%_ (&raw-table-table _%tab92023%_)) + (_%seed92030%_ (&raw-table-seed _%tab92023%_))) + (let* ((_%h92032%_ (fxxor (eqv-hash _%key92024%_) _%seed92030%_)) + (_%size92035%_ (vector-length _%table92029%_)) + (_%entries92038%_ (##fxquotient _%size92035%_ '2)) + (_%start92041%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91758%_ _%entries91764%_) + (##fxmodulo _%h92032%_ _%entries92038%_) '1))) - (let _%loop91771%_ ((_%probe91774%_ _%start91767%_) - (_%i91776%_ '1) - (_%deleted91778%_ '#f)) - (let ((_%k91781%_ (vector-ref _%table91755%_ _%probe91774%_))) - (if (eq? _%k91781%_ (macro-unused-obj)) - (if _%deleted91778%_ + (let _%loop92045%_ ((_%probe92048%_ _%start92041%_) + (_%i92050%_ '1) + (_%deleted92052%_ '#f)) + (let ((_%k92055%_ (vector-ref _%table92029%_ _%probe92048%_))) + (if (eq? _%k92055%_ (macro-unused-obj)) + (if _%deleted92052%_ (begin (vector-set! - _%table91755%_ - _%deleted91778%_ - _%key91750%_) + _%table92029%_ + _%deleted92052%_ + _%key92024%_) (vector-set! - _%table91755%_ - (##fx+ _%deleted91778%_ '1) - (_%eqv-table-update!91751%_ _%default91752%_)) + _%table92029%_ + (##fx+ _%deleted92052%_ '1) + (_%eqv-table-update!92025%_ _%default92026%_)) ((lambda () (&raw-table-count-set! - _%tab91749%_ - (##fx+ (&raw-table-count _%tab91749%_) '1))))) + _%tab92023%_ + (##fx+ (&raw-table-count _%tab92023%_) '1))))) (begin (vector-set! - _%table91755%_ - _%probe91774%_ - _%key91750%_) + _%table92029%_ + _%probe92048%_ + _%key92024%_) (vector-set! - _%table91755%_ - (##fx+ _%probe91774%_ '1) - (_%eqv-table-update!91751%_ _%default91752%_)) + _%table92029%_ + (##fx+ _%probe92048%_ '1) + (_%eqv-table-update!92025%_ _%default92026%_)) ((lambda () (&raw-table-free-set! - _%tab91749%_ - (##fx- (&raw-table-free _%tab91749%_) '1)) + _%tab92023%_ + (##fx- (&raw-table-free _%tab92023%_) '1)) (&raw-table-count-set! - _%tab91749%_ - (##fx+ (&raw-table-count _%tab91749%_) '1)))))) - (if (eq? _%k91781%_ (macro-deleted-obj)) - (_%loop91771%_ - (let ((_%next-probe91788%_ - (fx+ _%start91767%_ - _%i91776%_ - (fx* _%i91776%_ _%i91776%_)))) - (##fxmodulo _%next-probe91788%_ _%size91761%_)) - (##fx+ _%i91776%_ '1) - (let ((_%$e91791%_ _%deleted91778%_)) - (if _%$e91791%_ _%$e91791%_ _%probe91774%_))) - (if (eqv? _%key91750%_ _%k91781%_) + _%tab92023%_ + (##fx+ (&raw-table-count _%tab92023%_) '1)))))) + (if (eq? _%k92055%_ (macro-deleted-obj)) + (_%loop92045%_ + (let ((_%next-probe92062%_ + (fx+ _%start92041%_ + _%i92050%_ + (fx* _%i92050%_ _%i92050%_)))) + (##fxmodulo _%next-probe92062%_ _%size92035%_)) + (##fx+ _%i92050%_ '1) + (let ((_%$e92065%_ _%deleted92052%_)) + (if _%$e92065%_ _%$e92065%_ _%probe92048%_))) + (if (eqv? _%key92024%_ _%k92055%_) (let () (vector-set! - _%table91755%_ - _%probe91774%_ - _%key91750%_) + _%table92029%_ + _%probe92048%_ + _%key92024%_) (vector-set! - _%table91755%_ - (##fx+ _%probe91774%_ '1) - (_%eqv-table-update!91751%_ + _%table92029%_ + (##fx+ _%probe92048%_ '1) + (_%eqv-table-update!92025%_ (vector-ref - _%table91755%_ - (##fx+ _%probe91774%_ '1))))) - (_%loop91771%_ - (let ((_%next-probe91796%_ - (fx+ _%start91767%_ - _%i91776%_ - (fx* _%i91776%_ _%i91776%_)))) - (##fxmodulo _%next-probe91796%_ _%size91761%_)) - (##fx+ _%i91776%_ '1) - _%deleted91778%_)))))))))) + _%table92029%_ + (##fx+ _%probe92048%_ '1))))) + (_%loop92045%_ + (let ((_%next-probe92070%_ + (fx+ _%start92041%_ + _%i92050%_ + (fx* _%i92050%_ _%i92050%_)))) + (##fxmodulo _%next-probe92070%_ _%size92035%_)) + (##fx+ _%i92050%_ '1) + _%deleted92052%_)))))))))) (define eqv-table-delete! - (lambda (_%tab91704%_ _%key91706%_) - (let ((_%table91709%_ (&raw-table-table _%tab91704%_)) - (_%seed91711%_ (&raw-table-seed _%tab91704%_))) - (let* ((_%h91714%_ (fxxor (eqv-hash _%key91706%_) _%seed91711%_)) - (_%size91717%_ (vector-length _%table91709%_)) - (_%entries91720%_ (##fxquotient _%size91717%_ '2)) - (_%start91723%_ + (lambda (_%tab91978%_ _%key91980%_) + (let ((_%table91983%_ (&raw-table-table _%tab91978%_)) + (_%seed91985%_ (&raw-table-seed _%tab91978%_))) + (let* ((_%h91988%_ (fxxor (eqv-hash _%key91980%_) _%seed91985%_)) + (_%size91991%_ (vector-length _%table91983%_)) + (_%entries91994%_ (##fxquotient _%size91991%_ '2)) + (_%start91997%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91714%_ _%entries91720%_) + (##fxmodulo _%h91988%_ _%entries91994%_) '1))) - (let _%loop91727%_ ((_%probe91730%_ _%start91723%_) - (_%i91732%_ '1)) - (let ((_%k91735%_ (vector-ref _%table91709%_ _%probe91730%_))) - (if (eq? _%k91735%_ (macro-unused-obj)) + (let _%loop92001%_ ((_%probe92004%_ _%start91997%_) + (_%i92006%_ '1)) + (let ((_%k92009%_ (vector-ref _%table91983%_ _%probe92004%_))) + (if (eq? _%k92009%_ (macro-unused-obj)) '#!void - (if (eq? _%k91735%_ (macro-deleted-obj)) - (_%loop91727%_ - (let ((_%next-probe91740%_ - (fx+ _%start91723%_ - _%i91732%_ - (fx* _%i91732%_ _%i91732%_)))) - (##fxmodulo _%next-probe91740%_ _%size91717%_)) - (##fx+ _%i91732%_ '1)) - (if (eqv? _%key91706%_ _%k91735%_) + (if (eq? _%k92009%_ (macro-deleted-obj)) + (_%loop92001%_ + (let ((_%next-probe92014%_ + (fx+ _%start91997%_ + _%i92006%_ + (fx* _%i92006%_ _%i92006%_)))) + (##fxmodulo _%next-probe92014%_ _%size91991%_)) + (##fx+ _%i92006%_ '1)) + (if (eqv? _%key91980%_ _%k92009%_) (let () (vector-set! - _%table91709%_ - _%probe91730%_ + _%table91983%_ + _%probe92004%_ (macro-deleted-obj)) (vector-set! - _%table91709%_ - (##fx+ _%probe91730%_ '1) + _%table91983%_ + (##fx+ _%probe92004%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab91704%_ - (##fx- (&raw-table-count _%tab91704%_) + _%tab91978%_ + (##fx- (&raw-table-count _%tab91978%_) '1))))) - (_%loop91727%_ - (let ((_%next-probe91746%_ - (fx+ _%start91723%_ - _%i91732%_ - (fx* _%i91732%_ _%i91732%_)))) - (##fxmodulo _%next-probe91746%_ _%size91717%_)) - (##fx+ _%i91732%_ '1))))))))))) + (_%loop92001%_ + (let ((_%next-probe92020%_ + (fx+ _%start91997%_ + _%i92006%_ + (fx* _%i92006%_ _%i92006%_)))) + (##fxmodulo _%next-probe92020%_ _%size91991%_)) + (##fx+ _%i92006%_ '1))))))))))) (define make-symbolic-table__% - (lambda (_%size-hint91685%_ _%seed91687%_) + (lambda (_%size-hint91959%_ _%seed91961%_) (make-raw-table__% - _%size-hint91685%_ + _%size-hint91959%_ symbolic-hash eq? - _%seed91687%_))) + _%seed91961%_))) (define make-symbolic-table__0 (lambda () - (let* ((_%size-hint91693%_ '#f) (_%seed91695%_ '0)) - (make-symbolic-table__% _%size-hint91693%_ _%seed91695%_)))) + (let* ((_%size-hint91967%_ '#f) (_%seed91969%_ '0)) + (make-symbolic-table__% _%size-hint91967%_ _%seed91969%_)))) (define make-symbolic-table__1 - (lambda (_%size-hint91697%_) - (let ((_%seed91699%_ '0)) - (make-symbolic-table__% _%size-hint91697%_ _%seed91699%_)))) + (lambda (_%size-hint91971%_) + (let ((_%seed91973%_ '0)) + (make-symbolic-table__% _%size-hint91971%_ _%seed91973%_)))) (define make-symbolic-table - (lambda _g92483_ - (let ((_g92482_ (##length _g92483_))) - (cond ((##fx= _g92482_ 0) (apply make-symbolic-table__0 _g92483_)) - ((##fx= _g92482_ 1) (apply make-symbolic-table__1 _g92483_)) - ((##fx= _g92482_ 2) (apply make-symbolic-table__% _g92483_)) + (lambda _g92757_ + (let ((_g92756_ (##length _g92757_))) + (cond ((##fx= _g92756_ 0) (apply make-symbolic-table__0 _g92757_)) + ((##fx= _g92756_ 1) (apply make-symbolic-table__1 _g92757_)) + ((##fx= _g92756_ 2) (apply make-symbolic-table__% _g92757_)) (else (##raise-wrong-number-of-arguments-exception make-symbolic-table - _g92483_)))))) + _g92757_)))))) (define symbolic-table-ref - (lambda (_%tab91638%_ _%key91639%_ _%default91640%_) - (let ((_%table91642%_ (&raw-table-table _%tab91638%_)) - (_%seed91643%_ (&raw-table-seed _%tab91638%_))) - (let* ((_%h91645%_ - (fxxor (symbolic-hash _%key91639%_) _%seed91643%_)) - (_%size91648%_ (vector-length _%table91642%_)) - (_%entries91651%_ (##fxquotient _%size91648%_ '2)) - (_%start91654%_ + (lambda (_%tab91912%_ _%key91913%_ _%default91914%_) + (let ((_%table91916%_ (&raw-table-table _%tab91912%_)) + (_%seed91917%_ (&raw-table-seed _%tab91912%_))) + (let* ((_%h91919%_ + (fxxor (symbolic-hash _%key91913%_) _%seed91917%_)) + (_%size91922%_ (vector-length _%table91916%_)) + (_%entries91925%_ (##fxquotient _%size91922%_ '2)) + (_%start91928%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91645%_ _%entries91651%_) + (##fxmodulo _%h91919%_ _%entries91925%_) '1))) - (let _%loop91658%_ ((_%probe91661%_ _%start91654%_) - (_%i91663%_ '1) - (_%deleted91665%_ '#f)) - (let ((_%k91668%_ (vector-ref _%table91642%_ _%probe91661%_))) - (if (eq? _%k91668%_ (macro-unused-obj)) - _%default91640%_ - (if (eq? _%k91668%_ (macro-deleted-obj)) - (_%loop91658%_ - (let ((_%next-probe91673%_ - (fx+ _%start91654%_ - _%i91663%_ - (fx* _%i91663%_ _%i91663%_)))) - (##fxmodulo _%next-probe91673%_ _%size91648%_)) - (##fx+ _%i91663%_ '1) - (let ((_%$e91676%_ _%deleted91665%_)) - (if _%$e91676%_ _%$e91676%_ _%probe91661%_))) - (if (eq? _%key91639%_ _%k91668%_) + (let _%loop91932%_ ((_%probe91935%_ _%start91928%_) + (_%i91937%_ '1) + (_%deleted91939%_ '#f)) + (let ((_%k91942%_ (vector-ref _%table91916%_ _%probe91935%_))) + (if (eq? _%k91942%_ (macro-unused-obj)) + _%default91914%_ + (if (eq? _%k91942%_ (macro-deleted-obj)) + (_%loop91932%_ + (let ((_%next-probe91947%_ + (fx+ _%start91928%_ + _%i91937%_ + (fx* _%i91937%_ _%i91937%_)))) + (##fxmodulo _%next-probe91947%_ _%size91922%_)) + (##fx+ _%i91937%_ '1) + (let ((_%$e91950%_ _%deleted91939%_)) + (if _%$e91950%_ _%$e91950%_ _%probe91935%_))) + (if (eq? _%key91913%_ _%k91942%_) (vector-ref - _%table91642%_ - (##fx+ _%probe91661%_ '1)) - (_%loop91658%_ - (let ((_%next-probe91681%_ - (fx+ _%start91654%_ - _%i91663%_ - (fx* _%i91663%_ _%i91663%_)))) - (##fxmodulo _%next-probe91681%_ _%size91648%_)) - (##fx+ _%i91663%_ '1) - _%deleted91665%_)))))))))) + _%table91916%_ + (##fx+ _%probe91935%_ '1)) + (_%loop91932%_ + (let ((_%next-probe91955%_ + (fx+ _%start91928%_ + _%i91937%_ + (fx* _%i91937%_ _%i91937%_)))) + (##fxmodulo _%next-probe91955%_ _%size91922%_)) + (##fx+ _%i91937%_ '1) + _%deleted91939%_)))))))))) (define symbolic-table-set! - (lambda (_%tab91634%_ _%key91635%_ _%value91636%_) - (if (##fx< (&raw-table-free _%tab91634%_) + (lambda (_%tab91908%_ _%key91909%_ _%value91910%_) + (if (##fx< (&raw-table-free _%tab91908%_) (##fxquotient - (vector-length (&raw-table-table _%tab91634%_)) + (vector-length (&raw-table-table _%tab91908%_)) '4)) - (__raw-table-rehash! _%tab91634%_) + (__raw-table-rehash! _%tab91908%_) '#!void) - (__symbolic-table-set! _%tab91634%_ _%key91635%_ _%value91636%_))) + (__symbolic-table-set! _%tab91908%_ _%key91909%_ _%value91910%_))) (define __symbolic-table-set! - (lambda (_%tab91585%_ _%key91586%_ _%value91587%_) - (let ((_%table91590%_ (&raw-table-table _%tab91585%_)) - (_%seed91591%_ (&raw-table-seed _%tab91585%_))) - (let* ((_%h91593%_ - (fxxor (symbolic-hash _%key91586%_) _%seed91591%_)) - (_%size91596%_ (vector-length _%table91590%_)) - (_%entries91599%_ (##fxquotient _%size91596%_ '2)) - (_%start91602%_ + (lambda (_%tab91859%_ _%key91860%_ _%value91861%_) + (let ((_%table91864%_ (&raw-table-table _%tab91859%_)) + (_%seed91865%_ (&raw-table-seed _%tab91859%_))) + (let* ((_%h91867%_ + (fxxor (symbolic-hash _%key91860%_) _%seed91865%_)) + (_%size91870%_ (vector-length _%table91864%_)) + (_%entries91873%_ (##fxquotient _%size91870%_ '2)) + (_%start91876%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91593%_ _%entries91599%_) + (##fxmodulo _%h91867%_ _%entries91873%_) '1))) - (let _%loop91606%_ ((_%probe91609%_ _%start91602%_) - (_%i91611%_ '1) - (_%deleted91613%_ '#f)) - (let ((_%k91616%_ (vector-ref _%table91590%_ _%probe91609%_))) - (if (eq? _%k91616%_ (macro-unused-obj)) - (if _%deleted91613%_ + (let _%loop91880%_ ((_%probe91883%_ _%start91876%_) + (_%i91885%_ '1) + (_%deleted91887%_ '#f)) + (let ((_%k91890%_ (vector-ref _%table91864%_ _%probe91883%_))) + (if (eq? _%k91890%_ (macro-unused-obj)) + (if _%deleted91887%_ (begin (vector-set! - _%table91590%_ - _%deleted91613%_ - _%key91586%_) + _%table91864%_ + _%deleted91887%_ + _%key91860%_) (vector-set! - _%table91590%_ - (##fx+ _%deleted91613%_ '1) - _%value91587%_) + _%table91864%_ + (##fx+ _%deleted91887%_ '1) + _%value91861%_) ((lambda () (&raw-table-count-set! - _%tab91585%_ - (##fx+ (&raw-table-count _%tab91585%_) '1))))) + _%tab91859%_ + (##fx+ (&raw-table-count _%tab91859%_) '1))))) (begin (vector-set! - _%table91590%_ - _%probe91609%_ - _%key91586%_) + _%table91864%_ + _%probe91883%_ + _%key91860%_) (vector-set! - _%table91590%_ - (##fx+ _%probe91609%_ '1) - _%value91587%_) + _%table91864%_ + (##fx+ _%probe91883%_ '1) + _%value91861%_) ((lambda () (&raw-table-free-set! - _%tab91585%_ - (##fx- (&raw-table-free _%tab91585%_) '1)) + _%tab91859%_ + (##fx- (&raw-table-free _%tab91859%_) '1)) (&raw-table-count-set! - _%tab91585%_ - (##fx+ (&raw-table-count _%tab91585%_) '1)))))) - (if (eq? _%k91616%_ (macro-deleted-obj)) - (_%loop91606%_ - (let ((_%next-probe91623%_ - (fx+ _%start91602%_ - _%i91611%_ - (fx* _%i91611%_ _%i91611%_)))) - (##fxmodulo _%next-probe91623%_ _%size91596%_)) - (##fx+ _%i91611%_ '1) - (let ((_%$e91626%_ _%deleted91613%_)) - (if _%$e91626%_ _%$e91626%_ _%probe91609%_))) - (if (eq? _%key91586%_ _%k91616%_) + _%tab91859%_ + (##fx+ (&raw-table-count _%tab91859%_) '1)))))) + (if (eq? _%k91890%_ (macro-deleted-obj)) + (_%loop91880%_ + (let ((_%next-probe91897%_ + (fx+ _%start91876%_ + _%i91885%_ + (fx* _%i91885%_ _%i91885%_)))) + (##fxmodulo _%next-probe91897%_ _%size91870%_)) + (##fx+ _%i91885%_ '1) + (let ((_%$e91900%_ _%deleted91887%_)) + (if _%$e91900%_ _%$e91900%_ _%probe91883%_))) + (if (eq? _%key91860%_ _%k91890%_) (let () (vector-set! - _%table91590%_ - _%probe91609%_ - _%key91586%_) + _%table91864%_ + _%probe91883%_ + _%key91860%_) (vector-set! - _%table91590%_ - (##fx+ _%probe91609%_ '1) - _%value91587%_)) - (_%loop91606%_ - (let ((_%next-probe91631%_ - (fx+ _%start91602%_ - _%i91611%_ - (fx* _%i91611%_ _%i91611%_)))) - (##fxmodulo _%next-probe91631%_ _%size91596%_)) - (##fx+ _%i91611%_ '1) - _%deleted91613%_)))))))))) + _%table91864%_ + (##fx+ _%probe91883%_ '1) + _%value91861%_)) + (_%loop91880%_ + (let ((_%next-probe91905%_ + (fx+ _%start91876%_ + _%i91885%_ + (fx* _%i91885%_ _%i91885%_)))) + (##fxmodulo _%next-probe91905%_ _%size91870%_)) + (##fx+ _%i91885%_ '1) + _%deleted91887%_)))))))))) (define symbolic-table-update! - (lambda (_%tab91580%_ - _%key91581%_ - _%symbolic-table-update!91582%_ - _%default91583%_) - (if (##fx< (&raw-table-free _%tab91580%_) + (lambda (_%tab91854%_ + _%key91855%_ + _%symbolic-table-update!91856%_ + _%default91857%_) + (if (##fx< (&raw-table-free _%tab91854%_) (##fxquotient - (vector-length (&raw-table-table _%tab91580%_)) + (vector-length (&raw-table-table _%tab91854%_)) '4)) - (__raw-table-rehash! _%tab91580%_) + (__raw-table-rehash! _%tab91854%_) '#!void) (__symbolic-table-update! - _%tab91580%_ - _%key91581%_ - _%symbolic-table-update!91582%_ - _%default91583%_))) + _%tab91854%_ + _%key91855%_ + _%symbolic-table-update!91856%_ + _%default91857%_))) (define __symbolic-table-update! - (lambda (_%tab91530%_ - _%key91531%_ - _%symbolic-table-update!91532%_ - _%default91533%_) - (let ((_%table91536%_ (&raw-table-table _%tab91530%_)) - (_%seed91537%_ (&raw-table-seed _%tab91530%_))) - (let* ((_%h91539%_ - (fxxor (symbolic-hash _%key91531%_) _%seed91537%_)) - (_%size91542%_ (vector-length _%table91536%_)) - (_%entries91545%_ (##fxquotient _%size91542%_ '2)) - (_%start91548%_ + (lambda (_%tab91804%_ + _%key91805%_ + _%symbolic-table-update!91806%_ + _%default91807%_) + (let ((_%table91810%_ (&raw-table-table _%tab91804%_)) + (_%seed91811%_ (&raw-table-seed _%tab91804%_))) + (let* ((_%h91813%_ + (fxxor (symbolic-hash _%key91805%_) _%seed91811%_)) + (_%size91816%_ (vector-length _%table91810%_)) + (_%entries91819%_ (##fxquotient _%size91816%_ '2)) + (_%start91822%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91539%_ _%entries91545%_) + (##fxmodulo _%h91813%_ _%entries91819%_) '1))) - (let _%loop91552%_ ((_%probe91555%_ _%start91548%_) - (_%i91557%_ '1) - (_%deleted91559%_ '#f)) - (let ((_%k91562%_ (vector-ref _%table91536%_ _%probe91555%_))) - (if (eq? _%k91562%_ (macro-unused-obj)) - (if _%deleted91559%_ + (let _%loop91826%_ ((_%probe91829%_ _%start91822%_) + (_%i91831%_ '1) + (_%deleted91833%_ '#f)) + (let ((_%k91836%_ (vector-ref _%table91810%_ _%probe91829%_))) + (if (eq? _%k91836%_ (macro-unused-obj)) + (if _%deleted91833%_ (begin (vector-set! - _%table91536%_ - _%deleted91559%_ - _%key91531%_) + _%table91810%_ + _%deleted91833%_ + _%key91805%_) (vector-set! - _%table91536%_ - (##fx+ _%deleted91559%_ '1) - (_%symbolic-table-update!91532%_ _%default91533%_)) + _%table91810%_ + (##fx+ _%deleted91833%_ '1) + (_%symbolic-table-update!91806%_ _%default91807%_)) ((lambda () (&raw-table-count-set! - _%tab91530%_ - (##fx+ (&raw-table-count _%tab91530%_) '1))))) + _%tab91804%_ + (##fx+ (&raw-table-count _%tab91804%_) '1))))) (begin (vector-set! - _%table91536%_ - _%probe91555%_ - _%key91531%_) + _%table91810%_ + _%probe91829%_ + _%key91805%_) (vector-set! - _%table91536%_ - (##fx+ _%probe91555%_ '1) - (_%symbolic-table-update!91532%_ _%default91533%_)) + _%table91810%_ + (##fx+ _%probe91829%_ '1) + (_%symbolic-table-update!91806%_ _%default91807%_)) ((lambda () (&raw-table-free-set! - _%tab91530%_ - (##fx- (&raw-table-free _%tab91530%_) '1)) + _%tab91804%_ + (##fx- (&raw-table-free _%tab91804%_) '1)) (&raw-table-count-set! - _%tab91530%_ - (##fx+ (&raw-table-count _%tab91530%_) '1)))))) - (if (eq? _%k91562%_ (macro-deleted-obj)) - (_%loop91552%_ - (let ((_%next-probe91569%_ - (fx+ _%start91548%_ - _%i91557%_ - (fx* _%i91557%_ _%i91557%_)))) - (##fxmodulo _%next-probe91569%_ _%size91542%_)) - (##fx+ _%i91557%_ '1) - (let ((_%$e91572%_ _%deleted91559%_)) - (if _%$e91572%_ _%$e91572%_ _%probe91555%_))) - (if (eq? _%key91531%_ _%k91562%_) + _%tab91804%_ + (##fx+ (&raw-table-count _%tab91804%_) '1)))))) + (if (eq? _%k91836%_ (macro-deleted-obj)) + (_%loop91826%_ + (let ((_%next-probe91843%_ + (fx+ _%start91822%_ + _%i91831%_ + (fx* _%i91831%_ _%i91831%_)))) + (##fxmodulo _%next-probe91843%_ _%size91816%_)) + (##fx+ _%i91831%_ '1) + (let ((_%$e91846%_ _%deleted91833%_)) + (if _%$e91846%_ _%$e91846%_ _%probe91829%_))) + (if (eq? _%key91805%_ _%k91836%_) (let () (vector-set! - _%table91536%_ - _%probe91555%_ - _%key91531%_) + _%table91810%_ + _%probe91829%_ + _%key91805%_) (vector-set! - _%table91536%_ - (##fx+ _%probe91555%_ '1) - (_%symbolic-table-update!91532%_ + _%table91810%_ + (##fx+ _%probe91829%_ '1) + (_%symbolic-table-update!91806%_ (vector-ref - _%table91536%_ - (##fx+ _%probe91555%_ '1))))) - (_%loop91552%_ - (let ((_%next-probe91577%_ - (fx+ _%start91548%_ - _%i91557%_ - (fx* _%i91557%_ _%i91557%_)))) - (##fxmodulo _%next-probe91577%_ _%size91542%_)) - (##fx+ _%i91557%_ '1) - _%deleted91559%_)))))))))) + _%table91810%_ + (##fx+ _%probe91829%_ '1))))) + (_%loop91826%_ + (let ((_%next-probe91851%_ + (fx+ _%start91822%_ + _%i91831%_ + (fx* _%i91831%_ _%i91831%_)))) + (##fxmodulo _%next-probe91851%_ _%size91816%_)) + (##fx+ _%i91831%_ '1) + _%deleted91833%_)))))))))) (define symbolic-table-delete! - (lambda (_%tab91485%_ _%key91487%_) - (let ((_%table91490%_ (&raw-table-table _%tab91485%_)) - (_%seed91492%_ (&raw-table-seed _%tab91485%_))) - (let* ((_%h91495%_ - (fxxor (symbolic-hash _%key91487%_) _%seed91492%_)) - (_%size91498%_ (vector-length _%table91490%_)) - (_%entries91501%_ (##fxquotient _%size91498%_ '2)) - (_%start91504%_ + (lambda (_%tab91759%_ _%key91761%_) + (let ((_%table91764%_ (&raw-table-table _%tab91759%_)) + (_%seed91766%_ (&raw-table-seed _%tab91759%_))) + (let* ((_%h91769%_ + (fxxor (symbolic-hash _%key91761%_) _%seed91766%_)) + (_%size91772%_ (vector-length _%table91764%_)) + (_%entries91775%_ (##fxquotient _%size91772%_ '2)) + (_%start91778%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91495%_ _%entries91501%_) + (##fxmodulo _%h91769%_ _%entries91775%_) '1))) - (let _%loop91508%_ ((_%probe91511%_ _%start91504%_) - (_%i91513%_ '1)) - (let ((_%k91516%_ (vector-ref _%table91490%_ _%probe91511%_))) - (if (eq? _%k91516%_ (macro-unused-obj)) + (let _%loop91782%_ ((_%probe91785%_ _%start91778%_) + (_%i91787%_ '1)) + (let ((_%k91790%_ (vector-ref _%table91764%_ _%probe91785%_))) + (if (eq? _%k91790%_ (macro-unused-obj)) '#!void - (if (eq? _%k91516%_ (macro-deleted-obj)) - (_%loop91508%_ - (let ((_%next-probe91521%_ - (fx+ _%start91504%_ - _%i91513%_ - (fx* _%i91513%_ _%i91513%_)))) - (##fxmodulo _%next-probe91521%_ _%size91498%_)) - (##fx+ _%i91513%_ '1)) - (if (eq? _%key91487%_ _%k91516%_) + (if (eq? _%k91790%_ (macro-deleted-obj)) + (_%loop91782%_ + (let ((_%next-probe91795%_ + (fx+ _%start91778%_ + _%i91787%_ + (fx* _%i91787%_ _%i91787%_)))) + (##fxmodulo _%next-probe91795%_ _%size91772%_)) + (##fx+ _%i91787%_ '1)) + (if (eq? _%key91761%_ _%k91790%_) (let () (vector-set! - _%table91490%_ - _%probe91511%_ + _%table91764%_ + _%probe91785%_ (macro-deleted-obj)) (vector-set! - _%table91490%_ - (##fx+ _%probe91511%_ '1) + _%table91764%_ + (##fx+ _%probe91785%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab91485%_ - (##fx- (&raw-table-count _%tab91485%_) + _%tab91759%_ + (##fx- (&raw-table-count _%tab91759%_) '1))))) - (_%loop91508%_ - (let ((_%next-probe91527%_ - (fx+ _%start91504%_ - _%i91513%_ - (fx* _%i91513%_ _%i91513%_)))) - (##fxmodulo _%next-probe91527%_ _%size91498%_)) - (##fx+ _%i91513%_ '1))))))))))) + (_%loop91782%_ + (let ((_%next-probe91801%_ + (fx+ _%start91778%_ + _%i91787%_ + (fx* _%i91787%_ _%i91787%_)))) + (##fxmodulo _%next-probe91801%_ _%size91772%_)) + (##fx+ _%i91787%_ '1))))))))))) (define make-string-table__% - (lambda (_%size-hint91466%_ _%seed91468%_) + (lambda (_%size-hint91740%_ _%seed91742%_) (make-raw-table__% - _%size-hint91466%_ + _%size-hint91740%_ string-hash ##string=? - _%seed91468%_))) + _%seed91742%_))) (define make-string-table__0 (lambda () - (let* ((_%size-hint91474%_ '#f) (_%seed91476%_ '0)) - (make-string-table__% _%size-hint91474%_ _%seed91476%_)))) + (let* ((_%size-hint91748%_ '#f) (_%seed91750%_ '0)) + (make-string-table__% _%size-hint91748%_ _%seed91750%_)))) (define make-string-table__1 - (lambda (_%size-hint91478%_) - (let ((_%seed91480%_ '0)) - (make-string-table__% _%size-hint91478%_ _%seed91480%_)))) + (lambda (_%size-hint91752%_) + (let ((_%seed91754%_ '0)) + (make-string-table__% _%size-hint91752%_ _%seed91754%_)))) (define make-string-table - (lambda _g92485_ - (let ((_g92484_ (##length _g92485_))) - (cond ((##fx= _g92484_ 0) (apply make-string-table__0 _g92485_)) - ((##fx= _g92484_ 1) (apply make-string-table__1 _g92485_)) - ((##fx= _g92484_ 2) (apply make-string-table__% _g92485_)) + (lambda _g92759_ + (let ((_g92758_ (##length _g92759_))) + (cond ((##fx= _g92758_ 0) (apply make-string-table__0 _g92759_)) + ((##fx= _g92758_ 1) (apply make-string-table__1 _g92759_)) + ((##fx= _g92758_ 2) (apply make-string-table__% _g92759_)) (else (##raise-wrong-number-of-arguments-exception make-string-table - _g92485_)))))) + _g92759_)))))) (define string-table-ref - (lambda (_%tab91419%_ _%key91420%_ _%default91421%_) - (let ((_%table91423%_ (&raw-table-table _%tab91419%_)) - (_%seed91424%_ (&raw-table-seed _%tab91419%_))) - (let* ((_%h91426%_ - (fxxor (##string=?-hash _%key91420%_) _%seed91424%_)) - (_%size91429%_ (vector-length _%table91423%_)) - (_%entries91432%_ (##fxquotient _%size91429%_ '2)) - (_%start91435%_ + (lambda (_%tab91693%_ _%key91694%_ _%default91695%_) + (let ((_%table91697%_ (&raw-table-table _%tab91693%_)) + (_%seed91698%_ (&raw-table-seed _%tab91693%_))) + (let* ((_%h91700%_ + (fxxor (##string=?-hash _%key91694%_) _%seed91698%_)) + (_%size91703%_ (vector-length _%table91697%_)) + (_%entries91706%_ (##fxquotient _%size91703%_ '2)) + (_%start91709%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91426%_ _%entries91432%_) + (##fxmodulo _%h91700%_ _%entries91706%_) '1))) - (let _%loop91439%_ ((_%probe91442%_ _%start91435%_) - (_%i91444%_ '1) - (_%deleted91446%_ '#f)) - (let ((_%k91449%_ (vector-ref _%table91423%_ _%probe91442%_))) - (if (eq? _%k91449%_ (macro-unused-obj)) - _%default91421%_ - (if (eq? _%k91449%_ (macro-deleted-obj)) - (_%loop91439%_ - (let ((_%next-probe91454%_ - (fx+ _%start91435%_ - _%i91444%_ - (fx* _%i91444%_ _%i91444%_)))) - (##fxmodulo _%next-probe91454%_ _%size91429%_)) - (##fx+ _%i91444%_ '1) - (let ((_%$e91457%_ _%deleted91446%_)) - (if _%$e91457%_ _%$e91457%_ _%probe91442%_))) - (if (##string=? _%key91420%_ _%k91449%_) + (let _%loop91713%_ ((_%probe91716%_ _%start91709%_) + (_%i91718%_ '1) + (_%deleted91720%_ '#f)) + (let ((_%k91723%_ (vector-ref _%table91697%_ _%probe91716%_))) + (if (eq? _%k91723%_ (macro-unused-obj)) + _%default91695%_ + (if (eq? _%k91723%_ (macro-deleted-obj)) + (_%loop91713%_ + (let ((_%next-probe91728%_ + (fx+ _%start91709%_ + _%i91718%_ + (fx* _%i91718%_ _%i91718%_)))) + (##fxmodulo _%next-probe91728%_ _%size91703%_)) + (##fx+ _%i91718%_ '1) + (let ((_%$e91731%_ _%deleted91720%_)) + (if _%$e91731%_ _%$e91731%_ _%probe91716%_))) + (if (##string=? _%key91694%_ _%k91723%_) (vector-ref - _%table91423%_ - (##fx+ _%probe91442%_ '1)) - (_%loop91439%_ - (let ((_%next-probe91462%_ - (fx+ _%start91435%_ - _%i91444%_ - (fx* _%i91444%_ _%i91444%_)))) - (##fxmodulo _%next-probe91462%_ _%size91429%_)) - (##fx+ _%i91444%_ '1) - _%deleted91446%_)))))))))) + _%table91697%_ + (##fx+ _%probe91716%_ '1)) + (_%loop91713%_ + (let ((_%next-probe91736%_ + (fx+ _%start91709%_ + _%i91718%_ + (fx* _%i91718%_ _%i91718%_)))) + (##fxmodulo _%next-probe91736%_ _%size91703%_)) + (##fx+ _%i91718%_ '1) + _%deleted91720%_)))))))))) (define string-table-set! - (lambda (_%tab91415%_ _%key91416%_ _%value91417%_) - (if (##fx< (&raw-table-free _%tab91415%_) + (lambda (_%tab91689%_ _%key91690%_ _%value91691%_) + (if (##fx< (&raw-table-free _%tab91689%_) (##fxquotient - (vector-length (&raw-table-table _%tab91415%_)) + (vector-length (&raw-table-table _%tab91689%_)) '4)) - (__raw-table-rehash! _%tab91415%_) + (__raw-table-rehash! _%tab91689%_) '#!void) - (__string-table-set! _%tab91415%_ _%key91416%_ _%value91417%_))) + (__string-table-set! _%tab91689%_ _%key91690%_ _%value91691%_))) (define __string-table-set! - (lambda (_%tab91366%_ _%key91367%_ _%value91368%_) - (let ((_%table91371%_ (&raw-table-table _%tab91366%_)) - (_%seed91372%_ (&raw-table-seed _%tab91366%_))) - (let* ((_%h91374%_ - (fxxor (##string=?-hash _%key91367%_) _%seed91372%_)) - (_%size91377%_ (vector-length _%table91371%_)) - (_%entries91380%_ (##fxquotient _%size91377%_ '2)) - (_%start91383%_ + (lambda (_%tab91640%_ _%key91641%_ _%value91642%_) + (let ((_%table91645%_ (&raw-table-table _%tab91640%_)) + (_%seed91646%_ (&raw-table-seed _%tab91640%_))) + (let* ((_%h91648%_ + (fxxor (##string=?-hash _%key91641%_) _%seed91646%_)) + (_%size91651%_ (vector-length _%table91645%_)) + (_%entries91654%_ (##fxquotient _%size91651%_ '2)) + (_%start91657%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91374%_ _%entries91380%_) + (##fxmodulo _%h91648%_ _%entries91654%_) '1))) - (let _%loop91387%_ ((_%probe91390%_ _%start91383%_) - (_%i91392%_ '1) - (_%deleted91394%_ '#f)) - (let ((_%k91397%_ (vector-ref _%table91371%_ _%probe91390%_))) - (if (eq? _%k91397%_ (macro-unused-obj)) - (if _%deleted91394%_ + (let _%loop91661%_ ((_%probe91664%_ _%start91657%_) + (_%i91666%_ '1) + (_%deleted91668%_ '#f)) + (let ((_%k91671%_ (vector-ref _%table91645%_ _%probe91664%_))) + (if (eq? _%k91671%_ (macro-unused-obj)) + (if _%deleted91668%_ (begin (vector-set! - _%table91371%_ - _%deleted91394%_ - _%key91367%_) + _%table91645%_ + _%deleted91668%_ + _%key91641%_) (vector-set! - _%table91371%_ - (##fx+ _%deleted91394%_ '1) - _%value91368%_) + _%table91645%_ + (##fx+ _%deleted91668%_ '1) + _%value91642%_) ((lambda () (&raw-table-count-set! - _%tab91366%_ - (##fx+ (&raw-table-count _%tab91366%_) '1))))) + _%tab91640%_ + (##fx+ (&raw-table-count _%tab91640%_) '1))))) (begin (vector-set! - _%table91371%_ - _%probe91390%_ - _%key91367%_) + _%table91645%_ + _%probe91664%_ + _%key91641%_) (vector-set! - _%table91371%_ - (##fx+ _%probe91390%_ '1) - _%value91368%_) + _%table91645%_ + (##fx+ _%probe91664%_ '1) + _%value91642%_) ((lambda () (&raw-table-free-set! - _%tab91366%_ - (##fx- (&raw-table-free _%tab91366%_) '1)) + _%tab91640%_ + (##fx- (&raw-table-free _%tab91640%_) '1)) (&raw-table-count-set! - _%tab91366%_ - (##fx+ (&raw-table-count _%tab91366%_) '1)))))) - (if (eq? _%k91397%_ (macro-deleted-obj)) - (_%loop91387%_ - (let ((_%next-probe91404%_ - (fx+ _%start91383%_ - _%i91392%_ - (fx* _%i91392%_ _%i91392%_)))) - (##fxmodulo _%next-probe91404%_ _%size91377%_)) - (##fx+ _%i91392%_ '1) - (let ((_%$e91407%_ _%deleted91394%_)) - (if _%$e91407%_ _%$e91407%_ _%probe91390%_))) - (if (##string=? _%key91367%_ _%k91397%_) + _%tab91640%_ + (##fx+ (&raw-table-count _%tab91640%_) '1)))))) + (if (eq? _%k91671%_ (macro-deleted-obj)) + (_%loop91661%_ + (let ((_%next-probe91678%_ + (fx+ _%start91657%_ + _%i91666%_ + (fx* _%i91666%_ _%i91666%_)))) + (##fxmodulo _%next-probe91678%_ _%size91651%_)) + (##fx+ _%i91666%_ '1) + (let ((_%$e91681%_ _%deleted91668%_)) + (if _%$e91681%_ _%$e91681%_ _%probe91664%_))) + (if (##string=? _%key91641%_ _%k91671%_) (let () (vector-set! - _%table91371%_ - _%probe91390%_ - _%key91367%_) + _%table91645%_ + _%probe91664%_ + _%key91641%_) (vector-set! - _%table91371%_ - (##fx+ _%probe91390%_ '1) - _%value91368%_)) - (_%loop91387%_ - (let ((_%next-probe91412%_ - (fx+ _%start91383%_ - _%i91392%_ - (fx* _%i91392%_ _%i91392%_)))) - (##fxmodulo _%next-probe91412%_ _%size91377%_)) - (##fx+ _%i91392%_ '1) - _%deleted91394%_)))))))))) + _%table91645%_ + (##fx+ _%probe91664%_ '1) + _%value91642%_)) + (_%loop91661%_ + (let ((_%next-probe91686%_ + (fx+ _%start91657%_ + _%i91666%_ + (fx* _%i91666%_ _%i91666%_)))) + (##fxmodulo _%next-probe91686%_ _%size91651%_)) + (##fx+ _%i91666%_ '1) + _%deleted91668%_)))))))))) (define string-table-update! - (lambda (_%tab91361%_ - _%key91362%_ - _%string-table-update!91363%_ - _%default91364%_) - (if (##fx< (&raw-table-free _%tab91361%_) + (lambda (_%tab91635%_ + _%key91636%_ + _%string-table-update!91637%_ + _%default91638%_) + (if (##fx< (&raw-table-free _%tab91635%_) (##fxquotient - (vector-length (&raw-table-table _%tab91361%_)) + (vector-length (&raw-table-table _%tab91635%_)) '4)) - (__raw-table-rehash! _%tab91361%_) + (__raw-table-rehash! _%tab91635%_) '#!void) (__string-table-update! - _%tab91361%_ - _%key91362%_ - _%string-table-update!91363%_ - _%default91364%_))) + _%tab91635%_ + _%key91636%_ + _%string-table-update!91637%_ + _%default91638%_))) (define __string-table-update! - (lambda (_%tab91311%_ - _%key91312%_ - _%string-table-update!91313%_ - _%default91314%_) - (let ((_%table91317%_ (&raw-table-table _%tab91311%_)) - (_%seed91318%_ (&raw-table-seed _%tab91311%_))) - (let* ((_%h91320%_ - (fxxor (##string=?-hash _%key91312%_) _%seed91318%_)) - (_%size91323%_ (vector-length _%table91317%_)) - (_%entries91326%_ (##fxquotient _%size91323%_ '2)) - (_%start91329%_ + (lambda (_%tab91585%_ + _%key91586%_ + _%string-table-update!91587%_ + _%default91588%_) + (let ((_%table91591%_ (&raw-table-table _%tab91585%_)) + (_%seed91592%_ (&raw-table-seed _%tab91585%_))) + (let* ((_%h91594%_ + (fxxor (##string=?-hash _%key91586%_) _%seed91592%_)) + (_%size91597%_ (vector-length _%table91591%_)) + (_%entries91600%_ (##fxquotient _%size91597%_ '2)) + (_%start91603%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91320%_ _%entries91326%_) + (##fxmodulo _%h91594%_ _%entries91600%_) '1))) - (let _%loop91333%_ ((_%probe91336%_ _%start91329%_) - (_%i91338%_ '1) - (_%deleted91340%_ '#f)) - (let ((_%k91343%_ (vector-ref _%table91317%_ _%probe91336%_))) - (if (eq? _%k91343%_ (macro-unused-obj)) - (if _%deleted91340%_ + (let _%loop91607%_ ((_%probe91610%_ _%start91603%_) + (_%i91612%_ '1) + (_%deleted91614%_ '#f)) + (let ((_%k91617%_ (vector-ref _%table91591%_ _%probe91610%_))) + (if (eq? _%k91617%_ (macro-unused-obj)) + (if _%deleted91614%_ (begin (vector-set! - _%table91317%_ - _%deleted91340%_ - _%key91312%_) + _%table91591%_ + _%deleted91614%_ + _%key91586%_) (vector-set! - _%table91317%_ - (##fx+ _%deleted91340%_ '1) - (_%string-table-update!91313%_ _%default91314%_)) + _%table91591%_ + (##fx+ _%deleted91614%_ '1) + (_%string-table-update!91587%_ _%default91588%_)) ((lambda () (&raw-table-count-set! - _%tab91311%_ - (##fx+ (&raw-table-count _%tab91311%_) '1))))) + _%tab91585%_ + (##fx+ (&raw-table-count _%tab91585%_) '1))))) (begin (vector-set! - _%table91317%_ - _%probe91336%_ - _%key91312%_) + _%table91591%_ + _%probe91610%_ + _%key91586%_) (vector-set! - _%table91317%_ - (##fx+ _%probe91336%_ '1) - (_%string-table-update!91313%_ _%default91314%_)) + _%table91591%_ + (##fx+ _%probe91610%_ '1) + (_%string-table-update!91587%_ _%default91588%_)) ((lambda () (&raw-table-free-set! - _%tab91311%_ - (##fx- (&raw-table-free _%tab91311%_) '1)) + _%tab91585%_ + (##fx- (&raw-table-free _%tab91585%_) '1)) (&raw-table-count-set! - _%tab91311%_ - (##fx+ (&raw-table-count _%tab91311%_) '1)))))) - (if (eq? _%k91343%_ (macro-deleted-obj)) - (_%loop91333%_ - (let ((_%next-probe91350%_ - (fx+ _%start91329%_ - _%i91338%_ - (fx* _%i91338%_ _%i91338%_)))) - (##fxmodulo _%next-probe91350%_ _%size91323%_)) - (##fx+ _%i91338%_ '1) - (let ((_%$e91353%_ _%deleted91340%_)) - (if _%$e91353%_ _%$e91353%_ _%probe91336%_))) - (if (##string=? _%key91312%_ _%k91343%_) + _%tab91585%_ + (##fx+ (&raw-table-count _%tab91585%_) '1)))))) + (if (eq? _%k91617%_ (macro-deleted-obj)) + (_%loop91607%_ + (let ((_%next-probe91624%_ + (fx+ _%start91603%_ + _%i91612%_ + (fx* _%i91612%_ _%i91612%_)))) + (##fxmodulo _%next-probe91624%_ _%size91597%_)) + (##fx+ _%i91612%_ '1) + (let ((_%$e91627%_ _%deleted91614%_)) + (if _%$e91627%_ _%$e91627%_ _%probe91610%_))) + (if (##string=? _%key91586%_ _%k91617%_) (let () (vector-set! - _%table91317%_ - _%probe91336%_ - _%key91312%_) + _%table91591%_ + _%probe91610%_ + _%key91586%_) (vector-set! - _%table91317%_ - (##fx+ _%probe91336%_ '1) - (_%string-table-update!91313%_ + _%table91591%_ + (##fx+ _%probe91610%_ '1) + (_%string-table-update!91587%_ (vector-ref - _%table91317%_ - (##fx+ _%probe91336%_ '1))))) - (_%loop91333%_ - (let ((_%next-probe91358%_ - (fx+ _%start91329%_ - _%i91338%_ - (fx* _%i91338%_ _%i91338%_)))) - (##fxmodulo _%next-probe91358%_ _%size91323%_)) - (##fx+ _%i91338%_ '1) - _%deleted91340%_)))))))))) + _%table91591%_ + (##fx+ _%probe91610%_ '1))))) + (_%loop91607%_ + (let ((_%next-probe91632%_ + (fx+ _%start91603%_ + _%i91612%_ + (fx* _%i91612%_ _%i91612%_)))) + (##fxmodulo _%next-probe91632%_ _%size91597%_)) + (##fx+ _%i91612%_ '1) + _%deleted91614%_)))))))))) (define string-table-delete! - (lambda (_%tab91266%_ _%key91268%_) - (let ((_%table91271%_ (&raw-table-table _%tab91266%_)) - (_%seed91273%_ (&raw-table-seed _%tab91266%_))) - (let* ((_%h91276%_ - (fxxor (##string=?-hash _%key91268%_) _%seed91273%_)) - (_%size91279%_ (vector-length _%table91271%_)) - (_%entries91282%_ (##fxquotient _%size91279%_ '2)) - (_%start91285%_ + (lambda (_%tab91540%_ _%key91542%_) + (let ((_%table91545%_ (&raw-table-table _%tab91540%_)) + (_%seed91547%_ (&raw-table-seed _%tab91540%_))) + (let* ((_%h91550%_ + (fxxor (##string=?-hash _%key91542%_) _%seed91547%_)) + (_%size91553%_ (vector-length _%table91545%_)) + (_%entries91556%_ (##fxquotient _%size91553%_ '2)) + (_%start91559%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91276%_ _%entries91282%_) + (##fxmodulo _%h91550%_ _%entries91556%_) '1))) - (let _%loop91289%_ ((_%probe91292%_ _%start91285%_) - (_%i91294%_ '1)) - (let ((_%k91297%_ (vector-ref _%table91271%_ _%probe91292%_))) - (if (eq? _%k91297%_ (macro-unused-obj)) + (let _%loop91563%_ ((_%probe91566%_ _%start91559%_) + (_%i91568%_ '1)) + (let ((_%k91571%_ (vector-ref _%table91545%_ _%probe91566%_))) + (if (eq? _%k91571%_ (macro-unused-obj)) '#!void - (if (eq? _%k91297%_ (macro-deleted-obj)) - (_%loop91289%_ - (let ((_%next-probe91302%_ - (fx+ _%start91285%_ - _%i91294%_ - (fx* _%i91294%_ _%i91294%_)))) - (##fxmodulo _%next-probe91302%_ _%size91279%_)) - (##fx+ _%i91294%_ '1)) - (if (##string=? _%key91268%_ _%k91297%_) + (if (eq? _%k91571%_ (macro-deleted-obj)) + (_%loop91563%_ + (let ((_%next-probe91576%_ + (fx+ _%start91559%_ + _%i91568%_ + (fx* _%i91568%_ _%i91568%_)))) + (##fxmodulo _%next-probe91576%_ _%size91553%_)) + (##fx+ _%i91568%_ '1)) + (if (##string=? _%key91542%_ _%k91571%_) (let () (vector-set! - _%table91271%_ - _%probe91292%_ + _%table91545%_ + _%probe91566%_ (macro-deleted-obj)) (vector-set! - _%table91271%_ - (##fx+ _%probe91292%_ '1) + _%table91545%_ + (##fx+ _%probe91566%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab91266%_ - (##fx- (&raw-table-count _%tab91266%_) + _%tab91540%_ + (##fx- (&raw-table-count _%tab91540%_) '1))))) - (_%loop91289%_ - (let ((_%next-probe91308%_ - (fx+ _%start91285%_ - _%i91294%_ - (fx* _%i91294%_ _%i91294%_)))) - (##fxmodulo _%next-probe91308%_ _%size91279%_)) - (##fx+ _%i91294%_ '1))))))))))) + (_%loop91563%_ + (let ((_%next-probe91582%_ + (fx+ _%start91559%_ + _%i91568%_ + (fx* _%i91568%_ _%i91568%_)))) + (##fxmodulo _%next-probe91582%_ _%size91553%_)) + (##fx+ _%i91568%_ '1))))))))))) (define make-immediate-table__% - (lambda (_%size-hint91247%_ _%seed91249%_) + (lambda (_%size-hint91521%_ _%seed91523%_) (make-raw-table__% - _%size-hint91247%_ + _%size-hint91521%_ immediate-hash eq? - _%seed91249%_))) + _%seed91523%_))) (define make-immediate-table__0 (lambda () - (let* ((_%size-hint91255%_ '#f) (_%seed91257%_ '0)) - (make-immediate-table__% _%size-hint91255%_ _%seed91257%_)))) + (let* ((_%size-hint91529%_ '#f) (_%seed91531%_ '0)) + (make-immediate-table__% _%size-hint91529%_ _%seed91531%_)))) (define make-immediate-table__1 - (lambda (_%size-hint91259%_) - (let ((_%seed91261%_ '0)) - (make-immediate-table__% _%size-hint91259%_ _%seed91261%_)))) + (lambda (_%size-hint91533%_) + (let ((_%seed91535%_ '0)) + (make-immediate-table__% _%size-hint91533%_ _%seed91535%_)))) (define make-immediate-table - (lambda _g92487_ - (let ((_g92486_ (##length _g92487_))) - (cond ((##fx= _g92486_ 0) (apply make-immediate-table__0 _g92487_)) - ((##fx= _g92486_ 1) (apply make-immediate-table__1 _g92487_)) - ((##fx= _g92486_ 2) (apply make-immediate-table__% _g92487_)) + (lambda _g92761_ + (let ((_g92760_ (##length _g92761_))) + (cond ((##fx= _g92760_ 0) (apply make-immediate-table__0 _g92761_)) + ((##fx= _g92760_ 1) (apply make-immediate-table__1 _g92761_)) + ((##fx= _g92760_ 2) (apply make-immediate-table__% _g92761_)) (else (##raise-wrong-number-of-arguments-exception make-immediate-table - _g92487_)))))) + _g92761_)))))) (define immediate-table-ref - (lambda (_%tab91200%_ _%key91201%_ _%default91202%_) - (let ((_%table91204%_ (&raw-table-table _%tab91200%_)) - (_%seed91205%_ (&raw-table-seed _%tab91200%_))) - (let* ((_%h91207%_ - (fxxor (immediate-hash _%key91201%_) _%seed91205%_)) - (_%size91210%_ (vector-length _%table91204%_)) - (_%entries91213%_ (##fxquotient _%size91210%_ '2)) - (_%start91216%_ + (lambda (_%tab91474%_ _%key91475%_ _%default91476%_) + (let ((_%table91478%_ (&raw-table-table _%tab91474%_)) + (_%seed91479%_ (&raw-table-seed _%tab91474%_))) + (let* ((_%h91481%_ + (fxxor (immediate-hash _%key91475%_) _%seed91479%_)) + (_%size91484%_ (vector-length _%table91478%_)) + (_%entries91487%_ (##fxquotient _%size91484%_ '2)) + (_%start91490%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91207%_ _%entries91213%_) + (##fxmodulo _%h91481%_ _%entries91487%_) '1))) - (let _%loop91220%_ ((_%probe91223%_ _%start91216%_) - (_%i91225%_ '1) - (_%deleted91227%_ '#f)) - (let ((_%k91230%_ (vector-ref _%table91204%_ _%probe91223%_))) - (if (eq? _%k91230%_ (macro-unused-obj)) - _%default91202%_ - (if (eq? _%k91230%_ (macro-deleted-obj)) - (_%loop91220%_ - (let ((_%next-probe91235%_ - (fx+ _%start91216%_ - _%i91225%_ - (fx* _%i91225%_ _%i91225%_)))) - (##fxmodulo _%next-probe91235%_ _%size91210%_)) - (##fx+ _%i91225%_ '1) - (let ((_%$e91238%_ _%deleted91227%_)) - (if _%$e91238%_ _%$e91238%_ _%probe91223%_))) - (if (eq? _%key91201%_ _%k91230%_) + (let _%loop91494%_ ((_%probe91497%_ _%start91490%_) + (_%i91499%_ '1) + (_%deleted91501%_ '#f)) + (let ((_%k91504%_ (vector-ref _%table91478%_ _%probe91497%_))) + (if (eq? _%k91504%_ (macro-unused-obj)) + _%default91476%_ + (if (eq? _%k91504%_ (macro-deleted-obj)) + (_%loop91494%_ + (let ((_%next-probe91509%_ + (fx+ _%start91490%_ + _%i91499%_ + (fx* _%i91499%_ _%i91499%_)))) + (##fxmodulo _%next-probe91509%_ _%size91484%_)) + (##fx+ _%i91499%_ '1) + (let ((_%$e91512%_ _%deleted91501%_)) + (if _%$e91512%_ _%$e91512%_ _%probe91497%_))) + (if (eq? _%key91475%_ _%k91504%_) (vector-ref - _%table91204%_ - (##fx+ _%probe91223%_ '1)) - (_%loop91220%_ - (let ((_%next-probe91243%_ - (fx+ _%start91216%_ - _%i91225%_ - (fx* _%i91225%_ _%i91225%_)))) - (##fxmodulo _%next-probe91243%_ _%size91210%_)) - (##fx+ _%i91225%_ '1) - _%deleted91227%_)))))))))) + _%table91478%_ + (##fx+ _%probe91497%_ '1)) + (_%loop91494%_ + (let ((_%next-probe91517%_ + (fx+ _%start91490%_ + _%i91499%_ + (fx* _%i91499%_ _%i91499%_)))) + (##fxmodulo _%next-probe91517%_ _%size91484%_)) + (##fx+ _%i91499%_ '1) + _%deleted91501%_)))))))))) (define immediate-table-set! - (lambda (_%tab91196%_ _%key91197%_ _%value91198%_) - (if (##fx< (&raw-table-free _%tab91196%_) + (lambda (_%tab91470%_ _%key91471%_ _%value91472%_) + (if (##fx< (&raw-table-free _%tab91470%_) (##fxquotient - (vector-length (&raw-table-table _%tab91196%_)) + (vector-length (&raw-table-table _%tab91470%_)) '4)) - (__raw-table-rehash! _%tab91196%_) + (__raw-table-rehash! _%tab91470%_) '#!void) - (__immediate-table-set! _%tab91196%_ _%key91197%_ _%value91198%_))) + (__immediate-table-set! _%tab91470%_ _%key91471%_ _%value91472%_))) (define __immediate-table-set! - (lambda (_%tab91147%_ _%key91148%_ _%value91149%_) - (let ((_%table91152%_ (&raw-table-table _%tab91147%_)) - (_%seed91153%_ (&raw-table-seed _%tab91147%_))) - (let* ((_%h91155%_ - (fxxor (immediate-hash _%key91148%_) _%seed91153%_)) - (_%size91158%_ (vector-length _%table91152%_)) - (_%entries91161%_ (##fxquotient _%size91158%_ '2)) - (_%start91164%_ + (lambda (_%tab91421%_ _%key91422%_ _%value91423%_) + (let ((_%table91426%_ (&raw-table-table _%tab91421%_)) + (_%seed91427%_ (&raw-table-seed _%tab91421%_))) + (let* ((_%h91429%_ + (fxxor (immediate-hash _%key91422%_) _%seed91427%_)) + (_%size91432%_ (vector-length _%table91426%_)) + (_%entries91435%_ (##fxquotient _%size91432%_ '2)) + (_%start91438%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91155%_ _%entries91161%_) + (##fxmodulo _%h91429%_ _%entries91435%_) '1))) - (let _%loop91168%_ ((_%probe91171%_ _%start91164%_) - (_%i91173%_ '1) - (_%deleted91175%_ '#f)) - (let ((_%k91178%_ (vector-ref _%table91152%_ _%probe91171%_))) - (if (eq? _%k91178%_ (macro-unused-obj)) - (if _%deleted91175%_ + (let _%loop91442%_ ((_%probe91445%_ _%start91438%_) + (_%i91447%_ '1) + (_%deleted91449%_ '#f)) + (let ((_%k91452%_ (vector-ref _%table91426%_ _%probe91445%_))) + (if (eq? _%k91452%_ (macro-unused-obj)) + (if _%deleted91449%_ (begin (vector-set! - _%table91152%_ - _%deleted91175%_ - _%key91148%_) + _%table91426%_ + _%deleted91449%_ + _%key91422%_) (vector-set! - _%table91152%_ - (##fx+ _%deleted91175%_ '1) - _%value91149%_) + _%table91426%_ + (##fx+ _%deleted91449%_ '1) + _%value91423%_) ((lambda () (&raw-table-count-set! - _%tab91147%_ - (##fx+ (&raw-table-count _%tab91147%_) '1))))) + _%tab91421%_ + (##fx+ (&raw-table-count _%tab91421%_) '1))))) (begin (vector-set! - _%table91152%_ - _%probe91171%_ - _%key91148%_) + _%table91426%_ + _%probe91445%_ + _%key91422%_) (vector-set! - _%table91152%_ - (##fx+ _%probe91171%_ '1) - _%value91149%_) + _%table91426%_ + (##fx+ _%probe91445%_ '1) + _%value91423%_) ((lambda () (&raw-table-free-set! - _%tab91147%_ - (##fx- (&raw-table-free _%tab91147%_) '1)) + _%tab91421%_ + (##fx- (&raw-table-free _%tab91421%_) '1)) (&raw-table-count-set! - _%tab91147%_ - (##fx+ (&raw-table-count _%tab91147%_) '1)))))) - (if (eq? _%k91178%_ (macro-deleted-obj)) - (_%loop91168%_ - (let ((_%next-probe91185%_ - (fx+ _%start91164%_ - _%i91173%_ - (fx* _%i91173%_ _%i91173%_)))) - (##fxmodulo _%next-probe91185%_ _%size91158%_)) - (##fx+ _%i91173%_ '1) - (let ((_%$e91188%_ _%deleted91175%_)) - (if _%$e91188%_ _%$e91188%_ _%probe91171%_))) - (if (eq? _%key91148%_ _%k91178%_) + _%tab91421%_ + (##fx+ (&raw-table-count _%tab91421%_) '1)))))) + (if (eq? _%k91452%_ (macro-deleted-obj)) + (_%loop91442%_ + (let ((_%next-probe91459%_ + (fx+ _%start91438%_ + _%i91447%_ + (fx* _%i91447%_ _%i91447%_)))) + (##fxmodulo _%next-probe91459%_ _%size91432%_)) + (##fx+ _%i91447%_ '1) + (let ((_%$e91462%_ _%deleted91449%_)) + (if _%$e91462%_ _%$e91462%_ _%probe91445%_))) + (if (eq? _%key91422%_ _%k91452%_) (let () (vector-set! - _%table91152%_ - _%probe91171%_ - _%key91148%_) + _%table91426%_ + _%probe91445%_ + _%key91422%_) (vector-set! - _%table91152%_ - (##fx+ _%probe91171%_ '1) - _%value91149%_)) - (_%loop91168%_ - (let ((_%next-probe91193%_ - (fx+ _%start91164%_ - _%i91173%_ - (fx* _%i91173%_ _%i91173%_)))) - (##fxmodulo _%next-probe91193%_ _%size91158%_)) - (##fx+ _%i91173%_ '1) - _%deleted91175%_)))))))))) + _%table91426%_ + (##fx+ _%probe91445%_ '1) + _%value91423%_)) + (_%loop91442%_ + (let ((_%next-probe91467%_ + (fx+ _%start91438%_ + _%i91447%_ + (fx* _%i91447%_ _%i91447%_)))) + (##fxmodulo _%next-probe91467%_ _%size91432%_)) + (##fx+ _%i91447%_ '1) + _%deleted91449%_)))))))))) (define immediate-table-update! - (lambda (_%tab91142%_ - _%key91143%_ - _%immediate-table-update!91144%_ - _%default91145%_) - (if (##fx< (&raw-table-free _%tab91142%_) + (lambda (_%tab91416%_ + _%key91417%_ + _%immediate-table-update!91418%_ + _%default91419%_) + (if (##fx< (&raw-table-free _%tab91416%_) (##fxquotient - (vector-length (&raw-table-table _%tab91142%_)) + (vector-length (&raw-table-table _%tab91416%_)) '4)) - (__raw-table-rehash! _%tab91142%_) + (__raw-table-rehash! _%tab91416%_) '#!void) (__immediate-table-update! - _%tab91142%_ - _%key91143%_ - _%immediate-table-update!91144%_ - _%default91145%_))) + _%tab91416%_ + _%key91417%_ + _%immediate-table-update!91418%_ + _%default91419%_))) (define __immediate-table-update! - (lambda (_%tab91092%_ - _%key91093%_ - _%immediate-table-update!91094%_ - _%default91095%_) - (let ((_%table91098%_ (&raw-table-table _%tab91092%_)) - (_%seed91099%_ (&raw-table-seed _%tab91092%_))) - (let* ((_%h91101%_ - (fxxor (immediate-hash _%key91093%_) _%seed91099%_)) - (_%size91104%_ (vector-length _%table91098%_)) - (_%entries91107%_ (##fxquotient _%size91104%_ '2)) - (_%start91110%_ + (lambda (_%tab91366%_ + _%key91367%_ + _%immediate-table-update!91368%_ + _%default91369%_) + (let ((_%table91372%_ (&raw-table-table _%tab91366%_)) + (_%seed91373%_ (&raw-table-seed _%tab91366%_))) + (let* ((_%h91375%_ + (fxxor (immediate-hash _%key91367%_) _%seed91373%_)) + (_%size91378%_ (vector-length _%table91372%_)) + (_%entries91381%_ (##fxquotient _%size91378%_ '2)) + (_%start91384%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91101%_ _%entries91107%_) + (##fxmodulo _%h91375%_ _%entries91381%_) '1))) - (let _%loop91114%_ ((_%probe91117%_ _%start91110%_) - (_%i91119%_ '1) - (_%deleted91121%_ '#f)) - (let ((_%k91124%_ (vector-ref _%table91098%_ _%probe91117%_))) - (if (eq? _%k91124%_ (macro-unused-obj)) - (if _%deleted91121%_ + (let _%loop91388%_ ((_%probe91391%_ _%start91384%_) + (_%i91393%_ '1) + (_%deleted91395%_ '#f)) + (let ((_%k91398%_ (vector-ref _%table91372%_ _%probe91391%_))) + (if (eq? _%k91398%_ (macro-unused-obj)) + (if _%deleted91395%_ (begin (vector-set! - _%table91098%_ - _%deleted91121%_ - _%key91093%_) + _%table91372%_ + _%deleted91395%_ + _%key91367%_) (vector-set! - _%table91098%_ - (##fx+ _%deleted91121%_ '1) - (_%immediate-table-update!91094%_ _%default91095%_)) + _%table91372%_ + (##fx+ _%deleted91395%_ '1) + (_%immediate-table-update!91368%_ _%default91369%_)) ((lambda () (&raw-table-count-set! - _%tab91092%_ - (##fx+ (&raw-table-count _%tab91092%_) '1))))) + _%tab91366%_ + (##fx+ (&raw-table-count _%tab91366%_) '1))))) (begin (vector-set! - _%table91098%_ - _%probe91117%_ - _%key91093%_) + _%table91372%_ + _%probe91391%_ + _%key91367%_) (vector-set! - _%table91098%_ - (##fx+ _%probe91117%_ '1) - (_%immediate-table-update!91094%_ _%default91095%_)) + _%table91372%_ + (##fx+ _%probe91391%_ '1) + (_%immediate-table-update!91368%_ _%default91369%_)) ((lambda () (&raw-table-free-set! - _%tab91092%_ - (##fx- (&raw-table-free _%tab91092%_) '1)) + _%tab91366%_ + (##fx- (&raw-table-free _%tab91366%_) '1)) (&raw-table-count-set! - _%tab91092%_ - (##fx+ (&raw-table-count _%tab91092%_) '1)))))) - (if (eq? _%k91124%_ (macro-deleted-obj)) - (_%loop91114%_ - (let ((_%next-probe91131%_ - (fx+ _%start91110%_ - _%i91119%_ - (fx* _%i91119%_ _%i91119%_)))) - (##fxmodulo _%next-probe91131%_ _%size91104%_)) - (##fx+ _%i91119%_ '1) - (let ((_%$e91134%_ _%deleted91121%_)) - (if _%$e91134%_ _%$e91134%_ _%probe91117%_))) - (if (eq? _%key91093%_ _%k91124%_) + _%tab91366%_ + (##fx+ (&raw-table-count _%tab91366%_) '1)))))) + (if (eq? _%k91398%_ (macro-deleted-obj)) + (_%loop91388%_ + (let ((_%next-probe91405%_ + (fx+ _%start91384%_ + _%i91393%_ + (fx* _%i91393%_ _%i91393%_)))) + (##fxmodulo _%next-probe91405%_ _%size91378%_)) + (##fx+ _%i91393%_ '1) + (let ((_%$e91408%_ _%deleted91395%_)) + (if _%$e91408%_ _%$e91408%_ _%probe91391%_))) + (if (eq? _%key91367%_ _%k91398%_) (let () (vector-set! - _%table91098%_ - _%probe91117%_ - _%key91093%_) + _%table91372%_ + _%probe91391%_ + _%key91367%_) (vector-set! - _%table91098%_ - (##fx+ _%probe91117%_ '1) - (_%immediate-table-update!91094%_ + _%table91372%_ + (##fx+ _%probe91391%_ '1) + (_%immediate-table-update!91368%_ (vector-ref - _%table91098%_ - (##fx+ _%probe91117%_ '1))))) - (_%loop91114%_ - (let ((_%next-probe91139%_ - (fx+ _%start91110%_ - _%i91119%_ - (fx* _%i91119%_ _%i91119%_)))) - (##fxmodulo _%next-probe91139%_ _%size91104%_)) - (##fx+ _%i91119%_ '1) - _%deleted91121%_)))))))))) + _%table91372%_ + (##fx+ _%probe91391%_ '1))))) + (_%loop91388%_ + (let ((_%next-probe91413%_ + (fx+ _%start91384%_ + _%i91393%_ + (fx* _%i91393%_ _%i91393%_)))) + (##fxmodulo _%next-probe91413%_ _%size91378%_)) + (##fx+ _%i91393%_ '1) + _%deleted91395%_)))))))))) (define immediate-table-delete! - (lambda (_%tab91047%_ _%key91049%_) - (let ((_%table91052%_ (&raw-table-table _%tab91047%_)) - (_%seed91054%_ (&raw-table-seed _%tab91047%_))) - (let* ((_%h91057%_ - (fxxor (immediate-hash _%key91049%_) _%seed91054%_)) - (_%size91060%_ (vector-length _%table91052%_)) - (_%entries91063%_ (##fxquotient _%size91060%_ '2)) - (_%start91066%_ + (lambda (_%tab91321%_ _%key91323%_) + (let ((_%table91326%_ (&raw-table-table _%tab91321%_)) + (_%seed91328%_ (&raw-table-seed _%tab91321%_))) + (let* ((_%h91331%_ + (fxxor (immediate-hash _%key91323%_) _%seed91328%_)) + (_%size91334%_ (vector-length _%table91326%_)) + (_%entries91337%_ (##fxquotient _%size91334%_ '2)) + (_%start91340%_ (##fxarithmetic-shift-left - (##fxmodulo _%h91057%_ _%entries91063%_) + (##fxmodulo _%h91331%_ _%entries91337%_) '1))) - (let _%loop91070%_ ((_%probe91073%_ _%start91066%_) - (_%i91075%_ '1)) - (let ((_%k91078%_ (vector-ref _%table91052%_ _%probe91073%_))) - (if (eq? _%k91078%_ (macro-unused-obj)) + (let _%loop91344%_ ((_%probe91347%_ _%start91340%_) + (_%i91349%_ '1)) + (let ((_%k91352%_ (vector-ref _%table91326%_ _%probe91347%_))) + (if (eq? _%k91352%_ (macro-unused-obj)) '#!void - (if (eq? _%k91078%_ (macro-deleted-obj)) - (_%loop91070%_ - (let ((_%next-probe91083%_ - (fx+ _%start91066%_ - _%i91075%_ - (fx* _%i91075%_ _%i91075%_)))) - (##fxmodulo _%next-probe91083%_ _%size91060%_)) - (##fx+ _%i91075%_ '1)) - (if (eq? _%key91049%_ _%k91078%_) + (if (eq? _%k91352%_ (macro-deleted-obj)) + (_%loop91344%_ + (let ((_%next-probe91357%_ + (fx+ _%start91340%_ + _%i91349%_ + (fx* _%i91349%_ _%i91349%_)))) + (##fxmodulo _%next-probe91357%_ _%size91334%_)) + (##fx+ _%i91349%_ '1)) + (if (eq? _%key91323%_ _%k91352%_) (let () (vector-set! - _%table91052%_ - _%probe91073%_ + _%table91326%_ + _%probe91347%_ (macro-deleted-obj)) (vector-set! - _%table91052%_ - (##fx+ _%probe91073%_ '1) + _%table91326%_ + (##fx+ _%probe91347%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab91047%_ - (##fx- (&raw-table-count _%tab91047%_) + _%tab91321%_ + (##fx- (&raw-table-count _%tab91321%_) '1))))) - (_%loop91070%_ - (let ((_%next-probe91089%_ - (fx+ _%start91066%_ - _%i91075%_ - (fx* _%i91075%_ _%i91075%_)))) - (##fxmodulo _%next-probe91089%_ _%size91060%_)) - (##fx+ _%i91075%_ '1))))))))))) + (_%loop91344%_ + (let ((_%next-probe91363%_ + (fx+ _%start91340%_ + _%i91349%_ + (fx* _%i91349%_ _%i91349%_)))) + (##fxmodulo _%next-probe91363%_ _%size91334%_)) + (##fx+ _%i91349%_ '1))))))))))) (define __gc-table::t.id 'gerbil#__gc-table::t) (define __gc-table::t (##structure @@ -1997,235 +1997,235 @@ '#(gcht 5 #f immediate 5 #f))) (define __gc-table-loads '#f64(.45 .6363961030678927 .9)) (define &gc-table-gcht - (lambda (_%tab91045%_) + (lambda (_%tab91319%_) (##unchecked-structure-ref - _%tab91045%_ + _%tab91319%_ '1 __gc-table::t 'gc-table-gcht))) (define &gc-table-immediate - (lambda (_%tab91043%_) + (lambda (_%tab91317%_) (##unchecked-structure-ref - _%tab91043%_ + _%tab91317%_ '2 __gc-table::t 'gc-table-immediate))) (define &gc-table-gcht-set! - (lambda (_%tab91040%_ _%val91041%_) + (lambda (_%tab91314%_ _%val91315%_) (##unchecked-structure-set! - _%tab91040%_ - _%val91041%_ + _%tab91314%_ + _%val91315%_ '1 __gc-table::t 'gc-table-gcht-set!))) (define &gc-table-immediate-set! - (lambda (_%tab91037%_ _%val91038%_) + (lambda (_%tab91311%_ _%val91312%_) (##unchecked-structure-set! - _%tab91037%_ - _%val91038%_ + _%tab91311%_ + _%val91312%_ '2 __gc-table::t 'gc-table-immediate-set!))) (define make-gc-table__% - (lambda (_%size-hint91013%_ _%klass91014%_ _%flags91015%_) - (let ((_%gcht91017%_ + (lambda (_%size-hint91287%_ _%klass91288%_ _%flags91289%_) + (let ((_%gcht91291%_ (__gc-table-new - (if (fixnum? _%size-hint91013%_) _%size-hint91013%_ '16) - _%flags91015%_))) - (##structure _%klass91014%_ _%gcht91017%_ '#f)))) + (if (fixnum? _%size-hint91287%_) _%size-hint91287%_ '16) + _%flags91289%_))) + (##structure _%klass91288%_ _%gcht91291%_ '#f)))) (define make-gc-table__0 - (lambda (_%size-hint91022%_) - (let* ((_%klass91024%_ __gc-table::t) (_%flags91026%_ '0)) + (lambda (_%size-hint91296%_) + (let* ((_%klass91298%_ __gc-table::t) (_%flags91300%_ '0)) (make-gc-table__% - _%size-hint91022%_ - _%klass91024%_ - _%flags91026%_)))) + _%size-hint91296%_ + _%klass91298%_ + _%flags91300%_)))) (define make-gc-table__1 - (lambda (_%size-hint91028%_ _%klass91029%_) - (let ((_%flags91031%_ '0)) + (lambda (_%size-hint91302%_ _%klass91303%_) + (let ((_%flags91305%_ '0)) (make-gc-table__% - _%size-hint91028%_ - _%klass91029%_ - _%flags91031%_)))) + _%size-hint91302%_ + _%klass91303%_ + _%flags91305%_)))) (define make-gc-table - (lambda _g92489_ - (let ((_g92488_ (##length _g92489_))) - (cond ((##fx= _g92488_ 1) (apply make-gc-table__0 _g92489_)) - ((##fx= _g92488_ 2) (apply make-gc-table__1 _g92489_)) - ((##fx= _g92488_ 3) (apply make-gc-table__% _g92489_)) + (lambda _g92763_ + (let ((_g92762_ (##length _g92763_))) + (cond ((##fx= _g92762_ 1) (apply make-gc-table__0 _g92763_)) + ((##fx= _g92762_ 2) (apply make-gc-table__1 _g92763_)) + ((##fx= _g92762_ 3) (apply make-gc-table__% _g92763_)) (else (##raise-wrong-number-of-arguments-exception make-gc-table - _g92489_)))))) + _g92763_)))))) (define __gc-table-immediate - (lambda (_%tab91004%_) - (let ((_%$e91006%_ (&gc-table-immediate _%tab91004%_))) - (if _%$e91006%_ - _%$e91006%_ - (let ((_%immediate91010%_ (make-immediate-table__% '#f '0))) - (&gc-table-immediate-set! _%tab91004%_ _%immediate91010%_) - _%immediate91010%_))))) + (lambda (_%tab91278%_) + (let ((_%$e91280%_ (&gc-table-immediate _%tab91278%_))) + (if _%$e91280%_ + _%$e91280%_ + (let ((_%immediate91284%_ (make-immediate-table__% '#f '0))) + (&gc-table-immediate-set! _%tab91278%_ _%immediate91284%_) + _%immediate91284%_))))) (define __gc-table-new - (lambda (_%size90994%_ _%flags90995%_) - (let* ((_%flags90997%_ - (##fxand _%flags90995%_ + (lambda (_%size91268%_ _%flags91269%_) + (let* ((_%flags91271%_ + (##fxand _%flags91269%_ (fxnot (macro-gc-hash-table-flag-need-rehash)))) - (_%flags90999%_ - (fxior _%flags90997%_ + (_%flags91273%_ + (fxior _%flags91271%_ (macro-gc-hash-table-flag-mem-alloc-keys))) - (_%gcht91001%_ + (_%gcht91275%_ (##gc-hash-table-allocate - _%size90994%_ - _%flags90999%_ + _%size91268%_ + _%flags91273%_ __gc-table-loads))) - _%gcht91001%_))) + _%gcht91275%_))) (define __gc-table-e - (lambda (_%tab90989%_) + (lambda (_%tab91263%_) (declare (not interrupts-enabled)) - (let ((_%gcht90992%_ (&gc-table-gcht _%tab90989%_))) + (let ((_%gcht91266%_ (&gc-table-gcht _%tab91263%_))) (if (##fx= '0 - (fxand (macro-gc-hash-table-flags _%gcht90992%_) + (fxand (macro-gc-hash-table-flags _%gcht91266%_) (macro-gc-hash-table-flag-need-rehash))) - _%gcht90992%_ + _%gcht91266%_ (begin - (__gc-table-rehash! _%tab90989%_) - (&gc-table-gcht _%tab90989%_)))))) + (__gc-table-rehash! _%tab91263%_) + (&gc-table-gcht _%tab91263%_)))))) (define __gc-table-rehash! - (lambda (_%tab90980%_) - (let* ((_%old-table90982%_ (&gc-table-gcht _%tab90980%_)) - (_%new-table90984%_ - (##gc-hash-table-resize! _%old-table90982%_ __gc-table-loads)) - (_%gcht90986%_ + (lambda (_%tab91254%_) + (let* ((_%old-table91256%_ (&gc-table-gcht _%tab91254%_)) + (_%new-table91258%_ + (##gc-hash-table-resize! _%old-table91256%_ __gc-table-loads)) + (_%gcht91260%_ (##gc-hash-table-rehash! - _%old-table90982%_ - _%new-table90984%_))) - (&gc-table-gcht-set! _%tab90980%_ _%gcht90986%_)))) + _%old-table91256%_ + _%new-table91258%_))) + (&gc-table-gcht-set! _%tab91254%_ _%gcht91260%_)))) (define gc-table-ref - (lambda (_%tab90964%_ _%key90965%_ _%default90966%_) + (lambda (_%tab91238%_ _%key91239%_ _%default91240%_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _%key90965%_) - (let* ((_%gcht90970%_ (__gc-table-e _%tab90964%_)) - (_%value90972%_ - (##gc-hash-table-ref _%gcht90970%_ _%key90965%_))) - (if (eq? _%value90972%_ (macro-unused-obj)) - _%default90966%_ - _%value90972%_)) - (let ((_%$e90974%_ (&gc-table-immediate _%tab90964%_))) - (if _%$e90974%_ - ((lambda (_%immediate90977%_) + (if (##mem-allocated? _%key91239%_) + (let* ((_%gcht91244%_ (__gc-table-e _%tab91238%_)) + (_%value91246%_ + (##gc-hash-table-ref _%gcht91244%_ _%key91239%_))) + (if (eq? _%value91246%_ (macro-unused-obj)) + _%default91240%_ + _%value91246%_)) + (let ((_%$e91248%_ (&gc-table-immediate _%tab91238%_))) + (if _%$e91248%_ + ((lambda (_%immediate91251%_) (immediate-table-ref - _%immediate90977%_ - _%key90965%_ - _%default90966%_)) - _%$e90974%_) - _%default90966%_))))) + _%immediate91251%_ + _%key91239%_ + _%default91240%_)) + _%$e91248%_) + _%default91240%_))))) (define gc-table-set! - (lambda (_%tab90957%_ _%key90958%_ _%value90959%_) + (lambda (_%tab91231%_ _%key91232%_ _%value91233%_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _%key90958%_) - (let ((_%gcht90962%_ (__gc-table-e _%tab90957%_))) + (if (##mem-allocated? _%key91232%_) + (let ((_%gcht91236%_ (__gc-table-e _%tab91231%_))) (if (##gc-hash-table-set! - _%gcht90962%_ - _%key90958%_ - _%value90959%_) + _%gcht91236%_ + _%key91232%_ + _%value91233%_) (begin - (__gc-table-rehash! _%tab90957%_) - (gc-table-set! _%tab90957%_ _%key90958%_ _%value90959%_)) + (__gc-table-rehash! _%tab91231%_) + (gc-table-set! _%tab91231%_ _%key91232%_ _%value91233%_)) '#!void)) (immediate-table-set! - (__gc-table-immediate _%tab90957%_) - _%key90958%_ - _%value90959%_)))) + (__gc-table-immediate _%tab91231%_) + _%key91232%_ + _%value91233%_)))) (define gc-table-update! - (lambda (_%tab90950%_ _%key90951%_ _%update90952%_ _%default90953%_) - (if (##mem-allocated? _%key90951%_) - (let ((_%value90955%_ - (gc-table-ref _%tab90950%_ _%key90951%_ _%default90953%_))) + (lambda (_%tab91224%_ _%key91225%_ _%update91226%_ _%default91227%_) + (if (##mem-allocated? _%key91225%_) + (let ((_%value91229%_ + (gc-table-ref _%tab91224%_ _%key91225%_ _%default91227%_))) (gc-table-set! - _%tab90950%_ - _%key90951%_ - (_%update90952%_ _%value90955%_))) + _%tab91224%_ + _%key91225%_ + (_%update91226%_ _%value91229%_))) (immediate-table-update! - (__gc-table-immediate _%tab90950%_) - _%key90951%_ - _%update90952%_ - _%default90953%_)))) + (__gc-table-immediate _%tab91224%_) + _%key91225%_ + _%update91226%_ + _%default91227%_)))) (define gc-table-delete! - (lambda (_%tab90938%_ _%key90939%_) + (lambda (_%tab91212%_ _%key91213%_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _%key90939%_) - (let ((_%gcht90943%_ (__gc-table-e _%tab90938%_))) + (if (##mem-allocated? _%key91213%_) + (let ((_%gcht91217%_ (__gc-table-e _%tab91212%_))) (if (##gc-hash-table-set! - _%gcht90943%_ - _%key90939%_ + _%gcht91217%_ + _%key91213%_ (macro-absent-obj)) (begin - (__gc-table-rehash! _%tab90938%_) - (gc-table-delete! _%tab90938%_ _%key90939%_)) + (__gc-table-rehash! _%tab91212%_) + (gc-table-delete! _%tab91212%_ _%key91213%_)) '#!void)) - (let ((_%$e90945%_ (&gc-table-immediate _%tab90938%_))) - (if _%$e90945%_ - ((lambda (_%immediate90948%_) - (immediate-table-delete! _%immediate90948%_ _%key90939%_)) - _%$e90945%_) + (let ((_%$e91219%_ (&gc-table-immediate _%tab91212%_))) + (if _%$e91219%_ + ((lambda (_%immediate91222%_) + (immediate-table-delete! _%immediate91222%_ _%key91213%_)) + _%$e91219%_) '#!void))))) (define gc-table-for-each - (lambda (_%tab90919%_ _%proc90920%_) + (lambda (_%tab91193%_ _%proc91194%_) (declare (not interrupts-enabled)) (begin - (let ((_%gcht90923%_ (__gc-table-e _%tab90919%_))) - (let _%loop90925%_ ((_%i90927%_ (macro-gc-hash-table-key0))) - (if (##fx< _%i90927%_ (##vector-length _%gcht90923%_)) - (let ((_%key90929%_ (##vector-ref _%gcht90923%_ _%i90927%_))) - (if (if (eq? _%key90929%_ (macro-unused-obj)) + (let ((_%gcht91197%_ (__gc-table-e _%tab91193%_))) + (let _%loop91199%_ ((_%i91201%_ (macro-gc-hash-table-key0))) + (if (##fx< _%i91201%_ (##vector-length _%gcht91197%_)) + (let ((_%key91203%_ (##vector-ref _%gcht91197%_ _%i91201%_))) + (if (if (eq? _%key91203%_ (macro-unused-obj)) '#f - (not (eq? _%key90929%_ (macro-deleted-obj)))) - (_%proc90920%_ - _%key90929%_ - (##vector-ref _%gcht90923%_ (##fx+ _%i90927%_ '1))) + (not (eq? _%key91203%_ (macro-deleted-obj)))) + (_%proc91194%_ + _%key91203%_ + (##vector-ref _%gcht91197%_ (##fx+ _%i91201%_ '1))) '#!void) (let () (declare (interrupts-enabled)) - (_%loop90925%_ (##fx+ _%i90927%_ '2)))) + (_%loop91199%_ (##fx+ _%i91201%_ '2)))) '#!void))) - (let ((_%$e90933%_ (&gc-table-immediate _%tab90919%_))) - (if _%$e90933%_ - ((lambda (_%immediate90936%_) - (raw-table-for-each _%immediate90936%_ _%proc90920%_)) - _%$e90933%_) + (let ((_%$e91207%_ (&gc-table-immediate _%tab91193%_))) + (if _%$e91207%_ + ((lambda (_%immediate91210%_) + (raw-table-for-each _%immediate91210%_ _%proc91194%_)) + _%$e91207%_) '#!void))))) (define gc-table-copy - (lambda (_%tab90907%_) - (let* ((_%gcht90909%_ (__gc-table-e _%tab90907%_)) - (_%new-table90911%_ + (lambda (_%tab91181%_) + (let* ((_%gcht91183%_ (__gc-table-e _%tab91181%_)) + (_%new-table91185%_ (__gc-table-new - (macro-gc-hash-table-count _%gcht90909%_) - (macro-gc-hash-table-flags _%gcht90909%_))) - (_%result90913%_ + (macro-gc-hash-table-count _%gcht91183%_) + (macro-gc-hash-table-flags _%gcht91183%_))) + (_%result91187%_ (##structure - (##structure-type _%tab90907%_) - _%new-table90911%_ + (##structure-type _%tab91181%_) + _%new-table91185%_ '#f))) (gc-table-for-each - _%tab90907%_ - (lambda (_%k90916%_ _%v90917%_) - (gc-table-set! _%result90913%_ _%k90916%_ _%v90917%_))) - _%result90913%_))) + _%tab91181%_ + (lambda (_%k91190%_ _%v91191%_) + (gc-table-set! _%result91187%_ _%k91190%_ _%v91191%_))) + _%result91187%_))) (define gc-table-clear! - (lambda (_%tab90900%_) - (let* ((_%gcht90902%_ (__gc-table-e _%tab90900%_)) - (_%new-table90904%_ + (lambda (_%tab91174%_) + (let* ((_%gcht91176%_ (__gc-table-e _%tab91174%_)) + (_%new-table91178%_ (__gc-table-new '16 - (macro-gc-hash-table-flags _%gcht90902%_)))) - (&gc-table-gcht-set! _%tab90900%_ _%new-table90904%_) - (&gc-table-immediate-set! _%tab90900%_ '#f)))) + (macro-gc-hash-table-flags _%gcht91176%_)))) + (&gc-table-gcht-set! _%tab91174%_ _%new-table91178%_) + (&gc-table-immediate-set! _%tab91174%_ '#f)))) (define gc-table-length - (lambda (_%tab90892%_) - (let ((_%gcht90894%_ (__gc-table-e _%tab90892%_))) - (fx+ (macro-gc-hash-table-count _%gcht90894%_) - (let ((_%$e90896%_ (&gc-table-immediate _%tab90892%_))) - (if _%$e90896%_ (&raw-table-count _%$e90896%_) '0)))))) + (lambda (_%tab91166%_) + (let ((_%gcht91168%_ (__gc-table-e _%tab91166%_))) + (fx+ (macro-gc-hash-table-count _%gcht91168%_) + (let ((_%$e91170%_ (&gc-table-immediate _%tab91166%_))) + (if _%$e91170%_ (&raw-table-count _%$e91170%_) '0)))))) (define __object-eq-hash-next '0) (define __object-eq-hash (make-gc-table__% @@ -2233,18 +2233,18 @@ __gc-table::t (macro-gc-hash-table-flag-weak-keys))) (define __object->eq-hash - (lambda (_%obj90877%_) + (lambda (_%obj91151%_) (declare (not interrupts-enabled)) - (let ((_%val90880%_ (gc-table-ref __object-eq-hash _%obj90877%_ '#f))) - (if _%val90880%_ - _%val90880%_ - (let* ((_%mix90882%_ __object-eq-hash-next) - (_%ptr90884%_ (##type-cast _%obj90877%_ '0)) - (_%h90886%_ - (fxand (fxxor _%mix90882%_ _%ptr90884%_) + (let ((_%val91154%_ (gc-table-ref __object-eq-hash _%obj91151%_ '#f))) + (if _%val91154%_ + _%val91154%_ + (let* ((_%mix91156%_ __object-eq-hash-next) + (_%ptr91158%_ (##type-cast _%obj91151%_ '0)) + (_%h91160%_ + (fxand (fxxor _%mix91156%_ _%ptr91158%_) (macro-max-fixnum32)))) (set! __object-eq-hash-next - (let ((_%$e90889%_ (##fx+? __object-eq-hash-next '1))) - (if _%$e90889%_ _%$e90889%_ '0))) - (gc-table-set! __object-eq-hash _%obj90877%_ _%h90886%_) - _%h90886%_))))))) + (let ((_%$e91163%_ (##fx+? __object-eq-hash-next '1))) + (if _%$e91163%_ _%$e91163%_ '0))) + (gc-table-set! __object-eq-hash _%obj91151%_ _%h91160%_) + _%h91160%_))))))) diff --git a/src/bootstrap/gerbil/runtime/table~1.scm b/src/bootstrap/gerbil/runtime/table~1.scm index cdaaf9075..249424239 100644 --- a/src/bootstrap/gerbil/runtime/table~1.scm +++ b/src/bootstrap/gerbil/runtime/table~1.scm @@ -1,182 +1,182 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |[:0:]#__symbolic-hash| - (lambda (_%$stx89805%_) - (let* ((_%g8980989823%_ - (lambda (_%g8981089819%_) + (lambda (_%$stx90079%_) + (let* ((_%g9008390097%_ + (lambda (_%g9008490093%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8981089819%_))) - (_%g8980889865%_ - (lambda (_%g8981089827%_) - (if (gx#stx-pair? _%g8981089827%_) - (let ((_%e8981289830%_ (gx#syntax-e _%g8981089827%_))) - (let ((_%hd8981389834%_ + _%g9008490093%_))) + (_%g9008290139%_ + (lambda (_%g9008490101%_) + (if (gx#stx-pair? _%g9008490101%_) + (let ((_%e9008690104%_ (gx#syntax-e _%g9008490101%_))) + (let ((_%hd9008790108%_ (let () (declare (not safe)) - (##car _%e8981289830%_))) - (_%tl8981489837%_ + (##car _%e9008690104%_))) + (_%tl9008890111%_ (let () (declare (not safe)) - (##cdr _%e8981289830%_)))) - (if (gx#stx-pair? _%tl8981489837%_) - (let ((_%e8981589840%_ - (gx#syntax-e _%tl8981489837%_))) - (let ((_%hd8981689844%_ + (##cdr _%e9008690104%_)))) + (if (gx#stx-pair? _%tl9008890111%_) + (let ((_%e9008990114%_ + (gx#syntax-e _%tl9008890111%_))) + (let ((_%hd9009090118%_ (let () (declare (not safe)) - (##car _%e8981589840%_))) - (_%tl8981789847%_ + (##car _%e9008990114%_))) + (_%tl9009190121%_ (let () (declare (not safe)) - (##cdr _%e8981589840%_)))) - (if (gx#stx-null? _%tl8981789847%_) - ((lambda (_%L89850%_) + (##cdr _%e9008990114%_)))) + (if (gx#stx-null? _%tl9009190121%_) + ((lambda (_%L90124%_) (cons (gx#datum->syntax '#f 'macro-slot) - (cons '1 (cons _%L89850%_ '())))) - _%hd8981689844%_) - (_%g8980989823%_ _%g8981089827%_)))) - (_%g8980989823%_ _%g8981089827%_)))) - (_%g8980989823%_ _%g8981089827%_))))) - (_%g8980889865%_ _%$stx89805%_)))) + (cons '1 (cons _%L90124%_ '())))) + _%hd9009090118%_) + (_%g9008390097%_ _%g9008490101%_)))) + (_%g9008390097%_ _%g9008490101%_)))) + (_%g9008390097%_ _%g9008490101%_))))) + (_%g9008290139%_ _%$stx90079%_)))) (define |[:0:]#defspecialized-table| - (lambda (_%$stx89869%_) - (let* ((_%g8987389919%_ - (lambda (_%g8987489915%_) + (lambda (_%$stx90143%_) + (let* ((_%g9014790193%_ + (lambda (_%g9014890189%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8987489915%_))) - (_%g8987290072%_ - (lambda (_%g8987489923%_) - (if (gx#stx-pair? _%g8987489923%_) - (let ((_%e8988489926%_ (gx#syntax-e _%g8987489923%_))) - (let ((_%hd8988589930%_ + _%g9014890189%_))) + (_%g9014690346%_ + (lambda (_%g9014890197%_) + (if (gx#stx-pair? _%g9014890197%_) + (let ((_%e9015890200%_ (gx#syntax-e _%g9014890197%_))) + (let ((_%hd9015990204%_ (let () (declare (not safe)) - (##car _%e8988489926%_))) - (_%tl8988689933%_ + (##car _%e9015890200%_))) + (_%tl9016090207%_ (let () (declare (not safe)) - (##cdr _%e8988489926%_)))) - (if (gx#stx-pair? _%tl8988689933%_) - (let ((_%e8988789936%_ - (gx#syntax-e _%tl8988689933%_))) - (let ((_%hd8988889940%_ + (##cdr _%e9015890200%_)))) + (if (gx#stx-pair? _%tl9016090207%_) + (let ((_%e9016190210%_ + (gx#syntax-e _%tl9016090207%_))) + (let ((_%hd9016290214%_ (let () (declare (not safe)) - (##car _%e8988789936%_))) - (_%tl8988989943%_ + (##car _%e9016190210%_))) + (_%tl9016390217%_ (let () (declare (not safe)) - (##cdr _%e8988789936%_)))) - (if (gx#stx-pair? _%tl8988989943%_) - (let ((_%e8989089946%_ - (gx#syntax-e _%tl8988989943%_))) - (let ((_%hd8989189950%_ + (##cdr _%e9016190210%_)))) + (if (gx#stx-pair? _%tl9016390217%_) + (let ((_%e9016490220%_ + (gx#syntax-e _%tl9016390217%_))) + (let ((_%hd9016590224%_ (let () (declare (not safe)) - (##car _%e8989089946%_))) - (_%tl8989289953%_ + (##car _%e9016490220%_))) + (_%tl9016690227%_ (let () (declare (not safe)) - (##cdr _%e8989089946%_)))) - (if (gx#stx-pair? _%tl8989289953%_) - (let ((_%e8989389956%_ + (##cdr _%e9016490220%_)))) + (if (gx#stx-pair? _%tl9016690227%_) + (let ((_%e9016790230%_ (gx#syntax-e - _%tl8989289953%_))) - (let ((_%hd8989489960%_ + _%tl9016690227%_))) + (let ((_%hd9016890234%_ (let () (declare (not safe)) - (##car _%e8989389956%_))) - (_%tl8989589963%_ + (##car _%e9016790230%_))) + (_%tl9016990237%_ (let () (declare (not safe)) - (##cdr _%e8989389956%_)))) + (##cdr _%e9016790230%_)))) (if (gx#stx-pair? - _%tl8989589963%_) - (let ((_%e8989689966%_ + _%tl9016990237%_) + (let ((_%e9017090240%_ (gx#syntax-e - _%tl8989589963%_))) - (let ((_%hd8989789970%_ + _%tl9016990237%_))) + (let ((_%hd9017190244%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e8989689966%_))) - (_%tl8989889973%_ - (let () (declare (not safe)) (##cdr _%e8989689966%_)))) - (if (gx#stx-pair? _%tl8989889973%_) - (let ((_%e8989989976%_ (gx#syntax-e _%tl8989889973%_))) - (let ((_%hd8990089980%_ + (##car _%e9017090240%_))) + (_%tl9017290247%_ + (let () (declare (not safe)) (##cdr _%e9017090240%_)))) + (if (gx#stx-pair? _%tl9017290247%_) + (let ((_%e9017390250%_ (gx#syntax-e _%tl9017290247%_))) + (let ((_%hd9017490254%_ (let () (declare (not safe)) - (##car _%e8989989976%_))) - (_%tl8990189983%_ + (##car _%e9017390250%_))) + (_%tl9017590257%_ (let () (declare (not safe)) - (##cdr _%e8989989976%_)))) - (if (gx#stx-pair? _%tl8990189983%_) - (let ((_%e8990289986%_ - (gx#syntax-e _%tl8990189983%_))) - (let ((_%hd8990389990%_ + (##cdr _%e9017390250%_)))) + (if (gx#stx-pair? _%tl9017590257%_) + (let ((_%e9017690260%_ + (gx#syntax-e _%tl9017590257%_))) + (let ((_%hd9017790264%_ (let () (declare (not safe)) - (##car _%e8990289986%_))) - (_%tl8990489993%_ + (##car _%e9017690260%_))) + (_%tl9017890267%_ (let () (declare (not safe)) - (##cdr _%e8990289986%_)))) - (if (gx#stx-pair? _%tl8990489993%_) - (let ((_%e8990589996%_ - (gx#syntax-e _%tl8990489993%_))) - (let ((_%hd8990690000%_ + (##cdr _%e9017690260%_)))) + (if (gx#stx-pair? _%tl9017890267%_) + (let ((_%e9017990270%_ + (gx#syntax-e _%tl9017890267%_))) + (let ((_%hd9018090274%_ (let () (declare (not safe)) - (##car _%e8990589996%_))) - (_%tl8990790003%_ + (##car _%e9017990270%_))) + (_%tl9018190277%_ (let () (declare (not safe)) - (##cdr _%e8990589996%_)))) - (if (gx#stx-pair? _%tl8990790003%_) - (let ((_%e8990890006%_ + (##cdr _%e9017990270%_)))) + (if (gx#stx-pair? _%tl9018190277%_) + (let ((_%e9018290280%_ (gx#syntax-e - _%tl8990790003%_))) - (let ((_%hd8990990010%_ + _%tl9018190277%_))) + (let ((_%hd9018390284%_ (let () (declare (not safe)) - (##car _%e8990890006%_))) - (_%tl8991090013%_ + (##car _%e9018290280%_))) + (_%tl9018490287%_ (let () (declare (not safe)) - (##cdr _%e8990890006%_)))) + (##cdr _%e9018290280%_)))) (if (gx#stx-pair? - _%tl8991090013%_) - (let ((_%e8991190016%_ + _%tl9018490287%_) + (let ((_%e9018590290%_ (gx#syntax-e - _%tl8991090013%_))) - (let ((_%hd8991290020%_ + _%tl9018490287%_))) + (let ((_%hd9018690294%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e8991190016%_))) - (_%tl8991390023%_ - (let () (declare (not safe)) (##cdr _%e8991190016%_)))) - (if (gx#stx-null? _%tl8991390023%_) - ((lambda (_%L90026%_ - _%L90028%_ - _%L90029%_ - _%L90030%_ - _%L90031%_ - _%L90032%_ - _%L90033%_ - _%L90034%_ - _%L90035%_) + (##car _%e9018590290%_))) + (_%tl9018790297%_ + (let () (declare (not safe)) (##cdr _%e9018590290%_)))) + (if (gx#stx-null? _%tl9018790297%_) + ((lambda (_%L90300%_ + _%L90302%_ + _%L90303%_ + _%L90304%_ + _%L90305%_ + _%L90306%_ + _%L90307%_ + _%L90308%_ + _%L90309%_) (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L90035%_ + (cons (cons _%L90309%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -192,14 +192,14 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'size-hint) - (cons _%L90028%_ - (cons _%L90026%_ + (cons _%L90302%_ + (cons _%L90300%_ (cons (gx#datum->syntax '#f 'seed) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L90034%_ + (cons (cons _%L90308%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -237,8 +237,8 @@ (cons (gx#datum->syntax '#f 'seed) - (cons _%L90028%_ - (cons _%L90026%_ + (cons _%L90302%_ + (cons _%L90300%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f 'default) @@ -250,7 +250,7 @@ (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L90033%_ + (cons (cons _%L90307%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) @@ -289,7 +289,7 @@ 'tab) '())) '()))) - (cons (cons _%L90032%_ + (cons (cons _%L90306%_ (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax @@ -301,7 +301,7 @@ (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L90032%_ + (cons (cons _%L90306%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) @@ -339,8 +339,8 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'seed) - (cons _%L90028%_ - (cons _%L90026%_ + (cons _%L90302%_ + (cons _%L90300%_ (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f @@ -421,10 +421,10 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons (cons _%L90031%_ + (cons (cons _%L90305%_ (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) - (cons _%L90031%_ + (cons _%L90305%_ (cons (gx#datum->syntax '#f 'default) @@ -463,25 +463,25 @@ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L90030%_ + (cons (cons _%L90304%_ (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) - (cons _%L90031%_ + (cons _%L90305%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'default) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L90030%_ + (cons (cons _%L90304%_ (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) - (cons _%L90031%_ + (cons _%L90305%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -507,12 +507,12 @@ (cons (cons (gx#datum->syntax '#f '__table-update!) (cons (gx#datum->syntax '#f 'table) (cons (gx#datum->syntax '#f 'seed) - (cons _%L90028%_ - (cons _%L90026%_ + (cons _%L90302%_ + (cons _%L90300%_ (cons (gx#datum->syntax '#f 'key) - (cons _%L90031%_ + (cons _%L90305%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -582,7 +582,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L90029%_ + (cons (cons _%L90303%_ (cons (gx#datum->syntax '#f 'tab) @@ -616,8 +616,8 @@ (cons (cons (gx#datum->syntax '#f '__table-del!) (cons (gx#datum->syntax '#f 'table) (cons (gx#datum->syntax '#f 'seed) - (cons _%L90028%_ - (cons _%L90026%_ + (cons _%L90302%_ + (cons _%L90300%_ (cons (gx#datum->syntax '#f 'key) @@ -651,92 +651,92 @@ '()))) '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8991290020%_ - _%hd8990990010%_ - _%hd8990690000%_ - _%hd8990389990%_ - _%hd8990089980%_ - _%hd8989789970%_ - _%hd8989489960%_ - _%hd8989189950%_ - _%hd8988889940%_) - (_%g8987389919%_ _%g8987489923%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8987389919%_ - _%g8987489923%_)))) - (_%g8987389919%_ - _%g8987489923%_)))) - (_%g8987389919%_ _%g8987489923%_)))) - (_%g8987389919%_ _%g8987489923%_)))) - (_%g8987389919%_ _%g8987489923%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8987389919%_ - _%g8987489923%_)))) - (_%g8987389919%_ - _%g8987489923%_)))) - (_%g8987389919%_ _%g8987489923%_)))) - (_%g8987389919%_ _%g8987489923%_)))) - (_%g8987389919%_ _%g8987489923%_))))) - (_%g8987290072%_ _%$stx89869%_)))) + _%hd9018690294%_ + _%hd9018390284%_ + _%hd9018090274%_ + _%hd9017790264%_ + _%hd9017490254%_ + _%hd9017190244%_ + _%hd9016890234%_ + _%hd9016590224%_ + _%hd9016290214%_) + (_%g9014790193%_ _%g9014890197%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g9014790193%_ + _%g9014890197%_)))) + (_%g9014790193%_ + _%g9014890197%_)))) + (_%g9014790193%_ _%g9014890197%_)))) + (_%g9014790193%_ _%g9014890197%_)))) + (_%g9014790193%_ _%g9014890197%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g9014790193%_ + _%g9014890197%_)))) + (_%g9014790193%_ + _%g9014890197%_)))) + (_%g9014790193%_ _%g9014890197%_)))) + (_%g9014790193%_ _%g9014890197%_)))) + (_%g9014790193%_ _%g9014890197%_))))) + (_%g9014690346%_ _%$stx90143%_)))) (define |[:0:]#probe-step| - (lambda (_%$stx90076%_) - (let* ((_%g9008090102%_ - (lambda (_%g9008190098%_) + (lambda (_%$stx90350%_) + (let* ((_%g9035490376%_ + (lambda (_%g9035590372%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9008190098%_))) - (_%g9007990171%_ - (lambda (_%g9008190106%_) - (if (gx#stx-pair? _%g9008190106%_) - (let ((_%e9008590109%_ (gx#syntax-e _%g9008190106%_))) - (let ((_%hd9008690113%_ + _%g9035590372%_))) + (_%g9035390445%_ + (lambda (_%g9035590380%_) + (if (gx#stx-pair? _%g9035590380%_) + (let ((_%e9035990383%_ (gx#syntax-e _%g9035590380%_))) + (let ((_%hd9036090387%_ (let () (declare (not safe)) - (##car _%e9008590109%_))) - (_%tl9008790116%_ + (##car _%e9035990383%_))) + (_%tl9036190390%_ (let () (declare (not safe)) - (##cdr _%e9008590109%_)))) - (if (gx#stx-pair? _%tl9008790116%_) - (let ((_%e9008890119%_ - (gx#syntax-e _%tl9008790116%_))) - (let ((_%hd9008990123%_ + (##cdr _%e9035990383%_)))) + (if (gx#stx-pair? _%tl9036190390%_) + (let ((_%e9036290393%_ + (gx#syntax-e _%tl9036190390%_))) + (let ((_%hd9036390397%_ (let () (declare (not safe)) - (##car _%e9008890119%_))) - (_%tl9009090126%_ + (##car _%e9036290393%_))) + (_%tl9036490400%_ (let () (declare (not safe)) - (##cdr _%e9008890119%_)))) - (if (gx#stx-pair? _%tl9009090126%_) - (let ((_%e9009190129%_ - (gx#syntax-e _%tl9009090126%_))) - (let ((_%hd9009290133%_ + (##cdr _%e9036290393%_)))) + (if (gx#stx-pair? _%tl9036490400%_) + (let ((_%e9036590403%_ + (gx#syntax-e _%tl9036490400%_))) + (let ((_%hd9036690407%_ (let () (declare (not safe)) - (##car _%e9009190129%_))) - (_%tl9009390136%_ + (##car _%e9036590403%_))) + (_%tl9036790410%_ (let () (declare (not safe)) - (##cdr _%e9009190129%_)))) - (if (gx#stx-pair? _%tl9009390136%_) - (let ((_%e9009490139%_ + (##cdr _%e9036590403%_)))) + (if (gx#stx-pair? _%tl9036790410%_) + (let ((_%e9036890413%_ (gx#syntax-e - _%tl9009390136%_))) - (let ((_%hd9009590143%_ + _%tl9036790410%_))) + (let ((_%hd9036990417%_ (let () (declare (not safe)) - (##car _%e9009490139%_))) - (_%tl9009690146%_ + (##car _%e9036890413%_))) + (_%tl9037090420%_ (let () (declare (not safe)) - (##cdr _%e9009490139%_)))) + (##cdr _%e9036890413%_)))) (if (gx#stx-null? - _%tl9009690146%_) - ((lambda (_%L90149%_ - _%L90151%_ - _%L90152%_) + _%tl9037090420%_) + ((lambda (_%L90423%_ + _%L90425%_ + _%L90426%_) (cons (gx#datum->syntax '#f 'let) @@ -745,127 +745,127 @@ '#f 'next-probe) (cons (cons (gx#datum->syntax '#f 'fx+) - (cons _%L90152%_ - (cons _%L90151%_ + (cons _%L90426%_ + (cons _%L90425%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fx*) - (cons _%L90151%_ (cons _%L90151%_ '()))) + (cons _%L90425%_ (cons _%L90425%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'fxmodulo) (cons (gx#datum->syntax '#f 'next-probe) - (cons _%L90149%_ '()))) + (cons _%L90423%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9009590143%_ - _%hd9009290133%_ - _%hd9008990123%_) - (_%g9008090102%_ - _%g9008190106%_)))) - (_%g9008090102%_ - _%g9008190106%_)))) - (_%g9008090102%_ _%g9008190106%_)))) - (_%g9008090102%_ _%g9008190106%_)))) - (_%g9008090102%_ _%g9008190106%_))))) - (_%g9007990171%_ _%$stx90076%_)))) + _%hd9036990417%_ + _%hd9036690407%_ + _%hd9036390397%_) + (_%g9035490376%_ + _%g9035590380%_)))) + (_%g9035490376%_ + _%g9035590380%_)))) + (_%g9035490376%_ _%g9035590380%_)))) + (_%g9035490376%_ _%g9035590380%_)))) + (_%g9035490376%_ _%g9035590380%_))))) + (_%g9035390445%_ _%$stx90350%_)))) (define |[:0:]#__table-ref| - (lambda (_%$stx90175%_) - (let* ((_%g9017990213%_ - (lambda (_%g9018090209%_) + (lambda (_%$stx90449%_) + (let* ((_%g9045390487%_ + (lambda (_%g9045490483%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9018090209%_))) - (_%g9017890324%_ - (lambda (_%g9018090217%_) - (if (gx#stx-pair? _%g9018090217%_) - (let ((_%e9018790220%_ (gx#syntax-e _%g9018090217%_))) - (let ((_%hd9018890224%_ + _%g9045490483%_))) + (_%g9045290598%_ + (lambda (_%g9045490491%_) + (if (gx#stx-pair? _%g9045490491%_) + (let ((_%e9046190494%_ (gx#syntax-e _%g9045490491%_))) + (let ((_%hd9046290498%_ (let () (declare (not safe)) - (##car _%e9018790220%_))) - (_%tl9018990227%_ + (##car _%e9046190494%_))) + (_%tl9046390501%_ (let () (declare (not safe)) - (##cdr _%e9018790220%_)))) - (if (gx#stx-pair? _%tl9018990227%_) - (let ((_%e9019090230%_ - (gx#syntax-e _%tl9018990227%_))) - (let ((_%hd9019190234%_ + (##cdr _%e9046190494%_)))) + (if (gx#stx-pair? _%tl9046390501%_) + (let ((_%e9046490504%_ + (gx#syntax-e _%tl9046390501%_))) + (let ((_%hd9046590508%_ (let () (declare (not safe)) - (##car _%e9019090230%_))) - (_%tl9019290237%_ + (##car _%e9046490504%_))) + (_%tl9046690511%_ (let () (declare (not safe)) - (##cdr _%e9019090230%_)))) - (if (gx#stx-pair? _%tl9019290237%_) - (let ((_%e9019390240%_ - (gx#syntax-e _%tl9019290237%_))) - (let ((_%hd9019490244%_ + (##cdr _%e9046490504%_)))) + (if (gx#stx-pair? _%tl9046690511%_) + (let ((_%e9046790514%_ + (gx#syntax-e _%tl9046690511%_))) + (let ((_%hd9046890518%_ (let () (declare (not safe)) - (##car _%e9019390240%_))) - (_%tl9019590247%_ + (##car _%e9046790514%_))) + (_%tl9046990521%_ (let () (declare (not safe)) - (##cdr _%e9019390240%_)))) - (if (gx#stx-pair? _%tl9019590247%_) - (let ((_%e9019690250%_ + (##cdr _%e9046790514%_)))) + (if (gx#stx-pair? _%tl9046990521%_) + (let ((_%e9047090524%_ (gx#syntax-e - _%tl9019590247%_))) - (let ((_%hd9019790254%_ + _%tl9046990521%_))) + (let ((_%hd9047190528%_ (let () (declare (not safe)) - (##car _%e9019690250%_))) - (_%tl9019890257%_ + (##car _%e9047090524%_))) + (_%tl9047290531%_ (let () (declare (not safe)) - (##cdr _%e9019690250%_)))) + (##cdr _%e9047090524%_)))) (if (gx#stx-pair? - _%tl9019890257%_) - (let ((_%e9019990260%_ + _%tl9047290531%_) + (let ((_%e9047390534%_ (gx#syntax-e - _%tl9019890257%_))) - (let ((_%hd9020090264%_ + _%tl9047290531%_))) + (let ((_%hd9047490538%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9019990260%_))) - (_%tl9020190267%_ - (let () (declare (not safe)) (##cdr _%e9019990260%_)))) - (if (gx#stx-pair? _%tl9020190267%_) - (let ((_%e9020290270%_ (gx#syntax-e _%tl9020190267%_))) - (let ((_%hd9020390274%_ + (##car _%e9047390534%_))) + (_%tl9047590541%_ + (let () (declare (not safe)) (##cdr _%e9047390534%_)))) + (if (gx#stx-pair? _%tl9047590541%_) + (let ((_%e9047690544%_ (gx#syntax-e _%tl9047590541%_))) + (let ((_%hd9047790548%_ (let () (declare (not safe)) - (##car _%e9020290270%_))) - (_%tl9020490277%_ + (##car _%e9047690544%_))) + (_%tl9047890551%_ (let () (declare (not safe)) - (##cdr _%e9020290270%_)))) - (if (gx#stx-pair? _%tl9020490277%_) - (let ((_%e9020590280%_ - (gx#syntax-e _%tl9020490277%_))) - (let ((_%hd9020690284%_ + (##cdr _%e9047690544%_)))) + (if (gx#stx-pair? _%tl9047890551%_) + (let ((_%e9047990554%_ + (gx#syntax-e _%tl9047890551%_))) + (let ((_%hd9048090558%_ (let () (declare (not safe)) - (##car _%e9020590280%_))) - (_%tl9020790287%_ + (##car _%e9047990554%_))) + (_%tl9048190561%_ (let () (declare (not safe)) - (##cdr _%e9020590280%_)))) - (if (gx#stx-null? _%tl9020790287%_) - ((lambda (_%L90290%_ - _%L90292%_ - _%L90293%_ - _%L90294%_ - _%L90295%_ - _%L90296%_) + (##cdr _%e9047990554%_)))) + (if (gx#stx-null? _%tl9048190561%_) + ((lambda (_%L90564%_ + _%L90566%_ + _%L90567%_ + _%L90568%_ + _%L90569%_ + _%L90570%_) (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f @@ -874,13 +874,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fxxor) - (cons (cons _%L90294%_ - (cons _%L90292%_ '())) - (cons _%L90295%_ '()))) + (cons (cons _%L90568%_ + (cons _%L90566%_ '())) + (cons _%L90569%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'size) (cons (cons (gx#datum->syntax '#f 'vector-length) - (cons _%L90296%_ '())) + (cons _%L90570%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'entries) (cons (cons (gx#datum->syntax @@ -933,7 +933,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-ref) - (cons _%L90296%_ + (cons _%L90570%_ (cons (gx#datum->syntax '#f 'probe) '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -948,7 +948,7 @@ 'macro-unused-obj) '()) '()))) - (cons _%L90290%_ '())) + (cons _%L90564%_ '())) (cons (cons (cons (gx#datum->syntax '#f 'eq?) (cons (gx#datum->syntax '#f @@ -983,8 +983,8 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L90293%_ - (cons _%L90292%_ + (cons (cons (cons _%L90567%_ + (cons _%L90566%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -994,7 +994,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L90296%_ + (cons _%L90570%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'probe) @@ -1029,145 +1029,145 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9020690284%_ - _%hd9020390274%_ - _%hd9020090264%_ - _%hd9019790254%_ - _%hd9019490244%_ - _%hd9019190234%_) - (_%g9017990213%_ _%g9018090217%_)))) - (_%g9017990213%_ _%g9018090217%_)))) - (_%g9017990213%_ _%g9018090217%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9017990213%_ - _%g9018090217%_)))) - (_%g9017990213%_ - _%g9018090217%_)))) - (_%g9017990213%_ _%g9018090217%_)))) - (_%g9017990213%_ _%g9018090217%_)))) - (_%g9017990213%_ _%g9018090217%_))))) - (_%g9017890324%_ _%$stx90175%_)))) + _%hd9048090558%_ + _%hd9047790548%_ + _%hd9047490538%_ + _%hd9047190528%_ + _%hd9046890518%_ + _%hd9046590508%_) + (_%g9045390487%_ _%g9045490491%_)))) + (_%g9045390487%_ _%g9045490491%_)))) + (_%g9045390487%_ _%g9045490491%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g9045390487%_ + _%g9045490491%_)))) + (_%g9045390487%_ + _%g9045490491%_)))) + (_%g9045390487%_ _%g9045490491%_)))) + (_%g9045390487%_ _%g9045490491%_)))) + (_%g9045390487%_ _%g9045490491%_))))) + (_%g9045290598%_ _%$stx90449%_)))) (define |[:0:]#__table-set!| - (lambda (_%$stx90328%_) - (let* ((_%g9033290374%_ - (lambda (_%g9033390370%_) + (lambda (_%$stx90602%_) + (let* ((_%g9060690648%_ + (lambda (_%g9060790644%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9033390370%_))) - (_%g9033190513%_ - (lambda (_%g9033390378%_) - (if (gx#stx-pair? _%g9033390378%_) - (let ((_%e9034290381%_ (gx#syntax-e _%g9033390378%_))) - (let ((_%hd9034390385%_ + _%g9060790644%_))) + (_%g9060590787%_ + (lambda (_%g9060790652%_) + (if (gx#stx-pair? _%g9060790652%_) + (let ((_%e9061690655%_ (gx#syntax-e _%g9060790652%_))) + (let ((_%hd9061790659%_ (let () (declare (not safe)) - (##car _%e9034290381%_))) - (_%tl9034490388%_ + (##car _%e9061690655%_))) + (_%tl9061890662%_ (let () (declare (not safe)) - (##cdr _%e9034290381%_)))) - (if (gx#stx-pair? _%tl9034490388%_) - (let ((_%e9034590391%_ - (gx#syntax-e _%tl9034490388%_))) - (let ((_%hd9034690395%_ + (##cdr _%e9061690655%_)))) + (if (gx#stx-pair? _%tl9061890662%_) + (let ((_%e9061990665%_ + (gx#syntax-e _%tl9061890662%_))) + (let ((_%hd9062090669%_ (let () (declare (not safe)) - (##car _%e9034590391%_))) - (_%tl9034790398%_ + (##car _%e9061990665%_))) + (_%tl9062190672%_ (let () (declare (not safe)) - (##cdr _%e9034590391%_)))) - (if (gx#stx-pair? _%tl9034790398%_) - (let ((_%e9034890401%_ - (gx#syntax-e _%tl9034790398%_))) - (let ((_%hd9034990405%_ + (##cdr _%e9061990665%_)))) + (if (gx#stx-pair? _%tl9062190672%_) + (let ((_%e9062290675%_ + (gx#syntax-e _%tl9062190672%_))) + (let ((_%hd9062390679%_ (let () (declare (not safe)) - (##car _%e9034890401%_))) - (_%tl9035090408%_ + (##car _%e9062290675%_))) + (_%tl9062490682%_ (let () (declare (not safe)) - (##cdr _%e9034890401%_)))) - (if (gx#stx-pair? _%tl9035090408%_) - (let ((_%e9035190411%_ + (##cdr _%e9062290675%_)))) + (if (gx#stx-pair? _%tl9062490682%_) + (let ((_%e9062590685%_ (gx#syntax-e - _%tl9035090408%_))) - (let ((_%hd9035290415%_ + _%tl9062490682%_))) + (let ((_%hd9062690689%_ (let () (declare (not safe)) - (##car _%e9035190411%_))) - (_%tl9035390418%_ + (##car _%e9062590685%_))) + (_%tl9062790692%_ (let () (declare (not safe)) - (##cdr _%e9035190411%_)))) + (##cdr _%e9062590685%_)))) (if (gx#stx-pair? - _%tl9035390418%_) - (let ((_%e9035490421%_ + _%tl9062790692%_) + (let ((_%e9062890695%_ (gx#syntax-e - _%tl9035390418%_))) - (let ((_%hd9035590425%_ + _%tl9062790692%_))) + (let ((_%hd9062990699%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9035490421%_))) - (_%tl9035690428%_ - (let () (declare (not safe)) (##cdr _%e9035490421%_)))) - (if (gx#stx-pair? _%tl9035690428%_) - (let ((_%e9035790431%_ (gx#syntax-e _%tl9035690428%_))) - (let ((_%hd9035890435%_ + (##car _%e9062890695%_))) + (_%tl9063090702%_ + (let () (declare (not safe)) (##cdr _%e9062890695%_)))) + (if (gx#stx-pair? _%tl9063090702%_) + (let ((_%e9063190705%_ (gx#syntax-e _%tl9063090702%_))) + (let ((_%hd9063290709%_ (let () (declare (not safe)) - (##car _%e9035790431%_))) - (_%tl9035990438%_ + (##car _%e9063190705%_))) + (_%tl9063390712%_ (let () (declare (not safe)) - (##cdr _%e9035790431%_)))) - (if (gx#stx-pair? _%tl9035990438%_) - (let ((_%e9036090441%_ - (gx#syntax-e _%tl9035990438%_))) - (let ((_%hd9036190445%_ + (##cdr _%e9063190705%_)))) + (if (gx#stx-pair? _%tl9063390712%_) + (let ((_%e9063490715%_ + (gx#syntax-e _%tl9063390712%_))) + (let ((_%hd9063590719%_ (let () (declare (not safe)) - (##car _%e9036090441%_))) - (_%tl9036290448%_ + (##car _%e9063490715%_))) + (_%tl9063690722%_ (let () (declare (not safe)) - (##cdr _%e9036090441%_)))) - (if (gx#stx-pair? _%tl9036290448%_) - (let ((_%e9036390451%_ - (gx#syntax-e _%tl9036290448%_))) - (let ((_%hd9036490455%_ + (##cdr _%e9063490715%_)))) + (if (gx#stx-pair? _%tl9063690722%_) + (let ((_%e9063790725%_ + (gx#syntax-e _%tl9063690722%_))) + (let ((_%hd9063890729%_ (let () (declare (not safe)) - (##car _%e9036390451%_))) - (_%tl9036590458%_ + (##car _%e9063790725%_))) + (_%tl9063990732%_ (let () (declare (not safe)) - (##cdr _%e9036390451%_)))) - (if (gx#stx-pair? _%tl9036590458%_) - (let ((_%e9036690461%_ + (##cdr _%e9063790725%_)))) + (if (gx#stx-pair? _%tl9063990732%_) + (let ((_%e9064090735%_ (gx#syntax-e - _%tl9036590458%_))) - (let ((_%hd9036790465%_ + _%tl9063990732%_))) + (let ((_%hd9064190739%_ (let () (declare (not safe)) - (##car _%e9036690461%_))) - (_%tl9036890468%_ + (##car _%e9064090735%_))) + (_%tl9064290742%_ (let () (declare (not safe)) - (##cdr _%e9036690461%_)))) + (##cdr _%e9064090735%_)))) (if (gx#stx-null? - _%tl9036890468%_) - ((lambda (_%L90471%_ - _%L90473%_ - _%L90474%_ - _%L90475%_ - _%L90476%_ - _%L90477%_ - _%L90478%_ - _%L90479%_) + _%tl9064290742%_) + ((lambda (_%L90745%_ + _%L90747%_ + _%L90748%_ + _%L90749%_ + _%L90750%_ + _%L90751%_ + _%L90752%_ + _%L90753%_) (cons (gx#datum->syntax '#f 'let*) @@ -1178,18 +1178,18 @@ (cons (cons (gx#datum->syntax '#f 'fxxor) - (cons (cons _%L90477%_ - (cons _%L90475%_ + (cons (cons _%L90751%_ + (cons _%L90749%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%L90478%_ '()))) + (cons _%L90752%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'size) (cons (cons (gx#datum->syntax '#f 'vector-length) - (cons _%L90479%_ '())) + (cons _%L90753%_ '())) '())) (cons (cons (gx#datum->syntax '#f @@ -1246,7 +1246,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L90479%_ + (cons _%L90753%_ (cons (gx#datum->syntax '#f 'probe) @@ -1273,41 +1273,41 @@ (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L90479%_ + (cons _%L90753%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'deleted) - (cons _%L90475%_ '())))) + (cons _%L90749%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L90479%_ + (cons _%L90753%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'deleted) (cons '1 '()))) - (cons _%L90474%_ '())))) - (cons (cons _%L90471%_ '()) '())))) + (cons _%L90748%_ '())))) + (cons (cons _%L90745%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L90479%_ + (cons _%L90753%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'probe) - (cons _%L90475%_ '())))) + (cons _%L90749%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L90479%_ + (cons _%L90753%_ (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'probe) (cons '1 '()))) - (cons _%L90474%_ '())))) - (cons (cons _%L90473%_ '()) '())))) + (cons _%L90748%_ '())))) + (cons (cons _%L90747%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())) @@ -1352,16 +1352,16 @@ '())))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (cons _%L90476%_ + (cons (cons (cons _%L90750%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L90475%_ + (cons _%L90749%_ (cons (gx#datum->syntax '#f 'k) '()))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L90479%_ + (cons _%L90753%_ (cons (gx#datum->syntax '#f 'probe) - (cons _%L90475%_ '())))) + (cons _%L90749%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L90479%_ + (cons _%L90753%_ (cons (cons (gx#datum->syntax '#f 'fx+) @@ -1370,7 +1370,7 @@ '#f 'probe) (cons '1 '()))) - (cons _%L90474%_ '())))) + (cons _%L90748%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'else) @@ -1405,173 +1405,173 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9036790465%_ - _%hd9036490455%_ - _%hd9036190445%_ - _%hd9035890435%_ - _%hd9035590425%_ - _%hd9035290415%_ - _%hd9034990405%_ - _%hd9034690395%_) - (_%g9033290374%_ - _%g9033390378%_)))) - (_%g9033290374%_ - _%g9033390378%_)))) - (_%g9033290374%_ _%g9033390378%_)))) - (_%g9033290374%_ _%g9033390378%_)))) - (_%g9033290374%_ _%g9033390378%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9033290374%_ - _%g9033390378%_)))) - (_%g9033290374%_ - _%g9033390378%_)))) - (_%g9033290374%_ _%g9033390378%_)))) - (_%g9033290374%_ _%g9033390378%_)))) - (_%g9033290374%_ _%g9033390378%_))))) - (_%g9033190513%_ _%$stx90328%_)))) + _%hd9064190739%_ + _%hd9063890729%_ + _%hd9063590719%_ + _%hd9063290709%_ + _%hd9062990699%_ + _%hd9062690689%_ + _%hd9062390679%_ + _%hd9062090669%_) + (_%g9060690648%_ + _%g9060790652%_)))) + (_%g9060690648%_ + _%g9060790652%_)))) + (_%g9060690648%_ _%g9060790652%_)))) + (_%g9060690648%_ _%g9060790652%_)))) + (_%g9060690648%_ _%g9060790652%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g9060690648%_ + _%g9060790652%_)))) + (_%g9060690648%_ + _%g9060790652%_)))) + (_%g9060690648%_ _%g9060790652%_)))) + (_%g9060690648%_ _%g9060790652%_)))) + (_%g9060690648%_ _%g9060790652%_))))) + (_%g9060590787%_ _%$stx90602%_)))) (define |[:0:]#__table-update!| - (lambda (_%$stx90517%_) - (let* ((_%g9052190567%_ - (lambda (_%g9052290563%_) + (lambda (_%$stx90791%_) + (let* ((_%g9079590841%_ + (lambda (_%g9079690837%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9052290563%_))) - (_%g9052090720%_ - (lambda (_%g9052290571%_) - (if (gx#stx-pair? _%g9052290571%_) - (let ((_%e9053290574%_ (gx#syntax-e _%g9052290571%_))) - (let ((_%hd9053390578%_ + _%g9079690837%_))) + (_%g9079490994%_ + (lambda (_%g9079690845%_) + (if (gx#stx-pair? _%g9079690845%_) + (let ((_%e9080690848%_ (gx#syntax-e _%g9079690845%_))) + (let ((_%hd9080790852%_ (let () (declare (not safe)) - (##car _%e9053290574%_))) - (_%tl9053490581%_ + (##car _%e9080690848%_))) + (_%tl9080890855%_ (let () (declare (not safe)) - (##cdr _%e9053290574%_)))) - (if (gx#stx-pair? _%tl9053490581%_) - (let ((_%e9053590584%_ - (gx#syntax-e _%tl9053490581%_))) - (let ((_%hd9053690588%_ + (##cdr _%e9080690848%_)))) + (if (gx#stx-pair? _%tl9080890855%_) + (let ((_%e9080990858%_ + (gx#syntax-e _%tl9080890855%_))) + (let ((_%hd9081090862%_ (let () (declare (not safe)) - (##car _%e9053590584%_))) - (_%tl9053790591%_ + (##car _%e9080990858%_))) + (_%tl9081190865%_ (let () (declare (not safe)) - (##cdr _%e9053590584%_)))) - (if (gx#stx-pair? _%tl9053790591%_) - (let ((_%e9053890594%_ - (gx#syntax-e _%tl9053790591%_))) - (let ((_%hd9053990598%_ + (##cdr _%e9080990858%_)))) + (if (gx#stx-pair? _%tl9081190865%_) + (let ((_%e9081290868%_ + (gx#syntax-e _%tl9081190865%_))) + (let ((_%hd9081390872%_ (let () (declare (not safe)) - (##car _%e9053890594%_))) - (_%tl9054090601%_ + (##car _%e9081290868%_))) + (_%tl9081490875%_ (let () (declare (not safe)) - (##cdr _%e9053890594%_)))) - (if (gx#stx-pair? _%tl9054090601%_) - (let ((_%e9054190604%_ + (##cdr _%e9081290868%_)))) + (if (gx#stx-pair? _%tl9081490875%_) + (let ((_%e9081590878%_ (gx#syntax-e - _%tl9054090601%_))) - (let ((_%hd9054290608%_ + _%tl9081490875%_))) + (let ((_%hd9081690882%_ (let () (declare (not safe)) - (##car _%e9054190604%_))) - (_%tl9054390611%_ + (##car _%e9081590878%_))) + (_%tl9081790885%_ (let () (declare (not safe)) - (##cdr _%e9054190604%_)))) + (##cdr _%e9081590878%_)))) (if (gx#stx-pair? - _%tl9054390611%_) - (let ((_%e9054490614%_ + _%tl9081790885%_) + (let ((_%e9081890888%_ (gx#syntax-e - _%tl9054390611%_))) - (let ((_%hd9054590618%_ + _%tl9081790885%_))) + (let ((_%hd9081990892%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9054490614%_))) - (_%tl9054690621%_ - (let () (declare (not safe)) (##cdr _%e9054490614%_)))) - (if (gx#stx-pair? _%tl9054690621%_) - (let ((_%e9054790624%_ (gx#syntax-e _%tl9054690621%_))) - (let ((_%hd9054890628%_ + (##car _%e9081890888%_))) + (_%tl9082090895%_ + (let () (declare (not safe)) (##cdr _%e9081890888%_)))) + (if (gx#stx-pair? _%tl9082090895%_) + (let ((_%e9082190898%_ (gx#syntax-e _%tl9082090895%_))) + (let ((_%hd9082290902%_ (let () (declare (not safe)) - (##car _%e9054790624%_))) - (_%tl9054990631%_ + (##car _%e9082190898%_))) + (_%tl9082390905%_ (let () (declare (not safe)) - (##cdr _%e9054790624%_)))) - (if (gx#stx-pair? _%tl9054990631%_) - (let ((_%e9055090634%_ - (gx#syntax-e _%tl9054990631%_))) - (let ((_%hd9055190638%_ + (##cdr _%e9082190898%_)))) + (if (gx#stx-pair? _%tl9082390905%_) + (let ((_%e9082490908%_ + (gx#syntax-e _%tl9082390905%_))) + (let ((_%hd9082590912%_ (let () (declare (not safe)) - (##car _%e9055090634%_))) - (_%tl9055290641%_ + (##car _%e9082490908%_))) + (_%tl9082690915%_ (let () (declare (not safe)) - (##cdr _%e9055090634%_)))) - (if (gx#stx-pair? _%tl9055290641%_) - (let ((_%e9055390644%_ - (gx#syntax-e _%tl9055290641%_))) - (let ((_%hd9055490648%_ + (##cdr _%e9082490908%_)))) + (if (gx#stx-pair? _%tl9082690915%_) + (let ((_%e9082790918%_ + (gx#syntax-e _%tl9082690915%_))) + (let ((_%hd9082890922%_ (let () (declare (not safe)) - (##car _%e9055390644%_))) - (_%tl9055590651%_ + (##car _%e9082790918%_))) + (_%tl9082990925%_ (let () (declare (not safe)) - (##cdr _%e9055390644%_)))) - (if (gx#stx-pair? _%tl9055590651%_) - (let ((_%e9055690654%_ + (##cdr _%e9082790918%_)))) + (if (gx#stx-pair? _%tl9082990925%_) + (let ((_%e9083090928%_ (gx#syntax-e - _%tl9055590651%_))) - (let ((_%hd9055790658%_ + _%tl9082990925%_))) + (let ((_%hd9083190932%_ (let () (declare (not safe)) - (##car _%e9055690654%_))) - (_%tl9055890661%_ + (##car _%e9083090928%_))) + (_%tl9083290935%_ (let () (declare (not safe)) - (##cdr _%e9055690654%_)))) + (##cdr _%e9083090928%_)))) (if (gx#stx-pair? - _%tl9055890661%_) - (let ((_%e9055990664%_ + _%tl9083290935%_) + (let ((_%e9083390938%_ (gx#syntax-e - _%tl9055890661%_))) - (let ((_%hd9056090668%_ + _%tl9083290935%_))) + (let ((_%hd9083490942%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9055990664%_))) - (_%tl9056190671%_ - (let () (declare (not safe)) (##cdr _%e9055990664%_)))) - (if (gx#stx-null? _%tl9056190671%_) - ((lambda (_%L90674%_ - _%L90676%_ - _%L90677%_ - _%L90678%_ - _%L90679%_ - _%L90680%_ - _%L90681%_ - _%L90682%_ - _%L90683%_) + (##car _%e9083390938%_))) + (_%tl9083590945%_ + (let () (declare (not safe)) (##cdr _%e9083390938%_)))) + (if (gx#stx-null? _%tl9083590945%_) + ((lambda (_%L90948%_ + _%L90950%_ + _%L90951%_ + _%L90952%_ + _%L90953%_ + _%L90954%_ + _%L90955%_ + _%L90956%_ + _%L90957%_) (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f 'h) (cons (cons (gx#datum->syntax '#f 'fxxor) - (cons (cons _%L90681%_ + (cons (cons _%L90955%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L90679%_ '())) - (cons _%L90682%_ '()))) + (cons _%L90953%_ '())) + (cons _%L90956%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax @@ -1581,7 +1581,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-length) - (cons _%L90683%_ '())) + (cons _%L90957%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -1634,7 +1634,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L90683%_ + (cons _%L90957%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1661,21 +1661,21 @@ (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L90683%_ + (cons _%L90957%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'deleted) - (cons _%L90679%_ '())))) + (cons _%L90953%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L90683%_ + (cons _%L90957%_ (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'deleted) (cons '1 '()))) - (cons (cons _%L90678%_ - (cons _%L90677%_ '())) + (cons (cons _%L90952%_ + (cons _%L90951%_ '())) '())))) - (cons (cons _%L90674%_ '()) '())))) + (cons (cons _%L90948%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f @@ -1684,11 +1684,11 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-set!) - (cons _%L90683%_ + (cons _%L90957%_ (cons (gx#datum->syntax '#f 'probe) - (cons _%L90679%_ '())))) + (cons _%L90953%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L90683%_ + (cons _%L90957%_ (cons (cons (gx#datum->syntax '#f 'fx+) @@ -1696,13 +1696,13 @@ '#f 'probe) (cons '1 '()))) - (cons (cons _%L90678%_ - (cons _%L90677%_ + (cons (cons _%L90952%_ + (cons _%L90951%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (cons (cons _%L90676%_ '()) '())))) + (cons (cons _%L90950%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())) @@ -1747,34 +1747,34 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L90680%_ - (cons _%L90679%_ + (cons (cons (cons _%L90954%_ + (cons _%L90953%_ (cons (gx#datum->syntax '#f 'k) '()))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L90683%_ + (cons _%L90957%_ (cons (gx#datum->syntax '#f 'probe) - (cons _%L90679%_ + (cons _%L90953%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L90683%_ + (cons _%L90957%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fx+) (cons (gx#datum->syntax '#f 'probe) (cons '1 '()))) - (cons (cons _%L90678%_ + (cons (cons _%L90952%_ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L90683%_ + (cons _%L90957%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1808,128 +1808,128 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd9056090668%_ - _%hd9055790658%_ - _%hd9055490648%_ - _%hd9055190638%_ - _%hd9054890628%_ - _%hd9054590618%_ - _%hd9054290608%_ - _%hd9053990598%_ - _%hd9053690588%_) - (_%g9052190567%_ _%g9052290571%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9052190567%_ - _%g9052290571%_)))) - (_%g9052190567%_ - _%g9052290571%_)))) - (_%g9052190567%_ _%g9052290571%_)))) - (_%g9052190567%_ _%g9052290571%_)))) - (_%g9052190567%_ _%g9052290571%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9052190567%_ - _%g9052290571%_)))) - (_%g9052190567%_ - _%g9052290571%_)))) - (_%g9052190567%_ _%g9052290571%_)))) - (_%g9052190567%_ _%g9052290571%_)))) - (_%g9052190567%_ _%g9052290571%_))))) - (_%g9052090720%_ _%$stx90517%_)))) + _%hd9083490942%_ + _%hd9083190932%_ + _%hd9082890922%_ + _%hd9082590912%_ + _%hd9082290902%_ + _%hd9081990892%_ + _%hd9081690882%_ + _%hd9081390872%_ + _%hd9081090862%_) + (_%g9079590841%_ _%g9079690845%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g9079590841%_ + _%g9079690845%_)))) + (_%g9079590841%_ + _%g9079690845%_)))) + (_%g9079590841%_ _%g9079690845%_)))) + (_%g9079590841%_ _%g9079690845%_)))) + (_%g9079590841%_ _%g9079690845%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g9079590841%_ + _%g9079690845%_)))) + (_%g9079590841%_ + _%g9079690845%_)))) + (_%g9079590841%_ _%g9079690845%_)))) + (_%g9079590841%_ _%g9079690845%_)))) + (_%g9079590841%_ _%g9079690845%_))))) + (_%g9079490994%_ _%$stx90791%_)))) (define |[:0:]#__table-del!| - (lambda (_%$stx90724%_) - (let* ((_%g9072890762%_ - (lambda (_%g9072990758%_) + (lambda (_%$stx90998%_) + (let* ((_%g9100291036%_ + (lambda (_%g9100391032%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9072990758%_))) - (_%g9072790873%_ - (lambda (_%g9072990766%_) - (if (gx#stx-pair? _%g9072990766%_) - (let ((_%e9073690769%_ (gx#syntax-e _%g9072990766%_))) - (let ((_%hd9073790773%_ + _%g9100391032%_))) + (_%g9100191147%_ + (lambda (_%g9100391040%_) + (if (gx#stx-pair? _%g9100391040%_) + (let ((_%e9101091043%_ (gx#syntax-e _%g9100391040%_))) + (let ((_%hd9101191047%_ (let () (declare (not safe)) - (##car _%e9073690769%_))) - (_%tl9073890776%_ + (##car _%e9101091043%_))) + (_%tl9101291050%_ (let () (declare (not safe)) - (##cdr _%e9073690769%_)))) - (if (gx#stx-pair? _%tl9073890776%_) - (let ((_%e9073990779%_ - (gx#syntax-e _%tl9073890776%_))) - (let ((_%hd9074090783%_ + (##cdr _%e9101091043%_)))) + (if (gx#stx-pair? _%tl9101291050%_) + (let ((_%e9101391053%_ + (gx#syntax-e _%tl9101291050%_))) + (let ((_%hd9101491057%_ (let () (declare (not safe)) - (##car _%e9073990779%_))) - (_%tl9074190786%_ + (##car _%e9101391053%_))) + (_%tl9101591060%_ (let () (declare (not safe)) - (##cdr _%e9073990779%_)))) - (if (gx#stx-pair? _%tl9074190786%_) - (let ((_%e9074290789%_ - (gx#syntax-e _%tl9074190786%_))) - (let ((_%hd9074390793%_ + (##cdr _%e9101391053%_)))) + (if (gx#stx-pair? _%tl9101591060%_) + (let ((_%e9101691063%_ + (gx#syntax-e _%tl9101591060%_))) + (let ((_%hd9101791067%_ (let () (declare (not safe)) - (##car _%e9074290789%_))) - (_%tl9074490796%_ + (##car _%e9101691063%_))) + (_%tl9101891070%_ (let () (declare (not safe)) - (##cdr _%e9074290789%_)))) - (if (gx#stx-pair? _%tl9074490796%_) - (let ((_%e9074590799%_ + (##cdr _%e9101691063%_)))) + (if (gx#stx-pair? _%tl9101891070%_) + (let ((_%e9101991073%_ (gx#syntax-e - _%tl9074490796%_))) - (let ((_%hd9074690803%_ + _%tl9101891070%_))) + (let ((_%hd9102091077%_ (let () (declare (not safe)) - (##car _%e9074590799%_))) - (_%tl9074790806%_ + (##car _%e9101991073%_))) + (_%tl9102191080%_ (let () (declare (not safe)) - (##cdr _%e9074590799%_)))) + (##cdr _%e9101991073%_)))) (if (gx#stx-pair? - _%tl9074790806%_) - (let ((_%e9074890809%_ + _%tl9102191080%_) + (let ((_%e9102291083%_ (gx#syntax-e - _%tl9074790806%_))) - (let ((_%hd9074990813%_ + _%tl9102191080%_))) + (let ((_%hd9102391087%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9074890809%_))) - (_%tl9075090816%_ - (let () (declare (not safe)) (##cdr _%e9074890809%_)))) - (if (gx#stx-pair? _%tl9075090816%_) - (let ((_%e9075190819%_ (gx#syntax-e _%tl9075090816%_))) - (let ((_%hd9075290823%_ + (##car _%e9102291083%_))) + (_%tl9102491090%_ + (let () (declare (not safe)) (##cdr _%e9102291083%_)))) + (if (gx#stx-pair? _%tl9102491090%_) + (let ((_%e9102591093%_ (gx#syntax-e _%tl9102491090%_))) + (let ((_%hd9102691097%_ (let () (declare (not safe)) - (##car _%e9075190819%_))) - (_%tl9075390826%_ + (##car _%e9102591093%_))) + (_%tl9102791100%_ (let () (declare (not safe)) - (##cdr _%e9075190819%_)))) - (if (gx#stx-pair? _%tl9075390826%_) - (let ((_%e9075490829%_ - (gx#syntax-e _%tl9075390826%_))) - (let ((_%hd9075590833%_ + (##cdr _%e9102591093%_)))) + (if (gx#stx-pair? _%tl9102791100%_) + (let ((_%e9102891103%_ + (gx#syntax-e _%tl9102791100%_))) + (let ((_%hd9102991107%_ (let () (declare (not safe)) - (##car _%e9075490829%_))) - (_%tl9075690836%_ + (##car _%e9102891103%_))) + (_%tl9103091110%_ (let () (declare (not safe)) - (##cdr _%e9075490829%_)))) - (if (gx#stx-null? _%tl9075690836%_) - ((lambda (_%L90839%_ - _%L90841%_ - _%L90842%_ - _%L90843%_ - _%L90844%_ - _%L90845%_) + (##cdr _%e9102891103%_)))) + (if (gx#stx-null? _%tl9103091110%_) + ((lambda (_%L91113%_ + _%L91115%_ + _%L91116%_ + _%L91117%_ + _%L91118%_ + _%L91119%_) (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f @@ -1938,13 +1938,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fxxor) - (cons (cons _%L90843%_ - (cons _%L90841%_ '())) - (cons _%L90844%_ '()))) + (cons (cons _%L91117%_ + (cons _%L91115%_ '())) + (cons _%L91118%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'size) (cons (cons (gx#datum->syntax '#f 'vector-length) - (cons _%L90845%_ '())) + (cons _%L91119%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'entries) (cons (cons (gx#datum->syntax @@ -1993,7 +1993,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-ref) - (cons _%L90845%_ + (cons _%L91119%_ (cons (gx#datum->syntax '#f 'probe) '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2039,8 +2039,8 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L90842%_ - (cons _%L90841%_ + (cons (cons (cons _%L91116%_ + (cons _%L91115%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -2050,7 +2050,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L90845%_ + (cons _%L91119%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'probe) (cons (cons (gx#datum->syntax @@ -2059,7 +2059,7 @@ '()) '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L90845%_ + (cons _%L91119%_ (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f @@ -2070,7 +2070,7 @@ 'macro-absent-obj) '()) '())))) - (cons (cons _%L90839%_ '()) '())))) + (cons (cons _%L91113%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f @@ -2098,21 +2098,21 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9075590833%_ - _%hd9075290823%_ - _%hd9074990813%_ - _%hd9074690803%_ - _%hd9074390793%_ - _%hd9074090783%_) - (_%g9072890762%_ _%g9072990766%_)))) - (_%g9072890762%_ _%g9072990766%_)))) - (_%g9072890762%_ _%g9072990766%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9072890762%_ - _%g9072990766%_)))) - (_%g9072890762%_ - _%g9072990766%_)))) - (_%g9072890762%_ _%g9072990766%_)))) - (_%g9072890762%_ _%g9072990766%_)))) - (_%g9072890762%_ _%g9072990766%_))))) - (_%g9072790873%_ _%$stx90724%_))))) + _%hd9102991107%_ + _%hd9102691097%_ + _%hd9102391087%_ + _%hd9102091077%_ + _%hd9101791067%_ + _%hd9101491057%_) + (_%g9100291036%_ _%g9100391040%_)))) + (_%g9100291036%_ _%g9100391040%_)))) + (_%g9100291036%_ _%g9100391040%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g9100291036%_ + _%g9100391040%_)))) + (_%g9100291036%_ + _%g9100391040%_)))) + (_%g9100291036%_ _%g9100391040%_)))) + (_%g9100291036%_ _%g9100391040%_)))) + (_%g9100291036%_ _%g9100391040%_))))) + (_%g9100191147%_ _%$stx90998%_))))) diff --git a/src/bootstrap/gerbil/runtime/thread~0.scm b/src/bootstrap/gerbil/runtime/thread~0.scm index 460592026..490c7b49e 100644 --- a/src/bootstrap/gerbil/runtime/thread~0.scm +++ b/src/bootstrap/gerbil/runtime/thread~0.scm @@ -1,13 +1,13 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/thread::timestamp 1713044315) + (define gerbil/runtime/thread::timestamp 1713454410) (begin (define spawn - (lambda (_%f109147%_ . _%args109148%_) - (if (procedure? _%f109147%_) - (let ((_%f109152%_ _%f109147%_)) + (lambda (_%f109421%_ . _%args109422%_) + (if (procedure? _%f109421%_) + (let ((_%f109426%_ _%f109421%_)) (declare (not safe)) - (##apply __spawn _%f109152%_ _%args109148%_)) + (##apply __spawn _%f109426%_ _%args109422%_)) (begin (raise-contract-violation-error '"contract violation" @@ -16,18 +16,18 @@ 'contract: 'procedure? 'value: - _%f109147%_) + _%f109421%_) '#!void)))) (define __spawn - (lambda (_%f109134%_ . _%args109135%_) - (let ((_%f109138%_ _%f109134%_)) - (spawn-actor _%f109138%_ _%args109135%_ '#!void '#f)))) + (lambda (_%f109408%_ . _%args109409%_) + (let ((_%f109412%_ _%f109408%_)) + (spawn-actor _%f109412%_ _%args109409%_ '#!void '#f)))) (define spawn/name - (lambda (_%name109118%_ _%f109119%_ . _%args109120%_) - (if (procedure? _%f109119%_) - (let ((_%f109124%_ _%f109119%_)) + (lambda (_%name109392%_ _%f109393%_ . _%args109394%_) + (if (procedure? _%f109393%_) + (let ((_%f109398%_ _%f109393%_)) (declare (not safe)) - (##apply __spawn/name _%name109118%_ _%f109124%_ _%args109120%_)) + (##apply __spawn/name _%name109392%_ _%f109398%_ _%args109394%_)) (begin (raise-contract-violation-error '"contract violation" @@ -36,21 +36,21 @@ 'contract: 'procedure? 'value: - _%f109119%_) + _%f109393%_) '#!void)))) (define __spawn/name - (lambda (_%name109104%_ _%f109105%_ . _%args109106%_) - (let ((_%f109109%_ _%f109105%_)) - (spawn-actor _%f109109%_ _%args109106%_ _%name109104%_ '#f)))) + (lambda (_%name109378%_ _%f109379%_ . _%args109380%_) + (let ((_%f109383%_ _%f109379%_)) + (spawn-actor _%f109383%_ _%args109380%_ _%name109378%_ '#f)))) (define spawn/group - (lambda (_%name109088%_ _%f109089%_ . _%args109090%_) - (if (procedure? _%f109089%_) - (let ((_%f109094%_ _%f109089%_)) + (lambda (_%name109362%_ _%f109363%_ . _%args109364%_) + (if (procedure? _%f109363%_) + (let ((_%f109368%_ _%f109363%_)) (declare (not safe)) (##apply __spawn/group - _%name109088%_ - _%f109094%_ - _%args109090%_)) + _%name109362%_ + _%f109368%_ + _%args109364%_)) (begin (raise-contract-violation-error '"contract violation" @@ -59,148 +59,148 @@ 'contract: 'procedure? 'value: - _%f109089%_) + _%f109363%_) '#!void)))) (define __spawn/group - (lambda (_%name109072%_ _%f109073%_ . _%args109074%_) - (let* ((_%f109077%_ _%f109073%_) - (_%tgroup109086%_ (make-thread-group _%name109072%_))) + (lambda (_%name109346%_ _%f109347%_ . _%args109348%_) + (let* ((_%f109351%_ _%f109347%_) + (_%tgroup109360%_ (make-thread-group _%name109346%_))) (spawn-actor - _%f109077%_ - _%args109074%_ - _%name109072%_ - _%tgroup109086%_)))) + _%f109351%_ + _%args109348%_ + _%name109346%_ + _%tgroup109360%_)))) (define spawn-actor - (lambda (_%f109044%_ _%args109045%_ _%name109046%_ _%tgroup109047%_) - (letrec ((_%thread-main109050%_ - (lambda (_%thunk109064%_) + (lambda (_%f109318%_ _%args109319%_ _%name109320%_ _%tgroup109321%_) + (letrec ((_%thread-main109324%_ + (lambda (_%thunk109338%_) (lambda () - (let ((__tmp109161 - (lambda (_%exn109067%_) - (let ((__tmp109162 - (lambda (_%cont109069%_) + (let ((__tmp109435 + (lambda (_%exn109341%_) + (let ((__tmp109436 + (lambda (_%cont109343%_) (if unhandled-actor-exception-hook - (let ((__tmp109163 + (let ((__tmp109437 (lambda () (__unhandled-actor-exception-hook - _%cont109069%_ - _%exn109067%_)))) + _%cont109343%_ + _%exn109341%_)))) (declare (not safe)) - (__with-catch void __tmp109163)) + (__with-catch void __tmp109437)) '#!void) - (let ((__tmp109164 + (let ((__tmp109438 (let () (declare (not safe)) (##continuation-last - _%cont109069%_)))) + _%cont109343%_)))) (declare (not safe)) (##continuation-graft - __tmp109164 + __tmp109438 ##primordial-exception-handler - _%exn109067%_))))) + _%exn109341%_))))) (declare (not safe)) - (##continuation-capture __tmp109162))))) + (##continuation-capture __tmp109436))))) (declare (not safe)) (with-exception-handler - __tmp109161 - _%thunk109064%_)))))) - (let* ((_%thunk109053%_ - (if (null? _%args109045%_) - _%f109044%_ - (lambda () (apply _%f109044%_ _%args109045%_)))) - (_%thunk109056%_ - (lambda () (with-exception-stack-trace__0 _%thunk109053%_))) - (_%tgroup109061%_ - (let ((_%$e109058%_ _%tgroup109047%_)) - (if _%$e109058%_ _%$e109058%_ (current-thread-group))))) + __tmp109435 + _%thunk109338%_)))))) + (let* ((_%thunk109327%_ + (if (null? _%args109319%_) + _%f109318%_ + (lambda () (apply _%f109318%_ _%args109319%_)))) + (_%thunk109330%_ + (lambda () (with-exception-stack-trace__0 _%thunk109327%_))) + (_%tgroup109335%_ + (let ((_%$e109332%_ _%tgroup109321%_)) + (if _%$e109332%_ _%$e109332%_ (current-thread-group))))) (thread-start! (thread-init! (construct-actor-thread '#f '0) - (_%thread-main109050%_ _%thunk109056%_) - _%name109046%_ - _%tgroup109061%_)))))) + (_%thread-main109324%_ _%thunk109330%_) + _%name109320%_ + _%tgroup109335%_)))))) (define spawn-thread__% - (lambda (_%thunk109022%_ _%name109023%_ _%tgroup109024%_) + (lambda (_%thunk109296%_ _%name109297%_ _%tgroup109298%_) (thread-start! - (make-thread _%thunk109022%_ _%name109023%_ _%tgroup109024%_)))) + (make-thread _%thunk109296%_ _%name109297%_ _%tgroup109298%_)))) (define spawn-thread__0 - (lambda (_%thunk109029%_) - (let* ((_%name109031%_ absent-obj) (_%tgroup109033%_ absent-obj)) - (spawn-thread__% _%thunk109029%_ _%name109031%_ _%tgroup109033%_)))) + (lambda (_%thunk109303%_) + (let* ((_%name109305%_ absent-obj) (_%tgroup109307%_ absent-obj)) + (spawn-thread__% _%thunk109303%_ _%name109305%_ _%tgroup109307%_)))) (define spawn-thread__1 - (lambda (_%thunk109035%_ _%name109036%_) - (let ((_%tgroup109038%_ absent-obj)) - (spawn-thread__% _%thunk109035%_ _%name109036%_ _%tgroup109038%_)))) + (lambda (_%thunk109309%_ _%name109310%_) + (let ((_%tgroup109312%_ absent-obj)) + (spawn-thread__% _%thunk109309%_ _%name109310%_ _%tgroup109312%_)))) (define spawn-thread - (lambda _g109166_ - (let ((_g109165_ (let () (declare (not safe)) (##length _g109166_)))) - (cond ((let () (declare (not safe)) (##fx= _g109165_ 1)) - (apply spawn-thread__0 _g109166_)) - ((let () (declare (not safe)) (##fx= _g109165_ 2)) - (apply spawn-thread__1 _g109166_)) - ((let () (declare (not safe)) (##fx= _g109165_ 3)) - (apply spawn-thread__% _g109166_)) + (lambda _g109440_ + (let ((_g109439_ (let () (declare (not safe)) (##length _g109440_)))) + (cond ((let () (declare (not safe)) (##fx= _g109439_ 1)) + (apply spawn-thread__0 _g109440_)) + ((let () (declare (not safe)) (##fx= _g109439_ 2)) + (apply spawn-thread__1 _g109440_)) + ((let () (declare (not safe)) (##fx= _g109439_ 3)) + (apply spawn-thread__% _g109440_)) (else (##raise-wrong-number-of-arguments-exception spawn-thread - _g109166_)))))) + _g109440_)))))) (define thread-local-ref__% - (lambda (_%key109006%_ _%default109007%_) - (let ((_%tab109009%_ (thread-local-table))) + (lambda (_%key109280%_ _%default109281%_) + (let ((_%tab109283%_ (thread-local-table))) (declare (not safe)) - (hash-ref__% _%tab109009%_ _%key109006%_ _%default109007%_)))) + (hash-ref__% _%tab109283%_ _%key109280%_ _%default109281%_)))) (define thread-local-ref__0 - (lambda (_%key109014%_) - (let ((_%default109016%_ absent-obj)) - (thread-local-ref__% _%key109014%_ _%default109016%_)))) + (lambda (_%key109288%_) + (let ((_%default109290%_ absent-obj)) + (thread-local-ref__% _%key109288%_ _%default109290%_)))) (define thread-local-ref - (lambda _g109168_ - (let ((_g109167_ (let () (declare (not safe)) (##length _g109168_)))) - (cond ((let () (declare (not safe)) (##fx= _g109167_ 1)) - (apply thread-local-ref__0 _g109168_)) - ((let () (declare (not safe)) (##fx= _g109167_ 2)) - (apply thread-local-ref__% _g109168_)) + (lambda _g109442_ + (let ((_g109441_ (let () (declare (not safe)) (##length _g109442_)))) + (cond ((let () (declare (not safe)) (##fx= _g109441_ 1)) + (apply thread-local-ref__0 _g109442_)) + ((let () (declare (not safe)) (##fx= _g109441_ 2)) + (apply thread-local-ref__% _g109442_)) (else (##raise-wrong-number-of-arguments-exception thread-local-ref - _g109168_)))))) + _g109442_)))))) (define thread-local-get - (lambda (_%key109003%_) (thread-local-ref__% _%key109003%_ '#f))) + (lambda (_%key109277%_) (thread-local-ref__% _%key109277%_ '#f))) (define thread-local-set! - (lambda (_%key108998%_ _%value108999%_) - (let ((_%tab109001%_ (thread-local-table))) + (lambda (_%key109272%_ _%value109273%_) + (let ((_%tab109275%_ (thread-local-table))) (declare (not safe)) - (hash-put! _%tab109001%_ _%key108998%_ _%value108999%_)))) + (hash-put! _%tab109275%_ _%key109272%_ _%value109273%_)))) (define thread-local-delete! - (lambda (_%key108994%_) - (let ((_%tab108996%_ (thread-local-table))) + (lambda (_%key109268%_) + (let ((_%tab109270%_ (thread-local-table))) (declare (not safe)) - (hash-remove! _%tab108996%_ _%key108994%_)))) + (hash-remove! _%tab109270%_ _%key109268%_)))) (define thread-local-table (lambda () - (let ((_%thr108975%_ (current-thread))) - (if (actor-thread? _%thr108975%_) - (let ((_%$e108978%_ (actor-thread-locals _%thr108975%_))) - (if _%$e108978%_ - _%$e108978%_ - (let ((_%tab108982%_ + (let ((_%thr109249%_ (current-thread))) + (if (actor-thread? _%thr109249%_) + (let ((_%$e109252%_ (actor-thread-locals _%thr109249%_))) + (if _%$e109252%_ + _%$e109252%_ + (let ((_%tab109256%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (actor-thread-locals-set! _%thr108975%_ _%tab108982%_) - _%tab108982%_))) - (if (eq? _%thr108975%_ ##primordial-thread) + (actor-thread-locals-set! _%thr109249%_ _%tab109256%_) + _%tab109256%_))) + (if (eq? _%thr109249%_ ##primordial-thread) __primordial-thread-locals (let () (mutex-lock! __thread-locals-mutex) - (let ((_%$e108986%_ + (let ((_%$e109260%_ (let () (declare (not safe)) - (__hash-get __thread-locals _%thr108975%_)))) - (if _%$e108986%_ - ((lambda (_%tab108989%_) + (__hash-get __thread-locals _%thr109249%_)))) + (if _%$e109260%_ + ((lambda (_%tab109263%_) (mutex-unlock! __thread-locals-mutex) - _%tab108989%_) - _%$e108986%_) - (let ((_%tab108992%_ + _%tab109263%_) + _%$e109260%_) + (let ((_%tab109266%_ (let () (declare (not safe)) (make-hash-table-eq)))) @@ -208,10 +208,10 @@ (declare (not safe)) (__hash-put! __thread-locals - _%thr108975%_ - _%tab108992%_)) + _%thr109249%_ + _%tab109266%_)) (mutex-unlock! __thread-locals-mutex) - _%tab108992%_))))))))) + _%tab109266%_))))))))) (define __primordial-thread-locals (let () (declare (not safe)) (make-hash-table-eq))) (define __thread-locals @@ -221,12 +221,12 @@ (define unhandled-actor-exception-hook (lambda () __unhandled-actor-exception-hook)) (define unhandled-actor-exception-hook-set! - (lambda (_%new-value108953%_) - (if ((lambda (_%$obj108956%_) - (or (not _%$obj108956%_) (procedure? _%$obj108956%_))) - _%new-value108953%_) - (let ((_%new-value108963%_ _%new-value108953%_)) - (__unhandled-actor-exception-hook-set! _%new-value108963%_)) + (lambda (_%new-value109227%_) + (if ((lambda (_%$obj109230%_) + (or (not _%$obj109230%_) (procedure? _%$obj109230%_))) + _%new-value109227%_) + (let ((_%new-value109237%_ _%new-value109227%_)) + (__unhandled-actor-exception-hook-set! _%new-value109237%_)) (begin (raise-contract-violation-error '"contract violation" @@ -235,21 +235,21 @@ 'contract: '(? (or not procedure?)) 'value: - _%new-value108953%_) + _%new-value109227%_) '#!void)))) (define __unhandled-actor-exception-hook-set! - (lambda (_%new-value108940%_) - (let ((_%new-value108944%_ _%new-value108940%_)) - (set! __unhandled-actor-exception-hook _%new-value108944%_)))) + (lambda (_%new-value109214%_) + (let ((_%new-value109218%_ _%new-value109214%_)) + (set! __unhandled-actor-exception-hook _%new-value109218%_)))) (define current-thread-group (lambda () (thread-thread-group (current-thread)))) (define with-lock - (lambda (_%mx108914%_ _%proc108915%_) - (if (mutex? _%mx108914%_) - (let ((_%mx108919%_ _%mx108914%_)) - (if (procedure? _%proc108915%_) - (let ((_%proc108929%_ _%proc108915%_)) - (__with-lock _%mx108919%_ _%proc108929%_)) + (lambda (_%mx109188%_ _%proc109189%_) + (if (mutex? _%mx109188%_) + (let ((_%mx109193%_ _%mx109188%_)) + (if (procedure? _%proc109189%_) + (let ((_%proc109203%_ _%proc109189%_)) + (__with-lock _%mx109193%_ _%proc109203%_)) (begin (raise-contract-violation-error '"contract violation" @@ -258,7 +258,7 @@ 'contract: 'procedure? 'value: - _%proc108915%_) + _%proc109189%_) '#!void))) (begin (raise-contract-violation-error @@ -268,42 +268,42 @@ 'contract: 'mutex? 'value: - _%mx108914%_) + _%mx109188%_) '#!void)))) (define __with-lock - (lambda (_%mx108885%_ _%proc108886%_) - (let* ((_%mx108889%_ _%mx108885%_) - (_%proc108897%_ _%proc108886%_) - (_%handler108906%_ (current-exception-handler))) - (let ((__tmp109170 - (lambda (_%e108908%_) - (let ((__tmp109171 + (lambda (_%mx109159%_ _%proc109160%_) + (let* ((_%mx109163%_ _%mx109159%_) + (_%proc109171%_ _%proc109160%_) + (_%handler109180%_ (current-exception-handler))) + (let ((__tmp109444 + (lambda (_%e109182%_) + (let ((__tmp109445 (lambda () - (mutex-unlock! _%mx108889%_) + (mutex-unlock! _%mx109163%_) (let () (declare (not safe)) - (_%handler108906%_ _%e108908%_))))) + (_%handler109180%_ _%e109182%_))))) (declare (not safe)) - (__with-catch void __tmp109171)) + (__with-catch void __tmp109445)) (let () (declare (not safe)) - (##thread-end-with-uncaught-exception! _%e108908%_)))) - (__tmp109169 + (##thread-end-with-uncaught-exception! _%e109182%_)))) + (__tmp109443 (lambda () - (mutex-lock! _%mx108889%_) - (let ((_%result108912%_ - (let () (declare (not safe)) (_%proc108897%_)))) - (mutex-unlock! _%mx108889%_) - _%result108912%_)))) + (mutex-lock! _%mx109163%_) + (let ((_%result109186%_ + (let () (declare (not safe)) (_%proc109171%_)))) + (mutex-unlock! _%mx109163%_) + _%result109186%_)))) (declare (not safe)) - (__with-exception-handler __tmp109170 __tmp109169))))) + (__with-exception-handler __tmp109444 __tmp109443))))) (define with-dynamic-lock - (lambda (_%mx108860%_ _%proc108861%_) - (if (mutex? _%mx108860%_) - (let ((_%mx108865%_ _%mx108860%_)) - (if (procedure? _%proc108861%_) - (let ((_%proc108875%_ _%proc108861%_)) - (__with-dynamic-lock _%mx108865%_ _%proc108875%_)) + (lambda (_%mx109134%_ _%proc109135%_) + (if (mutex? _%mx109134%_) + (let ((_%mx109139%_ _%mx109134%_)) + (if (procedure? _%proc109135%_) + (let ((_%proc109149%_ _%proc109135%_)) + (__with-dynamic-lock _%mx109139%_ _%proc109149%_)) (begin (raise-contract-violation-error '"contract violation" @@ -312,7 +312,7 @@ 'contract: 'procedure? 'value: - _%proc108861%_) + _%proc109135%_) '#!void))) (begin (raise-contract-violation-error @@ -322,24 +322,24 @@ 'contract: 'mutex? 'value: - _%mx108860%_) + _%mx109134%_) '#!void)))) (define __with-dynamic-lock - (lambda (_%mx108837%_ _%proc108838%_) - (let* ((_%mx108841%_ _%mx108837%_) (_%proc108849%_ _%proc108838%_)) - (let ((__tmp109173 (lambda () (mutex-lock! _%mx108841%_))) - (__tmp109172 (lambda () (mutex-unlock! _%mx108841%_)))) + (lambda (_%mx109111%_ _%proc109112%_) + (let* ((_%mx109115%_ _%mx109111%_) (_%proc109123%_ _%proc109112%_)) + (let ((__tmp109447 (lambda () (mutex-lock! _%mx109115%_))) + (__tmp109446 (lambda () (mutex-unlock! _%mx109115%_)))) (declare (not safe)) - (##dynamic-wind __tmp109173 _%proc108849%_ __tmp109172))))) + (##dynamic-wind __tmp109447 _%proc109123%_ __tmp109446))))) (define with-exception-stack-trace__% - (lambda (_%thunk108802%_ _%error-port108803%_) - (if (procedure? _%thunk108802%_) - (let ((_%thunk108807%_ _%thunk108802%_)) - (if (port? _%error-port108803%_) - (let ((_%error-port108817%_ _%error-port108803%_)) + (lambda (_%thunk109076%_ _%error-port109077%_) + (if (procedure? _%thunk109076%_) + (let ((_%thunk109081%_ _%thunk109076%_)) + (if (port? _%error-port109077%_) + (let ((_%error-port109091%_ _%error-port109077%_)) (__with-exception-stack-trace__% - _%thunk108807%_ - _%error-port108817%_)) + _%thunk109081%_ + _%error-port109091%_)) (begin (raise-contract-violation-error '"contract violation" @@ -348,7 +348,7 @@ 'contract: 'port? 'value: - _%error-port108803%_) + _%error-port109077%_) '#!void))) (begin (raise-contract-violation-error @@ -358,105 +358,105 @@ 'contract: 'procedure? 'value: - _%thunk108802%_) + _%thunk109076%_) '#!void)))) (define with-exception-stack-trace__0 - (lambda (_%thunk108830%_) - (let ((_%error-port108832%_ (current-error-port))) + (lambda (_%thunk109104%_) + (let ((_%error-port109106%_ (current-error-port))) (with-exception-stack-trace__% - _%thunk108830%_ - _%error-port108832%_)))) + _%thunk109104%_ + _%error-port109106%_)))) (define with-exception-stack-trace - (lambda _g109175_ - (let ((_g109174_ (let () (declare (not safe)) (##length _g109175_)))) - (cond ((let () (declare (not safe)) (##fx= _g109174_ 1)) - (apply with-exception-stack-trace__0 _g109175_)) - ((let () (declare (not safe)) (##fx= _g109174_ 2)) - (apply with-exception-stack-trace__% _g109175_)) + (lambda _g109449_ + (let ((_g109448_ (let () (declare (not safe)) (##length _g109449_)))) + (cond ((let () (declare (not safe)) (##fx= _g109448_ 1)) + (apply with-exception-stack-trace__0 _g109449_)) + ((let () (declare (not safe)) (##fx= _g109448_ 2)) + (apply with-exception-stack-trace__% _g109449_)) (else (##raise-wrong-number-of-arguments-exception with-exception-stack-trace - _g109175_)))))) + _g109449_)))))) (define __with-exception-stack-trace__% - (lambda (_%thunk108763%_ _%error-port108764%_) - (let* ((_%thunk108767%_ _%thunk108763%_) - (_%error-port108776%_ _%error-port108764%_) - (__tmp109176 - (let ((_%E108785%_ (current-exception-handler))) - (lambda (_%exn108787%_) - (let ((__tmp109177 - (lambda (_%cont108789%_) + (lambda (_%thunk109037%_ _%error-port109038%_) + (let* ((_%thunk109041%_ _%thunk109037%_) + (_%error-port109050%_ _%error-port109038%_) + (__tmp109450 + (let ((_%E109059%_ (current-exception-handler))) + (lambda (_%exn109061%_) + (let ((__tmp109451 + (lambda (_%cont109063%_) (if (let () (declare (not safe)) (dump-stack-trace?)) (dump-stack-trace!__% - _%cont108789%_ - _%exn108787%_ - _%error-port108776%_) + _%cont109063%_ + _%exn109061%_ + _%error-port109050%_) '#!void) (let () (declare (not safe)) - (_%E108785%_ _%exn108787%_))))) + (_%E109059%_ _%exn109061%_))))) (declare (not safe)) - (##continuation-capture __tmp109177)))))) + (##continuation-capture __tmp109451)))))) (declare (not safe)) - (__with-exception-handler __tmp109176 _%thunk108767%_)))) + (__with-exception-handler __tmp109450 _%thunk109041%_)))) (define __with-exception-stack-trace__0 - (lambda (_%thunk108794%_) - (let ((_%error-port108796%_ (current-error-port))) + (lambda (_%thunk109068%_) + (let ((_%error-port109070%_ (current-error-port))) (__with-exception-stack-trace__% - _%thunk108794%_ - _%error-port108796%_)))) + _%thunk109068%_ + _%error-port109070%_)))) (define __with-exception-stack-trace - (lambda _g109179_ - (let ((_g109178_ (let () (declare (not safe)) (##length _g109179_)))) - (cond ((let () (declare (not safe)) (##fx= _g109178_ 1)) - (apply __with-exception-stack-trace__0 _g109179_)) - ((let () (declare (not safe)) (##fx= _g109178_ 2)) - (apply __with-exception-stack-trace__% _g109179_)) + (lambda _g109453_ + (let ((_g109452_ (let () (declare (not safe)) (##length _g109453_)))) + (cond ((let () (declare (not safe)) (##fx= _g109452_ 1)) + (apply __with-exception-stack-trace__0 _g109453_)) + ((let () (declare (not safe)) (##fx= _g109452_ 2)) + (apply __with-exception-stack-trace__% _g109453_)) (else (##raise-wrong-number-of-arguments-exception __with-exception-stack-trace - _g109179_)))))) + _g109453_)))))) (define dump-stack-trace!__% - (lambda (_%cont108744%_ _%exn108745%_ _%error-port108746%_) - (let ((_%out108748%_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _%out108748%_)) - (display '"*** Unhandled exception in " _%out108748%_) - (display (current-thread) _%out108748%_) - (newline _%out108748%_) + (lambda (_%cont109018%_ _%exn109019%_ _%error-port109020%_) + (let ((_%out109022%_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _%out109022%_)) + (display '"*** Unhandled exception in " _%out109022%_) + (display (current-thread) _%out109022%_) + (newline _%out109022%_) (let () (declare (not safe)) - (display-exception__% _%exn108745%_ _%out108748%_)) + (display-exception__% _%exn109019%_ _%out109022%_)) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _%exn108745%_)) + (class-instance? StackTrace::t _%exn109019%_)) '#!void (begin - (display '"Continuation backtrace: " _%out108748%_) - (newline _%out108748%_) - (display-continuation-backtrace _%cont108744%_ _%out108748%_))) - (let ((__tmp109180 (get-output-string _%out108748%_))) + (display '"Continuation backtrace: " _%out109022%_) + (newline _%out109022%_) + (display-continuation-backtrace _%cont109018%_ _%out109022%_))) + (let ((__tmp109454 (get-output-string _%out109022%_))) (declare (not safe)) - (##write-string __tmp109180 _%error-port108746%_))))) + (##write-string __tmp109454 _%error-port109020%_))))) (define dump-stack-trace!__0 - (lambda (_%cont108753%_ _%exn108754%_) - (let ((_%error-port108756%_ (current-error-port))) + (lambda (_%cont109027%_ _%exn109028%_) + (let ((_%error-port109030%_ (current-error-port))) (dump-stack-trace!__% - _%cont108753%_ - _%exn108754%_ - _%error-port108756%_)))) + _%cont109027%_ + _%exn109028%_ + _%error-port109030%_)))) (define dump-stack-trace! - (lambda _g109182_ - (let ((_g109181_ (let () (declare (not safe)) (##length _g109182_)))) - (cond ((let () (declare (not safe)) (##fx= _g109181_ 2)) - (apply dump-stack-trace!__0 _g109182_)) - ((let () (declare (not safe)) (##fx= _g109181_ 3)) - (apply dump-stack-trace!__% _g109182_)) + (lambda _g109456_ + (let ((_g109455_ (let () (declare (not safe)) (##length _g109456_)))) + (cond ((let () (declare (not safe)) (##fx= _g109455_ 2)) + (apply dump-stack-trace!__0 _g109456_)) + ((let () (declare (not safe)) (##fx= _g109455_ 3)) + (apply dump-stack-trace!__% _g109456_)) (else (##raise-wrong-number-of-arguments-exception dump-stack-trace! - _g109182_)))))) + _g109456_)))))) (define-type-of-thread actor-thread constructor: diff --git a/src/bootstrap/gerbil/runtime/util~0.scm b/src/bootstrap/gerbil/runtime/util~0.scm index 60a993a10..81a658f62 100644 --- a/src/bootstrap/gerbil/runtime/util~0.scm +++ b/src/bootstrap/gerbil/runtime/util~0.scm @@ -1,24 +1,24 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/util::timestamp 1713044313) + (define gerbil/runtime/util::timestamp 1713454408) (begin (define raise-contract-violation-error error) (set! raise-contract-violation-error raise-contract-violation-error) (define displayln - (lambda _%args87971%_ + (lambda _%args88245%_ (let () - (let () (declare (not safe)) (##for-each display _%args87971%_)) + (let () (declare (not safe)) (##for-each display _%args88245%_)) (newline)))) (define display* - (lambda _%args87968%_ - (let () (declare (not safe)) (##for-each display _%args87968%_)))) + (lambda _%args88242%_ + (let () (declare (not safe)) (##for-each display _%args88242%_)))) (define file-newer? - (lambda (_%file187943%_ _%file287944%_) - (if (string? _%file187943%_) - (let ((_%file187948%_ _%file187943%_)) - (if (string? _%file287944%_) - (let ((_%file287958%_ _%file287944%_)) - (__file-newer? _%file187948%_ _%file287958%_)) + (lambda (_%file188217%_ _%file288218%_) + (if (string? _%file188217%_) + (let ((_%file188222%_ _%file188217%_)) + (if (string? _%file288218%_) + (let ((_%file288232%_ _%file288218%_)) + (__file-newer? _%file188222%_ _%file288232%_)) (begin (raise-contract-violation-error '"contract violation" @@ -27,7 +27,7 @@ 'contract: 'string? 'value: - _%file287944%_) + _%file288218%_) '#!void))) (begin (raise-contract-violation-error @@ -37,39 +37,39 @@ 'contract: 'string? 'value: - _%file187943%_) + _%file188217%_) '#!void)))) (define __file-newer? - (lambda (_%file187891%_ _%file287892%_) - (let* ((_%file187895%_ _%file187891%_) (_%file287903%_ _%file287892%_)) - (letrec ((_%modification-time87912%_ - (lambda (_%file87931%_) - (let ((_%file87934%_ _%file87931%_)) - (_%__modification-time87913%_ _%file87934%_)))) - (_%__modification-time87913%_ - (lambda (_%file87915%_) - (let* ((_%file87918%_ _%file87915%_) - (__tmp89701 - (let ((__tmp89702 + (lambda (_%file188165%_ _%file288166%_) + (let* ((_%file188169%_ _%file188165%_) (_%file288177%_ _%file288166%_)) + (letrec ((_%modification-time88186%_ + (lambda (_%file88205%_) + (let ((_%file88208%_ _%file88205%_)) + (_%__modification-time88187%_ _%file88208%_)))) + (_%__modification-time88187%_ + (lambda (_%file88189%_) + (let* ((_%file88192%_ _%file88189%_) + (__tmp89975 + (let ((__tmp89976 (let () (declare (not safe)) - (##file-info _%file87918%_ '#t)))) + (##file-info _%file88192%_ '#t)))) (declare (not safe)) (##file-info-last-modification-time - __tmp89702)))) + __tmp89976)))) (declare (not safe)) - (##time->seconds __tmp89701))))) - (let ((__tmp89704 (_%__modification-time87913%_ _%file187895%_)) - (__tmp89703 (_%__modification-time87913%_ _%file287903%_))) + (##time->seconds __tmp89975))))) + (let ((__tmp89978 (_%__modification-time88187%_ _%file188169%_)) + (__tmp89977 (_%__modification-time88187%_ _%file288177%_))) (declare (not safe)) - (##fl> __tmp89704 __tmp89703)))))) + (##fl> __tmp89978 __tmp89977)))))) (define create-directory*__% - (lambda (_%dir87856%_ _%perms87857%_) - (if (string? _%dir87856%_) - (let ((_%dir87861%_ _%dir87856%_)) - (if (fixnum? _%perms87857%_) - (let ((_%perms87871%_ _%perms87857%_)) - (__create-directory*__% _%dir87861%_ _%perms87871%_)) + (lambda (_%dir88130%_ _%perms88131%_) + (if (string? _%dir88130%_) + (let ((_%dir88135%_ _%dir88130%_)) + (if (fixnum? _%perms88131%_) + (let ((_%perms88145%_ _%perms88131%_)) + (__create-directory*__% _%dir88135%_ _%perms88145%_)) (begin (raise-contract-violation-error '"contract violation" @@ -78,7 +78,7 @@ 'contract: 'fixnum? 'value: - _%perms87857%_) + _%perms88131%_) '#!void))) (begin (raise-contract-violation-error @@ -88,128 +88,128 @@ 'contract: 'string? 'value: - _%dir87856%_) + _%dir88130%_) '#!void)))) (define create-directory*__0 - (lambda (_%dir87884%_) - (let ((_%perms87886%_ '493)) - (create-directory*__% _%dir87884%_ _%perms87886%_)))) + (lambda (_%dir88158%_) + (let ((_%perms88160%_ '493)) + (create-directory*__% _%dir88158%_ _%perms88160%_)))) (define create-directory* - (lambda _g89706_ - (let ((_g89705_ (let () (declare (not safe)) (##length _g89706_)))) - (cond ((let () (declare (not safe)) (##fx= _g89705_ 1)) - (apply create-directory*__0 _g89706_)) - ((let () (declare (not safe)) (##fx= _g89705_ 2)) - (apply create-directory*__% _g89706_)) + (lambda _g89980_ + (let ((_g89979_ (let () (declare (not safe)) (##length _g89980_)))) + (cond ((let () (declare (not safe)) (##fx= _g89979_ 1)) + (apply create-directory*__0 _g89980_)) + ((let () (declare (not safe)) (##fx= _g89979_ 2)) + (apply create-directory*__% _g89980_)) (else (##raise-wrong-number-of-arguments-exception create-directory* - _g89706_)))))) + _g89980_)))))) (define __create-directory*__% - (lambda (_%dir87780%_ _%perms87781%_) - (let* ((_%dir87784%_ _%dir87780%_) (_%perms87792%_ _%perms87781%_)) - (letrec ((_%create187801%_ - (lambda (_%path87833%_) - (let ((_%path87836%_ _%path87833%_)) - (_%__create187802%_ _%path87836%_)))) - (_%__create187802%_ - (lambda (_%path87814%_) - (let ((_%path87817%_ _%path87814%_)) + (lambda (_%dir88054%_ _%perms88055%_) + (let* ((_%dir88058%_ _%dir88054%_) (_%perms88066%_ _%perms88055%_)) + (letrec ((_%create188075%_ + (lambda (_%path88107%_) + (let ((_%path88110%_ _%path88107%_)) + (_%__create188076%_ _%path88110%_)))) + (_%__create188076%_ + (lambda (_%path88088%_) + (let ((_%path88091%_ _%path88088%_)) (if (let () (declare (not safe)) - (##file-exists? _%path87817%_)) - (if (eq? (file-type _%path87817%_) 'directory) + (##file-exists? _%path88091%_)) + (if (eq? (file-type _%path88091%_) 'directory) '#!void (error '"Path component is not a directory" - _%path87817%_)) - (if _%perms87792%_ + _%path88091%_)) + (if _%perms88066%_ (create-directory (cons 'path: - (cons _%path87817%_ + (cons _%path88091%_ (cons 'permissions: - (cons _%perms87792%_ + (cons _%perms88066%_ '()))))) - (create-directory _%path87817%_))))))) - (if (let () (declare (not safe)) (##file-exists? _%dir87784%_)) + (create-directory _%path88091%_))))))) + (if (let () (declare (not safe)) (##file-exists? _%dir88058%_)) '#!void - (let _%lp87804%_ ((_%start87806%_ '0)) - (let ((_%$e87808%_ - (__string-index__% _%dir87784%_ '#\/ _%start87806%_))) - (if _%$e87808%_ - ((lambda (_%x87811%_) + (let _%lp88078%_ ((_%start88080%_ '0)) + (let ((_%$e88082%_ + (__string-index__% _%dir88058%_ '#\/ _%start88080%_))) + (if _%$e88082%_ + ((lambda (_%x88085%_) (if (let () (declare (not safe)) - (##fx> _%x87811%_ '0)) - (_%__create187802%_ - (substring _%dir87784%_ '0 _%x87811%_)) + (##fx> _%x88085%_ '0)) + (_%__create188076%_ + (substring _%dir88058%_ '0 _%x88085%_)) '#!void) - (_%lp87804%_ + (_%lp88078%_ (let () (declare (not safe)) - (##fx+ _%x87811%_ '1)))) - _%$e87808%_) - (_%__create187802%_ _%dir87784%_))))) + (##fx+ _%x88085%_ '1)))) + _%$e88082%_) + (_%__create188076%_ _%dir88058%_))))) '#!void)))) (define __create-directory*__0 - (lambda (_%dir87848%_) - (let ((_%perms87850%_ '493)) - (__create-directory*__% _%dir87848%_ _%perms87850%_)))) + (lambda (_%dir88122%_) + (let ((_%perms88124%_ '493)) + (__create-directory*__% _%dir88122%_ _%perms88124%_)))) (define __create-directory* - (lambda _g89708_ - (let ((_g89707_ (let () (declare (not safe)) (##length _g89708_)))) - (cond ((let () (declare (not safe)) (##fx= _g89707_ 1)) - (apply __create-directory*__0 _g89708_)) - ((let () (declare (not safe)) (##fx= _g89707_ 2)) - (apply __create-directory*__% _g89708_)) + (lambda _g89982_ + (let ((_g89981_ (let () (declare (not safe)) (##length _g89982_)))) + (cond ((let () (declare (not safe)) (##fx= _g89981_ 1)) + (apply __create-directory*__0 _g89982_)) + ((let () (declare (not safe)) (##fx= _g89981_ 2)) + (apply __create-directory*__% _g89982_)) (else (##raise-wrong-number-of-arguments-exception __create-directory* - _g89708_)))))) + _g89982_)))))) (define absent-obj (let () (declare (not safe)) (##absent-object))) (define absent-value '#(#!void)) - (define true (lambda _%ignore87776%_ '#t)) - (define true? (lambda (_%obj87773%_) (eq? _%obj87773%_ '#t))) - (define false (lambda _%ignore87770%_ '#f)) - (define void (lambda _%ignore87767%_ '#!void)) - (define void? (lambda (_%obj87764%_) (eq? _%obj87764%_ '#!void))) + (define true (lambda _%ignore88050%_ '#t)) + (define true? (lambda (_%obj88047%_) (eq? _%obj88047%_ '#t))) + (define false (lambda _%ignore88044%_ '#f)) + (define void (lambda _%ignore88041%_ '#!void)) + (define void? (lambda (_%obj88038%_) (eq? _%obj88038%_ '#!void))) (define dssl-object? - (lambda (_%obj87761%_) + (lambda (_%obj88035%_) (if (let () (declare (not safe)) - (##memq _%obj87761%_ '(#!key #!rest #!optional))) + (##memq _%obj88035%_ '(#!key #!rest #!optional))) '#t '#f))) - (define dssl-key-object? (lambda (_%obj87758%_) (eq? _%obj87758%_ '#!key))) + (define dssl-key-object? (lambda (_%obj88032%_) (eq? _%obj88032%_ '#!key))) (define dssl-rest-object? - (lambda (_%obj87755%_) (eq? _%obj87755%_ '#!rest))) + (lambda (_%obj88029%_) (eq? _%obj88029%_ '#!rest))) (define dssl-optional-object? - (lambda (_%obj87752%_) (eq? _%obj87752%_ '#!optional))) + (lambda (_%obj88026%_) (eq? _%obj88026%_ '#!optional))) (define immediate? - (lambda (_%obj87747%_) - (let* ((_%t87750%_ (let () (declare (not safe)) (##type _%obj87747%_))) - (__tmp89709 - (let () (declare (not safe)) (##fxand _%t87750%_ '1)))) + (lambda (_%obj88021%_) + (let* ((_%t88024%_ (let () (declare (not safe)) (##type _%obj88021%_))) + (__tmp89983 + (let () (declare (not safe)) (##fxand _%t88024%_ '1)))) (declare (not safe)) - (##fxzero? __tmp89709)))) + (##fxzero? __tmp89983)))) (define nonnegative-fixnum? - (lambda (_%obj87744%_) - (if (fixnum? _%obj87744%_) - (let () (declare (not safe)) (##fx>= _%obj87744%_ '0)) + (lambda (_%obj88018%_) + (if (fixnum? _%obj88018%_) + (let () (declare (not safe)) (##fx>= _%obj88018%_ '0)) '#f))) (define pair-or-null? - (lambda (_%obj87738%_) - (let ((_%$e87741%_ (pair? _%obj87738%_))) - (if _%$e87741%_ _%$e87741%_ (null? _%obj87738%_))))) + (lambda (_%obj88012%_) + (let ((_%$e88015%_ (pair? _%obj88012%_))) + (if _%$e88015%_ _%$e88015%_ (null? _%obj88012%_))))) (define values-count - (lambda (_%obj87735%_) - (if (let () (declare (not safe)) (##values? _%obj87735%_)) - (let () (declare (not safe)) (##vector-length _%obj87735%_)) + (lambda (_%obj88009%_) + (if (let () (declare (not safe)) (##values? _%obj88009%_)) + (let () (declare (not safe)) (##vector-length _%obj88009%_)) '1))) (define values-ref - (lambda (_%obj87720%_ _%k87721%_) - (if (fixnum? _%k87721%_) - (let ((_%k87725%_ _%k87721%_)) - (__values-ref _%obj87720%_ _%k87725%_)) + (lambda (_%obj87994%_ _%k87995%_) + (if (fixnum? _%k87995%_) + (let ((_%k87999%_ _%k87995%_)) + (__values-ref _%obj87994%_ _%k87999%_)) (begin (raise-contract-violation-error '"contract violation" @@ -218,26 +218,26 @@ 'contract: 'fixnum? 'value: - _%k87721%_) + _%k87995%_) '#!void)))) (define __values-ref - (lambda (_%obj87707%_ _%k87708%_) - (let ((_%k87711%_ _%k87708%_)) - (if (let () (declare (not safe)) (##values? _%obj87707%_)) + (lambda (_%obj87981%_ _%k87982%_) + (let ((_%k87985%_ _%k87982%_)) + (if (let () (declare (not safe)) (##values? _%obj87981%_)) (let () (declare (not safe)) - (##vector-ref _%obj87707%_ _%k87711%_)) - _%obj87707%_)))) + (##vector-ref _%obj87981%_ _%k87985%_)) + _%obj87981%_)))) (define values->list - (lambda (_%obj87704%_) - (if (let () (declare (not safe)) (##values? _%obj87704%_)) - (let () (declare (not safe)) (##vector->list _%obj87704%_)) - (list _%obj87704%_)))) + (lambda (_%obj87978%_) + (if (let () (declare (not safe)) (##values? _%obj87978%_)) + (let () (declare (not safe)) (##vector->list _%obj87978%_)) + (list _%obj87978%_)))) (define foldl1 - (lambda (_%f87688%_ _%iv87689%_ _%lst87690%_) - (if (procedure? _%f87688%_) - (let ((_%f87694%_ _%f87688%_)) - (__foldl1 _%f87694%_ _%iv87689%_ _%lst87690%_)) + (lambda (_%f87962%_ _%iv87963%_ _%lst87964%_) + (if (procedure? _%f87962%_) + (let ((_%f87968%_ _%f87962%_)) + (__foldl1 _%f87968%_ _%iv87963%_ _%lst87964%_)) (begin (raise-contract-violation-error '"contract violation" @@ -246,40 +246,40 @@ 'contract: 'procedure? 'value: - _%f87688%_) + _%f87962%_) '#!void)))) (define __foldl1 - (lambda (_%f87636%_ _%iv87637%_ _%lst87638%_) - (let ((_%f87641%_ _%f87636%_)) - (let _%lp87650%_ ((_%rest87652%_ _%lst87638%_) - (_%r87653%_ _%iv87637%_)) - (let* ((_%rest8765487662%_ _%rest87652%_) - (_%else8765687670%_ (lambda () _%r87653%_)) - (_%K8765887676%_ - (lambda (_%rest87673%_ _%x87674%_) - (_%lp87650%_ - _%rest87673%_ + (lambda (_%f87910%_ _%iv87911%_ _%lst87912%_) + (let ((_%f87915%_ _%f87910%_)) + (let _%lp87924%_ ((_%rest87926%_ _%lst87912%_) + (_%r87927%_ _%iv87911%_)) + (let* ((_%rest8792887936%_ _%rest87926%_) + (_%else8793087944%_ (lambda () _%r87927%_)) + (_%K8793287950%_ + (lambda (_%rest87947%_ _%x87948%_) + (_%lp87924%_ + _%rest87947%_ (let () (declare (not safe)) - (_%f87641%_ _%x87674%_ _%r87653%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest8765487662%_)) - (let ((_%hd8765987679%_ + (_%f87915%_ _%x87948%_ _%r87927%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest8792887936%_)) + (let ((_%hd8793387953%_ (let () (declare (not safe)) - (##car _%rest8765487662%_))) - (_%tl8766087681%_ + (##car _%rest8792887936%_))) + (_%tl8793487955%_ (let () (declare (not safe)) - (##cdr _%rest8765487662%_)))) - (let* ((_%x87684%_ _%hd8765987679%_) - (_%rest87686%_ _%tl8766087681%_)) - (_%K8765887676%_ _%rest87686%_ _%x87684%_))) - (_%else8765687670%_))))))) + (##cdr _%rest8792887936%_)))) + (let* ((_%x87958%_ _%hd8793387953%_) + (_%rest87960%_ _%tl8793487955%_)) + (_%K8793287950%_ _%rest87960%_ _%x87958%_))) + (_%else8793087944%_))))))) (define foldl2 - (lambda (_%f87619%_ _%iv87620%_ _%lst187621%_ _%lst287622%_) - (if (procedure? _%f87619%_) - (let ((_%f87626%_ _%f87619%_)) - (__foldl2 _%f87626%_ _%iv87620%_ _%lst187621%_ _%lst287622%_)) + (lambda (_%f87893%_ _%iv87894%_ _%lst187895%_ _%lst287896%_) + (if (procedure? _%f87893%_) + (let ((_%f87900%_ _%f87893%_)) + (__foldl2 _%f87900%_ _%iv87894%_ _%lst187895%_ _%lst287896%_)) (begin (raise-contract-violation-error '"contract violation" @@ -288,78 +288,78 @@ 'contract: 'procedure? 'value: - _%f87619%_) + _%f87893%_) '#!void)))) (define __foldl2 - (lambda (_%f87532%_ _%iv87533%_ _%lst187534%_ _%lst287535%_) - (let ((_%f87538%_ _%f87532%_)) - (let _%lp87547%_ ((_%rest187549%_ _%lst187534%_) - (_%rest287550%_ _%lst287535%_) - (_%r87551%_ _%iv87533%_)) - (let* ((_%rest18755287560%_ _%rest187549%_) - (_%else8755487568%_ (lambda () _%r87551%_)) - (_%K8755687607%_ - (lambda (_%rest187571%_ _%x187572%_) - (let* ((_%rest28757387581%_ _%rest287550%_) - (_%else8757587589%_ (lambda () _%r87551%_)) - (_%K8757787595%_ - (lambda (_%rest287592%_ _%x287593%_) - (_%lp87547%_ - _%rest187571%_ - _%rest287592%_ + (lambda (_%f87806%_ _%iv87807%_ _%lst187808%_ _%lst287809%_) + (let ((_%f87812%_ _%f87806%_)) + (let _%lp87821%_ ((_%rest187823%_ _%lst187808%_) + (_%rest287824%_ _%lst287809%_) + (_%r87825%_ _%iv87807%_)) + (let* ((_%rest18782687834%_ _%rest187823%_) + (_%else8782887842%_ (lambda () _%r87825%_)) + (_%K8783087881%_ + (lambda (_%rest187845%_ _%x187846%_) + (let* ((_%rest28784787855%_ _%rest287824%_) + (_%else8784987863%_ (lambda () _%r87825%_)) + (_%K8785187869%_ + (lambda (_%rest287866%_ _%x287867%_) + (_%lp87821%_ + _%rest187845%_ + _%rest287866%_ (let () (declare (not safe)) - (_%f87538%_ - _%x187572%_ - _%x287593%_ - _%r87551%_)))))) + (_%f87812%_ + _%x187846%_ + _%x287867%_ + _%r87825%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest28757387581%_)) - (let ((_%hd8757887598%_ + (##pair? _%rest28784787855%_)) + (let ((_%hd8785287872%_ (let () (declare (not safe)) - (##car _%rest28757387581%_))) - (_%tl8757987600%_ + (##car _%rest28784787855%_))) + (_%tl8785387874%_ (let () (declare (not safe)) - (##cdr _%rest28757387581%_)))) - (let* ((_%x287603%_ _%hd8757887598%_) - (_%rest287605%_ _%tl8757987600%_)) - (_%K8757787595%_ _%rest287605%_ _%x287603%_))) - (_%else8757587589%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest18755287560%_)) - (let ((_%hd8755787610%_ + (##cdr _%rest28784787855%_)))) + (let* ((_%x287877%_ _%hd8785287872%_) + (_%rest287879%_ _%tl8785387874%_)) + (_%K8785187869%_ _%rest287879%_ _%x287877%_))) + (_%else8784987863%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest18782687834%_)) + (let ((_%hd8783187884%_ (let () (declare (not safe)) - (##car _%rest18755287560%_))) - (_%tl8755887612%_ + (##car _%rest18782687834%_))) + (_%tl8783287886%_ (let () (declare (not safe)) - (##cdr _%rest18755287560%_)))) - (let* ((_%x187615%_ _%hd8755787610%_) - (_%rest187617%_ _%tl8755887612%_)) - (_%K8755687607%_ _%rest187617%_ _%x187615%_))) - (_%else8755487568%_))))))) + (##cdr _%rest18782687834%_)))) + (let* ((_%x187889%_ _%hd8783187884%_) + (_%rest187891%_ _%tl8783287886%_)) + (_%K8783087881%_ _%rest187891%_ _%x187889%_))) + (_%else8782887842%_))))))) (define foldl - (lambda _g89711_ - (let ((_g89710_ (let () (declare (not safe)) (##length _g89711_)))) - (cond ((let () (declare (not safe)) (##fx= _g89710_ 3)) - (apply foldl1 _g89711_)) - ((let () (declare (not safe)) (##fx= _g89710_ 4)) - (apply foldl2 _g89711_)) - ((let () (declare (not safe)) (##fx>= _g89710_ 4)) - (apply foldl* _g89711_)) + (lambda _g89985_ + (let ((_g89984_ (let () (declare (not safe)) (##length _g89985_)))) + (cond ((let () (declare (not safe)) (##fx= _g89984_ 3)) + (apply foldl1 _g89985_)) + ((let () (declare (not safe)) (##fx= _g89984_ 4)) + (apply foldl2 _g89985_)) + ((let () (declare (not safe)) (##fx>= _g89984_ 4)) + (apply foldl* _g89985_)) (else (##raise-wrong-number-of-arguments-exception foldl - _g89711_)))))) + _g89985_)))))) (define foldl* - (lambda (_%f87501%_ _%iv87502%_ . _%rest87503%_) - (if (procedure? _%f87501%_) - (let ((_%f87507%_ _%f87501%_)) + (lambda (_%f87775%_ _%iv87776%_ . _%rest87777%_) + (if (procedure? _%f87775%_) + (let ((_%f87781%_ _%f87775%_)) (declare (not safe)) - (##apply __foldl* _%f87507%_ _%iv87502%_ _%rest87503%_)) + (##apply __foldl* _%f87781%_ _%iv87776%_ _%rest87777%_)) (begin (raise-contract-violation-error '"contract violation" @@ -368,30 +368,30 @@ 'contract: 'procedure? 'value: - _%f87501%_) + _%f87775%_) '#!void)))) (define __foldl* - (lambda (_%f87479%_ _%iv87480%_ . _%rest87481%_) - (let ((_%f87484%_ _%f87479%_)) - (let _%recur87493%_ ((_%iv87495%_ _%iv87480%_) - (_%rest87496%_ _%rest87481%_)) - (if (__andmap1 pair? _%rest87496%_) - (_%recur87493%_ - (let ((__tmp89712 + (lambda (_%f87753%_ _%iv87754%_ . _%rest87755%_) + (let ((_%f87758%_ _%f87753%_)) + (let _%recur87767%_ ((_%iv87769%_ _%iv87754%_) + (_%rest87770%_ _%rest87755%_)) + (if (__andmap1 pair? _%rest87770%_) + (_%recur87767%_ + (let ((__tmp89986 (__foldr1 - (lambda (_%xs87498%_ _%r87499%_) - (cons (car _%xs87498%_) _%r87499%_)) - (list _%iv87495%_) - _%rest87496%_))) + (lambda (_%xs87772%_ _%r87773%_) + (cons (car _%xs87772%_) _%r87773%_)) + (list _%iv87769%_) + _%rest87770%_))) (declare (not safe)) - (##apply _%f87484%_ __tmp89712)) - (map cdr _%rest87496%_)) - _%iv87495%_))))) + (##apply _%f87758%_ __tmp89986)) + (map cdr _%rest87770%_)) + _%iv87769%_))))) (define foldr1 - (lambda (_%f87463%_ _%iv87464%_ _%lst87465%_) - (if (procedure? _%f87463%_) - (let ((_%f87469%_ _%f87463%_)) - (__foldr1 _%f87469%_ _%iv87464%_ _%lst87465%_)) + (lambda (_%f87737%_ _%iv87738%_ _%lst87739%_) + (if (procedure? _%f87737%_) + (let ((_%f87743%_ _%f87737%_)) + (__foldr1 _%f87743%_ _%iv87738%_ _%lst87739%_)) (begin (raise-contract-violation-error '"contract violation" @@ -400,37 +400,37 @@ 'contract: 'procedure? 'value: - _%f87463%_) + _%f87737%_) '#!void)))) (define __foldr1 - (lambda (_%f87412%_ _%iv87413%_ _%lst87414%_) - (let ((_%f87417%_ _%f87412%_)) - (let _%recur87426%_ ((_%rest87428%_ _%lst87414%_)) - (let* ((_%rest8742987437%_ _%rest87428%_) - (_%else8743187445%_ (lambda () _%iv87413%_)) - (_%K8743387451%_ - (lambda (_%rest87448%_ _%x87449%_) - (let ((__tmp89713 (_%recur87426%_ _%rest87448%_))) + (lambda (_%f87686%_ _%iv87687%_ _%lst87688%_) + (let ((_%f87691%_ _%f87686%_)) + (let _%recur87700%_ ((_%rest87702%_ _%lst87688%_)) + (let* ((_%rest8770387711%_ _%rest87702%_) + (_%else8770587719%_ (lambda () _%iv87687%_)) + (_%K8770787725%_ + (lambda (_%rest87722%_ _%x87723%_) + (let ((__tmp89987 (_%recur87700%_ _%rest87722%_))) (declare (not safe)) - (_%f87417%_ _%x87449%_ __tmp89713))))) - (if (let () (declare (not safe)) (##pair? _%rest8742987437%_)) - (let ((_%hd8743487454%_ + (_%f87691%_ _%x87723%_ __tmp89987))))) + (if (let () (declare (not safe)) (##pair? _%rest8770387711%_)) + (let ((_%hd8770887728%_ (let () (declare (not safe)) - (##car _%rest8742987437%_))) - (_%tl8743587456%_ + (##car _%rest8770387711%_))) + (_%tl8770987730%_ (let () (declare (not safe)) - (##cdr _%rest8742987437%_)))) - (let* ((_%x87459%_ _%hd8743487454%_) - (_%rest87461%_ _%tl8743587456%_)) - (_%K8743387451%_ _%rest87461%_ _%x87459%_))) - (_%else8743187445%_))))))) + (##cdr _%rest8770387711%_)))) + (let* ((_%x87733%_ _%hd8770887728%_) + (_%rest87735%_ _%tl8770987730%_)) + (_%K8770787725%_ _%rest87735%_ _%x87733%_))) + (_%else8770587719%_))))))) (define foldr2 - (lambda (_%f87395%_ _%iv87396%_ _%lst187397%_ _%lst287398%_) - (if (procedure? _%f87395%_) - (let ((_%f87402%_ _%f87395%_)) - (__foldr2 _%f87402%_ _%iv87396%_ _%lst187397%_ _%lst287398%_)) + (lambda (_%f87669%_ _%iv87670%_ _%lst187671%_ _%lst287672%_) + (if (procedure? _%f87669%_) + (let ((_%f87676%_ _%f87669%_)) + (__foldr2 _%f87676%_ _%iv87670%_ _%lst187671%_ _%lst287672%_)) (begin (raise-contract-violation-error '"contract violation" @@ -439,77 +439,77 @@ 'contract: 'procedure? 'value: - _%f87395%_) + _%f87669%_) '#!void)))) (define __foldr2 - (lambda (_%f87309%_ _%iv87310%_ _%lst187311%_ _%lst287312%_) - (let ((_%f87315%_ _%f87309%_)) - (let _%recur87324%_ ((_%rest187326%_ _%lst187311%_) - (_%rest287327%_ _%lst287312%_)) - (let* ((_%rest18732887336%_ _%rest187326%_) - (_%else8733087344%_ (lambda () _%iv87310%_)) - (_%K8733287383%_ - (lambda (_%rest187347%_ _%x187348%_) - (let* ((_%rest28734987357%_ _%rest287327%_) - (_%else8735187365%_ (lambda () _%iv87310%_)) - (_%K8735387371%_ - (lambda (_%rest287368%_ _%x287369%_) - (let ((__tmp89714 - (_%recur87324%_ - _%rest187347%_ - _%rest287368%_))) + (lambda (_%f87583%_ _%iv87584%_ _%lst187585%_ _%lst287586%_) + (let ((_%f87589%_ _%f87583%_)) + (let _%recur87598%_ ((_%rest187600%_ _%lst187585%_) + (_%rest287601%_ _%lst287586%_)) + (let* ((_%rest18760287610%_ _%rest187600%_) + (_%else8760487618%_ (lambda () _%iv87584%_)) + (_%K8760687657%_ + (lambda (_%rest187621%_ _%x187622%_) + (let* ((_%rest28762387631%_ _%rest287601%_) + (_%else8762587639%_ (lambda () _%iv87584%_)) + (_%K8762787645%_ + (lambda (_%rest287642%_ _%x287643%_) + (let ((__tmp89988 + (_%recur87598%_ + _%rest187621%_ + _%rest287642%_))) (declare (not safe)) - (_%f87315%_ - _%x187348%_ - _%x287369%_ - __tmp89714))))) + (_%f87589%_ + _%x187622%_ + _%x287643%_ + __tmp89988))))) (if (let () (declare (not safe)) - (##pair? _%rest28734987357%_)) - (let ((_%hd8735487374%_ + (##pair? _%rest28762387631%_)) + (let ((_%hd8762887648%_ (let () (declare (not safe)) - (##car _%rest28734987357%_))) - (_%tl8735587376%_ + (##car _%rest28762387631%_))) + (_%tl8762987650%_ (let () (declare (not safe)) - (##cdr _%rest28734987357%_)))) - (let* ((_%x287379%_ _%hd8735487374%_) - (_%rest287381%_ _%tl8735587376%_)) - (_%K8735387371%_ _%rest287381%_ _%x287379%_))) - (_%else8735187365%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest18732887336%_)) - (let ((_%hd8733387386%_ + (##cdr _%rest28762387631%_)))) + (let* ((_%x287653%_ _%hd8762887648%_) + (_%rest287655%_ _%tl8762987650%_)) + (_%K8762787645%_ _%rest287655%_ _%x287653%_))) + (_%else8762587639%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest18760287610%_)) + (let ((_%hd8760787660%_ (let () (declare (not safe)) - (##car _%rest18732887336%_))) - (_%tl8733487388%_ + (##car _%rest18760287610%_))) + (_%tl8760887662%_ (let () (declare (not safe)) - (##cdr _%rest18732887336%_)))) - (let* ((_%x187391%_ _%hd8733387386%_) - (_%rest187393%_ _%tl8733487388%_)) - (_%K8733287383%_ _%rest187393%_ _%x187391%_))) - (_%else8733087344%_))))))) + (##cdr _%rest18760287610%_)))) + (let* ((_%x187665%_ _%hd8760787660%_) + (_%rest187667%_ _%tl8760887662%_)) + (_%K8760687657%_ _%rest187667%_ _%x187665%_))) + (_%else8760487618%_))))))) (define foldr - (lambda _g89716_ - (let ((_g89715_ (let () (declare (not safe)) (##length _g89716_)))) - (cond ((let () (declare (not safe)) (##fx= _g89715_ 3)) - (apply foldr1 _g89716_)) - ((let () (declare (not safe)) (##fx= _g89715_ 4)) - (apply foldr2 _g89716_)) - ((let () (declare (not safe)) (##fx>= _g89715_ 4)) - (apply foldr* _g89716_)) + (lambda _g89990_ + (let ((_g89989_ (let () (declare (not safe)) (##length _g89990_)))) + (cond ((let () (declare (not safe)) (##fx= _g89989_ 3)) + (apply foldr1 _g89990_)) + ((let () (declare (not safe)) (##fx= _g89989_ 4)) + (apply foldr2 _g89990_)) + ((let () (declare (not safe)) (##fx>= _g89989_ 4)) + (apply foldr* _g89990_)) (else (##raise-wrong-number-of-arguments-exception foldr - _g89716_)))))) + _g89990_)))))) (define foldr* - (lambda (_%f87278%_ _%iv87279%_ . _%rest87280%_) - (if (procedure? _%f87278%_) - (let ((_%f87284%_ _%f87278%_)) + (lambda (_%f87552%_ _%iv87553%_ . _%rest87554%_) + (if (procedure? _%f87552%_) + (let ((_%f87558%_ _%f87552%_)) (declare (not safe)) - (##apply __foldr* _%f87284%_ _%iv87279%_ _%rest87280%_)) + (##apply __foldr* _%f87558%_ _%iv87553%_ _%rest87554%_)) (begin (raise-contract-violation-error '"contract violation" @@ -518,109 +518,109 @@ 'contract: 'procedure? 'value: - _%f87278%_) + _%f87552%_) '#!void)))) (define __foldr* - (lambda (_%f87257%_ _%iv87258%_ . _%rest87259%_) - (let ((_%f87262%_ _%f87257%_)) - (let _%recur87271%_ ((_%rest87273%_ _%rest87259%_)) - (if (__andmap1 pair? _%rest87273%_) - (let ((__tmp89717 + (lambda (_%f87531%_ _%iv87532%_ . _%rest87533%_) + (let ((_%f87536%_ _%f87531%_)) + (let _%recur87545%_ ((_%rest87547%_ _%rest87533%_)) + (if (__andmap1 pair? _%rest87547%_) + (let ((__tmp89991 (__foldr1 - (lambda (_%xs87275%_ _%r87276%_) - (cons (car _%xs87275%_) _%r87276%_)) - (list (_%recur87271%_ (map cdr _%rest87273%_))) - _%rest87273%_))) + (lambda (_%xs87549%_ _%r87550%_) + (cons (car _%xs87549%_) _%r87550%_)) + (list (_%recur87545%_ (map cdr _%rest87547%_))) + _%rest87547%_))) (declare (not safe)) - (##apply _%f87262%_ __tmp89717)) - _%iv87258%_))))) + (##apply _%f87536%_ __tmp89991)) + _%iv87532%_))))) (define remove-nulls! - (lambda (_%l87144%_) - (let* ((_%l8714587158%_ _%l87144%_) - (_%E8714987162%_ + (lambda (_%l87418%_) + (let* ((_%l8741987432%_ _%l87418%_) + (_%E8742387436%_ (lambda () (error '"No clause matching" - _%l8714587158%_ + _%l8741987432%_ '([[] . r]) '([_ . r]) '(_)) '#!void))) - (let ((_%K8715487247%_ - (lambda (_%r87245%_) (remove-nulls! _%r87245%_))) - (_%K8715187234%_ - (lambda (_%r87174%_) - (let _%loop87176%_ ((_%l87178%_ _%l87144%_) - (_%r87179%_ _%r87174%_)) - (let* ((_%r8718087193%_ _%r87179%_) - (_%E8718487197%_ + (let ((_%K8742887521%_ + (lambda (_%r87519%_) (remove-nulls! _%r87519%_))) + (_%K8742587508%_ + (lambda (_%r87448%_) + (let _%loop87450%_ ((_%l87452%_ _%l87418%_) + (_%r87453%_ _%r87448%_)) + (let* ((_%r8745487467%_ _%r87453%_) + (_%E8745887471%_ (lambda () (error '"No clause matching" - _%r8718087193%_ + _%r8745487467%_ '([[] . rr]) '([_ . rr]) '(_)) '#!void))) - (let ((_%K8718987224%_ - (lambda (_%rr87222%_) - (let ((__tmp89719 _%l87178%_) - (__tmp89718 (remove-nulls! _%rr87222%_))) + (let ((_%K8746387498%_ + (lambda (_%rr87496%_) + (let ((__tmp89993 _%l87452%_) + (__tmp89992 (remove-nulls! _%rr87496%_))) (declare (not safe)) - (##set-cdr! __tmp89719 __tmp89718)))) - (_%K8718687211%_ - (lambda (_%rr87209%_) - (_%loop87176%_ _%r87179%_ _%rr87209%_))) - (_%K8718587202%_ (lambda () '#!void))) + (##set-cdr! __tmp89993 __tmp89992)))) + (_%K8746087485%_ + (lambda (_%rr87483%_) + (_%loop87450%_ _%r87453%_ _%rr87483%_))) + (_%K8745987476%_ (lambda () '#!void))) (if (let () (declare (not safe)) - (##pair? _%r8718087193%_)) - (let ((_%tl8719187229%_ + (##pair? _%r8745487467%_)) + (let ((_%tl8746587503%_ (let () (declare (not safe)) - (##cdr _%r8718087193%_))) - (_%hd8719087227%_ + (##cdr _%r8745487467%_))) + (_%hd8746487501%_ (let () (declare (not safe)) - (##car _%r8718087193%_)))) + (##car _%r8745487467%_)))) (if (let () (declare (not safe)) - (##null? _%hd8719087227%_)) - (let ((_%rr87232%_ _%tl8719187229%_)) - (_%K8718987224%_ _%rr87232%_)) - (let ((_%rr87217%_ _%tl8719187229%_)) - (_%K8718687211%_ _%rr87217%_)))) + (##null? _%hd8746487501%_)) + (let ((_%rr87506%_ _%tl8746587503%_)) + (_%K8746387498%_ _%rr87506%_)) + (let ((_%rr87491%_ _%tl8746587503%_)) + (_%K8746087485%_ _%rr87491%_)))) '#!void)))) - _%l87144%_)) - (_%K8715087167%_ (lambda () _%l87144%_))) - (if (let () (declare (not safe)) (##pair? _%l8714587158%_)) - (let ((_%tl8715687252%_ - (let () (declare (not safe)) (##cdr _%l8714587158%_))) - (_%hd8715587250%_ - (let () (declare (not safe)) (##car _%l8714587158%_)))) - (if (let () (declare (not safe)) (##null? _%hd8715587250%_)) - (let ((_%r87255%_ _%tl8715687252%_)) - (remove-nulls! _%r87255%_)) - (let ((_%r87240%_ _%tl8715687252%_)) - (_%K8715187234%_ _%r87240%_)))) - (_%K8715087167%_)))))) + _%l87418%_)) + (_%K8742487441%_ (lambda () _%l87418%_))) + (if (let () (declare (not safe)) (##pair? _%l8741987432%_)) + (let ((_%tl8743087526%_ + (let () (declare (not safe)) (##cdr _%l8741987432%_))) + (_%hd8742987524%_ + (let () (declare (not safe)) (##car _%l8741987432%_)))) + (if (let () (declare (not safe)) (##null? _%hd8742987524%_)) + (let ((_%r87529%_ _%tl8743087526%_)) + (remove-nulls! _%r87529%_)) + (let ((_%r87514%_ _%tl8743087526%_)) + (_%K8742587508%_ _%r87514%_)))) + (_%K8742487441%_)))))) (define append1! - (lambda (_%l87129%_ _%x87130%_) - (let ((_%l287133%_ (cons _%x87130%_ '()))) - (if (pair? _%l87129%_) - (let ((_%l87135%_ _%l87129%_)) - (let ((__tmp89720 - (let () (declare (not safe)) (##last-pair _%l87135%_)))) + (lambda (_%l87403%_ _%x87404%_) + (let ((_%l287407%_ (cons _%x87404%_ '()))) + (if (pair? _%l87403%_) + (let ((_%l87409%_ _%l87403%_)) + (let ((__tmp89994 + (let () (declare (not safe)) (##last-pair _%l87409%_)))) (declare (not safe)) - (##set-cdr! __tmp89720 _%l287133%_)) - _%l87135%_) - _%l287133%_)))) + (##set-cdr! __tmp89994 _%l287407%_)) + _%l87409%_) + _%l287407%_)))) (define append-reverse-until - (lambda (_%pred87113%_ _%rhead87114%_ _%tail87115%_) - (if (procedure? _%pred87113%_) - (let ((_%pred87119%_ _%pred87113%_)) + (lambda (_%pred87387%_ _%rhead87388%_ _%tail87389%_) + (if (procedure? _%pred87387%_) + (let ((_%pred87393%_ _%pred87387%_)) (__append-reverse-until - _%pred87119%_ - _%rhead87114%_ - _%tail87115%_)) + _%pred87393%_ + _%rhead87388%_ + _%tail87389%_)) (begin (raise-contract-violation-error '"contract violation" @@ -629,57 +629,57 @@ 'contract: 'procedure? 'value: - _%pred87113%_) + _%pred87387%_) '#!void)))) (define __append-reverse-until - (lambda (_%pred87055%_ _%rhead87056%_ _%tail87057%_) - (let ((_%pred87060%_ _%pred87055%_)) - (let _%loop87069%_ ((_%rhead87071%_ _%rhead87056%_) - (_%tail87072%_ _%tail87057%_)) - (let* ((_%rhead8707487083%_ _%rhead87071%_) - (_%E8707787087%_ + (lambda (_%pred87329%_ _%rhead87330%_ _%tail87331%_) + (let ((_%pred87334%_ _%pred87329%_)) + (let _%loop87343%_ ((_%rhead87345%_ _%rhead87330%_) + (_%tail87346%_ _%tail87331%_)) + (let* ((_%rhead8734887357%_ _%rhead87345%_) + (_%E8735187361%_ (lambda () (error '"No clause matching" - _%rhead8707487083%_ + _%rhead8734887357%_ '([]) '([a :: r])) '#!void))) - (let ((_%K8708187110%_ (lambda () (values '() _%tail87072%_))) - (_%K8707887094%_ - (lambda (_%r87091%_ _%a87092%_) + (let ((_%K8735587384%_ (lambda () (values '() _%tail87346%_))) + (_%K8735287368%_ + (lambda (_%r87365%_ _%a87366%_) (if (let () (declare (not safe)) - (_%pred87060%_ _%a87092%_)) - (values _%rhead87071%_ _%tail87072%_) - (_%loop87069%_ - _%r87091%_ - (cons _%a87092%_ _%tail87072%_)))))) - (let ((_%try-match8707687106%_ + (_%pred87334%_ _%a87366%_)) + (values _%rhead87345%_ _%tail87346%_) + (_%loop87343%_ + _%r87365%_ + (cons _%a87366%_ _%tail87346%_)))))) + (let ((_%try-match8735087380%_ (lambda () (if (let () (declare (not safe)) - (##pair? _%rhead8707487083%_)) - (let ((_%tl8708087099%_ + (##pair? _%rhead8734887357%_)) + (let ((_%tl8735487373%_ (let () (declare (not safe)) - (##cdr _%rhead8707487083%_))) - (_%hd8707987097%_ + (##cdr _%rhead8734887357%_))) + (_%hd8735387371%_ (let () (declare (not safe)) - (##car _%rhead8707487083%_)))) - (let ((_%a87102%_ _%hd8707987097%_) - (_%r87104%_ _%tl8708087099%_)) - (_%K8707887094%_ _%r87104%_ _%a87102%_))) - (_%E8707787087%_))))) + (##car _%rhead8734887357%_)))) + (let ((_%a87376%_ _%hd8735387371%_) + (_%r87378%_ _%tl8735487373%_)) + (_%K8735287368%_ _%r87378%_ _%a87376%_))) + (_%E8735187361%_))))) (if (let () (declare (not safe)) - (##null? _%rhead8707487083%_)) - (_%K8708187110%_) - (_%try-match8707687106%_))))))))) + (##null? _%rhead8734887357%_)) + (_%K8735587384%_) + (_%try-match8735087380%_))))))))) (define andmap1 - (lambda (_%f87040%_ _%lst87041%_) - (if (procedure? _%f87040%_) - (let ((_%f87045%_ _%f87040%_)) (__andmap1 _%f87045%_ _%lst87041%_)) + (lambda (_%f87314%_ _%lst87315%_) + (if (procedure? _%f87314%_) + (let ((_%f87319%_ _%f87314%_)) (__andmap1 _%f87319%_ _%lst87315%_)) (begin (raise-contract-violation-error '"contract violation" @@ -688,37 +688,37 @@ 'contract: 'procedure? 'value: - _%f87040%_) + _%f87314%_) '#!void)))) (define __andmap1 - (lambda (_%f86989%_ _%lst86990%_) - (let ((_%f86993%_ _%f86989%_)) - (let _%lp87002%_ ((_%rest87004%_ _%lst86990%_)) - (let* ((_%rest8700687014%_ _%rest87004%_) - (_%else8700887022%_ (lambda () '#t)) - (_%K8701087028%_ - (lambda (_%rest87025%_ _%x87026%_) - (if (let () (declare (not safe)) (_%f86993%_ _%x87026%_)) - (_%lp87002%_ _%rest87025%_) + (lambda (_%f87263%_ _%lst87264%_) + (let ((_%f87267%_ _%f87263%_)) + (let _%lp87276%_ ((_%rest87278%_ _%lst87264%_)) + (let* ((_%rest8728087288%_ _%rest87278%_) + (_%else8728287296%_ (lambda () '#t)) + (_%K8728487302%_ + (lambda (_%rest87299%_ _%x87300%_) + (if (let () (declare (not safe)) (_%f87267%_ _%x87300%_)) + (_%lp87276%_ _%rest87299%_) '#f)))) - (if (let () (declare (not safe)) (##pair? _%rest8700687014%_)) - (let ((_%hd8701187031%_ + (if (let () (declare (not safe)) (##pair? _%rest8728087288%_)) + (let ((_%hd8728587305%_ (let () (declare (not safe)) - (##car _%rest8700687014%_))) - (_%tl8701287033%_ + (##car _%rest8728087288%_))) + (_%tl8728687307%_ (let () (declare (not safe)) - (##cdr _%rest8700687014%_)))) - (let* ((_%x87036%_ _%hd8701187031%_) - (_%rest87038%_ _%tl8701287033%_)) - (_%K8701087028%_ _%rest87038%_ _%x87036%_))) - (_%else8700887022%_))))))) + (##cdr _%rest8728087288%_)))) + (let* ((_%x87310%_ _%hd8728587305%_) + (_%rest87312%_ _%tl8728687307%_)) + (_%K8728487302%_ _%rest87312%_ _%x87310%_))) + (_%else8728287296%_))))))) (define andmap2 - (lambda (_%f86973%_ _%lst186974%_ _%lst286975%_) - (if (procedure? _%f86973%_) - (let ((_%f86979%_ _%f86973%_)) - (__andmap2 _%f86979%_ _%lst186974%_ _%lst286975%_)) + (lambda (_%f87247%_ _%lst187248%_ _%lst287249%_) + (if (procedure? _%f87247%_) + (let ((_%f87253%_ _%f87247%_)) + (__andmap2 _%f87253%_ _%lst187248%_ _%lst287249%_)) (begin (raise-contract-violation-error '"contract violation" @@ -727,73 +727,73 @@ 'contract: 'procedure? 'value: - _%f86973%_) + _%f87247%_) '#!void)))) (define __andmap2 - (lambda (_%f86887%_ _%lst186888%_ _%lst286889%_) - (let ((_%f86892%_ _%f86887%_)) - (let _%lp86901%_ ((_%rest186903%_ _%lst186888%_) - (_%rest286904%_ _%lst286889%_)) - (let* ((_%rest18690686914%_ _%rest186903%_) - (_%else8690886922%_ (lambda () '#t)) - (_%K8691086961%_ - (lambda (_%rest186925%_ _%x186926%_) - (let* ((_%rest28692786935%_ _%rest286904%_) - (_%else8692986943%_ (lambda () '#t)) - (_%K8693186949%_ - (lambda (_%rest286946%_ _%x286947%_) + (lambda (_%f87161%_ _%lst187162%_ _%lst287163%_) + (let ((_%f87166%_ _%f87161%_)) + (let _%lp87175%_ ((_%rest187177%_ _%lst187162%_) + (_%rest287178%_ _%lst287163%_)) + (let* ((_%rest18718087188%_ _%rest187177%_) + (_%else8718287196%_ (lambda () '#t)) + (_%K8718487235%_ + (lambda (_%rest187199%_ _%x187200%_) + (let* ((_%rest28720187209%_ _%rest287178%_) + (_%else8720387217%_ (lambda () '#t)) + (_%K8720587223%_ + (lambda (_%rest287220%_ _%x287221%_) (if (let () (declare (not safe)) - (_%f86892%_ _%x186926%_ _%x286947%_)) - (_%lp86901%_ _%rest186925%_ _%rest286946%_) + (_%f87166%_ _%x187200%_ _%x287221%_)) + (_%lp87175%_ _%rest187199%_ _%rest287220%_) '#f)))) (if (let () (declare (not safe)) - (##pair? _%rest28692786935%_)) - (let ((_%hd8693286952%_ + (##pair? _%rest28720187209%_)) + (let ((_%hd8720687226%_ (let () (declare (not safe)) - (##car _%rest28692786935%_))) - (_%tl8693386954%_ + (##car _%rest28720187209%_))) + (_%tl8720787228%_ (let () (declare (not safe)) - (##cdr _%rest28692786935%_)))) - (let* ((_%x286957%_ _%hd8693286952%_) - (_%rest286959%_ _%tl8693386954%_)) - (_%K8693186949%_ _%rest286959%_ _%x286957%_))) - (_%else8692986943%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest18690686914%_)) - (let ((_%hd8691186964%_ + (##cdr _%rest28720187209%_)))) + (let* ((_%x287231%_ _%hd8720687226%_) + (_%rest287233%_ _%tl8720787228%_)) + (_%K8720587223%_ _%rest287233%_ _%x287231%_))) + (_%else8720387217%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest18718087188%_)) + (let ((_%hd8718587238%_ (let () (declare (not safe)) - (##car _%rest18690686914%_))) - (_%tl8691286966%_ + (##car _%rest18718087188%_))) + (_%tl8718687240%_ (let () (declare (not safe)) - (##cdr _%rest18690686914%_)))) - (let* ((_%x186969%_ _%hd8691186964%_) - (_%rest186971%_ _%tl8691286966%_)) - (_%K8691086961%_ _%rest186971%_ _%x186969%_))) - (_%else8690886922%_))))))) + (##cdr _%rest18718087188%_)))) + (let* ((_%x187243%_ _%hd8718587238%_) + (_%rest187245%_ _%tl8718687240%_)) + (_%K8718487235%_ _%rest187245%_ _%x187243%_))) + (_%else8718287196%_))))))) (define andmap - (lambda _g89722_ - (let ((_g89721_ (let () (declare (not safe)) (##length _g89722_)))) - (cond ((let () (declare (not safe)) (##fx= _g89721_ 2)) - (apply andmap1 _g89722_)) - ((let () (declare (not safe)) (##fx= _g89721_ 3)) - (apply andmap2 _g89722_)) - ((let () (declare (not safe)) (##fx>= _g89721_ 3)) - (apply andmap* _g89722_)) + (lambda _g89996_ + (let ((_g89995_ (let () (declare (not safe)) (##length _g89996_)))) + (cond ((let () (declare (not safe)) (##fx= _g89995_ 2)) + (apply andmap1 _g89996_)) + ((let () (declare (not safe)) (##fx= _g89995_ 3)) + (apply andmap2 _g89996_)) + ((let () (declare (not safe)) (##fx>= _g89995_ 3)) + (apply andmap* _g89996_)) (else (##raise-wrong-number-of-arguments-exception andmap - _g89722_)))))) + _g89996_)))))) (define andmap* - (lambda (_%f86860%_ . _%rest86861%_) - (if (procedure? _%f86860%_) - (let ((_%f86865%_ _%f86860%_)) + (lambda (_%f87134%_ . _%rest87135%_) + (if (procedure? _%f87134%_) + (let ((_%f87139%_ _%f87134%_)) (declare (not safe)) - (##apply __andmap* _%f86865%_ _%rest86861%_)) + (##apply __andmap* _%f87139%_ _%rest87135%_)) (begin (raise-contract-violation-error '"contract violation" @@ -802,23 +802,23 @@ 'contract: 'procedure? 'value: - _%f86860%_) + _%f87134%_) '#!void)))) (define __andmap* - (lambda (_%f86842%_ . _%rest86843%_) - (let ((_%f86846%_ _%f86842%_)) - (let _%recur86855%_ ((_%rest86857%_ _%rest86843%_)) - (if (__andmap1 pair? _%rest86857%_) - (if (let ((__tmp89723 (map car _%rest86857%_))) + (lambda (_%f87116%_ . _%rest87117%_) + (let ((_%f87120%_ _%f87116%_)) + (let _%recur87129%_ ((_%rest87131%_ _%rest87117%_)) + (if (__andmap1 pair? _%rest87131%_) + (if (let ((__tmp89997 (map car _%rest87131%_))) (declare (not safe)) - (##apply _%f86846%_ __tmp89723)) - (_%recur86855%_ (map cdr _%rest86857%_)) + (##apply _%f87120%_ __tmp89997)) + (_%recur87129%_ (map cdr _%rest87131%_)) '#f) '#t))))) (define ormap1 - (lambda (_%f86827%_ _%lst86828%_) - (if (procedure? _%f86827%_) - (let ((_%f86832%_ _%f86827%_)) (__ormap1 _%f86832%_ _%lst86828%_)) + (lambda (_%f87101%_ _%lst87102%_) + (if (procedure? _%f87101%_) + (let ((_%f87106%_ _%f87101%_)) (__ormap1 _%f87106%_ _%lst87102%_)) (begin (raise-contract-violation-error '"contract violation" @@ -827,41 +827,41 @@ 'contract: 'procedure? 'value: - _%f86827%_) + _%f87101%_) '#!void)))) (define __ormap1 - (lambda (_%f86774%_ _%lst86775%_) - (let ((_%f86778%_ _%f86774%_)) - (let _%lp86787%_ ((_%rest86789%_ _%lst86775%_)) - (let* ((_%rest8679086798%_ _%rest86789%_) - (_%else8679286806%_ (lambda () '#f)) - (_%K8679486815%_ - (lambda (_%rest86809%_ _%x86810%_) - (let ((_%$e86812%_ + (lambda (_%f87048%_ _%lst87049%_) + (let ((_%f87052%_ _%f87048%_)) + (let _%lp87061%_ ((_%rest87063%_ _%lst87049%_)) + (let* ((_%rest8706487072%_ _%rest87063%_) + (_%else8706687080%_ (lambda () '#f)) + (_%K8706887089%_ + (lambda (_%rest87083%_ _%x87084%_) + (let ((_%$e87086%_ (let () (declare (not safe)) - (_%f86778%_ _%x86810%_)))) - (if _%$e86812%_ - _%$e86812%_ - (_%lp86787%_ _%rest86809%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest8679086798%_)) - (let ((_%hd8679586818%_ + (_%f87052%_ _%x87084%_)))) + (if _%$e87086%_ + _%$e87086%_ + (_%lp87061%_ _%rest87083%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest8706487072%_)) + (let ((_%hd8706987092%_ (let () (declare (not safe)) - (##car _%rest8679086798%_))) - (_%tl8679686820%_ + (##car _%rest8706487072%_))) + (_%tl8707087094%_ (let () (declare (not safe)) - (##cdr _%rest8679086798%_)))) - (let* ((_%x86823%_ _%hd8679586818%_) - (_%rest86825%_ _%tl8679686820%_)) - (_%K8679486815%_ _%rest86825%_ _%x86823%_))) - (_%else8679286806%_))))))) + (##cdr _%rest8706487072%_)))) + (let* ((_%x87097%_ _%hd8706987092%_) + (_%rest87099%_ _%tl8707087094%_)) + (_%K8706887089%_ _%rest87099%_ _%x87097%_))) + (_%else8706687080%_))))))) (define ormap2 - (lambda (_%f86758%_ _%lst186759%_ _%lst286760%_) - (if (procedure? _%f86758%_) - (let ((_%f86764%_ _%f86758%_)) - (__ormap2 _%f86764%_ _%lst186759%_ _%lst286760%_)) + (lambda (_%f87032%_ _%lst187033%_ _%lst287034%_) + (if (procedure? _%f87032%_) + (let ((_%f87038%_ _%f87032%_)) + (__ormap2 _%f87038%_ _%lst187033%_ _%lst287034%_)) (begin (raise-contract-violation-error '"contract violation" @@ -870,79 +870,79 @@ 'contract: 'procedure? 'value: - _%f86758%_) + _%f87032%_) '#!void)))) (define __ormap2 - (lambda (_%f86670%_ _%lst186671%_ _%lst286672%_) - (let ((_%f86675%_ _%f86670%_)) - (let _%lp86684%_ ((_%rest186686%_ _%lst186671%_) - (_%rest286687%_ _%lst286672%_)) - (let* ((_%rest18668886696%_ _%rest186686%_) - (_%else8669086704%_ (lambda () '#f)) - (_%K8669286746%_ - (lambda (_%rest186707%_ _%x186708%_) - (let* ((_%rest28670986717%_ _%rest286687%_) - (_%else8671186725%_ (lambda () '#f)) - (_%K8671386734%_ - (lambda (_%rest286728%_ _%x286729%_) - (let ((_%$e86731%_ + (lambda (_%f86944%_ _%lst186945%_ _%lst286946%_) + (let ((_%f86949%_ _%f86944%_)) + (let _%lp86958%_ ((_%rest186960%_ _%lst186945%_) + (_%rest286961%_ _%lst286946%_)) + (let* ((_%rest18696286970%_ _%rest186960%_) + (_%else8696486978%_ (lambda () '#f)) + (_%K8696687020%_ + (lambda (_%rest186981%_ _%x186982%_) + (let* ((_%rest28698386991%_ _%rest286961%_) + (_%else8698586999%_ (lambda () '#f)) + (_%K8698787008%_ + (lambda (_%rest287002%_ _%x287003%_) + (let ((_%$e87005%_ (let () (declare (not safe)) - (_%f86675%_ - _%x186708%_ - _%x286729%_)))) - (if _%$e86731%_ - _%$e86731%_ - (_%lp86684%_ - _%rest186707%_ - _%rest286728%_)))))) + (_%f86949%_ + _%x186982%_ + _%x287003%_)))) + (if _%$e87005%_ + _%$e87005%_ + (_%lp86958%_ + _%rest186981%_ + _%rest287002%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest28670986717%_)) - (let ((_%hd8671486737%_ + (##pair? _%rest28698386991%_)) + (let ((_%hd8698887011%_ (let () (declare (not safe)) - (##car _%rest28670986717%_))) - (_%tl8671586739%_ + (##car _%rest28698386991%_))) + (_%tl8698987013%_ (let () (declare (not safe)) - (##cdr _%rest28670986717%_)))) - (let* ((_%x286742%_ _%hd8671486737%_) - (_%rest286744%_ _%tl8671586739%_)) - (_%K8671386734%_ _%rest286744%_ _%x286742%_))) - (_%else8671186725%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest18668886696%_)) - (let ((_%hd8669386749%_ + (##cdr _%rest28698386991%_)))) + (let* ((_%x287016%_ _%hd8698887011%_) + (_%rest287018%_ _%tl8698987013%_)) + (_%K8698787008%_ _%rest287018%_ _%x287016%_))) + (_%else8698586999%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest18696286970%_)) + (let ((_%hd8696787023%_ (let () (declare (not safe)) - (##car _%rest18668886696%_))) - (_%tl8669486751%_ + (##car _%rest18696286970%_))) + (_%tl8696887025%_ (let () (declare (not safe)) - (##cdr _%rest18668886696%_)))) - (let* ((_%x186754%_ _%hd8669386749%_) - (_%rest186756%_ _%tl8669486751%_)) - (_%K8669286746%_ _%rest186756%_ _%x186754%_))) - (_%else8669086704%_))))))) + (##cdr _%rest18696286970%_)))) + (let* ((_%x187028%_ _%hd8696787023%_) + (_%rest187030%_ _%tl8696887025%_)) + (_%K8696687020%_ _%rest187030%_ _%x187028%_))) + (_%else8696486978%_))))))) (define ormap - (lambda _g89725_ - (let ((_g89724_ (let () (declare (not safe)) (##length _g89725_)))) - (cond ((let () (declare (not safe)) (##fx= _g89724_ 2)) - (apply ormap1 _g89725_)) - ((let () (declare (not safe)) (##fx= _g89724_ 3)) - (apply ormap2 _g89725_)) - ((let () (declare (not safe)) (##fx>= _g89724_ 3)) - (apply ormap* _g89725_)) + (lambda _g89999_ + (let ((_g89998_ (let () (declare (not safe)) (##length _g89999_)))) + (cond ((let () (declare (not safe)) (##fx= _g89998_ 2)) + (apply ormap1 _g89999_)) + ((let () (declare (not safe)) (##fx= _g89998_ 3)) + (apply ormap2 _g89999_)) + ((let () (declare (not safe)) (##fx>= _g89998_ 3)) + (apply ormap* _g89999_)) (else (##raise-wrong-number-of-arguments-exception ormap - _g89725_)))))) + _g89999_)))))) (define ormap* - (lambda (_%f86643%_ . _%rest86644%_) - (if (procedure? _%f86643%_) - (let ((_%f86648%_ _%f86643%_)) + (lambda (_%f86917%_ . _%rest86918%_) + (if (procedure? _%f86917%_) + (let ((_%f86922%_ _%f86917%_)) (declare (not safe)) - (##apply __ormap* _%f86648%_ _%rest86644%_)) + (##apply __ormap* _%f86922%_ _%rest86918%_)) (begin (raise-contract-violation-error '"contract violation" @@ -951,26 +951,26 @@ 'contract: 'procedure? 'value: - _%f86643%_) + _%f86917%_) '#!void)))) (define __ormap* - (lambda (_%f86623%_ . _%rest86624%_) - (let ((_%f86627%_ _%f86623%_)) - (let _%recur86636%_ ((_%rest86638%_ _%rest86624%_)) - (if (__andmap1 pair? _%rest86638%_) - (let ((_%$e86640%_ - (let ((__tmp89726 (map car _%rest86638%_))) + (lambda (_%f86897%_ . _%rest86898%_) + (let ((_%f86901%_ _%f86897%_)) + (let _%recur86910%_ ((_%rest86912%_ _%rest86898%_)) + (if (__andmap1 pair? _%rest86912%_) + (let ((_%$e86914%_ + (let ((__tmp90000 (map car _%rest86912%_))) (declare (not safe)) - (##apply _%f86627%_ __tmp89726)))) - (if _%$e86640%_ - _%$e86640%_ - (_%recur86636%_ (map cdr _%rest86638%_)))) + (##apply _%f86901%_ __tmp90000)))) + (if _%$e86914%_ + _%$e86914%_ + (_%recur86910%_ (map cdr _%rest86912%_)))) '#f))))) (define filter-map1 - (lambda (_%f86608%_ _%lst86609%_) - (if (procedure? _%f86608%_) - (let ((_%f86613%_ _%f86608%_)) - (__filter-map1 _%f86613%_ _%lst86609%_)) + (lambda (_%f86882%_ _%lst86883%_) + (if (procedure? _%f86882%_) + (let ((_%f86887%_ _%f86882%_)) + (__filter-map1 _%f86887%_ _%lst86883%_)) (begin (raise-contract-violation-error '"contract violation" @@ -979,44 +979,44 @@ 'contract: 'procedure? 'value: - _%f86608%_) + _%f86882%_) '#!void)))) (define __filter-map1 - (lambda (_%f86551%_ _%lst86552%_) - (let ((_%f86555%_ _%f86551%_)) - (let _%recur86564%_ ((_%rest86566%_ _%lst86552%_)) - (let* ((_%rest8656886576%_ _%rest86566%_) - (_%else8657086584%_ (lambda () '())) - (_%K8657286596%_ - (lambda (_%rest86587%_ _%x86588%_) - (let ((_%$e86590%_ + (lambda (_%f86825%_ _%lst86826%_) + (let ((_%f86829%_ _%f86825%_)) + (let _%recur86838%_ ((_%rest86840%_ _%lst86826%_)) + (let* ((_%rest8684286850%_ _%rest86840%_) + (_%else8684486858%_ (lambda () '())) + (_%K8684686870%_ + (lambda (_%rest86861%_ _%x86862%_) + (let ((_%$e86864%_ (let () (declare (not safe)) - (_%f86555%_ _%x86588%_)))) - (if _%$e86590%_ - ((lambda (_%r86593%_) - (cons _%r86593%_ - (_%recur86564%_ _%rest86587%_))) - _%$e86590%_) - (_%recur86564%_ _%rest86587%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest8656886576%_)) - (let ((_%hd8657386599%_ + (_%f86829%_ _%x86862%_)))) + (if _%$e86864%_ + ((lambda (_%r86867%_) + (cons _%r86867%_ + (_%recur86838%_ _%rest86861%_))) + _%$e86864%_) + (_%recur86838%_ _%rest86861%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest8684286850%_)) + (let ((_%hd8684786873%_ (let () (declare (not safe)) - (##car _%rest8656886576%_))) - (_%tl8657486601%_ + (##car _%rest8684286850%_))) + (_%tl8684886875%_ (let () (declare (not safe)) - (##cdr _%rest8656886576%_)))) - (let* ((_%x86604%_ _%hd8657386599%_) - (_%rest86606%_ _%tl8657486601%_)) - (_%K8657286596%_ _%rest86606%_ _%x86604%_))) - (_%else8657086584%_))))))) + (##cdr _%rest8684286850%_)))) + (let* ((_%x86878%_ _%hd8684786873%_) + (_%rest86880%_ _%tl8684886875%_)) + (_%K8684686870%_ _%rest86880%_ _%x86878%_))) + (_%else8684486858%_))))))) (define filter-map2 - (lambda (_%f86535%_ _%lst186536%_ _%lst286537%_) - (if (procedure? _%f86535%_) - (let ((_%f86541%_ _%f86535%_)) - (__filter-map2 _%f86541%_ _%lst186536%_ _%lst286537%_)) + (lambda (_%f86809%_ _%lst186810%_ _%lst286811%_) + (if (procedure? _%f86809%_) + (let ((_%f86815%_ _%f86809%_)) + (__filter-map2 _%f86815%_ _%lst186810%_ _%lst286811%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1025,84 +1025,84 @@ 'contract: 'procedure? 'value: - _%f86535%_) + _%f86809%_) '#!void)))) (define __filter-map2 - (lambda (_%f86443%_ _%lst186444%_ _%lst286445%_) - (let ((_%f86448%_ _%f86443%_)) - (let _%recur86457%_ ((_%rest186459%_ _%lst186444%_) - (_%rest286460%_ _%lst286445%_)) - (let* ((_%rest18646286470%_ _%rest186459%_) - (_%else8646486478%_ (lambda () '())) - (_%K8646686523%_ - (lambda (_%rest186481%_ _%x186482%_) - (let* ((_%rest28648386491%_ _%rest286460%_) - (_%else8648586499%_ (lambda () '())) - (_%K8648786511%_ - (lambda (_%rest286502%_ _%x286503%_) - (let ((_%$e86505%_ + (lambda (_%f86717%_ _%lst186718%_ _%lst286719%_) + (let ((_%f86722%_ _%f86717%_)) + (let _%recur86731%_ ((_%rest186733%_ _%lst186718%_) + (_%rest286734%_ _%lst286719%_)) + (let* ((_%rest18673686744%_ _%rest186733%_) + (_%else8673886752%_ (lambda () '())) + (_%K8674086797%_ + (lambda (_%rest186755%_ _%x186756%_) + (let* ((_%rest28675786765%_ _%rest286734%_) + (_%else8675986773%_ (lambda () '())) + (_%K8676186785%_ + (lambda (_%rest286776%_ _%x286777%_) + (let ((_%$e86779%_ (let () (declare (not safe)) - (_%f86448%_ - _%x186482%_ - _%x286503%_)))) - (if _%$e86505%_ - ((lambda (_%r86508%_) - (cons _%r86508%_ - (_%recur86457%_ - _%rest186481%_ - _%rest286502%_))) - _%$e86505%_) - (_%recur86457%_ - _%rest186481%_ - _%rest286502%_)))))) + (_%f86722%_ + _%x186756%_ + _%x286777%_)))) + (if _%$e86779%_ + ((lambda (_%r86782%_) + (cons _%r86782%_ + (_%recur86731%_ + _%rest186755%_ + _%rest286776%_))) + _%$e86779%_) + (_%recur86731%_ + _%rest186755%_ + _%rest286776%_)))))) (if (let () (declare (not safe)) - (##pair? _%rest28648386491%_)) - (let ((_%hd8648886514%_ + (##pair? _%rest28675786765%_)) + (let ((_%hd8676286788%_ (let () (declare (not safe)) - (##car _%rest28648386491%_))) - (_%tl8648986516%_ + (##car _%rest28675786765%_))) + (_%tl8676386790%_ (let () (declare (not safe)) - (##cdr _%rest28648386491%_)))) - (let* ((_%x286519%_ _%hd8648886514%_) - (_%rest286521%_ _%tl8648986516%_)) - (_%K8648786511%_ _%rest286521%_ _%x286519%_))) - (_%else8648586499%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest18646286470%_)) - (let ((_%hd8646786526%_ + (##cdr _%rest28675786765%_)))) + (let* ((_%x286793%_ _%hd8676286788%_) + (_%rest286795%_ _%tl8676386790%_)) + (_%K8676186785%_ _%rest286795%_ _%x286793%_))) + (_%else8675986773%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest18673686744%_)) + (let ((_%hd8674186800%_ (let () (declare (not safe)) - (##car _%rest18646286470%_))) - (_%tl8646886528%_ + (##car _%rest18673686744%_))) + (_%tl8674286802%_ (let () (declare (not safe)) - (##cdr _%rest18646286470%_)))) - (let* ((_%x186531%_ _%hd8646786526%_) - (_%rest186533%_ _%tl8646886528%_)) - (_%K8646686523%_ _%rest186533%_ _%x186531%_))) - (_%else8646486478%_))))))) + (##cdr _%rest18673686744%_)))) + (let* ((_%x186805%_ _%hd8674186800%_) + (_%rest186807%_ _%tl8674286802%_)) + (_%K8674086797%_ _%rest186807%_ _%x186805%_))) + (_%else8673886752%_))))))) (define filter-map - (lambda _g89728_ - (let ((_g89727_ (let () (declare (not safe)) (##length _g89728_)))) - (cond ((let () (declare (not safe)) (##fx= _g89727_ 2)) - (apply filter-map1 _g89728_)) - ((let () (declare (not safe)) (##fx= _g89727_ 3)) - (apply filter-map2 _g89728_)) - ((let () (declare (not safe)) (##fx>= _g89727_ 3)) - (apply filter-map* _g89728_)) + (lambda _g90002_ + (let ((_g90001_ (let () (declare (not safe)) (##length _g90002_)))) + (cond ((let () (declare (not safe)) (##fx= _g90001_ 2)) + (apply filter-map1 _g90002_)) + ((let () (declare (not safe)) (##fx= _g90001_ 3)) + (apply filter-map2 _g90002_)) + ((let () (declare (not safe)) (##fx>= _g90001_ 3)) + (apply filter-map* _g90002_)) (else (##raise-wrong-number-of-arguments-exception filter-map - _g89728_)))))) + _g90002_)))))) (define filter-map* - (lambda (_%f86416%_ . _%rest86417%_) - (if (procedure? _%f86416%_) - (let ((_%f86421%_ _%f86416%_)) + (lambda (_%f86690%_ . _%rest86691%_) + (if (procedure? _%f86690%_) + (let ((_%f86695%_ _%f86690%_)) (declare (not safe)) - (##apply __filter-map* _%f86421%_ _%rest86417%_)) + (##apply __filter-map* _%f86695%_ _%rest86691%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1111,280 +1111,280 @@ 'contract: 'procedure? 'value: - _%f86416%_) + _%f86690%_) '#!void)))) (define __filter-map* - (lambda (_%f86392%_ . _%rest86393%_) - (let ((_%f86396%_ _%f86392%_)) - (let _%recur86405%_ ((_%rest86407%_ _%rest86393%_)) - (if (__andmap1 pair? _%rest86407%_) - (let ((_%$e86410%_ - (let ((__tmp89729 (map car _%rest86407%_))) + (lambda (_%f86666%_ . _%rest86667%_) + (let ((_%f86670%_ _%f86666%_)) + (let _%recur86679%_ ((_%rest86681%_ _%rest86667%_)) + (if (__andmap1 pair? _%rest86681%_) + (let ((_%$e86684%_ + (let ((__tmp90003 (map car _%rest86681%_))) (declare (not safe)) - (##apply _%f86396%_ __tmp89729)))) - (if _%$e86410%_ - ((lambda (_%r86413%_) - (cons _%r86413%_ - (_%recur86405%_ (map cdr _%rest86407%_)))) - _%$e86410%_) - (_%recur86405%_ (map cdr _%rest86407%_)))) + (##apply _%f86670%_ __tmp90003)))) + (if _%$e86684%_ + ((lambda (_%r86687%_) + (cons _%r86687%_ + (_%recur86679%_ (map cdr _%rest86681%_)))) + _%$e86684%_) + (_%recur86679%_ (map cdr _%rest86681%_)))) '()))))) (define agetq__% - (lambda (_%key86368%_ _%lst86370%_ _%default86372%_) - (let ((_%$e86375%_ - (if (pair? _%lst86370%_) (assq _%key86368%_ _%lst86370%_) '#f))) - (if _%$e86375%_ - (cdr _%$e86375%_) - (if (procedure? _%default86372%_) - (_%default86372%_ _%key86368%_) - _%default86372%_))))) + (lambda (_%key86642%_ _%lst86644%_ _%default86646%_) + (let ((_%$e86649%_ + (if (pair? _%lst86644%_) (assq _%key86642%_ _%lst86644%_) '#f))) + (if _%$e86649%_ + (cdr _%$e86649%_) + (if (procedure? _%default86646%_) + (_%default86646%_ _%key86642%_) + _%default86646%_))))) (define agetq__0 - (lambda (_%key86383%_ _%lst86384%_) - (let ((_%default86386%_ '#f)) - (agetq__% _%key86383%_ _%lst86384%_ _%default86386%_)))) + (lambda (_%key86657%_ _%lst86658%_) + (let ((_%default86660%_ '#f)) + (agetq__% _%key86657%_ _%lst86658%_ _%default86660%_)))) (define agetq - (lambda _g89731_ - (let ((_g89730_ (let () (declare (not safe)) (##length _g89731_)))) - (cond ((let () (declare (not safe)) (##fx= _g89730_ 2)) - (apply agetq__0 _g89731_)) - ((let () (declare (not safe)) (##fx= _g89730_ 3)) - (apply agetq__% _g89731_)) + (lambda _g90005_ + (let ((_g90004_ (let () (declare (not safe)) (##length _g90005_)))) + (cond ((let () (declare (not safe)) (##fx= _g90004_ 2)) + (apply agetq__0 _g90005_)) + ((let () (declare (not safe)) (##fx= _g90004_ 3)) + (apply agetq__% _g90005_)) (else (##raise-wrong-number-of-arguments-exception agetq - _g89731_)))))) + _g90005_)))))) (define agetv__% - (lambda (_%key86343%_ _%lst86345%_ _%default86347%_) - (let ((_%$e86350%_ - (if (pair? _%lst86345%_) (assv _%key86343%_ _%lst86345%_) '#f))) - (if _%$e86350%_ - (cdr _%$e86350%_) - (if (procedure? _%default86347%_) - (_%default86347%_ _%key86343%_) - _%default86347%_))))) + (lambda (_%key86617%_ _%lst86619%_ _%default86621%_) + (let ((_%$e86624%_ + (if (pair? _%lst86619%_) (assv _%key86617%_ _%lst86619%_) '#f))) + (if _%$e86624%_ + (cdr _%$e86624%_) + (if (procedure? _%default86621%_) + (_%default86621%_ _%key86617%_) + _%default86621%_))))) (define agetv__0 - (lambda (_%key86358%_ _%lst86359%_) - (let ((_%default86361%_ '#f)) - (agetv__% _%key86358%_ _%lst86359%_ _%default86361%_)))) + (lambda (_%key86632%_ _%lst86633%_) + (let ((_%default86635%_ '#f)) + (agetv__% _%key86632%_ _%lst86633%_ _%default86635%_)))) (define agetv - (lambda _g89733_ - (let ((_g89732_ (let () (declare (not safe)) (##length _g89733_)))) - (cond ((let () (declare (not safe)) (##fx= _g89732_ 2)) - (apply agetv__0 _g89733_)) - ((let () (declare (not safe)) (##fx= _g89732_ 3)) - (apply agetv__% _g89733_)) + (lambda _g90007_ + (let ((_g90006_ (let () (declare (not safe)) (##length _g90007_)))) + (cond ((let () (declare (not safe)) (##fx= _g90006_ 2)) + (apply agetv__0 _g90007_)) + ((let () (declare (not safe)) (##fx= _g90006_ 3)) + (apply agetv__% _g90007_)) (else (##raise-wrong-number-of-arguments-exception agetv - _g89733_)))))) + _g90007_)))))) (define aget__% - (lambda (_%key86318%_ _%lst86320%_ _%default86322%_) - (let ((_%$e86325%_ - (if (pair? _%lst86320%_) - (assoc _%key86318%_ _%lst86320%_) + (lambda (_%key86592%_ _%lst86594%_ _%default86596%_) + (let ((_%$e86599%_ + (if (pair? _%lst86594%_) + (assoc _%key86592%_ _%lst86594%_) '#f))) - (if _%$e86325%_ - (cdr _%$e86325%_) - (if (procedure? _%default86322%_) - (_%default86322%_ _%key86318%_) - _%default86322%_))))) + (if _%$e86599%_ + (cdr _%$e86599%_) + (if (procedure? _%default86596%_) + (_%default86596%_ _%key86592%_) + _%default86596%_))))) (define aget__0 - (lambda (_%key86333%_ _%lst86334%_) - (let ((_%default86336%_ '#f)) - (aget__% _%key86333%_ _%lst86334%_ _%default86336%_)))) + (lambda (_%key86607%_ _%lst86608%_) + (let ((_%default86610%_ '#f)) + (aget__% _%key86607%_ _%lst86608%_ _%default86610%_)))) (define aget - (lambda _g89735_ - (let ((_g89734_ (let () (declare (not safe)) (##length _g89735_)))) - (cond ((let () (declare (not safe)) (##fx= _g89734_ 2)) - (apply aget__0 _g89735_)) - ((let () (declare (not safe)) (##fx= _g89734_ 3)) - (apply aget__% _g89735_)) + (lambda _g90009_ + (let ((_g90008_ (let () (declare (not safe)) (##length _g90009_)))) + (cond ((let () (declare (not safe)) (##fx= _g90008_ 2)) + (apply aget__0 _g90009_)) + ((let () (declare (not safe)) (##fx= _g90008_ 3)) + (apply aget__% _g90009_)) (else (##raise-wrong-number-of-arguments-exception aget - _g89735_)))))) + _g90009_)))))) (define assgetq agetq) (define assgetv agetv) (define assget aget) (define pgetq__% - (lambda (_%key86247%_ _%lst86249%_ _%default86251%_) - (let _%lp86254%_ ((_%rest86257%_ _%lst86249%_)) - (let* ((_%rest8625986269%_ _%rest86257%_) - (_%else8626186277%_ + (lambda (_%key86521%_ _%lst86523%_ _%default86525%_) + (let _%lp86528%_ ((_%rest86531%_ _%lst86523%_)) + (let* ((_%rest8653386543%_ _%rest86531%_) + (_%else8653586551%_ (lambda () - (if (procedure? _%default86251%_) - (_%default86251%_ _%key86247%_) - _%default86251%_))) - (_%K8626386286%_ - (lambda (_%rest86280%_ _%v86281%_ _%k86283%_) - (if (eq? _%k86283%_ _%key86247%_) - _%v86281%_ - (_%lp86254%_ _%rest86280%_))))) - (if (let () (declare (not safe)) (##pair? _%rest8625986269%_)) - (let ((_%hd8626486289%_ + (if (procedure? _%default86525%_) + (_%default86525%_ _%key86521%_) + _%default86525%_))) + (_%K8653786560%_ + (lambda (_%rest86554%_ _%v86555%_ _%k86557%_) + (if (eq? _%k86557%_ _%key86521%_) + _%v86555%_ + (_%lp86528%_ _%rest86554%_))))) + (if (let () (declare (not safe)) (##pair? _%rest8653386543%_)) + (let ((_%hd8653886563%_ (let () (declare (not safe)) - (##car _%rest8625986269%_))) - (_%tl8626586291%_ + (##car _%rest8653386543%_))) + (_%tl8653986565%_ (let () (declare (not safe)) - (##cdr _%rest8625986269%_)))) - (let ((_%k86294%_ _%hd8626486289%_)) + (##cdr _%rest8653386543%_)))) + (let ((_%k86568%_ _%hd8653886563%_)) (if (let () (declare (not safe)) - (##pair? _%tl8626586291%_)) - (let ((_%hd8626686296%_ + (##pair? _%tl8653986565%_)) + (let ((_%hd8654086570%_ (let () (declare (not safe)) - (##car _%tl8626586291%_))) - (_%tl8626786298%_ + (##car _%tl8653986565%_))) + (_%tl8654186572%_ (let () (declare (not safe)) - (##cdr _%tl8626586291%_)))) - (let* ((_%v86301%_ _%hd8626686296%_) - (_%rest86303%_ _%tl8626786298%_)) - (_%K8626386286%_ - _%rest86303%_ - _%v86301%_ - _%k86294%_))) - (_%else8626186277%_)))) - (_%else8626186277%_)))))) + (##cdr _%tl8653986565%_)))) + (let* ((_%v86575%_ _%hd8654086570%_) + (_%rest86577%_ _%tl8654186572%_)) + (_%K8653786560%_ + _%rest86577%_ + _%v86575%_ + _%k86568%_))) + (_%else8653586551%_)))) + (_%else8653586551%_)))))) (define pgetq__0 - (lambda (_%key86308%_ _%lst86309%_) - (let ((_%default86311%_ '#f)) - (pgetq__% _%key86308%_ _%lst86309%_ _%default86311%_)))) + (lambda (_%key86582%_ _%lst86583%_) + (let ((_%default86585%_ '#f)) + (pgetq__% _%key86582%_ _%lst86583%_ _%default86585%_)))) (define pgetq - (lambda _g89737_ - (let ((_g89736_ (let () (declare (not safe)) (##length _g89737_)))) - (cond ((let () (declare (not safe)) (##fx= _g89736_ 2)) - (apply pgetq__0 _g89737_)) - ((let () (declare (not safe)) (##fx= _g89736_ 3)) - (apply pgetq__% _g89737_)) + (lambda _g90011_ + (let ((_g90010_ (let () (declare (not safe)) (##length _g90011_)))) + (cond ((let () (declare (not safe)) (##fx= _g90010_ 2)) + (apply pgetq__0 _g90011_)) + ((let () (declare (not safe)) (##fx= _g90010_ 3)) + (apply pgetq__% _g90011_)) (else (##raise-wrong-number-of-arguments-exception pgetq - _g89737_)))))) + _g90011_)))))) (define pgetv__% - (lambda (_%key86176%_ _%lst86178%_ _%default86180%_) - (let _%lp86183%_ ((_%rest86186%_ _%lst86178%_)) - (let* ((_%rest8618886198%_ _%rest86186%_) - (_%else8619086206%_ + (lambda (_%key86450%_ _%lst86452%_ _%default86454%_) + (let _%lp86457%_ ((_%rest86460%_ _%lst86452%_)) + (let* ((_%rest8646286472%_ _%rest86460%_) + (_%else8646486480%_ (lambda () - (if (procedure? _%default86180%_) - (_%default86180%_ _%key86176%_) - _%default86180%_))) - (_%K8619286215%_ - (lambda (_%rest86209%_ _%v86210%_ _%k86212%_) - (if (eqv? _%k86212%_ _%key86176%_) - _%v86210%_ - (_%lp86183%_ _%rest86209%_))))) - (if (let () (declare (not safe)) (##pair? _%rest8618886198%_)) - (let ((_%hd8619386218%_ + (if (procedure? _%default86454%_) + (_%default86454%_ _%key86450%_) + _%default86454%_))) + (_%K8646686489%_ + (lambda (_%rest86483%_ _%v86484%_ _%k86486%_) + (if (eqv? _%k86486%_ _%key86450%_) + _%v86484%_ + (_%lp86457%_ _%rest86483%_))))) + (if (let () (declare (not safe)) (##pair? _%rest8646286472%_)) + (let ((_%hd8646786492%_ (let () (declare (not safe)) - (##car _%rest8618886198%_))) - (_%tl8619486220%_ + (##car _%rest8646286472%_))) + (_%tl8646886494%_ (let () (declare (not safe)) - (##cdr _%rest8618886198%_)))) - (let ((_%k86223%_ _%hd8619386218%_)) + (##cdr _%rest8646286472%_)))) + (let ((_%k86497%_ _%hd8646786492%_)) (if (let () (declare (not safe)) - (##pair? _%tl8619486220%_)) - (let ((_%hd8619586225%_ + (##pair? _%tl8646886494%_)) + (let ((_%hd8646986499%_ (let () (declare (not safe)) - (##car _%tl8619486220%_))) - (_%tl8619686227%_ + (##car _%tl8646886494%_))) + (_%tl8647086501%_ (let () (declare (not safe)) - (##cdr _%tl8619486220%_)))) - (let* ((_%v86230%_ _%hd8619586225%_) - (_%rest86232%_ _%tl8619686227%_)) - (_%K8619286215%_ - _%rest86232%_ - _%v86230%_ - _%k86223%_))) - (_%else8619086206%_)))) - (_%else8619086206%_)))))) + (##cdr _%tl8646886494%_)))) + (let* ((_%v86504%_ _%hd8646986499%_) + (_%rest86506%_ _%tl8647086501%_)) + (_%K8646686489%_ + _%rest86506%_ + _%v86504%_ + _%k86497%_))) + (_%else8646486480%_)))) + (_%else8646486480%_)))))) (define pgetv__0 - (lambda (_%key86237%_ _%lst86238%_) - (let ((_%default86240%_ '#f)) - (pgetv__% _%key86237%_ _%lst86238%_ _%default86240%_)))) + (lambda (_%key86511%_ _%lst86512%_) + (let ((_%default86514%_ '#f)) + (pgetv__% _%key86511%_ _%lst86512%_ _%default86514%_)))) (define pgetv - (lambda _g89739_ - (let ((_g89738_ (let () (declare (not safe)) (##length _g89739_)))) - (cond ((let () (declare (not safe)) (##fx= _g89738_ 2)) - (apply pgetv__0 _g89739_)) - ((let () (declare (not safe)) (##fx= _g89738_ 3)) - (apply pgetv__% _g89739_)) + (lambda _g90013_ + (let ((_g90012_ (let () (declare (not safe)) (##length _g90013_)))) + (cond ((let () (declare (not safe)) (##fx= _g90012_ 2)) + (apply pgetv__0 _g90013_)) + ((let () (declare (not safe)) (##fx= _g90012_ 3)) + (apply pgetv__% _g90013_)) (else (##raise-wrong-number-of-arguments-exception pgetv - _g89739_)))))) + _g90013_)))))) (define pget__% - (lambda (_%key86105%_ _%lst86107%_ _%default86109%_) - (let _%lp86112%_ ((_%rest86115%_ _%lst86107%_)) - (let* ((_%rest8611786127%_ _%rest86115%_) - (_%else8611986135%_ + (lambda (_%key86379%_ _%lst86381%_ _%default86383%_) + (let _%lp86386%_ ((_%rest86389%_ _%lst86381%_)) + (let* ((_%rest8639186401%_ _%rest86389%_) + (_%else8639386409%_ (lambda () - (if (procedure? _%default86109%_) - (_%default86109%_ _%key86105%_) - _%default86109%_))) - (_%K8612186144%_ - (lambda (_%rest86138%_ _%v86139%_ _%k86141%_) - (if (equal? _%k86141%_ _%key86105%_) - _%v86139%_ - (_%lp86112%_ _%rest86138%_))))) - (if (let () (declare (not safe)) (##pair? _%rest8611786127%_)) - (let ((_%hd8612286147%_ + (if (procedure? _%default86383%_) + (_%default86383%_ _%key86379%_) + _%default86383%_))) + (_%K8639586418%_ + (lambda (_%rest86412%_ _%v86413%_ _%k86415%_) + (if (equal? _%k86415%_ _%key86379%_) + _%v86413%_ + (_%lp86386%_ _%rest86412%_))))) + (if (let () (declare (not safe)) (##pair? _%rest8639186401%_)) + (let ((_%hd8639686421%_ (let () (declare (not safe)) - (##car _%rest8611786127%_))) - (_%tl8612386149%_ + (##car _%rest8639186401%_))) + (_%tl8639786423%_ (let () (declare (not safe)) - (##cdr _%rest8611786127%_)))) - (let ((_%k86152%_ _%hd8612286147%_)) + (##cdr _%rest8639186401%_)))) + (let ((_%k86426%_ _%hd8639686421%_)) (if (let () (declare (not safe)) - (##pair? _%tl8612386149%_)) - (let ((_%hd8612486154%_ + (##pair? _%tl8639786423%_)) + (let ((_%hd8639886428%_ (let () (declare (not safe)) - (##car _%tl8612386149%_))) - (_%tl8612586156%_ + (##car _%tl8639786423%_))) + (_%tl8639986430%_ (let () (declare (not safe)) - (##cdr _%tl8612386149%_)))) - (let* ((_%v86159%_ _%hd8612486154%_) - (_%rest86161%_ _%tl8612586156%_)) - (_%K8612186144%_ - _%rest86161%_ - _%v86159%_ - _%k86152%_))) - (_%else8611986135%_)))) - (_%else8611986135%_)))))) + (##cdr _%tl8639786423%_)))) + (let* ((_%v86433%_ _%hd8639886428%_) + (_%rest86435%_ _%tl8639986430%_)) + (_%K8639586418%_ + _%rest86435%_ + _%v86433%_ + _%k86426%_))) + (_%else8639386409%_)))) + (_%else8639386409%_)))))) (define pget__0 - (lambda (_%key86166%_ _%lst86167%_) - (let ((_%default86169%_ '#f)) - (pget__% _%key86166%_ _%lst86167%_ _%default86169%_)))) + (lambda (_%key86440%_ _%lst86441%_) + (let ((_%default86443%_ '#f)) + (pget__% _%key86440%_ _%lst86441%_ _%default86443%_)))) (define pget - (lambda _g89741_ - (let ((_g89740_ (let () (declare (not safe)) (##length _g89741_)))) - (cond ((let () (declare (not safe)) (##fx= _g89740_ 2)) - (apply pget__0 _g89741_)) - ((let () (declare (not safe)) (##fx= _g89740_ 3)) - (apply pget__% _g89741_)) + (lambda _g90015_ + (let ((_g90014_ (let () (declare (not safe)) (##length _g90015_)))) + (cond ((let () (declare (not safe)) (##fx= _g90014_ 2)) + (apply pget__0 _g90015_)) + ((let () (declare (not safe)) (##fx= _g90014_ 3)) + (apply pget__% _g90015_)) (else (##raise-wrong-number-of-arguments-exception pget - _g89741_)))))) + _g90015_)))))) (define find - (lambda (_%pred86089%_ _%lst86090%_) - (if (procedure? _%pred86089%_) - (let ((_%pred86094%_ _%pred86089%_)) - (__find _%pred86094%_ _%lst86090%_)) + (lambda (_%pred86363%_ _%lst86364%_) + (if (procedure? _%pred86363%_) + (let ((_%pred86368%_ _%pred86363%_)) + (__find _%pred86368%_ _%lst86364%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1393,20 +1393,20 @@ 'contract: 'procedure? 'value: - _%pred86089%_) + _%pred86363%_) '#!void)))) (define __find - (lambda (_%pred86072%_ _%lst86073%_) - (let* ((_%pred86076%_ _%pred86072%_) - (_%$e86085%_ (__memf _%pred86076%_ _%lst86073%_))) - (if _%$e86085%_ - (let () (declare (not safe)) (##car _%$e86085%_)) + (lambda (_%pred86346%_ _%lst86347%_) + (let* ((_%pred86350%_ _%pred86346%_) + (_%$e86359%_ (__memf _%pred86350%_ _%lst86347%_))) + (if _%$e86359%_ + (let () (declare (not safe)) (##car _%$e86359%_)) '#f)))) (define memf - (lambda (_%proc86057%_ _%lst86058%_) - (if (procedure? _%proc86057%_) - (let ((_%proc86062%_ _%proc86057%_)) - (__memf _%proc86062%_ _%lst86058%_)) + (lambda (_%proc86331%_ _%lst86332%_) + (if (procedure? _%proc86331%_) + (let ((_%proc86336%_ _%proc86331%_)) + (__memf _%proc86336%_ _%lst86332%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1415,114 +1415,114 @@ 'contract: 'procedure? 'value: - _%proc86057%_) + _%proc86331%_) '#!void)))) (define __memf - (lambda (_%proc86007%_ _%lst86008%_) - (let ((_%proc86011%_ _%proc86007%_)) - (let _%lp86020%_ ((_%rest86022%_ _%lst86008%_)) - (let* ((_%rest8602386031%_ _%rest86022%_) - (_%else8602586039%_ (lambda () '#f)) - (_%K8602786045%_ - (lambda (_%tl86042%_ _%hd86043%_) + (lambda (_%proc86281%_ _%lst86282%_) + (let ((_%proc86285%_ _%proc86281%_)) + (let _%lp86294%_ ((_%rest86296%_ _%lst86282%_)) + (let* ((_%rest8629786305%_ _%rest86296%_) + (_%else8629986313%_ (lambda () '#f)) + (_%K8630186319%_ + (lambda (_%tl86316%_ _%hd86317%_) (if (let () (declare (not safe)) - (_%proc86011%_ _%hd86043%_)) - _%rest86022%_ - (_%lp86020%_ _%tl86042%_))))) - (if (let () (declare (not safe)) (##pair? _%rest8602386031%_)) - (let ((_%hd8602886048%_ + (_%proc86285%_ _%hd86317%_)) + _%rest86296%_ + (_%lp86294%_ _%tl86316%_))))) + (if (let () (declare (not safe)) (##pair? _%rest8629786305%_)) + (let ((_%hd8630286322%_ (let () (declare (not safe)) - (##car _%rest8602386031%_))) - (_%tl8602986050%_ + (##car _%rest8629786305%_))) + (_%tl8630386324%_ (let () (declare (not safe)) - (##cdr _%rest8602386031%_)))) - (let* ((_%hd86053%_ _%hd8602886048%_) - (_%tl86055%_ _%tl8602986050%_)) - (_%K8602786045%_ _%tl86055%_ _%hd86053%_))) - (_%else8602586039%_))))))) + (##cdr _%rest8629786305%_)))) + (let* ((_%hd86327%_ _%hd8630286322%_) + (_%tl86329%_ _%tl8630386324%_)) + (_%K8630186319%_ _%tl86329%_ _%hd86327%_))) + (_%else8629986313%_))))))) (define remove1 - (lambda (_%el85960%_ _%lst85962%_) - (let _%lp85965%_ ((_%rest85968%_ _%lst85962%_) (_%r85970%_ '())) - (let* ((_%rest8597285980%_ _%rest85968%_) - (_%else8597485988%_ (lambda () _%lst85962%_)) - (_%K8597685995%_ - (lambda (_%rest85991%_ _%hd85992%_) - (if (equal? _%el85960%_ _%hd85992%_) - (__foldl1 cons _%rest85991%_ _%r85970%_) - (_%lp85965%_ - _%rest85991%_ - (cons _%hd85992%_ _%r85970%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest8597285980%_)) - (let ((_%hd8597785998%_ + (lambda (_%el86234%_ _%lst86236%_) + (let _%lp86239%_ ((_%rest86242%_ _%lst86236%_) (_%r86244%_ '())) + (let* ((_%rest8624686254%_ _%rest86242%_) + (_%else8624886262%_ (lambda () _%lst86236%_)) + (_%K8625086269%_ + (lambda (_%rest86265%_ _%hd86266%_) + (if (equal? _%el86234%_ _%hd86266%_) + (__foldl1 cons _%rest86265%_ _%r86244%_) + (_%lp86239%_ + _%rest86265%_ + (cons _%hd86266%_ _%r86244%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest8624686254%_)) + (let ((_%hd8625186272%_ (let () (declare (not safe)) - (##car _%rest8597285980%_))) - (_%tl8597886000%_ + (##car _%rest8624686254%_))) + (_%tl8625286274%_ (let () (declare (not safe)) - (##cdr _%rest8597285980%_)))) - (let* ((_%hd86003%_ _%hd8597785998%_) - (_%rest86005%_ _%tl8597886000%_)) - (_%K8597685995%_ _%rest86005%_ _%hd86003%_))) - (_%else8597485988%_)))))) + (##cdr _%rest8624686254%_)))) + (let* ((_%hd86277%_ _%hd8625186272%_) + (_%rest86279%_ _%tl8625286274%_)) + (_%K8625086269%_ _%rest86279%_ _%hd86277%_))) + (_%else8624886262%_)))))) (define remv1 - (lambda (_%el85913%_ _%lst85915%_) - (let _%lp85918%_ ((_%rest85921%_ _%lst85915%_) (_%r85923%_ '())) - (let* ((_%rest8592585933%_ _%rest85921%_) - (_%else8592785941%_ (lambda () _%lst85915%_)) - (_%K8592985948%_ - (lambda (_%rest85944%_ _%hd85945%_) - (if (eqv? _%el85913%_ _%hd85945%_) - (__foldl1 cons _%rest85944%_ _%r85923%_) - (_%lp85918%_ - _%rest85944%_ - (cons _%hd85945%_ _%r85923%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest8592585933%_)) - (let ((_%hd8593085951%_ + (lambda (_%el86187%_ _%lst86189%_) + (let _%lp86192%_ ((_%rest86195%_ _%lst86189%_) (_%r86197%_ '())) + (let* ((_%rest8619986207%_ _%rest86195%_) + (_%else8620186215%_ (lambda () _%lst86189%_)) + (_%K8620386222%_ + (lambda (_%rest86218%_ _%hd86219%_) + (if (eqv? _%el86187%_ _%hd86219%_) + (__foldl1 cons _%rest86218%_ _%r86197%_) + (_%lp86192%_ + _%rest86218%_ + (cons _%hd86219%_ _%r86197%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest8619986207%_)) + (let ((_%hd8620486225%_ (let () (declare (not safe)) - (##car _%rest8592585933%_))) - (_%tl8593185953%_ + (##car _%rest8619986207%_))) + (_%tl8620586227%_ (let () (declare (not safe)) - (##cdr _%rest8592585933%_)))) - (let* ((_%hd85956%_ _%hd8593085951%_) - (_%rest85958%_ _%tl8593185953%_)) - (_%K8592985948%_ _%rest85958%_ _%hd85956%_))) - (_%else8592785941%_)))))) + (##cdr _%rest8619986207%_)))) + (let* ((_%hd86230%_ _%hd8620486225%_) + (_%rest86232%_ _%tl8620586227%_)) + (_%K8620386222%_ _%rest86232%_ _%hd86230%_))) + (_%else8620186215%_)))))) (define remq1 - (lambda (_%el85866%_ _%lst85868%_) - (let _%lp85871%_ ((_%rest85874%_ _%lst85868%_) (_%r85876%_ '())) - (let* ((_%rest8587885886%_ _%rest85874%_) - (_%else8588085894%_ (lambda () _%lst85868%_)) - (_%K8588285901%_ - (lambda (_%rest85897%_ _%hd85898%_) - (if (eq? _%el85866%_ _%hd85898%_) - (__foldl1 cons _%rest85897%_ _%r85876%_) - (_%lp85871%_ - _%rest85897%_ - (cons _%hd85898%_ _%r85876%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest8587885886%_)) - (let ((_%hd8588385904%_ + (lambda (_%el86140%_ _%lst86142%_) + (let _%lp86145%_ ((_%rest86148%_ _%lst86142%_) (_%r86150%_ '())) + (let* ((_%rest8615286160%_ _%rest86148%_) + (_%else8615486168%_ (lambda () _%lst86142%_)) + (_%K8615686175%_ + (lambda (_%rest86171%_ _%hd86172%_) + (if (eq? _%el86140%_ _%hd86172%_) + (__foldl1 cons _%rest86171%_ _%r86150%_) + (_%lp86145%_ + _%rest86171%_ + (cons _%hd86172%_ _%r86150%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest8615286160%_)) + (let ((_%hd8615786178%_ (let () (declare (not safe)) - (##car _%rest8587885886%_))) - (_%tl8588485906%_ + (##car _%rest8615286160%_))) + (_%tl8615886180%_ (let () (declare (not safe)) - (##cdr _%rest8587885886%_)))) - (let* ((_%hd85909%_ _%hd8588385904%_) - (_%rest85911%_ _%tl8588485906%_)) - (_%K8588285901%_ _%rest85911%_ _%hd85909%_))) - (_%else8588085894%_)))))) + (##cdr _%rest8615286160%_)))) + (let* ((_%hd86183%_ _%hd8615786178%_) + (_%rest86185%_ _%tl8615886180%_)) + (_%K8615686175%_ _%rest86185%_ _%hd86183%_))) + (_%else8615486168%_)))))) (define remf - (lambda (_%proc85851%_ _%lst85852%_) - (if (procedure? _%proc85851%_) - (let ((_%proc85856%_ _%proc85851%_)) - (__remf _%proc85856%_ _%lst85852%_)) + (lambda (_%proc86125%_ _%lst86126%_) + (if (procedure? _%proc86125%_) + (let ((_%proc86130%_ _%proc86125%_)) + (__remf _%proc86130%_ _%lst86126%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1531,40 +1531,40 @@ 'contract: 'procedure? 'value: - _%proc85851%_) + _%proc86125%_) '#!void)))) (define __remf - (lambda (_%proc85800%_ _%lst85801%_) - (let ((_%proc85804%_ _%proc85800%_)) - (let _%lp85813%_ ((_%rest85815%_ _%lst85801%_) (_%r85816%_ '())) - (let* ((_%rest8581785825%_ _%rest85815%_) - (_%else8581985833%_ (lambda () _%lst85801%_)) - (_%K8582185839%_ - (lambda (_%rest85836%_ _%hd85837%_) + (lambda (_%proc86074%_ _%lst86075%_) + (let ((_%proc86078%_ _%proc86074%_)) + (let _%lp86087%_ ((_%rest86089%_ _%lst86075%_) (_%r86090%_ '())) + (let* ((_%rest8609186099%_ _%rest86089%_) + (_%else8609386107%_ (lambda () _%lst86075%_)) + (_%K8609586113%_ + (lambda (_%rest86110%_ _%hd86111%_) (if (let () (declare (not safe)) - (_%proc85804%_ _%hd85837%_)) - (__foldl1 cons _%rest85836%_ _%r85816%_) - (_%lp85813%_ - _%rest85836%_ - (cons _%hd85837%_ _%r85816%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest8581785825%_)) - (let ((_%hd8582285842%_ + (_%proc86078%_ _%hd86111%_)) + (__foldl1 cons _%rest86110%_ _%r86090%_) + (_%lp86087%_ + _%rest86110%_ + (cons _%hd86111%_ _%r86090%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest8609186099%_)) + (let ((_%hd8609686116%_ (let () (declare (not safe)) - (##car _%rest8581785825%_))) - (_%tl8582385844%_ + (##car _%rest8609186099%_))) + (_%tl8609786118%_ (let () (declare (not safe)) - (##cdr _%rest8581785825%_)))) - (let* ((_%hd85847%_ _%hd8582285842%_) - (_%rest85849%_ _%tl8582385844%_)) - (_%K8582185839%_ _%rest85849%_ _%hd85847%_))) - (_%else8581985833%_))))))) + (##cdr _%rest8609186099%_)))) + (let* ((_%hd86121%_ _%hd8609686116%_) + (_%rest86123%_ _%tl8609786118%_)) + (_%K8609586113%_ _%rest86123%_ _%hd86121%_))) + (_%else8609386107%_))))))) (define 1+ - (lambda (_%x85786%_) - (if (number? _%x85786%_) - (let ((_%x85790%_ _%x85786%_)) (__1+ _%x85790%_)) + (lambda (_%x86060%_) + (if (number? _%x86060%_) + (let ((_%x86064%_ _%x86060%_)) (__1+ _%x86064%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1573,14 +1573,14 @@ 'contract: 'number? 'value: - _%x85786%_) + _%x86060%_) '#!void)))) (define __1+ - (lambda (_%x85774%_) (let ((_%x85777%_ _%x85774%_)) (+ _%x85777%_ '1)))) + (lambda (_%x86048%_) (let ((_%x86051%_ _%x86048%_)) (+ _%x86051%_ '1)))) (define 1- - (lambda (_%x85760%_) - (if (number? _%x85760%_) - (let ((_%x85764%_ _%x85760%_)) (__1- _%x85764%_)) + (lambda (_%x86034%_) + (if (number? _%x86034%_) + (let ((_%x86038%_ _%x86034%_)) (__1- _%x86038%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1589,14 +1589,14 @@ 'contract: 'number? 'value: - _%x85760%_) + _%x86034%_) '#!void)))) (define __1- - (lambda (_%x85748%_) (let ((_%x85751%_ _%x85748%_)) (- _%x85751%_ '1)))) + (lambda (_%x86022%_) (let ((_%x86025%_ _%x86022%_)) (- _%x86025%_ '1)))) (define fx1+ - (lambda (_%x85734%_) - (if (fixnum? _%x85734%_) - (let ((_%x85738%_ _%x85734%_)) (__fx1+ _%x85738%_)) + (lambda (_%x86008%_) + (if (fixnum? _%x86008%_) + (let ((_%x86012%_ _%x86008%_)) (__fx1+ _%x86012%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1605,17 +1605,17 @@ 'contract: 'fixnum? 'value: - _%x85734%_) + _%x86008%_) '#!void)))) (define __fx1+ - (lambda (_%x85722%_) - (let ((_%x85725%_ _%x85722%_)) + (lambda (_%x85996%_) + (let ((_%x85999%_ _%x85996%_)) (declare (not safe)) - (##fx+ _%x85725%_ '1)))) + (##fx+ _%x85999%_ '1)))) (define fx1- - (lambda (_%x85708%_) - (if (fixnum? _%x85708%_) - (let ((_%x85712%_ _%x85708%_)) (__fx1- _%x85712%_)) + (lambda (_%x85982%_) + (if (fixnum? _%x85982%_) + (let ((_%x85986%_ _%x85982%_)) (__fx1- _%x85986%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1624,46 +1624,46 @@ 'contract: 'fixnum? 'value: - _%x85708%_) + _%x85982%_) '#!void)))) (define __fx1- - (lambda (_%x85696%_) - (let ((_%x85699%_ _%x85696%_)) + (lambda (_%x85970%_) + (let ((_%x85973%_ _%x85970%_)) (declare (not safe)) - (##fx- _%x85699%_ '1)))) + (##fx- _%x85973%_ '1)))) (define fxshift fxarithmetic-shift) (define fx/ fxquotient) (define fx>=0? - (lambda (_%x85693%_) - (if (fixnum? _%x85693%_) - (let () (declare (not safe)) (##fx>= _%x85693%_ '0)) + (lambda (_%x85967%_) + (if (fixnum? _%x85967%_) + (let () (declare (not safe)) (##fx>= _%x85967%_ '0)) '#f))) (define fx>0? - (lambda (_%x85690%_) - (if (fixnum? _%x85690%_) - (let () (declare (not safe)) (##fx> _%x85690%_ '0)) + (lambda (_%x85964%_) + (if (fixnum? _%x85964%_) + (let () (declare (not safe)) (##fx> _%x85964%_ '0)) '#f))) (define fx=0? - (lambda (_%x85687%_) - (let () (declare (not safe)) (##fx= _%x85687%_ '0)))) + (lambda (_%x85961%_) + (let () (declare (not safe)) (##fx= _%x85961%_ '0)))) (define fx<0? - (lambda (_%x85684%_) - (if (fixnum? _%x85684%_) - (let () (declare (not safe)) (##fx< _%x85684%_ '0)) + (lambda (_%x85958%_) + (if (fixnum? _%x85958%_) + (let () (declare (not safe)) (##fx< _%x85958%_ '0)) '#f))) (define fx<=0? - (lambda (_%x85681%_) - (if (fixnum? _%x85681%_) - (let () (declare (not safe)) (##fx<= _%x85681%_ '0)) + (lambda (_%x85955%_) + (if (fixnum? _%x85955%_) + (let () (declare (not safe)) (##fx<= _%x85955%_ '0)) '#f))) (define interned-symbol? - (lambda (_%x85678%_) - (if (symbol? _%x85678%_) (not (uninterned-symbol? _%x85678%_)) '#f))) + (lambda (_%x85952%_) + (if (symbol? _%x85952%_) (not (uninterned-symbol? _%x85952%_)) '#f))) (define display-as-string - (lambda (_%x85663%_ _%port85664%_) - (if (output-port? _%port85664%_) - (let ((_%port85668%_ _%port85664%_)) - (__display-as-string _%x85663%_ _%port85668%_)) + (lambda (_%x85937%_ _%port85938%_) + (if (output-port? _%port85938%_) + (let ((_%port85942%_ _%port85938%_)) + (__display-as-string _%x85937%_ _%port85942%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1672,147 +1672,147 @@ 'contract: 'output-port? 'value: - _%port85664%_) + _%port85938%_) '#!void)))) (define __display-as-string - (lambda (_%x85620%_ _%port85621%_) - (let ((_%port85624%_ _%port85621%_)) - (if (or (string? _%x85620%_) - (symbol? _%x85620%_) - (keyword? _%x85620%_) - (number? _%x85620%_) - (char? _%x85620%_)) - (display _%x85620%_ _%port85624%_) - (if (pair? _%x85620%_) + (lambda (_%x85894%_ _%port85895%_) + (let ((_%port85898%_ _%port85895%_)) + (if (or (string? _%x85894%_) + (symbol? _%x85894%_) + (keyword? _%x85894%_) + (number? _%x85894%_) + (char? _%x85894%_)) + (display _%x85894%_ _%port85898%_) + (if (pair? _%x85894%_) (let () (__display-as-string - (let () (declare (not safe)) (##car _%x85620%_)) - _%port85624%_) + (let () (declare (not safe)) (##car _%x85894%_)) + _%port85898%_) (__display-as-string - (let () (declare (not safe)) (##cdr _%x85620%_)) - _%port85624%_)) - (if (vector? _%x85620%_) + (let () (declare (not safe)) (##cdr _%x85894%_)) + _%port85898%_)) + (if (vector? _%x85894%_) (vector-for-each - (lambda (_%g8564785649%_) - (__display-as-string _%g8564785649%_ _%port85624%_)) - _%x85620%_) - (if (or (null? _%x85620%_) - (eq? _%x85620%_ '#!void) - (eof-object? _%x85620%_) - (boolean? _%x85620%_)) + (lambda (_%g8592185923%_) + (__display-as-string _%g8592185923%_ _%port85898%_)) + _%x85894%_) + (if (or (null? _%x85894%_) + (eq? _%x85894%_ '#!void) + (eof-object? _%x85894%_) + (boolean? _%x85894%_)) '#!void (let () - (error '"cannot convert as string" _%x85620%_) + (error '"cannot convert as string" _%x85894%_) '#!void)))))))) (define as-string__0 - (lambda (_%x85603%_) - (if (string? _%x85603%_) - _%x85603%_ - (if (symbol? _%x85603%_) - (let () (declare (not safe)) (##symbol->string _%x85603%_)) - (if (keyword? _%x85603%_) + (lambda (_%x85877%_) + (if (string? _%x85877%_) + _%x85877%_ + (if (symbol? _%x85877%_) + (let () (declare (not safe)) (##symbol->string _%x85877%_)) + (if (keyword? _%x85877%_) (let () (declare (not safe)) - (##keyword->string _%x85603%_)) - (if (number? _%x85603%_) + (##keyword->string _%x85877%_)) + (if (number? _%x85877%_) (let () (declare (not safe)) - (##number->string _%x85603%_)) + (##number->string _%x85877%_)) (call-with-output-string '() - (lambda (_%g8560985611%_) + (lambda (_%g8588385885%_) (__display-as-string - _%x85603%_ - _%g8560985611%_))))))))) + _%x85877%_ + _%g8588385885%_))))))))) (define as-string__1 - (lambda _%args85614%_ + (lambda _%args85888%_ (call-with-output-string '() - (lambda (_%g8561585617%_) - (__display-as-string _%args85614%_ _%g8561585617%_))))) + (lambda (_%g8588985891%_) + (__display-as-string _%args85888%_ _%g8588985891%_))))) (define as-string - (lambda _g89743_ - (let ((_g89742_ (let () (declare (not safe)) (##length _g89743_)))) - (cond ((let () (declare (not safe)) (##fx= _g89742_ 1)) - (apply as-string__0 _g89743_)) + (lambda _g90017_ + (let ((_g90016_ (let () (declare (not safe)) (##length _g90017_)))) + (cond ((let () (declare (not safe)) (##fx= _g90016_ 1)) + (apply as-string__0 _g90017_)) (#t - (apply (lambda _%args85614%_ + (apply (lambda _%args85888%_ (let () (declare (not safe)) - (##apply as-string__1 _%args85614%_))) - _g89743_)) + (##apply as-string__1 _%args85888%_))) + _g90017_)) (else (##raise-wrong-number-of-arguments-exception as-string - _g89743_)))))) + _g90017_)))))) (define make-symbol__0 - (lambda (_%x85599%_) - (if (interned-symbol? _%x85599%_) - _%x85599%_ - (let ((__tmp89744 (as-string__0 _%x85599%_))) + (lambda (_%x85873%_) + (if (interned-symbol? _%x85873%_) + _%x85873%_ + (let ((__tmp90018 (as-string__0 _%x85873%_))) (declare (not safe)) - (##string->symbol __tmp89744))))) + (##string->symbol __tmp90018))))) (define make-symbol__1 - (lambda _%args85601%_ - (let ((__tmp89745 + (lambda _%args85875%_ + (let ((__tmp90019 (let () (declare (not safe)) - (##apply as-string _%args85601%_)))) + (##apply as-string _%args85875%_)))) (declare (not safe)) - (##string->symbol __tmp89745)))) + (##string->symbol __tmp90019)))) (define make-symbol - (lambda _g89747_ - (let ((_g89746_ (let () (declare (not safe)) (##length _g89747_)))) - (cond ((let () (declare (not safe)) (##fx= _g89746_ 1)) - (apply make-symbol__0 _g89747_)) + (lambda _g90021_ + (let ((_g90020_ (let () (declare (not safe)) (##length _g90021_)))) + (cond ((let () (declare (not safe)) (##fx= _g90020_ 1)) + (apply make-symbol__0 _g90021_)) (#t - (apply (lambda _%args85601%_ + (apply (lambda _%args85875%_ (let () (declare (not safe)) - (##apply make-symbol__1 _%args85601%_))) - _g89747_)) + (##apply make-symbol__1 _%args85875%_))) + _g90021_)) (else (##raise-wrong-number-of-arguments-exception make-symbol - _g89747_)))))) + _g90021_)))))) (define make-keyword__0 - (lambda (_%x85595%_) - (if (interned-keyword? _%x85595%_) - _%x85595%_ - (let ((__tmp89748 (as-string__0 _%x85595%_))) + (lambda (_%x85869%_) + (if (interned-keyword? _%x85869%_) + _%x85869%_ + (let ((__tmp90022 (as-string__0 _%x85869%_))) (declare (not safe)) - (##string->keyword __tmp89748))))) + (##string->keyword __tmp90022))))) (define make-keyword__1 - (lambda _%args85597%_ - (let ((__tmp89749 + (lambda _%args85871%_ + (let ((__tmp90023 (let () (declare (not safe)) - (##apply as-string _%args85597%_)))) + (##apply as-string _%args85871%_)))) (declare (not safe)) - (##string->keyword __tmp89749)))) + (##string->keyword __tmp90023)))) (define make-keyword - (lambda _g89751_ - (let ((_g89750_ (let () (declare (not safe)) (##length _g89751_)))) - (cond ((let () (declare (not safe)) (##fx= _g89750_ 1)) - (apply make-keyword__0 _g89751_)) + (lambda _g90025_ + (let ((_g90024_ (let () (declare (not safe)) (##length _g90025_)))) + (cond ((let () (declare (not safe)) (##fx= _g90024_ 1)) + (apply make-keyword__0 _g90025_)) (#t - (apply (lambda _%args85597%_ + (apply (lambda _%args85871%_ (let () (declare (not safe)) - (##apply make-keyword__1 _%args85597%_))) - _g89751_)) + (##apply make-keyword__1 _%args85871%_))) + _g90025_)) (else (##raise-wrong-number-of-arguments-exception make-keyword - _g89751_)))))) + _g90025_)))))) (define interned-keyword? - (lambda (_%x85592%_) - (if (keyword? _%x85592%_) (not (uninterned-keyword? _%x85592%_)) '#f))) + (lambda (_%x85866%_) + (if (keyword? _%x85866%_) (not (uninterned-keyword? _%x85866%_)) '#f))) (define symbol->keyword - (lambda (_%sym85578%_) - (if (symbol? _%sym85578%_) - (let ((_%sym85582%_ _%sym85578%_)) - (__symbol->keyword _%sym85582%_)) + (lambda (_%sym85852%_) + (if (symbol? _%sym85852%_) + (let ((_%sym85856%_ _%sym85852%_)) + (__symbol->keyword _%sym85856%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1821,29 +1821,29 @@ 'contract: 'symbol? 'value: - _%sym85578%_) + _%sym85852%_) '#!void)))) (define __symbol->keyword - (lambda (_%sym85566%_) - (let ((_%sym85569%_ _%sym85566%_)) - (if (uninterned-symbol? _%sym85569%_) - (let ((__tmp89752 + (lambda (_%sym85840%_) + (let ((_%sym85843%_ _%sym85840%_)) + (if (uninterned-symbol? _%sym85843%_) + (let ((__tmp90026 (let () (declare (not safe)) - (##symbol->string _%sym85569%_)))) + (##symbol->string _%sym85843%_)))) (declare (not safe)) - (##string->uninterned-keyword __tmp89752)) - (let ((__tmp89753 + (##string->uninterned-keyword __tmp90026)) + (let ((__tmp90027 (let () (declare (not safe)) - (##symbol->string _%sym85569%_)))) + (##symbol->string _%sym85843%_)))) (declare (not safe)) - (##string->keyword __tmp89753)))))) + (##string->keyword __tmp90027)))))) (define keyword->symbol - (lambda (_%sym85552%_) - (if (keyword? _%sym85552%_) - (let ((_%sym85556%_ _%sym85552%_)) - (__keyword->symbol _%sym85556%_)) + (lambda (_%sym85826%_) + (if (keyword? _%sym85826%_) + (let ((_%sym85830%_ _%sym85826%_)) + (__keyword->symbol _%sym85830%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1852,31 +1852,31 @@ 'contract: 'keyword? 'value: - _%sym85552%_) + _%sym85826%_) '#!void)))) (define __keyword->symbol - (lambda (_%sym85540%_) - (let ((_%sym85543%_ _%sym85540%_)) - (if (uninterned-keyword? _%sym85543%_) - (let ((__tmp89754 + (lambda (_%sym85814%_) + (let ((_%sym85817%_ _%sym85814%_)) + (if (uninterned-keyword? _%sym85817%_) + (let ((__tmp90028 (let () (declare (not safe)) - (##keyword->string _%sym85543%_)))) + (##keyword->string _%sym85817%_)))) (declare (not safe)) - (##string->uninterned-symbol __tmp89754)) - (let ((__tmp89755 + (##string->uninterned-symbol __tmp90028)) + (let ((__tmp90029 (let () (declare (not safe)) - (##keyword->string _%sym85543%_)))) + (##keyword->string _%sym85817%_)))) (declare (not safe)) - (##string->symbol __tmp89755)))))) + (##string->symbol __tmp90029)))))) (define bytes->string__% - (lambda (_%bstr85505%_ _%enc85506%_) - (if (u8vector? _%bstr85505%_) - (let ((_%bstr85510%_ _%bstr85505%_)) - (if (symbol? _%enc85506%_) - (let ((_%enc85520%_ _%enc85506%_)) - (__bytes->string__% _%bstr85510%_ _%enc85520%_)) + (lambda (_%bstr85779%_ _%enc85780%_) + (if (u8vector? _%bstr85779%_) + (let ((_%bstr85784%_ _%bstr85779%_)) + (if (symbol? _%enc85780%_) + (let ((_%enc85794%_ _%enc85780%_)) + (__bytes->string__% _%bstr85784%_ _%enc85794%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1885,7 +1885,7 @@ 'contract: 'symbol? 'value: - _%enc85506%_) + _%enc85780%_) '#!void))) (begin (raise-contract-violation-error @@ -1895,71 +1895,71 @@ 'contract: 'u8vector? 'value: - _%bstr85505%_) + _%bstr85779%_) '#!void)))) (define bytes->string__0 - (lambda (_%bstr85533%_) - (let ((_%enc85535%_ 'UTF-8)) - (bytes->string__% _%bstr85533%_ _%enc85535%_)))) + (lambda (_%bstr85807%_) + (let ((_%enc85809%_ 'UTF-8)) + (bytes->string__% _%bstr85807%_ _%enc85809%_)))) (define bytes->string - (lambda _g89757_ - (let ((_g89756_ (let () (declare (not safe)) (##length _g89757_)))) - (cond ((let () (declare (not safe)) (##fx= _g89756_ 1)) - (apply bytes->string__0 _g89757_)) - ((let () (declare (not safe)) (##fx= _g89756_ 2)) - (apply bytes->string__% _g89757_)) + (lambda _g90031_ + (let ((_g90030_ (let () (declare (not safe)) (##length _g90031_)))) + (cond ((let () (declare (not safe)) (##fx= _g90030_ 1)) + (apply bytes->string__0 _g90031_)) + ((let () (declare (not safe)) (##fx= _g90030_ 2)) + (apply bytes->string__% _g90031_)) (else (##raise-wrong-number-of-arguments-exception bytes->string - _g89757_)))))) + _g90031_)))))) (define __bytes->string__% - (lambda (_%bstr85464%_ _%enc85465%_) - (let* ((_%bstr85468%_ _%bstr85464%_) (_%enc85476%_ _%enc85465%_)) - (if (eq? _%enc85476%_ 'UTF-8) - (let () (declare (not safe)) (##utf8->string _%bstr85468%_)) - (let* ((_%in85485%_ + (lambda (_%bstr85738%_ _%enc85739%_) + (let* ((_%bstr85742%_ _%bstr85738%_) (_%enc85750%_ _%enc85739%_)) + (if (eq? _%enc85750%_ 'UTF-8) + (let () (declare (not safe)) (##utf8->string _%bstr85742%_)) + (let* ((_%in85759%_ (open-input-u8vector (cons 'char-encoding: - (cons _%enc85476%_ - (cons 'init: (cons _%bstr85468%_ '())))))) - (_%len85487%_ + (cons _%enc85750%_ + (cons 'init: (cons _%bstr85742%_ '())))))) + (_%len85761%_ (let () (declare (not safe)) - (##u8vector-length _%bstr85468%_))) - (_%out85489%_ + (##u8vector-length _%bstr85742%_))) + (_%out85763%_ (let () (declare (not safe)) - (##make-string _%len85487%_))) - (_%n85491%_ + (##make-string _%len85761%_))) + (_%n85765%_ (read-substring - _%out85489%_ + _%out85763%_ '0 - _%len85487%_ - _%in85485%_))) - (string-shrink! _%out85489%_ _%n85491%_) - _%out85489%_))))) + _%len85761%_ + _%in85759%_))) + (string-shrink! _%out85763%_ _%n85765%_) + _%out85763%_))))) (define __bytes->string__0 - (lambda (_%bstr85497%_) - (let ((_%enc85499%_ 'UTF-8)) - (__bytes->string__% _%bstr85497%_ _%enc85499%_)))) + (lambda (_%bstr85771%_) + (let ((_%enc85773%_ 'UTF-8)) + (__bytes->string__% _%bstr85771%_ _%enc85773%_)))) (define __bytes->string - (lambda _g89759_ - (let ((_g89758_ (let () (declare (not safe)) (##length _g89759_)))) - (cond ((let () (declare (not safe)) (##fx= _g89758_ 1)) - (apply __bytes->string__0 _g89759_)) - ((let () (declare (not safe)) (##fx= _g89758_ 2)) - (apply __bytes->string__% _g89759_)) + (lambda _g90033_ + (let ((_g90032_ (let () (declare (not safe)) (##length _g90033_)))) + (cond ((let () (declare (not safe)) (##fx= _g90032_ 1)) + (apply __bytes->string__0 _g90033_)) + ((let () (declare (not safe)) (##fx= _g90032_ 2)) + (apply __bytes->string__% _g90033_)) (else (##raise-wrong-number-of-arguments-exception __bytes->string - _g89759_)))))) + _g90033_)))))) (define string->bytes__% - (lambda (_%str85428%_ _%enc85429%_) - (if (string? _%str85428%_) - (let ((_%str85433%_ _%str85428%_)) - (if (symbol? _%enc85429%_) - (let ((_%enc85443%_ _%enc85429%_)) - (__string->bytes__% _%str85433%_ _%enc85443%_)) + (lambda (_%str85702%_ _%enc85703%_) + (if (string? _%str85702%_) + (let ((_%str85707%_ _%str85702%_)) + (if (symbol? _%enc85703%_) + (let ((_%enc85717%_ _%enc85703%_)) + (__string->bytes__% _%str85707%_ _%enc85717%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1968,7 +1968,7 @@ 'contract: 'symbol? 'value: - _%enc85429%_) + _%enc85703%_) '#!void))) (begin (raise-contract-violation-error @@ -1978,61 +1978,61 @@ 'contract: 'string? 'value: - _%str85428%_) + _%str85702%_) '#!void)))) (define string->bytes__0 - (lambda (_%str85456%_) - (let ((_%enc85458%_ 'UTF-8)) - (string->bytes__% _%str85456%_ _%enc85458%_)))) + (lambda (_%str85730%_) + (let ((_%enc85732%_ 'UTF-8)) + (string->bytes__% _%str85730%_ _%enc85732%_)))) (define string->bytes - (lambda _g89761_ - (let ((_g89760_ (let () (declare (not safe)) (##length _g89761_)))) - (cond ((let () (declare (not safe)) (##fx= _g89760_ 1)) - (apply string->bytes__0 _g89761_)) - ((let () (declare (not safe)) (##fx= _g89760_ 2)) - (apply string->bytes__% _g89761_)) + (lambda _g90035_ + (let ((_g90034_ (let () (declare (not safe)) (##length _g90035_)))) + (cond ((let () (declare (not safe)) (##fx= _g90034_ 1)) + (apply string->bytes__0 _g90035_)) + ((let () (declare (not safe)) (##fx= _g90034_ 2)) + (apply string->bytes__% _g90035_)) (else (##raise-wrong-number-of-arguments-exception string->bytes - _g89761_)))))) + _g90035_)))))) (define __string->bytes__% - (lambda (_%str85396%_ _%enc85397%_) - (let* ((_%str85400%_ _%str85396%_) (_%enc85408%_ _%enc85397%_)) - (if (eq? _%enc85408%_ 'UTF-8) - (let () (declare (not safe)) (##string->utf8 _%str85400%_)) + (lambda (_%str85670%_ _%enc85671%_) + (let* ((_%str85674%_ _%str85670%_) (_%enc85682%_ _%enc85671%_)) + (if (eq? _%enc85682%_ 'UTF-8) + (let () (declare (not safe)) (##string->utf8 _%str85674%_)) (__substring->bytes__% - _%str85400%_ + _%str85674%_ '0 - (let () (declare (not safe)) (##string-length _%str85400%_)) - _%enc85408%_))))) + (let () (declare (not safe)) (##string-length _%str85674%_)) + _%enc85682%_))))) (define __string->bytes__0 - (lambda (_%str85420%_) - (let ((_%enc85422%_ 'UTF-8)) - (__string->bytes__% _%str85420%_ _%enc85422%_)))) + (lambda (_%str85694%_) + (let ((_%enc85696%_ 'UTF-8)) + (__string->bytes__% _%str85694%_ _%enc85696%_)))) (define __string->bytes - (lambda _g89763_ - (let ((_g89762_ (let () (declare (not safe)) (##length _g89763_)))) - (cond ((let () (declare (not safe)) (##fx= _g89762_ 1)) - (apply __string->bytes__0 _g89763_)) - ((let () (declare (not safe)) (##fx= _g89762_ 2)) - (apply __string->bytes__% _g89763_)) + (lambda _g90037_ + (let ((_g90036_ (let () (declare (not safe)) (##length _g90037_)))) + (cond ((let () (declare (not safe)) (##fx= _g90036_ 1)) + (apply __string->bytes__0 _g90037_)) + ((let () (declare (not safe)) (##fx= _g90036_ 2)) + (apply __string->bytes__% _g90037_)) (else (##raise-wrong-number-of-arguments-exception __string->bytes - _g89763_)))))) + _g90037_)))))) (define substring->bytes__% - (lambda (_%str85344%_ _%start85345%_ _%end85346%_ _%enc85347%_) - (if (string? _%str85344%_) - (let ((_%str85351%_ _%str85344%_)) - (if (nonnegative-fixnum? _%start85345%_) - (let ((_%start85361%_ _%start85345%_)) - (if (nonnegative-fixnum? _%end85346%_) - (let ((_%end85371%_ _%end85346%_)) + (lambda (_%str85618%_ _%start85619%_ _%end85620%_ _%enc85621%_) + (if (string? _%str85618%_) + (let ((_%str85625%_ _%str85618%_)) + (if (nonnegative-fixnum? _%start85619%_) + (let ((_%start85635%_ _%start85619%_)) + (if (nonnegative-fixnum? _%end85620%_) + (let ((_%end85645%_ _%end85620%_)) (__substring->bytes__% - _%str85351%_ - _%start85361%_ - _%end85371%_ - _%enc85347%_)) + _%str85625%_ + _%start85635%_ + _%end85645%_ + _%enc85621%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2041,7 +2041,7 @@ 'contract: 'nonnegative-fixnum? 'value: - _%end85346%_) + _%end85620%_) '#!void))) (begin (raise-contract-violation-error @@ -2051,7 +2051,7 @@ 'contract: 'nonnegative-fixnum? 'value: - _%start85345%_) + _%start85619%_) '#!void))) (begin (raise-contract-violation-error @@ -2061,66 +2061,66 @@ 'contract: 'string? 'value: - _%str85344%_) + _%str85618%_) '#!void)))) (define substring->bytes__0 - (lambda (_%str85384%_ _%start85385%_ _%end85386%_) - (let ((_%enc85388%_ 'UTF-8)) + (lambda (_%str85658%_ _%start85659%_ _%end85660%_) + (let ((_%enc85662%_ 'UTF-8)) (substring->bytes__% - _%str85384%_ - _%start85385%_ - _%end85386%_ - _%enc85388%_)))) + _%str85658%_ + _%start85659%_ + _%end85660%_ + _%enc85662%_)))) (define substring->bytes - (lambda _g89765_ - (let ((_g89764_ (let () (declare (not safe)) (##length _g89765_)))) - (cond ((let () (declare (not safe)) (##fx= _g89764_ 3)) - (apply substring->bytes__0 _g89765_)) - ((let () (declare (not safe)) (##fx= _g89764_ 4)) - (apply substring->bytes__% _g89765_)) + (lambda _g90039_ + (let ((_g90038_ (let () (declare (not safe)) (##length _g90039_)))) + (cond ((let () (declare (not safe)) (##fx= _g90038_ 3)) + (apply substring->bytes__0 _g90039_)) + ((let () (declare (not safe)) (##fx= _g90038_ 4)) + (apply substring->bytes__% _g90039_)) (else (##raise-wrong-number-of-arguments-exception substring->bytes - _g89765_)))))) + _g90039_)))))) (define __substring->bytes__% - (lambda (_%str85296%_ _%start85297%_ _%end85298%_ _%enc85299%_) - (let* ((_%str85302%_ _%str85296%_) - (_%start85310%_ _%start85297%_) - (_%end85318%_ _%end85298%_)) - (if (eq? _%enc85299%_ 'UTF-8) - (string->utf8 _%str85302%_ _%start85310%_ _%end85318%_) - (let ((_%out85327%_ + (lambda (_%str85570%_ _%start85571%_ _%end85572%_ _%enc85573%_) + (let* ((_%str85576%_ _%str85570%_) + (_%start85584%_ _%start85571%_) + (_%end85592%_ _%end85572%_)) + (if (eq? _%enc85573%_ 'UTF-8) + (string->utf8 _%str85576%_ _%start85584%_ _%end85592%_) + (let ((_%out85601%_ (open-output-u8vector - (cons 'char-encoding: (cons _%enc85299%_ '()))))) + (cons 'char-encoding: (cons _%enc85573%_ '()))))) (write-substring - _%str85302%_ - _%start85310%_ - _%end85318%_ - _%out85327%_) - (get-output-u8vector _%out85327%_)))))) + _%str85576%_ + _%start85584%_ + _%end85592%_ + _%out85601%_) + (get-output-u8vector _%out85601%_)))))) (define __substring->bytes__0 - (lambda (_%str85332%_ _%start85333%_ _%end85334%_) - (let ((_%enc85336%_ 'UTF-8)) + (lambda (_%str85606%_ _%start85607%_ _%end85608%_) + (let ((_%enc85610%_ 'UTF-8)) (__substring->bytes__% - _%str85332%_ - _%start85333%_ - _%end85334%_ - _%enc85336%_)))) + _%str85606%_ + _%start85607%_ + _%end85608%_ + _%enc85610%_)))) (define __substring->bytes - (lambda _g89767_ - (let ((_g89766_ (let () (declare (not safe)) (##length _g89767_)))) - (cond ((let () (declare (not safe)) (##fx= _g89766_ 3)) - (apply __substring->bytes__0 _g89767_)) - ((let () (declare (not safe)) (##fx= _g89766_ 4)) - (apply __substring->bytes__% _g89767_)) + (lambda _g90041_ + (let ((_g90040_ (let () (declare (not safe)) (##length _g90041_)))) + (cond ((let () (declare (not safe)) (##fx= _g90040_ 3)) + (apply __substring->bytes__0 _g90041_)) + ((let () (declare (not safe)) (##fx= _g90040_ 4)) + (apply __substring->bytes__% _g90041_)) (else (##raise-wrong-number-of-arguments-exception __substring->bytes - _g89767_)))))) + _g90041_)))))) (define string-empty? - (lambda (_%str85281%_) - (if (string? _%str85281%_) - (let ((_%str85285%_ _%str85281%_)) (__string-empty? _%str85285%_)) + (lambda (_%str85555%_) + (if (string? _%str85555%_) + (let ((_%str85559%_ _%str85555%_)) (__string-empty? _%str85559%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2129,27 +2129,27 @@ 'contract: 'string? 'value: - _%str85281%_) + _%str85555%_) '#!void)))) (define __string-empty? - (lambda (_%str85269%_) - (let* ((_%str85272%_ _%str85269%_) - (__tmp89768 - (let () (declare (not safe)) (##string-length _%str85272%_)))) + (lambda (_%str85543%_) + (let* ((_%str85546%_ _%str85543%_) + (__tmp90042 + (let () (declare (not safe)) (##string-length _%str85546%_)))) (declare (not safe)) - (##fxzero? __tmp89768)))) + (##fxzero? __tmp90042)))) (define string-index__% - (lambda (_%str85221%_ _%char85222%_ _%start85223%_) - (if (string? _%str85221%_) - (let ((_%str85227%_ _%str85221%_)) - (if (char? _%char85222%_) - (let ((_%char85237%_ _%char85222%_)) - (if (nonnegative-fixnum? _%start85223%_) - (let ((_%start85247%_ _%start85223%_)) + (lambda (_%str85495%_ _%char85496%_ _%start85497%_) + (if (string? _%str85495%_) + (let ((_%str85501%_ _%str85495%_)) + (if (char? _%char85496%_) + (let ((_%char85511%_ _%char85496%_)) + (if (nonnegative-fixnum? _%start85497%_) + (let ((_%start85521%_ _%start85497%_)) (__string-index__% - _%str85227%_ - _%char85237%_ - _%start85247%_)) + _%str85501%_ + _%char85511%_ + _%start85521%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2158,7 +2158,7 @@ 'contract: 'nonnegative-fixnum? 'value: - _%start85223%_) + _%start85497%_) '#!void))) (begin (raise-contract-violation-error @@ -2168,7 +2168,7 @@ 'contract: 'char? 'value: - _%char85222%_) + _%char85496%_) '#!void))) (begin (raise-contract-violation-error @@ -2178,66 +2178,66 @@ 'contract: 'string? 'value: - _%str85221%_) + _%str85495%_) '#!void)))) (define string-index__0 - (lambda (_%str85260%_ _%char85261%_) - (let ((_%start85263%_ '0)) - (string-index__% _%str85260%_ _%char85261%_ _%start85263%_)))) + (lambda (_%str85534%_ _%char85535%_) + (let ((_%start85537%_ '0)) + (string-index__% _%str85534%_ _%char85535%_ _%start85537%_)))) (define string-index - (lambda _g89770_ - (let ((_g89769_ (let () (declare (not safe)) (##length _g89770_)))) - (cond ((let () (declare (not safe)) (##fx= _g89769_ 2)) - (apply string-index__0 _g89770_)) - ((let () (declare (not safe)) (##fx= _g89769_ 3)) - (apply string-index__% _g89770_)) + (lambda _g90044_ + (let ((_g90043_ (let () (declare (not safe)) (##length _g90044_)))) + (cond ((let () (declare (not safe)) (##fx= _g90043_ 2)) + (apply string-index__0 _g90044_)) + ((let () (declare (not safe)) (##fx= _g90043_ 3)) + (apply string-index__% _g90044_)) (else (##raise-wrong-number-of-arguments-exception string-index - _g89770_)))))) + _g90044_)))))) (define __string-index__% - (lambda (_%str85160%_ _%char85161%_ _%start85162%_) - (let* ((_%str85165%_ _%str85160%_) - (_%char85173%_ _%char85161%_) - (_%start85181%_ _%start85162%_) - (_%len85190%_ - (let () (declare (not safe)) (##string-length _%str85165%_)))) - (let _%lp85192%_ ((_%k85194%_ _%start85181%_)) - (let ((_%k85196%_ _%k85194%_)) - (if (let () (declare (not safe)) (##fx< _%k85196%_ _%len85190%_)) - (if (eq? _%char85173%_ + (lambda (_%str85434%_ _%char85435%_ _%start85436%_) + (let* ((_%str85439%_ _%str85434%_) + (_%char85447%_ _%char85435%_) + (_%start85455%_ _%start85436%_) + (_%len85464%_ + (let () (declare (not safe)) (##string-length _%str85439%_)))) + (let _%lp85466%_ ((_%k85468%_ _%start85455%_)) + (let ((_%k85470%_ _%k85468%_)) + (if (let () (declare (not safe)) (##fx< _%k85470%_ _%len85464%_)) + (if (eq? _%char85447%_ (let () (declare (not safe)) - (##string-ref _%str85165%_ _%k85196%_))) - _%k85196%_ - (_%lp85192%_ - (let () (declare (not safe)) (##fx+ _%k85196%_ '1)))) + (##string-ref _%str85439%_ _%k85470%_))) + _%k85470%_ + (_%lp85466%_ + (let () (declare (not safe)) (##fx+ _%k85470%_ '1)))) '#f)))))) (define __string-index__0 - (lambda (_%str85211%_ _%char85212%_) - (let ((_%start85214%_ '0)) - (__string-index__% _%str85211%_ _%char85212%_ _%start85214%_)))) + (lambda (_%str85485%_ _%char85486%_) + (let ((_%start85488%_ '0)) + (__string-index__% _%str85485%_ _%char85486%_ _%start85488%_)))) (define __string-index - (lambda _g89772_ - (let ((_g89771_ (let () (declare (not safe)) (##length _g89772_)))) - (cond ((let () (declare (not safe)) (##fx= _g89771_ 2)) - (apply __string-index__0 _g89772_)) - ((let () (declare (not safe)) (##fx= _g89771_ 3)) - (apply __string-index__% _g89772_)) + (lambda _g90046_ + (let ((_g90045_ (let () (declare (not safe)) (##length _g90046_)))) + (cond ((let () (declare (not safe)) (##fx= _g90045_ 2)) + (apply __string-index__0 _g90046_)) + ((let () (declare (not safe)) (##fx= _g90045_ 3)) + (apply __string-index__% _g90046_)) (else (##raise-wrong-number-of-arguments-exception __string-index - _g89772_)))))) + _g90046_)))))) (define string-rindex__% - (lambda (_%str85121%_ _%char85122%_ _%start85123%_) - (if (string? _%str85121%_) - (let ((_%str85127%_ _%str85121%_)) - (if (char? _%char85122%_) - (let ((_%char85137%_ _%char85122%_)) + (lambda (_%str85395%_ _%char85396%_ _%start85397%_) + (if (string? _%str85395%_) + (let ((_%str85401%_ _%str85395%_)) + (if (char? _%char85396%_) + (let ((_%char85411%_ _%char85396%_)) (__string-rindex__% - _%str85127%_ - _%char85137%_ - _%start85123%_)) + _%str85401%_ + _%char85411%_ + _%start85397%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2246,7 +2246,7 @@ 'contract: 'char? 'value: - _%char85122%_) + _%char85396%_) '#!void))) (begin (raise-contract-violation-error @@ -2256,66 +2256,66 @@ 'contract: 'string? 'value: - _%str85121%_) + _%str85395%_) '#!void)))) (define string-rindex__0 - (lambda (_%str85150%_ _%char85151%_) - (let ((_%start85153%_ '#f)) - (string-rindex__% _%str85150%_ _%char85151%_ _%start85153%_)))) + (lambda (_%str85424%_ _%char85425%_) + (let ((_%start85427%_ '#f)) + (string-rindex__% _%str85424%_ _%char85425%_ _%start85427%_)))) (define string-rindex - (lambda _g89774_ - (let ((_g89773_ (let () (declare (not safe)) (##length _g89774_)))) - (cond ((let () (declare (not safe)) (##fx= _g89773_ 2)) - (apply string-rindex__0 _g89774_)) - ((let () (declare (not safe)) (##fx= _g89773_ 3)) - (apply string-rindex__% _g89774_)) + (lambda _g90048_ + (let ((_g90047_ (let () (declare (not safe)) (##length _g90048_)))) + (cond ((let () (declare (not safe)) (##fx= _g90047_ 2)) + (apply string-rindex__0 _g90048_)) + ((let () (declare (not safe)) (##fx= _g90047_ 3)) + (apply string-rindex__% _g90048_)) (else (##raise-wrong-number-of-arguments-exception string-rindex - _g89774_)))))) + _g90048_)))))) (define __string-rindex__% - (lambda (_%str85063%_ _%char85064%_ _%start85065%_) - (let* ((_%str85068%_ _%str85063%_) - (_%char85076%_ _%char85064%_) - (_%len85085%_ - (let () (declare (not safe)) (##string-length _%str85068%_))) - (_%start85087%_ - (if (fixnum? _%start85065%_) - _%start85065%_ - (let () (declare (not safe)) (##fx- _%len85085%_ '1))))) - (let _%lp85090%_ ((_%k85092%_ _%start85087%_)) - (let ((_%k85094%_ _%k85092%_)) - (if (let () (declare (not safe)) (##fx>= _%k85094%_ '0)) - (if (eq? _%char85076%_ + (lambda (_%str85337%_ _%char85338%_ _%start85339%_) + (let* ((_%str85342%_ _%str85337%_) + (_%char85350%_ _%char85338%_) + (_%len85359%_ + (let () (declare (not safe)) (##string-length _%str85342%_))) + (_%start85361%_ + (if (fixnum? _%start85339%_) + _%start85339%_ + (let () (declare (not safe)) (##fx- _%len85359%_ '1))))) + (let _%lp85364%_ ((_%k85366%_ _%start85361%_)) + (let ((_%k85368%_ _%k85366%_)) + (if (let () (declare (not safe)) (##fx>= _%k85368%_ '0)) + (if (eq? _%char85350%_ (let () (declare (not safe)) - (##string-ref _%str85068%_ _%k85094%_))) - _%k85094%_ - (_%lp85090%_ - (let () (declare (not safe)) (##fx- _%k85094%_ '1)))) + (##string-ref _%str85342%_ _%k85368%_))) + _%k85368%_ + (_%lp85364%_ + (let () (declare (not safe)) (##fx- _%k85368%_ '1)))) '#f)))))) (define __string-rindex__0 - (lambda (_%str85111%_ _%char85112%_) - (let ((_%start85114%_ '#f)) - (__string-rindex__% _%str85111%_ _%char85112%_ _%start85114%_)))) + (lambda (_%str85385%_ _%char85386%_) + (let ((_%start85388%_ '#f)) + (__string-rindex__% _%str85385%_ _%char85386%_ _%start85388%_)))) (define __string-rindex - (lambda _g89776_ - (let ((_g89775_ (let () (declare (not safe)) (##length _g89776_)))) - (cond ((let () (declare (not safe)) (##fx= _g89775_ 2)) - (apply __string-rindex__0 _g89776_)) - ((let () (declare (not safe)) (##fx= _g89775_ 3)) - (apply __string-rindex__% _g89776_)) + (lambda _g90050_ + (let ((_g90049_ (let () (declare (not safe)) (##length _g90050_)))) + (cond ((let () (declare (not safe)) (##fx= _g90049_ 2)) + (apply __string-rindex__0 _g90050_)) + ((let () (declare (not safe)) (##fx= _g90049_ 3)) + (apply __string-rindex__% _g90050_)) (else (##raise-wrong-number-of-arguments-exception __string-rindex - _g89776_)))))) + _g90050_)))))) (define string-split - (lambda (_%str85037%_ _%char85038%_) - (if (string? _%str85037%_) - (let ((_%str85042%_ _%str85037%_)) - (if (char? _%char85038%_) - (let ((_%char85052%_ _%char85038%_)) - (__string-split _%str85042%_ _%char85052%_)) + (lambda (_%str85311%_ _%char85312%_) + (if (string? _%str85311%_) + (let ((_%str85316%_ _%str85311%_)) + (if (char? _%char85312%_) + (let ((_%char85326%_ _%char85312%_)) + (__string-split _%str85316%_ _%char85326%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2324,7 +2324,7 @@ 'contract: 'char? 'value: - _%char85038%_) + _%char85312%_) '#!void))) (begin (raise-contract-violation-error @@ -2334,205 +2334,205 @@ 'contract: 'string? 'value: - _%str85037%_) + _%str85311%_) '#!void)))) (define __string-split - (lambda (_%str84978%_ _%char84979%_) - (let* ((_%str84982%_ _%str84978%_) - (_%char84990%_ _%char84979%_) - (_%len84999%_ - (let () (declare (not safe)) (##string-length _%str84982%_)))) - (let _%lp85001%_ ((_%start85003%_ '0) (_%r85004%_ '())) - (let* ((_%start85007%_ _%start85003%_) - (_%$e85020%_ + (lambda (_%str85252%_ _%char85253%_) + (let* ((_%str85256%_ _%str85252%_) + (_%char85264%_ _%char85253%_) + (_%len85273%_ + (let () (declare (not safe)) (##string-length _%str85256%_)))) + (let _%lp85275%_ ((_%start85277%_ '0) (_%r85278%_ '())) + (let* ((_%start85281%_ _%start85277%_) + (_%$e85294%_ (__string-index__% - _%str84982%_ - _%char84990%_ - _%start85007%_))) - (if _%$e85020%_ - ((lambda (_%end85023%_) - (let ((_%end85025%_ _%end85023%_)) - (_%lp85001%_ - (let () (declare (not safe)) (##fx+ _%end85025%_ '1)) + _%str85256%_ + _%char85264%_ + _%start85281%_))) + (if _%$e85294%_ + ((lambda (_%end85297%_) + (let ((_%end85299%_ _%end85297%_)) + (_%lp85275%_ + (let () (declare (not safe)) (##fx+ _%end85299%_ '1)) (cons (let () (declare (not safe)) (##substring - _%str84982%_ - _%start85007%_ - _%end85025%_)) - _%r85004%_)))) - _%$e85020%_) + _%str85256%_ + _%start85281%_ + _%end85299%_)) + _%r85278%_)))) + _%$e85294%_) (if (let () (declare (not safe)) - (##fx< _%start85007%_ _%len84999%_)) + (##fx< _%start85281%_ _%len85273%_)) (__foldl1 cons (list (let () (declare (not safe)) (##substring - _%str84982%_ - _%start85007%_ - _%len84999%_))) - _%r85004%_) - (reverse! _%r85004%_)))))))) + _%str85256%_ + _%start85281%_ + _%len85273%_))) + _%r85278%_) + (reverse! _%r85278%_)))))))) (define string-join - (lambda (_%strs84828%_ _%join84829%_) - (letrec ((_%join-length84832%_ - (lambda (_%strs84916%_ _%jlen84917%_) - (let _%lp84919%_ ((_%rest84921%_ _%strs84916%_) - (_%len84922%_ '0)) - (let* ((_%len84924%_ _%len84922%_) - (_%rest8493284940%_ _%rest84921%_) - (_%else8493484948%_ (lambda () '0)) - (_%K8493684966%_ - (lambda (_%rest84951%_ _%hd84952%_) - (if (string? _%hd84952%_) - (let ((_%hd84954%_ _%hd84952%_)) - (if (pair? _%rest84951%_) - (_%lp84919%_ - _%rest84951%_ + (lambda (_%strs85102%_ _%join85103%_) + (letrec ((_%join-length85106%_ + (lambda (_%strs85190%_ _%jlen85191%_) + (let _%lp85193%_ ((_%rest85195%_ _%strs85190%_) + (_%len85196%_ '0)) + (let* ((_%len85198%_ _%len85196%_) + (_%rest8520685214%_ _%rest85195%_) + (_%else8520885222%_ (lambda () '0)) + (_%K8521085240%_ + (lambda (_%rest85225%_ _%hd85226%_) + (if (string? _%hd85226%_) + (let ((_%hd85228%_ _%hd85226%_)) + (if (pair? _%rest85225%_) + (_%lp85193%_ + _%rest85225%_ (fx+ (let () (declare (not safe)) (##string-length - _%hd84954%_)) - _%jlen84917%_ - _%len84924%_)) - (let ((__tmp89777 + _%hd85228%_)) + _%jlen85191%_ + _%len85198%_)) + (let ((__tmp90051 (let () (declare (not safe)) (##string-length - _%hd84954%_)))) + _%hd85228%_)))) (declare (not safe)) - (##fx+ __tmp89777 _%len84924%_)))) - (error '"expected string" _%hd84952%_))))) + (##fx+ __tmp90051 _%len85198%_)))) + (error '"expected string" _%hd85226%_))))) (if (let () (declare (not safe)) - (##pair? _%rest8493284940%_)) - (let ((_%hd8493784969%_ + (##pair? _%rest8520685214%_)) + (let ((_%hd8521185243%_ (let () (declare (not safe)) - (##car _%rest8493284940%_))) - (_%tl8493884971%_ + (##car _%rest8520685214%_))) + (_%tl8521285245%_ (let () (declare (not safe)) - (##cdr _%rest8493284940%_)))) - (let* ((_%hd84974%_ _%hd8493784969%_) - (_%rest84976%_ _%tl8493884971%_)) - (_%K8493684966%_ _%rest84976%_ _%hd84974%_))) - (_%else8493484948%_))))))) - (let* ((_%join84837%_ - (if (char? _%join84829%_) - (let () (declare (not safe)) (##string _%join84829%_)) - (if (string? _%join84829%_) - _%join84829%_ - (error '"expected string or char" _%join84829%_)))) - (_%jlen84839%_ + (##cdr _%rest8520685214%_)))) + (let* ((_%hd85248%_ _%hd8521185243%_) + (_%rest85250%_ _%tl8521285245%_)) + (_%K8521085240%_ _%rest85250%_ _%hd85248%_))) + (_%else8520885222%_))))))) + (let* ((_%join85111%_ + (if (char? _%join85103%_) + (let () (declare (not safe)) (##string _%join85103%_)) + (if (string? _%join85103%_) + _%join85103%_ + (error '"expected string or char" _%join85103%_)))) + (_%jlen85113%_ (let () (declare (not safe)) - (##string-length _%join84837%_))) - (_%olen84841%_ - (_%join-length84832%_ _%strs84828%_ _%jlen84839%_)) - (_%ostr84843%_ - (let () (declare (not safe)) (##make-string _%olen84841%_)))) - (let _%lp84846%_ ((_%rest84848%_ _%strs84828%_) (_%k84849%_ '0)) - (let* ((_%k84852%_ _%k84849%_) - (_%rest8486884876%_ _%rest84848%_) - (_%else8487084884%_ (lambda () '"")) - (_%K8487284904%_ - (lambda (_%rest84887%_ _%hd84888%_) - (let* ((_%hd84890%_ _%hd84888%_) - (_%hdlen84902%_ + (##string-length _%join85111%_))) + (_%olen85115%_ + (_%join-length85106%_ _%strs85102%_ _%jlen85113%_)) + (_%ostr85117%_ + (let () (declare (not safe)) (##make-string _%olen85115%_)))) + (let _%lp85120%_ ((_%rest85122%_ _%strs85102%_) (_%k85123%_ '0)) + (let* ((_%k85126%_ _%k85123%_) + (_%rest8514285150%_ _%rest85122%_) + (_%else8514485158%_ (lambda () '"")) + (_%K8514685178%_ + (lambda (_%rest85161%_ _%hd85162%_) + (let* ((_%hd85164%_ _%hd85162%_) + (_%hdlen85176%_ (let () (declare (not safe)) - (##string-length _%hd84890%_)))) - (if (pair? _%rest84887%_) + (##string-length _%hd85164%_)))) + (if (pair? _%rest85161%_) (begin (let () (declare (not safe)) (##substring-move! - _%hd84890%_ + _%hd85164%_ '0 - _%hdlen84902%_ - _%ostr84843%_ - _%k84852%_)) - (let ((__tmp89778 + _%hdlen85176%_ + _%ostr85117%_ + _%k85126%_)) + (let ((__tmp90052 (let () (declare (not safe)) - (##fx+ _%k84852%_ _%hdlen84902%_)))) + (##fx+ _%k85126%_ _%hdlen85176%_)))) (declare (not safe)) (##substring-move! - _%join84837%_ + _%join85111%_ '0 - _%jlen84839%_ - _%ostr84843%_ - __tmp89778)) - (_%lp84846%_ - _%rest84887%_ + _%jlen85113%_ + _%ostr85117%_ + __tmp90052)) + (_%lp85120%_ + _%rest85161%_ (let () (declare (not safe)) - (##fx+ _%k84852%_ - _%hdlen84902%_ - _%jlen84839%_)))) + (##fx+ _%k85126%_ + _%hdlen85176%_ + _%jlen85113%_)))) (begin (let () (declare (not safe)) (##substring-move! - _%hd84890%_ + _%hd85164%_ '0 - _%hdlen84902%_ - _%ostr84843%_ - _%k84852%_)) - _%ostr84843%_)))))) - (if (let () (declare (not safe)) (##pair? _%rest8486884876%_)) - (let ((_%hd8487384907%_ + _%hdlen85176%_ + _%ostr85117%_ + _%k85126%_)) + _%ostr85117%_)))))) + (if (let () (declare (not safe)) (##pair? _%rest8514285150%_)) + (let ((_%hd8514785181%_ (let () (declare (not safe)) - (##car _%rest8486884876%_))) - (_%tl8487484909%_ + (##car _%rest8514285150%_))) + (_%tl8514885183%_ (let () (declare (not safe)) - (##cdr _%rest8486884876%_)))) - (let* ((_%hd84912%_ _%hd8487384907%_) - (_%rest84914%_ _%tl8487484909%_)) - (_%K8487284904%_ _%rest84914%_ _%hd84912%_))) - (_%else8487084884%_)))))))) + (##cdr _%rest8514285150%_)))) + (let* ((_%hd85186%_ _%hd8514785181%_) + (_%rest85188%_ _%tl8514885183%_)) + (_%K8514685178%_ _%rest85188%_ _%hd85186%_))) + (_%else8514485158%_)))))))) (define read-u8vector__% - (lambda (_%bytes84754%_ _%port84755%_ _%start84756%_ _%end84757%_) - (if (u8vector? _%bytes84754%_) - (let ((_%bytes84761%_ _%bytes84754%_)) - (if (input-port? _%port84755%_) - (let ((_%port84771%_ _%port84755%_)) - (if ((lambda (_%o84780%_) - (and (fixnum? _%o84780%_) + (lambda (_%bytes85028%_ _%port85029%_ _%start85030%_ _%end85031%_) + (if (u8vector? _%bytes85028%_) + (let ((_%bytes85035%_ _%bytes85028%_)) + (if (input-port? _%port85029%_) + (let ((_%port85045%_ _%port85029%_)) + (if ((lambda (_%o85054%_) + (and (fixnum? _%o85054%_) (let () (declare (not safe)) - (##fx>= _%o84780%_ '0)) - (let ((__tmp89779 + (##fx>= _%o85054%_ '0)) + (let ((__tmp90053 (let () (declare (not safe)) - (##u8vector-length _%bytes84761%_)))) + (##u8vector-length _%bytes85035%_)))) (declare (not safe)) - (##fx< _%o84780%_ __tmp89779)))) - _%start84756%_) - (let ((_%start84784%_ _%start84756%_)) - (if ((lambda (_%o84793%_) - (and (fixnum? _%o84793%_) - (let ((__tmp89780 + (##fx< _%o85054%_ __tmp90053)))) + _%start85030%_) + (let ((_%start85058%_ _%start85030%_)) + (if ((lambda (_%o85067%_) + (and (fixnum? _%o85067%_) + (let ((__tmp90054 (let () (declare (not safe)) (##u8vector-length - _%bytes84761%_)))) + _%bytes85035%_)))) (declare (not safe)) - (##fx<= _%start84784%_ - _%o84793%_ - __tmp89780)))) - _%end84757%_) - (let ((_%end84797%_ _%end84757%_)) + (##fx<= _%start85058%_ + _%o85067%_ + __tmp90054)))) + _%end85031%_) + (let ((_%end85071%_ _%end85031%_)) (__read-u8vector__% - _%bytes84761%_ - _%port84771%_ - _%start84784%_ - _%end84797%_)) + _%bytes85035%_ + _%port85045%_ + _%start85058%_ + _%end85071%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2543,7 +2543,7 @@ start (u8vector-length bytes)) 'value: - _%end84757%_) + _%end85031%_) '#!void))) (begin (raise-contract-violation-error @@ -2553,7 +2553,7 @@ 'contract: '(in-range? 0 (u8vector-length bytes)) 'value: - _%start84756%_) + _%start85030%_) '#!void))) (begin (raise-contract-violation-error @@ -2563,7 +2563,7 @@ 'contract: 'input-port? 'value: - _%port84755%_) + _%port85029%_) '#!void))) (begin (raise-contract-violation-error @@ -2573,117 +2573,117 @@ 'contract: 'u8vector? 'value: - _%bytes84754%_) + _%bytes85028%_) '#!void)))) (define read-u8vector__0 - (lambda (_%bytes84810%_ _%port84811%_) - (let* ((_%start84813%_ '0) - (_%end84815%_ (u8vector-length _%bytes84810%_))) + (lambda (_%bytes85084%_ _%port85085%_) + (let* ((_%start85087%_ '0) + (_%end85089%_ (u8vector-length _%bytes85084%_))) (read-u8vector__% - _%bytes84810%_ - _%port84811%_ - _%start84813%_ - _%end84815%_)))) + _%bytes85084%_ + _%port85085%_ + _%start85087%_ + _%end85089%_)))) (define read-u8vector__1 - (lambda (_%bytes84817%_ _%port84818%_ _%start84819%_) - (let ((_%end84821%_ (u8vector-length _%bytes84817%_))) + (lambda (_%bytes85091%_ _%port85092%_ _%start85093%_) + (let ((_%end85095%_ (u8vector-length _%bytes85091%_))) (read-u8vector__% - _%bytes84817%_ - _%port84818%_ - _%start84819%_ - _%end84821%_)))) + _%bytes85091%_ + _%port85092%_ + _%start85093%_ + _%end85095%_)))) (define read-u8vector - (lambda _g89782_ - (let ((_g89781_ (let () (declare (not safe)) (##length _g89782_)))) - (cond ((let () (declare (not safe)) (##fx= _g89781_ 2)) - (apply read-u8vector__0 _g89782_)) - ((let () (declare (not safe)) (##fx= _g89781_ 3)) - (apply read-u8vector__1 _g89782_)) - ((let () (declare (not safe)) (##fx= _g89781_ 4)) - (apply read-u8vector__% _g89782_)) + (lambda _g90056_ + (let ((_g90055_ (let () (declare (not safe)) (##length _g90056_)))) + (cond ((let () (declare (not safe)) (##fx= _g90055_ 2)) + (apply read-u8vector__0 _g90056_)) + ((let () (declare (not safe)) (##fx= _g90055_ 3)) + (apply read-u8vector__1 _g90056_)) + ((let () (declare (not safe)) (##fx= _g90055_ 4)) + (apply read-u8vector__% _g90056_)) (else (##raise-wrong-number-of-arguments-exception read-u8vector - _g89782_)))))) + _g90056_)))))) (define __read-u8vector__% - (lambda (_%bytes84693%_ _%port84694%_ _%start84695%_ _%end84696%_) - (let* ((_%bytes84699%_ _%bytes84693%_) - (_%port84707%_ _%port84694%_) - (_%start84715%_ _%start84695%_) - (_%end84723%_ _%end84696%_)) + (lambda (_%bytes84967%_ _%port84968%_ _%start84969%_ _%end84970%_) + (let* ((_%bytes84973%_ _%bytes84967%_) + (_%port84981%_ _%port84968%_) + (_%start84989%_ _%start84969%_) + (_%end84997%_ _%end84970%_)) (declare (not safe)) (##read-subu8vector - _%bytes84699%_ - _%start84715%_ - _%end84723%_ - _%port84707%_)))) + _%bytes84973%_ + _%start84989%_ + _%end84997%_ + _%port84981%_)))) (define __read-u8vector__0 - (lambda (_%bytes84735%_ _%port84736%_) - (let* ((_%start84738%_ '0) - (_%end84740%_ (u8vector-length _%bytes84735%_))) + (lambda (_%bytes85009%_ _%port85010%_) + (let* ((_%start85012%_ '0) + (_%end85014%_ (u8vector-length _%bytes85009%_))) (__read-u8vector__% - _%bytes84735%_ - _%port84736%_ - _%start84738%_ - _%end84740%_)))) + _%bytes85009%_ + _%port85010%_ + _%start85012%_ + _%end85014%_)))) (define __read-u8vector__1 - (lambda (_%bytes84742%_ _%port84743%_ _%start84744%_) - (let ((_%end84746%_ (u8vector-length _%bytes84742%_))) + (lambda (_%bytes85016%_ _%port85017%_ _%start85018%_) + (let ((_%end85020%_ (u8vector-length _%bytes85016%_))) (__read-u8vector__% - _%bytes84742%_ - _%port84743%_ - _%start84744%_ - _%end84746%_)))) + _%bytes85016%_ + _%port85017%_ + _%start85018%_ + _%end85020%_)))) (define __read-u8vector - (lambda _g89784_ - (let ((_g89783_ (let () (declare (not safe)) (##length _g89784_)))) - (cond ((let () (declare (not safe)) (##fx= _g89783_ 2)) - (apply __read-u8vector__0 _g89784_)) - ((let () (declare (not safe)) (##fx= _g89783_ 3)) - (apply __read-u8vector__1 _g89784_)) - ((let () (declare (not safe)) (##fx= _g89783_ 4)) - (apply __read-u8vector__% _g89784_)) + (lambda _g90058_ + (let ((_g90057_ (let () (declare (not safe)) (##length _g90058_)))) + (cond ((let () (declare (not safe)) (##fx= _g90057_ 2)) + (apply __read-u8vector__0 _g90058_)) + ((let () (declare (not safe)) (##fx= _g90057_ 3)) + (apply __read-u8vector__1 _g90058_)) + ((let () (declare (not safe)) (##fx= _g90057_ 4)) + (apply __read-u8vector__% _g90058_)) (else (##raise-wrong-number-of-arguments-exception __read-u8vector - _g89784_)))))) + _g90058_)))))) (define write-u8vector__% - (lambda (_%bytes84618%_ _%port84619%_ _%start84620%_ _%end84621%_) - (if (u8vector? _%bytes84618%_) - (let ((_%bytes84625%_ _%bytes84618%_)) - (if (output-port? _%port84619%_) - (let ((_%port84635%_ _%port84619%_)) - (if ((lambda (_%o84644%_) - (and (fixnum? _%o84644%_) + (lambda (_%bytes84892%_ _%port84893%_ _%start84894%_ _%end84895%_) + (if (u8vector? _%bytes84892%_) + (let ((_%bytes84899%_ _%bytes84892%_)) + (if (output-port? _%port84893%_) + (let ((_%port84909%_ _%port84893%_)) + (if ((lambda (_%o84918%_) + (and (fixnum? _%o84918%_) (let () (declare (not safe)) - (##fx>= _%o84644%_ '0)) - (let ((__tmp89785 + (##fx>= _%o84918%_ '0)) + (let ((__tmp90059 (let () (declare (not safe)) - (##u8vector-length _%bytes84625%_)))) + (##u8vector-length _%bytes84899%_)))) (declare (not safe)) - (##fx< _%o84644%_ __tmp89785)))) - _%start84620%_) - (let ((_%start84648%_ _%start84620%_)) - (if ((lambda (_%o84657%_) - (and (fixnum? _%o84657%_) - (let ((__tmp89786 + (##fx< _%o84918%_ __tmp90059)))) + _%start84894%_) + (let ((_%start84922%_ _%start84894%_)) + (if ((lambda (_%o84931%_) + (and (fixnum? _%o84931%_) + (let ((__tmp90060 (let () (declare (not safe)) (##u8vector-length - _%bytes84625%_)))) + _%bytes84899%_)))) (declare (not safe)) - (##fx<= _%start84648%_ - _%o84657%_ - __tmp89786)))) - _%end84621%_) - (let ((_%end84661%_ _%end84621%_)) + (##fx<= _%start84922%_ + _%o84931%_ + __tmp90060)))) + _%end84895%_) + (let ((_%end84935%_ _%end84895%_)) (__write-u8vector__% - _%bytes84625%_ - _%port84635%_ - _%start84648%_ - _%end84661%_)) + _%bytes84899%_ + _%port84909%_ + _%start84922%_ + _%end84935%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2694,7 +2694,7 @@ start (u8vector-length bytes)) 'value: - _%end84621%_) + _%end84895%_) '#!void))) (begin (raise-contract-violation-error @@ -2704,7 +2704,7 @@ 'contract: '(in-range? 0 (u8vector-length bytes)) 'value: - _%start84620%_) + _%start84894%_) '#!void))) (begin (raise-contract-violation-error @@ -2714,7 +2714,7 @@ 'contract: 'output-port? 'value: - _%port84619%_) + _%port84893%_) '#!void))) (begin (raise-contract-violation-error @@ -2724,131 +2724,131 @@ 'contract: 'u8vector? 'value: - _%bytes84618%_) + _%bytes84892%_) '#!void)))) (define write-u8vector__0 - (lambda (_%bytes84674%_ _%port84675%_) - (let* ((_%start84677%_ '0) - (_%end84679%_ (u8vector-length _%bytes84674%_))) + (lambda (_%bytes84948%_ _%port84949%_) + (let* ((_%start84951%_ '0) + (_%end84953%_ (u8vector-length _%bytes84948%_))) (write-u8vector__% - _%bytes84674%_ - _%port84675%_ - _%start84677%_ - _%end84679%_)))) + _%bytes84948%_ + _%port84949%_ + _%start84951%_ + _%end84953%_)))) (define write-u8vector__1 - (lambda (_%bytes84681%_ _%port84682%_ _%start84683%_) - (let ((_%end84685%_ (u8vector-length _%bytes84681%_))) + (lambda (_%bytes84955%_ _%port84956%_ _%start84957%_) + (let ((_%end84959%_ (u8vector-length _%bytes84955%_))) (write-u8vector__% - _%bytes84681%_ - _%port84682%_ - _%start84683%_ - _%end84685%_)))) + _%bytes84955%_ + _%port84956%_ + _%start84957%_ + _%end84959%_)))) (define write-u8vector - (lambda _g89788_ - (let ((_g89787_ (let () (declare (not safe)) (##length _g89788_)))) - (cond ((let () (declare (not safe)) (##fx= _g89787_ 2)) - (apply write-u8vector__0 _g89788_)) - ((let () (declare (not safe)) (##fx= _g89787_ 3)) - (apply write-u8vector__1 _g89788_)) - ((let () (declare (not safe)) (##fx= _g89787_ 4)) - (apply write-u8vector__% _g89788_)) + (lambda _g90062_ + (let ((_g90061_ (let () (declare (not safe)) (##length _g90062_)))) + (cond ((let () (declare (not safe)) (##fx= _g90061_ 2)) + (apply write-u8vector__0 _g90062_)) + ((let () (declare (not safe)) (##fx= _g90061_ 3)) + (apply write-u8vector__1 _g90062_)) + ((let () (declare (not safe)) (##fx= _g90061_ 4)) + (apply write-u8vector__% _g90062_)) (else (##raise-wrong-number-of-arguments-exception write-u8vector - _g89788_)))))) + _g90062_)))))) (define __write-u8vector__% - (lambda (_%bytes84557%_ _%port84558%_ _%start84559%_ _%end84560%_) - (let* ((_%bytes84563%_ _%bytes84557%_) - (_%port84571%_ _%port84558%_) - (_%start84579%_ _%start84559%_) - (_%end84587%_ _%end84560%_)) + (lambda (_%bytes84831%_ _%port84832%_ _%start84833%_ _%end84834%_) + (let* ((_%bytes84837%_ _%bytes84831%_) + (_%port84845%_ _%port84832%_) + (_%start84853%_ _%start84833%_) + (_%end84861%_ _%end84834%_)) (declare (not safe)) (##write-subu8vector - _%bytes84563%_ - _%start84579%_ - _%end84587%_ - _%port84571%_)))) + _%bytes84837%_ + _%start84853%_ + _%end84861%_ + _%port84845%_)))) (define __write-u8vector__0 - (lambda (_%bytes84599%_ _%port84600%_) - (let* ((_%start84602%_ '0) - (_%end84604%_ (u8vector-length _%bytes84599%_))) + (lambda (_%bytes84873%_ _%port84874%_) + (let* ((_%start84876%_ '0) + (_%end84878%_ (u8vector-length _%bytes84873%_))) (__write-u8vector__% - _%bytes84599%_ - _%port84600%_ - _%start84602%_ - _%end84604%_)))) + _%bytes84873%_ + _%port84874%_ + _%start84876%_ + _%end84878%_)))) (define __write-u8vector__1 - (lambda (_%bytes84606%_ _%port84607%_ _%start84608%_) - (let ((_%end84610%_ (u8vector-length _%bytes84606%_))) + (lambda (_%bytes84880%_ _%port84881%_ _%start84882%_) + (let ((_%end84884%_ (u8vector-length _%bytes84880%_))) (__write-u8vector__% - _%bytes84606%_ - _%port84607%_ - _%start84608%_ - _%end84610%_)))) + _%bytes84880%_ + _%port84881%_ + _%start84882%_ + _%end84884%_)))) (define __write-u8vector - (lambda _g89790_ - (let ((_g89789_ (let () (declare (not safe)) (##length _g89790_)))) - (cond ((let () (declare (not safe)) (##fx= _g89789_ 2)) - (apply __write-u8vector__0 _g89790_)) - ((let () (declare (not safe)) (##fx= _g89789_ 3)) - (apply __write-u8vector__1 _g89790_)) - ((let () (declare (not safe)) (##fx= _g89789_ 4)) - (apply __write-u8vector__% _g89790_)) + (lambda _g90064_ + (let ((_g90063_ (let () (declare (not safe)) (##length _g90064_)))) + (cond ((let () (declare (not safe)) (##fx= _g90063_ 2)) + (apply __write-u8vector__0 _g90064_)) + ((let () (declare (not safe)) (##fx= _g90063_ 3)) + (apply __write-u8vector__1 _g90064_)) + ((let () (declare (not safe)) (##fx= _g90063_ 4)) + (apply __write-u8vector__% _g90064_)) (else (##raise-wrong-number-of-arguments-exception __write-u8vector - _g89790_)))))) + _g90064_)))))) (define DBG-printer (make-parameter write)) (define DBG-helper - (lambda (_%tag84525%_ - _%dbg-exprs84526%_ - _%dbg-thunks84527%_ - _%expr84528%_ - _%thunk84529%_) - (letrec ((_%o84531%_ (current-output-port)) - (_%e84532%_ (current-error-port)) - (_%p84533%_ (let () (declare (not safe)) (DBG-printer))) - (_%f84534%_ + (lambda (_%tag84799%_ + _%dbg-exprs84800%_ + _%dbg-thunks84801%_ + _%expr84802%_ + _%thunk84803%_) + (letrec ((_%o84805%_ (current-output-port)) + (_%e84806%_ (current-error-port)) + (_%p84807%_ (let () (declare (not safe)) (DBG-printer))) + (_%f84808%_ (lambda () - (force-output _%o84531%_) - (force-output _%e84532%_))) - (_%d84535%_ - (lambda (_%x84542%_) (display _%x84542%_ _%e84532%_))) - (_%w84536%_ - (lambda (_%x84544%_) (_%p84533%_ _%x84544%_ _%e84532%_))) - (_%n84537%_ (lambda () (newline _%e84532%_))) - (_%v84538%_ - (lambda (_%l84547%_) + (force-output _%o84805%_) + (force-output _%e84806%_))) + (_%d84809%_ + (lambda (_%x84816%_) (display _%x84816%_ _%e84806%_))) + (_%w84810%_ + (lambda (_%x84818%_) (_%p84807%_ _%x84818%_ _%e84806%_))) + (_%n84811%_ (lambda () (newline _%e84806%_))) + (_%v84812%_ + (lambda (_%l84821%_) (for-each - (lambda (_%x84549%_) - (_%d84535%_ '" ") - (_%w84536%_ _%x84549%_)) - _%l84547%_) - (_%n84537%_))) - (_%x84539%_ - (lambda (_%expr84551%_ _%thunk84552%_) - (_%f84534%_) - (_%d84535%_ '" ") - (_%w84536%_ _%expr84551%_) - (_%d84535%_ '" =>") + (lambda (_%x84823%_) + (_%d84809%_ '" ") + (_%w84810%_ _%x84823%_)) + _%l84821%_) + (_%n84811%_))) + (_%x84813%_ + (lambda (_%expr84825%_ _%thunk84826%_) + (_%f84808%_) + (_%d84809%_ '" ") + (_%w84810%_ _%expr84825%_) + (_%d84809%_ '" =>") (call-with-values - _%thunk84552%_ - (lambda _%x84554%_ - (_%v84538%_ _%x84554%_) - (_%f84534%_) + _%thunk84826%_ + (lambda _%x84828%_ + (_%v84812%_ _%x84828%_) + (_%f84808%_) (let () (declare (not safe)) - (##apply values _%x84554%_))))))) - (if _%tag84525%_ + (##apply values _%x84828%_))))))) + (if _%tag84799%_ (begin - (if (eq? _%tag84525%_ '#!void) + (if (eq? _%tag84799%_ '#!void) '#!void (begin - (_%f84534%_) - (_%d84535%_ _%tag84525%_) - (_%n84537%_))) - (for-each _%x84539%_ _%dbg-exprs84526%_ _%dbg-thunks84527%_) - (if _%thunk84529%_ - (_%x84539%_ _%expr84528%_ _%thunk84529%_) + (_%f84808%_) + (_%d84809%_ _%tag84799%_) + (_%n84811%_))) + (for-each _%x84813%_ _%dbg-exprs84800%_ _%dbg-thunks84801%_) + (if _%thunk84803%_ + (_%x84813%_ _%expr84802%_ _%thunk84803%_) '#!void)) - (if _%thunk84529%_ (_%thunk84529%_) '#!void))))))) + (if _%thunk84803%_ (_%thunk84803%_) '#!void))))))) diff --git a/src/bootstrap/gerbil/runtime/util~1.scm b/src/bootstrap/gerbil/runtime/util~1.scm index 3f710d834..4606c476f 100644 --- a/src/bootstrap/gerbil/runtime/util~1.scm +++ b/src/bootstrap/gerbil/runtime/util~1.scm @@ -1,13 +1,13 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g89792_| + (define |[1]#_g90066_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |[1]#_g89802_| + (define |[1]#_g90076_| (##structure gx#syntax-quote::t 'quote @@ -16,49 +16,49 @@ '())) (begin (define |[:0:]#declare-inline| - (lambda (_%$stx82858%_) - (let* ((_%g8286282880%_ - (lambda (_%g8286382876%_) + (lambda (_%$stx83132%_) + (let* ((_%g8313683154%_ + (lambda (_%g8313783150%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8286382876%_))) - (_%g8286182936%_ - (lambda (_%g8286382884%_) - (if (gx#stx-pair? _%g8286382884%_) - (let ((_%e8286682887%_ (gx#syntax-e _%g8286382884%_))) - (let ((_%hd8286782891%_ + _%g8313783150%_))) + (_%g8313583210%_ + (lambda (_%g8313783158%_) + (if (gx#stx-pair? _%g8313783158%_) + (let ((_%e8314083161%_ (gx#syntax-e _%g8313783158%_))) + (let ((_%hd8314183165%_ (let () (declare (not safe)) - (##car _%e8286682887%_))) - (_%tl8286882894%_ + (##car _%e8314083161%_))) + (_%tl8314283168%_ (let () (declare (not safe)) - (##cdr _%e8286682887%_)))) - (if (gx#stx-pair? _%tl8286882894%_) - (let ((_%e8286982897%_ - (gx#syntax-e _%tl8286882894%_))) - (let ((_%hd8287082901%_ + (##cdr _%e8314083161%_)))) + (if (gx#stx-pair? _%tl8314283168%_) + (let ((_%e8314383171%_ + (gx#syntax-e _%tl8314283168%_))) + (let ((_%hd8314483175%_ (let () (declare (not safe)) - (##car _%e8286982897%_))) - (_%tl8287182904%_ + (##car _%e8314383171%_))) + (_%tl8314583178%_ (let () (declare (not safe)) - (##cdr _%e8286982897%_)))) - (if (gx#stx-pair? _%tl8287182904%_) - (let ((_%e8287282907%_ - (gx#syntax-e _%tl8287182904%_))) - (let ((_%hd8287382911%_ + (##cdr _%e8314383171%_)))) + (if (gx#stx-pair? _%tl8314583178%_) + (let ((_%e8314683181%_ + (gx#syntax-e _%tl8314583178%_))) + (let ((_%hd8314783185%_ (let () (declare (not safe)) - (##car _%e8287282907%_))) - (_%tl8287482914%_ + (##car _%e8314683181%_))) + (_%tl8314883188%_ (let () (declare (not safe)) - (##cdr _%e8287282907%_)))) - (if (gx#stx-null? _%tl8287482914%_) - ((lambda (_%L82917%_ _%L82919%_) + (##cdr _%e8314683181%_)))) + (if (gx#stx-null? _%tl8314883188%_) + ((lambda (_%L83191%_ _%L83193%_) (cons (gx#datum->syntax '#f 'begin-annotation) @@ -66,52 +66,52 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@inline) - (cons _%L82919%_ '())) + (cons _%L83193%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L82917%_ '())) + (cons _%L83191%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8287382911%_ - _%hd8287082901%_) - (_%g8286282880%_ - _%g8286382884%_)))) - (_%g8286282880%_ _%g8286382884%_)))) - (_%g8286282880%_ _%g8286382884%_)))) - (_%g8286282880%_ _%g8286382884%_))))) - (_%g8286182936%_ _%$stx82858%_)))) + _%hd8314783185%_ + _%hd8314483175%_) + (_%g8313683154%_ + _%g8313783158%_)))) + (_%g8313683154%_ _%g8313783158%_)))) + (_%g8313683154%_ _%g8313783158%_)))) + (_%g8313683154%_ _%g8313783158%_))))) + (_%g8313583210%_ _%$stx83132%_)))) (define |[:0:]#__lock-inline!| - (lambda (_%$stx82940%_) - (let* ((_%g8294482958%_ - (lambda (_%g8294582954%_) + (lambda (_%$stx83214%_) + (let* ((_%g8321883232%_ + (lambda (_%g8321983228%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8294582954%_))) - (_%g8294382999%_ - (lambda (_%g8294582962%_) - (if (gx#stx-pair? _%g8294582962%_) - (let ((_%e8294782965%_ (gx#syntax-e _%g8294582962%_))) - (let ((_%hd8294882969%_ + _%g8321983228%_))) + (_%g8321783273%_ + (lambda (_%g8321983236%_) + (if (gx#stx-pair? _%g8321983236%_) + (let ((_%e8322183239%_ (gx#syntax-e _%g8321983236%_))) + (let ((_%hd8322283243%_ (let () (declare (not safe)) - (##car _%e8294782965%_))) - (_%tl8294982972%_ + (##car _%e8322183239%_))) + (_%tl8322383246%_ (let () (declare (not safe)) - (##cdr _%e8294782965%_)))) - (if (gx#stx-pair? _%tl8294982972%_) - (let ((_%e8295082975%_ - (gx#syntax-e _%tl8294982972%_))) - (let ((_%hd8295182979%_ + (##cdr _%e8322183239%_)))) + (if (gx#stx-pair? _%tl8322383246%_) + (let ((_%e8322483249%_ + (gx#syntax-e _%tl8322383246%_))) + (let ((_%hd8322583253%_ (let () (declare (not safe)) - (##car _%e8295082975%_))) - (_%tl8295282982%_ + (##car _%e8322483249%_))) + (_%tl8322683256%_ (let () (declare (not safe)) - (##cdr _%e8295082975%_)))) - (if (gx#stx-null? _%tl8295282982%_) - ((lambda (_%L82985%_) + (##cdr _%e8322483249%_)))) + (if (gx#stx-null? _%tl8322683256%_) + ((lambda (_%L83259%_) (cons (gx#datum->syntax '#f 'let) (cons '() (cons (cons (gx#datum->syntax @@ -135,7 +135,7 @@ '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##vector-cas!) - (cons _%L82985%_ + (cons _%L83259%_ (cons '0 (cons '1 (cons '0 '()))))) (cons '0 '()))) @@ -146,133 +146,133 @@ '())))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8295182979%_) - (_%g8294482958%_ _%g8294582962%_)))) - (_%g8294482958%_ _%g8294582962%_)))) - (_%g8294482958%_ _%g8294582962%_))))) - (_%g8294382999%_ _%$stx82940%_)))) + _%hd8322583253%_) + (_%g8321883232%_ _%g8321983236%_)))) + (_%g8321883232%_ _%g8321983236%_)))) + (_%g8321883232%_ _%g8321983236%_))))) + (_%g8321783273%_ _%$stx83214%_)))) (define |[:0:]#__unlock-inline!| - (lambda (_%$stx83003%_) - (let* ((_%g8300783021%_ - (lambda (_%g8300883017%_) + (lambda (_%$stx83277%_) + (let* ((_%g8328183295%_ + (lambda (_%g8328283291%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8300883017%_))) - (_%g8300683062%_ - (lambda (_%g8300883025%_) - (if (gx#stx-pair? _%g8300883025%_) - (let ((_%e8301083028%_ (gx#syntax-e _%g8300883025%_))) - (let ((_%hd8301183032%_ + _%g8328283291%_))) + (_%g8328083336%_ + (lambda (_%g8328283299%_) + (if (gx#stx-pair? _%g8328283299%_) + (let ((_%e8328483302%_ (gx#syntax-e _%g8328283299%_))) + (let ((_%hd8328583306%_ (let () (declare (not safe)) - (##car _%e8301083028%_))) - (_%tl8301283035%_ + (##car _%e8328483302%_))) + (_%tl8328683309%_ (let () (declare (not safe)) - (##cdr _%e8301083028%_)))) - (if (gx#stx-pair? _%tl8301283035%_) - (let ((_%e8301383038%_ - (gx#syntax-e _%tl8301283035%_))) - (let ((_%hd8301483042%_ + (##cdr _%e8328483302%_)))) + (if (gx#stx-pair? _%tl8328683309%_) + (let ((_%e8328783312%_ + (gx#syntax-e _%tl8328683309%_))) + (let ((_%hd8328883316%_ (let () (declare (not safe)) - (##car _%e8301383038%_))) - (_%tl8301583045%_ + (##car _%e8328783312%_))) + (_%tl8328983319%_ (let () (declare (not safe)) - (##cdr _%e8301383038%_)))) - (if (gx#stx-null? _%tl8301583045%_) - ((lambda (_%L83048%_) + (##cdr _%e8328783312%_)))) + (if (gx#stx-null? _%tl8328983319%_) + ((lambda (_%L83322%_) (cons (gx#datum->syntax '#f '##vector-cas!) - (cons _%L83048%_ + (cons _%L83322%_ (cons '0 (cons '0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '1 '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8301483042%_) - (_%g8300783021%_ _%g8300883025%_)))) - (_%g8300783021%_ _%g8300883025%_)))) - (_%g8300783021%_ _%g8300883025%_))))) - (_%g8300683062%_ _%$stx83003%_)))) + _%hd8328883316%_) + (_%g8328183295%_ _%g8328283299%_)))) + (_%g8328183295%_ _%g8328283299%_)))) + (_%g8328183295%_ _%g8328283299%_))))) + (_%g8328083336%_ _%$stx83277%_)))) (define |[:0:]#__make-inline-lock| - (lambda (_%$stx83066%_) - (let* ((_%g8307083080%_ - (lambda (_%g8307183076%_) + (lambda (_%$stx83340%_) + (let* ((_%g8334483354%_ + (lambda (_%g8334583350%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8307183076%_))) - (_%g8306983101%_ - (lambda (_%g8307183084%_) - (if (gx#stx-pair? _%g8307183084%_) - (let ((_%e8307283087%_ (gx#syntax-e _%g8307183084%_))) - (let ((_%hd8307383091%_ + _%g8334583350%_))) + (_%g8334383375%_ + (lambda (_%g8334583358%_) + (if (gx#stx-pair? _%g8334583358%_) + (let ((_%e8334683361%_ (gx#syntax-e _%g8334583358%_))) + (let ((_%hd8334783365%_ (let () (declare (not safe)) - (##car _%e8307283087%_))) - (_%tl8307483094%_ + (##car _%e8334683361%_))) + (_%tl8334883368%_ (let () (declare (not safe)) - (##cdr _%e8307283087%_)))) - (if (gx#stx-null? _%tl8307483094%_) + (##cdr _%e8334683361%_)))) + (if (gx#stx-null? _%tl8334883368%_) ((lambda () (cons (gx#datum->syntax '#f 'vector) (cons '0 '())))) - (_%g8307083080%_ _%g8307183084%_)))) - (_%g8307083080%_ _%g8307183084%_))))) - (_%g8306983101%_ _%$stx83066%_)))) + (_%g8334483354%_ _%g8334583358%_)))) + (_%g8334483354%_ _%g8334583358%_))))) + (_%g8334383375%_ _%$stx83340%_)))) (define |[:0:]#defaget| - (lambda (_%$stx83105%_) - (let* ((_%g8310983127%_ - (lambda (_%g8311083123%_) + (lambda (_%$stx83379%_) + (let* ((_%g8338383401%_ + (lambda (_%g8338483397%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8311083123%_))) - (_%g8310883182%_ - (lambda (_%g8311083131%_) - (if (gx#stx-pair? _%g8311083131%_) - (let ((_%e8311383134%_ (gx#syntax-e _%g8311083131%_))) - (let ((_%hd8311483138%_ + _%g8338483397%_))) + (_%g8338283456%_ + (lambda (_%g8338483405%_) + (if (gx#stx-pair? _%g8338483405%_) + (let ((_%e8338783408%_ (gx#syntax-e _%g8338483405%_))) + (let ((_%hd8338883412%_ (let () (declare (not safe)) - (##car _%e8311383134%_))) - (_%tl8311583141%_ + (##car _%e8338783408%_))) + (_%tl8338983415%_ (let () (declare (not safe)) - (##cdr _%e8311383134%_)))) - (if (gx#stx-pair? _%tl8311583141%_) - (let ((_%e8311683144%_ - (gx#syntax-e _%tl8311583141%_))) - (let ((_%hd8311783148%_ + (##cdr _%e8338783408%_)))) + (if (gx#stx-pair? _%tl8338983415%_) + (let ((_%e8339083418%_ + (gx#syntax-e _%tl8338983415%_))) + (let ((_%hd8339183422%_ (let () (declare (not safe)) - (##car _%e8311683144%_))) - (_%tl8311883151%_ + (##car _%e8339083418%_))) + (_%tl8339283425%_ (let () (declare (not safe)) - (##cdr _%e8311683144%_)))) - (if (gx#stx-pair? _%tl8311883151%_) - (let ((_%e8311983154%_ - (gx#syntax-e _%tl8311883151%_))) - (let ((_%hd8312083158%_ + (##cdr _%e8339083418%_)))) + (if (gx#stx-pair? _%tl8339283425%_) + (let ((_%e8339383428%_ + (gx#syntax-e _%tl8339283425%_))) + (let ((_%hd8339483432%_ (let () (declare (not safe)) - (##car _%e8311983154%_))) - (_%tl8312183161%_ + (##car _%e8339383428%_))) + (_%tl8339583435%_ (let () (declare (not safe)) - (##cdr _%e8311983154%_)))) - (if (gx#stx-null? _%tl8312183161%_) - ((lambda (_%L83164%_ _%L83166%_) + (##cdr _%e8339383428%_)))) + (if (gx#stx-null? _%tl8339583435%_) + ((lambda (_%L83438%_ _%L83440%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L83166%_ + (cons (cons _%L83440%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f 'lst) @@ -291,7 +291,7 @@ '#f 'lst) '())) - (cons (cons _%L83164%_ + (cons (cons _%L83438%_ (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f 'lst) '()))) '()))) @@ -328,62 +328,62 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8312083158%_ - _%hd8311783148%_) - (_%g8310983127%_ - _%g8311083131%_)))) - (_%g8310983127%_ _%g8311083131%_)))) - (_%g8310983127%_ _%g8311083131%_)))) - (_%g8310983127%_ _%g8311083131%_))))) - (_%g8310883182%_ _%$stx83105%_)))) + _%hd8339483432%_ + _%hd8339183422%_) + (_%g8338383401%_ + _%g8338483405%_)))) + (_%g8338383401%_ _%g8338483405%_)))) + (_%g8338383401%_ _%g8338483405%_)))) + (_%g8338383401%_ _%g8338483405%_))))) + (_%g8338283456%_ _%$stx83379%_)))) (define |[:0:]#defpget| - (lambda (_%$stx83186%_) - (let* ((_%g8319083208%_ - (lambda (_%g8319183204%_) + (lambda (_%$stx83460%_) + (let* ((_%g8346483482%_ + (lambda (_%g8346583478%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8319183204%_))) - (_%g8318983263%_ - (lambda (_%g8319183212%_) - (if (gx#stx-pair? _%g8319183212%_) - (let ((_%e8319483215%_ (gx#syntax-e _%g8319183212%_))) - (let ((_%hd8319583219%_ + _%g8346583478%_))) + (_%g8346383537%_ + (lambda (_%g8346583486%_) + (if (gx#stx-pair? _%g8346583486%_) + (let ((_%e8346883489%_ (gx#syntax-e _%g8346583486%_))) + (let ((_%hd8346983493%_ (let () (declare (not safe)) - (##car _%e8319483215%_))) - (_%tl8319683222%_ + (##car _%e8346883489%_))) + (_%tl8347083496%_ (let () (declare (not safe)) - (##cdr _%e8319483215%_)))) - (if (gx#stx-pair? _%tl8319683222%_) - (let ((_%e8319783225%_ - (gx#syntax-e _%tl8319683222%_))) - (let ((_%hd8319883229%_ + (##cdr _%e8346883489%_)))) + (if (gx#stx-pair? _%tl8347083496%_) + (let ((_%e8347183499%_ + (gx#syntax-e _%tl8347083496%_))) + (let ((_%hd8347283503%_ (let () (declare (not safe)) - (##car _%e8319783225%_))) - (_%tl8319983232%_ + (##car _%e8347183499%_))) + (_%tl8347383506%_ (let () (declare (not safe)) - (##cdr _%e8319783225%_)))) - (if (gx#stx-pair? _%tl8319983232%_) - (let ((_%e8320083235%_ - (gx#syntax-e _%tl8319983232%_))) - (let ((_%hd8320183239%_ + (##cdr _%e8347183499%_)))) + (if (gx#stx-pair? _%tl8347383506%_) + (let ((_%e8347483509%_ + (gx#syntax-e _%tl8347383506%_))) + (let ((_%hd8347583513%_ (let () (declare (not safe)) - (##car _%e8320083235%_))) - (_%tl8320283242%_ + (##car _%e8347483509%_))) + (_%tl8347683516%_ (let () (declare (not safe)) - (##cdr _%e8320083235%_)))) - (if (gx#stx-null? _%tl8320283242%_) - ((lambda (_%L83245%_ _%L83247%_) + (##cdr _%e8347483509%_)))) + (if (gx#stx-null? _%tl8347683516%_) + ((lambda (_%L83519%_ _%L83521%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L83247%_ + (cons (cons _%L83521%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f 'lst) @@ -418,7 +418,7 @@ '#f 'rest)))) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L83245%_ + (cons (cons _%L83519%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -458,62 +458,62 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8320183239%_ - _%hd8319883229%_) - (_%g8319083208%_ - _%g8319183212%_)))) - (_%g8319083208%_ _%g8319183212%_)))) - (_%g8319083208%_ _%g8319183212%_)))) - (_%g8319083208%_ _%g8319183212%_))))) - (_%g8318983263%_ _%$stx83186%_)))) + _%hd8347583513%_ + _%hd8347283503%_) + (_%g8346483482%_ + _%g8346583486%_)))) + (_%g8346483482%_ _%g8346583486%_)))) + (_%g8346483482%_ _%g8346583486%_)))) + (_%g8346483482%_ _%g8346583486%_))))) + (_%g8346383537%_ _%$stx83460%_)))) (define |[:0:]#defremove1| - (lambda (_%$stx83267%_) - (let* ((_%g8327183289%_ - (lambda (_%g8327283285%_) + (lambda (_%$stx83541%_) + (let* ((_%g8354583563%_ + (lambda (_%g8354683559%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8327283285%_))) - (_%g8327083344%_ - (lambda (_%g8327283293%_) - (if (gx#stx-pair? _%g8327283293%_) - (let ((_%e8327583296%_ (gx#syntax-e _%g8327283293%_))) - (let ((_%hd8327683300%_ + _%g8354683559%_))) + (_%g8354483618%_ + (lambda (_%g8354683567%_) + (if (gx#stx-pair? _%g8354683567%_) + (let ((_%e8354983570%_ (gx#syntax-e _%g8354683567%_))) + (let ((_%hd8355083574%_ (let () (declare (not safe)) - (##car _%e8327583296%_))) - (_%tl8327783303%_ + (##car _%e8354983570%_))) + (_%tl8355183577%_ (let () (declare (not safe)) - (##cdr _%e8327583296%_)))) - (if (gx#stx-pair? _%tl8327783303%_) - (let ((_%e8327883306%_ - (gx#syntax-e _%tl8327783303%_))) - (let ((_%hd8327983310%_ + (##cdr _%e8354983570%_)))) + (if (gx#stx-pair? _%tl8355183577%_) + (let ((_%e8355283580%_ + (gx#syntax-e _%tl8355183577%_))) + (let ((_%hd8355383584%_ (let () (declare (not safe)) - (##car _%e8327883306%_))) - (_%tl8328083313%_ + (##car _%e8355283580%_))) + (_%tl8355483587%_ (let () (declare (not safe)) - (##cdr _%e8327883306%_)))) - (if (gx#stx-pair? _%tl8328083313%_) - (let ((_%e8328183316%_ - (gx#syntax-e _%tl8328083313%_))) - (let ((_%hd8328283320%_ + (##cdr _%e8355283580%_)))) + (if (gx#stx-pair? _%tl8355483587%_) + (let ((_%e8355583590%_ + (gx#syntax-e _%tl8355483587%_))) + (let ((_%hd8355683594%_ (let () (declare (not safe)) - (##car _%e8328183316%_))) - (_%tl8328383323%_ + (##car _%e8355583590%_))) + (_%tl8355783597%_ (let () (declare (not safe)) - (##cdr _%e8328183316%_)))) - (if (gx#stx-null? _%tl8328383323%_) - ((lambda (_%L83326%_ _%L83328%_) + (##cdr _%e8355583590%_)))) + (if (gx#stx-null? _%tl8355783597%_) + ((lambda (_%L83600%_ _%L83602%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L83328%_ + (cons (cons _%L83602%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'el) (cons (gx#datum->syntax '#f 'lst) '()))) @@ -550,7 +550,7 @@ (cons (gx#datum->syntax '#f 'hd) (gx#datum->syntax '#f 'rest))) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L83326%_ + (cons (cons _%L83600%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -586,150 +586,150 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8328283320%_ - _%hd8327983310%_) - (_%g8327183289%_ - _%g8327283293%_)))) - (_%g8327183289%_ _%g8327283293%_)))) - (_%g8327183289%_ _%g8327283293%_)))) - (_%g8327183289%_ _%g8327283293%_))))) - (_%g8327083344%_ _%$stx83267%_)))) + _%hd8355683594%_ + _%hd8355383584%_) + (_%g8354583563%_ + _%g8354683567%_)))) + (_%g8354583563%_ _%g8354683567%_)))) + (_%g8354583563%_ _%g8354683567%_)))) + (_%g8354583563%_ _%g8354683567%_))))) + (_%g8354483618%_ _%$stx83541%_)))) (define |[:0:]#DBG| - (lambda (_%$stx83348%_) - (let* ((_%g8335283363%_ - (lambda (_%g8335383359%_) + (lambda (_%$stx83622%_) + (let* ((_%g8362683637%_ + (lambda (_%g8362783633%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8335383359%_))) - (_%g8335183392%_ - (lambda (_%g8335383367%_) - (if (gx#stx-pair? _%g8335383367%_) - (let ((_%e8335583370%_ (gx#syntax-e _%g8335383367%_))) - (let ((_%hd8335683374%_ + _%g8362783633%_))) + (_%g8362583666%_ + (lambda (_%g8362783641%_) + (if (gx#stx-pair? _%g8362783641%_) + (let ((_%e8362983644%_ (gx#syntax-e _%g8362783641%_))) + (let ((_%hd8363083648%_ (let () (declare (not safe)) - (##car _%e8335583370%_))) - (_%tl8335783377%_ + (##car _%e8362983644%_))) + (_%tl8363183651%_ (let () (declare (not safe)) - (##cdr _%e8335583370%_)))) - ((lambda (_%L83380%_) + (##cdr _%e8362983644%_)))) + ((lambda (_%L83654%_) (cons (gx#datum->syntax '#f 'DBG/1) - (cons '1 _%L83380%_))) - _%tl8335783377%_))) - (_%g8335283363%_ _%g8335383367%_))))) - (_%g8335183392%_ _%$stx83348%_)))) + (cons '1 _%L83654%_))) + _%tl8363183651%_))) + (_%g8362683637%_ _%g8362783641%_))))) + (_%g8362583666%_ _%$stx83622%_)))) (define |[:0:]#DBG/1| - (lambda (_%$stx83396%_) - (let* ((_%__stx8934889349%_ _%$stx83396%_) - (_%g8340783621%_ + (lambda (_%$stx83670%_) + (let* ((_%__stx8962289623%_ _%$stx83670%_) + (_%g8368183895%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8934889349%_)))) - (let ((_%__kont8935189352%_ - (lambda (_%L84474%_ - _%L84476%_ - _%L84477%_ - _%L84478%_ - _%L84479%_) - (cons _%L84479%_ + _%__stx8962289623%_)))) + (let ((_%__kont8962589626%_ + (lambda (_%L84748%_ + _%L84750%_ + _%L84751%_ + _%L84752%_ + _%L84753%_) + (cons _%L84753%_ (cons '2 (cons '() (cons (__foldr1 - (lambda (_%g8450984512%_ - _%g8451084515%_) - (cons _%g8450984512%_ - _%g8451084515%_)) + (lambda (_%g8478384786%_ + _%g8478484789%_) + (cons _%g8478384786%_ + _%g8478484789%_)) '() - _%L84477%_) - (cons _%L84478%_ - (cons _%L84476%_ - (cons _%L84474%_ + _%L84751%_) + (cons _%L84752%_ + (cons _%L84750%_ + (cons _%L84748%_ '()))))))))) - (_%__kont8935589356%_ - (lambda (_%L84327%_ _%L84329%_ _%L84330%_ _%L84331%_) - (cons _%L84331%_ + (_%__kont8962989630%_ + (lambda (_%L84601%_ _%L84603%_ _%L84604%_ _%L84605%_) + (cons _%L84605%_ (cons '2 (cons '() (cons (__foldr1 - (lambda (_%g8435484357%_ - _%g8435584360%_) - (cons _%g8435484357%_ - _%g8435584360%_)) + (lambda (_%g8462884631%_ + _%g8462984634%_) + (cons _%g8462884631%_ + _%g8462984634%_)) '() - _%L84329%_) - (cons _%L84330%_ - (cons _%L84327%_ - (cons _%L84327%_ + _%L84603%_) + (cons _%L84604%_ + (cons _%L84601%_ + (cons _%L84601%_ '()))))))))) - (_%__kont8935989360%_ - (lambda (_%L84230%_) + (_%__kont8963389634%_ + (lambda (_%L84504%_) (cons (gx#datum->syntax '#f 'DBG-helper) - (cons _%L84230%_ + (cons _%L84504%_ (cons (cons (gx#datum->syntax '#f 'quote) (cons '() '())) (cons (cons (gx#datum->syntax '#f 'quote) (cons '() '())) (cons '#f (cons '#f '())))))))) - (_%__kont8936189362%_ - (lambda (_%L84153%_ - _%L84155%_ - _%L84156%_ - _%L84157%_ - _%L84158%_ - _%L84159%_) - (cons _%L84159%_ + (_%__kont8963589636%_ + (lambda (_%L84427%_ + _%L84429%_ + _%L84430%_ + _%L84431%_ + _%L84432%_ + _%L84433%_) + (cons _%L84433%_ (cons '2 - (cons (cons (cons _%L84157%_ - (cons _%L84156%_ '())) - _%L84158%_) - (cons _%L84155%_ _%L84153%_)))))) - (_%__kont8936389364%_ - (lambda (_%L84034%_ - _%L84036%_ - _%L84037%_ - _%L84038%_ - _%L84039%_) - (cons _%L84039%_ + (cons (cons (cons _%L84431%_ + (cons _%L84430%_ '())) + _%L84432%_) + (cons _%L84429%_ _%L84427%_)))))) + (_%__kont8963789638%_ + (lambda (_%L84308%_ + _%L84310%_ + _%L84311%_ + _%L84312%_ + _%L84313%_) + (cons _%L84313%_ (cons '2 - (cons (cons (cons _%L84037%_ - (cons _%L84037%_ '())) - _%L84038%_) - (cons _%L84036%_ _%L84034%_)))))) - (_%__kont8936589366%_ - (lambda (_%L83951%_ _%L83953%_ _%L83954%_) - (cons _%L83954%_ - (cons '3 (cons '() (cons _%L83953%_ _%L83951%_)))))) - (_%__kont8936789368%_ - (lambda (_%L83872%_ - _%L83874%_ - _%L83875%_ - _%L83876%_ - _%L83877%_) - (cons _%L83877%_ + (cons (cons (cons _%L84311%_ + (cons _%L84311%_ '())) + _%L84312%_) + (cons _%L84310%_ _%L84308%_)))))) + (_%__kont8963989640%_ + (lambda (_%L84225%_ _%L84227%_ _%L84228%_) + (cons _%L84228%_ + (cons '3 (cons '() (cons _%L84227%_ _%L84225%_)))))) + (_%__kont8964189642%_ + (lambda (_%L84146%_ + _%L84148%_ + _%L84149%_ + _%L84150%_ + _%L84151%_) + (cons _%L84151%_ (cons '3 - (cons (cons _%L83875%_ _%L83876%_) - (cons _%L83874%_ _%L83872%_)))))) - (_%__kont8936989370%_ - (lambda (_%L83756%_ - _%L83758%_ - _%L83759%_ - _%L83760%_ - _%L83761%_ - _%L83762%_) + (cons (cons _%L84149%_ _%L84150%_) + (cons _%L84148%_ _%L84146%_)))))) + (_%__kont8964389644%_ + (lambda (_%L84030%_ + _%L84032%_ + _%L84033%_ + _%L84034%_ + _%L84035%_ + _%L84036%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (cons (gx#datum->syntax '#f 'tagval) - (cons _%L83759%_ '())) + (cons _%L84033%_ '())) (cons (cons (gx#datum->syntax '#f 'thunk) (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L83756%_ '()))) + (cons _%L84030%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -744,31 +744,31 @@ 'tagval) (cons (cons (gx#datum->syntax '#f 'quote) (cons (__foldr1 - (lambda (_%g8379683799%_ - _%g8379783802%_) - (cons _%g8379683799%_ - _%g8379783802%_)) + (lambda (_%g8407084073%_ + _%g8407184076%_) + (cons _%g8407084073%_ + _%g8407184076%_)) '() - _%L83761%_) + _%L84035%_) '())) (cons (cons (gx#datum->syntax '#f 'list) (__foldr1 - (lambda (_%g8379483805%_ - _%g8379583808%_) + (lambda (_%g8406884079%_ + _%g8406984082%_) (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%g8379483805%_ '()))) - _%g8379583808%_)) + (cons _%g8406884079%_ '()))) + _%g8406984082%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L83760%_)) + _%L84034%_)) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L83758%_ '())) + (cons _%L84032%_ '())) (cons (gx#datum->syntax '#f 'thunk) @@ -776,1201 +776,1201 @@ (cons (cons (gx#datum->syntax '#f 'thunk) '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((_%__match8969989700%_ - (lambda (_%e8357783628%_ - _%hd8357883632%_ - _%tl8357983635%_ - _%e8358083638%_ - _%hd8358183642%_ - _%tl8358283645%_ - _%e8358383648%_ - _%e8358483652%_ - _%hd8358583656%_ - _%tl8358683659%_ - _%__splice8937189372%_ - _%target8358783662%_ - _%tl8358983665%_) - (letrec ((_%loop8359083668%_ - (lambda (_%hd8358883672%_ - _%exprs8359483675%_ - _%names8359583677%_) - (if (gx#stx-pair? _%hd8358883672%_) - (let ((_%e8359183680%_ - (gx#syntax-e _%hd8358883672%_))) - (let ((_%lp-tl8359383687%_ + (let* ((_%__match8997389974%_ + (lambda (_%e8385183902%_ + _%hd8385283906%_ + _%tl8385383909%_ + _%e8385483912%_ + _%hd8385583916%_ + _%tl8385683919%_ + _%e8385783922%_ + _%e8385883926%_ + _%hd8385983930%_ + _%tl8386083933%_ + _%__splice8964589646%_ + _%target8386183936%_ + _%tl8386383939%_) + (letrec ((_%loop8386483942%_ + (lambda (_%hd8386283946%_ + _%exprs8386883949%_ + _%names8386983951%_) + (if (gx#stx-pair? _%hd8386283946%_) + (let ((_%e8386583954%_ + (gx#syntax-e _%hd8386283946%_))) + (let ((_%lp-tl8386783961%_ (let () (declare (not safe)) - (##cdr _%e8359183680%_))) - (_%lp-hd8359283684%_ + (##cdr _%e8386583954%_))) + (_%lp-hd8386683958%_ (let () (declare (not safe)) - (##car _%e8359183680%_)))) + (##car _%e8386583954%_)))) (if (gx#stx-pair? - _%lp-hd8359283684%_) - (let ((_%e8361083690%_ + _%lp-hd8386683958%_) + (let ((_%e8388483964%_ (gx#syntax-e - _%lp-hd8359283684%_))) - (let ((_%tl8361283697%_ + _%lp-hd8386683958%_))) + (let ((_%tl8388683971%_ (let () (declare (not safe)) - (##cdr _%e8361083690%_))) - (_%hd8361183694%_ + (##cdr _%e8388483964%_))) + (_%hd8388583968%_ (let () (declare (not safe)) - (##car _%e8361083690%_)))) + (##car _%e8388483964%_)))) (if (gx#stx-pair? - _%tl8361283697%_) - (let ((_%e8361383700%_ + _%tl8388683971%_) + (let ((_%e8388783974%_ (gx#syntax-e - _%tl8361283697%_))) - (let ((_%tl8361583707%_ + _%tl8388683971%_))) + (let ((_%tl8388983981%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e8361383700%_))) - (_%hd8361483704%_ - (let () (declare (not safe)) (##car _%e8361383700%_)))) - (if (gx#stx-null? _%tl8361583707%_) - (_%loop8359083668%_ - _%lp-tl8359383687%_ - (cons _%hd8361483704%_ _%exprs8359483675%_) - (cons _%hd8361183694%_ _%names8359583677%_)) - (let () (declare (not safe)) (_%g8340783621%_))))) - (let () (declare (not safe)) (_%g8340783621%_))))) + (##cdr _%e8388783974%_))) + (_%hd8388883978%_ + (let () (declare (not safe)) (##car _%e8388783974%_)))) + (if (gx#stx-null? _%tl8388983981%_) + (_%loop8386483942%_ + _%lp-tl8386783961%_ + (cons _%hd8388883978%_ _%exprs8386883949%_) + (cons _%hd8388583968%_ _%names8386983951%_)) + (let () (declare (not safe)) (_%g8368183895%_))))) + (let () (declare (not safe)) (_%g8368183895%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8340783621%_))))) - (let ((_%names8359783713%_ - (reverse _%names8359583677%_)) - (_%exprs8359683710%_ - (reverse _%exprs8359483675%_))) - (if (gx#stx-pair? _%tl8358683659%_) - (let ((_%e8359883716%_ + (_%g8368183895%_))))) + (let ((_%names8387183987%_ + (reverse _%names8386983951%_)) + (_%exprs8387083984%_ + (reverse _%exprs8386883949%_))) + (if (gx#stx-pair? _%tl8386083933%_) + (let ((_%e8387283990%_ (gx#syntax-e - _%tl8358683659%_))) - (let ((_%tl8360083723%_ + _%tl8386083933%_))) + (let ((_%tl8387483997%_ (let () (declare (not safe)) - (##cdr _%e8359883716%_))) - (_%hd8359983720%_ + (##cdr _%e8387283990%_))) + (_%hd8387383994%_ (let () (declare (not safe)) - (##car _%e8359883716%_)))) + (##car _%e8387283990%_)))) (if (gx#stx-null? - _%hd8359983720%_) + _%hd8387383994%_) (if (gx#stx-pair? - _%tl8360083723%_) - (let ((_%e8360183726%_ + _%tl8387483997%_) + (let ((_%e8387584000%_ (gx#syntax-e - _%tl8360083723%_))) - (let ((_%tl8360383733%_ + _%tl8387483997%_))) + (let ((_%tl8387784007%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e8360183726%_))) - (_%hd8360283730%_ + (let () (declare (not safe)) (##cdr _%e8387584000%_))) + (_%hd8387684004%_ (let () (declare (not safe)) - (##car _%e8360183726%_)))) - (if (gx#stx-pair? _%tl8360383733%_) - (let ((_%e8360483736%_ (gx#syntax-e _%tl8360383733%_))) - (let ((_%tl8360683743%_ + (##car _%e8387584000%_)))) + (if (gx#stx-pair? _%tl8387784007%_) + (let ((_%e8387884010%_ (gx#syntax-e _%tl8387784007%_))) + (let ((_%tl8388084017%_ (let () (declare (not safe)) - (##cdr _%e8360483736%_))) - (_%hd8360583740%_ + (##cdr _%e8387884010%_))) + (_%hd8387984014%_ (let () (declare (not safe)) - (##car _%e8360483736%_)))) - (if (gx#stx-pair? _%tl8360683743%_) - (let ((_%e8360783746%_ - (gx#syntax-e _%tl8360683743%_))) - (let ((_%tl8360983753%_ + (##car _%e8387884010%_)))) + (if (gx#stx-pair? _%tl8388084017%_) + (let ((_%e8388184020%_ + (gx#syntax-e _%tl8388084017%_))) + (let ((_%tl8388384027%_ (let () (declare (not safe)) - (##cdr _%e8360783746%_))) - (_%hd8360883750%_ + (##cdr _%e8388184020%_))) + (_%hd8388284024%_ (let () (declare (not safe)) - (##car _%e8360783746%_)))) - (if (gx#stx-null? _%tl8360983753%_) - (_%__kont8936989370%_ - _%hd8360883750%_ - _%hd8360583740%_ - _%hd8360283730%_ - _%exprs8359683710%_ - _%names8359783713%_ - _%hd8357883632%_) + (##car _%e8388184020%_)))) + (if (gx#stx-null? _%tl8388384027%_) + (_%__kont8964389644%_ + _%hd8388284024%_ + _%hd8387984014%_ + _%hd8387684004%_ + _%exprs8387083984%_ + _%names8387183987%_ + _%hd8385283906%_) (let () (declare (not safe)) - (_%g8340783621%_))))) + (_%g8368183895%_))))) (let () (declare (not safe)) - (_%g8340783621%_))))) - (let () (declare (not safe)) (_%g8340783621%_))))) - (let () (declare (not safe)) (_%g8340783621%_))) + (_%g8368183895%_))))) + (let () (declare (not safe)) (_%g8368183895%_))))) + (let () (declare (not safe)) (_%g8368183895%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8340783621%_))))) + (_%g8368183895%_))))) (let () (declare (not safe)) - (_%g8340783621%_)))))))) - (_%loop8359083668%_ _%target8358783662%_ '() '())))) - (_%__match8947789478%_ - (lambda (_%e8344984253%_ - _%hd8345084257%_ - _%tl8345184260%_ - _%e8345284263%_ - _%hd8345384267%_ - _%tl8345484270%_ - _%e8345584273%_ - _%e8345684277%_ - _%hd8345784281%_ - _%tl8345884284%_ - _%__splice8935789358%_ - _%target8345984287%_ - _%tl8346184290%_ - _%e8346884293%_ - _%hd8346984297%_ - _%tl8347084300%_) - (letrec ((_%loop8346284303%_ - (lambda (_%hd8346084307%_ _%exprs8346684310%_) - (if (gx#stx-pair? _%hd8346084307%_) - (let ((_%e8346384313%_ - (gx#syntax-e _%hd8346084307%_))) - (let ((_%lp-tl8346584320%_ + (_%g8368183895%_)))))))) + (_%loop8386483942%_ _%target8386183936%_ '() '())))) + (_%__match8975189752%_ + (lambda (_%e8372384527%_ + _%hd8372484531%_ + _%tl8372584534%_ + _%e8372684537%_ + _%hd8372784541%_ + _%tl8372884544%_ + _%e8372984547%_ + _%e8373084551%_ + _%hd8373184555%_ + _%tl8373284558%_ + _%__splice8963189632%_ + _%target8373384561%_ + _%tl8373584564%_ + _%e8374284567%_ + _%hd8374384571%_ + _%tl8374484574%_) + (letrec ((_%loop8373684577%_ + (lambda (_%hd8373484581%_ _%exprs8374084584%_) + (if (gx#stx-pair? _%hd8373484581%_) + (let ((_%e8373784587%_ + (gx#syntax-e _%hd8373484581%_))) + (let ((_%lp-tl8373984594%_ (let () (declare (not safe)) - (##cdr _%e8346384313%_))) - (_%lp-hd8346484317%_ + (##cdr _%e8373784587%_))) + (_%lp-hd8373884591%_ (let () (declare (not safe)) - (##car _%e8346384313%_)))) - (_%loop8346284303%_ - _%lp-tl8346584320%_ - (cons _%lp-hd8346484317%_ - _%exprs8346684310%_)))) - (let ((_%exprs8346784323%_ - (reverse _%exprs8346684310%_))) - (_%__kont8935589356%_ - _%hd8346984297%_ - _%exprs8346784323%_ - _%hd8345784281%_ - _%hd8345084257%_)))))) - (_%loop8346284303%_ _%target8345984287%_ '())))) - (_%__match8943789438%_ - (lambda (_%e8341484370%_ - _%hd8341584374%_ - _%tl8341684377%_ - _%e8341784380%_ - _%hd8341884384%_ - _%tl8341984387%_ - _%e8342084390%_ - _%e8342184394%_ - _%hd8342284398%_ - _%tl8342384401%_ - _%__splice8935389354%_ - _%target8342484404%_ - _%tl8342684407%_ - _%e8343384410%_ - _%hd8343484414%_ - _%tl8343584417%_ - _%e8343684420%_ - _%hd8343784424%_ - _%tl8343884427%_ - _%e8343984430%_ - _%hd8344084434%_ - _%tl8344184437%_ - _%e8344284440%_ - _%hd8344384444%_ - _%tl8344484447%_) - (letrec ((_%loop8342784450%_ - (lambda (_%hd8342584454%_ _%exprs8343184457%_) - (if (gx#stx-pair? _%hd8342584454%_) - (let ((_%e8342884460%_ - (gx#syntax-e _%hd8342584454%_))) - (let ((_%lp-tl8343084467%_ + (##car _%e8373784587%_)))) + (_%loop8373684577%_ + _%lp-tl8373984594%_ + (cons _%lp-hd8373884591%_ + _%exprs8374084584%_)))) + (let ((_%exprs8374184597%_ + (reverse _%exprs8374084584%_))) + (_%__kont8962989630%_ + _%hd8374384571%_ + _%exprs8374184597%_ + _%hd8373184555%_ + _%hd8372484531%_)))))) + (_%loop8373684577%_ _%target8373384561%_ '())))) + (_%__match8971189712%_ + (lambda (_%e8368884644%_ + _%hd8368984648%_ + _%tl8369084651%_ + _%e8369184654%_ + _%hd8369284658%_ + _%tl8369384661%_ + _%e8369484664%_ + _%e8369584668%_ + _%hd8369684672%_ + _%tl8369784675%_ + _%__splice8962789628%_ + _%target8369884678%_ + _%tl8370084681%_ + _%e8370784684%_ + _%hd8370884688%_ + _%tl8370984691%_ + _%e8371084694%_ + _%hd8371184698%_ + _%tl8371284701%_ + _%e8371384704%_ + _%hd8371484708%_ + _%tl8371584711%_ + _%e8371684714%_ + _%hd8371784718%_ + _%tl8371884721%_) + (letrec ((_%loop8370184724%_ + (lambda (_%hd8369984728%_ _%exprs8370584731%_) + (if (gx#stx-pair? _%hd8369984728%_) + (let ((_%e8370284734%_ + (gx#syntax-e _%hd8369984728%_))) + (let ((_%lp-tl8370484741%_ (let () (declare (not safe)) - (##cdr _%e8342884460%_))) - (_%lp-hd8342984464%_ + (##cdr _%e8370284734%_))) + (_%lp-hd8370384738%_ (let () (declare (not safe)) - (##car _%e8342884460%_)))) - (_%loop8342784450%_ - _%lp-tl8343084467%_ - (cons _%lp-hd8342984464%_ - _%exprs8343184457%_)))) - (let ((_%exprs8343284470%_ - (reverse _%exprs8343184457%_))) - (_%__kont8935189352%_ - _%hd8344384444%_ - _%hd8344084434%_ - _%exprs8343284470%_ - _%hd8342284398%_ - _%hd8341584374%_)))))) - (_%loop8342784450%_ _%target8342484404%_ '()))))) - (if (gx#stx-pair? _%__stx8934889349%_) - (let ((_%e8341484370%_ (gx#syntax-e _%__stx8934889349%_))) - (let ((_%tl8341684377%_ + (##car _%e8370284734%_)))) + (_%loop8370184724%_ + _%lp-tl8370484741%_ + (cons _%lp-hd8370384738%_ + _%exprs8370584731%_)))) + (let ((_%exprs8370684744%_ + (reverse _%exprs8370584731%_))) + (_%__kont8962589626%_ + _%hd8371784718%_ + _%hd8371484708%_ + _%exprs8370684744%_ + _%hd8369684672%_ + _%hd8368984648%_)))))) + (_%loop8370184724%_ _%target8369884678%_ '()))))) + (if (gx#stx-pair? _%__stx8962289623%_) + (let ((_%e8368884644%_ (gx#syntax-e _%__stx8962289623%_))) + (let ((_%tl8369084651%_ (let () (declare (not safe)) - (##cdr _%e8341484370%_))) - (_%hd8341584374%_ + (##cdr _%e8368884644%_))) + (_%hd8368984648%_ (let () (declare (not safe)) - (##car _%e8341484370%_)))) - (if (gx#stx-pair? _%tl8341684377%_) - (let ((_%e8341784380%_ - (gx#syntax-e _%tl8341684377%_))) - (let ((_%tl8341984387%_ + (##car _%e8368884644%_)))) + (if (gx#stx-pair? _%tl8369084651%_) + (let ((_%e8369184654%_ + (gx#syntax-e _%tl8369084651%_))) + (let ((_%tl8369384661%_ (let () (declare (not safe)) - (##cdr _%e8341784380%_))) - (_%hd8341884384%_ + (##cdr _%e8369184654%_))) + (_%hd8369284658%_ (let () (declare (not safe)) - (##car _%e8341784380%_)))) - (if (gx#stx-datum? _%hd8341884384%_) - (let ((_%e8342084390%_ - (gx#stx-e _%hd8341884384%_))) - (if (equal? _%e8342084390%_ '1) - (if (gx#stx-pair? _%tl8341984387%_) - (let ((_%e8342184394%_ + (##car _%e8369184654%_)))) + (if (gx#stx-datum? _%hd8369284658%_) + (let ((_%e8369484664%_ + (gx#stx-e _%hd8369284658%_))) + (if (equal? _%e8369484664%_ '1) + (if (gx#stx-pair? _%tl8369384661%_) + (let ((_%e8369584668%_ (gx#syntax-e - _%tl8341984387%_))) - (let ((_%tl8342384401%_ + _%tl8369384661%_))) + (let ((_%tl8369784675%_ (let () (declare (not safe)) - (##cdr _%e8342184394%_))) - (_%hd8342284398%_ + (##cdr _%e8369584668%_))) + (_%hd8369684672%_ (let () (declare (not safe)) - (##car _%e8342184394%_)))) + (##car _%e8369584668%_)))) (if (gx#stx-pair/null? - _%tl8342384401%_) - (if (let ((__tmp89791 + _%tl8369784675%_) + (if (let ((__tmp90065 (gx#stx-length - _%tl8342384401%_))) + _%tl8369784675%_))) (declare (not safe)) - (##fx>= __tmp89791 + (##fx>= __tmp90065 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '2)) - (let ((_%__splice8935389354%_ - (gx#syntax-split-splice _%tl8342384401%_ '2))) - (let ((_%tl8342684407%_ + (let ((_%__splice8962789628%_ + (gx#syntax-split-splice _%tl8369784675%_ '2))) + (let ((_%tl8370084681%_ (let () (declare (not safe)) - (##vector-ref _%__splice8935389354%_ '1))) - (_%target8342484404%_ + (##vector-ref _%__splice8962789628%_ '1))) + (_%target8369884678%_ (let () (declare (not safe)) - (##vector-ref _%__splice8935389354%_ '0)))) - (if (gx#stx-pair? _%tl8342684407%_) - (let ((_%e8343384410%_ (gx#syntax-e _%tl8342684407%_))) - (let ((_%tl8343584417%_ + (##vector-ref _%__splice8962789628%_ '0)))) + (if (gx#stx-pair? _%tl8370084681%_) + (let ((_%e8370784684%_ (gx#syntax-e _%tl8370084681%_))) + (let ((_%tl8370984691%_ (let () (declare (not safe)) - (##cdr _%e8343384410%_))) - (_%hd8343484414%_ + (##cdr _%e8370784684%_))) + (_%hd8370884688%_ (let () (declare (not safe)) - (##car _%e8343384410%_)))) - (if (gx#stx-pair? _%hd8343484414%_) - (let ((_%e8343684420%_ - (gx#syntax-e _%hd8343484414%_))) - (let ((_%tl8343884427%_ + (##car _%e8370784684%_)))) + (if (gx#stx-pair? _%hd8370884688%_) + (let ((_%e8371084694%_ + (gx#syntax-e _%hd8370884688%_))) + (let ((_%tl8371284701%_ (let () (declare (not safe)) - (##cdr _%e8343684420%_))) - (_%hd8343784424%_ + (##cdr _%e8371084694%_))) + (_%hd8371184698%_ (let () (declare (not safe)) - (##car _%e8343684420%_)))) - (if (gx#identifier? _%hd8343784424%_) + (##car _%e8371084694%_)))) + (if (gx#identifier? _%hd8371184698%_) (if (gx#free-identifier=? - |[1]#_g89792_| - _%hd8343784424%_) - (if (gx#stx-pair? _%tl8343884427%_) - (let ((_%e8343984430%_ + |[1]#_g90066_| + _%hd8371184698%_) + (if (gx#stx-pair? _%tl8371284701%_) + (let ((_%e8371384704%_ (gx#syntax-e - _%tl8343884427%_))) - (let ((_%tl8344184437%_ + _%tl8371284701%_))) + (let ((_%tl8371584711%_ (let () (declare (not safe)) - (##cdr _%e8343984430%_))) - (_%hd8344084434%_ + (##cdr _%e8371384704%_))) + (_%hd8371484708%_ (let () (declare (not safe)) - (##car _%e8343984430%_)))) + (##car _%e8371384704%_)))) (if (gx#stx-null? - _%tl8344184437%_) + _%tl8371584711%_) (if (gx#stx-pair? - _%tl8343584417%_) - (let ((_%e8344284440%_ + _%tl8370984691%_) + (let ((_%e8371684714%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl8343584417%_))) - (let ((_%tl8344484447%_ + (gx#syntax-e _%tl8370984691%_))) + (let ((_%tl8371884721%_ (let () (declare (not safe)) - (##cdr _%e8344284440%_))) - (_%hd8344384444%_ + (##cdr _%e8371684714%_))) + (_%hd8371784718%_ (let () (declare (not safe)) - (##car _%e8344284440%_)))) - (if (gx#stx-null? _%tl8344484447%_) - (_%__match8943789438%_ - _%e8341484370%_ - _%hd8341584374%_ - _%tl8341684377%_ - _%e8341784380%_ - _%hd8341884384%_ - _%tl8341984387%_ - _%e8342084390%_ - _%e8342184394%_ - _%hd8342284398%_ - _%tl8342384401%_ - _%__splice8935389354%_ - _%target8342484404%_ - _%tl8342684407%_ - _%e8343384410%_ - _%hd8343484414%_ - _%tl8343584417%_ - _%e8343684420%_ - _%hd8343784424%_ - _%tl8343884427%_ - _%e8343984430%_ - _%hd8344084434%_ - _%tl8344184437%_ - _%e8344284440%_ - _%hd8344384444%_ - _%tl8344484447%_) - (if (let ((__tmp89793 - (gx#stx-length _%tl8342384401%_))) + (##car _%e8371684714%_)))) + (if (gx#stx-null? _%tl8371884721%_) + (_%__match8971189712%_ + _%e8368884644%_ + _%hd8368984648%_ + _%tl8369084651%_ + _%e8369184654%_ + _%hd8369284658%_ + _%tl8369384661%_ + _%e8369484664%_ + _%e8369584668%_ + _%hd8369684672%_ + _%tl8369784675%_ + _%__splice8962789628%_ + _%target8369884678%_ + _%tl8370084681%_ + _%e8370784684%_ + _%hd8370884688%_ + _%tl8370984691%_ + _%e8371084694%_ + _%hd8371184698%_ + _%tl8371284701%_ + _%e8371384704%_ + _%hd8371484708%_ + _%tl8371584711%_ + _%e8371684714%_ + _%hd8371784718%_ + _%tl8371884721%_) + (if (let ((__tmp90067 + (gx#stx-length _%tl8369784675%_))) (declare (not safe)) - (##fx>= __tmp89793 '1)) - (let ((_%__splice8935789358%_ + (##fx>= __tmp90067 '1)) + (let ((_%__splice8963189632%_ (gx#syntax-split-splice - _%tl8342384401%_ + _%tl8369784675%_ '1))) - (let ((_%tl8346184290%_ + (let ((_%tl8373584564%_ (let () (declare (not safe)) (##vector-ref - _%__splice8935789358%_ + _%__splice8963189632%_ '1))) - (_%target8345984287%_ + (_%target8373384561%_ (let () (declare (not safe)) (##vector-ref - _%__splice8935789358%_ + _%__splice8963189632%_ '0)))) - (if (gx#stx-pair? _%tl8346184290%_) - (let ((_%e8346884293%_ - (gx#syntax-e _%tl8346184290%_))) - (let ((_%tl8347084300%_ + (if (gx#stx-pair? _%tl8373584564%_) + (let ((_%e8374284567%_ + (gx#syntax-e _%tl8373584564%_))) + (let ((_%tl8374484574%_ (let () (declare (not safe)) - (##cdr _%e8346884293%_))) - (_%hd8346984297%_ + (##cdr _%e8374284567%_))) + (_%hd8374384571%_ (let () (declare (not safe)) - (##car _%e8346884293%_)))) - (if (gx#stx-null? _%tl8347084300%_) - (_%__match8947789478%_ - _%e8341484370%_ - _%hd8341584374%_ - _%tl8341684377%_ - _%e8341784380%_ - _%hd8341884384%_ - _%tl8341984387%_ - _%e8342084390%_ - _%e8342184394%_ - _%hd8342284398%_ - _%tl8342384401%_ - _%__splice8935789358%_ - _%target8345984287%_ - _%tl8346184290%_ - _%e8346884293%_ - _%hd8346984297%_ - _%tl8347084300%_) + (##car _%e8374284567%_)))) + (if (gx#stx-null? _%tl8374484574%_) + (_%__match8975189752%_ + _%e8368884644%_ + _%hd8368984648%_ + _%tl8369084651%_ + _%e8369184654%_ + _%hd8369284658%_ + _%tl8369384661%_ + _%e8369484664%_ + _%e8369584668%_ + _%hd8369684672%_ + _%tl8369784675%_ + _%__splice8963189632%_ + _%target8373384561%_ + _%tl8373584564%_ + _%e8374284567%_ + _%hd8374384571%_ + _%tl8374484574%_) (if (gx#stx-null? - _%tl8342384401%_) - (_%__kont8935989360%_ - _%hd8342284398%_) + _%tl8369784675%_) + (_%__kont8963389634%_ + _%hd8369684672%_) (let () (declare (not safe)) - (_%g8340783621%_)))))) - (if (gx#stx-null? _%tl8342384401%_) - (_%__kont8935989360%_ - _%hd8342284398%_) + (_%g8368183895%_)))))) + (if (gx#stx-null? _%tl8369784675%_) + (_%__kont8963389634%_ + _%hd8369684672%_) (let () (declare (not safe)) - (_%g8340783621%_)))))) - (if (gx#stx-null? _%tl8342384401%_) - (_%__kont8935989360%_ _%hd8342284398%_) + (_%g8368183895%_)))))) + (if (gx#stx-null? _%tl8369784675%_) + (_%__kont8963389634%_ _%hd8369684672%_) (let () (declare (not safe)) - (_%g8340783621%_))))))) - (if (let ((__tmp89794 (gx#stx-length _%tl8342384401%_))) + (_%g8368183895%_))))))) + (if (let ((__tmp90068 (gx#stx-length _%tl8369784675%_))) (declare (not safe)) - (##fx>= __tmp89794 '1)) - (let ((_%__splice8935789358%_ - (gx#syntax-split-splice _%tl8342384401%_ '1))) - (let ((_%tl8346184290%_ + (##fx>= __tmp90068 '1)) + (let ((_%__splice8963189632%_ + (gx#syntax-split-splice _%tl8369784675%_ '1))) + (let ((_%tl8373584564%_ (let () (declare (not safe)) - (##vector-ref _%__splice8935789358%_ '1))) - (_%target8345984287%_ + (##vector-ref _%__splice8963189632%_ '1))) + (_%target8373384561%_ (let () (declare (not safe)) - (##vector-ref _%__splice8935789358%_ '0)))) - (if (gx#stx-pair? _%tl8346184290%_) - (let ((_%e8346884293%_ - (gx#syntax-e _%tl8346184290%_))) - (let ((_%tl8347084300%_ + (##vector-ref _%__splice8963189632%_ '0)))) + (if (gx#stx-pair? _%tl8373584564%_) + (let ((_%e8374284567%_ + (gx#syntax-e _%tl8373584564%_))) + (let ((_%tl8374484574%_ (let () (declare (not safe)) - (##cdr _%e8346884293%_))) - (_%hd8346984297%_ + (##cdr _%e8374284567%_))) + (_%hd8374384571%_ (let () (declare (not safe)) - (##car _%e8346884293%_)))) - (if (gx#stx-null? _%tl8347084300%_) - (_%__match8947789478%_ - _%e8341484370%_ - _%hd8341584374%_ - _%tl8341684377%_ - _%e8341784380%_ - _%hd8341884384%_ - _%tl8341984387%_ - _%e8342084390%_ - _%e8342184394%_ - _%hd8342284398%_ - _%tl8342384401%_ - _%__splice8935789358%_ - _%target8345984287%_ - _%tl8346184290%_ - _%e8346884293%_ - _%hd8346984297%_ - _%tl8347084300%_) - (if (gx#stx-null? _%tl8342384401%_) - (_%__kont8935989360%_ - _%hd8342284398%_) + (##car _%e8374284567%_)))) + (if (gx#stx-null? _%tl8374484574%_) + (_%__match8975189752%_ + _%e8368884644%_ + _%hd8368984648%_ + _%tl8369084651%_ + _%e8369184654%_ + _%hd8369284658%_ + _%tl8369384661%_ + _%e8369484664%_ + _%e8369584668%_ + _%hd8369684672%_ + _%tl8369784675%_ + _%__splice8963189632%_ + _%target8373384561%_ + _%tl8373584564%_ + _%e8374284567%_ + _%hd8374384571%_ + _%tl8374484574%_) + (if (gx#stx-null? _%tl8369784675%_) + (_%__kont8963389634%_ + _%hd8369684672%_) (let () (declare (not safe)) - (_%g8340783621%_)))))) - (if (gx#stx-null? _%tl8342384401%_) - (_%__kont8935989360%_ _%hd8342284398%_) + (_%g8368183895%_)))))) + (if (gx#stx-null? _%tl8369784675%_) + (_%__kont8963389634%_ _%hd8369684672%_) (let () (declare (not safe)) - (_%g8340783621%_)))))) - (if (gx#stx-null? _%tl8342384401%_) - (_%__kont8935989360%_ _%hd8342284398%_) - (let () (declare (not safe)) (_%g8340783621%_))))) - (if (let ((__tmp89795 (gx#stx-length _%tl8342384401%_))) + (_%g8368183895%_)))))) + (if (gx#stx-null? _%tl8369784675%_) + (_%__kont8963389634%_ _%hd8369684672%_) + (let () (declare (not safe)) (_%g8368183895%_))))) + (if (let ((__tmp90069 (gx#stx-length _%tl8369784675%_))) (declare (not safe)) - (##fx>= __tmp89795 '1)) - (let ((_%__splice8935789358%_ - (gx#syntax-split-splice _%tl8342384401%_ '1))) - (let ((_%tl8346184290%_ + (##fx>= __tmp90069 '1)) + (let ((_%__splice8963189632%_ + (gx#syntax-split-splice _%tl8369784675%_ '1))) + (let ((_%tl8373584564%_ (let () (declare (not safe)) - (##vector-ref _%__splice8935789358%_ '1))) - (_%target8345984287%_ + (##vector-ref _%__splice8963189632%_ '1))) + (_%target8373384561%_ (let () (declare (not safe)) - (##vector-ref _%__splice8935789358%_ '0)))) - (if (gx#stx-pair? _%tl8346184290%_) - (let ((_%e8346884293%_ - (gx#syntax-e _%tl8346184290%_))) - (let ((_%tl8347084300%_ + (##vector-ref _%__splice8963189632%_ '0)))) + (if (gx#stx-pair? _%tl8373584564%_) + (let ((_%e8374284567%_ + (gx#syntax-e _%tl8373584564%_))) + (let ((_%tl8374484574%_ (let () (declare (not safe)) - (##cdr _%e8346884293%_))) - (_%hd8346984297%_ + (##cdr _%e8374284567%_))) + (_%hd8374384571%_ (let () (declare (not safe)) - (##car _%e8346884293%_)))) - (if (gx#stx-null? _%tl8347084300%_) - (_%__match8947789478%_ - _%e8341484370%_ - _%hd8341584374%_ - _%tl8341684377%_ - _%e8341784380%_ - _%hd8341884384%_ - _%tl8341984387%_ - _%e8342084390%_ - _%e8342184394%_ - _%hd8342284398%_ - _%tl8342384401%_ - _%__splice8935789358%_ - _%target8345984287%_ - _%tl8346184290%_ - _%e8346884293%_ - _%hd8346984297%_ - _%tl8347084300%_) - (if (gx#stx-null? _%tl8342384401%_) - (_%__kont8935989360%_ _%hd8342284398%_) + (##car _%e8374284567%_)))) + (if (gx#stx-null? _%tl8374484574%_) + (_%__match8975189752%_ + _%e8368884644%_ + _%hd8368984648%_ + _%tl8369084651%_ + _%e8369184654%_ + _%hd8369284658%_ + _%tl8369384661%_ + _%e8369484664%_ + _%e8369584668%_ + _%hd8369684672%_ + _%tl8369784675%_ + _%__splice8963189632%_ + _%target8373384561%_ + _%tl8373584564%_ + _%e8374284567%_ + _%hd8374384571%_ + _%tl8374484574%_) + (if (gx#stx-null? _%tl8369784675%_) + (_%__kont8963389634%_ _%hd8369684672%_) (let () (declare (not safe)) - (_%g8340783621%_)))))) - (if (gx#stx-null? _%tl8342384401%_) - (_%__kont8935989360%_ _%hd8342284398%_) + (_%g8368183895%_)))))) + (if (gx#stx-null? _%tl8369784675%_) + (_%__kont8963389634%_ _%hd8369684672%_) (let () (declare (not safe)) - (_%g8340783621%_)))))) - (if (gx#stx-null? _%tl8342384401%_) - (_%__kont8935989360%_ _%hd8342284398%_) - (let () (declare (not safe)) (_%g8340783621%_))))))) + (_%g8368183895%_)))))) + (if (gx#stx-null? _%tl8369784675%_) + (_%__kont8963389634%_ _%hd8369684672%_) + (let () (declare (not safe)) (_%g8368183895%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let ((__tmp89796 + (if (let ((__tmp90070 (gx#stx-length - _%tl8342384401%_))) + _%tl8369784675%_))) (declare (not safe)) - (##fx>= __tmp89796 '1)) - (let ((_%__splice8935789358%_ + (##fx>= __tmp90070 '1)) + (let ((_%__splice8963189632%_ (gx#syntax-split-splice - _%tl8342384401%_ + _%tl8369784675%_ '1))) - (let ((_%tl8346184290%_ + (let ((_%tl8373584564%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice8935789358%_ '1))) - (_%target8345984287%_ + (##vector-ref _%__splice8963189632%_ '1))) + (_%target8373384561%_ (let () (declare (not safe)) - (##vector-ref _%__splice8935789358%_ '0)))) - (if (gx#stx-pair? _%tl8346184290%_) - (let ((_%e8346884293%_ (gx#syntax-e _%tl8346184290%_))) - (let ((_%tl8347084300%_ + (##vector-ref _%__splice8963189632%_ '0)))) + (if (gx#stx-pair? _%tl8373584564%_) + (let ((_%e8374284567%_ (gx#syntax-e _%tl8373584564%_))) + (let ((_%tl8374484574%_ (let () (declare (not safe)) - (##cdr _%e8346884293%_))) - (_%hd8346984297%_ + (##cdr _%e8374284567%_))) + (_%hd8374384571%_ (let () (declare (not safe)) - (##car _%e8346884293%_)))) - (if (gx#stx-null? _%tl8347084300%_) - (_%__match8947789478%_ - _%e8341484370%_ - _%hd8341584374%_ - _%tl8341684377%_ - _%e8341784380%_ - _%hd8341884384%_ - _%tl8341984387%_ - _%e8342084390%_ - _%e8342184394%_ - _%hd8342284398%_ - _%tl8342384401%_ - _%__splice8935789358%_ - _%target8345984287%_ - _%tl8346184290%_ - _%e8346884293%_ - _%hd8346984297%_ - _%tl8347084300%_) - (if (gx#stx-null? _%tl8342384401%_) - (_%__kont8935989360%_ _%hd8342284398%_) + (##car _%e8374284567%_)))) + (if (gx#stx-null? _%tl8374484574%_) + (_%__match8975189752%_ + _%e8368884644%_ + _%hd8368984648%_ + _%tl8369084651%_ + _%e8369184654%_ + _%hd8369284658%_ + _%tl8369384661%_ + _%e8369484664%_ + _%e8369584668%_ + _%hd8369684672%_ + _%tl8369784675%_ + _%__splice8963189632%_ + _%target8373384561%_ + _%tl8373584564%_ + _%e8374284567%_ + _%hd8374384571%_ + _%tl8374484574%_) + (if (gx#stx-null? _%tl8369784675%_) + (_%__kont8963389634%_ _%hd8369684672%_) (let () (declare (not safe)) - (_%g8340783621%_)))))) - (if (gx#stx-null? _%tl8342384401%_) - (_%__kont8935989360%_ _%hd8342284398%_) - (let () (declare (not safe)) (_%g8340783621%_)))))) + (_%g8368183895%_)))))) + (if (gx#stx-null? _%tl8369784675%_) + (_%__kont8963389634%_ _%hd8369684672%_) + (let () (declare (not safe)) (_%g8368183895%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl8342384401%_) - (_%__kont8935989360%_ - _%hd8342284398%_) + _%tl8369784675%_) + (_%__kont8963389634%_ + _%hd8369684672%_) (let () (declare (not safe)) - (_%g8340783621%_))))) - (if (let ((__tmp89797 + (_%g8368183895%_))))) + (if (let ((__tmp90071 (gx#stx-length - _%tl8342384401%_))) + _%tl8369784675%_))) (declare (not safe)) - (##fx>= __tmp89797 '1)) - (let ((_%__splice8935789358%_ + (##fx>= __tmp90071 '1)) + (let ((_%__splice8963189632%_ (gx#syntax-split-splice - _%tl8342384401%_ + _%tl8369784675%_ '1))) - (let ((_%tl8346184290%_ + (let ((_%tl8373584564%_ (let () (declare (not safe)) (##vector-ref - _%__splice8935789358%_ + _%__splice8963189632%_ '1))) - (_%target8345984287%_ + (_%target8373384561%_ (let () (declare (not safe)) (##vector-ref - _%__splice8935789358%_ + _%__splice8963189632%_ '0)))) (if (gx#stx-pair? - _%tl8346184290%_) - (let ((_%e8346884293%_ + _%tl8373584564%_) + (let ((_%e8374284567%_ (gx#syntax-e - _%tl8346184290%_))) - (let ((_%tl8347084300%_ + _%tl8373584564%_))) + (let ((_%tl8374484574%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e8346884293%_))) - (_%hd8346984297%_ + (let () (declare (not safe)) (##cdr _%e8374284567%_))) + (_%hd8374384571%_ (let () (declare (not safe)) - (##car _%e8346884293%_)))) - (if (gx#stx-null? _%tl8347084300%_) - (_%__match8947789478%_ - _%e8341484370%_ - _%hd8341584374%_ - _%tl8341684377%_ - _%e8341784380%_ - _%hd8341884384%_ - _%tl8341984387%_ - _%e8342084390%_ - _%e8342184394%_ - _%hd8342284398%_ - _%tl8342384401%_ - _%__splice8935789358%_ - _%target8345984287%_ - _%tl8346184290%_ - _%e8346884293%_ - _%hd8346984297%_ - _%tl8347084300%_) - (if (gx#stx-null? _%tl8342384401%_) - (_%__kont8935989360%_ _%hd8342284398%_) - (let () (declare (not safe)) (_%g8340783621%_)))))) - (if (gx#stx-null? _%tl8342384401%_) - (_%__kont8935989360%_ _%hd8342284398%_) - (let () (declare (not safe)) (_%g8340783621%_)))))) + (##car _%e8374284567%_)))) + (if (gx#stx-null? _%tl8374484574%_) + (_%__match8975189752%_ + _%e8368884644%_ + _%hd8368984648%_ + _%tl8369084651%_ + _%e8369184654%_ + _%hd8369284658%_ + _%tl8369384661%_ + _%e8369484664%_ + _%e8369584668%_ + _%hd8369684672%_ + _%tl8369784675%_ + _%__splice8963189632%_ + _%target8373384561%_ + _%tl8373584564%_ + _%e8374284567%_ + _%hd8374384571%_ + _%tl8374484574%_) + (if (gx#stx-null? _%tl8369784675%_) + (_%__kont8963389634%_ _%hd8369684672%_) + (let () (declare (not safe)) (_%g8368183895%_)))))) + (if (gx#stx-null? _%tl8369784675%_) + (_%__kont8963389634%_ _%hd8369684672%_) + (let () (declare (not safe)) (_%g8368183895%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl8342384401%_) - (_%__kont8935989360%_ - _%hd8342284398%_) + _%tl8369784675%_) + (_%__kont8963389634%_ + _%hd8369684672%_) (let () (declare (not safe)) - (_%g8340783621%_))))) - (if (let ((__tmp89798 + (_%g8368183895%_))))) + (if (let ((__tmp90072 (gx#stx-length - _%tl8342384401%_))) + _%tl8369784675%_))) (declare (not safe)) - (##fx>= __tmp89798 '1)) - (let ((_%__splice8935789358%_ + (##fx>= __tmp90072 '1)) + (let ((_%__splice8963189632%_ (gx#syntax-split-splice - _%tl8342384401%_ + _%tl8369784675%_ '1))) - (let ((_%tl8346184290%_ + (let ((_%tl8373584564%_ (let () (declare (not safe)) (##vector-ref - _%__splice8935789358%_ + _%__splice8963189632%_ '1))) - (_%target8345984287%_ + (_%target8373384561%_ (let () (declare (not safe)) (##vector-ref - _%__splice8935789358%_ + _%__splice8963189632%_ '0)))) (if (gx#stx-pair? - _%tl8346184290%_) - (let ((_%e8346884293%_ + _%tl8373584564%_) + (let ((_%e8374284567%_ (gx#syntax-e - _%tl8346184290%_))) - (let ((_%tl8347084300%_ + _%tl8373584564%_))) + (let ((_%tl8374484574%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e8346884293%_))) - (_%hd8346984297%_ - (let () (declare (not safe)) (##car _%e8346884293%_)))) - (if (gx#stx-null? _%tl8347084300%_) - (_%__match8947789478%_ - _%e8341484370%_ - _%hd8341584374%_ - _%tl8341684377%_ - _%e8341784380%_ - _%hd8341884384%_ - _%tl8341984387%_ - _%e8342084390%_ - _%e8342184394%_ - _%hd8342284398%_ - _%tl8342384401%_ - _%__splice8935789358%_ - _%target8345984287%_ - _%tl8346184290%_ - _%e8346884293%_ - _%hd8346984297%_ - _%tl8347084300%_) - (if (gx#stx-null? _%tl8342384401%_) - (_%__kont8935989360%_ _%hd8342284398%_) - (let () (declare (not safe)) (_%g8340783621%_)))))) + (##cdr _%e8374284567%_))) + (_%hd8374384571%_ + (let () (declare (not safe)) (##car _%e8374284567%_)))) + (if (gx#stx-null? _%tl8374484574%_) + (_%__match8975189752%_ + _%e8368884644%_ + _%hd8368984648%_ + _%tl8369084651%_ + _%e8369184654%_ + _%hd8369284658%_ + _%tl8369384661%_ + _%e8369484664%_ + _%e8369584668%_ + _%hd8369684672%_ + _%tl8369784675%_ + _%__splice8963189632%_ + _%target8373384561%_ + _%tl8373584564%_ + _%e8374284567%_ + _%hd8374384571%_ + _%tl8374484574%_) + (if (gx#stx-null? _%tl8369784675%_) + (_%__kont8963389634%_ _%hd8369684672%_) + (let () (declare (not safe)) (_%g8368183895%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl8342384401%_) - (_%__kont8935989360%_ - _%hd8342284398%_) + _%tl8369784675%_) + (_%__kont8963389634%_ + _%hd8369684672%_) (let () (declare (not safe)) - (_%g8340783621%_)))))) - (if (gx#stx-null? _%tl8342384401%_) - (_%__kont8935989360%_ - _%hd8342284398%_) + (_%g8368183895%_)))))) + (if (gx#stx-null? _%tl8369784675%_) + (_%__kont8963389634%_ + _%hd8369684672%_) (let () (declare (not safe)) - (_%g8340783621%_))))))) - (if (let ((__tmp89799 - (gx#stx-length _%tl8342384401%_))) + (_%g8368183895%_))))))) + (if (let ((__tmp90073 + (gx#stx-length _%tl8369784675%_))) (declare (not safe)) - (##fx>= __tmp89799 '1)) - (let ((_%__splice8935789358%_ + (##fx>= __tmp90073 '1)) + (let ((_%__splice8963189632%_ (gx#syntax-split-splice - _%tl8342384401%_ + _%tl8369784675%_ '1))) - (let ((_%tl8346184290%_ + (let ((_%tl8373584564%_ (let () (declare (not safe)) (##vector-ref - _%__splice8935789358%_ + _%__splice8963189632%_ '1))) - (_%target8345984287%_ + (_%target8373384561%_ (let () (declare (not safe)) (##vector-ref - _%__splice8935789358%_ + _%__splice8963189632%_ '0)))) - (if (gx#stx-pair? _%tl8346184290%_) - (let ((_%e8346884293%_ + (if (gx#stx-pair? _%tl8373584564%_) + (let ((_%e8374284567%_ (gx#syntax-e - _%tl8346184290%_))) - (let ((_%tl8347084300%_ + _%tl8373584564%_))) + (let ((_%tl8374484574%_ (let () (declare (not safe)) - (##cdr _%e8346884293%_))) - (_%hd8346984297%_ + (##cdr _%e8374284567%_))) + (_%hd8374384571%_ (let () (declare (not safe)) - (##car _%e8346884293%_)))) + (##car _%e8374284567%_)))) (if (gx#stx-null? - _%tl8347084300%_) - (_%__match8947789478%_ - _%e8341484370%_ - _%hd8341584374%_ - _%tl8341684377%_ - _%e8341784380%_ - _%hd8341884384%_ - _%tl8341984387%_ - _%e8342084390%_ - _%e8342184394%_ - _%hd8342284398%_ - _%tl8342384401%_ - _%__splice8935789358%_ - _%target8345984287%_ - _%tl8346184290%_ - _%e8346884293%_ - _%hd8346984297%_ - _%tl8347084300%_) + _%tl8374484574%_) + (_%__match8975189752%_ + _%e8368884644%_ + _%hd8368984648%_ + _%tl8369084651%_ + _%e8369184654%_ + _%hd8369284658%_ + _%tl8369384661%_ + _%e8369484664%_ + _%e8369584668%_ + _%hd8369684672%_ + _%tl8369784675%_ + _%__splice8963189632%_ + _%target8373384561%_ + _%tl8373584564%_ + _%e8374284567%_ + _%hd8374384571%_ + _%tl8374484574%_) (if (gx#stx-null? - _%tl8342384401%_) - (_%__kont8935989360%_ - _%hd8342284398%_) + _%tl8369784675%_) + (_%__kont8963389634%_ + _%hd8369684672%_) (let () (declare (not safe)) - (_%g8340783621%_)))))) - (if (gx#stx-null? _%tl8342384401%_) - (_%__kont8935989360%_ - _%hd8342284398%_) + (_%g8368183895%_)))))) + (if (gx#stx-null? _%tl8369784675%_) + (_%__kont8963389634%_ + _%hd8369684672%_) (let () (declare (not safe)) - (_%g8340783621%_)))))) - (if (gx#stx-null? _%tl8342384401%_) - (_%__kont8935989360%_ _%hd8342284398%_) + (_%g8368183895%_)))))) + (if (gx#stx-null? _%tl8369784675%_) + (_%__kont8963389634%_ _%hd8369684672%_) (let () (declare (not safe)) - (_%g8340783621%_))))))) - (if (let ((__tmp89800 - (gx#stx-length _%tl8342384401%_))) + (_%g8368183895%_))))))) + (if (let ((__tmp90074 + (gx#stx-length _%tl8369784675%_))) (declare (not safe)) - (##fx>= __tmp89800 '1)) - (let ((_%__splice8935789358%_ + (##fx>= __tmp90074 '1)) + (let ((_%__splice8963189632%_ (gx#syntax-split-splice - _%tl8342384401%_ + _%tl8369784675%_ '1))) - (let ((_%tl8346184290%_ + (let ((_%tl8373584564%_ (let () (declare (not safe)) (##vector-ref - _%__splice8935789358%_ + _%__splice8963189632%_ '1))) - (_%target8345984287%_ + (_%target8373384561%_ (let () (declare (not safe)) (##vector-ref - _%__splice8935789358%_ + _%__splice8963189632%_ '0)))) - (if (gx#stx-pair? _%tl8346184290%_) - (let ((_%e8346884293%_ - (gx#syntax-e _%tl8346184290%_))) - (let ((_%tl8347084300%_ + (if (gx#stx-pair? _%tl8373584564%_) + (let ((_%e8374284567%_ + (gx#syntax-e _%tl8373584564%_))) + (let ((_%tl8374484574%_ (let () (declare (not safe)) - (##cdr _%e8346884293%_))) - (_%hd8346984297%_ + (##cdr _%e8374284567%_))) + (_%hd8374384571%_ (let () (declare (not safe)) - (##car _%e8346884293%_)))) - (if (gx#stx-null? _%tl8347084300%_) - (_%__match8947789478%_ - _%e8341484370%_ - _%hd8341584374%_ - _%tl8341684377%_ - _%e8341784380%_ - _%hd8341884384%_ - _%tl8341984387%_ - _%e8342084390%_ - _%e8342184394%_ - _%hd8342284398%_ - _%tl8342384401%_ - _%__splice8935789358%_ - _%target8345984287%_ - _%tl8346184290%_ - _%e8346884293%_ - _%hd8346984297%_ - _%tl8347084300%_) - (if (gx#stx-null? _%tl8342384401%_) - (_%__kont8935989360%_ - _%hd8342284398%_) + (##car _%e8374284567%_)))) + (if (gx#stx-null? _%tl8374484574%_) + (_%__match8975189752%_ + _%e8368884644%_ + _%hd8368984648%_ + _%tl8369084651%_ + _%e8369184654%_ + _%hd8369284658%_ + _%tl8369384661%_ + _%e8369484664%_ + _%e8369584668%_ + _%hd8369684672%_ + _%tl8369784675%_ + _%__splice8963189632%_ + _%target8373384561%_ + _%tl8373584564%_ + _%e8374284567%_ + _%hd8374384571%_ + _%tl8374484574%_) + (if (gx#stx-null? _%tl8369784675%_) + (_%__kont8963389634%_ + _%hd8369684672%_) (let () (declare (not safe)) - (_%g8340783621%_)))))) - (if (gx#stx-null? _%tl8342384401%_) - (_%__kont8935989360%_ _%hd8342284398%_) + (_%g8368183895%_)))))) + (if (gx#stx-null? _%tl8369784675%_) + (_%__kont8963389634%_ _%hd8369684672%_) (let () (declare (not safe)) - (_%g8340783621%_)))))) - (if (gx#stx-null? _%tl8342384401%_) - (_%__kont8935989360%_ _%hd8342284398%_) + (_%g8368183895%_)))))) + (if (gx#stx-null? _%tl8369784675%_) + (_%__kont8963389634%_ _%hd8369684672%_) (let () (declare (not safe)) - (_%g8340783621%_))))))) - (if (let ((__tmp89801 (gx#stx-length _%tl8342384401%_))) + (_%g8368183895%_))))))) + (if (let ((__tmp90075 (gx#stx-length _%tl8369784675%_))) (declare (not safe)) - (##fx>= __tmp89801 '1)) - (let ((_%__splice8935789358%_ - (gx#syntax-split-splice _%tl8342384401%_ '1))) - (let ((_%tl8346184290%_ + (##fx>= __tmp90075 '1)) + (let ((_%__splice8963189632%_ + (gx#syntax-split-splice _%tl8369784675%_ '1))) + (let ((_%tl8373584564%_ (let () (declare (not safe)) - (##vector-ref _%__splice8935789358%_ '1))) - (_%target8345984287%_ + (##vector-ref _%__splice8963189632%_ '1))) + (_%target8373384561%_ (let () (declare (not safe)) - (##vector-ref _%__splice8935789358%_ '0)))) - (if (gx#stx-pair? _%tl8346184290%_) - (let ((_%e8346884293%_ - (gx#syntax-e _%tl8346184290%_))) - (let ((_%tl8347084300%_ + (##vector-ref _%__splice8963189632%_ '0)))) + (if (gx#stx-pair? _%tl8373584564%_) + (let ((_%e8374284567%_ + (gx#syntax-e _%tl8373584564%_))) + (let ((_%tl8374484574%_ (let () (declare (not safe)) - (##cdr _%e8346884293%_))) - (_%hd8346984297%_ + (##cdr _%e8374284567%_))) + (_%hd8374384571%_ (let () (declare (not safe)) - (##car _%e8346884293%_)))) - (if (gx#stx-null? _%tl8347084300%_) - (_%__match8947789478%_ - _%e8341484370%_ - _%hd8341584374%_ - _%tl8341684377%_ - _%e8341784380%_ - _%hd8341884384%_ - _%tl8341984387%_ - _%e8342084390%_ - _%e8342184394%_ - _%hd8342284398%_ - _%tl8342384401%_ - _%__splice8935789358%_ - _%target8345984287%_ - _%tl8346184290%_ - _%e8346884293%_ - _%hd8346984297%_ - _%tl8347084300%_) - (if (gx#stx-null? _%tl8342384401%_) - (_%__kont8935989360%_ _%hd8342284398%_) + (##car _%e8374284567%_)))) + (if (gx#stx-null? _%tl8374484574%_) + (_%__match8975189752%_ + _%e8368884644%_ + _%hd8368984648%_ + _%tl8369084651%_ + _%e8369184654%_ + _%hd8369284658%_ + _%tl8369384661%_ + _%e8369484664%_ + _%e8369584668%_ + _%hd8369684672%_ + _%tl8369784675%_ + _%__splice8963189632%_ + _%target8373384561%_ + _%tl8373584564%_ + _%e8374284567%_ + _%hd8374384571%_ + _%tl8374484574%_) + (if (gx#stx-null? _%tl8369784675%_) + (_%__kont8963389634%_ _%hd8369684672%_) (let () (declare (not safe)) - (_%g8340783621%_)))))) - (if (gx#stx-null? _%tl8342384401%_) - (_%__kont8935989360%_ _%hd8342284398%_) + (_%g8368183895%_)))))) + (if (gx#stx-null? _%tl8369784675%_) + (_%__kont8963389634%_ _%hd8369684672%_) (let () (declare (not safe)) - (_%g8340783621%_)))))) - (if (gx#stx-null? _%tl8342384401%_) - (_%__kont8935989360%_ _%hd8342284398%_) - (let () (declare (not safe)) (_%g8340783621%_))))) + (_%g8368183895%_)))))) + (if (gx#stx-null? _%tl8369784675%_) + (_%__kont8963389634%_ _%hd8369684672%_) + (let () (declare (not safe)) (_%g8368183895%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl8342384401%_) - (_%__kont8935989360%_ - _%hd8342284398%_) + _%tl8369784675%_) + (_%__kont8963389634%_ + _%hd8369684672%_) (let () (declare (not safe)) - (_%g8340783621%_)))))) + (_%g8368183895%_)))))) (let () (declare (not safe)) - (_%g8340783621%_))) - (if (equal? _%e8342084390%_ '2) - (if (gx#stx-pair? _%tl8341984387%_) - (let ((_%e8349584093%_ + (_%g8368183895%_))) + (if (equal? _%e8369484664%_ '2) + (if (gx#stx-pair? _%tl8369384661%_) + (let ((_%e8376984367%_ (gx#syntax-e - _%tl8341984387%_))) - (let ((_%tl8349784100%_ + _%tl8369384661%_))) + (let ((_%tl8377184374%_ (let () (declare (not safe)) - (##cdr _%e8349584093%_))) - (_%hd8349684097%_ + (##cdr _%e8376984367%_))) + (_%hd8377084371%_ (let () (declare (not safe)) - (##car _%e8349584093%_)))) + (##car _%e8376984367%_)))) (if (gx#stx-pair? - _%tl8349784100%_) - (let ((_%e8349884103%_ + _%tl8377184374%_) + (let ((_%e8377284377%_ (gx#syntax-e - _%tl8349784100%_))) - (let ((_%tl8350084110%_ + _%tl8377184374%_))) + (let ((_%tl8377484384%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e8349884103%_))) - (_%hd8349984107%_ + (let () (declare (not safe)) (##cdr _%e8377284377%_))) + (_%hd8377384381%_ (let () (declare (not safe)) - (##car _%e8349884103%_)))) - (if (gx#stx-pair? _%hd8349984107%_) - (let ((_%e8350184113%_ (gx#syntax-e _%hd8349984107%_))) - (let ((_%tl8350384120%_ + (##car _%e8377284377%_)))) + (if (gx#stx-pair? _%hd8377384381%_) + (let ((_%e8377584387%_ (gx#syntax-e _%hd8377384381%_))) + (let ((_%tl8377784394%_ (let () (declare (not safe)) - (##cdr _%e8350184113%_))) - (_%hd8350284117%_ + (##cdr _%e8377584387%_))) + (_%hd8377684391%_ (let () (declare (not safe)) - (##car _%e8350184113%_)))) - (if (gx#stx-pair? _%hd8350284117%_) - (let ((_%e8350484123%_ - (gx#syntax-e _%hd8350284117%_))) - (let ((_%tl8350684130%_ + (##car _%e8377584387%_)))) + (if (gx#stx-pair? _%hd8377684391%_) + (let ((_%e8377884397%_ + (gx#syntax-e _%hd8377684391%_))) + (let ((_%tl8378084404%_ (let () (declare (not safe)) - (##cdr _%e8350484123%_))) - (_%hd8350584127%_ + (##cdr _%e8377884397%_))) + (_%hd8377984401%_ (let () (declare (not safe)) - (##car _%e8350484123%_)))) - (if (gx#identifier? _%hd8350584127%_) + (##car _%e8377884397%_)))) + (if (gx#identifier? _%hd8377984401%_) (if (gx#free-identifier=? - |[1]#_g89802_| - _%hd8350584127%_) - (if (gx#stx-pair? _%tl8350684130%_) - (let ((_%e8350784133%_ + |[1]#_g90076_| + _%hd8377984401%_) + (if (gx#stx-pair? _%tl8378084404%_) + (let ((_%e8378184407%_ (gx#syntax-e - _%tl8350684130%_))) - (let ((_%tl8350984140%_ + _%tl8378084404%_))) + (let ((_%tl8378384414%_ (let () (declare (not safe)) - (##cdr _%e8350784133%_))) - (_%hd8350884137%_ + (##cdr _%e8378184407%_))) + (_%hd8378284411%_ (let () (declare (not safe)) - (##car _%e8350784133%_)))) + (##car _%e8378184407%_)))) (if (gx#stx-null? - _%tl8350984140%_) + _%tl8378384414%_) (if (gx#stx-pair? - _%tl8350384120%_) - (let ((_%e8351084143%_ + _%tl8377784394%_) + (let ((_%e8378484417%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl8350384120%_))) - (let ((_%tl8351284150%_ + (gx#syntax-e _%tl8377784394%_))) + (let ((_%tl8378684424%_ (let () (declare (not safe)) - (##cdr _%e8351084143%_))) - (_%hd8351184147%_ + (##cdr _%e8378484417%_))) + (_%hd8378584421%_ (let () (declare (not safe)) - (##car _%e8351084143%_)))) - (_%__kont8936189362%_ - _%tl8350084110%_ - _%tl8351284150%_ - _%hd8351184147%_ - _%hd8350884137%_ - _%hd8349684097%_ - _%hd8341584374%_))) - (_%__kont8936389364%_ - _%tl8350084110%_ - _%tl8350384120%_ - _%hd8350284117%_ - _%hd8349684097%_ - _%hd8341584374%_)) - (_%__kont8936389364%_ - _%tl8350084110%_ - _%tl8350384120%_ - _%hd8350284117%_ - _%hd8349684097%_ - _%hd8341584374%_)))) + (##car _%e8378484417%_)))) + (_%__kont8963589636%_ + _%tl8377484384%_ + _%tl8378684424%_ + _%hd8378584421%_ + _%hd8378284411%_ + _%hd8377084371%_ + _%hd8368984648%_))) + (_%__kont8963789638%_ + _%tl8377484384%_ + _%tl8377784394%_ + _%hd8377684391%_ + _%hd8377084371%_ + _%hd8368984648%_)) + (_%__kont8963789638%_ + _%tl8377484384%_ + _%tl8377784394%_ + _%hd8377684391%_ + _%hd8377084371%_ + _%hd8368984648%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8936389364%_ - _%tl8350084110%_ - _%tl8350384120%_ - _%hd8350284117%_ - _%hd8349684097%_ - _%hd8341584374%_)) - (_%__kont8936389364%_ - _%tl8350084110%_ - _%tl8350384120%_ - _%hd8350284117%_ - _%hd8349684097%_ - _%hd8341584374%_)) - (_%__kont8936389364%_ - _%tl8350084110%_ - _%tl8350384120%_ - _%hd8350284117%_ - _%hd8349684097%_ - _%hd8341584374%_)))) - (_%__kont8936389364%_ - _%tl8350084110%_ - _%tl8350384120%_ - _%hd8350284117%_ - _%hd8349684097%_ - _%hd8341584374%_)))) - (if (gx#stx-null? _%hd8349984107%_) - (_%__kont8936589366%_ - _%tl8350084110%_ - _%hd8349684097%_ - _%hd8341584374%_) - (let () (declare (not safe)) (_%g8340783621%_)))))) - (let () (declare (not safe)) (_%g8340783621%_))))) + (_%__kont8963789638%_ + _%tl8377484384%_ + _%tl8377784394%_ + _%hd8377684391%_ + _%hd8377084371%_ + _%hd8368984648%_)) + (_%__kont8963789638%_ + _%tl8377484384%_ + _%tl8377784394%_ + _%hd8377684391%_ + _%hd8377084371%_ + _%hd8368984648%_)) + (_%__kont8963789638%_ + _%tl8377484384%_ + _%tl8377784394%_ + _%hd8377684391%_ + _%hd8377084371%_ + _%hd8368984648%_)))) + (_%__kont8963789638%_ + _%tl8377484384%_ + _%tl8377784394%_ + _%hd8377684391%_ + _%hd8377084371%_ + _%hd8368984648%_)))) + (if (gx#stx-null? _%hd8377384381%_) + (_%__kont8963989640%_ + _%tl8377484384%_ + _%hd8377084371%_ + _%hd8368984648%_) + (let () (declare (not safe)) (_%g8368183895%_)))))) + (let () (declare (not safe)) (_%g8368183895%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8340783621%_))) - (if (equal? _%e8342084390%_ '3) + (_%g8368183895%_))) + (if (equal? _%e8369484664%_ '3) (if (gx#stx-pair? - _%tl8341984387%_) - (let ((_%e8356283842%_ + _%tl8369384661%_) + (let ((_%e8383684116%_ (gx#syntax-e - _%tl8341984387%_))) - (let ((_%tl8356483849%_ + _%tl8369384661%_))) + (let ((_%tl8383884123%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e8356283842%_))) - (_%hd8356383846%_ - (let () (declare (not safe)) (##car _%e8356283842%_)))) - (if (gx#stx-pair? _%tl8356483849%_) - (let ((_%e8356583852%_ (gx#syntax-e _%tl8356483849%_))) - (let ((_%tl8356783859%_ + (##cdr _%e8383684116%_))) + (_%hd8383784120%_ + (let () (declare (not safe)) (##car _%e8383684116%_)))) + (if (gx#stx-pair? _%tl8383884123%_) + (let ((_%e8383984126%_ (gx#syntax-e _%tl8383884123%_))) + (let ((_%tl8384184133%_ (let () (declare (not safe)) - (##cdr _%e8356583852%_))) - (_%hd8356683856%_ + (##cdr _%e8383984126%_))) + (_%hd8384084130%_ (let () (declare (not safe)) - (##car _%e8356583852%_)))) - (if (gx#stx-pair? _%hd8356683856%_) - (let ((_%e8356883862%_ - (gx#syntax-e _%hd8356683856%_))) - (let ((_%tl8357083869%_ + (##car _%e8383984126%_)))) + (if (gx#stx-pair? _%hd8384084130%_) + (let ((_%e8384284136%_ + (gx#syntax-e _%hd8384084130%_))) + (let ((_%tl8384484143%_ (let () (declare (not safe)) - (##cdr _%e8356883862%_))) - (_%hd8356983866%_ + (##cdr _%e8384284136%_))) + (_%hd8384384140%_ (let () (declare (not safe)) - (##car _%e8356883862%_)))) - (_%__kont8936789368%_ - _%tl8356783859%_ - _%tl8357083869%_ - _%hd8356983866%_ - _%hd8356383846%_ - _%hd8341584374%_))) - (if (gx#stx-pair/null? _%hd8356383846%_) - (let ((_%__splice8937189372%_ + (##car _%e8384284136%_)))) + (_%__kont8964189642%_ + _%tl8384184133%_ + _%tl8384484143%_ + _%hd8384384140%_ + _%hd8383784120%_ + _%hd8368984648%_))) + (if (gx#stx-pair/null? _%hd8383784120%_) + (let ((_%__splice8964589646%_ (gx#syntax-split-splice - _%hd8356383846%_ + _%hd8383784120%_ '0))) - (let ((_%tl8358983665%_ + (let ((_%tl8386383939%_ (let () (declare (not safe)) (##vector-ref - _%__splice8937189372%_ + _%__splice8964589646%_ '1))) - (_%target8358783662%_ + (_%target8386183936%_ (let () (declare (not safe)) (##vector-ref - _%__splice8937189372%_ + _%__splice8964589646%_ '0)))) - (if (gx#stx-null? _%tl8358983665%_) - (_%__match8969989700%_ - _%e8341484370%_ - _%hd8341584374%_ - _%tl8341684377%_ - _%e8341784380%_ - _%hd8341884384%_ - _%tl8341984387%_ - _%e8342084390%_ - _%e8356283842%_ - _%hd8356383846%_ - _%tl8356483849%_ - _%__splice8937189372%_ - _%target8358783662%_ - _%tl8358983665%_) + (if (gx#stx-null? _%tl8386383939%_) + (_%__match8997389974%_ + _%e8368884644%_ + _%hd8368984648%_ + _%tl8369084651%_ + _%e8369184654%_ + _%hd8369284658%_ + _%tl8369384661%_ + _%e8369484664%_ + _%e8383684116%_ + _%hd8383784120%_ + _%tl8383884123%_ + _%__splice8964589646%_ + _%target8386183936%_ + _%tl8386383939%_) (let () (declare (not safe)) - (_%g8340783621%_))))) + (_%g8368183895%_))))) (let () (declare (not safe)) - (_%g8340783621%_)))))) - (if (gx#stx-pair/null? _%hd8356383846%_) - (let ((_%__splice8937189372%_ - (gx#syntax-split-splice _%hd8356383846%_ '0))) - (let ((_%tl8358983665%_ + (_%g8368183895%_)))))) + (if (gx#stx-pair/null? _%hd8383784120%_) + (let ((_%__splice8964589646%_ + (gx#syntax-split-splice _%hd8383784120%_ '0))) + (let ((_%tl8386383939%_ (let () (declare (not safe)) - (##vector-ref _%__splice8937189372%_ '1))) - (_%target8358783662%_ + (##vector-ref _%__splice8964589646%_ '1))) + (_%target8386183936%_ (let () (declare (not safe)) - (##vector-ref _%__splice8937189372%_ '0)))) - (if (gx#stx-null? _%tl8358983665%_) - (_%__match8969989700%_ - _%e8341484370%_ - _%hd8341584374%_ - _%tl8341684377%_ - _%e8341784380%_ - _%hd8341884384%_ - _%tl8341984387%_ - _%e8342084390%_ - _%e8356283842%_ - _%hd8356383846%_ - _%tl8356483849%_ - _%__splice8937189372%_ - _%target8358783662%_ - _%tl8358983665%_) + (##vector-ref _%__splice8964589646%_ '0)))) + (if (gx#stx-null? _%tl8386383939%_) + (_%__match8997389974%_ + _%e8368884644%_ + _%hd8368984648%_ + _%tl8369084651%_ + _%e8369184654%_ + _%hd8369284658%_ + _%tl8369384661%_ + _%e8369484664%_ + _%e8383684116%_ + _%hd8383784120%_ + _%tl8383884123%_ + _%__splice8964589646%_ + _%target8386183936%_ + _%tl8386383939%_) (let () (declare (not safe)) - (_%g8340783621%_))))) - (let () (declare (not safe)) (_%g8340783621%_)))))) + (_%g8368183895%_))))) + (let () (declare (not safe)) (_%g8368183895%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8340783621%_))) + (_%g8368183895%_))) (let () (declare (not safe)) - (_%g8340783621%_)))))) + (_%g8368183895%_)))))) (let () (declare (not safe)) - (_%g8340783621%_))))) - (let () (declare (not safe)) (_%g8340783621%_))))) - (let () (declare (not safe)) (_%g8340783621%_)))))))))) + (_%g8368183895%_))))) + (let () (declare (not safe)) (_%g8368183895%_))))) + (let () (declare (not safe)) (_%g8368183895%_)))))))))) diff --git a/src/bootstrap/gerbil/runtime~0.scm b/src/bootstrap/gerbil/runtime~0.scm index 087ea86ab..30d045292 100644 --- a/src/bootstrap/gerbil/runtime~0.scm +++ b/src/bootstrap/gerbil/runtime~0.scm @@ -1,2 +1,2 @@ (declare (block) (standard-bindings) (extended-bindings)) -(begin (define gerbil/runtime::timestamp 1713044315) '#!void) +(begin (define gerbil/runtime::timestamp 1713454410) '#!void) diff --git a/src/gerbil/boot-gxi.c b/src/gerbil/boot-gxi.c index ecc4f8138..c10d8484a 100644 --- a/src/gerbil/boot-gxi.c +++ b/src/gerbil/boot-gxi.c @@ -46,7 +46,7 @@ int main(int argc, char **argv) { } if (!strcmp(argv[1], "-v")) { - char *args[] = {"-e", "(displayln gerbil-greeting)"}; + char *args[] = {"-e", "(displayln (gerbil-greeting))"}; exec_gxi(gerbil_gsi, gerbil_home, NULL, 2, args); return 2; } diff --git a/src/gerbil/core/contract.ss b/src/gerbil/core/contract.ss index c1cb5bca5..4981eee7d 100644 --- a/src/gerbil/core/contract.ss +++ b/src/gerbil/core/contract.ss @@ -2762,20 +2762,50 @@ package: gerbil/core (defrule (defstruct/c hd slots . body) (defclass/c hd slots struct: #t . body)) - (defsyntax (defmutable stx) - (syntax-case stx (:) - ((_ var value ~ Type) + (defsyntax (defmutable* stx) + (syntax-case stx () + ((_ var value ~ . contract) (and (identifier? #'var) (identifier? #'~) (or (free-identifier=? #'~ #':) - (free-identifier=? #'~ #':?))) + (free-identifier=? #'~ #':?) + (free-identifier=? #'~ #':~))) (with-syntax ((__var (stx-identifier #'var "__" #'var)) (var-set! (stx-identifier #'var #'var "-set!"))) #'(begin (def __var value) (def (var) __var) - (def/c (var-set! (new-value ~ Type)) + (def/c (var-set! (new-value ~ . contract)) (set! __var new-value))))) + ((_ var value) + #'(defmutable* var value : :t)))) + + + (defsyntax (defmutable stx) + (syntax-case stx () + ((_ var value ~ . contract) + (and (identifier? #'var) + (identifier? #'~) + (or (free-identifier=? #'~ #':) + (free-identifier=? #'~ #':?) + (free-identifier=? #'~ #':~))) + (with-syntax ((__var (stx-identifier #'var "__" #'var)) + (var-set! (stx-identifier #'var #'var "-set!"))) + #'(begin + (def __var value) + (def/c (var-set! (new-value ~ . contract)) + (set! __var new-value)) + (defsyntax var + (identifier-rules (set! %%set-dotted!) + ((set! the-var new-value) + (var-set! new-value)) + ((%%set-dotted! the-var new-value) + (var-set! new-value)) + (the-var + (identifier? #'the-var) + __var) + ((the-var arg (... ...)) + (__var arg (... ...)))))))) ((_ var value) #'(defmutable var value : :t))))) diff --git a/src/gerbil/interactive/init.ss b/src/gerbil/interactive/init.ss index 0f3f8c157..f26a21ce1 100644 --- a/src/gerbil/interactive/init.ss +++ b/src/gerbil/interactive/init.ss @@ -11,4 +11,4 @@ ;; hook the repl path normalization -- it breaks buffer location popping ;; in gerbil mode for out of tree sources (when (getenv "EMACS" #f) - (set! ##repl-path-normalize-hook values)) + (set! ##repl-path-normalize-hook identity)) diff --git a/src/gerbil/runtime/system.ss b/src/gerbil/runtime/system.ss index 6cb9e7168..f26ac88b2 100644 --- a/src/gerbil/runtime/system.ss +++ b/src/gerbil/runtime/system.ss @@ -13,7 +13,7 @@ namespace: #f [["Gerbil" :: (gerbil-version-string)] ["Gambit" :: (system-version-string)]]) -(defmutable build-manifest gerbil-system-manifest : :list) +(defmutable* build-manifest gerbil-system-manifest : :list) (def (display-build-manifest (manifest : :list := __build-manifest) (port : :port := (current-output-port))) @@ -45,7 +45,7 @@ namespace: #f => :string (build-manifest-string gerbil-system-manifest)) -(defmutable gerbil-greeting (gerbil-system-version-string) : :string) +(defmutable* gerbil-greeting (gerbil-system-version-string) : :string) (def (gerbil-system) 'gerbil-gambit) diff --git a/src/gerbil/runtime/thread.ss b/src/gerbil/runtime/thread.ss index ec7746355..d3c81612c 100644 --- a/src/gerbil/runtime/thread.ss +++ b/src/gerbil/runtime/thread.ss @@ -111,7 +111,7 @@ namespace: #f (make-mutex 'thread-locals)) ;;; actor debug hooks -(defmutable unhandled-actor-exception-hook #f :? :procedure) +(defmutable* unhandled-actor-exception-hook #f :? :procedure) ;;; utitilities (def (current-thread-group) diff --git a/src/std/cli/multicall.ss b/src/std/cli/multicall.ss index 63c53ce1a..becce8fbb 100644 --- a/src/std/cli/multicall.ss +++ b/src/std/cli/multicall.ss @@ -73,7 +73,7 @@ (help: "Print software version" getopt: [(flag 'all? "-a" "--all" help: "also show versions of previous layers") (option 'layer "-l" "--layer" help: "show versions for specified layer")]) - (display-build-manifest (cond (all? build-manifest) + (display-build-manifest (cond (all? (build-manifest)) (layer (build-manifest/layer layer)) (else (build-manifest/head)))) (newline))